leap.f

Go to the documentation of this file.

c************************  FUNCTION LEAP  ******************************
c
c     returns as "true" if YEAR is a leap year, else returns as "false".
c
c     Created by Michael Darzi, GSC, 8/89
c               To UNIX: BD Schieber, SAIC/GSC, 93
c***********************************************************************
c
      logical function leap(YEAR)
      integer*4 year
 
      if ((mod(year,400) .eq. 0) .or.
     +    ((mod(year,4).eq.0) .and. (mod(year,100).ne.0))) then
        leap = .true.
      else
        leap = .false.
      endif
 
      return
      end