c$Header: /weru/cvs/climate/wind_gen/src/libf/isleap.for,v 1.1 1999-04-12 19:49:47 ffa Exp $
c
      logical   function   isleap
     i                              (yyyy)
c     + + + PURPOSE + + +
c     Given a year in yyyy format,
c     isleap will return a .true. if it is a leap year
c     or a .false. if it is not a leap year.
c
c     + + + KEYWORDS + + +
c     date, utility, leap year
c
c     + + + ARGUMENT DECLARATIONS + + +
      integer yyyy
c
c     + + + ARGUMENT DEFINITIONS + + +
c     yyyy   - year
c
c     + + + LOCAL VARIABLES + + +
      integer ld
c
c     + + + FUNCTION DECLARATIONS + + +
      integer lstday
c
c     + + + END SPECIFICATIONS + + +
c
c     Go to the last day of February and see if the 29th exists
      ld= lstday(2, yyyy)
      if (ld.eq.29) then
         isleap = .TRUE.
      else
         isleap = .FALSE.
      endif
      return
      end
c
c$Log: not supported by cvs2svn $
cRevision 1.1.1.1  1999/03/12 17:05:31  wagner
cBaseline version of WEPS with Bill Rust's modifications
c
c Revision 1.2  1995/07/23  05:13:25  jt
c  changed comments at top to read ".true." and ".false"
c
c Revision 1.1.1.1  1995/01/18  04:20:07  wagner
c Initial checkin
c
c Revision 2.1  1992/03/27  17:22:53  wagner
c Version 2 code.
c