1 BLOCK DATA BLOCKD 2C 3C SET PROGRAM CONSTANTS 4C 5 COMMON /IBODY/ PBODY, LEN2(18),LDM2(18),FLTCON(81),DUM1(283) 6 COMMON /BODYI/ LEN3(4),LDM3(4),OPTINS(20),DUM2(101) 7 COMMON /IHT/ PHT, LEN4(15),LDM4(15),BODY(44),DUM3(306) 8 COMMON /IVT/ PVT, LEN5(21),LDM5(21),PLNF(103),DUM4(235) 9 COMMON /IBW/ PBW, LEN6(36),LDM6(36),SCHR(170),DUM5(138) 10 COMMON /IBH/ PBH, LEN7(19),LDM7(19),SYNTHS(60),DUM6(282) 11 COMMON /IBV/ PBV, LENC(14),LDMC(14),PRPOWR(78),DUM7(274) 12 COMMON /IBWH/ PBWH, LEND(15),LDMD(15),JETPWR(89),DUM8(261) 13 COMMON /IBWV/ PBWV, LENE(21),LDME(21),LARWB(89),DUM9(249) 14 COMMON /IPOWER/ PPOWR, LENF(2),LDMF(2),GRNDEF(8),DUM10(188) 15 COMMON /IDWASH/ PDWAS, LENG(8),LDMG(8),TVTPAN(23),DUM11(21) 16 COMMON /IBWHV/ PBWHV, LENH(32),LDMH(32),EXPR(131),DUM12(185) 17 COMMON /IWING/ PWING, LENI(27),LDMI(27),SYMFLP(139),DUM13(207) 18 COMMON /VTI/ LENJ(14),LDMJ(14),ASYFLP(78),DUM14(210) 19 COMMON /WINGI/ LENK(7),LDMK(7),HYPEFF(32),DUM15(55) 20 COMMON /HTI/ LENL(12),LDML(12),TRNJET(38),DUM16(92) 21 COMMON /IVF/ PVF, LENM(22),LDMM(22),CONTAB(76),DUM17(260) 22 COMMON /CONSNT/ CONST(5) 23C 24 INTEGER FLTCON, OPTINS, BODY, PLNF, SCHR, PRPOWR, SYNTHS, 25 1 JETPWR, LARWB, GRNDEF, TVTPAN, EXPR, SYMFLP, 26 2 ASYFLP, HYPEFF, TRNJET, CONTAB 27C 28 DIMENSION SCH1(158),SCH2(12) 29 EQUIVALENCE (SCH1(1),SCHR(1)),(SCH2(1),SCHR(159)) 30C 31C 32 DATA CONST / 3.141592654,0.01745329,1.E-30,57.2957795,4H$ / 33C 34 DATA LEN2 / 5,4,6,6,5,6,4,6,6,2,3,4,4,2,5,4,4,5 / 35 DATA LDM2 / 1,20,1,20,20,-1,20,3*1,3*20,4*1,20 / 36 DATA FLTCON / 4HN ,4HM ,4HA ,4HC ,4HH ,4HM , 37 1 4HA ,4HC ,4HH ,4HN ,4HA ,4HL ,4HP ,4HH , 38 2 4HA ,4HA ,4HL ,4HS ,4HC ,4HH ,4HD ,4HR , 39 3 4HN ,4HN ,4HU ,4HB ,4HH ,4HY ,4HP ,4HE , 40 4 4HR ,4HS ,4HP ,4HI ,4HN ,4HF ,4HS ,4HT , 41 5 4HM ,4HA ,4HC ,4HH ,4HT ,4HS ,4HM ,4HA , 42 6 4HC ,4HH ,4HT ,4HR ,4HA ,4HL ,4HT ,4HT , 43 7 4HI ,4HN ,4HF ,4HV ,4HI ,4HN ,4HF ,4HW , 44 8 4HT ,4HG ,4HA ,4HM ,4HM ,4HA ,4HN ,4HA , 45 9 4HL ,4HT ,4HL ,4HO ,4HO ,4HP ,4HA ,4HL , 46 A 4HP ,4HH ,4HA / 47C 48 DATA LEN3 / 4,5,6,5 / 49 DATA LDM3 / 4*1 / 50 DATA OPTINS / 4HS ,4HR ,4HE ,4HF ,4HC ,4HB , 51 1 4HA ,4HR ,4HR ,4HR ,4HO ,4HU ,4HG ,4HF , 52 2 4HC ,4HB ,4HL ,4HR ,4HE ,4HF / 53C 54 DATA LEN4 / 2,4*1,2,2,5,5,3,3,2,5,6,5 / 55 DATA LDM4 / 1,6*20,8*1 / 56 DATA BODY / 4HN ,4HX ,4HX ,4HS ,4HP ,4HR , 57 1 4HZ ,4HU ,4HZ ,4HL ,4HB ,4HN ,4HO ,4HS , 58 2 4HE ,4HB ,4HT ,4HA ,4HI ,4HL ,4HB ,4HL , 59 3 4HN ,4HB ,4HL ,4HA ,4HD ,4HS ,4HI ,4HT , 60 4 4HY ,4HP ,4HE ,4HM ,4HE ,4HT ,4HH ,4HO , 61 5 4HD ,4HE ,4HL ,4HL ,4HI ,4HP / 62C 63 DATA LEN5 / 6,5,6,6,4,5,6,3*5,6,4,3*6,3,3*4,3,4 / 64 DATA LDM5 / 15*1,6*20 / 65 DATA PLNF / 4HC ,4HH ,4HR ,4HD ,4HB ,4HP , 66 1 4HC ,4HH ,4HR ,4HD ,4HR ,4HC ,4HH ,4HR , 67 2 4HD ,4HT ,4HP ,4HC ,4HH ,4HS ,4HT ,4HA , 68 3 4HT ,4HS ,4HS ,4HP ,4HN ,4HS ,4HS ,4HP , 69 4 4HN ,4HE ,4HS ,4HS ,4HP ,4HN ,4HO ,4HP , 70 5 4HS ,4HA ,4HV ,4HS ,4HI ,4HS ,4HA ,4HV , 71 6 4HS ,4HO ,4HS ,4HW ,4HA ,4HF ,4HP ,4HT , 72 7 4HW ,4HI ,4HS ,4HT ,4HA ,4HT ,4HY ,4HP , 73 8 4HE ,4HS ,4HS ,4HP ,4HN ,4HD ,4HD ,4HD , 74 9 4HH ,4HD ,4HA ,4HD ,4HI ,4HD ,4HH ,4HD , 75 A 4HA ,4HD ,4HO ,4HS ,4HH ,4HB ,4HS ,4HE , 76 B 4HX ,4HT ,4HR ,4HL ,4HP ,4HH ,4HS ,4HV , 77 C 4HW ,4HB ,4HS ,4HV ,4HB ,4HS ,4HV ,4HH , 78 D 4HB / 79C 80 DATA LEN6 / 4,6,4,3,6,6,5,6,3,5,4,4,4,5,3,4,5,6,6,5,5,5,3, 81 1 5,6,4,5,6,6,4,5,3,3,4,6,6 / 82 DATA LDM6 / 5*1,20,20,-1,11*1,6,1,1,20,3*1,5*50,5*1 / 83 DATA SCH1 / 4HT ,4HO ,4HV ,4HC ,4HD ,4HE , 84 1 4HL ,4HT ,4HA ,4HY ,4HX ,4HO ,4HV ,4HC , 85 2 4HC ,4HL ,4HI ,4HA ,4HL ,4HP ,4HH ,4HA , 86 3 4HI ,4HC ,4HL ,4HA ,4HL ,4HP ,4HA ,4HC , 87 4 4HL ,4HM ,4HA ,4HX ,4HC ,4HA ,4HM ,4HB , 88 5 4HE ,4HR ,4HC ,4HM ,4H0 ,4HX ,4HO ,4HV , 89 6 4HC ,4HO ,4HC ,4HM ,4H0 ,4HT ,4HL ,4HE , 90 7 4HR ,4HI ,4HL ,4HE ,4HR ,4HO ,4HT ,4HO , 91 8 4HV ,4HC ,4HO ,4HC ,4HM ,4HO ,4HC ,4HM , 92 9 4HO ,4HT ,4HT ,4HC ,4HE ,4HF ,4HF ,4HK , 93 A 4HS ,4HH ,4HA ,4HR ,4HP ,4HC ,4HL ,4HM , 94 B 4HA ,4HX ,4HL ,4HS ,4HL ,4HO ,4HP ,4HE , 95 C 4HC ,4HL ,4HA ,4HM ,4HO ,4HC ,4HL ,4HA , 96 D 4HM ,4H0 ,4HX ,4HA ,4HC ,4HD ,4HW ,4HA , 97 E 4HS ,4HH ,4HT ,4HY ,4HP ,4HE ,4HI ,4HN , 98 F 4HN ,4HP ,4HT ,4HS ,4HX ,4HC ,4HO ,4HR , 99 G 4HD ,4HY ,4HU ,4HP ,4HP ,4HE ,4HR ,4HY , 100 H 4HL ,4HO ,4HW ,4HE ,4HR ,4HM ,4HE ,4HA , 101 I 4HN ,4HT ,4HH ,4HI ,4HC ,4HK ,4HY ,4HC , 102 J 4HM ,4HC ,4HL ,4HD ,4HA ,4HR ,4HC ,4HL / 103 DATA SCH2 / 4HA ,4HL ,4HP ,4HH ,4HA ,4HO , 104 1 4HA ,4HL ,4HP ,4HH ,4HA ,4H0 / 105C 106 DATA LEN7 / 3,2,2,4,3,2,2,4,2,6,5,3,5,2,3,2,2,4,4 / 107 DATA LDM7 / 9*1,-1,9*1 / 108 DATA SYNTHS / 4HX ,4HC ,4HG ,4HX ,4HW ,4HZ , 109 1 4HW ,4HA ,4HL ,4HI ,4HW ,4HZ ,4HC ,4HG , 110 2 4HX ,4HH ,4HZ ,4HH ,4HA ,4HL ,4HI ,4HH , 111 3 4HX ,4HV ,4HV ,4HE ,4HR ,4HT ,4HU ,4HP , 112 4 4HH ,4HI ,4HN ,4HA ,4HX ,4HX ,4HV ,4HF , 113 5 4HS ,4HC ,4HA ,4HL ,4HE ,4HZ ,4HV ,4HZ , 114 6 4HV ,4HF ,4HY ,4HV ,4HY ,4HF ,4HP ,4HH , 115 7 4HI ,4HV ,4HP ,4HH ,4HI ,4HF / 116C 117 DATA LENC / 12*6,4,2 / 118 DATA LDMC / 12*1,-1,1 / 119 DATA PRPOWR / 4HA ,4HI ,4HE ,4HT ,4HL ,4HP , 120 1 4HN ,4HE ,4HN ,4HG ,4HS ,4HP ,4HT ,4HH , 121 2 4HS ,4HT ,4HC ,4HP ,4HP ,4HH ,4HA ,4HL , 122 3 4HO ,4HC ,4HP ,4HH ,4HV ,4HL ,4HO ,4HC , 123 4 4HP ,4HR ,4HP ,4HR ,4HA ,4HD ,4HE ,4HN , 124 5 4HG ,4HF ,4HC ,4HT ,4HB ,4HW ,4HA ,4HP , 125 6 4HR ,4H3 ,4HB ,4HW ,4HA ,4HP ,4HR ,4H6 , 126 7 4HB ,4HW ,4HA ,4HP ,4HR ,4H9 ,4HN ,4HO , 127 8 4HP ,4HB ,4HP ,4HE ,4HB ,4HA ,4HP ,4HR , 128 9 4H7 ,4H5 ,4HC ,4HR ,4HO ,4HT ,4HY ,4HP / 129C 130 DATA LEND / 14*6,5 / 131 DATA LDMD / 15*1 / 132 DATA JETPWR / 4HA ,4HI ,4HE ,4HT ,4HL ,4HJ , 133 1 4HN ,4HE ,4HN ,4HG ,4HS ,4HJ ,4HT ,4HH , 134 2 4HS ,4HT ,4HC ,4HJ ,4HJ ,4HI ,4HA ,4HL , 135 3 4HO ,4HC ,4HJ ,4HE ,4HV ,4HL ,4HO ,4HC , 136 4 4HJ ,4HE ,4HA ,4HL ,4HO ,4HC ,4HJ ,4HI , 137 5 4HN ,4HL ,4HT ,4HA ,4HJ ,4HE ,4HA ,4HN , 138 6 4HG ,4HL ,4HJ ,4HE ,4HV ,4HE ,4HL ,4HO , 139 7 4HA ,4HM ,4HB ,4HT ,4HM ,4HP ,4HJ ,4HE , 140 8 4HS ,4HT ,4HM ,4HP ,4HJ ,4HE ,4HL ,4HL , 141 9 4HO ,4HC ,4HJ ,4HE ,4HT ,4HO ,4HT ,4HP , 142 A 4HA ,4HM ,4HB ,4HS ,4HT ,4HP ,4HJ ,4HE , 143 B 4HR ,4HA ,4HD / 144C 145 DATA LENE / 2,4,6,6,2,6,6,1,4,6,5,2,2,3,3,6,6,3,5,6,5 / 146 DATA LDME / 13*1,-1,1,1,-1,4*1 / 147 DATA LARWB / 4HZ ,4HB ,4HS ,4HR ,4HE ,4HF , 148 1 4HD ,4HE ,4HL ,4HT ,4HE ,4HP ,4HS ,4HF , 149 2 4HR ,4HO ,4HN ,4HT ,4HA ,4HR ,4HR ,4H3 , 150 3 4HL ,4HE ,4HO ,4HB ,4HD ,4HE ,4HL ,4HT , 151 4 4HA ,4HL ,4HL ,4HS ,4HW ,4HE ,4HT ,4HP , 152 5 4HE ,4HR ,4HB ,4HA ,4HS ,4HS ,4HB ,4HA , 153 6 4HS ,4HE ,4HH ,4HB ,4HB ,4HB ,4HB ,4HL , 154 7 4HF ,4HX ,4HC ,4HG ,4HT ,4HH ,4HE ,4HT , 155 8 4HA ,4HD ,4HR ,4HO ,4HU ,4HN ,4HD ,4HN , 156 9 4HS ,4HB ,4HS ,4HS ,4HB ,4HS ,4HL ,4HB , 157 A 4HX ,4HC ,4HE ,4HN ,4HS ,4HB ,4HX ,4HC , 158 B 4HE ,4HN ,4HW / 159C 160 DATA LENF / 3,5 / 161 DATA LDMF / 1,20 / 162 DATA GRNDEF / 4HN ,4HG ,4HH ,4HG ,4HR ,4HD , 163 1 4HH ,4HT / 164C 165 DATA LENG / 3,2,3,2,2,6,3,2 / 166 DATA LDMG / 8*1 / 167 DATA TVTPAN / 4HB ,4HV ,4HP ,4HB ,4HV ,4HB , 168 1 4HD ,4HV ,4HB ,4HH ,4HS ,4HV ,4HV ,4HP , 169 2 4HH ,4HI ,4HT ,4HE ,4HV ,4HL ,4HP ,4HZ , 170 3 4HP / 171C 172 DATA LENH / 3*3,4,4,3*3,4,4,3*3,5*4,5,5,6,6,5,3,5*5,4,5,4 / 173 DATA LDMH / 23*20,9*1 / 174 DATA EXPR / 4HC ,4HD ,4HB ,4HC ,4HL ,4HB , 175 1 4HC ,4HM ,4HB ,4HC ,4HL ,4HA ,4HB ,4HC , 176 2 4HM ,4HA ,4HB ,4HC ,4HD ,4HW ,4HC ,4HL , 177 3 4HW ,4HC ,4HM ,4HW ,4HC ,4HL ,4HA ,4HW , 178 4 4HC ,4HM ,4HA ,4HW ,4HC ,4HD ,4HH ,4HC , 179 5 4HL ,4HH ,4HC ,4HM ,4HH ,4HC ,4HL ,4HA , 180 6 4HH ,4HC ,4HM ,4HA ,4HH ,4HC ,4HD ,4HW , 181 7 4HB ,4HC ,4HL ,4HW ,4HB ,4HC ,4HM ,4HW , 182 8 4HB ,4HC ,4HL ,4HA ,4HW ,4HB ,4HC ,4HM , 183 9 4HA ,4HW ,4HB ,4HQ ,4HO ,4HQ ,4HI ,4HN , 184 A 4HF ,4HE ,4HP ,4HS ,4HL ,4HO ,4HN ,4HD , 185 B 4HE ,4HO ,4HD ,4HA ,4HC ,4HD ,4HV ,4HA , 186 C 4HL ,4HP ,4HO ,4HW ,4HA ,4HL ,4HP ,4HL , 187 D 4HW ,4HA ,4HL ,4HP ,4HO ,4HH ,4HA ,4HL , 188 E 4HP ,4HL ,4HH ,4HA ,4HC ,4HL ,4HM ,4HW , 189 F 4HC ,4HL ,4HM ,4HW ,4HA ,4HC ,4HL ,4HM , 190 G 4HH ,4HC ,4HL ,4HM ,4HH / 191C 192 DATA LENI / 6*6,3*5,4,2,2,4,5,6,6,4,4,3,8*6 / 193 DATA LDMI / 13*1,5*10,1,10,1,4*10,2*1 / 194 DATA SYMFLP / 4HC ,4HH ,4HR ,4HD ,4HF ,4HI , 195 1 4HC ,4HH ,4HR ,4HD ,4HF ,4HO ,4HS ,4HP , 196 2 4HA ,4HN ,4HF ,4HI ,4HS ,4HP ,4HA ,4HN , 197 3 4HF ,4HO ,4HN ,4HD ,4HE ,4HL ,4HT ,4HA , 198 4 4HP ,4HH ,4HE ,4HT ,4HE ,4HP ,4HP ,4HH , 199 5 4HE ,4HT ,4HE ,4HF ,4HT ,4HY ,4HP ,4HE , 200 6 4HN ,4HT ,4HY ,4HP ,4HE ,4HS ,4HC ,4HH , 201 7 4HA ,4HC ,4HB ,4HT ,4HC ,4HS ,4HC ,4HH , 202 8 4HD ,4HD ,4HE ,4HL ,4HT ,4HA ,4HC ,4HP , 203 9 4HR ,4HM ,4HE ,4HI ,4HC ,4HP ,4HR ,4HM , 204 A 4HE ,4HO ,4HS ,4HC ,4HL ,4HD ,4HS ,4HC , 205 B 4HM ,4HD ,4HC ,4HM ,4HU ,4HD ,4HE ,4HL , 206 C 4HJ ,4HE ,4HT ,4HJ ,4HE ,4HT ,4HF ,4HL , 207 D 4HP ,4HE ,4HF ,4HF ,4HJ ,4HE ,4HT ,4HC , 208 E 4HA ,4HP ,4HI ,4HN ,4HB ,4HC ,4HA ,4HP , 209 F 4HO ,4HU ,4HT ,4HD ,4HO ,4HB ,4HD ,4HE , 210 G 4HF ,4HD ,4HO ,4HB ,4HC ,4HI ,4HN ,4HD , 211 H 4HO ,4HB ,4HC ,4HO ,4HT / 212C 213 DATA LENJ / 4*6,4,4,5,6*6,5 / 214 DATA LDMJ / 6*10,8*1 / 215 DATA ASYFLP / 4HD ,4HE ,4HL ,4HT ,4HA ,4HL , 216 1 4HD ,4HE ,4HL ,4HT ,4HA ,4HR ,4HD ,4HE , 217 2 4HL ,4HT ,4HA ,4HD ,4HD ,4HE ,4HL ,4HT , 218 3 4HA ,4HS ,4HX ,4HS ,4HO ,4HC ,4HH ,4HS , 219 4 4HO ,4HC ,4HS ,4HT ,4HY ,4HP ,4HE ,4HX , 220 5 4HS ,4HP ,4HR ,4HM ,4HE ,4HN ,4HD ,4HE , 221 6 4HL ,4HT ,4HA ,4HC ,4HH ,4HR ,4HD ,4HF , 222 7 4HI ,4HC ,4HH ,4HR ,4HD ,4HF ,4HO ,4HS , 223 8 4HP ,4HA ,4HN ,4HF ,4HI ,4HS ,4HP ,4HA , 224 9 4HN ,4HF ,4HO ,4HP ,4HH ,4HE ,4HT ,4HE / 225C 226 DATA LENK / 5,3,5,2,5,6,6 / 227 DATA LDMK / 4*1,-1,1,10 / 228 DATA HYPEFF / 4HA ,4HL ,4HI ,4HT ,4HD ,4HX , 229 1 4HH ,4HL ,4HT ,4HW ,4HO ,4HT ,4HI ,4HC , 230 2 4HF ,4HL ,4HA ,4HM ,4HN ,4HR ,4HH ,4HN , 231 3 4HD ,4HL ,4HT ,4HA ,4HH ,4HD ,4HE ,4HL , 232 4 4HT ,4HA / 233C 234 DATA LENL / 4,2,5,6,2,2,3,4,3,2,2,3 / 235 DATA LDML / 3*10,-10,8*1 / 236 DATA TRNJET / 4HT ,4HI ,4HM ,4HE ,4HF ,4HC , 237 1 4HA ,4HL ,4HP ,4HH ,4HA ,4HL ,4HA ,4HM , 238 2 4HN ,4HR ,4HJ ,4HN ,4HT ,4HM ,4HE ,4HI , 239 3 4HS ,4HP ,4HS ,4HP ,4HA ,4HN ,4HP ,4HH , 240 4 4HE ,4HG ,4HP ,4HC ,4HC ,4HL ,4HF ,4HP / 241C 242 DATA LENM / 5*5,4*4,7*2,2*5,2,2,3,4 / 243 DATA LDMM / 22*1 / 244 DATA CONTAB / 4HT ,4HT ,4HY ,4HP ,4HE ,4HC , 245 1 4HF ,4HI ,4HT ,4HC ,4HC ,4HF ,4HO ,4HT , 246 2 4HC ,4HC ,4HF ,4HI ,4HT ,4HT ,4HC ,4HF , 247 3 4HO ,4HT ,4HT ,4HB ,4HI ,4HT ,4HC ,4HB , 248 4 4HO ,4HT ,4HC ,4HB ,4HI ,4HT ,4HT ,4HB , 249 5 4HO ,4HT ,4HT ,4HB ,4H1 ,4HB ,4H2 ,4HB , 250 6 4H3 ,4HB ,4H4 ,4HD ,4H1 ,4HD ,4H2 ,4HD , 251 7 4H3 ,4HG ,4HC ,4HM ,4HA ,4HX ,4H ,4H , 252 8 4H ,4H ,4H ,4HK ,4HS ,4HR ,4HL ,4HB , 253 9 4HG ,4HR ,4HD ,4HE ,4HL ,4HR / 254C 255 END 256