Symbol Description Uses
MIDM 4



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 786 GETLGR
        MIDM = DAYS(K1)/2 + 1
./pkg/fizhi/update_earth_exports.F 790 GETLGR
        MIDM = MIDMON
./pkg/fizhi/update_earth_exports.F 795 GETLGR
      FAC = (float(ID  -MIDM)*DAYLEN + SEC) /
./pkg/fizhi/update_earth_exports.F 796 GETLGR
     &      (float(MIDP-MIDM)*DAYLEN            )