      REAL*8 FUNCTION DAYS(IYR)
C
C COMPUTE NUMBER OF DAYS IN YR (IYR).
C
      DAYS = 365.0D0
      IF (MOD(IYR,4).NE.0) DAYS = 366.0D0
C
      RETURN
      END
