SUBROUTINE NOWPR(NFILE)
C  This routine prints the current day of the week, date, and time
C  to the unit NFILE (which of course must have been opened).
      CHARACTER*10 HWEEK(7)
      DATA HWEEK/'    Sunday','    Monday','   Tuesday',' Wednesday',
     1  '  Thursday','    Friday','  Saturday'/
      CALL TDATE(IDATE,MONTH,IYEAR)
      CALL TIMDY(IHOUR,MINUTE,ISEC)
      IW=IDYWK(IDATE,MONTH,IYEAR)
C THis next line is for those who are using the IMSL independent version
C of JGLIB. The programs called here use IMSL to get machine dependent
C values.
      IF(IW.EQ.0) GO TO 100
      WRITE(NFILE,10)HWEEK(IW),MONTH,IDATE,IYEAR,IHOUR,MINUTE,ISEC
   10 FORMAT(A10,I3,'/',I2,'/',2I4,2(':',I2))
 100  RETURN
      END