Symbol Description Uses
caldate 6


File Line number Procedure Code
./pkg/cal/cal_printdate.F 46 CAL_PRINTDATE 
      integer caldate(4)
./pkg/cal/cal_printdate.F 56 CAL_PRINTDATE 
      if ( caldate(4) .gt. 0 ) then
./pkg/cal/cal_printdate.F 58 CAL_PRINTDATE 
        print*,caldate
./pkg/cal/cal_printdate.F 62 CAL_PRINTDATE 
      else if ( caldate(4) .eq. -1 ) then
./pkg/cal/cal_printdate.F 64 CAL_PRINTDATE 
        print*,caldate
./pkg/cal/cal_printdate.F 7 CAL_PRINTDATE 
     I                          caldate,