SUBROUTINE WRITREC ( UNIT, UT, DELAY, SIGMA, ISCAN )
C......................................................................
C       This subroutine is part of the MWOI data reduction package.
C       It formats and writes the output data.
C       Modified for use with new AVER  13 Jul 1987
C       Transfered to compact 386       12 Apr 1988
C       ASCII output                     6 Jun 1988
C       Compatable with Kaplan's solver 30 Jun 1988
C
      IMPLICIT UNDEFINED (A-Z)
      SAVE
      INCLUDE 'AVER.INC'
      INTEGER *4  OREC, UNIT, ISCAN
      REAL *8 UT, HOURS, SIGMA, DELAY
      DATA       OREC  / 0 /
C----------------------------------------------------------------------
      OREC = OREC + 1
      HOURS= 24.*UT
      WRITE (UNIT,1000) IMON, IDAY, MOD(IYEAR,100), HOURS, ISTAR,
     $       DELAY, ISCAN, IBASE, SIGMA, INT(WEIGHT)
 1000 FORMAT (I2, '/', I2.2, '/', I2.2, F12.9, I5, F18.4, 1X, I5,
     $        I2, 1X, F7.2, I5 )
      RETURN
      END