Symbol Description Uses
workdate 9



File Line number Procedure Code
./pkg/cal/cal_getdate.F 52 CAL_GETDATE
      integer workdate(4)
./pkg/cal/cal_getdate.F 66 CAL_GETDATE
      call CAL_TIMEINTERVAL( secs, 'secs', workdate, mythid )
./pkg/cal/cal_getdate.F 67 CAL_GETDATE
      call CAL_ADDTIME( modelstartdate, workdate, mydate, mythid )
./pkg/cal/cal_subdates.F 51 CAL_SUBDATES
      integer workdate(4)
./pkg/cal/cal_subdates.F 62 CAL_SUBDATES
          workdate(1) = -initialdate(1)
./pkg/cal/cal_subdates.F 63 CAL_SUBDATES
          workdate(2) = -initialdate(2)
./pkg/cal/cal_subdates.F 64 CAL_SUBDATES
          workdate(3) =  0
./pkg/cal/cal_subdates.F 65 CAL_SUBDATES
          workdate(4) = -1
./pkg/cal/cal_subdates.F 66 CAL_SUBDATES
          call CAL_ADDTIME( finaldate, workdate, diffdate, mythid )