1 SUBROUTINE TBSUB(BT,IM,IA,I,J) 2C 3C*** SUBSONIC CD REGRESION COEFFICIENT TABLES 4C 5 DIMENSION BSUB(864), BT(2,2,16) 6 DIMENSION B0(64),B1(64),B2(64),B3(64),B4(64),B5(64),B6(64),B7(64), 7 1 B8(64),B9(64),B10(64),B11(64),B12(64),B13(32) 8 EQUIVALENCE (BSUB(1),B0(1)),(BSUB(65),B1(1)),(BSUB(129),B2(1)), 9 1 (BSUB(193),B3(1)),(BSUB(257),B4(1)),(BSUB(321),B5(1)),(BSUB(385), 10 2 B6(1)),(BSUB(449),B7(1)),(BSUB(513),B8(1)),(BSUB(577),B9(1)), 11 3 (BSUB(641),B10(1)),(BSUB(705),B11(1)),(BSUB(769),B12(1)), 12 4 (BSUB(833),B13(1)) 13 DATA B0/ 14 * 4.4885930E-04, 1.6466172E-03, 2.6332238E-04,-6.9094193E-04, 15 * 1.9223774E-03,-3.9237479E-05,-1.6659401E-04, 7.8742160E-04, 16 *-2.4286320E-03, 9.9980575E-04,-2.8099894E-05,-1.2679554E-03, 17 *-2.8362144E-02, 2.9298468E-03,-4.7068298E-03,-3.9218809E-05, 18 * 3.5343489E-03, 4.4493303E-03, 4.2463490E-04,-1.0899324E-03, 19 *-1.6224474E-02,-2.8865668E-04,-2.9736874E-04, 4.3430701E-03, 20 *-8.1697032E-03, 2.7710055E-03, 9.4937068E-06,-1.2983710E-02, 21 *-5.1788986E-02, 3.7952278E-02,-8.1924498E-03,-2.2274732E-04, 22 * 1.3167702E-02,-2.3571095E-04, 1.3356669E-04,-2.6622848E-03, 23 *-3.5622340E-02,-4.2594853E-04,-4.6613021E-04, 7.7534169E-03, 24 *-2.0226449E-02, 1.0392413E-02,-3.8002967E-04,-5.3499781E-02, 25 *-7.1050525E-02, 5.7253648E-02,-1.1915766E-02,-3.2953895E-04, 26 * 2.6080940E-02,-5.8881156E-03,-1.4355913E-04,-5.8832504E-03, 27 *-5.9013661E-02,-4.3143658E-04,-6.7898026E-04, 1.6526066E-02, 28 *-4.9525306E-02, 2.7853992E-02,-1.6461264E-03,-1.0679454E-01, 29 *-8.4942102E-02, 7.4417174E-02,-1.5801720E-02,-3.5790936E-04/ 30 DATA B1/ 31 * 4.1089863E-02,-1.0994699E-02, 2.2937305E-04,-6.9373399E-03, 32 *-1.4925289E-01,-8.1930403E-04,-1.2072376E-03, 2.3949113E-02, 33 *-5.9268754E-02, 3.0836698E-02,-2.2214940E-03,-2.8832860E-02, 34 *-9.6811116E-02, 2.2042923E-02,-2.2552278E-02,-4.8507238E-04, 35 * 5.1404808E-02,-4.8175454E-03, 2.2257052E-03,-1.0284252E-02, 36 *-2.4447268E-01,-1.1168574E-03,-1.6828820E-03, 4.2651802E-02, 37 *-1.1423558E-01, 6.5117717E-02,-2.7537793E-03, 1.9132972E-01, 38 *-1.1610109E-01,-1.0823810E-01,-3.2532644E-02,-6.1116740E-04, 39 * 5.7489973E-02, 3.0284515E-05, 5.3919293E-03,-1.1289421E-02, 40 *-3.3546823E-01,-1.3747460E-03,-2.6084271E-03, 6.7769229E-02, 41 *-1.6815060E-01, 9.6094728E-02,-3.0871895E-03, 3.2419640E-01, 42 *-1.4942586E-01,-3.5912198E-01,-4.7611687E-02,-4.9278955E-04, 43 * 7.3792398E-02,-8.9043044E-03, 7.3401928E-03,-1.0492109E-02, 44 *-4.4144338E-01,-1.7494359E-03,-3.2979206E-03, 9.4557822E-02, 45 *-2.3327237E-01, 1.4238948E-01,-2.0414789E-03, 7.7764571E-01, 46 *-1.9746423E-01,-4.9930739E-01,-6.3838482E-02,-7.7125826E-04/ 47 DATA B2/ 48 * 9.5475793E-02,-3.0374423E-02, 8.8466853E-03,-7.8066513E-03, 49 *-5.8794355E-01,-1.6985149E-03,-4.8570484E-03, 1.1723447E-01, 50 *-2.5173032E-01, 1.4973515E-01,-2.4280034E-03, 1.5174065E 00, 51 *-2.9221755E-01,-4.7586030E-01,-7.8628778E-02,-6.7470013E-04, 52 * 1.2873018E-01,-5.2268814E-02, 8.5452385E-03,-8.2583651E-03, 53 *-6.9951952E-01,-2.9492334E-03,-4.8697293E-03, 1.4050865E-01, 54 *-2.8982109E-01, 1.6951829E-01,-2.1462883E-03, 2.2761288E 00, 55 *-3.4642851E-01,-5.2607334E-01,-9.0969384E-02,-7.5901300E-04, 56 * 1.5889448E-01,-7.5946987E-02, 8.3336644E-03,-1.2611162E-02, 57 *-8.2885671E-01,-2.1995942E-03,-5.9542060E-03, 1.6340053E-01, 58 *-3.2756406E-01, 1.8710023E-01,-3.7027223E-03, 3.8842850E 00, 59 *-3.9754725E-01,-4.9629009E-01,-1.0051405E-01, 2.0424763E-05, 60 * 1.8028164E-01,-7.6644123E-02, 7.4474253E-03,-1.5930068E-02, 61 *-9.0625024E-01,-1.8138052E-03,-3.8621577E-03, 1.9144523E-01, 62 *-4.2892265E-01, 2.6626474E-01,-2.0222019E-03, 4.3452969E 00, 63 *-4.3743223E-01,-4.8216325E-01,-1.0222536E-01, 4.4405740E-04/ 64 DATA B3/ 65 * 2.1131814E-01,-1.1041343E-01, 4.3281354E-03,-1.8591814E-02, 66 *-7.0087326E-01,-1.3521263E-05,-5.0393753E-03, 2.1709967E-01, 67 *-5.0194585E-01, 3.0724651E-01,-3.4639400E-03, 3.7631922E 00, 68 *-4.9084455E-01,-3.0237412E-01,-1.0158598E-01, 9.1807242E-04, 69 * 2.5118989E-01,-1.4561749E-01, 9.1741630E-04,-1.3606068E-02, 70 *-6.6341639E-01, 3.8281409E-04,-5.6619756E-03, 2.2050828E-01, 71 *-5.0066817E-01, 3.0752426E-01,-8.6127920E-04, 3.4831161E 00, 72 *-5.1915550E-01,-1.1922604E-01,-9.8660529E-02, 2.0917949E-04, 73 * 2.5845224E-01,-1.5418375E-01, 1.4780490E-03,-4.8254095E-03, 74 *-6.9529557E-01, 1.5229150E-03,-7.9105906E-03, 2.2127914E-01, 75 *-4.5957595E-01, 2.8356904E-01, 4.0303194E-04, 4.4369774E 00, 76 *-5.0870836E-01,-6.1953966E-02,-9.7039342E-02, 9.4502978E-04, 77 * 2.8928846E-01,-1.8996912E-01, 1.4323548E-03, 8.8644959E-03, 78 *-8.5331100E-01, 1.6083536E-03,-1.1337869E-02, 2.0553809E-01, 79 *-3.9034742E-01, 2.5450063E-01, 2.9375588E-03, 6.0180445E 00, 80 *-4.9258125E-01, 1.7574262E-03,-1.0123742E-01, 8.3130505E-04/ 81 DATA B4/ 82 * 3.0497837E-01,-2.0239776E-01,-1.9626934E-03, 2.5686312E-02, 83 *-6.5569198E-01, 9.5541263E-04,-9.0072714E-03, 2.3887885E-01, 84 *-5.0267315E-01, 3.2742906E-01, 3.6962673E-03, 4.6050005E 00, 85 *-4.9678451E-01, 6.4524375E-03,-9.7604394E-02, 9.1373397E-05, 86 * 3.1397533E-01,-2.2017187E-01,-1.4016414E-03, 4.0318791E-02, 87 *-5.1782024E-01, 2.4724216E-04,-9.2562996E-03, 2.9613328E-01, 88 *-7.0454794E-01, 4.9100441E-01, 2.0149857E-04, 4.0006886E 00, 89 *-5.2714890E-01,-1.7117675E-02,-9.1817439E-02, 7.6978840E-04, 90 *-7.3195639E-05, 2.0101692E-03, 2.1734987E-04,-1.3460347E-03, 91 *-7.2533563E-03, 6.9625865E-05,-1.3989010E-05, 6.0490705E-03, 92 *-1.8964671E-02, 1.1371218E-02, 6.7992587E-05, 5.6628495E-02, 93 *-3.2475021E-02, 2.8143533E-02,-5.4642707E-03, 1.2241230E-04, 94 *-3.3051730E-04, 4.6258122E-03, 7.3974766E-04,-1.4806779E-03, 95 *-3.0610979E-02, 1.2121424E-04,-3.7638005E-04, 1.3037436E-02, 96 *-3.0810691E-02, 1.7299809E-02,-3.7054974E-04, 1.7544210E-01, 97 *-4.2595334E-02, 4.8669279E-02,-9.7354613E-03, 2.0532309E-04/ 98 DATA B5/ 99 * 2.9780278E-03, 8.1624575E-03, 1.0379972E-03,-4.0881671E-03, 100 *-5.7377189E-02, 2.2002579E-04,-2.4449942E-04, 2.1939933E-02, 101 *-5.9946161E-02, 3.4800462E-02,-5.0994102E-04, 2.7522266E-01, 102 *-6.6224635E-02, 6.8408072E-02,-1.3333861E-02, 2.7691154E-04, 103 * 9.5234104E-03, 9.7690411E-03, 1.5846370E-03,-5.9593059E-03, 104 *-1.0542357E-01, 2.4238175E-04,-7.1255234E-04, 3.3687763E-02, 105 *-8.7308407E-02, 4.9654800E-02,-7.2291447E-04, 3.5125870E-01, 106 *-9.9456728E-02, 1.0426939E-01,-1.8880296E-02, 2.4188431E-04, 107 * 1.3648596E-02, 1.6900074E-02, 2.5486411E-03,-9.5883459E-03, 108 *-1.6574728E-01, 6.0080551E-04,-4.1632471E-04, 5.3079028E-02, 109 *-1.4787018E-01, 8.7192774E-02,-7.7875075E-04, 4.1736478E-01, 110 *-1.0759699E-01, 1.6836029E-02,-2.7335007E-02, 4.2515970E-04, 111 * 2.1397371E-02, 2.5691286E-02, 4.6796277E-03,-1.2043726E-02, 112 *-2.1467358E-01,-6.8600930E-05,-6.8842247E-04, 7.0075572E-02, 113 *-1.9057781E-01, 1.1190552E-01,-7.4058911E-04, 2.1681064E-01, 114 *-1.4430177E-01,-1.2044883E-01,-4.1737635E-02, 3.4527923E-04/ 115 DATA B6/ 116 * 3.2796603E-02, 3.2987442E-02, 7.5326227E-03,-1.5522216E-02, 117 *-3.1023210E-01,-6.7667500E-04,-9.7367633E-04, 8.9319170E-02, 118 *-2.3841059E-01, 1.3886362E-01,-1.2076702E-03, 5.6157285E-01, 119 *-1.8065786E-01,-2.7628446E-01,-5.6207392E-02, 1.5462366E-04, 120 * 4.4269174E-02, 2.9029280E-02, 1.0218088E-02,-1.6167406E-02, 121 *-4.1625369E-01,-5.6385831E-04,-2.5444294E-03, 1.3154143E-01, 122 *-3.3205175E-01, 1.9556808E-01, 2.9784380E-05, 1.0876265E 00, 123 *-2.4522501E-01,-4.6906072E-01,-7.7448905E-02, 3.3625029E-04, 124 * 7.1560264E-02, 1.4439911E-02, 1.1626758E-02,-1.6051237E-02, 125 *-5.3882170E-01,-7.9200906E-04,-5.1237121E-03, 1.6180027E-01, 126 *-3.7175006E-01, 2.1317595E-01, 1.8981316E-03, 1.5256491E 00, 127 *-3.3415884E-01,-4.3756104E-01,-9.1177285E-02,-4.0033972E-04, 128 * 1.1008793E-01,-2.0695493E-02, 8.7880157E-03,-1.7482743E-02, 129 *-5.7938153E-01,-1.3134247E-03,-5.1664710E-03, 1.9467980E-01, 130 *-4.3250608E-01, 2.4541557E-01, 5.4160245E-03, 2.1190329E 00, 131 *-4.1419709E-01,-3.6867708E-01,-9.8566592E-02,-5.1344186E-04/ 132 DATA B7/ 133 * 1.3603187E-01,-4.5796245E-02, 7.9406798E-03,-1.8519945E-02, 134 *-6.5951067E-01,-5.3474843E-04,-5.2999556E-03, 1.9851702E-01, 135 *-4.3424481E-01, 2.4918509E-01, 5.8447756E-03, 3.1937418E 00, 136 *-4.5796067E-01,-3.3091640E-01,-1.0509312E-01, 3.7347153E-04, 137 * 9.4765246E-02, 6.2992394E-02, 1.0712337E-02,-1.8970948E-02, 138 *-5.4804075E-01,-1.7306977E-03, 4.9315649E-04, 3.0677384E-01, 139 *-8.1576067E-01, 5.2282137E-01, 1.5582558E-02, 2.4209471E 00, 140 *-4.5015442E-01,-1.4213777E-01,-8.9111686E-02,-1.4624775E-03, 141 * 1.3092870E-01, 2.4762422E-02, 8.4733069E-03,-4.5990758E-03, 142 *-6.1550915E-01,-3.0144309E-03,-1.3241996E-03, 2.9722220E-01, 143 *-7.1509749E-01, 4.5468479E-01, 1.5977819E-02, 2.8371468E 00, 144 *-5.0671482E-01,-5.4381426E-02,-8.9783967E-02,-1.7433565E-03, 145 * 1.5005344E-01, 7.0164323E-02, 4.5346394E-03,-2.2784080E-02, 146 *-2.6831436E-01,-3.2275734E-03, 4.8282221E-03, 2.2817892E-01, 147 *-5.2779698E-01, 2.8269923E-01, 2.2932690E-02,-1.9638312E-01, 148 *-2.8798437E-01, 2.2776908E-01,-6.8759263E-02,-2.7702246E-03/ 149 DATA B8/ 150 * 1.1178082E-01, 1.3769341E-01, 4.9981773E-03, 2.3613831E-04, 151 *-1.3596147E-02,-4.6660416E-03, 1.0132425E-02, 3.0323088E-01, 152 *-8.1142151E-01, 5.0265276E-01, 2.7900193E-02,-2.4371939E 00, 153 *-2.6261395E-01, 2.5419468E-01,-5.0778542E-02,-4.6431646E-03, 154 * 1.6473681E-01, 1.0006750E-01, 1.6847074E-03,-2.0760354E-02, 155 * 2.3530585E-01, 1.6932767E-03,-2.3199538E-04, 2.8821123E-01, 156 *-6.8001336E-01, 3.5785061E-01, 3.3952434E-02,-2.9018240E 00, 157 *-3.1660575E-01, 2.1182406E-01,-7.1094394E-02,-5.1403269E-03, 158 * 2.7866572E-01,-1.5212294E-02,-1.5016862E-03,-3.3746634E-02, 159 * 5.3500313E-01, 4.1618608E-03,-7.1388693E-04, 2.6551217E-01, 160 *-1.0312357E 00, 7.0318127E-01, 2.9077347E-02,-7.1409101E 00, 161 *-2.0469600E-01, 2.4061882E-01,-6.9276690E-02,-8.0148354E-03, 162 * 3.5630715E-01,-5.4957870E-02,-2.6851350E-03,-4.2850643E-02, 163 * 3.2792574E-01, 5.9040785E-03,-6.3229464E-03, 2.2175205E-01, 164 *-8.7165284E-01, 5.8893001E-01, 2.6771791E-02,-6.4078979E 00, 165 *-2.7279073E-01, 3.6714154E-01,-6.7780375E-02,-8.9949779E-03/ 166 DATA B9/ 167 * 2.2072613E-03,-1.4442157E-03,-9.3907249E-05,-7.2844420E-04, 168 *-7.9726726E-03, 1.4571991E-05,-1.1121671E-04, 4.0435046E-03, 169 *-8.5231513E-03, 3.6628372E-03,-1.9908477E-04, 4.9856681E-02, 170 *-3.4640670E-02, 3.7956566E-02,-5.6786649E-03, 1.0911575E-04, 171 * 3.3827091E-03,-3.0188151E-03, 3.5618758E-04,-5.3896685E-04, 172 *-4.2930976E-02, 1.6036828E-04,-5.8894139E-04, 1.1490092E-02, 173 *-2.1192752E-02, 1.0164138E-02,-8.3737844E-04, 2.7903908E-01, 174 *-5.1003907E-02, 5.3007212E-02,-1.1375032E-02, 3.4272834E-04, 175 * 1.0221422E-02,-8.9141652E-03, 4.4462411E-04,-1.1832668E-03, 176 *-9.1712236E-02, 2.8603105E-04,-8.1401668E-04, 1.7405812E-02, 177 *-3.5941985E-02, 1.9162033E-02,-1.2003491E-03, 4.8013735E-01, 178 *-7.9366267E-02, 8.3003521E-02,-1.7157365E-02, 5.5354438E-04, 179 * 2.0135798E-02,-1.1928599E-02, 1.0084624E-03,-3.2017273E-03, 180 *-1.6796315E-01, 3.1131832E-04,-1.3633950E-03, 2.4547745E-02, 181 *-5.1232908E-02, 2.6895322E-02,-1.6366835E-03, 8.8189715E-01, 182 *-1.0986304E-01, 1.1607802E-01,-2.4319585E-02, 6.4954185E-04/ 183 DATA B10/ 184 * 3.1373378E-02,-1.8954746E-02, 1.7463975E-03,-6.0795546E-03, 185 *-2.6044583E-01, 7.2922092E-04,-1.6039808E-03, 3.7007444E-02, 186 *-8.5554302E-02, 4.7116715E-02,-1.8459917E-03, 1.4672441E 00, 187 *-1.2994897E-01, 4.8528191E-02,-3.6082149E-02, 1.0141018E-03, 188 * 4.4826970E-02,-2.2088569E-02, 4.0836148E-03,-7.7635348E-03, 189 *-3.8466251E-01, 3.4625689E-04,-2.6817308E-03, 4.9323872E-02, 190 *-1.0395080E-01, 5.6546148E-02,-2.7421911E-03, 2.2427187E 00, 191 *-1.7973506E-01, 1.8711668E-02,-5.0824285E-02, 1.0752089E-03, 192 * 5.9541222E-02,-2.4272066E-02, 6.2205270E-03,-1.0356113E-02, 193 *-4.6784776E-01,-4.2101776E-05,-2.7494796E-03, 6.7202806E-02, 194 *-1.3865042E-01, 7.1610272E-02,-3.6068503E-03, 2.5239811E 00, 195 *-2.3537189E-01,-6.2303532E-02,-6.3410640E-02, 1.0908414E-03, 196 * 8.5864305E-02,-4.0465321E-02, 6.7511238E-03,-1.5032519E-02, 197 *-5.3204876E-01, 2.6173261E-04,-3.8463329E-03, 9.7581804E-02, 198 *-1.9440979E-01, 9.4935060E-02,-3.1414882E-03, 2.7852774E 00, 199 *-2.8988993E-01,-2.0397222E-01,-8.0623806E-02, 1.1886319E-03/ 200 DATA B11/ 201 * 1.2287539E-01,-6.0318012E-02, 6.5601021E-03,-1.9143425E-02, 202 *-6.1232585E-01,-6.1348954E-05,-5.3325333E-03, 1.3366205E-01, 203 *-2.7088326E-01, 1.3617229E-01,-2.4415229E-03, 3.3422728E 00, 204 *-3.4385902E-01,-1.6500336E-01,-8.9365721E-02, 2.3261967E-04, 205 * 1.5902001E-01,-9.4836116E-02, 4.9963929E-03,-1.7859895E-02, 206 *-6.7542911E-01, 5.0253857E-07,-6.5144524E-03, 1.4190704E-01, 207 *-2.5369573E-01, 1.1523426E-01,-2.6327048E-03, 4.1193476E 00, 208 *-4.0217543E-01,-6.6726983E-02,-9.4278574E-02, 2.1160927E-04, 209 * 1.9086862E-01,-1.2050396E-01, 3.6971525E-03,-1.9956112E-02, 210 *-7.0864362E-01, 5.1669008E-04,-6.4480454E-03, 1.2268627E-01, 211 *-1.9227093E-01, 7.6582491E-02,-3.3759619E-03, 4.8675528E 00, 212 *-4.3510795E-01, 1.0188390E-02,-9.3770385E-02, 7.1982155E-04, 213 * 1.9992542E-01,-1.0092729E-01, 2.8588565E-03,-9.3777515E-03, 214 *-8.0846542E-01,-7.9802098E-04,-3.5866818E-03, 1.2091875E-01, 215 *-1.7696083E-01, 7.6379836E-02, 1.4869310E-03, 5.2954960E 00, 216 *-4.4283944E-01, 1.1750218E-02,-8.7529778E-02,-2.1971346E-04/ 217 DATA B12/ 218 * 2.1761668E-01,-5.8880605E-02, 3.7807501E-03,-1.0952000E-02, 219 *-8.7034750E-01,-3.1192892E-03,-7.1197003E-04, 1.2945777E-01, 220 *-2.3012006E-01, 1.1647296E-01, 5.4157451E-03, 4.4113598E 00, 221 *-3.9268637E-01,-5.5132401E-01,-8.6746812E-02,-1.0543189E-03, 222 * 2.2825044E-01,-6.1736152E-02, 2.9679062E-03,-5.8903126E-04, 223 *-7.5253463E-01,-2.8592332E-03, 8.1750425E-04, 1.1290991E-01, 224 *-1.9584531E-01, 1.0525864E-01, 5.2956678E-03, 2.9335270E 00, 225 *-2.4896461E-01, 3.9581791E-02,-7.2306216E-02,-1.7494988E-03, 226 * 2.6344782E-01,-8.4367216E-02,-7.4542346E-05, 1.0698564E-02, 227 *-7.2073323E-01,-3.5122959E-03, 3.5135404E-03, 1.2110317E-01, 228 *-3.3286446E-01, 2.3396415E-01, 1.2389731E-02, 1.9491110E 00, 229 *-2.3601991E-01,-1.3911504E-01,-6.9997311E-02,-3.5733753E-03, 230 * 2.6727527E-01,-4.5189403E-02, 4.5224745E-04, 1.0676917E-02, 231 *-8.1611729E-01,-3.1356914E-03, 6.1511323E-03, 1.7304772E-01, 232 *-5.2065587E-01, 3.6191893E-01, 1.4832411E-02, 2.4400940E 00, 233 *-2.1888667E-01,-4.0147001E-01,-8.0096543E-02,-3.1546338E-03/ 234 DATA B13/ 235 * 2.6671880E-01, 3.0235711E-02, 1.6169844E-03, 6.1581396E-03, 236 *-7.3124474E-01,-4.3488741E-03, 9.6328929E-03, 2.0126683E-01, 237 *-6.6993481E-01, 4.6675467E-01, 2.2258069E-02, 1.4543400E 00, 238 *-1.7674601E-01,-4.4420338E-01,-7.8558505E-02,-4.8801601E-03, 239 * 3.8780212E-01,-6.9581628E-02,-3.3410592E-04,-4.0026840E-02, 240 *-8.3621517E-03, 6.8011843E-03,-1.1478148E-02, 2.3079091E-01, 241 *-8.1555879E-01, 5.3140473E-01, 1.9388735E-02,-4.5359688E 00, 242 *-3.5079455E-01, 6.4898193E-02,-7.2210491E-02,-9.8634884E-03/ 243C 244C*** SET COEFFICIENTS IN BT ARRAY 245C 246 L = (IA-2)*16 247 IF(IM .GE. 2) L = L+(IM-2)*288 248 IF(IA .EQ. 1) GO TO 1020 249 DO 1010 K=1,16 250 BT(I,J,K) = BSUB(K+L) 251 1010 CONTINUE 252 1020 CONTINUE 253 IF(IA .NE. 1) GO TO 1040 254 DO 1030 K=1,16 255 BT(I,J,K) = 0.0 256 1030 CONTINUE 257 1040 CONTINUE 258 RETURN 259 END 260