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