cmptest()

subroutine cmptest	(	integer, dimension(7)	date1,
		integer, dimension(7)	date2
	)

Definition at line 416 of file testlibtime.f.

References time_sprint().

      integer date1(7), date2(7)
      character*34 string1, string2
      integer time_compare, val
      call time_sprint(date1, string1)
      call time_sprint(date2, string2)
      val=time_compare(date1, date2)
      if (val.gt.0) then
        print *,string1, '> ',string2
      else if (val.lt.0) then
        print *,string1, '< ',string2
      else
        print *,string1, '= ',string2
      endif
      val=time_compare(date2, date1)
      if (val.gt.0) then
        print *,string2, '> ',string1
      else if (val.lt.0) then
        print *,string2, '< ',string1
      else
        print *,string2, '= ',string1
      endif
      return

Here is the call graph for this function: