1 SUBROUTINE TRHTCM 2C 3C*** COMPUTES TRANSONIC H.T. AND H.T. BODY PITCHING MOMENT SLOPES 4C 5 DIMENSION ROUTID(2) 6 DIMENSION Q225AD(3),Q222AF(3),Q14228(3) 7 REAL MACH,MFB 8 DIMENSION T428(14),D428(28),XM(6) 9 DIMENSION VAR(4),LGH(4),VBAR(4),XMV(6),XACV(6),ZMT(8),XACP(8) 10 DIMENSION D425AD(756) 11 DIMENSION T425AD(30),DUMY1(63),DUMY2(63),DUMY3(63),DUMY4(63),DUMY5 12 1(63),DUMY6(63),DUMY7(63),DUMY8(63),DUMY9(63),DUMY10(63),DUMY11(63) 13 DIMENSION DUMY12(63) 14 DIMENSION DUMYA(72),DUMYB(72),DUMYC(72),DUMYD(72),DUMYE(72),DUMYF 15 1(72),DUMYG(72),DUMYH(72),DUMYI(72),DUMYJ(72),DUMYK(72),DUMYL(72) 16 DIMENSION T422AF(18),SUBAF1(216),SUBAF2(216),SUPAF1(216) 17 1,SUPAF2(216) 18 COMMON /OVERLY/ NLOG,NMACH,NZ 19 COMMON /OPTION/ SREF,CBARR,ROUGFC,BLREF 20 COMMON /HTI/ WINGIN(15),TOVC 21 COMMON /SBETA/ STB(243),TRA(108) 22 COMMON /SUPWBB/ SWB(61),SS(61) 23 COMMON /WHWB/ FACT(182),WW(39),WB(39) 24 COMMON /HTDATA/ A(195),B(49) 25 COMMON /BDATA/ BD(762) 26 COMMON /IBODY/ PBODY, BODY(400) 27 COMMON /IHT/ PWING, WING(380) 28 COMMON /IBH/ PBW, BW(380) 29 COMMON /SYNTSS/ XCG,YY(4),XW 30C 31C NOTE: THIS ROUTINE IS THE SAME AS THE ROUTINE USED FOR WINGS. 32C THIS IS WHY THE VARIABLE XW IS IN THE PLACE OF XH IN THE 33C ABOVE COMMON SYNTSS. THIS ALLOWS XW IN THE ROUTINE TO NOT 34C HAVE TO BE CHANGED. THIS IS DONE IN SEVERAL PLACES IN 35C THIS PROGRAM 36C 37 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 38 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 39 2 SUPERS,SUBSON,TRANSN,HYPERS 40 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 41 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 42 2 SUPERS,SUBSON,TRANSN,HYPERS 43 EQUIVALENCE (XACBW4,SWB(8)),(XACBW6,WB(13)),(CLAWB,TRA(71)), 44 1 (CLABW,TRA(72)),(CLAWBD,BW(101)) 45 EQUIVALENCE (SUBAF1(1),DUMYA(1)),(SUBAF1(73),DUMYB(1)),(SUBAF1(145 46 1),DUMYC(1)),(SUBAF2(1),DUMYD(1)),(SUBAF2(73),DUMYE(1)),(SUBAF2(145 47 2),DUMYF(1)),(SUPAF1(1),DUMYG(1)),(SUPAF1(73),DUMYH(1)),(SUPAF1(145 48 3),DUMYI(1)),(SUPAF2(1),DUMYJ(1)),(SUPAF2(73),DUMYK(1)),(SUPAF2(145 49 4),DUMYL(1)) 50 EQUIVALENCE (D425AD(1),DUMY1(1)),(D425AD(64),DUMY2(1)),(D425AD(127 51 1),DUMY3(1)),(D425AD(190),DUMY4(1)),(D425AD(253),DUMY5(1)),(D425AD( 52 2316),DUMY6(1)),(D425AD(379),DUMY7(1)),(D425AD(442),DUMY8(1)),(D425 53 3AD(505),DUMY9(1)),(D425AD(568),DUMY10(1)),(D425AD(631),DUMY11(1)), 54 4(D425AD(694),DUMY12(1)) 55 EQUIVALENCE (ARSTAR,A(7)),(TANLE,A(62)),(TAPR,A(27)) 56 1,(MACH,TRA(4)),(COSC2,A(73)),(MFB,TRA(6)),(CRSTAR,A(10)) 57 2,(DXCG,A(173)),(CLAW,WING(101)),(CMAB,BODY(121)),(CLAB,BODY(101)) 58 EQUIVALENCE(XMV(1),TRA(83)),(XACV(1),TRA(89)), 59 1(DELXAC,TRA(96)),(XACP(1),TRA(97)),(XAC,TRA(105)),(CMAW,WING(121) 60 2),(XACBW,TRA(106)),(XACWB,TRA(107)),(CMAWB,BW(121)) 61 3,(XACW,TRA(95)) 62 DATA ROUTID/4HTRHT,4HCM / 63 DATA Q225AD /4H4.1.,4H4.2-,4H30AD/, Q222AF /4H4.1.,4H4.2-,4H26AF/, 64 1 Q14228 /4H4.1.,4H4.2-,4H33 / 65 DATA XM/0.5,0.7,0.6,1.3,1.5,1.4/ 66C 67C ****** FIGURE 4.1.4.2-26(A),(B),(C),(D),(E),(F) ****** 68C 69 DATA T422AF/ 70 10.,.2,.4,.6,.8,1., 71 21.,2.,3.,4.,5.,6., 72 30.,.2,.25,.33,.5,1./ 73 DATA DUMYA/ 74 1 .250, .245, .240, .235, .230, .225, .335, .335, 75 2 .335, .335, .335, .335, .420, .430, .435, .445, 76 3 .450, .455, .500, .515, .530, .540, .550, .560, 77 4 .580, .600, .630, .645, .660, .680, .680, .695, 78 5 .720, .740, .760, .780, 79 6 .285, .275, .270, .265, .260, .255, .400, .410, 80 7 .415, .415, .415, .410, .510, .530, .535, .540, 81 8 .545, .550, .640, .650, .660, .675, .685, .690, 82 9 .750, .765, .780, .785, .800, .815, .870, .880, 83 A .895, .905, .920, .930/ 84 DATA DUMYB/ 85 1 .300, .295, .285, .280, .275, .265, .420, .420, 86 2 .425, .425, .425, .430, .545, .550, .560, .565, 87 3 .575, .580, .670, .680, .690, .700, .710, .720, 88 4 .795, .805, .815, .830, .840, .850, .925, .945, 89 5 .960, .965, .975, .980, 90 6 .325, .320, .315, .305, .300, .290, .460, .460, 91 7 .460, .460, .455, .455, .595, .600, .600, .600, 92 8 .610, .620, .735, .740, .750, .760, .765, .775, 93 9 .885, .890, .895, .900, .910, .925, 1.045, 1.050, 94 A 1.050, 1.060, 1.065, 1.075/ 95 DATA DUMYC/ 96 1 .355, .350, .345, .340, .330, .320, .530, .530, 97 2 .525, .525, .520, .520, .700, .700, .700, .705, 98 3 .710, .710, .880, .880, .885, .890, .890, .895, 99 4 1.040, 1.045, 1.050, 1.055, 1.060, 1.065, 1.200, 1.205, 100 5 1.210, 1.215, 1.225, 1.230, 101 6 .510, .490, .480, .470, .460, .450, .750, .750, 102 7 .750, .750, .745, .740, 1.000, 1.000, 1.000, 1.000, 103 8 1.000, 1.000, 1.250, 1.250, 1.250, 1.250, 1.250, 1.250, 104 9 1.500, 1.500, 1.500, 1.490, 1.490, 1.490, 1.740, 1.740, 105 A 1.740, 1.730, 1.730, 1.730/ 106 DATA DUMYD/ 107 1 .165, .180, .200, .210, .220, .225, .335, .335, 108 2 .335, .335, .335, .335, .500, .480, .465, .460, 109 3 .460, .455, .670, .625, .595, .580, .575, .560, 110 4 .830, .750, .730, .705, .695, .680, .990, .860, 111 5 .835, .810, .795, .780, 112 6 .200, .215, .230, .240, .250, .255, .400, .400, 113 7 .400, .405, .410, .410, .600, .580, .565, .560, 114 8 .555, .550, .795, .760, .735, .715, .700, .690, 115 9 .970, .910, .870, .840, .825, .815, 1.150, 1.050, 116 A 1.000, .965, .940, .930/ 117 DATA DUMYE/ 118 1 .230, .240, .245, .250, .260, .265, .415, .420, 119 2 .425, .425, .430, .430, .630, .615, .600, .590, 120 3 .585, .580, .830, .785, .760, .740, .730, .720, 121 4 1.030, .950, .905, .880, .865, .850, 1.250, 1.090, 122 5 1.050, 1.015, .990, .980, 123 6 .220, .240, .250, .265, .280, .290, .440, .445, 124 7 .450, .450, .455, .455, .670, .655, .640, .630, 125 8 .625, .620, .880, .830, .805, .790, .780, .775, 126 9 1.070, 1.000, .960, .940, .935, .925, 1.270, 1.170, 127 A 1.120, 1.100, 1.085, 1.075/ 128 DATA DUMYF/ 129 1 .250, .270, .295, .310, .315, .320, .500, .505, 130 2 .510, .515, .520, .520, .750, .740, .730, .720, 131 3 .715, .710, .980, .940, .915, .900, .900, .895, 132 4 1.190, 1.120, 1.090, 1.080, 1.070, 1.065, 1.380, 1.300, 133 5 1.270, 1.250, 1.240, 1.230, 134 6 .340, .380, .410, .430, .440, .450, .680, .700, 135 7 .720, .730, .730, .740, .950, .980, 1.000, 1.000, 136 8 1.000, 1.000, 1.200, 1.230, 1.250, 1.250, 1.250, 1.250, 137 9 1.440, 1.470, 1.480, 1.480, 1.490, 1.490, 1.680, 1.710, 138 A 1.710, 1.720, 1.720, 1.730/ 139 DATA DUMYG/ 140 1 .165, .210, .250, .290, .310, .345, .335, .365, 141 2 .390, .415, .445, .470, .500, .540, .560, .560, 142 3 .560, .560, .670, .670, .670, .670, .670, .670, 143 4 .830, .775, .775, .775, .775, .775, .990, .930, 144 5 .895, .895, .895, .895, 145 6 .200, .230, .280, .305, .335, .360, .400, .445, 146 7 .485, .500, .520, .530, .600, .630, .650, .660, 147 8 .665, .665, .795, .800, .800, .805, .810, .815, 148 9 .970, .965, .955, .955, .955, .955, 1.150, 1.135, 149 A 1.120, 1.100, 1.100, 1.105/ 150 DATA DUMYH/ 151 1 .230, .275, .300, .330, .350, .370, .415, .470, 152 2 .500, .530, .545, .550, .630, .670, .680, .685, 153 3 .690, .690, .830, .835, .835, .840, .845, .850, 154 4 1.030, 1.015, 1.005, 1.000, 1.005, 1.010, 1.250, 1.225, 155 5 1.200, 1.170, 1.165, 1.160, 156 6 .220, .280, .315, .345, .375, .390, .440, .500, 157 7 .535, .560, .570, .580, .670, .700, .720, .725, 158 8 .740, .740, .880, .885, .895, .900, .900, .900, 159 9 1.070, 1.070, 1.075, 1.075, 1.080, 1.080, 1.270, 1.260, 160 A 1.260, 1.255, 1.255, 1.255/ 161 DATA DUMYI/ 162 1 .250, .300, .330, .380, .415, .445, .500, .560, 163 2 .600, .620, .635, .640, .750, .780, .800, .820, 164 3 .820, .825, .980, .990, 1.000, 1.020, 1.020, 1.020, 165 4 1.190, 1.200, 1.200, 1.210, 1.220, 1.225, 1.380, 1.390, 166 5 1.400, 1.410, 1.420, 1.420, 167 6 .340, .380, .410, .460, .500, .540, .680, .700, 168 7 .730, .770, .790, .840, .950, .990, 1.010, 1.050, 169 8 1.080, 1.120, 1.200, 1.240, 1.290, 1.330, 1.370, 1.420, 170 9 1.440, 1.500, 1.550, 1.610, 1.670, 1.720, 1.680, 1.760, 171 A 1.820, 1.890, 1.950, 2.020/ 172 DATA DUMYJ/ 173 1 .415, .410, .400, .385, .370, .345, .500, .500, 174 2 .495, .485, .480, .470, .585, .580, .580, .575, 175 3 .570, .560, .670, .670, .670, .670, .670, .670, 176 4 .750, .750, .755, .760, .765, .775, .830, .840, 177 5 .845, .855, .870, .895, 178 6 .460, .455, .445, .420, .390, .360, .575, .575, 179 7 .570, .560, .545, .530, .695, .695, .690, .685, 180 8 .680, .665, .800, .805, .805, .810, .815, .815, 181 9 .920, .930, .935, .945, .970, .955, 1.040, 1.045, 182 A 1.050, 1.075, 1.110, 1.105/ 183 DATA DUMYK/ 184 1 .475, .465, .450, .430, .400, .370, .600, .600, 185 2 .595, .585, .575, .550, .725, .730, .730, .725, 186 3 .715, .690, .850, .850, .855, .865, .870, .850, 187 4 .970, .975, .980, 1.000, 1.020, 1.010, 1.110, 1.110, 188 5 1.110, 1.130, 1.180, 1.160, 189 6 .500, .490, .470, .450, .425, .390, .640, .635, 190 7 .630, .620, .600, .580, .770, .775, .780, .775, 191 8 .765, .740, .920, .915, .920, .930, .935, .900, 192 9 1.050, 1.055, 1.060, 1.080, 1.105, 1.080, 1.195, 1.200, 193 A 1.205, 1.225, 1.265, 1.255/ 194 DATA DUMYL/ 195 1 .550, .535, .525, .500, .475, .445, .720, .715, 196 2 .710, .690, .670, .640, .890, .890, .890, .885, 197 3 .870, .825, 1.060, 1.050, 1.050, 1.060, 1.065, 1.020, 198 4 1.215, 1.215, 1.220, 1.245, 1.270, 1.225, 1.380, 1.380, 199 5 1.395, 1.420, 1.470, 1.420, 200 6 .760, .730, .700, .650, .600, .540, 1.000, 1.000, 201 7 .970, .930, .890, .840, 1.240, 1.230, 1.230, 1.220, 202 8 1.190, 1.120, 1.500, 1.480, 1.480, 1.490, 1.470, 1.420, 203 9 1.750, 1.720, 1.730, 1.760, 1.780, 1.720, 2.000, 1.970, 204 A 1.980, 2.020, 2.070, 2.020/ 205C 206C ****** FIGURE 4.1.4.2-30(A),(B),(C),(D) ****** 207C 208 DATA T425AD/ 209 10.,.75,1.,1.25,2.,3.,6.,2*0., 210 20.,1.,2.,3.,4.,5.,6.,10.,15., 211 3-2.0000001,-1.0,0.0,1.0000001,5*0., 212 40.,.2,.5/ 213 DATA DUMY1/ 214 1 0., .100, .125, .140, .160, .173, .210, .175, 215 2 .230, .260, .264, .280, .300, .370, .340, .375, 216 3 .390, .392, .400, .412, .450, .496, .504, .509, 217 4 .510, .518, .530, .565, .655, .625, .623, .623, 218 5 .625, .627, .630, .810, .735, .735, .732, .729, 219 6 .725, .705, .970, .855, .845, .835, .835, .825, 220 7 .805, 1.610, 1.280, 1.260, 1.245, 1.215, 1.170, 1.035, 221 8 2.405, 1.800, 1.725, 1.705, 1.635, 1.555, 1.280/ 222 DATA DUMY2/ 223 1 0., .090, .115, .140, .168, .200, .290, .173, 224 2 .245, .270, .288, .305, .320, .365, .340, .390, 225 3 .405, .425, .435, .445, .490, .500, .525, .530, 226 4 .533, .540, .553, .585, .664, .650, .652, .654, 227 5 .660, .667, .685, .815, .780, .776, .776, .778, 228 6 .780, .785, .970, .900, .880, .880, .880, .880, 229 7 .880, 1.610, 1.400, 1.325, 1.270, 1.280, 1.290, 1.310, 230 8 2.410, 1.980, 1.840, 1.720, 1.745, 1.765, 1.840/ 231 DATA DUMY3/ 232 1 0., .110, .150, .199, .199, .199, .199, .180, 233 2 .260, .285, .310, .321, .321, .321, .350, .405, 234 3 .427, .440, .445, .445, .445, .500, .533, .543, 235 4 .550, .550, .550, .550, .665, .663, .662, .661, 236 5 .660, .660, .660, .818, .793, .788, .780, .780, 237 6 .780, .780, .975, .923, .905, .890, .890, .890, 238 7 .890, 1.615, 1.430, 1.380, 1.320, 1.320, 1.320, 1.320, 239 8 2.415, 2.080, 1.960, 1.845, 1.845, 1.845, 1.845/ 240 DATA DUMY4/ 241 1 0., .120, .165, .200, .200, .200, .200, .175, 242 2 .275, .300, .324, .324, .324, .324, .335, .417, 243 3 .445, .445, .445, .445, .445, .500, .548, .548, 244 4 .548, .548, .548, .548, .665, .665, .665, .665, 245 5 .665, .665, .665, .815, .775, .775, .775, .775, 246 6 .775, .775, .985, .880, .880, .880, .880, .880, 247 7 .880, 1.630, 1.280, 1.280, 1.280, 1.280, 1.280, 1.280, 248 8 2.435, 1.730, 1.730, 1.730, 1.730, 1.730, 1.730/ 249 DATA DUMY5/ 250 1 0., .120, .135, .150, .168, .186, .240, .200, 251 2 .270, .280, .284, .296, .315, .375, .400, .425, 252 3 .426, .430, .440, .450, .483, .600, .575, .575, 253 4 .575, .576, .577, .589, .795, .730, .718, .719, 254 5 .720, .721, .725, .980, .860, .837, .835, .830, 255 6 .825, .805, 1.175, 1.020, .980, .975, .965, .955, 256 7 .910, 1.955, 1.590, 1.470, 1.405, 1.400, 1.390, 1.370, 257 8 2.930, 2.360, 2.160, 1.960, 1.940, 1.910, 1.830/ 258 DATA DUMY6/ 259 1 0., .085, .120, .145, .186, .215, .295, .205, 260 2 .270, .300, .325, .348, .368, .430, .400, .449, 261 3 .470, .485, .495, .510, .530, .600, .610, .614, 262 4 .618, .632, .649, .700, .800, .778, .770, .773, 263 5 .780, .794, .830, .978, .935, .915, .916, .919, 264 6 .919, .919, 1.165, 1.085, 1.060, 1.060, 1.055, 1.050, 265 7 1.045, 1.940, 1.750, 1.695, 1.645, 1.620, 1.585, 1.480, 266 8 2.905, 2.505, 2.485, 2.450, 2.380, 2.275, 1.965/ 267 DATA DUMY7/ 268 1 0., .125, .175, .210, .215, .215, .215, .200, 269 2 .290, .320, .355, .360, .360, .360, .400, .465, 270 3 .485, .505, .510, .510, .510, .600, .630, .640, 271 4 .648, .650, .650, .650, .800, .795, .794, .793, 272 5 .793, .793, .793, .980, .940, .925, .910, .910, 273 6 .910, .910, 1.175, 1.070, 1.040, 1.040, 1.040, 1.040, 274 7 1.040, 1.960, 1.610, 1.490, 1.490, 1.490, 1.490, 1.490, 275 8 2.940, 2.240, 2.000, 2.000, 2.000, 2.000, 2.000/ 276 DATA DUMY8/ 277 1 0., .150, .200, .237, .237, .237, .237, .200, 278 2 .320, .370, .382, .382, .382, .382, .400, .490, 279 3 .523, .523, .523, .523, .523, .600, .640, .650, 280 4 .650, .650, .650, .650, .800, .782, .780, .780, 281 5 .780, .780, .780, .980, .895, .888, .888, .888, 282 6 .888, .888, 1.175, 1.040, 1.000, 1.000, 1.000, 1.000, 283 7 1.000, 1.960, 1.540, 1.420, 1.420, 1.420, 1.420, 1.420, 284 8 2.940, 1.910, 1.910, 1.910, 1.910, 1.910, 1.910/ 285 DATA DUMY9/ 286 1 0., .120, .150, .163, .178, .195, .255, .260, 287 2 .335, .350, .351, .365, .385, .430, .500, .530, 288 3 .535, .540, .550, .565, .610, .753, .738, .738, 289 4 .738, .735, .735, .725, .975, .912, .908, .904, 290 5 .894, .884, .845, 1.220, 1.140, 1.110, 1.080, 1.060, 291 6 1.040, .960, 1.460, 1.330, 1.280, 1.240, 1.210, 1.180, 292 7 1.090, 2.420, 2.070, 1.960, 1.840, 1.785, 1.725, 1.520, 293 8 3.600, 3.180, 3.040, 2.900, 2.480, 2.365, 2.000/ 294 DATA DUMY10/ 295 1 0., .095, .140, .173, .230, .278, .420, .260, 296 2 .34, .370, .394, .420, .455, .550, .510, .560, 297 3 .585, .593, .610, .634, .705, .750, .775, .780, 298 4 .786, .798, .810, .850, .980, .955, .950, .950, 299 5 .948, .945, .935, 1.180, 1.105, 1.097, 1.094, 1.080, 300 6 1.065, 1.015, 1.385, 1.270, 1.240, 1.230, 1.220, 1.205, 301 7 1.170, 2.150, 1.860, 1.760, 1.650, 1.640, 1.620, 1.560, 302 8 3.050, 2.500, 2.310, 2.140, 2.115, 2.085, 2.000/ 303 DATA DUMY11/ 304 1 0., .150, .200, .260, .275, .275, .275, .260, 305 2 .370, .405, .445, .455, .455, .455, .510, .583, 306 3 .605, .630, .634, .634, .634, .755, .788, .800, 307 4 .800, .800, .800, .800, .980, .960, .950, .943, 308 5 .943, .943, .943, 1.175, 1.110, 1.093, 1.064, 1.064, 309 6 1.064, 1.064, 1.360, 1.240, 1.210, 1.163, 1.163, 1.163, 310 7 1.163, 2.070, 1.750, 1.645, 1.540, 1.540, 1.540, 1.540, 311 8 2.910, 2.320, 2.125, 1.940, 1.940, 1.940, 1.940/ 312 DATA DUMY12/ 313 1 0., .165, .245, .280, .280, .280, .280, .260, 314 2 .405, .475, .475, .475, .475, .475, .510, .610, 315 3 .650, .650, .650, .650, .650, .755, .800, .820, 316 4 .820, .820, .820, .820, .980, .961, .960, .960, 317 5 .960, .960, .960, 1.180, 6*1.08, 318 6 1.370, 1.250, 1.250, 1.250, 1.250, 1.250, 319 7 1.250, 2.090, 1.780, 1.780, 1.780, 1.780, 1.780, 1.780, 320 8 2.910, 2.400, 2.400, 2.400, 2.400, 2.400, 2.400/ 321C 322C ****** FIGURE 4.1.4.2-33 323C 324 DATA T428/ 325 10.,6.6,10.,14.,3*0., 326 20.,1.7,2.0,2.5,3.0,4.0,6.0/ 327 DATA D428/ 328 1 0., 0., 0., 0., 0., 0., 0., 0., 329 2 0., 0., -.100, -.220, 0., 0., -.210, -.450, 330 3 0., 0., -.305, -.665, 0., 0., -.475, -1.040, 331 4 0., 0., -.650, -1.410/ 332C 333C *** WING ALONE *** 334C *** TOVC .LE.0.07 *** 335C FIGURE 4.1.4.2-30A-D (XAC/CR) 336C 337 VAR(1)=ARSTAR*(TOVC)**0.3333 338 VAR(2)=ARSTAR*TANLE 339 VAR(4)=TAPR 340 LGH(1)=7 341 LGH(2)=9 342 LGH(3)=4 343 LGH(4)=3 344 VBAR(1)=-2. 345 VBAR(2)=-1. 346 VBAR(3)=0. 347 VBAR(4)=1. 348 DO 1000 I=2,5 349 XMV(I)=SQRT(1.+VBAR(I-1)*TOVC**.6666) 350 VAR(3)=VBAR(I-1) 351 1000 CALL TLIN4X(T425AD(10 ),T425AD(1 ),T425AD(19 ),T425AD(28 ),D425AD 352 1,LGH(2),LGH(1),LGH(3),LGH(4),VAR(2),VAR(1),VAR(3),VAR(4),XACV(I), 353 20,0,0,0,2,1,0,1,Q225AD,3,ROUTID) 354 IF(WGPL.AND.(.NOT.BO))DXCG=XCG-XW 355 XMV(1)=0.60 356 XMV(6)=1.40 357C 358C FIGURE 4.1.4.2-26A-F 359C 360 LGH(1)=6 361 LGH(2)=6 362 LGH(3)=6 363 VAR(3)=TAPR 364 DO 1030 I=1,3 365 ARG1=TANLE/SQRT(1.0-XM(I)**2) 366 IF(ARG1.GT.1.)GO TO 1010 367 VAR(1)=ARG1 368 CALL INTERX(3,T422AF,VAR,LGH,SUBAF1,XACV(1),6,216, 369 1 0,2,0,0,0,2,0,0,Q222AF,3,ROUTID) 370 GO TO 1020 371 1010 VAR(1)=1./ARG1 372 CALL INTERX(3,T422AF,VAR,LGH,SUBAF2,XACV(1),6,216, 373 1 0,2,0,0,0,2,0,0,Q222AF,3,ROUTID) 374 1020 CONTINUE 375 IF(I.EQ.1)DXAC1=XACV(1) 376 IF(I.EQ.2)DXAC1=(XACV(1)-DXAC1)/0.2 377 1030 CONTINUE 378C 379 DO 1060 I=4,6 380 ARG=SQRT(XM(I)**2-1.0)/TANLE 381 IF(ARG.GT.1.)GO TO 1040 382 VAR(1)=ARG 383 CALL INTERX(3,T422AF,VAR,LGH,SUPAF1,XACV(6),6,216, 384 1 0,2,0,0,0,2,0,0,Q222AF,3,ROUTID) 385 GO TO 1050 386 1040 VAR(1)=1./ARG 387 CALL INTERX(3,T422AF,VAR,LGH,SUPAF2,XACV(6),6,216, 388 1 0,2,0,0,0,2,0,0,Q222AF,3,ROUTID) 389 1050 CONTINUE 390 IF(I.EQ.4)DXAC2=XACV(6) 391 IF(I.EQ.5)DXAC2=(XACV(6)-DXAC2)/0.2 392 1060 CONTINUE 393 CALL TRANAC(6,XMV,XACV,DXAC1,DXAC2,0.0,MACH,XAC) 394 IF(TOVC.LE.0.07)GO TO 1080 395C 396C *** TOVC .GT.0.07 *** 397C FIGURE 4.1.4.2-33 DELTA XAC 398C 399 VAR(1)=TOVC*100. 400 VAR(2)=ARSTAR*COSC2**2 401 LGH(1)=4 402 LGH(2)=7 403 CALL INTERX(2,T428,VAR,LGH,D428,DELXAC,7,28, 404 1 0,-1,0,0,1,0,0,0,Q14228,3,ROUTID) 405 ZMT(1)=0.60 406 ZMT(2)=(MFB+.6)/2. 407 ZMT(3)=MFB 408 ZMT(4)=MFB+.03 409 ZMT(5)=MFB+.07 410 ZMT(6)=MFB+.14 411 ZMT(7)=XMV(5) 412 IF((ZMT(6)+0.01).GE.ZMT(7))ZMT(7)=(1.4+ZMT(6))/2.0 413 ZMT(8)=1.4 414 LGH(1) =6 415 DO 1070 I=1,8 416 CALL TRANAC(6,XMV,XACV,DXAC1,DXAC2,0.0,ZMT(I),XACP(I)) 417 1070 CONTINUE 418 CALL TRANAC(8,ZMT,XACP,DXAC1,DXAC2,DELXAC,MACH,XAC) 419 1080 XACW=XAC*CRSTAR/CBARR 420 CMAW=(DXCG/CBARR-XACW)*CLAW 421 IF(.NOT.BO)RETURN 422C 423C *** WING-BODY *** 424C 425 CALL HBTRAN(NZ) 426 CALL WBCM1(A,WINGIN,BD,WB) 427 ARG1= ABS(XACBW4-XACBW6)/0.80 428 XACBW= XACBW6+ARG1*(MACH-0.60) 429 CNOB=(-CMAB/CLAB*CBARR+DXCG)*CLAB/CBARR 430 DNUM = CNOB+XACW*CLAWB+XACBW*CLABW 431 DNOM= CLAB+CLAWB+CLABW 432 XACWB=DNUM/DNOM 433 CMAWB=(DXCG/CBARR-XACWB)*CLAWBD 434 RETURN 435 END 436