      SUBROUTINE FLAGS()
C
C OUTPUT COMMAND FLAGS TO LOG FILE
C
C ORIGINAL SOURCE WRITTEN BY SANDY KRAMER, HUGHES STX, CODE 692, NASA GSFC
C
C CORRECT TO REFLECT PREVIOUS REPLACEMENT OF ONE WAY LIGHT CHECK WITH FORWARD
C TIME PROGRESSION CHECK (FLAG 16).  DESIGNATE FLAG 14 PROPERLY AS TIME 
C REGRESSION NOT PROGRESSION.  SBK, 01/21/99
C
C ADD FLAG 28: SUMMARY COMPOSITE MAG MODE (INTERPOLATED SEC X AND Z REPLACE 
C PRIMARY) 01/30/2006 - SBK
C
      INCLUDE 'UNPACK.INC'
C
      WRITE(68,*)
      WRITE(68,*) 'MAG PROCESSING CONTROL FLAGS'
      WRITE(68,*)
      WRITE(68,'(1X,''SYS2(1) '',L,
     & '' WRITE 1.92 SECOND AVERAGES'')') SYS2(1)
      WRITE(68,'(1X,''SYS2(2) '',L,
     & '' WRITE 48.0 SECOND AVERAGES'')') SYS2(2)
      WRITE(68,'(1X,''SYS2(3) '',L,
     & '' PROCESS ENGINEERING RECORDS'')') SYS2(3)
      WRITE(68,'(1X,''SYS2(4) '',L,
     & '' WRITE MAG DETAIL DATA PRI, SEC PAYLOAD'')') SYS2(4)
      WRITE(68,'(1X,''SYS2(5) '',L,
     & '' WRITE MAG DETAIL DATA AMB, S/C FIELD PAYLOAD'')') SYS2(5)
      WRITE(68,'(1X,''SYS2(6) '',L,
     & '' WRITE DETAIL DATA'')') SYS2(6)
      WRITE(68,'(1X,''SYS2(7) '',L,
     & '' ROTATE DETAIL DATA'')') SYS2(7)
      WRITE(68,'(1X,''SYS2(8) '',L,
     & '' ENABLE DELTA MODULATION RECONSTRUCTION'')') SYS2(8)
      WRITE(68,'(1X,''SYS2(9) '',L,
     & '' SUPPRESS COORDINATE SYSTEM ROTATION'')') SYS2(9)
      WRITE(68,'(1X,''SYS2(10)'',L,
     & '' SUPPRESS DATA PRESENCE CHECK'')') SYS2(10)
      WRITE(68,'(1X,''SYS2(11)'',L,
     & '' SUPPRESS DATA QUALITY CHECK'')') SYS2(11)
      WRITE(68,'(1X,''SYS2(12)'',L
     & '' ENABLE POPULATION FILTER'')') SYS2(12)
      WRITE(68,'(1X,''SYS2(13)'',L,
     & '' BYPASS SENSOR ALIGNMENT'')') SYS2(13)
c      WRITE(68,'(1X,''SYS2(14)'',L,
c     & '' BYPASS TIME PROGRESSION CHECK'')') SYS2(14)
      WRITE(68,'(1X,''SYS2(14)'',L,
     & '' BYPASS TIME REGRESSION CHECK'')') SYS2(14)
      WRITE(68,'(1X,''SYS2(15)'',L,
     & '' FORCE ZEROS TO FIRST TABLE'')') SYS2(15)
c      WRITE(68,'(1X,''SYS2(16)'',L,
c     & '' BYPASS ONE WAY LIGHT TIME CHECK'')') SYS2(16)
      WRITE(68,'(1X,''SYS2(16)'',L,
     & '' BYPASS TIME PROGRESSION CHECK'')') SYS2(16)
      WRITE(68,'(1X,''SYS2(17)'',L,
     & '' JUPITER PLANETARY COORDINATES'')') SYS2(17)
      WRITE(68,'(1X,''SYS2(18)'',L,
     & '' SATURN PLANETARY COORDINATES'')') SYS2(18)
      WRITE(68,'(1X,''SYS2(19)'',L,
     & '' URANUS PLANETARY COORDINATES'')') SYS2(19)
      WRITE(68,'(1X,''SYS2(20)'',L,
     & '' NEPTUNE PLANETARY COORDINATES'')') SYS2(20)
      WRITE(68,'(1X,''SYS2(21)'',L,
     & '' PRIMARY MAG ONLY'')') SYS2(21)
      WRITE(68,'(1X,''SYS2(22)'',L,
     & '' SECONDARY MAG ONLY'')') SYS2(22)
      WRITE(68,'(1X,''SYS2(23)'',L,
     & '' BYPASS BOOM ALIGNMENT'')') SYS2(23)
      WRITE(68,'(1X,''SYS2(24)'',L,
     & '' FORCE IB MAG AS PRIMARY'')') SYS2(24)
      WRITE(68,'(1X,''SYS2(25)'',L,
     & '' WRITE MAG/PLS COMMAND WORDS AND MAG STAT WORDS'')') SYS2(25)
      WRITE(68,'(1X,''SYS2(26)'',L,
     & '' WRITE LFM RECORDS ONLY'')') SYS2(26)
      WRITE(68,'(1X,''SYS2(27)'',L,
     & '' PROCESS S/C FIELD AS AMBIENT'')') SYS2(27)
      WRITE(68,'(1X,''SYS2(28)'',L,
     & '' COMPOSITE MAG - SECONDARY X & Z REPLACE PRIMARY'')') SYS2(28)
      WRITE(68,'(1X,''SYS2(29)'',L,
     & '' OVERRIDE RECORD CHECK ROUTINE'')') SYS2(29)
      WRITE(68,'(1X,''SYS2(30)'',L)') SYS2(30)
      WRITE(68,'(1X,''SYS2(31)'',L,
     & '' WRITE COUNTS'')') SYS2(31)
      WRITE(68,'(1X,''SYS2(32)'',L,
     & '' WRITE GAMMAS BEFORE SENSOR AND BOOM ALIGNMENT'')') SYS2(32)
C
      RETURN
      END
