testleap()

subroutine testleap

(

integer

year

)

Definition at line 472 of file testlibtime.f.

Referenced by testlibtime().

      integer year
      logical time_isleapyear
      if (time_isleapyear(year)) then
      else
        print 50,year
      endif
        print 51,year
      return
   50 format('year ',i4,' is a leap year')
   51 format('year ',i4,' is no leap year')

Here is the caller graph for this function: