PROGRAM RDRV

      USE PARAMS
      USE DATAFILES
      USE BINPUT_4_0

      IMPLICIT NONE

      CHARACTER (LEN=10)    :: TIME, DATE, ZONE

      REAL :: START_TIME, END_TIME

      CALL FILESETUP

! --- DETAIL FILE
      OPEN(UNIT=16, FILE=TFILE(16), STATUS='UNKNOWN', ERR=101, POSITION='ASIS')

      CALL CPU_TIME (START_TIME)

      WRITE (16, *) VERSION
      WRITE (*, *) VERSION

      CALL DATE_AND_TIME (DATE, TIME, ZONE)

      WRITE (16, *) 'RUNNING ', DATE(5:6), '/', DATE(7:8), '/', &
           & DATE(1:4), '  ', TIME(1:2), ':', TIME(3:4), ':', TIME(5:6)
      WRITE ( 6, *) 'RUNNING ', DATE(5:6), '/', DATE(7:8), '/', &
           & DATE(1:4), '  ', TIME(1:2), ':', TIME(3:4), ':', TIME(5:6)

      CALL READ_BINPUT('sfit4.ctl')

      CALL SFIT4 ( )

      CALL CPU_TIME (END_TIME)
      WRITE (16, *) 'ELAPSED TIME = ', END_TIME - START_TIME
      PRINT *, 'ELAPSED TIME = ', END_TIME - START_TIME

      CLOSE(16)

      STOP

 101  CONTINUE
      WRITE (0, 201) TFILE(16)
      CLOSE(16)
      STOP ' RDRV ERROR '

 201  FORMAT(/,' DETAIL OUTPUT FILE OPEN ERROR-UNIT 16'/,' FILENAME: "',A,'"')
!   10 FORMAT(A)
!   20 FORMAT(A7)

      END PROGRAM RDRV