#include "pdf/pilot.h" subroutine sfmrs_98d3(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu) C #include "pdf/impdp.inc" C parameter(nx=49,nq=37,ntenth=23,np=8) C #include "pdf/expdp.inc" + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00526, .00297, 1.16049, .86935, .00000, + .00000, .46536, .87868, + .00539, .00301, 2.37849, .91018, .00000, + .00000, .51028, .91968, + .00559, .00310, 4.75177, .99293, .05118, + .00000, .59893, 1.00266, + .00575, .00316, 7.08549, 1.06988, .13260, + .00000, .68009, 1.07976, + .00591, .00322, 10.08262, 1.16909, .22394, + .00000, .78366, 1.17914, + .00605, .00328, 13.16594, 1.27014, .31745, + .00000, .88838, 1.28032, + .00617, .00334, 16.64571, 1.37980, .42351, + .00000, 1.00150, 1.39009, + .00632, .00340, 20.93648, 1.51085, .55326, + .00000, 1.13616, 1.52126 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00645, .00346, 25.12103, 1.63899, .67730, + .00000, 1.26738, 1.64949, + .00657, .00351, 29.62102, 1.77487, .81003, + .00000, 1.40619, 1.78547, + .00667, .00356, 33.56895, 1.89110, .92636, + .00000, 1.52471, 1.90176, + .00689, .00365, 43.11265, 2.16739, 1.19982, + .00000, 1.80580, 2.17820, + .00707, .00374, 51.92837, 2.43713, 1.46624, + .35264, 2.07962, 2.44804, + .00729, .00384, 63.44059, 2.77626, 1.80327, + .74111, 2.42320, 2.78727, + .00752, .00394, 76.97550, 3.17295, 2.19840, + 1.15356, 2.82445, 3.18409, + .00772, .00404, 90.67268, 3.57349, 2.59810, + 1.57122, 3.22900, 3.58472 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00793, .00414, 105.91420, 4.01909, 3.04390, + 2.03529, 3.67857, 4.03039, + .00812, .00423, 119.60698, 4.42142, 3.44547, + 2.44853, 4.08415, 4.43280, + .00833, .00433, 137.47890, 4.94971, 3.97211, + 2.98841, 4.61630, 4.96115, + .00854, .00442, 154.57337, 5.45638, 4.47886, + 3.51043, 5.12630, 5.46788, + .00872, .00451, 171.32662, 5.95487, 4.97839, + 4.02538, 5.62781, 5.96642, + .00895, .00462, 193.78992, 6.63159, 5.65355, + 4.71466, 6.30830, 6.64320, + .00917, .00473, 216.41166, 7.31753, 6.33949, + 5.41691, 6.99769, 7.32918, + .00939, .00483, 239.02831, 8.00686, 7.03092, + 6.12726, 7.69021, 8.01856 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00960, .00494, 262.53749, 8.73487, 7.75736, + 6.86627, 8.42135, 8.74660, + .00982, .00505, 286.86737, 9.49273, 8.51584, + 7.64097, 9.18222, 9.50449, + .01002, .00515, 311.01068, 10.25123, 9.27542, + 8.41667, 9.94351, 10.26301, + .01022, .00524, 334.50482, 10.99864, 10.02240, + 9.17661, 10.69354, 11.01046, + .01041, .00534, 359.29819, 11.79086, 10.81657, + 9.98761, 11.48832, 11.80268, + .01061, .00544, 384.19750, 12.59867, 11.62362, + 10.80709, 12.29864, 12.61052, + .01080, .00553, 409.03601, 13.40705, 12.43406, + 11.63373, 13.10935, 13.41891, + .01098, .00562, 432.86194, 14.19415, 13.22060, + 12.43178, 13.89863, 14.20601 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01116, .00571, 457.89291, 15.02430, 14.05227, + 13.27819, 14.73096, 15.03618, + .01134, .00581, 483.06147, 15.86894, 14.89726, + 14.13615, 15.57772, 15.88082, + .01152, .00589, 507.75656, 16.70405, 15.73308, + 14.98495, 16.41482, 16.71592, + .01169, .00598, 531.88018, 17.52474, 16.55543, + 15.82106, 17.23739, 17.53664, + .01186, .00606, 556.47298, 18.37237, 17.40295, + 16.67981, 18.08689, 18.38427 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00739, .00406, 1.06032, .74461, .00000, + .00000, .39848, .75030, + .00757, .00414, 2.15406, .78158, .00000, + .00000, .43872, .78737, + .00785, .00425, 4.24109, .85394, .04507, + .00000, .51579, .85987, + .00805, .00434, 6.25361, .91975, .11482, + .00000, .58497, .92577, + .00827, .00444, 8.79506, 1.00320, .19156, + .00000, .67187, 1.00932, + .00846, .00452, 11.37089, 1.08712, .26914, + .00000, .75871, 1.09331, + .00864, .00461, 14.24254, 1.17740, .35631, + .00000, .85174, 1.18367, + .00884, .00470, 17.74130, 1.28442, .46192, + .00000, .96162, 1.29075 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00902, .00478, 21.11382, 1.38817, .56199, + .00000, 1.06780, 1.39456, + .00919, .00485, 24.70504, 1.49746, .66829, + .00000, 1.17941, 1.50391, + .00932, .00491, 27.83058, 1.59046, .76091, + .00000, 1.27422, 1.59696, + .00961, .00505, 35.30250, 1.80972, .97680, + .00000, 1.49728, 1.81630, + .00987, .00517, 42.08791, 2.02173, 1.18499, + .27585, 1.71249, 2.02838, + .01016, .00532, 50.84763, 2.28589, 1.44596, + .57690, 1.98017, 2.29262, + .01048, .00547, 61.00877, 2.59200, 1.74896, + .89272, 2.28984, 2.59879, + .01076, .00560, 71.16336, 2.89829, 2.05272, + 1.20957, 2.59929, 2.90514 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01105, .00575, 82.33335, 3.23622, 2.38869, + 1.55859, 2.94033, 3.24313, + .01130, .00586, 92.26425, 3.53902, 2.68902, + 1.86689, 3.24569, 3.54599, + .01160, .00601, 105.09485, 3.93364, 3.07995, + 2.26661, 3.64333, 3.94066, + .01187, .00615, 117.24685, 4.30933, 3.45343, + 2.65035, 4.02163, 4.31639, + .01212, .00626, 129.05376, 4.67655, 3.81922, + 3.02645, 4.39121, 4.68364, + .01244, .00642, 144.73134, 5.17143, 4.31002, + 3.52606, 4.88903, 5.17857, + .01274, .00658, 160.36800, 5.66934, 4.80507, + 4.03147, 5.38964, 5.67651, + .01303, .00672, 175.86662, 6.16636, 5.30086, + 4.53948, 5.88915, 6.17357 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01332, .00686, 191.83005, 6.68764, 5.81812, + 5.06411, 6.41286, 6.69488, + .01361, .00701, 208.22159, 7.22693, 6.35498, + 5.61092, 6.95450, 7.23420, + .01388, .00715, 224.36421, 7.76344, 6.88950, + 6.15529, 7.49320, 7.77073, + .01415, .00728, 239.95375, 8.28903, 7.41209, + 6.68541, 8.02083, 8.29635, + .01441, .00742, 256.30322, 8.84330, 7.96503, + 7.24859, 8.57710, 8.85064, + .01468, .00755, 272.60004, 9.40527, 8.52368, + 7.81422, 9.14101, 9.41263, + .01493, .00768, 288.76733, 9.96504, 9.08230, + 8.38253, 9.70261, 9.97242, + .01517, .00780, 304.16949, 10.50722, 9.62155, + 8.92813, 10.24650, 10.51462 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01542, .00793, 320.26976, 11.07670, 10.18952, + 9.50467, 10.81767, 11.08410, + .01566, .00805, 336.35929, 11.65334, 10.76383, + 10.08624, 11.39597, 11.66077, + .01590, .00817, 352.06406, 12.22105, 11.32958, + 10.65928, 11.96524, 12.22849, + .01613, .00829, 367.33245, 12.77681, 11.88415, + 11.22172, 12.52246, 12.78427, + .01635, .00841, 382.80794, 13.34829, 12.45311, + 11.79670, 13.09541, 13.35575 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01037, .00554, .96801, .63775, .00000, + .00000, .34158, .64094, + .01061, .00566, 1.95018, .67105, .00000, + .00000, .37752, .67430, + .01099, .00583, 3.78460, .73419, .03986, + .00000, .44441, .73751, + .01126, .00597, 5.51883, .79037, .09951, + .00000, .50327, .79373, + .01157, .00611, 7.67139, .86042, .16388, + .00000, .57608, .86383, + .01182, .00623, 9.81998, .92995, .22814, + .00000, .64792, .93340, + .01208, .00635, 12.18552, 1.00408, .29963, + .00000, .72423, 1.00758, + .01235, .00648, 15.03253, 1.09122, .38543, + .00000, .81364, 1.09476 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01260, .00659, 17.74410, 1.17496, .46600, + .00000, .89930, 1.17853, + .01282, .00671, 20.60254, 1.26255, .55094, + .00000, .98873, 1.26615, + .01301, .00679, 23.07014, 1.33670, .62453, + .00000, 1.06430, 1.34032, + .01341, .00699, 28.90247, 1.51007, .79457, + .00000, 1.24066, 1.51375, + .01376, .00716, 34.10603, 1.67603, .95690, + .21517, 1.40913, 1.67975, + .01417, .00737, 40.74512, 1.88094, 1.15847, + .44824, 1.61680, 1.88471, + .01459, .00757, 48.34096, 2.11609, 1.39022, + .68980, 1.85475, 2.11990, + .01499, .00777, 55.83458, 2.34926, 1.62043, + .92988, 2.09039, 2.35311 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01538, .00797, 63.98077, 2.60434, 1.87291, + 1.19202, 2.34792, 2.60824, + .01571, .00813, 71.14592, 2.83114, 2.09687, + 1.42170, 2.57670, 2.83507, + .01613, .00834, 80.30681, 3.12447, 2.38618, + 1.71718, 2.87239, 3.12843, + .01649, .00853, 88.89582, 3.40164, 2.66053, + 1.99878, 3.15160, 3.40563, + .01683, .00869, 97.16726, 3.67078, 2.92751, + 2.27298, 3.42258, 3.67481, + .01726, .00892, 108.04004, 4.03078, 3.28305, + 2.63438, 3.78486, 4.03484, + .01768, .00913, 118.77759, 4.39028, 3.63905, + 2.99734, 4.14646, 4.39436, + .01807, .00933, 129.32628, 4.74669, 3.99323, + 3.35981, 4.50481, 4.75082 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01847, .00953, 140.08811, 5.11785, 4.36009, + 3.73129, 4.87786, 5.12200, + .01886, .00973, 151.05001, 5.49944, 4.73857, + 4.11625, 5.26127, 5.50362, + .01923, .00993, 161.76092, 5.87676, 5.11315, + 4.49720, 5.64028, 5.88095, + .01958, .01010, 172.02318, 6.24418, 5.47718, + 4.86590, 6.00929, 6.24841, + .01994, .01029, 182.71747, 6.62968, 5.86050, + 5.25580, 6.39634, 6.63393, + .02030, .01047, 193.29333, 7.01824, 6.24544, + 5.64493, 6.78641, 7.02251, + .02063, .01065, 203.72665, 7.40348, 6.62870, + 6.03434, 7.17307, 7.40778, + .02096, .01082, 213.59401, 7.77463, 6.99663, + 6.40601, 7.54553, 7.77893 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02129, .01099, 223.85621, 8.16280, 7.38263, + 6.79731, 7.93501, 8.16713, + .02162, .01117, 234.04552, 8.55394, 7.77101, + 7.19003, 8.32743, 8.55829, + .02194, .01133, 243.93732, 8.93737, 8.15200, + 7.57540, 8.71209, 8.94174, + .02224, .01149, 253.50720, 9.31125, 8.52404, + 7.95223, 9.08709, 9.31564, + .02254, .01165, 263.14712, 9.69394, 8.90397, + 8.33560, 9.47091, 9.69834 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01262, .00667, .91716, .58254, .00000, + .00000, .31240, .58474, + .01291, .00681, 1.83955, .61382, .00000, + .00000, .34596, .61603, + .01336, .00702, 3.54025, .67201, .03722, + .00000, .40748, .67428, + .01370, .00719, 5.12944, .72314, .09160, + .00000, .46096, .72545, + .01406, .00736, 7.08171, .78628, .14959, + .00000, .52652, .78863, + .01438, .00752, 9.01257, .84846, .20708, + .00000, .59073, .85085, + .01469, .00767, 11.12256, .91442, .27067, + .00000, .65860, .91682, + .01501, .00782, 13.64350, .99155, .34655, + .00000, .73771, .99398 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01529, .00796, 16.02726, 1.06528, .41742, + .00000, .81312, 1.06773, + .01558, .00811, 18.52504, 1.14208, .49182, + .00000, .89152, 1.14456, + .01580, .00822, 20.67081, 1.20689, .55606, + .00000, .95758, 1.20939, + .01628, .00845, 25.70813, 1.35768, .70374, + .00000, 1.11096, 1.36021, + .01671, .00867, 30.15511, 1.50116, .84386, + .18566, 1.25665, 1.50372, + .01719, .00891, 35.78878, 1.67737, 1.01692, + .38619, 1.43525, 1.67996, + .01770, .00917, 42.18121, 1.87841, 1.21474, + .59253, 1.63872, 1.88105, + .01817, .00940, 48.43898, 2.07668, 1.41017, + .79646, 1.83914, 2.07936 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01865, .00965, 55.19364, 2.29251, 1.62345, + 1.01799, 2.05708, 2.29521, + .01905, .00986, 61.09661, 2.48353, 1.81175, + 1.21115, 2.24982, 2.48626, + .01954, .01011, 68.59640, 2.72945, 2.05391, + 1.45850, 2.49779, 2.73222, + .01998, .01034, 75.58540, 2.96080, 2.28256, + 1.69322, 2.73091, 2.96361, + .02039, .01054, 82.28023, 3.18458, 2.50421, + 1.92088, 2.95627, 3.18740, + .02090, .01081, 91.02705, 3.48257, 2.79804, + 2.21954, 3.25623, 3.48542, + .02141, .01106, 99.61369, 3.77881, 3.09098, + 2.51819, 3.55430, 3.78170, + .02187, .01130, 108.00461, 4.07135, 3.38131, + 2.81531, 3.84850, 4.07426 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02234, .01155, 116.51531, 4.37469, 3.68070, + 3.11841, 4.15348, 4.37764, + .02280, .01179, 125.14249, 4.68539, 3.98847, + 3.43141, 4.46576, 4.68838, + .02325, .01202, 133.53215, 4.99152, 4.29200, + 3.74007, 4.77335, 4.99452, + .02368, .01224, 141.53172, 5.28855, 4.58591, + 4.03769, 5.07174, 5.29159, + .02410, .01246, 149.83642, 5.59925, 4.89452, + 4.35156, 5.38377, 5.60230, + .02452, .01269, 158.00917, 5.91131, 5.20331, + 4.66363, 5.69714, 5.91439, + .02493, .01290, 166.04497, 6.21987, 5.50996, + 4.97518, 6.00691, 6.22298, + .02532, .01310, 173.61090, 6.51616, 5.80336, + 5.27148, 6.30435, 6.51930 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02571, .01330, 181.45574, 6.82529, 6.11045, + 5.58275, 6.61461, 6.82844, + .02609, .01351, 189.21365, 7.13586, 6.41852, + 5.89420, 6.92629, 7.13904, + .02647, .01371, 196.72036, 7.43955, 6.71998, + 6.19905, 7.23101, 7.44274, + .02683, .01389, 203.96129, 7.73495, 7.01367, + 6.49650, 7.52740, 7.73817, + .02720, .01408, 211.22716, 8.03649, 7.31275, + 6.79821, 7.82992, 8.03973 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01450, .00760, .88239, .54635, .00000, + .00000, .29336, .54803, + .01483, .00776, 1.76472, .57620, .00000, + .00000, .32531, .57790, + .01534, .00800, 3.37634, .63108, .03551, + .00000, .38323, .63281, + .01574, .00820, 4.86986, .67886, .08641, + .00000, .43317, .68063, + .01615, .00840, 6.69096, .73748, .14024, + .00000, .49398, .73926, + .01651, .00858, 8.48022, .79487, .19331, + .00000, .55324, .79667, + .01685, .00875, 10.42495, .85551, .25177, + .00000, .61562, .85734, + .01722, .00895, 12.73617, .92618, .32127, + .00000, .68808, .92803 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01756, .00911, 14.91028, .99346, .38593, + .00000, .75691, .99533, + .01787, .00927, 17.17849, 1.06335, .45360, + .00000, .82825, 1.06525, + .01813, .00940, 19.12023, 1.12220, .51190, + .00000, .88824, 1.12411, + .01868, .00967, 23.65627, 1.25861, .64540, + .00000, 1.02701, 1.26056, + .01916, .00992, 27.63045, 1.38786, .77155, + .16700, 1.15825, 1.38983, + .01971, .01021, 32.63910, 1.54596, .92673, + .34714, 1.31854, 1.54798, + .02031, .01051, 38.28844, 1.72563, 1.10338, + .53156, 1.50040, 1.72768, + .02084, .01078, 43.78794, 1.90212, 1.27722, + .71310, 1.67884, 1.90420 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02138, .01105, 49.69376, 2.09356, 1.46626, + .90959, 1.87219, 2.09567, + .02183, .01130, 54.83082, 2.26242, 1.63262, + 1.08032, 2.04262, 2.26457, + .02240, .01158, 61.32779, 2.47913, 1.84585, + 1.29822, 2.26118, 2.48131, + .02290, .01185, 67.35575, 2.68235, 2.04657, + 1.50436, 2.46600, 2.68455, + .02336, .01208, 73.10775, 2.87837, 2.24061, + 1.70375, 2.66345, 2.88060, + .02395, .01239, 80.58939, 3.13856, 2.49700, + 1.96442, 2.92542, 3.14083, + .02451, .01268, 87.90243, 3.39640, 2.75182, + 2.22429, 3.18491, 3.39871, + .02504, .01295, 95.02138, 3.65028, 3.00365, + 2.48211, 3.44030, 3.65262 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02558, .01324, 102.21116, 3.91274, 3.26254, + 2.74425, 3.70423, 3.91511, + .02610, .01351, 109.47392, 4.18086, 3.52799, + 3.01429, 3.97377, 4.18325, + .02660, .01378, 116.51234, 4.44433, 3.78912, + 3.27989, 4.23857, 4.44676, + .02708, .01403, 123.19976, 4.69934, 4.04130, + 3.53531, 4.49478, 4.70178, + .02756, .01428, 130.12330, 4.96547, 4.30555, + 3.80414, 4.76215, 4.96796, + .02804, .01453, 136.91245, 5.23212, 4.56927, + 4.07070, 5.02995, 5.23463, + .02850, .01477, 143.57194, 5.49524, 4.83068, + 4.33635, 5.29419, 5.49778, + .02893, .01500, 149.82101, 5.74732, 5.08019, + 4.58837, 5.54729, 5.74989 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02938, .01524, 156.28645, 6.00985, 5.34090, + 4.85269, 5.81084, 6.01244, + .02982, .01547, 162.66139, 6.27304, 5.60188, + 5.11657, 6.07503, 6.27565, + .03025, .01570, 168.81509, 6.52992, 5.85680, + 5.37441, 6.33285, 6.53256, + .03064, .01590, 174.73829, 6.77937, 6.10475, + 5.62558, 6.58320, 6.78204, + .03106, .01612, 180.66459, 7.03350, 6.35672, + 5.87980, 6.83820, 7.03619 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01614, .00841, .85627, .51988, .00000, + .00000, .27948, .52121, + .01652, .00859, 1.70880, .54864, .00000, + .00000, .31021, .55000, + .01708, .00888, 3.25451, .60105, .03428, + .00000, .36545, .60244, + .01751, .00910, 4.67775, .64636, .08261, + .00000, .41279, .64778, + .01797, .00932, 6.40302, .70166, .13337, + .00000, .47013, .70310, + .01837, .00953, 8.08932, .75557, .18324, + .00000, .52576, .75703, + .01875, .00972, 9.91438, .81235, .23798, + .00000, .58417, .81382, + .01917, .00993, 12.07438, .87833, .30288, + .00000, .65184, .87983 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01953, .01011, 14.09795, .94097, .36306, + .00000, .71591, .94250, + .01989, .01029, 16.20186, 1.00589, .42591, + .00000, .78217, 1.00743, + .02016, .01044, 17.99799, 1.06045, .47994, + .00000, .83780, 1.06201, + .02077, .01075, 22.17786, 1.18657, .60334, + .00000, .96612, 1.18816, + .02132, .01102, 25.81852, 1.30567, .71955, + .15368, 1.08709, 1.30729, + .02193, .01134, 30.38808, 1.45093, .86207, + .31940, 1.23437, 1.45258, + .02257, .01167, 35.51790, 1.61545, 1.02379, + .48837, 1.40094, 1.61714, + .02316, .01198, 40.48962, 1.77658, 1.18246, + .65421, 1.56389, 1.77831 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02377, .01229, 45.80715, 1.95086, 1.35450, + .83316, 1.73995, 1.95263, + .02428, .01255, 50.41545, 2.10421, 1.50552, + .98824, 1.89475, 2.10600, + .02489, .01287, 56.22268, 2.30050, 1.69862, + 1.18567, 2.09276, 2.30233, + .02544, .01316, 61.59207, 2.48412, 1.87992, + 1.37197, 2.27786, 2.48597, + .02595, .01343, 66.70009, 2.66083, 2.05481, + 1.55179, 2.45591, 2.66272, + .02660, .01377, 73.32072, 2.89481, 2.28533, + 1.78626, 2.69155, 2.89674, + .02722, .01409, 79.77013, 3.12612, 2.51386, + 2.01943, 2.92437, 3.12808, + .02780, .01440, 86.02925, 3.35335, 2.73922, + 2.25026, 3.15302, 3.35535 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02839, .01471, 92.32933, 3.58769, 2.97033, + 2.48436, 3.38872, 3.58973, + .02898, .01501, 98.67576, 3.82660, 3.20682, + 2.72502, 3.62894, 3.82866, + .02953, .01530, 104.80936, 4.06088, 3.43898, + 2.96126, 3.86446, 4.06298, + .03005, .01558, 110.62066, 4.28717, 3.66274, + 3.18797, 4.09189, 4.28930, + .03059, .01587, 116.62414, 4.52296, 3.89683, + 3.42622, 4.32879, 4.52512, + .03111, .01615, 122.49429, 4.75870, 4.12995, + 3.66192, 4.56562, 4.76089, + .03161, .01641, 128.24145, 4.99098, 4.36071, + 3.89652, 4.79893, 4.99321, + .03210, .01667, 133.61995, 5.21310, 4.58054, + 4.11862, 5.02200, 5.21536 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03258, .01692, 139.17521, 5.44411, 4.80994, + 4.35129, 5.25396, 5.44639, + .03306, .01718, 144.63978, 5.67531, 5.03919, + 4.58316, 5.48608, 5.67762, + .03353, .01743, 149.90448, 5.90063, 5.26278, + 4.80939, 5.71228, 5.90299, + .03397, .01766, 154.96340, 6.11917, 5.47999, + 5.02951, 5.93163, 6.12154, + .03443, .01790, 160.01335, 6.34144, 5.70036, + 5.25191, 6.15472, 6.34384 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02258, .01162, .77937, .44579, .00000, + .00000, .24104, .44673, + .02309, .01188, 1.54628, .47128, .00000, + .00000, .26816, .47225, + .02387, .01228, 2.90354, .51644, .03094, + .00000, .31564, .51744, + .02447, .01258, 4.12814, .55469, .07194, + .00000, .35555, .55572, + .02509, .01291, 5.58491, .60060, .11411, + .00000, .40314, .60165, + .02564, .01319, 6.98513, .64476, .15501, + .00000, .44871, .64585, + .02616, .01346, 8.48009, .69084, .19951, + .00000, .49612, .69195, + .02674, .01376, 10.22600, .74391, .25174, + .00000, .55056, .74505 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02724, .01402, 11.84023, .79382, .29973, + .00000, .60164, .79499, + .02771, .01427, 13.50020, .84516, .34948, + .00000, .65409, .84636, + .02810, .01448, 14.90494, .88809, .39201, + .00000, .69787, .88930, + .02893, .01490, 18.13396, .98643, .48827, + .00000, .79800, .98769, + .02967, .01530, 20.89357, 1.07833, .57799, + .11783, .89140, 1.07963, + .03051, .01574, 24.31103, 1.18934, .68698, + .24536, 1.00405, 1.19068, + .03139, .01620, 28.08983, 1.31380, .80940, + .37377, 1.13017, 1.31519, + .03220, .01664, 31.70055, 1.43454, .92837, + .49858, 1.25238, 1.43598 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03302, .01707, 35.51259, 1.56398, 1.05626, + .63206, 1.38326, 1.56547, + .03371, .01744, 38.77704, 1.67695, 1.16760, + .74675, 1.49740, 1.67848, + .03455, .01788, 42.84318, 1.82041, 1.30881, + .89155, 1.64224, 1.82198, + .03530, .01828, 46.56106, 1.95355, 1.44038, + 1.02716, 1.77658, 1.95518, + .03599, .01865, 50.06337, 2.08081, 1.56644, + 1.15715, 1.90491, 2.08248, + .03687, .01912, 54.55126, 2.24798, 1.73126, + 1.32524, 2.07342, 2.24971, + .03771, .01957, 58.87520, 2.41193, 1.89340, + 1.49111, 2.23860, 2.41371, + .03850, .02000, 63.03067, 2.57187, 2.05218, + 1.65419, 2.39966, 2.57370 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03929, .02041, 67.16695, 2.73554, 2.21373, + 1.81820, 2.56443, 2.73743, + .04007, .02083, 71.29675, 2.90131, 2.37797, + 1.98577, 2.73126, 2.90324, + .04081, .02124, 75.25278, 3.06283, 2.53820, + 2.14923, 2.89377, 3.06482, + .04152, .02162, 78.96625, 3.21783, 2.69161, + 2.30500, 3.04967, 3.21986, + .04223, .02200, 82.77606, 3.37847, 2.85128, + 2.46793, 3.21123, 3.38055, + .04294, .02238, 86.46577, 3.53804, 3.00923, + 2.62797, 3.37167, 3.54018, + .04362, .02275, 90.05676, 3.69454, 3.16489, + 2.78660, 3.52898, 3.69671, + .04425, .02309, 93.38732, 3.84329, 3.31225, + 2.93580, 3.67849, 3.84550 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04490, .02345, 96.80846, 3.99730, 3.46539, + 3.09148, 3.83327, 3.99957, + .04555, .02379, 100.14743, 4.15062, 3.61758, + 3.24575, 3.98734, 4.15294, + .04616, .02413, 103.34422, 4.29937, 3.76536, + 3.39561, 4.13677, 4.30172, + .04675, .02445, 106.39903, 4.44301, 3.90833, + 3.54083, 4.28107, 4.44540, + .04735, .02476, 109.42443, 4.58836, 4.05260, + 3.68672, 4.42708, 4.59080 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03165, .01618, .70996, .38294, .00000, + .00000, .20906, .38434, + .03235, .01653, 1.40143, .40525, .00000, + .00000, .23273, .40668, + .03339, .01708, 2.59266, .44371, .02828, + .00000, .27316, .44521, + .03420, .01750, 3.64520, .47567, .06279, + .00000, .30651, .47722, + .03505, .01795, 4.87232, .51340, .09752, + .00000, .34566, .51501, + .03580, .01835, 6.03091, .54922, .13079, + .00000, .38266, .55086, + .03652, .01872, 7.25006, .58623, .16665, + .00000, .42078, .58793, + .03729, .01914, 8.65379, .62848, .20835, + .00000, .46419, .63023 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03797, .01950, 9.93349, .66785, .24630, + .00000, .50455, .66964, + .03863, .01986, 11.23416, .70805, .28535, + .00000, .54567, .70989, + .03916, .02013, 12.32460, .74147, .31855, + .00000, .57981, .74335, + .04029, .02074, 14.79855, .81735, .39304, + .00000, .65721, .81931, + .04129, .02128, 16.87150, .88750, .46174, + .08880, .72862, .88953, + .04243, .02190, 19.40021, .97142, .54438, + .18632, .81390, .97352, + .04363, .02254, 22.15135, 1.06452, .63626, + .28325, .90841, 1.06671, + .04472, .02314, 24.74038, 1.15397, .72467, + .37653, .99908, 1.15625 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04584, .02374, 27.43596, 1.24901, .81888, + .47538, 1.09533, 1.25136, + .04677, .02426, 29.71482, 1.33125, .90019, + .55956, 1.17855, 1.33367, + .04790, .02487, 32.51786, 1.43482, 1.00248, + .66497, 1.28328, 1.43733, + .04891, .02542, 35.05025, 1.53018, 1.09702, + .76290, 1.37965, 1.53276, + .04984, .02593, 37.41072, 1.62068, 1.18697, + .85611, 1.47104, 1.62333, + .05103, .02658, 40.39775, 1.73857, 1.30358, + .97557, 1.59006, 1.74131, + .05216, .02719, 43.24152, 1.85327, 1.41737, + 1.09253, 1.70578, 1.85608, + .05322, .02777, 45.94582, 1.96431, 1.52799, + 1.20669, 1.81778, 1.96723 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05428, .02836, 48.60441, 2.07705, 1.63961, + 1.32051, 1.93144, 2.08004, + .05533, .02893, 51.23333, 2.19045, 1.75234, + 1.43604, 2.04573, 2.19352, + .05633, .02947, 53.72730, 2.30020, 1.86159, + 1.54798, 2.15631, 2.30335, + .05726, .02999, 56.04410, 2.40481, 1.96544, + 1.65390, 2.26168, 2.40802, + .05822, .03051, 58.40336, 2.51263, 2.07297, + 1.76411, 2.37026, 2.51592, + .05915, .03102, 60.66346, 2.61899, 2.17859, + 1.87157, 2.47735, 2.62235, + .06005, .03151, 62.84924, 2.72277, 2.28218, + 1.97761, 2.58183, 2.72621, + .06091, .03198, 64.85541, 2.82080, 2.37960, + 2.07665, 2.68050, 2.82430 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06176, .03246, 66.90421, 2.92183, 2.48040, + 2.17956, 2.78217, 2.92540, + .06262, .03292, 68.88571, 3.02183, 2.57999, + 2.28094, 2.88280, 3.02547, + .06343, .03337, 70.76968, 3.11837, 2.67622, + 2.37893, 2.97993, 3.12207, + .06422, .03380, 72.55890, 3.21120, 2.76893, + 2.47350, 3.07330, 3.21496, + .06500, .03423, 74.31439, 3.30459, 2.86193, + 2.56794, 3.16726, 3.30842 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03857, .01968, .67459, .35086, .00000, + .00000, .19302, .35288, + .03939, .02010, 1.32646, .37130, .00000, + .00000, .21473, .37338, + .04063, .02076, 2.42973, .40607, .02699, + .00000, .25129, .40823, + .04159, .02128, 3.39209, .43462, .05803, + .00000, .28111, .43685, + .04261, .02182, 4.49998, .46804, .08883, + .00000, .31583, .47035, + .04350, .02229, 5.53426, .49951, .11815, + .00000, .34840, .50188, + .04437, .02276, 6.61271, .53186, .14958, + .00000, .38177, .53431, + .04529, .02326, 7.84342, .56861, .18592, + .00000, .41957, .57111 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04610, .02370, 8.95553, .60265, .21882, + .00000, .45452, .60523, + .04689, .02412, 10.07756, .63726, .25254, + .00000, .48998, .63990, + .04751, .02447, 11.01275, .66594, .28110, + .00000, .51933, .66864, + .04887, .02520, 13.11718, .73073, .34486, + .00000, .58550, .73353, + .05008, .02586, 14.85942, .79022, .40328, + .07439, .64616, .79312, + .05144, .02661, 16.96370, .86098, .47317, + .15735, .71819, .86399, + .05286, .02739, 19.22980, .93901, .55039, + .23915, .79750, .94212, + .05417, .02811, 21.34199, 1.01352, .62426, + .31742, .87314, 1.01674 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05550, .02884, 23.52178, 1.09225, .70253, + .39989, .95299, 1.09559, + .05660, .02945, 25.34961, 1.16004, .76976, + .46976, 1.02169, 1.16347, + .05796, .03019, 27.57995, 1.24499, .85389, + .55679, 1.10770, 1.24852, + .05916, .03086, 29.57962, 1.32281, .93129, + .63727, 1.18645, 1.32645, + .06027, .03146, 31.43106, 1.39634, 1.00459, + .71352, 1.26082, 1.40007, + .06167, .03224, 33.75507, 1.49165, 1.09915, + .81074, 1.35717, 1.49550, + .06301, .03298, 35.95083, 1.58391, 1.19094, + .90545, 1.45037, 1.58786, + .06426, .03367, 38.02486, 1.67284, 1.27980, + .99749, 1.54018, 1.67689 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06552, .03437, 40.04729, 1.76265, 1.36898, + 1.08875, 1.63085, 1.76682, + .06676, .03506, 42.03480, 1.85263, 1.45869, + 1.18103, 1.72165, 1.85689, + .06794, .03571, 43.90848, 1.93934, 1.54526, + 1.27005, 1.80913, 1.94371, + .06905, .03632, 45.63708, 2.02163, 1.62721, + 1.35392, 1.89214, 2.02610, + .07018, .03695, 47.38909, 2.10617, 1.71177, + 1.44091, 1.97738, 2.11072, + .07128, .03755, 49.05508, 2.18920, 1.79446, + 1.52534, 2.06110, 2.19385, + .07233, .03814, 50.65997, 2.26998, 1.87534, + 1.60843, 2.14253, 2.27472, + .07334, .03869, 52.12246, 2.34596, 1.95106, + 1.68567, 2.21909, 2.35078 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07435, .03925, 53.61056, 2.42406, 2.02921, + 1.76575, 2.29779, 2.42896, + .07534, .03980, 55.04086, 2.50108, 2.10614, + 1.84434, 2.37539, 2.50606, + .07631, .04033, 56.39451, 2.57520, 2.18025, + 1.92007, 2.45007, 2.58027, + .07721, .04083, 57.67489, 2.64628, 2.25146, + 1.99297, 2.52165, 2.65141, + .07813, .04134, 58.92292, 2.71754, 2.32263, + 2.06548, 2.59343, 2.72276 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04435, .02260, .65372, .32986, .00000, + .00000, .18271, .33254, + .04527, .02309, 1.27935, .34900, .00000, + .00000, .20304, .35175, + .04670, .02385, 2.32369, .38121, .02616, + .00000, .23696, .38409, + .04778, .02443, 3.22589, .40749, .05484, + .00000, .26444, .41044, + .04893, .02506, 4.25463, .43806, .08304, + .00000, .29624, .44110, + .04994, .02561, 5.20689, .46670, .10977, + .00000, .32590, .46982, + .05092, .02613, 6.19299, .49601, .13829, + .00000, .35619, .49921, + .05197, .02671, 7.31082, .52919, .17116, + .00000, .39038, .53248 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05289, .02722, 8.31420, .55982, .20080, + .00000, .42185, .56318, + .05378, .02771, 9.32099, .59084, .23109, + .00000, .45368, .59428, + .05450, .02810, 10.15643, .61651, .25669, + .00000, .47998, .62001, + .05603, .02895, 12.02493, .67424, .31362, + .00000, .53902, .67786, + .05739, .02971, 13.55782, .72701, .36554, + .06525, .59289, .73076, + .05894, .03055, 15.39530, .78950, .42739, + .13902, .65659, .79338, + .06056, .03146, 17.35894, .85810, .49541, + .21132, .72640, .86211, + .06204, .03228, 19.17596, .92332, .56022, + .28022, .79270, .92745 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06354, .03311, 21.03869, .99196, .62861, + .35251, .86240, .99622, + .06480, .03381, 22.59100, 1.05083, .68711, + .41351, .92212, 1.05519, + .06632, .03465, 24.47366, 1.12431, .76006, + .48921, .99663, 1.12881, + .06768, .03541, 26.15187, 1.19140, .82693, + .55897, 1.06460, 1.19601, + .06894, .03611, 27.69777, 1.25458, .89006, + .62484, 1.12857, 1.25930, + .07052, .03700, 29.62624, 1.33616, .97116, + .70849, 1.21114, 1.34101, + .07202, .03784, 31.43767, 1.41482, 1.04963, + .78969, 1.29071, 1.41981, + .07344, .03862, 33.13994, 1.49040, 1.12532, + .86835, 1.36713, 1.49551 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07486, .03941, 34.78934, 1.56645, 1.20099, + .94601, 1.44399, 1.57167, + .07625, .04019, 36.40263, 1.64237, 1.27688, + 1.02431, 1.52071, 1.64772, + .07757, .04092, 37.91614, 1.71533, 1.34989, + 1.09962, 1.59441, 1.72080, + .07881, .04160, 39.30491, 1.78435, 1.41877, + 1.17033, 1.66410, 1.78992, + .08007, .04231, 40.70744, 1.85506, 1.48968, + 1.24350, 1.73549, 1.86074, + .08131, .04300, 42.03327, 1.92428, 1.55878, + 1.31425, 1.80536, 1.93007, + .08249, .04366, 43.30667, 1.99148, 1.62623, + 1.38376, 1.87318, 1.99737, + .08360, .04427, 44.46044, 2.05448, 1.68917, + 1.44817, 1.93675, 2.06047 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08473, .04491, 45.63113, 2.11912, 1.75401, + 1.51481, 2.00195, 2.12519, + .08585, .04553, 46.75076, 2.18267, 1.81764, + 1.58001, 2.06606, 2.18885, + .08692, .04612, 47.80650, 2.24370, 1.87882, + 1.64271, 2.12763, 2.24997, + .08793, .04669, 48.80196, 2.30209, 1.93748, + 1.70295, 2.18652, 2.30846, + .08896, .04726, 49.76703, 2.36048, 1.99594, + 1.76270, 2.24540, 2.36693 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04944, .02529, .64242, .31488, .00000, + .00000, .17512, .31777, + .05045, .02584, 1.24884, .33298, .00000, + .00000, .19434, .33597, + .05201, .02669, 2.24909, .36327, .02548, + .00000, .22622, .36637, + .05321, .02734, 3.10610, .38781, .05239, + .00000, .25189, .39101, + .05449, .02804, 4.07541, .41624, .07865, + .00000, .28147, .41955, + .05560, .02865, 4.96625, .44275, .10343, + .00000, .30897, .44617, + .05668, .02924, 5.88337, .46983, .12982, + .00000, .33695, .47333, + .05784, .02988, 6.91713, .50038, .16014, + .00000, .36844, .50398 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05885, .03045, 7.83994, .52849, .18739, + .00000, .39735, .53218, + .05983, .03099, 8.76158, .55691, .21517, + .00000, .42653, .56068, + .06063, .03143, 9.52354, .58037, .23859, + .00000, .45058, .58421, + .06232, .03237, 11.21900, .63298, .29055, + .00000, .50443, .63696, + .06382, .03321, 12.59930, .68088, .33776, + .05871, .55337, .68499, + .06552, .03416, 14.24354, .73741, .39379, + .12577, .61104, .74167, + .06730, .03515, 15.98932, .79922, .45520, + .19122, .67400, .80364, + .06893, .03607, 17.59496, .85778, .51348, + .25335, .73358, .86235 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07058, .03698, 19.23187, .91920, .57478, + .31832, .79601, .92391, + .07196, .03776, 20.58870, .97172, .62706, + .37296, .84934, .97655, + .07363, .03870, 22.22598, 1.03707, .69204, + .44056, .91566, 1.04205, + .07512, .03953, 23.67832, 1.09655, .75142, + .50266, .97597, 1.10166, + .07649, .04029, 25.01025, 1.15241, .80733, + .56116, 1.03258, 1.15764, + .07823, .04127, 26.66302, 1.22431, .87894, + .63520, 1.10543, 1.22970, + .07988, .04219, 28.20787, 1.29342, .94799, + .70683, 1.17541, 1.29896, + .08142, .04306, 29.65332, 1.35963, 1.01443, + .77604, 1.24241, 1.36530 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08296, .04391, 31.04623, 1.42605, 1.08063, + .84415, 1.30959, 1.43185, + .08449, .04476, 32.40317, 1.49217, 1.14686, + .91265, 1.37648, 1.49811, + .08593, .04557, 33.67089, 1.55555, 1.21039, + .97835, 1.44056, 1.56162, + .08728, .04633, 34.82858, 1.61534, 1.27018, + 1.03988, 1.50099, 1.62152, + .08865, .04709, 35.99412, 1.67648, 1.33161, + 1.10342, 1.56276, 1.68278, + .08999, .04784, 37.09023, 1.73614, 1.39129, + 1.16469, 1.62306, 1.74257, + .09128, .04855, 38.14041, 1.79396, 1.44944, + 1.22477, 1.68147, 1.80051, + .09249, .04923, 39.08700, 1.84803, 1.50357, + 1.28029, 1.73608, 1.85468 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09372, .04992, 40.04522, 1.90341, 1.55923, + 1.33764, 1.79200, 1.91016, + .09493, .05059, 40.95741, 1.95771, 1.61373, + 1.39363, 1.84684, 1.96458, + .09608, .05124, 41.81473, 2.00977, 1.66603, + 1.44737, 1.89939, 2.01673, + .09719, .05184, 42.62095, 2.05949, 1.71609, + 1.49891, 1.94959, 2.06655, + .09830, .05246, 43.39875, 2.10909, 1.76587, + 1.54991, 1.99967, 2.11625 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06930, .03606, .62343, .27340, .00000, + .00000, .15474, .27793, + .07066, .03683, 1.17495, .28827, .00000, + .00000, .17055, .29291, + .07276, .03801, 2.04776, .31268, .02349, + .00000, .19632, .31750, + .07437, .03892, 2.77489, .33216, .04527, + .00000, .21677, .33713, + .07610, .03990, 3.57516, .35444, .06600, + .00000, .24004, .35957, + .07760, .04075, 4.29293, .37499, .08536, + .00000, .26142, .38026, + .07905, .04158, 5.01740, .39578, .10582, + .00000, .28300, .40119, + .08062, .04247, 5.81854, .41906, .12911, + .00000, .30709, .42460 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08199, .04325, 6.52033, .44028, .14984, + .00000, .32900, .44595, + .08332, .04401, 7.21027, .46157, .17081, + .00000, .35094, .46736, + .08438, .04462, 7.77364, .47903, .18840, + .00000, .36892, .48493, + .08667, .04592, 9.00559, .51784, .22701, + .00000, .40880, .52395, + .08869, .04707, 9.98316, .55274, .26168, + .04096, .44459, .55904, + .09097, .04837, 11.12161, .59346, .30237, + .09033, .48631, .59997, + .09334, .04972, 12.30386, .63745, .34642, + .13778, .53130, .64418, + .09552, .05096, 13.36855, .67863, .38774, + .18229, .57337, .68556 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09771, .05220, 14.43315, .72136, .43071, + .22832, .61697, .72848, + .09953, .05324, 15.29961, .75750, .46699, + .26662, .65383, .76481, + .10175, .05450, 16.32649, .80201, .51161, + .31351, .69919, .80952, + .10370, .05561, 17.22194, .84211, .55199, + .35617, .74002, .84980, + .10551, .05663, 18.03078, .87944, .58967, + .39599, .77803, .88730, + .10779, .05791, 19.01549, .92697, .63740, + .44584, .82637, .93504, + .10994, .05913, 19.91984, .97217, .68296, + .49360, .87234, .98043, + .11196, .06027, 20.75303, 1.01507, .72639, + .53932, .91595, 1.02353 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11396, .06139, 21.53971, 1.05763, .76919, + .58380, .95919, 1.06627, + .11592, .06250, 22.29504, 1.09964, .81164, + .62817, 1.00186, 1.10846, + .11778, .06354, 22.99003, 1.13954, .85202, + .67038, 1.04239, 1.14853, + .11953, .06451, 23.61337, 1.17684, .88965, + .70951, 1.08025, 1.18598, + .12128, .06551, 24.23417, 1.21470, .92806, + .74968, 1.11870, 1.22401, + .12301, .06647, 24.80623, 1.25129, .96502, + .78802, 1.15584, 1.26075, + .12464, .06738, 25.34955, 1.28654, 1.00082, + .82542, 1.19161, 1.29614, + .12618, .06824, 25.82921, 1.31918, 1.03383, + .85966, 1.22474, 1.32893 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12775, .06911, 26.31068, 1.35242, 1.06759, + .89483, 1.25848, 1.36232, + .12927, .06996, 26.76088, 1.38476, 1.10039, + .92890, 1.29129, 1.39479, + .13074, .07078, 27.17870, 1.41555, 1.13166, + .96140, 1.32252, 1.42571, + .13213, .07154, 27.56750, 1.44477, 1.16141, + .99239, 1.35219, 1.45506, + .13352, .07232, 27.93477, 1.47369, 1.19076, + 1.02280, 1.38153, 1.48411 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09721, .05193, .65544, .23919, .00000, + .00000, .13798, .24613, + .09905, .05300, 1.15535, .25077, .00000, + .00000, .15038, .25789, + .10187, .05465, 1.90921, .26962, .02118, + .00000, .17037, .27701, + .10405, .05592, 2.51677, .28450, .03838, + .00000, .18609, .29210, + .10637, .05727, 3.16448, .30137, .05431, + .00000, .20382, .30921, + .10838, .05844, 3.72915, .31678, .06906, + .00000, .21996, .32481, + .11034, .05958, 4.28592, .33227, .08454, + .00000, .23612, .34049, + .11246, .06080, 4.88790, .34945, .10201, + .00000, .25401, .35789 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11429, .06187, 5.40360, .36499, .11739, + .00000, .27015, .37359, + .11607, .06290, 5.90123, .38044, .13284, + .00000, .28618, .38923, + .11750, .06373, 6.30161, .39306, .14571, + .00000, .29925, .40198, + .12053, .06548, 7.15950, .42079, .17368, + .00000, .32792, .43001, + .12321, .06702, 7.82010, .44539, .19845, + .02663, .35331, .45488, + .12622, .06875, 8.56678, .47373, .22716, + .06210, .38253, .48352, + .12934, .07054, 9.32147, .50392, .25781, + .09561, .41361, .51401, + .13219, .07216, 9.98362, .53182, .28617, + .12662, .44229, .54216 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13505, .07379, 10.62980, .56037, .31530, + .15827, .47165, .57100, + .13742, .07514, 11.14363, .58425, .33959, + .18429, .49615, .59510, + .14027, .07675, 11.73858, .61327, .36911, + .21578, .52594, .62440, + .14280, .07818, 12.24615, .63913, .39551, + .24411, .55245, .65049, + .14511, .07948, 12.69566, .66293, .41989, + .27027, .57685, .67452, + .14802, .08112, 13.22854, .69284, .45038, + .30261, .60752, .70470, + .15075, .08265, 13.70652, .72093, .47914, + .33324, .63630, .73306, + .15330, .08408, 14.13794, .74731, .50626, + .36225, .66332, .75966 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15581, .08548, 14.53311, .77311, .53264, + .39011, .68975, .78569, + .15828, .08684, 14.90490, .79831, .55853, + .41763, .71555, .81112, + .16061, .08813, 15.23940, .82199, .58291, + .44354, .73981, .83501, + .16276, .08933, 15.53118, .84386, .60539, + .46732, .76220, .85708, + .16495, .09053, 15.81742, .86588, .62814, + .49153, .78476, .87930, + .16706, .09169, 16.07237, .88689, .64976, + .51436, .80628, .90050, + .16908, .09280, 16.31174, .90698, .67058, + .53650, .82686, .92078, + .17096, .09383, 16.51513, .92537, .68954, + .55653, .84570, .93933 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17285, .09487, 16.71682, .94397, .70883, + .57700, .86475, .95810, + .17472, .09587, 16.89936, .96187, .72736, + .59662, .88309, .97616, + .17648, .09684, 17.06519, .97876, .74489, + .61520, .90041, .99321, + .17816, .09774, 17.21664, .99469, .76147, + .63280, .91673, 1.00928, + .17982, .09865, 17.35343, 1.01027, .77764, + .64990, .93270, 1.02500 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11845, .06434, .71161, .22133, .00000, + .00000, .12914, .23022, + .12065, .06565, 1.18115, .23104, .00000, + .00000, .13958, .24015, + .12402, .06765, 1.86661, .24683, .01932, + .00000, .15647, .25630, + .12662, .06918, 2.40604, .25929, .03414, + .00000, .16970, .26900, + .12937, .07081, 2.96966, .27334, .04760, + .00000, .18455, .28335, + .13177, .07222, 3.45168, .28613, .06003, + .00000, .19802, .29639, + .13410, .07358, 3.91950, .29893, .07301, + .00000, .21144, .30942, + .13660, .07503, 4.41771, .31306, .08760, + .00000, .22626, .32381 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13876, .07630, 4.83817, .32577, .10035, + .00000, .23953, .33675, + .14087, .07752, 5.23872, .33837, .11310, + .00000, .25266, .34955, + .14255, .07850, 5.55778, .34860, .12368, + .00000, .26332, .35995, + .14613, .08056, 6.23202, .37095, .14651, + .00000, .28656, .38266, + .14925, .08235, 6.74096, .39060, .16654, + .01953, .30697, .40262, + .15275, .08436, 7.30311, .41304, .18956, + .04838, .33025, .42541, + .15638, .08642, 7.86018, .43673, .21391, + .07533, .35479, .44945, + .15967, .08828, 8.33961, .45840, .23625, + .10004, .37723, .47145 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16296, .09015, 8.79929, .48040, .25900, + .12507, .39998, .49376, + .16568, .09167, 9.15853, .49863, .27780, + .14547, .41883, .51227, + .16896, .09351, 9.56681, .52062, .30046, + .16995, .44155, .53456, + .17184, .09512, 9.90919, .54003, .32058, + .19181, .46161, .55424, + .17447, .09658, 10.20778, .55779, .33902, + .21187, .47994, .57224, + .17776, .09840, 10.55430, .57987, .36189, + .23645, .50275, .59464, + .18083, .10010, 10.85898, .60044, .38328, + .25955, .52399, .61549, + .18370, .10168, 11.12914, .61960, .40330, + .28127, .54378, .63491 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18653, .10321, 11.36962, .63816, .42259, + .30194, .56295, .65373, + .18927, .10471, 11.59208, .65615, .44141, + .32224, .58152, .67197, + .19185, .10611, 11.78835, .67293, .45899, + .34121, .59885, .68897, + .19425, .10741, 11.95459, .68827, .47506, + .35848, .61472, .70453, + .19666, .10871, 12.11535, .70364, .49126, + .37600, .63061, .72011, + .19898, .10996, 12.25316, .71815, .50652, + .39237, .64563, .73484, + .20119, .11115, 12.38122, .73197, .52114, + .40819, .65992, .74885, + .20325, .11224, 12.48521, .74449, .53434, + .42238, .67289, .76155 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20532, .11335, 12.58715, .75710, .54772, + .43683, .68594, .77433, + .20734, .11442, 12.67544, .76914, .56047, + .45057, .69840, .78652, + .20925, .11543, 12.75336, .78042, .57248, + .46353, .71009, .79797, + .21107, .11639, 12.82286, .79100, .58377, + .47575, .72107, .80870, + .21286, .11734, 12.88136, .80124, .59469, + .48753, .73170, .81910 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13624, .07490, .77836, .20927, .00000, + .00000, .12293, .21984, + .13874, .07642, 1.22257, .21771, .00000, + .00000, .13208, .22856, + .14259, .07872, 1.85832, .23149, .01758, + .00000, .14689, .24273, + .14554, .08047, 2.34885, .24233, .03085, + .00000, .15849, .25391, + .14865, .08231, 2.85350, .25457, .04274, + .00000, .17150, .26648, + .15136, .08390, 3.27882, .26567, .05368, + .00000, .18323, .27784, + .15398, .08544, 3.68647, .27673, .06509, + .00000, .19491, .28918, + .15680, .08708, 4.11548, .28892, .07783, + .00000, .20775, .30167 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15924, .08848, 4.47327, .29983, .08893, + .00000, .21922, .31284, + .16160, .08985, 4.81067, .31060, .09997, + .00000, .23052, .32385, + .16347, .09093, 5.07728, .31932, .10911, + .00000, .23966, .33277, + .16747, .09323, 5.63456, .33829, .12872, + .00000, .25950, .35215, + .17093, .09521, 6.04867, .35483, .14581, + .01498, .27678, .36903, + .17482, .09740, 6.49652, .37361, .16531, + .03972, .29638, .38819, + .17882, .09966, 6.93309, .39326, .18578, + .06262, .31688, .40825, + .18243, .10168, 7.30273, .41112, .20442, + .08348, .33547, .42646 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18605, .10369, 7.65166, .42911, .22328, + .10446, .35422, .44480, + .18902, .10534, 7.92008, .44393, .23877, + .12145, .36964, .45989, + .19258, .10730, 8.22014, .46167, .25733, + .14173, .38809, .47796, + .19571, .10902, 8.46788, .47721, .27368, + .15971, .40428, .49381, + .19856, .11058, 8.68079, .49134, .28859, + .17614, .41899, .50820, + .20211, .11251, 8.92262, .50879, .30695, + .19612, .43715, .52597, + .20542, .11430, 9.13114, .52492, .32400, + .21477, .45395, .54240, + .20849, .11595, 9.31284, .53984, .33988, + .23223, .46949, .55759 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21149, .11756, 9.46966, .55418, .35506, + .24873, .48444, .57219, + .21442, .11912, 9.61196, .56798, .36978, + .26483, .49883, .58625, + .21716, .12057, 9.73460, .58076, .38346, + .27981, .51218, .59928, + .21969, .12191, 9.83487, .59237, .39588, + .29337, .52430, .61111, + .22223, .12325, 9.93030, .60394, .40834, + .30705, .53639, .62289, + .22467, .12453, 10.00786, .61477, .42000, + .31977, .54771, .63393, + .22699, .12575, 10.07906, .62505, .43113, + .33202, .55846, .64439, + .22914, .12686, 10.13286, .63427, .44111, + .34293, .56813, .65379 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23131, .12798, 10.18474, .64352, .45117, + .35399, .57782, .66322, + .23340, .12906, 10.22632, .65226, .46073, + .36448, .58700, .67214, + .23538, .13009, 10.26110, .66043, .46966, + .37430, .59558, .68046, + .23726, .13104, 10.29067, .66806, .47804, + .38355, .60360, .68823, + .23911, .13199, 10.31156, .67536, .48610, + .39240, .61130, .69569 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .15177, .08422, .84814, .19985, .00000, + .00000, .11790, .21186, + .15455, .08592, 1.27037, .20738, .00000, + .00000, .12611, .21969, + .15881, .08847, 1.86615, .21968, .01592, + .00000, .13941, .23249, + .16206, .09040, 2.31792, .22938, .02806, + .00000, .14984, .24255, + .16550, .09243, 2.77675, .24030, .03882, + .00000, .16151, .25384, + .16848, .09417, 3.15866, .25019, .04871, + .00000, .17203, .26404, + .17136, .09585, 3.52091, .26003, .05899, + .00000, .18247, .27418, + .17444, .09764, 3.89835, .27083, .07044, + .00000, .19391, .28532 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17711, .09918, 4.21003, .28046, .08036, + .00000, .20410, .29524, + .17967, .10065, 4.50133, .28994, .09020, + .00000, .21409, .30498, + .18173, .10183, 4.72994, .29760, .09832, + .00000, .22216, .31286, + .18606, .10429, 5.20339, .31417, .11567, + .00000, .23960, .32988, + .18981, .10641, 5.55069, .32854, .13069, + .01171, .25470, .34462, + .19399, .10874, 5.91865, .34473, .14773, + .03356, .27171, .36123, + .19830, .11113, 6.27197, .36158, .16551, + .05365, .28940, .37849, + .20216, .11326, 6.56664, .37678, .18159, + .07183, .30535, .39407 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20602, .11538, 6.84075, .39201, .19778, + .09003, .32132, .40966, + .20918, .11711, 7.04833, .40445, .21099, + .10468, .33438, .42240, + .21296, .11915, 7.27675, .41926, .22672, + .12207, .34992, .43757, + .21626, .12093, 7.46238, .43218, .24053, + .13743, .36348, .45079, + .21927, .12254, 7.61951, .44386, .25304, + .15137, .37573, .46274, + .22300, .12453, 7.79378, .45816, .26836, + .16826, .39076, .47739, + .22646, .12637, 7.94096, .47130, .28251, + .18393, .40457, .49083, + .22967, .12806, 8.06683, .48338, .29562, + .19854, .41727, .50319 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23281, .12970, 8.17154, .49490, .30806, + .21224, .42940, .51497, + .23583, .13128, 8.26418, .50592, .32008, + .22558, .44102, .52626, + .23867, .13275, 8.34142, .51606, .33119, + .23792, .45171, .53663, + .24128, .13409, 8.40159, .52522, .34122, + .24903, .46139, .54601, + .24389, .13544, 8.45760, .53431, .35125, + .26022, .47099, .55530, + .24640, .13671, 8.49921, .54273, .36056, + .27055, .47991, .56393, + .24879, .13792, 8.53667, .55069, .36943, + .28046, .48835, .57208, + .25097, .13903, 8.56108, .55777, .37732, + .28925, .49587, .57933 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25317, .14014, 8.58379, .56485, .38526, + .29814, .50340, .58658, + .25529, .14120, 8.59843, .57150, .39275, + .30652, .51048, .59339, + .25730, .14220, 8.60851, .57767, .39974, + .31435, .51707, .59971, + .25920, .14314, 8.61542, .58339, .40626, + .32169, .52320, .60558, + .26106, .14406, 8.61534, .58883, .41249, + .32869, .52902, .61117 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17858, .10041, .98207, .18567, .00000, + .00000, .11004, .20035, + .18187, .10241, 1.36693, .19190, .00000, + .00000, .11692, .20699, + .18687, .10541, 1.89872, .20215, .01279, + .00000, .12815, .21782, + .19064, .10763, 2.28962, .21024, .02340, + .00000, .13697, .22635, + .19462, .10995, 2.67838, .21934, .03264, + .00000, .14682, .23590, + .19804, .11193, 2.99546, .22754, .04109, + .00000, .15564, .24448, + .20134, .11383, 3.29099, .23565, .04982, + .00000, .16437, .25296, + .20485, .11583, 3.59370, .24454, .05950, + .00000, .17389, .26222 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20787, .11755, 3.83938, .25241, .06782, + .00000, .18231, .27041, + .21079, .11918, 4.06556, .26010, .07603, + .00000, .19053, .27841, + .21311, .12047, 4.24100, .26629, .08277, + .00000, .19714, .28485, + .21798, .12318, 4.59850, .27958, .09704, + .00000, .21130, .29863, + .22214, .12546, 4.85492, .29095, .10927, + .00718, .22341, .31042, + .22676, .12798, 5.11559, .30366, .12300, + .02513, .23695, .32356, + .23148, .13052, 5.35892, .31671, .13718, + .04145, .25085, .33707, + .23570, .13277, 5.55589, .32835, .14987, + .05607, .26325, .34910 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23990, .13499, 5.73370, .33986, .16251, + .07057, .27553, .36101, + .24331, .13678, 5.86388, .34919, .17272, + .08214, .28548, .37064, + .24736, .13890, 6.00225, .36015, .18478, + .09576, .29718, .38196, + .25089, .14073, 6.11083, .36961, .19525, + .10767, .30727, .39172, + .25407, .14237, 6.19951, .37806, .20468, + .11842, .31633, .40046, + .25801, .14438, 6.29199, .38831, .21609, + .13130, .32730, .41102, + .26164, .14622, 6.36565, .39759, .22653, + .14315, .33727, .42060, + .26499, .14790, 6.42519, .40604, .23612, + .15411, .34636, .42932 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26823, .14951, 6.46879, .41396, .24511, + .16429, .35489, .43749, + .27135, .15107, 6.50405, .42146, .25372, + .17413, .36300, .44524, + .27425, .15249, 6.52970, .42830, .26161, + .18316, .37040, .45229, + .27691, .15379, 6.54474, .43436, .26867, + .19123, .37699, .45855, + .27957, .15508, 6.55672, .44033, .27567, + .19928, .38349, .46472, + .28208, .15628, 6.55882, .44578, .28210, + .20666, .38944, .47035, + .28447, .15743, 6.55947, .45090, .28818, + .21370, .39504, .47562, + .28665, .15846, 6.55249, .45535, .29354, + .21989, .39994, .48022 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28883, .15949, 6.54430, .45978, .29890, + .22612, .40481, .48479, + .29093, .16047, 6.53089, .46386, .30390, + .23194, .40933, .48901, + .29290, .16139, 6.51552, .46761, .30853, + .23735, .41350, .49288, + .29475, .16225, 6.49930, .47105, .31282, + .24239, .41734, .49644, + .29657, .16307, 6.47816, .47425, .31687, + .24715, .42094, .49975 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .21207, .12073, 1.16511, .16984, .00000, + .00000, .10070, .18800, + .21603, .12311, 1.50237, .17486, .00000, + .00000, .10639, .19354, + .22196, .12660, 1.95892, .18321, .00853, + .00000, .11574, .20263, + .22637, .12914, 2.28047, .18980, .01773, + .00000, .12308, .20975, + .23099, .13177, 2.59232, .19718, .02558, + .00000, .13123, .21767, + .23495, .13399, 2.84033, .20378, .03271, + .00000, .13848, .22471, + .23874, .13609, 3.06646, .21029, .04002, + .00000, .14562, .23163, + .24275, .13830, 3.29318, .21735, .04805, + .00000, .15334, .23912 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24617, .14017, 3.47303, .22355, .05489, + .00000, .16010, .24568, + .24943, .14194, 3.63531, .22955, .06158, + .00000, .16665, .25202, + .25203, .14333, 3.75928, .23436, .06703, + .00000, .17189, .25709, + .25743, .14622, 4.00645, .24456, .07848, + .00000, .18299, .26782, + .26201, .14861, 4.17870, .25315, .08814, + .00291, .19236, .27684, + .26703, .15121, 4.34155, .26260, .09887, + .01728, .20267, .28676, + .27212, .15382, 4.48666, .27215, .10977, + .03017, .21310, .29676, + .27663, .15610, 4.59818, .28054, .11941, + .04158, .22227, .30553 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28106, .15831, 4.69343, .28872, .12889, + .05276, .23124, .31408, + .28465, .16009, 4.75880, .29523, .13647, + .06159, .23838, .32088, + .28887, .16214, 4.82266, .30275, .14528, + .07186, .24669, .32874, + .29252, .16391, 4.86848, .30916, .15286, + .08077, .25375, .33542, + .29578, .16549, 4.90239, .31481, .15961, + .08871, .26000, .34131, + .29979, .16738, 4.93076, .32150, .16767, + .09814, .26745, .34828, + .30345, .16909, 4.94798, .32746, .17494, + .10672, .27411, .35449, + .30679, .17065, 4.95756, .33280, .18154, + .11457, .28009, .36005 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31000, .17211, 4.95612, .33768, .18765, + .12178, .28561, .36514, + .31306, .17350, 4.94991, .34224, .19343, + .12868, .29079, .36988, + .31588, .17476, 4.93908, .34629, .19867, + .13495, .29542, .37411, + .31844, .17589, 4.92277, .34981, .20329, + .14050, .29947, .37777, + .32098, .17700, 4.90460, .35322, .20783, + .14600, .30341, .38131, + .32336, .17803, 4.88068, .35624, .21193, + .15097, .30695, .38445, + .32561, .17900, 4.85745, .35903, .21579, + .15569, .31023, .38737, + .32763, .17985, 4.83058, .36139, .21913, + .15979, .31303, .38981 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32965, .18070, 4.80308, .36370, .22244, + .16388, .31580, .39221, + .33157, .18150, 4.77282, .36574, .22549, + .16768, .31830, .39434, + .33336, .18222, 4.74265, .36758, .22828, + .17117, .32055, .39625, + .33503, .18290, 4.71325, .36924, .23084, + .17440, .32261, .39797, + .33664, .18355, 4.68073, .37070, .23321, + .17741, .32446, .39949 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25809, .14836, 1.41197, .15033, .00000, + .00000, .08863, .17397, + .26296, .15117, 1.68179, .15427, .00000, + .00000, .09330, .17855, + .27012, .15520, 2.04054, .16081, .00256, + .00000, .10095, .18597, + .27535, .15804, 2.27607, .16594, .01040, + .00000, .10688, .19170, + .28072, .16093, 2.49644, .17161, .01698, + .00000, .11338, .19794, + .28528, .16333, 2.66520, .17661, .02284, + .00000, .11908, .20341, + .28959, .16559, 2.81413, .18148, .02878, + .00000, .12462, .20871, + .29409, .16792, 2.95860, .18670, .03521, + .00000, .13056, .21436 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29792, .16985, 3.06883, .19120, .04060, + .00000, .13566, .21921, + .30153, .17166, 3.16491, .19551, .04581, + .00000, .14057, .22385, + .30437, .17308, 3.23643, .19892, .05002, + .00000, .14443, .22751, + .31024, .17595, 3.37387, .20602, .05870, + .00000, .15250, .23510, + .31509, .17828, 3.46472, .21184, .06590, + -.00115, .15915, .24130, + .32035, .18075, 3.53574, .21811, .07374, + .00973, .16631, .24795, + .32559, .18318, 3.59127, .22428, .08157, + .01934, .17340, .25447, + .33017, .18526, 3.62695, .22955, .08835, + .02770, .17949, .26004 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33461, .18724, 3.65088, .23455, .09489, + .03576, .18530, .26531, + .33815, .18878, 3.66126, .23843, .10004, + .04204, .18986, .26938, + .34225, .19055, 3.66395, .24279, .10593, + .04924, .19500, .27395, + .34575, .19202, 3.65963, .24638, .11089, + .05539, .19928, .27772, + .34886, .19330, 3.65067, .24948, .11526, + .06082, .20300, .28095, + .35257, .19482, 3.63044, .25300, .12037, + .06716, .20729, .28462, + .35591, .19616, 3.60618, .25603, .12489, + .07283, .21103, .28776, + .35894, .19733, 3.58005, .25865, .12893, + .07797, .21430, .29048 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36176, .19839, 3.54755, .26092, .13258, + .08261, .21721, .29281, + .36443, .19937, 3.51365, .26294, .13597, + .08698, .21986, .29489, + .36685, .20024, 3.47927, .26465, .13900, + .09092, .22216, .29666, + .36899, .20099, 3.44387, .26605, .14161, + .09434, .22408, .29807, + .37111, .20172, 3.40787, .26736, .14414, + .09770, .22591, .29938, + .37303, .20234, 3.36946, .26837, .14636, + .10069, .22745, .30042, + .37483, .20293, 3.33325, .26929, .14843, + .10350, .22885, .30134, + .37641, .20340, 3.29667, .26996, .15016, + .10589, .22997, .30199 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37798, .20387, 3.26007, .27058, .15187, + .10827, .23104, .30260, + .37943, .20428, 3.22266, .27103, .15338, + .11043, .23194, .30304, + .38075, .20466, 3.18670, .27139, .15475, + .11240, .23270, .30336, + .38197, .20498, 3.15257, .27166, .15598, + .11421, .23336, .30360, + .38311, .20526, 3.11689, .27180, .15708, + .11586, .23388, .30369 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29619, .17083, 1.59616, .13464, .00000, + .00000, .07869, .16287, + .30184, .17392, 1.80830, .13803, .00000, + .00000, .08288, .16696, + .31004, .17824, 2.08848, .14357, -.00213, + .00000, .08959, .17343, + .31584, .18122, 2.25842, .14785, .00489, + .00000, .09472, .17829, + .32175, .18420, 2.41171, .15249, .01072, + .00000, .10024, .18348, + .32670, .18663, 2.52435, .15649, .01582, + .00000, .10500, .18793, + .33133, .18886, 2.62028, .16032, .02092, + .00000, .10956, .19217, + .33613, .19114, 2.70980, .16438, .02636, + .00000, .11437, .19662 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34013, .19301, 2.77472, .16783, .03086, + .00000, .11844, .20036, + .34389, .19475, 2.82869, .17107, .03518, + .00000, .12229, .20387, + .34682, .19607, 2.86750, .17361, .03861, + .00000, .12531, .20661, + .35281, .19872, 2.93796, .17880, .04562, + .00000, .13150, .21219, + .35764, .20080, 2.98062, .18295, .05133, + -.00333, .13649, .21658, + .36280, .20297, 2.99913, .18729, .05745, + .00540, .14175, .22116, + .36786, .20503, 3.00525, .19143, .06344, + .01301, .14684, .22552, + .37222, .20673, 3.00055, .19485, .06856, + .01955, .15109, .22910 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37638, .20831, 2.98757, .19800, .07342, + .02577, .15507, .23238, + .37962, .20953, 2.97069, .20036, .07718, + .03055, .15811, .23482, + .38334, .21085, 2.94380, .20293, .08142, + .03598, .16146, .23744, + .38644, .21194, 2.91604, .20496, .08495, + .04057, .16418, .23950, + .38914, .21284, 2.88776, .20665, .08800, + .04457, .16647, .24118, + .39233, .21384, 2.84676, .20843, .09150, + .04918, .16903, .24297, + .39513, .21469, 2.80554, .20988, .09456, + .05327, .17118, .24438, + .39760, .21541, 2.76544, .21106, .09725, + .05692, .17300, .24551 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39987, .21599, 2.72196, .21195, .09962, + .06018, .17452, .24633, + .40194, .21650, 2.67876, .21268, .10179, + .06321, .17585, .24698, + .40379, .21692, 2.63707, .21321, .10368, + .06591, .17695, .24742, + .40537, .21725, 2.59647, .21353, .10529, + .06823, .17780, .24764, + .40688, .21754, 2.55602, .21379, .10682, + .07049, .17857, .24780, + .40823, .21774, 2.51484, .21386, .10812, + .07246, .17913, .24773, + .40946, .21789, 2.47644, .21388, .10931, + .07431, .17962, .24765, + .41048, .21798, 2.43909, .21374, .11029, + .07586, .17991, .24739 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41149, .21805, 2.40207, .21356, .11123, + .07738, .18017, .24709, + .41235, .21807, 2.36514, .21328, .11203, + .07874, .18030, .24668, + .41313, .21806, 2.33016, .21295, .11273, + .07997, .18037, .24623, + .41383, .21802, 2.29731, .21261, .11335, + .08109, .18040, .24576, + .41442, .21792, 2.26372, .21215, .11387, + .08209, .18031, .24517 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .36036, .20671, 1.79975, .11071, .00000, + .00000, .06388, .14718, + .36708, .20994, 1.91973, .11354, .00000, + .00000, .06758, .15058, + .37640, .21426, 2.07997, .11790, -.00840, + .00000, .07325, .15561, + .38281, .21705, 2.15632, .12107, -.00242, + .00000, .07735, .15917, + .38909, .21976, 2.21754, .12437, .00249, + .00000, .08157, .16276, + .39422, .22188, 2.25600, .12711, .00665, + .00000, .08509, .16570, + .39893, .22375, 2.28414, .12964, .01069, + .00000, .08835, .16839, + .40369, .22561, 2.30553, .13221, .01489, + .00000, .09169, .17110 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40758, .22707, 2.31582, .13431, .01829, + .00000, .09446, .17326, + .41115, .22835, 2.32029, .13622, .02148, + .00000, .09698, .17521, + .41390, .22931, 2.32147, .13765, .02398, + .00000, .09892, .17668, + .41929, .23113, 2.31703, .14050, .02897, + .00000, .10275, .17950, + .42345, .23242, 2.30743, .14262, .03290, + -.00524, .10568, .18151, + .42773, .23362, 2.27265, .14468, .03701, + .00087, .10865, .18344, + .43175, .23466, 2.23075, .14649, .04090, + .00609, .11136, .18506, + .43504, .23540, 2.18861, .14783, .04414, + .01048, .11352, .18620 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43804, .23597, 2.14327, .14892, .04712, + .01457, .11541, .18706, + .44026, .23633, 2.10363, .14964, .04938, + .01766, .11675, .18756, + .44264, .23662, 2.05372, .15028, .05184, + .02109, .11813, .18790, + .44455, .23675, 2.00892, .15066, .05384, + .02394, .11916, .18802, + .44612, .23676, 1.96755, .15088, .05552, + .02637, .11996, .18800, + .44777, .23666, 1.91399, .15093, .05739, + .02914, .12072, .18770, + .44907, .23645, 1.86391, .15082, .05898, + .03154, .12125, .18722, + .45013, .23619, 1.81762, .15061, .06032, + .03363, .12163, .18666 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45093, .23577, 1.77098, .15020, .06145, + .03546, .12179, .18592, + .45157, .23532, 1.72623, .14972, .06245, + .03714, .12186, .18509, + .45203, .23481, 1.68453, .14916, .06329, + .03860, .12182, .18420, + .45229, .23426, 1.64550, .14855, .06397, + .03983, .12168, .18327, + .45247, .23367, 1.60733, .14789, .06459, + .04101, .12148, .18229, + .45245, .23302, 1.56997, .14713, .06507, + .04201, .12116, .18121, + .45241, .23239, 1.53552, .14639, .06550, + .04293, .12084, .18015, + .45219, .23172, 1.50308, .14562, .06581, + .04369, .12044, .17907 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45193, .23104, 1.47125, .14484, .06609, + .04441, .12001, .17796, + .45158, .23031, 1.44024, .14398, .06630, + .04505, .11953, .17681, + .45119, .22957, 1.41128, .14314, .06647, + .04562, .11904, .17569, + .45076, .22887, 1.38438, .14233, .06660, + .04612, .11856, .17461, + .45021, .22812, 1.35744, .14146, .06666, + .04654, .11800, .17344 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .41360, .23414, 1.85033, .09270, .00000, + .00000, .05327, .13514, + .42078, .23712, 1.90314, .09520, .00000, + .00000, .05668, .13782, + .43045, .24086, 1.97823, .09879, -.01159, + .00000, .06156, .14158, + .43673, .24312, 1.99360, .10125, -.00639, + .00000, .06493, .14403, + .44281, .24518, 1.99725, .10367, -.00211, + .00000, .06826, .14636, + .44760, .24669, 1.99143, .10556, .00141, + .00000, .07093, .14812, + .45187, .24795, 1.98055, .10725, .00474, + .00000, .07334, .14965, + .45607, .24909, 1.96423, .10888, .00811, + .00000, .07571, .15108 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45938, .24992, 1.94541, .11015, .01081, + .00000, .07759, .15213, + .46232, .25059, 1.92440, .11125, .01329, + .00000, .07926, .15301, + .46453, .25104, 1.90670, .11206, .01520, + .00000, .08051, .15362, + .46870, .25174, 1.86629, .11352, .01894, + .00000, .08291, .15462, + .47166, .25202, 1.83264, .11447, .02183, + -.00558, .08465, .15512, + .47448, .25209, 1.77624, .11526, .02478, + -.00109, .08629, .15540, + .47690, .25192, 1.71666, .11580, .02750, + .00271, .08766, .15536, + .47867, .25158, 1.66226, .11606, .02970, + .00584, .08865, .15507 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .48010, .25106, 1.60762, .11613, .03169, + .00871, .08944, .15458, + .48098, .25051, 1.56250, .11604, .03314, + .01084, .08992, .15399, + .48171, .24968, 1.50840, .11575, .03471, + .01318, .09029, .15314, + .48210, .24884, 1.46162, .11537, .03596, + .01510, .09048, .15224, + .48226, .24799, 1.41970, .11495, .03697, + .01671, .09058, .15130, + .48213, .24677, 1.36742, .11424, .03807, + .01851, .09050, .14996, + .48175, .24554, 1.31987, .11348, .03897, + .02005, .09031, .14860, + .48121, .24433, 1.27683, .11271, .03970, + .02137, .09003, .14727 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48041, .24298, 1.23473, .11181, .04029, + .02251, .08964, .14580, + .47947, .24161, 1.19499, .11088, .04079, + .02354, .08919, .14433, + .47846, .24026, 1.15861, .10994, .04119, + .02441, .08870, .14290, + .47731, .23892, 1.12520, .10901, .04148, + .02513, .08816, .14148, + .47609, .23757, 1.09284, .10806, .04175, + .02582, .08761, .14006, + .47471, .23616, 1.06177, .10706, .04192, + .02639, .08698, .13858, + .47336, .23482, 1.03328, .10612, .04206, + .02691, .08639, .13720, + .47192, .23349, 1.00694, .10516, .04213, + .02731, .08577, .13583 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47046, .23216, .98125, .10421, .04219, + .02771, .08515, .13446, + .46890, .23080, .95652, .10324, .04219, + .02803, .08449, .13307, + .46735, .22948, .93361, .10231, .04218, + .02832, .08385, .13175, + .46585, .22822, .91250, .10142, .04215, + .02857, .08323, .13049, + .46423, .22691, .89158, .10049, .04208, + .02877, .08257, .12919 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45939, .25569, 1.80046, .07893, .00000, + .00000, .04560, .12494, + .46663, .25810, 1.80562, .08111, .00000, + .00000, .04863, .12691, + .47589, .26091, 1.82124, .08402, -.01276, + .00000, .05278, .12936, + .48167, .26240, 1.79756, .08590, -.00824, + .00000, .05548, .13082, + .48699, .26356, 1.76599, .08761, -.00452, + .00000, .05807, .13202, + .49102, .26428, 1.73409, .08888, -.00153, + .00000, .06005, .13282, + .49445, .26477, 1.70119, .08995, .00123, + .00000, .06178, .13340, + .49768, .26509, 1.66443, .09093, .00399, + .00000, .06342, .13382 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .50008, .26518, 1.63052, .09164, .00617, + .00000, .06468, .13399, + .50210, .26511, 1.59687, .09218, .00814, + .00000, .06577, .13405, + .50356, .26499, 1.57018, .09255, .00963, + .00000, .06655, .13403, + .50603, .26445, 1.51345, .09311, .01253, + .00000, .06795, .13375, + .50743, .26367, 1.46970, .09335, .01471, + -.00530, .06886, .13322, + .50844, .26256, 1.40655, .09340, .01689, + -.00191, .06965, .13238, + .50895, .26116, 1.34284, .09321, .01886, + .00093, .07022, .13130, + .50896, .25970, 1.28685, .09286, .02042, + .00323, .07052, .13014 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50857, .25810, 1.23233, .09237, .02182, + .00532, .07065, .12882, + .50794, .25666, 1.18854, .09185, .02282, + .00685, .07063, .12763, + .50683, .25477, 1.13730, .09111, .02386, + .00852, .07047, .12607, + .50560, .25300, 1.09389, .09038, .02467, + .00986, .07023, .12460, + .50429, .25134, 1.05564, .08963, .02532, + .01098, .06993, .12321, + .50225, .24911, 1.00888, .08861, .02600, + .01221, .06945, .12136, + .50012, .24692, .96705, .08758, .02654, + .01324, .06892, .11958, + .49800, .24482, .92971, .08656, .02698, + .01413, .06836, .11788 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49558, .24264, .89378, .08550, .02730, + .01488, .06772, .11614, + .49309, .24048, .86026, .08442, .02756, + .01554, .06706, .11440, + .49061, .23839, .82990, .08339, .02775, + .01610, .06641, .11275, + .48811, .23639, .80236, .08238, .02787, + .01655, .06575, .11117, + .48555, .23438, .77586, .08136, .02797, + .01698, .06507, .10959, + .48285, .23234, .75071, .08034, .02802, + .01733, .06437, .10802, + .48028, .23041, .72780, .07936, .02805, + .01764, .06371, .10654, + .47771, .22854, .70682, .07842, .02803, + .01788, .06304, .10511 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47511, .22667, .68645, .07748, .02801, + .01811, .06237, .10370, + .47244, .22480, .66701, .07654, .02794, + .01829, .06170, .10230, + .46985, .22301, .64910, .07565, .02788, + .01844, .06104, .10096, + .46737, .22132, .63266, .07479, .02780, + .01858, .06043, .09972, + .46479, .21955, .61651, .07391, .02770, + .01867, .05978, .09845 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50783, .27546, 1.65703, .06573, .00000, + .00000, .03842, .11288, + .51430, .27689, 1.62392, .06751, .00000, + .00000, .04095, .11387, + .52207, .27807, 1.59187, .06967, -.01256, + .00000, .04419, .11483, + .52645, .27838, 1.54037, .07097, -.00880, + .00000, .04620, .11515, + .53020, .27826, 1.48495, .07204, -.00569, + .00000, .04800, .11523, + .53276, .27786, 1.43643, .07275, -.00326, + .00000, .04932, .11507, + .53471, .27726, 1.39032, .07327, -.00107, + .00000, .05040, .11476, + .53632, .27644, 1.34206, .07368, .00109, + .00000, .05140, .11427 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53727, .27552, 1.30044, .07387, .00277, + .00000, .05211, .11373, + .53785, .27453, 1.26093, .07398, .00426, + .00000, .05267, .11309, + .53813, .27368, 1.23044, .07400, .00539, + .00000, .05305, .11253, + .53810, .27157, 1.16783, .07389, .00752, + .00000, .05364, .11118, + .53728, .26947, 1.12111, .07359, .00910, + -.00455, .05394, .10985, + .53582, .26691, 1.05931, .07309, .01063, + -.00213, .05408, .10822, + .53373, .26406, .99892, .07240, .01200, + -.00011, .05403, .10640, + .53138, .26136, .94730, .07166, .01306, + .00150, .05383, .10463 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52863, .25853, .89818, .07084, .01398, + .00294, .05352, .10275, + .52609, .25607, .85954, .07009, .01463, + .00399, .05320, .10117, + .52267, .25299, .81523, .06908, .01530, + .00511, .05269, .09922, + .51943, .25023, .77827, .06815, .01581, + .00601, .05220, .09747, + .51630, .24767, .74617, .06728, .01619, + .00673, .05170, .09586, + .51203, .24435, .70758, .06611, .01660, + .00753, .05099, .09379, + .50784, .24118, .67355, .06499, .01690, + .00820, .05029, .09183, + .50379, .23820, .64354, .06392, .01712, + .00875, .04960, .09003 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .49950, .23517, .61505, .06283, .01728, + .00922, .04889, .08817, + .49523, .23221, .58875, .06176, .01740, + .00963, .04817, .08640, + .49110, .22941, .56517, .06073, .01748, + .00996, .04747, .08474, + .48707, .22675, .54400, .05977, .01751, + .01023, .04680, .08317, + .48303, .22409, .52377, .05881, .01753, + .01048, .04612, .08162, + .47892, .22142, .50476, .05785, .01751, + .01068, .04543, .08012, + .47505, .21891, .48753, .05695, .01749, + .01085, .04478, .07872, + .47123, .21654, .47189, .05609, .01744, + .01098, .04415, .07738 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .46739, .21417, .45675, .05524, .01739, + .01110, .04354, .07605, + .46356, .21183, .44241, .05439, .01731, + .01120, .04293, .07476, + .45990, .20959, .42928, .05360, .01723, + .01127, .04234, .07352, + .45640, .20749, .41727, .05285, .01715, + .01134, .04179, .07239, + .45278, .20535, .40556, .05211, .01705, + .01138, .04122, .07122 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54817, .28901, 1.46660, .05581, .00000, + .00000, .03303, .10115, + .55323, .28911, 1.41242, .05711, .00000, + .00000, .03504, .10126, + .55861, .28843, 1.35395, .05859, -.01138, + .00000, .03747, .10093, + .56110, .28736, 1.29011, .05933, -.00829, + .00000, .03885, .10044, + .56281, .28580, 1.22529, .05986, -.00575, + .00000, .04006, .09966, + .56349, .28423, 1.17132, .06013, -.00379, + .00000, .04086, .09878, + .56363, .28252, 1.12162, .06026, -.00206, + .00000, .04148, .09783, + .56329, .28053, 1.07111, .06026, -.00038, + .00000, .04198, .09673 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56254, .27864, 1.02882, .06015, .00092, + .00000, .04230, .09569, + .56149, .27670, .98959, .05996, .00205, + .00000, .04250, .09462, + .56049, .27510, .95972, .05976, .00290, + .00000, .04262, .09376, + .55766, .27154, .89969, .05923, .00448, + .00000, .04271, .09180, + .55448, .26821, .85556, .05861, .00563, + -.00373, .04261, .09003, + .55041, .26436, .80013, .05781, .00674, + -.00197, .04237, .08799, + .54566, .26022, .74700, .05689, .00771, + -.00052, .04198, .08579, + .54097, .25638, .70244, .05597, .00845, + .00062, .04155, .08378 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53592, .25245, .66071, .05500, .00907, + .00162, .04104, .08173, + .53148, .24917, .62834, .05415, .00951, + .00235, .04054, .08005, + .52589, .24511, .59170, .05307, .00995, + .00313, .03990, .07800, + .52077, .24151, .56154, .05209, .01027, + .00373, .03930, .07620, + .51594, .23823, .53555, .05120, .01052, + .00422, .03874, .07458, + .50958, .23402, .50470, .05006, .01076, + .00475, .03799, .07251, + .50349, .23009, .47779, .04897, .01094, + .00520, .03726, .07060, + .49775, .22641, .45427, .04795, .01107, + .00556, .03658, .06885 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49181, .22275, .43218, .04692, .01115, + .00586, .03587, .06713, + .48597, .21918, .41192, .04595, .01121, + .00612, .03517, .06547, + .48040, .21585, .39385, .04503, .01123, + .00633, .03453, .06391, + .47508, .21269, .37778, .04417, .01124, + .00650, .03391, .06248, + .46978, .20957, .36250, .04331, .01123, + .00665, .03329, .06107, + .46444, .20649, .34823, .04245, .01120, + .00677, .03267, .05972, + .45943, .20363, .33532, .04167, .01116, + .00687, .03209, .05846, + .45461, .20090, .32370, .04093, .01111, + .00695, .03155, .05728 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44981, .19819, .31252, .04020, .01106, + .00702, .03102, .05610, + .44502, .19553, .30197, .03948, .01099, + .00707, .03049, .05496, + .44047, .19302, .29232, .03880, .01092, + .00711, .02998, .05391, + .43618, .19065, .28355, .03817, .01085, + .00714, .02950, .05292, + .43180, .18826, .27504, .03751, .01077, + .00716, .02903, .05195 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58112, .29709, 1.26025, .04808, .00000, + .00000, .02876, .08961, + .58411, .29587, 1.19698, .04898, .00000, + .00000, .03021, .08890, + .58635, .29324, 1.12665, .04985, -.00979, + .00000, .03184, .08759, + .58655, .29078, 1.06021, .05018, -.00731, + .00000, .03276, .08637, + .58573, .28785, .99486, .05030, -.00526, + .00000, .03342, .08496, + .58430, .28511, .94184, .05023, -.00370, + .00000, .03383, .08363, + .58242, .28231, .89400, .05006, -.00235, + .00000, .03408, .08231, + .57996, .27921, .84619, .04978, -.00104, + .00000, .03424, .08085 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57739, .27640, .80694, .04944, -.00005, + .00000, .03428, .07953, + .57457, .27361, .77106, .04907, .00082, + .00000, .03424, .07823, + .57220, .27137, .74401, .04874, .00145, + .00000, .03419, .07718, + .56655, .26644, .69030, .04796, .00263, + .00000, .03393, .07495, + .56098, .26205, .65136, .04720, .00348, + -.00298, .03362, .07297, + .55436, .25705, .60399, .04624, .00428, + -.00170, .03317, .07079, + .54704, .25182, .55927, .04522, .00498, + -.00065, .03263, .06852, + .54010, .24706, .52226, .04424, .00551, + .00017, .03208, .06648 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53291, .24223, .48804, .04321, .00594, + .00089, .03146, .06446, + .52679, .23822, .46180, .04233, .00624, + .00139, .03094, .06284, + .51912, .23341, .43233, .04129, .00654, + .00193, .03028, .06086, + .51227, .22918, .40828, .04038, .00676, + .00235, .02968, .05914, + .50595, .22534, .38771, .03954, .00692, + .00270, .02912, .05760, + .49778, .22048, .36358, .03845, .00708, + .00306, .02840, .05570, + .49005, .21598, .34266, .03746, .00719, + .00336, .02771, .05396, + .48282, .21184, .32445, .03656, .00726, + .00360, .02707, .05238 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47551, .20768, .30754, .03562, .00731, + .00380, .02644, .05084, + .46839, .20370, .29209, .03474, .00733, + .00397, .02582, .04938, + .46165, .19998, .27840, .03393, .00734, + .00411, .02525, .04801, + .45529, .19651, .26630, .03316, .00734, + .00422, .02471, .04676, + .44899, .19309, .25483, .03241, .00732, + .00431, .02417, .04555, + .44270, .18974, .24417, .03168, .00729, + .00439, .02365, .04438, + .43683, .18663, .23457, .03101, .00725, + .00445, .02317, .04331, + .43122, .18369, .22596, .03038, .00721, + .00450, .02270, .04231 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42566, .18077, .21769, .02976, .00717, + .00454, .02226, .04133, + .42018, .17793, .20993, .02915, .00711, + .00456, .02182, .04037, + .41498, .17525, .20286, .02857, .00706, + .00459, .02141, .03948, + .41010, .17274, .19644, .02804, .00701, + .00461, .02102, .03866, + .40514, .17022, .19022, .02751, .00694, + .00461, .02063, .03785 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60682, .30064, 1.05689, .04197, .00000, + .00000, .02509, .07811, + .60732, .29802, .99231, .04247, .00000, + .00000, .02606, .07683, + .60600, .29333, .91976, .04274, -.00813, + .00000, .02706, .07480, + .60359, .28952, .85652, .04271, -.00616, + .00000, .02755, .07321, + .60011, .28525, .79549, .04249, -.00454, + .00000, .02784, .07147, + .59642, .28139, .74699, .04216, -.00332, + .00000, .02794, .06990, + .59242, .27759, .70373, .04180, -.00227, + .00000, .02797, .06835, + .58773, .27346, .66116, .04133, -.00127, + .00000, .02790, .06670 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58332, .26979, .62664, .04084, -.00052, + .00000, .02777, .06527, + .57877, .26622, .59542, .04034, .00014, + .00000, .02759, .06390, + .57503, .26340, .57206, .03992, .00061, + .00000, .02741, .06282, + .56657, .25732, .52618, .03899, .00150, + .00000, .02701, .06049, + .55875, .25200, .49319, .03811, .00213, + -.00233, .02657, .05855, + .54970, .24606, .45404, .03713, .00272, + -.00140, .02603, .05641, + .54000, .23993, .41751, .03607, .00322, + -.00064, .02541, .05422, + .53103, .23441, .38759, .03509, .00359, + -.00006, .02482, .05231 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52187, .22890, .36015, .03411, .00390, + .00046, .02423, .05042, + .51416, .22439, .33929, .03329, .00412, + .00083, .02371, .04891, + .50477, .21897, .31610, .03230, .00432, + .00120, .02307, .04712, + .49645, .21428, .29730, .03144, .00447, + .00150, .02250, .04559, + .48883, .21005, .28136, .03068, .00457, + .00173, .02199, .04420, + .47915, .20471, .26267, .02969, .00468, + .00199, .02133, .04254, + .47007, .19981, .24663, .02879, .00476, + .00220, .02073, .04104, + .46165, .19534, .23278, .02798, .00480, + .00235, .02017, .03966 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45323, .19089, .21992, .02717, .00483, + .00249, .01962, .03834, + .44508, .18666, .20826, .02640, .00484, + .00261, .01909, .03708, + .43745, .18272, .19799, .02569, .00484, + .00270, .01861, .03591, + .43027, .17907, .18894, .02504, .00483, + .00277, .01814, .03487, + .42319, .17546, .18036, .02441, .00481, + .00283, .01769, .03386, + .41621, .17197, .17246, .02378, .00479, + .00289, .01726, .03289, + .40971, .16875, .16537, .02321, .00476, + .00292, .01685, .03199, + .40354, .16571, .15902, .02268, .00473, + .00295, .01648, .03117 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39743, .16272, .15294, .02217, .00469, + .00297, .01610, .03035, + .39143, .15981, .14725, .02165, .00466, + .00300, .01574, .02958, + .38580, .15707, .14207, .02117, .00461, + .00300, .01540, .02888, + .38051, .15452, .13738, .02072, .00457, + .00301, .01509, .02821, + .37518, .15196, .13285, .02029, .00453, + .00301, .01478, .02755 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62563, .30006, .86708, .03683, .00000, + .00000, .02185, .06706, + .62348, .29592, .80613, .03684, .00000, + .00000, .02244, .06549, + .61823, .28928, .73734, .03663, -.00658, + .00000, .02295, .06303, + .61302, .28423, .68042, .03635, -.00505, + .00000, .02312, .06122, + .60679, .27864, .62642, .03587, -.00378, + .00000, .02314, .05929, + .60076, .27380, .58404, .03538, -.00284, + .00000, .02306, .05763, + .59461, .26911, .54672, .03485, -.00202, + .00000, .02291, .05602, + .58775, .26410, .51030, .03423, -.00126, + .00000, .02271, .05435 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58146, .25975, .48113, .03367, -.00069, + .00000, .02246, .05293, + .57522, .25553, .45493, .03311, -.00020, + .00000, .02221, .05156, + .57019, .25221, .43547, .03265, .00015, + .00000, .02199, .05052, + .55910, .24515, .39764, .03167, .00081, + .00000, .02144, .04831, + .54919, .23909, .37044, .03079, .00127, + -.00181, .02096, .04647, + .53793, .23241, .33888, .02979, .00170, + -.00113, .02041, .04450, + .52609, .22559, .30973, .02876, .00207, + -.00057, .01979, .04250, + .51531, .21952, .28608, .02784, .00234, + -.00015, .01922, .04078 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50447, .21352, .26460, .02690, .00256, + .00021, .01864, .03911, + .49544, .20867, .24836, .02616, .00271, + .00048, .01816, .03774, + .48455, .20284, .23038, .02525, .00286, + .00074, .01757, .03620, + .47502, .19783, .21590, .02448, .00297, + .00096, .01708, .03487, + .46636, .19334, .20368, .02381, .00304, + .00112, .01664, .03368, + .45540, .18777, .18950, .02295, .00311, + .00130, .01605, .03225, + .44526, .18265, .17734, .02217, .00316, + .00144, .01553, .03098, + .43595, .17798, .16689, .02145, .00319, + .00155, .01506, .02981 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42667, .17338, .15729, .02075, .00320, + .00165, .01459, .02871, + .41777, .16901, .14858, .02009, .00321, + .00173, .01415, .02768, + .40947, .16499, .14092, .01949, .00321, + .00179, .01374, .02673, + .40172, .16127, .13420, .01894, .00320, + .00184, .01335, .02588, + .39410, .15763, .12788, .01839, .00319, + .00188, .01298, .02507, + .38664, .15412, .12204, .01789, .00317, + .00192, .01263, .02426, + .37970, .15086, .11683, .01741, .00315, + .00194, .01232, .02353, + .37317, .14782, .11218, .01696, .00313, + .00196, .01200, .02285 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36673, .14483, .10772, .01652, .00310, + .00198, .01170, .02221, + .36043, .14194, .10355, .01613, .00307, + .00199, .01141, .02158, + .35450, .13924, .09978, .01575, .00304, + .00199, .01115, .02098, + .34896, .13672, .09637, .01541, .00302, + .00199, .01091, .02043, + .34342, .13421, .09307, .01505, .00298, + .00199, .01065, .01992 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63796, .29564, .69626, .03204, .00000, + .00000, .01904, .05684, + .63280, .29019, .64176, .03186, .00000, + .00000, .01929, .05502, + .62332, .28184, .58016, .03136, -.00523, + .00000, .01936, .05238, + .61530, .27566, .53123, .03086, -.00405, + .00000, .01930, .05046, + .60622, .26903, .48521, .03023, -.00306, + .00000, .01914, .04850, + .59789, .26334, .44961, .02964, -.00235, + .00000, .01890, .04684, + .58965, .25788, .41850, .02904, -.00172, + .00000, .01865, .04529, + .58069, .25215, .38840, .02838, -.00115, + .00000, .01834, .04369 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57268, .24719, .36444, .02779, -.00072, + .00000, .01805, .04234, + .56483, .24245, .34317, .02720, -.00036, + .00000, .01773, .04106, + .55860, .23877, .32741, .02676, -.00008, + .00000, .01746, .04008, + .54511, .23100, .29697, .02577, .00041, + .00000, .01693, .03803, + .53333, .22435, .27527, .02490, .00074, + -.00139, .01644, .03642, + .52013, .21715, .25041, .02397, .00107, + -.00089, .01586, .03465, + .50644, .20985, .22764, .02301, .00133, + -.00049, .01530, .03291, + .49414, .20342, .20931, .02216, .00152, + -.00019, .01478, .03140 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48187, .19712, .19274, .02133, .00169, + .00008, .01426, .02995, + .47181, .19200, .18030, .02066, .00179, + .00027, .01384, .02881, + .45975, .18597, .16664, .01984, .00189, + .00046, .01333, .02748, + .44927, .18080, .15568, .01914, .00197, + .00061, .01289, .02637, + .43983, .17617, .14648, .01853, .00203, + .00073, .01249, .02541, + .42796, .17046, .13585, .01777, .00208, + .00085, .01201, .02423, + .41706, .16527, .12676, .01712, .00211, + .00095, .01157, .02317, + .40706, .16057, .11900, .01653, .00213, + .00104, .01117, .02222 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39722, .15596, .11188, .01594, .00214, + .00110, .01080, .02129, + .38783, .15159, .10546, .01538, .00215, + .00115, .01045, .02044, + .37912, .14757, .09986, .01486, .00214, + .00119, .01011, .01967, + .37102, .14390, .09493, .01440, .00214, + .00123, .00979, .01899, + .36307, .14030, .09031, .01395, .00212, + .00125, .00948, .01835, + .35532, .13686, .08605, .01351, .00212, + .00128, .00921, .01770, + .34816, .13369, .08224, .01312, .00210, + .00130, .00894, .01713, + .34147, .13071, .07886, .01276, .00208, + .00131, .00870, .01661 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33488, .12779, .07564, .01240, .00207, + .00132, .00847, .01610, + .32845, .12496, .07263, .01206, .00204, + .00132, .00824, .01561, + .32243, .12233, .06991, .01175, .00202, + .00132, .00802, .01516, + .31681, .11991, .06744, .01147, .00201, + .00133, .00783, .01474, + .31118, .11747, .06508, .01118, .00199, + .00133, .00763, .01434 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64286, .28898, .54704, .02865, .00000, + .00000, .01593, .04680, + .63473, .28228, .50026, .02815, .00000, + .00000, .01594, .04503, + .62127, .27227, .44742, .02728, -.00410, + .00000, .01586, .04243, + .61064, .26496, .40659, .02653, -.00319, + .00000, .01567, .04071, + .59888, .25742, .36870, .02576, -.00244, + .00000, .01541, .03887, + .58850, .25090, .33963, .02505, -.00188, + .00000, .01513, .03738, + .57834, .24482, .31443, .02438, -.00141, + .00000, .01484, .03598, + .56744, .23849, .29024, .02369, -.00099, + .00000, .01450, .03453 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55794, .23305, .27121, .02306, -.00067, + .00000, .01422, .03327, + .54872, .22789, .25430, .02247, -.00039, + .00000, .01393, .03214, + .54144, .22386, .24187, .02199, -.00019, + .00000, .01369, .03129, + .52586, .21550, .21803, .02102, .00017, + .00000, .01317, .02956, + .51244, .20852, .20119, .02021, .00042, + -.00105, .01272, .02812, + .49766, .20095, .18208, .01931, .00065, + -.00070, .01223, .02660, + .48253, .19334, .16465, .01842, .00085, + -.00040, .01171, .02513, + .46903, .18670, .15075, .01765, .00099, + -.00018, .01124, .02386 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45566, .18023, .13829, .01692, .00111, + .00001, .01080, .02264, + .44481, .17501, .12897, .01628, .00118, + .00015, .01046, .02169, + .43189, .16888, .11876, .01556, .00126, + .00029, .01002, .02063, + .42071, .16365, .11063, .01497, .00132, + .00039, .00965, .01973, + .41067, .15905, .10384, .01446, .00135, + .00047, .00933, .01892, + .39821, .15335, .09602, .01382, .00139, + .00057, .00893, .01795, + .38679, .14820, .08939, .01323, .00141, + .00063, .00856, .01710, + .37637, .14357, .08371, .01272, .00143, + .00069, .00823, .01635 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36622, .13903, .07854, .01222, .00144, + .00073, .00792, .01565, + .35655, .13475, .07388, .01176, .00144, + .00077, .00764, .01499, + .34759, .13085, .06983, .01135, .00144, + .00080, .00738, .01438, + .33934, .12728, .06627, .01096, .00143, + .00082, .00714, .01384, + .33130, .12379, .06296, .01058, .00143, + .00084, .00690, .01331, + .32347, .12045, .05991, .01024, .00142, + .00086, .00668, .01282, + .31624, .11737, .05720, .00992, .00140, + .00087, .00648, .01238, + .30952, .11452, .05478, .00962, .00139, + .00088, .00629, .01198 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30293, .11174, .05250, .00932, .00138, + .00089, .00610, .01158, + .29651, .10905, .05037, .00904, .00137, + .00089, .00592, .01120, + .29051, .10656, .04843, .00879, .00136, + .00090, .00575, .01085, + .28494, .10425, .04670, .00856, .00133, + .00089, .00561, .01053, + .27938, .10197, .04502, .00833, .00132, + .00089, .00545, .01023 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64238, .27871, .41815, .02467, .00000, + .00000, .01357, .03841, + .63117, .27099, .37955, .02402, .00000, + .00000, .01346, .03664, + .61365, .25964, .33612, .02300, -.00316, + .00000, .01317, .03423, + .60033, .25159, .30333, .02225, -.00248, + .00000, .01288, .03254, + .58610, .24324, .27312, .02143, -.00191, + .00000, .01253, .03091, + .57357, .23633, .25017, .02078, -.00150, + .00000, .01220, .02950, + .56169, .22976, .23043, .02011, -.00114, + .00000, .01189, .02822, + .54918, .22291, .21162, .01938, -.00082, + .00000, .01159, .02695 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53823, .21718, .19692, .01880, -.00058, + .00000, .01127, .02591, + .52774, .21174, .18397, .01823, -.00038, + .00000, .01097, .02496, + .51955, .20753, .17449, .01779, -.00023, + .00000, .01073, .02422, + .50224, .19883, .15639, .01688, .00003, + .00000, .01025, .02269, + .48751, .19167, .14366, .01615, .00022, + -.00080, .00984, .02149, + .47142, .18391, .12930, .01535, .00039, + -.00054, .00940, .02024, + .45510, .17621, .11633, .01456, .00053, + -.00033, .00896, .01902, + .44067, .16951, .10606, .01388, .00064, + -.00016, .00857, .01798 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42654, .16302, .09690, .01321, .00072, + -.00003, .00818, .01699, + .41509, .15781, .09009, .01271, .00078, + .00007, .00786, .01625, + .40155, .15179, .08269, .01211, .00084, + .00017, .00751, .01534, + .38995, .14665, .07682, .01159, .00087, + .00024, .00722, .01461, + .37964, .14207, .07195, .01113, .00090, + .00031, .00694, .01400, + .36681, .13651, .06633, .01059, .00093, + .00037, .00663, .01323, + .35515, .13150, .06161, .01012, .00094, + .00042, .00635, .01255, + .34462, .12700, .05761, .00969, .00096, + .00046, .00609, .01194 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33433, .12266, .05394, .00928, .00096, + .00049, .00582, .01138, + .32455, .11858, .05066, .00891, .00096, + .00052, .00558, .01087, + .31556, .11483, .04780, .00859, .00096, + .00054, .00538, .01039, + .30733, .11143, .04532, .00827, .00096, + .00055, .00519, .00996, + .29933, .10813, .04300, .00796, .00096, + .00057, .00501, .00955, + .29157, .10497, .04088, .00768, .00095, + .00058, .00483, .00919, + .28443, .10208, .03899, .00741, .00094, + .00058, .00466, .00887, + .27783, .09940, .03732, .00717, .00093, + .00059, .00452, .00855 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27137, .09677, .03573, .00693, .00093, + .00060, .00439, .00824, + .26508, .09426, .03425, .00672, .00092, + .00060, .00425, .00795, + .25924, .09194, .03291, .00652, .00090, + .00060, .00412, .00768, + .25382, .08979, .03171, .00634, .00090, + .00060, .00400, .00745, + .24844, .08765, .03055, .00615, .00088, + .00059, .00389, .00722 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .63550, .26662, .30921, .02132, .00000, + .00000, .01128, .03079, + .62159, .25783, .27855, .02052, .00000, + .00000, .01107, .02924, + .60025, .24545, .24438, .01938, -.00242, + .00000, .01065, .02707, + .58449, .23679, .21885, .01864, -.00191, + .00000, .01034, .02558, + .56802, .22787, .19559, .01783, -.00148, + .00000, .01002, .02409, + .55383, .22048, .17810, .01713, -.00117, + .00000, .00969, .02292, + .54037, .21360, .16317, .01648, -.00091, + .00000, .00938, .02187, + .52627, .20654, .14905, .01585, -.00067, + .00000, .00905, .02079 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51420, .20058, .13805, .01531, -.00049, + .00000, .00881, .01985, + .50272, .19498, .12847, .01477, -.00034, + .00000, .00853, .01904, + .49382, .19066, .12148, .01434, -.00023, + .00000, .00832, .01845, + .47510, .18180, .10822, .01350, -.00004, + .00000, .00789, .01723, + .45942, .17456, .09896, .01281, .00010, + -.00060, .00753, .01625, + .44234, .16681, .08858, .01210, .00022, + -.00042, .00715, .01523, + .42520, .15915, .07925, .01145, .00033, + -.00026, .00676, .01422, + .41017, .15254, .07192, .01089, .00041, + -.00014, .00645, .01334 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39555, .14616, .06546, .01034, .00046, + -.00005, .00615, .01252, + .38377, .14109, .06067, .00989, .00050, + .00002, .00590, .01194, + .36997, .13517, .05550, .00933, .00055, + .00010, .00558, .01129, + .35817, .13018, .05140, .00891, .00057, + .00015, .00533, .01072, + .34764, .12582, .04799, .00857, .00060, + .00020, .00513, .01021, + .33480, .12046, .04414, .00810, .00062, + .00025, .00487, .00962, + .32316, .11569, .04089, .00772, .00063, + .00028, .00465, .00909, + .31260, .11143, .03816, .00740, .00064, + .00031, .00445, .00862 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30245, .10728, .03568, .00703, .00064, + .00033, .00426, .00819, + .29284, .10342, .03347, .00672, .00064, + .00034, .00406, .00778, + .28398, .09992, .03156, .00645, .00065, + .00036, .00388, .00742, + .27590, .09671, .02991, .00619, .00064, + .00037, .00374, .00711, + .26805, .09363, .02834, .00595, .00064, + .00038, .00360, .00683, + .26052, .09068, .02693, .00572, .00064, + .00039, .00346, .00654, + .25362, .08799, .02567, .00552, .00063, + .00040, .00334, .00626, + .24720, .08552, .02456, .00533, .00062, + .00039, .00323, .00604 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24094, .08310, .02349, .00514, .00062, + .00040, .00312, .00583, + .23490, .08079, .02251, .00497, .00061, + .00040, .00302, .00562, + .22929, .07866, .02164, .00481, .00061, + .00040, .00293, .00541, + .22412, .07669, .02083, .00467, .00060, + .00040, .00284, .00523, + .21898, .07474, .02008, .00452, .00059, + .00040, .00275, .00506 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62335, .25229, .21821, .01796, .00000, + .00000, .00928, .02447, + .60659, .24297, .19493, .01720, .00000, + .00000, .00899, .02306, + .58173, .22985, .16922, .01616, -.00183, + .00000, .00855, .02111, + .56401, .22063, .15027, .01533, -.00145, + .00000, .00826, .01983, + .54538, .21146, .13318, .01460, -.00113, + .00000, .00794, .01854, + .52977, .20374, .12043, .01395, -.00090, + .00000, .00763, .01756, + .51512, .19665, .10961, .01332, -.00071, + .00000, .00734, .01670, + .49990, .18944, .09949, .01265, -.00054, + .00000, .00704, .01585 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48687, .18342, .09172, .01215, -.00040, + .00000, .00677, .01511, + .47456, .17783, .08492, .01174, -.00030, + .00000, .00657, .01441, + .46501, .17355, .07999, .01142, -.00022, + .00000, .00643, .01385, + .44522, .16475, .07082, .01070, -.00007, + .00000, .00608, .01282, + .42885, .15753, .06439, .01015, .00003, + -.00045, .00574, .01203, + .41123, .14986, .05721, .00953, .00012, + -.00032, .00540, .01125, + .39365, .14238, .05086, .00889, .00019, + -.00021, .00508, .01048, + .37836, .13595, .04591, .00836, .00025, + -.00013, .00482, .00984 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36351, .12979, .04157, .00791, .00030, + -.00005, .00455, .00924, + .35162, .12492, .03839, .00755, .00033, + .00000, .00437, .00875, + .33767, .11930, .03494, .00718, .00036, + .00005, .00414, .00819, + .32589, .11457, .03229, .00683, .00037, + .00008, .00393, .00773, + .31555, .11040, .03008, .00650, .00039, + .00012, .00374, .00735, + .30280, .10536, .02760, .00614, .00041, + .00016, .00356, .00690, + .29133, .10085, .02552, .00581, .00041, + .00018, .00338, .00651, + .28104, .09681, .02377, .00554, .00042, + .00020, .00323, .00617 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27105, .09300, .02220, .00528, .00042, + .00022, .00306, .00584, + .26171, .08940, .02079, .00503, .00042, + .00023, .00292, .00555, + .25324, .08614, .01958, .00479, .00043, + .00024, .00279, .00528, + .24544, .08320, .01855, .00459, .00043, + .00025, .00268, .00504, + .23790, .08035, .01761, .00440, .00043, + .00026, .00257, .00480, + .23069, .07765, .01671, .00422, .00043, + .00027, .00247, .00460, + .22408, .07519, .01594, .00407, .00042, + .00027, .00237, .00441, + .21799, .07292, .01525, .00391, .00042, + .00028, .00230, .00423 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21204, .07073, .01461, .00377, .00041, + .00027, .00221, .00406, + .20633, .06862, .01400, .00364, .00042, + .00028, .00213, .00391, + .20103, .06667, .01346, .00351, .00041, + .00028, .00206, .00378, + .19616, .06489, .01298, .00340, .00040, + .00028, .00198, .00364, + .19136, .06313, .01251, .00326, .00040, + .00029, .00193, .00352 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60576, .23659, .14316, .01483, .00000, + .00000, .00767, .01911, + .58659, .22675, .12658, .01408, .00000, + .00000, .00732, .01790, + .55894, .21288, .10858, .01300, -.00138, + .00000, .00690, .01633, + .53922, .20356, .09514, .01238, -.00110, + .00000, .00661, .01520, + .51914, .19415, .08338, .01162, -.00086, + .00000, .00622, .01421, + .50223, .18643, .07463, .01106, -.00069, + .00000, .00596, .01340, + .48649, .17934, .06736, .01056, -.00056, + .00000, .00570, .01263, + .47030, .17214, .06061, .01005, -.00043, + .00000, .00547, .01185 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45665, .16614, .05544, .00958, -.00034, + .00000, .00525, .01131, + .44385, .16057, .05103, .00915, -.00025, + .00000, .00505, .01079, + .43397, .15634, .04784, .00886, -.00019, + .00000, .00486, .01038, + .41347, .14771, .04190, .00830, -.00009, + .00000, .00455, .00959, + .39679, .14070, .03787, .00777, -.00001, + -.00034, .00432, .00893, + .37885, .13337, .03330, .00728, .00006, + -.00024, .00406, .00826, + .36104, .12618, .02931, .00677, .00012, + -.00016, .00379, .00767, + .34569, .12001, .02625, .00636, .00015, + -.00011, .00357, .00719 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33096, .11416, .02358, .00596, .00019, + -.00006, .00337, .00672, + .31922, .10955, .02165, .00565, .00022, + -.00001, .00321, .00633, + .30551, .10424, .01961, .00533, .00024, + .00002, .00303, .00591, + .29392, .09978, .01806, .00507, .00026, + .00005, .00287, .00557, + .28374, .09588, .01678, .00482, .00026, + .00006, .00275, .00529, + .27139, .09120, .01534, .00452, .00028, + .00009, .00259, .00494, + .26026, .08705, .01416, .00429, .00028, + .00011, .00245, .00463, + .25029, .08335, .01318, .00409, .00028, + .00012, .00232, .00438 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24082, .07979, .01231, .00384, .00029, + .00013, .00220, .00415, + .23189, .07650, .01156, .00363, .00029, + .00014, .00209, .00391, + .22375, .07354, .01091, .00348, .00030, + .00015, .00199, .00370, + .21633, .07085, .01034, .00333, .00030, + .00016, .00192, .00353, + .20920, .06827, .00981, .00319, .00030, + .00016, .00184, .00337, + .20237, .06584, .00935, .00305, .00030, + .00017, .00176, .00320, + .19615, .06363, .00892, .00294, .00030, + .00017, .00169, .00306, + .19045, .06159, .00855, .00282, .00029, + .00017, .00163, .00294 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18490, .05960, .00822, .00269, .00030, + .00018, .00156, .00281, + .17958, .05771, .00790, .00260, .00029, + .00018, .00151, .00270, + .17466, .05598, .00761, .00249, .00029, + .00018, .00145, .00260, + .17012, .05438, .00735, .00242, .00029, + .00019, .00140, .00251, + .16561, .05283, .00710, .00234, .00029, + .00019, .00135, .00242 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58337, .22003, .08221, .01229, .00000, + .00000, .00601, .01456, + .56213, .20989, .07130, .01158, .00000, + .00000, .00578, .01354, + .53196, .19581, .05999, .01059, -.00103, + .00000, .00536, .01226, + .51094, .18628, .05147, .00992, -.00083, + .00000, .00504, .01144, + .48952, .17690, .04405, .00927, -.00065, + .00000, .00478, .01063, + .47183, .16917, .03875, .00875, -.00054, + .00000, .00458, .00993, + .45543, .16214, .03434, .00829, -.00043, + .00000, .00436, .00934, + .43862, .15510, .03038, .00783, -.00034, + .00000, .00412, .00878 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42452, .14921, .02743, .00748, -.00027, + .00000, .00395, .00831, + .41135, .14380, .02490, .00716, -.00021, + .00000, .00378, .00788, + .40123, .13969, .02311, .00689, -.00016, + .00000, .00365, .00757, + .38064, .13133, .01992, .00634, -.00009, + .00000, .00339, .00696, + .36374, .12466, .01779, .00596, -.00004, + -.00026, .00320, .00645, + .34581, .11765, .01523, .00553, .00001, + -.00019, .00299, .00599, + .32817, .11082, .01308, .00517, .00006, + -.00013, .00278, .00552, + .31304, .10503, .01149, .00484, .00009, + -.00008, .00262, .00511 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29857, .09952, .01018, .00452, .00011, + -.00005, .00246, .00477, + .28706, .09523, .00927, .00429, .00013, + -.00002, .00231, .00449, + .27378, .09031, .00829, .00401, .00015, + .00000, .00218, .00419, + .26264, .08619, .00757, .00377, .00016, + .00002, .00207, .00395, + .25288, .08261, .00702, .00355, .00017, + .00003, .00196, .00373, + .24101, .07829, .00639, .00333, .00018, + .00004, .00185, .00348, + .23044, .07448, .00591, .00314, .00019, + .00005, .00174, .00324, + .22103, .07113, .00554, .00296, .00020, + .00006, .00163, .00303 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21198, .06791, .00517, .00280, .00021, + .00007, .00155, .00286, + .20354, .06493, .00486, .00266, .00021, + .00007, .00148, .00272, + .19591, .06225, .00461, .00252, .00022, + .00008, .00140, .00258, + .18899, .05985, .00440, .00241, .00022, + .00008, .00134, .00245, + .18234, .05753, .00422, .00230, .00023, + .00009, .00128, .00232, + .17600, .05535, .00404, .00220, .00023, + .00009, .00123, .00220, + .17021, .05338, .00389, .00211, .00023, + .00009, .00119, .00209, + .16492, .05157, .00377, .00202, .00023, + .00010, .00113, .00200 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15979, .04982, .00365, .00195, .00023, + .00010, .00110, .00191, + .15487, .04815, .00354, .00187, .00023, + .00010, .00105, .00183, + .15034, .04662, .00345, .00180, .00023, + .00010, .00101, .00176, + .14619, .04521, .00336, .00174, .00023, + .00011, .00096, .00170, + .14210, .04383, .00328, .00167, .00023, + .00011, .00093, .00164 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .55681, .20259, .03314, .00996, .00000, + .00000, .00471, .01095, + .53390, .19236, .02714, .00934, .00000, + .00000, .00442, .01018, + .50177, .17838, .02159, .00848, -.00076, + .00000, .00404, .00912, + .47975, .16894, .01710, .00787, -.00062, + .00000, .00380, .00845, + .45745, .15967, .01328, .00738, -.00049, + .00000, .00358, .00781, + .43915, .15217, .01071, .00694, -.00040, + .00000, .00339, .00728, + .42236, .14538, .00876, .00653, -.00033, + .00000, .00319, .00682, + .40531, .13852, .00705, .00615, -.00026, + .00000, .00299, .00638 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39104, .13289, .00585, .00586, -.00021, + .00000, .00287, .00598, + .37782, .12771, .00488, .00558, -.00017, + .00000, .00275, .00564, + .36772, .12377, .00423, .00535, -.00014, + .00000, .00266, .00537, + .34708, .11584, .00320, .00491, -.00008, + .00000, .00245, .00494, + .33040, .10953, .00255, .00461, -.00005, + -.00019, .00226, .00460, + .31282, .10293, .00163, .00428, -.00001, + -.00014, .00212, .00420, + .29561, .09654, .00100, .00394, .00002, + -.00010, .00197, .00384, + .28092, .09118, .00057, .00368, .00004, + -.00007, .00184, .00356 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26693, .08612, .00026, .00343, .00005, + -.00005, .00171, .00331, + .25589, .08215, .00011, .00324, .00007, + -.00003, .00163, .00310, + .24322, .07759, -.00001, .00302, .00008, + -.00002, .00151, .00287, + .23260, .07384, -.00006, .00284, .00009, + -.00001, .00143, .00269, + .22330, .07059, -.00012, .00271, .00010, + .00000, .00136, .00253, + .21204, .06671, -.00008, .00255, .00011, + .00001, .00125, .00234, + .20210, .06325, -.00006, .00237, .00011, + .00001, .00118, .00220, + .19335, .06020, -.00003, .00222, .00012, + .00002, .00113, .00207 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18488, .05732, .00005, .00209, .00013, + .00003, .00105, .00194, + .17704, .05467, .00011, .00195, .00013, + .00003, .00099, .00181, + .17002, .05227, .00017, .00185, .00013, + .00003, .00094, .00170, + .16361, .05013, .00023, .00175, .00014, + .00004, .00089, .00161, + .15745, .04809, .00027, .00169, .00014, + .00004, .00086, .00154, + .15163, .04616, .00033, .00160, .00014, + .00004, .00082, .00146, + .14634, .04440, .00039, .00153, .00014, + .00004, .00077, .00140, + .14152, .04281, .00043, .00147, .00015, + .00005, .00074, .00133 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13686, .04127, .00047, .00140, .00015, + .00005, .00072, .00127, + .13239, .03981, .00051, .00134, .00015, + .00005, .00068, .00123, + .12829, .03847, .00055, .00129, .00015, + .00005, .00065, .00117, + .12452, .03725, .00058, .00125, .00015, + .00005, .00063, .00113, + .12082, .03605, .00062, .00120, .00015, + .00005, .00060, .00108 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .52651, .18456, -.00557, .00779, .00000, + .00000, .00368, .00818, + .50243, .17437, -.00734, .00719, .00000, + .00000, .00347, .00754, + .46892, .16061, -.00799, .00647, -.00057, + .00000, .00310, .00672, + .44615, .15151, -.00931, .00601, -.00046, + .00000, .00290, .00621, + .42346, .14250, -.01014, .00562, -.00037, + .00000, .00273, .00566, + .40491, .13528, -.01037, .00527, -.00031, + .00000, .00251, .00526, + .38802, .12875, -.01049, .00495, -.00025, + .00000, .00238, .00491, + .37099, .12225, -.01047, .00462, -.00020, + .00000, .00227, .00458 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35678, .11695, -.01026, .00437, -.00016, + .00000, .00215, .00426, + .34364, .11204, -.00996, .00414, -.00014, + .00000, .00202, .00403, + .33365, .10831, -.00966, .00395, -.00012, + .00000, .00193, .00387, + .31348, .10089, -.00918, .00361, -.00008, + .00000, .00180, .00353, + .29723, .09501, -.00853, .00334, -.00005, + -.00014, .00168, .00325, + .28015, .08892, -.00817, .00311, -.00003, + -.00010, .00155, .00296, + .26362, .08306, -.00770, .00285, -.00001, + -.00008, .00142, .00272, + .24957, .07812, -.00723, .00262, .00000, + -.00006, .00132, .00253 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23625, .07347, -.00675, .00243, .00002, + -.00004, .00123, .00235, + .22581, .06987, -.00633, .00229, .00003, + -.00003, .00117, .00219, + .21381, .06581, -.00581, .00213, .00003, + -.00003, .00108, .00200, + .20380, .06244, -.00539, .00201, .00004, + -.00002, .00103, .00186, + .19514, .05951, -.00500, .00188, .00005, + -.00001, .00097, .00175, + .18467, .05603, -.00454, .00175, .00005, + -.00001, .00091, .00163, + .17545, .05296, -.00414, .00164, .00006, + .00000, .00084, .00152, + .16731, .05024, -.00377, .00153, .00006, + .00000, .00078, .00143 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15957, .04770, -.00343, .00143, .00007, + .00001, .00076, .00131, + .15237, .04537, -.00311, .00135, .00007, + .00001, .00071, .00123, + .14586, .04328, -.00283, .00128, .00007, + .00001, .00067, .00116, + .14005, .04141, -.00260, .00121, .00008, + .00002, .00063, .00111, + .13450, .03964, -.00238, .00115, .00008, + .00002, .00060, .00105, + .12921, .03796, -.00215, .00110, .00008, + .00002, .00056, .00099, + .12443, .03643, -.00196, .00106, .00008, + .00002, .00054, .00095, + .12008, .03504, -.00179, .00100, .00008, + .00002, .00052, .00090 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11590, .03372, -.00164, .00094, .00008, + .00002, .00050, .00087, + .11190, .03247, -.00149, .00090, .00009, + .00003, .00047, .00082, + .10821, .03133, -.00136, .00086, .00009, + .00003, .00046, .00079, + .10484, .03028, -.00123, .00083, .00009, + .00003, .00044, .00075, + .10154, .02925, -.00113, .00081, .00009, + .00003, .00043, .00073 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49322, .16639, -.03510, .00581, .00000, + .00000, .00283, .00605, + .46828, .15642, -.03353, .00536, .00000, + .00000, .00264, .00557, + .43395, .14311, -.03032, .00479, -.00041, + .00000, .00238, .00492, + .41096, .13431, -.02887, .00441, -.00034, + .00000, .00224, .00447, + .38823, .12575, -.02724, .00398, -.00028, + .00000, .00206, .00413, + .36977, .11887, -.02580, .00372, -.00023, + .00000, .00195, .00381, + .35296, .11272, -.02438, .00349, -.00020, + .00000, .00185, .00353, + .33609, .10664, -.02285, .00327, -.00016, + .00000, .00172, .00323 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32221, .10164, -.02158, .00306, -.00014, + .00000, .00162, .00307, + .30943, .09709, -.02036, .00285, -.00012, + .00000, .00155, .00291, + .29974, .09365, -.01944, .00273, -.00010, + .00000, .00147, .00279, + .28016, .08681, -.01757, .00246, -.00008, + .00000, .00134, .00254, + .26455, .08141, -.01605, .00228, -.00006, + -.00010, .00124, .00235, + .24829, .07587, -.01475, .00210, -.00004, + -.00008, .00116, .00213, + .23258, .07055, -.01343, .00191, -.00003, + -.00007, .00107, .00194, + .21933, .06611, -.01228, .00174, -.00002, + -.00006, .00098, .00177 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20684, .06197, -.01123, .00161, -.00001, + -.00005, .00091, .00162, + .19706, .05876, -.01040, .00152, .00000, + -.00004, .00085, .00150, + .18590, .05511, -.00946, .00140, .00000, + -.00004, .00081, .00140, + .17665, .05210, -.00871, .00131, .00001, + -.00003, .00074, .00133, + .16863, .04952, -.00805, .00124, .00001, + -.00003, .00071, .00123, + .15905, .04646, -.00729, .00113, .00002, + -.00002, .00066, .00115, + .15060, .04379, -.00663, .00107, .00002, + -.00002, .00061, .00106, + .14313, .04145, -.00603, .00100, .00002, + -.00002, .00057, .00097 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13612, .03923, -.00552, .00094, .00003, + -.00001, .00053, .00092, + .12963, .03719, -.00504, .00087, .00003, + -.00001, .00051, .00088, + .12379, .03538, -.00460, .00082, .00003, + -.00001, .00048, .00081, + .11855, .03376, -.00424, .00077, .00003, + -.00001, .00045, .00078, + .11355, .03222, -.00389, .00072, .00003, + -.00001, .00043, .00073, + .10885, .03080, -.00359, .00068, .00004, + .00000, .00040, .00069, + .10459, .02950, -.00331, .00065, .00004, + .00000, .00039, .00065, + .10074, .02834, -.00307, .00062, .00004, + .00000, .00037, .00062 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09704, .02721, -.00284, .00057, .00004, + .00000, .00036, .00058, + .09349, .02614, -.00263, .00056, .00004, + .00000, .00033, .00056, + .09023, .02517, -.00245, .00055, .00004, + .00000, .00032, .00054, + .08725, .02429, -.00228, .00054, .00004, + .00000, .00031, .00051, + .08435, .02342, -.00212, .00052, .00004, + .00000, .00030, .00048 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .45760, .14914, -.05786, .00485, .00000, + .00000, .00188, .00418, + .43226, .13959, -.05350, .00451, .00000, + .00000, .00175, .00373, + .39810, .12677, -.04712, .00382, -.00031, + .00000, .00159, .00337, + .37520, .11848, -.04364, .00359, -.00025, + .00000, .00147, .00300, + .35275, .11039, -.04009, .00321, -.00020, + .00000, .00134, .00277, + .33460, .10398, -.03718, .00294, -.00017, + .00000, .00124, .00260, + .31821, .09826, -.03454, .00272, -.00015, + .00000, .00116, .00241, + .30190, .09259, -.03196, .00251, -.00013, + .00000, .00111, .00221 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28848, .08798, -.02980, .00236, -.00011, + .00000, .00102, .00207, + .27616, .08379, -.02789, .00225, -.00010, + .00000, .00096, .00194, + .26687, .08065, -.02647, .00217, -.00009, + .00000, .00095, .00181, + .24825, .07435, -.02361, .00196, -.00007, + .00000, .00086, .00164, + .23348, .06949, -.02146, .00185, -.00006, + -.00008, .00078, .00150, + .21819, .06449, -.01940, .00166, -.00005, + -.00007, .00072, .00135, + .20351, .05973, -.01746, .00149, -.00004, + -.00006, .00066, .00123, + .19116, .05574, -.01585, .00137, -.00003, + -.00005, .00060, .00114 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17955, .05204, -.01435, .00126, -.00002, + -.00004, .00055, .00104, + .17056, .04920, -.01325, .00118, -.00002, + -.00004, .00053, .00097, + .16033, .04600, -.01200, .00109, -.00001, + -.00003, .00050, .00089, + .15187, .04336, -.01099, .00103, -.00001, + -.00003, .00046, .00082, + .14457, .04110, -.01016, .00096, -.00001, + -.00003, .00042, .00079, + .13591, .03842, -.00913, .00087, .00000, + -.00002, .00038, .00071, + .12826, .03608, -.00827, .00081, .00000, + -.00002, .00036, .00064, + .12152, .03405, -.00756, .00077, .00000, + -.00002, .00034, .00061 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11526, .03214, -.00690, .00069, .00000, + -.00002, .00033, .00056, + .10946, .03040, -.00629, .00064, .00001, + -.00001, .00030, .00052, + .10424, .02885, -.00579, .00062, .00001, + -.00001, .00028, .00050, + .09960, .02747, -.00535, .00059, .00001, + -.00001, .00027, .00046, + .09518, .02615, -.00492, .00056, .00001, + -.00001, .00026, .00042, + .09101, .02493, -.00454, .00053, .00001, + -.00001, .00025, .00040, + .08726, .02384, -.00420, .00050, .00001, + -.00001, .00023, .00039, + .08388, .02284, -.00392, .00047, .00001, + -.00001, .00022, .00037 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08062, .02188, -.00362, .00044, .00001, + -.00001, .00021, .00034, + .07752, .02098, -.00338, .00042, .00001, + -.00001, .00020, .00033, + .07468, .02017, -.00314, .00041, .00001, + -.00001, .00019, .00031, + .07211, .01943, -.00295, .00040, .00001, + -.00001, .00017, .00030, + .06959, .01870, -.00275, .00038, .00001, + -.00001, .00016, .00029 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42004, .13136, -.07348, .00332, .00000, + .00000, .00147, .00304, + .39484, .12235, -.06697, .00302, .00000, + .00000, .00136, .00273, + .36079, .11042, -.05816, .00270, -.00022, + .00000, .00122, .00236, + .33830, .10271, -.05307, .00250, -.00019, + .00000, .00110, .00215, + .31661, .09529, -.04814, .00222, -.00016, + .00000, .00096, .00196, + .29914, .08938, -.04425, .00204, -.00014, + .00000, .00091, .00180, + .28344, .08414, -.04084, .00190, -.00012, + .00000, .00087, .00166, + .26779, .07900, -.03744, .00177, -.00011, + .00000, .00080, .00151 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25504, .07482, -.03475, .00167, -.00010, + .00000, .00076, .00142, + .24338, .07105, -.03229, .00156, -.00009, + .00000, .00070, .00133, + .23461, .06824, -.03050, .00149, -.00008, + .00000, .00066, .00128, + .21718, .06265, -.02698, .00132, -.00007, + .00000, .00059, .00112, + .20344, .05831, -.02433, .00120, -.00006, + -.00006, .00054, .00102, + .18926, .05385, -.02186, .00110, -.00005, + -.00005, .00051, .00090, + .17569, .04965, -.01953, .00100, -.00004, + -.00004, .00046, .00083, + .16438, .04618, -.01766, .00092, -.00003, + -.00003, .00042, .00076 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15385, .04294, -.01593, .00084, -.00003, + -.00003, .00039, .00071, + .14567, .04047, -.01462, .00079, -.00003, + -.00003, .00036, .00064, + .13643, .03768, -.01317, .00071, -.00002, + -.00002, .00032, .00060, + .12880, .03540, -.01201, .00066, -.00002, + -.00002, .00030, .00056, + .12225, .03347, -.01103, .00063, -.00002, + -.00002, .00027, .00050, + .11452, .03116, -.00993, .00055, -.00002, + -.00002, .00026, .00047, + .10773, .02918, -.00899, .00050, -.00001, + -.00001, .00024, .00045, + .10176, .02745, -.00818, .00048, -.00001, + -.00001, .00023, .00039 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09616, .02583, -.00744, .00046, -.00001, + -.00001, .00020, .00037, + .09105, .02436, -.00680, .00043, -.00001, + -.00001, .00019, .00035, + .08649, .02306, -.00623, .00041, -.00001, + -.00001, .00018, .00032, + .08242, .02189, -.00575, .00038, -.00001, + -.00001, .00017, .00031, + .07856, .02080, -.00529, .00036, -.00001, + -.00001, .00016, .00030, + .07495, .01978, -.00489, .00034, -.00001, + -.00001, .00014, .00027, + .07171, .01887, -.00452, .00032, -.00001, + -.00001, .00014, .00025, + .06876, .01804, -.00420, .00030, -.00001, + -.00001, .00013, .00024 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06593, .01725, -.00392, .00031, -.00001, + -.00001, .00013, .00023, + .06326, .01650, -.00365, .00030, .00000, + .00000, .00012, .00022, + .06083, .01583, -.00340, .00027, .00000, + .00000, .00012, .00020, + .05862, .01522, -.00317, .00026, .00000, + .00000, .00011, .00019, + .05650, .01463, -.00296, .00025, .00000, + .00000, .00010, .00017 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38093, .11432, -.08319, .00229, .00000, + .00000, .00114, .00208, + .35630, .10595, -.07524, .00207, .00000, + .00000, .00103, .00191, + .32338, .09498, -.06472, .00172, -.00016, + .00000, .00089, .00171, + .30184, .08794, -.05856, .00155, -.00013, + .00000, .00081, .00157, + .28084, .08120, -.05269, .00149, -.00011, + .00000, .00079, .00133, + .26423, .07584, -.04809, .00138, -.00010, + .00000, .00070, .00123, + .24939, .07112, -.04403, .00126, -.00009, + .00000, .00063, .00113, + .23472, .06651, -.04017, .00115, -.00008, + .00000, .00057, .00107 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22281, .06280, -.03706, .00107, -.00007, + .00000, .00055, .00095, + .21197, .05945, -.03433, .00100, -.00006, + .00000, .00052, .00089, + .20384, .05697, -.03233, .00096, -.00006, + .00000, .00049, .00084, + .18767, .05202, -.02844, .00086, -.00005, + .00000, .00045, .00076, + .17509, .04820, -.02555, .00074, -.00004, + -.00004, .00042, .00071, + .16213, .04432, -.02275, .00068, -.00003, + -.00003, .00036, .00063, + .14981, .04069, -.02022, .00064, -.00003, + -.00003, .00032, .00056, + .13959, .03769, -.01813, .00057, -.00002, + -.00002, .00030, .00050 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13011, .03492, -.01627, .00051, -.00002, + -.00002, .00027, .00046, + .12280, .03281, -.01489, .00047, -.00002, + -.00002, .00024, .00044, + .11453, .03043, -.01337, .00044, -.00002, + -.00002, .00023, .00040, + .10778, .02850, -.01218, .00042, -.00001, + -.00001, .00022, .00037, + .10201, .02684, -.01116, .00036, -.00001, + -.00001, .00021, .00036, + .09513, .02492, -.00999, .00037, -.00001, + -.00001, .00019, .00030, + .08918, .02326, -.00901, .00033, -.00001, + -.00001, .00016, .00027, + .08402, .02180, -.00816, .00029, -.00001, + -.00001, .00015, .00026 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07915, .02046, -.00743, .00028, -.00001, + -.00001, .00015, .00024, + .07471, .01924, -.00678, .00027, -.00001, + -.00001, .00014, .00022, + .07078, .01816, -.00620, .00024, -.00001, + -.00001, .00013, .00021, + .06728, .01720, -.00570, .00023, -.00001, + -.00001, .00011, .00020, + .06395, .01629, -.00524, .00022, .00000, + .00000, .00010, .00019, + .06086, .01546, -.00483, .00020, .00000, + .00000, .00010, .00017, + .05809, .01470, -.00447, .00020, .00000, + .00000, .00010, .00016, + .05558, .01404, -.00415, .00019, .00000, + .00000, .00009, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05320, .01339, -.00386, .00018, .00000, + .00000, .00009, .00013, + .05094, .01278, -.00358, .00017, .00000, + .00000, .00008, .00012, + .04890, .01225, -.00335, .00015, .00000, + .00000, .00008, .00012, + .04705, .01175, -.00314, .00014, .00000, + .00000, .00008, .00013, + .04522, .01127, -.00295, .00014, .00000, + .00000, .00008, .00012 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34227, .09877, -.08929, .00175, .00000, + .00000, .00067, .00138, + .31833, .09109, -.08016, .00159, .00000, + .00000, .00059, .00127, + .28683, .08108, -.06839, .00140, -.00011, + .00000, .00049, .00104, + .26638, .07472, -.06139, .00124, -.00009, + .00000, .00047, .00090, + .24677, .06866, -.05483, .00108, -.00008, + .00000, .00040, .00081, + .23112, .06388, -.04977, .00099, -.00007, + .00000, .00038, .00075, + .21730, .05969, -.04544, .00092, -.00006, + .00000, .00035, .00069, + .20372, .05560, -.04127, .00086, -.00005, + .00000, .00032, .00062 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19267, .05230, -.03797, .00080, -.00005, + .00000, .00031, .00060, + .18272, .04934, -.03502, .00073, -.00004, + .00000, .00030, .00056, + .17528, .04711, -.03284, .00069, -.00004, + .00000, .00028, .00051, + .16053, .04284, -.02874, .00062, -.00003, + .00000, .00024, .00047, + .14908, .03956, -.02573, .00059, -.00003, + -.00003, .00022, .00041, + .13739, .03621, -.02282, .00053, -.00002, + -.00002, .00020, .00038, + .12641, .03307, -.02014, .00045, -.00002, + -.00002, .00018, .00034, + .11733, .03050, -.01804, .00040, -.00002, + -.00002, .00016, .00032 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10890, .02813, -.01611, .00037, -.00001, + -.00001, .00015, .00029, + .10241, .02634, -.01468, .00034, -.00001, + -.00001, .00014, .00026, + .09516, .02435, -.01313, .00033, -.00001, + -.00001, .00013, .00021, + .08923, .02273, -.01190, .00030, -.00001, + -.00001, .00011, .00020, + .08420, .02135, -.01087, .00028, -.00001, + -.00001, .00010, .00019, + .07824, .01974, -.00972, .00026, -.00001, + -.00001, .00010, .00018, + .07308, .01835, -.00875, .00023, -.00001, + -.00001, .00009, .00017, + .06863, .01716, -.00794, .00021, -.00001, + -.00001, .00009, .00017 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06447, .01604, -.00718, .00019, -.00001, + -.00001, .00008, .00014, + .06066, .01505, -.00653, .00018, .00000, + .00000, .00007, .00013, + .05732, .01416, -.00597, .00017, .00000, + .00000, .00007, .00012, + .05433, .01338, -.00549, .00016, .00000, + .00000, .00007, .00012, + .05150, .01265, -.00503, .00016, .00000, + .00000, .00005, .00010, + .04890, .01196, -.00463, .00014, .00000, + .00000, .00005, .00010, + .04659, .01136, -.00428, .00012, .00000, + .00000, .00006, .00010, + .04447, .01081, -.00398, .00013, .00000, + .00000, .00006, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04243, .01029, -.00369, .00013, .00000, + .00000, .00004, .00009, + .04054, .00981, -.00344, .00013, .00000, + .00000, .00004, .00008, + .03883, .00937, -.00320, .00012, .00000, + .00000, .00005, .00008, + .03729, .00898, -.00300, .00012, .00000, + .00000, .00005, .00007, + .03578, .00859, -.00280, .00011, .00000, + .00000, .00003, .00007 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .30297, .08349, -.09057, .00100, .00000, + .00000, .00055, .00102, + .28042, .07664, -.08080, .00087, .00000, + .00000, .00049, .00086, + .25065, .06779, -.06850, .00083, -.00008, + .00000, .00042, .00070, + .23160, .06215, -.06121, .00076, -.00006, + .00000, .00037, .00066, + .21346, .05677, -.05436, .00065, -.00005, + .00000, .00033, .00059, + .19912, .05264, -.04914, .00058, -.00005, + .00000, .00030, .00054, + .18642, .04900, -.04464, .00053, -.00004, + .00000, .00029, .00049, + .17401, .04546, -.04035, .00050, -.00004, + .00000, .00028, .00041 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16400, .04264, -.03696, .00048, -.00003, + .00000, .00023, .00040, + .15500, .04009, -.03397, .00044, -.00003, + .00000, .00021, .00037, + .14829, .03822, -.03182, .00041, -.00003, + .00000, .00021, .00034, + .13510, .03454, -.02767, .00034, -.00002, + .00000, .00019, .00031, + .12493, .03173, -.02469, .00032, -.00002, + -.00002, .00019, .00028, + .11461, .02891, -.02178, .00028, -.00002, + -.00002, .00015, .00026, + .10489, .02628, -.01912, .00024, -.00001, + -.00001, .00013, .00024, + .09690, .02413, -.01702, .00023, -.00001, + -.00001, .00013, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08954, .02218, -.01514, .00022, -.00001, + -.00001, .00011, .00018, + .08391, .02069, -.01375, .00021, -.00001, + -.00001, .00010, .00017, + .07764, .01905, -.01224, .00017, -.00001, + -.00001, .00009, .00017, + .07256, .01772, -.01106, .00016, -.00001, + -.00001, .00009, .00015, + .06823, .01660, -.01007, .00014, -.00001, + -.00001, .00007, .00014, + .06315, .01529, -.00897, .00015, .00000, + .00000, .00007, .00011, + .05877, .01415, -.00803, .00014, .00000, + .00000, .00006, .00009, + .05499, .01318, -.00726, .00012, .00000, + .00000, .00006, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05148, .01230, -.00656, .00011, .00000, + .00000, .00004, .00010, + .04829, .01149, -.00594, .00009, .00000, + .00000, .00004, .00008, + .04548, .01079, -.00542, .00009, .00000, + .00000, .00005, .00007, + .04300, .01015, -.00497, .00008, .00000, + .00000, .00005, .00007, + .04068, .00957, -.00456, .00007, .00000, + .00000, .00005, .00007, + .03852, .00903, -.00419, .00007, .00000, + .00000, .00005, .00007, + .03657, .00855, -.00386, .00007, .00000, + .00000, .00003, .00007, + .03483, .00813, -.00358, .00007, .00000, + .00000, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03318, .00772, -.00331, .00006, .00000, + .00000, .00003, .00006, + .03163, .00734, -.00308, .00006, .00000, + .00000, .00003, .00005, + .03023, .00699, -.00285, .00006, .00000, + .00000, .00002, .00005, + .02896, .00668, -.00267, .00006, .00000, + .00000, .00002, .00005, + .02774, .00639, -.00249, .00005, .00000, + .00000, .00002, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .22739, .05738, -.08412, .00047, .00000, + .00000, .00019, .00034, + .20817, .05210, -.07428, .00040, .00000, + .00000, .00017, .00032, + .18333, .04537, -.06217, .00035, -.00003, + .00000, .00015, .00030, + .16758, .04117, -.05490, .00030, -.00003, + .00000, .00014, .00025, + .15281, .03722, -.04823, .00023, -.00002, + .00000, .00013, .00022, + .14120, .03419, -.04322, .00024, -.00002, + .00000, .00012, .00020, + .13109, .03155, -.03893, .00022, -.00002, + .00000, .00010, .00019, + .12131, .02901, -.03487, .00015, -.00002, + .00000, .00009, .00020 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11346, .02703, -.03174, .00016, -.00001, + .00000, .00009, .00017, + .10647, .02523, -.02900, .00017, -.00001, + .00000, .00009, .00016, + .10131, .02393, -.02696, .00016, -.00001, + .00000, .00006, .00013, + .09125, .02138, -.02319, .00013, -.00001, + .00000, .00005, .00012, + .08360, .01947, -.02049, .00010, -.00001, + -.00001, .00005, .00010, + .07589, .01756, -.01791, .00010, -.00001, + -.00001, .00005, .00010, + .06874, .01581, -.01555, .00009, -.00001, + -.00001, .00004, .00008, + .06293, .01438, -.01372, .00008, .00000, + .00000, .00004, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05764, .01310, -.01213, .00008, .00000, + .00000, .00004, .00007, + .05366, .01213, -.01093, .00006, .00000, + .00000, .00004, .00005, + .04921, .01107, -.00967, .00008, .00000, + .00000, .00002, .00005, + .04562, .01022, -.00866, .00007, .00000, + .00000, .00002, .00005, + .04263, .00951, -.00785, .00007, .00000, + .00000, .00002, .00004, + .03915, .00869, -.00693, .00004, .00000, + .00000, .00003, .00004, + .03615, .00798, -.00618, .00004, .00000, + .00000, .00003, .00004, + .03359, .00740, -.00555, .00004, .00000, + .00000, .00003, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03122, .00684, -.00498, .00004, .00000, + .00000, .00003, .00002, + .02909, .00634, -.00450, .00004, .00000, + .00000, .00003, .00003, + .02723, .00592, -.00406, .00004, .00000, + .00000, .00001, .00002, + .02560, .00555, -.00371, .00002, .00000, + .00000, .00001, .00003, + .02408, .00520, -.00339, .00002, .00000, + .00000, .00001, .00003, + .02266, .00487, -.00310, .00002, .00000, + .00000, .00001, .00003, + .02140, .00459, -.00284, .00002, .00000, + .00000, .00001, .00003, + .02029, .00434, -.00262, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01924, .00411, -.00241, .00001, .00000, + .00000, .00001, .00001, + .01825, .00389, -.00223, .00001, .00000, + .00000, .00001, .00001, + .01736, .00368, -.00208, .00001, .00000, + .00000, .00001, .00001, + .01656, .00352, -.00193, .00001, .00000, + .00000, .00001, .00001, + .01579, .00333, -.00180, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .15899, .03629, -.06919, .00013, .00000, + .00000, .00006, .00014, + .14383, .03259, -.06056, .00015, .00000, + .00000, .00006, .00014, + .12462, .02795, -.04985, .00007, -.00001, + .00000, .00006, .00008, + .11264, .02507, -.04361, .00009, -.00001, + .00000, .00003, .00009, + .10145, .02243, -.03794, .00009, -.00001, + .00000, .00006, .00006, + .09287, .02041, -.03365, .00007, -.00001, + .00000, .00004, .00006, + .08541, .01866, -.03006, .00008, -.00001, + .00000, .00004, .00004, + .07825, .01701, -.02669, .00010, -.00001, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07266, .01570, -.02411, .00008, -.00001, + .00000, .00001, .00002, + .06769, .01457, -.02190, .00006, .00000, + .00000, .00001, .00003, + .06403, .01373, -.02031, .00004, .00000, + .00000, .00003, .00005, + .05694, .01213, -.01727, .00006, .00000, + .00000, .00002, .00003, + .05164, .01093, -.01511, .00004, .00000, + .00000, .00002, .00003, + .04638, .00976, -.01306, .00002, .00000, + .00000, .00002, .00003, + .04155, .00868, -.01125, .00002, .00000, + .00000, .00002, .00003, + .03765, .00782, -.00983, .00002, .00000, + .00000, .00002, .00003 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03416, .00706, -.00858, .00001, .00000, + .00000, .00002, .00002, + .03154, .00649, -.00770, .00002, .00000, + .00000, .00002, .00002, + .02865, .00586, -.00674, .00001, .00000, + .00000, .00001, .00001, + .02637, .00537, -.00601, .00001, .00000, + .00000, .00001, .00001, + .02445, .00496, -.00540, .00001, .00000, + .00000, .00001, .00001, + .02224, .00449, -.00471, .00001, .00000, + .00000, .00000, .00001, + .02037, .00409, -.00418, .00001, .00000, + .00000, .00000, .00001, + .01878, .00376, -.00373, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01733, .00345, -.00332, .00001, .00000, + .00000, .00000, .00001, + .01602, .00318, -.00297, .00001, .00000, + .00000, .00000, .00000, + .01489, .00295, -.00269, .00001, .00000, + .00000, .00000, .00001, + .01392, .00274, -.00243, .00001, .00000, + .00000, .00000, .00000, + .01300, .00256, -.00222, .00001, .00000, + .00000, .00000, .00000, + .01217, .00239, -.00201, .00001, .00000, + .00000, .00000, .00000, + .01143, .00223, -.00184, .00001, .00000, + .00000, .00000, .00000, + .01077, .00209, -.00169, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .01016, .00197, -.00154, .00001, .00000, + .00000, .00000, .00000, + .00959, .00186, -.00143, .00001, .00000, + .00000, .00000, .00000, + .00908, .00176, -.00131, .00000, .00000, + .00000, .00000, .00000, + .00863, .00166, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00819, .00157, -.00113, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .10129, .02069, -.05053, .00010, .00000, + .00000, -.00001, .00002, + .09047, .01836, -.04363, .00007, .00000, + .00000, -.00003, .00002, + .07696, .01543, -.03541, .00007, .00000, + .00000, .00000, .00000, + .06872, .01369, -.03066, .00004, .00000, + .00000, .00000, .00002, + .06109, .01209, -.02636, .00004, .00000, + .00000, .00000, .00002, + .05533, .01090, -.02320, .00004, .00000, + .00000, .00000, .00002, + .05039, .00987, -.02052, .00002, .00000, + .00000, .00000, .00002, + .04571, .00891, -.01808, .00002, .00000, + .00000, .00000, .00002 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .04204, .00814, -.01619, .00002, .00000, + .00000, .00000, .00002, + .03881, .00750, -.01457, .00002, .00000, + .00000, .00000, .00000, + .03647, .00702, -.01342, .00002, .00000, + .00000, .00000, .00000, + .03201, .00611, -.01128, .00002, .00000, + .00000, .00000, .00000, + .02869, .00544, -.00977, .00002, .00000, + .00000, .00000, .00000, + .02545, .00480, -.00836, .00002, .00000, + .00000, .00000, .00000, + .02251, .00423, -.00712, .00002, .00000, + .00000, .00000, .00000, + .02018, .00377, -.00616, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01811, .00336, -.00534, .00002, .00000, + .00000, .00000, .00000, + .01656, .00305, -.00473, .00002, .00000, + .00000, .00000, .00000, + .01490, .00274, -.00410, .00000, .00000, + .00000, .00000, .00000, + .01358, .00248, -.00362, .00000, .00000, + .00000, .00000, .00000, + .01249, .00228, -.00325, .00002, .00000, + .00000, .00000, .00000, + .01124, .00205, -.00282, .00002, .00000, + .00000, .00000, .00000, + .01020, .00184, -.00247, .00000, .00000, + .00000, .00000, .00000, + .00933, .00167, -.00217, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00852, .00153, -.00192, .00000, .00000, + .00000, .00000, .00000, + .00783, .00140, -.00172, .00000, .00000, + .00000, .00000, .00000, + .00721, .00129, -.00153, .00000, .00000, + .00000, .00000, .00000, + .00669, .00119, -.00138, .00000, .00000, + .00000, .00000, .00000, + .00620, .00110, -.00124, .00000, .00000, + .00000, .00000, .00000, + .00577, .00102, -.00113, .00000, .00000, + .00000, .00000, .00000, + .00538, .00095, -.00102, .00000, .00000, + .00000, .00000, .00000, + .00504, .00089, -.00094, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00472, .00083, -.00085, .00000, .00000, + .00000, .00000, .00000, + .00444, .00077, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00418, .00073, -.00071, .00000, .00000, + .00000, .00000, .00000, + .00395, .00069, -.00067, .00000, .00000, + .00000, .00000, .00000, + .00372, .00064, -.00061, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .05655, .00999, -.03160, .00000, .00000, + .00000, .00000, .00000, + .04979, .00877, -.02707, .00000, .00000, + .00000, .00003, .00000, + .04149, .00727, -.02164, .00000, .00000, + .00000, .00000, .00002, + .03651, .00634, -.01844, .00000, .00000, + .00000, .00000, .00000, + .03199, .00551, -.01566, .00000, .00000, + .00000, .00000, .00000, + .02861, .00492, -.01363, .00000, .00000, + .00000, .00000, .00000, + .02577, .00443, -.01198, .00000, .00000, + .00000, .00000, .00000, + .02307, .00392, -.01041, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .02100, .00358, -.00927, .00000, .00000, + .00000, .00000, .00000, + .01920, .00324, -.00826, .00000, .00000, + .00000, .00000, .00000, + .01791, .00302, -.00757, .00000, .00000, + .00000, .00000, .00000, + .01545, .00259, -.00625, .00000, .00000, + .00000, .00000, .00000, + .01366, .00228, -.00535, .00000, .00000, + .00000, .00000, .00000, + .01195, .00198, -.00451, .00000, .00000, + .00000, .00000, .00000, + .01041, .00170, -.00378, .00000, .00000, + .00000, .00000, .00000, + .00922, .00150, -.00324, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00816, .00134, -.00278, .00000, .00000, + .00000, .00000, .00000, + .00738, .00120, -.00243, .00000, .00000, + .00000, .00000, .00000, + .00656, .00107, -.00210, .00000, .00000, + .00000, .00000, .00000, + .00592, .00095, -.00183, .00000, .00000, + .00000, .00000, .00000, + .00538, .00085, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00479, .00077, -.00139, .00000, .00000, + .00000, .00000, .00000, + .00429, .00069, -.00120, .00000, .00000, + .00000, .00000, .00000, + .00388, .00061, -.00106, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00352, .00055, -.00092, .00000, .00000, + .00000, .00000, .00000, + .00319, .00050, -.00082, .00000, .00000, + .00000, .00000, .00000, + .00292, .00046, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00268, .00043, -.00064, .00000, .00000, + .00000, .00000, .00000, + .00246, .00038, -.00057, .00000, .00000, + .00000, .00000, .00000, + .00227, .00036, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00211, .00033, -.00047, .00000, .00000, + .00000, .00000, .00000, + .00197, .00030, -.00042, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00183, .00028, -.00038, .00000, .00000, + .00000, .00000, .00000, + .00170, .00026, -.00035, .00000, .00000, + .00000, .00000, .00000, + .00159, .00024, -.00031, .00000, .00000, + .00000, .00000, .00000, + .00149, .00023, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00140, .00022, -.00026, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00825, .00104, -.00578, .00000, .00000, + .00000, .00000, .00000, + .00695, .00086, -.00474, .00000, .00000, + .00000, .00000, .00000, + .00544, .00067, -.00358, .00000, .00000, + .00000, .00000, .00000, + .00459, .00057, -.00294, .00000, .00000, + .00000, .00000, .00000, + .00385, .00048, -.00240, .00000, .00000, + .00000, .00000, .00000, + .00332, .00039, -.00202, .00000, .00000, + .00000, .00000, .00000, + .00288, .00034, -.00170, .00000, .00000, + .00000, .00000, .00000, + .00249, .00031, -.00144, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00219, .00026, -.00124, .00000, .00000, + .00000, .00000, .00000, + .00195, .00023, -.00108, .00000, .00000, + .00000, .00000, .00000, + .00178, .00021, -.00097, .00000, .00000, + .00000, .00000, .00000, + .00147, .00018, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00125, .00015, -.00065, .00000, .00000, + .00000, .00000, .00000, + .00104, .00013, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00088, .00011, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00074, .00009, -.00035, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00064, .00007, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, -.00025, .00000, .00000, + .00000, .00000, .00000, + .00048, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00037, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00032, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00021, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='ft11d.dat',status='old') do 20 n=1,nx-1 do 20 m=1,nq C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m), C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m) c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea do 25 i=1,np 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) 20 continue do 31 j=1,ntenth-1 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth) do 31 i=1,8 if(i.eq.5.or.i.eq.7) goto 31 do 30 k=1,nq 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) 31 continue 50 format(8f10.5) do 40 i=1,np do 40 m=1,nq 40 f(i,nx,m)=ZEROD init=1 10 continue if(x.lt.xmin) x=xmin if(x.gt.xmax) x=xmax if(qsq.lt.qsqmin) qsq=qsqmin if(qsq.gt.qsqmax) qsq=qsqmax xxx=x if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth) n=0 70 n=n+1 if(xxx.gt.xx(n+1)) goto 70 a=(xxx-xx(n))/(xx(n+1)-xx(n)) m=0 80 m=m+1 if(qsq.gt.qq(m+1)) goto 80 b=(qsq-qq(m))/(qq(m+1)-qq(m)) do 60 i=1,np g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1) . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1) if(n.ge.ntenth) goto 65 if(i.eq.5.or.i.eq.7) goto 65 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1) g(i)=fac*10d0**(g(i)-fac) 65 continue g(i)=g(i)*(ONED-x)**n0(i) 60 continue upv=g(1) dnv=g(2) usea=g(4) dsea=g(8) str=g(6) chm=g(5) glu=g(3) bot=g(7) x=xsave qsq=q2save return end