Symbol Description Uses
midsecs 8


File Line number Procedure Code
./pkg/cal/cal_getmonthsrec.F 112 CAL_GETMONTHSREC 
      midsecs     = float(ndaymonth(present,currentdate(3))*
./pkg/cal/cal_getmonthsrec.F 115 CAL_GETMONTHSREC 
      call CAL_TIMEINTERVAL( midsecs, 'secs', midtime, mythid )
./pkg/cal/cal_getmonthsrec.F 133 CAL_GETMONTHSREC 
      if ( currentsecs .lt. midsecs ) then
./pkg/cal/cal_getmonthsrec.F 164 CAL_GETMONTHSREC 
        if ( prevsecs .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 76 CAL_GETMONTHSREC 
      _RL     midsecs