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