Symbol Description Uses
cal_setStatus status of calendar parms setting (0=none, 3=fully set) 30


File Line number Procedure Code
./pkg/cal/cal.h 101 NO PROCEDURE 
      INTEGER cal_setStatus
./pkg/cal/cal.h 79 NO PROCEDURE 
     &               cal_setStatus,
./pkg/cal/cal_addtime.F 68 CAL_ADDTIME 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_addtime.F 76 CAL_ADDTIME 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_checkdate.F 119 CAL_CHECKDATE 
      IF ( valid .AND. cal_setStatus.GE.1 ) THEN
./pkg/cal/cal_checkdate.F 67 CAL_CHECKDATE 
      ELSEIF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_checkdate.F 72 CAL_CHECKDATE 
     &      ' called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_convdate.F 53 CAL_CONVDATE 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_convdate.F 58 CAL_CONVDATE 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_fulldate.F 61 CAL_FULLDATE 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_fulldate.F 66 CAL_FULLDATE 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_getdate.F 58 CAL_GETDATE 
      ELSEIF ( cal_setStatus .LT. 3 ) THEN
./pkg/cal/cal_getdate.F 64 CAL_GETDATE 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_isleap.F 43 NO PROCEDURE 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_isleap.F 48 NO PROCEDURE 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_readparms.F 75 CAL_READPARMS 
         cal_setStatus = -1
./pkg/cal/cal_readparms.F 85 CAL_READPARMS 
        cal_setStatus = 0
./pkg/cal/cal_set.F 192 CAL_SET 
      cal_setStatus = 1
./pkg/cal/cal_set.F 223 CAL_SET 
      cal_setStatus = 2
./pkg/cal/cal_set.F 248 CAL_SET 
      cal_setStatus = 3
./pkg/cal/cal_subdates.F 50 CAL_SUBDATES 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_subdates.F 58 CAL_SUBDATES 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_timeinterval.F 62 CAL_TIMEINTERVAL 
        IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_timeinterval.F 67 CAL_TIMEINTERVAL 
     &      'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_timeinterval.F 78 CAL_TIMEINTERVAL 
        IF ( cal_setStatus .LT. 2 ) THEN
./pkg/cal/cal_timeinterval.F 83 CAL_TIMEINTERVAL 
     &      'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_timepassed.F 69 CAL_TIMEPASSED 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_timepassed.F 77 CAL_TIMEPASSED 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'
./pkg/cal/cal_toseconds.F 59 CAL_TOSECONDS 
      IF ( cal_setStatus .LT. 1 ) THEN
./pkg/cal/cal_toseconds.F 64 CAL_TOSECONDS 
     &    'called too early (cal_setStatus=',cal_setStatus,' )'