1 SUBROUTINE HEADR(DATA,ICONF,SD,JDETCH,GROUND,POWFLG,VTPLAN) 2C 3C THIS SUBROUTINE WRITES PAGE HEADINGS AND CALLS SUBROUTINE 4C INTERM TO WRITE THE OUTPUT DATA FOR STATIC OR DYNAMIC 5C STABILITY DATA 6C 7 COMMON /IVT/ PVT, VT(380) 8 COMMON /IVF/ PVF, VF(380) 9 COMMON /IBWH/ PBWH, BWH(380) 10 COMMON /IPOWER/ PPOWER, POWER(200) 11 COMMON /IDWASH/ PDWASH, DWASH(60) 12C 13 COMMON /FLGTCD/ FLC(160) 14 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 15 COMMON /SYNTSS/ SYNA(19) 16 COMMON /WINGI/ WINGIN(101) 17 COMMON /HTI/ HTIN(154) 18 COMMON /FLAPIN/ F(138) 19 COMMON /WINGD/ A(195), B(49) 20 COMMON /BDATA/ BD(762) 21 COMMON /SUPWH/ SLG(303) 22 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 23 COMMON /OVERLY/ NLOG,NMACH,M,NALPHA,IG,NF,LF,L 24 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM 25 COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA, 26 1 KBODY, KWING, KHT, KVT, KWB, KDWASH(3), 27 2 ALPOW, ALPLW, ALPOH, ALPLH 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 33C 34 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 35 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 36 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 37 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 38 4 VFPL,VFSC,CTAB 39 LOGICAL MDATA, FLAG 40 LOGICAL NDMF,NAF,VTPLAN,POWFLG,NEXPER,PDWASH,GROUND,PRINT 41 INTEGER SD 42 CHARACTER*4 FOR 43 DIMENSION DATA(400), OPT(4) 44 DIMENSION ALSCHD(20) 45 DIMENSION ICONT(11), FOR(46) 46 EQUIVALENCE(WINGIN(15),WTYPE),(FLC(23),ALSCHD(1)),(SLG(16),GRNDHT) 47 EQUIVALENCE (OPT(1),SREF) 48 DATA ICONT / 7, 10*10 / 49 DATA FOR / 4H( ,4H1H0 , 50 1 4H,0P ,4HF6.3,4H,1X ,4H,1X , 4H,1X,,4HF8.2,4H,1X ,4H,1X , 51 2 4H,1X,,4HF8.2,4H,1X ,4H,2X , 4H,1P ,4HE10.,4H4 ,4H,3X , 52 3 4H,0P ,4HF9.3,4H,1X ,4H,4X , 4H,1P ,4HE10.,4H4 ,4H,9X , 53 4 4H,0P ,4HF9.3,4H,1X ,4H,1X , 4H,1X,,4HF8.3,4H,1X ,4H , 54 5 4H,1X,,4HF8.3,4H,1X ,4H , 4H,1X,,4HF8.3,4H,1X ,4H , 55 6 4H,1X,,4HF8.3,4H,1X ,4H) / 56 DATA DOUB / 4HDOUB /, CRAN / 4HCRAN /, STRA / 4HSTRA / 57C 58 WRITE(6,1270) 59C 60 IF(SD .EQ. 1) WRITE(6,1520) 61 IF(SD .EQ. 2) WRITE(6,1710) 62C 63C WRITE CONFIGURATION HEADING 64C 65 NALP = NALPHA 66 GO TO (1000, 1010, 1020, 1030, 1040, 1050, 1060, 1080, 1090, 1110, 67 1 1130),ICONF 68 1000 WRITE(6,1280) 69 GO TO 1140 70 1010 WRITE(6,1290) 71 GO TO 1140 72 1020 WRITE(6,1630) 73 GO TO 1140 74 1030 IF(TVTPAN .AND. VTPL) WRITE(6,1680) 75 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1670) 76 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1640) 77 GO TO 1140 78 1040 IF(.NOT. LOASRT) WRITE(6,1310) 79 IF(LOASRT) WRITE(6,1470) 80 GO TO 1140 81 1050 WRITE(6,1650) 82 GO TO 1140 83 1060 CONTINUE 84 IF(VFPL) GO TO 1070 85 IF(TVTPAN .AND. VTPL) WRITE(6,1700) 86 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1690) 87 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1660) 88 GO TO 1140 89 1070 CONTINUE 90 IF(TVTPAN .AND. VTPL) WRITE(6,1810) 91 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1820) 92 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1830) 93 IF(.NOT. VTPL .AND. .NOT. TVTPAN) WRITE(6,1840) 94 GO TO 1140 95 1080 WRITE(6,1330) 96 NALP = JDETCH 97 GO TO 1140 98 1090 CONTINUE 99 IF(VFPL) GO TO 1100 100 IF(TVTPAN .AND. VTPL) WRITE(6,1540) 101 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1530) 102 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1320) 103 GO TO 1140 104 1100 CONTINUE 105 IF(TVTPAN .AND. VTPL) WRITE(6,1850) 106 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1860) 107 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1870) 108 IF(.NOT. VTPL .AND. .NOT. TVTPAN) WRITE(6,1880) 109 GO TO 1140 110 1110 CONTINUE 111 NALP = JDETCH 112 IF(VFPL) GO TO 1120 113 IF(TVTPAN .AND. VTPL) WRITE(6,1560) 114 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1550) 115 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1450) 116 GO TO 1140 117 1120 CONTINUE 118 IF(TVTPAN .AND. VTPL) WRITE(6,1890) 119 IF(TVTPAN .AND. .NOT. VTPL) WRITE(6,1900) 120 IF(VTPL .AND. .NOT. TVTPAN) WRITE(6,1910) 121 IF(.NOT. VTPL .AND. .NOT. TVTPAN) WRITE(6,1920) 122 GO TO 1140 123 1130 CONTINUE 124 WRITE(6,1800) 125 1140 CONTINUE 126 IF(GROUND .AND. GRNDHT .NE. UNUSED)WRITE(6,1500) GRNDHT 127 IF(GROUND .AND. GRNDHT .EQ. UNUSED)WRITE(6,1501) 128 NFP = F(16) + 0.5 129 IF(GROUND .AND. WGPL .AND. (.NOT. HTPL) .AND. (NFP .GT. 1)) 130 1 WRITE(6,1510) F(NF) 131 IF(JETPOW .AND. POWFLG) WRITE(6,1490) 132 IF(PRPOWR .AND. POWFLG) WRITE(6,1480) 133 IF(HEAD) CALL PRCSID 134 WRITE(6,1440) 135C 136C SET UP FOR DEGREE/RADIAN CONVERSION 137C 138 CON = 1.0 139 IF(DRCONV) CON = RAD 140 IF(SD .EQ. 2) GO TO 1210 141 DO 1150 J=1,NALPHA 142 DO 1150 K=1,5 143 KK=(K-1)*20+100 144 IF(ABS(DATA(J+KK)).NE.UNUSED .AND. DATA(J+KK).NE.(2.*UNUSED)) 145 1 DATA(J+KK)=DATA(J+KK)*CON 146 1150 CONTINUE 147 WRITE(6,1340) 148 IF(IDIM .EQ. 1) WRITE(6,1350) 149 IF(IDIM .EQ. 2) WRITE(6,1360) 150 IF(IDIM .EQ. 3) WRITE(6,1370) 151 IF(IDIM .EQ. 4) WRITE(6,1380) 152 SC = SYNA(13) 153 XL = 1.0 154 XR = 1.0 155 XP = 1.0 156 XT = 1.0 157 IF(IDIM .EQ. 2) XL = 12.0 158 IF(IDIM .EQ. 2) XP = 144.0 159 IF(IDIM .GE. 3) XP = 0.0208854 160 IF(IDIM .GE. 3) XR = 0.3048 161 IF(IDIM .GE. 3) XT = 1.8 162 IF(IDIM .EQ. 3) XL = 0.3048 163 IF(IDIM .EQ. 4) XL = 30.48 164 ALT = FLC(L+96) 165 VINF = FLC(M+136) 166 PINF = FLC(L+73) 167 TINF = FLC(L+116) 168 IF(ALT .NE. -UNUSED) ALT = ALT *XL 169 IF(VINF .NE. -UNUSED) VINF = VINF*XL 170 IF(PINF .NE. -UNUSED) PINF = PINF/XP 171 IF(TINF .NE. -UNUSED) TINF = TINF/XT 172 RN = FLC(M+42)/XR 173 SRF = OPT(1)*XL*XL/(SC*SC) 174 CBAR = OPT(2)*XL/SC 175 BLRF = OPT(4)*XL/SC 176 XCG = SYNA(1) 177 ZCG = SYNA(5) 178 IF(XCG .EQ. UNUSED) XCG = 0.0 179 IF(ZCG .EQ. UNUSED) ZCG = 0.0 180 IF(BD(11) .NE. UNUSED) XCG = XCG+BD(11) 181 XCG = XCG*XL/SC 182 ZCG = ZCG*XL/SC 183 CALL SWRITE(11,FOR,46,ICONT,1,FLC(M+2),ALT,VINF,PINF, 184 1 TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM, 185 2 DUM,DUM,NDMF,NAF) 186 IF(.NOT. DRCONV) WRITE(6,1390) 187 IF( DRCONV ) WRITE(6,1400) 188 WRITE(6,1410) 189C 190C ----- INCLUDE POWER EFFECTS IN STATIC COEFFICIENTS 191C 192 IF(.NOT. POWFLG) GO TO 1170 193 DO 1160 J=1,NALPHA 194 DATA(J)=DATA(J)+POWER(J) 195 DATA(J+20)=DATA(J+20)+POWER(J+20) 196 DATA(J+40)=DATA(J+40)+POWER(J+40) 197 DATA(J+60)=DATA(J+60)+POWER(J+60) 198 DATA(J+80)=DATA(J+80)+POWER(J+80) 199 1160 CONTINUE 200 1170 CONTINUE 201 CALL INTERM(1,NALP,ALSCHD,DATA,NDMF,NAF) 202C 203C ----- REMOVE POWER EFFECTS FROM STATIC COEFFICIENTS 204C 205 DO 1180 J=1,NALPHA 206 DO 1180 K=1,5 207 KK=(K-1)*20+100 208 IF(ABS(DATA(J+KK)).NE.UNUSED .AND. DATA(J+KK).NE.(2.*UNUSED)) 209 1 DATA(J+KK)=DATA(J+KK)/CON 210 1180 CONTINUE 211 IF(.NOT. POWFLG) GO TO 1200 212 DO 1190 J=1,NALPHA 213 DATA(J)=DATA(J)-POWER(J) 214 DATA(J+20)=DATA(J+20)-POWER(J+20) 215 DATA(J+40)=DATA(J+40)-POWER(J+40) 216 DATA(J+60)=DATA(J+60)-POWER(J+60) 217 DATA(J+80)=DATA(J+80)-POWER(J+80) 218 1190 CONTINUE 219 1200 CONTINUE 220 PRINT = (ICONF .EQ. 8) .OR. (ICONF .EQ. 10) 221 METHOD=WINGIN(101)+0.5 222 IF(.NOT. PRINT) GO TO 1210 223 IF(.NOT. PDWASH) GO TO 1210 224 IF(METHOD .EQ. 3) GO TO 1205 225 WRITE(6,1620) 226 CALL INTERM(2,NALP,ALSCHD,DWASH,NDMF,NAF) 227 1205 CONTINUE 228 IF(WINGIN(101) .GT. 2.5) WRITE(6,1760) 229 1210 CONTINUE 230 IF(SD .EQ. 1) GO TO 1240 231 WRITE(6,1340) 232 IF(IDIM .EQ. 1) WRITE(6,1350) 233 IF(IDIM .EQ. 2) WRITE(6,1360) 234 IF(IDIM .EQ. 3) WRITE(6,1370) 235 IF(IDIM .EQ. 4) WRITE(6,1380) 236 CALL SWRITE(11,FOR,46,ICONT,1,FLC(M+2),ALT,VINF,PINF, 237 1 TINF,RN,SRF,CBAR,BLRF,XCG,ZCG,DUM, 238 2 DUM,DUM,NDMF,NAF) 239 IF(.NOT. DRCONV) WRITE(6,1740) 240 IF( DRCONV ) WRITE(6,1750) 241 WRITE(6,1720) 242 WRITE(6,1730) 243 DO 1220 J=1,NALPHA 244 DO 1220 K=1,9 245 KK=(K-1)*20 246 IF(ABS(DATA(J+KK)).NE.UNUSED .AND. DATA(J+KK).NE.(2.*UNUSED)) 247 1 DATA(J+KK)=DATA(J+KK)*CON 248 1220 CONTINUE 249 CALL INTERM(3,NALP,ALSCHD,DATA,NDMF,NAF) 250 DO 1230 J=1,NALPHA 251 DO 1230 K=1,9 252 KK=(K-1)*20 253 IF(ABS(DATA(J+KK)).NE.UNUSED .AND. DATA(J+KK).NE.(2.*UNUSED)) 254 1 DATA(J+KK)=DATA(J+KK)/CON 255 1230 CONTINUE 256 IF(.NOT.(BO .AND. WGPL .AND. HTPL)) GO TO 1240 257 IF(A(128).EQ.0..AND. SD.EQ. 2) WRITE(6,1770) 258 IF(A(128).EQ.1..AND. SD.EQ. 2) WRITE(6,1780) 259 IF((BWH(281).EQ.UNUSED.OR.BWH(281).EQ.(2.*UNUSED)).AND.VT(281) 260 1 .NE.UNUSED) WRITE(6,1790) 261 1240 CONTINUE 262 IF(NDMF) WRITE(6,1570) 263 IF(NAF) WRITE(6,1300) 264 IF(SD .EQ. 2) GO TO 1250 265 IF(JDETCH.LT.NALPHA .AND. SUPERS) WRITE(6,1260)FLC(JDETCH+22) 266 PRINT=(ICONF.EQ.2 .OR. ICONF.EQ.5 .OR. ICONF.EQ.8) 267 IF(WTYPE.EQ.CRAN .AND. A(7).LT.A(125) .AND. PRINT) WRITE(6,1420) 268 IF(WTYPE.EQ.DOUB .AND. A(7).GE.A(125) .AND. PRINT) WRITE(6,1430) 269 IF(GROUND) WRITE(6,1460) 270 IF(SUPERS .AND. TVTPAN .AND. VTPLAN) WRITE(6,1590) 271 IF(ICONF.EQ.2 .AND. SUPERS .AND. WTYPE.NE.STRA) WRITE(6,1580) 272 1 SLG(80) 273 IF(MDATA) WRITE(6,1600) 274 FLAG = (ICONF .EQ. 6) .OR. (ICONF .EQ. 8) .OR. (ICONF .EQ. 10) 275 IF(HTPL .AND. FLAG .AND. SUPERS .AND. (LF .EQ. 1)) WRITE(6,1610) 276 1250 CONTINUE 277 RETURN 278 1260 FORMAT(30H0ANALYSIS TERMINATED AT ALPHA=,F5.1,16H BECAUSE LEADING, 279 124H EDGE SHOCK IS DETACHED.) 280 1270 FORMAT(1H1,31X,47HAUTOMATED STABILITY AND CONTROL METHODS PER APR, 281 125HIL 1976 VERSION OF DATCOM) 282 1280 FORMAT(51X,31HDATCOM BODY ALONE CONFIGURATION) 283 1290 FORMAT(54X,24HWING ALONE CONFIGURATION) 284 1300 FORMAT(42H0*** NA PRINTED WHEN METHOD NOT APPLICABLE) 285 1310 FORMAT(55X,23HWING-BODY CONFIGURATION) 286 1320 FORMAT(48X,37HWING-BODY-VERTICAL TAIL CONFIGURATION) 287 1330 FORMAT(47X,39HWING-BODY-HORIZONTAL TAIL CONFIGURATION) 288 1340 FORMAT(55H ----------------------- FLIGHT CONDITIONS ----------, 289 1 14H--------------,11X,25H-------------- REFERENCE, 290 2 25H DIMENSIONS ------------/2X,16HMACH ALTITUDE, 291 3 3X,48HVELOCITY PRESSURE TEMPERATURE REYNOLDS, 292 4 13X,47HREF. REFERENCE LENGTH MOMENT REF. CENTER/ 293 5 7H NUMBER,55X,6HNUMBER,14X,4HAREA,7X,5HLONG.,5X,4HLAT., 294 6 5X,15HHORIZ VERT) 295 1350 FORMAT(13X,2HFT,7X,6HFT/SEC,5X,8HLB/FT**2,7X,5HDEG R,9X,4H1/FT, 296 1 15X,5HFT**2,1X,4(7X,2HFT,1X)) 297 1360 FORMAT(13X,2HIN,7X,6HIN/SEC,5X,8HLB/IN**2,7X,5HDEG R,9X,4H1/FT, 298 1 15X,5HIN**2,1X,4(7X,2HIN,1X)) 299 1370 FORMAT(13X,2H M,7X,6H M/SEC,5X,8H N/ M**2,7X,5HDEG K,9X,4H1/ M, 300 1 15X,5H M**2,1X,4(7X,2H M,1X)) 301 1380 FORMAT(13X,2HCM,7X,6HCM/SEC,5X,8H N/CM**2,7X,5HDEG K,9X,4H1/ M, 302 1 15X,5HCM**2,1X,4(7X,2HCM,1X)) 303 1390 FORMAT(1H0,63X,42H-------------------DERIVATIVE (PER DEGREE), 304 1 19H-------------------) 305 1400 FORMAT(1H0,63X,42H-------------------DERIVATIVE (PER RADIAN), 306 1 19H-------------------) 307 1410 FORMAT(2H0 ,5HALPHA,5X,2HCD 308 1,7X,2HCL,7X,2HCM,7X,2HCN,7X,2HCA,7X,3HXCP,8X,3HCLA,10X,3HCMA,10X, 309 2 3HCYB,10X,3HCNB,10X,3HCLB/1H0) 310 1420 FORMAT(55H0***NOTE*** CRANKED WING ANALYSIS PERFORMED EVEN THOUGH, 311 129H WING HAS A LOW ASPECT RATIO.) 312 1430 FORMAT(55H0***NOTE*** DOUBLE DELTA WING ANALYSIS DONE EVEN THOUGH, 313 130H WING HAS A HIGH ASPECT RATIO.) 314 1440 FORMAT(1H ) 315 1450 FORMAT(40X,53HWING-BODY-VERTICAL TAIL-HORIZONTAL TAIL CONFIGURATIO 316 1N) 317 1460 FORMAT(121H0***NOTE***GROUND EFFECT ANALYSIS IS PERFORMED ACROSS T 318 1HE COMPLETE ANGLE OF ATTACK RANGE EVEN THOUGH THE METHODS ARE ONLY 319 2/38H APPLICABLE TO THE LINEAR LIFT REGION.) 320 1470 FORMAT(1H ,42X,49HLOW ASPECT RATIO WINGS AND WING-BODY COMBINATION 321 1S) 322 1480 FORMAT(31X,70HPROPELLER POWER EFFECTS INCLUDED IN THE LONGITUDINAL 323 1 STABILITY RESULTS) 324 1490 FORMAT(34X,64HJET POWER EFFECTS INCLUDED IN THE LONGITUDINAL STABI 325 1LITY RESULTS) 326 1500 FORMAT(21X,78HGROUND EFFECTS INCLUDED IN THE LONGITUDINAL STABILIT 327 1Y RESULTS , GROUND HEIGHT=,F7.2) 328 1501 FORMAT(21X,87HGROUND EFFECTS INCLUDED IN THE LONGITUDINAL STABILIT 329 1Y RESULTS , GROUND HEIGHT= FREE AIR) 330 1510 FORMAT(25X,70HWING FLAP DEFLECTION INCLUDED IN GROUND EFFECTS DATA 331 1, FLAP DEFLECTION=,F7.2) 332 1520 FORMAT(41X, 50HCHARACTERISTICS AT ANGLE OF ATTACK AND IN SIDESLIP) 333 1530 FORMAT(45X,43HWING-BODY-TWIN VERTICAL PANEL CONFIGURATION) 334 1540 FORMAT(38X,57HWING-BODY-VERTICAL TAIL-TWIN VERTICAL PANEL CONFIGUR 335 1ATION) 336 1550 FORMAT(37X,59HWING-BODY-HORIZONTAL TAIL-TWIN VERTICAL PANEL CONFIG 337 1URATION) 338 1560 FORMAT(30X,73HWING-BODY-HORIZONTAL TAIL-VERTICAL TAIL-TWIN VERTICA 339 1L PANEL CONFIGURATION) 340 1570 FORMAT(45H0*** NDM PRINTED WHEN NO DATCOM METHODS EXIST) 341 1580 FORMAT( 9H0** CD0=,1PE10.3) 342 1590 FORMAT(109H0**NOTE*LATERAL STABILITY DERIVATIVES DO NOT INCLUDE TH 343 1E EFFECTS OF TWIN VERTICAL PANELS. (NO DATCOM METHODS)) 344 1600 FORMAT(48H0*NOTE* OUTPUT REFLECTS EXPERIMENTAL DATA INPUTS) 345 1610 FORMAT(130H0**NOTE* THE HORIZONTAL TAIL LIES OFF THE BODY% LATER 346 1AL STABILITY DERIVATIVES DO NOT INCLUDE THE EFFECTS OF THE HORIZON 347 2TAL TAIL.) 348 1620 FORMAT(1H0,36X, 5HALPHA,5X,6HQ/QINF,4X,6HEPSLON,2X,18HD(EPSLON)/D( 349 1ALPHA)/1H0) 350 1630 FORMAT(52X,29HHORIZONTAL TAIL CONFIGURATION) 351 1640 FORMAT(53X,27HVERTICAL TAIL CONFIGURATION) 352 1650 FORMAT(49X,34HBODY-HORIZONTAL TAIL CONFIGURATION) 353 1660 FORMAT(50X,32HBODY-VERTICAL TAIL CONFIGURATION) 354 1670 FORMAT(50X,33HTWIN VERTICAL PANEL CONFIGURATION) 355 1680 FORMAT(43X,47HVERTICAL TAIL-TWIN VERTICAL PANEL CONFIGURATION) 356 1690 FORMAT(47X,38HBODY-TWIN VERTICAL PANEL CONFIGURATION) 357 1700 FORMAT(40X,52HBODY-VERTICAL TAIL-TWIN VERTICAL PANEL CONFIGURATION 358 1) 359 1710 FORMAT(57X,19HDYNAMIC DERIVATIVES) 360 1720 FORMAT(1H0,11X,22H-------PITCHING-------, 4X,23H-----ACCELERATION- 361 1-----, 4X,35H--------------ROLLING--------------, 4X,22H--------YA 362 2WING--------) 363 1730 FORMAT(1H0,3X,5HALPHA,7X,3HCLQ,10X,3HCMQ,11X,4HCLAD,9X,4HCMAD,9X, 364 1 3HCLP,10X,3HCYP,10X,3HCNP,10X,3HCNR,10X,3HCLR/1H0) 365 1740 FORMAT(51X,33H DYNAMIC DERIVATIVES (PER DEGREE)) 366 1750 FORMAT(51X,33H DYNAMIC DERIVATIVES (PER RADIAN)) 367 1760 FORMAT(122H0NOTE - CANARD CONFIGURATION EFFECTIVE EPSOLN AND D(EPS 368 1OLN)/D(ALPHA) ARE AVAILABLE AS PARTIAL OUTPUT AND IN THE FACT ARRA 369 2Y) 370 1770 FORMAT(103H*** BECAUSE OF A LIMITATION ON BETA*(ASPECT RATIO) FOR 371 1THE WING METHODS, ANY VALUES APPEARING ABOVE FOR,/,70H CLQ, CM 372 2Q, CLAD AND CMAD ARE ONLY THE HORIZONTAL TAIL INCREMENTS./) 373 1780 FORMAT( 94H*** FOR CONFIGURATIONS WITH A WING TAPER RATIO OTHER TH 374 1AN ZERO, ANY VALUES APPEARING ABOVE FOR,/,58H CLAD AND CMAD ARE 375 2ONLY THE HORIZONTAL TAIL INCREMENTS./) 376 1790 FORMAT(59H0*** CLP CALCULATIONS ARE ONLY THE VERTICAL TAIL INCREME 377 1NTS) 378 1800 FORMAT(54X,25HVENTRAL FIN CONFIGURATION) 379 1810 FORMAT(36X,44HBODY-VERTICAL TAIL-VENTRAL FIN-TWIN VERTICAL, 380 1 20H PANEL CONFIGURATION) 381 1820 FORMAT(41X,50HBODY-VENTRAL FIN-TWIN VERTICAL PANEL CONFIGURATION) 382 1830 FORMAT(44X,44HBODY-VERTICAL TAIL-VENTRAL FIN CONFIGURATION) 383 1840 FORMAT(51X,30HBODY-VENTRAL FIN CONFIGURATION) 384 1850 FORMAT(32X,49HWING-BODY-VERTICAL TAIL-VENTRAL FIN-TWIN VERTICAL, 385 1 20H PANEL CONFIGURATION) 386 1860 FORMAT(39X,41HWING-BODY-VENTRAL FIN-TWIN VERTICAL PANEL, 387 1 14H CONFIGURATION) 388 1870 FORMAT(42X,49HWING-BODY-VERTICAL TAIL-VENTRAL FIN CONFIGURATION) 389 1880 FORMAT(49X,35HWING-BODY-VENTRAL FIN CONFIGURATION) 390 1890 FORMAT(24X,48HWING-BODY-HORIZONTAL TAIL-VERTICAL TAIL-VENTRAL , 391 1 37HFIN-TWIN VERTICAL PANEL CONFIGURATION) 392 1900 FORMAT(31X,42HWING-BODY-HORIZONTAL TAIL-VENTRAL FIN-TWIN, 393 1 29H VERTICAL PANEL CONFIGURATION) 394 1910 FORMAT(34X,48HWING-BODY-HORIZONTAL TAIL-VERTICAL TAIL-VENTRAL , 395 1 17HFIN CONFIGURATION) 396 1920 FORMAT(41X,38HWING-BODY-HORIZONTAL TAIL-VENTRAL FIN , 397 1 13HCONFIGURATION) 398 END 399