Symbol Description Uses
date 108


File Line number Procedure Code
./pkg/cal/cal_checkdate.F 100 CAL_CHECKDATE 
          if ((date(3) .ne. 1) .and.
./pkg/cal/cal_checkdate.F 101 CAL_CHECKDATE 
     &        (date(3) .ne. 2)) then
./pkg/cal/cal_checkdate.F 107 CAL_CHECKDATE 
              call CAL_CONVDATE( date,yy,mm,dd,nsecs,lp,wd,mythid )
./pkg/cal/cal_checkdate.F 108 CAL_CHECKDATE 
              if (date(1) .lt. refdate(1)) then
./pkg/cal/cal_checkdate.F 116 CAL_CHECKDATE 
              if (date(2) .ne. hhmmss) then
./pkg/cal/cal_checkdate.F 120 CAL_CHECKDATE 
              if (date(1) .ne. yymmdd) then
./pkg/cal/cal_checkdate.F 46 CAL_CHECKDATE 
      integer date(4)
./pkg/cal/cal_checkdate.F 69 CAL_CHECKDATE 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_checkdate.F 70 CAL_CHECKDATE 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_checkdate.F 73 CAL_CHECKDATE 
      if (date(4) .le. 0) then
./pkg/cal/cal_checkdate.F 74 CAL_CHECKDATE 
        if (date(4) .ne. -1) then
./pkg/cal/cal_checkdate.F 77 CAL_CHECKDATE 
          if (date(3) .ne. 0) then
./pkg/cal/cal_checkdate.F 7 CAL_CHECKDATE 
     I                          date,
./pkg/cal/cal_checkdate.F 83 CAL_CHECKDATE 
              call CAL_CONVDATE(date,yy,mm,dd,nsecs,lp,wd,mythid)
./pkg/cal/cal_checkdate.F 90 CAL_CHECKDATE 
              if (date(2) .ne. hhmmss) then
./pkg/cal/cal_checkdate.F 97 CAL_CHECKDATE 
        if (date(4) .gt. 8) then
./pkg/cal/cal_toseconds.F 53 CAL_TOSECONDS 
      integer date(4)
