C-----------------------------------------------------------------------
C IMSL Name:  NDAYS (Single precision version)
C
C Purpose:    Compute the number of days from January 1, 1900, to the
C             given date.
C
C Usage:      NDAYS(IDAY, MONTH, IYEAR)
C
C Example 1:
      INTEGER    IDAY, IYEAR, MONTH, NDAY0, NDAY1, NDAYS, NOUT
      EXTERNAL   NDAYS, UMACH
C
      IDAY  = 15
      MONTH = 1
      IYEAR = 1986
      NDAY0 = NDAYS(IDAY,MONTH,IYEAR)
      IDAY  = 28
      MONTH = 2
      IYEAR = 1986
      NDAY1 = NDAYS(IDAY,MONTH,IYEAR)
      CALL UMACH (2, NOUT)
      WRITE (NOUT,*) 'Number of days = ', NDAY1 - NDAY0
      END
C Number of days =   44