1 SUBROUTINE AUXOUT 2C 3C WRITE AUXILIARY AND PARTIAL OUTPUTS 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K 6 COMMON /IWING/ PWING, WING(400) 7 COMMON /IHT/ PHT, HT(380) 8 COMMON /IVT/ PVT, VT(380) 9 COMMON /IVF/ PVF, VF(380) 10 COMMON /FLGTCD/ FLC(160) 11 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 12 COMMON /SYNTSS/ SYNA(19) 13 COMMON /POWR/ DYN(213) 14 COMMON /WINGI/ WINGIN(100) 15 COMMON /HTI/ HTIN(154) 16 COMMON /VTI/ VTIN(154), TVTIN(8), VFIN(154) 17 COMMON /WINGD/ A(195) 18 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 19 COMMON /BDATA/ BD(762) 20 COMMON /WHWB/ FACT(182), WB(39), HB(39) 21 COMMON /WBHCAL/ WBT(156) 22 COMMON /HTDATA/ AHT(195) 23 COMMON /VTDATA/ AVT(195), AVF(195) 24 COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55), DVF(55) 25 COMMON /SUPWBB/ SWB(61), SHB(61) 26 COMMON /SUPBOD/ SBD(229) 27 COMMON /SUPWH/ SLG(141), STG(141) 28 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 29 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 30 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 31 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 32 4 VFPL,VFSC,CTAB 33 COMMON /CONSNT/ PI, DEG, UNUSED, RAD 34 COMMON /LEVEL2/ SECOND(23) 35 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM 36C 37 DIMENSION STP(155),FOR1(34),FOR2(26),ICON(8),JCON(6),FOR3(14) 38 DIMENSION H(1),O(1),P(1),Q(1),R(1),S(1),T(1),ANONE(20),KCON(3) 39 DIMENSION SLA(31),FOR3A(3) 40 DIMENSION ICONT(11), FOR(46), OPT(4) 41C 42 EQUIVALENCE (OPT(1),SREF) 43 EQUIVALENCE (WBT(1),STP(1)) 44 EQUIVALENCE (SLA(1),STB(1)),(DOL2,SECOND(16)) 45 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 46 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 47 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 48 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 49 4 VFPL,VFSC,CTAB 50 LOGICAL NN,NM,DOL2,SUPHYP 51 CHARACTER*4 FOR,FOR1,FOR2,FOR3,FOR3A,FORSAV,FORSAW,FORSAX 52 DATA FOR / 4H( ,4H1H0 , 53 1 4H,0P ,4HF6.3,4H,1X ,4H,1X , 4H,1X,,4HF8.2,4H,1X ,4H,1X , 54 2 4H,1X,,4HF8.2,4H,1X ,4H,2X , 4H,1P ,4HE10.,4H4 ,4H,3X , 55 3 4H,0P ,4HF9.3,4H,1X ,4H,4X , 4H,1P ,4HE10.,4H4 ,4H,9X , 56 4 4H,0P ,4HF9.3,4H,1X ,4H,1X , 4H,1X,,4HF8.3,4H,1X ,4H , 57 5 4H,1X,,4HF8.3,4H,1X ,4H , 4H,1X,,4HF8.3,4H,1X ,4H , 58 6 4H,1X,,4HF8.3,4H,1X ,4H) / 59 DATA FOR1 / 60 1 4H(1H , 4H,10X, 4H,1X,, 4HE11., 61 2 4H4,1X, 4H,1X , 4H,1X,, 4HF6. , 62 3 4H2,1X, 4H,1X , 4H,1X,, 4HF5. , 63 4 4H2,1X, 4H,2X , 4H,1X,, 4HF9. , 64 5 4H4,1X, 4H,5X , 4H,1X,, 4HE11., 65 6 4H4,1X, 4H,1X , 4H,1X,, 4HE11., 66 7 4H4,1X, 4H,1X , 4H,1X,, 4HE11., 67 8 4H4,1X, 4H,3X , 4H,1X,, 4HE11., 68 9 4H4 , 4H) / 69 DATA FOR2 / 70 1 4H(1H , 4H,13X, 4H,1X,, 4HF7. , 71 2 4H3,1X, 4H,4X , 4H,1X,, 4HE11., 72 3 4H4,1X, 4H,4X , 4H,1X,, 4HE11., 73 4 4H4,1X, 4H,4X , 4H,1X,, 4HE11., 74 5 4H4,1X, 4H,4X , 4H,1X,, 4HE11., 75 6 4H4,1X, 4H,12X, 4H,1X,, 4HE11., 76 7 4H4 , 4H) / 77 DATA FOR3 / 78 1 4H( , 4H44X , 4H,1X,, 4HF7. , 79 2 4H3,1X, 4H,5X , 4H,1X,, 4HE11., 80 3 4H4,1X, 4H,5X , 4H,1X,, 4HE11., 81 4 4H4 , 4H) / 82 DATA ICON / 13,7,7,11,4*13 / 83 DATA JCON / 9,5*13 / 84 DATA KCON / 9,2*13 / 85 DATA ICONT / 7, 10*10 / 86 DATA FOR3A/4HE11.,4H4,1X,4H,5X / 87C 88C WRITE AUXILIARY OUTPUTS 89C 90 NN = .FALSE. 91 NM = .FALSE. 92 SUPHYP = SUPERS .OR. HYPERS 93 ANA = 2.*UNUSED 94 DO 1000 J=1,NALPHA 95 1000 ANONE(J) = ANA 96 IF(BO) LAST=1 97 IF(WGPL) LAST=2 98 IF(HTPL) LAST=3 99 IF(VTPL .OR. VFPL) LAST=4 100 IF(BO .AND. WGPL) LAST=5 101 IF(BO .AND. HTPL) LAST=6 102 IF(BO .AND. (VTPL .OR. VFPL)) LAST=7 103 IF(BO .AND. WGPL .AND. HTPL) LAST=8 104 IF(BO .AND. WGPL .AND. (VTPL .OR. VFPL)) LAST=9 105 IF(BO .AND. WGPL .AND. HTPL .AND. (VTPL .OR. VFPL)) LAST=10 106 WRITE(6,1550 ) 107 WRITE(6,1560 ) 108 GO TO (1010 ,1020 ,1030 ,1040 ,1050 ,1060 ,1070 ,1080 ,109 109 10 ,1100 ), LAST 110 1010 WRITE(6,1570 ) 111 GO TO 1110 112 1020 WRITE(6,1580 ) 113 GO TO 1110 114 1030 WRITE(6,1590 ) 115 GO TO 1110 116 1040 WRITE(6,1600 ) 117 GO TO 1110 118 1050 WRITE(6,1610 ) 119 GO TO 1110 120 1060 WRITE(6,1620 ) 121 GO TO 1110 122 1070 WRITE(6,1630 ) 123 GO TO 1110 124 1080 WRITE(6,1640 ) 125 GO TO 1110 126 1090 WRITE(6,1650 ) 127 GO TO 1110 128 1100 WRITE(6,1660 ) 129 1110 IF(HEAD) CALL PRCSID 130 WRITE(6,1670 ) 131 IF(IDIM .EQ. 1) WRITE(6,1680 ) 132 IF(IDIM .EQ. 2) WRITE(6,1690 ) 133 IF(IDIM .EQ. 3) WRITE(6,1700 ) 134 IF(IDIM .EQ. 4) WRITE(6,1710 ) 135 SC = SYNA(13) 136 XL = 1.0 137 XR = 1.0 138 XP = 1.0 139 XT = 1.0 140 IF(IDIM .EQ. 2) XL = 12.0 141 IF(IDIM .EQ. 2) XP = 144.0 142 IF(IDIM .GE. 3) XP = 0.0208854 143 IF(IDIM .GE. 3) XR = 0.3048 144 IF(IDIM .GE. 3) XT = 1.8 145 IF(IDIM .EQ. 3) XL = 0.3048 146 IF(IDIM .EQ. 4) XL = 30.48 147 ALT = FLC(K+96) 148 VINF = FLC(I+136) 149 PINF = FLC(K+73) 150 TINF = FLC(K+116) 151 IF(ALT .NE. -UNUSED) ALT = ALT *XL 152 IF(VINF .NE. -UNUSED) VINF = VINF*XL 153 IF(PINF .NE. -UNUSED) PINF = PINF/XP 154 IF(TINF .NE. -UNUSED) TINF = TINF/XT 155 RN = FLC(I+42)/XR 156 SRF = OPT(1)*XL*XL/(SC*SC) 157 CBAR = OPT(2)*XL/SC 158 BLRF = OPT(4)*XL/SC 159 XCG = SYNA(1) 160 ZCG = SYNA(5) 161 IF(XCG .EQ. UNUSED) XCG = 0.0 162 IF(ZCG .EQ. UNUSED) ZCG = 0.0 163 IF(BD(11) .NE. UNUSED) XCG = XCG+BD(11) 164 XBN = BD(11) 165 XCG = XCG*XL/SC 166 ZCG = ZCG*XL/SC 167 CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF, 168 1 TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM, 169 2 DUM,DUM,NDMF,NAF) 170 IF(VTPL) XCGMAC=(XCG-SYNA(9)*XL/SC-AVT(195)*XL/SC)-XBN*XL/SC 171 IF(HTPL) XCGMAC=(XCG-SYNA(6)*XL/SC-AHT(195)*XL/SC)-XBN*XL/SC 172 IF(WGPL) XCGMAC=(XCG-SYNA(2)*XL/SC-A (195)*XL/SC)-XBN*XL/SC 173 IF(.NOT. BO) GO TO 1120 174C 175C WRITE BODY AUXILIARY OUTPUTS IF BODY PRESENT 176C 177 BD93 = BD(93)*XL*XL/(SC*SC) 178 BD57 = BD(57)*XL*XL/(SC*SC) 179 SBD19 = SBD(19)*XL*XL/(SC*SC) 180 SBD111 = SBD(111)*XL*XL/(SC*SC) 181 WRITE(6,1470 ) 182 IF(SUBSON)CALL SWRITE(8,FOR1,34,ICON,1,BD93,XCG,ZCG,BD57, 183 1 BD(61),BD(60),BD(59),ANA,O,P,Q,R,S,T,NN,NM) 184 IF(TRANSN)CALL SWRITE(8,FOR1,34,ICON,1,BD93,XCG,ZCG,BD57, 185 1 TRA(78),TRA(76),TRA(79),TRA(80),O,P,Q,R,S,T,NN,NM) 186 IF(SUPHYP)CALL SWRITE(8,FOR1,34,ICON,1,SBD111,XCG,ZCG,SBD19, 187 1 SBD(124),SBD(123),SBD(115),ANA,O,P,Q,R,S,T,NN,NM) 188 1120 IF(WGPL .OR. HTPL .OR. VTPL) WRITE(6,1480 ) XCGMAC 189C 190C WRITE WING DATA IF WING PRESENT 191C 192 IF(.NOT. WGPL) GO TO 1130 193 WRITE(6,1490 ) 194 IF(SUBSON) 195 1 CALL AXPRNT(A,WINGIN,D(11),D(12),D(20),D(10),SYNA(2), 196 2 NN,NM,XL,SC,XBN) 197 IF(TRANSN) 198 1 CALL AXPRNT(A,WINGIN,ANA,ANA,WING(1),TRA(42),SYNA(2), 199 2 NN,NM,XL,SC,XBN) 200 IF(SUPHYP) 201 1 CALL AXPRNT(A,WINGIN,SLG(84),SLG(83),SLG(80),SLG(88),SYNA(2), 202 2 NN,NM,XL,SC,XBN) 203C 204C WRITE H.T. DATA IF H.T. PRESENT 205C 206 1130 IF(.NOT. HTPL) GO TO 1140 207 WRITE(6,1500 ) 208 IF(SUBSON) 209 1 CALL AXPRNT(AHT,HTIN,DHT(11),DHT(12),DHT(20),DHT(10),SYNA(6), 210 2 NN,NM,XL,SC,XBN) 211 IF(TRANSN) 212 1 CALL AXPRNT(AHT,HTIN,ANA,ANA,HT(1),TRAH(42),SYNA(6), 213 2 NN,NM,XL,SC,XBN) 214 IF(SUPHYP) 215 1 CALL AXPRNT(AHT,HTIN,STG(84),STG(83),STG(80),STG(88),SYNA(6), 216 2 NN,NM,XL,SC,XBN) 217C 218C WRITE V.T. DATA IF V.T. PRESENT 219C 220 1140 IF(.NOT. VTPL) GO TO 1150 221 WRITE(6,1510 ) 222 IF(SUBSON) 223 1 CALL AXPRNT(AVT,VTIN,DVT(11),DVT(12),DVT(20),DVT(10),SYNA(9), 224 2 NN,NM,XL,SC,XBN) 225 IF(TRANSN) 226 1 CALL AXPRNT(AVT,VTIN,ANA,ANA,ANA,ANA,SYNA(9), 227 2 NN,NM,XL,SC,XBN) 228 IF(SUPHYP) 229 1 CALL AXPRNT(AVT,VTIN,ANA,ANA,VT(1),ANA,SYNA(9), 230 2 NN,NM,XL,SC,XBN) 231C 232C WRITE V.F. DATA IF V.F. PRESENT 233C 234 1150 IF(.NOT. VFPL) GO TO 1160 235 WRITE(6,1520 ) 236 IF(SUBSON) 237 1 CALL AXPRNT(AVF,VFIN,DVF(11),DVF(12),DVF(20),DVF(10),SYNA(12), 238 2 NN,NM,XL,SC,XBN) 239 IF(TRANSN) 240 1 CALL AXPRNT(AVF,VFIN,ANA,ANA,ANA,ANA,SYNA(12), 241 2 NN,NM,XL,SC,XBN) 242 IF(SUPHYP) 243 1 CALL AXPRNT(AVF,VFIN,ANA,ANA,VF(1),ANA,SYNA(12), 244 2 NN,NM,XL,SC,XBN) 245 1160 IF(NN) WRITE(6,1770 ) 246 IF(NM) WRITE(6,1780 ) 247 NN = .FALSE. 248 NM = .FALSE. 249C 250C**** WRITE PARTIAL OUTPUTS 251C 252 IF(.NOT. BO) GO TO 1340 253 IF(LAST .EQ. 1 .OR. LAST .EQ. 7) GO TO 1340 254 WRITE(6,1550 ) 255 WRITE(6,1560 ) 256 GO TO (1170 ,1180 ,1190 ,1200 ,1210 ,1220 ,1230 ,1240 ,1250 ,1260 257 1), LAST 258 1170 WRITE(6,1570 ) 259 GO TO 1270 260 1180 WRITE(6,1580 ) 261 GO TO 1270 262 1190 WRITE(6,1590 ) 263 GO TO 1270 264 1200 WRITE(6,1600 ) 265 GO TO 1270 266 1210 WRITE(6,1610 ) 267 GO TO 1270 268 1220 WRITE(6,1620 ) 269 GO TO 1270 270 1230 WRITE(6,1630 ) 271 GO TO 1270 272 1240 WRITE(6,1640 ) 273 GO TO 1270 274 1250 WRITE(6,1650 ) 275 GO TO 1270 276 1260 WRITE(6,1660 ) 277 1270 IF(HEAD) CALL PRCSID 278 WRITE(6,1670 ) 279 IF(IDIM .EQ. 1) WRITE(6,1680 ) 280 IF(IDIM .EQ. 2) WRITE(6,1690 ) 281 IF(IDIM .EQ. 3) WRITE(6,1700 ) 282 IF(IDIM .EQ. 4) WRITE(6,1710 ) 283 CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF, 284 1 TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM, 285 2 DUM,DUM,NDMF,NAF) 286 IF(.NOT. WGPL) GO TO 1280 287 IF(SUBSON)WRITE(6,1720 )WB(5),WB(4),WB(3),WB(2),WB(13) 288 IF(TRANSN)WRITE(6,1720 )TRA(72),TRA(71),SWB(11),SWB(35),TRA(106) 289 IF(SUPHYP)WRITE(6,1720 )SWB(7),SWB(33),SWB(11),SWB(35),SWB(8) 290 1280 IF(.NOT. HTPL) GO TO 1290 291 IF(SUBSON)WRITE(6,1730 )WBT(4),WBT(3),WBT(2),WBT(1),HB(13) 292 IF(TRANSN)WRITE(6,1730 )TRAH(72),TRAH(71),SHB(11),SHB(35),TRAH(106 293 1) 294 IF(SUPHYP)WRITE(6,1730 )STP(68),STP(67),STP(65),STP(66),SHB(8) 295 1290 IF(.NOT. (WGPL .OR. HTPL)) GO TO 1340 296 IF(STB(117) .EQ. UNUSED) GO TO 1300 297 IF(WGPL .AND. (SUBSON .OR. TRANSN)) WRITE(6,1540 ) STB(117) 298 1300 IF(.NOT. SUBSON) GO TO 1310 299 WRITE(6,1740 ) 300 IF(WGPL .AND. HTPL) 301 1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),FACT(2),FACT(42), 302 2 FACT(143),FACT(22),WBT(46),H,H,O,P,Q,R,S,T,NN,NM) 303 IF(WGPL .AND. .NOT. HTPL) 304 1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),FACT(2),ANONE, 305 2 ANONE,FACT(22),ANONE,H,H,O,P,Q,R,S,T,NN,NM) 306 GO TO 1320 307 1310 IF(TRANSN) GO TO 1320 308 WRITE(6,1740 ) 309 IF(WGPL .AND. HTPL) 310 1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),SWB(12),STP(71), 311 2 STP(133),SWB(40),STP(111),H,H,O,P,Q,R,S,T,NN,NM) 312 IF(WGPL .AND. .NOT. HTPL) 313 1 CALL SWRITE(6,FOR2,26,JCON,NALPHA,FLC(23),SWB(12),ANONE, 314 2 ANONE,SWB(40),ANONE,H,H,O,P,Q,R,S,T,NN,NM) 315 1320 CONTINUE 316 IF(TRANSN .OR. HYPERS .OR. .NOT. DAMP) GO TO 1330 317 WRITE(6,1760 )DYN(176),DYN(68),DYN(95),DYN(177),DYN(180) 318 WRITE(6,1790 ) 319 KSAVE=KCON(1) 320 KCON(1)=11 321 FORSAV=FOR3(4) 322 FORSAW=FOR3(5) 323 FORSAX=FOR3(6) 324 FOR3(4)=FOR3A(1) 325 FOR3(5)=FOR3A(2) 326 FOR3(6)=FOR3A(3) 327 STB67=STB(67) 328 SLA9=SLA(9) 329 C4=C(4) 330 CHT4=CHT(4) 331 IF(STB(67) .EQ. UNUSED) STB67=2.*UNUSED 332 IF(SLA(9) .EQ. UNUSED) SLA9=2.*UNUSED 333 IF(C(4) .EQ. UNUSED) C4=2.*UNUSED 334 IF(CHT(4) .EQ. UNUSED) CHT4=2.*UNUSED 335 IF(SUBSON)CALL SWRITE(3,FOR3,14,KCON,1,STB67,C4,CHT4, 336 1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM) 337 IF(SUPERS)CALL SWRITE(3,FOR3,14,KCON,1,SLA9,C4,CHT4, 338 1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM) 339 KCON(1)=KSAVE 340 FOR3(4)=FORSAV 341 FOR3(5)=FORSAW 342 FOR3(6)=FORSAX 343 1330 CONTINUE 344 IF(.NOT. (WGPL .AND. HTPL)) GO TO 1340 345 IF(WINGIN(4)/HTIN(4) .GE. 1.5) GO TO 1340 346 WRITE(6,1750 ) 347 CALL SWRITE(3,FOR3,14,KCON,NALPHA,FLC(23),FACT(102),FACT(122), 348 1 H,O,P,Q,R,S,T,Q,R,S,T,NN,NM) 349 1340 CONTINUE 350 IF(NN) WRITE(6,1770 ) 351 IF(NM) WRITE(6,1780 ) 352 IF(LAST .EQ. 1 .OR. LAST .EQ. 4 .OR. LAST .EQ. 7) GO TO 1460 353C 354C WRITE SECOND LEVEL METHOD DATA IF AVAILABLE 355C 356 IF(.NOT. TRANSN) GO TO 1460 357 IF(.NOT. DOL2) GO TO 1460 358 WRITE(6,1550 ) 359 WRITE(6,1560 ) 360 GO TO (1350 ,1360 ,1370 ,1380 ,1390 ,1400 ,1410 ,1420 ,1430 ,1440 361 1), LAST 362 1350 WRITE(6,1570 ) 363 GO TO 1450 364 1360 WRITE(6,1580 ) 365 GO TO 1450 366 1370 WRITE(6,1590 ) 367 GO TO 1450 368 1380 WRITE(6,1600 ) 369 GO TO 1450 370 1390 WRITE(6,1610 ) 371 GO TO 1450 372 1400 WRITE(6,1620 ) 373 GO TO 1450 374 1410 WRITE(6,1630 ) 375 GO TO 1450 376 1420 WRITE(6,1640 ) 377 GO TO 1450 378 1430 WRITE(6,1650 ) 379 GO TO 1450 380 1440 WRITE(6,1660 ) 381 1450 IF(HEAD) CALL PRCSID 382 WRITE(6,1670 ) 383 IF(IDIM .EQ. 1) WRITE(6,1680 ) 384 IF(IDIM .EQ. 2) WRITE(6,1690 ) 385 IF(IDIM .EQ. 3) WRITE(6,1700 ) 386 IF(IDIM .EQ. 4) WRITE(6,1710 ) 387 CALL SWRITE(11,FOR,46,ICONT,1,FLC(I+2),ALT,VINF,PINF, 388 1 TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM, 389 2 DUM,DUM,NDMF,NAF) 390 CALL PRNSEC(LAST) 391 1460 WRITE(6,1530 ) 392C 393 RETURN 394 1470 FORMAT(//55X,21HBASIC BODY PROPERTIES//12X,11HWETTED AREA,6X, 395 1 3HXCG,5X,3HZCG,5X,9HBASE AREA,5X,14HZERO LIFT DRAG,3X, 396 2 9HBASE DRAG,3X,13HFRICTION DRAG,3X,13HPRESSURE DRAG) 397 1480 FORMAT(//41X,45HXCG RELATIVE TO THEORETICAL LEADING EDGE MAC=,F7.2 398 1 ///55X,25HBASIC PLANFORM PROPERTIES//36X,5HTAPER,5X,6HASPECT,3X, 399 2 13HQUARTER CHORD,13X,13HQUARTER CHORD,14X,9HZERO LIFT,4X, 400 3 8HFRICTION/25X,4HAREA,7X,5HRATIO,6X,5HRATIO,7X,5HSWEEP,8X, 401 4 3HMAC,8X,6HX(MAC),7X,6HY(MAC),8X,4HDRAG,5X,11HCOEFFICIENT) 402 1490 FORMAT(1H0,6X,4HWING) 403 1500 FORMAT(1H0,2X,15HHORIZONTAL TAIL) 404 1510 FORMAT(1H0,3X,13HVERTICAL TAIL) 405 1520 FORMAT(1H0,4X,11HVENTRAL FIN) 406 1530 FORMAT(1H1) 407 1540 FORMAT(1H0,38X,38HSIDEWASH, (1 + D(SIGMA)/D(BETA))QV/Q =,1PE14.7) 408 1550 FORMAT(1H1,29X,72HAUTOMATED STABILITY AND CONTROL METHODS PER APRI 409 1L 1976 VERSION OF DATCOM) 410 1560 FORMAT(45X,42HCONFIGURATION AUXILIARY AND PARTIAL OUTPUT) 411 1570 FORMAT(51X,31HDATCOM BODY ALONE CONFIGURATION) 412 1580 FORMAT(54X,24HWING ALONE CONFIGURATION) 413 1590 FORMAT(52X,29HHORIZONTAL TAIL CONFIGURATION) 414 1600 FORMAT(53X,27HVERTICAL TAIL CONFIGURATION) 415 1610 FORMAT(55X,23HWING-BODY CONFIGURATION) 416 1620 FORMAT(49X,34HBODY-HORIZONTAL TAIL CONFIGURATION) 417 1630 FORMAT(50X,32HBODY-VERTICAL TAIL CONFIGURATION) 418 1640 FORMAT(47X,39HWING-BODY-HORIZONTAL TAIL CONFIGURATION) 419 1650 FORMAT(48X,37HWING-BODY-VERTICAL TAIL CONFIGURATION) 420 1660 FORMAT(40X,53HWING-BODY-VERTICAL TAIL-HORIZONTAL TAIL CONFIGURATIO 421 1N) 422 1670 FORMAT(55H ----------------------- FLIGHT CONDITIONS ----------, 423 1 14H--------------,11X,25H-------------- REFERENCE, 424 2 25H DIMENSIONS ------------/2X,16HMACH ALTITUDE, 425 3 3X,48HVELOCITY PRESSURE TEMPERATURE REYNOLDS, 426 4 13X,47HREF. REFERENCE LENGTH MOMENT REF. CENTER/ 427 5 7H NUMBER,55X,6HNUMBER,14X,4HAREA,7X,5HLONG.,5X,4HLAT., 428 6 5X,15HHORIZ VERT) 429 1680 FORMAT(13X,2HFT,7X,6HFT/SEC,5X,8HLB/FT**2,7X,5HDEG R,9X,4H1/FT, 430 1 15X,5HFT**2,1X,4(7X,2HFT,1X)) 431 1690 FORMAT(13X,2HIN,7X,6HIN/SEC,5X,8HLB/IN**2,7X,5HDEG R,9X,4H1/FT, 432 1 15X,5HIN**2,1X,4(7X,2HIN,1X)) 433 1700 FORMAT(13X,2H M,7X,6H M/SEC,5X,8H N/ M**2,7X,5HDEG K,9X,4H1/ M, 434 1 15X,5H M**2,1X,4(7X,2H M,1X)) 435 1710 FORMAT(13X,2HCM,7X,6HCM/SEC,5X,8H N/CM**2,7X,5HDEG K,9X,4H1/ M, 436 1 15X,5HCM**2,1X,4(7X,2HCM,1X)) 437 1720 FORMAT(1H0,10X,9HCLA-B(W)=,1PE10.3,5X,9HCLA-W(B)=,E10.3,5X, 438 1 7HK-B(W)=,E10.3,5X,7HK-W(B)=,E10.3,5X,11HXAC/C-B(W)=,E10.3) 439 1730 FORMAT(1H0,10X,9HCLA-B(H)=,1PE10.3,5X,9HCLA-H(B)=,E10.3,5X, 440 1 7HK-B(H)=,E10.3,5X,7HK-H(B)=,E10.3,5X,11HXAC/C-B(H)=,E10.3) 441 1740 FORMAT(///16X,5HALPHA,9X,7HIV-B(W),10X,7HIV-W(H), 442 1 10X,7HIV-B(H),10X,6HGAMMA/,18X,6HGAMMA//78X,14H2*PI*ALPHA*V*R, 443 2 9X,17H(2*PI*ALPHA*V*R)T) 444 1750 FORMAT(///55X,25HCANARD EFFECTIVE DOWNWASH/47X,5HALPHA,6X, 445 1 12H(EPSOLN)EFF.,5X,23HD(EPSOLN)/D(ALPHA) EFF.) 446 1760 FORMAT(//50X,31HDYNAMIC DERIVATIVE INCREMENTALS / 447 1 10X,17HCLP(GAMMA=CL=0) =,1PE11.4, 448 2 5X,26HCLP(GAMMA)/CLP (GAMMA=0) =,E11.4, 449 3 6X,11HCNP/THETA =,E11.4/ 450 4 30X,11HCYP/GAMMA =,E11.4, 451 5 20X,15HCYP/CL (CL=0) =,E11.4/) 452 1770 FORMAT(45H0*** NDM PRINTED WHEN NO DATCOM METHODS EXIST) 453 1780 FORMAT(42H0*** NA PRINTED WHEN METHOD NOT APPLICABLE) 454 1790 FORMAT(45X,9HCLB/GAMMA,8X,12H(CMO/THETA)W,5X,12H(CMO/THETA)H) 455 END 456