COSMOS v7.655  COSMOSv7655
(AirShowerMC)
bert-bl0.f
Go to the documentation of this file.
1 !************************************************************************
2 !* *
3  block data bertbl0
4 !* *
5 !* Bertini model data *
6 !* last modified by K.Niita on 08/02/2000 *
7 !* *
8 !* tapcrs(6600) : original data *
9 !* tapcr1(352) : old Cugnon cross section *
10 !* tapcr2(352) : new Cugnon cross section *
11 !* tapcr1,tapcr2 (i=1,352) = tapcrs(5992-6343) *
12 !* *
13 !* *
14 !************************************************************************
15 
16 !*-----------------------------------------------------------------------
17 
18  implicit real*8 (a-h,o-z)
19 
20 !*-----------------------------------------------------------------------
21 
22  common/rtcom/tapcrs(6600)
23  common/rtco1/tapcr1(352),tapcr2(352)
24 
25 !*-----------------------------------------------------------------------
26 
27  data ( tapcrs(i),i= 1, 200 )/
28  & 1.0000000d+00, 0.0000000d+00, 9.0127760d-01, 3.9488965d-01,
29  & 8.3069974d-01, 6.7720091d-01, 7.6133651d-01, 9.5465392d-01,
30  & 7.0149255d-01, 1.1940298d+00, 6.4999998d-01, 1.3999996d+00,
31  & 6.0765851d-01, 1.5693665d+00, 5.6782335d-01, 1.7287064d+00,
32  & 5.2926207d-01, 1.8829517d+00, 4.9136275d-01, 2.0345488d+00,
33  & 4.5876288d-01, 2.1649485d+00, 4.2847812d-01, 2.2860870d+00,
34  & 4.0052700d-01, 2.3978920d+00, 3.7333333d-01, 2.5066671d+00,
35  & 3.5135132d-01, 2.5945950d+00, 3.3103448d-01, 2.6758623d+00,
36  & 3.0790961d-01, 2.7683620d+00, 2.8674871d-01, 2.8530054d+00,
37  & 2.6666665d-01, 2.9333334d+00, 2.4427480d-01, 3.0229006d+00,
38  & 2.3255813d-01, 3.0697670d+00, 2.1800947d-01, 3.1279621d+00,
39  & 2.0032310d-01, 3.1987076d+00, 1.9512194d-01, 3.2195120d+00,
40  & 1.9249594d-01, 3.2300167d+00, 1.8985271d-01, 3.2405891d+00,
41  & 5.0000000d-01, 1.0000000d+00, 0.0000000d+00, 1.0000000d+00,
42  & 0.0000000d+00, 4.9925578d-01, 9.8807496d-01, 5.9625212d-02,
43  & 9.8513800d-01, 5.9447981d-02, 4.9355435d-01, 8.9552236d-01,
44  & 5.2238804d-01, 8.7272727d-01, 5.0909090d-01, 4.8889625d-01,
45  & 8.2281333d-01, 8.8593328d-01, 7.8706199d-01, 8.5175204d-01,
46  & 4.8738897d-01, 7.5801748d-01, 1.2099123d+00, 7.2072071d-01,
47  & 1.1171169d+00, 4.9122804d-01, 6.9686413d-01, 1.5156794d+00,
48  & 6.7283434d-01, 1.3086624d+00, 5.0746268d-01, 6.4705884d-01,
49  & 1.7647057d+00, 6.6666669d-01, 1.3333330d+00, 5.3832227d-01,
50  & 6.0538113d-01, 1.9730940d+00, 7.0588231d-01, 1.1764708d+00,
51  & 5.3970486d-01, 5.9895831d-01, 2.0052080d+00, 7.0229006d-01,
52  & 1.1908398d+00, 5.3358066d-01, 6.0834301d-01, 1.9582853d+00,
53  & 6.9594032d-01, 1.2162390d+00, 5.3165376d-01, 6.0753340d-01,
54  & 1.9623327d+00, 6.8965518d-01, 1.2413797d+00, 5.3004360d-01,
55  & 6.0164660d-01, 1.9917669d+00, 6.7857140d-01, 1.2857141d+00,
56  & 5.2814293d-01, 6.0625398d-01, 1.9687300d+00, 6.7857140d-01,
57  & 1.2857141d+00, 5.2797204d-01, 5.9602648d-01, 2.0198679d+00,
58  & 6.6666669d-01, 1.3333330d+00, 5.2729219d-01, 5.9201622d-01,
59  & 2.0399189d+00, 6.6037738d-01, 1.3584909d+00, 5.2727270d-01,
60  & 5.8620685d-01, 2.0689659d+00, 6.5384614d-01, 1.3846149d+00,
61  & 5.2230972d-01, 5.9798992d-01, 2.8140707d+00, 6.5384614d-01,
62  & 1.3846149d+00, 5.2016127d-01, 5.9689921d-01, 2.8217058d+00,
63  & 6.4705884d-01, 1.4117651d+00, 5.1825839d-01, 5.8807588d-01,
64  & 2.8834686d+00, 6.3265306d-01, 1.4693880d+00, 5.1585013d-01,
65  & 5.8659220d-01, 2.8938551d+00, 6.2500000d-01, 1.5000000d+00,
66  & 5.1331359d-01, 5.8501440d-01, 2.9048986d+00, 6.1702126d-01,
67  & 1.5319147d+00, 5.1063830d-01, 5.8333331d-01, 2.9166670d+00,
68  & 6.0869563d-01, 1.5652170d+00, 5.0842696d-01, 5.8011049d-01,
69  & 2.9392262d+00, 6.0000002d-01, 1.6000004d+00, 5.0625199d-01,
70  & 5.7631409d-01, 2.9658012d+00, 5.9090906d-01, 1.6363640d+00,
71  & 5.0362796d-01, 5.7301897d-01, 2.9888668d+00, 5.8139533d-01,
72  & 1.6744184d+00, 5.0135684d-01, 5.6833559d-01, 3.0216513d+00,
73  & 5.7142860d-01, 1.7142859d+00, 4.9860239d-01, 5.6412053d-01,
74  & 3.0511560d+00, 5.6097561d-01, 1.7560978d+00, 4.9640286d-01,
75  & 5.5797100d-01, 3.0942030d+00, 5.5000001d-01, 1.8000002d+00,
76  & 4.9357325d-01, 5.5729169d-01, 3.0989580d+00, 5.4314721d-01,
77  & 1.8274117d+00, 4.9090910d-01, 5.5092591d-01, 3.1435184d+00/
78  data ( tapcrs(i),i= 201, 400 )/
79  & 5.3125000d-01, 1.8750000d+00, 4.8846155d-01, 5.5118108d-01,
80  & 3.1417322d+00, 5.2631581d-01, 1.8947372d+00, 4.8570293d-01,
81  & 5.4374486d-01, 3.1937857d+00, 5.1351351d-01, 1.9459457d+00,
82  & 4.8297083d-01, 5.3525913d-01, 3.2531862d+00, 5.0000000d-01,
83  & 2.0000000d+00, 4.8006713d-01, 5.3234267d-01, 3.2736015d+00,
84  & 4.9152541d-01, 2.0338984d+00, 4.7697651d-01, 5.2276868d-01,
85  & 3.3406191d+00, 4.7674417d-01, 2.0930233d+00, 4.7382551d-01,
86  & 5.1558071d-01, 3.3909349d+00, 4.6428573d-01, 2.1428576d+00,
87  & 4.7009349d-01, 5.0099403d-01, 3.4930420d+00, 4.4444442d-01,
88  & 2.2222223d+00, 4.6717411d-01, 4.9898165d-01, 3.5071287d+00,
89  & 4.3750000d-01, 2.2500000d+00, 4.6340257d-01, 4.8559231d-01,
90  & 3.6008539d+00, 4.1935486d-01, 2.3225803d+00, -1.0000000d+00,
91  & -9.3312496d-01, -8.6447698d-01, -7.9392940d-01, -7.2134018d-01,
92  & -6.4654922d-01, -5.6937516d-01, -4.8961067d-01, -4.0701753d-01,
93  & -3.2132012d-01, -2.3219579d-01, -1.3926357d-01, -4.2068690d-02,
94  & 5.9939887d-02, 1.6743916d-01, 2.8127688d-01, 4.0253758d-01,
95  & 5.3264618d-01, 6.7353749d-01, 8.2795268d-01, 9.9999976d-01,
96  & -1.0000000d+00, -9.5523840d-01, -9.0895885d-01, -8.6102372d-01,
97  & -8.1127369d-01, -7.5952321d-01, -7.0555437d-01, -6.4910787d-01,
98  & -5.8987188d-01, -5.2746606d-01, -4.6141815d-01, -3.9113110d-01,
99  & -3.1583142d-01, -2.3448807d-01, -1.4567614d-01, -4.7331918d-02,
100  & 6.3729405d-02, 1.9288909d-01, 3.5063368d-01, 5.6362611d-01,
101  & 9.9999881d-01, -1.0000000d+00, -9.6367997d-01, -9.2604977d-01,
102  & -8.8698459d-01, -8.4633976d-01, -8.0394572d-01, -7.5960171d-01,
103  & -7.1306747d-01, -6.6405171d-01, -6.1219585d-01, -5.5705059d-01,
104  & -4.9804091d-01, -4.3441266d-01, -3.6514497d-01, -2.8880084d-01,
105  & -2.0325190d-01, -1.0511851d-01, 1.1533059d-02, 1.5893567d-01,
106  & 3.7143475d-01, 9.9999732d-01, -1.0000000d+00, -9.6552199d-01,
107  & -9.2959529d-01, -8.9206159d-01, -8.5273337d-01, -8.1138587d-01,
108  & -7.6774669d-01, -7.2148043d-01, -6.7216748d-01, -6.1927223d-01,
109  & -5.6209451d-01, -4.9969327d-01, -4.3075830d-01, -3.5338432d-01,
110  & -2.6464015d-01, -1.5966725d-01, -2.9562999d-02, 1.4421594d-01,
111  & 4.0167308d-01, 7.4063343d-01, 9.9999976d-01, -1.0000000d+00,
112  & -9.6344805d-01, -9.2510593d-01, -8.8474655d-01, -8.4209442d-01,
113  & -7.9680991d-01, -7.4846810d-01, -6.9652659d-01, -6.4027750d-01,
114  & -5.7877171d-01, -5.1069504d-01, -4.3415546d-01, -3.4629637d-01,
115  & -2.4255407d-01, -1.1519772d-01, 4.9040455d-02, 2.6591265d-01,
116  & 5.1250207d-01, 7.2031403d-01, 8.7727368d-01, 9.9999988d-01,
117  & -1.0000000d+00, -9.6031350d-01, -9.1836989d-01, -8.7383717d-01,
118  & -8.2630122d-01, -7.7523512d-01, -7.1995449d-01, -6.5954840d-01,
119  & -5.9276700d-01, -5.1783627d-01, -4.3213415d-01, -3.3161509d-01,
120  & -2.0983213d-01, -5.6950159d-02, 1.3592106d-01, 3.5137540d-01,
121  & 5.4271257d-01, 6.9415963d-01, 8.1494725d-01, 9.1478413d-01,
122  & 9.9999988d-01, -1.0000000d+00, -9.5694464d-01, -9.1109830d-01,
123  & -8.6199349d-01, -8.0903012d-01, -7.5142050d-01, -6.8810320d-01,
124  & -6.1760390d-01, -5.3780222d-01, -4.4553286d-01, -3.3592504d-01,
125  & -2.0159429d-01, -3.3808824d-02, 1.6468567d-01, 3.6053306d-01,
126  & 5.2376747d-01, 6.5448213d-01, 7.6155436d-01, 8.5202622d-01,
127  & 9.3050694d-01, 9.9999994d-01, -1.0000000d+00, -9.5338666d-01,
128  & -9.0336078d-01, -8.4927613d-01, -7.9027939d-01, -7.2521305d-01/
129  data ( tapcrs(i),i= 401, 600 )/
130  & -6.5245754d-01, -5.6966817d-01, -4.7333366d-01, -3.5810232d-01,
131  & -2.1631885d-01, -4.1414760d-02, 1.5541852d-01, 3.3864856d-01,
132  & 4.8899382d-01, 6.1053503d-01, 7.1133387d-01, 7.9736060d-01,
133  & 8.7254715d-01, 9.3949932d-01, 9.9999994d-01, -1.0000000d+00,
134  & -9.5002896d-01, -8.9600337d-01, -8.3707184d-01, -7.7208018d-01,
135  & -6.9941556d-01, -6.1674684d-01, -5.2059299d-01, -4.0567619d-01,
136  & -2.6452577d-01, -9.0931773d-02, 1.0391408d-01, 2.8551042d-01,
137  & 4.3497205d-01, 5.5605632d-01, 6.5659052d-01, 7.4244255d-01,
138  & 8.1750053d-01, 8.8435006d-01, 9.4476402d-01, 9.9999994d-01,
139  & -1.0000000d+00, -9.4700384d-01, -8.8932830d-01, -8.2590371d-01,
140  & -7.5524682d-01, -6.7523253d-01, -5.8271295d-01, -4.7292179d-01,
141  & -3.3890551d-01, -1.7337108d-01, 1.8630728d-02, 2.0591146d-01,
142  & 3.6300093d-01, 4.9006003d-01, 5.9487128d-01, 6.8382156d-01,
143  & 7.6119649d-01, 8.2983541d-01, 8.9167064d-01, 9.4806248d-01,
144  & 9.9999994d-01, -1.0000000d+00, -9.4458425d-01, -8.8395041d-01,
145  & -8.1682563d-01, -7.4141330d-01, -6.5508991d-01, -5.5390728d-01,
146  & -4.3191451d-01, -2.8126001d-01, -9.8644018d-02, 9.5978200d-02,
147  & 2.6840717d-01, 4.0846169d-01, 5.2258313d-01, 6.1817425d-01,
148  & 7.0043421d-01, 7.7279150d-01, 8.3754474d-01, 8.9628643d-01,
149  & 9.5015728d-01, 9.9999994d-01, -1.0000000d+00, -9.4229424d-01,
150  & -8.7883687d-01, -8.0814260d-01, -7.2808200d-01, -6.3549662d-01,
151  & -5.2559358d-01, -3.9134711d-01, -2.2529227d-01, -3.2333199d-02,
152  & 1.5594226d-01, 3.1365937d-01, 4.4106811d-01, 5.4608983d-01,
153  & 6.3518155d-01, 7.1266097d-01, 7.8138268d-01, 8.4328693d-01,
154  & 8.9973849d-01, 9.5172906d-01, 9.9999994d-01, -1.0000000d+00,
155  & -9.4024187d-01, -8.7422293d-01, -8.0024362d-01, -7.1583188d-01,
156  & -6.1727411d-01, -4.9892414d-01, -3.5293412d-01, -1.7391849d-01,
157  & 2.2860188d-02, 2.0161569d-01, 3.4733832d-01, 4.6549118d-01,
158  & 5.6390935d-01, 6.4821970d-01, 7.2212297d-01, 7.8808284d-01,
159  & 8.4779388d-01, 9.0246254d-01, 9.5297498d-01, 9.9999994d-01,
160  & -1.0000000d+00, -9.3792760d-01, -8.6899596d-01, -7.9124135d-01,
161  & -7.0176566d-01, -5.9616470d-01, -4.6780527d-01, -3.0846661d-01,
162  & -1.1788511d-01, 7.6885223d-02, 2.4359816d-01, 3.7794363d-01,
163  & 4.8779279d-01, 5.8029938d-01, 6.6028929d-01, 7.3092741d-01,
164  & 7.9434264d-01, 8.5201794d-01, 9.0502191d-01, 9.5414782d-01,
165  & 9.9999994d-01, -1.0000000d+00, -9.3565387d-01, -8.6382920d-01,
166  & -7.8227478d-01, -6.8762302d-01, -5.7471627d-01, -4.3597418d-01,
167  & -2.6378828d-01, -6.5877616d-02, 1.2248367d-01, 2.7781612d-01,
168  & 4.0289414d-01, 5.0612724d-01, 5.9389037d-01, 6.7037082d-01,
169  & 7.3832512d-01, 7.9962736d-01, 8.5559797d-01, 9.0719801d-01,
170  & 9.5514774d-01, 9.9999994d-01, -1.0000000d+00, -9.3333352d-01,
171  & -8.5852313d-01, -7.7299380d-01, -6.7284334d-01, -5.5207527d-01,
172  & -4.0228456d-01, -2.1802962d-01, -1.7236274d-02, 1.6219789d-01,
173  & 3.0713254d-01, 4.2436904d-01, 5.2203828d-01, 6.0577518d-01,
174  & 6.7924237d-01, 7.4486828d-01, 8.0432117d-01, 8.5878843d-01,
175  & 9.0914285d-01, 9.5604348d-01, 9.9999994d-01, -1.0000000d+00,
176  & -9.3076789d-01, -8.5262233d-01, -7.6259673d-01, -6.5614074d-01,
177  & -5.2629030d-01, -3.6414915d-01, -1.6901970d-01, 2.9980607d-02,
178  & 1.9877988d-01, 3.3392131d-01, 4.4408697d-01, 5.3674197d-01,
179  & 6.1681968d-01, 6.8752360d-01, 7.5099742d-01, 8.0872983d-01/
180 
181  data ( tapcrs(i),i= 601,800 )/
182  & 8.6179155d-01, 9.1097647d-01, 9.5688909d-01, 9.9999994d-01,
183  & -1.0000000d+00, -9.2874265d-01, -8.4793216d-01, -7.5426155d-01,
184  & -6.4261550d-01, -5.0524175d-01, -3.3333975d-01, -1.3181138d-01,
185  & 6.3139975d-02, 2.2378236d-01, 3.5225791d-01, 4.5768845d-01,
186  & 5.4696304d-01, 6.2454736d-01, 6.9334900d-01, 7.5532788d-01,
187  & 8.1185615d-01, 8.6392766d-01, 9.1228420d-01, 9.5749354d-01,
188  & 9.9999994d-01, -1.0000000d+00, -8.5788077d-01, -7.2368109d-01,
189  & -5.9629798d-01, -4.7486120d-01, -3.5867012d-01, -2.4715048d-01,
190  & -1.3982493d-01, -3.6291506d-02, 6.3791931d-02, 1.6071945d-01,
191  & 2.5474602d-01, 3.4609449d-01, 4.3496066d-01, 5.2151805d-01,
192  & 6.0592097d-01, 6.8830746d-01, 7.6880163d-01, 8.4751564d-01,
193  & 9.2455095d-01, 9.9999988d-01, -1.0000000d+00, -6.9053251d-01,
194  & -4.8534197d-01, -3.2354027d-01, -1.8702102d-01, -6.7488551d-02,
195  & 3.9663084d-02, 1.3729852d-01, 2.2733921d-01, 3.1114626d-01,
196  & 3.8972414d-01, 4.6383858d-01, 5.3408849d-01, 6.0095263d-01,
197  & 6.6482031d-01, 7.2601342d-01, 7.8480124d-01, 8.4141171d-01,
198  & 8.9603978d-01, 9.4885379d-01, 9.9999994d-01, -9.9999988d-01,
199  & -4.2338705d-01, -2.1336406d-01, -6.3850045d-02, 5.6043103d-02,
200  & 1.5774471d-01, 2.4692219d-01, 3.2685238d-01, 3.9962202d-01,
201  & 4.6665210d-01, 5.2895933d-01, 5.8729941d-01, 6.4225096d-01,
202  & 6.9426823d-01, 7.4371517d-01, 7.9088831d-01, 8.3603293d-01,
203  & 8.7935448d-01, 9.2102700d-01, 9.6119934d-01, 1.0000000d+00,
204  & -1.0000000d+00, -4.3509680d-01, -1.7399162d-01, -8.9353882d-03,
205  & 1.1583036d-01, 2.1795279d-01, 3.0535674d-01, 3.8232619d-01,
206  & 4.5145857d-01, 5.1445758d-01, 5.7250613d-01, 6.2646210d-01,
207  & 6.7696917d-01, 7.2452402d-01, 7.6951844d-01, 8.1226760d-01,
208  & 8.5302931d-01, 8.9201719d-01, 9.2941046d-01, 9.6536136d-01,
209  & 9.9999994d-01, -1.0000000d+00, -6.6104209d-01, -3.0269569d-01,
210  & -8.0107033d-02, 7.2821081d-02, 1.9082081d-01, 2.8805566d-01,
211  & 3.7146837d-01, 4.4496644d-01, 5.1097143d-01, 5.7109183d-01,
212  & 6.2645358d-01, 6.7787725d-01, 7.2598082d-01, 7.7124202d-01,
213  & 8.1403846d-01, 8.5467416d-01, 8.9339775d-01, 9.3041557d-01,
214  & 9.6590072d-01, 9.9999994d-01, -1.0000000d+00, -8.4318888d-01,
215  & -6.2671143d-01, -3.4989023d-01, -1.0721141d-01, 6.7653537d-02,
216  & 1.9951051d-01, 3.0551797d-01, 3.9470196d-01, 4.7211403d-01,
217  & 5.4082137d-01, 6.0281754d-01, 6.5947008d-01, 7.1175820d-01,
218  & 7.6040775d-01, 8.0597222d-01, 8.4888393d-01, 8.8948721d-01,
219  & 9.2806107d-01, 9.6483493d-01, 9.9999994d-01, -1.0000000d+00,
220  & -8.8775855d-01, -7.4697936d-01, -5.6208766d-01, -3.2754809d-01,
221  & -9.6608162d-02, 8.3258569d-02, 2.2066861d-01, 3.3074552d-01,
222  & 4.2279649d-01, 5.0224817d-01, 5.7242835d-01, 6.3550019d-01,
223  & 6.9294220d-01, 7.4580854d-01, 7.9487681d-01, 8.4073734d-01,
224  & 8.8384902d-01, 9.2457622d-01, 9.6321285d-01, 9.9999994d-01,
225  & -1.0000000d+00, -9.1096973d-01, -8.0561179d-01, -6.7641985d-01,
226  & -5.1217079d-01, -3.0619115d-01, -8.8322580d-02, 9.4841123d-02,
227  & 2.3801291d-01, 3.5277587d-01, 4.4832754d-01, 5.3040105d-01,
228  & 6.0258204d-01, 6.6721117d-01, 7.2588670d-01, 7.7974445d-01,
229  & 8.2961893d-01, 8.7614137d-01, 9.1980064d-01, 9.6098316d-01,
230  & 9.9999994d-01, -1.0000000d+00, -9.2443013d-01, -8.3795577d-01,
231  & -7.3655164d-01, -6.1396879d-01, -4.6129978d-01, -2.7258068d-01/
232  data ( tapcrs(i),i= 801,1000 )/
233  & -6.7026794d-02, 1.1524206d-01, 2.6153207d-01, 3.7953305d-01,
234  & 4.7773981d-01, 5.6191266d-01, 6.3576180d-01, 7.0173562d-01,
235  & 7.6151240d-01, 8.1628495d-01, 8.6692947d-01, 9.1410720d-01,
236  & 9.5832950d-01, 9.9999994d-01, -1.0000000d+00, -9.3156654d-01,
237  & -8.5463411d-01, -7.6650125d-01, -6.6310376d-01, -5.3833991d-01,
238  & -3.8430721d-01, -1.9834673d-01, -1.8087833d-03, 1.7138171d-01,
239  & 3.1204545d-01, 4.2684770d-01, 5.2315789d-01, 6.0613644d-01,
240  & 6.7919213d-01, 7.4461550d-01, 8.0399686d-01, 8.5847747d-01,
241  & 9.0890157d-01, 9.5590985d-01, 9.9999994d-01, -1.0000000d+00,
242  & -9.3560207d-01, -8.6395341d-01, -7.8297198d-01, -6.8961233d-01,
243  & -5.7935131d-01, -4.4578260d-01, -2.8248304d-01, -9.3978882d-02,
244  & 9.2136383d-02, 2.5101167d-01, 3.8080746d-01, 4.8830968d-01,
245  & 5.7966787d-01, 6.5915906d-01, 7.2966349d-01, 7.9315788d-01,
246  & 8.5104001d-01, 9.0432864d-01, 9.5378679d-01, 9.9999994d-01,
247  & -1.0000000d+00, -9.3767202d-01, -8.6871672d-01, -7.9134363d-01,
248  & -7.0298016d-01, -5.9985912d-01, -4.7657579d-01, -3.2670552d-01,
249  & -1.4904177d-01, 3.8468406d-02, 2.0730090d-01, 3.4731698d-01,
250  & 4.6290165d-01, 5.6039202d-01, 6.4459532d-01, 7.1881002d-01,
251  & 7.8529871d-01, 8.4565109d-01, 9.0101659d-01, 9.5224941d-01,
252  & 9.9999994d-01, -1.0000000d+00, -9.3992776d-01, -8.7386799d-01,
253  & -8.0030972d-01, -7.1712428d-01, -6.2124729d-01, -5.0827676d-01,
254  & -3.7245244d-01, -2.0942712d-01, -2.6653487d-02, 1.5067703d-01,
255  & 3.0305445d-01, 4.2929041d-01, 5.3500777d-01, 6.2552071d-01,
256  & 7.0466733d-01, 7.7510351d-01, 8.3868718d-01, 8.9675063d-01,
257  & 9.5027477d-01, 9.9999994d-01, -1.0000000d+00, -9.4113046d-01,
258  & -8.7665021d-01, -8.0521244d-01, -7.2494841d-01, -6.3321066d-01,
259  & -5.2623677d-01, -3.9899683d-01, -2.4666679d-01, -7.1651280d-02,
260  & 1.0711074d-01, 2.6694888d-01, 4.0113318d-01, 5.1345813d-01,
261  & 6.0919791d-01, 6.9249582d-01, 7.6628888d-01, 8.3264226d-01,
262  & 8.9303422d-01, 9.4854873d-01, 9.9999994d-01, -1.0000000d+00,
263  & -9.4250065d-01, -8.7975895d-01, -8.1057441d-01, -7.3330241d-01,
264  & -6.4564276d-01, -5.4435068d-01, -4.2500937d-01, -2.8269970d-01,
265  & -1.1640942d-01, 6.1496370d-02, 2.2807831d-01, 3.7073910d-01,
266  & 4.9037194d-01, 5.9188551d-01, 6.7971265d-01, 7.5711358d-01,
267  & 8.2639968d-01, 8.8922322d-01, 9.4678980d-01, 9.9999994d-01,
268  & -1.0000000d+00, -9.4361854d-01, -8.8231480d-01, -8.1501395d-01,
269  & -7.4026269d-01, -6.5605676d-01, -5.5960226d-01, -4.4708467d-01,
270  & -3.1393015d-01, -1.5739930d-01, 1.5901424d-02, 1.8632090d-01,
271  & 3.3684862d-01, 4.6420324d-01, 5.7211238d-01, 6.6505414d-01,
272  & 7.4656588d-01, 8.1921023d-01, 8.8482738d-01, 9.4475818d-01,
273  & 9.9999994d-01, -1.0000000d+00, -9.4428217d-01, -8.8383698d-01,
274  & -8.1766415d-01, -7.4442279d-01, -6.6228122d-01, -5.6870806d-01,
275  & -4.6025401d-01, -3.3266228d-01, -1.8264425d-01, -1.3850905d-02,
276  & 1.5735817d-01, 3.1248397d-01, 4.4509548d-01, 5.5758810d-01,
277  & 6.5426409d-01, 7.3879731d-01, 8.1391501d-01, 8.8159043d-01,
278  & 9.4326252d-01, 9.9999994d-01, -1.0000000d+00, -9.4499844d-01,
279  & -8.8547432d-01, -8.2050294d-01, -7.4885595d-01, -6.6887212d-01,
280  & -5.7827663d-01, -4.7398061d-01, -3.5208559d-01, -2.0902044d-01,
281  & -4.5972917d-02, 1.2461305d-01, 2.8405154d-01, 4.2249149d-01,
282  & 5.4033631d-01, 6.4144576d-01, 7.2957981d-01, 8.0764270d-01/
283  data ( tapcrs(i),i= 1001,1200 )/
284  & 8.7776273d-01, 9.4149679d-01, 9.9999994d-01, -1.0000000d+00,
285  & -9.1784364d-01, -8.3433616d-01, -7.4941832d-01, -6.6302621d-01,
286  & -5.7509083d-01, -4.8553795d-01, -3.9428782d-01, -3.0125344d-01,
287  & -2.0634031d-01, -1.0944575d-01, -1.0457426d-02, 9.0747297d-02,
288  & 1.9430423d-01, 3.0036223d-01, 4.0908700d-01, 5.2066261d-01,
289  & 6.3529474d-01, 7.5321478d-01, 8.7468404d-01, 9.9999976d-01,
290  & -1.0000000d+00, -9.3795162d-01, -8.7411761d-01, -8.0835903d-01,
291  & -7.4051857d-01, -6.7041695d-01, -5.9784824d-01, -5.2257442d-01,
292  & -4.4431740d-01, -3.6274999d-01, -2.7748162d-01, -1.8804115d-01,
293  & -9.3851089d-02, 5.8088787d-03, 1.1185604d-01, 2.2548872d-01,
294  & 3.4832263d-01, 4.8262519d-01, 6.3175178d-01, 8.0104566d-01,
295  & 9.9999976d-01, -1.0000000d+00, -9.5222706d-01, -9.0286273d-01,
296  & -8.5176444d-01, -7.9876810d-01, -7.4368262d-01, -6.8628424d-01,
297  & -6.2630707d-01, -5.6343257d-01, -4.9727327d-01, -4.2734969d-01,
298  & -3.5305810d-01, -2.7362090d-01, -1.8800694d-01, -9.4802320d-02,
299  & 8.0217831d-03, 1.2355596d-01, 2.5692737d-01, 4.1783839d-01,
300  & 6.2955827d-01, 9.9999934d-01, -1.0000000d+00, -9.6222317d-01,
301  & -9.2311066d-01, -8.8253748d-01, -8.4035861d-01, -7.9640466d-01,
302  & -7.5047535d-01, -7.0233190d-01, -6.5168542d-01, -5.9818137d-01,
303  & -5.4137719d-01, -4.8070890d-01, -4.1544032d-01, -3.4458023d-01,
304  & -2.6674318d-01, -1.7989379d-01, -8.0834389d-02, 3.5970531d-02,
305  & 1.8170023d-01, 3.8667017d-01, 9.9998552d-01, -1.0000000d+00,
306  & -9.6516144d-01, -9.2901301d-01, -8.9142579d-01, -8.5224891d-01,
307  & -8.1130517d-01, -7.6838332d-01, -7.2322911d-01, -6.7553186d-01,
308  & -6.2490612d-01, -5.7086432d-01, -5.1277590d-01, -4.4980294d-01,
309  & -3.8079363d-01, -3.0409646d-01, -2.1720612d-01, -1.1602026d-01,
310  & 6.9767833d-03, 1.6828150d-01, 4.1905904d-01, 9.9999928d-01,
311  & -1.0000000d+00, -9.6522039d-01, -9.2897713d-01, -8.9111012d-01,
312  & -8.5142964d-01, -8.0970860d-01, -7.6567143d-01, -7.1897918d-01,
313  & -6.6920751d-01, -6.1581486d-01, -5.5809385d-01, -4.9509370d-01,
314  & -4.2549175d-01, -3.4736651d-01, -2.5776714d-01, -1.5181869d-01,
315  & -2.0645939d-02, 1.5395820d-01, 4.0962684d-01, 7.4165094d-01,
316  & 9.9999982d-01, -1.0000000d+00, -9.6322012d-01, -9.2467010d-01,
317  & -8.8412976d-01, -8.4133267d-01, -7.9595232d-01, -7.4758178d-01,
318  & -6.9570506d-01, -6.3965321d-01, -5.7853723d-01, -5.1113909d-01,
319  & -4.3572867d-01, -3.4973705d-01, -2.4914712d-01, -1.2731618d-01,
320  & 2.7039226d-02, 2.2956538d-01, 4.7349757d-01, 6.9613290d-01,
321  & 8.6728698d-01, 9.9999982d-01, -1.0000000d+00, -9.5969981d-01,
322  & -9.1712588d-01, -8.7194812d-01, -8.2375574d-01, -7.7202839d-01,
323  & -7.1609396d-01, -6.5506285d-01, -5.8772576d-01, -5.1238465d-01,
324  & -4.2656904d-01, -3.2655114d-01, -2.0657891d-01, -5.8248814d-02,
325  & 1.2596667d-01, 3.3378631d-01, 5.2573001d-01, 6.8180692d-01,
326  & 8.0739212d-01, 9.1134506d-01, 9.9999988d-01, -1.0000000d+00,
327  & -9.5510387d-01, -9.0722835d-01, -8.5586649d-01, -8.0036676d-01,
328  & -7.3987299d-01, -6.7323196d-01, -5.9884596d-01, -5.1443464d-01,
329  & -4.1665679d-01, -3.0059606d-01, -1.5963107d-01, 1.1211280d-02,
330  & 2.0204568d-01, 3.8300025d-01, 5.3508908d-01, 6.5974528d-01,
331  & 7.6376832d-01, 8.5277611d-01, 9.3064380d-01, 9.9999994d-01,
332  & -1.0000000d+00, -9.5018482d-01, -8.9655185d-01, -8.3835453d-01,
333  & -7.7460307d-01, -7.0395201d-01, -6.2452292d-01, -5.3362864d-01/
334 
335  data ( tapcrs(i),i=1201,1400 )/
336  & -4.2738497d-01, -3.0042827d-01, -1.4717841d-01, 3.0762751d-02,
337  & 2.1328855d-01, 3.7548864d-01, 5.1049203d-01, 6.2281829d-01,
338  & 7.1820951d-01, 8.0102408d-01, 8.7429208d-01, 9.4011891d-01,
339  & 9.9999994d-01, -1.0000000d+00, -9.4573057d-01, -8.8679588d-01,
340  & -8.2217783d-01, -7.5049210d-01, -6.6980851d-01, -5.7737607d-01,
341  & -4.6926105d-01, -3.4019363d-01, -1.8527257d-01, -7.8740008d-03,
342  & 1.7114097d-01, 3.2925797d-01, 4.6124065d-01, 5.7158220d-01,
343  & 6.6567129d-01, 7.4760705d-01, 8.2026297d-01, 8.8565177d-01,
344  & 9.4521236d-01, 9.9999994d-01, -1.0000000d+00, -9.4147122d-01,
345  & -8.7740588d-01, -8.0648410d-01, -7.2687727d-01, -6.3599700d-01,
346  & -5.3016073d-01, -4.0440434d-01, -2.5375736d-01, -7.9806268d-02,
347  & 9.9505305d-02, 2.6091939d-01, 3.9664966d-01, 5.1017469d-01,
348  & 6.0680544d-01, 6.9077122d-01, 7.6507664d-01, 8.3183265d-01,
349  & 8.9254820d-01, 9.4832784d-01, 9.9999994d-01, -1.0000000d+00,
350  & -9.3700790d-01, -8.6747146d-01, -7.8969216d-01, -7.0127815d-01,
351  & -5.9882563d-01, -4.7765356d-01, -3.3252394d-01, -1.6260344d-01,
352  & 1.8119588d-02, 1.8535995d-01, 3.2731956d-01, 4.4589710d-01,
353  & 5.4639643d-01, 6.3334227d-01, 7.0999509d-01, 7.7864599d-01,
354  & 8.4092569d-01, 8.9802200d-01, 9.5082116d-01, 9.9999994d-01,
355  & -1.0000000d+00, -9.3210226d-01, -8.5648751d-01, -7.7099615d-01,
356  & -6.7256343d-01, -5.5690897d-01, -4.1878051d-01, -2.5515354d-01,
357  & -7.4726403d-02, 9.9190891d-02, 2.4962091d-01, 3.7541151d-01,
358  & 4.8150015d-01, 5.7275546d-01, 6.5279621d-01, 7.2417521d-01,
359  & 7.8870231d-01, 8.4768736d-01, 9.0210176d-01, 9.5268226d-01,
360  & 9.9999994d-01, -1.0000000d+00, -9.2690921d-01, -8.4473062d-01,
361  & -7.5073123d-01, -6.4103895d-01, -5.1053452d-01, -3.5454065d-01,
362  & -1.7626882d-01, 4.4287816d-03, 1.6529226d-01, 3.0031151d-01,
363  & 4.1348964d-01, 5.1009959d-01, 5.9425896d-01, 6.6888833d-01,
364  & 7.3604542d-01, 7.9720628d-01, 8.5345519d-01, 9.0560800d-01,
365  & 9.5429218d-01, 9.9999994d-01, -1.0000000d+00, -9.2119068d-01,
366  & -8.3167994d-01, -7.2804666d-01, -6.0555249d-01, -4.5874518d-01,
367  & -2.8617704d-01, -1.0119593d-01, 7.1093440d-02, 2.1757221d-01,
368  & 3.3979833d-01, 4.4323009d-01, 5.3258955d-01, 6.1128289d-01,
369  & 6.8169951d-01, 7.4553680d-01, 8.0402839d-01, 8.5809344d-01,
370  & 9.0843236d-01, 9.5559049d-01, 9.9999994d-01, -1.0000000d+00,
371  & -9.1520852d-01, -8.1789762d-01, -7.0387357d-01, -5.6763846d-01,
372  & -4.0460157d-01, -2.1997017d-01, -3.6549706d-02, 1.2408340d-01,
373  & 2.5811607d-01, 3.7045294d-01, 4.6650618d-01, 5.5034614d-01,
374  & 6.2482816d-01, 6.9195861d-01, 7.5317734d-01, 8.0954367d-01,
375  & 8.6185610d-01, 9.1073000d-01, 9.5664907d-01, 9.9999994d-01,
376  & -1.0000000d+00, -9.0974915d-01, -8.0521792d-01, -6.8150002d-01,
377  & -5.3273034d-01, -3.5670149d-01, -1.6658777d-01, 1.0872558d-02,
378  & 1.6130304d-01, 2.8635985d-01, 3.9188957d-01, 4.8288673d-01,
379  & 5.6291783d-01, 6.3446665d-01, 6.9928819d-01, 7.5865334d-01,
380  & 8.1350607d-01, 8.6456436d-01, 9.1238612d-01, 9.5741284d-01,
381  & 9.9999994d-01, -1.0000000d+00, -9.5474732d-01, -9.0797156d-01,
382  & -8.5953504d-01, -8.0927891d-01, -7.5701791d-01, -7.0253474d-01,
383  & -6.4557099d-01, -5.8581614d-01, -5.2289140d-01, -4.5632708d-01,
384  & -3.8552970d-01, -3.0973125d-01, -2.2790891d-01, -1.3865066d-01,
385  & -3.9914124d-02, 7.1447670d-02, 2.0074219d-01, 3.5828817d-01/
386  data ( tapcrs(i),i=1401,1600 )/
387  & 5.7023323d-01, 9.9999905d-01, -1.0000000d+00, -9.6515286d-01,
388  & -9.2897826d-01, -8.9134371d-01, -8.5209447d-01, -8.1104821d-01,
389  & -7.6798719d-01, -7.2264880d-01, -6.7471129d-01, -6.2377453d-01,
390  & -5.6933063d-01, -5.1072037d-01, -4.4706392d-01, -3.7714565d-01,
391  & -2.9921085d-01, -2.1057701d-01, -1.0680532d-01, 2.0348281d-02,
392  & 1.8931282d-01, 4.5787227d-01, 9.9999946d-01, -1.0000000d+00,
393  & -9.6465778d-01, -9.2774224d-01, -8.8907164d-01, -8.4842902d-01,
394  & -8.0555195d-01, -7.6011866d-01, -7.1172827d-01, -6.5987200d-01,
395  & -6.0388935d-01, -5.4290086d-01, -4.7569704d-01, -4.0054822d-01,
396  & -3.1485701d-01, -2.1447420d-01, -9.2242360d-02, 6.5219641d-02,
397  & 2.8202093d-01, 5.6381589d-01, 8.1718135d-01, 9.9999988d-01,
398  & -1.0000000d+00, -9.5966858d-01, -9.1698384d-01, -8.7159079d-01,
399  & -8.2304406d-01, -7.7077407d-01, -7.1403587d-01, -6.5182990d-01,
400  & -5.8277279d-01, -5.0488096d-01, -4.1519260d-01, -3.0910605d-01,
401  & -1.7935860d-01, -1.5808716d-02, 1.8529671d-01, 3.9437628d-01,
402  & 5.7112050d-01, 7.1097803d-01, 8.2400483d-01, 9.1855681d-01,
403  & 9.9999994d-01, -1.0000000d+00, -9.5546091d-01, -9.0787077d-01,
404  & -8.5668892d-01, -8.0121267d-01, -7.4050552d-01, -6.7328376d-01,
405  & -5.9772897d-01, -5.1117039d-01, -4.0955031d-01, -2.8664619d-01,
406  & -1.3395101d-01, 5.2781019d-02, 2.5250065d-01, 4.2817038d-01,
407  & 5.6967193d-01, 6.8442214d-01, 7.8031117d-01, 8.6272919d-01,
408  & 9.3518162d-01, 9.9999994d-01, -1.0000000d+00, -9.5273095d-01,
409  & -9.0191084d-01, -8.4684879d-01, -7.8662604d-01, -7.1998596d-01,
410  & -6.4515340d-01, -5.5953121d-01, -4.5919204d-01, -3.3814514d-01,
411  & -1.8820751d-01, -4.9517751d-03, 1.9246984d-01, 3.6785293d-01,
412  & 5.0975674d-01, 6.2491304d-01, 7.2109592d-01, 8.0370867d-01,
413  & 8.7628329d-01, 9.4117284d-01, 9.9999994d-01, -1.0000000d+00,
414  & -9.5004457d-01, -8.9601034d-01, -8.3703375d-01, -7.7194101d-01,
415  & -6.9908589d-01, -6.1607856d-01, -5.1932925d-01, -4.0335667d-01,
416  & -2.6036495d-01, -8.4096611d-02, 1.1258978d-01, 2.9360336d-01,
417  & 4.4144511d-01, 5.6097960d-01, 6.6024494d-01, 7.4507523d-01,
418  & 8.1929857d-01, 8.8545245d-01, 9.4527519d-01, 9.9999994d-01,
419  & -1.0000000d+00, -9.4771069d-01, -8.9084876d-01, -8.2837582d-01,
420  & -7.5885326d-01, -6.8021959d-01, -5.8941424d-01, -4.8176640d-01,
421  & -3.5028833d-01, -1.8688828d-01, 5.8203787d-03, 1.9699484d-01,
422  & 3.5770959d-01, 4.8701793d-01, 5.9312946d-01, 6.8284005d-01,
423  & 7.6066679d-01, 8.2957351d-01, 8.9156199d-01, 9.4803298d-01,
424  & 9.9999994d-01, -1.0000000d+00, -9.4592154d-01, -8.8687217d-01,
425  & -8.2166398d-01, -7.4862754d-01, -6.6533256d-01, -5.6811649d-01,
426  & -4.5136678d-01, -3.0709749d-01, -1.2912631d-01, 6.8450272d-02,
427  & 2.4875021d-01, 3.9538068d-01, 5.1385552d-01, 6.1228675d-01,
428  & 6.9646090d-01, 7.7015668d-01, 8.3587593d-01, 8.9533269d-01,
429  & 9.4974357d-01, 9.9999994d-01, -1.0000000d+00, -9.4437110d-01,
430  & -8.8341355d-01, -8.1579936d-01, -7.3963958d-01, -6.5214902d-01,
431  & -5.4908562d-01, -4.2398232d-01, -2.6838219d-01, -8.0068648d-02,
432  & 1.1616290d-01, 2.8562915d-01, 4.2190868d-01, 5.3286290d-01,
433  & 6.2596554d-01, 7.0625645d-01, 7.7702081d-01, 8.4045529d-01,
434  & 8.9808238d-01, 9.5099455d-01, 9.9999994d-01, -1.0000000d+00,
435  & -9.4319689d-01, -8.8078326d-01, -8.1131649d-01, -7.3272568d-01,
436  & -6.4192808d-01, -5.3419745d-01, -4.0240413d-01, -2.3814243d-01/
437  data ( tapcrs(i),i=1601,1800 )/
438  & -4.3835081d-02, 1.4876527d-01, 3.1006980d-01, 4.3949670d-01,
439  & 5.4556108d-01, 6.3517481d-01, 7.1289450d-01, 7.8169715d-01,
440  & 8.4358865d-01, 8.9997053d-01, 9.5185614d-01, 9.9999994d-01,
441  & -1.0000000d+00, -9.4194156d-01, -8.7796533d-01, -8.0650032d-01,
442  & -7.2527027d-01, -6.3085490d-01, -5.1798677d-01, -3.7888211d-01,
443  & -2.0581532d-01, -7.4911006d-03, 1.7948508d-01, 3.3265042d-01,
444  & 4.5574361d-01, 5.5733645d-01, 6.4374769d-01, 7.1909302d-01,
445  & 7.8607422d-01, 8.4652662d-01, 9.0174329d-01, 9.5266587d-01,
446  & 9.9999994d-01, -1.0000000d+00, -9.4105405d-01, -8.7596601d-01,
447  & -8.0306840d-01, -7.1992892d-01, -6.2286943d-01, -5.0621390d-01,
448  & -3.6175179d-01, -1.8271077d-01, 1.7110121d-02, 1.9945979d-01,
449  & 3.4723204d-01, 4.6628428d-01, 5.6502372d-01, 6.4937538d-01,
450  & 7.2318065d-01, 7.8897154d-01, 8.4847742d-01, 9.0292346d-01,
451  & 9.5320612d-01, 9.9999994d-01, -1.0000000d+00, -9.3986768d-01,
452  & -8.7328815d-01, -7.9845947d-01, -7.1273100d-01, -6.1206311d-01,
453  & -4.9022132d-01, -3.3854413d-01, -1.5228772d-01, 4.7694791d-02,
454  & 2.2346300d-01, 3.6464596d-01, 4.7889900d-01, 5.7425380d-01,
455  & 6.5615177d-01, 7.2811365d-01, 7.9247391d-01, 8.5083866d-01,
456  & 9.0435332d-01, 9.5386106d-01, 9.9999994d-01, -1.0000000d+00,
457  & -9.3882328d-01, -8.7092441d-01, -7.9437745d-01, -7.0632863d-01,
458  & -6.0240203d-01, -4.7586167d-01, -3.1780124d-01, -1.2603891d-01,
459  & 7.2603047d-02, 2.4249291d-01, 3.7841678d-01, 4.8891085d-01,
460  & 5.8160955d-01, 6.6157079d-01, 7.3206937d-01, 7.9528850d-01,
461  & 8.5273939d-01, 9.0550584d-01, 9.5438963d-01, 9.9999994d-01,
462  & -1.0000000d+00, -9.3782640d-01, -8.6866266d-01, -7.9045874d-01,
463  & -7.0015723d-01, -5.9304488d-01, -4.6190435d-01, -2.9777563d-01,
464  & -1.0161740d-01, 9.4689548d-02, 2.5907177d-01, 3.9041227d-01,
465  & 4.9766427d-01, 5.8806461d-01, 6.6634101d-01, 7.3556006d-01,
466  & 7.9777700d-01, 8.5442245d-01, 9.0652764d-01, 9.5485866d-01,
467  & 9.9999994d-01, -1.0000000d+00, -9.3656057d-01, -8.6578262d-01,
468  & -7.8545189d-01, -6.9223768d-01, -5.8097804d-01, -4.4385612d-01,
469  & -2.7217954d-01, -7.1801722d-02, 1.2040854d-01, 2.7810723d-01,
470  & 4.0419799d-01, 5.0776207d-01, 5.9553808d-01, 6.7187989d-01,
471  & 7.3962247d-01, 8.0067825d-01, 8.5638750d-01, 9.0772194d-01,
472  & 9.5540738d-01, 9.9999994d-01, -1.0000000d+00, -9.3575716d-01,
473  & -8.6395049d-01, -7.8225690d-01, -6.8716502d-01, -5.7321721d-01,
474  & -4.3223363d-01, -2.5593144d-01, -5.3707235d-02, 1.3543469d-01,
475  & 2.8912467d-01, 4.1218805d-01, 5.1363337d-01, 5.9989607d-01,
476  & 6.7511731d-01, 7.4200112d-01, 8.0237937d-01, 8.5754085d-01,
477  & 9.0842348d-01, 9.5572990d-01, 9.9999994d-01, 1.0000001d-26,
478  & 1.4000001d-26, 1.6999999d-26, 2.5000000d-26, 3.2000001d-26,
479  & 3.8000000d-26, 4.5000000d-26, 4.2999998d-26, 4.0000000d-26,
480  & 3.8000000d-26, 3.2000001d-26, 2.5000000d-26, 2.1000001d-26,
481  & 1.6000000d-26, 1.2000001d-26, 7.9999987d-27, 5.0000007d-27,
482  & 2.0000001d-27, 0.0000000d+00, 1.0000001d-26, 1.4000001d-26,
483  & 1.7000002d-26, 2.5000000d-26, 3.2000000d-26, 3.8000002d-26,
484  & 4.4999998d-26, 4.3000000d-26, 4.0000000d-26, 3.8000002d-26,
485  & 3.2000000d-26, 2.5000000d-26, 2.1000002d-26, 1.5999997d-26,
486  & 1.1999998d-26, 7.9999986d-27, 5.0000000d-27, 2.0000000d-27,
487  & 0.0000000d+00, 6.6000000d+02, 1.6157001d-01, 8.2629979d-02/
488 
489  data ( tapcrs(i),i=1801,2000 )/
490  & 1.3814002d-01, 2.1460003d-01, 1.6280001d-01, 2.4026000d-01,
491  & 5.0000000d-01, 8.0000000d+02, 1.5381998d-01, 1.3207000d-01,
492  & 1.9955999d-01, 2.4044001d-01, 1.3415003d-01, 1.3997000d-01,
493  & 5.0000000d-01, 9.3000000d+02, 2.0169997d-01, 1.3169998d-01,
494  & 1.8089998d-01, 2.6010001d-01, 1.4969999d-01, 7.5919986d-02,
495  & 5.0000000d-01, 1.0000000d+03, 1.9009000d-01, 1.6614002d-01,
496  & 2.2601002d-01, 2.2033000d-01, 1.0162997d-01, 9.5790029d-02,
497  & 5.0000000d-01, 1.5000000d+03, 2.9960001d-01, 2.1249998d-01,
498  & 2.4940002d-01, 1.8599999d-01, 4.4590000d-02, 7.8039989d-03,
499  & 5.0000000d-01, 2.2400000d+03, 3.9399999d-01, 2.3140001d-01,
500  & 2.0940000d-01, 1.0869998d-01, 2.8269999d-02, 2.8269999d-02,
501  & 5.0000000d-01, 2.7500000d+03, 4.7350001d-01, 2.6789999d-01,
502  & 1.9279999d-01, 5.5459999d-02, 3.4129999d-03, 6.8259984d-03,
503  & 5.0000000d-01, 4.4000000d+03, 6.5329999d-01, 1.7540002d-01,
504  & 1.0310000d-01, 4.4009998d-02, 1.3750002d-02, 1.0450002d-02,
505  & 5.0000000d-01, 6.6000000d+02, 1.6157001d-01, 8.2629979d-02,
506  & 1.3814002d-01, 2.1460003d-01, 1.6280001d-01, 2.4026000d-01,
507  & 4.7399998d-01, 8.0000000d+02, 1.5381998d-01, 1.3207000d-01,
508  & 1.9955999d-01, 2.4044001d-01, 1.3415003d-01, 1.3997000d-01,
509  & 4.5700002d-01, 9.3000000d+02, 2.0169997d-01, 1.3169998d-01,
510  & 1.8089998d-01, 2.6010001d-01, 1.4969999d-01, 7.5919986d-02,
511  & 4.4000000d-01, 1.0000000d+03, 1.9009000d-01, 1.6614002d-01,
512  & 2.2601002d-01, 2.2033000d-01, 1.0162997d-01, 9.5790029d-02,
513  & 4.3099999d-01, 1.5000000d+03, 2.9960001d-01, 2.1249998d-01,
514  & 2.4940002d-01, 1.8599999d-01, 4.4590000d-02, 7.8039989d-03,
515  & 3.6799997d-01, 2.2400000d+03, 3.9399999d-01, 2.3140001d-01,
516  & 2.0940000d-01, 1.0869998d-01, 2.8269999d-02, 2.8269999d-02,
517  & 2.7300000d-01, 2.7500000d+03, 4.7350001d-01, 2.6789999d-01,
518  & 1.9279999d-01, 5.5459999d-02, 3.4129999d-03, 6.8259984d-03,
519  & 2.0800000d-01, 4.4000000d+03, 6.5329999d-01, 1.7540002d-01,
520  & 1.0310000d-01, 4.4009998d-02, 1.3750002d-02, 1.0450002d-02,
521  & 1.5799999d-01, 0.0000000d+00, 2.0000000d-28, 4.0000005d-28,
522  & 7.0000004d-28, 1.3000000d-27, 2.0000001d-27, 3.2000000d-27,
523  & 4.4999985d-27, 5.7000008d-27, 7.2499984d-27, 9.0000001d-27,
524  & 1.1200001d-26, 1.2629999d-26, 1.4100001d-26, 1.5250000d-26,
525  & 1.6299999d-26, 1.7099999d-26, 1.7630000d-26, 1.8129999d-26,
526  & 1.8499999d-26, 1.8800001d-26, 1.9099999d-26, 1.9300000d-26,
527  & 1.9550001d-26, 1.9700002d-26, 1.9799999d-26, 2.0100000d-26,
528  & 2.0200001d-26, 2.0399998d-26, 2.0599999d-26, 2.0700000d-26,
529  & 2.0800000d-26, 2.0879999d-26, 2.0900001d-26, 2.1000001d-26,
530  & 2.1050001d-26, 2.1099999d-26, 2.1120000d-26, 2.1120000d-26,
531  & 2.1120000d-26, 2.1120000d-26, 2.1099999d-26, 2.1099999d-26,
532  & 2.1060001d-26, 2.1039999d-26, 2.1000001d-26, 2.0950001d-26,
533  & 2.0900001d-26, 2.0869999d-26, 2.0840001d-26, 2.0810000d-26,
534  & 2.0780001d-26, 2.0750000d-26, 2.0700000d-26, 2.0650000d-26,
535  & 2.0599999d-26, 2.0549999d-26, 2.0499999d-26, 2.0439999d-26,
536  & 2.0380000d-26, 2.0320000d-26, 2.0260000d-26, 2.0200001d-26,
537  & 2.0100000d-26, 2.0000000d-26, 1.9899999d-26, 1.9849999d-26,
538  & 1.9799999d-26, 1.9749999d-26, 1.9650001d-26, 1.9600001d-26,
539  & 2.0499999d-26, 1.9450000d-26, 1.9369999d-26, 1.9300000d-26/
540  data ( tapcrs(i),i=2001,2200 )/
541  & 1.9250000d-26, 1.9199999d-26, 1.9099999d-26, 1.9000001d-26,
542  & 1.8900001d-26, 1.8800001d-26, 1.8750000d-26, 1.8700000d-26,
543  & 1.8669999d-26, 1.8549999d-26, 1.8449999d-26, 1.8370001d-26,
544  & 1.8300001d-26, 1.8250001d-26, 1.8119999d-26, 1.8100001d-26,
545  & 1.8000000d-26, 1.7900000d-26, 1.7799999d-26, 1.7749999d-26,
546  & 1.7699999d-26, 1.7600001d-26, 1.7500001d-26, 1.7400001d-26,
547  & 1.7300000d-26, 1.7200000d-26, 1.7120001d-26, 1.7099999d-26,
548  & 1.6949999d-26, 1.6870000d-26, 1.6800001d-26, 1.6700000d-26,
549  & 1.6600000d-26, 1.6500000d-26, 1.6399999d-26, 1.6299999d-26,
550  & 1.6200001d-26, 1.6100001d-26, 1.6000000d-26, 1.5900000d-26,
551  & 1.5800000d-26, 1.5699999d-26, 1.5599999d-26, 1.5500001d-26,
552  & 1.5369999d-26, 1.5250000d-26, 1.5120001d-26, 1.4999999d-26,
553  & 1.4899999d-26, 1.4800001d-26, 1.4700001d-26, 1.4600000d-26,
554  & 1.4399999d-26, 1.4299999d-26, 1.4199999d-26, 1.4100001d-26,
555  & 1.3900000d-26, 1.3800000d-26, 1.3699999d-26, 1.3599999d-26,
556  & 1.3400001d-26, 1.3250001d-26, 1.3119999d-26, 1.2999999d-26,
557  & 1.2799998d-26, 1.2700001d-26, 1.2500000d-26, 1.2400000d-26,
558  & 1.2249999d-26, 1.2099998d-26, 1.1900001d-26, 1.1700000d-26,
559  & 1.1599999d-26, 1.1400002d-26, 1.1200001d-26, 1.1100000d-26,
560  & 1.0799999d-26, 1.0700001d-26, 1.0600001d-26, 1.0369999d-26,
561  & 1.0199999d-26, 9.9999983d-27, 9.8000005d-27, 0.0000000d+00,
562  & 2.0000000d-28, 2.9999999d-28, 5.9999998d-28, 7.0000004d-28,
563  & 8.4999994d-28, 1.1000001d-27, 1.2500000d-27, 1.4000001d-27,
564  & 1.6000000d-27, 1.7500001d-27, 1.9000000d-27, 2.0999999d-27,
565  & 2.3000000d-27, 2.5000000d-27, 2.6500001d-27, 2.8000000d-27,
566  & 3.0000001d-27, 3.2000000d-27, 3.2999993d-27, 3.5000002d-27,
567  & 3.7000011d-27, 3.8000015d-27, 4.0999998d-27, 4.2000002d-27,
568  & 4.3500009d-27, 4.5499987d-27, 4.6999994d-27, 4.7999998d-27,
569  & 5.0000007d-27, 5.1999985d-27, 5.3999994d-27, 5.5500001d-27,
570  & 5.7000008d-27, 5.8000012d-27, 5.9999990d-27, 6.1999999d-27,
571  & 6.3000003d-27, 6.5000012d-27, 6.6249987d-27, 6.7999995d-27,
572  & 6.8999999d-27, 7.1000008d-27, 7.2999986d-27, 7.3999991d-27,
573  & 7.6000000d-27, 7.7000004d-27, 7.8500011d-27, 7.9999987d-27,
574  & 8.1999996d-27, 8.3000000d-27, 8.4000005d-27, 8.6000014d-27,
575  & 8.6999987d-27, 8.8499994d-27, 9.0000001d-27, 9.2000009d-27,
576  & 9.2500012d-27, 9.3999988d-27, 9.4999992d-27, 9.7000001d-27,
577  & 9.7500003d-27, 9.8500008d-27, 9.9999983d-27, 1.0130000d-26,
578  & 1.0249999d-26, 1.0400000d-26, 1.0500001d-26, 1.0650001d-26,
579  & 1.0749999d-26, 1.0849999d-26, 1.0899999d-26, 1.1100000d-26,
580  & 1.1200001d-26, 1.1300001d-26, 1.1400002d-26, 1.1549999d-26,
581  & 1.1650000d-26, 1.1750000d-26, 1.1800000d-26, 1.1900001d-26,
582  & 1.2050001d-26, 1.2130000d-26, 1.2249999d-26, 1.2299999d-26,
583  & 1.2400000d-26, 1.2500000d-26, 1.2600001d-26, 1.2700001d-26,
584  & 1.2750001d-26, 1.2799998d-26, 1.2849999d-26, 1.2999999d-26,
585  & 1.3100000d-26, 1.3200000d-26, 1.3250001d-26, 1.3300001d-26,
586  & 1.3379999d-26, 1.3450001d-26, 1.3549999d-26, 1.3649999d-26,
587  & 1.3699999d-26, 1.3750000d-26, 1.3800000d-26, 1.3850000d-26,
588  & 1.3900000d-26, 1.4000001d-26, 1.4050001d-26, 1.4100001d-26,
589  & 1.4120000d-26, 1.4199999d-26, 1.4249999d-26, 1.4299999d-26,
590  & 1.4349999d-26, 1.4399999d-26, 1.4450000d-26, 1.4500000d-26/
591  data ( tapcrs(i),i=2201,2400 )/
592  & 1.4550000d-26, 1.4600000d-26, 1.4679999d-26, 1.4700001d-26,
593  & 1.4729999d-26, 1.4750001d-26, 1.4779999d-26, 1.4800001d-26,
594  & 1.4850001d-26, 1.4870000d-26, 1.4899999d-26, 1.4920001d-26,
595  & 1.4949999d-26, 0.0000000d+00, 1.0000000d-28, 2.0000000d-28,
596  & 2.9999999d-28, 4.9999992d-28, 7.9999991d-28, 1.3000000d-27,
597  & 2.2500000d-27, 3.2499991d-27, 3.9999993d-27, 5.0000007d-27,
598  & 5.7500010d-27, 6.4000008d-27, 6.6999990d-27, 7.4999995d-27,
599  & 7.8000009d-27, 8.2499998d-27, 8.6000014d-27, 8.8499994d-27,
600  & 9.1250006d-27, 9.3499985d-27, 9.5499994d-27, 9.7000001d-27,
601  & 9.8000005d-27, 9.9000010d-27, 9.9999983d-27, 1.0099999d-26,
602  & 1.0149999d-26, 1.0199999d-26, 1.0300000d-26, 1.0350000d-26,
603  & 1.0400000d-26, 1.0450000d-26, 1.0479999d-26, 1.0500001d-26,
604  & 1.0519999d-26, 1.0550001d-26, 1.0600001d-26, 1.0600001d-26,
605  & 1.0600001d-26, 1.0600001d-26, 1.0600001d-26, 1.0600001d-26,
606  & 1.0600001d-26, 1.0600001d-26, 1.0550001d-26, 1.0500001d-26,
607  & 1.0500001d-26, 1.0500001d-26, 1.0450000d-26, 1.0440001d-26,
608  & 1.0419999d-26, 1.0400000d-26, 1.0380001d-26, 1.0359999d-26,
609  & 1.0340000d-26, 1.0319999d-26, 1.0300000d-26, 1.0249999d-26,
610  & 1.0230001d-26, 1.0199999d-26, 1.0149999d-26, 1.0120001d-26,
611  & 1.0120001d-26, 1.0099999d-26, 1.0049999d-26, 9.9999983d-27,
612  & 9.9500012d-27, 9.9199998d-27, 9.8899985d-27, 9.8600002d-27,
613  & 9.8299988d-27, 9.8000005d-27, 9.7599997d-27, 9.7199989d-27,
614  & 9.6800012d-27, 9.6400004d-27, 9.5999996d-27, 9.5499994d-27,
615  & 9.4999992d-27, 9.4499990d-27, 9.3999988d-27, 9.3749986d-27,
616  & 9.3499985d-27, 9.3000014d-27, 9.2500012d-27, 9.2000009d-27,
617  & 9.1500007d-27, 9.1250006d-27, 9.1000005d-27, 9.0500003d-27,
618  & 9.0000001d-27, 8.9499998d-27, 8.8999996d-27, 8.8749995d-27,
619  & 8.8700013d-27, 8.7749990d-27, 8.7499989d-27, 8.6999987d-27,
620  & 8.6749986d-27, 8.6499985d-27, 8.6000014d-27, 8.5500011d-27,
621  & 8.5000009d-27, 8.4500007d-27, 8.4000005d-27, 8.3500002d-27,
622  & 8.3000000d-27, 8.2499998d-27, 8.1999996d-27, 8.1499993d-27,
623  & 8.0999991d-27, 8.0499989d-27, 7.9999987d-27, 7.9499985d-27,
624  & 7.9000013d-27, 7.8500011d-27, 7.8000009d-27, 7.7500006d-27,
625  & 7.7000004d-27, 7.6500002d-27, 7.6000000d-27, 7.4999995d-27,
626  & 7.4900001d-27, 7.4300005d-27, 7.3700008d-27, 7.3100011d-27,
627  & 7.2499984d-27, 7.1799993d-27, 7.1100003d-27, 7.0400012d-27,
628  & 6.9699990d-27, 6.8999999d-27, 6.8749998d-27, 6.7999995d-27,
629  & 6.7499993d-27, 6.6999990d-27, 6.6249987d-27, 6.5999986d-27,
630  & 6.4500010d-27, 6.3500006d-27, 6.3000003d-27, 6.2500001d-27,
631  & 6.1999999d-27, 6.0999995d-27, 5.9999990d-27, 5.8500014d-27,
632  & 5.8000012d-27, 5.7500010d-27, 5.7000008d-27, 5.6000003d-27,
633  & 5.4999999d-27, 5.3999994d-27, 5.2999990d-27, 5.1999985d-27,
634  & 5.1000012d-27, 5.0000007d-27, 4.9000003d-27, 0.0000000d+00,
635  & 1.8000000d-28, 2.4999996d-28, 4.5000008d-28, 5.9999998d-28,
636  & 7.5000007d-28, 8.9999997d-28, 1.1000001d-27, 1.2500000d-27,
637  & 1.3500000d-27, 1.5500000d-27, 1.7000001d-27, 1.7999999d-27,
638  & 2.0500001d-27, 2.2000000d-27, 2.3500001d-27, 2.5000000d-27,
639  & 2.6500001d-27, 2.8000000d-27, 3.0000001d-27, 3.2000000d-27,
640  & 3.2999993d-27, 3.3999997d-27, 3.6000006d-27, 3.7500013d-27,
641  & 3.8999989d-27, 4.1500000d-27, 4.2000002d-27, 4.3500009d-27/
642 
643  data ( tapcrs(i),i=2401,2600 )/
644  & 4.4999985d-27, 4.6999994d-27, 4.7999998d-27, 4.9000003d-27,
645  & 5.1500014d-27, 5.2499987d-27, 5.3999994d-27, 5.6000003d-27,
646  & 5.7000008d-27, 5.8000012d-27, 5.9999990d-27, 6.1499997d-27,
647  & 6.2500001d-27, 6.4000008d-27, 6.5999986d-27, 6.6999990d-27,
648  & 6.7999995d-27, 6.8999999d-27, 7.1000008d-27, 7.2999986d-27,
649  & 7.3999991d-27, 7.5499998d-27, 7.6500002d-27, 7.8000009d-27,
650  & 7.9000013d-27, 8.0999991d-27, 8.1999996d-27, 8.3000000d-27,
651  & 8.4000005d-27, 8.6000014d-27, 8.6999987d-27, 8.7999992d-27,
652  & 8.8999996d-27, 9.1000005d-27, 9.2000009d-27, 9.3000014d-27,
653  & 9.3999988d-27, 9.5999996d-27, 9.7000001d-27, 9.8000005d-27,
654  & 9.8699996d-27, 9.9500012d-27, 1.0149999d-26, 1.0199999d-26,
655  & 1.0300000d-26, 1.0400000d-26, 1.0500001d-26, 1.0600001d-26,
656  & 1.0700001d-26, 1.0799999d-26, 1.0899999d-26, 1.1000000d-26,
657  & 1.1150000d-26, 1.1200001d-26, 1.1250001d-26, 1.1300001d-26,
658  & 1.1400002d-26, 1.1499999d-26, 1.1599999d-26, 1.1700000d-26,
659  & 1.1730001d-26, 1.1750000d-26, 1.1800000d-26, 1.1850000d-26,
660  & 1.1900001d-26, 1.1950001d-26, 1.2050001d-26, 1.2099998d-26,
661  & 1.2130000d-26, 1.2170001d-26, 1.2199999d-26, 1.2230000d-26,
662  & 1.2249999d-26, 1.2249999d-26, 1.2270001d-26, 1.2299999d-26,
663  & 1.2299999d-26, 1.2299999d-26, 1.2299999d-26, 1.2299999d-26,
664  & 1.2299999d-26, 1.2299999d-26, 1.2299999d-26, 1.2299999d-26,
665  & 1.2299999d-26, 1.2299999d-26, 1.2299999d-26, 1.2299999d-26,
666  & 1.2299999d-26, 1.2299999d-26, 1.2299999d-26, 1.2299999d-26,
667  & 1.2299999d-26, 1.2299999d-26, 1.2299999d-26, 1.2299999d-26,
668  & 1.2299999d-26, 1.2299999d-26, 1.2290000d-26, 1.2280000d-26,
669  & 1.2270001d-26, 7.5957203d-01, 7.6007801d-01, 7.6024699d-01,
670  & 7.6075602d-01, 7.6160902d-01, 7.6195198d-01, 7.6246697d-01,
671  & 7.6333100d-01, 7.6367801d-01, 7.6420099d-01, 7.6507598d-01,
672  & 7.6560402d-01, 7.6631200d-01, 7.6702297d-01, 7.6773798d-01,
673  & 7.6845598d-01, 7.6917899d-01, 7.7008802d-01, 7.7045298d-01,
674  & 7.7173901d-01, 7.7229398d-01, 7.7359802d-01, 7.7416003d-01,
675  & 7.7548200d-01, 7.7605200d-01, 7.7739298d-01, 7.7816403d-01,
676  & 7.7972001d-01, 7.8070199d-01, 7.8188902d-01, 7.8348702d-01,
677  & 7.8308600d-01, 7.8591901d-01, 7.8776997d-01, 7.8922600d-01,
678  & 7.9112101d-01, 7.9282600d-01, 7.9476798d-01, 7.9673600d-01,
679  & 7.9895401d-01, 8.0097800d-01, 8.0303001d-01, 8.0441397d-01,
680  & 8.0580997d-01, 8.0698401d-01, 8.0745602d-01, 8.0769199d-01,
681  & 8.0745602d-01, 8.0698401d-01, 8.0534399d-01, 8.0303001d-01,
682  & 8.0075198d-01, 7.9828501d-01, 7.9520297d-01, 7.9239798d-01,
683  & 7.8901702d-01, 7.8571397d-01, 7.8248602d-01, 7.7874601d-01,
684  & 7.7529198d-01, 7.7136999d-01, 7.6755899d-01, 7.6385200d-01,
685  & 7.5974000d-01, 7.5608200d-01, 7.5268501d-01, 7.4968797d-01,
686  & 7.4660897d-01, 7.4405098d-01, 7.4154598d-01, 7.3952103d-01,
687  & 7.3767102d-01, 7.3570997d-01, 7.3391801d-01, 7.3242301d-01,
688  & 7.3108000d-01, 7.2962099d-01, 7.2844100d-01, 7.2727299d-01,
689  & 7.2624397d-01, 7.2522497d-01, 7.2446698d-01, 7.2383898d-01,
690  & 7.2321397d-01, 7.2246897d-01, 7.2197598d-01, 7.2148401d-01,
691  & 7.2099400d-01, 7.2050697d-01, 7.2014296d-01, 7.1977997d-01,
692  & 7.1953899d-01, 7.1917802d-01, 7.1893799d-01, 7.1869898d-01,
693  & 7.1845996d-01, 7.1822101d-01, 7.1810198d-01, 7.1786499d-01/
694  data ( tapcrs(i),i=2601,2800 )/
695  & 7.1774602d-01, 7.1762800d-01, 7.1750998d-01, 7.1750998d-01,
696  & 7.1744996d-01, 7.1739101d-01, 7.1739101d-01, 7.1739101d-01,
697  & 7.1739101d-01, 7.1739101d-01, 7.1739101d-01, 7.1739101d-01,
698  & 7.1739101d-01, 7.1739101d-01, 7.1739101d-01, 7.1739101d-01,
699  & 7.1739101d-01, 7.1739101d-01, 7.1744996d-01, 7.1750998d-01,
700  & 7.1750998d-01, 7.1762800d-01, 7.1774602d-01, 7.1786499d-01,
701  & 7.1798402d-01, 7.1810198d-01, 7.1822101d-01, 7.1834099d-01,
702  & 7.1845996d-01, 7.1857899d-01, 7.1869898d-01, 7.1893799d-01,
703  & 7.1917802d-01, 7.1953899d-01, 7.1977997d-01, 7.2002196d-01,
704  & 7.2038597d-01, 7.2075099d-01, 7.2111702d-01, 7.2148401d-01,
705  & 7.2197598d-01, 7.2234601d-01, 7.2296500d-01, 7.2346401d-01,
706  & 7.2408998d-01, 7.2471899d-01, 7.2535199d-01, 7.2624397d-01,
707  & 7.2701502d-01, 7.2804999d-01, 7.2909498d-01, 7.3014998d-01,
708  & 7.3041499d-01, 7.3094702d-01, 7.3121399d-01, 7.3161602d-01,
709  & 7.3215300d-01, 7.3529398d-01, 7.3282897d-01, 7.3323601d-01,
710  & 7.3378098d-01, 7.3391801d-01, 7.3515600d-01, 7.3557103d-01,
711  & 7.3640698d-01, 7.3696697d-01, 7.3781198d-01, 7.3852098d-01,
712  & 7.3952103d-01, 7.4023998d-01, 7.4110901d-01, 7.4242401d-01,
713  & 7.4286598d-01, 7.4360502d-01, 7.4419999d-01, 7.4494803d-01,
714  & 7.4539900d-01, 0.0000000d+00, 6.2350940d-05, 5.7214685d-04,
715  & 1.6245572d-03, 3.2676181d-03, 5.5575818d-03, 8.5417815d-03,
716  & 1.2711395d-02, 1.8640257d-02, 2.6964016d-02, 3.8335141d-02,
717  & 5.3144585d-02, 7.1814001d-02, 9.4626844d-02, 1.2178957d-01,
718  & 1.5337914d-01, 1.8780130d-01, 2.2294515d-01, 2.5624502d-01,
719  & 2.8600812d-01, 3.1311518d-01, 3.3809590d-01, 3.6096317d-01,
720  & 3.8177198d-01, 4.0060759d-01, 4.1763681d-01, 4.3305963d-01,
721  & 4.4703591d-01, 4.5967454d-01, 4.7100914d-01, 4.8120320d-01,
722  & 4.9040234d-01, 4.9858737d-01, 5.0585181d-01, 5.1237512d-01,
723  & 5.1834315d-01, 5.2388239d-01, 5.2900523d-01, 5.3375536d-01,
724  & 5.3820920d-01, 5.4240036d-01, 5.4633588d-01, 5.5004174d-01,
725  & 5.5355203d-01, 5.5689251d-01, 5.6005162d-01, 5.6301928d-01,
726  & 5.6584382d-01, 5.6857681d-01, 5.7124335d-01, 5.7385242d-01,
727  & 5.7640433d-01, 5.7889944d-01, 5.8133799d-01, 5.8372360d-01,
728  & 5.8608085d-01, 5.8843088d-01, 5.9077382d-01, 5.9310961d-01,
729  & 5.9543836d-01, 5.9776014d-01, 6.0007507d-01, 6.0238594d-01,
730  & 6.0471702d-01, 6.0708940d-01, 6.0950297d-01, 6.1195308d-01,
731  & 6.1442959d-01, 6.1691779d-01, 6.1942351d-01, 6.2196583d-01,
732  & 6.2454873d-01, 6.2715989d-01, 6.2978119d-01, 6.3242018d-01,
733  & 6.3510460d-01, 6.3786262d-01, 6.4068532d-01, 6.4356786d-01,
734  & 6.4655614d-01, 6.4963788d-01, 6.5276569d-01, 6.5593237d-01,
735  & 6.5915561d-01, 6.6245884d-01, 6.6584724d-01, 6.6932076d-01,
736  & 6.7287886d-01, 6.7652148d-01, 6.8024820d-01, 6.8405879d-01,
737  & 6.8795294d-01, 6.9193047d-01, 6.9599307d-01, 7.0018703d-01,
738  & 7.0453179d-01, 7.0898026d-01, 7.1351045d-01, 7.1813357d-01,
739  & 7.2287244d-01, 7.2773814d-01, 7.3273039d-01, 7.3784864d-01,
740  & 7.4307001d-01, 7.4837136d-01, 7.5375181d-01, 7.5921130d-01,
741  & 7.6474947d-01, 7.7036613d-01, 7.7603388d-01, 7.8171629d-01,
742  & 7.8739470d-01, 7.9305565d-01, 7.9868984d-01, 8.0428714d-01,
743  & 8.0981165d-01, 8.1524336d-01, 8.2059795d-01, 8.2584733d-01,
744  & 8.3096981d-01, 8.3598614d-01, 8.4092182d-01, 8.4576917d-01/
745  data ( tapcrs(i),i=2801,3000 )/
746  & 8.5049593d-01, 8.5510832d-01, 8.5963410d-01, 8.6409378d-01,
747  & 8.6850160d-01, 8.7286073d-01, 8.7716705d-01, 8.8141972d-01,
748  & 8.8563842d-01, 8.8983995d-01, 8.9401382d-01, 8.9815676d-01,
749  & 9.0227771d-01, 9.0638560d-01, 9.1048044d-01, 9.1455007d-01,
750  & 9.1858417d-01, 9.2259532d-01, 9.2658263d-01, 9.3053031d-01,
751  & 9.3445402d-01, 9.3837005d-01, 9.4227821d-01, 9.4617867d-01,
752  & 9.5007151d-01, 9.5395672d-01, 9.5783430d-01, 9.6170437d-01,
753  & 9.6556693d-01, 9.6942210d-01, 9.7326982d-01, 9.7711015d-01,
754  & 9.8094314d-01, 9.8476893d-01, 9.8858744d-01, 9.9239880d-01,
755  & 9.9620295d-01, 1.0000000d+00, 5.4660002d+13, 5.7360698d+13,
756  & 5.8188720d+13, 5.8683598d+13, 5.9067544d+13, 5.9364468d+13,
757  & 5.9661374d+13, 5.9878287d+13, 6.0078254d+13, 6.0278222d+13,
758  & 6.0478189d+13, 6.0634905d+13, 6.0782025d+13, 6.0929144d+13,
759  & 6.1076264d+13, 6.1223383d+13, 6.1361107d+13, 6.1487054d+13,
760  & 6.1612984d+13, 6.1738930d+13, 6.1864877d+13, 6.1990823d+13,
761  & 6.2118968d+13, 6.2253940d+13, 6.2388896d+13, 6.2523869d+13,
762  & 6.2658825d+13, 6.2793781d+13, 6.2942142d+13, 6.3102247d+13,
763  & 6.3262352d+13, 6.3422457d+13, 6.3582562d+13, 6.3761340d+13,
764  & 6.3945520d+13, 6.4129700d+13, 6.4313864d+13, 6.4519871d+13,
765  & 6.4735693d+13, 6.4951515d+13, 6.5176867d+13, 6.5432032d+13,
766  & 6.5687196d+13, 6.5958702d+13, 6.6259266d+13, 6.6559830d+13,
767  & 6.6912789d+13, 6.7269086d+13, 6.7687863d+13, 6.8132895d+13,
768  & 6.8643208d+13, 6.9244805d+13, 6.9929483d+13, 7.0710043d+13,
769  & 7.1613865d+13, 7.2650597d+13, 7.3852030d+13, 7.5250914d+13,
770  & 7.6780325d+13, 7.8404880d+13, 8.0037940d+13, 8.1624327d+13,
771  & 8.3113657d+13, 8.4526030d+13, 8.5856715d+13, 8.7061604d+13,
772  & 8.8178749d+13, 8.9213970d+13, 9.0174466d+13, 9.1075084d+13,
773  & 9.1915521d+13, 9.2697776d+13, 9.3439144d+13, 9.4142344d+13,
774  & 9.4804088d+13, 9.5441421d+13, 9.6059527d+13, 9.6659699d+13,
775  & 9.7246952d+13, 9.7831772d+13, 9.8418354d+13, 9.9012250d+13,
776  & 9.9619334d+13, 1.0024883d+14, 1.0090026d+14, 1.0157408d+14,
777  & 1.0228027d+14, 1.0300506d+14, 1.0374681d+14, 1.0450030d+14,
778  & 1.0526109d+14, 1.0602707d+14, 1.0679981d+14, 1.0758198d+14,
779  & 1.0837218d+14, 1.0916237d+14, 1.0995256d+14, 1.1074273d+14,
780  & 1.1153292d+14, 1.1232311d+14, 1.1311328d+14, 8.7471638d+25,
781  & 1.5313041d+26, 1.9884459d+26, 2.3647835d+26, 2.6943879d+26,
782  & 2.9927385d+26, 3.2684059d+26, 3.5267135d+26, 3.7712258d+26,
783  & 4.0044723d+26, 4.2283184d+26, 4.4441807d+26, 4.6531720d+26,
784  & 4.8561806d+26, 5.0539238d+26, 5.2469978d+26, 5.4358983d+26,
785  & 5.6210476d+26, 5.8028056d+26, 5.9814793d+26, 6.1573372d+26,
786  & 6.3306127d+26, 6.5015122d+26, 6.6702216d+26, 6.8368976d+26,
787  & 7.0016875d+26, 7.1647213d+26, 7.3261170d+26, 7.4859780d+26,
788  & 7.6444016d+26, 7.8014734d+26, 7.9572790d+26, 8.1118834d+26,
789  & 8.2653603d+26, 8.4177688d+26, 8.5691649d+26, 8.7196018d+26,
790  & 8.8691296d+26, 9.0177897d+26, 9.1656263d+26, 9.3126808d+26,
791  & 9.4589857d+26, 9.6045792d+26, 9.7494879d+26, 9.8937474d+26,
792  & 1.0037381d+27, 1.0180419d+27, 1.0322881d+27, 1.0464797d+27,
793  & 1.0606184d+27, 1.0747064d+27, 1.0887457d+27, 1.1027381d+27,
794  & 1.1166853d+27, 1.1305891d+27, 1.1444511d+27, 1.1582725d+27,
795  & 1.1720551d+27, 1.1858004d+27, 1.1995088d+27, 1.2131824d+27/
796 
797  data ( tapcrs(i),i=3001,3200 )/
798  & 1.2268221d+27, 1.2404290d+27, 1.2540041d+27, 1.2675484d+27,
799  & 1.2810632d+27, 1.2945488d+27, 1.3080067d+27, 1.3214374d+27,
800  & 1.3348418d+27, 1.3482209d+27, 1.3615751d+27, 1.3749052d+27,
801  & 1.3882119d+27, 1.4014960d+27, 1.4147581d+27, 1.4279988d+27,
802  & 1.4412187d+27, 1.4544180d+27, 1.4675979d+27, 1.4807585d+27,
803  & 1.4939003d+27, 1.5070237d+27, 1.5201295d+27, 1.5332181d+27,
804  & 1.5462899d+27, 1.5593449d+27, 1.5723842d+27, 1.5854076d+27,
805  & 1.5984160d+27, 1.6114093d+27, 1.6243881d+27, 1.6373528d+27,
806  & 1.6503036d+27, 1.6632408d+27, 1.6761647d+27, 1.6890757d+27,
807  & 1.7019742d+27, 1.7148604d+27, 1.7277344d+27, 1.7405964d+27,
808  & 1.7534471d+27, 1.7662864d+27, 1.7791147d+27, 1.7919321d+27,
809  & 1.8047388d+27, 1.8175353d+27, 1.8303217d+27, 1.8430980d+27,
810  & 1.8558646d+27, 1.8686218d+27, 1.8813696d+27, 1.8941081d+27,
811  & 1.9068376d+27, 1.9195584d+27, 1.9322705d+27, 1.9449745d+27,
812  & 1.9576697d+27, 1.9703569d+27, 1.9830362d+27, 1.9957078d+27,
813  & 2.0083714d+27, 2.0210276d+27, 2.0336765d+27, 2.0463180d+27,
814  & 2.0589524d+27, 2.0715797d+27, 2.0842002d+27, 2.0968142d+27,
815  & 2.1094212d+27, 2.1220219d+27, 2.1346159d+27, 2.1472040d+27,
816  & 2.1597858d+27, 2.1723612d+27, 2.1849312d+27, 2.1974951d+27,
817  & 2.2100531d+27, 2.2226054d+27, 2.2351524d+27, 2.2476936d+27,
818  & 2.2602294d+27, 2.2727602d+27, 2.2852857d+27, 2.2978058d+27,
819  & 2.3103210d+27, 2.3228314d+27, 2.3353371d+27, 2.3478372d+27,
820  & 2.3603332d+27, 2.3728245d+27, 2.3853110d+27, 2.3977931d+27,
821  & 2.4102708d+27, 2.4227440d+27, 2.4352125d+27, 2.4476775d+27,
822  & 2.4601381d+27, 2.4725945d+27, 2.4850468d+27, 2.4974949d+27,
823  & 5.6885007d+26, 5.8853702d+26, 6.0777417d+26, 6.2669611d+26,
824  & 6.4524940d+26, 6.6352201d+26, 6.8151747d+26, 6.9925704d+26,
825  & 7.1675990d+26, 7.3404317d+26, 7.5112161d+26, 7.6800909d+26,
826  & 7.8471800d+26, 8.0125956d+26, 8.1764352d+26, 8.3387961d+26,
827  & 8.4997609d+26, 8.6594064d+26, 8.8178093d+26, 8.9750287d+26,
828  & 9.1311324d+26, 9.2861707d+26, 9.4401995d+26, 9.5932661d+26,
829  & 9.7454149d+26, 9.8966930d+26, 1.0047133d+27, 1.0196776d+27,
830  & 1.0345657d+27, 1.0493807d+27, 1.0641257d+27, 1.0788037d+27,
831  & 1.0934170d+27, 1.1079687d+27, 1.1224605d+27, 1.1368956d+27,
832  & 1.1512752d+27, 1.1656019d+27, 1.1798777d+27, 1.1941041d+27,
833  & 1.2082830d+27, 1.2224161d+27, 1.2365050d+27, 1.2505508d+27,
834  & 1.2645556d+27, 1.2785202d+27, 1.2924462d+27, 1.3063347d+27,
835  & 1.3201868d+27, 1.3340036d+27, 1.3477867d+27, 1.3615365d+27,
836  & 1.3752544d+27, 1.3889410d+27, 1.4025977d+27, 1.4162247d+27,
837  & 1.4298237d+27, 1.4433946d+27, 1.4569389d+27, 1.4704570d+27,
838  & 1.4839494d+27, 1.4974173d+27, 1.5108609d+27, 1.5242813d+27,
839  & 1.5376787d+27, 1.5510539d+27, 1.5644073d+27, 1.5777397d+27,
840  & 1.5910515d+27, 1.6043431d+27, 1.6176154d+27, 1.6308684d+27,
841  & 1.6441025d+27, 1.6573186d+27, 1.6705174d+27, 1.6836981d+27,
842  & 1.6968623d+27, 1.7100099d+27, 1.7231411d+27, 1.7362568d+27,
843  & 1.7493567d+27, 1.7624418d+27, 1.7755121d+27, 1.7885677d+27,
844  & 1.8016091d+27, 1.8146372d+27, 1.8276512d+27, 1.8406521d+27,
845  & 1.8536401d+27, 1.8666157d+27, 1.8795786d+27, 1.8925291d+27,
846  & 1.9054681d+27, 1.9183950d+27, 1.9313106d+27, 1.9442151d+27,
847  & 1.9571083d+27, 1.9699910d+27, 1.9828630d+27, 1.9957246d+27/
848  data ( tapcrs(i),i=3201,3400 )/
849  & 2.0085759d+27, 2.0214175d+27, 2.0342491d+27, 2.0470712d+27,
850  & 2.0598839d+27, 2.0726871d+27, 2.0854817d+27, 2.0982670d+27,
851  & 2.1110436d+27, 2.1238117d+27, 2.1365713d+27, 2.1493225d+27,
852  & 2.1620658d+27, 2.1748009d+27, 2.1875280d+27, 2.2002476d+27,
853  & 2.2129597d+27, 2.2256640d+27, 2.2383610d+27, 2.2510512d+27,
854  & 2.2637340d+27, 2.2764100d+27, 2.2890789d+27, 2.3017410d+27,
855  & 2.3143970d+27, 2.3270461d+27, 2.3396888d+27, 2.3523250d+27,
856  & 2.3649552d+27, 2.3775793d+27, 3.8200003d-01, 8.2499999d-01,
857  & 1.7500001d-01, 6.6499996d-01, 3.3499998d-01, 3.5699999d-01,
858  & 8.7000000d-01, 1.3000000d-01, 7.5199997d-01, 2.5000000d-01,
859  & 3.5100001d-01, 8.8000000d-01, 1.2000000d-01, 7.9100001d-01,
860  & 2.0800000d-01, 3.7000000d-01, 8.6000001d-01, 1.3999999d-01,
861  & 7.8299999d-01, 2.1700001d-01, 3.7599999d-01, 8.3800000d-01,
862  & 1.6000003d-01, 7.7399999d-01, 2.2600001d-01, 3.6900002d-01,
863  & 7.8999996d-01, 2.0999998d-01, 6.7000002d-01, 3.2999998d-01,
864  & 3.6199999d-01, 7.1499997d-01, 2.7999997d-01, 5.8499998d-01,
865  & 4.1600001d-01, 3.5299999d-01, 6.4499998d-01, 3.5500002d-01,
866  & 5.9499997d-01, 4.0600002d-01, 3.4299999d-01, 5.7400000d-01,
867  & 4.2600000d-01, 6.0399997d-01, 3.9600003d-01, 3.3399999d-01,
868  & 5.0000000d-01, 5.0000000d-01, 6.1399996d-01, 3.8599998d-01,
869  & 3.2199997d-01, 4.3000001d-01, 5.6999999d-01, 6.2299997d-01,
870  & 3.7699997d-01, 3.1099999d-01, 4.0499997d-01, 5.9399998d-01,
871  & 5.9999996d-01, 3.9999998d-01, 2.9799998d-01, 4.2000002d-01,
872  & 5.7800001d-01, 5.3799999d-01, 4.6200001d-01, 2.7999997d-01,
873  & 4.3599999d-01, 5.6299996d-01, 4.8000002d-01, 5.1999998d-01,
874  & 2.4599999d-01, 4.7700000d-01, 5.1700002d-01, 4.6399999d-01,
875  & 5.3600001d-01, 1.9999999d-01, 5.1999998d-01, 4.7499996d-01,
876  & 4.4999999d-01, 5.5000001d-01, 2.1700001d-01, 5.6199998d-01,
877  & 4.3500000d-01, 4.3500000d-01, 5.6500000d-01, 2.3500001d-01,
878  & 6.0399997d-01, 3.9499998d-01, 4.2199999d-01, 5.7900000d-01,
879  & 2.5099999d-01, 6.4700001d-01, 3.5200000d-01, 4.0600002d-01,
880  & 5.9499997d-01, 2.6899999d-01, 6.8900001d-01, 3.1000000d-01,
881  & 3.9099997d-01, 6.1000001d-01, 2.8499997d-01, 6.9999999d-01,
882  & 3.0000001d-01, 3.5799998d-01, 6.4200002d-01, 3.0100000d-01,
883  & 7.1099997d-01, 2.8899997d-01, 3.2300001d-01, 6.8000001d-01,
884  & 3.0000001d-01, 7.2100002d-01, 2.7800000d-01, 2.8700000d-01,
885  & 7.1499997d-01, 2.9699999d-01, 7.3199999d-01, 2.6700002d-01,
886  & 2.5000000d-01, 7.5000000d-01, 2.9500002d-01, 7.4299997d-01,
887  & 2.5599998d-01, 2.0999998d-01, 7.8999996d-01, 2.9100001d-01,
888  & 7.5299996d-01, 2.4599999d-01, 1.7500001d-01, 8.2499999d-01,
889  & 2.8799999d-01, 7.6400000d-01, 2.3500001d-01, 1.3999999d-01,
890  & 8.6000001d-01, 2.8499997d-01, 7.7499998d-01, 2.2399998d-01,
891  & 1.0500002d-01, 8.9499998d-01, 2.8200001d-01, 7.8499997d-01,
892  & 2.1399999d-01, 6.8000019d-02, 9.3199998d-01, 2.7999997d-01,
893  & 7.8899997d-01, 2.1100003d-01, 6.9999993d-02, 9.3000001d-01,
894  & 2.7700001d-01, 7.9299998d-01, 2.0599997d-01, 7.0999980d-02,
895  & 9.2899996d-01, 2.6599997d-01, 7.9799998d-01, 2.0200002d-01,
896  & 7.3000014d-02, 9.2699999d-01, 2.5400001d-01, 8.0100000d-01,
897  & 1.9900000d-01, 7.4500024d-02, 9.2600000d-01, 2.4199998d-01,
898  & 8.0500001d-01, 1.9499999d-01, 7.4999988d-02, 9.2399997d-01/
899  data ( tapcrs(i),i=3401,3600 )/
900  & 1.0000000d+03, 1.7188001d-01, 7.7272999d-01, 1.0000000d+00,
901  & 8.0190003d-02, 4.7059000d-01, 8.7180018d-02, 2.7528000d-01,
902  & 3.6821997d-01, 1.3770000d+03, 1.5991998d-01, 4.5714003d-01,
903  & 5.4135001d-01, 4.8174001d-02, 3.2257998d-01, 1.4693999d-01,
904  & 2.4879998d-01, 4.0763998d-01, 1.8750000d+03, 8.7059975d-02,
905  & 3.9999998d-01, 5.3850001d-01, 6.4520001d-02, 4.5450002d-01,
906  & 5.5640001d-02, 1.8260002d-01, 3.2989997d-01, 2.3940000d+03,
907  & 2.3883998d-01, 4.3478000d-01, 4.4230998d-01, 1.8417001d-01,
908  & 4.4444001d-01, 1.9063997d-01, 3.6673999d-01, 4.4534999d-01,
909  & 2.5000000d+03, 2.7399999d-01, 4.5400000d-01, 4.0509999d-01,
910  & 2.1399999d-01, 4.4400001d-01, 2.1700001d-01, 4.0399998d-01,
911  & 4.7600001d-01, 5.0000000d-01, 8.2499999d-01, 1.7500001d-01,
912  & 6.6499996d-01, 3.3499998d-01, 5.0000000d-01, 8.7000000d-01,
913  & 1.3000000d-01, 7.5199997d-01, 2.5000000d-01, 5.0000000d-01,
914  & 8.8000000d-01, 1.2000000d-01, 7.9100001d-01, 2.0800000d-01,
915  & 5.0000000d-01, 8.6000001d-01, 1.3999999d-01, 7.8299999d-01,
916  & 2.1700001d-01, 5.0000000d-01, 8.3800000d-01, 1.6000003d-01,
917  & 7.7399999d-01, 2.2600001d-01, 5.0000000d-01, 7.8999996d-01,
918  & 2.0999998d-01, 6.7000002d-01, 3.2999998d-01, 5.0000000d-01,
919  & 7.1499997d-01, 2.7999997d-01, 5.8499998d-01, 4.1600001d-01,
920  & 5.0000000d-01, 6.4499998d-01, 3.5500002d-01, 5.9499997d-01,
921  & 4.0600002d-01, 5.0000000d-01, 5.7400000d-01, 4.2600000d-01,
922  & 6.0399997d-01, 3.9600003d-01, 5.0000000d-01, 5.0000000d-01,
923  & 5.0000000d-01, 6.1399996d-01, 3.8599998d-01, 5.0000000d-01,
924  & 4.3000001d-01, 5.6999999d-01, 6.2299997d-01, 3.7699997d-01,
925  & 5.0000000d-01, 4.0499997d-01, 5.9399998d-01, 5.9999996d-01,
926  & 3.9999998d-01, 5.0000000d-01, 4.2000002d-01, 5.7800001d-01,
927  & 5.3799999d-01, 4.6200001d-01, 5.0000000d-01, 4.3599999d-01,
928  & 5.6299996d-01, 4.8000002d-01, 5.1999998d-01, 5.0000000d-01,
929  & 4.7700000d-01, 5.1700002d-01, 4.6399999d-01, 5.3600001d-01,
930  & 5.0000000d-01, 5.1999998d-01, 4.7499996d-01, 4.4999999d-01,
931  & 5.5000001d-01, 5.0000000d-01, 5.6199998d-01, 4.3500000d-01,
932  & 4.3500000d-01, 5.6500000d-01, 5.0000000d-01, 6.0399997d-01,
933  & 3.9499998d-01, 4.2199999d-01, 5.7900000d-01, 5.0000000d-01,
934  & 6.4700001d-01, 3.5200000d-01, 4.0600002d-01, 5.9499997d-01,
935  & 5.0000000d-01, 6.8900001d-01, 3.1000000d-01, 3.9099997d-01,
936  & 6.1000001d-01, 5.0000000d-01, 6.9999999d-01, 3.0000001d-01,
937  & 3.5799998d-01, 6.4200002d-01, 5.0000000d-01, 7.1099997d-01,
938  & 2.8899997d-01, 3.2300001d-01, 6.8000001d-01, 5.0000000d-01,
939  & 7.2100002d-01, 2.7800000d-01, 2.8700000d-01, 7.1499997d-01,
940  & 5.0000000d-01, 7.3199999d-01, 2.6700002d-01, 2.5000000d-01,
941  & 7.5000000d-01, 5.0000000d-01, 7.4299997d-01, 2.5599998d-01,
942  & 2.0999998d-01, 7.8999996d-01, 5.0000000d-01, 7.5299996d-01,
943  & 2.4599999d-01, 1.7500001d-01, 8.2499999d-01, 5.0000000d-01,
944  & 7.6400000d-01, 2.3500001d-01, 1.3999999d-01, 8.6000001d-01,
945  & 5.0000000d-01, 7.7499998d-01, 2.2399998d-01, 1.0500002d-01,
946  & 8.9499998d-01, 5.0000000d-01, 7.8499997d-01, 2.1399999d-01,
947  & 6.8000019d-02, 9.3199998d-01, 5.0000000d-01, 7.8899997d-01,
948  & 2.1100003d-01, 6.9999993d-02, 9.3000001d-01, 5.0000000d-01,
949  & 7.9299998d-01, 2.0599997d-01, 7.0999980d-02, 9.2899996d-01/
950 
951  data ( tapcrs(i),i=3601,3800 )/
952  & 5.0000000d-01, 7.9799998d-01, 2.0200002d-01, 7.3000014d-02,
953  & 9.2699999d-01, 5.0000000d-01, 8.0100000d-01, 1.9900000d-01,
954  & 7.4500024d-02, 9.2600000d-01, 5.0000000d-01, 8.0500001d-01,
955  & 1.9499999d-01, 7.4999988d-02, 9.2399997d-01, 1.0000000d+03,
956  & 1.7188001d-01, 7.7272999d-01, 1.0000000d+00, 8.0190003d-02,
957  & 4.7059000d-01, 8.7180018d-02, 2.7528000d-01, 3.6821997d-01,
958  & 1.3770000d+03, 1.5991998d-01, 4.5714003d-01, 5.4135001d-01,
959  & 4.8174001d-02, 3.2257998d-01, 1.4693999d-01, 2.4879998d-01,
960  & 4.0763998d-01, 1.8750000d+03, 8.7059975d-02, 3.9999998d-01,
961  & 5.3850001d-01, 6.4520001d-02, 4.5450002d-01, 5.5640001d-02,
962  & 1.8260002d-01, 3.2989997d-01, 2.3940000d+03, 2.3883998d-01,
963  & 4.3478000d-01, 4.4230998d-01, 1.8417001d-01, 4.4444001d-01,
964  & 1.9063997d-01, 3.6673999d-01, 4.4534999d-01, 2.5000000d+03,
965  & 2.7399999d-01, 4.5400000d-01, 4.0509999d-01, 2.1399999d-01,
966  & 4.4400001d-01, 2.1700001d-01, 4.0399998d-01, 4.7600001d-01,
967  & 5.0000000d-01, 8.2499999d-01, 1.7500001d-01, 6.6499996d-01,
968  & 3.3499998d-01, 5.0000000d-01, 8.7000000d-01, 1.3000000d-01,
969  & 7.5199997d-01, 2.5000000d-01, 5.0000000d-01, 8.8000000d-01,
970  & 1.2000000d-01, 7.9100001d-01, 2.0800000d-01, 5.0000000d-01,
971  & 8.6000001d-01, 1.3999999d-01, 7.8299999d-01, 2.1700001d-01,
972  & 5.0000000d-01, 8.3800000d-01, 1.6000003d-01, 7.7399999d-01,
973  & 2.2600001d-01, 5.0000000d-01, 7.8999996d-01, 2.0999998d-01,
974  & 6.7000002d-01, 3.2999998d-01, 5.0000000d-01, 7.1499997d-01,
975  & 2.7999997d-01, 5.8499998d-01, 4.1600001d-01, 5.0000000d-01,
976  & 6.4499998d-01, 3.5500002d-01, 5.9499997d-01, 4.0600002d-01,
977  & 5.0000000d-01, 5.7400000d-01, 4.2600000d-01, 6.0399997d-01,
978  & 3.9600003d-01, 5.0000000d-01, 5.0000000d-01, 5.0000000d-01,
979  & 6.1399996d-01, 3.8599998d-01, 5.0000000d-01, 4.3000001d-01,
980  & 5.6999999d-01, 6.2299997d-01, 3.7699997d-01, 5.0000000d-01,
981  & 4.0499997d-01, 5.9399998d-01, 5.9999996d-01, 3.9999998d-01,
982  & 5.0000000d-01, 4.2000002d-01, 5.7800001d-01, 5.3799999d-01,
983  & 4.6200001d-01, 5.0000000d-01, 4.3599999d-01, 5.6299996d-01,
984  & 4.8000002d-01, 5.1999998d-01, 5.0000000d-01, 4.7700000d-01,
985  & 5.1700002d-01, 4.6399999d-01, 5.3600001d-01, 5.0000000d-01,
986  & 5.1999998d-01, 4.7499996d-01, 4.4999999d-01, 5.5000001d-01,
987  & 5.0000000d-01, 5.6199998d-01, 4.3500000d-01, 4.3500000d-01,
988  & 5.6500000d-01, 5.0000000d-01, 6.0399997d-01, 3.9499998d-01,
989  & 4.2199999d-01, 5.7900000d-01, 5.0000000d-01, 6.4700001d-01,
990  & 3.5200000d-01, 4.0600002d-01, 5.9499997d-01, 5.0000000d-01,
991  & 6.8900001d-01, 3.1000000d-01, 3.9099997d-01, 6.1000001d-01,
992  & 5.0000000d-01, 6.9999999d-01, 3.0000001d-01, 3.5799998d-01,
993  & 6.4200002d-01, 5.0000000d-01, 7.1099997d-01, 2.8899997d-01,
994  & 3.2300001d-01, 6.8000001d-01, 5.0000000d-01, 7.2100002d-01,
995  & 2.7800000d-01, 2.8700000d-01, 7.1499997d-01, 5.0000000d-01,
996  & 7.3199999d-01, 2.6700002d-01, 2.5000000d-01, 7.5000000d-01,
997  & 5.0000000d-01, 7.4299997d-01, 2.5599998d-01, 2.0999998d-01,
998  & 7.8999996d-01, 5.0000000d-01, 7.5299996d-01, 2.4599999d-01,
999  & 1.7500001d-01, 8.2499999d-01, 5.0000000d-01, 7.6400000d-01,
1000  & 2.3500001d-01, 1.3999999d-01, 8.6000001d-01, 5.0000000d-01,
1001  & 7.7499998d-01, 2.2399998d-01, 1.0500002d-01, 8.9499998d-01/
1002  data ( tapcrs(i),i=3801,4000 )/
1003  & 5.0000000d-01, 7.8499997d-01, 2.1399999d-01, 6.8000019d-02,
1004  & 9.3199998d-01, 5.0000000d-01, 7.8899997d-01, 2.1100003d-01,
1005  & 6.9999993d-02, 9.3000001d-01, 5.0000000d-01, 7.9299998d-01,
1006  & 2.0599997d-01, 7.0999980d-02, 9.2899996d-01, 5.0000000d-01,
1007  & 7.9799998d-01, 2.0200002d-01, 7.3000014d-02, 9.2699999d-01,
1008  & 5.0000000d-01, 8.0100000d-01, 1.9900000d-01, 7.4500024d-02,
1009  & 9.2600000d-01, 5.0000000d-01, 8.0500001d-01, 1.9499999d-01,
1010  & 7.4999988d-02, 9.2399997d-01, 1.0000000d+03, 1.7188001d-01,
1011  & 7.7272999d-01, 1.0000000d+00, 8.0190003d-02, 4.7059000d-01,
1012  & 8.7180018d-02, 2.7528000d-01, 3.6821997d-01, 1.3770000d+03,
1013  & 1.5991998d-01, 4.5714003d-01, 5.4135001d-01, 4.8174001d-02,
1014  & 3.2257998d-01, 1.4693999d-01, 2.4879998d-01, 4.0763998d-01,
1015  & 1.8750000d+03, 8.7059975d-02, 3.9999998d-01, 5.3850001d-01,
1016  & 6.4520001d-02, 4.5450002d-01, 5.5640001d-02, 1.8260002d-01,
1017  & 3.2989997d-01, 2.3940000d+03, 2.3883998d-01, 4.3478000d-01,
1018  & 4.4230998d-01, 1.8417001d-01, 4.4444001d-01, 1.9063997d-01,
1019  & 3.6673999d-01, 4.4534999d-01, 2.5000000d+03, 2.7399999d-01,
1020  & 4.5400000d-01, 4.0509999d-01, 2.1399999d-01, 4.4400001d-01,
1021  & 2.1700001d-01, 4.0399998d-01, 4.7600001d-01, 5.0000000d-01,
1022  & 8.2499999d-01, 1.7500001d-01, 6.6499996d-01, 3.3499998d-01,
1023  & 5.0000000d-01, 8.7000000d-01, 1.3000000d-01, 7.5199997d-01,
1024  & 2.5000000d-01, 5.0000000d-01, 8.8000000d-01, 1.2000000d-01,
1025  & 7.9100001d-01, 2.0800000d-01, 5.0000000d-01, 8.6000001d-01,
1026  & 1.3999999d-01, 7.8299999d-01, 2.1700001d-01, 5.0000000d-01,
1027  & 8.3800000d-01, 1.6000003d-01, 7.7399999d-01, 2.2600001d-01,
1028  & 5.0000000d-01, 7.8999996d-01, 2.0999998d-01, 6.7000002d-01,
1029  & 3.2999998d-01, 5.0000000d-01, 7.1499997d-01, 2.7999997d-01,
1030  & 5.8499998d-01, 4.1600001d-01, 5.0000000d-01, 6.4499998d-01,
1031  & 3.5500002d-01, 5.9499997d-01, 4.0600002d-01, 5.0000000d-01,
1032  & 5.7400000d-01, 4.2600000d-01, 6.0399997d-01, 3.9600003d-01,
1033  & 5.0000000d-01, 5.0000000d-01, 5.0000000d-01, 6.1399996d-01,
1034  & 3.8599998d-01, 5.0000000d-01, 4.3000001d-01, 5.6999999d-01,
1035  & 6.2299997d-01, 3.7699997d-01, 5.0000000d-01, 4.0499997d-01,
1036  & 5.9399998d-01, 5.9999996d-01, 3.9999998d-01, 5.0000000d-01,
1037  & 4.2000002d-01, 5.7800001d-01, 5.3799999d-01, 4.6200001d-01,
1038  & 5.0000000d-01, 4.3599999d-01, 5.6299996d-01, 4.8000002d-01,
1039  & 5.1999998d-01, 5.0000000d-01, 4.7700000d-01, 5.1700002d-01,
1040  & 4.6399999d-01, 5.3600001d-01, 5.0000000d-01, 5.1999998d-01,
1041  & 4.7499996d-01, 4.4999999d-01, 5.5000001d-01, 5.0000000d-01,
1042  & 5.6199998d-01, 4.3500000d-01, 4.3500000d-01, 5.6500000d-01,
1043  & 5.0000000d-01, 6.0399997d-01, 3.9499998d-01, 4.2199999d-01,
1044  & 5.7900000d-01, 5.0000000d-01, 6.4700001d-01, 3.5200000d-01,
1045  & 4.0600002d-01, 5.9499997d-01, 5.0000000d-01, 6.8900001d-01,
1046  & 3.1000000d-01, 3.9099997d-01, 6.1000001d-01, 5.0000000d-01,
1047  & 6.9999999d-01, 3.0000001d-01, 3.5799998d-01, 6.4200002d-01,
1048  & 5.0000000d-01, 7.1099997d-01, 2.8899997d-01, 3.2300001d-01,
1049  & 6.8000001d-01, 5.0000000d-01, 7.2100002d-01, 2.7800000d-01,
1050  & 2.8700000d-01, 7.1499997d-01, 5.0000000d-01, 7.3199999d-01,
1051  & 2.6700002d-01, 2.5000000d-01, 7.5000000d-01, 5.0000000d-01,
1052  & 7.4299997d-01, 2.5599998d-01, 2.0999998d-01, 7.8999996d-01/
1053  data ( tapcrs(i),i=4001,4200 )/
1054  & 5.0000000d-01, 7.5299996d-01, 2.4599999d-01, 1.7500001d-01,
1055  & 8.2499999d-01, 5.0000000d-01, 7.6400000d-01, 2.3500001d-01,
1056  & 1.3999999d-01, 8.6000001d-01, 5.0000000d-01, 7.7499998d-01,
1057  & 2.2399998d-01, 1.0500002d-01, 8.9499998d-01, 5.0000000d-01,
1058  & 7.8499997d-01, 2.1399999d-01, 6.8000019d-02, 9.3199998d-01,
1059  & 5.0000000d-01, 7.8899997d-01, 2.1100003d-01, 6.9999993d-02,
1060  & 9.3000001d-01, 5.0000000d-01, 7.9299998d-01, 2.0599997d-01,
1061  & 7.0999980d-02, 9.2899996d-01, 5.0000000d-01, 7.9799998d-01,
1062  & 2.0200002d-01, 7.3000014d-02, 9.2699999d-01, 5.0000000d-01,
1063  & 8.0100000d-01, 1.9900000d-01, 7.4500024d-02, 9.2600000d-01,
1064  & 5.0000000d-01, 8.0500001d-01, 1.9499999d-01, 7.4999988d-02,
1065  & 9.2399997d-01, 1.0000000d+03, 1.7188001d-01, 7.7272999d-01,
1066  & 1.0000000d+00, 8.0190003d-02, 4.7059000d-01, 8.7180018d-02,
1067  & 2.7528000d-01, 3.6821997d-01, 1.3770000d+03, 1.5991998d-01,
1068  & 4.5714003d-01, 5.4135001d-01, 4.8174001d-02, 3.2257998d-01,
1069  & 1.4693999d-01, 2.4879998d-01, 4.0763998d-01, 1.8750000d+03,
1070  & 8.7059975d-02, 3.9999998d-01, 5.3850001d-01, 6.4520001d-02,
1071  & 4.5450002d-01, 5.5640001d-02, 1.8260002d-01, 3.2989997d-01,
1072  & 2.3940000d+03, 2.3883998d-01, 4.3478000d-01, 4.4230998d-01,
1073  & 1.8417001d-01, 4.4444001d-01, 1.9063997d-01, 3.6673999d-01,
1074  & 4.4534999d-01, 2.5000000d+03, 2.7399999d-01, 4.5400000d-01,
1075  & 4.0509999d-01, 2.1399999d-01, 4.4400001d-01, 2.1700001d-01,
1076  & 4.0399998d-01, 4.7600001d-01, 0.0000000d+00, 5.0000000d-30,
1077  & 1.4999999d-28, 2.0000000d-28, 2.9999999d-28, 4.0000005d-28,
1078  & 5.4999995d-28, 7.0000004d-28, 8.9999997d-28, 1.1000001d-27,
1079  & 1.4000001d-27, 1.6000000d-27, 1.7999999d-27, 2.0999999d-27,
1080  & 2.2999999d-27, 2.6999999d-27, 2.8999998d-27, 3.2000000d-27,
1081  & 3.3999997d-27, 3.7000011d-27, 4.2000002d-27, 4.4000011d-27,
1082  & 4.6999994d-27, 5.0000007d-27, 5.2999990d-27, 5.6000003d-27,
1083  & 5.8999986d-27, 6.3000003d-27, 6.5999986d-27, 6.7999995d-27,
1084  & 7.2499984d-27, 7.7000004d-27, 7.9000013d-27, 8.3000000d-27,
1085  & 8.5999983d-27, 9.1000005d-27, 9.3000014d-27, 9.7500003d-27,
1086  & 1.0199999d-26, 1.0600001d-26, 1.1200001d-26, 1.1499999d-26,
1087  & 1.2000001d-26, 1.2799998d-26, 1.3399998d-26, 1.4299999d-26,
1088  & 1.5200000d-26, 1.6299999d-26, 1.8000000d-26, 1.9500001d-26,
1089  & 2.1000001d-26, 2.1899999d-26, 2.2800000d-26, 2.3400000d-26,
1090  & 2.4200000d-26, 2.4699999d-26, 2.5299999d-26, 2.5700001d-26,
1091  & 2.5999999d-26, 2.6099999d-26, 2.6049999d-26, 2.5900001d-26,
1092  & 2.5700001d-26, 2.5200001d-26, 2.4800000d-26, 2.4200000d-26,
1093  & 2.3600000d-26, 2.3199999d-26, 2.2699999d-26, 2.2300001d-26,
1094  & 2.1799999d-26, 2.1700001d-26, 2.1500000d-26, 2.1299999d-26,
1095  & 2.1199999d-26, 2.0900001d-26, 2.0800000d-26, 2.0700000d-26,
1096  & 2.0599999d-26, 2.0499999d-26, 2.0399998d-26, 2.0300001d-26,
1097  & 2.0250001d-26, 2.0200001d-26, 2.0200001d-26, 2.0100000d-26,
1098  & 2.0050000d-26, 2.0030001d-26, 2.0009999d-26, 2.0000000d-26,
1099  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26,
1100  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26,
1101  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26,
1102  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26,
1103  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26/
1104 
1105  data ( tapcrs(i),i=4201,4400 )/
1106  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 2.0000000d-26,
1107  & 2.0000000d-26, 2.0000000d-26, 2.0000000d-26, 0.0000000d+00,
1108  & 1.4999999d-28, 2.9999999d-28, 4.9999992d-28, 7.5000007d-28,
1109  & 1.0000000d-27, 1.3000000d-27, 1.6300000d-27, 2.0000001d-27,
1110  & 2.3999999d-27, 2.8000000d-27, 3.2499991d-27, 3.7000011d-27,
1111  & 4.2500005d-27, 4.9500005d-27, 5.5500001d-27, 6.4500010d-27,
1112  & 7.2999986d-27, 8.1999996d-27, 9.2000009d-27, 1.0199999d-26,
1113  & 1.1100000d-26, 1.1599999d-26, 1.1800000d-26, 1.1800000d-26,
1114  & 1.1200001d-26, 1.0799999d-26, 1.1000000d-26, 1.1250001d-26,
1115  & 1.1700000d-26, 1.2199999d-26, 1.2799998d-26, 1.3450001d-26,
1116  & 1.4199999d-26, 1.4899999d-26, 1.5599999d-26, 1.6199998d-26,
1117  & 1.6249998d-26, 1.6100001d-26, 1.5800000d-26, 1.5500001d-26,
1118  & 1.5250000d-26, 1.5300000d-26, 1.5599999d-26, 1.5900000d-26,
1119  & 1.6249998d-26, 1.6700000d-26, 1.7200000d-26, 1.7749999d-26,
1120  & 1.8300001d-26, 1.8900001d-26, 1.9550001d-26, 2.0200001d-26,
1121  & 2.0800000d-26, 2.1500000d-26, 2.1999999d-26, 2.2499999d-26,
1122  & 2.2750000d-26, 2.2900000d-26, 2.3000001d-26, 2.2950001d-26,
1123  & 2.2900000d-26, 2.2750000d-26, 2.2599999d-26, 2.2400001d-26,
1124  & 2.2200000d-26, 2.1799999d-26, 2.1600001d-26, 2.1249999d-26,
1125  & 2.0950001d-26, 2.0700000d-26, 2.0449999d-26, 2.0250001d-26,
1126  & 2.0100000d-26, 1.9950000d-26, 1.9799999d-26, 1.9749999d-26,
1127  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1128  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1129  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1130  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1131  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1132  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1133  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1134  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1135  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1136  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1137  & 0.0000000d+00, 2.4999996d-28, 7.0000004d-28, 1.1000001d-27,
1138  & 1.6000000d-27, 2.0000001d-27, 2.5000000d-27, 3.0000001d-27,
1139  & 3.5000002d-27, 3.9999993d-27, 4.6999994d-27, 5.2499987d-27,
1140  & 5.8000012d-27, 6.5999986d-27, 7.4999995d-27, 8.5000009d-27,
1141  & 9.9999983d-27, 1.1499999d-26, 1.3499999d-26, 1.5500001d-26,
1142  & 1.8250001d-26, 1.9899999d-26, 1.9700002d-26, 1.9250000d-26,
1143  & 1.8700000d-26, 1.7900000d-26, 1.7500001d-26, 1.7699999d-26,
1144  & 1.8000000d-26, 1.8750000d-26, 1.9500001d-26, 2.0250001d-26,
1145  & 2.1199999d-26, 2.1999999d-26, 2.2699999d-26, 2.3100001d-26,
1146  & 2.3299999d-26, 2.3199999d-26, 2.2900000d-26, 2.2499999d-26,
1147  & 2.1999999d-26, 2.1500000d-26, 2.0800000d-26, 2.0100000d-26,
1148  & 1.9400000d-26, 1.8700000d-26, 1.8100001d-26, 1.7799999d-26,
1149  & 1.7749999d-26, 1.7900000d-26, 1.8200001d-26, 1.8499999d-26,
1150  & 1.9000001d-26, 1.9500001d-26, 2.0200001d-26, 2.0800000d-26,
1151  & 2.1500000d-26, 2.1750001d-26, 2.1999999d-26, 2.2100000d-26,
1152  & 2.2100000d-26, 2.1999999d-26, 2.1600001d-26, 2.0800000d-26,
1153  & 1.9749999d-26, 1.8900001d-26, 1.8399999d-26, 1.8100001d-26,
1154  & 1.8000000d-26, 1.8100001d-26, 1.8250001d-26, 1.8399999d-26,
1155  & 1.8700000d-26, 1.8900001d-26, 1.9099999d-26, 1.9300000d-26/
1156  data ( tapcrs(i),i=4401,4600 )/
1157  & 1.9500001d-26, 1.9700002d-26, 1.9799999d-26, 2.0050000d-26,
1158  & 2.0200001d-26, 2.0399998d-26, 2.0499999d-26, 2.0700000d-26,
1159  & 2.0750000d-26, 2.0800000d-26, 2.1000001d-26, 2.1199999d-26,
1160  & 2.1249999d-26, 2.1400000d-26, 2.1500000d-26, 2.1600001d-26,
1161  & 2.1700001d-26, 2.1750001d-26, 2.1799999d-26, 2.1899999d-26,
1162  & 2.1999999d-26, 2.2100000d-26, 2.2200000d-26, 2.2250001d-26,
1163  & 2.2300001d-26, 2.2400001d-26, 2.2499999d-26, 2.2549999d-26,
1164  & 2.2599999d-26, 2.2699999d-26, 2.2750000d-26, 2.2800000d-26,
1165  & 2.2850000d-26, 2.2900000d-26, 2.3000001d-26, 2.3050001d-26,
1166  & 2.3100001d-26, 2.3150001d-26, 2.3199999d-26, 2.3249999d-26,
1167  & 2.3299999d-26, 0.0000000d+00, 1.4999999d-28, 2.9999999d-28,
1168  & 4.9999992d-28, 7.5000007d-28, 1.0000000d-27, 1.3000000d-27,
1169  & 1.6300000d-27, 2.0000001d-27, 2.3999999d-27, 2.8000000d-27,
1170  & 3.2499991d-27, 3.7000011d-27, 4.2500005d-27, 4.9500005d-27,
1171  & 5.5500001d-27, 6.4500010d-27, 7.2999986d-27, 8.1999996d-27,
1172  & 9.2000009d-27, 1.0199999d-26, 1.1100000d-26, 1.1599999d-26,
1173  & 1.1800000d-26, 1.1800000d-26, 1.1200001d-26, 1.0799999d-26,
1174  & 1.1000000d-26, 1.1250001d-26, 1.1700000d-26, 1.2199999d-26,
1175  & 1.2799998d-26, 1.3450001d-26, 1.4199999d-26, 1.4899999d-26,
1176  & 1.5599999d-26, 1.6199998d-26, 1.6249998d-26, 1.6100001d-26,
1177  & 1.5800000d-26, 1.5500001d-26, 1.5250000d-26, 1.5300000d-26,
1178  & 1.5599999d-26, 1.5900000d-26, 1.6249998d-26, 1.6700000d-26,
1179  & 1.7200000d-26, 1.7749999d-26, 1.8300001d-26, 1.8900001d-26,
1180  & 1.9550001d-26, 2.0200001d-26, 2.0800000d-26, 2.1500000d-26,
1181  & 2.1999999d-26, 2.2499999d-26, 2.2750000d-26, 2.2900000d-26,
1182  & 2.3000001d-26, 2.2950001d-26, 2.2900000d-26, 2.2750000d-26,
1183  & 2.2599999d-26, 2.2400001d-26, 2.2200000d-26, 2.1799999d-26,
1184  & 2.1600001d-26, 2.1249999d-26, 2.0950001d-26, 2.0700000d-26,
1185  & 2.0449999d-26, 2.0250001d-26, 2.0100000d-26, 1.9950000d-26,
1186  & 1.9799999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1187  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1188  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1189  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1190  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1191  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1192  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1193  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1194  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1195  & 1.9749999d-26, 1.9749999d-26, 1.9749999d-26, 1.9749999d-26,
1196  & 1.9749999d-26, 1.9749999d-26, 2.8316677d-01, 5.0407380d-01,
1197  & 2.8532821d-01, 5.0604892d-01, 2.8776699d-01, 5.0834954d-01,
1198  & 2.9019147d-01, 5.1057702d-01, 2.9326499d-01, 5.1366699d-01,
1199  & 2.9638702d-01, 5.1668602d-01, 2.9971898d-01, 5.2015001d-01,
1200  & 3.0397099d-01, 5.2420300d-01, 3.0830598d-01, 5.2889299d-01,
1201  & 3.1349796d-01, 5.3436399d-01, 3.1948602d-01, 5.4146999d-01,
1202  & 3.2544601d-01, 5.5089301d-01, 3.3333302d-01, 5.6507897d-01,
1203  & 3.4315801d-01, 5.8666700d-01, 3.6054200d-01, 6.1703998d-01,
1204  & 3.7635797d-01, 6.4259797d-01, 3.8088697d-01, 6.5870303d-01,
1205  & 3.8060302d-01, 6.6925299d-01, 3.7528098d-01, 6.7490596d-01,
1206  & 3.2664096d-01, 6.4942098d-01, 2.7569300d-01, 6.2132496d-01/
1207  data ( tapcrs(i),i=4601,4800 )/
1208  & 2.6801598d-01, 6.2159199d-01, 2.6831299d-01, 6.2578899d-01,
1209  & 2.8464699d-01, 6.3872796d-01, 3.2857102d-01, 6.7114800d-01,
1210  & 3.6371303d-01, 6.9564003d-01, 3.6776900d-01, 6.9963199d-01,
1211  & 3.6425501d-01, 6.9815600d-01, 3.4482199d-01, 6.8454999d-01,
1212  & 3.1201398d-01, 6.6181600d-01, 2.7626300d-01, 6.3669997d-01,
1213  & 2.4686199d-01, 6.1562097d-01, 2.1509099d-01, 5.9214997d-01,
1214  & 1.8688500d-01, 5.7049203d-01, 1.5364701d-01, 5.4554296d-01,
1215  & 1.4639997d-01, 5.3759998d-01, 1.4901298d-01, 5.3612196d-01,
1216  & 1.5698797d-01, 5.3757799d-01, 1.7557299d-01, 5.4605597d-01,
1217  & 1.9504499d-01, 5.5525500d-01, 2.1107000d-01, 5.6211597d-01,
1218  & 2.2002900d-01, 5.6439298d-01, 2.2419900d-01, 5.6298900d-01,
1219  & 2.2681600d-01, 5.6070799d-01, 2.2602701d-01, 5.5616403d-01,
1220  & 2.2570699d-01, 5.5235499d-01, 2.2434199d-01, 5.4692996d-01,
1221  & 2.2280902d-01, 5.4183799d-01, 2.0836699d-01, 5.4134101d-01,
1222  & 2.1773100d-01, 5.3114301d-01, 2.1542197d-01, 5.2576399d-01,
1223  & 2.1142203d-01, 5.1941299d-01, 2.0605701d-01, 5.1209497d-01,
1224  & 2.0022798d-01, 5.0471801d-01, 1.8959099d-01, 4.9427301d-01,
1225  & 1.7643201d-01, 4.8281896d-01, 1.4999998d-01, 4.6304297d-01,
1226  & 1.2975901d-01, 4.4736397d-01, 1.2639999d-01, 4.4426697d-01,
1227  & 1.2785101d-01, 4.4438499d-01, 1.3276798d-01, 4.4757897d-01,
1228  & 1.4719999d-01, 4.5813298d-01, 1.8084401d-01, 4.8289996d-01,
1229  & 2.0907599d-01, 5.0540501d-01, 2.3000598d-01, 5.2447200d-01,
1230  & 2.3393101d-01, 5.3516501d-01, 2.2830200d-01, 5.4087996d-01,
1231  & 2.2625500d-01, 5.4388702d-01, 2.2330099d-01, 5.4304200d-01,
1232  & 2.1888697d-01, 5.3997397d-01, 2.1286201d-01, 5.3483403d-01,
1233  & 2.0952398d-01, 5.3015900d-01, 2.0363897d-01, 5.2396500d-01,
1234  & 1.9739801d-01, 5.1747203d-01, 1.9141102d-01, 5.1165599d-01,
1235  & 1.8480200d-01, 5.0557202d-01, 1.7831302d-01, 4.9959797d-01,
1236  & 1.7405897d-01, 4.9535799d-01, 1.6955000d-01, 4.9075800d-01,
1237  & 1.6601998d-01, 4.8704702d-01, 1.6254401d-01, 4.8339200d-01,
1238  & 1.5955997d-01, 4.8018497d-01, 1.5561998d-01, 4.7665697d-01,
1239  & 1.5214700d-01, 4.7315401d-01, 1.4985800d-01, 4.7084498d-01,
1240  & 1.4702898d-01, 4.6779901d-01, 1.4478898d-01, 4.6553999d-01,
1241  & 1.4244097d-01, 4.6293402d-01, 1.3954300d-01, 4.6034598d-01,
1242  & 1.3765901d-01, 4.5816201d-01, 1.3591200d-01, 4.5635402d-01,
1243  & 1.3406599d-01, 4.5421201d-01, 1.3165402d-01, 4.5206296d-01,
1244  & 1.2995100d-01, 4.5029998d-01, 1.2895197d-01, 4.4892299d-01,
1245  & 1.2727302d-01, 4.4718599d-01, 1.2531000d-01, 4.4543999d-01,
1246  & 1.2434202d-01, 4.4409800d-01, 1.2240100d-01, 4.4237202d-01,
1247  & 1.2115401d-01, 4.4102597d-01, 1.1976600d-01, 4.3967301d-01,
1248  & 1.1838502d-01, 4.3832803d-01, 1.1686099d-01, 4.3697399d-01,
1249  & 1.1632299d-01, 4.3602699d-01, 1.1466199d-01, 4.3466902d-01,
1250  & 1.1383498d-01, 4.3370199d-01, 1.1301202d-01, 4.3273902d-01,
1251  & 1.1151803d-01, 4.3141401d-01, 1.1055398d-01, 4.3044198d-01,
1252  & 1.0944200d-01, 4.2945600d-01, 1.0863698d-01, 4.2851198d-01,
1253  & 1.0753202d-01, 4.2753202d-01, 1.0643202d-01, 4.2655599d-01,
1254  & 1.0600400d-01, 4.2594898d-01, 1.0491002d-01, 4.2497802d-01,
1255  & 1.0381800d-01, 4.2401099d-01, 1.0324597d-01, 4.2338997d-01,
1256  & 1.7032900d-04, 1.6885290d-03, 4.7747493d-03, 1.0224044d-02,
1257  & 1.9466672d-02, 3.3597156d-02, 5.4791424d-02, 7.9999983d-02/
1258 
1259  data ( tapcrs(i),i=4801,5000 )/
1260  & 1.1500001d-01, 1.6100001d-01, 2.1700001d-01, 2.8259367d-01,
1261  & 3.2199997d-01, 3.5799998d-01, 3.8599998d-01, 4.1100001d-01,
1262  & 4.3553710d-01, 4.4900000d-01, 4.6499997d-01, 4.7899997d-01,
1263  & 4.9100000d-01, 5.0085497d-01, 5.1099998d-01, 5.1849997d-01,
1264  & 5.2399999d-01, 5.2899998d-01, 5.3427237d-01, 5.3999996d-01,
1265  & 5.4399997d-01, 5.4899997d-01, 5.5399996d-01, 5.5645859d-01,
1266  & 5.6099999d-01, 5.6500000d-01, 5.6800002d-01, 5.7099998d-01,
1267  & 5.7364732d-01, 5.7800001d-01, 5.8099997d-01, 5.8399999d-01,
1268  & 5.8700001d-01, 5.8822197d-01, 5.9200001d-01, 5.9600002d-01,
1269  & 5.9799999d-01, 6.0299999d-01, 6.0699999d-01, 6.1000001d-01,
1270  & 6.1500001d-01, 6.1900002d-01, 6.2299997d-01, 6.2761486d-01,
1271  & 6.3199997d-01, 6.3499999d-01, 6.3999999d-01, 6.4499998d-01,
1272  & 6.4999998d-01, 6.5499997d-01, 6.6100001d-01, 6.6499996d-01,
1273  & 6.7199999d-01, 6.7738897d-01, 6.8400002d-01, 6.9099998d-01,
1274  & 6.9699997d-01, 7.0400000d-01, 7.0999998d-01, 7.1700001d-01,
1275  & 7.2399998d-01, 7.3000002d-01, 7.3699999d-01, 7.4470294d-01,
1276  & 7.5000000d-01, 7.5800002d-01, 7.6400000d-01, 7.7300000d-01,
1277  & 7.7899998d-01, 7.8799999d-01, 7.9399997d-01, 8.0100000d-01,
1278  & 8.0900002d-01, 8.1773829d-01, 8.2300001d-01, 8.2999998d-01,
1279  & 8.3599997d-01, 8.4200001d-01, 8.4899998d-01, 8.5299999d-01,
1280  & 8.5899997d-01, 8.6500001d-01, 8.7099999d-01, 8.7663573d-01,
1281  & 8.8199997d-01, 8.8699996d-01, 8.9200002d-01, 8.9700001d-01,
1282  & 9.0099996d-01, 9.0700001d-01, 9.1200000d-01, 9.1799998d-01,
1283  & 9.2199999d-01, 9.2825812d-01, 9.3299997d-01, 9.4000000d-01,
1284  & 9.4300002d-01, 9.4900000d-01, 9.5300001d-01, 9.5899999d-01,
1285  & 9.6200001d-01, 9.6799999d-01, 9.7100002d-01, 9.7600001d-01,
1286  & 9.8100001d-01, 9.8600000d-01, 9.9000001d-01, 9.9500000d-01,
1287  & 1.0000000d+00, 5.4660002d+13, 5.7388900d+13, 5.8218919d+13,
1288  & 5.8728879d+13, 5.9103783d+13, 5.9409749d+13, 5.9714927d+13,
1289  & 5.9921001d+13, 6.0127059d+13, 6.0333134d+13, 6.0532665d+13,
1290  & 6.0684281d+13, 6.0835880d+13, 6.0987495d+13, 6.1139111d+13,
1291  & 6.1290710d+13, 6.1422579d+13, 6.1552368d+13, 6.1682156d+13,
1292  & 6.1811945d+13, 6.1941716d+13, 6.2071505d+13, 6.2209565d+13,
1293  & 6.2348648d+13, 6.2487714d+13, 6.2626797d+13, 6.2765880d+13,
1294  & 6.2913922d+13, 6.3078910d+13, 6.3243897d+13, 6.3408884d+13,
1295  & 6.3573871d+13, 6.3756961d+13, 6.3946761d+13, 6.4136562d+13,
1296  & 6.4326363d+13, 6.4541094d+13, 6.4763493d+13, 6.4985892d+13,
1297  & 6.5225320d+13, 6.5488269d+13, 6.5751218d+13, 6.6043276d+13,
1298  & 6.6353017d+13, 6.6678478d+13, 6.7045647d+13, 6.7434795d+13,
1299  & 6.7871909d+13, 6.8369890d+13, 6.8933554d+13, 6.9592546d+13,
1300  & 7.0353410d+13, 7.1228241d+13, 7.2233599d+13, 7.3402535d+13,
1301  & 7.4779994d+13, 7.6323297d+13, 7.7978671d+13, 7.9661543d+13,
1302  & 8.1315827d+13, 8.2865824d+13, 8.4333327d+13, 8.5718722d+13,
1303  & 8.6971762d+13, 8.8127109d+13, 8.9197042d+13, 9.0187032d+13,
1304  & 9.1113000d+13, 9.1976439d+13, 9.2776998d+13, 9.3537576d+13,
1305  & 9.4253275d+13, 9.4930857d+13, 9.5584111d+13, 9.6216193d+13,
1306  & 9.6829182d+13, 9.7433246d+13, 9.8036152d+13, 9.8641675d+13,
1307  & 9.9259848d+13, 9.9894732d+13, 1.0055260d+14, 1.0123548d+14,
1308  & 1.0194659d+14, 1.0268643d+14, 1.0344259d+14, 1.0421597d+14,
1309  & 1.0499725d+14, 1.0578540d+14, 1.0657869d+14, 1.0738224d+14/
1310  data ( tapcrs(i),i=5001,5200 )/
1311  & 1.0819543d+14, 1.0900971d+14, 1.0982401d+14, 1.1063831d+14,
1312  & 1.1145259d+14, 1.1226689d+14, 1.1308119d+14, 1.1389549d+14,
1313  & 1.1470977d+14, 1.1552407d+14, 1.3678358d+25, 2.7085096d+25,
1314  & 3.8333017d+25, 4.9107649d+25, 5.9785086d+25, 7.0511646d+25,
1315  & 8.1338372d+25, 9.2286552d+25, 1.0336200d+26, 1.1456302d+26,
1316  & 1.2588412d+26, 1.3731808d+26, 1.4885691d+26, 1.6049256d+26,
1317  & 1.7221716d+26, 1.8402317d+26, 1.9590354d+26, 2.0785171d+26,
1318  & 2.1986158d+26, 2.3192757d+26, 2.4404452d+26, 2.5620773d+26,
1319  & 2.6841284d+26, 2.8065592d+26, 2.9293336d+26, 3.0524187d+26,
1320  & 3.1757826d+26, 3.2994024d+26, 3.4232494d+26, 3.5472971d+26,
1321  & 3.6715307d+26, 3.7959297d+26, 3.9204762d+26, 4.0451496d+26,
1322  & 4.1699411d+26, 4.2948359d+26, 4.4198192d+26, 4.5448822d+26,
1323  & 4.6700131d+26, 4.7952001d+26, 4.9204402d+26, 5.0457217d+26,
1324  & 5.1710385d+26, 5.2963849d+26, 5.4217519d+26, 5.5471337d+26,
1325  & 5.6725302d+26, 5.7979327d+26, 5.9233381d+26, 6.0487405d+26,
1326  & 6.1741400d+26, 6.2995306d+26, 6.4249095d+26, 6.5502735d+26,
1327  & 6.6756229d+26, 6.8009545d+26, 6.9262625d+26, 7.0515527d+26,
1328  & 7.1768135d+26, 7.3020536d+26, 7.4272642d+26, 7.5524453d+26,
1329  & 7.6775998d+26, 7.8027219d+26, 7.9278144d+26, 8.0528745d+26,
1330  & 8.1779021d+26, 8.3028943d+26, 8.4278540d+26, 8.5527812d+26,
1331  & 8.6776731d+26, 8.8025295d+26, 8.9273505d+26, 9.0521361d+26,
1332  & 9.1768862d+26, 9.3015980d+26, 9.4262774d+26, 9.5509213d+26,
1333  & 9.6755268d+26, 9.8000969d+26, 9.9246317d+26, 1.0049131d+27,
1334  & 1.0173592d+27, 1.0298023d+27, 1.0422413d+27, 1.0546771d+27,
1335  & 1.0671093d+27, 1.0795380d+27, 1.0919631d+27, 1.1043850d+27,
1336  & 1.1168034d+27, 1.1292182d+27, 1.1416297d+27, 1.1540380d+27,
1337  & 1.1664428d+27, 1.1788443d+27, 1.1912426d+27, 1.2036377d+27,
1338  & 1.2160294d+27, 1.2284180d+27, 1.2408036d+27, 1.2531859d+27,
1339  & 1.2655650d+27, 1.2779411d+27, 1.2903143d+27, 1.3026846d+27,
1340  & 1.3150513d+27, 1.3274156d+27, 1.3397770d+27, 1.3521351d+27,
1341  & 1.3644906d+27, 1.3768431d+27, 1.3891930d+27, 1.4015402d+27,
1342  & 1.4138845d+27, 1.4262258d+27, 1.4385648d+27, 4.1112310d-01,
1343  & 4.7742981d-01, 4.1159421d-01, 4.7853261d-01, 4.1205478d-01,
1344  & 4.7972602d-01, 4.1245621d-01, 4.8087341d-01, 4.1296798d-01,
1345  & 4.8233598d-01, 4.1349196d-01, 4.8383301d-01, 4.1380799d-01,
1346  & 4.8525500d-01, 4.1459101d-01, 4.8736900d-01, 4.1482401d-01,
1347  & 4.8912001d-01, 4.1525698d-01, 4.9135697d-01, 4.1493201d-01,
1348  & 4.9337500d-01, 4.1208100d-01, 4.9362397d-01, 4.0617299d-01,
1349  & 4.9259299d-01, 3.9333302d-01, 4.8782599d-01, 3.7791800d-01,
1350  & 4.8554897d-01, 3.6482596d-01, 4.8527598d-01, 3.4545499d-01,
1351  & 4.7552401d-01, 3.2461101d-01, 4.6214998d-01, 3.0085498d-01,
1352  & 4.4358999d-01, 2.4587202d-01, 3.7522900d-01, 1.8765402d-01,
1353  & 3.0078000d-01, 1.6357398d-01, 2.7731997d-01, 1.4982098d-01,
1354  & 2.6666701d-01, 1.5677696d-01, 2.8241801d-01, 1.8484801d-01,
1355  & 3.3295500d-01, 2.1302700d-01, 3.7816101d-01, 2.1243203d-01,
1356  & 3.8088602d-01, 2.0627499d-01, 3.7411797d-01, 1.9065398d-01,
1357  & 3.4883201d-01, 1.6373497d-01, 3.0601901d-01, 1.3607299d-01,
1358  & 2.6095903d-01, 1.1535603d-01, 2.2584301d-01, 9.6198976d-02,
1359  & 1.9100899d-01, 8.2979023d-02, 1.6382998d-01, 6.5702021d-02,
1360  & 1.3099200d-01, 7.2000027d-02, 1.3300002d-01, 8.6525023d-02/
1361  data ( tapcrs(i),i=5201,5400 )/
1362  & 1.4738899d-01, 1.0706300d-01, 1.6970301d-01, 1.3511896d-01,
1363  & 2.0357102d-01, 1.6219902d-01, 2.3659801d-01, 1.8567502d-01,
1364  & 2.6446301d-01, 2.0265400d-01, 2.8312099d-01, 2.1679401d-01,
1365  & 2.9694700d-01, 2.2883701d-01, 3.0821103d-01, 2.3802799d-01,
1366  & 3.1549299d-01, 2.4619597d-01, 3.2214701d-01, 2.5541103d-01,
1367  & 3.2922101d-01, 2.6317501d-01, 3.3503699d-01, 2.3324198d-01,
1368  & 3.0355197d-01, 2.7493197d-01, 3.4275800d-01, 2.8101099d-01,
1369  & 3.4693402d-01, 2.8557098d-01, 3.4919399d-01, 2.8928000d-01,
1370  & 3.5025901d-01, 2.9214901d-01, 3.5049897d-01, 2.9193199d-01,
1371  & 3.4638399d-01, 2.8911799d-01, 3.3921200d-01, 2.7798200d-01,
1372  & 3.2018298d-01, 2.7055299d-01, 3.0672598d-01, 2.7022201d-01,
1373  & 3.0533302d-01, 2.7253997d-01, 3.0792999d-01, 2.7541101d-01,
1374  & 3.1214797d-01, 2.8177798d-01, 3.2266700d-01, 2.9653901d-01,
1375  & 3.4726799d-01, 3.0627596d-01, 3.6584699d-01, 3.0967098d-01,
1376  & 3.7667000d-01, 2.9776299d-01, 3.6839801d-01, 2.7618998d-01,
1377  & 3.4821397d-01, 2.6591998d-01, 3.3880597d-01, 2.6163501d-01,
1378  & 3.3396196d-01, 2.5904500d-01, 3.2989901d-01, 2.5755697d-01,
1379  & 3.2608700d-01, 2.6060599d-01, 3.2727301d-01, 2.6161098d-01,
1380  & 3.2571101d-01, 2.6249999d-01, 3.2395798d-01, 2.6249999d-01,
1381  & 3.2159102d-01, 2.6182503d-01, 3.1843597d-01, 2.6117200d-01,
1382  & 3.1538498d-01, 2.6139402d-01, 3.1397599d-01, 2.6183403d-01,
1383  & 3.1268698d-01, 2.6239002d-01, 3.1188202d-01, 2.6293200d-01,
1384  & 3.1110001d-01, 2.6352501d-01, 3.1055301d-01, 2.6294398d-01,
1385  & 3.0862898d-01, 2.6318997d-01, 3.0762303d-01, 2.6335001d-01,
1386  & 3.0696499d-01, 2.6391298d-01, 3.0649000d-01, 2.6406497d-01,
1387  & 3.0585396d-01, 2.6467198d-01, 3.0559802d-01, 2.6423800d-01,
1388  & 3.0421901d-01, 2.6489401d-01, 3.0417901d-01, 2.6509398d-01,
1389  & 3.0377400d-01, 2.6573199d-01, 3.0373800d-01, 2.6536602d-01,
1390  & 3.0260199d-01, 2.6555902d-01, 3.0221599d-01, 2.6629996d-01,
1391  & 3.0256599d-01, 2.6648498d-01, 3.0218601d-01, 2.6618302d-01,
1392  & 3.0126899d-01, 2.6690698d-01, 3.0162001d-01, 2.6660699d-01,
1393  & 3.0071700d-01, 2.6684499d-01, 3.0053496d-01, 2.6684397d-01,
1394  & 3.0008900d-01, 2.6684302d-01, 2.9964697d-01, 2.6660800d-01,
1395  & 2.9894400d-01, 2.6736701d-01, 2.9947501d-01, 2.6689899d-01,
1396  & 2.9851699d-01, 2.6718801d-01, 2.9852301d-01, 2.6747400d-01,
1397  & 2.9852903d-01, 2.6724100d-01, 2.9784501d-01, 2.6729703d-01,
1398  & 2.9759401d-01, 2.6712400d-01, 2.9708701d-01, 2.6740599d-01,
1399  & 2.9709899d-01, 2.6723397d-01, 2.9659599d-01, 2.6706302d-01,
1400  & 2.9609501d-01, 2.6739997d-01, 2.9627699d-01, 2.6722902d-01,
1401  & 2.9578102d-01, 2.6705903d-01, 2.9528600d-01, 2.6717001d-01,
1402  & 2.9521400d-01, 0.0000000d+00, 2.0000000d-29, 2.2999999d-27,
1403  & 7.0000004d-27, 1.4000001d-26, 2.3999999d-26, 3.6700000d-26,
1404  & 5.6999983d-26, 8.0000011d-26, 8.2799975d-26, 7.5999994d-26,
1405  & 6.3000010d-26, 5.1999985d-26, 4.4499998d-26, 3.9500000d-26,
1406  & 3.4299999d-26, 2.9000000d-26, 2.4500001d-26, 2.0000000d-26,
1407  & 1.7300000d-26, 1.5500001d-26, 1.4000001d-26, 1.2999999d-26,
1408  & 1.2199999d-26, 1.1499999d-26, 1.1000000d-26, 1.0500001d-26,
1409  & 1.0099999d-26, 9.7000001d-27, 9.4999992d-27, 9.3000014d-27,
1410  & 9.3000014d-27, 9.3999988d-27, 9.4999992d-27, 9.4999992d-27,
1411  & 9.3000014d-27, 9.1000005d-27, 8.7999992d-27, 8.3000000d-27/
1412 
1413  data ( tapcrs(i),i=5401,5600 )/
1414  & 7.9000013d-27, 7.6000000d-27, 7.8000009d-27, 8.4000005d-27,
1415  & 9.9999983d-27, 1.2899999d-26, 1.4500000d-26, 1.4100001d-26,
1416  & 1.3100000d-26, 1.2500000d-26, 1.2299999d-26, 1.2199999d-26,
1417  & 1.2099998d-26, 1.2149999d-26, 1.2199999d-26, 1.2299999d-26,
1418  & 1.2500000d-26, 1.2700001d-26, 1.2799998d-26, 1.2849999d-26,
1419  & 1.2899999d-26, 1.2990000d-26, 1.2999999d-26, 1.2999999d-26,
1420  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2990000d-26,
1421  & 1.2799998d-26, 1.2700001d-26, 1.2400000d-26, 1.2199999d-26,
1422  & 1.1900001d-26, 1.1599999d-26, 1.1400002d-26, 1.1200001d-26,
1423  & 1.1100000d-26, 1.1000000d-26, 1.1000000d-26, 1.1050000d-26,
1424  & 1.1200001d-26, 1.1400002d-26, 1.1499999d-26, 1.1700000d-26,
1425  & 1.1800000d-26, 1.1900001d-26, 1.2000001d-26, 1.2050001d-26,
1426  & 1.2099998d-26, 1.2199999d-26, 1.2299999d-26, 1.2350000d-26,
1427  & 1.2400000d-26, 1.2500000d-26, 1.2500000d-26, 1.2500000d-26,
1428  & 1.2500000d-26, 1.2500000d-26, 1.2500000d-26, 1.2400000d-26,
1429  & 1.2350000d-26, 1.2299999d-26, 1.2270001d-26, 1.2249999d-26,
1430  & 1.2199999d-26, 1.2149999d-26, 1.2099998d-26, 1.2070000d-26,
1431  & 1.2050001d-26, 1.2029999d-26, 1.2020000d-26, 1.2010001d-26,
1432  & 1.2000001d-26, 1.1989999d-26, 1.1989999d-26, 1.1979999d-26,
1433  & 1.1950001d-26, 1.1940001d-26, 1.1900001d-26, 1.1850000d-26,
1434  & 1.1829998d-26, 1.1810000d-26, 1.1800000d-26, 1.1769999d-26,
1435  & 1.1750000d-26, 1.1700000d-26, 1.1549999d-26, 0.0000000d+00,
1436  & 2.0000000d-29, 2.2999999d-27, 7.0000004d-27, 1.4000001d-26,
1437  & 2.3999999d-26, 3.6700000d-26, 5.6999983d-26, 8.0000011d-26,
1438  & 8.2799975d-26, 7.5999994d-26, 6.3000010d-26, 5.1999985d-26,
1439  & 4.4499998d-26, 3.9500000d-26, 3.4299999d-26, 2.9000000d-26,
1440  & 2.4500001d-26, 2.0000000d-26, 1.7300000d-26, 1.5500001d-26,
1441  & 1.4000001d-26, 1.2999999d-26, 1.2199999d-26, 1.1499999d-26,
1442  & 1.1000000d-26, 1.0500001d-26, 1.0099999d-26, 9.7000001d-27,
1443  & 9.4999992d-27, 9.3000014d-27, 9.3000014d-27, 9.3999988d-27,
1444  & 9.4999992d-27, 9.4999992d-27, 9.3000014d-27, 9.1000005d-27,
1445  & 8.7999992d-27, 8.3000000d-27, 7.9000013d-27, 7.6000000d-27,
1446  & 7.8000009d-27, 8.4000005d-27, 9.9999983d-27, 1.2899999d-26,
1447  & 1.4500000d-26, 1.4100001d-26, 1.3100000d-26, 1.2500000d-26,
1448  & 1.2299999d-26, 1.2199999d-26, 1.2099998d-26, 1.2149999d-26,
1449  & 1.2199999d-26, 1.2299999d-26, 1.2500000d-26, 1.2700001d-26,
1450  & 1.2799998d-26, 1.2849999d-26, 1.2899999d-26, 1.2990000d-26,
1451  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1452  & 1.2999999d-26, 1.2990000d-26, 1.2799998d-26, 1.2700001d-26,
1453  & 1.2400000d-26, 1.2199999d-26, 1.1900001d-26, 1.1599999d-26,
1454  & 1.1400002d-26, 1.1200001d-26, 1.1100000d-26, 1.1000000d-26,
1455  & 1.1000000d-26, 1.1050000d-26, 1.1200001d-26, 1.1400002d-26,
1456  & 1.1499999d-26, 1.1700000d-26, 1.1800000d-26, 1.1900001d-26,
1457  & 1.2000001d-26, 1.2050001d-26, 1.2099998d-26, 1.2199999d-26,
1458  & 1.2299999d-26, 1.2350000d-26, 1.2400000d-26, 1.2500000d-26,
1459  & 1.2500000d-26, 1.2500000d-26, 1.2500000d-26, 1.2500000d-26,
1460  & 1.2500000d-26, 1.2400000d-26, 1.2350000d-26, 1.2299999d-26,
1461  & 1.2270001d-26, 1.2249999d-26, 1.2199999d-26, 1.2149999d-26,
1462  & 1.2099998d-26, 1.2070000d-26, 1.2050001d-26, 1.2029999d-26,
1463  & 1.2020000d-26, 1.2010001d-26, 1.2000001d-26, 1.1989999d-26/
1464  data ( tapcrs(i),i=5601,5800 )/
1465  & 1.1989999d-26, 1.1979999d-26, 1.1950001d-26, 1.1940001d-26,
1466  & 1.1900001d-26, 1.1850000d-26, 1.1829998d-26, 1.1810000d-26,
1467  & 1.1800000d-26, 1.1769999d-26, 1.1750000d-26, 1.1700000d-26,
1468  & 1.1549999d-26, 0.0000000d+00, 2.7000001d-27, 5.7500010d-27,
1469  & 9.0000001d-27, 1.2750001d-26, 1.6750001d-26, 2.1999999d-26,
1470  & 3.2500000d-26, 4.3500000d-26, 4.5000000d-26, 4.2999998d-26,
1471  & 3.4249999d-26, 2.8799999d-26, 2.5399999d-26, 2.2699999d-26,
1472  & 2.0200001d-26, 1.8300001d-26, 1.6000000d-26, 1.4000001d-26,
1473  & 1.2700001d-26, 1.1900001d-26, 1.1300001d-26, 1.0799999d-26,
1474  & 1.0500001d-26, 1.0199999d-26, 9.9000010d-27, 9.7500003d-27,
1475  & 9.5999996d-27, 9.4999992d-27, 9.3999988d-27, 9.2000009d-27,
1476  & 8.5000009d-27, 7.1000008d-27, 5.9999990d-27, 5.2999990d-27,
1477  & 5.0000007d-27, 4.7999998d-27, 5.0000007d-27, 5.4999999d-27,
1478  & 6.3000003d-27, 7.1000008d-27, 7.7500006d-27, 8.1999996d-27,
1479  & 8.2499998d-27, 7.9999987d-27, 7.4999995d-27, 6.5999986d-27,
1480  & 5.8000012d-27, 5.3999994d-27, 4.9000003d-27, 4.4999985d-27,
1481  & 4.2000002d-27, 3.8000015d-27, 3.6000006d-27, 3.2999993d-27,
1482  & 3.0000001d-27, 2.8000000d-27, 2.6000000d-27, 2.3999999d-27,
1483  & 2.2000000d-27, 2.0000001d-27, 1.7999999d-27, 1.7000001d-27,
1484  & 1.4999999d-27, 1.4000001d-27, 1.2500000d-27, 1.2000000d-27,
1485  & 1.0000000d-27, 8.9999997d-28, 7.9999991d-28, 7.5000007d-28,
1486  & 7.0000004d-28, 6.5000001d-28, 5.9999998d-28, 4.9999992d-28,
1487  & 4.0000005d-28, 3.5000002d-28, 2.9999999d-28, 2.4999996d-28,
1488  & 2.0000000d-28, 1.7500000d-28, 1.4999999d-28, 1.0000000d-28,
1489  & 4.9999994d-29, 1.0000000d-29, 0.0000000d+00, 0.0000000d+00,
1490  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1491  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1492  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1493  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1494  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1495  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1496  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1497  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1498  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1499  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1500  & 7.0000004d-28, 1.4999999d-27, 2.8000000d-27, 4.6999994d-27,
1501  & 7.2000013d-27, 1.0199999d-26, 1.5800000d-26, 2.1099999d-26,
1502  & 2.1899999d-26, 2.0800000d-26, 1.6800001d-26, 1.4199999d-26,
1503  & 1.2199999d-26, 1.0500001d-26, 9.3999988d-27, 8.8999996d-27,
1504  & 8.6999987d-27, 9.1000005d-27, 9.8000005d-27, 1.0799999d-26,
1505  & 1.1900001d-26, 1.2899999d-26, 1.3800000d-26, 1.4399999d-26,
1506  & 1.4999999d-26, 1.5400001d-26, 1.5800000d-26, 1.6100001d-26,
1507  & 1.6299999d-26, 1.6500000d-26, 1.6600000d-26, 1.6399999d-26,
1508  & 1.6000000d-26, 1.5599999d-26, 1.5100000d-26, 1.4800001d-26,
1509  & 1.4600000d-26, 1.4349999d-26, 1.4299999d-26, 1.4399999d-26,
1510  & 1.4999999d-26, 1.6900001d-26, 2.0200001d-26, 2.5800001d-26,
1511  & 2.7899998d-26, 2.6599998d-26, 2.3400000d-26, 2.1299999d-26,
1512  & 1.9899999d-26, 1.9000001d-26, 1.8200001d-26, 1.7500001d-26,
1513  & 1.6800001d-26, 1.6100001d-26, 1.5400001d-26, 1.4700001d-26,
1514  & 1.4100001d-26, 1.3499999d-26, 1.2999999d-26, 1.2400000d-26/
1515  data ( tapcrs(i),i=5801,6000 )/
1516  & 1.1900001d-26, 1.1499999d-26, 1.1000000d-26, 1.0600001d-26,
1517  & 1.0199999d-26, 9.9000010d-27, 9.7000001d-27, 9.3999988d-27,
1518  & 9.3000014d-27, 9.1000005d-27, 9.0500003d-27, 9.0000001d-27,
1519  & 9.0000001d-27, 9.0500003d-27, 9.1000005d-27, 9.3000014d-27,
1520  & 9.4999992d-27, 9.7000001d-27, 9.8000005d-27, 1.0099999d-26,
1521  & 1.0199999d-26, 1.0400000d-26, 1.0600001d-26, 1.0700001d-26,
1522  & 1.0899999d-26, 1.1100000d-26, 1.1300001d-26, 1.1400002d-26,
1523  & 1.1499999d-26, 1.1599999d-26, 1.1700000d-26, 1.1750000d-26,
1524  & 1.1800000d-26, 1.1850000d-26, 1.1900001d-26, 1.1900001d-26,
1525  & 1.1900001d-26, 1.1900001d-26, 1.1850000d-26, 1.1800000d-26,
1526  & 1.1750000d-26, 1.1700000d-26, 1.1680001d-26, 1.1650000d-26,
1527  & 1.1620001d-26, 1.1599999d-26, 1.1590000d-26, 1.1580000d-26,
1528  & 1.1549999d-26, 1.1449999d-26, 1.1400002d-26, 1.1350001d-26,
1529  & 1.1300001d-26, 1.1200001d-26, 1.1179999d-26, 1.1150000d-26,
1530  & 1.1100000d-26, 1.1050000d-26, 1.1000000d-26, 1.0899999d-26,
1531  & 1.0849999d-26, 1.0799999d-26, 1.0700001d-26, 1.0650001d-26,
1532  & 1.0600001d-26, 0.0000000d+00, 3.7500013d-27, 9.9999983d-27,
1533  & 1.9500001d-26, 3.4999999d-26, 6.2500020d-26, 9.5499994d-26,
1534  & 1.4630002d-25, 2.0019998d-25, 2.0030002d-25, 1.6449998d-25,
1535  & 1.4249998d-25, 1.2379998d-25, 1.0660001d-25, 9.1250006d-26,
1536  & 7.6600021d-26, 6.4099978d-26, 5.2499975d-26, 4.3749998d-26,
1537  & 3.6799998d-26, 3.1659999d-26, 2.7800001d-26, 2.4500001d-26,
1538  & 2.1249999d-26, 1.8800001d-26, 1.6999999d-26, 1.5500001d-26,
1539  & 1.3499999d-26, 1.2999999d-26, 1.2000001d-26, 1.1000000d-26,
1540  & 1.0500001d-26, 9.4999992d-27, 9.0000001d-27, 8.7499989d-27,
1541  & 8.5000009d-27, 8.4369999d-27, 8.3329997d-27, 8.1249992d-27,
1542  & 8.1249992d-27, 7.9999987d-27, 7.9999987d-27, 8.0999991d-27,
1543  & 8.1999996d-27, 8.3000000d-27, 8.4369999d-27, 8.7499989d-27,
1544  & 8.8999996d-27, 9.1000005d-27, 9.4999992d-27, 9.9999983d-27,
1545  & 1.0500001d-26, 1.0799999d-26, 1.1250001d-26, 1.1900001d-26,
1546  & 1.2500000d-26, 1.3100000d-26, 1.3699999d-26, 1.4199999d-26,
1547  & 1.4999999d-26, 1.5500001d-26, 1.5800000d-26, 1.6249998d-26,
1548  & 1.6299999d-26, 1.6299999d-26, 1.6299999d-26, 1.6249998d-26,
1549  & 1.6249998d-26, 1.5800000d-26, 1.5699999d-26, 1.5599999d-26,
1550  & 1.5200000d-26, 1.4700001d-26, 1.4199999d-26, 1.3750000d-26,
1551  & 1.3329999d-26, 1.3100000d-26, 1.2999999d-26, 1.2999999d-26,
1552  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1553  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1554  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1555  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1556  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1557  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1558  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1559  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1560  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1561  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1562  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 1.2999999d-26,
1563  & 1.2999999d-26, 1.2999999d-26, 1.2999999d-26, 7.0000001d-25,
1564  & 1.6000002d-25, 7.1499986d-26, 4.7499999d-26, 3.4000001d-26,
1565  & 3.0000001d-26, 2.8000002d-26, 2.6500001d-26, 2.5500000d-26/
1566 
1567  data ( tapcrs(i),i=6001,6200 )/
1568  & 2.4699999d-26, 2.4049999d-26, 2.3800001d-26, 2.3500000d-26,
1569  & 2.3400000d-26, 2.3400000d-26, 2.3400000d-26, 2.3500000d-26,
1570  & 2.3600000d-26, 2.3700001d-26, 2.3800001d-26, 2.3999999d-26,
1571  & 2.4200000d-26, 2.4300000d-26, 2.4500001d-26, 2.4599999d-26,
1572  & 2.4800000d-26, 2.4900000d-26, 2.5000000d-26, 2.5000000d-26,
1573  & 2.5100001d-26, 2.5200001d-26, 2.5249999d-26, 2.5200001d-26,
1574  & 2.5000000d-26, 2.4900000d-26, 2.4599999d-26, 2.4300000d-26,
1575  & 2.3899999d-26, 2.3500000d-26, 2.3000001d-26, 2.2499999d-26,
1576  & 2.1999999d-26, 2.1500000d-26, 2.1050001d-26, 2.0700000d-26,
1577  & 2.0399998d-26, 2.0100000d-26, 1.9899999d-26, 1.9700002d-26,
1578  & 1.9600001d-26, 1.9400000d-26, 1.9300000d-26, 1.9199999d-26,
1579  & 1.9099999d-26, 1.9049999d-26, 1.9000001d-26, 1.9000001d-26,
1580  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1581  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1582  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1583  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1584  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1585  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1586  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1587  & 1.9000001d-26, 1.9000001d-26, 1.8950001d-26, 1.8900001d-26,
1588  & 1.8850001d-26, 1.8800001d-26, 1.8750000d-26, 1.8700000d-26,
1589  & 1.8650000d-26, 1.8600000d-26, 1.8549999d-26, 1.8499999d-26,
1590  & 1.8449999d-26, 1.8399999d-26, 1.8349999d-26, 1.8300001d-26,
1591  & 1.8250001d-26, 1.8200001d-26, 1.8100001d-26, 1.8000000d-26,
1592  & 1.8000000d-26, 1.7950000d-26, 1.7900000d-26, 1.7799999d-26,
1593  & 1.7699999d-26, 1.7600001d-26, 1.7500001d-26, 1.7400001d-26,
1594  & 1.7300000d-26, 1.7200000d-26, 1.7099999d-26, 1.7049999d-26,
1595  & 1.6999999d-26, 1.6900001d-26, 1.6800001d-26, 1.6700000d-26,
1596  & 1.6600000d-26, 1.6550000d-26, 1.6500000d-26, 1.6399999d-26,
1597  & 1.6299999d-26, 1.6200001d-26, 1.6100001d-26, 1.6000000d-26,
1598  & 1.5900000d-26, 1.5800000d-26, 1.5699999d-26, 1.5599999d-26,
1599  & 1.5500001d-26, 1.5400001d-26, 1.5300000d-26, 1.5200000d-26,
1600  & 1.5100000d-26, 1.4999999d-26, 1.4899999d-26, 1.4800001d-26,
1601  & 1.4700001d-26, 1.4600000d-26, 1.4500000d-26, 1.4399999d-26,
1602  & 1.4199999d-26, 1.4100001d-26, 1.4000001d-26, 1.3950001d-26,
1603  & 1.3900000d-26, 1.3800000d-26, 1.3599999d-26, 1.3499999d-26,
1604  & 1.3400001d-26, 1.3300001d-26, 1.3200000d-26, 1.3100000d-26,
1605  & 1.2999999d-26, 1.2899999d-26, 1.2799998d-26, 1.2700001d-26,
1606  & 1.2600001d-26, 1.2500000d-26, 1.2400000d-26, 1.2299999d-26,
1607  & 1.2199999d-26, 1.2099998d-26, 1.2000001d-26, 1.1900001d-26,
1608  & 1.1800000d-26, 1.1700000d-26, 1.1599999d-26, 1.1499999d-26,
1609  & 1.1400002d-26, 1.1300001d-26, 1.1200001d-26, 4.4000003d-24,
1610  & 4.7999997d-25, 2.1999999d-25, 1.3999998d-25, 1.0000000d-25,
1611  & 7.3999985d-26, 6.1999981d-26, 5.6000003d-26, 5.1499998d-26,
1612  & 4.7499999d-26, 4.3999999d-26, 4.1099998d-26, 3.8700000d-26,
1613  & 3.6499999d-26, 3.5200000d-26, 3.4299999d-26, 3.3800000d-26,
1614  & 3.3400001d-26, 3.3100000d-26, 3.2999999d-26, 3.2800001d-26,
1615  & 3.2400000d-26, 3.2000001d-26, 3.1400001d-26, 3.0899999d-26,
1616  & 3.0199999d-26, 2.9499999d-26, 2.8899999d-26, 2.8000002d-26,
1617  & 2.7200001d-26, 2.6400001d-26, 2.5800001d-26, 2.5000000d-26/
1618  data ( tapcrs(i),i=6201,6400 )/
1619  & 2.4400001d-26, 2.3899999d-26, 2.3500000d-26, 2.3199999d-26,
1620  & 2.2900000d-26, 2.2800000d-26, 2.2599999d-26, 2.2499999d-26,
1621  & 2.2400001d-26, 2.2300001d-26, 2.2250001d-26, 2.2200000d-26,
1622  & 2.2200000d-26, 2.2150000d-26, 2.2150000d-26, 2.2150000d-26,
1623  & 2.2150000d-26, 2.2200000d-26, 2.2250001d-26, 2.2300001d-26,
1624  & 2.2400001d-26, 2.2499999d-26, 2.2599999d-26, 2.2699999d-26,
1625  & 2.2900000d-26, 2.3050001d-26, 2.3400000d-26, 2.3700001d-26,
1626  & 2.3999999d-26, 2.4300000d-26, 2.4699999d-26, 2.4950000d-26,
1627  & 2.5200001d-26, 2.5399999d-26, 2.5500000d-26, 2.5700001d-26,
1628  & 2.5800001d-26, 2.5900001d-26, 2.5999999d-26, 2.6049999d-26,
1629  & 2.6099999d-26, 2.6099999d-26, 2.6099999d-26, 2.6099999d-26,
1630  & 2.6049999d-26, 2.5999999d-26, 2.5949999d-26, 2.5800001d-26,
1631  & 2.5750001d-26, 2.5600000d-26, 2.5500000d-26, 2.5399999d-26,
1632  & 2.5200001d-26, 2.5100001d-26, 2.5000000d-26, 2.4950000d-26,
1633  & 2.4900000d-26, 2.4800000d-26, 2.4599999d-26, 2.4500001d-26,
1634  & 2.4300000d-26, 2.4200000d-26, 2.4100000d-26, 2.3949999d-26,
1635  & 2.3800001d-26, 2.3700001d-26, 2.3600000d-26, 2.3400000d-26,
1636  & 2.3299999d-26, 2.3199999d-26, 2.3000001d-26, 2.2900000d-26,
1637  & 2.2800000d-26, 2.2599999d-26, 2.2499999d-26, 2.2300001d-26,
1638  & 2.2100000d-26, 2.1999999d-26, 2.1799999d-26, 2.1600001d-26,
1639  & 2.1500000d-26, 2.1299999d-26, 2.1199999d-26, 2.1000001d-26,
1640  & 2.0800000d-26, 2.0599999d-26, 2.0399998d-26, 2.0200001d-26,
1641  & 2.0100000d-26, 1.9950000d-26, 1.9799999d-26, 1.9600001d-26,
1642  & 1.9400000d-26, 1.9300000d-26, 1.9099999d-26, 1.9000001d-26,
1643  & 1.8800001d-26, 1.8600000d-26, 1.8399999d-26, 1.8200001d-26,
1644  & 1.8000000d-26, 1.7799999d-26, 1.7600001d-26, 1.7500001d-26,
1645  & 1.7300000d-26, 1.7099999d-26, 1.6949999d-26, 1.6700000d-26,
1646  & 1.6500000d-26, 1.6399999d-26, 1.6200001d-26, 1.5950000d-26,
1647  & 1.5699999d-26, 1.5500001d-26, 1.5400001d-26, 1.5200000d-26,
1648  & 1.4999999d-26, 1.4800001d-26, 1.4399999d-26, 1.4199999d-26,
1649  & 1.4000001d-26, 1.3800000d-26, 1.3599999d-26, 1.3400001d-26,
1650  & 1.3200000d-26, 1.3050000d-26, 1.2899999d-26, 1.2700001d-26,
1651  & 1.2500000d-26, 1.2249999d-26, 1.2000001d-26, 1.1800000d-26,
1652  & 1.1599999d-26, 1.1499999d-26, 1.1250001d-26, 1.1050000d-26,
1653  & 1.0799999d-26, 1.0700001d-26, 1.0500001d-26, 1.0300000d-26,
1654  & 1.0099999d-26, 9.9000010d-27, 9.7000001d-27, 0.0000000d+00,
1655  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1656  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1657  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1658  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1659  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1660  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1661  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1662  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1663  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1664  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1665  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1666  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1667  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1668  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00/
1669  data ( tapcrs(i),i=6401,6600 )/
1670  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1671  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1672  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1673  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1674  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1675  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1676  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1677  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1678  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1679  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1680  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1681  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1682  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1683  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1684  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1685  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1686  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1687  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1688  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1689  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1690  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1691  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1692  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1693  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1694  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1695  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1696  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1697  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1698  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1699  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1700  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1701  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1702  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1703  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1704  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1705  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1706  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1707  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1708  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1709  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1710  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1711  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1712  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1713  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1714  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1715  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1716  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1717  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1718  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00,
1719  & 0.0000000d+00, 0.0000000d+00, 0.0000000d+00, 0.0000000d+00/
1720 
1721 !*-----------------------------------------------------------------------
1722 
1723  data ( tapcr1(i),i = 1, 201 )/
1724  & 2.6360000d-25,
1725  & 8.8676700d-26, 5.5000000d-26, 3.7700000d-26, 3.1800000d-26,
1726  & 2.8900000d-26, 2.7119800d-26, 2.5942100d-26, 2.5106700d-26,
1727  & 2.4483400d-26, 2.4000500d-26, 2.3615300d-26, 2.3300900d-26,
1728  & 2.3039500d-26, 2.2818600d-26, 2.2629600d-26, 2.2421500d-26,
1729  & 2.2275200d-26, 2.2146300d-26, 2.2031800d-26, 2.1929500d-26,
1730  & 2.1837500d-26, 2.1754300d-26, 2.1678800d-26, 2.1609800d-26,
1731  & 2.1546700d-26, 2.1488600d-26, 2.1435000d-26, 2.1385400d-26,
1732  & 2.1339400d-26, 2.1296600d-26, 2.1256600d-26, 2.1219200d-26,
1733  & 2.1184200d-26, 2.1151300d-26, 2.1120400d-26, 2.1091200d-26,
1734  & 2.1063600d-26, 2.1037600d-26, 2.1012900d-26, 2.0989500d-26,
1735  & 2.0967300d-26, 2.0946200d-26, 2.0926000d-26, 2.0906800d-26,
1736  & 2.0888500d-26, 2.0871000d-26, 2.0854300d-26, 2.0838300d-26,
1737  & 2.0822900d-26, 2.0808200d-26, 2.0762100d-26, 2.0711400d-26,
1738  & 2.0660700d-26, 2.0610100d-26, 2.0559400d-26, 2.0508700d-26,
1739  & 2.0458000d-26, 2.0407300d-26, 2.0356600d-26, 2.0306000d-26,
1740  & 2.0255300d-26, 2.0204600d-26, 2.0153900d-26, 2.0103200d-26,
1741  & 2.0052500d-26, 2.0001900d-26, 1.9951200d-26, 1.9900500d-26,
1742  & 1.9849800d-26, 1.9799100d-26, 1.9748400d-26, 1.9697800d-26,
1743  & 1.9647100d-26, 1.9596400d-26, 1.9545700d-26, 1.9495000d-26,
1744  & 1.9444300d-26, 1.9393600d-26, 1.9343000d-26, 1.9292300d-26,
1745  & 1.9241600d-26, 1.9190900d-26, 1.9140200d-26, 1.9089500d-26,
1746  & 1.9038900d-26, 1.9000000d-26, 1.8950000d-26, 1.8900000d-26,
1747  & 1.8850000d-26, 1.8800000d-26, 1.8750000d-26, 1.8700000d-26,
1748  & 1.8650000d-26, 1.8600000d-26, 1.8550000d-26, 1.8500000d-26,
1749  & 1.8450000d-26, 1.8400000d-26, 1.8350000d-26, 1.8300000d-26,
1750  & 1.8250000d-26, 1.8200000d-26, 1.8100000d-26, 1.8000000d-26,
1751  & 1.8000000d-26, 1.7950000d-26, 1.7900000d-26, 1.7800000d-26,
1752  & 1.7700000d-26, 1.7600000d-26, 1.7500000d-26, 1.7400000d-26,
1753  & 1.7300000d-26, 1.7200000d-26, 1.7100000d-26, 1.7050000d-26,
1754  & 1.7000000d-26, 1.6900000d-26, 1.6800000d-26, 1.6700000d-26,
1755  & 1.6600000d-26, 1.6550000d-26, 1.6500000d-26, 1.6400000d-26,
1756  & 1.6300000d-26, 1.6200000d-26, 1.6100000d-26, 1.6000000d-26,
1757  & 1.5900000d-26, 1.5800000d-26, 1.5700000d-26, 1.5600000d-26,
1758  & 1.5500000d-26, 1.5400000d-26, 1.5300000d-26, 1.5200000d-26,
1759  & 1.5100000d-26, 1.5000000d-26, 1.4900000d-26, 1.4800000d-26,
1760  & 1.4700000d-26, 1.4600000d-26, 1.4500000d-26, 1.4400000d-26,
1761  & 1.4200000d-26, 1.4100000d-26, 1.4000000d-26, 1.3950000d-26,
1762  & 1.3900000d-26, 1.3800000d-26, 1.3600000d-26, 1.3500000d-26,
1763  & 1.3400000d-26, 1.3300000d-26, 1.3200000d-26, 1.3100000d-26,
1764  & 1.3000000d-26, 1.2900000d-26, 1.2800000d-26, 1.2700000d-26,
1765  & 1.2600000d-26, 1.2500000d-26, 1.2400000d-26, 1.2300000d-26,
1766  & 1.2200000d-26, 1.2100000d-26, 1.2000000d-26, 1.1900000d-26,
1767  & 1.1800000d-26, 1.1700000d-26, 1.1600000d-26, 1.1500000d-26,
1768  & 1.1400000d-26, 1.1300000d-26, 1.1200000d-26, 2.6360000d-25,
1769  & 8.8676700d-26, 5.5000000d-26, 3.9700000d-26, 3.4500000d-26,
1770  & 3.1900000d-26, 3.0308600d-26, 2.9270200d-26, 2.8527000d-26,
1771  & 2.7968900d-26, 2.7534300d-26, 2.7186400d-26, 2.6901500d-26,
1772  & 2.6664000d-26, 2.6462900d-26, 2.6290400d-26, 2.6156700d-26,
1773  & 2.6029600d-26, 2.5917100d-26, 2.5816800d-26, 2.5726800d-26,
1774  & 2.5645600d-26, 2.5572000d-26, 2.5505000d-26, 2.5443600d-26/
1775  data ( tapcr1(i),i = 202, 352 )/
1776  & 2.5387300d-26, 2.5335500d-26, 2.5287500d-26, 2.5243100d-26,
1777  & 2.5201700d-26, 2.5163200d-26, 2.5127200d-26, 2.5093500d-26,
1778  & 2.5061900d-26, 2.5032200d-26, 2.5004200d-26, 2.4977800d-26,
1779  & 2.4952800d-26, 2.4929200d-26, 2.4906800d-26, 2.4885500d-26,
1780  & 2.4865300d-26, 2.4846000d-26, 2.4827700d-26, 2.4810200d-26,
1781  & 2.4793500d-26, 2.4777500d-26, 2.4762300d-26, 2.4747600d-26,
1782  & 2.4733600d-26, 2.4720100d-26, 2.4665800d-26, 2.4599800d-26,
1783  & 2.4533800d-26, 2.4467800d-26, 2.4401800d-26, 2.4335800d-26,
1784  & 2.4269800d-26, 2.4203800d-26, 2.4137800d-26, 2.4071800d-26,
1785  & 2.4005800d-26, 2.3939800d-26, 2.3873700d-26, 2.3807700d-26,
1786  & 2.3741700d-26, 2.3675700d-26, 2.3609700d-26, 2.3543700d-26,
1787  & 2.3477700d-26, 2.3411700d-26, 2.3345700d-26, 2.3279700d-26,
1788  & 2.3213700d-26, 2.3147700d-26, 2.3081700d-26, 2.3015700d-26,
1789  & 2.2949700d-26, 2.2883700d-26, 2.2817700d-26, 2.2751700d-26,
1790  & 2.2685700d-26, 2.2619700d-26, 2.2553700d-26, 2.2487700d-26,
1791  & 2.2421700d-26, 2.2355700d-26, 2.2289700d-26, 2.2223600d-26,
1792  & 2.2157600d-26, 2.2091600d-26, 2.2025600d-26, 2.1959600d-26,
1793  & 2.1893600d-26, 2.1827600d-26, 2.1761600d-26, 2.1695600d-26,
1794  & 2.1629600d-26, 2.1563600d-26, 2.1497600d-26, 2.1431600d-26,
1795  & 2.1365600d-26, 2.1299600d-26, 2.1233600d-26, 2.1167600d-26,
1796  & 2.1101600d-26, 2.1035600d-26, 2.0969600d-26, 2.0903600d-26,
1797  & 2.0837600d-26, 2.0771600d-26, 2.0705600d-26, 2.0639600d-26,
1798  & 2.0573500d-26, 2.0507500d-26, 2.0441500d-26, 2.0375500d-26,
1799  & 2.0309500d-26, 2.0243500d-26, 2.0177500d-26, 2.0111500d-26,
1800  & 2.0100000d-26, 1.9950000d-26, 1.9800000d-26, 1.9600000d-26,
1801  & 1.9400000d-26, 1.9300000d-26, 1.9100000d-26, 1.9000000d-26,
1802  & 1.8800000d-26, 1.8600000d-26, 1.8400000d-26, 1.8200000d-26,
1803  & 1.8000000d-26, 1.7800000d-26, 1.7600000d-26, 1.7500000d-26,
1804  & 1.7300000d-26, 1.7100000d-26, 1.6950000d-26, 1.6700000d-26,
1805  & 1.6500000d-26, 1.6400000d-26, 1.6200000d-26, 1.5950000d-26,
1806  & 1.5700000d-26, 1.5500000d-26, 1.5400000d-26, 1.5200000d-26,
1807  & 1.5000000d-26, 1.4800000d-26, 1.4400000d-26, 1.4200000d-26,
1808  & 1.4000000d-26, 1.3800000d-26, 1.3600000d-26, 1.3400000d-26,
1809  & 1.3200000d-26, 1.3050000d-26, 1.2900000d-26, 1.2700000d-26,
1810  & 1.2500000d-26, 1.2250000d-26, 1.2000000d-26, 1.1800000d-26,
1811  & 1.1600000d-26, 1.1500000d-26, 1.1250000d-26, 1.1050000d-26,
1812  & 1.0800000d-26, 1.0700000d-26, 1.0500000d-26, 1.0300000d-26,
1813  & 1.0100000d-26, 9.9000000d-27, 9.7000000d-27/
1814 
1815 !*-----------------------------------------------------------------------
1816 
1817  data ( tapcr2(i),i = 1, 201 )/
1818  & 2.6360000d-25,
1819  & 8.8676650d-26, 5.5556426d-26, 4.0143180d-26, 3.2088518d-26,
1820  & 2.7760029d-26, 2.5466840d-26, 2.4310671d-26, 2.3779042d-26,
1821  & 2.3570580d-26, 2.4049999d-26, 2.3800001d-26, 2.3500000d-26,
1822  & 2.3400000d-26, 2.3400000d-26, 2.3400000d-26, 2.3500000d-26,
1823  & 2.3600000d-26, 2.3700001d-26, 2.3800001d-26, 2.3999999d-26,
1824  & 2.4200000d-26, 2.4300000d-26, 2.4500001d-26, 2.4599999d-26,
1825  & 2.4800000d-26, 2.4900000d-26, 2.5000000d-26, 2.5000000d-26,
1826  & 2.5100001d-26, 2.5200001d-26, 2.5249999d-26, 2.5200001d-26,
1827  & 2.5000000d-26, 2.4900000d-26, 2.4599999d-26, 2.4300000d-26,
1828  & 2.3899999d-26, 2.3500000d-26, 2.3000001d-26, 2.2499999d-26,
1829  & 2.1999999d-26, 2.1500000d-26, 2.1050001d-26, 2.0700000d-26,
1830  & 2.0399998d-26, 2.0100000d-26, 1.9899999d-26, 1.9700002d-26,
1831  & 1.9600001d-26, 1.9400000d-26, 1.9300000d-26, 1.9199999d-26,
1832  & 1.9099999d-26, 1.9049999d-26, 1.9000001d-26, 1.9000001d-26,
1833  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1834  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1835  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1836  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1837  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1838  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1839  & 1.9000001d-26, 1.9000001d-26, 1.9000001d-26, 1.9000001d-26,
1840  & 1.9000001d-26, 1.9000001d-26, 1.8950001d-26, 1.8900001d-26,
1841  & 1.8850001d-26, 1.8800001d-26, 1.8750000d-26, 1.8700000d-26,
1842  & 1.8650000d-26, 1.8600000d-26, 1.8549999d-26, 1.8499999d-26,
1843  & 1.8449999d-26, 1.8399999d-26, 1.8349999d-26, 1.8300001d-26,
1844  & 1.8250001d-26, 1.8200001d-26, 1.8100001d-26, 1.8000000d-26,
1845  & 1.8000000d-26, 1.7950000d-26, 1.7900000d-26, 1.7799999d-26,
1846  & 1.7699999d-26, 1.7600001d-26, 1.7500001d-26, 1.7400001d-26,
1847  & 1.7300000d-26, 1.7200000d-26, 1.7099999d-26, 1.7049999d-26,
1848  & 1.6999999d-26, 1.6900001d-26, 1.6800001d-26, 1.6700000d-26,
1849  & 1.6600000d-26, 1.6550000d-26, 1.6500000d-26, 1.6399999d-26,
1850  & 1.6299999d-26, 1.6200001d-26, 1.6100001d-26, 1.6000000d-26,
1851  & 1.5900000d-26, 1.5800000d-26, 1.5699999d-26, 1.5599999d-26,
1852  & 1.5500001d-26, 1.5400001d-26, 1.5300000d-26, 1.5200000d-26,
1853  & 1.5100000d-26, 1.4999999d-26, 1.4899999d-26, 1.4800001d-26,
1854  & 1.4700001d-26, 1.4600000d-26, 1.4500000d-26, 1.4399999d-26,
1855  & 1.4199999d-26, 1.4100001d-26, 1.4000001d-26, 1.3950001d-26,
1856  & 1.3900000d-26, 1.3800000d-26, 1.3599999d-26, 1.3499999d-26,
1857  & 1.3400001d-26, 1.3300001d-26, 1.3200000d-26, 1.3100000d-26,
1858  & 1.2999999d-26, 1.2899999d-26, 1.2799998d-26, 1.2700001d-26,
1859  & 1.2600001d-26, 1.2500000d-26, 1.2400000d-26, 1.2299999d-26,
1860  & 1.2199999d-26, 1.2099998d-26, 1.2000001d-26, 1.1900001d-26,
1861  & 1.1800000d-26, 1.1700000d-26, 1.1599999d-26, 1.1499999d-26,
1862  & 1.1400002d-26, 1.1300001d-26, 1.1200001d-26, 2.0541104d-25,
1863  & 1.3016522d-25, 1.0587070d-25, 8.9769570d-26, 7.7860280d-26,
1864  & 6.8605022d-26, 6.1219383d-26, 5.6000003d-26, 5.1499998d-26,
1865  & 4.7499999d-26, 4.3999999d-26, 4.1099998d-26, 3.8700000d-26,
1866  & 3.6499999d-26, 3.5200000d-26, 3.4299999d-26, 3.3800000d-26,
1867  & 3.3400001d-26, 3.3100000d-26, 3.2999999d-26, 3.2800001d-26,
1868  & 3.2400000d-26, 3.2000001d-26, 3.1400001d-26, 3.0899999d-26/
1869  data ( tapcr2(i),i = 202, 352 )/
1870  & 3.0199999d-26, 2.9499999d-26, 2.8899999d-26, 2.8000002d-26,
1871  & 2.7200001d-26, 2.6400001d-26, 2.5800001d-26, 2.5000000d-26,
1872  & 2.4400001d-26, 2.3899999d-26, 2.3500000d-26, 2.3199999d-26,
1873  & 2.2900000d-26, 2.2800000d-26, 2.2599999d-26, 2.2499999d-26,
1874  & 2.2400001d-26, 2.2300001d-26, 2.2250001d-26, 2.2200000d-26,
1875  & 2.2200000d-26, 2.2150000d-26, 2.2150000d-26, 2.2150000d-26,
1876  & 2.2150000d-26, 2.2200000d-26, 2.2250001d-26, 2.2300001d-26,
1877  & 2.2400001d-26, 2.2499999d-26, 2.2599999d-26, 2.2699999d-26,
1878  & 2.2900000d-26, 2.3050001d-26, 2.3400000d-26, 2.3700001d-26,
1879  & 2.3999999d-26, 2.4300000d-26, 2.4699999d-26, 2.4950000d-26,
1880  & 2.5200001d-26, 2.5399999d-26, 2.5500000d-26, 2.5700001d-26,
1881  & 2.5800001d-26, 2.5900001d-26, 2.5999999d-26, 2.6049999d-26,
1882  & 2.6099999d-26, 2.6099999d-26, 2.6099999d-26, 2.6099999d-26,
1883  & 2.6049999d-26, 2.5999999d-26, 2.5949999d-26, 2.5800001d-26,
1884  & 2.5750001d-26, 2.5600000d-26, 2.5500000d-26, 2.5399999d-26,
1885  & 2.5200001d-26, 2.5100001d-26, 2.5000000d-26, 2.4950000d-26,
1886  & 2.4900000d-26, 2.4800000d-26, 2.4599999d-26, 2.4500001d-26,
1887  & 2.4300000d-26, 2.4200000d-26, 2.4100000d-26, 2.3949999d-26,
1888  & 2.3800001d-26, 2.3700001d-26, 2.3600000d-26, 2.3400000d-26,
1889  & 2.3299999d-26, 2.3199999d-26, 2.3000001d-26, 2.2900000d-26,
1890  & 2.2800000d-26, 2.2599999d-26, 2.2499999d-26, 2.2300001d-26,
1891  & 2.2100000d-26, 2.1999999d-26, 2.1799999d-26, 2.1600001d-26,
1892  & 2.1500000d-26, 2.1299999d-26, 2.1199999d-26, 2.1000001d-26,
1893  & 2.0800000d-26, 2.0599999d-26, 2.0399998d-26, 2.0200001d-26,
1894  & 2.0100000d-26, 1.9950000d-26, 1.9799999d-26, 1.9600001d-26,
1895  & 1.9400000d-26, 1.9300000d-26, 1.9099999d-26, 1.9000001d-26,
1896  & 1.8800001d-26, 1.8600000d-26, 1.8399999d-26, 1.8200001d-26,
1897  & 1.8000000d-26, 1.7799999d-26, 1.7600001d-26, 1.7500001d-26,
1898  & 1.7300000d-26, 1.7099999d-26, 1.6949999d-26, 1.6700000d-26,
1899  & 1.6500000d-26, 1.6399999d-26, 1.6200001d-26, 1.5950000d-26,
1900  & 1.5699999d-26, 1.5500001d-26, 1.5400001d-26, 1.5200000d-26,
1901  & 1.4999999d-26, 1.4800001d-26, 1.4399999d-26, 1.4199999d-26,
1902  & 1.4000001d-26, 1.3800000d-26, 1.3599999d-26, 1.3400001d-26,
1903  & 1.3200000d-26, 1.3050000d-26, 1.2899999d-26, 1.2700001d-26,
1904  & 1.2500000d-26, 1.2249999d-26, 1.2000001d-26, 1.1800000d-26,
1905  & 1.1599999d-26, 1.1499999d-26, 1.1250001d-26, 1.1050000d-26,
1906  & 1.0799999d-26, 1.0700001d-26, 1.0500001d-26, 1.0300000d-26,
1907  & 1.0099999d-26, 9.9000010d-27, 9.7000001d-27/
1908 
1909 !*-----------------------------------------------------------------------
1910 
1911  end block data
z
nodes z
Definition: cstdatmos0.fNew2.h:93
tapcrs
subroutine myPhitsDummy implicit real *a o z ! bert bl0 common rtcom tapcrs(6600) common/rtco1/tapcr1(352)
i
nodes i
Definition: cstdatmos0.fNew2.h:93
tapcr2
subroutine myPhitsDummy implicit real *a o z ! bert bl0 common rtcom tapcr2(352) ! bert-bl1 common/geosig/geosig(250) ! param00 common/natnuc/natnn(maxpt)
o
struct ob o[NpMax]
Definition: Zprivate.h:34
d
dE dx *! Nuc Int sampling table d
Definition: cblkMuInt.h:130
a
nodes a
Definition: cstdatmos0.fNew2.h:93
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130