#include "pdf/pilot.h" subroutine sfmrs_99a11(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)/ + .00524, .00225, 1.10708, .89447, .00000, + .00000, .47645, .90677, + .00540, .00231, 2.36693, .92861, .00000, + .00000, .51596, .94098, + .00564, .00241, 4.75897, 1.00376, .04191, + .00000, .59869, 1.01620, + .00581, .00249, 6.94730, 1.07521, .13632, + .00000, .67542, 1.08769, + .00600, .00257, 9.76841, 1.16939, .23766, + .00000, .77500, 1.18191, + .00616, .00264, 12.64487, 1.26580, .33927, + .00000, .87595, 1.27835, + .00631, .00271, 15.87741, 1.37105, .45296, + .00000, .98543, 1.38361, + .00648, .00278, 19.85334, 1.49743, .59040, + .00000, 1.11620, 1.51001 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00662, .00285, 23.72488, 1.62149, .72070, + .00000, 1.24399, 1.63408, + .00676, .00291, 27.88427, 1.75343, .85922, + .00000, 1.37944, 1.76602, + .00687, .00297, 31.53034, 1.86642, .97991, + .00000, 1.49517, 1.87901, + .00711, .00308, 39.97499, 2.13582, 1.26222, + .02243, 1.77026, 2.14841, + .00732, .00318, 47.92525, 2.39697, 1.53367, + .34245, 2.03613, 2.40955, + .00755, .00329, 57.96980, 2.72424, 1.87403, + .73681, 2.36854, 2.73680, + .00779, .00341, 69.79701, 3.10494, 2.26918, + 1.15155, 2.75444, 3.11748, + .00802, .00352, 81.76463, 3.48725, 2.66540, + 1.56753, 3.14133, 3.49976 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00825, .00363, 95.10130, 3.91104, 3.10438, + 2.02653, 3.56962, 3.92352, + .00844, .00372, 107.10555, 4.29241, 3.49768, + 2.43289, 3.95465, 4.30486, + .00867, .00384, 122.81029, 4.79190, 4.01115, + 2.96119, 4.45846, 4.80430, + .00888, .00394, 137.86038, 5.26966, 4.50290, + 3.46954, 4.93996, 5.28203, + .00908, .00404, 152.63914, 5.73865, 4.98573, + 3.96901, 5.41230, 5.75098, + .00932, .00417, 172.52527, 6.37445, 5.63665, + 4.63549, 6.05227, 6.38673, + .00956, .00429, 192.60530, 7.01767, 6.29558, + 5.31208, 6.69931, 7.02989, + .00978, .00440, 212.72771, 7.66284, 6.95754, + 5.99425, 7.34798, 7.67502 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01001, .00451, 233.73041, 8.34407, 7.65229, + 6.70274, 8.03264, 8.35620, + .01023, .00463, 255.51657, 9.05224, 8.37576, + 7.44362, 8.74408, 9.06431, + .01044, .00474, 277.19427, 9.76035, 9.09891, + 8.18404, 9.45525, 9.77238, + .01064, .00484, 298.35843, 10.45818, 9.80957, + 8.90866, 10.15589, 10.47015, + .01084, .00495, 320.73434, 11.19690, 10.56351, + 9.68055, 10.89740, 11.20883, + .01105, .00505, 343.28830, 11.95067, 11.32976, + 10.46022, 11.65386, 11.96255, + .01124, .00515, 365.82144, 12.70401, 12.09764, + 11.24534, 12.40971, 12.71583, + .01143, .00525, 387.51144, 13.43834, 12.84330, + 12.00338, 13.14638, 13.45011 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01161, .00535, 410.33365, 14.21221, 13.63052, + 12.80633, 13.92258, 14.22394, + .01180, .00544, 433.34561, 14.99994, 14.43042, + 13.62013, 14.71257, 15.01162, + .01198, .00554, 455.97171, 15.77867, 15.22117, + 14.42478, 15.49344, 15.79031, + .01215, .00563, 478.11319, 16.54384, 15.99860, + 15.21686, 16.26060, 16.55543, + .01233, .00572, 500.75018, 17.33508, 16.80047, + 16.03078, 17.05383, 17.34662 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00707, .00306, 1.03275, .75752, .00000, + .00000, .40294, .76464, + .00730, .00316, 2.16809, .78931, .00000, + .00000, .43892, .79647, + .00763, .00331, 4.27838, .85595, .03625, + .00000, .51147, .86314, + .00787, .00342, 6.17068, .91772, .11745, + .00000, .57735, .92494, + .00813, .00354, 8.57017, .99763, .20316, + .00000, .66146, 1.00487, + .00835, .00365, 10.98115, 1.07833, .28815, + .00000, .74568, 1.08558, + .00856, .00375, 13.65803, 1.16563, .38238, + .00000, .83627, 1.17289, + .00879, .00386, 16.91184, 1.26959, .49527, + .00000, .94363, 1.27687 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00899, .00396, 20.04412, 1.37073, .60134, + .00000, 1.04765, 1.37801, + .00919, .00405, 23.37685, 1.47754, .71330, + .00000, 1.15718, 1.48482, + .00934, .00412, 26.27535, 1.56854, .81027, + .00000, 1.25031, 1.57583, + .00967, .00428, 32.90954, 1.78368, 1.03515, + .01833, 1.46984, 1.79096, + .00995, .00443, 39.06670, 1.99025, 1.24924, + .27001, 1.68006, 1.99753, + .01027, .00459, 46.74966, 2.24684, 1.51520, + .57823, 1.94061, 2.25411, + .01061, .00475, 55.68116, 2.54251, 1.82100, + .89861, 2.24029, 2.54978, + .01092, .00491, 64.61087, 2.83681, 2.12484, + 1.21697, 2.53812, 2.84406 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01123, .00507, 74.45277, 3.16035, 2.45867, + 1.56522, 2.86513, 3.16759, + .01149, .00520, 83.22314, 3.44930, 2.75547, + 1.87106, 3.15689, 3.45653, + .01181, .00537, 94.58546, 3.82492, 3.14004, + 2.26563, 3.53584, 3.83213, + .01210, .00551, 105.37099, 4.18159, 3.50567, + 2.64255, 3.89538, 4.18878, + .01236, .00565, 115.87395, 4.52945, 3.86237, + 3.01051, 4.24582, 4.53662, + .01270, .00583, 129.87444, 4.99759, 4.33970, + 3.49774, 4.71717, 5.00474, + .01302, .00599, 143.87996, 5.46773, 4.81942, + 3.98883, 5.19025, 5.47486, + .01332, .00615, 157.79774, 5.93618, 5.29823, + 4.48083, 5.66139, 5.94329 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01363, .00631, 172.19611, 6.42738, 5.79721, + 4.98804, 6.15522, 6.43446, + .01393, .00647, 187.01802, 6.93488, 6.31375, + 5.51539, 6.66525, 6.94193, + .01421, .00662, 201.65718, 7.43934, 6.82705, + 6.03937, 7.17205, 7.44637, + .01448, .00676, 215.84454, 7.93357, 7.32853, + 6.54909, 7.66846, 7.94058, + .01476, .00691, 230.75272, 8.45417, 7.85801, + 7.08962, 8.19120, 8.46116, + .01503, .00705, 245.67084, 8.98234, 8.39303, + 7.63227, 8.72144, 8.98931, + .01529, .00719, 260.49457, 9.50782, 8.92689, + 8.17657, 9.24886, 9.51477, + .01554, .00732, 274.66861, 10.01739, 9.44255, + 8.69915, 9.76023, 10.02431 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01579, .00746, 289.50922, 10.55217, 9.98483, + 9.25068, 10.29681, 10.55908, + .01604, .00759, 304.38379, 11.09397, 10.53323, + 9.80694, 10.84035, 11.10085, + .01628, .00772, 318.93460, 11.62733, 11.07314, + 10.35474, 11.37536, 11.63420, + .01651, .00784, 333.10693, 12.14939, 11.60198, + 10.89205, 11.89896, 12.15624, + .01674, .00797, 347.51544, 12.68688, 12.14501, + 11.44159, 12.43798, 12.69371 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00955, .00418, .96445, .64127, .00000, + .00000, .34086, .64479, + .00986, .00433, 1.98717, .67061, .00000, + .00000, .37346, .67414, + .01032, .00455, 3.84754, .72956, .03135, + .00000, .43702, .73311, + .01066, .00472, 5.48192, .78293, .10116, + .00000, .49358, .78649, + .01102, .00489, 7.51963, .85070, .17362, + .00000, .56460, .85426, + .01132, .00505, 9.53660, .91819, .24465, + .00000, .63481, .92176, + .01162, .00520, 11.74857, .99053, .32270, + .00000, .70970, .99411, + .01194, .00535, 14.40507, 1.07594, .41534, + .00000, .79773, 1.07952 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01221, .00549, 16.93248, 1.15825, .50159, + .00000, .88226, 1.16183, + .01248, .00563, 19.59515, 1.24454, .59196, + .00000, .97066, 1.24812, + .01269, .00574, 21.89241, 1.31768, .66978, + .00000, 1.04543, 1.32127, + .01315, .00597, 27.08695, 1.48906, .84862, + .01497, 1.22018, 1.49264, + .01354, .00617, 31.83747, 1.65200, 1.01718, + .21279, 1.38592, 1.65558, + .01398, .00640, 37.69025, 1.85253, 1.22461, + .45356, 1.58950, 1.85612, + .01444, .00664, 44.40569, 2.08139, 1.46074, + .70088, 1.82142, 2.08497, + .01487, .00686, 51.03779, 2.30710, 1.69321, + .94433, 2.04984, 2.31068 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01529, .00709, 58.26522, 2.55316, 1.94644, + 1.20829, 2.29855, 2.55673, + .01565, .00727, 64.63999, 2.77120, 2.16981, + 1.43821, 2.51874, 2.77477, + .01609, .00751, 72.81618, 3.05247, 2.45701, + 1.73251, 2.80256, 3.05604, + .01648, .00771, 80.50210, 3.31755, 2.72804, + 2.01157, 3.06984, 3.32112, + .01684, .00790, 87.92296, 3.57439, 2.99072, + 2.28220, 3.32865, 3.57796, + .01730, .00815, 97.71957, 3.91745, 3.33957, + 2.63773, 3.67415, 3.92102, + .01773, .00838, 107.42630, 4.25940, 3.68758, + 2.99345, 4.01835, 4.26296, + .01814, .00860, 116.98965, 4.59783, 4.03263, + 3.34753, 4.35882, 4.60138 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01855, .00882, 126.79259, 4.95015, 4.38961, + 3.70975, 4.71316, 4.95371, + .01896, .00904, 136.80528, 5.31191, 4.75691, + 4.08415, 5.07685, 5.31546, + .01934, .00925, 146.61942, 5.66933, 5.11973, + 4.45395, 5.43605, 5.67288, + .01971, .00945, 156.05798, 6.01741, 5.47206, + 4.81146, 5.78579, 6.02096, + .02008, .00965, 165.91473, 6.38221, 5.84227, + 5.18882, 6.15221, 6.38575, + .02045, .00985, 175.70300, 6.75013, 6.21409, + 5.56528, 6.52172, 6.75367, + .02080, .01004, 185.37604, 7.11451, 6.58351, + 5.94137, 6.88758, 7.11805, + .02113, .01022, 194.56026, 7.46596, 6.93836, + 6.30035, 7.24041, 7.46950 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02147, .01040, 204.12854, 7.83326, 7.31006, + 6.67781, 7.60908, 7.83680, + .02180, .01058, 213.65871, 8.20358, 7.68411, + 7.05659, 7.98072, 8.20711, + .02212, .01076, 222.93195, 8.56657, 8.05082, + 7.42807, 8.34496, 8.57009, + .02243, .01093, 231.92090, 8.92047, 8.40865, + 7.79110, 8.70004, 8.92400, + .02274, .01110, 241.00519, 9.28317, 8.77437, + 8.16058, 9.06391, 9.28669 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01138, .00502, .92745, .58161, .00000, + .00000, .30917, .58364, + .01176, .00521, 1.88940, .60949, .00000, + .00000, .33987, .61152, + .01232, .00549, 3.61688, .66431, .02879, + .00000, .39865, .66635, + .01273, .00570, 5.11606, .71327, .09268, + .00000, .45037, .71532, + .01316, .00592, 6.96641, .77479, .15833, + .00000, .51469, .77684, + .01354, .00611, 8.78158, .83555, .22227, + .00000, .57779, .83761, + .01390, .00629, 10.75766, .90032, .29213, + .00000, .64475, .90238, + .01428, .00649, 13.11384, .97639, .37460, + .00000, .72308, .97845 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01461, .00666, 15.33985, 1.04928, .45097, + .00000, .79788, 1.05135, + .01493, .00683, 17.67116, 1.12537, .53064, + .00000, .87577, 1.12744, + .01519, .00696, 19.67296, 1.18966, .59900, + .00000, .94145, 1.19173, + .01574, .00725, 24.16658, 1.33947, .75528, + .01330, 1.09416, 1.34155, + .01621, .00750, 28.23981, 1.48107, .90168, + .18505, 1.23816, 1.48315, + .01674, .00778, 33.22008, 1.65439, 1.08084, + .39334, 1.41408, 1.65647, + .01730, .00807, 38.88987, 1.85103, 1.28359, + .60580, 1.61335, 1.85311, + .01781, .00835, 44.44827, 2.04391, 1.48209, + .81377, 1.80854, 2.04600 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01832, .00862, 50.46480, 2.25310, 1.69721, + 1.03808, 2.02000, 2.25520, + .01875, .00885, 55.73894, 2.43762, 1.88607, + 1.23251, 2.20635, 2.43972, + .01928, .00913, 62.46288, 2.67455, 2.12779, + 1.48020, 2.44545, 2.67665, + .01974, .00939, 68.74696, 2.89685, 2.35488, + 1.71405, 2.66963, 2.89896, + .02017, .00962, 74.78327, 3.11139, 2.57412, + 1.93993, 2.88585, 3.11350, + .02072, .00991, 82.70570, 3.39666, 2.86394, + 2.23527, 3.17320, 3.39878, + .02124, .01020, 90.51047, 3.67974, 3.15180, + 2.52948, 3.45819, 3.68186, + .02173, .01046, 98.16057, 3.95877, 3.43608, + 2.82119, 3.73897, 3.96090 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02222, .01073, 105.95853, 4.24802, 3.72890, + 3.11822, 4.02993, 4.25015, + .02270, .01100, 113.88628, 4.54391, 4.02909, + 3.42418, 4.32746, 4.54605, + .02316, .01125, 121.62115, 4.83520, 4.32457, + 3.72529, 4.62027, 4.83735, + .02360, .01149, 129.02545, 5.11786, 4.61046, + 4.01531, 4.90434, 5.12001, + .02404, .01173, 136.72923, 5.41320, 4.90999, + 4.32059, 5.20107, 5.41536, + .02448, .01197, 144.34387, 5.71002, 5.20973, + 4.62398, 5.49924, 5.71219, + .02489, .01220, 151.84431, 6.00319, 5.50678, + 4.92635, 5.79366, 6.00536, + .02529, .01242, 158.93492, 6.28503, 5.79115, + 5.21394, 6.07667, 6.28721 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02569, .01264, 166.30008, 6.57886, 6.08833, + 5.51567, 6.37168, 6.58105, + .02609, .01286, 173.60782, 6.87423, 6.38649, + 5.81753, 6.66817, 6.87642, + .02647, .01307, 180.69582, 7.16302, 6.67807, + 6.11283, 6.95803, 7.16522, + .02683, .01327, 187.54669, 7.44392, 6.96195, + 6.40078, 7.23993, 7.44613, + .02720, .01347, 194.44452, 7.73101, 7.25127, + 6.69297, 7.52802, 7.73323 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01289, .00572, .90263, .54263, .00000, + .00000, .28853, .54385, + .01333, .00594, 1.82361, .56948, .00000, + .00000, .31793, .57070, + .01397, .00627, 3.46229, .62151, .02710, + .00000, .37353, .62273, + .01444, .00651, 4.87192, .66756, .08708, + .00000, .42206, .66879, + .01494, .00677, 6.59911, .72497, .14828, + .00000, .48200, .72621, + .01536, .00699, 8.28257, .78136, .20760, + .00000, .54049, .78260, + .01578, .00721, 10.10556, .84122, .27216, + .00000, .60231, .84246, + .01621, .00744, 12.26799, .91126, .34808, + .00000, .67438, .91251 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01659, .00764, 14.30063, .97809, .41811, + .00000, .74293, .97935, + .01696, .00783, 16.42037, 1.04764, .49093, + .00000, .81410, 1.04890, + .01726, .00799, 18.23427, 1.10626, .55325, + .00000, .87398, 1.10752, + .01788, .00832, 22.28473, 1.24235, .69520, + .01222, 1.01266, 1.24362, + .01842, .00861, 25.93277, 1.37042, .82760, + .16754, 1.14288, 1.37170, + .01903, .00894, 30.36872, 1.52656, .98897, + .35543, 1.30135, 1.52784, + .01966, .00928, 35.39041, 1.70295, 1.17081, + .54611, 1.48010, 1.70425, + .02024, .00959, 40.28738, 1.87530, 1.34813, + .73203, 1.65451, 1.87660 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02083, .00991, 45.56216, 2.06153, 1.53960, + .93178, 1.84278, 2.06285, + .02132, .01018, 50.16556, 2.22524, 1.70712, + 1.10432, 2.00813, 2.22657, + .02192, .01050, 56.00888, 2.43476, 1.92082, + 1.32339, 2.21959, 2.43610, + .02245, .01079, 61.44703, 2.63072, 2.12094, + 1.52955, 2.41722, 2.63206, + .02293, .01106, 66.65147, 2.81929, 2.31360, + 1.72813, 2.60729, 2.82065, + .02356, .01140, 73.45324, 3.06922, 2.56744, + 1.98687, 2.85908, 3.07059, + .02415, .01172, 80.12617, 3.31644, 2.81876, + 2.24382, 3.10800, 3.31781, + .02470, .01203, 86.64272, 3.55941, 3.06626, + 2.49788, 3.35254, 3.56080 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02526, .01233, 93.25818, 3.81050, 3.32037, + 2.75570, 3.60515, 3.81190, + .02580, .01264, 99.96101, 4.06667, 3.58021, + 3.02059, 3.86279, 4.06808, + .02633, .01293, 106.47905, 4.31820, 3.83531, + 3.28063, 4.11567, 4.31963, + .02682, .01320, 112.69733, 4.56164, 4.08148, + 3.53040, 4.36037, 4.56308, + .02732, .01347, 119.14987, 4.81546, 4.33885, + 3.79279, 4.61544, 4.81691, + .02781, .01375, 125.50588, 5.06989, 4.59574, + 4.05283, 4.87107, 5.07136, + .02828, .01401, 131.75200, 5.32071, 4.84984, + 4.31156, 5.12301, 5.32219, + .02873, .01426, 137.63797, 5.56126, 5.09251, + 4.55701, 5.36461, 5.56275 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02918, .01451, 143.73883, 5.81161, 5.34568, + 4.81412, 5.61600, 5.81312, + .02963, .01476, 149.77502, 6.06273, 5.59914, + 5.07076, 5.86812, 6.06425, + .03006, .01500, 155.61607, 6.30781, 5.84656, + 5.32138, 6.11415, 6.30934, + .03047, .01523, 161.24983, 6.54579, 6.08705, + 5.56538, 6.35303, 6.54733, + .03088, .01546, 166.90662, 6.78853, 6.33163, + 5.81242, 6.59666, 6.79008 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01420, .00633, .88427, .51418, .00000, + .00000, .27351, .51490, + .01469, .00658, 1.77467, .54024, .00000, + .00000, .30192, .54096, + .01540, .00695, 3.34742, .59018, .02586, + .00000, .35517, .59091, + .01593, .00723, 4.69101, .63408, .08296, + .00000, .40135, .63481, + .01648, .00752, 6.32788, .68850, .14091, + .00000, .45810, .68924, + .01695, .00777, 7.91522, .74169, .19687, + .00000, .51323, .74243, + .01741, .00801, 9.62699, .79798, .25758, + .00000, .57134, .79874, + .01790, .00827, 11.64925, .86366, .32876, + .00000, .63888, .86442 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01832, .00850, 13.54257, .92612, .39421, + .00000, .70292, .92689, + .01873, .00872, 15.51044, .99096, .46211, + .00000, .76925, .99173, + .01905, .00889, 17.18985, 1.04551, .52011, + .00000, .82496, 1.04629, + .01975, .00927, 20.92450, 1.17176, .65180, + .01144, .95360, 1.17255, + .02034, .00959, 24.27109, 1.29018, .77422, + .15508, 1.07399, 1.29098, + .02102, .00995, 28.32294, 1.43408, .92296, + .32849, 1.22004, 1.43489, + .02172, .01034, 32.88950, 1.59612, 1.09001, + .50379, 1.38424, 1.59695, + .02236, .01069, 37.32410, 1.75395, 1.25239, + .67416, 1.54396, 1.75479 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02301, .01104, 42.08253, 1.92401, 1.42722, + .85668, 1.71588, 1.92486, + .02355, .01134, 46.22077, 2.07310, 1.57978, + 1.01390, 1.86648, 2.07397, + .02421, .01170, 51.45560, 2.26341, 1.77388, + 1.21299, 2.05857, 2.26429, + .02479, .01202, 56.31138, 2.44095, 1.95520, + 1.39988, 2.23765, 2.44185, + .02533, .01232, 60.94501, 2.61143, 2.12936, + 1.57950, 2.40951, 2.61234, + .02602, .01270, 66.98047, 2.83679, 2.35825, + 1.81290, 2.63657, 2.83772, + .02667, .01306, 72.88228, 3.05914, 2.58429, + 2.04412, 2.86049, 3.06009, + .02728, .01340, 78.62894, 3.27718, 2.80640, + 2.27222, 3.07996, 3.27815 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02789, .01374, 84.44400, 3.50195, 3.03387, + 2.50310, 3.30613, 3.50293, + .02850, .01408, 90.32017, 3.73079, 3.26599, + 2.73984, 3.53631, 3.73179, + .02907, .01440, 96.01937, 3.95502, 3.49341, + 2.97177, 3.76179, 3.95604, + .02961, .01470, 101.44176, 4.17160, 3.71242, + 3.19406, 3.97952, 4.17264, + .03016, .01501, 107.05673, 4.39704, 3.94103, + 3.42723, 4.20609, 4.39809, + .03070, .01531, 112.57251, 4.62255, 4.16872, + 3.65779, 4.43271, 4.62363, + .03122, .01560, 117.98296, 4.84453, 4.39364, + 3.88689, 4.65572, 4.84562, + .03171, .01587, 123.06846, 5.05702, 4.60801, + 4.10378, 4.86917, 5.05813 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03221, .01615, 128.33081, 5.27787, 4.83136, + 4.33070, 5.09097, 5.27900, + .03270, .01643, 133.52554, 5.49902, 5.05458, + 4.55681, 5.31304, 5.50016, + .03317, .01669, 138.54323, 5.71453, 5.27218, + 4.77729, 5.52943, 5.71569, + .03362, .01694, 143.37474, 5.92354, 5.48341, + 4.99169, 5.73925, 5.92472, + .03408, .01720, 148.21529, 6.13638, 5.69788, + 5.20839, 5.95291, 6.13757 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01921, .00870, .83298, .43500, .00000, + .00000, .23193, .43483, + .01989, .00907, 1.63467, .45862, .00000, + .00000, .25740, .45846, + .02088, .00962, 3.01798, .50249, .02231, + .00000, .30387, .50235, + .02161, .01002, 4.17381, .54026, .07130, + .00000, .34345, .54014, + .02237, .01044, 5.55641, .58625, .12014, + .00000, .39127, .58615, + .02303, .01080, 6.87559, .63057, .16675, + .00000, .43710, .63048, + .02366, .01115, 8.27941, .67700, .21684, + .00000, .48495, .67693, + .02434, .01153, 9.91649, .73066, .27499, + .00000, .54007, .73061 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02492, .01185, 11.42979, .78116, .32795, + .00000, .59181, .78113, + .02548, .01217, 12.98595, .83317, .38245, + .00000, .64497, .83315, + .02593, .01242, 14.30268, .87666, .42873, + .00000, .68938, .87667, + .02689, .01295, 17.19216, .97634, .53280, + .00932, .79092, .97638, + .02771, .01341, 19.73948, 1.06882, .62851, + .12176, .88493, 1.06888, + .02863, .01393, 22.78123, 1.18008, .74363, + .25667, .99786, 1.18017, + .02960, .01448, 26.16103, 1.30404, .87155, + .39138, 1.12350, 1.30417, + .03047, .01497, 29.39954, 1.42357, .99466, + .52100, 1.24450, 1.42373 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03136, .01547, 32.83208, 1.55119, 1.12601, + .65857, 1.37357, 1.55139, + .03210, .01589, 35.78378, 1.66212, 1.23964, + .77603, 1.48567, 1.66235, + .03299, .01640, 39.47672, 1.80255, 1.38302, + .92352, 1.62748, 1.80281, + .03379, .01685, 42.86607, 1.93250, 1.51588, + 1.06089, 1.75862, 1.93280, + .03452, .01727, 46.07030, 2.05640, 1.64261, + 1.19198, 1.88359, 2.05673, + .03545, .01779, 50.19884, 2.21884, 1.80777, + 1.36086, 2.04735, 2.21922, + .03633, .01829, 54.19373, 2.37783, 1.96958, + 1.52683, 2.20755, 2.37824, + .03716, .01876, 58.04728, 2.53261, 2.12745, + 1.68944, 2.36344, 2.53307 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03799, .01923, 61.90579, 2.69092, 2.28782, + 1.85262, 2.52283, 2.69141, + .03880, .01970, 65.77158, 2.85102, 2.45041, + 2.01889, 2.68397, 2.85155, + .03957, .02014, 69.48920, 3.00688, 2.60869, + 2.18073, 2.84079, 3.00744, + .04030, .02055, 72.99514, 3.15643, 2.76008, + 2.33477, 2.99123, 3.15703, + .04104, .02097, 76.60133, 3.31126, 2.91731, + 2.49556, 3.14695, 3.31190, + .04176, .02139, 80.11189, 3.46514, 3.07284, + 2.65343, 3.30167, 3.46581, + .04246, .02178, 83.53541, 3.61588, 3.22578, + 2.80963, 3.45321, 3.61658, + .04311, .02216, 86.72609, 3.75930, 3.37063, + 2.95653, 3.59737, 3.76004 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04378, .02253, 90.01013, 3.90771, 3.52094, + 3.10962, 3.74653, 3.90849, + .04443, .02291, 93.22777, 4.05553, 3.67032, + 3.26129, 3.89506, 4.05633, + .04506, .02327, 96.31707, 4.19891, 3.81527, + 3.40853, 4.03912, 4.19975, + .04566, .02361, 99.27585, 4.33738, 3.95541, + 3.55112, 4.17822, 4.33825, + .04627, .02396, 102.21818, 4.47766, 4.09694, + 3.69444, 4.31913, 4.47856 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02606, .01206, .79322, .36842, .00000, + .00000, .19725, .36821, + .02700, .01260, 1.51510, .38965, .00000, + .00000, .21998, .38948, + .02839, .01340, 2.72960, .42801, .01920, + .00000, .26043, .42790, + .02939, .01397, 3.72079, .46039, .06110, + .00000, .29425, .46032, + .03045, .01459, 4.88364, .49911, .10213, + .00000, .33444, .49909, + .03136, .01511, 5.97426, .53588, .14082, + .00000, .37243, .53589, + .03224, .01562, 7.11866, .57401, .18197, + .00000, .41169, .57406, + .03317, .01616, 8.43505, .61763, .22927, + .00000, .45649, .61773 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03398, .01662, 9.63560, .65824, .27192, + .00000, .49809, .65838, + .03475, .01707, 10.85630, .69970, .31545, + .00000, .54048, .69988, + .03537, .01743, 11.87989, .73417, .35218, + .00000, .57568, .73438, + .03669, .01820, 14.09455, .81233, .43395, + .00756, .65533, .81260, + .03781, .01885, 16.01305, .88401, .50830, + .09515, .72825, .88434, + .03908, .01958, 18.27048, .96933, .59680, + .19959, .81491, .96973, + .04039, .02035, 20.74124, 1.06333, .69406, + .30254, .91025, 1.06380, + .04159, .02105, 23.07525, 1.15302, .78668, + .40058, 1.00113, 1.15355 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04280, .02175, 25.51692, 1.24785, .88455, + .50363, 1.09712, 1.24845, + .04381, .02233, 27.59140, 1.32955, .96847, + .59080, 1.17975, 1.33020, + .04502, .02304, 30.15633, 1.43205, 1.07341, + .69931, 1.28336, 1.43277, + .04610, .02367, 32.48389, 1.52610, 1.16986, + .79953, 1.37837, 1.52689, + .04710, .02425, 34.66246, 1.61511, 1.26116, + .89446, 1.46824, 1.61595, + .04836, .02498, 37.43662, 1.73078, 1.37911, + 1.01565, 1.58498, 1.73170, + .04954, .02567, 40.09083, 1.84304, 1.49369, + 1.13377, 1.69821, 1.84403, + .05066, .02632, 42.62560, 1.95150, 1.60465, + 1.24864, 1.80757, 1.95256 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05177, .02696, 45.13422, 2.06150, 1.71640, + 1.36287, 1.91843, 2.06262, + .05286, .02760, 47.62458, 2.17197, 1.82892, + 1.47851, 2.02974, 2.17315, + .05390, .02820, 49.99756, 2.27877, 1.93771, + 1.59029, 2.13732, 2.28002, + .05487, .02876, 52.21356, 2.38053, 2.04102, + 1.69590, 2.23980, 2.38184, + .05586, .02934, 54.47674, 2.48530, 2.14774, + 1.80558, 2.34528, 2.48667, + .05682, .02990, 56.65751, 2.58868, 2.25253, + 1.91243, 2.44935, 2.59011, + .05775, .03043, 58.77127, 2.68946, 2.35510, + 2.01770, 2.55078, 2.69095, + .05862, .03094, 60.72215, 2.78472, 2.45158, + 2.11599, 2.64663, 2.78626 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05950, .03145, 62.71881, 2.88284, 2.55126, + 2.21800, 2.74536, 2.88444, + .06037, .03195, 64.65852, 2.98000, 2.64974, + 2.31845, 2.84309, 2.98165, + .06121, .03244, 66.50854, 3.07378, 2.74483, + 2.41550, 2.93743, 3.07549, + .06200, .03290, 68.27002, 3.16395, 2.83638, + 2.50910, 3.02812, 3.16571, + .06280, .03336, 70.00653, 3.25478, 2.92828, + 2.60258, 3.11946, 3.25659 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03122, .01469, .77781, .33484, .00000, + .00000, .17986, .33491, + .03236, .01537, 1.45674, .35471, .00000, + .00000, .20106, .35485, + .03404, .01636, 2.58065, .39007, .01755, + .00000, .23828, .39029, + .03526, .01708, 3.48448, .41957, .05570, + .00000, .26907, .41986, + .03655, .01784, 4.53209, .45449, .09266, + .00000, .30529, .45484, + .03765, .01849, 5.50416, .48734, .12724, + .00000, .33924, .48776, + .03871, .01911, 6.51527, .52121, .16381, + .00000, .37411, .52168, + .03983, .01978, 7.66847, .55971, .20559, + .00000, .41367, .56025 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04081, .02035, 8.71138, .59532, .24302, + .00000, .45016, .59591, + .04174, .02091, 9.76436, .63147, .28105, + .00000, .48715, .63213, + .04249, .02135, 10.64239, .66142, .31300, + .00000, .51775, .66212, + .04407, .02228, 12.52534, .72889, .38370, + .00667, .58655, .72968, + .04543, .02308, 14.13853, .79032, .44755, + .08205, .64909, .79119, + .04695, .02398, 16.01934, .86297, .52305, + .17160, .72294, .86393, + .04853, .02491, 18.05855, .94244, .60546, + .25917, .80362, .94350, + .04996, .02576, 19.96779, 1.01778, .68345, + .34205, .88002, 1.01893 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05141, .02661, 21.94876, 1.09695, .76535, + .42863, .96025, 1.09820, + .05261, .02732, 23.61908, 1.16478, .83519, + .50147, 1.02892, 1.16610, + .05406, .02818, 25.66895, 1.24941, .92206, + .59163, 1.11455, 1.25083, + .05535, .02894, 27.51590, 1.32667, 1.00147, + .67449, 1.19267, 1.32817, + .05654, .02963, 29.23378, 1.39944, 1.07631, + .75261, 1.26622, 1.40101, + .05803, .03051, 31.40490, 1.49350, 1.17246, + .85179, 1.36123, 1.49517, + .05944, .03134, 33.46731, 1.58429, 1.26538, + .94796, 1.45291, 1.58606, + .06077, .03212, 35.42449, 1.67161, 1.35494, + 1.04106, 1.54105, 1.67347 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06209, .03289, 37.34687, 1.75969, 1.44466, + 1.13312, 1.62992, 1.76164, + .06338, .03365, 39.24416, 1.84778, 1.53461, + 1.22593, 1.71876, 1.84981, + .06460, .03437, 41.04135, 1.93257, 1.62120, + 1.31526, 1.80426, 1.93468, + .06576, .03504, 42.70897, 2.01300, 1.70307, + 1.39928, 1.88534, 2.01519, + .06692, .03572, 44.40444, 2.09553, 1.78736, + 1.48626, 1.96852, 2.09780, + .06806, .03639, 46.02707, 2.17659, 1.86974, + 1.57059, 2.05021, 2.17894, + .06915, .03703, 47.59388, 2.25538, 1.95015, + 1.65345, 2.12959, 2.25780, + .07018, .03762, 49.03047, 2.32954, 2.02545, + 1.73045, 2.20429, 2.33203 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07121, .03823, 50.49562, 2.40572, 2.10305, + 1.81018, 2.28102, 2.40828, + .07224, .03883, 51.91086, 2.48086, 2.17942, + 1.88839, 2.35670, 2.48349, + .07322, .03940, 53.25482, 2.55318, 2.25294, + 1.96372, 2.42952, 2.55588, + .07415, .03994, 54.52958, 2.62252, 2.32353, + 2.03618, 2.49933, 2.62528, + .07509, .04048, 55.77871, 2.69211, 2.39413, + 2.10827, 2.56939, 2.69494 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03554, .01699, .77192, .31336, .00000, + .00000, .16874, .31371, + .03686, .01778, 1.42183, .33228, .00000, + .00000, .18890, .33272, + .03879, .01893, 2.48450, .36559, .01644, + .00000, .22392, .36614, + .04019, .01977, 3.32970, .39315, .05208, + .00000, .25268, .39379, + .04166, .02065, 4.30049, .42553, .08632, + .00000, .28627, .42626, + .04292, .02141, 5.19411, .45580, .11821, + .00000, .31755, .45661, + .04413, .02213, 6.11753, .48686, .15176, + .00000, .34955, .48774, + .04542, .02290, 7.16402, .52201, .18993, + .00000, .38568, .52298 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04653, .02357, 8.10452, .55436, .22397, + .00000, .41885, .55539, + .04760, .02421, 9.04912, .58707, .25842, + .00000, .45234, .58818, + .04845, .02472, 9.83348, .61410, .28729, + .00000, .47997, .61526, + .05026, .02580, 11.50439, .67469, .35088, + .00608, .54181, .67597, + .05180, .02672, 12.92400, .72957, .40801, + .07366, .59772, .73095, + .05353, .02775, 14.56771, .79414, .47525, + .15372, .66342, .79564, + .05533, .02882, 16.33730, .86443, .54826, + .23156, .73484, .86604, + .05696, .02979, 17.98302, .93073, .61702, + .30487, .80214, .93246 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05860, .03077, 19.68003, 1.00009, .68893, + .38113, .87248, 1.00194, + .05996, .03157, 21.10275, 1.05927, .74999, + .44502, .93246, 1.06121, + .06161, .03255, 22.83891, 1.13281, .82563, + .52378, 1.00693, 1.13486, + .06307, .03342, 24.39481, 1.19968, .89451, + .59589, 1.07461, 1.20183, + .06440, .03421, 25.83510, 1.26244, .95920, + .66365, 1.13811, 1.26469, + .06610, .03521, 27.64496, 1.34324, 1.04197, + .74930, 1.21981, 1.34560, + .06769, .03615, 29.35489, 1.42093, 1.12165, + .83205, 1.29833, 1.42340, + .06918, .03703, 30.96976, 1.49538, 1.19820, + .91188, 1.37355, 1.49796 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07066, .03791, 32.54670, 1.57018, 1.27455, + .99050, 1.44910, 1.57287, + .07212, .03876, 34.09615, 1.64474, 1.35088, + 1.06951, 1.52438, 1.64753, + .07350, .03958, 35.55722, 1.71629, 1.42412, + 1.14532, 1.59660, 1.71918, + .07479, .04034, 36.90619, 1.78393, 1.49312, + 1.21638, 1.66485, 1.78691, + .07610, .04110, 38.27304, 1.85316, 1.56400, + 1.28976, 1.73470, 1.85623, + .07738, .04185, 39.57412, 1.92092, 1.63302, + 1.36065, 1.80306, 1.92409, + .07860, .04257, 40.82690, 1.98665, 1.70025, + 1.43018, 1.86934, 1.98990, + .07975, .04324, 41.96955, 2.04830, 1.76301, + 1.49456, 1.93152, 2.05164 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08091, .04392, 43.13181, 2.11151, 1.82755, + 1.56111, 1.99525, 2.11493, + .08205, .04459, 44.24937, 2.17368, 1.89088, + 1.62619, 2.05793, 2.17719, + .08315, .04522, 45.30705, 2.23338, 1.95173, + 1.68874, 2.11810, 2.23697, + .08419, .04583, 46.30732, 2.29050, 2.01002, + 1.74879, 2.17568, 2.29417, + .08523, .04644, 47.28269, 2.34767, 2.06815, + 1.80835, 2.23329, 2.35141 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03938, .01917, .77399, .29865, .00000, + .00000, .16093, .29905, + .04085, .02006, 1.40171, .31684, .00000, + .00000, .18027, .31734, + .04300, .02136, 2.41774, .34857, .01559, + .00000, .21360, .34920, + .04456, .02230, 3.21851, .37466, .04931, + .00000, .24080, .37539, + .04620, .02329, 4.13125, .40510, .08151, + .00000, .27237, .40595, + .04760, .02414, 4.96582, .43343, .11135, + .00000, .30164, .43437, + .04895, .02495, 5.82348, .46238, .14266, + .00000, .33146, .46341, + .05038, .02581, 6.79026, .49503, .17813, + .00000, .36502, .49615 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05161, .02656, 7.65460, .52495, .20964, + .00000, .39571, .52616, + .05280, .02727, 8.51889, .55512, .24145, + .00000, .42661, .55641, + .05375, .02784, 9.23405, .57998, .26803, + .00000, .45203, .58134, + .05575, .02904, 10.74902, .63551, .32638, + .00565, .50873, .63701, + .05745, .03007, 12.02719, .68559, .37858, + .06749, .55977, .68721, + .05936, .03121, 13.49853, .74428, .43978, + .14058, .61951, .74604, + .06135, .03240, 15.07310, .80789, .50595, + .21131, .68418, .80978, + .06314, .03348, 16.52924, .86765, .56803, + .27767, .74487, .86968 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06496, .03456, 18.02306, .92995, .63271, + .34644, .80809, .93210, + .06645, .03545, 19.26929, .98291, .68745, + .40385, .86180, .98518, + .06827, .03653, 20.78308, 1.04851, .75502, + .47441, .92827, 1.05090, + .06987, .03748, 22.13351, 1.10796, .81637, + .53880, .98849, 1.11047, + .07134, .03836, 23.37846, 1.16360, .87382, + .59913, 1.04482, 1.16622, + .07320, .03946, 24.93521, 1.23499, .94708, + .67514, 1.11705, 1.23774, + .07494, .04049, 26.39930, 1.30340, 1.01738, + .74834, 1.18625, 1.30629, + .07657, .04145, 27.77646, 1.36877, 1.08472, + .81877, 1.25235, 1.37178 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07820, .04241, 29.11435, 1.43424, 1.15166, + .88788, 1.31852, 1.43736, + .07979, .04335, 30.42395, 1.49932, 1.21840, + .95716, 1.38427, 1.50256, + .08130, .04423, 31.65404, 1.56160, 1.28228, + 1.02346, 1.44719, 1.56495, + .08271, .04506, 32.78495, 1.62031, 1.34229, + 1.08543, 1.50649, 1.62377, + .08413, .04590, 33.92763, 1.68028, 1.40381, + 1.14930, 1.56704, 1.68384, + .08553, .04671, 35.01021, 1.73881, 1.46355, + 1.21082, 1.62613, 1.74248, + .08686, .04749, 36.05012, 1.79548, 1.52163, + 1.27106, 1.68334, 1.79925, + .08811, .04822, 36.99419, 1.84849, 1.57569, + 1.32668, 1.73683, 1.85235 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08937, .04896, 37.95228, 1.90274, 1.63121, + 1.38408, 1.79158, 1.90669, + .09061, .04968, 38.86977, 1.95598, 1.68556, + 1.44009, 1.84530, 1.96002, + .09180, .05037, 39.73549, 2.00700, 1.73767, + 1.49381, 1.89678, 2.01114, + .09293, .05103, 40.55217, 2.05574, 1.78751, + 1.54531, 1.94594, 2.05996, + .09406, .05169, 41.34513, 2.10439, 1.83710, + 1.59626, 1.99502, 2.10870 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05451, .02824, .80103, .25856, .00000, + .00000, .13986, .25958, + .05658, .02953, 1.36307, .27455, .00000, + .00000, .15679, .27573, + .05961, .03141, 2.24127, .30164, .01314, + .00000, .18521, .30305, + .06179, .03276, 2.91248, .32344, .04138, + .00000, .20794, .32502, + .06407, .03417, 3.65837, .34838, .06778, + .00000, .23382, .35013, + .06603, .03537, 4.32538, .37120, .09190, + .00000, .25743, .37311, + .06789, .03651, 4.99826, .39423, .11691, + .00000, .28120, .39629, + .06987, .03772, 5.74333, .41989, .14491, + .00000, .30763, .42210 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07157, .03876, 6.39792, .44311, .16948, + .00000, .33149, .44545, + .07321, .03976, 7.04290, .46627, .19403, + .00000, .35526, .46875, + .07451, .04055, 7.57037, .48521, .21440, + .00000, .37468, .48779, + .07725, .04221, 8.66676, .52698, .25855, + .00444, .41744, .52978, + .07958, .04362, 9.56964, .56412, .29750, + .05089, .45540, .56710, + .08217, .04519, 10.58876, .60706, .34257, + .10537, .49924, .61025, + .08486, .04680, 11.65766, .65294, .39064, + .15726, .54602, .65634, + .08728, .04826, 12.62737, .69547, .43515, + .20533, .58936, .69906 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08971, .04971, 13.60465, .73926, .48097, + .25455, .63395, .74305, + .09172, .05091, 14.40650, .77607, .51930, + .29518, .67140, .78002, + .09414, .05235, 15.36458, .82113, .56610, + .34456, .71723, .82528, + .09628, .05362, 16.20598, .86153, .60814, + .38916, .75830, .86585, + .09822, .05477, 16.97092, .89898, .64714, + .43057, .79635, .90346, + .10068, .05622, 17.91101, .94649, .69630, + .48213, .84460, .95116, + .10297, .05757, 18.78100, .99151, .74297, + .53127, .89031, .99637, + .10512, .05883, 19.58781, 1.03412, .78726, + .57813, .93356, 1.03915 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10725, .06007, 20.35734, 1.07630, .83078, + .62356, .97636, 1.08150, + .10932, .06128, 21.10062, 1.11785, .87379, + .66874, 1.01852, 1.12322, + .11128, .06242, 21.78913, 1.15727, .91459, + .71159, 1.05849, 1.16279, + .11311, .06349, 22.41208, 1.19406, .95256, + .75126, 1.09581, 1.19973, + .11495, .06455, 23.03520, 1.23138, .99122, + .79189, 1.13365, 1.23720, + .11674, .06559, 23.61502, 1.26744, 1.02838, + .83062, 1.17021, 1.27340, + .11845, .06658, 24.16743, 1.30214, 1.06432, + .86834, 1.20540, 1.30824, + .12005, .06750, 24.65989, 1.33429, 1.09743, + .90284, 1.23798, 1.34052 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12167, .06843, 25.15577, 1.36701, 1.13127, + .93826, 1.27115, 1.37337, + .12326, .06934, 25.62320, 1.39885, 1.16411, + .97254, 1.30343, 1.40533, + .12476, .07020, 26.05936, 1.42916, 1.19540, + 1.00521, 1.33415, 1.43577, + .12620, .07102, 26.46692, 1.45795, 1.22517, + 1.03637, 1.36333, 1.46468, + .12763, .07184, 26.85555, 1.48645, 1.25452, + 1.06692, 1.39221, 1.49328 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07677, .04280, .88393, .22764, .00000, + .00000, .12346, .22983, + .07970, .04463, 1.38069, .24149, .00000, + .00000, .13813, .24394, + .08396, .04727, 2.12450, .26420, .01093, + .00000, .16199, .26702, + .08701, .04915, 2.67333, .28205, .03424, + .00000, .18065, .28514, + .09018, .05110, 3.26641, .30203, .05552, + .00000, .20146, .30540, + .09289, .05275, 3.78350, .31998, .07467, + .00000, .22010, .32359, + .09546, .05432, 4.29404, .33784, .09425, + .00000, .23862, .34168, + .09818, .05597, 4.84782, .35747, .11587, + .00000, .25893, .36155 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10051, .05738, 5.32472, .37496, .13459, + .00000, .27700, .37925, + .10275, .05872, 5.78662, .39222, .15308, + .00000, .29480, .39670, + .10451, .05979, 6.15925, .40620, .16828, + .00000, .30922, .41084, + .10822, .06200, 6.91648, .43659, .20079, + .00342, .34050, .44155, + .11135, .06387, 7.52167, .46316, .22902, + .03740, .36782, .46840, + .11483, .06593, 8.18891, .49342, .26119, + .07693, .39889, .49896, + .11841, .06804, 8.87208, .52521, .29496, + .11391, .43152, .53107, + .12162, .06993, 9.47752, .55423, .32577, + .14768, .46129, .56037 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12483, .07180, 10.07453, .58368, .35704, + .18178, .49147, .59010, + .12746, .07334, 10.55434, .60810, .38286, + .20956, .51650, .61475, + .13062, .07517, 11.11573, .63761, .41397, + .24291, .54672, .64453, + .13339, .07677, 11.59918, .66373, .44158, + .27268, .57346, .67088, + .13591, .07822, 12.03111, .68766, .46692, + .30003, .59796, .69503, + .13907, .08003, 12.54985, .71760, .49842, + .33363, .62860, .72524, + .14202, .08171, 13.01976, .74561, .52797, + .36528, .65726, .75351, + .14476, .08327, 13.44746, .77181, .55570, + .39514, .68408, .77995 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14745, .08479, 13.84509, .79739, .58257, + .42370, .71025, .80575, + .15007, .08627, 14.22237, .82232, .60886, + .45182, .73575, .83090, + .15253, .08765, 14.56517, .84570, .63355, + .47824, .75968, .85449, + .15482, .08894, 14.86799, .86728, .65625, + .50241, .78175, .87626, + .15712, .09022, 15.16686, .88898, .67919, + .52700, .80397, .89816, + .15935, .09146, 15.43707, .90968, .70096, + .55014, .82515, .91904, + .16146, .09263, 15.69184, .92946, .72189, + .57256, .84539, .93900, + .16343, .09372, 15.91212, .94755, .74094, + .59281, .86392, .95726 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16542, .09481, 16.13160, .96585, .76028, + .61349, .88266, .97573, + .16736, .09588, 16.33303, .98346, .77887, + .63330, .90069, .99350, + .16920, .09688, 16.51766, 1.00010, .79644, + .65205, .91773, 1.01028, + .17094, .09783, 16.68760, 1.01578, .81304, + .66982, .93380, 1.02611, + .17267, .09878, 16.84429, 1.03112, .82924, + .68706, .94952, 1.04160 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09477, .05511, .96699, .21291, .00000, + .00000, .11573, .21634, + .09836, .05732, 1.42109, .22549, .00000, + .00000, .12910, .22926, + .10353, .06049, 2.08497, .24569, .00974, + .00000, .15042, .24995, + .10722, .06273, 2.56364, .26134, .03038, + .00000, .16686, .26594, + .11105, .06504, 3.07175, .27860, .04896, + .00000, .18494, .28357, + .11430, .06698, 3.50752, .29393, .06548, + .00000, .20094, .29919, + .11739, .06883, 3.93170, .30904, .08224, + .00000, .21670, .31459, + .12064, .07076, 4.38559, .32549, .10059, + .00000, .23383, .33135 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12341, .07241, 4.77134, .34002, .11631, + .00000, .24892, .34613, + .12607, .07397, 5.14073, .35423, .13174, + .00000, .26368, .36059, + .12816, .07520, 5.43606, .36568, .14435, + .00000, .27556, .37223, + .13254, .07777, 6.02669, .39033, .17107, + .00290, .30109, .39727, + .13623, .07991, 6.48870, .41164, .19402, + .03077, .32315, .41893, + .14030, .08226, 6.98971, .43566, .21992, + .06301, .34799, .44331, + .14447, .08466, 7.49412, .46061, .24683, + .09282, .37378, .46865, + .14820, .08679, 7.93376, .48316, .27113, + .11978, .39707, .49153 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15191, .08890, 8.36048, .50581, .29557, + .14676, .42047, .51451, + .15495, .09061, 8.69823, .52441, .31557, + .16856, .43968, .53339, + .15858, .09266, 9.08730, .54668, .33946, + .19451, .46267, .55598, + .16175, .09443, 9.41739, .56623, .36049, + .21750, .48285, .57580, + .16463, .09604, 9.70832, .58400, .37965, + .23847, .50120, .59383, + .16821, .09802, 10.05127, .60601, .40325, + .26401, .52393, .61616, + .17154, .09986, 10.35692, .62643, .42520, + .28787, .54501, .63686, + .17463, .10156, 10.63118, .64537, .44565, + .31023, .56457, .65607 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17766, .10321, 10.88019, .66366, .46527, + .33142, .58347, .67462, + .18060, .10480, 11.11304, .68136, .48435, + .35216, .60176, .69257, + .18334, .10629, 11.32115, .69783, .50213, + .37150, .61879, .70928, + .18589, .10766, 11.50078, .71289, .51834, + .38907, .63436, .72456, + .18844, .10903, 11.67600, .72795, .53465, + .40685, .64994, .73984, + .19089, .11034, 11.82988, .74217, .54998, + .42345, .66466, .75426, + .19322, .11158, 11.97372, .75570, .56466, + .43947, .67867, .76799, + .19539, .11272, 12.09420, .76796, .57790, + .45382, .69138, .78043 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19756, .11387, 12.21315, .78031, .59129, + .46842, .70417, .79296, + .19968, .11498, 12.31897, .79208, .60406, + .48231, .71638, .80491, + .20168, .11603, 12.41399, .80314, .61607, + .49539, .72785, .81613, + .20357, .11702, 12.50002, .81351, .62736, + .50773, .73861, .82665, + .20544, .11800, 12.57586, .82355, .63829, + .51961, .74905, .83685 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11070, .06619, 1.04409, .20377, .00000, + .00000, .11099, .20849, + .11482, .06868, 1.46515, .21541, .00000, + .00000, .12342, .22054, + .12074, .07223, 2.07021, .23383, .00892, + .00000, .14297, .23953, + .12495, .07473, 2.49880, .24792, .02776, + .00000, .15787, .25404, + .12930, .07731, 2.94767, .26332, .04451, + .00000, .17409, .26986, + .13299, .07947, 3.32782, .27686, .05929, + .00000, .18831, .28375, + .13648, .08150, 3.69381, .29010, .07418, + .00000, .20222, .29733, + .14014, .08363, 4.08133, .30443, .09036, + .00000, .21723, .31201 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14326, .08544, 4.40732, .31698, .10414, + .00000, .23037, .32486, + .14624, .08715, 4.71666, .32919, .11758, + .00000, .24313, .33734, + .14858, .08850, 4.96222, .33898, .12851, + .00000, .25336, .34735, + .15347, .09129, 5.44701, .35988, .15151, + .00256, .27518, .36871, + .15757, .09360, 5.81938, .37781, .17111, + .02654, .29387, .38702, + .16208, .09614, 6.21776, .39784, .19306, + .05417, .31474, .40747, + .16668, .09872, 6.61326, .41848, .21567, + .07948, .33624, .42853, + .17079, .10099, 6.95316, .43695, .23593, + .10221, .35549, .44738 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17486, .10324, 7.27868, .45538, .25617, + .12480, .37468, .46617, + .17818, .10506, 7.53293, .47040, .27261, + .14293, .39032, .48149, + .18213, .10721, 7.82176, .48824, .29211, + .16438, .40891, .49968, + .18558, .10908, 8.06360, .50378, .30917, + .18326, .42511, .51553, + .18870, .11076, 8.27418, .51783, .32463, + .20040, .43976, .52986, + .19257, .11284, 8.51807, .53509, .34352, + .22113, .45776, .54745, + .19615, .11474, 8.73205, .55097, .36098, + .24037, .47433, .56365, + .19946, .11650, 8.92140, .56561, .37715, + .25831, .48961, .57858 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20270, .11820, 9.08930, .57962, .39255, + .27519, .50426, .59286, + .20582, .11984, 9.24397, .59309, .40743, + .29162, .51834, .60660, + .20874, .12136, 9.37977, .60555, .42122, + .30687, .53137, .61931, + .21144, .12275, 9.49405, .61685, .43372, + .32064, .54321, .63083, + .21413, .12414, 9.60421, .62810, .44623, + .33452, .55500, .64231, + .21672, .12547, 9.69753, .63862, .45791, + .34739, .56604, .65305, + .21916, .12672, 9.78399, .64860, .46905, + .35977, .57651, .66323, + .22143, .12787, 9.85329, .65756, .47903, + .37079, .58593, .67237 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22370, .12902, 9.92097, .66654, .48909, + .38197, .59538, .68154, + .22590, .13012, 9.97857, .67505, .49862, + .39254, .60433, .69022, + .22798, .13117, 10.02880, .68299, .50754, + .40246, .61270, .69833, + .22994, .13215, 10.07314, .69040, .51590, + .41179, .62052, .70590, + .23188, .13311, 10.10928, .69751, .52393, + .42071, .62804, .71316 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12534, .07639, 1.11315, .19721, .00000, + .00000, .10766, .20326, + .12992, .07910, 1.50700, .20808, .00000, + .00000, .11935, .21460, + .13647, .08295, 2.06478, .22509, .00830, + .00000, .13752, .23226, + .14111, .08565, 2.45410, .23798, .02577, + .00000, .15124, .24562, + .14589, .08842, 2.85744, .25194, .04116, + .00000, .16605, .26004, + .14992, .09073, 3.19549, .26412, .05464, + .00000, .17894, .27261, + .15374, .09291, 3.51799, .27597, .06814, + .00000, .19146, .28483, + .15773, .09518, 3.85647, .28870, .08274, + .00000, .20491, .29796 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16114, .09710, 4.13873, .29979, .09509, + .00000, .21660, .30937, + .16437, .09891, 4.40448, .31051, .10709, + .00000, .22790, .32040, + .16692, .10034, 4.61413, .31908, .11681, + .00000, .23692, .32921, + .17220, .10328, 5.02356, .33726, .13713, + .00231, .25605, .34789, + .17662, .10571, 5.33279, .35274, .15434, + .02351, .27232, .36378, + .18147, .10836, 5.65971, .36991, .17348, + .04786, .29037, .38140, + .18640, .11104, 5.98018, .38746, .19306, + .07000, .30881, .39941, + .19079, .11340, 6.25208, .40307, .21050, + .08976, .32522, .41541 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19512, .11572, 6.50937, .41853, .22780, + .10929, .34147, .43126, + .19864, .11760, 6.70778, .43104, .24178, + .12488, .35464, .44409, + .20283, .11981, 6.93011, .44581, .25827, + .14322, .37019, .45923, + .20646, .12171, 7.11398, .45860, .27262, + .15929, .38365, .47234, + .20975, .12343, 7.27230, .47009, .28554, + .17380, .39576, .48411, + .21381, .12553, 7.45213, .48410, .30126, + .19126, .41055, .49848, + .21756, .12746, 7.60735, .49691, .31569, + .20739, .42407, .51161, + .22102, .12923, 7.74276, .50865, .32899, + .22236, .43648, .52365 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22438, .13093, 7.85976, .51979, .34157, + .23635, .44828, .53507, + .22762, .13256, 7.96567, .53045, .35368, + .24992, .45957, .54600, + .23064, .13408, 8.05665, .54024, .36484, + .26246, .46995, .55604, + .23342, .13546, 8.13098, .54905, .37490, + .27372, .47932, .56508, + .23619, .13683, 8.20165, .55779, .38493, + .28504, .48862, .57405, + .23884, .13813, 8.25850, .56590, .39423, + .29547, .49726, .58237, + .24135, .13937, 8.31056, .57356, .40308, + .30548, .50544, .59023, + .24365, .14049, 8.34935, .58037, .41095, + .31434, .51272, .59722 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24597, .14161, 8.38659, .58718, .41886, + .32331, .52001, .60421, + .24820, .14268, 8.41598, .59357, .42631, + .33175, .52687, .61078, + .25031, .14369, 8.44025, .59950, .43326, + .33964, .53324, .61688, + .25229, .14463, 8.46057, .60501, .43975, + .34704, .53918, .62254, + .25425, .14556, 8.47404, .61025, .44594, + .35407, .54484, .62793 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15215, .09493, 1.23070, .18782, .00000, + .00000, .10308, .19662, + .15746, .09795, 1.57979, .19747, .00000, + .00000, .11360, .20681, + .16502, .10220, 2.06279, .21228, .00738, + .00000, .12966, .22239, + .17034, .10517, 2.39187, .22333, .02282, + .00000, .14160, .23397, + .17579, .10818, 2.72681, .23513, .03621, + .00000, .15431, .24631, + .18037, .11069, 3.00280, .24529, .04781, + .00000, .16524, .25692, + .18469, .11304, 3.26214, .25507, .05933, + .00000, .17576, .26712, + .18919, .11547, 3.53041, .26549, .07166, + .00000, .18694, .27797 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19300, .11752, 3.75085, .27446, .08200, + .00000, .19656, .28731, + .19662, .11945, 3.95574, .28306, .09195, + .00000, .20579, .29626, + .19946, .12096, 4.11577, .28989, .09998, + .00000, .21311, .30335, + .20531, .12405, 4.42171, .30423, .11659, + .00196, .22847, .31824, + .21018, .12659, 4.64587, .31629, .13049, + .01933, .24137, .33074, + .21549, .12934, 4.87755, .32950, .14580, + .03917, .25553, .34444, + .22087, .13209, 5.09946, .34283, .16129, + .05700, .26982, .35825, + .22561, .13451, 5.28326, .35453, .17493, + .07276, .28238, .37037 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23028, .13686, 5.45301, .36598, .18833, + .08819, .29469, .38223, + .23406, .13874, 5.58063, .37514, .19905, + .10039, .30455, .39173, + .23852, .14095, 5.71961, .38583, .21157, + .11463, .31607, .40279, + .24237, .14284, 5.83148, .39497, .22237, + .12701, .32594, .41226, + .24584, .14453, 5.92532, .40311, .23202, + .13811, .33474, .42069, + .25010, .14659, 6.02752, .41290, .24363, + .15133, .34535, .43083, + .25401, .14846, 6.11227, .42173, .25419, + .16345, .35495, .43998, + .25760, .15016, 6.18350, .42974, .26384, + .17460, .36368, .44829 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26106, .15179, 6.24043, .43722, .27286, + .18493, .37185, .45604, + .26438, .15334, 6.28951, .44430, .28147, + .19488, .37961, .46337, + .26747, .15477, 6.32898, .45073, .28934, + .20400, .38667, .47004, + .27029, .15606, 6.35756, .45643, .29635, + .21212, .39296, .47595, + .27308, .15733, 6.38326, .46203, .30331, + .22025, .39915, .48177, + .27574, .15853, 6.39951, .46713, .30969, + .22766, .40481, .48706, + .27826, .15965, 6.41359, .47191, .31572, + .23474, .41015, .49204, + .28054, .16067, 6.41932, .47609, .32102, + .24095, .41482, .49637 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28283, .16168, 6.42383, .48024, .32632, + .24721, .41947, .50069, + .28503, .16264, 6.42305, .48406, .33126, + .25305, .42379, .50466, + .28710, .16354, 6.41971, .48756, .33584, + .25847, .42776, .50831, + .28904, .16437, 6.41472, .49079, .34008, + .26354, .43143, .51167, + .29093, .16518, 6.40475, .49379, .34407, + .26830, .43487, .51480 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18855, .11948, 1.36530, .17790, .00000, + .00000, .09848, .19086, + .19466, .12275, 1.66118, .18611, .00000, + .00000, .10768, .19969, + .20329, .12730, 2.05957, .19845, .00641, + .00000, .12142, .21289, + .20931, .13043, 2.32311, .20750, .01971, + .00000, .13145, .22253, + .21544, .13360, 2.58587, .21698, .03105, + .00000, .14195, .23260, + .22056, .13621, 2.79795, .22502, .04075, + .00000, .15085, .24113, + .22536, .13864, 2.99358, .23267, .05027, + .00000, .15931, .24924, + .23034, .14114, 3.19228, .24072, .06036, + .00000, .16821, .25775 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23453, .14323, 3.35256, .24757, .06872, + .00000, .17578, .26498, + .23848, .14518, 3.49903, .25406, .07670, + .00000, .18295, .27183, + .24157, .14670, 3.61194, .25917, .08308, + .00000, .18860, .27722, + .24793, .14978, 3.82153, .26975, .09615, + .00161, .20032, .28837, + .25315, .15229, 3.96790, .27852, .10695, + .01536, .21002, .29759, + .25880, .15498, 4.11425, .28798, .11869, + .03097, .22051, .30752, + .26448, .15765, 4.24954, .29735, .13040, + .04481, .23093, .31737, + .26946, .15995, 4.35727, .30543, .14059, + .05689, .23996, .32586 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27432, .16218, 4.45276, .31322, .15047, + .06860, .24867, .33404, + .27822, .16394, 4.52118, .31935, .15829, + .07777, .25555, .34048, + .28279, .16598, 4.59173, .32637, .16731, + .08835, .26348, .34785, + .28671, .16771, 4.64536, .33229, .17500, + .09747, .27019, .35406, + .29021, .16924, 4.68771, .33748, .18181, + .10557, .27609, .35952, + .29447, .17108, 4.72895, .34359, .18989, + .11512, .28308, .36593, + .29835, .17273, 4.75940, .34901, .19715, + .12378, .28931, .37162, + .30189, .17422, 4.78201, .35384, .20372, + .13169, .29490, .37670 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30528, .17562, 4.79444, .35822, .20976, + .13892, .30003, .38131, + .30850, .17693, 4.80202, .36230, .21547, + .14582, .30483, .38559, + .31146, .17813, 4.80445, .36593, .22063, + .15210, .30913, .38942, + .31414, .17920, 4.80075, .36906, .22517, + .15763, .31288, .39271, + .31679, .18024, 4.79510, .37209, .22963, + .16312, .31654, .39591, + .31928, .18120, 4.78356, .37475, .23365, + .16807, .31979, .39872, + .32162, .18210, 4.77189, .37723, .23743, + .17279, .32283, .40133, + .32374, .18288, 4.75597, .37929, .24069, + .17686, .32542, .40351 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32585, .18367, 4.73930, .38132, .24394, + .18095, .32798, .40566, + .32784, .18440, 4.71952, .38311, .24691, + .18472, .33029, .40755, + .32971, .18507, 4.69912, .38471, .24964, + .18820, .33238, .40925, + .33144, .18569, 4.67878, .38615, .25214, + .19142, .33428, .41078, + .33312, .18627, 4.65517, .38741, .25445, + .19442, .33599, .41212 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24321, .15446, 1.50758, .16529, .00000, + .00000, .09304, .18514, + .25011, .15778, 1.73585, .17167, .00000, + .00000, .10054, .19215, + .25973, .16231, 2.03203, .18099, .00528, + .00000, .11147, .20235, + .26637, .16539, 2.21993, .18767, .01614, + .00000, .11927, .20961, + .27307, .16844, 2.40199, .19450, .02521, + .00000, .12727, .21702, + .27859, .17094, 2.54459, .20018, .03283, + .00000, .13392, .22316, + .28374, .17324, 2.67271, .20549, .04022, + .00000, .14014, .22889, + .28903, .17557, 2.79945, .21098, .04795, + .00000, .14659, .23481 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29345, .17749, 2.89866, .21556, .05425, + .00000, .15198, .23973, + .29758, .17927, 2.98689, .21984, .06020, + .00000, .15702, .24433, + .30079, .18064, 3.05354, .22317, .06492, + .00000, .16095, .24790, + .30732, .18337, 3.17049, .22993, .07444, + .00125, .16895, .25514, + .31261, .18555, 3.24419, .23539, .08217, + .01139, .17545, .26097, + .31828, .18784, 3.31272, .24114, .09044, + .02282, .18233, .26710, + .32389, .19006, 3.37088, .24667, .09855, + .03277, .18901, .27300, + .32874, .19194, 3.41243, .25131, .10548, + .04134, .19467, .27794 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33342, .19372, 3.44478, .25565, .11210, + .04953, .20000, .28256, + .33713, .19509, 3.46407, .25897, .11725, + .05586, .20414, .28608, + .34140, .19664, 3.47902, .26264, .12310, + .06308, .20877, .28999, + .34503, .19792, 3.48642, .26563, .12801, + .06922, .21261, .29317, + .34823, .19903, 3.48881, .26819, .13230, + .07462, .21592, .29588, + .35206, .20032, 3.48377, .27105, .13729, + .08088, .21971, .29892, + .35549, .20145, 3.47392, .27348, .14170, + .08649, .22301, .30150, + .35859, .20243, 3.46122, .27557, .14562, + .09156, .22589, .30371 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36148, .20331, 3.44244, .27732, .14915, + .09611, .22842, .30557, + .36420, .20411, 3.42166, .27888, .15243, + .10042, .23072, .30722, + .36666, .20482, 3.39949, .28019, .15536, + .10429, .23272, .30859, + .36884, .20541, 3.37526, .28121, .15786, + .10764, .23437, .30966, + .37098, .20598, 3.35014, .28216, .16030, + .11094, .23596, .31067, + .37293, .20646, 3.32214, .28286, .16243, + .11387, .23727, .31140, + .37476, .20691, 3.29550, .28349, .16442, + .11663, .23848, .31207, + .37636, .20726, 3.26764, .28390, .16607, + .11898, .23942, .31249 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37795, .20761, 3.23953, .28427, .16771, + .12132, .24032, .31287, + .37942, .20790, 3.21019, .28450, .16916, + .12344, .24107, .31311, + .38076, .20815, 3.18166, .28464, .17046, + .12537, .24171, .31325, + .38200, .20837, 3.15430, .28473, .17164, + .12715, .24226, .31334, + .38316, .20855, 3.12510, .28468, .17267, + .12877, .24266, .31328 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29292, .18406, 1.57803, .15433, .00000, + .00000, .08850, .18071, + .30014, .18714, 1.75489, .15928, .00000, + .00000, .09470, .18624, + .31007, .19128, 1.97674, .16638, .00447, + .00000, .10353, .19406, + .31686, .19404, 2.11198, .17135, .01358, + .00000, .10973, .19953, + .32362, .19675, 2.23942, .17634, .02107, + .00000, .11596, .20498, + .32915, .19891, 2.33633, .18041, .02729, + .00000, .12106, .20940, + .33426, .20087, 2.42110, .18415, .03325, + .00000, .12578, .21347, + .33947, .20284, 2.50263, .18796, .03943, + .00000, .13060, .21759 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34377, .20444, 2.56427, .19108, .04441, + .00000, .13456, .22095, + .34776, .20590, 2.61733, .19394, .04907, + .00000, .13824, .22403, + .35086, .20700, 2.65648, .19614, .05274, + .00000, .14107, .22640, + .35705, .20916, 2.71967, .20052, .06006, + .00102, .14675, .23110, + .36202, .21083, 2.75248, .20397, .06592, + .00891, .15127, .23477, + .36725, .21253, 2.77842, .20750, .07211, + .01776, .15597, .23851, + .37235, .21413, 2.79561, .21077, .07809, + .02538, .16043, .24198, + .37670, .21543, 2.80301, .21341, .08313, + .03185, .16411, .24476 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38081, .21662, 2.80364, .21579, .08788, + .03798, .16751, .24724, + .38402, .21750, 2.79888, .21752, .09153, + .04266, .17007, .24905, + .38767, .21843, 2.78738, .21934, .09561, + .04795, .17287, .25094, + .39072, .21917, 2.77337, .22075, .09900, + .05241, .17513, .25239, + .39336, .21978, 2.75769, .22189, .10192, + .05630, .17702, .25356, + .39645, .22042, 2.73261, .22304, .10525, + .06075, .17911, .25471, + .39916, .22094, 2.70604, .22392, .10815, + .06470, .18084, .25558, + .40156, .22137, 2.67927, .22460, .11070, + .06823, .18231, .25622 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40371, .22168, 2.64872, .22503, .11293, + .07136, .18349, .25660, + .40571, .22193, 2.61767, .22534, .11499, + .07429, .18452, .25685, + .40748, .22210, 2.58699, .22549, .11678, + .07690, .18536, .25695, + .40899, .22219, 2.55628, .22549, .11828, + .07913, .18598, .25688, + .41044, .22226, 2.52533, .22544, .11972, + .08131, .18655, .25675, + .41172, .22225, 2.49302, .22522, .12093, + .08321, .18693, .25645, + .41290, .22223, 2.46265, .22498, .12206, + .08500, .18726, .25614, + .41386, .22214, 2.43248, .22463, .12295, + .08648, .18742, .25570 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41480, .22204, 2.40236, .22426, .12383, + .08796, .18755, .25522, + .41563, .22190, 2.37187, .22378, .12458, + .08928, .18758, .25465, + .41636, .22174, 2.34271, .22328, .12522, + .09047, .18755, .25405, + .41701, .22156, 2.31510, .22278, .12580, + .09155, .18748, .25345, + .41756, .22134, 2.28644, .22218, .12627, + .09251, .18732, .25274 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38150, .23149, 1.58848, .13428, .00000, + .00000, .08019, .17170, + .38836, .23366, 1.69287, .13719, .00000, + .00000, .08440, .17483, + .39757, .23640, 1.81448, .14118, .00331, + .00000, .09022, .17907, + .40368, .23813, 1.88158, .14389, .01000, + .00000, .09417, .18188, + .40964, .23973, 1.94056, .14647, .01537, + .00000, .09803, .18456, + .41440, .24092, 1.98182, .14849, .01974, + .00000, .10110, .18660, + .41870, .24194, 2.01518, .15027, .02387, + .00000, .10387, .18839, + .42300, .24291, 2.04442, .15202, .02808, + .00000, .10664, .19011 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42647, .24362, 2.06356, .15338, .03142, + .00000, .10884, .19142, + .42962, .24422, 2.07770, .15457, .03450, + .00000, .11083, .19256, + .43202, .24465, 2.08695, .15545, .03690, + .00000, .11234, .19340, + .43666, .24537, 2.09336, .15711, .04160, + .00072, .11526, .19491, + .44022, .24580, 2.08499, .15828, .04528, + .00592, .11749, .19594, + .44382, .24612, 2.06947, .15937, .04909, + .01171, .11970, .19681, + .44716, .24628, 2.04822, .16020, .05269, + .01659, .12167, .19741, + .44985, .24627, 2.02483, .16074, .05565, + .02067, .12319, .19771 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45226, .24615, 1.99800, .16109, .05837, + .02447, .12449, .19781, + .45402, .24595, 1.97332, .16122, .06042, + .02733, .12540, .19771, + .45586, .24559, 1.94091, .16121, .06265, + .03050, .12628, .19738, + .45729, .24519, 1.91086, .16107, .06445, + .03314, .12691, .19696, + .45844, .24477, 1.88237, .16084, .06597, + .03540, .12737, .19648, + .45960, .24410, 1.84427, .16037, .06765, + .03795, .12776, .19567, + .46048, .24340, 1.80771, .15982, .06906, + .04017, .12798, .19479, + .46116, .24269, 1.77323, .15922, .07027, + .04212, .12809, .19387 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46158, .24188, 1.73750, .15849, .07127, + .04381, .12803, .19281, + .46187, .24104, 1.70265, .15770, .07216, + .04537, .12790, .19170, + .46202, .24020, 1.66964, .15690, .07290, + .04673, .12769, .19058, + .46199, .23934, 1.63816, .15606, .07348, + .04787, .12739, .18943, + .46192, .23847, 1.60706, .15519, .07403, + .04897, .12707, .18826, + .46166, .23754, 1.57604, .15425, .07444, + .04989, .12665, .18701, + .46140, .23666, 1.54722, .15336, .07481, + .05076, .12624, .18582, + .46098, .23576, 1.51961, .15244, .07505, + .05145, .12576, .18462 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46055, .23486, 1.49235, .15151, .07529, + .05212, .12526, .18341, + .46000, .23393, 1.46545, .15054, .07544, + .05271, .12472, .18217, + .45943, .23303, 1.44011, .14960, .07556, + .05323, .12417, .18096, + .45886, .23216, 1.41641, .14869, .07565, + .05369, .12364, .17981, + .45817, .23124, 1.39238, .14773, .07567, + .05407, .12305, .17858 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45801, .26691, 1.50558, .11605, .00000, + .00000, .07220, .16115, + .46362, .26783, 1.56368, .11762, .00000, + .00000, .07503, .16249, + .47086, .26878, 1.62397, .11968, .00253, + .00000, .07880, .16414, + .47549, .26922, 1.65144, .12099, .00758, + .00000, .08130, .16512, + .47983, .26947, 1.67202, .12217, .01158, + .00000, .08365, .16592, + .48315, .26951, 1.68296, .12301, .01478, + .00000, .08547, .16639, + .48605, .26944, 1.68914, .12369, .01778, + .00000, .08705, .16672, + .48885, .26925, 1.69154, .12431, .02079, + .00000, .08859, .16695 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49098, .26897, 1.68953, .12471, .02315, + .00000, .08978, .16701, + .49282, .26863, 1.68482, .12501, .02531, + .00000, .09081, .16698, + .49417, .26832, 1.67991, .12521, .02697, + .00000, .09156, .16690, + .49656, .26750, 1.66069, .12548, .03018, + .00053, .09297, .16654, + .49818, .26662, 1.63513, .12554, .03265, + .00417, .09396, .16607, + .49959, .26551, 1.60336, .12544, .03517, + .00821, .09486, .16535, + .50064, .26421, 1.56806, .12514, .03750, + .01156, .09555, .16441, + .50124, .26291, 1.53431, .12472, .03937, + .01432, .09599, .16339 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50155, .26151, 1.49911, .12418, .04106, + .01686, .09628, .16223, + .50157, .26026, 1.46903, .12363, .04230, + .01875, .09638, .16118, + .50132, .25865, 1.43180, .12284, .04362, + .02082, .09638, .15979, + .50089, .25716, 1.39875, .12207, .04467, + .02251, .09627, .15849, + .50034, .25578, 1.36848, .12132, .04553, + .02395, .09611, .15724, + .49936, .25390, 1.32961, .12026, .04644, + .02554, .09577, .15553, + .49824, .25209, 1.29342, .11920, .04717, + .02691, .09535, .15388, + .49707, .25038, 1.26005, .11817, .04779, + .02810, .09490, .15229 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49565, .24857, 1.22655, .11704, .04826, + .02910, .09436, .15061, + .49416, .24678, 1.19444, .11592, .04865, + .03002, .09378, .14896, + .49263, .24506, 1.16455, .11484, .04896, + .03080, .09319, .14737, + .49104, .24340, 1.13661, .11377, .04917, + .03144, .09257, .14583, + .48941, .24174, 1.10927, .11269, .04936, + .03205, .09194, .14428, + .48763, .24004, 1.08251, .11158, .04946, + .03255, .09125, .14272, + .48594, .23844, 1.05782, .11054, .04954, + .03301, .09060, .14124, + .48419, .23687, 1.03458, .10951, .04956, + .03336, .08993, .13981 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48242, .23531, 1.01178, .10849, .04956, + .03370, .08927, .13837, + .48058, .23374, .98954, .10745, .04952, + .03398, .08857, .13693, + .47878, .23224, .96877, .10645, .04946, + .03422, .08790, .13556, + .47705, .23081, .94947, .10551, .04939, + .03443, .08725, .13427, + .47519, .22933, .93013, .10453, .04928, + .03459, .08657, .13293 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52357, .29288, 1.38284, .09977, .00000, + .00000, .06450, .14905, + .52734, .29245, 1.41114, .10048, .00000, + .00000, .06631, .14904, + .53184, .29146, 1.43344, .10132, .00196, + .00000, .06868, .14881, + .53448, .29053, 1.43741, .10179, .00586, + .00000, .07017, .14853, + .53669, .28938, 1.43579, .10212, .00890, + .00000, .07153, .14803, + .53818, .28824, 1.42978, .10227, .01132, + .00000, .07253, .14746, + .53932, .28706, 1.42120, .10233, .01355, + .00000, .07337, .14683, + .54024, .28573, 1.40947, .10231, .01578, + .00000, .07415, .14609 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54076, .28448, 1.39666, .10219, .01750, + .00000, .07469, .14536, + .54104, .28320, 1.38261, .10202, .01906, + .00000, .07513, .14459, + .54117, .28216, 1.37085, .10186, .02026, + .00000, .07545, .14395, + .54097, .27985, 1.34012, .10140, .02254, + .00041, .07595, .14247, + .54040, .27774, 1.30784, .10089, .02426, + .00305, .07623, .14110, + .53939, .27527, 1.27037, .10020, .02600, + .00597, .07639, .13948, + .53795, .27260, 1.23086, .09935, .02757, + .00836, .07638, .13768, + .53632, .27011, 1.19471, .09850, .02881, + .01031, .07623, .13597 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53441, .26754, 1.15826, .09757, .02991, + .01209, .07599, .13417, + .53263, .26534, 1.12802, .09671, .03069, + .01339, .07571, .13263, + .53018, .26265, 1.09153, .09564, .03151, + .01480, .07526, .13070, + .52785, .26023, 1.05979, .09465, .03214, + .01595, .07480, .12896, + .52562, .25798, 1.03118, .09370, .03264, + .01691, .07433, .12736, + .52250, .25508, .99524, .09244, .03315, + .01796, .07367, .12527, + .51942, .25233, .96229, .09122, .03355, + .01885, .07299, .12329, + .51645, .24974, .93232, .09007, .03385, + .01962, .07231, .12145 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51324, .24712, .90275, .08887, .03407, + .02025, .07157, .11957, + .51005, .24456, .87470, .08770, .03423, + .02081, .07083, .11773, + .50694, .24212, .84887, .08657, .03434, + .02129, .07011, .11598, + .50389, .23979, .82499, .08549, .03438, + .02167, .06939, .11433, + .50083, .23747, .80177, .08441, .03441, + .02203, .06867, .11270, + .49766, .23516, .77934, .08332, .03438, + .02231, .06793, .11107, + .49467, .23300, .75875, .08230, .03435, + .02256, .06722, .10955, + .49170, .23092, .73956, .08132, .03427, + .02275, .06653, .10809 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48872, .22885, .72080, .08035, .03419, + .02292, .06584, .10664, + .48571, .22678, .70267, .07937, .03407, + .02306, .06514, .10521, + .48282, .22482, .68583, .07844, .03396, + .02317, .06446, .10386, + .48006, .22296, .67025, .07757, .03383, + .02327, .06383, .10259, + .47719, .22108, .65476, .07667, .03368, + .02333, .06317, .10129 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59109, .31453, 1.21452, .08231, .00000, + .00000, .05541, .13234, + .59200, .31242, 1.22011, .08239, .00000, + .00000, .05636, .13119, + .59239, .30905, 1.21468, .08233, .00146, + .00000, .05753, .12942, + .59211, .30646, 1.20233, .08219, .00433, + .00000, .05822, .12807, + .59129, .30360, 1.18581, .08193, .00655, + .00000, .05877, .12658, + .59019, .30106, 1.16888, .08161, .00828, + .00000, .05913, .12520, + .58888, .29857, 1.15112, .08125, .00987, + .00000, .05938, .12386, + .58725, .29589, 1.13093, .08081, .01144, + .00000, .05957, .12241 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58557, .29349, 1.11200, .08038, .01264, + .00000, .05965, .12108, + .58378, .29115, 1.09294, .07990, .01372, + .00000, .05967, .11978, + .58228, .28929, 1.07767, .07951, .01453, + .00000, .05966, .11875, + .57869, .28528, 1.04188, .07863, .01607, + .00030, .05952, .11653, + .57529, .28178, 1.00779, .07778, .01721, + .00212, .05930, .11461, + .57119, .27783, .96963, .07678, .01834, + .00414, .05896, .11242, + .56660, .27369, .93064, .07568, .01934, + .00577, .05850, .11011, + .56221, .26992, .89594, .07462, .02011, + .00709, .05800, .10799 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55759, .26610, .86172, .07351, .02077, + .00827, .05744, .10585, + .55357, .26294, .83388, .07257, .02123, + .00912, .05692, .10407, + .54853, .25909, .80093, .07139, .02169, + .01004, .05624, .10191, + .54397, .25569, .77270, .07034, .02204, + .01077, .05560, .10001, + .53971, .25260, .74760, .06938, .02230, + .01138, .05499, .09826, + .53412, .24865, .71654, .06810, .02254, + .01203, .05418, .09607, + .52879, .24496, .68846, .06690, .02271, + .01257, .05339, .09404, + .52376, .24155, .66318, .06578, .02283, + .01303, .05264, .09215 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51858, .23811, .63859, .06464, .02289, + .01340, .05186, .09027, + .51349, .23479, .61548, .06353, .02291, + .01372, .05109, .08846, + .50863, .23168, .59440, .06249, .02290, + .01399, .05035, .08676, + .50397, .22874, .57512, .06150, .02285, + .01419, .04964, .08517, + .49932, .22584, .55650, .06053, .02280, + .01438, .04894, .08360, + .49465, .22296, .53866, .05956, .02271, + .01452, .04823, .08206, + .49026, .22028, .52236, .05866, .02262, + .01465, .04756, .08064, + .48602, .21773, .50732, .05779, .02251, + .01473, .04692, .07929 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48180, .21519, .49270, .05694, .02239, + .01481, .04628, .07796, + .47757, .21268, .47865, .05609, .02226, + .01486, .04564, .07666, + .47355, .21032, .46566, .05529, .02213, + .01489, .04504, .07544, + .46974, .20810, .45371, .05454, .02200, + .01491, .04447, .07429, + .46583, .20585, .44191, .05378, .02185, + .01492, .04389, .07312 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64336, .32644, 1.05342, .06795, .00000, + .00000, .04703, .11486, + .64116, .32268, 1.04606, .06765, .00000, + .00000, .04743, .11305, + .63712, .31702, 1.02563, .06709, .00110, + .00000, .04786, .11041, + .63371, .31292, 1.00510, .06662, .00326, + .00000, .04806, .10850, + .62968, .30852, .98150, .06606, .00490, + .00000, .04815, .10644, + .62588, .30471, .95969, .06550, .00617, + .00000, .04813, .10466, + .62206, .30105, .93811, .06494, .00733, + .00000, .04805, .10295, + .61783, .29718, .91470, .06431, .00845, + .00000, .04791, .10115 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61395, .29379, .89373, .06372, .00931, + .00000, .04773, .09958, + .61007, .29053, .87325, .06312, .01006, + .00000, .04752, .09807, + .60695, .28796, .85714, .06264, .01064, + .00000, .04733, .09688, + .60002, .28253, .82107, .06159, .01170, + .00023, .04688, .09434, + .59387, .27788, .78830, .06065, .01247, + .00152, .04642, .09221, + .58682, .27269, .75240, .05955, .01322, + .00295, .04585, .08986, + .57928, .26734, .71638, .05838, .01387, + .00409, .04519, .08743, + .57229, .26256, .68485, .05730, .01436, + .00499, .04455, .08524 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56515, .25777, .65420, .05620, .01477, + .00580, .04386, .08307, + .55913, .25384, .62962, .05528, .01504, + .00638, .04327, .08129, + .55175, .24909, .60086, .05414, .01530, + .00699, .04253, .07915, + .54520, .24494, .57649, .05313, .01548, + .00747, .04186, .07730, + .53919, .24120, .55500, .05221, .01561, + .00787, .04122, .07564, + .53143, .23649, .52874, .05103, .01571, + .00828, .04040, .07357, + .52414, .23213, .50524, .04994, .01577, + .00862, .03963, .07165, + .51737, .22811, .48427, .04894, .01580, + .00890, .03890, .06988 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .51047, .22412, .46404, .04792, .01578, + .00913, .03817, .06814, + .50378, .22028, .44517, .04695, .01575, + .00932, .03745, .06649, + .49748, .21669, .42807, .04603, .01569, + .00947, .03677, .06496, + .49151, .21334, .41257, .04516, .01562, + .00958, .03613, .06354, + .48559, .21005, .39769, .04432, .01553, + .00968, .03549, .06215, + .47972, .20679, .38353, .04348, .01543, + .00975, .03486, .06080, + .47423, .20377, .37065, .04270, .01532, + .00980, .03427, .05955, + .46896, .20093, .35885, .04197, .01521, + .00983, .03371, .05837 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46372, .19812, .34741, .04125, .01509, + .00986, .03316, .05720, + .45854, .19535, .33649, .04055, .01497, + .00987, .03261, .05607, + .45364, .19275, .32643, .03988, .01485, + .00987, .03209, .05502, + .44904, .19031, .31721, .03926, .01473, + .00987, .03161, .05404, + .44434, .18786, .30816, .03862, .01460, + .00985, .03113, .05305 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68144, .33031, .90969, .05627, .00000, + .00000, .03948, .09753, + .67599, .32511, .89499, .05577, .00000, + .00000, .03955, .09538, + .66734, .31753, .86665, .05497, .00084, + .00000, .03948, .09231, + .66079, .31210, .84227, .05436, .00248, + .00000, .03938, .09013, + .65357, .30639, .81563, .05364, .00371, + .00000, .03917, .08789, + .64714, .30150, .79204, .05299, .00465, + .00000, .03894, .08596, + .64088, .29685, .76931, .05234, .00551, + .00000, .03867, .08414, + .63415, .29197, .74524, .05162, .00633, + .00000, .03836, .08226 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62816, .28778, .72415, .05098, .00695, + .00000, .03805, .08063, + .62229, .28377, .70392, .05035, .00749, + .00000, .03772, .07907, + .61765, .28064, .68817, .04985, .00790, + .00000, .03745, .07786, + .60763, .27405, .65384, .04877, .00864, + .00017, .03683, .07533, + .59896, .26848, .62360, .04782, .00917, + .00110, .03628, .07322, + .58919, .26236, .59096, .04674, .00968, + .00213, .03562, .07093, + .57898, .25611, .55865, .04562, .01010, + .00294, .03490, .06859, + .56971, .25055, .53070, .04460, .01042, + .00358, .03423, .06651 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .56038, .24505, .50382, .04356, .01067, + .00414, .03353, .06448, + .55265, .24053, .48249, .04270, .01083, + .00454, .03294, .06283, + .54323, .23516, .45776, .04166, .01097, + .00495, .03222, .06087, + .53497, .23052, .43699, .04075, .01107, + .00528, .03157, .05919, + .52748, .22634, .41884, .03991, .01113, + .00554, .03098, .05769, + .51795, .22109, .39683, .03886, .01116, + .00581, .03022, .05584, + .50907, .21627, .37729, .03789, .01116, + .00603, .02952, .05414, + .50085, .21186, .35999, .03701, .01114, + .00621, .02887, .05259 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49263, .20750, .34344, .03612, .01109, + .00634, .02821, .05108, + .48470, .20333, .32810, .03527, .01103, + .00645, .02758, .04966, + .47729, .19945, .31429, .03448, .01096, + .00654, .02699, .04834, + .47030, .19586, .30184, .03374, .01088, + .00660, .02643, .04712, + .46339, .19235, .28992, .03302, .01079, + .00665, .02588, .04593, + .45659, .18890, .27867, .03231, .01069, + .00668, .02535, .04479, + .45027, .18570, .26849, .03166, .01060, + .00670, .02485, .04373, + .44426, .18270, .25919, .03105, .01049, + .00671, .02438, .04274 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43832, .17973, .25021, .03045, .01039, + .00671, .02392, .04177, + .43246, .17684, .24167, .02986, .01028, + .00671, .02347, .04083, + .42692, .17413, .23384, .02931, .01018, + .00670, .02304, .03996, + .42174, .17160, .22669, .02880, .01007, + .00668, .02264, .03915, + .41651, .16905, .21972, .02827, .00996, + .00666, .02224, .03834 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70624, .32778, .78547, .04682, .00000, + .00000, .03276, .08104, + .69765, .32130, .76658, .04620, .00000, + .00000, .03260, .07885, + .68460, .31204, .73416, .04527, .00065, + .00000, .03229, .07570, + .67506, .30547, .70821, .04456, .00190, + .00000, .03202, .07352, + .66483, .29868, .68067, .04380, .00283, + .00000, .03167, .07128, + .65593, .29290, .65684, .04308, .00354, + .00000, .03132, .06941, + .64739, .28747, .63426, .04240, .00417, + .00000, .03097, .06765, + .63834, .28182, .61070, .04167, .00478, + .00000, .03058, .06582 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .63043, .27697, .59043, .04103, .00522, + .00000, .03022, .06425, + .62279, .27237, .57118, .04040, .00561, + .00000, .02985, .06279, + .61679, .26879, .55630, .03990, .00591, + .00000, .02955, .06166, + .60400, .26133, .52456, .03885, .00643, + .00013, .02889, .05931, + .59313, .25506, .49718, .03794, .00680, + .00081, .02832, .05737, + .58104, .24824, .46796, .03692, .00714, + .00156, .02766, .05527, + .56855, .24134, .43937, .03587, .00742, + .00214, .02696, .05316, + .55735, .23524, .41491, .03492, .00762, + .00259, .02631, .05131 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54617, .22924, .39162, .03397, .00778, + .00299, .02565, .04951, + .53698, .22436, .37328, .03320, .00787, + .00326, .02511, .04806, + .52593, .21859, .35218, .03225, .00794, + .00355, .02445, .04635, + .51631, .21361, .33460, .03144, .00798, + .00377, .02388, .04490, + .50761, .20915, .31935, .03072, .00800, + .00394, .02335, .04360, + .49667, .20360, .30100, .02979, .00799, + .00412, .02267, .04201, + .48655, .19853, .28482, .02895, .00797, + .00426, .02206, .04056, + .47726, .19392, .27057, .02819, .00793, + .00437, .02150, .03925 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46802, .18938, .25705, .02742, .00787, + .00445, .02094, .03798, + .45915, .18506, .24460, .02670, .00780, + .00452, .02040, .03679, + .45089, .18105, .23347, .02603, .00773, + .00457, .01990, .03570, + .44319, .17735, .22347, .02541, .00765, + .00460, .01943, .03469, + .43561, .17373, .21394, .02479, .00757, + .00462, .01897, .03372, + .42818, .17020, .20498, .02420, .00748, + .00463, .01853, .03279, + .42127, .16694, .19689, .02366, .00740, + .00464, .01811, .03193, + .41475, .16390, .18956, .02315, .00731, + .00463, .01773, .03112 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40831, .16091, .18251, .02265, .00722, + .00463, .01736, .03034, + .40201, .15800, .17585, .02216, .00713, + .00461, .01699, .02958, + .39608, .15527, .16977, .02171, .00704, + .00459, .01664, .02887, + .39054, .15273, .16423, .02129, .00696, + .00457, .01632, .02822, + .38495, .15019, .15883, .02087, .00687, + .00455, .01600, .02757 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71901, .31996, .67942, .03908, .00000, + .00000, .02690, .06599, + .70740, .31248, .65810, .03843, .00000, + .00000, .02664, .06386, + .69026, .30184, .62373, .03742, .00050, + .00000, .02618, .06091, + .67797, .29439, .59746, .03667, .00146, + .00000, .02583, .05888, + .66501, .28672, .57010, .03587, .00217, + .00000, .02543, .05680, + .65387, .28029, .54680, .03518, .00270, + .00000, .02506, .05504, + .64329, .27426, .52502, .03450, .00317, + .00000, .02467, .05343, + .63220, .26802, .50257, .03378, .00362, + .00000, .02425, .05178 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62261, .26269, .48348, .03315, .00394, + .00000, .02388, .05038, + .61342, .25767, .46554, .03254, .00422, + .00000, .02350, .04908, + .60623, .25379, .45177, .03207, .00443, + .00000, .02320, .04807, + .59110, .24570, .42285, .03108, .00480, + .00010, .02256, .04598, + .57836, .23898, .39835, .03022, .00506, + .00060, .02201, .04429, + .56432, .23171, .37249, .02927, .00529, + .00114, .02140, .04246, + .54997, .22438, .34742, .02831, .00547, + .00156, .02075, .04065, + .53718, .21796, .32617, .02746, .00560, + .00189, .02016, .03905 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52452, .21171, .30610, .02662, .00569, + .00217, .01959, .03749, + .51423, .20660, .29044, .02592, .00574, + .00236, .01910, .03628, + .50192, .20060, .27258, .02509, .00577, + .00255, .01852, .03485, + .49125, .19546, .25778, .02438, .00578, + .00270, .01802, .03363, + .48167, .19088, .24500, .02374, .00578, + .00282, .01756, .03255, + .46966, .18522, .22977, .02297, .00575, + .00294, .01700, .03122, + .45867, .18006, .21643, .02224, .00571, + .00303, .01648, .03003, + .44865, .17536, .20476, .02156, .00567, + .00310, .01601, .02896 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43868, .17079, .19377, .02092, .00561, + .00315, .01553, .02793, + .42916, .16645, .18368, .02032, .00554, + .00319, .01508, .02696, + .42036, .16244, .17469, .01976, .00548, + .00321, .01467, .02608, + .41216, .15875, .16668, .01924, .00541, + .00323, .01429, .02527, + .40413, .15516, .15909, .01873, .00534, + .00323, .01392, .02449, + .39632, .15167, .15198, .01825, .00526, + .00323, .01355, .02374, + .38910, .14844, .14558, .01780, .00519, + .00323, .01321, .02306, + .38230, .14544, .13980, .01737, .00512, + .00322, .01291, .02243 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37560, .14249, .13426, .01695, .00505, + .00321, .01261, .02181, + .36906, .13964, .12905, .01654, .00498, + .00319, .01231, .02122, + .36293, .13697, .12431, .01617, .00491, + .00317, .01203, .02067, + .35722, .13450, .12000, .01582, .00484, + .00315, .01177, .02017, + .35149, .13202, .11582, .01546, .00477, + .00313, .01152, .01967 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72084, .30798, .58886, .03270, .00000, + .00000, .02188, .05264, + .70648, .29973, .56620, .03201, .00000, + .00000, .02155, .05074, + .68566, .28805, .53117, .03098, .00038, + .00000, .02103, .04808, + .67088, .27999, .50523, .03027, .00112, + .00000, .02064, .04624, + .65550, .27173, .47864, .02948, .00166, + .00000, .02022, .04440, + .64245, .26480, .45634, .02879, .00206, + .00000, .01982, .04288, + .63015, .25835, .43571, .02814, .00241, + .00000, .01944, .04147, + .61732, .25171, .41466, .02746, .00274, + .00000, .01903, .04003 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60632, .24608, .39696, .02686, .00298, + .00000, .01867, .03883, + .59585, .24077, .38048, .02630, .00318, + .00000, .01832, .03771, + .58770, .23668, .36791, .02586, .00333, + .00000, .01805, .03684, + .57062, .22826, .34179, .02495, .00359, + .00008, .01746, .03506, + .55635, .22131, .32009, .02418, .00377, + .00044, .01697, .03361, + .54077, .21380, .29737, .02333, .00392, + .00084, .01642, .03207, + .52499, .20628, .27553, .02246, .00404, + .00114, .01584, .03056, + .51103, .19972, .25720, .02170, .00412, + .00137, .01533, .02924 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49729, .19333, .24004, .02097, .00417, + .00157, .01484, .02795, + .48615, .18820, .22674, .02036, .00419, + .00171, .01443, .02694, + .47296, .18214, .21170, .01963, .00420, + .00184, .01393, .02580, + .46161, .17696, .19933, .01900, .00419, + .00195, .01349, .02483, + .45147, .17239, .18871, .01843, .00418, + .00203, .01310, .02396, + .43879, .16674, .17613, .01776, .00415, + .00210, .01265, .02289, + .42720, .16163, .16519, .01715, .00411, + .00216, .01222, .02194, + .41665, .15702, .15566, .01659, .00406, + .00221, .01182, .02109 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40631, .15250, .14673, .01605, .00401, + .00223, .01144, .02027, + .39648, .14823, .13858, .01553, .00395, + .00225, .01108, .01951, + .38741, .14430, .13137, .01505, .00389, + .00227, .01074, .01883, + .37900, .14071, .12495, .01461, .00384, + .00227, .01043, .01820, + .37078, .13721, .11888, .01418, .00378, + .00227, .01013, .01759, + .36278, .13384, .11328, .01378, .00372, + .00227, .00985, .01701, + .35540, .13074, .10825, .01342, .00366, + .00226, .00958, .01647, + .34849, .12785, .10371, .01308, .00360, + .00225, .00933, .01599 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34170, .12503, .09936, .01274, .00354, + .00224, .00909, .01551, + .33511, .12229, .09528, .01241, .00348, + .00222, .00886, .01506, + .32895, .11974, .09158, .01210, .00343, + .00220, .00865, .01464, + .32322, .11738, .08822, .01181, .00338, + .00219, .00845, .01425, + .31748, .11503, .08498, .01153, .00332, + .00217, .00825, .01387 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71259, .29311, .51101, .02761, .00000, + .00000, .01739, .04104, + .69590, .28425, .48763, .02690, .00000, + .00000, .01707, .03938, + .67192, .27186, .45272, .02586, .00030, + .00000, .01657, .03709, + .65512, .26331, .42753, .02512, .00086, + .00000, .01621, .03556, + .63776, .25464, .40204, .02435, .00127, + .00000, .01581, .03399, + .62311, .24741, .38100, .02369, .00157, + .00000, .01545, .03271, + .60939, .24072, .36172, .02307, .00183, + .00000, .01511, .03154, + .59517, .23386, .34222, .02242, .00207, + .00000, .01474, .03034 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58304, .22808, .32601, .02187, .00225, + .00000, .01442, .02933, + .57158, .22263, .31102, .02134, .00239, + .00000, .01412, .02840, + .56270, .21843, .29967, .02091, .00250, + .00000, .01388, .02770, + .54415, .20986, .27635, .02010, .00268, + .00006, .01335, .02623, + .52883, .20278, .25725, .01937, .00280, + .00033, .01292, .02507, + .51217, .19518, .23746, .01859, .00291, + .00062, .01245, .02385, + .49537, .18764, .21861, .01781, .00298, + .00084, .01196, .02264, + .48060, .18109, .20292, .01715, .00303, + .00100, .01154, .02157 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46614, .17477, .18833, .01650, .00305, + .00115, .01113, .02053, + .45452, .16968, .17710, .01595, .00306, + .00124, .01077, .01975, + .44076, .16372, .16452, .01533, .00305, + .00133, .01036, .01883, + .42895, .15866, .15424, .01481, .00304, + .00140, .01002, .01804, + .41844, .15418, .14546, .01436, .00302, + .00146, .00971, .01734, + .40545, .14867, .13511, .01376, .00299, + .00151, .00933, .01652, + .39361, .14370, .12617, .01323, .00295, + .00154, .00899, .01578, + .38287, .13924, .11843, .01277, .00291, + .00157, .00868, .01512 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37236, .13489, .11125, .01233, .00286, + .00159, .00836, .01450, + .36242, .13078, .10472, .01190, .00281, + .00160, .00807, .01391, + .35330, .12703, .09896, .01149, .00277, + .00160, .00780, .01338, + .34486, .12360, .09386, .01112, .00272, + .00160, .00756, .01290, + .33663, .12028, .08905, .01076, .00267, + .00160, .00734, .01245, + .32867, .11707, .08461, .01043, .00262, + .00159, .00711, .01200, + .32134, .11412, .08064, .01012, .00258, + .00158, .00690, .01160, + .31450, .11140, .07709, .00985, .00253, + .00157, .00671, .01123 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30779, .10873, .07370, .00958, .00248, + .00156, .00653, .01088, + .30128, .10616, .07053, .00932, .00244, + .00155, .00635, .01053, + .29520, .10377, .06766, .00908, .00240, + .00153, .00618, .01021, + .28956, .10156, .06507, .00885, .00235, + .00152, .00603, .00992, + .28395, .09937, .06258, .00862, .00231, + .00150, .00587, .00964 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69623, .27539, .44271, .02291, .00000, + .00000, .01386, .03154, + .67747, .26621, .41921, .02221, .00000, + .00000, .01355, .03014, + .65086, .25339, .38501, .02124, .00023, + .00000, .01308, .02822, + .63236, .24463, .36094, .02055, .00065, + .00000, .01272, .02695, + .61336, .23579, .33691, .01984, .00096, + .00000, .01233, .02567, + .59747, .22844, .31731, .01922, .00118, + .00000, .01202, .02462, + .58266, .22163, .29952, .01864, .00137, + .00000, .01171, .02367, + .56739, .21470, .28170, .01805, .00155, + .00000, .01137, .02270 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55441, .20890, .26699, .01756, .00167, + .00000, .01109, .02187, + .54218, .20347, .25353, .01709, .00178, + .00000, .01082, .02112, + .53273, .19929, .24339, .01671, .00185, + .00000, .01062, .02055, + .51319, .19075, .22283, .01597, .00198, + .00005, .01018, .01937, + .49708, .18376, .20616, .01535, .00206, + .00024, .00980, .01845, + .47968, .17629, .18904, .01469, .00213, + .00045, .00940, .01747, + .46227, .16888, .17293, .01402, .00218, + .00061, .00900, .01650, + .44705, .16248, .15964, .01344, .00220, + .00073, .00864, .01566 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43222, .15631, .14738, .01288, .00222, + .00083, .00829, .01487, + .42031, .15138, .13799, .01242, .00221, + .00089, .00801, .01426, + .40632, .14563, .12755, .01189, .00220, + .00096, .00767, .01353, + .39438, .14076, .11907, .01145, .00219, + .00100, .00740, .01293, + .38378, .13645, .11186, .01104, .00217, + .00104, .00715, .01241, + .37069, .13118, .10344, .01056, .00214, + .00107, .00684, .01179, + .35886, .12644, .09620, .01012, .00210, + .00109, .00656, .01123, + .34818, .12220, .08996, .00972, .00207, + .00111, .00631, .01074 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33776, .11810, .08420, .00935, .00203, + .00112, .00607, .01025, + .32792, .11424, .07900, .00900, .00199, + .00112, .00584, .00980, + .31890, .11072, .07443, .00868, .00195, + .00112, .00564, .00940, + .31058, .10750, .07041, .00840, .00191, + .00112, .00545, .00903, + .30249, .10438, .06663, .00813, .00188, + .00112, .00527, .00868, + .29471, .10140, .06315, .00785, .00184, + .00111, .00510, .00836, + .28756, .09866, .06003, .00760, .00180, + .00110, .00495, .00807, + .28092, .09612, .05727, .00737, .00177, + .00109, .00480, .00780 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27443, .09365, .05465, .00714, .00173, + .00108, .00465, .00754, + .26815, .09127, .05219, .00693, .00170, + .00107, .00451, .00729, + .26232, .08907, .04997, .00673, .00166, + .00106, .00439, .00706, + .25691, .08703, .04797, .00654, .00163, + .00105, .00427, .00685, + .25149, .08501, .04604, .00637, .00160, + .00104, .00416, .00664 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67234, .25616, .38238, .01900, .00000, + .00000, .01086, .02368, + .65197, .24683, .35921, .01834, .00000, + .00000, .01057, .02255, + .62330, .23388, .32631, .01742, .00017, + .00000, .01014, .02102, + .60354, .22506, .30364, .01676, .00049, + .00000, .00983, .02000, + .58338, .21616, .28125, .01611, .00072, + .00000, .00949, .01898, + .56659, .20884, .26321, .01554, .00088, + .00000, .00921, .01816, + .55099, .20212, .24701, .01502, .00102, + .00000, .00895, .01739, + .53498, .19530, .23094, .01451, .00115, + .00000, .00867, .01660 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52147, .18956, .21779, .01406, .00124, + .00000, .00844, .01597, + .50878, .18420, .20582, .01363, .00131, + .00000, .00821, .01538, + .49901, .18009, .19686, .01331, .00137, + .00000, .00803, .01493, + .47887, .17173, .17889, .01266, .00145, + .00004, .00765, .01405, + .46237, .16493, .16453, .01210, .00151, + .00017, .00736, .01332, + .44464, .15771, .14992, .01151, .00155, + .00033, .00702, .01256, + .42697, .15057, .13626, .01094, .00158, + .00044, .00669, .01183, + .41161, .14442, .12509, .01044, .00159, + .00052, .00640, .01121 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39675, .13850, .11487, .00996, .00160, + .00059, .00612, .01060, + .38483, .13380, .10712, .00959, .00159, + .00064, .00590, .01011, + .37091, .12834, .09852, .00913, .00158, + .00068, .00564, .00957, + .35903, .12374, .09158, .00877, .00156, + .00071, .00541, .00913, + .34849, .11969, .08573, .00847, .00155, + .00074, .00522, .00874, + .33561, .11473, .07894, .00807, .00152, + .00076, .00497, .00826, + .32399, .11029, .07313, .00771, .00149, + .00077, .00475, .00784, + .31353, .10632, .06813, .00739, .00146, + .00078, .00457, .00746 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30341, .10250, .06355, .00707, .00143, + .00079, .00437, .00712, + .29385, .09892, .05943, .00678, .00140, + .00079, .00419, .00680, + .28506, .09565, .05583, .00654, .00137, + .00079, .00405, .00650, + .27704, .09267, .05268, .00630, .00134, + .00078, .00390, .00624, + .26927, .08980, .04973, .00607, .00131, + .00078, .00376, .00599, + .26181, .08705, .04703, .00585, .00128, + .00077, .00362, .00576, + .25497, .08454, .04462, .00566, .00125, + .00077, .00349, .00555, + .24863, .08223, .04248, .00547, .00123, + .00076, .00339, .00535 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24243, .07998, .04044, .00530, .00120, + .00075, .00328, .00516, + .23646, .07781, .03854, .00513, .00117, + .00074, .00318, .00497, + .23091, .07580, .03684, .00498, .00115, + .00073, .00309, .00480, + .22578, .07395, .03531, .00484, .00113, + .00072, .00300, .00464, + .22069, .07213, .03385, .00470, .00110, + .00071, .00292, .00448 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64229, .23582, .32835, .01553, .00000, + .00000, .00844, .01748, + .62078, .22645, .30593, .01492, .00000, + .00000, .00816, .01662, + .59065, .21361, .27482, .01408, .00013, + .00000, .00779, .01539, + .57004, .20488, .25376, .01347, .00037, + .00000, .00752, .01461, + .54908, .19619, .23328, .01289, .00053, + .00000, .00724, .01380, + .53169, .18904, .21695, .01241, .00065, + .00000, .00701, .01313, + .51566, .18248, .20241, .01195, .00075, + .00000, .00678, .01256, + .49929, .17581, .18808, .01146, .00084, + .00000, .00653, .01200 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48549, .17024, .17648, .01108, .00091, + .00000, .00634, .01149, + .47258, .16506, .16600, .01072, .00096, + .00000, .00615, .01105, + .46266, .16111, .15820, .01045, .00100, + .00000, .00599, .01072, + .44239, .15307, .14267, .00985, .00106, + .00003, .00569, .01005, + .42576, .14660, .13045, .00942, .00109, + .00012, .00544, .00947, + .40801, .13971, .11813, .00895, .00112, + .00023, .00518, .00889, + .39043, .13293, .10669, .00846, .00113, + .00032, .00492, .00833, + .37522, .12712, .09741, .00804, .00114, + .00037, .00469, .00787 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36053, .12157, .08899, .00764, .00114, + .00042, .00447, .00743, + .34880, .11716, .08264, .00734, .00113, + .00045, .00430, .00706, + .33515, .11204, .07566, .00697, .00112, + .00048, .00409, .00669, + .32360, .10774, .07005, .00666, .00111, + .00050, .00390, .00637, + .31341, .10397, .06534, .00639, .00109, + .00052, .00375, .00607, + .30094, .09939, .05991, .00606, .00107, + .00053, .00357, .00571, + .28972, .09530, .05529, .00578, .00104, + .00054, .00341, .00541, + .27965, .09165, .05135, .00554, .00102, + .00055, .00326, .00514 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26991, .08814, .04774, .00528, .00100, + .00055, .00312, .00487, + .26077, .08485, .04451, .00505, .00097, + .00055, .00298, .00464, + .25245, .08187, .04170, .00485, .00095, + .00055, .00287, .00443, + .24483, .07916, .03925, .00466, .00093, + .00054, .00275, .00425, + .23746, .07656, .03696, .00448, .00091, + .00054, .00264, .00408, + .23042, .07407, .03487, .00431, .00088, + .00053, .00254, .00391, + .22397, .07180, .03301, .00415, .00086, + .00053, .00246, .00375, + .21798, .06971, .03138, .00403, .00084, + .00052, .00238, .00361 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21215, .06768, .02982, .00390, .00082, + .00052, .00230, .00347, + .20656, .06574, .02838, .00377, .00081, + .00051, .00222, .00334, + .20139, .06394, .02709, .00364, .00079, + .00050, .00215, .00321, + .19662, .06229, .02593, .00352, .00077, + .00049, .00208, .00310, + .19187, .06065, .02481, .00342, .00075, + .00049, .00202, .00300 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60729, .21479, .27966, .01247, .00000, + .00000, .00650, .01270, + .58500, .20564, .25845, .01192, .00000, + .00000, .00626, .01202, + .55399, .19312, .22954, .01117, .00009, + .00000, .00592, .01111, + .53286, .18468, .21032, .01066, .00027, + .00000, .00572, .01048, + .51156, .17625, .19188, .01014, .00039, + .00000, .00546, .00988, + .49394, .16938, .17729, .00973, .00047, + .00000, .00527, .00938, + .47774, .16309, .16442, .00935, .00055, + .00000, .00508, .00894, + .46126, .15671, .15186, .00895, .00061, + .00000, .00488, .00851 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44745, .15139, .14178, .00860, .00065, + .00000, .00472, .00817, + .43458, .14647, .13274, .00829, .00069, + .00000, .00456, .00783, + .42472, .14273, .12605, .00805, .00072, + .00000, .00445, .00756, + .40455, .13513, .11286, .00760, .00076, + .00002, .00420, .00704, + .38816, .12901, .10259, .00722, .00078, + .00009, .00400, .00663, + .37076, .12255, .09231, .00679, .00080, + .00017, .00380, .00621, + .35354, .11623, .08287, .00641, .00080, + .00022, .00359, .00579, + .33870, .11082, .07528, .00607, .00080, + .00026, .00340, .00545 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32449, .10563, .06843, .00574, .00080, + .00030, .00324, .00514, + .31314, .10156, .06327, .00549, .00079, + .00032, .00310, .00489, + .29998, .09687, .05766, .00521, .00078, + .00034, .00293, .00459, + .28888, .09292, .05320, .00497, .00077, + .00035, .00279, .00435, + .27912, .08945, .04946, .00476, .00076, + .00036, .00269, .00414, + .26723, .08526, .04516, .00449, .00074, + .00037, .00256, .00390, + .25657, .08153, .04153, .00426, .00072, + .00038, .00242, .00369, + .24704, .07822, .03844, .00406, .00071, + .00038, .00230, .00349 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23783, .07505, .03564, .00388, .00069, + .00038, .00220, .00331, + .22922, .07209, .03314, .00370, .00067, + .00038, .00211, .00314, + .22139, .06941, .03096, .00355, .00065, + .00038, .00202, .00298, + .21427, .06697, .02908, .00340, .00064, + .00037, .00193, .00285, + .20739, .06463, .02732, .00326, .00062, + .00037, .00185, .00273, + .20083, .06241, .02572, .00313, .00060, + .00036, .00178, .00260, + .19484, .06040, .02431, .00301, .00059, + .00036, .00171, .00248, + .18931, .05853, .02305, .00290, .00057, + .00036, .00165, .00239 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18393, .05672, .02187, .00280, .00056, + .00035, .00159, .00230, + .17876, .05500, .02078, .00270, .00055, + .00035, .00153, .00222, + .17398, .05340, .01980, .00261, .00053, + .00034, .00148, .00214, + .16958, .05194, .01893, .00252, .00052, + .00034, .00143, .00206, + .16525, .05051, .01809, .00243, .00051, + .00033, .00139, .00199 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56814, .19397, .23592, .01004, .00000, + .00000, .00486, .00894, + .54551, .18512, .21618, .00953, .00000, + .00000, .00466, .00847, + .51425, .17305, .18981, .00885, .00007, + .00000, .00441, .00776, + .49303, .16496, .17261, .00839, .00019, + .00000, .00421, .00735, + .47172, .15696, .15624, .00798, .00028, + .00000, .00403, .00687, + .45423, .15040, .14346, .00760, .00034, + .00000, .00386, .00653, + .43818, .14443, .13229, .00727, .00039, + .00000, .00371, .00621, + .42189, .13841, .12148, .00693, .00044, + .00000, .00356, .00588 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40830, .13341, .11284, .00665, .00047, + .00000, .00343, .00563, + .39564, .12880, .10516, .00640, .00049, + .00000, .00331, .00539, + .38596, .12530, .09951, .00620, .00051, + .00000, .00321, .00520, + .36628, .11824, .08845, .00582, .00053, + .00002, .00303, .00481, + .35039, .11255, .07993, .00550, .00055, + .00006, .00288, .00452, + .33354, .10657, .07151, .00517, .00056, + .00012, .00272, .00421, + .31698, .10072, .06382, .00485, .00056, + .00016, .00256, .00393, + .30277, .09574, .05768, .00456, .00056, + .00019, .00242, .00370 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28916, .09101, .05219, .00430, .00056, + .00021, .00228, .00349, + .27837, .08729, .04810, .00412, .00055, + .00022, .00217, .00329, + .26592, .08301, .04363, .00387, .00054, + .00024, .00206, .00308, + .25543, .07943, .04009, .00367, .00053, + .00024, .00197, .00290, + .24620, .07631, .03716, .00352, .00052, + .00025, .00188, .00275, + .23501, .07252, .03380, .00332, .00051, + .00026, .00177, .00260, + .22502, .06916, .03098, .00314, .00050, + .00026, .00168, .00245, + .21613, .06619, .02860, .00298, .00048, + .00026, .00160, .00232 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20760, .06336, .02644, .00282, .00047, + .00026, .00152, .00219, + .19962, .06072, .02451, .00269, .00046, + .00026, .00144, .00207, + .19238, .05834, .02285, .00257, .00044, + .00026, .00138, .00196, + .18580, .05617, .02141, .00246, .00043, + .00025, .00132, .00188, + .17948, .05410, .02008, .00234, .00042, + .00025, .00127, .00180, + .17344, .05214, .01887, .00225, .00041, + .00025, .00122, .00171, + .16794, .05036, .01780, .00216, .00040, + .00024, .00117, .00164, + .16289, .04873, .01686, .00208, .00039, + .00024, .00113, .00157 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15798, .04715, .01597, .00200, .00038, + .00024, .00108, .00149, + .15328, .04563, .01515, .00192, .00037, + .00023, .00104, .00143, + .14894, .04424, .01441, .00186, .00036, + .00023, .00101, .00138, + .14495, .04297, .01376, .00180, .00035, + .00023, .00097, .00133, + .14100, .04171, .01313, .00174, .00034, + .00022, .00094, .00129 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52631, .17326, .19655, .00782, .00000, + .00000, .00362, .00623, + .50366, .16487, .17868, .00741, .00000, + .00000, .00345, .00587, + .47260, .15347, .15516, .00686, .00005, + .00000, .00322, .00537, + .45161, .14588, .14003, .00648, .00014, + .00000, .00306, .00505, + .43065, .13837, .12579, .00615, .00020, + .00000, .00291, .00471, + .41350, .13222, .11479, .00584, .00024, + .00000, .00278, .00447, + .39784, .12667, .10525, .00556, .00027, + .00000, .00266, .00424, + .38199, .12110, .09608, .00529, .00031, + .00000, .00254, .00400 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36879, .11647, .08883, .00509, .00033, + .00000, .00246, .00380, + .35659, .11219, .08241, .00487, .00034, + .00000, .00236, .00363, + .34729, .10893, .07770, .00469, .00035, + .00000, .00228, .00351, + .32840, .10243, .06861, .00439, .00037, + .00001, .00214, .00325, + .31320, .09722, .06166, .00414, .00038, + .00004, .00202, .00303, + .29715, .09176, .05484, .00387, .00039, + .00008, .00189, .00282, + .28145, .08645, .04867, .00361, .00039, + .00011, .00178, .00262, + .26802, .08194, .04377, .00338, .00039, + .00013, .00168, .00245 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25522, .07767, .03942, .00318, .00038, + .00014, .00158, .00229, + .24507, .07433, .03620, .00304, .00038, + .00015, .00150, .00216, + .23339, .07048, .03271, .00286, .00037, + .00016, .00142, .00201, + .22361, .06727, .02996, .00272, .00036, + .00017, .00135, .00190, + .21505, .06447, .02768, .00259, .00036, + .00017, .00128, .00180, + .20468, .06111, .02509, .00243, .00035, + .00017, .00121, .00169, + .19546, .05814, .02293, .00230, .00034, + .00018, .00114, .00158, + .18727, .05552, .02111, .00218, .00033, + .00018, .00108, .00148 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17941, .05301, .01946, .00207, .00032, + .00018, .00102, .00140, + .17210, .05068, .01801, .00197, .00031, + .00018, .00097, .00133, + .16550, .04858, .01675, .00187, .00030, + .00017, .00092, .00127, + .15953, .04669, .01567, .00178, .00029, + .00017, .00088, .00120, + .15380, .04488, .01466, .00168, .00028, + .00017, .00084, .00114, + .14832, .04318, .01376, .00162, .00027, + .00017, .00081, .00108, + .14333, .04163, .01296, .00157, .00027, + .00016, .00078, .00103, + .13878, .04021, .01225, .00150, .00026, + .00016, .00075, .00099 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13439, .03883, .01159, .00143, .00025, + .00016, .00071, .00095, + .13017, .03751, .01098, .00137, .00024, + .00016, .00068, .00091, + .12627, .03630, .01044, .00132, .00024, + .00015, .00066, .00088, + .12269, .03520, .00995, .00128, .00023, + .00015, .00064, .00084, + .11916, .03412, .00949, .00123, .00023, + .00015, .00062, .00081 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48245, .15316, .16136, .00595, .00000, + .00000, .00267, .00428, + .46019, .14530, .14546, .00562, .00000, + .00000, .00255, .00400, + .42983, .13465, .12489, .00514, .00003, + .00000, .00234, .00368, + .40941, .12758, .11188, .00485, .00009, + .00000, .00223, .00343, + .38914, .12059, .09975, .00457, .00014, + .00000, .00211, .00320, + .37261, .11494, .09046, .00433, .00016, + .00000, .00200, .00300, + .35755, .10982, .08246, .00410, .00019, + .00000, .00191, .00285, + .34238, .10468, .07483, .00388, .00021, + .00000, .00183, .00270 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32976, .10047, .06886, .00371, .00022, + .00000, .00174, .00257, + .31811, .09658, .06360, .00355, .00023, + .00000, .00167, .00244, + .30925, .09363, .05977, .00343, .00024, + .00000, .00161, .00235, + .29135, .08770, .05242, .00318, .00025, + .00001, .00151, .00218, + .27699, .08300, .04687, .00300, .00026, + .00003, .00143, .00202, + .26193, .07808, .04143, .00278, .00026, + .00006, .00135, .00187, + .24722, .07330, .03656, .00258, .00026, + .00007, .00125, .00174, + .23467, .06928, .03274, .00243, .00026, + .00009, .00117, .00163 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22277, .06548, .02936, .00226, .00026, + .00010, .00110, .00152, + .21343, .06249, .02686, .00213, .00025, + .00010, .00104, .00143, + .20268, .05909, .02418, .00199, .00025, + .00011, .00098, .00133, + .19368, .05626, .02208, .00189, .00024, + .00011, .00093, .00125, + .18582, .05380, .02034, .00179, .00024, + .00012, .00089, .00119, + .17633, .05085, .01838, .00168, .00023, + .00012, .00084, .00110, + .16794, .04824, .01675, .00158, .00022, + .00012, .00079, .00103, + .16051, .04593, .01538, .00149, .00022, + .00012, .00075, .00097 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15341, .04375, .01414, .00140, .00021, + .00012, .00070, .00093, + .14681, .04174, .01306, .00132, .00020, + .00012, .00067, .00087, + .14088, .03993, .01212, .00125, .00020, + .00012, .00064, .00082, + .13551, .03829, .01132, .00119, .00019, + .00011, .00061, .00078, + .13035, .03673, .01057, .00113, .00018, + .00011, .00058, .00074, + .12546, .03525, .00990, .00108, .00018, + .00011, .00055, .00071, + .12101, .03392, .00931, .00103, .00017, + .00011, .00052, .00068, + .11694, .03270, .00879, .00100, .00017, + .00011, .00050, .00064 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11300, .03153, .00831, .00097, .00016, + .00010, .00048, .00061, + .10925, .03042, .00786, .00093, .00016, + .00010, .00046, .00059, + .10581, .02940, .00746, .00089, .00015, + .00010, .00044, .00057, + .10266, .02846, .00711, .00085, .00015, + .00010, .00042, .00055, + .09955, .02754, .00677, .00082, .00015, + .00010, .00041, .00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43766, .13398, .13040, .00446, .00000, + .00000, .00192, .00287, + .41612, .12668, .11660, .00416, .00000, + .00000, .00182, .00272, + .38680, .11687, .09898, .00382, .00002, + .00000, .00170, .00243, + .36728, .11037, .08798, .00357, .00006, + .00000, .00159, .00228, + .34792, .10399, .07786, .00332, .00009, + .00000, .00150, .00213, + .33220, .09884, .07016, .00312, .00011, + .00000, .00144, .00201, + .31792, .09419, .06360, .00294, .00013, + .00000, .00137, .00190, + .30356, .08954, .05741, .00278, .00014, + .00000, .00130, .00178 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29167, .08573, .05257, .00265, .00015, + .00000, .00125, .00169, + .28073, .08222, .04835, .00252, .00016, + .00000, .00120, .00161, + .27243, .07956, .04529, .00242, .00016, + .00000, .00116, .00155, + .25571, .07426, .03945, .00224, .00017, + .00001, .00106, .00144, + .24237, .07005, .03509, .00208, .00017, + .00002, .00101, .00135, + .22840, .06567, .03086, .00192, .00017, + .00004, .00094, .00124, + .21483, .06145, .02710, .00178, .00017, + .00005, .00087, .00115, + .20330, .05790, .02416, .00166, .00017, + .00006, .00082, .00107 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19239, .05456, .02157, .00155, .00017, + .00006, .00078, .00098, + .18387, .05196, .01968, .00145, .00017, + .00007, .00074, .00093, + .17406, .04897, .01766, .00136, .00016, + .00007, .00069, .00087, + .16587, .04650, .01608, .00129, .00016, + .00007, .00065, .00082, + .15875, .04437, .01478, .00122, .00015, + .00008, .00062, .00077, + .15025, .04181, .01331, .00113, .00015, + .00008, .00058, .00072, + .14270, .03956, .01210, .00105, .00014, + .00008, .00055, .00068, + .13602, .03759, .01108, .00099, .00014, + .00008, .00052, .00064 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12968, .03571, .01017, .00094, .00014, + .00008, .00049, .00059, + .12379, .03398, .00937, .00089, .00013, + .00008, .00046, .00055, + .11848, .03243, .00868, .00085, .00013, + .00008, .00043, .00052, + .11372, .03104, .00809, .00080, .00012, + .00007, .00042, .00050, + .10917, .02971, .00755, .00076, .00012, + .00007, .00040, .00047, + .10487, .02846, .00706, .00071, .00011, + .00007, .00038, .00045, + .10098, .02734, .00663, .00067, .00011, + .00007, .00036, .00043, + .09740, .02631, .00625, .00065, .00011, + .00007, .00034, .00041 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09395, .02532, .00590, .00063, .00010, + .00007, .00033, .00039, + .09067, .02438, .00558, .00060, .00010, + .00007, .00032, .00037, + .08767, .02352, .00529, .00057, .00010, + .00007, .00031, .00036, + .08493, .02273, .00503, .00054, .00010, + .00006, .00029, .00034, + .08222, .02197, .00479, .00052, .00009, + .00006, .00028, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39276, .11608, .10368, .00338, .00000, + .00000, .00130, .00183, + .37222, .10945, .09201, .00315, .00000, + .00000, .00120, .00173, + .34446, .10052, .07729, .00284, .00002, + .00000, .00111, .00155, + .32601, .09465, .06823, .00265, .00004, + .00000, .00107, .00142, + .30779, .08889, .05998, .00248, .00006, + .00000, .00099, .00133, + .29304, .08426, .05375, .00233, .00007, + .00000, .00094, .00125, + .27970, .08009, .04847, .00219, .00008, + .00000, .00089, .00118, + .26635, .07594, .04351, .00204, .00009, + .00000, .00084, .00112 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25533, .07254, .03968, .00195, .00010, + .00000, .00080, .00106, + .24520, .06942, .03636, .00186, .00010, + .00000, .00076, .00100, + .23752, .06707, .03396, .00180, .00011, + .00000, .00074, .00095, + .22217, .06238, .02941, .00162, .00011, + .00000, .00067, .00088, + .20989, .05868, .02604, .00153, .00011, + .00001, .00063, .00081, + .19714, .05484, .02280, .00141, .00011, + .00003, .00059, .00075, + .18479, .05115, .01992, .00131, .00011, + .00003, .00054, .00068, + .17435, .04806, .01770, .00122, .00011, + .00004, .00051, .00062 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16452, .04515, .01576, .00112, .00011, + .00004, .00048, .00058, + .15680, .04289, .01433, .00107, .00011, + .00005, .00045, .00054, + .14800, .04032, .01282, .00099, .00011, + .00005, .00041, .00052, + .14070, .03819, .01164, .00093, .00010, + .00005, .00039, .00049, + .13438, .03636, .01068, .00088, .00010, + .00005, .00038, .00045, + .12680, .03416, .00960, .00081, .00010, + .00005, .00035, .00042, + .12010, .03223, .00870, .00076, .00009, + .00005, .00033, .00039, + .11417, .03054, .00795, .00073, .00009, + .00005, .00031, .00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10859, .02896, .00729, .00067, .00009, + .00005, .00028, .00035, + .10342, .02750, .00670, .00063, .00008, + .00005, .00026, .00033, + .09877, .02619, .00620, .00061, .00008, + .00005, .00026, .00030, + .09461, .02501, .00577, .00058, .00008, + .00005, .00025, .00028, + .09065, .02389, .00538, .00054, .00008, + .00005, .00024, .00027, + .08690, .02284, .00502, .00052, .00007, + .00005, .00023, .00025, + .08350, .02189, .00471, .00050, .00007, + .00005, .00021, .00024, + .08041, .02103, .00444, .00047, .00007, + .00005, .00020, .00023 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07743, .02021, .00418, .00045, .00007, + .00004, .00019, .00022, + .07461, .01943, .00395, .00043, .00006, + .00004, .00018, .00021, + .07201, .01871, .00374, .00041, .00006, + .00004, .00017, .00020, + .06965, .01806, .00355, .00039, .00006, + .00004, .00017, .00020, + .06732, .01743, .00338, .00038, .00006, + .00004, .00016, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34833, .09911, .08058, .00231, .00000, + .00000, .00094, .00122, + .32905, .09313, .07097, .00216, .00000, + .00000, .00089, .00112, + .30300, .08515, .05899, .00196, .00001, + .00000, .00081, .00102, + .28587, .07993, .05172, .00179, .00003, + .00000, .00075, .00094, + .26895, .07482, .04516, .00167, .00004, + .00000, .00070, .00089, + .25535, .07071, .04024, .00156, .00005, + .00000, .00065, .00084, + .24306, .06703, .03611, .00147, .00005, + .00000, .00062, .00078, + .23078, .06339, .03226, .00139, .00006, + .00000, .00059, .00072 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22067, .06041, .02930, .00132, .00006, + .00000, .00055, .00068, + .21144, .05769, .02674, .00124, .00006, + .00000, .00053, .00064, + .20447, .05565, .02491, .00119, .00007, + .00000, .00051, .00061, + .19051, .05158, .02144, .00109, .00007, + .00000, .00046, .00055, + .17944, .04836, .01891, .00101, .00007, + .00001, .00043, .00051, + .16796, .04504, .01648, .00092, .00007, + .00002, .00039, .00049, + .15689, .04187, .01434, .00086, .00007, + .00002, .00036, .00045, + .14755, .03921, .01269, .00080, .00007, + .00002, .00034, .00041 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13878, .03673, .01126, .00073, .00007, + .00003, .00032, .00037, + .13194, .03481, .01022, .00069, .00007, + .00003, .00030, .00035, + .12414, .03262, .00911, .00065, .00007, + .00003, .00028, .00033, + .11769, .03082, .00826, .00062, .00006, + .00003, .00026, .00031, + .11213, .02928, .00755, .00058, .00006, + .00003, .00024, .00029, + .10549, .02742, .00678, .00053, .00006, + .00003, .00023, .00026, + .09964, .02581, .00613, .00049, .00006, + .00003, .00021, .00024, + .09450, .02440, .00559, .00046, .00006, + .00003, .00020, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08964, .02307, .00512, .00043, .00005, + .00003, .00019, .00021, + .08516, .02185, .00470, .00040, .00005, + .00003, .00017, .00020, + .08115, .02076, .00434, .00038, .00005, + .00003, .00016, .00020, + .07755, .01979, .00404, .00037, .00005, + .00003, .00015, .00018, + .07412, .01886, .00375, .00036, .00005, + .00003, .00014, .00017, + .07091, .01800, .00350, .00034, .00005, + .00003, .00013, .00016, + .06802, .01722, .00328, .00032, .00004, + .00003, .00013, .00014, + .06538, .01652, .00309, .00030, .00004, + .00003, .00012, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06285, .01584, .00291, .00028, .00004, + .00003, .00012, .00013, + .06044, .01520, .00274, .00026, .00004, + .00003, .00011, .00013, + .05824, .01461, .00259, .00025, .00004, + .00003, .00011, .00012, + .05624, .01408, .00246, .00024, .00004, + .00003, .00010, .00012, + .05428, .01357, .00234, .00023, .00004, + .00003, .00010, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30520, .08360, .06132, .00156, .00000, + .00000, .00065, .00080, + .28731, .07829, .05359, .00144, .00000, + .00000, .00063, .00075, + .26331, .07125, .04410, .00131, .00001, + .00000, .00054, .00066, + .24757, .06666, .03840, .00121, .00002, + .00000, .00052, .00060, + .23214, .06217, .03330, .00111, .00002, + .00000, .00048, .00057, + .21971, .05863, .02953, .00103, .00003, + .00000, .00045, .00052, + .20855, .05544, .02636, .00096, .00003, + .00000, .00041, .00049, + .19746, .05226, .02343, .00090, .00004, + .00000, .00038, .00046 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18837, .04968, .02120, .00086, .00004, + .00000, .00037, .00043, + .18007, .04733, .01928, .00081, .00004, + .00000, .00036, .00040, + .17381, .04555, .01790, .00077, .00004, + .00000, .00035, .00039, + .16128, .04207, .01533, .00071, .00004, + .00000, .00033, .00036, + .15144, .03932, .01346, .00066, .00004, + .00001, .00029, .00033, + .14123, .03650, .01169, .00060, .00004, + .00001, .00026, .00030, + .13144, .03381, .01014, .00054, .00004, + .00001, .00024, .00028, + .12324, .03156, .00894, .00050, .00004, + .00002, .00023, .00025 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11555, .02946, .00791, .00046, .00004, + .00002, .00021, .00024, + .10956, .02785, .00716, .00043, .00004, + .00002, .00020, .00022, + .10279, .02602, .00637, .00039, .00004, + .00002, .00018, .00021, + .09719, .02452, .00576, .00037, .00004, + .00002, .00017, .00019, + .09235, .02323, .00526, .00035, .00004, + .00002, .00016, .00018, + .08659, .02170, .00471, .00033, .00004, + .00002, .00015, .00017, + .08155, .02036, .00425, .00031, .00004, + .00002, .00014, .00015, + .07713, .01920, .00387, .00029, .00003, + .00002, .00013, .00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07297, .01811, .00354, .00027, .00003, + .00002, .00012, .00013, + .06915, .01711, .00325, .00025, .00003, + .00002, .00011, .00012, + .06576, .01621, .00300, .00023, .00003, + .00002, .00011, .00011, + .06270, .01542, .00278, .00022, .00003, + .00002, .00010, .00011, + .05978, .01467, .00258, .00021, .00003, + .00002, .00010, .00010, + .05707, .01397, .00241, .00020, .00003, + .00002, .00009, .00010, + .05464, .01333, .00225, .00018, .00003, + .00002, .00008, .00010, + .05242, .01276, .00212, .00017, .00003, + .00002, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05028, .01222, .00199, .00016, .00002, + .00002, .00007, .00009, + .04827, .01170, .00188, .00016, .00002, + .00002, .00007, .00008, + .04643, .01123, .00177, .00015, .00002, + .00002, .00007, .00008, + .04476, .01081, .00168, .00014, .00002, + .00002, .00007, .00008, + .04313, .01039, .00160, .00013, .00002, + .00002, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26408, .06970, .04565, .00112, .00000, + .00000, .00040, .00046, + .24778, .06507, .03960, .00101, .00000, + .00000, .00038, .00043, + .22596, .05894, .03231, .00092, .00000, + .00000, .00034, .00039, + .21171, .05496, .02795, .00086, .00001, + .00000, .00032, .00035, + .19783, .05109, .02408, .00076, .00001, + .00000, .00028, .00032, + .18671, .04802, .02125, .00071, .00002, + .00000, .00026, .00030, + .17674, .04528, .01890, .00066, .00002, + .00000, .00025, .00028, + .16685, .04257, .01673, .00062, .00002, + .00000, .00024, .00026 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15876, .04036, .01507, .00059, .00002, + .00000, .00022, .00025, + .15140, .03837, .01367, .00055, .00002, + .00000, .00020, .00023, + .14586, .03688, .01266, .00053, .00002, + .00000, .00019, .00022, + .13486, .03393, .01080, .00047, .00003, + .00000, .00018, .00021, + .12620, .03161, .00945, .00045, .00003, + .00000, .00016, .00019, + .11728, .02924, .00817, .00040, .00003, + .00001, .00015, .00017, + .10877, .02699, .00706, .00035, .00003, + .00001, .00014, .00016, + .10164, .02511, .00622, .00033, .00003, + .00001, .00012, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09497, .02337, .00549, .00032, .00003, + .00001, .00012, .00013, + .08981, .02203, .00496, .00031, .00002, + .00001, .00011, .00012, + .08400, .02052, .00440, .00027, .00002, + .00001, .00010, .00011, + .07921, .01929, .00397, .00025, .00002, + .00001, .00009, .00011, + .07510, .01823, .00363, .00023, .00002, + .00001, .00009, .00009, + .07020, .01698, .00324, .00021, .00002, + .00001, .00008, .00009, + .06593, .01588, .00292, .00019, .00002, + .00001, .00007, .00008, + .06220, .01493, .00266, .00018, .00002, + .00001, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05868, .01405, .00243, .00018, .00002, + .00001, .00006, .00007, + .05546, .01324, .00222, .00017, .00002, + .00001, .00006, .00007, + .05260, .01252, .00205, .00016, .00002, + .00001, .00005, .00006, + .05005, .01188, .00190, .00015, .00002, + .00001, .00005, .00006, + .04764, .01128, .00176, .00014, .00002, + .00001, .00005, .00006, + .04538, .01071, .00164, .00013, .00002, + .00001, .00005, .00005, + .04335, .01021, .00153, .00013, .00002, + .00001, .00005, .00005, + .04150, .00976, .00144, .00012, .00002, + .00001, .00004, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03973, .00932, .00135, .00011, .00001, + .00001, .00004, .00005, + .03807, .00891, .00127, .00011, .00001, + .00001, .00004, .00005, + .03656, .00854, .00120, .00010, .00001, + .00001, .00004, .00004, + .03518, .00820, .00114, .00009, .00001, + .00001, .00003, .00004, + .03384, .00788, .00108, .00009, .00001, + .00001, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22508, .05704, .03299, .00067, .00000, + .00000, .00030, .00032, + .21039, .05307, .02842, .00062, .00000, + .00000, .00027, .00029, + .19096, .04783, .02295, .00054, .00000, + .00000, .00024, .00026, + .17831, .04445, .01974, .00049, .00001, + .00000, .00022, .00024, + .16599, .04118, .01692, .00045, .00001, + .00000, .00020, .00021, + .15616, .03858, .01486, .00042, .00001, + .00000, .00019, .00020, + .14739, .03628, .01315, .00039, .00001, + .00000, .00017, .00019, + .13872, .03401, .01160, .00036, .00001, + .00000, .00015, .00017 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13166, .03217, .01042, .00033, .00001, + .00000, .00014, .00016, + .12524, .03051, .00942, .00032, .00001, + .00000, .00014, .00015, + .12041, .02927, .00871, .00031, .00001, + .00000, .00013, .00014, + .11086, .02681, .00740, .00028, .00001, + .00000, .00012, .00012, + .10342, .02489, .00645, .00025, .00001, + .00000, .00011, .00012, + .09576, .02294, .00556, .00022, .00001, + .00000, .00010, .00011, + .08845, .02109, .00479, .00020, .00001, + .00001, .00010, .00010, + .08237, .01957, .00421, .00019, .00001, + .00001, .00009, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07673, .01815, .00371, .00017, .00001, + .00001, .00008, .00008, + .07238, .01706, .00335, .00016, .00001, + .00001, .00008, .00007, + .06744, .01584, .00297, .00015, .00001, + .00001, .00007, .00007, + .06340, .01484, .00267, .00014, .00001, + .00001, .00006, .00007, + .05995, .01399, .00244, .00013, .00001, + .00001, .00006, .00006, + .05586, .01299, .00217, .00012, .00001, + .00001, .00005, .00005, + .05230, .01212, .00196, .00011, .00001, + .00001, .00005, .00005, + .04921, .01137, .00178, .00010, .00001, + .00001, .00005, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04630, .01066, .00162, .00009, .00001, + .00001, .00004, .00004, + .04365, .01002, .00148, .00008, .00001, + .00001, .00004, .00004, + .04129, .00945, .00136, .00008, .00001, + .00001, .00004, .00004, + .03919, .00895, .00126, .00008, .00001, + .00001, .00004, .00004, + .03721, .00847, .00117, .00007, .00001, + .00001, .00003, .00003, + .03536, .00803, .00109, .00007, .00001, + .00001, .00003, .00003, + .03371, .00764, .00102, .00006, .00001, + .00001, .00003, .00003, + .03221, .00728, .00096, .00006, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03077, .00694, .00090, .00006, .00001, + .00001, .00003, .00003, + .02942, .00662, .00084, .00006, .00001, + .00001, .00002, .00003, + .02821, .00634, .00080, .00005, .00001, + .00001, .00002, .00003, + .02710, .00607, .00075, .00005, .00001, + .00001, .00002, .00003, + .02601, .00582, .00071, .00005, .00001, + .00001, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15604, .03647, .01578, .00028, .00000, + .00000, .00009, .00010, + .14479, .03367, .01342, .00024, .00000, + .00000, .00009, .00010, + .13002, .03003, .01066, .00022, .00000, + .00000, .00008, .00007, + .12049, .02771, .00907, .00020, .00000, + .00000, .00007, .00007, + .11132, .02547, .00770, .00017, .00000, + .00000, .00007, .00007, + .10407, .02371, .00671, .00015, .00000, + .00000, .00007, .00007, + .09762, .02216, .00590, .00013, .00000, + .00000, .00006, .00007, + .09129, .02065, .00517, .00013, .00000, + .00000, .00005, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08618, .01942, .00462, .00012, .00000, + .00000, .00005, .00005, + .08155, .01832, .00416, .00012, .00000, + .00000, .00005, .00005, + .07809, .01750, .00383, .00011, .00000, + .00000, .00004, .00004, + .07129, .01590, .00323, .00010, .00000, + .00000, .00004, .00004, + .06602, .01466, .00281, .00009, .00000, + .00000, .00004, .00003, + .06065, .01341, .00242, .00008, .00000, + .00000, .00003, .00004, + .05558, .01223, .00208, .00007, .00000, + .00000, .00003, .00004, + .05138, .01126, .00182, .00007, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04751, .01038, .00160, .00007, .00000, + .00000, .00003, .00002, + .04456, .00970, .00144, .00006, .00000, + .00000, .00002, .00002, + .04126, .00894, .00127, .00005, .00000, + .00000, .00002, .00002, + .03857, .00833, .00114, .00004, .00000, + .00000, .00002, .00002, + .03626, .00781, .00104, .00004, .00000, + .00000, .00002, .00002, + .03355, .00720, .00093, .00004, .00000, + .00000, .00002, .00002, + .03121, .00668, .00083, .00004, .00000, + .00000, .00002, .00002, + .02919, .00623, .00076, .00003, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02731, .00581, .00069, .00003, .00000, + .00000, .00002, .00001, + .02560, .00543, .00063, .00003, .00000, + .00000, .00001, .00001, + .02409, .00509, .00058, .00003, .00000, + .00000, .00001, .00001, + .02276, .00480, .00053, .00002, .00000, + .00000, .00001, .00002, + .02151, .00452, .00049, .00002, .00000, + .00000, .00001, .00002, + .02034, .00427, .00046, .00002, .00000, + .00000, .00001, .00001, + .01929, .00404, .00043, .00002, .00000, + .00000, .00001, .00001, + .01836, .00384, .00040, .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)/ + .01747, .00364, .00037, .00002, .00000, + .00000, .00001, .00001, + .01664, .00346, .00035, .00002, .00000, + .00000, .00001, .00001, + .01589, .00330, .00033, .00001, .00000, + .00000, .00001, .00001, + .01520, .00315, .00031, .00001, .00000, + .00000, .00001, .00001, + .01454, .00301, .00029, .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)/ + .10001, .02137, .00649, .00008, .00000, + .00000, .00002, .00003, + .09206, .01958, .00546, .00008, .00000, + .00000, .00002, .00003, + .08172, .01727, .00429, .00007, .00000, + .00000, .00002, .00003, + .07512, .01580, .00362, .00006, .00000, + .00000, .00002, .00003, + .06883, .01441, .00306, .00006, .00000, + .00000, .00002, .00002, + .06388, .01333, .00265, .00006, .00000, + .00000, .00001, .00001, + .05953, .01237, .00233, .00005, .00000, + .00000, .00001, .00001, + .05530, .01145, .00203, .00004, .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=9,16)/ + .05189, .01071, .00181, .00003, .00000, + .00000, .00001, .00001, + .04883, .01004, .00163, .00003, .00000, + .00000, .00001, .00001, + .04655, .00955, .00150, .00003, .00000, + .00000, .00001, .00001, + .04210, .00860, .00126, .00003, .00000, + .00000, .00001, .00001, + .03870, .00787, .00110, .00002, .00000, + .00000, .00001, .00001, + .03525, .00714, .00094, .00002, .00000, + .00000, .00001, .00001, + .03202, .00646, .00081, .00002, .00000, + .00000, .00001, .00001, + .02937, .00590, .00071, .00002, .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=17,24)/ + .02696, .00539, .00062, .00002, .00000, + .00000, .00001, .00001, + .02512, .00501, .00056, .00002, .00000, + .00000, .00001, .00001, + .02308, .00459, .00049, .00002, .00000, + .00000, .00001, .00001, + .02143, .00424, .00044, .00001, .00000, + .00000, .00000, .00001, + .02004, .00395, .00040, .00001, .00000, + .00000, .00001, .00001, + .01840, .00362, .00036, .00001, .00000, + .00000, .00001, .00001, + .01700, .00333, .00032, .00001, .00000, + .00000, .00000, .00000, + .01581, .00309, .00029, .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=25,32)/ + .01469, .00286, .00026, .00001, .00000, + .00000, .00000, .00000, + .01368, .00266, .00024, .00001, .00000, + .00000, .00000, .00000, + .01281, .00248, .00022, .00001, .00000, + .00000, .00000, .00000, + .01203, .00233, .00020, .00001, .00000, + .00000, .00000, .00000, + .01131, .00218, .00019, .00001, .00000, + .00000, .00000, .00000, + .01064, .00205, .00017, .00001, .00000, + .00000, .00000, .00000, + .01004, .00193, .00016, .00001, .00000, + .00000, .00000, .00000, + .00952, .00182, .00015, .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)/ + .00901, .00172, .00014, .00000, .00000, + .00000, .00000, .00000, + .00855, .00163, .00013, .00000, .00000, + .00000, .00000, .00000, + .00812, .00155, .00012, .00000, .00000, + .00000, .00000, .00000, + .00774, .00147, .00012, .00000, .00000, + .00000, .00000, .00000, + .00738, .00140, .00011, .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)/ + .05778, .01117, .00219, .00004, .00000, + .00000, .00000, .00000, + .05270, .01015, .00183, .00003, .00000, + .00000, .00000, .00000, + .04620, .00884, .00143, .00002, .00000, + .00000, .00000, .00000, + .04209, .00801, .00121, .00002, .00000, + .00000, .00000, .00000, + .03820, .00724, .00102, .00002, .00000, + .00000, .00000, .00000, + .03518, .00665, .00089, .00002, .00000, + .00000, .00000, .00000, + .03254, .00612, .00078, .00001, .00000, + .00000, .00000, .00001, + .02999, .00562, .00068, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02795, .00522, .00061, .00001, .00000, + .00000, .00000, .00000, + .02614, .00487, .00055, .00001, .00000, + .00000, .00000, .00000, + .02479, .00461, .00050, .00001, .00000, + .00000, .00000, .00000, + .02221, .00411, .00042, .00001, .00000, + .00000, .00000, .00000, + .02023, .00373, .00037, .00001, .00000, + .00000, .00000, .00000, + .01825, .00335, .00032, .00001, .00000, + .00000, .00000, .00000, + .01642, .00300, .00027, .00000, .00000, + .00000, .00000, .00000, + .01493, .00272, .00024, .00001, .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)/ + .01359, .00246, .00021, .00001, .00000, + .00000, .00000, .00000, + .01257, .00227, .00019, .00000, .00000, + .00000, .00000, .00000, + .01145, .00206, .00017, .00000, .00000, + .00000, .00000, .00000, + .01055, .00190, .00015, .00000, .00000, + .00000, .00000, .00000, + .00980, .00176, .00014, .00000, .00000, + .00000, .00000, .00000, + .00893, .00159, .00012, .00000, .00000, + .00000, .00000, .00000, + .00819, .00146, .00011, .00000, .00000, + .00000, .00000, .00000, + .00755, .00134, .00010, .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)/ + .00697, .00123, .00009, .00000, .00000, + .00000, .00000, .00000, + .00645, .00114, .00008, .00000, .00000, + .00000, .00000, .00000, + .00600, .00105, .00007, .00000, .00000, + .00000, .00000, .00000, + .00560, .00098, .00007, .00000, .00000, + .00000, .00000, .00000, + .00523, .00092, .00006, .00000, .00000, + .00000, .00000, .00000, + .00490, .00085, .00006, .00000, .00000, + .00000, .00000, .00000, + .00460, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00433, .00075, .00005, .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)/ + .00408, .00071, .00005, .00000, .00000, + .00000, .00000, .00000, + .00385, .00067, .00004, .00000, .00000, + .00000, .00000, .00000, + .00364, .00063, .00004, .00000, .00000, + .00000, .00000, .00000, + .00345, .00060, .00004, .00000, .00000, + .00000, .00000, .00000, + .00328, .00056, .00004, .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)/ + .02873, .00493, .00056, .00000, .00000, + .00000, .00000, .00000, + .02594, .00443, .00047, .00000, .00000, + .00000, .00000, .00001, + .02240, .00381, .00037, .00000, .00000, + .00000, .00000, .00000, + .02019, .00342, .00032, .00000, .00000, + .00000, .00000, .00000, + .01813, .00306, .00027, .00000, .00000, + .00000, .00000, .00000, + .01654, .00278, .00024, .00000, .00000, + .00000, .00000, .00000, + .01517, .00254, .00021, .00000, .00000, + .00000, .00000, .00000, + .01386, .00231, .00018, .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)/ + .01282, .00213, .00017, .00000, .00000, + .00000, .00000, .00000, + .01190, .00197, .00015, .00000, .00000, + .00000, .00000, .00000, + .01122, .00186, .00014, .00000, .00000, + .00000, .00000, .00000, + .00993, .00163, .00012, .00000, .00000, + .00000, .00000, .00000, + .00895, .00147, .00010, .00000, .00000, + .00000, .00000, .00000, + .00799, .00130, .00009, .00000, .00000, + .00000, .00000, .00000, + .00710, .00116, .00008, .00000, .00000, + .00000, .00000, .00000, + .00639, .00104, .00007, .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)/ + .00576, .00093, .00006, .00000, .00000, + .00000, .00000, .00000, + .00528, .00085, .00005, .00000, .00000, + .00000, .00000, .00000, + .00477, .00077, .00005, .00000, .00000, + .00000, .00000, .00000, + .00436, .00070, .00004, .00000, .00000, + .00000, .00000, .00000, + .00401, .00064, .00004, .00000, .00000, + .00000, .00000, .00000, + .00362, .00058, .00003, .00000, .00000, + .00000, .00000, .00000, + .00329, .00052, .00003, .00000, .00000, + .00000, .00000, .00000, + .00301, .00048, .00003, .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)/ + .00275, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00253, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00233, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00216, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00201, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00186, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00174, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00163, .00025, .00001, .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)/ + .00153, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00143, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00135, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00127, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00120, .00018, .00001, .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)/ + .00298, .00037, .00001, .00000, .00000, + .00000, .00000, .00000, + .00261, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00216, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00189, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00164, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00146, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00131, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00116, .00014, .00001, .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)/ + .00105, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00095, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00089, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00076, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00057, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00043, .00005, .00000, .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)/ + .00038, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00030, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .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)/ + .00015, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .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)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .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='cor11.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