1 SUBROUTINE SUPCMQ 2C 3C*** THIS ROUTINE YIELDS THE SUPERSONIC WING PITCHING DERIVATIVE,CMQ 4C 5 COMMON /OVERLY/ NLOG,NMACH,IM,NALPHA 6 COMMON /OPTION/ SR,CBARR,RUFF,BLREF 7 COMMON /CONSNT/ PI,DR,UNUSED,RAD 8 COMMON /WINGD/ A(195) 9 COMMON /WINGI/ WINGIN(77) 10 COMMON /FLGTCD/ FLC(93) 11 COMMON /POWR/ DYN(213) 12 COMMON /IWING/ PW, WING(400) 13 COMMON /SUPWH/ SLG(141) 14 COMMON /SBETA/ STB(135),TRA(108) 15 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 16 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 17 2 SUPERS,SUBSON,TRANSN,HYPERS, 18 3 SYMFP,ASYFP,TRIMC,TRIM 19 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 20 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 21 2 SUPERS,SUBSON,TRANSN,HYPERS, 22 3 SYMFP,ASYFP,TRIMC,TRIM 23 INTEGER Y71129,D11129,D21129,D31129,D41129,D51129,D61129,Y11210, 24 1 D11210,D21210,D31210,D41210,D51210,D61210,D71210,D81210,D91210, 25 2 D10210 26 REAL MACOE 27 REAL MACH,LSTAR,LAMDA 28 DIMENSION ROUTID(2) 29 DIMENSION WTYPE(4) 30 DIMENSION Q71128(3),Q71129(3),Q11210(3) 31 DIMENSION I2A128(4),I2B128(4) 32 DIMENSION X2A128(16),Y1A128(16) 33 DIMENSION X2B128(17),Y1B128(17) 34 DIMENSION X21129(40),X11129(8),X31129(3),Y71129(430) 35 DIMENSION D11129( 80),D21129( 80),D31129( 80),D41129( 80),D51129( 36 1 80),D61129( 80) 37 DIMENSION X21210(26),X11210(9),X31210(5),Y11210( 585) 38 DIMENSION D11210( 65),D21210( 52),D31210( 65),D41210( 52),D51210( 39 1 65),D61210( 52),D71210( 65),D81210( 52),D91210( 65),D10210( 52) 40 DIMENSION CX(6),QCLAMA(3) 41 EQUIVALENCE (D11129(1),Y71129(1)),(D21129(1),Y71129( 81)),(D31129( 42 11),Y71129(161)),(D41129(1),Y71129(241)),(D51129(1),Y71129(321)), 43 2(D61129(1),Y71129(401)) 44 EQUIVALENCE (D11210(1),Y11210(1)),(D21210(1),Y11210( 66)),(D31210( 45 11),Y11210(118)),(D41210(1),Y11210(183)),(D51210(1),Y11210(235)),(D 46 261210(1),Y11210(300)),(D71210(1),Y11210(352)),(D81210(1),Y11210(41 47 37)),(D91210(1),Y11210(469)),(D10210(1),Y11210( 534)) 48 EQUIVALENCE(MACOE,A(16)),(LSTAR,A(29)),(CRSTR,A(10)) 49 1,(ASTRW,A(7)),(LAMDA ,A(27)),(TANLE,A(62)),(SW,A(3)),(DXCG,A(173)) 50 EQUIVALENCE(EPPBC,DYN(9)),(GBC,DYN(10)),(CLQPWH,DYN(11)) 51 1,(XACCRB,DYN(14)),(CMQMFB,DYN(1)),(CMQWT,WING(221)) 52 2,(CLQWH,WING(201)),(F5N,DYN(17)),(F7N,DYN(18)),(F11N,DYN(19)) 53 3,(CMQPWH,DYN(20)),(CMQWH,WING(221)),(BCLQPP,DYN(15)) 54 DATA Q71128 /4H7.1.,4H1.2-,4H8 / 55 DATA Q71129 /4H7.1.,4H1.2-,4H9 / 56 DATA Q11210 /4H7.1.,4H1.2-,4H10 / 57 DATA I2A128 /16,3*0/, I2B128 /17,3*0/ 58 DATA QCLAMA /4HCLA ,4HVS M,4HACH / 59 DATA IX /0/ 60C 61C FIGURE 7.1.1.2-8 F5(N) 62C 63 DATA X2A128 64 1 / -1.0, -0.8, -0.6, -0.4, -0.2, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 65 2 0.6, 0.65, 0.7, 0.75, 0.8 / 66 DATA Y1A128 67 1 / -0.17, -0.15, -0.13, -0.10, -0.06, 0.0, 0.04, 0.09, 0.17, 0.26, 68 2 0.39, 0.62, 0.80, 1.10, 1.44, 2.00 / 69C 70C FIGURE 7.1.1.2-8 F7(N) 71C 72 DATA X2B128 73 1 / -1.0, -0.8, -0.6, -0.4, -0.2, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 74 2 0.6, 0.65, 0.7, 0.75, 0.8, 0.85 / 75 DATA Y1B128 76 1 / 3.9, 3.35, 2.8, 2.2, 1.65, 1.0, 0.07, 0.035, -0.005, -0.5 , 77 2 -1.0, -1.6, -2.2, -2.4, -2.9, -3.7, -6.0 / 78C 79C FIGURE 7.1.1.2-9A,B,C 80C 81 DATA X21129 82 1 / 0., .1, .2, .25, .3, .35, .385, .4, .43, .45, .46, .48, .53, 83 2 .55, .56, .575, .6, .61, .62, .635, .65, .675, .69, .715, .725, 84 3 .75, .76, .775, .79, .805, .815, .835, .85, .87, .88, .91, .93, 85 4 .945, .97, 1. / 86 DATA X11129/1.,2.,3.,4.,5.,6.,8.,10./ 87 DATA X31129/.25,.5,.75/ 88C 89C FIGURE 7.1.1.2-10A,B,C,D,E,F,G,H,I,J,K (TAPER RATIO=0,.25,.5,.75,1.) 90C 91 DATA X21210 92 1 / 0., .1, .2, .5, .7, 1.0, 2., 4., 5., 6., 8., 9., 11., 12., 14., 93 2 15., 18., 20., 22., 24., 27., 32., 35., 36., 40., 45. / 94 DATA X11210/1.,2.,3.,4.,5.,6.,8.,12.,20./ 95 DATA X31210/0.,.25,.5,.75,1./ 96C 97C IN THE FOLLOWING DATA STATEMENTS 2 FLOATING POINT NUMBERS,WITH 98C 3 SIGNIFICANT DIGITS EACH,ARE PACKED IN 1 FIXED POINT WORD. 99C 100C THE FORMAT IS AS FOLLOWS- 101C 102C SIGN1,NS2,NSPS,NP1,NP2,ND1,ND2 103C 104C WHERE- 105C 106C SIGN1 IS THE ACTUAL SIGN OF THE 1ST NUMBER 107C NS2 REPRESENTS THE SIGN OF THE 2ND NUMBER.0 IF + , 1 IF - 108C NSPS REPRESENTS THE SIGNS OF THE POWERS OF 10 FOR BOTH NUMBERS 109C 0 IF ++ , 1 IF -- , 2 IF +- , 3 IF -+ 110C NP1 IS THE POWER OF 10 FOR THE 1ST NUMBER. LIMITED TO 1 DIGIT 111C NP2 IS THE POWER OF 10 FOR THE 2ND NUMBER. LIMITED TO 1 DIGIT 112C ND1 3 DIGITS OF THE 1ST NUMBER (DECIMAL POINT AT END) 113C ND2 3 DIGITS OF THE 2ND NUMBER (DECIMAL POINT AT END) 114C 115 DATA D11129/ 202000250, 122400500, 122600550, 122400400, 116 1 122400350, 122300300, 122300300, 122300300, 122250200, 117 2 122200200, 122200200, 122200200, 122200200, 122200200, 118 3 122200200, 122200200, 122200200, 122200200, 122200200, 119 4 122200200, 202000300, 122550700, 121850105, 111120120, 120 5 111120110, 111105100, 122900900, 122900900, 122850800, 121 6 122800800, 122800750, 122700700, 122700600, 122600600, 122 7 122550550, 122550500, 122500500, 122500500, 122500500, 123 8 122500500, 202000300, 122550700, 121850105, 111120125, 124 9 111145155, 111160180, 111175165, 111165165, 111155155, 125 A 111150145, 111145140, 111135130, 111130120, 111120115, 126 B 111110110, 111105100, 111100100, 111100100, 112100950, 127 C 122900900, 202000300, 122550700, 121850105, 111120125, 128 D 111145155, 111160180, 111230260, 111260260, 111250250, 129 E 111250235, 111230220, 111215200, 111200190, 111190180, 130 F 111175170, 111170160, 111155150, 111150150, 111145140, 131 G 111135135/ 132 DATA D21129/ 202000300, 122550700, 121850105, 111120125, 133 1 111145155, 111160180, 111230260, 111270290, 111340360, 134 2 111350350, 111345335, 111320300, 111295285, 111285280, 135 3 111270260, 111250250, 111240230, 111230210, 111200200, 136 4 111190180, 202000300, 122550700, 121850105, 111120125, 137 5 111145155, 111160180, 111230260, 111270290, 111340360, 138 6 111380420, 111460455, 111445440, 111425410, 111400390, 139 7 111380365, 111360350, 111340330, 111320300, 111290280, 140 8 111270250, 202000300, 122550700, 121850105, 111120125, 141 9 111145155, 111160180, 111230260, 111270290, 111340360, 142 A 111380420, 111460550, 111600740, 111730720, 111710700, 143 B 111685660, 111650620, 111600580, 111570530, 111510490, 144 C 111480450, 202000300, 122550700, 121850105, 111120125, 145 D 111145155, 111160180, 111230260, 111270290, 111340360, 146 E 111380420, 111460550, 111600740, 111780980, 109108, 147 F 107106, 201104990, 111960920, 111900840, 111800780, 148 G 111750720/ 149 DATA D31129/ 202000100, 122220260, 122290330, 122390410, 150 1 122460500, 122480450, 122410390, 122370370, 122360360, 151 2 122360350, 122340330, 122330330, 122320310, 122310310, 152 3 122310310, 122310310, 122310310, 122310310, 122310300, 153 4 122300300, 202000200, 122410500, 122610760, 122870940, 154 5 121980100, 111100100, 111100100, 111100100, 112100990, 155 6 122970920, 122910870, 122850800, 122780750, 122740720, 156 7 122710700, 122690680, 122670660, 122650620, 122620610, 157 8 122600600, 202000200, 122410500, 122610760, 122870940, 158 9 121980117, 111125140, 111176170, 111166165, 111161161, 159 A 111160160, 111160160, 111154150, 111146140, 111138132, 160 B 111130126, 111124120, 111118115, 111112100, 111100100, 161 C 111100100, 202000200, 122410500, 122610760, 122870940, 162 D 121980117, 111125140, 111182203, 111220238, 111268262, 163 E 111260255, 111250246, 111242240, 111238235, 111227222, 164 F 111219210, 111208200, 111198190, 111185177, 111172167, 165 G 111160155/ 166 DATA D41129/ 202000200, 122410500, 122610760, 122870940, 167 1 121980117, 111125140, 111182203, 111220238, 111268287, 168 2 111300335, 111370360, 111353350, 111345338, 111337336, 169 3 111333320, 111313300, 111294286, 111280267, 111260250, 170 4 111240230, 202000200, 122410500, 122610760, 122870940, 171 5 121980117, 111125140, 111182203, 111220238, 111268287, 172 6 111300335, 111370445, 111500490, 111482470, 111465462, 173 7 111458450, 111448432, 111420406, 111400380, 111369352, 174 8 111340325, 202000200, 122410500, 122610760, 122870940, 175 9 121980117, 111125140, 111182203, 111220238, 111268287, 176 A 111300335, 111370445, 111500575, 111640815, 111807800, 177 B 111790778, 111773760, 111750725, 111710670, 111647622, 178 C 111595570, 202000200, 122410500, 122610760, 122870940, 179 D 121980117, 111125140, 111182203, 111220238, 111268287, 180 E 111300335, 111370445, 111500575, 111640815, 310920104, 181 F 123122, 121119, 118117, 115109, 105101, 182 G 111960900/ 183 DATA D51129/ 203000500, 133700900, 122120150, 122200200, 184 1 122200200, 122200200, 122210220, 122220220, 122230230, 185 2 122230230, 122230240, 122240260, 122270270, 122270280, 186 3 122280280, 122280280, 122290290, 122290300, 122300300, 187 4 122300300, 202000150, 122300400, 122480600, 122700740, 188 5 122780820, 122880900, 122860830, 122830830, 122820810, 189 6 122810810, 122800800, 122800800, 122800800, 122800800, 190 7 122780750, 122740700, 122700690, 122680650, 122630630, 191 8 122620600, 202000150, 122300400, 122480600, 122700740, 192 9 122780820, 122880900, 111123140, 111146155, 111153150, 193 A 111150150, 111146142, 111141140, 111140137, 111135134, 194 B 111134132, 111132130, 111130124, 111122117, 111113111, 195 C 111108100, 202000150, 122300400, 122480600, 122700740, 196 D 122780820, 122880900, 111123140, 111146162, 111195205, 197 E 111220250, 111243238, 111232230, 111228220, 111220218, 198 F 111213210, 111210205, 111205201, 111198188, 111183180, 199 G 111178170/ 200 DATA D61129/ 202000150, 122300400, 122480600, 122700740, 201 1 122780820, 122880900, 111123140, 111146162, 111195205, 202 2 111220250, 111280330, 111351345, 111340332, 111330325, 203 3 111320318, 111313310, 111305302, 111300292, 111282277, 204 4 111267250, 202000150, 122300400, 122480600, 122700740, 205 5 122780820, 122880900, 111123140, 111146162, 111195205, 206 6 111220250, 111280330, 111370450, 111482470, 111465458, 207 7 111452448, 111444438, 111430425, 111420410, 111400388, 208 8 111370355, 202000150, 122300400, 122480600, 122700740, 209 9 122780820, 122880900, 111123140, 111146162, 111195205, 210 A 111220250, 111280330, 111370450, 111482600, 111670815, 211 B 111800790, 111780763, 111752733, 111730705, 111690677, 212 C 111650632, 202000150, 122300400, 122480600, 122700740, 213 D 122780820, 122880900, 111123140, 111146162, 111195205, 214 E 111220250, 111280330, 111370450, 111482600, 111670815, 215 F 310965111, 126124, 122121, 119116, 114113, 216 G 107102/ 217 DATA D11210/ 122100100, 122100100, 122100100, 133999993, 218 1 133989986, 133980979, 133970969, 133965963, 133952949, 219 2 133945939, 133930919, 133909905, 133895880, 122100100, 220 3 122100100, 123100995, 133993983, 133979975, 133965960, 221 4 133950945, 133939935, 133923915, 133909900, 133889873, 222 5 133865863, 133855845, 122100100, 122100100, 123100995, 223 6 133990973, 133965960, 133943939, 133925920, 133909905, 224 7 133885875, 133869860, 133850845, 133840843, 133853885, 225 8 122100100, 123100998, 133995990, 133979959, 133950935, 226 9 133915910, 133890883, 133870865, 133850840, 133830828, 227 A 133825835, 133850863, 132909100, 122100100, 133995990, 228 B 133988985, 133965939, 133940915, 133890882, 133865853, 229 C 133835830, 133820815, 133815815, 133825873, 133920940, 230 D 122105120/ 231 DATA D21210/ 122100100, 133995989, 133985980, 133955925, 232 1 133913893, 133869859, 133835828, 133813810, 133800805, 233 2 133815825, 133859959, 122105109, 122127160, 122100100, 234 3 133990980, 133975970, 133940893, 133878863, 133829820, 235 4 133800790, 133785789, 133809835, 133873925, 122102128, 236 5 122149160, 122210310, 122100100, 133990979, 133965960, 237 6 133920850, 133829812, 133783780, 133785795, 133830850, 238 7 132961109, 122123143, 122180260, 122330360, 122510760, 239 8 122100100, 133990965, 133950925, 133910775, 133769775, 240 9 133810839, 132950140, 122129145, 122210260, 122310390, 241 A 122510820, 111110118, 111173280/ 242 DATA D31210/ 122100100, 123100990, 133990980, 133965930, 243 1 133920900, 133880865, 133845835, 133819810, 133790780, 244 2 133770760, 133745733, 133725725, 133728760, 122100100, 245 3 133990985, 133980975, 133955920, 133905885, 133860849, 246 4 133825818, 133800770, 133770760, 133745740, 133730735, 247 5 133750755, 133800925, 123100995, 133990980, 133975970, 248 6 133950910, 133890870, 133843830, 133805799, 133780770, 249 7 133755750, 133745745, 133750780, 133825845, 132945109, 250 8 133885885, 133882880, 133875870, 133860835, 133825810, 251 9 133790780, 133760759, 133750749, 133740745, 133750760, 252 A 133783865, 133955985, 122119157, 133875875, 133872870, 253 B 133865860, 133845815, 133805790, 133770755, 133745743, 254 C 133740735, 133745759, 133783820, 132880105, 122120123, 255 D 122152200/ 256 DATA D41210/ 133860860, 133855850, 133845840, 133825795, 257 1 133780770, 133753743, 133733733, 133740745, 133775815, 258 2 133865925, 122105133, 122157160, 122230280, 133875870, 259 3 133865860, 133850845, 133830780, 133760750, 133735733, 260 4 133740750, 133783809, 132900101, 122113127, 122158230, 261 5 122280300, 122370505, 133880870, 133860845, 133835825, 262 6 133800750, 133735733, 133745770, 133845905, 122105117, 263 7 122150200, 122230280, 122350550, 122730750, 111100140, 264 8 133880870, 133860850, 133830805, 133760725, 133750800, 265 9 132970114, 122157170, 122240300, 122400500, 122630800, 266 A 111107173, 111235245, 111350515/ 267 DATA D51210/ 133945943, 133940925, 133920913, 133883833, 268 1 133809783, 133730705, 133650640, 133620590, 133550520, 269 2 133500490, 133470530, 133630660, 132820108, 133860855, 270 3 133855850, 133840835, 133810765, 133750730, 133695683, 271 4 133660630, 133620610, 133570560, 133550550, 133570650, 272 5 133760790, 132980126, 133800800, 133800789, 133785780, 273 6 133760729, 133715700, 133675665, 133635630, 133623620, 274 7 133600600, 133600620, 133640760, 133900950, 122117152, 275 8 133755753, 133750749, 133743739, 133728700, 133685670, 276 9 133655649, 133633625, 133625630, 133630650, 133670690, 277 A 133730900, 122109115, 122149198, 133743742, 133742735, 278 B 133733730, 133715685, 133680660, 133645643, 133640625, 279 C 133630640, 133690720, 133770820, 132920118, 122149154, 280 D 122214295/ 281 DATA D61210/ 133745743, 133742735, 133732725, 133710683, 282 1 133680665, 133667665, 133675663, 133690710, 133780845, 283 2 132930103, 122122161, 122205214, 122279430, 133745743, 284 3 133740735, 133730720, 133700670, 133665660, 133670689, 285 4 133735760, 133830890, 122105122, 122140162, 122200265, 286 5 122320350, 122500730, 133745740, 133740730, 133725715, 287 6 133690670, 133680705, 133783840, 132995110, 122134150, 288 7 122209252, 122330400, 122490720, 121900100, 111139215, 289 8 133750745, 133740725, 133712700, 133680750, 133840955, 290 9 122128154, 122224250, 122350390, 122550700, 121900105, 291 A 111150235, 111320340, 111465655/ 292 DATA D71210/ 133740729, 133710660, 133625580, 133500500, 293 1 133500500, 133500600, 133600600, 133600600, 133600500, 294 2 133500400, 330200000, 0, 133100400, 133720702, 295 3 133689685, 133605565, 133500500, 133500500, 133500600, 296 4 133600600, 133600600, 133600500, 133500400, 133300300, 297 5 133400500, 132600120, 133695680, 133665615, 133590545, 298 6 133500500, 133500500, 133500600, 133600600, 133600600, 299 7 133600500, 133500500, 133600600, 133800900, 122110200, 300 8 133690672, 133650605, 133580550, 133500500, 133500500, 301 9 133500600, 133600600, 133600600, 133600600, 133600600, 302 A 132700100, 122120130, 122170320, 133690672, 133650615, 303 B 133585575, 133500500, 133500500, 133500600, 133600600, 304 C 133600600, 133600600, 133700900, 122100130, 122150170, 305 D 122230360/ 306 DATA D81210/ 133685670, 133650605, 133600600, 133600600, 307 1 133600600, 133600600, 133600600, 133600700, 133800900, 308 2 122100130, 122140190, 122230240, 122320470, 133685660, 309 3 133640620, 133635700, 133700700, 133700700, 133700700, 310 4 133700700, 133900900, 122120140, 122160200, 122240340, 311 5 122400430, 122600890, 133680660, 133650690, 132775102, 312 6 122103103, 122103103, 122103103, 122110140, 122160180, 313 7 122250300, 122350430, 122580850, 111108116, 111152240, 314 8 133675655, 133665930, 122127130, 122130130, 122130130, 315 9 122150190, 122270310, 122400460, 122660840, 111103125, 316 A 111172265, 111350375, 111494680/ 317 DATA D91210/ 133700700, 133700700, 133700700, 133700690, 318 1 133690690, 133690690, 133710720, 133740750, 133780820, 319 2 133840860, 133890945, 133980990, 122103109, 133660660, 320 3 133660660, 133660660, 133670690, 133690690, 133700700, 321 4 133710730, 133740760, 133800830, 133860890, 132940104, 322 5 122112114, 122124135, 133660660, 133660660, 133660660, 323 6 133670690, 133690700, 133700700, 133710730, 133750760, 324 7 133810850, 133900945, 122102121, 122133136, 122153174, 325 8 133660660, 133660660, 133660660, 133670690, 133690710, 326 9 133710720, 133730750, 133770790, 133850890, 132960102, 327 A 122114144, 122167173, 122202238, 133660660, 133660660, 328 B 133660660, 133670690, 133690710, 133720740, 133770800, 329 C 133840870, 132970103, 122112120, 122136173, 122204214, 330 D 122250300/ 331 DATA D10210/ 133660660, 133660660, 133660660, 133670700, 332 1 133710730, 133770790, 133860860, 133940980, 122113122, 333 2 122135148, 122169222, 122250270, 122350450, 133660660, 334 3 133660670, 133670670, 133680710, 133730770, 133840870, 335 4 132970101, 122114123, 122157178, 122212232, 122250350, 336 5 122400450, 122550750, 133660660, 133660670, 133670670, 337 6 133700790, 133850940, 122108119, 122151162, 122194214, 338 7 122300350, 122400450, 122600850, 111115120, 111155205, 339 8 133660670, 133680690, 133710720, 132820106, 122124151, 340 9 122200220, 122350350, 122500550, 122750900, 111115140, 341 A 111185285, 111370400, 111535720/ 342 DATA WTYPE/4HSTRA,4HDOUB,4HCRAN,4HCURV/ 343 DATA ROUTID/4HSUPC,4HMQ / 344C 345 TYPE=WINGIN(15) 346 IF(TYPE.NE.WTYPE(1))RETURN 347 IF(TANLE.EQ.0.)TANLE=.00001 348 COTLE=1./TANLE 349 IF(TRANSN)GO TO 1000 350 MACH=FLC(IM+2) 351 BETA=SQRT(MACH**2-1.) 352 CNA1=SLG(7) 353 XACCR=SLG(134) 354 DCMDCL=SLG(135) 355 1000 SAVE=MACOE*SW/(CBARR*SR) 356 EN=1.-4.*COTLE/ASTRW 357 DEE=.66667*LSTAR 358 IF(TRANSN)GO TO 1100 359C 360C ---- SUPERSONIC WING PITCHING DERIVATIVE,CMQ ---- 361C 362 1010 CONTINUE 363 BCOTLE=BETA*COTLE 364 XACCRB=XACCR*CRSTR/CBARR 365 BA=BETA*ASTRW 366 QLAMDA=10. 367 IF(BCOTLE.GE.1.)GO TO 1080 368 IF(LAMDA.NE.0.)GO TO 1030 369C 370C -- FIGURE 7.1.1.2-8 F5(N) 371C 372 1020 CALL INTERX(1,X2A128,EN,I2A128,Y1A128,F5N,16,16,1,0,0,0,1,0,0,0, 373 1 Q71128,3,ROUTID) 374 F5N=(1.-EN)*F5N 375C 376C -- FIGURE 7.1.1.2-8 F7(N) 377C 378 CALL INTERX(1,X2B128,EN,I2B128,Y1B128,F7N,17,17,1,0,0,0,1,0,0,0, 379 1 Q71128,3,ROUTID) 380C 381C -- FIGURE 7.1.1.2-8 F11(N)) -- 382C 383 F11N=1.-EN 384 AAA=-.01028*ASTRW 385 BBB=GBC*F7N 386 CCC=5.3333*EPPBC*(F5N/F11N) 387 DDD=-(DEE-XACCR*CRSTR)/CBARR 388 CMQPWH=AAA*(BBB+CCC)+DDD*CLQPWH+2.*DDD**2*CNA1/RAD 389 IF(QLAMDA.LT.5.)GO TO 1060 390 GO TO 1090 391 1030 IF(LAMDA.LT.0.25)GO TO 1050 392 IF(LAMDA.GT.0.75)RETURN 393C 394C -- FIGURE 7.1.1.2-9A,B,C -- 395C 396 1040 CALL TLIP3X(X11129,X21129,X31129,Y71129,8,40,3,BA,BCOTLE,LAMDA, 397 1 BCMQPP,1,1,0,1,1,0,Q71129,3,ROUTID) 398 CMQPWH=(XACCRB*BCLQPP-BCMQPP*MACOE/CBARR)*SAVE/(BETA*RAD) 399 IF(QLAMDA.LT.0.25)GO TO 1070 400 GO TO 1090 401 1050 CONTINUE 402 QLAMDA=LAMDA 403 LAMDA=0. 404 GO TO 1020 405 1060 CMQP1=CMQPWH 406 LAMDA=.25 407 GO TO 1040 408 1070 CMQPWH=(CMQPWH-CMQP1)*4.*QLAMDA+CMQP1 409 GO TO 1090 410 1080 ACOTBC=RAD*ATAN(1./BCOTLE) 411C 412C FIGURE 7.1.1.2-10 A-K 413C 414 CALL TLIP3X(X11210,X21210,X31210,Y11210,9,26,5,BA,ACOTBC,LAMDA, 415 1 BCMQP,1,1,0,2,1,0,Q11210,3,ROUTID) 416 CMQPWH=-(BCMQP/(RAD*BETA))*SAVE*MACOE/CBARR 417 1090 CMQWH=CMQPWH+DCMDCL*CLQWH 418 IF(.NOT.TRANSN)RETURN 419 GO TO 1110 420 1100 MACH=1.2 421 BETA=0.663325 422 XACCR=TRA(105) 423 DCMDCL=(DXCG-XACCR*CRSTR)/CBARR 424 CALL TBFUNX(MACH,CNA1,DYDX,5,TRA(16),TRA(21),CX, 425 1 IX,MI,NG,0,0,QCLAMA,3,ROUTID) 426 GO TO 1010 427C 428C** TRANSONIC FAIRING - WING ALONE CMQ 429C 430 1110 CLAM=WING(101) 431 CLAMFB=TRA(12) 432 IF(FLC(IM+2) .LE. TRA(6))GO TO 1120 433C 434C** MACH BETWEEN FORCE BREAK AND 1.2 USE EQ 7.1.1.4-C 435C 436 CMQ12=CMQWH 437 CMQWT=(CLAM-CLAMFB)/(CNA1-CLAMFB)*(CMQ12-CMQMFB)+CMQMFB 438 GO TO 1130 439C 440C** MACH BETWEEN .6 AND FORCE BREAK USE EQ 7.1.1.2-C, BUT INTERPOLATE 441C BETWEEN M=.6 INSTEAD OF M=1.2 442C 443 1120 BEE=SQRT(1-.36*A(67)**2) 444 TOP=A(7)**3*A(68)**2 445 COMPF=((TOP/(A(7)*BEE+6.*A(67))+3./BEE)/(TOP/(A(7)+6.*A(67))+3.)) 446 CMQ6=COMPF*DYN(2) 447C 448C** COMPUTE M=.6 CL-ALPHA, EQ 4.1.3.2-49 449C 450 TEMP1=2.*PI*A(7)*DR 451 TEMP2=(A(7)*DR*2.*PI/WINGIN(69))**2 452 CLA6=(TEMP1/(2.+SQRT(TEMP2*(1.+A(50)**2/.8)+4.)))*A(3)/SR 453 CMQWT=(CLAM-CLAMFB)/(CLA6-CLAMFB)*(CMQ6-CMQMFB)+CMQMFB 454 1130 IF(TANLE .EQ. .00001)TANLE=0.0 455 RETURN 456 END 457