FTN4
      LOGICAL FUNCTION JULIB(JUDAY,IAN,JOUR 
     .,MOIS),. 92080-1X033 REV.2026  800515 
C 
C     SOURCE 92080-18033
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C     GIVE THE DAY AND MONTH NUMBER FROM THE DAY OF YEAR
C 
C     CALLING SEQUENCE: 
C 
C        IF ( JULIB(JULDAY,YEAR,DAY,MONTH) )  GOTO  ..   ERROR
C 
C           JULDAY - DAY OF THE YEAR  1 TO 366  (JULIAN DAY)
C           YEAR   - YEAR  0 TO 2999
C           DAY    - THE DAY OF THE MONTH WILL BE RETRUNED HERE 
C           MONTH  - THE MONTH WILL BE RETUNED YEAR 
C 
C 
      DIMENSION IBUF(12)
      DATA IBUF/31,28,31,30,31,30,31,31,30,31,30,31/
      JULIB=.TRUE.
      IBUF(2)=28
      IF(IAN.LE.0)  RETURN
      IF (IAN.EQ.1900.OR.IAN.EQ.2000) GO TO 50
      K=(IAN/4)*4 
      IF(K.EQ.IAN)IBUF(2)=29
  50  CONTINUE
      JDAY = JUDAY
      DO 20 I=1,12
      IF (JDAY.LE.IBUF(I)) GO TO 30 
      JDAY = JDAY - IBUF(I) 
   20 CONTINUE
      RETURN
C 
C    DAY OF YEAR WAS OK, RETURN RESULT
C 
   30 CONTINUE
      JULIB=.FALSE. 
      JOUR = JDAY 
      MOIS = I
      RETURN
      END 
      END$
                  