#include "pdf/pilot.h" subroutine sfmrs_99a4(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 #if defined(CERNLIB_DOUBLE) DOUBLE PRECISION #endif #if defined(CERNLIB_SINGLE) REAL #endif + 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)/ + .00585, .00245, .82805, .91213, .00000, + .00000, .48557, .92764, + .00600, .00250, 2.18412, .94369, .00000, + .00000, .52199, .95924, + .00622, .00259, 4.68943, 1.00920, .00069, + .00000, .59453, 1.02479, + .00639, .00265, 6.93938, 1.07311, .06835, + .00000, .66339, 1.08871, + .00656, .00272, 9.74757, 1.15473, .17739, + .00000, .75010, 1.17034, + .00671, .00279, 12.59184, 1.24006, .26786, + .00000, .83974, 1.25568, + .00686, .00285, 15.71620, 1.33420, .36772, + .00000, .93795, 1.34982, + .00702, .00291, 19.58449, 1.44622, .49224, + .00000, 1.05420, 1.46183 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00715, .00297, 23.28337, 1.55743, .60663, + .00000, 1.16904, 1.57302, + .00729, .00303, 27.31465, 1.67482, .73243, + .00000, 1.28987, 1.69039, + .00740, .00307, 30.75279, 1.77656, .83779, + .00000, 1.39430, 1.79211, + .00763, .00317, 38.89783, 2.01817, 1.09094, + .00044, 1.64153, 2.03368, + .00783, .00326, 46.71848, 2.25432, 1.33851, + .20964, 1.88239, 2.26978, + .00805, .00336, 56.33112, 2.54970, 1.64744, + .58858, 2.18290, 2.56510, + .00829, .00347, 67.70467, 2.89625, 2.00887, + .96709, 2.53467, 2.91158, + .00851, .00357, 79.06387, 3.24413, 2.36632, + 1.32884, 2.88718, 3.25939 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00873, .00367, 91.73856, 3.63046, 2.76496, + 1.74192, 3.27807, 3.64564, + .00892, .00376, 103.26083, 3.97972, 3.12744, + 2.12256, 3.63103, 3.99483, + .00915, .00387, 118.29268, 4.43814, 3.59974, + 2.60937, 4.09386, 4.45317, + .00935, .00396, 132.58542, 4.87647, 4.04940, + 3.06999, 4.53602, 4.89142, + .00954, .00405, 146.74286, 5.30873, 4.49592, + 3.53412, 4.97171, 5.32360, + .00979, .00417, 165.77943, 5.89603, 5.09799, + 4.15102, 5.56328, 5.91079, + .01002, .00428, 184.94156, 6.49052, 5.70683, + 4.77470, 6.16170, 6.50518, + .01023, .00438, 204.19962, 7.08859, 6.32131, + 5.40806, 6.76338, 7.10316 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01045, .00449, 224.36107, 7.72214, 6.96849, + 6.06894, 7.40046, 7.73661, + .01067, .00459, 245.24771, 8.38133, 7.64269, + 6.75944, 8.06304, 8.39570, + .01088, .00469, 266.06628, 9.04202, 8.31842, + 7.45167, 8.72689, 9.05629, + .01108, .00479, 286.41031, 9.69417, 8.98339, + 8.13010, 9.38196, 9.70835, + .01128, .00489, 307.90686, 10.38523, 9.68943, + 8.85283, 10.07590, 10.39931, + .01148, .00498, 329.65781, 11.09263, 10.40965, + 9.58659, 10.78610, 11.10662, + .01167, .00508, 351.30969, 11.79904, 11.13017, + 10.32282, 11.49512, 11.81294, + .01185, .00517, 372.31799, 12.49127, 11.83462, + 11.04050, 12.18979, 12.50509 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01203, .00526, 394.25159, 13.21812, 12.57437, + 11.79438, 12.91907, 13.23185, + .01222, .00535, 416.63153, 13.96398, 13.33374, + 12.56891, 13.66729, 13.97763, + .01239, .00544, 438.38248, 14.69668, 14.07785, + 13.32532, 14.40220, 14.71024, + .01256, .00553, 459.91669, 15.42256, 14.81698, + 14.07970, 15.13017, 15.43604, + .01274, .00561, 481.80563, 16.17059, 15.57575, + 14.85012, 15.88028, 16.18400 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00791, .00333, .86020, .76857, .00000, + .00000, .40852, .77754, + .00811, .00342, 2.10394, .79885, .00000, + .00000, .44255, .80784, + .00842, .00354, 4.35009, .85865, .00063, + .00000, .50775, .86766, + .00865, .00364, 6.32141, .91497, .05932, + .00000, .56788, .92399, + .00889, .00375, 8.73984, .98557, .15327, + .00000, .64237, .99459, + .00910, .00384, 11.15188, 1.05812, .22995, + .00000, .71823, 1.06714, + .00930, .00393, 13.76694, 1.13722, .31380, + .00000, .80045, 1.14624, + .00951, .00402, 16.96573, 1.23063, .41746, + .00000, .89710, 1.23964 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00970, .00411, 19.98794, 1.32233, .51175, + .00000, .99157, 1.33133, + .00989, .00419, 23.25026, 1.41857, .61475, + .00000, 1.09044, 1.42756, + .01003, .00426, 26.00810, 1.50138, .70041, + .00000, 1.17530, 1.51035, + .01035, .00440, 32.46647, 1.69651, .90453, + .00039, 1.37473, 1.70546, + .01062, .00453, 38.58014, 1.88541, 1.10212, + .16668, 1.56723, 1.89434, + .01093, .00467, 45.99443, 2.11955, 1.34633, + .46632, 1.80529, 2.12845, + .01126, .00483, 54.65355, 2.39162, 1.62919, + .76178, 2.08134, 2.40048, + .01155, .00497, 63.19270, 2.66210, 1.90618, + 1.04126, 2.35535, 2.67092 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01186, .00511, 72.61507, 2.96001, 2.21248, + 1.35777, 2.65674, 2.96879, + .01211, .00524, 81.09736, 3.22739, 2.48895, + 1.64727, 2.92695, 3.23613, + .01242, .00539, 92.05191, 3.57561, 2.84632, + 2.01442, 3.27852, 3.58430, + .01270, .00552, 102.36368, 3.90599, 3.18389, + 2.35901, 3.61181, 3.91463, + .01295, .00565, 112.49475, 4.22976, 3.51703, + 2.70420, 3.93820, 4.23836, + .01328, .00581, 125.98730, 4.66633, 3.96278, + 3.15930, 4.37803, 4.67488, + .01359, .00596, 139.43782, 5.10490, 4.41012, + 3.61591, 4.81959, 5.11339, + .01389, .00611, 152.84148, 5.54316, 4.85865, + 4.07666, 5.26060, 5.55161 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01418, .00626, 166.75031, 6.00415, 5.32768, + 4.55387, 5.72429, 6.01254, + .01447, .00640, 181.04597, 6.48077, 5.81325, + 5.04944, 6.20350, 6.48911, + .01475, .00654, 195.18823, 6.95560, 6.29704, + 5.54332, 6.68073, 6.96388, + .01502, .00668, 208.90544, 7.42149, 6.77028, + 6.02441, 7.14886, 7.42973, + .01529, .00681, 223.30815, 7.91264, 7.27023, + 6.53445, 7.64221, 7.92083, + .01555, .00695, 237.77751, 8.41252, 7.77729, + 7.04918, 8.14422, 8.42066, + .01581, .00708, 252.09695, 8.90930, 8.28219, + 7.56338, 8.64301, 8.91740, + .01605, .00720, 265.90332, 9.39366, 8.77334, + 8.06202, 9.12922, 9.40170 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01630, .00733, 280.23837, 9.89993, 9.28681, + 8.58352, 9.63735, 9.90793, + .01654, .00745, 294.78558, 10.41713, 9.81160, + 9.11705, 10.15635, 10.42509, + .01678, .00757, 308.84103, 10.92281, 10.32340, + 9.63553, 10.66373, 10.93073, + .01700, .00769, 322.69809, 11.42199, 10.83008, + 10.15106, 11.16451, 11.42987, + .01723, .00781, 336.69937, 11.93400, 11.34770, + 10.67484, 11.67810, 11.94183 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01069, .00454, .89461, .64732, .00000, + .00000, .34383, .65174, + .01098, .00467, 2.02863, .67594, .00000, + .00000, .37532, .68037, + .01140, .00486, 4.03754, .73020, .00057, + .00000, .43371, .73463, + .01171, .00500, 5.76062, .77976, .05147, + .00000, .48617, .78418, + .01204, .00515, 7.83815, .84078, .13239, + .00000, .55017, .84520, + .01233, .00529, 9.87803, .90244, .19734, + .00000, .61435, .90686, + .01260, .00542, 12.06032, .96885, .26770, + .00000, .68314, .97327, + .01290, .00556, 14.69720, 1.04668, .35393, + .00000, .76343, 1.05109 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01316, .00568, 17.15815, 1.12220, .43156, + .00000, .84106, 1.12660, + .01341, .00580, 19.78888, 1.20098, .51580, + .00000, .92184, 1.20537, + .01361, .00590, 21.99280, 1.26825, .58535, + .00000, .99067, 1.27264, + .01404, .00611, 27.09359, 1.42551, .74968, + .00035, 1.15119, 1.42989, + .01442, .00629, 31.85233, 1.57625, .90712, + .13246, 1.30465, 1.58061, + .01484, .00650, 37.54441, 1.76133, 1.09981, + .36926, 1.49270, 1.76567, + .01528, .00672, 44.10455, 1.97424, 1.32072, + .59974, 1.70863, 1.97857, + .01568, .00692, 50.49009, 2.18380, 1.53485, + .81549, 1.92086, 2.18811 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01609, .00712, 57.45637, 2.41267, 1.76960, + 1.05776, 2.15236, 2.41695, + .01644, .00730, 63.66531, 2.61656, 1.97990, + 1.27770, 2.35838, 2.62083, + .01686, .00751, 71.60124, 2.87996, 2.24952, + 1.55423, 2.62432, 2.88420, + .01723, .00770, 78.99487, 3.12786, 2.50215, + 1.81163, 2.87442, 3.13209, + .01758, .00788, 86.19881, 3.36928, 2.74990, + 2.06794, 3.11781, 3.37348, + .01802, .00810, 95.69867, 3.69227, 3.07879, + 2.40306, 3.44326, 3.69646, + .01844, .00832, 105.07512, 4.01421, 3.40628, + 2.73667, 3.76746, 4.01837, + .01884, .00852, 114.33829, 4.33373, 3.73244, + 3.07111, 4.08906, 4.33787 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01924, .00873, 123.86313, 4.66740, 4.07101, + 3.41485, 4.42476, 4.67151, + .01963, .00893, 133.57368, 5.01015, 4.41930, + 3.76959, 4.76946, 5.01424, + .02000, .00912, 143.10623, 5.34951, 4.76419, + 4.12100, 5.11064, 5.35358, + .02036, .00931, 152.28104, 5.68045, 5.09948, + 4.46112, 5.44326, 5.68450, + .02072, .00950, 161.85223, 6.02749, 5.45190, + 4.81997, 5.79197, 6.03153, + .02107, .00968, 171.39592, 6.37862, 5.80719, + 5.17987, 6.14471, 6.38264, + .02141, .00986, 180.78500, 6.72589, 6.15931, + 5.53778, 6.49349, 6.72989, + .02174, .01003, 189.77789, 7.06269, 6.50003, + 5.88299, 6.83170, 7.06667 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02207, .01021, 199.06227, 7.41312, 6.85463, + 6.24242, 7.18352, 7.41708, + .02239, .01038, 208.43132, 7.76947, 7.21543, + 6.60853, 7.54124, 7.77342, + .02271, .01054, 217.42761, 8.11620, 7.56556, + 6.96250, 7.88925, 8.12013, + .02300, .01070, 226.25989, 8.45724, 7.91103, + 7.31338, 8.23150, 8.46115, + .02331, .01086, 235.12692, 8.80533, 8.26216, + 7.66796, 8.58079, 8.80923 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01276, .00544, .91625, .58535, .00000, + .00000, .31095, .58789, + .01310, .00560, 1.98743, .61287, .00000, + .00000, .34093, .61541, + .01361, .00585, 3.86701, .66401, .00054, + .00000, .39559, .66654, + .01399, .00603, 5.45765, .70994, .04736, + .00000, .44400, .71247, + .01438, .00622, 7.35592, .76594, .12149, + .00000, .50255, .76847, + .01473, .00638, 9.20256, .82198, .18041, + .00000, .56073, .82451, + .01506, .00655, 11.16252, .88192, .24387, + .00000, .62269, .88444, + .01542, .00672, 13.51359, .95182, .32126, + .00000, .69469, .95434 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01573, .00688, 15.69180, 1.01918, .39050, + .00000, .76384, 1.02169, + .01603, .00702, 18.00684, 1.08920, .46534, + .00000, .83556, 1.09170, + .01627, .00714, 19.93586, 1.14871, .52686, + .00000, .89640, 1.15121, + .01679, .00740, 24.36922, 1.28717, .67149, + .00032, 1.03762, 1.28966, + .01724, .00763, 28.46933, 1.41907, .80920, + .11575, 1.17184, 1.42155, + .01774, .00788, 33.33323, 1.58011, .97677, + .32201, 1.33540, 1.58258, + .01827, .00815, 38.89463, 1.76426, 1.16770, + .52121, 1.52210, 1.76673, + .01875, .00840, 44.26595, 1.94441, 1.35164, + .70654, 1.70452, 1.94687 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01924, .00865, 50.08607, 2.14016, 1.55227, + .91360, 1.90249, 2.14260, + .01966, .00886, 55.24268, 2.31377, 1.73119, + 1.10073, 2.07791, 2.31621, + .02016, .00912, 61.79272, 2.53697, 1.95946, + 1.33481, 2.30326, 2.53939, + .02060, .00935, 67.85748, 2.74603, 2.17232, + 1.55162, 2.51417, 2.74844, + .02102, .00957, 73.73756, 2.94885, 2.38028, + 1.76674, 2.71867, 2.95126, + .02154, .00984, 81.44552, 3.21893, 2.65504, + 2.04661, 2.99083, 3.22133, + .02204, .01011, 89.00803, 3.48687, 2.92736, + 2.32391, 3.26068, 3.48926, + .02251, .01035, 96.44079, 3.75173, 3.19748, + 2.60083, 3.52729, 3.75411 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02299, .01060, 104.04114, 4.02709, 3.47665, + 2.88412, 3.80437, 4.02946, + .02345, .01085, 111.75208, 4.30888, 3.76274, + 3.17540, 4.08781, 4.31124, + .02390, .01109, 119.28671, 4.58684, 4.04501, + 3.46290, 4.36731, 4.58920, + .02432, .01131, 126.50453, 4.85691, 4.31839, + 3.74010, 4.63880, 4.85926, + .02475, .01154, 134.00520, 5.13924, 4.60488, + 4.03170, 4.92253, 5.14158, + .02517, .01176, 141.45039, 5.42388, 4.89265, + 4.32307, 5.20853, 5.42621, + .02557, .01198, 148.74884, 5.70457, 5.17706, + 4.61205, 5.49050, 5.70690, + .02595, .01218, 155.71138, 5.97594, 5.45139, + 4.88986, 5.76307, 5.97827 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02634, .01239, 162.87488, 6.25752, 5.73611, + 5.17835, 6.04582, 6.25984, + .02673, .01260, 170.07930, 6.54308, 6.02504, + 5.47142, 6.33254, 6.54540, + .02710, .01280, 176.97073, 6.82011, 6.30459, + 5.75390, 6.61065, 6.82242, + .02745, .01299, 183.71989, 7.09202, 6.57988, + 6.03341, 6.88359, 7.09433, + .02781, .01318, 190.46852, 7.36873, 6.85881, + 6.31494, 7.16131, 7.37103 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01447, .00620, .93253, .54497, .00000, + .00000, .28961, .54649, + .01486, .00639, 1.95978, .57167, .00000, + .00000, .31851, .57318, + .01544, .00667, 3.75161, .62064, .00052, + .00000, .37064, .62215, + .01587, .00688, 5.25354, .66415, .04464, + .00000, .41636, .66565, + .01632, .00710, 7.03284, .71683, .11428, + .00000, .47131, .71833, + .01671, .00730, 8.75224, .76918, .16926, + .00000, .52558, .77068, + .01709, .00749, 10.56680, .82489, .22823, + .00000, .58309, .82639, + .01750, .00769, 12.73210, .88965, .29987, + .00000, .64972, .89114 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01785, .00787, 14.72766, .95173, .36369, + .00000, .71340, .95322, + .01820, .00805, 16.83979, 1.01610, .43247, + .00000, .77928, 1.01758, + .01847, .00819, 18.59291, 1.07063, .48884, + .00000, .83499, 1.07211, + .01906, .00848, 22.60170, 1.19703, .62088, + .00030, .96386, 1.19851, + .01957, .00875, 26.28588, 1.31693, .74604, + .10516, 1.08582, 1.31840, + .02014, .00904, 30.63028, 1.46272, .89770, + .29212, 1.23385, 1.46418, + .02074, .00935, 35.56943, 1.62869, 1.06974, + .47168, 1.40210, 1.63016, + .02129, .00964, 40.31294, 1.79035, 1.23477, + .63798, 1.56576, 1.79181 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02185, .00993, 45.42768, 1.96536, 1.41409, + .82313, 1.74275, 1.96682, + .02231, .01017, 49.93996, 2.12008, 1.57350, + .98993, 1.89908, 2.12154, + .02288, .01047, 55.64581, 2.31829, 1.77616, + 1.19779, 2.09920, 2.31975, + .02339, .01074, 60.90530, 2.50330, 1.96446, + 1.38964, 2.28586, 2.50476, + .02386, .01099, 65.98657, 2.68231, 2.14795, + 1.57950, 2.46635, 2.68376, + .02445, .01131, 72.61874, 2.91987, 2.38955, + 1.82561, 2.70575, 2.92131, + .02502, .01161, 79.09762, 3.15474, 2.62818, + 2.06865, 2.94233, 3.15619, + .02555, .01189, 85.44164, 3.38624, 2.86422, + 2.31067, 3.17538, 3.38769 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02609, .01218, 91.90258, 3.62616, 3.10738, + 2.55744, 3.41683, 3.62761, + .02661, .01246, 98.43453, 3.87099, 3.35588, + 2.81049, 3.66312, 3.87244, + .02711, .01273, 104.79581, 4.11187, 3.60042, + 3.05958, 3.90536, 4.11332, + .02759, .01298, 110.86877, 4.34527, 3.83663, + 3.29910, 4.14003, 4.34673, + .02807, .01324, 117.16215, 4.58873, 4.08362, + 3.55053, 4.38474, 4.59019, + .02855, .01350, 123.38805, 4.83355, 4.33106, + 3.80108, 4.63076, 4.83500, + .02900, .01375, 129.47572, 5.07447, 4.57512, + 4.04909, 4.87281, 5.07593, + .02943, .01398, 135.26607, 5.30686, 4.80999, + 4.28695, 5.10626, 5.30832 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02987, .01422, 141.20880, 5.54751, 5.05328, + 4.53347, 5.34796, 5.54897, + .03030, .01445, 147.17059, 5.79109, 5.29969, + 4.78344, 5.59256, 5.79256, + .03072, .01468, 152.85759, 6.02688, 5.53758, + 5.02382, 5.82932, 6.02835, + .03112, .01490, 158.41747, 6.25798, 5.77152, + 5.26139, 6.06132, 6.25945, + .03152, .01512, 163.96019, 6.49263, 6.00801, + 5.50008, 6.29687, 6.49411 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01595, .00685, .94584, .51556, .00000, + .00000, .27412, .51645, + .01638, .00707, 1.93945, .54161, .00000, + .00000, .30219, .54249, + .01703, .00739, 3.66539, .58894, .00051, + .00000, .35241, .58982, + .01750, .00763, 5.10137, .63064, .04263, + .00000, .39614, .63151, + .01800, .00788, 6.79277, .68087, .10898, + .00000, .44845, .68174, + .01844, .00810, 8.41874, .73052, .16107, + .00000, .49986, .73139, + .01886, .00831, 10.12704, .78315, .21676, + .00000, .55413, .78401, + .01930, .00854, 12.15722, .84416, .28422, + .00000, .61686, .84502 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01970, .00875, 14.02052, .90242, .34412, + .00000, .67659, .90328, + .02008, .00894, 15.98626, .96269, .40852, + .00000, .73825, .96356, + .02038, .00910, 17.61289, 1.01363, .46118, + .00000, .79026, 1.01449, + .02103, .00943, 21.31774, 1.13136, .58416, + .00029, .91025, 1.13222, + .02159, .00973, 24.70573, 1.24266, .70033, + .09760, 1.02343, 1.24352, + .02222, .01006, 28.68205, 1.37754, .84065, + .27079, 1.16036, 1.37840, + .02289, .01041, 33.18257, 1.53057, .99927, + .43641, 1.31547, 1.53143, + .02349, .01073, 37.48562, 1.67910, 1.15089, + .58928, 1.46583, 1.67997 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02411, .01105, 42.10761, 1.83944, 1.31517, + .75899, 1.62798, 1.84030, + .02462, .01133, 46.17150, 1.98083, 1.46084, + .91149, 1.77083, 1.98170, + .02525, .01166, 51.29216, 2.16146, 1.64551, + 1.10099, 1.95321, 2.16233, + .02581, .01196, 55.99561, 2.32960, 1.81663, + 1.27539, 2.12285, 2.33048, + .02632, .01224, 60.52699, 2.49193, 1.98303, + 1.44765, 2.28654, 2.49281, + .02698, .01259, 66.42126, 2.70679, 2.20153, + 1.67031, 2.50309, 2.70768, + .02760, .01292, 72.15972, 2.91867, 2.41678, + 1.88959, 2.71650, 2.91956, + .02818, .01324, 77.76231, 3.12701, 2.62920, + 2.10749, 2.92627, 3.12791 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02877, .01356, 83.44997, 3.34240, 2.84748, + 2.32907, 3.14304, 3.34330, + .02935, .01387, 89.18421, 3.56171, 3.07008, + 2.55582, 3.36369, 3.56262, + .02990, .01417, 94.75375, 3.77704, 3.28867, + 2.77856, 3.58026, 3.77796, + .03043, .01445, 100.05653, 3.98524, 3.49937, + 2.99227, 3.78961, 3.98617, + .03095, .01474, 105.53970, 4.20203, 3.71931, + 3.21624, 4.00755, 4.20297, + .03147, .01503, 110.94969, 4.41959, 3.93919, + 3.43893, 4.22620, 4.42053, + .03197, .01530, 116.22894, 4.63333, 4.15573, + 3.65905, 4.44098, 4.63429, + .03245, .01556, 121.23843, 4.83915, 4.36373, + 3.86976, 4.64775, 4.84011 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03293, .01582, 126.36973, 5.05193, 4.57887, + 4.08780, 4.86150, 5.05291, + .03340, .01608, 131.50752, 5.26698, 4.79643, + 4.30857, 5.07748, 5.26797, + .03386, .01633, 136.39740, 5.47481, 5.00610, + 4.52049, 5.28619, 5.47580, + .03429, .01657, 141.17151, 5.67825, 5.21207, + 4.72972, 5.49045, 5.67925, + .03473, .01681, 145.91943, 5.88447, 5.41991, + 4.93954, 5.69750, 5.88548 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02160, .00940, .99268, .43402, .00000, + .00000, .23144, .43376, + .02220, .00972, 1.88442, .45798, .00000, + .00000, .25695, .45772, + .02309, .01019, 3.41718, .50039, .00046, + .00000, .30159, .50014, + .02374, .01053, 4.66283, .53686, .03691, + .00000, .33962, .53662, + .02442, .01090, 6.10357, .58011, .09391, + .00000, .38447, .57987, + .02502, .01122, 7.46580, .62216, .13790, + .00000, .42787, .62193, + .02559, .01153, 8.87681, .66618, .18445, + .00000, .47316, .66596, + .02621, .01186, 10.53199, .71679, .24034, + .00000, .52508, .71658 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02674, .01215, 12.03121, .76451, .28942, + .00000, .57392, .76431, + .02726, .01244, 13.59656, .81356, .34181, + .00000, .62403, .81336, + .02768, .01266, 14.87931, .85465, .38432, + .00000, .66595, .85446, + .02856, .01314, 17.76418, .94879, .48271, + .00026, .76181, .94862, + .02933, .01356, 20.36065, 1.03680, .57463, + .07726, .85126, 1.03665, + .03019, .01403, 23.36214, 1.14235, .68449, + .21357, .95837, 1.14222, + .03109, .01453, 26.71107, 1.26078, .80732, + .34216, 1.07838, 1.26067, + .03191, .01498, 29.86769, 1.37445, .92345, + .45954, 1.19344, 1.37436 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03274, .01544, 33.21678, 1.49601, 1.04811, + .58869, 1.31638, 1.49595, + .03344, .01583, 36.12999, 1.60235, 1.15776, + .70383, 1.42384, 1.60231, + .03428, .01630, 39.75914, 1.73701, 1.29554, + .84557, 1.55982, 1.73698, + .03504, .01671, 43.05491, 1.86124, 1.42209, + .97487, 1.68520, 1.86124, + .03573, .01710, 46.20203, 1.98038, 1.54432, + 1.10177, 1.80537, 1.98040, + .03661, .01759, 50.25074, 2.13672, 1.70345, + 1.26432, 1.96298, 2.13677, + .03745, .01806, 54.14931, 2.28957, 1.85887, + 1.42305, 2.11700, 2.28965, + .03823, .01850, 57.92001, 2.43878, 2.01117, + 1.57968, 2.26730, 2.43889 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03902, .01894, 61.70839, 2.59181, 2.16639, + 1.73760, 2.42137, 2.59194, + .03980, .01937, 65.49379, 2.74654, 2.32360, + 1.89813, 2.57712, 2.74671, + .04053, .01979, 69.13922, 2.89745, 2.47696, + 2.05478, 2.72898, 2.89765, + .04123, .02018, 72.57928, 3.04239, 2.62378, + 2.20403, 2.87478, 3.04261, + .04193, .02057, 76.11152, 3.19246, 2.77620, + 2.35962, 3.02572, 3.19271, + .04263, .02096, 79.56623, 3.34207, 2.92757, + 2.51326, 3.17617, 3.34235, + .04329, .02133, 82.91580, 3.48831, 3.07589, + 2.66438, 3.32319, 3.48862, + .04392, .02169, 86.06965, 3.62831, 3.21753, + 2.80818, 3.46391, 3.62864 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04456, .02205, 89.27948, 3.77233, 3.36330, + 2.95625, 3.60866, 3.77268, + .04519, .02240, 92.47316, 3.91716, 3.51000, + 3.10546, 3.75420, 3.91754, + .04579, .02274, 95.49017, 4.05637, 3.65060, + 3.24787, 3.89408, 4.05678, + .04636, .02307, 98.42318, 4.19214, 3.78824, + 3.38802, 4.03048, 4.19257, + .04695, .02340, 101.31641, 4.32898, 3.92631, + 3.52769, 4.16795, 4.32944 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02932, .01300, 1.05378, .36594, .00000, + .00000, .19615, .36558, + .03014, .01346, 1.84862, .38777, .00000, + .00000, .21920, .38743, + .03136, .01415, 3.20353, .42554, .00042, + .00000, .25872, .42524, + .03225, .01465, 4.27808, .45730, .03187, + .00000, .29171, .45703, + .03319, .01518, 5.49737, .49439, .08070, + .00000, .33005, .49415, + .03401, .01565, 6.63041, .52987, .11771, + .00000, .36659, .52966, + .03479, .01609, 7.78660, .56655, .15647, + .00000, .40426, .56636, + .03563, .01657, 9.12441, .60834, .20257, + .00000, .44708, .60818 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03636, .01699, 10.31947, .64723, .24259, + .00000, .48685, .64710, + .03707, .01739, 11.55371, .68692, .28500, + .00000, .52737, .68681, + .03764, .01771, 12.55480, .71987, .31912, + .00000, .56097, .71979, + .03884, .01840, 14.77625, .79466, .39738, + .00023, .63711, .79463, + .03988, .01899, 16.74193, .86376, .46964, + .06086, .70733, .86376, + .04105, .01966, 18.97762, .94570, .55508, + .16759, .79050, .94576, + .04227, .02036, 21.43466, 1.03657, .64949, + .26686, .88261, 1.03668, + .04338, .02100, 23.71557, 1.12275, .73772, + .35645, .96988, 1.12290 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04451, .02165, 26.10416, 1.21401, .83151, + .45410, 1.06222, 1.21422, + .04545, .02219, 28.15833, 1.29316, .91331, + .54043, 1.14225, 1.29341, + .04659, .02284, 30.68624, 1.39244, 1.01514, + .64569, 1.24257, 1.39275, + .04760, .02343, 32.95407, 1.48319, 1.10780, + .74081, 1.33421, 1.48354, + .04853, .02396, 35.09937, 1.56960, 1.19668, + .83355, 1.42143, 1.57000, + .04972, .02465, 37.82643, 1.68194, 1.31132, + .95120, 1.53477, 1.68240, + .05083, .02529, 40.42141, 1.79080, 1.42230, + 1.06506, 1.64455, 1.79131, + .05188, .02590, 42.90634, 1.89625, 1.53022, + 1.17661, 1.75085, 1.89682 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05294, .02650, 45.37455, 2.00347, 1.63926, + 1.28806, 1.85890, 2.00409, + .05397, .02710, 47.81725, 2.11109, 1.74891, + 1.40055, 1.96732, 2.11177, + .05495, .02767, 50.14796, 2.21532, 1.85513, + 1.50956, 2.07229, 2.21606, + .05588, .02820, 52.32586, 2.31470, 1.95607, + 1.61264, 2.17235, 2.31548, + .05681, .02874, 54.54538, 2.41700, 2.06027, + 1.71952, 2.27534, 2.41784, + .05773, .02927, 56.69499, 2.51827, 2.16300, + 1.82426, 2.37727, 2.51915, + .05861, .02978, 58.76483, 2.61672, 2.26314, + 1.92678, 2.47634, 2.61766, + .05944, .03026, 60.69682, 2.71038, 2.35817, + 2.02369, 2.57057, 2.71136 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06028, .03074, 62.64938, 2.80623, 2.45546, + 2.12298, 2.66699, 2.80725, + .06111, .03123, 64.57862, 2.90212, 2.55286, + 2.22252, 2.76344, 2.90319, + .06191, .03168, 66.38567, 2.99373, 2.64566, + 2.31692, 2.85558, 2.99485, + .06266, .03212, 68.13473, 3.08276, 2.73618, + 2.40954, 2.94511, 3.08392, + .06343, .03256, 69.84355, 3.17192, 2.82639, + 2.50120, 3.03477, 3.17313 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03511, .01583, 1.10161, .33189, .00000, + .00000, .17862, .33184, + .03609, .01640, 1.84259, .35248, .00000, + .00000, .20028, .35247, + .03756, .01725, 3.09906, .38766, .00040, + .00000, .23699, .38770, + .03864, .01788, 4.08063, .41686, .02918, + .00000, .26728, .41696, + .03977, .01853, 5.18130, .45067, .07368, + .00000, .30219, .45081, + .04075, .01911, 6.19327, .48270, .10703, + .00000, .33515, .48288, + .04170, .01966, 7.21640, .51555, .14175, + .00000, .36887, .51578, + .04270, .02024, 8.39022, .55278, .18279, + .00000, .40701, .55306 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04358, .02076, 9.42985, .58715, .21818, + .00000, .44215, .58747, + .04443, .02125, 10.49632, .62207, .25551, + .00000, .47781, .62243, + .04511, .02165, 11.35586, .65090, .28539, + .00000, .50722, .65130, + .04655, .02249, 13.24729, .71596, .35354, + .00021, .57347, .71643, + .04779, .02322, 14.90317, .77563, .41601, + .05271, .63413, .77616, + .04919, .02404, 16.76731, .84590, .48938, + .14483, .70548, .84650, + .05064, .02489, 18.79683, .92325, .56988, + .22976, .78393, .92393, + .05197, .02567, 20.66291, .99607, .64456, + .30586, .85771, .99682 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05331, .02645, 22.60116, 1.07271, .72348, + .38835, .93531, 1.07353, + .05442, .02711, 24.25622, 1.13883, .79195, + .46090, 1.00221, 1.13972, + .05578, .02790, 26.27732, 1.22128, .87669, + .54883, 1.08558, 1.22224, + .05698, .02861, 28.07649, 1.29620, .95336, + .62783, 1.16129, 1.29723, + .05809, .02926, 29.76853, 1.36722, 1.02658, + .70454, 1.23304, 1.36831, + .05949, .03008, 31.90304, 1.45904, 1.12048, + .80128, 1.32574, 1.46021, + .06081, .03086, 33.91892, 1.54750, 1.21087, + .89439, 1.41503, 1.54875, + .06205, .03158, 35.83718, 1.63279, 1.29837, + .98519, 1.50108, 1.63411 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06330, .03231, 37.72853, 1.71905, 1.38630, + 1.07541, 1.58807, 1.72044, + .06452, .03303, 39.58887, 1.80523, 1.47432, + 1.16607, 1.67497, 1.80670, + .06567, .03370, 41.35348, 1.88834, 1.55922, + 1.25355, 1.75874, 1.88988, + .06676, .03434, 42.99184, 1.96721, 1.63952, + 1.33588, 1.83822, 1.96881, + .06786, .03499, 44.65360, 2.04811, 1.72214, + 1.42096, 1.91974, 2.04979, + .06894, .03562, 46.25261, 2.12784, 1.80322, + 1.50395, 2.00005, 2.12958, + .06997, .03622, 47.78556, 2.20509, 1.88200, + 1.58493, 2.07786, 2.20690, + .07095, .03679, 49.20809, 2.27829, 1.95645, + 1.66116, 2.15158, 2.28016 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07193, .03737, 50.63930, 2.35296, 2.03244, + 1.73901, 2.22676, 2.35489, + .07291, .03794, 52.04699, 2.42741, 2.10827, + 1.81681, 2.30172, 2.42940, + .07384, .03848, 53.35797, 2.49828, 2.18023, + 1.89031, 2.37306, 2.50033, + .07472, .03900, 54.62349, 2.56699, 2.25029, + 1.96228, 2.44222, 2.56910, + .07562, .03952, 55.85164, 2.63553, 2.31981, + 2.03319, 2.51121, 2.63770 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03993, .01828, 1.14442, .31028, .00000, + .00000, .16751, .31054, + .04106, .01895, 1.84862, .32999, .00000, + .00000, .18820, .33031, + .04274, .01994, 3.03681, .36338, .00038, + .00000, .22300, .36378, + .04397, .02067, 3.95475, .39085, .02737, + .00000, .25147, .39131, + .04526, .02143, 4.97502, .42244, .06895, + .00000, .28407, .42297, + .04638, .02210, 5.90573, .45215, .09987, + .00000, .31464, .45274, + .04745, .02273, 6.84025, .48247, .13191, + .00000, .34575, .48311, + .04860, .02342, 7.90560, .51668, .16962, + .00000, .38081, .51739 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04960, .02401, 8.84324, .54808, .20196, + .00000, .41292, .54884, + .05056, .02458, 9.80020, .57988, .23598, + .00000, .44539, .58070, + .05133, .02504, 10.56786, .60604, .26310, + .00000, .47207, .60689, + .05297, .02601, 12.24653, .66478, .32469, + .00020, .53192, .66573, + .05438, .02685, 13.70438, .71836, .38085, + .04747, .58642, .71939, + .05596, .02779, 15.33292, .78115, .44648, + .13019, .65020, .78227, + .05761, .02877, 17.09350, .84988, .51810, + .20598, .71995, .85110, + .05911, .02966, 18.70069, .91422, .58420, + .27354, .78519, .91552 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06062, .03056, 20.35981, .98163, .65373, + .34645, .85348, .98303, + .06188, .03131, 21.76896, 1.03956, .71383, + .41034, .91214, 1.04104, + .06341, .03222, 23.47976, 1.11148, .78788, + .48743, .98491, 1.11305, + .06477, .03302, 24.99380, 1.17655, .85458, + .55639, 1.05072, 1.17820, + .06602, .03376, 26.41142, 1.23803, .91809, + .62314, 1.11287, 1.23976, + .06760, .03470, 28.18935, 1.31717, .99919, + .70697, 1.19284, 1.31900, + .06908, .03558, 29.85886, 1.39309, 1.07693, + .78731, 1.26953, 1.39502, + .07048, .03641, 31.43998, 1.46604, 1.15193, + .86540, 1.34319, 1.46806 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07187, .03723, 32.99007, 1.53952, 1.22698, + .94267, 1.41735, 1.54162, + .07324, .03804, 34.50764, 1.61268, 1.30186, + 1.02006, 1.49118, 1.61487, + .07454, .03881, 35.94061, 1.68300, 1.37386, + 1.09450, 1.56212, 1.68528, + .07576, .03953, 37.26442, 1.74951, 1.44172, + 1.16431, 1.62920, 1.75186, + .07699, .04025, 38.60229, 1.81755, 1.51135, + 1.23627, 1.69782, 1.81998, + .07820, .04096, 39.88308, 1.88437, 1.57946, + 1.30622, 1.76519, 1.88689, + .07935, .04164, 41.10688, 1.94896, 1.64548, + 1.37431, 1.83030, 1.95155, + .08044, .04228, 42.23734, 2.00998, 1.70768, + 1.43822, 1.89181, 2.01264 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08154, .04293, 43.37069, 2.07207, 1.77100, + 1.50333, 1.95438, 2.07480, + .08263, .04357, 44.48148, 2.13382, 1.83406, + 1.56825, 2.01661, 2.13663, + .08366, .04418, 45.51118, 2.19244, 1.89371, + 1.62939, 2.07568, 2.19532, + .08465, .04476, 46.50328, 2.24918, 1.95170, + 1.68918, 2.13284, 2.25213, + .08565, .04534, 47.46075, 2.30560, 2.00906, + 1.74789, 2.18968, 2.30862 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04418, .02061, 1.19255, .29579, .00000, + .00000, .15984, .29605, + .04544, .02136, 1.87061, .31484, .00000, + .00000, .17979, .31517, + .04730, .02248, 3.00450, .34686, .00037, + .00000, .21311, .34730, + .04866, .02330, 3.87271, .37300, .02599, + .00000, .24016, .37351, + .05009, .02416, 4.83075, .40290, .06536, + .00000, .27099, .40349, + .05133, .02490, 5.69917, .43086, .09444, + .00000, .29974, .43153, + .05252, .02562, 6.56621, .45925, .12446, + .00000, .32887, .45999, + .05379, .02638, 7.54941, .49120, .15968, + .00000, .36159, .49201 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05489, .02704, 8.41028, .52037, .18974, + .00000, .39142, .52125, + .05596, .02768, 9.28517, .54984, .22128, + .00000, .42151, .55078, + .05681, .02819, 9.98430, .57399, .24635, + .00000, .44615, .57499, + .05862, .02928, 11.50508, .62805, .30308, + .00019, .50123, .62916, + .06017, .03021, 12.81686, .67714, .35458, + .04359, .55117, .67834, + .06191, .03125, 14.27268, .73442, .41452, + .11939, .60937, .73573, + .06373, .03234, 15.83749, .79684, .47965, + .18847, .67274, .79827, + .06538, .03333, 17.25729, .85501, .53948, + .24977, .73173, .85654 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06704, .03432, 18.71542, .91573, .60220, + .31570, .79327, .91737, + .06843, .03515, 19.94833, .96773, .65623, + .37329, .84595, .96946, + .07011, .03615, 21.43791, 1.03206, .72256, + .44253, .91107, 1.03390, + .07159, .03704, 22.74968, 1.09005, .78210, + .50424, .96975, 1.09199, + .07296, .03785, 23.97338, 1.14470, .83864, + .56384, 1.02502, 1.14673, + .07469, .03888, 25.50032, 1.21479, .91058, + .63839, 1.09588, 1.21694, + .07631, .03985, 26.92715, 1.28180, .97931, + .70961, 1.16361, 1.28406, + .07784, .04076, 28.27306, 1.34600, 1.04542, + .77865, 1.22846, 1.34836 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07936, .04166, 29.58644, 1.41043, 1.11135, + .84671, 1.29354, 1.41290, + .08085, .04255, 30.86698, 1.47442, 1.17696, + .91471, 1.35815, 1.47698, + .08227, .04339, 32.07132, 1.53574, 1.23987, + .97993, 1.42006, 1.53840, + .08360, .04417, 33.17906, 1.59358, 1.29899, + 1.04092, 1.47843, 1.59633, + .08494, .04497, 34.29516, 1.65262, 1.35953, + 1.10366, 1.53801, 1.65546, + .08625, .04574, 35.35898, 1.71043, 1.41857, + 1.16447, 1.59634, 1.71337, + .08750, .04648, 36.37265, 1.76620, 1.47569, + 1.22356, 1.65260, 1.76922, + .08869, .04718, 37.30511, 1.81875, 1.52937, + 1.27887, 1.70561, 1.82186 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08988, .04788, 38.23703, 1.87212, 1.58391, + 1.33511, 1.75943, 1.87531, + .09106, .04858, 39.14768, 1.92510, 1.63811, + 1.39107, 1.81286, 1.92837, + .09218, .04924, 39.98849, 1.97526, 1.68926, + 1.44365, 1.86344, 1.97861, + .09326, .04987, 40.79731, 2.02375, 1.73892, + 1.49502, 1.91233, 2.02717, + .09433, .05050, 41.57398, 2.07183, 1.78791, + 1.54531, 1.96081, 2.07534 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06077, .03029, 1.37819, .25669, .00000, + .00000, .13935, .25749, + .06250, .03137, 1.97207, .27369, .00000, + .00000, .15707, .27461, + .06509, .03297, 2.93758, .30157, .00034, + .00000, .18600, .30267, + .06696, .03414, 3.65611, .32378, .02197, + .00000, .20895, .32501, + .06893, .03535, 4.43040, .34874, .05494, + .00000, .23466, .35011, + .07062, .03640, 5.11799, .37164, .07877, + .00000, .25820, .37313, + .07225, .03741, 5.79178, .39456, .10306, + .00000, .28172, .39617, + .07399, .03848, 6.54247, .42005, .13123, + .00000, .30784, .42178 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07549, .03940, 7.18879, .44298, .15495, + .00000, .33130, .44482, + .07694, .04030, 7.83633, .46592, .17960, + .00000, .35475, .46786, + .07809, .04100, 8.34723, .48453, .19899, + .00000, .37376, .48655, + .08054, .04250, 9.43895, .52567, .24237, + .00016, .41573, .52787, + .08264, .04379, 10.35913, .56248, .28120, + .03307, .45324, .56483, + .08498, .04521, 11.35772, .60482, .32576, + .09013, .49635, .60735, + .08742, .04670, 12.41015, .65028, .37348, + .14123, .54260, .65299, + .08962, .04803, 13.34556, .69200, .41667, + .18594, .58501, .69487 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09184, .04937, 14.28948, .73501, .46140, + .23347, .62870, .73804, + .09368, .05049, 15.07551, .77144, .49952, + .27456, .66570, .77461, + .09590, .05183, 16.00917, .81595, .54577, + .32335, .71088, .81930, + .09786, .05300, 16.81729, .85560, .58678, + .36634, .75111, .85909, + .09966, .05408, 17.56173, .89263, .62540, + .40751, .78866, .89625, + .10193, .05544, 18.47445, .93954, .67394, + .45839, .83623, .94334, + .10406, .05671, 19.31280, .98387, .71978, + .50645, .88117, .98783, + .10605, .05790, 20.09261, 1.02592, .76346, + .55262, .92379, 1.03003 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10803, .05908, 20.84023, 1.06765, .80653, + .59760, .96607, 1.07191, + .10997, .06023, 21.55887, 1.10868, .84898, + .64215, 1.00764, 1.11310, + .11179, .06131, 22.22542, 1.14766, .88933, + .68450, 1.04712, 1.15221, + .11351, .06232, 22.82876, 1.18405, .92688, + .72372, 1.08398, 1.18874, + .11523, .06334, 23.43008, 1.22092, .96506, + .76379, 1.12133, 1.22574, + .11692, .06433, 23.99361, 1.25668, 1.00193, + .80224, 1.15753, 1.26163, + .11852, .06527, 24.52519, 1.29094, 1.03736, + .83938, 1.19222, 1.29601, + .12003, .06616, 25.00662, 1.32294, 1.07038, + .87384, 1.22462, 1.32813 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12155, .06705, 25.48233, 1.35521, 1.10370, + .90864, 1.25729, 1.36051, + .12305, .06792, 25.94188, 1.38702, 1.13658, + .94306, 1.28950, 1.39244, + .12447, .06875, 26.35930, 1.41688, 1.16736, + .97512, 1.31973, 1.42242, + .12583, .06954, 26.75877, 1.44562, 1.19712, + 1.00632, 1.34883, 1.45127, + .12719, .07033, 27.13444, 1.47386, 1.22620, + 1.03658, 1.37742, 1.47961 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .08461, .04565, 1.65023, .22766, .00000, + .00000, .12393, .22946, + .08702, .04717, 2.15485, .24252, .00000, + .00000, .13939, .24452, + .09059, .04941, 2.94436, .26628, .00030, + .00000, .16403, .26857, + .09317, .05102, 3.51339, .28470, .01825, + .00000, .18307, .28721, + .09586, .05270, 4.11048, .30500, .04532, + .00000, .20401, .30773, + .09818, .05414, 4.62913, .32324, .06443, + .00000, .22281, .32617, + .10040, .05551, 5.12690, .34120, .08363, + .00000, .24128, .34431, + .10276, .05696, 5.67045, .36091, .10561, + .00000, .26154, .36422 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10479, .05821, 6.12979, .37834, .12381, + .00000, .27943, .38182, + .10675, .05941, 6.58246, .39559, .14254, + .00000, .29713, .39924, + .10829, .06036, 6.93444, .40942, .15710, + .00000, .31130, .41319, + .11157, .06236, 7.67076, .43957, .18925, + .00014, .34219, .44362, + .11438, .06406, 8.27411, .46609, .21756, + .02436, .36933, .47037, + .11749, .06594, 8.91092, .49610, .24954, + .06605, .40003, .50065, + .12071, .06787, 9.56653, .52777, .28322, + .10266, .43240, .53259, + .12360, .06961, 10.13493, .55632, .31318, + .13415, .46158, .56139 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12650, .07134, 10.69615, .58533, .34378, + .16720, .49120, .59064, + .12890, .07276, 11.15478, .60959, .36955, + .19545, .51598, .61511, + .13179, .07447, 11.68785, .63881, .40038, + .22852, .54582, .64457, + .13432, .07597, 12.13928, .66446, .42734, + .25727, .57201, .67044, + .13664, .07733, 12.54875, .68817, .45248, + .28456, .59621, .69434, + .13955, .07904, 13.03908, .71778, .48363, + .31781, .62643, .72420, + .14226, .08062, 13.47918, .74537, .51266, + .34881, .65459, .75202, + .14480, .08209, 13.88115, .77124, .54003, + .37829, .68100, .77811 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14730, .08354, 14.25682, .79655, .56664, + .40663, .70684, .80363, + .14974, .08495, 14.61107, .82117, .59260, + .43440, .73196, .82845, + .15204, .08627, 14.93344, .84429, .61701, + .46055, .75557, .85177, + .15418, .08750, 15.21814, .86562, .63946, + .48448, .77734, .87328, + .15633, .08873, 15.49767, .88704, .66211, + .50875, .79922, .89488, + .15842, .08991, 15.75271, .90756, .68371, + .53177, .82017, .91557, + .16040, .09104, 15.98995, .92705, .70433, + .55384, .84008, .93524, + .16226, .09209, 16.19935, .94506, .72333, + .57412, .85848, .95340 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16412, .09315, 16.40260, .96307, .74235, + .59444, .87688, .97157, + .16596, .09418, 16.59534, .98068, .76098, + .61438, .89487, .98932, + .16769, .09515, 16.76525, .99702, .77823, + .63277, .91157, 1.00581, + .16934, .09608, 16.92694, 1.01267, .79484, + .65060, .92758, 1.02161, + .17098, .09699, 17.07285, 1.02785, .81086, + .66768, .94310, 1.03692 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10348, .05852, 1.84257, .21423, .00000, + .00000, .11678, .21713, + .10640, .06034, 2.28806, .22773, .00000, + .00000, .13086, .23089, + .11070, .06301, 2.96814, .24897, .00028, + .00000, .15294, .25251, + .11379, .06492, 3.44825, .26516, .01614, + .00000, .16973, .26898, + .11702, .06691, 3.94344, .28277, .03992, + .00000, .18797, .28688, + .11979, .06860, 4.36764, .29839, .05645, + .00000, .20414, .30276, + .12243, .07020, 4.76931, .31361, .07290, + .00000, .21985, .31822, + .12523, .07190, 5.20221, .33016, .09157, + .00000, .23695, .33503 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12763, .07335, 5.56365, .34464, .10687, + .00000, .25189, .34973, + .12995, .07475, 5.91598, .35888, .12252, + .00000, .26656, .36417, + .13177, .07584, 6.18734, .37019, .13459, + .00000, .27822, .37565, + .13563, .07814, 6.74661, .39465, .16102, + .00012, .30341, .40045, + .13891, .08010, 7.19556, .41591, .18403, + .02000, .32530, .42202, + .14254, .08224, 7.65967, .43973, .20977, + .05402, .34980, .44616, + .14628, .08444, 8.13003, .46456, .23658, + .08353, .37534, .47133, + .14963, .08640, 8.53020, .48669, .26016, + .10864, .39810, .49376 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15298, .08834, 8.91928, .50894, .28403, + .13477, .42099, .51631, + .15574, .08994, 9.23300, .52740, .30397, + .15694, .43997, .53501, + .15905, .09185, 9.59177, .54942, .32760, + .18266, .46261, .55733, + .16194, .09351, 9.89010, .56855, .34808, + .20483, .48229, .57672, + .16458, .09502, 10.15756, .58611, .36705, + .22574, .50036, .59452, + .16789, .09689, 10.47187, .60783, .39034, + .25098, .52270, .61653, + .17096, .09863, 10.74875, .62786, .41185, + .27433, .54332, .63683, + .17382, .10024, 10.99798, .64650, .43198, + .29638, .56251, .65573 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17664, .10181, 11.22562, .66455, .45138, + .31739, .58111, .67403, + .17937, .10334, 11.43673, .68197, .47016, + .33784, .59905, .69168, + .18193, .10476, 11.62556, .69820, .48770, + .35696, .61578, .70814, + .18431, .10608, 11.78840, .71304, .50370, + .37434, .63109, .72319, + .18670, .10739, 11.94616, .72786, .51975, + .39187, .64638, .73822, + .18901, .10866, 12.08597, .74192, .53493, + .40837, .66088, .75247, + .19120, .10985, 12.21430, .75520, .54935, + .42411, .67460, .76594, + .19324, .11096, 12.32433, .76736, .56254, + .43848, .68717, .77829 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19529, .11207, 12.42908, .77946, .57567, + .45280, .69967, .79055, + .19729, .11316, 12.52641, .79120, .58845, + .46679, .71182, .80247, + .19918, .11417, 12.60909, .80201, .60021, + .47959, .72301, .81345, + .20098, .11514, 12.68750, .81234, .61149, + .49198, .73370, .82393, + .20276, .11609, 12.75421, .82223, .62228, + .50374, .74395, .83398 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11994, .07000, 1.98764, .20607, .00000, + .00000, .11243, .21014, + .12326, .07204, 2.38739, .21852, .00000, + .00000, .12546, .22290, + .12816, .07502, 2.98630, .23785, .00026, + .00000, .14565, .24270, + .13166, .07715, 3.40225, .25240, .01466, + .00000, .16082, .25759, + .13531, .07935, 3.82555, .26809, .03612, + .00000, .17714, .27362, + .13843, .08122, 4.18436, .28187, .05087, + .00000, .19147, .28769, + .14140, .08299, 4.52064, .29517, .06545, + .00000, .20529, .30128, + .14454, .08485, 4.87943, .30956, .08189, + .00000, .22023, .31597 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14724, .08644, 5.17614, .32203, .09526, + .00000, .23318, .32870, + .14983, .08797, 5.46293, .33423, .10886, + .00000, .24583, .34114, + .15186, .08916, 5.68212, .34387, .11929, + .00000, .25582, .35097, + .15616, .09166, 6.12838, .36455, .14198, + .00011, .27727, .37206, + .15980, .09377, 6.48037, .38238, .16158, + .01718, .29574, .39024, + .16381, .09609, 6.83772, .40218, .18333, + .04628, .31626, .41041, + .16794, .09845, 7.19511, .42264, .20579, + .07128, .33746, .43126, + .17162, .10054, 7.49433, .44070, .22538, + .09238, .35617, .44966 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17529, .10261, 7.78133, .45872, .24506, + .11421, .37485, .46801, + .17831, .10431, 8.01003, .47357, .26141, + .13261, .39024, .48314, + .18192, .10632, 8.26767, .49114, .28064, + .15382, .40847, .50104, + .18506, .10807, 8.47843, .50628, .29719, + .17197, .42419, .51647, + .18792, .10965, 8.66543, .52010, .31244, + .18902, .43854, .53056, + .19149, .11161, 8.88103, .53705, .33103, + .20947, .45615, .54783, + .19480, .11342, 9.06741, .55257, .34808, + .22825, .47228, .56365, + .19787, .11509, 9.23280, .56691, .36395, + .24589, .48720, .57827 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20088, .11671, 9.38021, .58068, .37912, + .26259, .50155, .59231, + .20380, .11828, 9.51445, .59388, .39373, + .27877, .51530, .60577, + .20652, .11974, 9.63226, .60610, .40730, + .29382, .52805, .61823, + .20905, .12109, 9.73099, .61719, .41960, + .30741, .53962, .62955, + .21158, .12242, 9.82518, .62821, .43188, + .32107, .55114, .64079, + .21402, .12371, 9.90558, .63857, .44342, + .33384, .56197, .65136, + .21632, .12492, 9.97818, .64831, .45433, + .34599, .57217, .66131, + .21847, .12604, 10.03789, .65717, .46425, + .35701, .58146, .67035 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22061, .12715, 10.09317, .66593, .47409, + .36796, .59065, .67929, + .22271, .12824, 10.14295, .67439, .48362, + .37861, .59953, .68793, + .22468, .12925, 10.18257, .68211, .49233, + .38830, .60765, .69582, + .22655, .13021, 10.22004, .68947, .50067, + .39766, .61540, .70335, + .22840, .13115, 10.24835, .69645, .50859, + .40649, .62276, .71048 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13488, .08049, 2.09845, .20026, .00000, + .00000, .10937, .20555, + .13856, .08270, 2.46010, .21182, .00000, + .00000, .12153, .21747, + .14395, .08592, 2.99390, .22958, .00025, + .00000, .14019, .23577, + .14780, .08821, 3.35959, .24283, .01349, + .00000, .15407, .24940, + .15179, .09057, 3.72755, .25699, .03317, + .00000, .16890, .26396, + .15521, .09257, 4.03681, .26934, .04657, + .00000, .18182, .27664, + .15844, .09445, 4.32414, .28118, .05973, + .00000, .19420, .28880, + .16186, .09643, 4.62816, .29392, .07450, + .00000, .20752, .30187 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16479, .09812, 4.87751, .30488, .08643, + .00000, .21897, .31312, + .16760, .09973, 5.11680, .31555, .09852, + .00000, .23012, .32406, + .16980, .10099, 5.29848, .32394, .10775, + .00000, .23889, .33266, + .17444, .10363, 5.66441, .34185, .12772, + .00011, .25759, .35102, + .17837, .10584, 5.94842, .35717, .14485, + .01515, .27359, .36672, + .18267, .10826, 6.23178, .37407, .16375, + .04070, .29123, .38403, + .18709, .11072, 6.51178, .39140, .18313, + .06249, .30934, .40178, + .19102, .11288, 6.74262, .40656, .19990, + .08076, .32520, .41732 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19493, .11503, 6.96126, .42159, .21666, + .09956, .34093, .43272, + .19814, .11678, 7.13354, .43391, .23051, + .11533, .35382, .44533, + .20196, .11885, 7.32456, .44839, .24671, + .13342, .36898, .46016, + .20528, .12063, 7.47838, .46078, .26057, + .14881, .38198, .47286, + .20830, .12225, 7.61350, .47203, .27329, + .16322, .39379, .48439, + .21205, .12424, 7.76596, .48572, .28869, + .18039, .40818, .49843, + .21551, .12606, 7.89509, .49817, .30274, + .19608, .42128, .51119, + .21872, .12775, 8.00787, .50961, .31575, + .21077, .43333, .52293 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22186, .12938, 8.10539, .52052, .32812, + .22458, .44484, .53411, + .22489, .13095, 8.19226, .53090, .33997, + .23791, .45581, .54477, + .22772, .13241, 8.26664, .54047, .35092, + .25026, .46593, .55458, + .23033, .13374, 8.32652, .54908, .36079, + .26135, .47505, .56342, + .23294, .13507, 8.38248, .55759, .37061, + .27246, .48408, .57216, + .23545, .13634, 8.42757, .56554, .37978, + .28281, .49253, .58033, + .23782, .13753, 8.46729, .57298, .38843, + .29261, .50046, .58798, + .24001, .13863, 8.49754, .57970, .39625, + .30147, .50762, .59489 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24220, .13972, 8.52404, .58630, .40396, + .31023, .51467, .60167, + .24434, .14078, 8.54633, .59264, .41142, + .31873, .52146, .60820, + .24634, .14176, 8.56129, .59838, .41818, + .32643, .52762, .61411, + .24824, .14270, 8.57542, .60384, .42466, + .33385, .53349, .61973, + .25011, .14360, 8.58218, .60897, .43076, + .34081, .53901, .62501 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .16191, .09940, 2.24869, .19197, .00000, + .00000, .10511, .19981, + .16614, .10184, 2.54873, .20204, .00000, + .00000, .11583, .21032, + .17232, .10538, 2.98135, .21728, .00023, + .00000, .13207, .22621, + .17672, .10787, 3.27104, .22847, .01172, + .00000, .14396, .23785, + .18126, .11042, 3.55702, .24029, .02868, + .00000, .15652, .25013, + .18511, .11258, 3.79391, .25046, .04007, + .00000, .16732, .26069, + .18875, .11460, 4.01083, .26012, .05116, + .00000, .17758, .27072, + .19260, .11672, 4.23723, .27040, .06350, + .00000, .18850, .28139 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19586, .11851, 4.42027, .27917, .07337, + .00000, .19781, .29048, + .19900, .12022, 4.59385, .28763, .08330, + .00000, .20681, .29926, + .20145, .12155, 4.72408, .29423, .09083, + .00000, .21382, .30609, + .20659, .12432, 4.98109, .30818, .10698, + .00010, .22865, .32055, + .21091, .12663, 5.17429, .31997, .12070, + .01231, .24119, .33277, + .21563, .12913, 5.36038, .33283, .13567, + .03294, .25487, .34608, + .22046, .13166, 5.54018, .34584, .15086, + .05034, .26875, .35956, + .22471, .13387, 5.68381, .35706, .16385, + .06477, .28074, .37118 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .22893, .13604, 5.81632, .36807, .17672, + .07950, .29251, .38259, + .23238, .13781, 5.91829, .37699, .18727, + .09177, .30207, .39184, + .23646, .13988, 6.02747, .38735, .19948, + .10571, .31320, .40257, + .23999, .14165, 6.11172, .39611, .20982, + .11748, .32262, .41165, + .24318, .14325, 6.18395, .40400, .21926, + .12842, .33112, .41984, + .24714, .14520, 6.26128, .41347, .23056, + .14135, .34136, .42967, + .25077, .14698, 6.32305, .42196, .24077, + .15307, .35057, .43848, + .25411, .14861, 6.37458, .42969, .25016, + .16396, .35896, .44650 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .25736, .15018, 6.41482, .43695, .25899, + .17411, .36688, .45405, + .26049, .15168, 6.44785, .44378, .26738, + .18384, .37436, .46115, + .26339, .15306, 6.47340, .45000, .27507, + .19279, .38118, .46762, + .26606, .15431, 6.49018, .45551, .28194, + .20076, .38725, .47336, + .26871, .15555, 6.50406, .46092, .28873, + .20871, .39322, .47899, + .27124, .15673, 6.51073, .46588, .29501, + .21605, .39874, .48417, + .27363, .15782, 6.51493, .47050, .30090, + .22297, .40387, .48898, + .27583, .15883, 6.51396, .47459, .30616, + .22917, .40845, .49326 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .27802, .15982, 6.51033, .47858, .31133, + .23527, .41293, .49742, + .28015, .16077, 6.50415, .48236, .31628, + .24116, .41720, .50137, + .28213, .16166, 6.49397, .48572, .32073, + .24645, .42101, .50489, + .28400, .16249, 6.48439, .48891, .32498, + .25154, .42463, .50822, + .28583, .16329, 6.46969, .49182, .32893, + .25625, .42797, .51127 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19807, .12414, 2.35770, .18306, .00000, + .00000, .10072, .19489, + .20290, .12675, 2.58841, .19134, .00000, + .00000, .10978, .20368, + .20991, .13049, 2.91223, .20367, .00020, + .00000, .12325, .21676, + .21486, .13310, 3.12268, .21257, .00981, + .00000, .13296, .22617, + .21995, .13576, 3.32527, .22183, .02388, + .00000, .14308, .23596, + .22425, .13799, 3.49017, .22969, .03319, + .00000, .15166, .24425, + .22829, .14007, 3.63842, .23706, .04216, + .00000, .15972, .25203, + .23254, .14224, 3.79054, .24482, .05206, + .00000, .16822, .26022 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23612, .14406, 3.91094, .25135, .05988, + .00000, .17538, .26710, + .23955, .14578, 4.02343, .25760, .06770, + .00000, .18223, .27368, + .24222, .14711, 4.10643, .26242, .07358, + .00000, .18753, .27877, + .24779, .14987, 4.26515, .27250, .08608, + .00008, .19861, .28939, + .25245, .15214, 4.37823, .28089, .09656, + .00959, .20786, .29823, + .25749, .15459, 4.48042, .28992, .10787, + .02558, .21783, .30772, + .26259, .15704, 4.57549, .29890, .11921, + .03889, .22778, .31718, + .26708, .15915, 4.64671, .30650, .12878, + .04979, .23624, .32518 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27148, .16120, 4.70892, .31383, .13816, + .06082, .24444, .33291, + .27507, .16286, 4.75439, .31969, .14577, + .06994, .25102, .33910, + .27927, .16478, 4.79887, .32640, .15449, + .08019, .25857, .34617, + .28287, .16641, 4.82947, .33196, .16179, + .08876, .26488, .35204, + .28612, .16787, 4.85393, .33692, .16840, + .09668, .27052, .35727, + .29011, .16963, 4.87484, .34274, .17623, + .10594, .27720, .36342, + .29374, .17121, 4.88694, .34787, .18321, + .11425, .28311, .36884, + .29707, .17264, 4.89405, .35246, .18957, + .12191, .28843, .37370 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30028, .17400, 4.89382, .35665, .19547, + .12898, .29335, .37815, + .30333, .17528, 4.88946, .36053, .20102, + .13570, .29794, .38227, + .30615, .17645, 4.88167, .36400, .20607, + .14184, .30207, .38596, + .30872, .17750, 4.86969, .36700, .21051, + .14725, .30568, .38914, + .31126, .17853, 4.85593, .36990, .21488, + .15262, .30919, .39222, + .31366, .17948, 4.83805, .37247, .21886, + .15751, .31235, .39497, + .31592, .18037, 4.81991, .37482, .22256, + .16211, .31527, .39749, + .31798, .18117, 4.79967, .37684, .22583, + .16619, .31782, .39965 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32002, .18195, 4.77773, .37877, .22901, + .17018, .32027, .40171, + .32198, .18269, 4.75469, .38055, .23204, + .17400, .32257, .40363, + .32379, .18336, 4.73022, .38206, .23471, + .17739, .32458, .40526, + .32551, .18400, 4.70728, .38350, .23726, + .18065, .32647, .40680, + .32715, .18459, 4.68104, .38471, .23957, + .18364, .32815, .40812 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25158, .15884, 2.36595, .17123, .00000, + .00000, .09532, .18986, + .25698, .16143, 2.51748, .17725, .00000, + .00000, .10227, .19643, + .26476, .16511, 2.72244, .18603, .00017, + .00000, .11242, .20598, + .27019, .16764, 2.84946, .19223, .00761, + .00000, .11959, .21271, + .27573, .17018, 2.96679, .19857, .01844, + .00000, .12694, .21958, + .28037, .17228, 3.05961, .20384, .02548, + .00000, .13308, .22529, + .28470, .17422, 3.14055, .20871, .03218, + .00000, .13876, .23055, + .28921, .17623, 3.22143, .21377, .03950, + .00000, .14467, .23602 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29300, .17789, 3.28301, .21794, .04521, + .00000, .14958, .24052, + .29659, .17945, 3.33899, .22188, .05087, + .00000, .15423, .24478, + .29936, .18064, 3.37878, .22488, .05508, + .00000, .15778, .24802, + .30511, .18307, 3.44981, .23105, .06395, + .00007, .16511, .25468, + .30986, .18505, 3.49364, .23608, .07129, + .00690, .17112, .26009, + .31494, .18713, 3.52536, .24136, .07909, + .01830, .17747, .26578, + .32003, .18917, 3.55092, .24648, .08680, + .02765, .18369, .27130, + .32442, .19090, 3.56434, .25067, .09320, + .03520, .18886, .27582 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32871, .19254, 3.57177, .25461, .09939, + .04277, .19377, .28007, + .33216, .19383, 3.57418, .25769, .10436, + .04896, .19766, .28340, + .33614, .19531, 3.57079, .26110, .10996, + .05584, .20201, .28708, + .33951, .19653, 3.56252, .26382, .11459, + .06152, .20556, .29002, + .34253, .19760, 3.55296, .26620, .11874, + .06674, .20868, .29258, + .34617, .19885, 3.53506, .26887, .12357, + .07275, .21228, .29547, + .34943, .19994, 3.51417, .27110, .12781, + .07809, .21538, .29789, + .35240, .20091, 3.49252, .27303, .13164, + .08297, .21811, .29999 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35520, .20179, 3.46688, .27468, .13512, + .08741, .22054, .30178, + .35784, .20260, 3.43981, .27614, .13836, + .09159, .22275, .30337, + .36024, .20331, 3.41247, .27736, .14125, + .09536, .22469, .30471, + .36238, .20392, 3.38437, .27833, .14376, + .09865, .22631, .30576, + .36448, .20451, 3.35556, .27922, .14619, + .10189, .22785, .30674, + .36643, .20502, 3.32511, .27991, .14836, + .10480, .22917, .30750, + .36824, .20548, 3.29590, .28050, .15037, + .10752, .23035, .30815, + .36985, .20587, 3.26680, .28092, .15210, + .10990, .23132, .30862 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37143, .20624, 3.23691, .28126, .15375, + .11220, .23222, .30901, + .37293, .20658, 3.20695, .28153, .15531, + .11439, .23303, .30931, + .37429, .20685, 3.17726, .28166, .15665, + .11631, .23367, .30947, + .37557, .20711, 3.14954, .28178, .15792, + .11814, .23427, .30962, + .37676, .20732, 3.12003, .28175, .15903, + .11979, .23472, .30961 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29968, .18771, 2.26408, .16048, .00000, + .00000, .09070, .18572, + .30529, .19007, 2.36389, .16481, .00000, + .00000, .09608, .19055, + .31331, .19337, 2.49412, .17103, .00015, + .00000, .10384, .19745, + .31884, .19560, 2.57046, .17535, .00610, + .00000, .10924, .20222, + .32443, .19783, 2.63748, .17970, .01471, + .00000, .11471, .20702, + .32908, .19964, 2.68871, .18326, .02025, + .00000, .11922, .21094, + .33337, .20128, 2.73159, .18650, .02548, + .00000, .12334, .21449, + .33782, .20296, 2.77303, .18981, .03114, + .00000, .12759, .21813 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34152, .20432, 2.80259, .19249, .03553, + .00000, .13107, .22107, + .34502, .20558, 2.82846, .19500, .03985, + .00000, .13434, .22381, + .34768, .20654, 2.84571, .19688, .04304, + .00000, .13682, .22587, + .35316, .20845, 2.87193, .20068, .04972, + .00006, .14186, .23001, + .35764, .20996, 2.88157, .20371, .05518, + .00525, .14594, .23331, + .36238, .21152, 2.87986, .20680, .06094, + .01388, .15018, .23666, + .36706, .21299, 2.87333, .20971, .06655, + .02089, .15425, .23981, + .37103, .21419, 2.86115, .21199, .07116, + .02649, .15756, .24226 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37484, .21529, 2.84503, .21404, .07558, + .03206, .16064, .24449, + .37788, .21613, 2.82942, .21560, .07909, + .03659, .16302, .24618, + .38133, .21705, 2.80659, .21723, .08302, + .04157, .16564, .24792, + .38421, .21776, 2.78334, .21844, .08621, + .04566, .16770, .24922, + .38676, .21837, 2.76106, .21946, .08906, + .04938, .16949, .25031, + .38976, .21903, 2.72935, .22049, .09233, + .05365, .17148, .25141, + .39239, .21956, 2.69733, .22126, .09517, + .05739, .17313, .25221, + .39475, .22001, 2.66643, .22186, .09770, + .06078, .17455, .25283 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39692, .22035, 2.63337, .22226, .09996, + .06384, .17574, .25323, + .39892, .22064, 2.60013, .22253, .10204, + .06670, .17677, .25349, + .40071, .22086, 2.56795, .22268, .10389, + .06926, .17763, .25363, + .40226, .22100, 2.53648, .22268, .10545, + .07147, .17829, .25360, + .40376, .22110, 2.50485, .22263, .10696, + .07363, .17888, .25351, + .40510, .22115, 2.47265, .22244, .10827, + .07555, .17933, .25328, + .40632, .22117, 2.44218, .22222, .10947, + .07734, .17970, .25302, + .40737, .22115, 2.41267, .22192, .11049, + .07888, .17994, .25266 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40837, .22109, 2.38283, .22156, .11145, + .08036, .18013, .25224, + .40930, .22102, 2.35334, .22116, .11233, + .08175, .18026, .25177, + .41009, .22090, 2.32473, .22069, .11307, + .08296, .18029, .25123, + .41084, .22079, 2.29808, .22025, .11377, + .08412, .18032, .25072, + .41147, .22062, 2.27038, .21970, .11435, + .08513, .18024, .25009 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38456, .23304, 1.94393, .13999, .00000, + .00000, .08207, .17667, + .38983, .23461, 1.98584, .14207, .00000, + .00000, .08531, .17896, + .39719, .23669, 2.03554, .14499, .00012, + .00000, .08988, .18213, + .40216, .23802, 2.05948, .14694, .00414, + .00000, .09299, .18422, + .40709, .23927, 2.07615, .14885, .00994, + .00000, .09608, .18625, + .41109, .24023, 2.08681, .15035, .01362, + .00000, .09857, .18781, + .41471, .24104, 2.09340, .15164, .01706, + .00000, .10080, .18915, + .41841, .24183, 2.09803, .15293, .02075, + .00000, .10306, .19046 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42140, .24241, 2.09846, .15390, .02357, + .00000, .10486, .19144, + .42419, .24292, 2.09741, .15479, .02634, + .00000, .10653, .19231, + .42627, .24327, 2.09483, .15542, .02836, + .00000, .10776, .19292, + .43045, .24390, 2.08323, .15661, .03253, + .00005, .11022, .19404, + .43373, .24430, 2.06573, .15748, .03591, + .00335, .11213, .19482, + .43708, .24460, 2.03919, .15826, .03941, + .00881, .11405, .19548, + .44025, .24476, 2.00992, .15887, .04278, + .01319, .11581, .19592, + .44278, .24478, 1.98062, .15919, .04549, + .01663, .11713, .19606 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44510, .24469, 1.94971, .15937, .04805, + .02002, .11830, .19604, + .44687, .24454, 1.92343, .15943, .05005, + .02275, .11916, .19593, + .44876, .24425, 1.89013, .15934, .05226, + .02572, .12002, .19560, + .45021, .24391, 1.85958, .15913, .05402, + .02812, .12062, .19516, + .45143, .24356, 1.83156, .15888, .05557, + .03029, .12110, .19470, + .45273, .24300, 1.79486, .15841, .05731, + .03274, .12153, .19396, + .45373, .24239, 1.75990, .15787, .05879, + .03486, .12180, .19312, + .45455, .24176, 1.72729, .15730, .06009, + .03676, .12199, .19227 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45514, .24106, 1.69406, .15661, .06121, + .03844, .12202, .19130, + .45560, .24032, 1.66165, .15588, .06222, + .04000, .12198, .19029, + .45592, .23958, 1.63111, .15512, .06309, + .04137, .12188, .18927, + .45607, .23883, 1.60211, .15435, .06380, + .04254, .12169, .18821, + .45615, .23806, 1.57338, .15355, .06447, + .04367, .12147, .18713, + .45608, .23724, 1.54493, .15269, .06503, + .04465, .12117, .18599, + .45597, .23644, 1.51833, .15186, .06554, + .04555, .12086, .18490, + .45576, .23564, 1.49313, .15102, .06593, + .04632, .12051, .18381 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45549, .23481, 1.46798, .15015, .06629, + .04704, .12012, .18269, + .45515, .23397, 1.44342, .14927, .06661, + .04772, .11971, .18155, + .45473, .23314, 1.41999, .14839, .06685, + .04828, .11927, .18041, + .45434, .23236, 1.39826, .14757, .06709, + .04882, .11886, .17934, + .45381, .23151, 1.37610, .14668, .06724, + .04928, .11837, .17821 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45726, .26601, 1.61094, .12083, .00000, + .00000, .07375, .16563, + .46147, .26655, 1.62718, .12163, .00000, + .00000, .07566, .16623, + .46720, .26712, 1.64273, .12269, .00009, + .00000, .07829, .16696, + .47093, .26735, 1.64570, .12335, .00298, + .00000, .08005, .16735, + .47450, .26745, 1.64319, .12394, .00713, + .00000, .08176, .16764, + .47730, .26742, 1.63880, .12435, .00973, + .00000, .08311, .16776, + .47973, .26729, 1.63240, .12465, .01216, + .00000, .08428, .16777, + .48215, .26708, 1.62424, .12492, .01474, + .00000, .08544, .16771 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48399, .26680, 1.61496, .12505, .01669, + .00000, .08633, .16754, + .48566, .26648, 1.60518, .12514, .01860, + .00000, .08714, .16734, + .48684, .26617, 1.59640, .12516, .01999, + .00000, .08772, .16712, + .48908, .26541, 1.57385, .12511, .02283, + .00004, .08883, .16655, + .49067, .26463, 1.54966, .12497, .02510, + .00231, .08964, .16593, + .49210, .26366, 1.51836, .12470, .02743, + .00606, .09039, .16512, + .49327, .26251, 1.48534, .12429, .02965, + .00903, .09101, .16414, + .49396, .26132, 1.45419, .12377, .03141, + .01135, .09138, .16309 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49441, .26005, 1.42236, .12316, .03304, + .01361, .09164, .16193, + .49462, .25894, 1.39592, .12260, .03432, + .01541, .09179, .16091, + .49460, .25752, 1.36337, .12183, .03569, + .01736, .09183, .15957, + .49437, .25617, 1.33429, .12107, .03677, + .01891, .09177, .15831, + .49406, .25491, 1.30799, .12034, .03771, + .02031, .09168, .15712, + .49340, .25323, 1.27428, .11933, .03874, + .02187, .09144, .15553, + .49256, .25158, 1.24273, .11832, .03960, + .02320, .09113, .15395, + .49167, .25002, 1.21367, .11735, .04034, + .02439, .09081, .15245 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49058, .24836, 1.18455, .11631, .04096, + .02542, .09038, .15089, + .48938, .24672, 1.15648, .11526, .04150, + .02636, .08992, .14934, + .48814, .24515, 1.13031, .11425, .04195, + .02719, .08945, .14784, + .48682, .24362, 1.10576, .11326, .04231, + .02787, .08896, .14639, + .48545, .24208, 1.08161, .11226, .04264, + .02853, .08845, .14493, + .48396, .24051, 1.05798, .11123, .04289, + .02910, .08788, .14346, + .48251, .23902, 1.03600, .11024, .04310, + .02961, .08734, .14207, + .48104, .23758, 1.01536, .10929, .04326, + .03003, .08679, .14072 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47949, .23612, .99490, .10833, .04339, + .03043, .08622, .13936, + .47792, .23467, .97505, .10738, .04350, + .03079, .08565, .13801, + .47632, .23325, .95627, .10644, .04356, + .03108, .08508, .13670, + .47483, .23192, .93890, .10556, .04361, + .03136, .08454, .13548, + .47319, .23053, .92136, .10465, .04362, + .03159, .08396, .13421 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51910, .28953, 1.32577, .10355, .00000, + .00000, .06569, .15272, + .52180, .28896, 1.33125, .10362, .00000, + .00000, .06676, .15218, + .52524, .28793, 1.33310, .10366, .00008, + .00000, .06819, .15131, + .52729, .28702, 1.32828, .10362, .00224, + .00000, .06911, .15059, + .52910, .28595, 1.31912, .10351, .00534, + .00000, .06998, .14978, + .53036, .28490, 1.30966, .10335, .00728, + .00000, .07065, .14899, + .53130, .28381, 1.29906, .10313, .00907, + .00000, .07119, .14816, + .53212, .28262, 1.28692, .10286, .01097, + .00000, .07170, .14725 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53257, .28149, 1.27484, .10258, .01239, + .00000, .07207, .14638, + .53289, .28036, 1.26266, .10227, .01378, + .00000, .07237, .14553, + .53302, .27941, 1.25230, .10199, .01478, + .00000, .07257, .14483, + .53298, .27732, 1.22752, .10134, .01682, + .00003, .07290, .14326, + .53263, .27544, 1.20289, .10072, .01843, + .00168, .07309, .14185, + .53193, .27324, 1.17250, .09996, .02008, + .00439, .07321, .14022, + .53088, .27084, 1.14086, .09909, .02162, + .00652, .07321, .13845, + .52954, .26858, 1.11158, .09820, .02283, + .00816, .07308, .13674 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52797, .26624, 1.08207, .09726, .02394, + .00975, .07287, .13498, + .52652, .26427, 1.05779, .09646, .02479, + .01102, .07265, .13350, + .52452, .26183, 1.02826, .09542, .02570, + .01237, .07229, .13165, + .52254, .25960, 1.00217, .09445, .02640, + .01343, .07191, .12997, + .52066, .25756, .97873, .09356, .02700, + .01439, .07154, .12844, + .51801, .25489, .94903, .09237, .02764, + .01544, .07099, .12645, + .51535, .25235, .92148, .09122, .02816, + .01632, .07042, .12456, + .51277, .24997, .89628, .09014, .02861, + .01711, .06985, .12280 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51000, .24753, .87128, .08902, .02896, + .01778, .06924, .12100, + .50719, .24514, .84734, .08792, .02926, + .01839, .06862, .11924, + .50446, .24287, .82515, .08686, .02950, + .01891, .06800, .11757, + .50174, .24071, .80450, .08585, .02967, + .01934, .06739, .11599, + .49899, .23856, .78428, .08484, .02983, + .01975, .06678, .11441, + .49617, .23639, .76463, .08382, .02993, + .02009, .06613, .11286, + .49348, .23435, .74644, .08285, .03001, + .02039, .06552, .11139, + .49083, .23240, .72946, .08193, .03006, + .02064, .06492, .11000 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48811, .23044, .71270, .08101, .03009, + .02086, .06431, .10859, + .48540, .22851, .69651, .08009, .03010, + .02107, .06370, .10721, + .48275, .22664, .68129, .07921, .03007, + .02122, .06311, .10589, + .48026, .22490, .66724, .07839, .03005, + .02137, .06256, .10465, + .47762, .22309, .65314, .07754, .03000, + .02148, .06197, .10340 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58222, .30836, 1.05309, .08494, .00000, + .00000, .05614, .13484, + .58262, .30643, 1.05373, .08457, .00000, + .00000, .05656, .13342, + .58269, .30342, 1.04968, .08397, .00006, + .00000, .05710, .13130, + .58230, .30112, 1.04191, .08349, .00164, + .00000, .05741, .12977, + .58156, .29864, 1.03058, .08296, .00391, + .00000, .05766, .12815, + .58059, .29643, 1.01950, .08248, .00531, + .00000, .05782, .12668, + .57945, .29423, 1.00769, .08196, .00660, + .00000, .05790, .12527, + .57809, .29186, .99450, .08138, .00795, + .00000, .05795, .12377 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57663, .28975, .98184, .08085, .00896, + .00000, .05794, .12243, + .57513, .28769, .96927, .08032, .00994, + .00000, .05790, .12113, + .57383, .28602, .95878, .07988, .01064, + .00000, .05784, .12009, + .57077, .28244, .93451, .07893, .01205, + .00003, .05765, .11786, + .56787, .27932, .91133, .07807, .01315, + .00118, .05742, .11594, + .56439, .27578, .88351, .07707, .01426, + .00307, .05710, .11382, + .56048, .27205, .85477, .07600, .01529, + .00455, .05670, .11157, + .55661, .26863, .82850, .07497, .01607, + .00567, .05625, .10949 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55254, .26514, .80224, .07389, .01678, + .00675, .05575, .10742, + .54908, .26225, .78080, .07298, .01732, + .00759, .05530, .10572, + .54466, .25873, .75496, .07186, .01788, + .00849, .05471, .10363, + .54057, .25560, .73233, .07086, .01831, + .00919, .05415, .10177, + .53679, .25276, .71214, .06995, .01866, + .00981, .05363, .10008, + .53181, .24912, .68679, .06875, .01903, + .01048, .05292, .09797, + .52701, .24568, .66348, .06760, .01931, + .01104, .05222, .09599, + .52247, .24249, .64230, .06654, .01954, + .01153, .05156, .09417 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51777, .23930, .62147, .06547, .01972, + .01194, .05089, .09233, + .51313, .23618, .60166, .06442, .01985, + .01231, .05021, .09055, + .50871, .23325, .58343, .06344, .01995, + .01261, .04956, .08889, + .50445, .23048, .56658, .06249, .02001, + .01286, .04892, .08734, + .50018, .22773, .55017, .06155, .02005, + .01309, .04829, .08581, + .49588, .22502, .53433, .06062, .02006, + .01328, .04765, .08431, + .49180, .22247, .51974, .05976, .02006, + .01344, .04705, .08290, + .48789, .22006, .50621, .05894, .02003, + .01357, .04647, .08158 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48393, .21764, .49292, .05812, .02000, + .01368, .04589, .08026, + .48002, .21527, .48015, .05731, .01996, + .01378, .04531, .07898, + .47624, .21299, .46821, .05654, .01989, + .01385, .04476, .07776, + .47270, .21087, .45723, .05582, .01983, + .01392, .04424, .07663, + .46903, .20871, .44627, .05508, .01975, + .01396, .04371, .07548 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .63052, .31778, .86197, .06962, .00000, + .00000, .04735, .11608, + .62838, .31457, .86048, .06907, .00000, + .00000, .04742, .11420, + .62475, .30975, .85382, .06821, .00005, + .00000, .04745, .11148, + .62174, .30619, .84484, .06755, .00125, + .00000, .04742, .10954, + .61830, .30244, .83271, .06685, .00297, + .00000, .04734, .10752, + .61506, .29915, .82101, .06622, .00402, + .00000, .04723, .10577, + .61175, .29596, .80878, .06559, .00497, + .00000, .04707, .10409, + .60812, .29258, .79529, .06491, .00597, + .00000, .04688, .10233 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60475, .28960, .78253, .06429, .00671, + .00000, .04667, .10080, + .60142, .28673, .76998, .06368, .00742, + .00000, .04644, .09933, + .59867, .28446, .75963, .06319, .00792, + .00000, .04625, .09818, + .59265, .27960, .73616, .06213, .00893, + .00002, .04579, .09573, + .58728, .27543, .71433, .06121, .00970, + .00086, .04537, .09364, + .58108, .27082, .68868, .06018, .01047, + .00222, .04486, .09134, + .57444, .26601, .66235, .05905, .01117, + .00328, .04427, .08898, + .56820, .26161, .63852, .05801, .01170, + .00407, .04368, .08687 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56179, .25723, .61489, .05695, .01216, + .00482, .04306, .08476, + .55643, .25363, .59576, .05607, .01251, + .00541, .04254, .08303, + .54979, .24928, .57291, .05498, .01286, + .00602, .04189, .08096, + .54381, .24545, .55307, .05402, .01311, + .00649, .04128, .07914, + .53834, .24199, .53547, .05316, .01332, + .00690, .04071, .07752, + .53130, .23760, .51355, .05204, .01352, + .00735, .03997, .07549, + .52459, .23352, .49358, .05099, .01367, + .00771, .03926, .07361, + .51833, .22976, .47556, .05003, .01379, + .00802, .03860, .07189 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .51201, .22599, .45799, .04904, .01386, + .00828, .03794, .07018, + .50583, .22235, .44139, .04809, .01390, + .00850, .03728, .06855, + .49999, .21897, .42620, .04721, .01393, + .00868, .03666, .06704, + .49441, .21579, .41227, .04638, .01392, + .00883, .03607, .06562, + .48886, .21265, .39878, .04556, .01391, + .00896, .03549, .06423, + .48335, .20956, .38585, .04475, .01388, + .00906, .03491, .06288, + .47817, .20667, .37400, .04399, .01384, + .00915, .03436, .06163, + .47323, .20395, .36307, .04328, .01378, + .00921, .03384, .06046 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46826, .20125, .35239, .04257, .01372, + .00927, .03331, .05931, + .46339, .19861, .34218, .04188, .01366, + .00931, .03280, .05818, + .45871, .19610, .33268, .04122, .01358, + .00934, .03232, .05711, + .45435, .19376, .32397, .04062, .01352, + .00936, .03187, .05613, + .44987, .19138, .31533, .03999, .01343, + .00937, .03140, .05514 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .66498, .31968, .73047, .05725, .00000, + .00000, .03943, .09752, + .66021, .31535, .72678, .05661, .00000, + .00000, .03929, .09550, + .65280, .30896, .71727, .05567, .00005, + .00000, .03903, .09257, + .64715, .30433, .70675, .05498, .00097, + .00000, .03881, .09050, + .64102, .29950, .69342, .05423, .00230, + .00000, .03855, .08836, + .63552, .29531, .68083, .05357, .00310, + .00000, .03828, .08653, + .63010, .29129, .66789, .05291, .00383, + .00000, .03800, .08480, + .62429, .28707, .65380, .05221, .00458, + .00000, .03768, .08299 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .61905, .28340, .64075, .05157, .00513, + .00000, .03737, .08144, + .61397, .27989, .62803, .05096, .00565, + .00000, .03706, .07997, + .60986, .27711, .61765, .05046, .00602, + .00000, .03681, .07881, + .60104, .27123, .59460, .04941, .00674, + .00002, .03624, .07639, + .59336, .26624, .57368, .04851, .00730, + .00064, .03572, .07436, + .58471, .26075, .54961, .04750, .00784, + .00164, .03512, .07216, + .57559, .25511, .52514, .04643, .00832, + .00241, .03448, .06989, + .56721, .25000, .50326, .04543, .00867, + .00297, .03386, .06790 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55874, .24494, .48179, .04443, .00897, + .00351, .03322, .06593, + .55173, .24082, .46453, .04361, .00920, + .00392, .03268, .06433, + .54317, .23587, .44411, .04262, .00941, + .00435, .03201, .06243, + .53553, .23155, .42654, .04175, .00956, + .00467, .03143, .06076, + .52862, .22767, .41107, .04097, .00968, + .00495, .03090, .05927, + .51984, .22276, .39200, .03995, .00979, + .00525, .03020, .05745, + .51159, .21823, .37479, .03900, .00986, + .00548, .02954, .05578, + .50394, .21407, .35937, .03813, .00990, + .00569, .02893, .05427 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49625, .20997, .34443, .03727, .00992, + .00585, .02832, .05276, + .48880, .20602, .33043, .03645, .00992, + .00598, .02773, .05133, + .48180, .20235, .31773, .03569, .00990, + .00610, .02717, .05000, + .47521, .19890, .30617, .03497, .00987, + .00618, .02665, .04880, + .46868, .19551, .29502, .03425, .00983, + .00626, .02613, .04762, + .46224, .19221, .28441, .03355, .00978, + .00631, .02563, .04647, + .45621, .18913, .27472, .03291, .00973, + .00635, .02515, .04540, + .45050, .18624, .26585, .03231, .00967, + .00638, .02471, .04441 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .44479, .18337, .25720, .03170, .00960, + .00640, .02426, .04344, + .43921, .18058, .24898, .03112, .00953, + .00642, .02383, .04249, + .43388, .17795, .24137, .03057, .00946, + .00642, .02342, .04160, + .42892, .17550, .23441, .03006, .00939, + .00642, .02304, .04078, + .42387, .17302, .22756, .02954, .00931, + .00641, .02265, .03996 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .68660, .31561, .63789, .04729, .00000, + .00000, .03240, .08003, + .67928, .31031, .63124, .04664, .00000, + .00000, .03216, .07804, + .66825, .30259, .61795, .04568, .00004, + .00000, .03178, .07517, + .66006, .29707, .60530, .04497, .00076, + .00000, .03147, .07314, + .65139, .29135, .59020, .04422, .00180, + .00000, .03113, .07109, + .64378, .28643, .57631, .04355, .00242, + .00000, .03078, .06936, + .63638, .28175, .56239, .04290, .00297, + .00000, .03044, .06773, + .62855, .27686, .54746, .04221, .00354, + .00000, .03008, .06602 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62162, .27262, .53393, .04158, .00395, + .00000, .02974, .06458, + .61495, .26859, .52089, .04099, .00433, + .00000, .02940, .06320, + .60962, .26543, .51040, .04052, .00460, + .00000, .02913, .06212, + .59830, .25877, .48759, .03951, .00513, + .00002, .02852, .05990, + .58858, .25316, .46740, .03864, .00553, + .00047, .02800, .05805, + .57776, .24704, .44463, .03768, .00590, + .00122, .02741, .05605, + .56653, .24077, .42178, .03668, .00623, + .00178, .02676, .05404, + .55627, .23520, .40155, .03578, .00647, + .00219, .02617, .05223 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54602, .22968, .38199, .03487, .00667, + .00257, .02557, .05048, + .53762, .22519, .36643, .03412, .00681, + .00286, .02507, .04908, + .52749, .21983, .34814, .03323, .00694, + .00316, .02445, .04742, + .51853, .21518, .33262, .03244, .00702, + .00338, .02391, .04599, + .51046, .21103, .31904, .03173, .00708, + .00358, .02342, .04472, + .50024, .20582, .30246, .03084, .00713, + .00377, .02280, .04315, + .49075, .20102, .28760, .03002, .00715, + .00393, .02222, .04172, + .48202, .19663, .27439, .02926, .00716, + .00406, .02169, .04043 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .47331, .19232, .26175, .02850, .00714, + .00416, .02115, .03918, + .46490, .18820, .24998, .02779, .00712, + .00425, .02064, .03798, + .45704, .18440, .23935, .02713, .00709, + .00431, .02016, .03688, + .44970, .18085, .22975, .02651, .00704, + .00436, .01971, .03587, + .44246, .17735, .22055, .02590, .00700, + .00440, .01928, .03489, + .43534, .17395, .21185, .02531, .00694, + .00442, .01885, .03396, + .42869, .17080, .20396, .02477, .00689, + .00444, .01844, .03309, + .42244, .16785, .19676, .02426, .00683, + .00445, .01807, .03228 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .41621, .16494, .18978, .02375, .00676, + .00446, .01771, .03148, + .41015, .16211, .18317, .02326, .00670, + .00446, .01735, .03071, + .40440, .15944, .17710, .02280, .00663, + .00445, .01701, .03001, + .39905, .15697, .17156, .02237, .00657, + .00444, .01669, .02935, + .39361, .15447, .16613, .02194, .00650, + .00443, .01638, .02870 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .69653, .30677, .56827, .03923, .00000, + .00000, .02634, .06416, + .68683, .30068, .55820, .03857, .00000, + .00000, .02605, .06234, + .67242, .29188, .54066, .03759, .00003, + .00000, .02559, .05973, + .66192, .28564, .52562, .03689, .00060, + .00000, .02525, .05790, + .65093, .27924, .50855, .03616, .00140, + .00000, .02487, .05603, + .64142, .27374, .49336, .03551, .00188, + .00000, .02452, .05448, + .63227, .26856, .47846, .03488, .00230, + .00000, .02418, .05301, + .62263, .26318, .46275, .03421, .00273, + .00000, .02381, .05149 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61421, .25853, .44885, .03362, .00303, + .00000, .02346, .05020, + .60615, .25413, .43560, .03306, .00332, + .00000, .02313, .04900, + .59977, .25068, .42506, .03261, .00352, + .00000, .02285, .04806, + .58628, .24349, .40262, .03167, .00390, + .00001, .02228, .04611, + .57481, .23746, .38324, .03086, .00418, + .00035, .02178, .04450, + .56219, .23090, .36179, .02996, .00445, + .00091, .02122, .04279, + .54916, .22427, .34053, .02906, .00467, + .00132, .02064, .04103, + .53742, .21837, .32205, .02822, .00482, + .00161, .02010, .03952 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52576, .21258, .30432, .02741, .00495, + .00189, .01955, .03803, + .51625, .20789, .29034, .02675, .00503, + .00209, .01911, .03684, + .50488, .20228, .27415, .02594, .00511, + .00230, .01857, .03546, + .49490, .19746, .26051, .02525, .00515, + .00246, .01810, .03427, + .48594, .19318, .24866, .02463, .00518, + .00259, .01767, .03321, + .47468, .18784, .23436, .02385, .00519, + .00272, .01713, .03191, + .46426, .18294, .22167, .02313, .00519, + .00282, .01663, .03075, + .45472, .17848, .21047, .02248, .00518, + .00291, .01618, .02970 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44530, .17410, .19984, .02182, .00515, + .00297, .01573, .02868, + .43623, .16993, .19001, .02121, .00511, + .00302, .01530, .02772, + .42779, .16609, .18118, .02065, .00507, + .00306, .01489, .02684, + .41993, .16252, .17328, .02013, .00503, + .00308, .01452, .02603, + .41220, .15903, .16574, .01963, .00498, + .00310, .01417, .02524, + .40466, .15565, .15865, .01914, .00493, + .00311, .01382, .02448, + .39762, .15253, .15223, .01868, .00487, + .00312, .01349, .02379, + .39104, .14961, .14643, .01826, .00482, + .00312, .01319, .02315 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .38451, .14672, .14084, .01784, .00477, + .00311, .01289, .02253, + .37815, .14393, .13557, .01744, .00471, + .00311, .01260, .02193, + .37213, .14132, .13074, .01706, .00465, + .00309, .01232, .02138, + .36654, .13889, .12635, .01672, .00460, + .00308, .01207, .02087, + .36091, .13646, .12207, .01636, .00454, + .00307, .01181, .02037 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .69596, .29417, .51063, .03256, .00000, + .00000, .02114, .05035, + .68405, .28751, .49726, .03192, .00000, + .00000, .02084, .04873, + .66661, .27792, .47573, .03099, .00003, + .00000, .02037, .04644, + .65406, .27117, .45857, .03032, .00047, + .00000, .02002, .04484, + .64106, .26426, .43988, .02962, .00109, + .00000, .01965, .04322, + .62988, .25838, .42367, .02900, .00145, + .00000, .01931, .04188, + .61921, .25286, .40813, .02840, .00177, + .00000, .01898, .04062, + .60803, .24714, .39197, .02777, .00209, + .00000, .01861, .03934 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .59834, .24225, .37795, .02723, .00232, + .00000, .01828, .03825, + .58911, .23762, .36475, .02671, .00253, + .00000, .01797, .03722, + .58186, .23399, .35439, .02629, .00267, + .00000, .01772, .03643, + .56661, .22646, .33268, .02542, .00294, + .00001, .01720, .03479, + .55374, .22020, .31434, .02468, .00314, + .00026, .01675, .03345, + .53965, .21343, .29444, .02388, .00333, + .00067, .01625, .03200, + .52524, .20661, .27496, .02308, .00348, + .00097, .01573, .03056, + .51239, .20055, .25827, .02233, .00358, + .00118, .01525, .02930 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49968, .19460, .24242, .02160, .00366, + .00138, .01478, .02811, + .48937, .18982, .23005, .02102, .00371, + .00153, .01439, .02717, + .47709, .18420, .21589, .02029, .00374, + .00167, .01393, .02605, + .46637, .17935, .20407, .01969, .00376, + .00178, .01353, .02508, + .45679, .17504, .19388, .01916, .00377, + .00187, .01317, .02423, + .44482, .16970, .18165, .01848, .00377, + .00195, .01272, .02322, + .43379, .16483, .17093, .01787, .00375, + .00202, .01231, .02228, + .42374, .16041, .16155, .01732, .00373, + .00208, .01194, .02144 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .41384, .15609, .15270, .01678, .00370, + .00211, .01158, .02061, + .40439, .15197, .14457, .01626, .00366, + .00214, .01123, .01985, + .39564, .14817, .13733, .01576, .00362, + .00217, .01091, .01918, + .38751, .14468, .13088, .01532, .00358, + .00218, .01061, .01856, + .37953, .14127, .12475, .01490, .00354, + .00219, .01032, .01796, + .37177, .13800, .11903, .01450, .00349, + .00219, .01003, .01738, + .36456, .13497, .11388, .01413, .00345, + .00219, .00977, .01684, + .35784, .13214, .10925, .01378, .00340, + .00218, .00953, .01635 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .35118, .12935, .10480, .01343, .00336, + .00217, .00930, .01588, + .34473, .12666, .10061, .01309, .00331, + .00217, .00906, .01542, + .33865, .12415, .09681, .01279, .00326, + .00215, .00884, .01500, + .33302, .12183, .09335, .01251, .00322, + .00214, .00863, .01461, + .32736, .11949, .09000, .01221, .00317, + .00213, .00844, .01423 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .68573, .27907, .45865, .02728, .00000, + .00000, .01659, .03846, + .67197, .27196, .44245, .02666, .00000, + .00000, .01630, .03710, + .65198, .26180, .41766, .02572, .00002, + .00000, .01588, .03520, + .63773, .25469, .39895, .02505, .00036, + .00000, .01556, .03389, + .62305, .24745, .37926, .02438, .00084, + .00000, .01521, .03256, + .61054, .24131, .36251, .02376, .00111, + .00000, .01491, .03146, + .59864, .23558, .34677, .02320, .00135, + .00000, .01461, .03043, + .58623, .22967, .33064, .02262, .00159, + .00000, .01430, .02936 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .57557, .22461, .31687, .02211, .00176, + .00000, .01402, .02847, + .56545, .21985, .30405, .02162, .00191, + .00000, .01375, .02763, + .55750, .21615, .29412, .02123, .00201, + .00000, .01353, .02700, + .54090, .20848, .27366, .02042, .00221, + .00001, .01307, .02569, + .52697, .20212, .25670, .01976, .00235, + .00020, .01268, .02461, + .51180, .19528, .23856, .01905, .00247, + .00050, .01225, .02346, + .49645, .18841, .22105, .01831, .00257, + .00071, .01182, .02231, + .48279, .18232, .20624, .01766, .00264, + .00087, .01143, .02132 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46937, .17643, .19235, .01701, .00268, + .00101, .01103, .02037, + .45852, .17171, .18160, .01649, .00271, + .00111, .01071, .01962, + .44563, .16613, .16936, .01589, .00273, + .00121, .01034, .01873, + .43449, .16135, .15926, .01535, .00273, + .00128, .01000, .01800, + .42457, .15711, .15061, .01487, .00273, + .00134, .00970, .01736, + .41221, .15186, .14037, .01430, .00272, + .00140, .00935, .01654, + .40087, .14710, .13145, .01379, .00270, + .00145, .00902, .01583, + .39057, .14281, .12368, .01332, .00267, + .00148, .00872, .01519 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .38046, .13864, .11642, .01287, .00264, + .00150, .00842, .01458, + .37086, .13467, .10979, .01242, .00261, + .00152, .00814, .01401, + .36203, .13102, .10393, .01201, .00257, + .00153, .00788, .01349, + .35379, .12767, .09872, .01166, .00254, + .00153, .00764, .01302, + .34571, .12442, .09380, .01133, .00250, + .00154, .00741, .01256, + .33794, .12128, .08924, .01100, .00246, + .00154, .00719, .01212, + .33075, .11839, .08514, .01069, .00242, + .00153, .00700, .01172, + .32405, .11571, .08148, .01041, .00239, + .00152, .00681, .01136 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31743, .11307, .07797, .01012, .00235, + .00152, .00662, .01100, + .31103, .11053, .07468, .00985, .00231, + .00151, .00645, .01066, + .30502, .10816, .07170, .00959, .00228, + .00150, .00629, .01035, + .29947, .10597, .06899, .00936, .00224, + .00149, .00614, .01006, + .29390, .10376, .06638, .00912, .00221, + .00147, .00599, .00977 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .66775, .26144, .40819, .02246, .00000, + .00000, .01304, .02890, + .65239, .25411, .39003, .02187, .00000, + .00000, .01277, .02778, + .63024, .24366, .36328, .02101, .00002, + .00000, .01238, .02622, + .61460, .23637, .34385, .02038, .00027, + .00000, .01208, .02516, + .59858, .22897, .32388, .01974, .00063, + .00000, .01176, .02411, + .58493, .22278, .30726, .01921, .00084, + .00000, .01148, .02322, + .57207, .21699, .29188, .01869, .00101, + .00000, .01121, .02239, + .55875, .21101, .27632, .01815, .00119, + .00000, .01094, .02154 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54732, .20594, .26324, .01769, .00131, + .00000, .01069, .02084, + .53651, .20117, .25119, .01725, .00142, + .00000, .01045, .02018, + .52806, .19747, .24196, .01692, .00149, + .00000, .01027, .01967, + .51047, .18984, .22312, .01623, .00163, + .00001, .00987, .01862, + .49583, .18352, .20776, .01564, .00172, + .00014, .00955, .01777, + .48003, .17674, .19164, .01499, .00181, + .00036, .00919, .01689, + .46403, .16998, .17624, .01434, .00187, + .00052, .00882, .01600, + .44987, .16405, .16337, .01379, .00191, + .00062, .00849, .01524 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43603, .15828, .15140, .01324, .00194, + .00072, .00816, .01452, + .42490, .15368, .14220, .01280, .00195, + .00080, .00790, .01395, + .41171, .14831, .13188, .01229, .00196, + .00086, .00759, .01326, + .40040, .14366, .12345, .01183, .00196, + .00091, .00733, .01271, + .39036, .13955, .11626, .01142, .00195, + .00095, .00710, .01223, + .37786, .13453, .10778, .01096, .00193, + .00099, .00681, .01161, + .36645, .12999, .10046, .01054, .00191, + .00102, .00655, .01107, + .35612, .12591, .09413, .01015, .00189, + .00104, .00630, .01059 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34605, .12192, .08827, .00977, .00186, + .00105, .00608, .01014, + .33649, .11817, .08295, .00942, .00184, + .00106, .00586, .00971, + .32770, .11474, .07826, .00911, .00181, + .00107, .00566, .00931, + .31959, .11158, .07412, .00881, .00178, + .00107, .00548, .00895, + .31168, .10849, .07022, .00852, .00175, + .00107, .00530, .00862, + .30405, .10555, .06663, .00825, .00172, + .00107, .00513, .00830, + .29700, .10283, .06343, .00799, .00169, + .00106, .00498, .00802, + .29047, .10033, .06056, .00775, .00166, + .00106, .00484, .00775 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28403, .09788, .05781, .00752, .00163, + .00105, .00469, .00749, + .27782, .09552, .05525, .00730, .00160, + .00104, .00456, .00724, + .27197, .09331, .05295, .00711, .00157, + .00103, .00444, .00702, + .26657, .09128, .05087, .00693, .00155, + .00102, .00433, .00681, + .26119, .08925, .04886, .00674, .00152, + .00101, .00421, .00661 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64264, .24261, .35860, .01847, .00000, + .00000, .01005, .02116, + .62604, .23518, .33942, .01790, .00000, + .00000, .00981, .02030, + .60230, .22461, .31200, .01707, .00002, + .00000, .00945, .01910, + .58561, .21729, .29268, .01649, .00020, + .00000, .00920, .01827, + .56857, .20992, .27324, .01592, .00047, + .00000, .00893, .01743, + .55417, .20375, .25731, .01544, .00062, + .00000, .00870, .01673, + .54066, .19798, .24276, .01497, .00075, + .00000, .00847, .01610, + .52671, .19207, .22820, .01449, .00087, + .00000, .00823, .01545 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51479, .18704, .21618, .01407, .00096, + .00000, .00804, .01491, + .50357, .18234, .20516, .01368, .00104, + .00000, .00784, .01440, + .49482, .17869, .19678, .01337, .00109, + .00000, .00768, .01402, + .47667, .17121, .17991, .01277, .00118, + .00001, .00734, .01324, + .46162, .16506, .16638, .01227, .00125, + .00010, .00706, .01260, + .44546, .15849, .15237, .01170, .00131, + .00026, .00679, .01192, + .42918, .15196, .13910, .01116, .00135, + .00037, .00649, .01125, + .41484, .14625, .12815, .01069, .00137, + .00045, .00622, .01067 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40087, .14072, .11809, .01023, .00138, + .00051, .00596, .01014, + .38968, .13632, .11042, .00986, .00139, + .00056, .00574, .00972, + .37657, .13116, .10185, .00943, .00139, + .00061, .00550, .00920, + .36527, .12677, .09491, .00905, .00139, + .00065, .00530, .00878, + .35526, .12290, .08903, .00872, .00138, + .00067, .00513, .00842, + .34292, .11815, .08215, .00831, .00136, + .00070, .00489, .00800, + .33170, .11387, .07627, .00796, .00134, + .00071, .00469, .00760, + .32156, .11002, .07120, .00766, .00132, + .00073, .00451, .00724 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31167, .10630, .06653, .00737, .00130, + .00074, .00433, .00690, + .30234, .10279, .06231, .00708, .00128, + .00074, .00417, .00659, + .29382, .09958, .05861, .00680, .00126, + .00074, .00402, .00632, + .28595, .09665, .05536, .00656, .00123, + .00074, .00388, .00607, + .27828, .09381, .05232, .00634, .00121, + .00074, .00374, .00583, + .27092, .09109, .04953, .00613, .00119, + .00074, .00361, .00561, + .26413, .08859, .04703, .00594, .00116, + .00073, .00350, .00540, + .25786, .08628, .04482, .00575, .00114, + .00073, .00339, .00521 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25170, .08402, .04271, .00556, .00112, + .00072, .00329, .00503, + .24576, .08185, .04075, .00538, .00110, + .00071, .00319, .00485, + .24019, .07984, .03899, .00523, .00108, + .00071, .00309, .00470, + .23506, .07798, .03740, .00509, .00106, + .00070, .00300, .00456, + .22996, .07613, .03587, .00494, .00104, + .00069, .00292, .00441 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .61183, .22282, .30971, .01493, .00000, + .00000, .00767, .01521, + .59434, .21544, .29046, .01442, .00000, + .00000, .00746, .01454, + .56944, .20497, .26368, .01368, .00001, + .00000, .00715, .01362, + .55205, .19775, .24528, .01317, .00015, + .00000, .00694, .01299, + .53439, .19052, .22704, .01265, .00034, + .00000, .00671, .01235, + .51954, .18448, .21228, .01221, .00045, + .00000, .00650, .01184, + .50563, .17885, .19900, .01182, .00054, + .00000, .00632, .01135, + .49130, .17309, .18583, .01142, .00063, + .00000, .00613, .01086 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47914, .16823, .17503, .01104, .00069, + .00000, .00596, .01047, + .46772, .16369, .16524, .01069, .00075, + .00000, .00580, .01010, + .45885, .16017, .15788, .01044, .00078, + .00000, .00567, .00980, + .44050, .15297, .14322, .00992, .00085, + .00001, .00540, .00922, + .42533, .14709, .13159, .00950, .00089, + .00007, .00518, .00874, + .40911, .14082, .11966, .00904, .00093, + .00018, .00496, .00823, + .39288, .13457, .10854, .00857, .00095, + .00026, .00472, .00775, + .37866, .12915, .09946, .00818, .00097, + .00032, .00450, .00734 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36488, .12393, .09114, .00780, .00097, + .00036, .00430, .00695, + .35387, .11978, .08485, .00748, .00098, + .00040, .00414, .00664, + .34093, .11496, .07789, .00711, .00097, + .00043, .00395, .00627, + .32988, .11084, .07228, .00682, .00097, + .00045, .00380, .00596, + .32013, .10722, .06755, .00656, .00096, + .00047, .00366, .00570, + .30813, .10278, .06208, .00625, .00095, + .00048, .00349, .00540, + .29726, .09881, .05741, .00596, .00093, + .00050, .00333, .00513, + .28748, .09525, .05340, .00571, .00091, + .00050, .00318, .00488 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27797, .09182, .04975, .00547, .00090, + .00051, .00305, .00464, + .26902, .08859, .04646, .00524, .00088, + .00051, .00292, .00442, + .26085, .08565, .04358, .00503, .00086, + .00051, .00281, .00422, + .25335, .08297, .04108, .00485, .00084, + .00051, .00271, .00405, + .24606, .08037, .03873, .00467, .00083, + .00051, .00261, .00390, + .23907, .07789, .03659, .00449, .00081, + .00050, .00251, .00374, + .23265, .07562, .03469, .00433, .00079, + .00050, .00243, .00359, + .22671, .07353, .03300, .00419, .00078, + .00050, .00235, .00345 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22089, .07149, .03140, .00406, .00076, + .00049, .00227, .00332, + .21531, .06953, .02991, .00393, .00075, + .00049, .00220, .00319, + .21009, .06771, .02857, .00381, .00073, + .00048, .00213, .00308, + .20530, .06603, .02736, .00370, .00072, + .00047, .00207, .00297, + .20051, .06438, .02621, .00360, .00070, + .00047, .00201, .00288 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .57637, .20263, .26242, .01185, .00000, + .00000, .00580, .01072, + .55835, .19540, .24405, .01139, .00000, + .00000, .00562, .01023, + .53274, .18525, .21887, .01077, .00001, + .00000, .00536, .00953, + .51499, .17826, .20192, .01032, .00011, + .00000, .00517, .00906, + .49707, .17125, .18540, .00986, .00024, + .00000, .00497, .00860, + .48202, .16543, .17222, .00950, .00032, + .00000, .00481, .00822, + .46798, .16003, .16046, .00916, .00039, + .00000, .00465, .00786, + .45358, .15453, .14890, .00882, .00045, + .00000, .00449, .00750 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44138, .14989, .13952, .00851, .00049, + .00000, .00436, .00720, + .42997, .14556, .13108, .00823, .00053, + .00000, .00424, .00693, + .42114, .14220, .12478, .00801, .00055, + .00000, .00413, .00672, + .40293, .13537, .11233, .00758, .00059, + .00001, .00392, .00630, + .38797, .12981, .10260, .00722, .00062, + .00005, .00375, .00595, + .37203, .12390, .09273, .00682, .00065, + .00013, .00357, .00558, + .35608, .11805, .08358, .00646, .00066, + .00018, .00339, .00524, + .34223, .11299, .07618, .00612, .00067, + .00022, .00323, .00495 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32881, .10812, .06947, .00581, .00067, + .00025, .00307, .00468, + .31812, .10426, .06442, .00557, .00067, + .00027, .00294, .00446, + .30562, .09979, .05887, .00529, .00067, + .00030, .00281, .00420, + .29499, .09599, .05443, .00505, .00066, + .00031, .00269, .00398, + .28564, .09266, .05071, .00484, .00066, + .00032, .00259, .00379, + .27414, .08861, .04643, .00460, .00065, + .00033, .00245, .00357, + .26379, .08497, .04279, .00437, .00063, + .00034, .00234, .00339, + .25450, .08171, .03970, .00416, .00062, + .00034, .00224, .00323 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24548, .07859, .03689, .00399, .00061, + .00035, .00213, .00306, + .23703, .07566, .03436, .00381, .00060, + .00035, .00204, .00290, + .22936, .07299, .03216, .00363, .00058, + .00035, .00196, .00277, + .22231, .07056, .03024, .00349, .00057, + .00035, .00189, .00265, + .21548, .06821, .02846, .00336, .00056, + .00034, .00181, .00254, + .20895, .06599, .02683, .00323, .00055, + .00034, .00174, .00243, + .20296, .06395, .02539, .00310, .00053, + .00034, .00167, .00234, + .19744, .06208, .02412, .00299, .00052, + .00033, .00161, .00225 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19205, .06025, .02291, .00288, .00051, + .00033, .00156, .00215, + .18688, .05850, .02180, .00278, .00050, + .00033, .00151, .00207, + .18205, .05688, .02080, .00269, .00049, + .00032, .00146, .00200, + .17762, .05539, .01990, .00261, .00048, + .00032, .00141, .00193, + .17320, .05393, .01904, .00254, .00047, + .00031, .00137, .00186 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .53724, .18271, .21799, .00939, .00000, + .00000, .00426, .00729, + .51901, .17573, .20110, .00899, .00000, + .00000, .00411, .00695, + .49327, .16596, .17832, .00842, .00001, + .00000, .00389, .00646, + .47547, .15927, .16325, .00804, .00008, + .00000, .00375, .00612, + .45756, .15258, .14877, .00767, .00017, + .00000, .00360, .00580, + .44263, .14704, .13732, .00734, .00022, + .00000, .00348, .00552, + .42877, .14192, .12721, .00703, .00027, + .00000, .00336, .00528, + .41457, .13671, .11736, .00672, .00031, + .00000, .00323, .00505 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40256, .13233, .10944, .00648, .00034, + .00000, .00312, .00484, + .39133, .12826, .10236, .00625, .00037, + .00000, .00301, .00464, + .38266, .12513, .09711, .00608, .00038, + .00000, .00293, .00449, + .36490, .11876, .08682, .00572, .00041, + .00000, .00278, .00417, + .35034, .11357, .07886, .00543, .00043, + .00004, .00265, .00393, + .33486, .10807, .07087, .00513, .00044, + .00009, .00251, .00370, + .31953, .10267, .06353, .00483, .00045, + .00013, .00239, .00343, + .30622, .09799, .05764, .00455, .00046, + .00015, .00225, .00326 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29338, .09350, .05233, .00431, .00046, + .00017, .00214, .00307, + .28319, .08996, .04835, .00412, .00046, + .00019, .00206, .00291, + .27132, .08587, .04402, .00390, .00045, + .00020, .00195, .00273, + .26121, .08242, .04058, .00372, .00045, + .00021, .00186, .00259, + .25233, .07940, .03771, .00356, .00044, + .00022, .00178, .00248, + .24155, .07572, .03442, .00335, .00044, + .00023, .00169, .00233, + .23182, .07243, .03163, .00318, .00043, + .00023, .00160, .00219, + .22309, .06950, .02926, .00303, .00042, + .00023, .00152, .00207 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21469, .06670, .02712, .00289, .00041, + .00023, .00146, .00195, + .20681, .06407, .02521, .00276, .00040, + .00023, .00139, .00186, + .19965, .06167, .02356, .00265, .00039, + .00023, .00132, .00178, + .19313, .05951, .02213, .00254, .00038, + .00023, .00126, .00170, + .18683, .05742, .02079, .00242, .00037, + .00023, .00121, .00162, + .18085, .05544, .01957, .00231, .00036, + .00023, .00117, .00155, + .17538, .05363, .01849, .00221, .00035, + .00023, .00113, .00148, + .17032, .05197, .01754, .00213, .00035, + .00022, .00109, .00142 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16537, .05036, .01665, .00205, .00034, + .00022, .00105, .00137, + .16064, .04882, .01582, .00197, .00033, + .00022, .00101, .00131, + .15624, .04740, .01508, .00191, .00032, + .00022, .00097, .00126, + .15220, .04610, .01441, .00185, .00032, + .00021, .00095, .00122, + .14819, .04481, .01378, .00180, .00031, + .00021, .00092, .00117 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .49563, .16304, .17717, .00725, .00000, + .00000, .00310, .00490, + .47754, .15642, .16221, .00691, .00000, + .00000, .00298, .00464, + .45204, .14721, .14237, .00644, .00001, + .00000, .00280, .00430, + .43449, .14092, .12943, .00613, .00005, + .00000, .00267, .00406, + .41693, .13464, .11711, .00583, .00012, + .00000, .00256, .00382, + .40232, .12945, .10749, .00556, .00015, + .00000, .00247, .00364, + .38879, .12466, .09907, .00533, .00018, + .00000, .00237, .00346, + .37498, .11979, .09091, .00510, .00021, + .00000, .00226, .00329 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36336, .11573, .08440, .00490, .00023, + .00000, .00218, .00315, + .35254, .11196, .07862, .00470, .00025, + .00000, .00210, .00302, + .34419, .10907, .07436, .00455, .00026, + .00000, .00205, .00292, + .32711, .10319, .06607, .00427, .00028, + .00000, .00193, .00271, + .31317, .09841, .05972, .00404, .00029, + .00002, .00183, .00255, + .29841, .09338, .05339, .00380, .00030, + .00006, .00173, .00239, + .28382, .08845, .04763, .00359, .00031, + .00009, .00163, .00221, + .27121, .08420, .04303, .00338, .00031, + .00010, .00154, .00208 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25910, .08014, .03893, .00319, .00031, + .00012, .00145, .00195, + .24951, .07694, .03588, .00304, .00031, + .00013, .00138, .00185, + .23839, .07325, .03254, .00285, .00030, + .00014, .00130, .00173, + .22897, .07013, .02992, .00271, .00030, + .00014, .00124, .00164, + .22073, .06741, .02774, .00258, .00030, + .00015, .00119, .00157, + .21067, .06411, .02525, .00244, .00029, + .00015, .00112, .00147, + .20167, .06118, .02316, .00231, .00028, + .00015, .00106, .00139, + .19364, .05857, .02138, .00220, .00028, + .00016, .00101, .00131 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18593, .05607, .01979, .00208, .00027, + .00016, .00096, .00124, + .17870, .05375, .01836, .00198, .00026, + .00016, .00091, .00118, + .17215, .05165, .01713, .00189, .00026, + .00016, .00087, .00112, + .16619, .04975, .01606, .00181, .00025, + .00016, .00083, .00106, + .16043, .04792, .01507, .00174, .00025, + .00015, .00079, .00100, + .15498, .04618, .01417, .00166, .00024, + .00015, .00076, .00096, + .14999, .04459, .01338, .00159, .00023, + .00015, .00074, .00092, + .14542, .04314, .01268, .00152, .00023, + .00015, .00071, .00088 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14096, .04174, .01202, .00146, .00022, + .00015, .00069, .00084, + .13669, .04040, .01141, .00141, .00022, + .00014, .00066, .00080, + .13273, .03915, .01087, .00136, .00021, + .00014, .00063, .00077, + .12909, .03801, .01038, .00132, .00021, + .00014, .00061, .00074, + .12551, .03690, .00991, .00128, .00020, + .00014, .00058, .00072 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .45245, .14400, .14068, .00543, .00000, + .00000, .00226, .00322, + .43473, .13780, .12791, .00514, .00000, + .00000, .00215, .00307, + .40991, .12919, .11115, .00477, .00001, + .00000, .00201, .00281, + .39288, .12334, .10037, .00454, .00003, + .00000, .00192, .00263, + .37588, .11752, .09023, .00430, .00008, + .00000, .00182, .00247, + .36187, .11271, .08236, .00407, .00010, + .00000, .00174, .00236, + .34888, .10831, .07553, .00388, .00012, + .00000, .00166, .00225, + .33564, .10385, .06897, .00370, .00014, + .00000, .00159, .00213 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32455, .10011, .06378, .00354, .00015, + .00000, .00154, .00203, + .31422, .09665, .05919, .00340, .00016, + .00000, .00149, .00195, + .30625, .09400, .05582, .00330, .00017, + .00000, .00144, .00189, + .29008, .08864, .04931, .00306, .00018, + .00000, .00135, .00176, + .27695, .08431, .04437, .00287, .00019, + .00002, .00127, .00164, + .26307, .07976, .03949, .00269, .00020, + .00004, .00120, .00153, + .24942, .07531, .03508, .00251, .00020, + .00006, .00113, .00143, + .23761, .07150, .03159, .00238, .00020, + .00007, .00106, .00133 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22635, .06787, .02848, .00224, .00020, + .00008, .00100, .00124, + .21749, .06500, .02617, .00212, .00020, + .00008, .00095, .00118, + .20726, .06171, .02368, .00196, .00020, + .00009, .00089, .00111, + .19857, .05894, .02173, .00186, .00020, + .00009, .00085, .00105, + .19098, .05653, .02010, .00177, .00019, + .00010, .00081, .00100, + .18178, .05364, .01825, .00166, .00019, + .00010, .00076, .00092, + .17355, .05105, .01671, .00157, .00018, + .00010, .00073, .00086, + .16621, .04876, .01541, .00150, .00018, + .00010, .00070, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15921, .04658, .01423, .00142, .00018, + .00010, .00066, .00078, + .15267, .04455, .01319, .00134, .00017, + .00010, .00063, .00074, + .14676, .04270, .01229, .00127, .00017, + .00010, .00059, .00070, + .14139, .04105, .01151, .00122, .00016, + .00010, .00056, .00066, + .13622, .03947, .01079, .00116, .00016, + .00010, .00053, .00063, + .13131, .03796, .01013, .00111, .00015, + .00010, .00051, .00060, + .12684, .03659, .00956, .00106, .00015, + .00010, .00049, .00058, + .12276, .03534, .00905, .00102, .00015, + .00010, .00048, .00056 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11878, .03413, .00857, .00098, .00014, + .00010, .00046, .00053, + .11499, .03298, .00813, .00094, .00014, + .00009, .00045, .00050, + .11149, .03192, .00774, .00090, .00014, + .00009, .00042, .00048, + .10828, .03095, .00739, .00086, .00013, + .00009, .00041, .00046, + .10512, .02999, .00705, .00084, .00013, + .00009, .00039, .00044 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .40867, .12593, .10912, .00400, .00000, + .00000, .00158, .00206, + .39160, .12018, .09854, .00375, .00000, + .00000, .00151, .00196, + .36777, .11220, .08482, .00344, .00000, + .00000, .00140, .00182, + .35149, .10682, .07611, .00325, .00002, + .00000, .00133, .00171, + .33531, .10150, .06801, .00306, .00005, + .00000, .00127, .00159, + .32196, .09712, .06177, .00288, .00007, + .00000, .00123, .00151, + .30967, .09311, .05640, .00273, .00008, + .00000, .00118, .00144, + .29718, .08905, .05127, .00259, .00009, + .00000, .00112, .00138 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .28673, .08567, .04724, .00247, .00010, + .00000, .00108, .00130, + .27703, .08255, .04370, .00236, .00011, + .00000, .00104, .00124, + .26959, .08017, .04111, .00227, .00011, + .00000, .00100, .00120, + .25447, .07534, .03614, .00212, .00012, + .00000, .00093, .00112, + .24224, .07145, .03239, .00198, .00012, + .00001, .00089, .00106, + .22942, .06737, .02872, .00182, .00013, + .00003, .00085, .00099, + .21680, .06342, .02541, .00169, .00013, + .00004, .00078, .00091, + .20595, .06004, .02282, .00161, .00013, + .00004, .00074, .00083 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19561, .05683, .02052, .00151, .00013, + .00005, .00070, .00078, + .18748, .05431, .01883, .00143, .00013, + .00006, .00066, .00075, + .17811, .05141, .01700, .00132, .00013, + .00006, .00062, .00071, + .17022, .04899, .01557, .00125, .00013, + .00006, .00059, .00067, + .16335, .04688, .01438, .00119, .00012, + .00006, .00057, .00064, + .15503, .04436, .01304, .00111, .00012, + .00007, .00053, .00059, + .14762, .04212, .01192, .00105, .00012, + .00007, .00050, .00055, + .14104, .04014, .01098, .00099, .00011, + .00007, .00047, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13480, .03824, .01013, .00092, .00011, + .00007, .00044, .00049, + .12898, .03648, .00937, .00086, .00011, + .00007, .00042, .00047, + .12371, .03490, .00872, .00082, .00011, + .00007, .00040, .00045, + .11893, .03348, .00817, .00078, .00010, + .00007, .00038, .00042, + .11434, .03213, .00765, .00075, .00010, + .00007, .00037, .00040, + .11000, .03085, .00718, .00072, .00010, + .00006, .00035, .00037, + .10606, .02968, .00677, .00068, .00010, + .00006, .00033, .00035, + .10246, .02862, .00641, .00065, .00009, + .00006, .00032, .00033 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09897, .02758, .00606, .00061, .00009, + .00006, .00030, .00033, + .09565, .02661, .00575, .00058, .00009, + .00006, .00029, .00032, + .09257, .02571, .00546, .00057, .00009, + .00006, .00028, .00030, + .08976, .02489, .00521, .00056, .00008, + .00006, .00028, .00028, + .08701, .02408, .00497, .00053, .00008, + .00006, .00027, .00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .36506, .10907, .08271, .00298, .00000, + .00000, .00105, .00124, + .34884, .10383, .07425, .00280, .00000, + .00000, .00098, .00119, + .32633, .09659, .06341, .00255, .00000, + .00000, .00091, .00109, + .31103, .09170, .05662, .00240, .00001, + .00000, .00087, .00102, + .29585, .08690, .05033, .00225, .00003, + .00000, .00083, .00096, + .28337, .08295, .04553, .00212, .00004, + .00000, .00078, .00090, + .27189, .07934, .04142, .00202, .00005, + .00000, .00074, .00085, + .26027, .07571, .03751, .00191, .00006, + .00000, .00070, .00081 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25060, .07270, .03446, .00181, .00006, + .00000, .00068, .00077, + .24164, .06993, .03179, .00173, .00007, + .00000, .00065, .00073, + .23477, .06781, .02986, .00167, .00007, + .00000, .00063, .00069, + .22087, .06353, .02616, .00155, .00008, + .00000, .00058, .00064, + .20966, .06010, .02339, .00144, .00008, + .00001, .00054, .00061, + .19792, .05651, .02067, .00135, .00008, + .00002, .00050, .00055, + .18645, .05303, .01825, .00125, .00008, + .00002, .00048, .00052, + .17662, .05005, .01636, .00117, .00008, + .00003, .00045, .00049 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16729, .04725, .01468, .00108, .00008, + .00003, .00042, .00045, + .15998, .04507, .01345, .00102, .00008, + .00004, .00039, .00043, + .15158, .04254, .01213, .00093, .00008, + .00004, .00037, .00040, + .14452, .04044, .01110, .00088, .00008, + .00004, .00034, .00038, + .13837, .03863, .01024, .00084, .00008, + .00004, .00032, .00036, + .13093, .03646, .00928, .00081, .00008, + .00004, .00030, .00032, + .12437, .03453, .00847, .00075, .00007, + .00004, .00029, .00031, + .11857, .03282, .00780, .00070, .00007, + .00004, .00027, .00030 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11305, .03120, .00719, .00066, .00007, + .00004, .00026, .00027, + .10790, .02971, .00665, .00062, .00007, + .00004, .00025, .00025, + .10325, .02837, .00619, .00060, .00007, + .00004, .00023, .00024, + .09906, .02717, .00579, .00057, .00007, + .00004, .00022, .00023, + .09506, .02602, .00542, .00055, .00006, + .00004, .00020, .00022, + .09128, .02493, .00508, .00052, .00006, + .00004, .00019, .00020, + .08785, .02394, .00479, .00049, .00006, + .00004, .00019, .00020, + .08472, .02305, .00453, .00047, .00006, + .00004, .00018, .00018 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08168, .02218, .00428, .00046, .00006, + .00004, .00017, .00017, + .07880, .02136, .00406, .00044, .00006, + .00004, .00016, .00017, + .07616, .02061, .00386, .00042, .00005, + .00004, .00015, .00016, + .07374, .01992, .00368, .00040, .00005, + .00004, .00015, .00016, + .07137, .01925, .00350, .00038, .00005, + .00004, .00014, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .32219, .09310, .06090, .00199, .00000, + .00000, .00075, .00080, + .30700, .08840, .05436, .00186, .00000, + .00000, .00071, .00075, + .28601, .08193, .04609, .00169, .00000, + .00000, .00064, .00069, + .27182, .07757, .04096, .00158, .00001, + .00000, .00060, .00065, + .25778, .07328, .03625, .00148, .00002, + .00000, .00057, .00061, + .24627, .06979, .03268, .00139, .00003, + .00000, .00054, .00058, + .23572, .06663, .02963, .00132, .00003, + .00000, .00051, .00054, + .22507, .06344, .02675, .00125, .00004, + .00000, .00048, .00050 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21626, .06079, .02452, .00118, .00004, + .00000, .00046, .00047, + .20810, .05834, .02258, .00112, .00004, + .00000, .00044, .00045, + .20184, .05647, .02116, .00108, .00004, + .00000, .00042, .00044, + .18923, .05273, .01848, .00099, .00005, + .00000, .00039, .00042, + .17909, .04974, .01648, .00093, .00005, + .00000, .00037, .00038, + .16850, .04663, .01454, .00089, .00005, + .00001, .00035, .00034, + .15822, .04362, .01282, .00082, .00005, + .00002, .00032, .00032, + .14943, .04107, .01147, .00077, .00005, + .00002, .00029, .00030 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .14113, .03866, .01029, .00070, .00005, + .00002, .00027, .00027, + .13465, .03679, .00942, .00065, .00005, + .00002, .00026, .00025, + .12720, .03464, .00848, .00060, .00005, + .00002, .00023, .00025, + .12096, .03285, .00775, .00056, .00005, + .00003, .00022, .00024, + .11556, .03130, .00715, .00053, .00005, + .00003, .00021, .00022, + .10904, .02945, .00647, .00051, .00005, + .00003, .00020, .00019, + .10329, .02782, .00591, .00048, .00005, + .00003, .00018, .00018, + .09822, .02639, .00543, .00045, .00004, + .00003, .00017, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09339, .02503, .00501, .00043, .00004, + .00003, .00016, .00016, + .08894, .02377, .00463, .00040, .00004, + .00003, .00016, .00015, + .08495, .02265, .00430, .00038, .00004, + .00003, .00015, .00014, + .08134, .02164, .00403, .00036, .00004, + .00003, .00014, .00013, + .07789, .02068, .00377, .00034, .00004, + .00003, .00013, .00012, + .07463, .01978, .00353, .00032, .00004, + .00003, .00012, .00012, + .07168, .01897, .00332, .00030, .00004, + .00003, .00012, .00011, + .06900, .01823, .00314, .00029, .00004, + .00003, .00011, .00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06641, .01751, .00297, .00027, .00003, + .00003, .00010, .00011, + .06396, .01683, .00281, .00026, .00003, + .00002, .00010, .00010, + .06170, .01621, .00267, .00025, .00003, + .00002, .00009, .00010, + .05965, .01565, .00255, .00024, .00003, + .00002, .00009, .00009, + .05764, .01509, .00243, .00023, .00003, + .00002, .00009, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .28081, .07855, .04359, .00130, .00000, + .00000, .00051, .00050, + .26682, .07438, .03874, .00123, .00000, + .00000, .00048, .00047, + .24755, .06867, .03264, .00112, .00000, + .00000, .00044, .00041, + .23457, .06484, .02888, .00103, .00001, + .00000, .00041, .00039, + .22178, .06108, .02546, .00095, .00001, + .00000, .00038, .00037, + .21132, .05801, .02288, .00090, .00002, + .00000, .00035, .00035, + .20178, .05524, .02070, .00085, .00002, + .00000, .00033, .00034, + .19217, .05245, .01865, .00079, .00002, + .00000, .00032, .00032 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18421, .05016, .01706, .00075, .00002, + .00000, .00030, .00030, + .17687, .04806, .01567, .00071, .00002, + .00000, .00029, .00028, + .17127, .04645, .01467, .00069, .00003, + .00000, .00028, .00026, + .16000, .04322, .01279, .00064, .00003, + .00000, .00026, .00024, + .15099, .04064, .01139, .00060, .00003, + .00000, .00024, .00023, + .14161, .03798, .01004, .00055, .00003, + .00001, .00022, .00023, + .13249, .03542, .00884, .00052, .00003, + .00001, .00021, .00019, + .12480, .03324, .00791, .00045, .00003, + .00001, .00019, .00019 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11751, .03119, .00709, .00041, .00003, + .00001, .00017, .00018, + .11182, .02961, .00648, .00038, .00003, + .00001, .00016, .00018, + .10529, .02781, .00584, .00036, .00003, + .00002, .00016, .00015, + .09988, .02630, .00533, .00034, .00003, + .00002, .00015, .00014, + .09520, .02500, .00492, .00032, .00003, + .00002, .00014, .00013, + .08958, .02346, .00445, .00030, .00003, + .00002, .00013, .00012, + .08462, .02210, .00406, .00028, .00003, + .00002, .00012, .00011, + .08026, .02091, .00373, .00027, .00003, + .00002, .00012, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07613, .01978, .00344, .00025, .00003, + .00002, .00011, .00010, + .07232, .01874, .00318, .00023, .00003, + .00002, .00010, .00009, + .06889, .01782, .00296, .00022, .00002, + .00002, .00009, .00009, + .06582, .01699, .00276, .00022, .00002, + .00002, .00009, .00008, + .06289, .01620, .00258, .00021, .00002, + .00002, .00009, .00007, + .06014, .01546, .00242, .00020, .00002, + .00002, .00008, .00007, + .05766, .01480, .00228, .00018, .00002, + .00002, .00008, .00007, + .05540, .01419, .00215, .00017, .00002, + .00002, .00007, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05321, .01361, .00203, .00017, .00002, + .00002, .00007, .00006, + .05115, .01306, .00192, .00016, .00002, + .00002, .00006, .00005, + .04926, .01256, .00183, .00015, .00002, + .00002, .00006, .00005, + .04754, .01211, .00174, .00015, .00002, + .00001, .00006, .00005, + .04586, .01166, .00166, .00014, .00002, + .00001, .00005, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .24163, .06554, .03039, .00090, .00000, + .00000, .00030, .00029, + .22895, .06189, .02689, .00083, .00000, + .00000, .00028, .00026, + .21155, .05689, .02255, .00075, .00000, + .00000, .00025, .00023, + .19986, .05356, .01990, .00069, .00000, + .00000, .00023, .00022, + .18838, .05031, .01749, .00065, .00001, + .00000, .00022, .00021, + .17900, .04767, .01570, .00062, .00001, + .00000, .00020, .00019, + .17050, .04529, .01418, .00058, .00001, + .00000, .00019, .00018, + .16198, .04291, .01275, .00054, .00001, + .00000, .00019, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15491, .04094, .01165, .00052, .00001, + .00000, .00018, .00015, + .14841, .03913, .01069, .00049, .00001, + .00000, .00017, .00015, + .14349, .03775, .01001, .00047, .00002, + .00000, .00015, .00015, + .13358, .03501, .00872, .00043, .00002, + .00000, .00014, .00014, + .12567, .03284, .00776, .00040, .00002, + .00000, .00013, .00013, + .11748, .03059, .00684, .00035, .00002, + .00000, .00012, .00012, + .10955, .02843, .00602, .00034, .00002, + .00001, .00012, .00011, + .10287, .02660, .00538, .00030, .00002, + .00001, .00011, .00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09657, .02489, .00483, .00028, .00002, + .00001, .00010, .00009, + .09166, .02357, .00442, .00027, .00002, + .00001, .00009, .00009, + .08607, .02207, .00398, .00024, .00002, + .00001, .00008, .00008, + .08142, .02083, .00364, .00023, .00002, + .00001, .00008, .00008, + .07742, .01976, .00336, .00023, .00002, + .00001, .00007, .00007, + .07263, .01848, .00304, .00020, .00002, + .00001, .00007, .00006, + .06844, .01737, .00277, .00018, .00002, + .00001, .00006, .00006, + .06475, .01639, .00255, .00016, .00002, + .00001, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06125, .01547, .00235, .00017, .00002, + .00001, .00005, .00005, + .05802, .01463, .00217, .00016, .00002, + .00001, .00005, .00004, + .05515, .01388, .00201, .00016, .00001, + .00001, .00005, .00004, + .05258, .01320, .00188, .00015, .00001, + .00001, .00005, .00004, + .05014, .01256, .00176, .00014, .00001, + .00001, .00004, .00004, + .04785, .01196, .00165, .00013, .00001, + .00001, .00004, .00003, + .04579, .01142, .00155, .00012, .00001, + .00001, .00004, .00003, + .04391, .01094, .00146, .00011, .00001, + .00001, .00004, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04211, .01047, .00138, .00010, .00001, + .00001, .00004, .00003, + .04041, .01003, .00131, .00010, .00001, + .00001, .00003, .00003, + .03885, .00963, .00124, .00010, .00001, + .00001, .00003, .00003, + .03743, .00927, .00118, .00009, .00001, + .00001, .00003, .00003, + .03605, .00891, .00112, .00009, .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=1,8)/ + .20472, .05367, .02041, .00052, .00000, + .00000, .00022, .00020, + .19339, .05053, .01802, .00048, .00000, + .00000, .00021, .00018, + .17791, .04629, .01505, .00043, .00000, + .00000, .00018, .00015, + .16757, .04345, .01325, .00040, .00000, + .00000, .00017, .00014, + .15745, .04068, .01163, .00036, .00000, + .00000, .00016, .00013, + .14923, .03845, .01043, .00034, .00001, + .00000, .00014, .00012, + .14178, .03643, .00941, .00032, .00001, + .00000, .00014, .00011, + .13432, .03442, .00846, .00030, .00001, + .00000, .00014, .00010 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .12816, .03277, .00773, .00028, .00001, + .00000, .00013, .00009, + .12251, .03125, .00709, .00027, .00001, + .00000, .00012, .00009, + .11821, .03011, .00664, .00026, .00001, + .00000, .00011, .00009, + .10965, .02782, .00578, .00023, .00001, + .00000, .00009, .00009, + .10284, .02601, .00515, .00021, .00001, + .00000, .00009, .00008, + .09579, .02415, .00454, .00020, .00001, + .00000, .00008, .00007, + .08902, .02236, .00400, .00019, .00001, + .00000, .00008, .00006, + .08331, .02086, .00358, .00016, .00001, + .00000, .00007, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07795, .01947, .00321, .00015, .00001, + .00000, .00007, .00005, + .07380, .01839, .00294, .00015, .00001, + .00001, .00007, .00005, + .06910, .01716, .00265, .00013, .00001, + .00001, .00006, .00005, + .06519, .01615, .00243, .00012, .00001, + .00001, .00005, .00005, + .06182, .01528, .00224, .00012, .00001, + .00001, .00005, .00005, + .05780, .01425, .00203, .00012, .00001, + .00001, .00005, .00004, + .05429, .01335, .00185, .00011, .00001, + .00001, .00004, .00004, + .05123, .01257, .00170, .00010, .00001, + .00001, .00004, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04835, .01183, .00157, .00009, .00001, + .00001, .00004, .00003, + .04570, .01116, .00145, .00008, .00001, + .00001, .00003, .00003, + .04333, .01056, .00134, .00008, .00001, + .00001, .00003, .00003, + .04122, .01003, .00125, .00007, .00001, + .00001, .00003, .00003, + .03922, .00952, .00117, .00006, .00001, + .00001, .00003, .00002, + .03734, .00905, .00110, .00006, .00001, + .00001, .00003, .00002, + .03565, .00862, .00103, .00006, .00001, + .00001, .00003, .00003, + .03412, .00824, .00097, .00005, .00001, + .00001, .00002, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03265, .00787, .00092, .00005, .00001, + .00001, .00002, .00002, + .03127, .00753, .00087, .00005, .00001, + .00001, .00002, .00002, + .03002, .00721, .00082, .00005, .00001, + .00001, .00002, .00002, + .02888, .00693, .00078, .00004, .00001, + .00001, .00002, .00001, + .02776, .00665, .00074, .00004, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .14007, .03440, .00832, .00020, .00000, + .00000, .00007, .00005, + .13148, .03220, .00733, .00018, .00000, + .00000, .00006, .00005, + .11985, .02922, .00612, .00016, .00000, + .00000, .00005, .00005, + .11215, .02726, .00539, .00015, .00000, + .00000, .00005, .00005, + .10468, .02536, .00474, .00013, .00000, + .00000, .00004, .00004, + .09866, .02383, .00425, .00012, .00000, + .00000, .00004, .00004, + .09322, .02246, .00385, .00011, .00000, + .00000, .00004, .00004, + .08780, .02110, .00347, .00011, .00000, + .00000, .00004, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08336, .01999, .00318, .00010, .00000, + .00000, .00003, .00003, + .07931, .01898, .00292, .00010, .00000, + .00000, .00003, .00003, + .07625, .01822, .00274, .00009, .00000, + .00000, .00003, .00003, + .07018, .01671, .00240, .00008, .00000, + .00000, .00003, .00003, + .06539, .01552, .00214, .00007, .00000, + .00000, .00003, .00003, + .06049, .01431, .00190, .00006, .00000, + .00000, .00002, .00002, + .05579, .01315, .00168, .00006, .00000, + .00000, .00002, .00002, + .05187, .01219, .00151, .00005, .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=17,24)/ + .04821, .01130, .00136, .00004, .00000, + .00000, .00002, .00002, + .04539, .01061, .00125, .00004, .00000, + .00000, .00002, .00002, + .04222, .00984, .00113, .00004, .00000, + .00000, .00002, .00002, + .03960, .00921, .00103, .00004, .00000, + .00000, .00002, .00002, + .03736, .00867, .00095, .00004, .00000, + .00000, .00002, .00001, + .03472, .00804, .00086, .00003, .00000, + .00000, .00002, .00001, + .03242, .00749, .00079, .00003, .00000, + .00000, .00001, .00001, + .03041, .00701, .00072, .00003, .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=25,32)/ + .02853, .00656, .00066, .00003, .00000, + .00000, .00001, .00001, + .02683, .00615, .00061, .00002, .00000, + .00000, .00001, .00001, + .02532, .00580, .00057, .00002, .00000, + .00000, .00001, .00001, + .02397, .00548, .00053, .00001, .00000, + .00000, .00001, .00001, + .02269, .00518, .00050, .00002, .00000, + .00000, .00001, .00001, + .02151, .00490, .00046, .00002, .00000, + .00000, .00001, .00001, + .02044, .00465, .00043, .00002, .00000, + .00000, .00001, .00001, + .01948, .00442, .00041, .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)/ + .01857, .00421, .00038, .00002, .00000, + .00000, .00001, .00001, + .01771, .00401, .00036, .00002, .00000, + .00000, .00001, .00001, + .01693, .00383, .00034, .00001, .00000, + .00000, .00001, .00001, + .01623, .00366, .00033, .00001, .00000, + .00000, .00001, .00001, + .01555, .00350, .00031, .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)/ + .08837, .02025, .00285, .00006, .00000, + .00000, .00002, .00001, + .08240, .01883, .00253, .00006, .00000, + .00000, .00001, .00002, + .07437, .01693, .00214, .00005, .00000, + .00000, .00001, .00001, + .06910, .01568, .00191, .00005, .00000, + .00000, .00001, .00001, + .06403, .01449, .00169, .00005, .00000, + .00000, .00001, .00001, + .05997, .01353, .00154, .00004, .00000, + .00000, .00001, .00001, + .05633, .01268, .00140, .00004, .00000, + .00000, .00001, .00001, + .05274, .01184, .00127, .00004, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .04982, .01116, .00117, .00003, .00000, + .00000, .00001, .00000, + .04717, .01054, .00109, .00002, .00000, + .00000, .00001, .00000, + .04517, .01008, .00102, .00002, .00000, + .00000, .00001, .00001, + .04121, .00917, .00090, .00002, .00000, + .00000, .00001, .00001, + .03812, .00846, .00081, .00002, .00000, + .00000, .00001, .00001, + .03498, .00774, .00073, .00002, .00000, + .00000, .00001, .00001, + .03202, .00706, .00065, .00001, .00000, + .00000, .00000, .00000, + .02955, .00650, .00058, .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=17,24)/ + .02726, .00598, .00053, .00002, .00000, + .00000, .00000, .00000, + .02551, .00558, .00048, .00002, .00000, + .00000, .00001, .00000, + .02356, .00514, .00044, .00002, .00000, + .00000, .00000, .00000, + .02196, .00478, .00040, .00001, .00000, + .00000, .00000, .00000, + .02061, .00448, .00037, .00001, .00000, + .00000, .00000, .00000, + .01902, .00412, .00034, .00001, .00000, + .00000, .00000, .00000, + .01764, .00381, .00031, .00001, .00000, + .00000, .00000, .00000, + .01645, .00355, .00028, .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)/ + .01534, .00330, .00026, .00001, .00000, + .00000, .00000, .00000, + .01433, .00308, .00024, .00001, .00000, + .00000, .00000, .00000, + .01345, .00289, .00022, .00001, .00000, + .00000, .00000, .00000, + .01267, .00271, .00020, .00000, .00000, + .00000, .00000, .00000, + .01193, .00255, .00019, .00001, .00000, + .00000, .00000, .00000, + .01125, .00240, .00018, .00001, .00000, + .00000, .00000, .00000, + .01065, .00227, .00017, .00001, .00000, + .00000, .00000, .00000, + .01011, .00215, .00016, .00000, .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)/ + .00959, .00204, .00015, .00000, .00000, + .00000, .00000, .00000, + .00911, .00193, .00014, .00000, .00000, + .00000, .00000, .00000, + .00867, .00184, .00013, .00000, .00000, + .00000, .00000, .00000, + .00828, .00175, .00012, .00000, .00000, + .00000, .00000, .00000, + .00790, .00167, .00012, .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)/ + .05011, .01065, .00079, .00002, .00000, + .00000, .00000, .00000, + .04637, .00983, .00072, .00003, .00000, + .00000, .00000, .00000, + .04139, .00874, .00063, .00002, .00000, + .00000, .00000, .00000, + .03816, .00804, .00058, .00002, .00000, + .00000, .00000, .00000, + .03508, .00737, .00052, .00002, .00000, + .00000, .00000, .00000, + .03264, .00684, .00048, .00001, .00000, + .00000, .00000, .00000, + .03046, .00637, .00045, .00001, .00000, + .00000, .00000, .00000, + .02831, .00590, .00041, .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=9,16)/ + .02658, .00553, .00038, .00001, .00000, + .00000, .00000, .00000, + .02502, .00520, .00036, .00001, .00000, + .00000, .00000, .00000, + .02385, .00495, .00034, .00001, .00000, + .00000, .00000, .00000, + .02156, .00446, .00030, .00001, .00000, + .00000, .00000, .00000, + .01978, .00408, .00028, .00001, .00000, + .00000, .00000, .00000, + .01800, .00370, .00025, .00001, .00000, + .00000, .00000, .00000, + .01632, .00334, .00022, .00001, .00000, + .00000, .00000, .00000, + .01494, .00305, .00020, .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=17,24)/ + .01368, .00279, .00018, .00000, .00000, + .00000, .00000, .00000, + .01272, .00259, .00017, .00000, .00000, + .00000, .00000, .00000, + .01165, .00236, .00015, .00000, .00000, + .00000, .00000, .00000, + .01079, .00218, .00014, .00000, .00000, + .00000, .00000, .00000, + .01006, .00203, .00013, .00000, .00000, + .00000, .00000, .00000, + .00920, .00186, .00011, .00000, .00000, + .00000, .00000, .00000, + .00847, .00171, .00010, .00000, .00000, + .00000, .00000, .00000, + .00785, .00158, .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)/ + .00727, .00146, .00009, .00000, .00000, + .00000, .00000, .00000, + .00675, .00135, .00008, .00000, .00000, + .00000, .00000, .00000, + .00629, .00126, .00007, .00000, .00000, + .00000, .00000, .00000, + .00589, .00118, .00007, .00000, .00000, + .00000, .00000, .00000, + .00552, .00110, .00006, .00000, .00000, + .00000, .00000, .00000, + .00518, .00103, .00006, .00000, .00000, + .00000, .00000, .00000, + .00487, .00097, .00006, .00000, .00000, + .00000, .00000, .00000, + .00460, .00091, .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)/ + .00434, .00086, .00005, .00000, .00000, + .00000, .00000, .00000, + .00410, .00081, .00005, .00000, .00000, + .00000, .00000, .00000, + .00389, .00077, .00004, .00000, .00000, + .00000, .00000, .00000, + .00370, .00073, .00004, .00000, .00000, + .00000, .00000, .00000, + .00351, .00069, .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)/ + .02434, .00474, .00016, -.00001, .00000, + .00000, .00000, .00000, + .02232, .00434, .00016, .00000, .00000, + .00000, .00000, .00000, + .01967, .00381, .00015, .00000, .00000, + .00000, .00000, .00000, + .01798, .00348, .00014, .00000, .00000, + .00000, .00000, .00000, + .01637, .00316, .00013, .00000, .00000, + .00000, .00000, .00000, + .01511, .00291, .00013, .00000, .00000, + .00000, .00000, .00000, + .01399, .00269, .00012, .00000, .00000, + .00000, .00000, .00000, + .01290, .00247, .00011, .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)/ + .01203, .00230, .00010, .00000, .00000, + .00000, .00000, .00000, + .01125, .00215, .00010, .00000, .00000, + .00000, .00000, .00000, + .01067, .00203, .00009, .00000, .00000, + .00000, .00000, .00000, + .00954, .00181, .00008, .00000, .00000, + .00000, .00000, .00000, + .00867, .00164, .00008, .00000, .00000, + .00000, .00000, .00000, + .00780, .00148, .00007, .00000, .00000, + .00000, .00000, .00000, + .00701, .00132, .00006, .00000, .00000, + .00000, .00000, .00000, + .00635, .00119, .00006, .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, .00108, .00005, .00000, .00000, + .00000, .00000, .00000, + .00531, .00100, .00005, .00000, .00000, + .00000, .00000, .00000, + .00482, .00090, .00004, .00000, .00000, + .00000, .00000, .00000, + .00443, .00083, .00004, .00000, .00000, + .00000, .00000, .00000, + .00410, .00076, .00004, .00000, .00000, + .00000, .00000, .00000, + .00372, .00069, .00003, .00000, .00000, + .00000, .00000, .00000, + .00339, .00063, .00003, .00000, .00000, + .00000, .00000, .00000, + .00311, .00058, .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)/ + .00286, .00053, .00002, .00000, .00000, + .00000, .00000, .00000, + .00264, .00049, .00002, .00000, .00000, + .00000, .00000, .00000, + .00244, .00045, .00002, .00000, .00000, + .00000, .00000, .00000, + .00227, .00042, .00002, .00000, .00000, + .00000, .00000, .00000, + .00211, .00039, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00036, .00002, .00000, .00000, + .00000, .00000, .00000, + .00184, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00173, .00032, .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)/ + .00162, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00152, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00144, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00136, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00128, .00023, .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)/ + .00235, .00036, .00000, .00000, .00000, + .00000, .00000, .00000, + .00210, .00032, .00000, .00000, .00000, + .00000, .00000, .00000, + .00178, .00028, .00000, .00000, .00000, + .00000, .00000, .00000, + .00159, .00024, .00000, .00000, .00000, + .00000, .00000, .00000, + .00141, .00022, .00000, .00000, .00000, + .00000, .00000, .00000, + .00127, .00019, .00000, .00000, .00000, + .00000, .00000, .00000, + .00115, .00018, .00000, .00000, .00000, + .00000, .00000, .00000, + .00103, .00016, .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=9,16)/ + .00094, .00014, .00000, .00000, .00000, + .00000, .00000, .00000, + .00087, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00081, .00012, .00000, .00000, .00000, + .00000, .00000, .00000, + .00070, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00062, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00054, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00047, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00006, .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)/ + .00037, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00003, .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, + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .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, + .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 / 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='cor04.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