      REAL*8 FUNCTION LEAP(YEAR)
C
C CONVERT INTEGER*2 YEAR INTO DOUBLE PRECISION DAYS
C SBK 07/07/94
C
      INTEGER*2 YEAR
C
      IYR = YEAR
      IF (MOD(IYR,4).EQ.0) THEN
       LEAP = 366.0D0
      ELSE
       LEAP = 365.0D0
      END IF
C
      RETURN
      END
      
