SUBROUTINE HWRITE
C
C       Write a two record long header 
C
      INCLUDE 'fritz.inc'
      INTEGER *4 HEADER(16), IFMT
      REAL *8    UT
      CHARACTER *68 TITLE
      DATA IFMT / 5 /
      DATA TITLE / ' FORMAT VERSION 5    RECORD SIZE = 76 BYTES ' /
      UT = 0.D0
      READ ( TITLE , '(16A4)') HEADER
      VREC = 1
      WRITE( TERMV, REC=VREC ) UT, IFMT, HEADER
      VREC = 2
      WRITE( TERMV, REC=VREC ) UT, IFMT, HEADER
      RETURN
      END
      SUBROUTINE TWRITE ( INTTIM )
C       Write a time block at the start of each new scan.
C
      IMPLICIT NONE           
      REAL *8 INTTIM
      INCLUDE 'fritz.inc'
      INTEGER *2 GIVE(8), MORE(6)
      INTEGER *4 J
      REAL *4 STRK
      REAL *8 UT
      DATA MORE / 6*0 /
      UT = - MTIME / 86400.D0
      GIVE( 1) =   0
      GIVE( 2) = ISTAR
      GIVE( 3) = IBASE
      GIVE( 4) = INTTIM * 1000.
      GIVE( 5) =   4
      GIVE( 6) = IMON
      GIVE( 7) = IDAY
      GIVE( 8) = IYEAR
      STRK     = STROKE
      VREC = VREC + 1
      WRITE( TERMV, REC=VREC ) UT, GIVE, STRK, FILTER, MORE
      RETURN
      END
      SUBROUTINE VWRITE ( TIME, NUM, NUM8, N2, NN, PHIRMS, PHI12 )
C  Writes one record of visibilities.
C
      IMPLICIT NONE           
      INCLUDE 'fritz.inc'
      REAL *8 TIME, UT, PHIRMS, PHI12
      REAL *4 NUM(4), NUM8(4), N2(4), NN(4), RMS, SEEING
C
      UT   = TIME / 86400.D0
      RMS  = PHIRMS
      SEEING = PHI12
      VREC = VREC + 1
      WRITE(TERMV, REC=VREC) UT, NUM, NUM8(3), NUM8(4),
     $                       N2, NN, JITTR, RMS, SEEING
      RETURN
      END
      SUBROUTINE DWRITE ( UT, LAS, TFIRST, TLAST, ILOCKS )
C  write dark counts to output visi-file.
C
      IMPLICIT NONE           
      SAVE
      INCLUDE 'fritz.inc'
      INTEGER *4 I, BNTR, NOW, ILOCKS
      INTEGER *2 ICODE, NTAU, I2STAR, I2BASE, MORE(5), I2LOCK
      REAL *4 TFIRST, TLAST
      REAL *8   LAS, UT 
C NTAU = integration time for dark counts
      DATA ICODE, NTAU, MORE  / 1, 5000, 5*0 /
      IF ( TERMV .NE. 0 ) THEN
          I2STAR = ISTAR
          I2BASE = IBASE
          I2LOCK = ILOCKS
          MORE(1)= CIFLAG
          VREC = VREC + 1
          WRITE( TERMV, REC=VREC ) -UT, ICODE, I2STAR, I2BASE, NTAU,
     $            LAS, DARK, HA0, DEC0, ZA, DJTR, TFIRST, TLAST,
     $            I2LOCK, MORE
      END IF
      RETURN
      END
      SUBROUTINE WRITREC ( UNIT, UT )
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 NONE           
      INCLUDE 'fritz.inc'
      INTEGER *4  OREC, UNIT, IHRS, IMIN, ISEC, MSEC
      REAL *8 UT, HOURS
      CHARACTER *3 MNTH(12)
C
      DATA       OREC  / 0 /
      DATA  MNTH / 'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN',
     $             'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC' /
C----------------------------------------------------------------------
      OREC = OREC + 1
      HOURS= 24.*UT
      IMIN = MOD(INT( 1440.*UT),  60)
      ISEC = MOD(INT(8.64D4*UT),  60)
      MSEC = MOD(INT(8.64D8*UT),10000)
      WRITE (UNIT,1000) IMON, IDAY, MOD(IYEAR,100), HOURS, ISTAR,
     $       DELAY1, 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