      SUBROUTINE AFPRNT

*** ECHO THE ADJUSTMENT OPTIONS

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
      CHARACTER*7 BBNAM
      LOGICAL LDIR,LANG,LZEN,LDIS,LAZI,LGPS
      LOGICAL LBB,LGF,LCS,LVD,LVA,LVZ,LVS,
     &        LVR,LVG,LVC,LIS,LPS,LPG,LDR,LOS,LAP
      LOGICAL LMSL,LSS,LUP
      LOGICAL LEB,LLB,LEG,LLG
      COMMON /BYPASS/ LDIR,LANG,LZEN,LDIS,LAZI,LGPS
      COMMON /NAME/ BBNAM
      COMMON /OPRINT/ CRIT,LBB,LGF,LCS,LVD,LVA,LVZ,LVS,
     &                LVR,LVG,LVC,LIS,LPS,LPG,LDR,LOS,LAP
      COMMON /OPT/ AX,E2,DMSL,DGH,VM,VP,CTOL,ITMAX,ITMIN,IMODE,
     &             LMSL,LSS,LUP
      COMMON /PECHO/ LEB,LLB,LEG,LLG
      COMMON /STRUCT/ NSTA,NAUX,NUNK,IDIM,NSTAS,NOBS,NCON,NZ,NCD

      CALL HEAD
      CALL LINE (21)
      WRITE (6,7777)
 7777 FORMAT (' ***************** ADJUSTMENT FILE OPTIONS **********',/)

      WRITE (6,1) AX
    1 FORMAT (' ELLIPSOID SEMI-MAJOR AXIS =',F12.3,' METERS')

      WRITE (6,2) E2
    2 FORMAT (' ELLIPSOID SQUARE FLATTENING =',F20.18)

      WRITE (6,3) DMSL
    3 FORMAT (' DEFAULT MEAN SEA LEVEL =',F8.3,' METERS')

      WRITE (6,4) DGH
    4 FORMAT (' DEFAULT GEOID HEIGHT =',F8.3,' METERS')

      IF (LMSL) THEN
        WRITE (6,55)
   55   FORMAT (' ADJUST ORTHOMETRIC ELEVATIONS')
      ELSE
        WRITE (6,5)
    5   FORMAT (' ADJUST GEOID HEIGHTS')
      ENDIF

      IF (LSS) THEN
        WRITE (6,155)
  155   FORMAT (' SCALE SIGMAS BY A-POSTERIORI SIGMA OF UNIT WEIGHT')
      ELSE
        WRITE (6,156)
  156   FORMAT (' DO NOT SCALE SIGMAS BY A-POSTERIORI SIGMA')
      ENDIF

      IF (LUP) THEN
        WRITE (6,157) BBNAM
 157    FORMAT (' UPDATE *80* RECORDS INTO NEW BBOOK FILENAME--',A7)
      ELSE
        WRITE (6,158)
 158    FORMAT (' DO NOT UPDATE *80* RECORDS')
      ENDIF
      WRITE (6,6) IDIM
    6 FORMAT (' COMPUTE A',I2,'-DIMENSIONAL ADJUSTMENT')

      WRITE (6,7) ITMAX
    7 FORMAT (' COMPUTE NO MORE THAN',I5,' ITERATIONS')

      WRITE (6,71) ITMIN
   71 FORMAT (' COMPUTE AT LEAST ',I5,' ITERATIONS')

      IF (LDR) THEN
        WRITE (6,127)
 127    FORMAT (' DISPLAY STATISTICS IF SOLUTION SLOWLY CONVERGES')
      ELSE
        WRITE (6,128)
 128    FORMAT (' DO NOT DISPLAY STATISTICS IF SOLUTION SLOWLY',
     &          ' CONVERGES')
      ENDIF

      WRITE (6,8) VM
    8 FORMAT (' ABORT IF MISCLOSURE EXCEEDS',F6.0,' SIGMA')

      WRITE (6,81) VP
   81 FORMAT (' PRINT WHEN MISCLOSURES EXCEED',F5.0,' SIGMA')

      WRITE (6,9) CTOL
    9 FORMAT (' CONVERGE IF RMS SUM OF SHIFTS BELOW',F8.3,' METERS')

      IF (IMODE.EQ.0) THEN
        WRITE (6,90)
   90   FORMAT (' PERFORM A SIMULATION ***************************')
      ELSEIF (IMODE.EQ.1) THEN
        WRITE (6,91)
   91   FORMAT (' COMPUTE QUASI-NORMALIZED RESIDUALS--NO INVERSE')
      ELSEIF (IMODE.EQ.2) THEN
        WRITE (6,92)
   92   FORMAT (' COMPUTE QUASI-NORMALIZED RESIDUALS--COMPUTE INVERSE')
      ELSEIF (IMODE.EQ.3) THEN
        WRITE (6,93)
   93   FORMAT (' COMPUTE NORMALIZED RESIDUALS AND INVERSE')
      ENDIF

      IF ( LBB .AND. (.NOT.LEB) .AND. (.NOT.LLB) ) WRITE (6,103)
  103   FORMAT (' ECHO BLUE BOOK FILE')
      IF (LEB) WRITE (6,171)
 171    FORMAT (' ECHO BLUE BOOK OBSERVATIONS ONLY')
      IF (LLB) WRITE (6,172)
 172    FORMAT (' ECHO LARGE BLUE BOOK MISCLOSURES ONLY')
      IF (.NOT.LBB) WRITE (6,104)
  104   FORMAT (' DO NOT ECHO BLUE BOOK FILE')

      IF (LDIR) WRITE (6,181)
 181  FORMAT (' BYPASS ALL HORIZONTAL DIRECTIONS')
      IF (LANG) WRITE (6,182)
 182  FORMAT (' BYPASS ALL HORIZONTAL ANGLES')
      IF (LZEN) WRITE (6,183)
 183  FORMAT (' BYPASS ALL ZENITH DISTANCES')
      IF (LDIS) WRITE (6,184)
 184  FORMAT (' BYPASS ALL DISTANCES')
      IF (LAZI) WRITE (6,185)
 185  FORMAT (' BYPASS ALL ASTRONOMIC AZIMUTHS')

      IF ( LGF .AND. (.NOT.LGPS) ) THEN
        WRITE (6,101)
  101   FORMAT (' ECHO GPS DATA TRANSFER FILE')
        IF (LEG) WRITE (6,173)
 173    FORMAT (' ECHO G-FORMAT OBSERVATIONS ONLY')
        IF (LLG) WRITE (6,174)
 174    FORMAT (' ECHO LARGE G-FORMAT MISCLOSURES ONLY')
      ELSE
        WRITE (6,102)
  102   FORMAT (' DO NOT ECHO GPS DATA TRANSFER FILE')
      ENDIF

      IF (LGPS) WRITE (6,186)
 186  FORMAT (' BYPASS ALL GPS DATA')

      IF (LCS) THEN
        WRITE (6,111)
 111    FORMAT (' DISPLAY CONSTRAINTS')
      ELSE
        WRITE (6,112)
 112    FORMAT (' DO NOT DISPLAY CONSTRAINTS')
      ENDIF

      WRITE (6,131) CRIT
 131  FORMAT (' DISPLAY ALL RESIDUALS/SD GREATER OR EQUAL TO ',F4.1)

      IF (LVD) THEN
        IF (.NOT.LDIR) THEN
          WRITE (6,113)
 113      FORMAT (' DISPLAY DIRECTION RESIDUALS')
        ELSE
          WRITE (6,114)
 114      FORMAT (' DO NOT DISPLAY DIRECTION RESIDUALS')
        ENDIF
      ENDIF

      IF (LVA) THEN
        IF (.NOT.LANG) THEN
          WRITE (6,115)
 115      FORMAT (' DISPLAY ANGLE RESIDUALS')
        ELSE
          WRITE (6,116)
 116      FORMAT (' DO NOT DISPLAY ANGLE RESIDUALS')
        ENDIF
      ENDIF

      IF (LVZ) THEN
        IF (.NOT.LZEN) THEN
          WRITE (6,117)
 117      FORMAT (' DISPLAY ZENITH DISTANCE RESIDUALS')
        ELSE
          WRITE (6,118)
 118      FORMAT (' DO NOT DISPLAY ZENITH DISTANCE RESIDUALS')
        ENDIF
      ENDIF

      IF (LVS) THEN
        IF (.NOT.LDIS) THEN
          WRITE (6,119)
 119      FORMAT (' DISPLAY DISTANCE RESIDUALS')
        ELSE
          WRITE (6,120)
 120      FORMAT (' DO NOT DISPLAY DISTANCE RESIDUALS')
        ENDIF
      ENDIF

      IF (LVR) THEN
        IF (.NOT.LAZI) THEN
          WRITE (6,121)
 121      FORMAT (' DISPLAY ASTRO-AZIMUTH RESIDUALS')
        ELSE
          WRITE (6,122)
 122      FORMAT (' DO NOT DISPLAY ASTRO-AZIMUTH RESIDUALS')
        ENDIF
      ENDIF

      IF (LVG) THEN
        IF (.NOT.LGPS) THEN
          WRITE (6,123)
 123      FORMAT (' DISPLAY GPS RESIDUALS')
        ELSE
          WRITE (6,124)
 124      FORMAT (' DO NOT DISPLAY GPS RESIDUALS')
        ENDIF
      ENDIF

      IF (LVC) THEN
        WRITE (6,125)
 125    FORMAT (' DISPLAY CONSTRAINED RESIDUALS')
      ELSE
        WRITE (6,126)
 126    FORMAT (' DO NOT DISPLAY CONSTRAINED RESIDUALS')
      ENDIF

      IF (LIS) THEN
        WRITE (6,129)
 129    FORMAT (' DISPLAY RESIDUALS GROUPED AROUND INTERSECTION STAS')
      ENDIF

      IF (LPS) THEN
        WRITE (6,107)
  107   FORMAT (' DISPLAY POSITION SHIFTS')
      ELSE
        WRITE (6,108)
  108   FORMAT (' DO NOT DISPLAY POSITION SHIFTS')
      ENDIF

      IF (LPG) THEN
        WRITE (6,109)
  109   FORMAT (' DISPLAY POSITION GOOGE NUMBERS')
      ELSE
        WRITE (6,110)
  110   FORMAT (' DO NOT DISPLAY POSITION GOOGE NUMBERS')
      ENDIF

      IF (.NOT.LOS) WRITE (6,301)
 301  FORMAT (' DO NOT DISPLAY THE OBSERVATIONAL SUMMARY')
      IF (.NOT.LAP) WRITE (6,302)
 302  FORMAT (' DO NOT DISPLAY THE ADJUSTED POSITIONS')

      RETURN
      END
