#include "pdf/pilot.h" subroutine sfmrs_99d6(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu) C #include "pdf/impdp.inc" C parameter(nx=49,nq=37,ntenth=23,np=8) C #include "pdf/expdp.inc" + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00615, .00233, 1.18742, .88462, .00000, + .00000, .47582, .89645, + .00628, .00238, 2.47429, .92749, .00000, + .00000, .52328, .93941, + .00647, .00246, 4.95666, 1.01511, .02005, + .00000, .61748, 1.02715, + .00662, .00252, 7.32631, 1.09612, .07247, + .00000, .70313, 1.10824, + .00677, .00259, 10.22125, 1.19748, .19449, + .00000, .80920, 1.20968, + .00690, .00264, 13.20272, 1.30080, .30244, + .00000, .91650, 1.31304, + .00703, .00270, 16.55077, 1.41189, .42313, + .00000, 1.03131, 1.42417, + .00717, .00276, 20.66549, 1.54356, .56858, + .00000, 1.16688, 1.55589 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00729, .00281, 24.70079, 1.67129, .70549, + .00000, 1.29791, 1.68364, + .00741, .00286, 29.00712, 1.80656, .84829, + .00000, 1.43633, 1.81894, + .00750, .00291, 32.80552, 1.92159, .97421, + .00000, 1.55382, 1.93399, + .00770, .00299, 42.08153, 2.19450, 1.26372, + .00000, 1.83184, 2.20692, + .00789, .00307, 49.73287, 2.45719, 1.53956, + .39823, 2.09880, 2.46962, + .00810, .00317, 60.16879, 2.78535, 1.88473, + .79034, 2.43166, 2.79780, + .00831, .00327, 72.43321, 3.16542, 2.28355, + 1.20753, 2.81648, 3.17787, + .00851, .00336, 84.82822, 3.54620, 2.68211, + 1.62384, 3.20146, 3.55865 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00872, .00346, 98.62429, 3.96741, 3.12262, + 2.08271, 3.62682, 3.97984, + .00889, .00353, 111.08139, 4.34639, 3.51845, + 2.49396, 4.00916, 4.35880, + .00910, .00363, 127.29635, 4.84187, 4.03179, + 3.01994, 4.50866, 4.85426, + .00929, .00373, 142.80643, 5.31537, 4.52271, + 3.52529, 4.98561, 5.32773, + .00947, .00381, 158.09883, 5.78081, 5.00706, + 4.02766, 5.45418, 5.79315, + .00969, .00392, 178.56485, 6.41092, 5.65626, + 4.69032, 6.08816, 6.42322, + .00991, .00402, 199.19622, 7.04821, 6.31310, + 5.36273, 6.72901, 7.06047, + .01011, .00412, 219.83726, 7.68726, 6.97277, + 6.04051, 7.37135, 7.69949 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01032, .00422, 241.47677, 8.36415, 7.66812, + 6.75033, 8.05144, 8.37634, + .01052, .00432, 263.77361, 9.06612, 8.38876, + 7.48620, 8.75649, 9.07825, + .01072, .00442, 286.06969, 9.77036, 9.11289, + 8.22799, 9.46360, 9.78246, + .01090, .00450, 307.67033, 10.46237, 9.82033, + 8.94716, 10.15826, 10.47443, + .01109, .00460, 330.59948, 11.19700, 10.57426, + 9.71858, 10.89552, 11.20901, + .01128, .00469, 353.61950, 11.94591, 11.33847, + 10.49468, 11.64697, 11.95787, + .01146, .00479, 376.66172, 12.69565, 12.10632, + 11.27912, 12.39907, 12.70757, + .01164, .00487, 398.75664, 13.42569, 12.85016, + 12.03386, 13.13134, 13.43756 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01181, .00496, 422.11970, 14.19769, 13.63930, + 12.83869, 13.90553, 14.20952, + .01199, .00504, 445.46095, 14.98009, 14.43586, + 13.64698, 14.69010, 14.99188, + .01216, .00513, 468.59368, 15.75776, 15.22885, + 14.45376, 15.46978, 15.76950, + .01232, .00521, 490.99994, 16.51767, 16.00279, + 15.24023, 16.23158, 16.52937, + .01248, .00530, 514.11537, 17.30851, 16.80721, + 16.05655, 17.02431, 17.32017 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00839, .00329, 1.09428, .75578, .00000, + .00000, .40646, .76275, + .00857, .00336, 2.25358, .79487, .00000, + .00000, .44914, .80189, + .00883, .00347, 4.44000, .87168, .01829, + .00000, .53110, .87876, + .00904, .00357, 6.48696, .94108, .06267, + .00000, .60412, .94821, + .00925, .00366, 8.94612, 1.02657, .16558, + .00000, .69328, 1.03372, + .00944, .00374, 11.44145, 1.11252, .25534, + .00000, .78233, 1.11971, + .00961, .00382, 14.20983, 1.20415, .35477, + .00000, .87688, 1.21135, + .00981, .00390, 17.57209, 1.31189, .47356, + .00000, .98763, 1.31912 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00997, .00398, 20.83230, 1.41554, .58438, + .00000, 1.09387, 1.42279, + .01013, .00406, 24.27687, 1.52454, .69911, + .00000, 1.20531, 1.53181, + .01027, .00412, 27.29194, 1.61681, .79976, + .00000, 1.29948, 1.62408, + .01054, .00424, 34.57703, 1.83390, 1.02913, + .00000, 1.52053, 1.84118, + .01079, .00436, 40.47554, 2.04096, 1.24559, + .31308, 1.73090, 2.04824, + .01107, .00449, 48.44468, 2.29741, 1.51403, + .61829, 1.99100, 2.30471, + .01137, .00464, 57.69007, 2.59173, 1.82131, + .93937, 2.28899, 2.59903, + .01164, .00477, 66.92143, 2.88407, 2.12569, + 1.25688, 2.58459, 2.89137 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01192, .00491, 77.08252, 3.20488, 2.45942, + 1.60392, 2.90861, 3.21218, + .01216, .00502, 86.16717, 3.49146, 2.75712, + 1.91263, 3.19780, 3.49875, + .01245, .00516, 97.87404, 3.86337, 3.14029, + 2.30433, 3.57279, 3.87063, + .01270, .00529, 108.96494, 4.21623, 3.50416, + 2.67803, 3.92834, 4.22349, + .01294, .00540, 119.81133, 4.56098, 3.86102, + 3.04737, 4.27549, 4.56823, + .01325, .00556, 134.18729, 5.02429, 4.33576, + 3.53068, 4.74180, 5.03153, + .01354, .00570, 148.54371, 5.48951, 4.81274, + 4.01770, 5.20978, 5.49673, + .01381, .00584, 162.78591, 5.95299, 5.28875, + 4.50557, 5.67580, 5.96019 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01410, .00597, 177.58876, 6.44065, 5.78715, + 5.01298, 6.16594, 6.44783, + .01437, .00611, 192.71997, 6.94324, 6.30054, + 5.53583, 6.67091, 6.95041, + .01464, .00625, 207.74295, 7.44461, 6.81363, + 6.06011, 7.17449, 7.45175, + .01489, .00637, 222.18463, 7.93434, 7.31183, + 6.56516, 7.66627, 7.94145, + .01514, .00650, 237.42505, 8.45173, 7.84043, + 7.10468, 8.18569, 8.45883, + .01539, .00663, 252.61184, 8.97617, 8.37306, + 7.64409, 8.71209, 8.98324, + .01564, .00676, 267.73299, 9.49886, 8.90609, + 8.18730, 9.23662, 9.50591, + .01587, .00688, 282.13318, 10.00515, 9.41964, + 8.70693, 9.74463, 10.01219 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01611, .00700, 297.28948, 10.53845, 9.96253, + 9.25925, 10.27964, 10.54547, + .01634, .00711, 312.33387, 11.07624, 10.50769, + 9.81096, 10.81909, 11.08323, + .01657, .00724, 327.17494, 11.60870, 11.04846, + 10.35976, 11.35312, 11.61567, + .01679, .00735, 341.47441, 12.12684, 11.57406, + 10.89252, 11.87273, 12.13379, + .01700, .00746, 356.15206, 12.66390, 12.11817, + 11.44326, 12.41126, 12.67084 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01146, .00462, 1.00739, .64594, .00000, + .00000, .34777, .64954, + .01170, .00473, 2.05174, .68135, .00000, + .00000, .38598, .68496, + .01207, .00490, 3.97629, .74849, .01687, + .00000, .45715, .75213, + .01234, .00503, 5.74311, .80783, .05435, + .00000, .51930, .81147, + .01263, .00516, 7.82947, .87976, .14101, + .00000, .59409, .88342, + .01288, .00529, 9.91450, .95112, .21553, + .00000, .66784, .95477, + .01313, .00541, 12.19916, 1.02649, .29731, + .00000, .74549, 1.03017, + .01339, .00553, 14.94053, 1.11440, .39416, + .00000, .83575, 1.11809 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01361, .00564, 17.56795, 1.19828, .48371, + .00000, .92160, 1.20197, + .01384, .00575, 20.31566, 1.28582, .57571, + .00000, 1.01104, 1.28951, + .01402, .00583, 22.70203, 1.35959, .65601, + .00000, 1.08628, 1.36328, + .01440, .00602, 28.40620, 1.53164, .83736, + .00000, 1.26140, 1.53534, + .01474, .00619, 32.93535, 1.69423, 1.00685, + .24551, 1.42654, 1.69793, + .01513, .00638, 38.99622, 1.89385, 1.21517, + .48285, 1.62896, 1.89756, + .01554, .00657, 45.93543, 2.12082, 1.45135, + .72968, 1.85877, 2.12453, + .01591, .00676, 52.77853, 2.34430, 1.68323, + .97155, 2.08475, 2.34801 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01630, .00696, 60.22545, 2.58756, 1.93537, + 1.23367, 2.33046, 2.59126, + .01661, .00712, 66.81641, 2.80326, 2.15865, + 1.46508, 2.54818, 2.80696, + .01701, .00732, 75.22218, 3.08108, 2.44381, + 1.75633, 2.82837, 3.08478, + .01735, .00749, 83.10771, 3.34277, 2.71266, + 2.03220, 3.09211, 3.34646, + .01768, .00766, 90.75533, 3.59685, 2.97475, + 2.30325, 3.34804, 3.60055, + .01810, .00787, 100.79035, 3.93578, 3.32075, + 2.65504, 3.68926, 3.93946, + .01849, .00807, 110.71546, 4.27362, 3.66587, + 3.00702, 4.02921, 4.27730, + .01887, .00826, 120.47677, 4.60796, 4.00808, + 3.35737, 4.36549, 4.61164 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01925, .00845, 130.53182, 4.95738, 4.36394, + 3.71918, 4.71680, 4.96105, + .01961, .00865, 140.72599, 5.31520, 4.72821, + 4.08968, 5.07645, 5.31888, + .01998, .00883, 150.77346, 5.67012, 5.09028, + 4.45922, 5.43306, 5.67379, + .02031, .00901, 160.35383, 6.01467, 5.43961, + 4.81281, 5.77918, 6.01833, + .02066, .00919, 170.40427, 6.37693, 5.80861, + 5.18899, 6.14300, 6.38058, + .02099, .00937, 180.34084, 6.74195, 6.17814, + 5.56266, 6.50952, 6.74560, + .02132, .00954, 190.18158, 7.10414, 6.54644, + 5.93755, 6.87313, 7.10779, + .02164, .00971, 199.48521, 7.45308, 6.89928, + 6.29402, 7.22336, 7.45672 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02195, .00987, 209.23219, 7.81917, 7.27094, + 6.67168, 7.59077, 7.82280, + .02227, .01004, 218.84058, 8.18645, 7.64217, + 7.04681, 7.95932, 8.19008, + .02257, .01020, 228.27479, 8.54867, 8.00904, + 7.41867, 8.32275, 8.55231, + .02285, .01035, 237.31477, 8.89964, 8.36411, + 7.77810, 8.67484, 8.90327, + .02315, .01051, 246.54461, 9.26192, 8.73018, + 8.14812, 9.03825, 9.26555 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01372, .00565, .95917, .58947, .00000, + .00000, .31781, .59168, + .01401, .00578, 1.94176, .62277, .00000, + .00000, .35355, .62499, + .01447, .00600, 3.72741, .68472, .01621, + .00000, .41897, .68694, + .01480, .00615, 5.34794, .73876, .05010, + .00000, .47546, .74099, + .01515, .00632, 7.24194, .80369, .12840, + .00000, .54285, .80592, + .01545, .00647, 9.11749, .86758, .19515, + .00000, .60882, .86981, + .01574, .00662, 11.15742, .93472, .26801, + .00000, .67792, .93695, + .01606, .00677, 13.58747, 1.01263, .35386, + .00000, .75784, 1.01486 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01634, .00691, 15.90030, 1.08659, .43280, + .00000, .83352, 1.08882, + .01661, .00704, 18.30420, 1.16346, .51356, + .00000, .91201, 1.16569, + .01681, .00714, 20.38234, 1.22804, .58384, + .00000, .97786, 1.23027, + .01728, .00738, 25.31789, 1.37791, .74172, + .00000, 1.13036, 1.38015, + .01769, .00758, 29.19080, 1.51876, .88842, + .21255, 1.27341, 1.52100, + .01816, .00782, 34.34392, 1.69078, 1.06777, + .41728, 1.44783, 1.69302, + .01864, .00806, 40.19728, 1.88529, 1.26998, + .62876, 1.64477, 1.88754, + .01910, .00829, 45.92671, 2.07580, 1.46744, + .83486, 1.83744, 2.07805 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01955, .00853, 52.11926, 2.28219, 1.68111, + 1.05709, 2.04593, 2.28444, + .01993, .00873, 57.56677, 2.46440, 1.86950, + 1.25242, 2.22986, 2.46666, + .02040, .00897, 64.47101, 2.69802, 2.10898, + 1.49706, 2.46551, 2.70028, + .02083, .00919, 70.90985, 2.91714, 2.33380, + 1.72780, 2.68638, 2.91939, + .02122, .00938, 77.12338, 3.12910, 2.55220, + 1.95371, 2.89993, 3.13136, + .02171, .00965, 85.22731, 3.41058, 2.83918, + 2.24549, 3.18336, 3.41284, + .02218, .00989, 93.19602, 3.68994, 3.12421, + 2.53618, 3.46452, 3.69221, + .02263, .01013, 100.99269, 3.96533, 3.40574, + 2.82444, 3.74157, 3.96759 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02308, .01036, 108.98062, 4.25195, 3.69731, + 3.12086, 4.02982, 4.25422, + .02352, .01060, 117.03895, 4.54439, 3.99466, + 3.42327, 4.32380, 4.54666, + .02395, .01082, 124.94666, 4.83345, 4.28924, + 3.72393, 4.61432, 4.83573, + .02435, .01103, 132.44915, 5.11303, 4.57236, + 4.01046, 4.89524, 5.11531, + .02476, .01125, 140.29232, 5.40616, 4.87065, + 4.31456, 5.18970, 5.40845, + .02517, .01147, 148.00898, 5.70048, 5.16826, + 4.61542, 5.48529, 5.70276, + .02555, .01167, 155.62731, 5.99175, 5.46417, + 4.91662, 5.77777, 5.99403, + .02592, .01187, 162.79721, 6.27143, 5.74667, + 5.20197, 6.05856, 6.27372 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02630, .01206, 170.28842, 6.56418, 6.04363, + 5.50370, 6.35245, 6.56648, + .02667, .01227, 177.64180, 6.85698, 6.33927, + 5.80239, 6.64632, 6.85927, + .02703, .01246, 184.84161, 7.14507, 6.63082, + 6.09786, 6.93544, 7.14737, + .02737, .01265, 191.71724, 7.42350, 6.91225, + 6.38271, 7.21483, 7.42580, + .02772, .01282, 198.71449, 7.71019, 7.20168, + 6.67521, 7.50249, 7.71250 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01561, .00651, .92617, .55256, .00000, + .00000, .29833, .55402, + .01594, .00667, 1.86725, .58440, .00000, + .00000, .33237, .58584, + .01644, .00691, 3.56030, .64282, .01581, + .00000, .39395, .64427, + .01682, .00710, 5.08422, .69335, .04732, + .00000, .44669, .69481, + .01722, .00731, 6.85211, .75367, .12014, + .00000, .50925, .75513, + .01757, .00748, 8.59119, .81269, .18183, + .00000, .57014, .81415, + .01791, .00763, 10.47265, .87448, .24891, + .00000, .63368, .87595, + .01827, .00782, 12.70219, .94593, .32768, + .00000, .70695, .94739 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01859, .00799, 14.81352, 1.01351, .39982, + .00000, .77608, 1.01497, + .01889, .00813, 16.99830, 1.08352, .47339, + .00000, .84755, 1.08497, + .01914, .00826, 18.88067, 1.14222, .53728, + .00000, .90740, 1.14368, + .01966, .00853, 23.33080, 1.27796, .68027, + .00000, 1.04550, 1.27942, + .02013, .00876, 26.79309, 1.40502, .81259, + .19166, 1.17454, 1.40650, + .02066, .00903, 31.38079, 1.55963, .97374, + .37591, 1.33129, 1.56110, + .02122, .00932, 36.56211, 1.73375, 1.15470, + .56532, 1.50760, 1.73522, + .02172, .00958, 41.60649, 1.90367, 1.33074, + .74921, 1.67945, 1.90515 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02225, .00986, 47.03173, 2.08708, 1.52057, + .94677, 1.86475, 2.08858, + .02269, .01008, 51.78334, 2.24852, 1.68741, + 1.11986, 2.02773, 2.25001, + .02322, .01037, 57.77837, 2.45483, 1.89881, + 1.33591, 2.23586, 2.45633, + .02369, .01062, 63.34546, 2.64774, 2.09665, + 1.53906, 2.43034, 2.64924, + .02414, .01084, 68.69852, 2.83386, 2.28834, + 1.73745, 2.61787, 2.83537, + .02470, .01114, 75.64932, 3.08023, 2.53938, + 1.99278, 2.86600, 3.08174, + .02524, .01142, 82.45552, 3.32397, 2.78797, + 2.24639, 3.11136, 3.32548, + .02574, .01170, 89.08976, 3.56358, 3.03282, + 2.49719, 3.35246, 3.56511 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02626, .01197, 95.85997, 3.81224, 3.28565, + 2.75430, 3.60256, 3.81378, + .02675, .01223, 102.66538, 4.06524, 3.54280, + 3.01591, 3.85696, 4.06680, + .02723, .01249, 109.32247, 4.31473, 3.79696, + 3.27540, 4.10774, 4.31629, + .02770, .01273, 115.61537, 4.55539, 4.04055, + 3.52197, 4.34960, 4.55696, + .02815, .01298, 122.17743, 4.80719, 4.29671, + 3.78320, 4.60259, 4.80877, + .02862, .01322, 128.61071, 5.05936, 4.55159, + 4.04092, 4.85591, 5.06095, + .02905, .01346, 134.94752, 5.30846, 4.80459, + 4.29852, 5.10609, 5.31005, + .02947, .01369, 140.89171, 5.54708, 5.04551, + 4.54190, 5.34571, 5.54868 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02989, .01391, 147.09011, 5.79644, 5.29839, + 4.79893, 5.59607, 5.79805, + .03031, .01415, 153.15515, 6.04528, 5.54955, + 5.05271, 5.84588, 6.04690, + .03071, .01436, 159.08155, 6.28970, 5.79685, + 5.30340, 6.09122, 6.29134, + .03110, .01457, 164.72715, 6.52550, 6.03512, + 5.54462, 6.32788, 6.52715, + .03149, .01478, 170.45891, 6.76787, 6.27972, + 5.79186, 6.57110, 6.76952 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01724, .00728, .90154, .52561, .00000, + .00000, .28416, .52656, + .01762, .00746, 1.81172, .55630, .00000, + .00000, .31690, .55727, + .01818, .00774, 3.43608, .61211, .01554, + .00000, .37562, .61307, + .01859, .00795, 4.88895, .66005, .04530, + .00000, .42560, .66101, + .01904, .00816, 6.56465, .71700, .11409, + .00000, .48461, .71796, + .01942, .00836, 8.20446, .77246, .17210, + .00000, .54181, .77342, + .01980, .00855, 9.97103, .83037, .23500, + .00000, .60134, .83132, + .02019, .00875, 12.05588, .89712, .30862, + .00000, .66978, .89809 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02054, .00893, 14.02237, .96009, .37587, + .00000, .73418, .96106, + .02088, .00910, 16.05012, 1.02517, .44428, + .00000, .80061, 1.02615, + .02116, .00924, 17.79266, 1.07966, .50359, + .00000, .85614, 1.08063, + .02174, .00953, 21.89743, 1.20528, .63594, + .00000, .98395, 1.20626, + .02225, .00980, 25.06995, 1.32250, .75803, + .17674, 1.10300, 1.32348, + .02284, .01010, 29.25987, 1.46472, .90627, + .34648, 1.24720, 1.46570, + .02346, .01043, 33.97059, 1.62439, 1.07221, + .52031, 1.40888, 1.62539, + .02402, .01073, 38.53734, 1.77975, 1.23316, + .68856, 1.56602, 1.78075 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02459, .01103, 43.42977, 1.94701, 1.40625, + .86884, 1.73502, 1.94802, + .02507, .01128, 47.69993, 2.09385, 1.55801, + 1.02637, 1.88329, 2.09488, + .02566, .01160, 53.06824, 2.28104, 1.74978, + 1.22248, 2.07215, 2.28208, + .02620, .01187, 58.03660, 2.45564, 1.92884, + 1.40644, 2.24821, 2.45669, + .02668, .01213, 62.80043, 2.62376, 2.10198, + 1.58574, 2.41764, 2.62482, + .02730, .01247, 68.96450, 2.84573, 2.32813, + 1.81586, 2.64122, 2.84680, + .02789, .01277, 74.98033, 3.06481, 2.55151, + 2.04388, 2.86178, 3.06589, + .02845, .01307, 80.82685, 3.27969, 2.77108, + 2.26889, 3.07803, 3.28078 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02901, .01337, 86.77455, 3.50218, 2.99727, + 2.49901, 3.30185, 3.50328, + .02957, .01368, 92.73605, 3.72807, 3.22684, + 2.73266, 3.52904, 3.72920, + .03009, .01396, 98.55317, 3.95041, 3.45332, + 2.96400, 3.75256, 3.95155, + .03059, .01423, 104.03600, 4.16441, 3.66991, + 3.18331, 3.96767, 4.16557, + .03110, .01451, 109.74205, 4.38799, 3.89733, + 3.41535, 4.19234, 4.38915, + .03160, .01477, 115.32008, 4.61141, 4.12314, + 3.64374, 4.41683, 4.61259, + .03209, .01504, 120.80491, 4.83181, 4.34698, + 3.87176, 4.63822, 4.83301, + .03255, .01528, 125.93602, 5.04254, 4.55971, + 4.08673, 4.84987, 5.04375 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03302, .01554, 131.27851, 5.26248, 4.78275, + 4.31352, 5.07072, 5.26370, + .03347, .01579, 136.49279, 5.48154, 5.00384, + 4.53700, 5.29069, 5.48278, + .03392, .01603, 141.57976, 5.69647, 5.22128, + 4.75750, 5.50645, 5.69771, + .03434, .01627, 146.41624, 5.90349, 5.43047, + 4.96936, 5.71427, 5.90475, + .03477, .01650, 151.31690, 6.11597, 5.64490, + 5.18617, 5.92754, 6.11726 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02356, .01032, .82882, .45070, .00000, + .00000, .24520, .45086, + .02406, .01058, 1.65005, .47793, .00000, + .00000, .27405, .47809, + .02483, .01098, 3.07787, .52601, .01493, + .00000, .32446, .52618, + .02541, .01127, 4.32961, .56651, .03968, + .00000, .36658, .56668, + .02601, .01159, 5.74643, .61388, .09716, + .00000, .41560, .61408, + .02654, .01186, 7.10986, .65941, .14488, + .00000, .46249, .65961, + .02704, .01212, 8.55896, .70650, .19617, + .00000, .51087, .70671, + .02760, .01242, 10.24672, .76033, .25568, + .00000, .56603, .76055 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02807, .01267, 11.81851, .81065, .30955, + .00000, .61749, .81088, + .02854, .01291, 13.42120, .86226, .36392, + .00000, .67015, .86249, + .02890, .01312, 14.78696, .90525, .41082, + .00000, .71398, .90549, + .02970, .01353, 17.96734, 1.00351, .51453, + .00000, .81396, 1.00377, + .03041, .01391, 20.37314, 1.09431, .60927, + .13645, .90618, 1.09459, + .03120, .01434, 23.51636, 1.20345, .72322, + .26766, 1.01689, 1.20375, + .03204, .01480, 26.99939, 1.32478, .84952, + .40043, 1.13981, 1.32512, + .03280, .01521, 30.33021, 1.44176, .97089, + .52776, 1.25818, 1.44212 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03359, .01564, 33.85420, 1.56662, 1.10028, + .66297, 1.38441, 1.56700, + .03424, .01599, 36.89589, 1.67541, 1.21285, + .78020, 1.49432, 1.67582, + .03504, .01643, 40.67586, 1.81297, 1.35393, + .92489, 1.63318, 1.81339, + .03576, .01682, 44.13657, 1.94029, 1.48465, + 1.05959, 1.76163, 1.94074, + .03641, .01717, 47.42487, 2.06210, 1.61026, + 1.19007, 1.88447, 2.06258, + .03725, .01764, 51.63143, 2.22163, 1.77296, + 1.35606, 2.04527, 2.22215, + .03805, .01808, 55.69317, 2.37787, 1.93244, + 1.51929, 2.20267, 2.37842, + .03880, .01849, 59.60317, 2.53005, 2.08812, + 1.67929, 2.35592, 2.53064 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03956, .01891, 63.54044, 2.68648, 2.24730, + 1.84164, 2.51339, 2.68709, + .04030, .01932, 67.45070, 2.84423, 2.40778, + 2.00539, 2.67214, 2.84488, + .04102, .01971, 71.23573, 2.99856, 2.56517, + 2.16659, 2.82741, 2.99924, + .04169, .02009, 74.76895, 3.14611, 2.71463, + 2.31828, 2.97581, 3.14681, + .04236, .02047, 78.42316, 3.29949, 2.87084, + 2.47809, 3.13005, 3.30023, + .04304, .02084, 81.96154, 3.45177, 3.02488, + 2.63424, 3.28315, 3.45254, + .04368, .02119, 85.42147, 3.60130, 3.17694, + 2.78953, 3.43345, 3.60210, + .04429, .02154, 88.62943, 3.74340, 3.32050, + 2.93493, 3.57627, 3.74422 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04491, .02188, 91.95372, 3.89111, 3.47049, + 3.08783, 3.72471, 3.89197, + .04552, .02223, 95.17057, 4.03739, 3.61826, + 3.23753, 3.87169, 4.03827, + .04611, .02256, 98.29312, 4.18032, 3.76302, + 3.38468, 4.01527, 4.18124, + .04668, .02287, 101.24234, 4.31734, 3.90164, + 3.52540, 4.15293, 4.31829, + .04725, .02319, 104.21192, 4.45736, 4.04309, + 3.66873, 4.29355, 4.45833 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03233, .01473, .76464, .38808, .00000, + .00000, .21324, .38832, + .03302, .01509, 1.50713, .41184, .00000, + .00000, .23834, .41209, + .03404, .01564, 2.76122, .45273, .01465, + .00000, .28114, .45302, + .03481, .01605, 3.83818, .48654, .03493, + .00000, .31628, .48686, + .03563, .01650, 5.03286, .52555, .08256, + .00000, .35663, .52591, + .03634, .01688, 6.16204, .56255, .12151, + .00000, .39474, .56292, + .03703, .01725, 7.34499, .60046, .16299, + .00000, .43370, .60087, + .03777, .01766, 8.70354, .64342, .21071, + .00000, .47774, .64386 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03842, .01801, 9.95163, .68323, .25351, + .00000, .51848, .68370, + .03905, .01836, 11.20909, .72375, .29637, + .00000, .55986, .72424, + .03955, .01864, 12.27122, .75733, .33317, + .00000, .59413, .75785, + .04063, .01924, 14.71471, .83340, .41379, + .00000, .67159, .83396, + .04158, .01977, 16.52144, .90301, .48671, + .10370, .74236, .90362, + .04266, .02036, 18.85364, .98589, .57359, + .20447, .82652, .98655, + .04379, .02100, 21.39821, 1.07711, .66891, + .30521, .91903, 1.07784, + .04483, .02159, 23.79625, 1.16423, .75963, + .40088, 1.00727, 1.16499 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04588, .02218, 26.29959, 1.25639, .85549, + .50157, 1.10055, 1.25721, + .04677, .02267, 28.43465, 1.33605, .93823, + .58817, 1.18112, 1.33693, + .04784, .02328, 31.05500, 1.43593, 1.04103, + .69410, 1.28207, 1.43687, + .04880, .02383, 33.42629, 1.52766, 1.13553, + .79196, 1.37472, 1.52865, + .04969, .02432, 35.65777, 1.61483, 1.22574, + .88614, 1.46273, 1.61587, + .05081, .02496, 38.47695, 1.72804, 1.34155, + 1.00485, 1.57695, 1.72913, + .05188, .02556, 41.16781, 1.83802, 1.45419, + 1.12067, 1.68787, 1.83917, + .05289, .02614, 43.73174, 1.94437, 1.56335, + 1.23340, 1.79511, 1.94558 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05391, .02672, 46.28481, 2.05285, 1.67408, + 1.34685, 1.90443, 2.05411, + .05490, .02729, 48.79493, 2.16147, 1.78494, + 1.46049, 2.01387, 2.16280, + .05585, .02782, 51.20378, 2.26708, 1.89299, + 1.57168, 2.12024, 2.26846, + .05675, .02833, 53.42816, 2.36732, 1.99483, + 1.67549, 2.22118, 2.36876, + .05766, .02886, 55.71360, 2.47099, 2.10077, + 1.78437, 2.32555, 2.47247, + .05855, .02936, 57.90277, 2.57319, 2.20443, + 1.88992, 2.42843, 2.57473, + .05940, .02985, 60.03102, 2.67308, 2.30634, + 1.99448, 2.52895, 2.67467, + .06022, .03031, 61.98388, 2.76737, 2.40190, + 2.09167, 2.62383, 2.76901 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06105, .03078, 63.99776, 2.86500, 2.50135, + 2.19351, 2.72205, 2.86670, + .06186, .03125, 65.92729, 2.96107, 2.59867, + 2.29252, 2.81869, 2.96282, + .06264, .03169, 67.79029, 3.05456, 2.69365, + 2.38950, 2.91271, 3.05634, + .06338, .03211, 69.53675, 3.14371, 2.78412, + 2.48174, 3.00239, 3.14556, + .06414, .03254, 71.28244, 3.23439, 2.87599, + 2.57524, 3.09357, 3.23627 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03896, .01817, .73441, .35657, .00000, + .00000, .19745, .35719, + .03976, .01859, 1.43520, .37829, .00000, + .00000, .22038, .37895, + .04097, .01926, 2.59679, .41519, .01458, + .00000, .25897, .41590, + .04190, .01977, 3.58174, .44538, .03245, + .00000, .29037, .44613, + .04286, .02031, 4.66054, .47997, .07489, + .00000, .32617, .48077, + .04371, .02077, 5.66878, .51251, .10926, + .00000, .35972, .51337, + .04452, .02124, 6.71545, .54569, .14569, + .00000, .39384, .54659, + .04541, .02173, 7.90693, .58310, .18740, + .00000, .43223, .58405 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04618, .02216, 8.99225, .61760, .22460, + .00000, .46756, .61858, + .04692, .02258, 10.07753, .65254, .26170, + .00000, .50328, .65356, + .04752, .02292, 10.98916, .68143, .29344, + .00000, .53279, .68249, + .04881, .02365, 13.07067, .74650, .36264, + .00000, .59913, .74763, + .04994, .02430, 14.58832, .80569, .42485, + .08736, .65938, .80690, + .05123, .02503, 16.53168, .87579, .49855, + .17329, .73061, .87706, + .05258, .02580, 18.63142, .95246, .57893, + .25857, .80846, .95381, + .05381, .02650, 20.59207, 1.02527, .65499, + .33910, .88228, 1.02669 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05508, .02723, 22.62160, 1.10188, .73492, + .42338, .95990, 1.10338, + .05612, .02783, 24.33955, 1.16778, .80357, + .49551, 1.02662, 1.16934, + .05741, .02856, 26.43124, 1.24997, .88842, + .58327, 1.10979, 1.25162, + .05854, .02921, 28.31022, 1.32510, .96605, + .66397, 1.18576, 1.32681, + .05960, .02982, 30.06772, 1.39620, 1.03985, + .74132, 1.25761, 1.39798, + .06093, .03059, 32.27023, 1.48805, 1.13409, + .83827, 1.35040, 1.48992, + .06220, .03133, 34.35712, 1.57685, 1.22529, + .93240, 1.44005, 1.57881, + .06340, .03201, 36.33270, 1.66234, 1.31329, + 1.02362, 1.52634, 1.66437 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06459, .03270, 38.28558, 1.74912, 1.40212, + 1.11498, 1.61390, 1.75122, + .06577, .03338, 40.19325, 1.83564, 1.49066, + 1.20607, 1.70116, 1.83782, + .06689, .03403, 42.01394, 1.91942, 1.57664, + 1.29489, 1.78565, 1.92168, + .06795, .03464, 43.68311, 1.99860, 1.65728, + 1.37739, 1.86546, 2.00092, + .06903, .03526, 45.39113, 2.08023, 1.74094, + 1.46369, 1.94773, 2.08263, + .07008, .03586, 47.01530, 2.16034, 1.82242, + 1.54695, 2.02846, 2.16281, + .07109, .03644, 48.58868, 2.23841, 1.90231, + 1.62922, 2.10711, 2.24095, + .07205, .03700, 50.02223, 2.31182, 1.97687, + 1.70534, 2.18105, 2.31441 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07301, .03755, 51.49623, 2.38762, 2.05431, + 1.78494, 2.25740, 2.39028, + .07397, .03811, 52.89888, 2.46191, 2.12978, + 1.86199, 2.33222, 2.46464, + .07488, .03863, 54.24860, 2.53401, 2.20323, + 1.93727, 2.40482, 2.53681, + .07576, .03913, 55.50748, 2.60257, 2.27299, + 2.00866, 2.47385, 2.60543, + .07664, .03965, 56.75969, 2.67206, 2.34360, + 2.08078, 2.54381, 2.67497 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04447, .02106, .71986, .33599, .00000, + .00000, .18728, .33712, + .04537, .02156, 1.39265, .35628, .00000, + .00000, .20870, .35745, + .04674, .02232, 2.49184, .39046, .01452, + .00000, .24447, .39170, + .04778, .02290, 3.41501, .41825, .03074, + .00000, .27337, .41954, + .04887, .02353, 4.41648, .44993, .06973, + .00000, .30616, .45127, + .04982, .02407, 5.34456, .47956, .10109, + .00000, .33674, .48096, + .05075, .02459, 6.30146, .50967, .13421, + .00000, .36772, .51112, + .05175, .02517, 7.38357, .54350, .17200, + .00000, .40247, .54501 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05262, .02567, 8.36296, .57458, .20558, + .00000, .43432, .57613, + .05347, .02615, 9.33683, .60595, .23896, + .00000, .46642, .60755, + .05416, .02654, 10.15148, .63183, .26746, + .00000, .49288, .63348, + .05561, .02739, 12.00116, .68993, .32935, + .00000, .55214, .69166, + .05689, .02813, 13.33548, .74254, .38476, + .07695, .60574, .74435, + .05835, .02896, 15.03372, .80457, .45014, + .15348, .66885, .80647, + .05988, .02985, 16.85520, .87213, .52110, + .22902, .73750, .87414, + .06127, .03066, 18.54425, .93601, .58797, + .30004, .80233, .93810 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06269, .03149, 20.28151, 1.00296, .65797, + .37409, .87021, 1.00513, + .06388, .03218, 21.74371, 1.06034, .71787, + .43722, .92838, 1.06259, + .06533, .03302, 23.51331, 1.13163, .79163, + .51374, 1.00057, 1.13398, + .06661, .03376, 25.09412, 1.19656, .85885, + .58384, 1.06629, 1.19899, + .06780, .03446, 26.56594, 1.25782, .92259, + .65086, 1.12826, 1.26032, + .06931, .03534, 28.39907, 1.33664, 1.00363, + .73449, 1.20797, 1.33926, + .07074, .03617, 30.12627, 1.41257, 1.08177, + .81539, 1.28471, 1.41528, + .07209, .03695, 31.75328, 1.48542, 1.15694, + .89356, 1.35831, 1.48822 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07344, .03774, 33.35260, 1.55911, 1.23253, + .97153, 1.43272, 1.56200, + .07476, .03851, 34.90718, 1.63233, 1.30762, + 1.04904, 1.50665, 1.63531, + .07602, .03925, 36.38468, 1.70304, 1.38035, + 1.12440, 1.57802, 1.70611, + .07721, .03993, 37.73156, 1.76962, 1.44830, + 1.19414, 1.64520, 1.77278, + .07841, .04063, 39.10561, 1.83811, 1.51866, + 1.26696, 1.71430, 1.84134, + .07960, .04132, 40.40467, 1.90509, 1.58693, + 1.33694, 1.78187, 1.90841, + .08072, .04198, 41.65977, 1.97024, 1.65374, + 1.40596, 1.84758, 1.97364, + .08180, .04259, 42.79683, 2.03129, 1.71590, + 1.46960, 1.90913, 2.03476 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08288, .04322, 43.96348, 2.09422, 1.78034, + 1.53606, 1.97258, 2.09777, + .08395, .04385, 45.06754, 2.15571, 1.84293, + 1.60017, 2.03457, 2.15934, + .08498, .04444, 46.12724, 2.21527, 1.90376, + 1.66271, 2.09460, 2.21896, + .08595, .04500, 47.11165, 2.27177, 1.96138, + 1.72186, 2.15154, 2.27553, + .08693, .04557, 48.08696, 2.32890, 2.01956, + 1.78148, 2.20913, 2.33275 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04931, .02373, .71642, .32177, .00000, + .00000, .18000, .32296, + .05030, .02429, 1.36779, .34095, .00000, + .00000, .20020, .34219, + .05181, .02514, 2.41965, .37304, .01439, + .00000, .23376, .37437, + .05295, .02579, 3.29602, .39899, .02939, + .00000, .26074, .40039, + .05416, .02649, 4.23912, .42846, .06576, + .00000, .29125, .42992, + .05521, .02709, 5.10689, .45593, .09487, + .00000, .31960, .45746, + .05624, .02768, 5.99647, .48376, .12554, + .00000, .34823, .48535, + .05734, .02831, 6.99685, .51493, .16043, + .00000, .38026, .51660 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05831, .02887, 7.89746, .54350, .19133, + .00000, .40954, .54522, + .05923, .02942, 8.78877, .57225, .22198, + .00000, .43897, .57403, + .05999, .02985, 9.53179, .59594, .24811, + .00000, .46319, .59777, + .06159, .03079, 11.21104, .64893, .30466, + .00000, .51728, .65087, + .06301, .03162, 12.41155, .69677, .35511, + .06943, .56603, .69879, + .06461, .03255, 13.93185, .75297, .41443, + .13910, .62324, .75510, + .06630, .03353, 15.55251, .81396, .47860, + .20756, .68524, .81619, + .06783, .03444, 17.04654, .87141, .53884, + .27171, .74360, .87375 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06939, .03535, 18.57495, .93142, .60171, + .33838, .80451, .93388, + .07070, .03611, 19.85522, .98271, .65534, + .39505, .85651, .98525, + .07229, .03705, 21.39691, 1.04623, .72116, + .46350, .92089, 1.04888, + .07370, .03787, 22.76755, 1.10391, .78097, + .52603, .97931, 1.10666, + .07501, .03864, 24.03864, 1.15819, .83755, + .58567, 1.03426, 1.16103, + .07666, .03960, 25.61365, 1.22780, .90924, + .65983, 1.10470, 1.23076, + .07823, .04051, 27.09046, 1.29464, .97814, + .73135, 1.17231, 1.29772, + .07970, .04138, 28.47576, 1.35860, 1.04425, + .80027, 1.23698, 1.36178 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08117, .04224, 29.83114, 1.42309, 1.11053, + .86882, 1.30216, 1.42637, + .08262, .04308, 31.14291, 1.48700, 1.17619, + .93677, 1.36674, 1.49039, + .08400, .04389, 32.38518, 1.54858, 1.23964, + 1.00268, 1.42894, 1.55207, + .08530, .04465, 33.51217, 1.60638, 1.29874, + 1.06349, 1.48732, 1.60996, + .08661, .04541, 34.65900, 1.66573, 1.35982, + 1.12688, 1.54724, 1.66942, + .08790, .04616, 35.73757, 1.72362, 1.41892, + 1.18760, 1.60567, 1.72739, + .08913, .04688, 36.77739, 1.77981, 1.47666, + 1.24742, 1.66241, 1.78367, + .09029, .04755, 37.71457, 1.83232, 1.53023, + 1.30241, 1.71540, 1.83627 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09148, .04824, 38.67443, 1.88637, 1.58569, + 1.35976, 1.76994, 1.89041, + .09264, .04892, 39.57838, 1.93905, 1.63941, + 1.41492, 1.82309, 1.94317, + .09375, .04956, 40.44419, 1.98998, 1.69154, + 1.46866, 1.87449, 1.99419, + .09480, .05017, 41.24555, 2.03821, 1.74082, + 1.51938, 1.92313, 2.04248, + .09587, .05079, 42.03669, 2.08687, 1.79048, + 1.57041, 1.97222, 2.09123 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06817, .03450, .72652, .28301, .00000, + .00000, .16056, .28518, + .06949, .03528, 1.31600, .29865, .00000, + .00000, .17704, .30090, + .07151, .03648, 2.22987, .32442, .01377, + .00000, .20401, .32681, + .07306, .03740, 2.97047, .34501, .02519, + .00000, .22545, .34751, + .07468, .03837, 3.74614, .36816, .05416, + .00000, .24945, .37076, + .07610, .03921, 4.44297, .38949, .07694, + .00000, .27150, .39220, + .07749, .04005, 5.14351, .41091, .10076, + .00000, .29361, .41372, + .07898, .04093, 5.91666, .43473, .12766, + .00000, .31813, .43764 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08029, .04172, 6.60026, .45636, .15125, + .00000, .34035, .45936, + .08155, .04247, 7.26613, .47795, .17445, + .00000, .36252, .48105, + .08257, .04308, 7.81472, .49565, .19414, + .00000, .38067, .49883, + .08473, .04439, 9.03564, .53488, .23631, + .00000, .42081, .53820, + .08664, .04553, 9.88200, .56987, .27353, + .04893, .45659, .57334, + .08879, .04680, 10.93463, .61055, .31680, + .10038, .49813, .61419, + .09106, .04815, 12.03340, .65415, .36305, + .15021, .54260, .65797, + .09312, .04938, 13.02622, .69476, .40597, + .19638, .58398, .69872 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09520, .05062, 14.02333, .73672, .45029, + .24386, .62670, .74085, + .09694, .05166, 14.84483, .77223, .48772, + .28380, .66283, .77649, + .09905, .05290, 15.81658, .81574, .53316, + .33153, .70707, .82016, + .10093, .05402, 16.66650, .85484, .57406, + .37473, .74682, .85941, + .10265, .05504, 17.44426, .89134, .61243, + .41560, .78391, .89605, + .10483, .05633, 18.38993, .93763, .66050, + .46582, .83091, .94250, + .10689, .05754, 19.26192, .98161, .70623, + .51380, .87557, .98664, + .10883, .05868, 20.06792, 1.02331, .74971, + .55961, .91789, 1.02850 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11076, .05980, 20.84285, 1.06492, .79285, + .60470, .96011, 1.07026, + .11265, .06092, 21.58139, 1.10577, .83521, + .64900, 1.00155, 1.11127, + .11444, .06197, 22.27209, 1.14481, .87582, + .69165, 1.04115, 1.15045, + .11612, .06294, 22.88709, 1.18110, .91327, + .73060, 1.07795, 1.18686, + .11782, .06393, 23.50752, 1.21812, .95174, + .77097, 1.11548, 1.22402, + .11948, .06490, 24.07956, 1.25386, .98858, + .80925, 1.15172, 1.25989, + .12107, .06582, 24.62704, 1.28836, 1.02439, + .84677, 1.18670, 1.29452, + .12256, .06669, 25.11065, 1.32030, 1.05728, + .88091, 1.21906, 1.32657 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12407, .06756, 25.60316, 1.35300, 1.09119, + .91637, 1.25222, 1.35940, + .12555, .06842, 26.05783, 1.38458, 1.12374, + .95018, 1.28422, 1.39109, + .12697, .06924, 26.49001, 1.41495, 1.15515, + .98294, 1.31501, 1.42158, + .12831, .07002, 26.88436, 1.44350, 1.18464, + 1.01366, 1.34393, 1.45024, + .12967, .07080, 27.26822, 1.47211, 1.21416, + 1.04435, 1.37294, 1.47895 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09474, .05048, .80472, .25180, .00000, + .00000, .14446, .25557, + .09651, .05158, 1.33322, .26394, .00000, + .00000, .15731, .26784, + .09925, .05327, 2.11468, .28380, .01212, + .00000, .17818, .28791, + .10134, .05455, 2.72668, .29954, .02040, + .00000, .19463, .30382, + .10355, .05591, 3.34838, .31712, .04290, + .00000, .21295, .32157, + .10546, .05708, 3.89169, .33316, .06028, + .00000, .22960, .33777, + .10734, .05823, 4.42552, .34915, .07833, + .00000, .24616, .35391, + .10935, .05945, 5.00197, .36677, .09855, + .00000, .26440, .37170 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11111, .06053, 5.50108, .38263, .11610, + .00000, .28078, .38771, + .11282, .06156, 5.97824, .39834, .13322, + .00000, .29699, .40356, + .11419, .06239, 6.36598, .41114, .14766, + .00000, .31018, .41647, + .11710, .06416, 7.21417, .43922, .17827, + .00000, .33909, .44480, + .11965, .06569, 7.78046, .46397, .20494, + .03213, .36452, .46977, + .12252, .06740, 8.46825, .49236, .23557, + .06915, .39367, .49840, + .12552, .06918, 9.16803, .52238, .26787, + .10444, .42448, .52868, + .12824, .07080, 9.78504, .54997, .29746, + .13672, .45276, .55649 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13098, .07243, 10.39078, .57812, .32762, + .16949, .48160, .58487, + .13327, .07378, 10.87948, .60167, .35282, + .19677, .50571, .60861, + .13603, .07540, 11.44456, .63013, .38302, + .22896, .53487, .63732, + .13846, .07683, 11.92861, .65543, .40990, + .25778, .56077, .66283, + .14070, .07814, 12.36416, .67881, .43489, + .28480, .58469, .68639, + .14351, .07978, 12.88027, .70806, .46576, + .31755, .61461, .71588, + .14616, .08132, 13.34586, .73551, .49479, + .34849, .64270, .74356, + .14863, .08275, 13.76801, .76124, .52211, + .37774, .66902, .76951 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15109, .08417, 14.16397, .78661, .54887, + .40617, .69496, .79508, + .15349, .08555, 14.53321, .81122, .57488, + .43382, .72014, .81990, + .15575, .08684, 14.87268, .83453, .59959, + .46022, .74398, .84339, + .15786, .08805, 15.16618, .85591, .62208, + .48402, .76584, .86495, + .16000, .08927, 15.45907, .87756, .64504, + .50853, .78800, .88678, + .16206, .09044, 15.72054, .89819, .66675, + .53150, .80910, .90759, + .16403, .09156, 15.96859, .91798, .68774, + .55389, .82935, .92754, + .16587, .09260, 16.18031, .93607, .70677, + .57401, .84786, .94578 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16775, .09365, 16.39460, .95449, .72629, + .59482, .86672, .96436, + .16957, .09468, 16.58541, .97205, .74482, + .61443, .88469, .98208, + .17130, .09566, 16.76485, .98885, .76259, + .63333, .90189, .99902, + .17294, .09657, 16.92449, 1.00448, .77914, + .65091, .91791, 1.01479, + .17459, .09749, 17.07592, 1.02002, .79555, + .66831, .93382, 1.03046 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11503, .06306, .89866, .23527, .00000, + .00000, .13555, .24045, + .11716, .06440, 1.38530, .24550, .00000, + .00000, .14641, .25085, + .12045, .06647, 2.08849, .26218, .01030, + .00000, .16402, .26781, + .12295, .06802, 2.62576, .27536, .01699, + .00000, .17787, .28120, + .12558, .06965, 3.16060, .29006, .03617, + .00000, .19326, .29613, + .12789, .07106, 3.61981, .30339, .05081, + .00000, .20717, .30967, + .13012, .07243, 4.06415, .31661, .06596, + .00000, .22095, .32309, + .13253, .07391, 4.53703, .33112, .08284, + .00000, .23604, .33780 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13462, .07517, 4.94077, .34411, .09740, + .00000, .24953, .35098, + .13665, .07641, 5.32198, .35689, .11152, + .00000, .26280, .36395, + .13828, .07739, 5.62888, .36727, .12340, + .00000, .27356, .37449, + .14173, .07946, 6.29291, .38990, .14839, + .00000, .29697, .39742, + .14473, .08126, 6.72465, .40966, .16998, + .02373, .31742, .41745, + .14810, .08325, 7.23945, .43215, .19458, + .05383, .34064, .44024, + .15159, .08532, 7.75384, .45570, .22028, + .08223, .36496, .46410, + .15477, .08717, 8.19919, .47713, .24362, + .10798, .38709, .48581 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15796, .08903, 8.62922, .49882, .26722, + .13392, .40948, .50778, + .16060, .09058, 8.97120, .51680, .28678, + .15535, .42804, .52601, + .16378, .09241, 9.35938, .53837, .31003, + .18043, .45029, .54786, + .16658, .09402, 9.68673, .55738, .33057, + .20272, .46988, .56711, + .16916, .09550, 9.97770, .57482, .34953, + .22348, .48788, .58478, + .17237, .09733, 10.31520, .59643, .37276, + .24846, .51017, .60667, + .17538, .09905, 10.61413, .61653, .39442, + .27185, .53091, .62704, + .17819, .10064, 10.88087, .63524, .41466, + .29381, .55021, .64599 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18096, .10219, 11.12579, .65351, .43433, + .31501, .56907, .66450, + .18365, .10371, 11.35001, .67109, .45329, + .33546, .58721, .68231, + .18620, .10513, 11.55322, .68761, .47120, + .35488, .60429, .69905, + .18855, .10644, 11.72385, .70263, .48736, + .37224, .61980, .71428, + .19093, .10776, 11.89269, .71777, .50379, + .39005, .63546, .72962, + .19323, .10902, 12.03830, .73204, .51918, + .40659, .65022, .74408, + .19543, .11024, 12.17553, .74566, .53400, + .42266, .66432, .75791, + .19745, .11135, 12.28802, .75800, .54732, + .43699, .67709, .77041 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19952, .11248, 12.40142, .77052, .56095, + .45176, .69005, .78311, + .20151, .11356, 12.49805, .78234, .57376, + .46555, .70230, .79510, + .20342, .11459, 12.58801, .79359, .58600, + .47881, .71397, .80651, + .20520, .11556, 12.66534, .80399, .59734, + .49107, .72476, .81705, + .20700, .11654, 12.73603, .81424, .60851, + .50315, .73540, .82746 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13211, .07380, .99158, .22392, .00000, + .00000, .12906, .23036, + .13455, .07537, 1.44504, .23285, .00000, + .00000, .13861, .23952, + .13832, .07772, 2.09040, .24743, .00846, + .00000, .15409, .25445, + .14117, .07950, 2.57341, .25895, .01415, + .00000, .16627, .26623, + .14417, .08135, 3.04676, .27177, .03119, + .00000, .17975, .27933, + .14679, .08295, 3.44769, .28333, .04408, + .00000, .19191, .29115, + .14933, .08450, 3.83110, .29478, .05737, + .00000, .20389, .30282, + .15204, .08616, 4.23455, .30728, .07212, + .00000, .21697, .31558 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15442, .08758, 4.57529, .31842, .08478, + .00000, .22860, .32695, + .15671, .08895, 4.89381, .32935, .09701, + .00000, .24001, .33808, + .15854, .09006, 5.14839, .33819, .10727, + .00000, .24923, .34710, + .16242, .09236, 5.69468, .35735, .12873, + .00000, .26920, .36662, + .16576, .09433, 6.04227, .37396, .14714, + .01833, .28650, .38355, + .16951, .09653, 6.44970, .39274, .16799, + .04411, .30603, .40267, + .17341, .09878, 6.85073, .41226, .18962, + .06824, .32633, .42254, + .17692, .10080, 7.19272, .42988, .20912, + .08997, .34467, .44049 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18044, .10283, 7.51824, .44758, .22871, + .11173, .36308, .45852, + .18334, .10449, 7.77369, .46217, .24486, + .12960, .37826, .47337, + .18683, .10646, 8.05905, .47954, .26392, + .15038, .39632, .49105, + .18990, .10818, 8.29627, .49473, .28065, + .16875, .41213, .50652, + .19269, .10976, 8.50474, .50861, .29603, + .18577, .42657, .52065, + .19619, .11170, 8.74164, .52564, .31471, + .20610, .44432, .53800, + .19944, .11352, 8.94781, .54139, .33204, + .22504, .46072, .55403, + .20248, .11518, 9.12899, .55593, .34814, + .24273, .47588, .56884 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20546, .11682, 9.29160, .57003, .36367, + .25968, .49058, .58321, + .20835, .11840, 9.43753, .58350, .37855, + .27596, .50465, .59692, + .21107, .11988, 9.56779, .59609, .39255, + .29134, .51780, .60975, + .21359, .12124, 9.67344, .60744, .40508, + .30500, .52967, .62132, + .21611, .12261, 9.77711, .61883, .41778, + .31897, .54159, .63292, + .21854, .12390, 9.86262, .62947, .42958, + .33185, .55275, .64377, + .22087, .12513, 9.94271, .63959, .44092, + .34434, .56336, .65410, + .22301, .12628, 10.00468, .64868, .45103, + .35539, .57289, .66336 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22517, .12742, 10.06701, .65787, .46135, + .36676, .58255, .67274, + .22726, .12852, 10.11655, .66647, .47098, + .37731, .59159, .68151, + .22926, .12957, 10.16199, .67462, .48016, + .38742, .60018, .68983, + .23112, .13055, 10.19886, .68211, .48860, + .39672, .60806, .69746, + .23299, .13152, 10.23032, .68943, .49689, + .40585, .61580, .70495 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14705, .08329, 1.07949, .21485, .00000, + .00000, .12366, .22242, + .14979, .08503, 1.50473, .22287, .00000, + .00000, .13228, .23070, + .15397, .08767, 2.10319, .23593, .00667, + .00000, .14623, .24419, + .15716, .08964, 2.54286, .24625, .01168, + .00000, .15721, .25483, + .16048, .09168, 2.96818, .25772, .02718, + .00000, .16935, .26662, + .16338, .09343, 3.32445, .26804, .03881, + .00000, .18023, .27721, + .16617, .09513, 3.66175, .27820, .05078, + .00000, .19095, .28764, + .16917, .09692, 4.01335, .28926, .06402, + .00000, .20259, .29900 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17178, .09848, 4.30762, .29908, .07533, + .00000, .21292, .30908, + .17430, .09997, 4.58039, .30866, .08622, + .00000, .22299, .31891, + .17630, .10116, 4.79706, .31640, .09532, + .00000, .23113, .32684, + .18053, .10365, 5.25900, .33311, .11429, + .00000, .24865, .34395, + .18417, .10576, 5.54722, .34749, .13048, + .01447, .26374, .35869, + .18825, .10808, 5.87958, .36364, .14870, + .03720, .28067, .37523, + .19244, .11048, 6.20227, .38032, .16748, + .05834, .29816, .39230, + .19623, .11263, 6.47373, .39529, .18433, + .07729, .31385, .40762 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20001, .11475, 6.72875, .41022, .20115, + .09614, .32952, .42290, + .20312, .11649, 6.92631, .42245, .21494, + .11155, .34236, .43543, + .20684, .11855, 7.14344, .43692, .23113, + .12938, .35755, .45023, + .21009, .12034, 7.32146, .44949, .24527, + .14507, .37077, .46311, + .21308, .12198, 7.47622, .46092, .25821, + .15955, .38279, .47480, + .21676, .12398, 7.64821, .47486, .27385, + .17675, .39745, .48907, + .22019, .12584, 7.79521, .48765, .28826, + .19268, .41093, .50216, + .22338, .12756, 7.92224, .49940, .30158, + .20750, .42332, .51420 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22652, .12923, 8.03304, .51070, .31437, + .22163, .43526, .52578, + .22953, .13083, 8.13028, .52145, .32655, + .23512, .44661, .53678, + .23236, .13233, 8.21561, .53143, .33796, + .24783, .45718, .54701, + .23498, .13370, 8.28154, .54034, .34812, + .25906, .46664, .55614, + .23760, .13507, 8.34558, .54927, .35838, + .27050, .47611, .56529, + .24011, .13637, 8.39517, .55753, .36785, + .28099, .48490, .57376, + .24250, .13761, 8.44125, .56537, .37692, + .29114, .49325, .58181, + .24469, .13873, 8.47336, .57234, .38497, + .30007, .50068, .58895 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24692, .13987, 8.50559, .57937, .39315, + .30924, .50820, .59617, + .24905, .14096, 8.52778, .58588, .40074, + .31770, .51518, .60286, + .25109, .14198, 8.54754, .59204, .40796, + .32579, .52177, .60918, + .25298, .14295, 8.56130, .59765, .41457, + .33321, .52781, .61494, + .25488, .14390, 8.57063, .60312, .42102, + .34045, .53370, .62056 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17304, .09982, 1.23348, .20088, .00000, + .00000, .11502, .21062, + .17631, .10188, 1.61074, .20760, .00000, + .00000, .12235, .21771, + .18127, .10497, 2.13399, .21857, .00339, + .00000, .13424, .22920, + .18500, .10723, 2.50590, .22721, .00755, + .00000, .14354, .23824, + .18887, .10957, 2.85778, .23678, .02090, + .00000, .15382, .24822, + .19223, .11157, 3.14727, .24532, .03083, + .00000, .16295, .25711, + .19547, .11349, 3.41692, .25368, .04098, + .00000, .17190, .26581, + .19892, .11551, 3.69364, .26273, .05213, + .00000, .18158, .27522 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20192, .11725, 3.92168, .27070, .06159, + .00000, .19009, .28350, + .20479, .11890, 4.13001, .27842, .07065, + .00000, .19834, .29152, + .20709, .12022, 4.29379, .28464, .07819, + .00000, .20497, .29796, + .21190, .12294, 4.63929, .29792, .09377, + .00000, .21913, .31172, + .21597, .12523, 4.84734, .30924, .10693, + .00917, .23119, .32345, + .22051, .12774, 5.07926, .32181, .12162, + .02778, .24460, .33645, + .22517, .13030, 5.29879, .33462, .13660, + .04491, .25830, .34971, + .22933, .13255, 5.47853, .34598, .14990, + .06010, .27044, .36147 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23348, .13479, 5.64285, .35719, .16307, + .07511, .28245, .37306, + .23687, .13662, 5.76680, .36630, .17377, + .08727, .29219, .38248, + .24090, .13875, 5.89871, .37691, .18620, + .10123, .30359, .39346, + .24441, .14059, 6.00344, .38605, .19697, + .11341, .31342, .40291, + .24761, .14226, 6.09219, .39428, .20677, + .12458, .32228, .41143, + .25154, .14429, 6.18543, .40416, .21846, + .13772, .33296, .42167, + .25518, .14616, 6.26153, .41313, .22915, + .14980, .34265, .43095, + .25854, .14787, 6.32445, .42127, .23894, + .16094, .35149, .43939 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26182, .14953, 6.37505, .42901, .24825, + .17147, .35990, .44739, + .26496, .15110, 6.41593, .43626, .25705, + .18146, .36782, .45491, + .26791, .15257, 6.44950, .44295, .26523, + .19080, .37512, .46185, + .27058, .15389, 6.47062, .44882, .27242, + .19897, .38157, .46793, + .27327, .15521, 6.49029, .45465, .27966, + .20727, .38799, .47398, + .27584, .15645, 6.50000, .45996, .28627, + .21481, .39387, .47950, + .27826, .15762, 6.50859, .46497, .29257, + .22206, .39941, .48470, + .28048, .15868, 6.50862, .46933, .29809, + .22839, .40427, .48923 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28272, .15974, 6.50870, .47371, .30368, + .23486, .40917, .49378, + .28485, .16075, 6.50203, .47768, .30881, + .24078, .41363, .49792, + .28688, .16171, 6.49484, .48141, .31366, + .24641, .41783, .50180, + .28876, .16258, 6.48461, .48476, .31806, + .25154, .42162, .50529, + .29063, .16345, 6.47119, .48796, .32232, + .25650, .42529, .50863 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20579, .12058, 1.41738, .18494, .00000, + .00000, .10477, .19765, + .20977, .12305, 1.73515, .19048, .00000, + .00000, .11098, .20367, + .21573, .12665, 2.17127, .19947, -.00075, + .00000, .12095, .21336, + .22016, .12924, 2.46749, .20648, .00275, + .00000, .12872, .22089, + .22473, .13189, 2.74008, .21422, .01406, + .00000, .13723, .22914, + .22864, .13413, 2.95943, .22105, .02240, + .00000, .14473, .23639, + .23240, .13626, 3.15975, .22766, .03084, + .00000, .15201, .24342, + .23638, .13850, 3.36131, .23477, .04004, + .00000, .15980, .25095 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23981, .14039, 3.52411, .24096, .04779, + .00000, .16658, .25750, + .24308, .14219, 3.67002, .24690, .05513, + .00000, .17311, .26379, + .24568, .14360, 3.78328, .25165, .06121, + .00000, .17832, .26880, + .25107, .14651, 4.01952, .26168, .07365, + .00000, .18933, .27938, + .25560, .14890, 4.15387, .27010, .08403, + .00434, .19858, .28825, + .26060, .15152, 4.29550, .27930, .09548, + .01912, .20871, .29793, + .26568, .15413, 4.42415, .28852, .10701, + .03258, .21891, .30764, + .27018, .15644, 4.52468, .29658, .11713, + .04439, .22783, .31611 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27463, .15868, 4.61223, .30441, .12703, + .05592, .23653, .32435, + .27824, .16048, 4.67504, .31066, .13499, + .06518, .24349, .33091, + .28250, .16257, 4.73693, .31784, .14414, + .07571, .25153, .33847, + .28617, .16435, 4.78260, .32391, .15198, + .08480, .25837, .34487, + .28949, .16596, 4.81901, .32932, .15904, + .09308, .26445, .35055, + .29355, .16790, 4.85126, .33568, .16736, + .10269, .27168, .35724, + .29725, .16964, 4.87307, .34135, .17489, + .11146, .27814, .36321, + .30066, .17123, 4.88759, .34641, .18172, + .11947, .28395, .36855 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30395, .17274, 4.89377, .35112, .18812, + .12696, .28939, .37350, + .30707, .17416, 4.89394, .35544, .19410, + .13400, .29442, .37806, + .30998, .17548, 4.89078, .35936, .19961, + .14053, .29902, .38220, + .31260, .17665, 4.88094, .36270, .20439, + .14618, .30298, .38572, + .31523, .17779, 4.87030, .36599, .20918, + .15189, .30689, .38920, + .31768, .17885, 4.85331, .36887, .21346, + .15701, .31038, .39226, + .32001, .17987, 4.83705, .37157, .21754, + .16192, .31365, .39511, + .32210, .18075, 4.81662, .37384, .22106, + .16614, .31645, .39751 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32421, .18164, 4.79634, .37610, .22460, + .17045, .31924, .39991, + .32620, .18247, 4.77198, .37806, .22779, + .17433, .32172, .40199, + .32807, .18323, 4.74846, .37987, .23080, + .17802, .32403, .40392, + .32980, .18394, 4.72416, .38145, .23348, + .18133, .32607, .40559, + .33150, .18462, 4.69779, .38290, .23606, + .18453, .32800, .40714 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25138, .14883, 1.61875, .16514, .00000, + .00000, .09195, .18277, + .25637, .15174, 1.85839, .16950, .00000, + .00000, .09712, .18778, + .26369, .15591, 2.18639, .17646, -.00580, + .00000, .10528, .19563, + .26898, .15882, 2.39341, .18178, -.00278, + .00000, .11150, .20159, + .27438, .16174, 2.57557, .18758, .00649, + .00000, .11823, .20800, + .27896, .16417, 2.71763, .19259, .01324, + .00000, .12405, .21352, + .28330, .16645, 2.84370, .19740, .01999, + .00000, .12961, .21879, + .28786, .16881, 2.96689, .20246, .02724, + .00000, .13549, .22432 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29174, .17079, 3.06314, .20680, .03328, + .00000, .14054, .22906, + .29541, .17262, 3.14660, .21090, .03893, + .00000, .14532, .23354, + .29831, .17406, 3.21013, .21414, .04358, + .00000, .14910, .23706, + .30423, .17699, 3.34076, .22088, .05295, + .00000, .15695, .24437, + .30912, .17932, 3.40643, .22639, .06065, + -.00001, .16342, .25031, + .31442, .18181, 3.46581, .23228, .06900, + .01104, .17037, .25666, + .31974, .18426, 3.51391, .23803, .07728, + .02095, .17719, .26285, + .32439, .18637, 3.54613, .24290, .08442, + .02953, .18305, .26810 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32892, .18837, 3.56912, .24750, .09129, + .03780, .18861, .27305, + .33255, .18997, 3.58156, .25110, .09675, + .04435, .19301, .27692, + .33675, .19177, 3.58738, .25509, .10291, + .05170, .19795, .28122, + .34034, .19328, 3.58679, .25838, .10813, + .05799, .20205, .28474, + .34354, .19462, 3.58295, .26124, .11277, + .06364, .20566, .28780, + .34739, .19618, 3.56950, .26445, .11814, + .07012, .20981, .29126, + .35087, .19754, 3.55215, .26721, .12291, + .07594, .21344, .29423, + .35401, .19876, 3.53274, .26958, .12718, + .08120, .21661, .29677 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35698, .19988, 3.50849, .27167, .13113, + .08607, .21947, .29902, + .35976, .20091, 3.48173, .27350, .13476, + .09058, .22206, .30098, + .36231, .20184, 3.45492, .27510, .13805, + .09472, .22437, .30270, + .36458, .20263, 3.42590, .27634, .14085, + .09825, .22627, .30404, + .36682, .20340, 3.39681, .27754, .14362, + .10178, .22812, .30532, + .36886, .20407, 3.36481, .27847, .14604, + .10490, .22968, .30633, + .37079, .20470, 3.33482, .27931, .14834, + .10788, .23112, .30725, + .37247, .20522, 3.30375, .27991, .15025, + .11038, .23225, .30788 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37416, .20573, 3.27306, .28048, .15218, + .11293, .23339, .30850, + .37570, .20618, 3.24060, .28086, .15387, + .11520, .23431, .30891, + .37716, .20659, 3.20989, .28119, .15544, + .11733, .23515, .30926, + .37846, .20694, 3.17992, .28139, .15682, + .11923, .23583, .30949, + .37972, .20727, 3.14892, .28152, .15811, + .12102, .23643, .30963 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28958, .17184, 1.72730, .14955, .00000, + .00000, .08218, .17144, + .29545, .17505, 1.90648, .15315, .00000, + .00000, .08674, .17582, + .30390, .17949, 2.15372, .15875, -.00898, + .00000, .09375, .18247, + .30986, .18255, 2.29779, .16295, -.00619, + .00000, .09898, .18734, + .31585, .18557, 2.41838, .16746, .00175, + .00000, .10454, .19251, + .32089, .18802, 2.50936, .17127, .00749, + .00000, .10926, .19685, + .32563, .19029, 2.58763, .17486, .01316, + .00000, .11372, .20092, + .33052, .19261, 2.66160, .17859, .01918, + .00000, .11837, .20513 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33464, .19452, 2.71713, .18174, .02413, + .00000, .12230, .20866, + .33849, .19628, 2.76310, .18466, .02874, + .00000, .12597, .21193, + .34153, .19763, 2.79726, .18696, .03249, + .00000, .12884, .21449, + .34767, .20033, 2.86664, .19162, .03997, + .00000, .13475, .21965, + .35259, .20244, 2.89371, .19533, .04604, + -.00218, .13950, .22375, + .35786, .20462, 2.90872, .19921, .05253, + .00656, .14451, .22801, + .36307, .20673, 2.91477, .20286, .05888, + .01434, .14932, .23201, + .36755, .20848, 2.91235, .20586, .06428, + .02098, .15337, .23529 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37184, .21011, 2.90348, .20862, .06943, + .02732, .15714, .23829, + .37524, .21136, 2.89189, .21069, .07345, + .03229, .16004, .24054, + .37910, .21274, 2.87184, .21289, .07796, + .03783, .16323, .24293, + .38234, .21385, 2.85054, .21463, .08171, + .04250, .16583, .24480, + .38521, .21481, 2.82919, .21608, .08502, + .04667, .16806, .24638, + .38856, .21588, 2.79680, .21761, .08880, + .05141, .17054, .24799, + .39153, .21678, 2.76383, .21882, .09211, + .05561, .17263, .24928, + .39417, .21754, 2.73141, .21979, .09503, + .05939, .17441, .25031 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39661, .21819, 2.69625, .22053, .09770, + .06283, .17594, .25108, + .39884, .21875, 2.66046, .22110, .10010, + .06599, .17727, .25166, + .40085, .21925, 2.62618, .22153, .10227, + .06887, .17841, .25209, + .40257, .21960, 2.59175, .22174, .10407, + .07129, .17927, .25228, + .40426, .21994, 2.55768, .22189, .10584, + .07370, .18009, .25243, + .40574, .22018, 2.52236, .22188, .10735, + .07580, .18070, .25238, + .40713, .22040, 2.48949, .22184, .10877, + .07779, .18125, .25231, + .40827, .22052, 2.45695, .22165, .10992, + .07945, .18161, .25207 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40942, .22064, 2.42490, .22146, .11108, + .08112, .18196, .25181, + .41041, .22069, 2.39221, .22112, .11205, + .08257, .18214, .25140, + .41132, .22073, 2.36151, .22077, .11296, + .08395, .18229, .25098, + .41211, .22072, 2.33210, .22037, .11373, + .08514, .18235, .25051, + .41284, .22068, 2.30218, .21991, .11443, + .08627, .18235, .24997 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35491, .20850, 1.76248, .12561, .00000, + .00000, .06867, .15617, + .36197, .21186, 1.85747, .12811, .00000, + .00000, .07235, .15940, + .37177, .21632, 1.99466, .13175, -.01196, + .00000, .07769, .16398, + .37843, .21920, 2.05857, .13436, -.00944, + .00000, .08151, .16718, + .38495, .22196, 2.10380, .13707, -.00329, + .00000, .08545, .17039, + .39028, .22412, 2.13401, .13928, .00113, + .00000, .08869, .17297, + .39516, .22604, 2.15698, .14130, .00538, + .00000, .09167, .17529, + .40012, .22793, 2.17552, .14330, .00983, + .00000, .09469, .17759 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40420, .22944, 2.18618, .14493, .01342, + .00000, .09718, .17943, + .40792, .23077, 2.19187, .14640, .01672, + .00000, .09944, .18105, + .41078, .23178, 2.19505, .14752, .01937, + .00000, .10120, .18228, + .41647, .23365, 2.20107, .14968, .02458, + .00000, .10466, .18464, + .42081, .23496, 2.18996, .15130, .02871, + -.00391, .10734, .18634, + .42529, .23622, 2.16357, .15285, .03304, + .00206, .11006, .18794, + .42952, .23731, 2.13192, .15417, .03718, + .00729, .11256, .18925, + .43301, .23812, 2.09987, .15512, .04063, + .01169, .11455, .19016 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43622, .23877, 2.06506, .15586, .04385, + .01582, .11630, .19082, + .43865, .23917, 2.03469, .15633, .04632, + .01901, .11760, .19119, + .44125, .23951, 1.99555, .15669, .04903, + .02251, .11891, .19141, + .44334, .23970, 1.96003, .15684, .05126, + .02542, .11991, .19142, + .44510, .23979, 1.92731, .15690, .05317, + .02798, .12071, .19133, + .44697, .23976, 1.88398, .15677, .05531, + .03084, .12148, .19095, + .44851, .23962, 1.84295, .15650, .05714, + .03334, .12203, .19046, + .44977, .23940, 1.80465, .15614, .05873, + .03556, .12243, .18989 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45078, .23907, 1.76584, .15566, .06012, + .03753, .12268, .18915, + .45159, .23865, 1.72796, .15509, .06135, + .03932, .12281, .18832, + .45225, .23822, 1.69263, .15449, .06243, + .04093, .12286, .18748, + .45265, .23771, 1.65888, .15381, .06329, + .04225, .12277, .18655, + .45301, .23720, 1.62589, .15311, .06413, + .04355, .12265, .18561, + .45315, .23658, 1.59308, .15232, .06481, + .04466, .12242, .18456, + .45326, .23600, 1.56281, .15156, .06543, + .04570, .12219, .18355, + .45318, .23537, 1.53386, .15076, .06592, + .04655, .12188, .18250 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45310, .23474, 1.50551, .14995, .06639, + .04739, .12154, .18145, + .45287, .23404, 1.47740, .14907, .06675, + .04811, .12113, .18032, + .45262, .23336, 1.45120, .14823, .06708, + .04877, .12073, .17926, + .45229, .23268, 1.42655, .14741, .06734, + .04934, .12030, .17821, + .45188, .23197, 1.40184, .14653, .06755, + .04985, .11984, .17710 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40987, .23652, 1.67113, .10708, .00000, + .00000, .05952, .14479, + .41754, .23962, 1.71467, .10868, .00000, + .00000, .06241, .14687, + .42778, .24353, 1.78491, .11091, -.01241, + .00000, .06644, .14961, + .43445, .24586, 1.80429, .11242, -.01014, + .00000, .06922, .15137, + .44081, .24797, 1.80931, .11397, -.00523, + .00000, .07201, .15307, + .44584, .24954, 1.80838, .11515, -.00174, + .00000, .07423, .15432, + .45033, .25085, 1.80386, .11617, .00160, + .00000, .07622, .15535, + .45477, .25206, 1.79565, .11715, .00502, + .00000, .07819, .15630 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45831, .25293, 1.78537, .11789, .00775, + .00000, .07977, .15698, + .46145, .25364, 1.77286, .11851, .01024, + .00000, .08116, .15748, + .46382, .25415, 1.76237, .11896, .01222, + .00000, .08222, .15784, + .46830, .25492, 1.74080, .11975, .01606, + .00000, .08426, .15840, + .47147, .25526, 1.71456, .12024, .01906, + -.00421, .08575, .15862, + .47454, .25541, 1.67359, .12058, .02215, + .00013, .08720, .15860, + .47722, .25533, 1.62973, .12075, .02506, + .00389, .08844, .15833, + .47923, .25507, 1.58907, .12070, .02745, + .00701, .08932, .15788 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .48089, .25462, 1.54764, .12050, .02964, + .00990, .09004, .15726, + .48201, .25414, 1.51316, .12022, .03130, + .01211, .09051, .15663, + .48299, .25337, 1.47088, .11975, .03309, + .01451, .09090, .15569, + .48357, .25260, 1.43379, .11924, .03453, + .01649, .09111, .15474, + .48394, .25184, 1.40040, .11873, .03575, + .01820, .09124, .15381, + .48403, .25069, 1.35781, .11790, .03709, + .02009, .09122, .15248, + .48388, .24951, 1.31849, .11707, .03822, + .02173, .09110, .15112, + .48355, .24834, 1.28249, .11622, .03917, + .02316, .09092, .14980 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48296, .24707, 1.24687, .11529, .03998, + .02441, .09061, .14840, + .48220, .24576, 1.21270, .11432, .04068, + .02553, .09024, .14697, + .48137, .24448, 1.18125, .11337, .04127, + .02652, .08986, .14558, + .48036, .24319, 1.15180, .11243, .04174, + .02734, .08940, .14419, + .47931, .24189, 1.12320, .11148, .04218, + .02813, .08894, .14281, + .47808, .24052, 1.09526, .11047, .04251, + .02878, .08840, .14139, + .47688, .23923, 1.06962, .10952, .04281, + .02938, .08789, .14005, + .47557, .23793, 1.04550, .10857, .04302, + .02987, .08735, .13872 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47426, .23664, 1.02198, .10763, .04322, + .03035, .08680, .13739, + .47279, .23531, .99896, .10665, .04335, + .03074, .08621, .13604, + .47137, .23403, .97763, .10573, .04346, + .03110, .08564, .13476, + .46994, .23280, .95774, .10484, .04353, + .03140, .08508, .13353, + .46845, .23153, .93795, .10392, .04358, + .03168, .08450, .13227 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45758, .25854, 1.52701, .09189, .00000, + .00000, .05262, .13484, + .46536, .26109, 1.53966, .09277, .00000, + .00000, .05479, .13578, + .47530, .26402, 1.56927, .09392, -.01178, + .00000, .05769, .13685, + .48143, .26562, 1.56393, .09468, -.00979, + .00000, .05964, .13736, + .48713, .26684, 1.54786, .09539, -.00583, + .00000, .06153, .13786, + .49140, .26765, 1.53091, .09591, -.00299, + .00000, .06300, .13802, + .49508, .26821, 1.51274, .09631, -.00034, + .00000, .06428, .13807, + .49858, .26857, 1.49173, .09663, .00235, + .00000, .06551, .13800 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .50124, .26872, 1.47178, .09682, .00450, + .00000, .06646, .13782, + .50346, .26871, 1.45118, .09693, .00643, + .00000, .06728, .13755, + .50508, .26863, 1.43475, .09699, .00795, + .00000, .06788, .13729, + .50788, .26819, 1.40159, .09699, .01088, + .00000, .06900, .13659, + .50952, .26746, 1.36995, .09686, .01313, + -.00404, .06974, .13584, + .51080, .26645, 1.32510, .09657, .01543, + -.00078, .07039, .13481, + .51157, .26515, 1.27888, .09609, .01758, + .00203, .07087, .13356, + .51183, .26378, 1.23734, .09554, .01930, + .00434, .07115, .13229 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .51169, .26225, 1.19611, .09490, .02087, + .00645, .07128, .13090, + .51129, .26088, 1.16251, .09428, .02205, + .00806, .07129, .12969, + .51041, .25908, 1.12222, .09345, .02329, + .00979, .07118, .12810, + .50936, .25739, 1.08746, .09264, .02428, + .01119, .07100, .12664, + .50826, .25579, 1.05652, .09187, .02511, + .01241, .07077, .12528, + .50645, .25362, 1.01782, .09081, .02600, + .01373, .07037, .12346, + .50452, .25151, .98258, .08976, .02674, + .01487, .06993, .12170, + .50253, .24948, .95067, .08876, .02734, + .01583, .06946, .12003 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50032, .24737, .91952, .08769, .02785, + .01668, .06892, .11833, + .49797, .24526, .88994, .08664, .02827, + .01743, .06835, .11663, + .49565, .24326, .86295, .08564, .02863, + .01810, .06778, .11502, + .49327, .24128, .83797, .08463, .02888, + .01861, .06720, .11348, + .49088, .23930, .81384, .08363, .02912, + .01912, .06662, .11195, + .48830, .23729, .79052, .08261, .02929, + .01954, .06597, .11042, + .48586, .23541, .76919, .08166, .02943, + .01992, .06538, .10898, + .48336, .23357, .74933, .08073, .02952, + .02022, .06478, .10759 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48087, .23174, .73003, .07982, .02960, + .02050, .06417, .10621, + .47827, .22988, .71131, .07889, .02963, + .02074, .06356, .10483, + .47580, .22811, .69403, .07801, .02964, + .02094, .06296, .10352, + .47338, .22643, .67800, .07717, .02964, + .02111, .06239, .10229, + .47088, .22470, .66215, .07631, .02962, + .02126, .06180, .10104 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50859, .27881, 1.33234, .07593, .00000, + .00000, .04538, .12215, + .51561, .28030, 1.32359, .07620, .00000, + .00000, .04678, .12190, + .52401, .28165, 1.32428, .07655, -.01049, + .00000, .04860, .12118, + .52879, .28203, 1.30324, .07669, -.00882, + .00000, .04976, .12055, + .53286, .28203, 1.27453, .07684, -.00572, + .00000, .05089, .11979, + .53570, .28168, 1.24849, .07682, -.00352, + .00000, .05171, .11905, + .53791, .28115, 1.22284, .07677, -.00148, + .00000, .05239, .11826, + .53975, .28041, 1.19516, .07664, .00057, + .00000, .05302, .11731 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .54091, .27958, 1.17050, .07647, .00220, + .00000, .05347, .11641, + .54166, .27863, 1.14623, .07627, .00365, + .00000, .05383, .11550, + .54211, .27782, 1.12731, .07607, .00478, + .00000, .05406, .11476, + .54237, .27582, 1.08926, .07556, .00694, + .00000, .05446, .11312, + .54177, .27383, 1.05653, .07503, .00859, + -.00358, .05466, .11162, + .54056, .27137, 1.01262, .07435, .01024, + -.00121, .05474, .10986, + .53875, .26863, .96840, .07354, .01175, + .00081, .05469, .10795, + .53661, .26602, .92956, .07274, .01295, + .00245, .05452, .10614 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .53406, .26328, .89167, .07186, .01404, + .00396, .05426, .10426, + .53170, .26094, .86123, .07109, .01484, + .00508, .05399, .10269, + .52849, .25793, .82534, .07009, .01567, + .00627, .05357, .10074, + .52543, .25523, .79479, .06917, .01632, + .00723, .05314, .09901, + .52249, .25273, .76787, .06832, .01685, + .00805, .05272, .09744, + .51837, .24948, .73468, .06719, .01742, + .00894, .05211, .09541, + .51431, .24637, .70480, .06611, .01787, + .00969, .05150, .09350, + .51039, .24344, .67802, .06510, .01823, + .01033, .05089, .09172 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50627, .24049, .65220, .06405, .01853, + .01088, .05025, .08993, + .50209, .23755, .62790, .06302, .01876, + .01134, .04960, .08819, + .49809, .23480, .60587, .06205, .01895, + .01176, .04899, .08655, + .49416, .23214, .58570, .06111, .01907, + .01208, .04837, .08503, + .49024, .22949, .56632, .06017, .01918, + .01239, .04774, .08354, + .48618, .22688, .54776, .05925, .01924, + .01263, .04712, .08203, + .48236, .22442, .53088, .05839, .01931, + .01286, .04652, .08064, + .47859, .22206, .51529, .05757, .01931, + .01303, .04595, .07932 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47486, .21973, .50019, .05674, .01932, + .01319, .04536, .07800, + .47106, .21738, .48565, .05592, .01930, + .01331, .04478, .07672, + .46745, .21517, .47229, .05515, .01926, + .01341, .04423, .07551, + .46398, .21306, .45996, .05442, .01922, + .01350, .04370, .07438, + .46043, .21093, .44784, .05367, .01917, + .01357, .04316, .07325 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .55143, .29270, 1.15009, .06269, .00000, + .00000, .03896, .10887, + .55689, .29297, 1.13057, .06264, .00000, + .00000, .03981, .10761, + .56285, .29237, 1.11600, .06241, -.00920, + .00000, .04084, .10571, + .56569, .29138, 1.08788, .06227, -.00779, + .00000, .04150, .10427, + .56762, .29000, 1.05429, .06204, -.00533, + .00000, .04210, .10275, + .56855, .28850, 1.02498, .06181, -.00357, + .00000, .04251, .10135, + .56890, .28685, .99698, .06151, -.00197, + .00000, .04281, .10000, + .56877, .28492, .96747, .06115, -.00036, + .00000, .04304, .09856 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56820, .28311, .94183, .06078, .00089, + .00000, .04320, .09727, + .56729, .28122, .91713, .06039, .00201, + .00000, .04328, .09602, + .56642, .27967, .89806, .06007, .00287, + .00000, .04332, .09502, + .56381, .27623, .85985, .05936, .00451, + .00000, .04330, .09285, + .56084, .27302, .82852, .05868, .00575, + -.00310, .04320, .09099, + .55698, .26926, .78786, .05787, .00697, + -.00133, .04298, .08889, + .55243, .26525, .74755, .05694, .00808, + .00017, .04264, .08666, + .54794, .26151, .71258, .05604, .00895, + .00138, .04226, .08468 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .54308, .25767, .67889, .05510, .00972, + .00247, .04182, .08267, + .53882, .25445, .65213, .05431, .01027, + .00327, .04141, .08100, + .53335, .25048, .62093, .05331, .01085, + .00413, .04084, .07899, + .52831, .24696, .59460, .05241, .01129, + .00481, .04032, .07723, + .52361, .24375, .57157, .05159, .01165, + .00538, .03983, .07564, + .51738, .23959, .54349, .05051, .01202, + .00600, .03916, .07363, + .51139, .23571, .51845, .04951, .01230, + .00651, .03851, .07176, + .50570, .23209, .49618, .04857, .01253, + .00694, .03789, .07004 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49988, .22845, .47488, .04762, .01271, + .00732, .03725, .06836, + .49411, .22490, .45502, .04668, .01283, + .00762, .03662, .06672, + .48864, .22159, .43712, .04580, .01293, + .00789, .03602, .06521, + .48336, .21846, .42082, .04497, .01300, + .00810, .03544, .06380, + .47810, .21537, .40525, .04415, .01305, + .00830, .03487, .06241, + .47281, .21229, .39050, .04335, .01305, + .00845, .03428, .06107, + .46784, .20942, .37712, .04260, .01306, + .00858, .03374, .05981, + .46305, .20669, .36481, .04188, .01304, + .00867, .03322, .05864 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45828, .20401, .35295, .04117, .01301, + .00876, .03270, .05749, + .45349, .20132, .34160, .04047, .01298, + .00883, .03219, .05636, + .44897, .19880, .33120, .03983, .01293, + .00889, .03169, .05530, + .44466, .19643, .32165, .03921, .01288, + .00893, .03124, .05432, + .44029, .19405, .31231, .03860, .01281, + .00896, .03077, .05333 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58641, .30129, .99142, .05176, .00000, + .00000, .03301, .09501, + .58980, .30013, .96652, .05151, .00000, + .00000, .03346, .09314, + .59246, .29756, .94365, .05111, -.00807, + .00000, .03401, .09037, + .59290, .29515, .91267, .05075, -.00686, + .00000, .03432, .08843, + .59234, .29238, .87761, .05040, -.00487, + .00000, .03453, .08649, + .59106, .28972, .84760, .05003, -.00344, + .00000, .03468, .08479, + .58933, .28701, .81939, .04965, -.00215, + .00000, .03475, .08316, + .58699, .28399, .79012, .04919, -.00088, + .00000, .03476, .08145 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .58454, .28125, .76508, .04875, .00011, + .00000, .03471, .07998, + .58183, .27851, .74123, .04830, .00100, + .00000, .03463, .07857, + .57954, .27630, .72294, .04795, .00167, + .00000, .03456, .07744, + .57405, .27150, .68647, .04715, .00294, + .00000, .03429, .07512, + .56866, .26722, .65736, .04643, .00389, + -.00266, .03401, .07316, + .56221, .26233, .62056, .04554, .00482, + -.00132, .03364, .07099, + .55507, .25720, .58445, .04462, .00565, + -.00017, .03318, .06876, + .54826, .25254, .55349, .04375, .00630, + .00073, .03271, .06676 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .54116, .24783, .52390, .04287, .00685, + .00154, .03220, .06477, + .53514, .24390, .50063, .04210, .00726, + .00214, .03175, .06318, + .52759, .23914, .47374, .04115, .00767, + .00277, .03117, .06128, + .52083, .23495, .45126, .04033, .00798, + .00326, .03064, .05961, + .51460, .23116, .43174, .03958, .00823, + .00368, .03015, .05812, + .50651, .22633, .40814, .03858, .00847, + .00412, .02950, .05627, + .49883, .22186, .38726, .03765, .00865, + .00447, .02889, .05458, + .49164, .21774, .36882, .03682, .00880, + .00477, .02831, .05302 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48439, .21361, .35131, .03597, .00890, + .00502, .02772, .05151, + .47727, .20964, .33506, .03516, .00897, + .00523, .02713, .05008, + .47058, .20595, .32051, .03441, .00902, + .00542, .02659, .04874, + .46419, .20248, .30741, .03368, .00905, + .00555, .02607, .04752, + .45787, .19908, .29495, .03298, .00905, + .00567, .02557, .04632, + .45159, .19572, .28315, .03229, .00905, + .00577, .02505, .04517, + .44573, .19259, .27249, .03165, .00903, + .00585, .02458, .04409, + .44013, .18963, .26280, .03104, .00900, + .00590, .02414, .04310 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43458, .18671, .25347, .03045, .00897, + .00596, .02371, .04211, + .42905, .18384, .24460, .02985, .00892, + .00600, .02327, .04116, + .42385, .18116, .23649, .02930, .00888, + .00603, .02285, .04028, + .41892, .17863, .22908, .02877, .00882, + .00604, .02247, .03945, + .41395, .17609, .22187, .02826, .00877, + .00606, .02208, .03864 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .61401, .30513, .85656, .04275, .00000, + .00000, .02755, .08101, + .61481, .30252, .82879, .04245, .00000, + .00000, .02776, .07881, + .61363, .29796, .80115, .04195, -.00712, + .00000, .02796, .07571, + .61136, .29420, .76912, .04154, -.00607, + .00000, .02805, .07358, + .60805, .29004, .73406, .04111, -.00442, + .00000, .02814, .07142, + .60446, .28627, .70453, .04067, -.00325, + .00000, .02812, .06964, + .60052, .28256, .67707, .04024, -.00219, + .00000, .02804, .06795, + .59588, .27855, .64886, .03975, -.00116, + .00000, .02792, .06618 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .59151, .27495, .62500, .03931, -.00035, + .00000, .02778, .06466, + .58701, .27143, .60254, .03885, .00035, + .00000, .02761, .06324, + .58333, .26863, .58537, .03848, .00089, + .00000, .02747, .06214, + .57499, .26264, .55121, .03763, .00189, + .00000, .02711, .05988, + .56729, .25745, .52474, .03694, .00263, + -.00228, .02676, .05797, + .55836, .25161, .49177, .03608, .00334, + -.00124, .02634, .05592, + .54877, .24560, .45971, .03521, .00397, + -.00036, .02584, .05380, + .53991, .24017, .43252, .03438, .00447, + .00034, .02534, .05196 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53085, .23471, .40679, .03350, .00488, + .00095, .02483, .05020, + .52322, .23027, .38675, .03280, .00517, + .00139, .02438, .04874, + .51386, .22491, .36374, .03196, .00547, + .00186, .02383, .04700, + .50555, .22025, .34466, .03120, .00569, + .00223, .02333, .04552, + .49798, .21605, .32821, .03052, .00586, + .00252, .02287, .04422, + .48829, .21076, .30847, .02965, .00602, + .00284, .02229, .04258, + .47923, .20587, .29112, .02884, .00614, + .00310, .02174, .04111, + .47081, .20138, .27591, .02811, .00623, + .00331, .02120, .03979 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46238, .19697, .26158, .02738, .00630, + .00349, .02068, .03850, + .45420, .19272, .24839, .02667, .00634, + .00364, .02018, .03728, + .44659, .18877, .23665, .02601, .00636, + .00376, .01972, .03616, + .43937, .18510, .22612, .02538, .00636, + .00385, .01928, .03513, + .43225, .18150, .21613, .02479, .00636, + .00393, .01884, .03412, + .42525, .17799, .20678, .02419, .00634, + .00399, .01843, .03314, + .41872, .17474, .19837, .02365, .00631, + .00403, .01803, .03225, + .41251, .17167, .19073, .02313, .00628, + .00407, .01765, .03144 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40639, .16865, .18340, .02263, .00625, + .00411, .01727, .03066, + .40032, .16569, .17649, .02214, .00620, + .00412, .01691, .02989, + .39464, .16292, .17017, .02170, .00616, + .00414, .01658, .02917, + .38928, .16034, .16445, .02128, .00611, + .00414, .01626, .02849, + .38390, .15777, .15888, .02087, .00606, + .00414, .01595, .02782 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63431, .30490, .74172, .03541, .00000, + .00000, .02253, .06745, + .63214, .30086, .71235, .03507, .00000, + .00000, .02265, .06518, + .62690, .29424, .68174, .03450, -.00631, + .00000, .02277, .06203, + .62176, .28920, .64957, .03404, -.00538, + .00000, .02273, .05995, + .61551, .28386, .61526, .03359, -.00399, + .00000, .02269, .05785, + .60958, .27902, .58671, .03314, -.00301, + .00000, .02257, .05614, + .60347, .27437, .56041, .03268, -.00214, + .00000, .02244, .05452, + .59663, .26942, .53368, .03218, -.00129, + .00000, .02228, .05285 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .59037, .26511, .51134, .03171, -.00064, + .00000, .02209, .05147, + .58408, .26093, .49046, .03126, -.00007, + .00000, .02190, .05014, + .57905, .25766, .47464, .03090, .00037, + .00000, .02171, .04911, + .56798, .25069, .44329, .03012, .00117, + .00000, .02134, .04698, + .55819, .24473, .41925, .02941, .00175, + -.00194, .02099, .04528, + .54698, .23819, .38997, .02865, .00232, + -.00111, .02053, .04340, + .53522, .23144, .36185, .02779, .00280, + -.00043, .02004, .04156, + .52450, .22543, .33820, .02704, .00317, + .00009, .01958, .03995 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51366, .21950, .31606, .02628, .00349, + .00057, .01909, .03834, + .50470, .21470, .29886, .02566, .00370, + .00090, .01869, .03708, + .49379, .20893, .27938, .02488, .00392, + .00126, .01818, .03560, + .48425, .20392, .26332, .02421, .00407, + .00152, .01773, .03435, + .47565, .19943, .24955, .02359, .00419, + .00174, .01733, .03324, + .46465, .19386, .23319, .02285, .00431, + .00198, .01681, .03186, + .45448, .18872, .21894, .02215, .00438, + .00216, .01633, .03063, + .44510, .18404, .20653, .02151, .00444, + .00231, .01588, .02952 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43581, .17946, .19489, .02085, .00448, + .00244, .01543, .02847, + .42683, .17508, .18427, .02025, .00449, + .00254, .01500, .02746, + .41847, .17103, .17484, .01972, .00451, + .00262, .01460, .02654, + .41067, .16727, .16646, .01919, .00449, + .00268, .01423, .02568, + .40301, .16361, .15853, .01869, .00449, + .00274, .01387, .02487, + .39548, .16005, .15116, .01818, .00446, + .00278, .01351, .02411, + .38850, .15677, .14456, .01772, .00444, + .00281, .01317, .02340, + .38190, .15368, .13859, .01731, .00440, + .00282, .01288, .02275 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37540, .15066, .13290, .01690, .00437, + .00284, .01259, .02210, + .36903, .14770, .12752, .01650, .00433, + .00285, .01229, .02149, + .36307, .14495, .12266, .01612, .00429, + .00285, .01201, .02093, + .35747, .14237, .11823, .01576, .00425, + .00285, .01175, .02041, + .35184, .13982, .11396, .01542, .00421, + .00285, .01151, .01990 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64774, .30082, .64193, .02912, .00000, + .00000, .01829, .05495, + .64243, .29543, .61175, .02884, .00000, + .00000, .01831, .05280, + .63273, .28707, .57949, .02827, -.00558, + .00000, .01825, .04990, + .62465, .28084, .54776, .02787, -.00474, + .00000, .01819, .04796, + .61554, .27437, .51474, .02747, -.00359, + .00000, .01808, .04599, + .60713, .26879, .48754, .02707, -.00275, + .00000, .01795, .04435, + .59886, .26341, .46281, .02662, -.00202, + .00000, .01778, .04290, + .58984, .25770, .43791, .02614, -.00132, + .00000, .01758, .04142 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .58182, .25278, .41722, .02572, -.00078, + .00000, .01741, .04011, + .57393, .24807, .39805, .02528, -.00032, + .00000, .01720, .03894, + .56767, .24440, .38362, .02493, .00003, + .00000, .01701, .03805, + .55415, .23668, .35515, .02419, .00068, + .00000, .01662, .03621, + .54237, .23019, .33378, .02357, .00114, + -.00163, .01627, .03471, + .52924, .22305, .30809, .02283, .00159, + -.00098, .01586, .03311, + .51562, .21580, .28365, .02205, .00196, + -.00045, .01540, .03154, + .50333, .20943, .26332, .02138, .00224, + -.00005, .01497, .03017 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49104, .20317, .24443, .02071, .00249, + .00032, .01455, .02883, + .48098, .19808, .22991, .02015, .00265, + .00058, .01420, .02776, + .46888, .19207, .21356, .01948, .00281, + .00084, .01377, .02652, + .45837, .18688, .20023, .01888, .00292, + .00104, .01337, .02549, + .44894, .18224, .18886, .01833, .00300, + .00120, .01302, .02460, + .43704, .17651, .17546, .01766, .00309, + .00138, .01256, .02351, + .42604, .17130, .16385, .01706, .00313, + .00151, .01215, .02252, + .41596, .16656, .15383, .01652, .00317, + .00162, .01177, .02162 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40609, .16194, .14452, .01596, .00319, + .00171, .01142, .02073, + .39657, .15755, .13605, .01545, .00320, + .00178, .01107, .01992, + .38777, .15352, .12859, .01500, .00319, + .00183, .01074, .01918, + .37957, .14977, .12198, .01456, .00319, + .00188, .01043, .01853, + .37156, .14612, .11576, .01414, .00317, + .00191, .01013, .01792, + .36376, .14261, .11000, .01373, .00315, + .00193, .00986, .01730, + .35656, .13937, .10486, .01335, .00313, + .00196, .00962, .01672, + .34975, .13635, .10025, .01300, .00310, + .00196, .00936, .01623 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34307, .13340, .09588, .01267, .00307, + .00197, .00912, .01573, + .33655, .13051, .09177, .01233, .00304, + .00198, .00887, .01525, + .33048, .12783, .08805, .01202, .00301, + .00198, .00866, .01482, + .32477, .12534, .08470, .01174, .00297, + .00197, .00845, .01440, + .31906, .12288, .08145, .01148, .00294, + .00198, .00826, .01400 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .65325, .29456, .55370, .02477, .00000, + .00000, .01400, .04320, + .64483, .28784, .52322, .02444, .00000, + .00000, .01410, .04131, + .63100, .27772, .48987, .02385, -.00491, + .00000, .01411, .03882, + .62008, .27050, .45921, .02339, -.00416, + .00000, .01407, .03710, + .60829, .26307, .42779, .02290, -.00317, + .00000, .01399, .03549, + .59782, .25657, .40233, .02241, -.00247, + .00000, .01387, .03416, + .58757, .25050, .37929, .02199, -.00185, + .00000, .01376, .03290, + .57658, .24421, .35636, .02152, -.00127, + .00000, .01360, .03160 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56696, .23882, .33752, .02108, -.00083, + .00000, .01339, .03059, + .55761, .23368, .32028, .02066, -.00044, + .00000, .01321, .02959, + .55026, .22968, .30737, .02033, -.00016, + .00000, .01307, .02882, + .53466, .22134, .28206, .01960, .00036, + .00000, .01273, .02730, + .52132, .21444, .26319, .01900, .00073, + -.00135, .01242, .02606, + .50653, .20693, .24094, .01833, .00108, + -.00084, .01208, .02473, + .49132, .19940, .22002, .01765, .00136, + -.00044, .01169, .02344, + .47779, .19278, .20282, .01702, .00159, + -.00011, .01133, .02231 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46446, .18629, .18700, .01638, .00177, + .00017, .01095, .02127, + .45363, .18108, .17493, .01584, .00189, + .00036, .01063, .02046, + .44062, .17495, .16142, .01527, .00200, + .00056, .01027, .01942, + .42936, .16971, .15051, .01476, .00208, + .00070, .00995, .01861, + .41930, .16507, .14129, .01426, .00214, + .00083, .00963, .01794, + .40677, .15933, .13049, .01369, .00220, + .00096, .00932, .01701, + .39531, .15411, .12125, .01315, .00224, + .00105, .00897, .01622, + .38486, .14939, .11327, .01268, .00226, + .00113, .00866, .01555 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37454, .14485, .10591, .01228, .00227, + .00120, .00837, .01484, + .36474, .14051, .09925, .01185, .00227, + .00125, .00809, .01422, + .35575, .13656, .09344, .01143, .00226, + .00128, .00782, .01370, + .34741, .13291, .08833, .01105, .00225, + .00131, .00757, .01319, + .33927, .12937, .08355, .01069, .00224, + .00134, .00734, .01269, + .33131, .12600, .07914, .01039, .00222, + .00135, .00712, .01220, + .32399, .12288, .07521, .01010, .00220, + .00136, .00690, .01177, + .31718, .11995, .07173, .00981, .00218, + .00137, .00672, .01139 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31052, .11709, .06839, .00953, .00215, + .00137, .00653, .01103, + .30399, .11434, .06529, .00926, .00213, + .00138, .00635, .01067, + .29790, .11179, .06251, .00901, .00210, + .00137, .00618, .01035, + .29225, .10942, .06000, .00877, .00207, + .00137, .00603, .01005, + .28662, .10707, .05761, .00853, .00204, + .00136, .00586, .00975 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .65311, .28461, .47242, .02041, .00000, + .00000, .01092, .03344, + .64158, .27669, .44239, .02004, .00000, + .00000, .01099, .03195, + .62338, .26533, .40941, .01947, -.00428, + .00000, .01104, .02982, + .60970, .25728, .38020, .01911, -.00361, + .00000, .01101, .02838, + .59538, .24900, .35107, .01862, -.00277, + .00000, .01093, .02704, + .58278, .24205, .32761, .01824, -.00218, + .00000, .01081, .02590, + .57072, .23551, .30672, .01781, -.00167, + .00000, .01066, .02488, + .55798, .22873, .28608, .01734, -.00118, + .00000, .01049, .02388 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54696, .22300, .26929, .01697, -.00082, + .00000, .01034, .02297, + .53635, .21759, .25403, .01657, -.00051, + .00000, .01017, .02216, + .52804, .21339, .24269, .01627, -.00027, + .00000, .01003, .02155, + .51056, .20472, .22062, .01565, .00014, + .00000, .00971, .02031, + .49585, .19760, .20436, .01511, .00043, + -.00111, .00945, .01931, + .47979, .18991, .18553, .01449, .00071, + -.00072, .00914, .01825, + .46350, .18219, .16797, .01385, .00093, + -.00040, .00881, .01722, + .44904, .17550, .15366, .01331, .00110, + -.00015, .00851, .01633 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43481, .16901, .14065, .01278, .00123, + .00006, .00820, .01548, + .42333, .16384, .13083, .01235, .00133, + .00021, .00794, .01482, + .40980, .15773, .11992, .01182, .00141, + .00036, .00764, .01405, + .39810, .15254, .11119, .01138, .00148, + .00048, .00737, .01339, + .38765, .14798, .10387, .01101, .00152, + .00056, .00714, .01282, + .37475, .14232, .09531, .01053, .00155, + .00065, .00686, .01214, + .36303, .13724, .08804, .01008, .00158, + .00073, .00659, .01156, + .35240, .13267, .08186, .00969, .00159, + .00078, .00633, .01103 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34202, .12825, .07621, .00930, .00160, + .00083, .00609, .01052, + .33216, .12409, .07111, .00894, .00160, + .00086, .00586, .01005, + .32312, .12028, .06668, .00861, .00159, + .00090, .00566, .00963, + .31476, .11679, .06282, .00831, .00158, + .00091, .00547, .00925, + .30666, .11342, .05922, .00801, .00157, + .00093, .00530, .00887, + .29880, .11018, .05591, .00775, .00155, + .00093, .00511, .00854, + .29157, .10721, .05299, .00750, .00153, + .00094, .00494, .00822, + .28484, .10448, .05040, .00728, .00151, + .00094, .00481, .00791 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27826, .10181, .04794, .00707, .00150, + .00095, .00467, .00761, + .27186, .09923, .04566, .00686, .00148, + .00095, .00452, .00736, + .26594, .09684, .04361, .00666, .00146, + .00095, .00439, .00713, + .26042, .09461, .04178, .00647, .00143, + .00094, .00427, .00691, + .25497, .09241, .04002, .00627, .00141, + .00094, .00415, .00670 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64632, .27270, .39694, .01698, .00000, + .00000, .00823, .02512, + .63169, .26397, .36814, .01666, .00000, + .00000, .00831, .02391, + .60962, .25137, .33635, .01613, -.00368, + .00000, .00838, .02223, + .59355, .24261, .30933, .01570, -.00309, + .00000, .00835, .02115, + .57685, .23379, .28280, .01527, -.00239, + .00000, .00825, .02010, + .56246, .22642, .26178, .01485, -.00189, + .00000, .00819, .01921, + .54885, .21954, .24319, .01448, -.00146, + .00000, .00808, .01839, + .53461, .21247, .22505, .01407, -.00107, + .00000, .00795, .01754 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52242, .20648, .21044, .01367, -.00076, + .00000, .00782, .01687, + .51077, .20084, .19731, .01333, -.00051, + .00000, .00768, .01624, + .50171, .19650, .18755, .01307, -.00033, + .00000, .00757, .01578, + .48287, .18770, .16883, .01247, .00001, + .00000, .00735, .01471, + .46719, .18046, .15518, .01198, .00023, + -.00090, .00711, .01396, + .45011, .17275, .13958, .01143, .00045, + -.00059, .00685, .01315, + .43296, .16505, .12523, .01088, .00062, + -.00035, .00658, .01237, + .41791, .15839, .11367, .01040, .00075, + -.00016, .00632, .01170 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40323, .15199, .10323, .00995, .00085, + .00000, .00605, .01106, + .39142, .14688, .09543, .00954, .00093, + .00012, .00584, .01057, + .37749, .14093, .08685, .00912, .00099, + .00023, .00559, .00999, + .36563, .13590, .08002, .00874, .00103, + .00031, .00539, .00950, + .35513, .13146, .07432, .00841, .00106, + .00038, .00521, .00907, + .34210, .12604, .06779, .00801, .00109, + .00045, .00497, .00855, + .33031, .12118, .06230, .00766, .00111, + .00050, .00476, .00808, + .31969, .11682, .05762, .00734, .00112, + .00054, .00457, .00766 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30942, .11260, .05335, .00704, .00112, + .00058, .00439, .00729, + .29967, .10865, .04955, .00674, .00111, + .00060, .00421, .00695, + .29078, .10507, .04628, .00646, .00111, + .00062, .00404, .00665, + .28257, .10179, .04345, .00624, .00110, + .00063, .00389, .00637, + .27462, .09863, .04079, .00603, .00109, + .00064, .00376, .00610, + .26697, .09560, .03840, .00581, .00107, + .00064, .00364, .00585, + .25995, .09283, .03628, .00560, .00107, + .00065, .00351, .00562, + .25344, .09028, .03442, .00542, .00105, + .00066, .00339, .00541 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24709, .08780, .03266, .00524, .00103, + .00065, .00328, .00522, + .24095, .08540, .03105, .00507, .00102, + .00065, .00317, .00503, + .23528, .08318, .02961, .00491, .00100, + .00065, .00307, .00485, + .23001, .08114, .02831, .00475, .00099, + .00065, .00298, .00468, + .22481, .07913, .02707, .00460, .00097, + .00064, .00290, .00452 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .63378, .25873, .32601, .01392, .00000, + .00000, .00605, .01849, + .61625, .24932, .29919, .01362, .00000, + .00000, .00622, .01752, + .59063, .23586, .26968, .01316, -.00311, + .00000, .00629, .01622, + .57239, .22661, .24544, .01274, -.00260, + .00000, .00628, .01541, + .55366, .21744, .22204, .01235, -.00202, + .00000, .00624, .01455, + .53785, .20971, .20367, .01195, -.00160, + .00000, .00616, .01393, + .52293, .20263, .18768, .01157, -.00125, + .00000, .00608, .01330, + .50744, .19543, .17221, .01120, -.00093, + .00000, .00598, .01265 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49422, .18939, .15987, .01088, -.00069, + .00000, .00587, .01213, + .48180, .18370, .14884, .01055, -.00048, + .00000, .00575, .01168, + .47224, .17936, .14076, .01026, -.00034, + .00000, .00565, .01133, + .45234, .17047, .12530, .00978, -.00008, + .00000, .00547, .01059, + .43597, .16333, .11417, .00935, .00011, + -.00071, .00528, .00999, + .41830, .15566, .10168, .00889, .00027, + -.00049, .00504, .00937, + .40062, .14813, .09026, .00845, .00040, + -.00030, .00481, .00877, + .38528, .14166, .08118, .00804, .00050, + -.00015, .00462, .00826 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .37042, .13545, .07310, .00762, .00058, + -.00003, .00442, .00775, + .35849, .13054, .06710, .00734, .00063, + .00005, .00427, .00736, + .34452, .12481, .06057, .00697, .00068, + .00014, .00406, .00695, + .33269, .11998, .05542, .00663, .00071, + .00020, .00389, .00661, + .32227, .11575, .05117, .00632, .00073, + .00025, .00377, .00628, + .30939, .11062, .04636, .00603, .00075, + .00030, .00357, .00589, + .29776, .10603, .04231, .00576, .00076, + .00034, .00341, .00556, + .28733, .10193, .03891, .00551, .00077, + .00036, .00327, .00526 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27732, .09797, .03586, .00524, .00077, + .00039, .00310, .00500, + .26788, .09427, .03316, .00499, .00077, + .00040, .00298, .00474, + .25928, .09093, .03085, .00478, .00077, + .00042, .00286, .00452, + .25136, .08790, .02882, .00459, .00076, + .00043, .00276, .00433, + .24371, .08498, .02695, .00442, .00075, + .00043, .00264, .00415, + .23640, .08219, .02530, .00424, .00074, + .00044, .00255, .00396, + .22972, .07965, .02383, .00409, .00073, + .00044, .00245, .00379, + .22355, .07729, .02255, .00393, .00072, + .00045, .00236, .00365 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21755, .07501, .02135, .00378, .00070, + .00044, .00228, .00350, + .21170, .07283, .02026, .00366, .00069, + .00044, .00220, .00336, + .20628, .07083, .01926, .00356, .00068, + .00044, .00214, .00323, + .20130, .06898, .01839, .00346, .00067, + .00044, .00206, .00312, + .19639, .06716, .01755, .00334, .00066, + .00043, .00200, .00301 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61570, .24316, .25949, .01116, .00000, + .00000, .00454, .01325, + .59585, .23307, .23543, .01087, .00000, + .00000, .00465, .01260, + .56706, .21910, .20912, .01038, -.00259, + .00000, .00472, .01171, + .54688, .20961, .18812, .01006, -.00214, + .00000, .00471, .01104, + .52660, .20019, .16815, .00969, -.00167, + .00000, .00470, .01042, + .50946, .19242, .15274, .00937, -.00133, + .00000, .00460, .00996, + .49358, .18527, .13939, .00904, -.00105, + .00000, .00454, .00951, + .47722, .17799, .12663, .00871, -.00079, + .00000, .00446, .00904 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .46334, .17198, .11659, .00848, -.00060, + .00000, .00437, .00862, + .45033, .16638, .10772, .00821, -.00044, + .00000, .00428, .00823, + .44031, .16212, .10122, .00801, -.00032, + .00000, .00421, .00794, + .41976, .15337, .08907, .00753, -.00012, + .00000, .00402, .00742, + .40301, .14636, .08031, .00721, .00002, + -.00056, .00386, .00699, + .38509, .13897, .07063, .00678, .00015, + -.00039, .00374, .00653, + .36730, .13168, .06196, .00636, .00025, + -.00024, .00355, .00611, + .35190, .12547, .05511, .00604, .00033, + -.00013, .00338, .00574 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33707, .11956, .04908, .00573, .00038, + -.00005, .00321, .00539, + .32523, .11489, .04467, .00549, .00043, + .00002, .00309, .00511, + .31153, .10948, .03997, .00515, .00046, + .00008, .00293, .00479, + .29989, .10492, .03629, .00489, .00048, + .00013, .00279, .00454, + .28966, .10094, .03324, .00469, .00049, + .00016, .00267, .00433, + .27717, .09615, .02982, .00444, .00051, + .00020, .00255, .00405, + .26596, .09188, .02703, .00421, .00052, + .00022, .00242, .00379, + .25592, .08808, .02471, .00401, .00052, + .00024, .00231, .00357 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24627, .08443, .02261, .00381, .00053, + .00026, .00221, .00339, + .23722, .08103, .02079, .00362, .00052, + .00027, .00211, .00320, + .22902, .07796, .01922, .00346, .00052, + .00028, .00203, .00306, + .22151, .07518, .01792, .00330, .00051, + .00029, .00194, .00291, + .21428, .07251, .01670, .00316, .00051, + .00029, .00185, .00276, + .20738, .06997, .01562, .00304, .00050, + .00030, .00178, .00264, + .20107, .06766, .01466, .00292, .00049, + .00029, .00170, .00254, + .19525, .06555, .01384, .00282, .00048, + .00030, .00164, .00242 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18959, .06349, .01309, .00272, .00048, + .00030, .00159, .00232, + .18418, .06152, .01237, .00261, .00047, + .00030, .00154, .00223, + .17920, .05972, .01175, .00250, .00046, + .00029, .00148, .00215, + .17459, .05806, .01120, .00241, .00046, + .00030, .00143, .00208, + .17002, .05643, .01068, .00234, .00044, + .00029, .00137, .00200 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .59255, .22677, .19783, .00908, .00000, + .00000, .00318, .00912, + .57051, .21636, .17716, .00881, .00000, + .00000, .00331, .00864, + .53931, .20190, .15482, .00834, -.00211, + .00000, .00335, .00810, + .51774, .19230, .13729, .00798, -.00175, + .00000, .00341, .00767, + .49613, .18284, .12090, .00764, -.00135, + .00000, .00340, .00730, + .47817, .17510, .10850, .00740, -.00109, + .00000, .00337, .00684, + .46154, .16801, .09791, .00714, -.00086, + .00000, .00331, .00648, + .44456, .16089, .08788, .00684, -.00066, + .00000, .00323, .00617 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .43031, .15496, .08004, .00658, -.00050, + .00000, .00318, .00593, + .41701, .14945, .07324, .00632, -.00038, + .00000, .00310, .00569, + .40684, .14524, .06834, .00612, -.00029, + .00000, .00303, .00549, + .38612, .13680, .05912, .00569, -.00013, + .00000, .00289, .00514, + .36927, .13010, .05268, .00539, -.00002, + -.00043, .00278, .00481, + .35133, .12302, .04554, .00511, .00008, + -.00030, .00267, .00446, + .33364, .11612, .03930, .00483, .00016, + -.00019, .00253, .00412, + .31845, .11024, .03446, .00455, .00021, + -.00011, .00241, .00387 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30392, .10462, .03026, .00429, .00025, + -.00005, .00227, .00363, + .29240, .10024, .02718, .00407, .00028, + .00000, .00219, .00344, + .27906, .09522, .02397, .00384, .00031, + .00005, .00206, .00321, + .26783, .09101, .02151, .00364, .00032, + .00008, .00197, .00302, + .25799, .08733, .01952, .00347, .00034, + .00010, .00188, .00287, + .24602, .08291, .01732, .00326, .00034, + .00013, .00177, .00268, + .23533, .07897, .01552, .00308, .00035, + .00015, .00167, .00252, + .22581, .07548, .01402, .00293, .00035, + .00016, .00160, .00239 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21669, .07218, .01275, .00277, .00035, + .00017, .00150, .00225, + .20815, .06909, .01163, .00263, .00035, + .00018, .00143, .00212, + .20042, .06631, .01069, .00251, .00035, + .00019, .00136, .00200, + .19342, .06381, .00988, .00239, .00035, + .00020, .00131, .00191, + .18670, .06142, .00917, .00226, .00034, + .00019, .00125, .00181, + .18025, .05912, .00854, .00218, .00034, + .00020, .00120, .00172, + .17439, .05705, .00799, .00211, .00033, + .00020, .00114, .00164, + .16902, .05516, .00753, .00202, .00033, + .00020, .00111, .00157 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16384, .05333, .00708, .00193, .00032, + .00020, .00108, .00150, + .15884, .05157, .00669, .00185, .00031, + .00020, .00104, .00144, + .15424, .04996, .00635, .00178, .00031, + .00020, .00099, .00139, + .15000, .04849, .00604, .00172, .00030, + .00020, .00096, .00133, + .14583, .04704, .00578, .00165, .00029, + .00019, .00091, .00129 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56505, .20947, .14149, .00724, .00000, + .00000, .00215, .00607, + .54136, .19888, .12461, .00691, .00000, + .00000, .00223, .00592, + .50805, .18459, .10658, .00663, -.00169, + .00000, .00234, .00541, + .48550, .17499, .09281, .00633, -.00138, + .00000, .00238, .00511, + .46313, .16558, .08016, .00606, -.00107, + .00000, .00239, .00480, + .44467, .15798, .07072, .00575, -.00087, + .00000, .00231, .00463, + .42762, .15109, .06270, .00554, -.00069, + .00000, .00229, .00441, + .41034, .14416, .05529, .00532, -.00053, + .00000, .00224, .00414 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39601, .13842, .04966, .00508, -.00042, + .00000, .00220, .00393, + .38262, .13313, .04477, .00488, -.00032, + .00000, .00215, .00376, + .37238, .12912, .04125, .00471, -.00024, + .00000, .00211, .00365, + .35162, .12109, .03482, .00448, -.00012, + .00000, .00200, .00332, + .33506, .11469, .03044, .00417, -.00005, + -.00033, .00190, .00318, + .31750, .10799, .02557, .00390, .00003, + -.00023, .00181, .00298, + .30025, .10153, .02137, .00368, .00009, + -.00015, .00171, .00274, + .28557, .09604, .01825, .00343, .00013, + -.00009, .00161, .00256 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27158, .09086, .01559, .00319, .00016, + -.00004, .00152, .00239, + .26044, .08682, .01369, .00308, .00019, + -.00001, .00146, .00224, + .24771, .08215, .01174, .00287, .00020, + .00002, .00140, .00208, + .23704, .07827, .01026, .00271, .00021, + .00005, .00133, .00197, + .22770, .07491, .00914, .00256, .00022, + .00006, .00125, .00188, + .21638, .07089, .00791, .00240, .00023, + .00009, .00117, .00173, + .20635, .06731, .00693, .00226, .00023, + .00010, .00110, .00162, + .19744, .06416, .00612, .00214, .00023, + .00011, .00105, .00151 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18890, .06117, .00547, .00204, .00024, + .00012, .00099, .00143, + .18096, .05841, .00490, .00193, .00023, + .00012, .00094, .00135, + .17382, .05592, .00445, .00182, .00023, + .00012, .00090, .00128, + .16734, .05369, .00408, .00173, .00023, + .00013, .00085, .00121, + .16113, .05154, .00373, .00165, .00022, + .00013, .00082, .00114, + .15522, .04952, .00345, .00158, .00022, + .00013, .00078, .00108, + .14987, .04770, .00321, .00151, .00022, + .00014, .00075, .00103, + .14500, .04601, .00301, .00144, .00021, + .00013, .00073, .00099 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14028, .04439, .00282, .00137, .00021, + .00013, .00069, .00095, + .13571, .04286, .00266, .00132, .00020, + .00013, .00067, .00090, + .13152, .04146, .00252, .00129, .00021, + .00013, .00064, .00085, + .12768, .04017, .00240, .00124, .00020, + .00013, .00062, .00082, + .12392, .03891, .00229, .00119, .00019, + .00013, .00060, .00079 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .53373, .19142, .09101, .00555, .00000, + .00000, .00154, .00399, + .50874, .18092, .07817, .00533, .00000, + .00000, .00160, .00386, + .47425, .16673, .06494, .00497, -.00132, + .00000, .00169, .00359, + .45106, .15736, .05476, .00473, -.00107, + .00000, .00169, .00343, + .42825, .14827, .04571, .00446, -.00084, + .00000, .00168, .00328, + .40935, .14098, .03906, .00435, -.00067, + .00000, .00168, .00307, + .39224, .13435, .03362, .00416, -.00054, + .00000, .00165, .00288, + .37507, .12770, .02867, .00392, -.00042, + .00000, .00160, .00275 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .36079, .12223, .02489, .00376, -.00033, + .00000, .00156, .00264, + .34760, .11722, .02176, .00359, -.00026, + .00000, .00152, .00249, + .33757, .11344, .01953, .00347, -.00020, + .00000, .00149, .00239, + .31721, .10584, .01562, .00321, -.00011, + .00000, .00140, .00224, + .30102, .09989, .01295, .00304, -.00005, + -.00025, .00138, .00207, + .28401, .09368, .01007, .00282, .00000, + -.00017, .00128, .00194, + .26748, .08770, .00774, .00259, .00004, + -.00011, .00119, .00178, + .25341, .08265, .00600, .00242, .00007, + -.00007, .00114, .00167 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .24005, .07791, .00456, .00227, .00009, + -.00004, .00109, .00158, + .22960, .07423, .00366, .00213, .00011, + -.00002, .00103, .00147, + .21757, .07002, .00275, .00200, .00013, + .00001, .00095, .00133, + .20753, .06651, .00212, .00188, .00013, + .00002, .00090, .00125, + .19881, .06345, .00162, .00176, .00014, + .00004, .00086, .00121, + .18830, .05984, .00112, .00165, .00014, + .00005, .00081, .00114, + .17899, .05665, .00076, .00154, .00015, + .00006, .00077, .00106, + .17076, .05385, .00053, .00145, .00015, + .00007, .00073, .00097 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16294, .05118, .00032, .00137, .00016, + .00008, .00071, .00091, + .15568, .04873, .00016, .00130, .00015, + .00008, .00066, .00087, + .14913, .04653, .00008, .00123, .00015, + .00009, .00063, .00082, + .14323, .04457, .00000, .00117, .00015, + .00008, .00060, .00079, + .13758, .04270, -.00003, .00110, .00014, + .00008, .00056, .00074, + .13223, .04092, -.00006, .00105, .00014, + .00008, .00053, .00071, + .12739, .03932, -.00008, .00101, .00014, + .00009, .00051, .00068, + .12297, .03786, -.00008, .00096, .00014, + .00009, .00050, .00063 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11871, .03647, -.00009, .00093, .00013, + .00009, .00047, .00060, + .11466, .03513, -.00007, .00088, .00013, + .00008, .00045, .00057, + .11094, .03391, -.00006, .00083, .00013, + .00008, .00043, .00056, + .10751, .03280, -.00005, .00080, .00013, + .00009, .00042, .00054, + .10415, .03171, -.00004, .00078, .00013, + .00009, .00040, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49938, .17320, .04730, .00397, .00000, + .00000, .00108, .00260, + .47356, .16291, .03842, .00388, .00000, + .00000, .00119, .00246, + .43822, .14909, .02998, .00356, -.00101, + .00000, .00125, .00235, + .41471, .14009, .02334, .00342, -.00082, + .00000, .00124, .00227, + .39191, .13133, .01766, .00317, -.00064, + .00000, .00127, .00214, + .37327, .12435, .01363, .00300, -.00051, + .00000, .00124, .00204, + .35635, .11806, .01043, .00286, -.00041, + .00000, .00121, .00196, + .33936, .11181, .00762, .00272, -.00032, + .00000, .00119, .00185 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32540, .10666, .00565, .00255, -.00025, + .00000, .00116, .00177, + .31249, .10198, .00404, .00243, -.00020, + .00000, .00113, .00169, + .30271, .09848, .00294, .00234, -.00017, + .00000, .00110, .00164, + .28313, .09145, .00113, .00215, -.00010, + .00000, .00106, .00150, + .26764, .08597, -.00002, .00201, -.00005, + -.00018, .00099, .00141, + .25146, .08030, -.00126, .00184, -.00002, + -.00013, .00094, .00128, + .23582, .07483, -.00223, .00169, .00001, + -.00009, .00088, .00121, + .22255, .07025, -.00280, .00156, .00004, + -.00005, .00083, .00114 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .21000, .06598, -.00318, .00146, .00005, + -.00003, .00077, .00105, + .20019, .06263, -.00333, .00138, .00007, + -.00001, .00074, .00099, + .18902, .05886, -.00348, .00129, .00008, + .00000, .00069, .00091, + .17974, .05577, -.00354, .00122, .00009, + .00002, .00064, .00085, + .17171, .05310, -.00350, .00115, .00009, + .00003, .00061, .00079, + .16201, .04988, -.00343, .00107, .00009, + .00003, .00059, .00074, + .15350, .04707, -.00329, .00100, .00009, + .00004, .00054, .00069, + .14600, .04463, -.00317, .00093, .00009, + .00004, .00050, .00065 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13891, .04229, -.00304, .00088, .00010, + .00005, .00048, .00062, + .13233, .04015, -.00286, .00082, .00009, + .00005, .00046, .00057, + .12644, .03826, -.00271, .00078, .00010, + .00006, .00044, .00053, + .12113, .03655, -.00254, .00073, .00009, + .00005, .00042, .00051, + .11607, .03493, -.00240, .00069, .00009, + .00005, .00041, .00049, + .11133, .03340, -.00226, .00065, .00009, + .00005, .00038, .00046, + .10703, .03202, -.00212, .00062, .00008, + .00005, .00036, .00044, + .10311, .03077, -.00201, .00060, .00009, + .00006, .00035, .00043 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09933, .02957, -.00188, .00056, .00009, + .00006, .00032, .00041, + .09574, .02844, -.00176, .00054, .00009, + .00006, .00031, .00038, + .09244, .02741, -.00163, .00052, .00008, + .00006, .00030, .00036, + .08943, .02647, -.00153, .00050, .00008, + .00005, .00029, .00033, + .08649, .02554, -.00144, .00047, .00008, + .00005, .00028, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .46259, .15583, .00987, .00342, .00000, + .00000, .00045, .00140, + .43650, .14590, .00499, .00320, .00000, + .00000, .00053, .00139, + .40113, .13261, .00097, .00296, -.00075, + .00000, .00067, .00133, + .37795, .12400, -.00238, .00275, -.00061, + .00000, .00072, .00125, + .35546, .11580, -.00508, .00258, -.00047, + .00000, .00071, .00119, + .33722, .10916, -.00677, .00244, -.00038, + .00000, .00072, .00114, + .32077, .10327, -.00797, .00229, -.00031, + .00000, .00071, .00110, + .30435, .09745, -.00883, .00213, -.00024, + .00000, .00068, .00105 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .29084, .09273, -.00936, .00201, -.00019, + .00000, .00066, .00100, + .27851, .08839, -.00972, .00192, -.00016, + .00000, .00066, .00097, + .26920, .08510, -.00988, .00185, -.00012, + .00000, .00064, .00093, + .25044, .07871, -.00990, .00174, -.00008, + .00000, .00060, .00084, + .23584, .07369, -.00978, .00157, -.00004, + -.00013, .00056, .00081, + .22065, .06855, -.00977, .00142, -.00002, + -.00009, .00055, .00076, + .20595, .06364, -.00952, .00134, .00000, + -.00007, .00051, .00067, + .19364, .05952, -.00918, .00124, .00002, + -.00004, .00046, .00063 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18211, .05566, -.00879, .00114, .00003, + -.00003, .00043, .00060, + .17310, .05273, -.00845, .00108, .00004, + -.00001, .00043, .00056, + .16283, .04937, -.00794, .00100, .00005, + .00000, .00039, .00051, + .15434, .04662, -.00749, .00093, .00005, + .00001, .00037, .00048, + .14705, .04426, -.00712, .00088, .00005, + .00001, .00035, .00046, + .13826, .04146, -.00660, .00082, .00006, + .00002, .00033, .00042, + .13061, .03899, -.00614, .00076, .00006, + .00002, .00031, .00040, + .12391, .03683, -.00572, .00069, .00006, + .00003, .00030, .00037 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11757, .03482, -.00532, .00063, .00006, + .00003, .00028, .00034, + .11168, .03296, -.00494, .00060, .00006, + .00003, .00025, .00033, + .10641, .03133, -.00460, .00058, .00006, + .00003, .00024, .00030, + .10172, .02986, -.00429, .00054, .00006, + .00004, .00023, .00029, + .09726, .02847, -.00400, .00050, .00006, + .00004, .00022, .00027, + .09303, .02717, -.00372, .00049, .00006, + .00004, .00019, .00026, + .08921, .02600, -.00347, .00046, .00006, + .00004, .00018, .00023, + .08577, .02494, -.00326, .00045, .00005, + .00004, .00019, .00022 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08248, .02392, -.00304, .00042, .00005, + .00003, .00017, .00021, + .07933, .02295, -.00285, .00040, .00005, + .00003, .00016, .00021, + .07647, .02207, -.00268, .00039, .00005, + .00003, .00016, .00020, + .07385, .02127, -.00251, .00037, .00005, + .00003, .00015, .00019, + .07130, .02050, -.00237, .00034, .00005, + .00003, .00015, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42392, .13783, -.02012, .00224, .00000, + .00000, .00039, .00089, + .39793, .12840, -.02146, .00209, .00000, + .00000, .00045, .00090, + .36316, .11591, -.02132, .00192, -.00055, + .00000, .00050, .00085, + .34047, .10790, -.02191, .00180, -.00044, + .00000, .00053, .00081, + .31849, .10033, -.02196, .00173, -.00034, + .00000, .00049, .00081, + .30093, .09426, -.02170, .00159, -.00028, + .00000, .00049, .00077, + .28520, .08883, -.02126, .00150, -.00022, + .00000, .00049, .00073, + .26954, .08351, -.02065, .00142, -.00017, + .00000, .00048, .00069 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25669, .07920, -.01999, .00137, -.00014, + .00000, .00045, .00067, + .24502, .07528, -.01928, .00128, -.00012, + .00000, .00044, .00064, + .23624, .07233, -.01867, .00121, -.00009, + .00000, .00042, .00062, + .21878, .06658, -.01740, .00111, -.00006, + .00000, .00039, .00055, + .20515, .06209, -.01630, .00106, -.00004, + -.00009, .00037, .00052, + .19111, .05750, -.01527, .00096, -.00002, + -.00006, .00035, .00047, + .17767, .05316, -.01421, .00088, -.00001, + -.00005, .00034, .00042, + .16638, .04954, -.01318, .00079, .00000, + -.00004, .00032, .00039 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15583, .04617, -.01220, .00072, .00001, + -.00002, .00028, .00037, + .14767, .04359, -.01145, .00068, .00002, + -.00001, .00027, .00036, + .13840, .04067, -.01054, .00062, .00003, + .00000, .00027, .00032, + .13075, .03829, -.00981, .00060, .00003, + .00000, .00024, .00030, + .12416, .03625, -.00912, .00058, .00003, + .00000, .00022, .00026, + .11638, .03382, -.00836, .00053, .00004, + .00001, .00021, .00024, + .10954, .03172, -.00768, .00049, .00003, + .00001, .00020, .00023, + .10356, .02988, -.00706, .00045, .00003, + .00001, .00019, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09799, .02815, -.00649, .00039, .00004, + .00002, .00016, .00022, + .09282, .02659, -.00598, .00037, .00004, + .00002, .00015, .00019, + .08820, .02520, -.00554, .00037, .00004, + .00002, .00014, .00018, + .08409, .02396, -.00516, .00036, .00004, + .00002, .00014, .00017, + .08018, .02279, -.00478, .00035, .00003, + .00002, .00013, .00016, + .07654, .02169, -.00444, .00031, .00003, + .00002, .00013, .00016, + .07328, .02071, -.00413, .00028, .00003, + .00002, .00012, .00014, + .07030, .01982, -.00386, .00027, .00003, + .00002, .00011, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06744, .01897, -.00361, .00027, .00003, + .00002, .00011, .00014, + .06473, .01817, -.00338, .00026, .00003, + .00002, .00010, .00012, + .06226, .01744, -.00316, .00024, .00003, + .00002, .00010, .00012, + .06002, .01679, -.00299, .00024, .00004, + .00003, .00010, .00011, + .05783, .01614, -.00278, .00023, .00003, + .00003, .00009, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38391, .12055, -.04284, .00134, .00000, + .00000, .00033, .00058, + .35850, .11173, -.04111, .00133, .00000, + .00000, .00035, .00054, + .32481, .10016, -.03755, .00119, -.00039, + .00000, .00038, .00055, + .30295, .09284, -.03580, .00113, -.00031, + .00000, .00037, .00054, + .28210, .08582, -.03382, .00108, -.00024, + .00000, .00040, .00050, + .26540, .08035, -.03196, .00100, -.00019, + .00000, .00036, .00049, + .25051, .07548, -.03025, .00095, -.00016, + .00000, .00036, .00047, + .23579, .07068, -.02845, .00088, -.00012, + .00000, .00036, .00046 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22387, .06680, -.02683, .00084, -.00010, + .00000, .00033, .00041, + .21299, .06331, -.02538, .00080, -.00008, + .00000, .00033, .00039, + .20483, .06072, -.02428, .00078, -.00007, + .00000, .00033, .00039, + .18883, .05558, -.02198, .00064, -.00004, + .00000, .00030, .00035, + .17632, .05161, -.02018, .00060, -.00003, + -.00006, .00029, .00032, + .16346, .04759, -.01846, .00057, -.00001, + -.00004, .00027, .00030, + .15122, .04378, -.01673, .00052, .00000, + -.00003, .00023, .00027, + .14103, .04065, -.01533, .00050, .00000, + -.00002, .00022, .00025 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13157, .03775, -.01400, .00046, .00001, + -.00001, .00021, .00022, + .12432, .03551, -.01297, .00040, .00001, + -.00001, .00020, .00023, + .11603, .03301, -.01181, .00040, .00002, + .00000, .00019, .00020, + .10927, .03097, -.01086, .00036, .00002, + .00000, .00018, .00019, + .10350, .02924, -.01003, .00033, .00001, + .00000, .00017, .00018, + .09662, .02718, -.00906, .00029, .00002, + .00001, .00014, .00018, + .09065, .02540, -.00825, .00026, .00002, + .00001, .00013, .00017, + .08544, .02386, -.00754, .00025, .00002, + .00001, .00013, .00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08058, .02242, -.00694, .00024, .00002, + .00001, .00013, .00013, + .07611, .02111, -.00635, .00023, .00002, + .00001, .00012, .00012, + .07213, .01994, -.00584, .00022, .00002, + .00001, .00010, .00012, + .06858, .01891, -.00539, .00020, .00002, + .00001, .00009, .00010, + .06521, .01795, -.00498, .00020, .00002, + .00001, .00009, .00009, + .06209, .01705, -.00462, .00018, .00002, + .00001, .00009, .00009, + .05930, .01624, -.00428, .00018, .00002, + .00002, .00008, .00009, + .05675, .01552, -.00400, .00017, .00002, + .00002, .00008, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05432, .01482, -.00372, .00017, .00002, + .00002, .00008, .00006, + .05205, .01417, -.00347, .00014, .00002, + .00002, .00007, .00007, + .04999, .01357, -.00325, .00013, .00002, + .00002, .00007, .00007, + .04810, .01303, -.00304, .00012, .00002, + .00002, .00005, .00007, + .04626, .01251, -.00286, .00012, .00002, + .00002, .00005, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34410, .10463, -.05986, .00116, .00000, + .00000, .00006, .00022, + .31964, .09652, -.05551, .00106, .00000, + .00000, .00012, .00020, + .28742, .08590, -.04919, .00098, -.00027, + .00000, .00016, .00029, + .26681, .07923, -.04547, .00089, -.00022, + .00000, .00015, .00026, + .24721, .07296, -.04180, .00081, -.00016, + .00000, .00013, .00026, + .23161, .06796, -.03884, .00081, -.00013, + .00000, .00019, .00022, + .21781, .06360, -.03606, .00073, -.00011, + .00000, .00017, .00020, + .20427, .05932, -.03336, .00064, -.00008, + .00000, .00016, .00019 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19332, .05587, -.03113, .00056, -.00007, + .00000, .00018, .00019, + .18330, .05277, -.02910, .00057, -.00006, + .00000, .00017, .00019, + .17579, .05049, -.02760, .00057, -.00005, + .00000, .00016, .00019, + .16113, .04598, -.02460, .00051, -.00003, + .00000, .00013, .00019, + .14987, .04259, -.02231, .00045, -.00002, + -.00004, .00013, .00016, + .13833, .03909, -.02014, .00041, -.00002, + -.00003, .00012, .00016, + .12739, .03579, -.01804, .00038, -.00001, + -.00002, .00011, .00015, + .11833, .03307, -.01632, .00036, .00000, + -.00001, .00010, .00013 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10993, .03060, -.01474, .00033, .00000, + -.00001, .00009, .00012, + .10350, .02871, -.01355, .00031, .00000, + -.00001, .00010, .00009, + .09629, .02658, -.01224, .00027, .00000, + -.00001, .00009, .00010, + .09037, .02486, -.01115, .00023, .00001, + .00000, .00007, .00009, + .08533, .02339, -.01027, .00022, .00001, + .00000, .00007, .00009, + .07936, .02167, -.00925, .00023, .00001, + .00000, .00008, .00008, + .07417, .02018, -.00837, .00021, .00001, + .00000, .00007, .00008, + .06968, .01889, -.00764, .00022, .00001, + .00000, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06550, .01770, -.00693, .00019, .00001, + .00000, .00006, .00005, + .06168, .01662, -.00633, .00017, .00001, + .00000, .00006, .00006, + .05831, .01567, -.00582, .00016, .00002, + .00001, .00006, .00006, + .05531, .01482, -.00535, .00014, .00002, + .00001, .00004, .00006, + .05249, .01402, -.00493, .00012, .00002, + .00001, .00003, .00006, + .04985, .01329, -.00455, .00012, .00002, + .00001, .00004, .00004, + .04749, .01263, -.00421, .00012, .00001, + .00001, .00004, .00004, + .04535, .01204, -.00392, .00011, .00001, + .00001, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04331, .01147, -.00365, .00011, .00001, + .00001, .00003, .00005, + .04140, .01094, -.00339, .00011, .00001, + .00001, .00003, .00003, + .03967, .01046, -.00316, .00009, .00001, + .00001, .00003, .00003, + .03810, .01003, -.00297, .00009, .00001, + .00001, .00003, .00003, + .03658, .00961, -.00279, .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)/ + .30398, .08888, -.07020, .00057, .00000, + .00000, .00016, .00020, + .28092, .08158, -.06400, .00051, .00000, + .00000, .00015, .00023, + .25074, .07218, -.05555, .00049, -.00018, + .00000, .00017, .00018, + .23154, .06623, -.05060, .00046, -.00014, + .00000, .00014, .00023, + .21346, .06068, -.04581, .00042, -.00011, + .00000, .00015, .00019, + .19915, .05633, -.04205, .00040, -.00009, + .00000, .00016, .00018, + .18647, .05251, -.03864, .00037, -.00007, + .00000, .00015, .00017, + .17406, .04880, -.03532, .00037, -.00006, + .00000, .00012, .00014 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16408, .04580, -.03267, .00035, -.00005, + .00000, .00011, .00016, + .15512, .04314, -.03035, .00033, -.00004, + .00000, .00012, .00016, + .14847, .04115, -.02857, .00030, -.00003, + .00000, .00011, .00013, + .13535, .03729, -.02515, .00026, -.00003, + .00000, .00011, .00011, + .12533, .03436, -.02263, .00023, -.00002, + -.00003, .00010, .00012, + .11511, .03138, -.02016, .00022, -.00001, + -.00002, .00009, .00009, + .10549, .02862, -.01794, .00019, -.00001, + -.00001, .00010, .00010, + .09758, .02635, -.01608, .00016, -.00001, + -.00001, .00008, .00010 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09028, .02427, -.01443, .00015, .00000, + .00000, .00008, .00008, + .08470, .02270, -.01320, .00015, .00000, + .00000, .00007, .00008, + .07845, .02093, -.01182, .00014, .00000, + .00000, .00006, .00007, + .07337, .01951, -.01071, .00014, .00000, + .00000, .00006, .00006, + .06907, .01830, -.00983, .00012, .00000, + .00000, .00006, .00006, + .06398, .01689, -.00879, .00011, .00000, + .00000, .00006, .00004, + .05959, .01567, -.00790, .00010, .00000, + .00000, .00005, .00004, + .05580, .01462, -.00716, .00008, .00001, + .00001, .00005, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05228, .01365, -.00651, .00008, .00001, + .00001, .00003, .00005, + .04908, .01278, -.00590, .00008, .00001, + .00001, .00003, .00003, + .04626, .01201, -.00540, .00007, .00001, + .00001, .00003, .00003, + .04375, .01134, -.00497, .00007, .00001, + .00001, .00003, .00003, + .04140, .01069, -.00457, .00006, .00001, + .00001, .00003, .00003, + .03921, .01010, -.00419, .00006, .00001, + .00001, .00003, .00003, + .03727, .00958, -.00388, .00006, .00001, + .00001, .00003, .00003, + .03552, .00911, -.00360, .00005, .00001, + .00001, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03385, .00866, -.00333, .00005, .00001, + .00001, .00002, .00002, + .03228, .00823, -.00310, .00005, .00001, + .00001, .00002, .00002, + .03086, .00785, -.00288, .00005, .00001, + .00001, .00002, .00002, + .02957, .00752, -.00270, .00005, .00001, + .00001, .00002, .00002, + .02832, .00720, -.00253, .00005, .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)/ + .22711, .06182, -.07578, .00023, .00000, + .00000, .00001, -.00001, + .20753, .05611, -.06762, .00023, .00000, + .00000, .00001, .00005, + .18240, .04890, -.05710, .00019, -.00007, + .00000, .00003, .00003, + .16667, .04441, -.05085, .00013, -.00006, + .00000, .00006, .00002, + .15194, .04024, -.04510, .00017, -.00005, + .00000, .00005, .00003, + .14053, .03701, -.04063, .00012, -.00004, + .00000, .00003, .00003, + .13049, .03423, -.03684, .00013, -.00003, + .00000, .00004, .00004, + .12075, .03153, -.03318, .00011, -.00003, + .00000, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11301, .02940, -.03034, .00012, -.00002, + .00000, .00004, .00004, + .10608, .02750, -.02780, .00010, -.00002, + .00000, .00003, .00003, + .10096, .02610, -.02597, .00008, -.00002, + .00000, .00004, .00003, + .09100, .02338, -.02253, .00007, -.00001, + .00000, .00004, .00006, + .08351, .02135, -.02000, .00007, -.00001, + -.00001, .00004, .00003, + .07593, .01932, -.01757, .00007, -.00001, + -.00001, .00004, .00003, + .06888, .01744, -.01534, .00006, -.00001, + -.00001, .00003, .00003, + .06314, .01592, -.01358, .00006, -.00001, + -.00001, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05792, .01454, -.01205, .00005, -.00001, + -.00001, .00002, .00003, + .05396, .01349, -.01091, .00004, .00000, + .00000, .00003, .00003, + .04955, .01234, -.00965, .00004, .00000, + .00000, .00001, .00003, + .04601, .01142, -.00870, .00004, .00000, + .00000, .00003, .00003, + .04300, .01065, -.00789, .00004, .00000, + .00000, .00003, .00001, + .03953, .00973, -.00698, .00002, .00000, + .00000, .00001, .00003, + .03653, .00898, -.00624, .00003, .00000, + .00000, .00001, .00003, + .03395, .00832, -.00561, .00004, .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)/ + .03159, .00771, -.00505, .00003, .00000, + .00000, .00001, .00001, + .02946, .00717, -.00456, .00003, .00000, + .00000, .00001, .00001, + .02759, .00669, -.00414, .00003, .00000, + .00000, .00001, .00001, + .02596, .00628, -.00379, .00003, .00000, + .00000, .00001, .00001, + .02444, .00589, -.00346, .00001, .00000, + .00000, .00001, .00001, + .02302, .00554, -.00317, .00003, .00000, + .00000, .00001, .00001, + .02175, .00522, -.00291, .00003, .00000, + .00000, .00001, .00001, + .02062, .00494, -.00269, .00001, .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)/ + .01958, .00468, -.00249, .00001, .00000, + .00000, .00001, .00001, + .01857, .00443, -.00230, .00001, .00000, + .00000, .00001, .00001, + .01767, .00421, -.00213, .00001, .00000, + .00000, .00001, .00001, + .01688, .00402, -.00200, .00001, .00000, + .00000, .00001, .00001, + .01609, .00381, -.00184, .00001, .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=1,8)/ + .15784, .03966, -.06682, .00005, .00000, + .00000, .00001, .00003, + .14253, .03563, -.05861, .00008, .00000, + .00000, .00002, -.00001, + .12316, .03054, -.04848, .00006, -.00002, + .00000, .00000, .00002, + .11126, .02743, -.04249, .00006, -.00002, + .00000, .00000, .00000, + .10030, .02462, -.03712, .00004, -.00002, + .00000, .00001, .00001, + .09185, .02244, -.03309, .00006, -.00001, + .00000, .00001, .00001, + .08453, .02056, -.02963, .00004, -.00001, + .00000, .00001, .00001, + .07754, .01877, -.02641, .00004, -.00001, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07198, .01735, -.02391, .00004, -.00001, + .00000, .00001, .00001, + .06704, .01611, -.02173, .00004, -.00001, + .00000, .00001, .00001, + .06344, .01521, -.02015, .00004, -.00001, + .00000, -.00001, .00001, + .05647, .01346, -.01715, .00002, .00000, + .00000, .00000, .00000, + .05130, .01218, -.01508, .00002, .00000, + .00000, .00000, .00001, + .04617, .01091, -.01307, .00000, .00000, + .00000, .00000, .00001, + .04143, .00974, -.01129, .00002, .00000, + .00000, .00000, .00000, + .03761, .00880, -.00993, .00003, .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=17,24)/ + .03417, .00795, -.00870, .00001, .00000, + .00000, .00001, .00000, + .03157, .00733, -.00778, .00001, .00000, + .00000, .00000, .00000, + .02874, .00665, -.00684, .00001, .00000, + .00000, .00000, .00000, + .02648, .00610, -.00610, .00001, .00000, + .00000, .00000, .00000, + .02458, .00565, -.00550, .00001, .00000, + .00000, .00000, .00000, + .02238, .00513, -.00483, .00001, .00000, + .00000, .00000, .00000, + .02052, .00468, -.00426, .00000, .00000, + .00000, .00000, .00000, + .01894, .00430, -.00380, .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=25,32)/ + .01749, .00396, -.00340, .00000, .00000, + .00000, .00000, .00000, + .01618, .00366, -.00304, .00000, .00000, + .00000, .00000, .00000, + .01506, .00340, -.00275, .00000, .00000, + .00000, .00000, .00000, + .01407, .00316, -.00250, .00000, .00000, + .00000, .00000, .00000, + .01315, .00296, -.00226, .00000, .00000, + .00000, .00000, .00000, + .01232, .00276, -.00207, .00000, .00000, + .00000, .00000, .00000, + .01159, .00258, -.00189, .00000, .00000, + .00000, .00000, .00000, + .01093, .00243, -.00174, .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)/ + .01030, .00229, -.00159, .00000, .00000, + .00000, .00000, .00000, + .00974, .00215, -.00147, .00000, .00000, + .00000, .00000, .00000, + .00922, .00204, -.00136, .00000, .00000, + .00000, .00000, .00000, + .00876, .00193, -.00125, .00000, .00000, + .00000, .00000, .00000, + .00832, .00183, -.00117, .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)/ + .09983, .02300, -.05014, .00007, .00000, + .00000, -.00001, -.00004, + .08903, .02039, -.04342, .00004, .00000, + .00000, -.00001, -.00001, + .07555, .01716, -.03525, .00004, -.00001, + .00000, -.00001, -.00001, + .06741, .01526, -.03053, .00004, -.00001, + .00000, -.00001, -.00001, + .05998, .01349, -.02629, .00004, .00000, + .00000, .00000, .00000, + .05436, .01219, -.02316, .00002, .00000, + .00000, .00000, .00000, + .04953, .01106, -.02053, .00002, .00000, + .00000, .00000, .00000, + .04494, .00998, -.01809, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .04134, .00916, -.01622, .00002, .00000, + .00000, .00000, .00000, + .03821, .00843, -.01464, .00002, .00000, + .00000, .00000, .00000, + .03591, .00790, -.01349, .00002, .00000, + .00000, .00000, .00000, + .03154, .00691, -.01136, .00002, .00000, + .00000, .00000, .00000, + .02834, .00619, -.00988, .00002, .00000, + .00000, .00000, .00000, + .02519, .00547, -.00845, .00002, .00000, + .00000, .00000, .00000, + .02233, .00483, -.00723, .00002, .00000, + .00000, .00000, .00000, + .02004, .00432, -.00625, .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)/ + .01802, .00387, -.00542, .00000, .00000, + .00000, .00000, .00000, + .01651, .00353, -.00482, .00000, .00000, + .00000, .00000, .00000, + .01488, .00317, -.00420, .00000, .00000, + .00000, .00000, .00000, + .01358, .00287, -.00370, .00000, .00000, + .00000, .00000, .00000, + .01250, .00264, -.00332, .00000, .00000, + .00000, .00000, .00000, + .01127, .00238, -.00288, .00000, .00000, + .00000, .00000, .00000, + .01023, .00215, -.00252, .00000, .00000, + .00000, .00000, .00000, + .00936, .00197, -.00224, .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)/ + .00857, .00179, -.00198, .00000, .00000, + .00000, .00000, .00000, + .00787, .00164, -.00177, .00000, .00000, + .00000, .00000, .00000, + .00727, .00150, -.00158, .00000, .00000, + .00000, .00000, .00000, + .00675, .00140, -.00143, .00000, .00000, + .00000, .00000, .00000, + .00627, .00129, -.00129, .00000, .00000, + .00000, .00000, .00000, + .00582, .00120, -.00116, .00000, .00000, + .00000, .00000, .00000, + .00544, .00112, -.00106, .00000, .00000, + .00000, .00000, .00000, + .00510, .00105, -.00097, .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)/ + .00479, .00099, -.00088, .00000, .00000, + .00000, .00000, .00000, + .00449, .00092, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00423, .00086, -.00074, .00000, .00000, + .00000, .00000, .00000, + .00400, .00082, -.00069, .00000, .00000, + .00000, .00000, .00000, + .00377, .00077, -.00063, .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)/ + .05528, .01133, -.03169, .00000, .00000, + .00000, .00000, .00003, + .04858, .00993, -.02706, .00000, .00000, + .00000, .00000, .00000, + .04038, .00823, -.02156, .00000, .00000, + .00000, .00000, .00000, + .03552, .00718, -.01842, .00000, .00000, + .00000, .00000, .00000, + .03116, .00631, -.01569, .00000, .00000, + .00000, .00000, .00000, + .02788, .00562, -.01367, .00000, .00000, + .00000, .00000, .00000, + .02510, .00504, -.01197, .00000, .00000, + .00000, .00000, .00000, + .02249, .00451, -.01043, .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)/ + .02049, .00410, -.00929, .00000, .00000, + .00000, .00000, .00000, + .01874, .00372, -.00828, .00000, .00000, + .00000, .00000, .00000, + .01747, .00347, -.00757, .00000, .00000, + .00000, .00000, .00000, + .01512, .00299, -.00630, .00000, .00000, + .00000, .00000, .00000, + .01339, .00264, -.00539, .00000, .00000, + .00000, .00000, .00000, + .01175, .00232, -.00457, .00000, .00000, + .00000, .00000, .00000, + .01026, .00200, -.00385, .00000, .00000, + .00000, .00000, .00000, + .00909, .00178, -.00329, .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)/ + .00806, .00157, -.00282, .00000, .00000, + .00000, .00000, .00000, + .00731, .00141, -.00248, .00000, .00000, + .00000, .00000, .00000, + .00650, .00126, -.00213, .00000, .00000, + .00000, .00000, .00000, + .00588, .00113, -.00186, .00000, .00000, + .00000, .00000, .00000, + .00536, .00104, -.00166, .00000, .00000, + .00000, .00000, .00000, + .00477, .00091, -.00143, .00000, .00000, + .00000, .00000, .00000, + .00428, .00082, -.00123, .00000, .00000, + .00000, .00000, .00000, + .00388, .00074, -.00108, .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)/ + .00353, .00067, -.00096, .00000, .00000, + .00000, .00000, .00000, + .00319, .00060, -.00083, .00000, .00000, + .00000, .00000, .00000, + .00292, .00055, -.00074, .00000, .00000, + .00000, .00000, .00000, + .00269, .00050, -.00066, .00000, .00000, + .00000, .00000, .00000, + .00248, .00048, -.00060, .00000, .00000, + .00000, .00000, .00000, + .00229, .00043, -.00053, .00000, .00000, + .00000, .00000, .00000, + .00212, .00040, -.00049, .00000, .00000, + .00000, .00000, .00000, + .00198, .00038, -.00044, .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)/ + .00184, .00035, -.00040, .00000, .00000, + .00000, .00000, .00000, + .00171, .00032, -.00036, .00000, .00000, + .00000, .00000, .00000, + .00160, .00029, -.00033, .00000, .00000, + .00000, .00000, .00000, + .00151, .00028, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00141, .00027, -.00027, .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)/ + .00783, .00127, -.00568, .00000, .00000, + .00000, .00000, .00000, + .00657, .00106, -.00465, .00000, .00000, + .00000, .00000, .00000, + .00515, .00082, -.00351, .00000, .00000, + .00000, .00000, .00000, + .00432, .00069, -.00287, .00000, .00000, + .00000, .00000, .00000, + .00363, .00057, -.00235, .00000, .00000, + .00000, .00000, .00000, + .00314, .00049, -.00197, .00000, .00000, + .00000, .00000, .00000, + .00273, .00043, -.00168, .00000, .00000, + .00000, .00000, .00000, + .00237, .00037, -.00142, .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)/ + .00209, .00032, -.00123, .00000, .00000, + .00000, .00000, .00000, + .00185, .00029, -.00107, .00000, .00000, + .00000, .00000, .00000, + .00170, .00027, -.00097, .00000, .00000, + .00000, .00000, .00000, + .00140, .00022, -.00077, .00000, .00000, + .00000, .00000, .00000, + .00120, .00019, -.00064, .00000, .00000, + .00000, .00000, .00000, + .00101, .00015, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00084, .00013, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00072, .00011, -.00035, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00062, .00009, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00054, .00009, -.00025, .00000, .00000, + .00000, .00000, .00000, + .00047, .00007, -.00021, .00000, .00000, + .00000, .00000, .00000, + .00041, .00007, -.00018, .00000, .00000, + .00000, .00000, .00000, + .00036, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00031, .00005, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00005, -.00011, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00021, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00003, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00014, .00003, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor06dis.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