./pkg/cal/cal_toseconds.F 67 CAL_TOSECONDS 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_toseconds.F 68 CAL_TOSECONDS 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_toseconds.F 71 CAL_TOSECONDS 
      if (((date(4) .eq. -1) .and.
./pkg/cal/cal_toseconds.F 72 CAL_TOSECONDS 
     &    (date(3) .eq.  0) .and.
./pkg/cal/cal_toseconds.F 75 CAL_TOSECONDS 
        if ((date(1) .lt. 0) .or.
./pkg/cal/cal_toseconds.F 76 CAL_TOSECONDS 
     &      (date(2) .lt. 0)) then
./pkg/cal/cal_toseconds.F 77 CAL_TOSECONDS 
          ndays  = -date(1)
./pkg/cal/cal_toseconds.F 78 CAL_TOSECONDS 
          hhmmss = -date(2)
./pkg/cal/cal_toseconds.F 7 CAL_TOSECONDS 
     I                          date,
./pkg/cal/cal_toseconds.F 81 CAL_TOSECONDS 
          ndays  = date(1)
./pkg/cal/cal_toseconds.F 82 CAL_TOSECONDS 
          hhmmss = date(2)
./pkg/cal/cal_fulldate.F 49 CAL_FULLDATE 
      integer date(4)
./pkg/cal/cal_fulldate.F 65 CAL_FULLDATE 
      date(1) = yymmdd
./pkg/cal/cal_fulldate.F 66 CAL_FULLDATE 
      date(2) = hhmmss
./pkg/cal/cal_fulldate.F 67 CAL_FULLDATE 
      date(3) = 1
./pkg/cal/cal_fulldate.F 68 CAL_FULLDATE 
      date(4) = 1
./pkg/cal/cal_fulldate.F 71 CAL_FULLDATE 
      call CAL_CHECKDATE( date, valid, calerr, mythid )
./pkg/cal/cal_fulldate.F 76 CAL_FULLDATE 
        date(3) = cal_IsLeap( theyear, mythid )
./pkg/cal/cal_fulldate.F 79 CAL_FULLDATE 
        call CAL_TIMEPASSED( refdate, date, numberofdays, mythid )
./pkg/cal/cal_fulldate.F 80 CAL_FULLDATE 
        date(4) = mod(numberofdays(1),7)+1
./pkg/cal/cal_fulldate.F 9 CAL_FULLDATE 
     O                         date,
./pkg/cal/cal_timeinterval.F 49 CAL_TIMEINTERVAL 
      integer date(4)
./pkg/cal/cal_timeinterval.F 67 CAL_TIMEINTERVAL 
      date(4) = -1
./pkg/cal/cal_timeinterval.F 68 CAL_TIMEINTERVAL 
      date(3) =  0
./pkg/cal/cal_timeinterval.F 71 CAL_TIMEINTERVAL 
        date(1) = int(timeint/float(secondsperday))
./pkg/cal/cal_timeinterval.F 72 CAL_TIMEINTERVAL 
        tmp1    = date(1)
./pkg/cal/cal_timeinterval.F 78 CAL_TIMEINTERVAL 
        date(1) = int(timeint*modelstep/float(secondsperday))
./pkg/cal/cal_timeinterval.F 80 CAL_TIMEINTERVAL 
     &                float(date(1)) * float(secondsperday))
./pkg/cal/cal_timeinterval.F 91 CAL_TIMEINTERVAL 
      date(2) = hhmmss/minutesperhour*10000 +
./pkg/cal/cal_timeinterval.F 9 CAL_TIMEINTERVAL 
     O                             date,
./pkg/cal/cal_addtime.F 104 CAL_ADDTIME 
               intv_1 = date(1)
./pkg/cal/cal_addtime.F 105 CAL_ADDTIME 
               intv_2 = date(2)
./pkg/cal/cal_addtime.F 124 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 142 CAL_ADDTIME 
         call CAL_CONVDATE( date,yi,mi,di,si,li,wi,mythid )
./pkg/cal/cal_addtime.F 50 CAL_ADDTIME 
      integer date(4)
./pkg/cal/cal_addtime.F 7 CAL_ADDTIME 
     I                        date,
./pkg/cal/cal_addtime.F 88 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 89 CAL_ADDTIME 
         if (date(1) .ge. 0) then
./pkg/cal/cal_addtime.F 90 CAL_ADDTIME 
            date_1 = date(1)
./pkg/cal/cal_addtime.F 91 CAL_ADDTIME 
            date_2 = date(2)
./pkg/cal/cal_addtime.F 96 CAL_ADDTIME 
               date_1 = -date(1)
./pkg/cal/cal_addtime.F 97 CAL_ADDTIME 
               date_2 = -date(2)
./pkg/cal/cal_convdate.F 102 CAL_CONVDATE 
      if (date(4) .ne. -1) then
./pkg/cal/cal_convdate.F 121 CAL_CONVDATE 
      lp = date(3)
./pkg/cal/cal_convdate.F 122 CAL_CONVDATE 
      wd = date(4)
./pkg/cal/cal_convdate.F 46 CAL_CONVDATE 
      integer date(4)
./pkg/cal/cal_convdate.F 70 CAL_CONVDATE 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_convdate.F 71 CAL_CONVDATE 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_convdate.F 75 CAL_CONVDATE 
        if (date(1) .eq. 0) then
./pkg/cal/cal_convdate.F 76 CAL_CONVDATE 
          date_1 = date(1)
./pkg/cal/cal_convdate.F 77 CAL_CONVDATE 
          if (date(2) .lt. 0) then
./pkg/cal/cal_convdate.F 78 CAL_CONVDATE 
            date_2 = -date(2)
./pkg/cal/cal_convdate.F 7 CAL_CONVDATE 
     I                         date,
./pkg/cal/cal_convdate.F 81 CAL_CONVDATE 
            date_2 = date(2)
./pkg/cal/cal_convdate.F 84 CAL_CONVDATE 
        else if (date(1) .lt. 0) then
./pkg/cal/cal_convdate.F 85 CAL_CONVDATE 
          date_1 = -date(1)
./pkg/cal/cal_convdate.F 86 CAL_CONVDATE 
          date_2 = -date(2)
./pkg/cal/cal_convdate.F 89 CAL_CONVDATE 
          date_1 = date(1)
./pkg/cal/cal_convdate.F 90 CAL_CONVDATE 
          date_2 = date(2)