Symbol Description Uses
currentsecs 6


File Line number Procedure Code
./pkg/cal/cal_getmonthsrec.F 106 CAL_GETMONTHSREC 
      currentsecs = float(
./pkg/cal/cal_getmonthsrec.F 133 CAL_GETMONTHSREC 
      if ( currentsecs .lt. midsecs ) then
./pkg/cal/cal_getmonthsrec.F 202 CAL_GETMONTHSREC 
      if ( currentsecs .lt. midsecs ) then
./pkg/cal/cal_getmonthsrec.F 203 CAL_GETMONTHSREC 
        fac = (midsecs - currentsecs)/diffsecs
./pkg/cal/cal_getmonthsrec.F 205 CAL_GETMONTHSREC 
        fac = (2.*midsecs + midsecs_np - currentsecs)/
./pkg/cal/cal_getmonthsrec.F 72 CAL_GETMONTHSREC 
      _RL     currentsecs