Symbol Description Uses
MIDP 3


File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 781 GETLGR 
        MIDP = DAYS(K1) + MIDMON
./pkg/fizhi/update_earth_exports.F 785 GETLGR 
        MIDP = DAYS(K2)/2 + 1 + DAYS(K1)
./pkg/fizhi/update_earth_exports.F 790 GETLGR 
     &      (float(MIDP-MIDM)*DAYLEN            )