Symbol Description Uses
K2 12



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 768 GETLGR
        K2 = IMON
./pkg/fizhi/update_earth_exports.F 772 GETLGR
        K2 = MOD(IMON,12) + 1
./pkg/fizhi/update_earth_exports.F 781 GETLGR
        MIDP = DAYS(K2)/2 + 1 + DAYS(K1)
./pkg/fizhi/update_earth_exports.F 792 GETLGR
       KK2 = K2
./pkg/fizhi/update_earth_exports.F 795 GETLGR
       KK2 = MOD(K2+5,12) + 1