SUBROUTINE Init_Hdr(Lu)

c**********************************************************************
c  Subroutine to do general initialization, then write the first
c    header lines in the output file.
c    Called from Fast4Lock

      IMPLICIT none

      INCLUDE "FastCom.ftni"

c Passed Parameters
      INTEGER Lu  ! output file Lu

c Local Variables
      CHARACTER Mnth(12)*4,Plane*6

      DATA Mnth/' Jan',' Feb',' Mar',' Apr',' May',' Jun',
     &          ' Jul',' Aug',' Sep',' Oct',' Nov',' Dec'/

C Get the time in current record; store as init offset
      Time_Offset = IB(6)*3600 + IB(7)*60 + IB(8)
      Time_Last = -1  ! start this for jump tests
      Time_Now = 0

C Write header lines to output file
      WRITE(Lu,'("#",33x,"NOAA WP-3D Nz Data")')
      IF (IAnd(IB(1),Z'00FF').EQ.43) THEN
        Plane = ' N43RF'
      ELSE
        Plane = ' N42RF'
      ENDIF

      WRITE(Lu,'("#    Flight Date:"i3,a4,i5.4,7x"Aircraft:",
     &           a6,7x"Start Time:"i3.2":"i2.2":"i2.2"Z")')
     &  IB(5),Mnth(IB(4)),IB(3),Plane,IB(6),IB(7),IB(8)

      IF (VAchan.LE.0) THEN  ! want new format - RINU VSpd
        IF (RA_Sel.EQ.0) THEN  ! will be using PAlt
          WRITE(Lu,'("#  Time Stamp     IAS   PAlt   Hdg   Pitch",
     &               "   Roll   NVel   EVel   VVel   Vz    Nz")')
        ELSE  ! everything else is RA
          WRITE(Lu,'("#  Time Stamp     IAS   Alt    Hdg   Pitch",
     &               "   Roll   NVel   EVel   VVel   Vz    Nz")')
        ENDIF
        WRITE(Lu,'("#     sec        knots  feet   deg    deg ",
     &             "   deg    m/s    m/s    m/s    m/s   G''s")')
      ELSE  ! dealing with old INE's need more columns
        IF (RA_Sel.EQ.0) THEN  ! will be using PAlt
          WRITE(Lu,'("#  Time Stamp     IAS   PAlt   Hdg   Pitch",
     &               "   Roll   NVel   EVel   VVel   NAcl   EAcl",
     &               "   VAcl    Vz    Nz")')
        ELSE  ! RA
          WRITE(Lu,'("#  Time Stamp     IAS    Alt   Hdg   Pitch",
     &               "   Roll   NVel   EVel   VVel   NAcl   EAcl",
     &               "   VAcl    Vz    Nz")')
        ENDIF
        WRITE(Lu,'("#     sec        knots  feet   deg    deg ",
     &             "   deg    m/s    m/s    m/s    G''s    G''s ",
     &             "   G''s     m/s   G''s")')
      ENDIF

      RETURN

      END