C-----------------------------------------------------------------------
C IMSL Name:  NDYIN (Single precision version)
C
C Purpose:    Give the date corresponding to the number of days since
C             January 1, 1900.
C
C Usage:      CALL NDYIN (NDAYS, IDAY, MONTH, IYEAR)
C
C Example 1:
      INTEGER    IDAY, IYEAR, MONTH, NDAY0, NDAYS, NOUT
      EXTERNAL   NDAYS, NDYIN, UMACH
C
      NDAY0 = NDAYS(31,12,1985)
      CALL NDYIN (NDAY0+100, IDAY, MONTH, IYEAR)
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) 'Day 100 of 1986 is (day-month-year) ', IDAY,
     &              '-', MONTH, '-', IYEAR
      END
C Day 100 of 1986 is (day-month-year)   10-  4-  1986