Symbol Description Uses
date_a 9


File Line number Procedure Code
./pkg/cal/cal_compdates.F 36 NO PROCEDURE 
      integer date_a(4)
./pkg/cal/cal_compdates.F 44 NO PROCEDURE 
      if ( ( date_a(1) .eq. date_b(1) ) .and.
./pkg/cal/cal_compdates.F 45 NO PROCEDURE 
     &     ( date_a(2) .eq. date_b(2) ) .and.
./pkg/cal/cal_compdates.F 46 NO PROCEDURE 
     &     ( date_a(3) .eq. date_b(3) ) .and.
./pkg/cal/cal_compdates.F 47 NO PROCEDURE 
     &     ( date_a(4) .eq. date_b(4) )       ) then
./pkg/cal/cal_compdates.F 7 NO PROCEDURE 
     I                                date_a,
./pkg/cal/cal_numints.F 42 NO PROCEDURE 
      integer date_a(4)
./pkg/cal/cal_numints.F 57 NO PROCEDURE 
        call CAL_TIMEPASSED( date_a, date_b, passed, mythid )
./pkg/cal/cal_numints.F 7 NO PROCEDURE 
     I                              date_a,