time_compare()

integer function time_compare	(	integer, dimension(7)	date1,
		integer, dimension(7)	date2
	)

Definition at line 32 of file time_compare.f.

References time_compare(), and time_util_warning().

c
c Compare values of date1 and date2. 
c Both must be absolute or both must be relative.
c
c result = 0   for   date1 = date2
c result = -1  for   date1 < date2
c result = 1   for   date1 > date2
c
c input:
c   date1:  primary time record
c   date2:  secondary time record
c
c last change: V2.00 (05/08/2000)
c
      integer date1(7), date2(7)
cE
      integer result, i
c 
      if (((date1(1).eq.0).and.(date2(1).eq.0)).or.
     &    ((date1(1).ne.0).and.(date2(1).ne.0))) then
        result=0
        i=1
    1   if (date1(i).gt.date2(i)) then
          result=1
        elseif (date1(i).lt.date2(i)) then
          result=-1
        else
          i=i+1
          if (i.lt.8) goto 1
        endif
      else
        call time_util_warning('time_compare',
     &                         'do not mix absolute and relative times')
        call time_util_warning('time_compare',
     &                         'routine skipped... (result=-2)')
        result=-2
      endif
      time_compare=result
      return

Here is the call graph for this function: