time_isleapyear()

logical function time_isleapyear

(

integer

year

)

Definition at line 31 of file time_isleapyear.f.

References time_fullyear(), and time_isleapyear().

c
c is true if year is a leap-year (else false ;-))
c
c input:
c   year:   full qualified year value to be checked for being a leap-year
c
c last change: V2.00 (05/08/2000)
c
      integer year
cE
      integer iyear
      logical result
c 
      iyear=year
      call time_fullyear(iyear)
      result=(((mod(iyear,4).eq.0).and.(mod(iyear,100).ne.0)).or.
     &     (mod(iyear,400).eq.0)) 
      time_isleapyear=result
      return

Here is the call graph for this function: