#include "pdf/pilot.h" subroutine sfmrs_99a3(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)/ + .00398, .00281, 1.13349, .87009, .00000, + .00000, .46282, .87866, + .00414, .00288, 2.39462, .90644, .00000, + .00000, .50374, .91516, + .00439, .00298, 4.86914, .98396, .00000, + .00000, .58780, .99289, + .00456, .00306, 7.18230, 1.05812, .04485, + .00000, .66652, 1.06719, + .00475, .00314, 9.97655, 1.15355, .15419, + .00000, .76657, 1.16276, + .00491, .00321, 12.86069, 1.25173, .25897, + .00000, .86865, 1.26106, + .00506, .00329, 16.09878, 1.35837, .37463, + .00000, .97895, 1.36781, + .00523, .00336, 20.07357, 1.48590, .51493, + .00000, 1.11028, 1.49545 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00538, .00343, 23.94896, 1.61094, .64633, + .00000, 1.23855, 1.62058, + .00552, .00350, 28.11180, 1.74374, .78631, + .00000, 1.37441, 1.75346, + .00563, .00355, 31.75980, 1.85740, .90852, + .00000, 1.49046, 1.86719, + .00587, .00366, 40.21260, 2.12815, 1.19346, + .02251, 1.76618, 2.13807, + .00607, .00376, 48.17280, 2.39041, 1.46704, + .34383, 2.03259, 2.40044, + .00631, .00388, 58.23300, 2.71899, 1.81011, + .73969, 2.36570, 2.72913, + .00656, .00400, 70.08362, 3.10115, 2.20830, + 1.15594, 2.75246, 3.11140, + .00678, .00411, 82.08012, 3.48490, 2.60751, + 1.57343, 3.14028, 3.49525 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00701, .00422, 95.45453, 3.91030, 3.04980, + 2.03410, 3.56969, 3.92073, + .00721, .00432, 107.49789, 4.29315, 3.44589, + 2.44197, 3.95581, 4.30365, + .00744, .00444, 123.26027, 4.79463, 3.96293, + 2.97231, 4.46116, 4.80521, + .00765, .00455, 138.37077, 5.27436, 4.45824, + 3.48269, 4.94426, 5.28501, + .00785, .00465, 153.21355, 5.74536, 4.94465, + 3.98422, 5.41828, 5.75606, + .00810, .00477, 173.19432, 6.38400, 5.60012, + 4.65358, 6.06069, 6.39477, + .00834, .00489, 193.37692, 7.03023, 6.26385, + 5.33322, 6.71039, 7.04106, + .00856, .00501, 213.60817, 7.67855, 6.93088, + 6.01858, 7.36190, 7.68944 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00879, .00513, 234.73305, 8.36323, 7.63065, + 6.73056, 8.04971, 8.37417, + .00901, .00524, 256.65195, 9.07512, 8.35964, + 7.47522, 8.76461, 9.08611, + .00923, .00535, 278.46808, 9.78709, 9.08840, + 8.21956, 9.47938, 9.79812, + .00943, .00546, 299.77280, 10.48882, 9.80450, + 8.94813, 10.18371, 10.49988, + .00964, .00557, 322.30118, 11.23180, 10.56448, + 9.72432, 10.92926, 11.24289, + .00984, .00567, 345.01599, 11.99008, 11.33673, + 10.50851, 11.69003, 12.00120, + .01004, .00578, 367.71375, 12.74806, 12.11092, + 11.29828, 12.45034, 12.75921, + .01022, .00587, 389.56552, 13.48698, 12.86255, + 12.06095, 13.19144, 13.49815 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01041, .00597, 412.56064, 14.26578, 13.65631, + 12.86890, 13.97241, 14.27698, + .01060, .00607, 435.75357, 15.05866, 14.46283, + 13.68788, 14.76740, 15.06988, + .01078, .00617, 458.56250, 15.84258, 15.26022, + 14.49775, 15.55332, 15.85382, + .01096, .00626, 480.88547, 16.61295, 16.04431, + 15.29506, 16.32555, 16.62420, + .01113, .00635, 503.71185, 17.40963, 16.85293, + 16.11444, 17.12410, 17.42090 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00559, .00374, 1.04269, .74549, .00000, + .00000, .39602, .75065, + .00582, .00385, 2.17439, .77850, .00000, + .00000, .43272, .78375, + .00615, .00400, 4.35078, .84644, .00000, + .00000, .50591, .85182, + .00640, .00411, 6.34640, .91006, .03812, + .00000, .57319, .91553, + .00666, .00423, 8.71795, .99070, .13060, + .00000, .65753, .99626, + .00688, .00434, 11.13159, 1.07268, .21812, + .00000, .74262, 1.07831, + .00710, .00444, 13.81005, 1.16100, .31382, + .00000, .83386, 1.16670, + .00733, .00456, 17.06043, 1.26578, .42890, + .00000, .94167, 1.27155 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00753, .00465, 20.19419, 1.36767, .53572, + .00000, 1.04613, 1.37350, + .00772, .00475, 23.52866, 1.47515, .64871, + .00000, 1.15605, 1.48104, + .00788, .00483, 26.42839, 1.56669, .74680, + .00000, 1.24948, 1.57262, + .00821, .00499, 33.06954, 1.78294, .97355, + .01839, 1.46967, 1.78895, + .00850, .00513, 39.23621, 1.99048, 1.18914, + .27106, 1.68050, 1.99656, + .00882, .00530, 46.93472, 2.24822, 1.45703, + .58045, 1.94182, 2.25438, + .00916, .00547, 55.88934, 2.54520, 1.76500, + .90205, 2.24243, 2.55143, + .00947, .00563, 64.84702, 2.84080, 2.07101, + 1.22166, 2.54124, 2.84710 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00979, .00579, 74.72460, 3.16580, 2.40725, + 1.57131, 2.86940, 3.17216, + .01006, .00592, 83.53114, 3.45609, 2.70608, + 1.87843, 3.16227, 3.46251, + .01038, .00609, 94.94534, 3.83351, 3.09323, + 2.27471, 3.54274, 3.83998, + .01067, .00624, 105.78436, 4.19194, 3.46146, + 2.65335, 3.90381, 4.19846, + .01094, .00638, 116.34311, 4.54157, 3.82079, + 3.02305, 4.25582, 4.54814, + .01128, .00655, 130.42398, 5.01221, 4.30144, + 3.51269, 4.72942, 5.01883, + .01160, .00672, 144.51488, 5.48496, 4.78466, + 4.00632, 5.20488, 5.49162, + .01191, .00688, 158.52190, 5.95609, 5.26717, + 4.50097, 5.67851, 5.96280 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01222, .00704, 173.01801, 6.45020, 5.76980, + 5.01102, 6.17509, 6.45696, + .01252, .00720, 187.94463, 6.96082, 6.29033, + 5.54144, 6.68806, 6.96761, + .01281, .00735, 202.69150, 7.46846, 6.80768, + 6.06857, 7.19789, 7.47528, + .01309, .00750, 216.98630, 7.96588, 7.31308, + 6.58144, 7.69735, 7.97274, + .01337, .00765, 232.01027, 8.48992, 7.84690, + 7.12537, 8.22340, 8.49681, + .01364, .00779, 247.04808, 9.02170, 8.38620, + 7.67157, 8.75713, 9.02862, + .01391, .00793, 261.99329, 9.55085, 8.92456, + 8.21949, 9.28811, 9.55780, + .01416, .00807, 276.28494, 10.06403, 9.44444, + 8.74565, 9.80299, 10.07100 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01442, .00820, 291.25055, 10.60266, 9.99134, + 9.30100, 10.34332, 10.60966, + .01467, .00834, 306.25415, 11.14843, 10.54439, + 9.86120, 10.89075, 11.15545, + .01492, .00847, 320.93369, 11.68577, 11.08895, + 10.41294, 11.42965, 11.69282, + .01515, .00859, 335.23322, 12.21178, 11.62245, + 10.95418, 11.95712, 12.21885, + .01539, .00872, 349.77222, 12.75337, 12.17015, + 11.50780, 12.50017, 12.76045 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00784, .00498, .95997, .63840, .00000, + .00000, .33889, .64116, + .00816, .00514, 1.97537, .66827, .00000, + .00000, .37174, .67108, + .00863, .00537, 3.88855, .72775, .00000, + .00000, .43544, .73064, + .00897, .00553, 5.60857, .78230, .03240, + .00000, .49293, .78524, + .00933, .00571, 7.61860, .85039, .11059, + .00000, .56399, .85339, + .00964, .00587, 9.63503, .91876, .18367, + .00000, .63485, .92180, + .00994, .00602, 11.84623, .99180, .26280, + .00000, .71022, .99488, + .01026, .00618, 14.49837, 1.07775, .35713, + .00000, .79858, 1.08088 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01054, .00632, 17.02610, 1.16059, .44390, + .00000, .88347, 1.16376, + .01081, .00646, 19.68981, 1.24738, .53501, + .00000, .97220, 1.25058, + .01103, .00657, 21.98818, 1.32091, .61367, + .00000, 1.04724, 1.32414, + .01149, .00680, 27.18948, 1.49315, .79388, + .01502, 1.22259, 1.49643, + .01189, .00701, 31.94955, 1.65686, .96352, + .21359, 1.38891, 1.66020, + .01233, .00724, 37.81785, 1.85835, 1.17238, + .45529, 1.59323, 1.86174, + .01280, .00748, 44.55581, 2.08831, 1.41014, + .70359, 1.82605, 2.09174, + .01323, .00770, 51.21439, 2.31513, 1.64423, + .94807, 2.05540, 2.31861 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01367, .00793, 58.47488, 2.56242, 1.89928, + 1.21320, 2.30518, 2.56595, + .01403, .00812, 64.88225, 2.78161, 2.12418, + 1.44419, 2.52639, 2.78518, + .01448, .00835, 73.10420, 3.06442, 2.41333, + 1.73993, 2.81159, 3.06803, + .01487, .00856, 80.83652, 3.33100, 2.68633, + 2.02042, 3.08025, 3.33465, + .01524, .00875, 88.30501, 3.58934, 2.95100, + 2.29251, 3.34045, 3.59302, + .01571, .00900, 98.16848, 3.93449, 3.30235, + 2.65003, 3.68791, 3.93822, + .01615, .00923, 107.94497, 4.27860, 3.65300, + 3.00784, 4.03415, 4.28237, + .01657, .00945, 117.58022, 4.61923, 4.00083, + 3.36408, 4.37673, 4.62303 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01698, .00968, 127.46019, 4.97393, 4.36053, + 3.72860, 4.73336, 4.97778, + .01740, .00990, 137.55438, 5.33820, 4.73080, + 4.10546, 5.09946, 5.34208, + .01779, .01011, 147.45093, 5.69816, 5.09663, + 4.47777, 5.46114, 5.70208, + .01817, .01030, 156.97058, 6.04877, 5.45185, + 4.83775, 5.81333, 6.05271, + .01854, .01051, 166.91379, 6.41626, 5.82524, + 5.21778, 6.18239, 6.42024, + .01892, .01070, 176.78999, 6.78700, 6.20018, + 5.59699, 6.55465, 6.79101, + .01927, .01090, 186.55150, 7.15422, 6.57288, + 5.97587, 6.92329, 7.15825, + .01961, .01108, 195.82010, 7.50843, 6.93078, + 6.33758, 7.27884, 7.51249 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .01996, .01126, 205.47739, 7.87866, 7.30580, + 6.71795, 7.65039, 7.88275, + .02030, .01145, 215.09810, 8.25197, 7.68317, + 7.09969, 8.02499, 8.25608, + .02063, .01162, 224.46112, 8.61794, 8.05319, + 7.47412, 8.39217, 8.62208, + .02094, .01179, 233.53778, 8.97478, 8.41432, + 7.84006, 8.75016, 8.97894, + .02126, .01196, 242.71086, 9.34053, 8.78333, + 8.21254, 9.11704, 9.34471 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00955, .00590, .91530, .58285, .00000, + .00000, .30940, .58463, + .00994, .00609, 1.86826, .61097, .00000, + .00000, .34015, .61279, + .01051, .00638, 3.64201, .66596, .00000, + .00000, .39888, .66784, + .01093, .00659, 5.21801, .71580, .02945, + .00000, .45130, .71771, + .01137, .00681, 7.04133, .77745, .10031, + .00000, .51557, .77940, + .01174, .00700, 8.85475, .83889, .16605, + .00000, .57920, .84088, + .01211, .00719, 10.82926, .90419, .23684, + .00000, .64654, .90622, + .01250, .00739, 13.18102, .98066, .32077, + .00000, .72513, .98272 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01284, .00756, 15.40706, 1.05397, .39756, + .00000, .80024, 1.05606, + .01316, .00773, 17.73934, 1.13046, .47785, + .00000, .87842, 1.13258, + .01342, .00787, 19.74238, 1.19505, .54693, + .00000, .94433, 1.19720, + .01398, .00816, 24.24293, 1.34559, .70436, + .01334, 1.09760, 1.34778, + .01446, .00841, 28.32585, 1.48785, .85169, + .18574, 1.24214, 1.49008, + .01500, .00869, 33.32161, 1.66199, 1.03207, + .39483, 1.41875, 1.66427, + .01557, .00899, 39.01345, 1.85960, 1.23621, + .60817, 1.61885, 1.86192, + .01609, .00926, 44.59738, 2.05346, 1.43611, + .81706, 1.81491, 2.05582 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01661, .00954, 50.64524, 2.26376, 1.65281, + 1.04242, 2.02738, 2.26616, + .01705, .00977, 55.94989, 2.44930, 1.84300, + 1.23781, 2.21468, 2.45174, + .01759, .01005, 62.71606, 2.68760, 2.08641, + 1.48680, 2.45506, 2.69008, + .01806, .01031, 69.04246, 2.91124, 2.31520, + 1.72193, 2.68050, 2.91375, + .01850, .01054, 75.12180, 3.12710, 2.53616, + 1.94912, 2.89798, 3.12965, + .01906, .01084, 83.10382, 3.41423, 2.82815, + 2.24623, 3.18711, 3.41682, + .01959, .01112, 90.97019, 3.69921, 3.11827, + 2.54230, 3.47394, 3.70184, + .02009, .01139, 98.68324, 3.98017, 3.40494, + 2.83592, 3.75660, 3.98284 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02059, .01165, 106.54777, 4.27150, 3.70008, + 3.13498, 4.04959, 4.27421, + .02109, .01192, 114.54533, 4.56958, 4.00281, + 3.44308, 4.34926, 4.57232, + .02156, .01217, 122.35028, 4.86307, 4.30084, + 3.74638, 4.64423, 4.86585, + .02200, .01241, 129.82292, 5.14791, 4.58917, + 4.03854, 4.93044, 5.15071, + .02245, .01265, 137.59912, 5.44556, 4.89139, + 4.34612, 5.22945, 5.44840, + .02290, .01289, 145.28665, 5.74478, 5.19375, + 4.65187, 5.52999, 5.74765, + .02333, .01312, 152.86006, 6.04036, 5.49354, + 4.95662, 5.82680, 6.04326, + .02373, .01334, 160.01984, 6.32454, 5.78045, + 5.24652, 6.11213, 6.32747 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02414, .01356, 167.45740, 6.62084, 6.08040, + 5.55072, 6.40957, 6.62381, + .02455, .01378, 174.83842, 6.91873, 6.38131, + 5.85507, 6.70857, 6.92172, + .02494, .01399, 181.99852, 7.21001, 6.67563, + 6.15285, 7.00091, 7.21303, + .02531, .01419, 188.91951, 7.49336, 6.96223, + 6.44325, 7.28524, 7.49641, + .02569, .01439, 195.88782, 7.78298, 7.25424, + 6.73794, 7.57584, 7.78605 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01099, .00665, .88530, .54631, .00000, + .00000, .29007, .54756, + .01143, .00687, 1.79631, .57322, .00000, + .00000, .31940, .57450, + .01209, .00721, 3.47712, .62522, .00000, + .00000, .37482, .62655, + .01257, .00746, 4.95791, .67194, .02751, + .00000, .42392, .67332, + .01307, .00772, 6.65872, .72938, .09359, + .00000, .48375, .73079, + .01351, .00794, 8.33980, .78631, .15457, + .00000, .54268, .78775, + .01393, .00816, 10.16087, .84660, .21995, + .00000, .60484, .84807, + .01437, .00839, 12.31900, .91694, .29719, + .00000, .67711, .91845 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01476, .00859, 14.35162, .98413, .36757, + .00000, .74594, .98566, + .01514, .00879, 16.47239, 1.05400, .44095, + .00000, .81736, 1.05556, + .01544, .00895, 18.28769, 1.11288, .50392, + .00000, .87745, 1.11446, + .01607, .00928, 22.34532, 1.24959, .64690, + .01226, 1.01664, 1.25121, + .01662, .00957, 26.00317, 1.37824, .78014, + .16816, 1.14736, 1.37991, + .01724, .00990, 30.45460, 1.53511, .94261, + .35678, 1.30648, 1.53682, + .01789, .01024, 35.49798, 1.71238, 1.12573, + .54827, 1.48602, 1.71413, + .01848, .01056, 40.41973, 1.88562, 1.30432, + .73503, 1.66125, 1.88741 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01908, .01088, 45.72463, 2.07286, 1.49722, + .93576, 1.85046, 2.07469, + .01958, .01114, 50.35703, 2.23751, 1.66596, + 1.10920, 2.01671, 2.23938, + .02019, .01147, 56.24011, 2.44828, 1.88119, + 1.32947, 2.22937, 2.45019, + .02073, .01176, 61.71777, 2.64546, 2.08287, + 1.53682, 2.42817, 2.64740, + .02123, .01202, 66.96220, 2.83524, 2.27709, + 1.73660, 2.61942, 2.83722, + .02187, .01237, 73.81872, 3.08686, 2.53290, + 1.99699, 2.87286, 3.08889, + .02247, .01269, 80.54790, 3.33580, 2.78627, + 2.25564, 3.12348, 3.33787, + .02304, .01299, 87.12146, 3.58053, 3.03592, + 2.51143, 3.36974, 3.58264 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02361, .01330, 93.79683, 3.83350, 3.29213, + 2.77110, 3.62421, 3.83564, + .02417, .01360, 100.56206, 4.09163, 3.55424, + 3.03795, 3.88378, 4.09382, + .02470, .01389, 107.14238, 4.34514, 3.81162, + 3.29996, 4.13863, 4.34736, + .02521, .01416, 113.42091, 4.59053, 4.05997, + 3.55166, 4.38526, 4.59279, + .02572, .01444, 119.93719, 4.84642, 4.31975, + 3.81612, 4.64238, 4.84871, + .02622, .01471, 126.35689, 5.10298, 4.57894, + 4.07827, 4.90013, 5.10531, + .02671, .01497, 132.66655, 5.35594, 4.83548, + 4.33913, 5.15420, 5.35830, + .02716, .01522, 138.61221, 5.59856, 5.08039, + 4.58664, 5.39786, 5.60095 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02763, .01547, 144.77559, 5.85109, 5.33600, + 4.84593, 5.65142, 5.85351, + .02809, .01572, 150.87445, 6.10442, 5.59188, + 5.10478, 5.90576, 6.10687, + .02853, .01596, 156.77707, 6.35168, 5.84169, + 5.35758, 6.15397, 6.35416, + .02895, .01618, 162.47044, 6.59181, 6.08455, + 5.60373, 6.39499, 6.59432, + .02938, .01641, 168.18689, 6.83675, 6.33149, + 5.85297, 6.64082, 6.83929 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01225, .00730, .86304, .51949, .00000, + .00000, .27593, .52043, + .01275, .00755, 1.74280, .54549, .00000, + .00000, .30419, .54646, + .01348, .00793, 3.35474, .59527, .00000, + .00000, .35717, .59629, + .01401, .00821, 4.76542, .63971, .02610, + .00000, .40383, .64076, + .01457, .00850, 6.37649, .69406, .08867, + .00000, .46042, .69515, + .01506, .00876, 7.96111, .74771, .14618, + .00000, .51594, .74884, + .01552, .00900, 9.67080, .80436, .20765, + .00000, .57433, .80551, + .01602, .00926, 11.68894, .87027, .28005, + .00000, .64205, .87145 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01645, .00949, 13.58228, .93303, .34583, + .00000, .70634, .93424, + .01687, .00971, 15.55127, .99814, .41424, + .00000, .77289, .99938, + .01720, .00989, 17.23223, 1.05292, .47284, + .00000, .82879, 1.05418, + .01791, .01026, 20.97426, 1.17971, .60549, + .01148, .95790, 1.18101, + .01852, .01059, 24.33079, 1.29865, .72868, + .15565, 1.07876, 1.29999, + .01920, .01095, 28.39812, 1.44322, .87845, + .32974, 1.22543, 1.44461, + .01992, .01134, 32.98607, 1.60606, 1.04668, + .50580, 1.39038, 1.60749, + .02058, .01169, 37.44486, 1.76470, 1.21026, + .67697, 1.55089, 1.76618 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02124, .01204, 42.23244, 1.93569, 1.38644, + .86041, 1.72371, 1.93721, + .02180, .01234, 46.39850, 2.08565, 1.54013, + 1.01848, 1.87515, 2.08721, + .02247, .01270, 51.67126, 2.27713, 1.73567, + 1.21870, 2.06838, 2.27873, + .02307, .01302, 56.56448, 2.45580, 1.91844, + 1.40671, 2.24857, 2.45744, + .02362, .01332, 61.23573, 2.62740, 2.09407, + 1.58746, 2.42153, 2.62908, + .02433, .01370, 67.32244, 2.85433, 2.32478, + 1.82240, 2.65014, 2.85605, + .02499, .01406, 73.27657, 3.07828, 2.55273, + 2.05521, 2.87564, 3.08005, + .02562, .01440, 79.07608, 3.29793, 2.77683, + 2.28494, 3.09672, 3.29975 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02625, .01474, 84.94615, 3.52444, 3.00624, + 2.51753, 3.32461, 3.52629, + .02687, .01507, 90.87940, 3.75508, 3.24046, + 2.75608, 3.55660, 3.75698, + .02746, .01539, 96.63532, 3.98113, 3.46999, + 2.98983, 3.78389, 3.98306, + .02801, .01569, 102.11241, 4.19949, 3.69099, + 3.21390, 4.00340, 4.20146, + .02857, .01600, 107.78486, 4.42681, 3.92180, + 3.44898, 4.23186, 4.42882, + .02913, .01630, 113.35782, 4.65427, 4.15161, + 3.68147, 4.46042, 4.65632, + .02966, .01658, 118.82533, 4.87819, 4.37874, + 3.91252, 4.68537, 4.88027, + .03016, .01686, 123.96405, 5.09256, 4.59514, + 4.13129, 4.90070, 5.09468 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03067, .01713, 129.28189, 5.31538, 4.82071, + 4.36020, 5.12448, 5.31753, + .03118, .01741, 134.53226, 5.53852, 5.04612, + 4.58831, 5.34855, 5.54071, + .03166, .01767, 139.60414, 5.75601, 5.26588, + 4.81077, 5.56692, 5.75823, + .03213, .01792, 144.48814, 5.96694, 5.47926, + 5.02711, 5.77867, 5.96919, + .03259, .01818, 149.38087, 6.18175, 5.69584, + 5.24578, 5.99431, 6.18403 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01717, .00979, .79995, .44401, .00000, + .00000, .23633, .44451, + .01786, .01016, 1.58945, .46730, .00000, + .00000, .26149, .46784, + .01889, .01071, 3.00417, .51069, .00000, + .00000, .30751, .51129, + .01964, .01111, 4.21609, .54867, .02213, + .00000, .34732, .54930, + .02042, .01153, 5.57519, .59439, .07492, + .00000, .39487, .59507, + .02110, .01190, 6.89120, .63892, .12281, + .00000, .44093, .63964, + .02175, .01225, 8.29296, .68550, .17347, + .00000, .48894, .68626, + .02244, .01262, 9.92687, .73921, .23261, + .00000, .54413, .74002 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02304, .01295, 11.44065, .78986, .28581, + .00000, .59602, .79070, + .02362, .01326, 12.99852, .84200, .34073, + .00000, .64934, .84288, + .02408, .01351, 14.31740, .88561, .38749, + .00000, .69387, .88652, + .02506, .01405, 17.21517, .98562, .49234, + .00935, .79577, .98658, + .02590, .01451, 19.77287, 1.07844, .58869, + .12221, .89016, 1.07946, + .02685, .01502, 22.83006, 1.19017, .70467, + .25768, 1.00359, 1.19125, + .02784, .01556, 26.23031, 1.31471, .83359, + .39302, 1.12984, 1.31585, + .02875, .01605, 29.49119, 1.43486, .95771, + .52331, 1.25150, 1.43606 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02966, .01655, 32.94991, 1.56319, 1.09018, + .66165, 1.38131, 1.56445, + .03042, .01697, 35.92599, 1.67479, 1.20477, + .77982, 1.49411, 1.67610, + .03134, .01747, 39.65135, 1.81612, 1.34935, + .92826, 1.63686, 1.81750, + .03216, .01792, 43.07214, 1.94695, 1.48342, + 1.06656, 1.76892, 1.94838, + .03291, .01833, 46.30743, 2.07172, 1.61135, + 1.19858, 1.89478, 2.07320, + .03387, .01885, 50.47730, 2.23538, 1.77800, + 1.36871, 2.05980, 2.23692, + .03478, .01935, 54.51362, 2.39560, 1.94136, + 1.53598, 2.22127, 2.39720, + .03563, .01982, 58.40839, 2.55162, 2.10084, + 1.69989, 2.37844, 2.55328 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03648, .02028, 62.30882, 2.71124, 2.26275, + 1.86443, 2.53918, 2.71296, + .03732, .02074, 66.21754, 2.87271, 2.42700, + 2.03212, 2.70172, 2.87449, + .03811, .02118, 69.97723, 3.02993, 2.58693, + 2.19538, 2.85995, 3.03177, + .03886, .02159, 73.52297, 3.18081, 2.73987, + 2.35080, 3.01175, 3.18270, + .03962, .02200, 77.17065, 3.33704, 2.89880, + 2.51306, 3.16890, 3.33898, + .04036, .02241, 80.72178, 3.49234, 3.05594, + 2.67239, 3.32509, 3.49434, + .04108, .02280, 84.18540, 3.64450, 3.21057, + 2.83006, 3.47808, 3.64655, + .04175, .02317, 87.41275, 3.78929, 3.35696, + 2.97836, 3.62363, 3.79138 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04244, .02354, 90.73483, 3.93912, 3.50892, + 3.13292, 3.77424, 3.94127, + .04311, .02391, 93.98993, 4.08836, 3.65992, + 3.28607, 3.92423, 4.09055, + .04376, .02427, 97.11550, 4.23315, 3.80647, + 3.43475, 4.06972, 4.23538, + .04438, .02461, 100.10902, 4.37298, 3.94819, + 3.57876, 4.21021, 4.37526, + .04500, .02495, 103.08524, 4.51464, 4.09125, + 3.72350, 4.35254, 4.51697 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02408, .01323, .74774, .37920, .00000, + .00000, .20263, .37999, + .02507, .01377, 1.45667, .39995, .00000, + .00000, .22496, .40081, + .02651, .01457, 2.69679, .43763, .00000, + .00000, .26485, .43858, + .02756, .01515, 3.73530, .46997, .01872, + .00000, .29873, .47099, + .02865, .01575, 4.87763, .50828, .06312, + .00000, .33858, .50938, + .02959, .01627, 5.96550, .54508, .10286, + .00000, .37667, .54626, + .03050, .01678, 7.10861, .58320, .14448, + .00000, .41599, .58444, + .03146, .01731, 8.42335, .62674, .19259, + .00000, .46077, .62805 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03230, .01777, 9.62532, .66737, .23545, + .00000, .50245, .66874, + .03310, .01822, 10.84866, .70886, .27933, + .00000, .54493, .71029, + .03374, .01857, 11.87522, .74336, .31646, + .00000, .58020, .74484, + .03510, .01933, 14.09939, .82167, .39891, + .00758, .66010, .82325, + .03627, .01997, 16.02884, .89355, .47384, + .09553, .73330, .89522, + .03757, .02070, 18.30172, .97918, .56310, + .20044, .82035, .98094, + .03893, .02145, 20.79203, 1.07358, .66124, + .30393, .91619, 1.07544, + .04017, .02214, 23.14664, 1.16371, .75475, + .40254, 1.00759, 1.16567 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04142, .02284, 25.61171, 1.25906, .85361, + .50625, 1.10419, 1.26112, + .04246, .02341, 27.70740, 1.34126, .93835, + .59403, 1.18740, 1.34340, + .04372, .02411, 30.29984, 1.44444, 1.04435, + .70333, 1.29177, 1.44668, + .04484, .02473, 32.65351, 1.53916, 1.14182, + .80432, 1.38752, 1.54148, + .04586, .02530, 34.85741, 1.62882, 1.23414, + .90002, 1.47810, 1.63122, + .04716, .02602, 37.66451, 1.74541, 1.35334, + 1.02223, 1.59584, 1.74791, + .04839, .02670, 40.35104, 1.85860, 1.46922, + 1.14140, 1.71007, 1.86119, + .04954, .02734, 42.91744, 1.96799, 1.58150, + 1.25731, 1.82043, 1.97067 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05068, .02797, 45.45756, 2.07896, 1.69450, + 1.37263, 1.93234, 2.08173, + .05181, .02860, 47.97963, 2.19044, 1.80836, + 1.48937, 2.04473, 2.19330, + .05288, .02919, 50.38315, 2.29824, 1.91846, + 1.60225, 2.15338, 2.30119, + .05389, .02974, 52.62758, 2.40097, 2.02300, + 1.70892, 2.25688, 2.40399, + .05490, .03031, 54.92005, 2.50675, 2.13105, + 1.81971, 2.36344, 2.50986, + .05590, .03086, 57.12881, 2.61116, 2.23709, + 1.92767, 2.46859, 2.61434, + .05685, .03138, 59.27003, 2.71295, 2.34096, + 2.03404, 2.57108, 2.71621, + .05775, .03188, 61.24557, 2.80917, 2.43861, + 2.13336, 2.66795, 2.81250 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05866, .03238, 63.26753, 2.90829, 2.53954, + 2.23646, 2.76773, 2.91169, + .05956, .03288, 65.23174, 3.00644, 2.63924, + 2.33798, 2.86651, 3.00992, + .06042, .03335, 67.10517, 3.10120, 2.73552, + 2.43607, 2.96186, 3.10474, + .06124, .03380, 68.88885, 3.19231, 2.82823, + 2.53068, 3.05353, 3.19591, + .06206, .03426, 70.64667, 3.28408, 2.92126, + 2.62518, 3.14587, 3.28776 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02940, .01589, .72384, .34576, .00000, + .00000, .18536, .34702, + .03060, .01656, 1.38981, .36510, .00000, + .00000, .20613, .36645, + .03236, .01755, 2.53690, .39969, .00000, + .00000, .24276, .40119, + .03364, .01827, 3.48392, .42905, .01693, + .00000, .27352, .43065, + .03497, .01901, 4.51312, .46349, .05696, + .00000, .30938, .46520, + .03611, .01966, 5.48310, .49631, .09251, + .00000, .34338, .49811, + .03721, .02027, 6.49371, .53009, .12950, + .00000, .37826, .53198, + .03838, .02093, 7.64642, .56846, .17201, + .00000, .41777, .57044 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03939, .02149, 8.69152, .60403, .20964, + .00000, .45430, .60610, + .04036, .02204, 9.74788, .64017, .24799, + .00000, .49135, .64232, + .04114, .02247, 10.62945, .67011, .28032, + .00000, .52200, .67232, + .04278, .02339, 12.52279, .73765, .35167, + .00669, .59100, .74000, + .04418, .02418, 14.14737, .79922, .41607, + .08240, .65378, .80169, + .04576, .02506, 16.04370, .87210, .49231, + .17238, .72797, .87469, + .04740, .02598, 18.10199, .95189, .57555, + .26046, .80909, .95462, + .04888, .02681, 20.03087, 1.02759, .65437, + .34387, .88596, 1.03044 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05038, .02765, 22.03373, 1.10720, .73720, + .43106, .96672, 1.11018, + .05162, .02835, 23.72355, 1.17545, .80782, + .50445, 1.03590, 1.17853, + .05313, .02919, 25.79831, 1.26066, .89566, + .59533, 1.12221, 1.26387, + .05446, .02994, 27.66857, 1.33848, .97603, + .67889, 1.20098, 1.34180, + .05569, .03062, 29.40879, 1.41180, 1.05180, + .75771, 1.27516, 1.41523, + .05724, .03148, 31.60853, 1.50663, 1.14909, + .85779, 1.37105, 1.51019, + .05869, .03230, 33.69870, 1.59821, 1.24318, + .95488, 1.46360, 1.60189, + .06006, .03306, 35.68271, 1.68630, 1.33393, + 1.04890, 1.55259, 1.69010 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06142, .03382, 37.63143, 1.77520, 1.42476, + 1.14190, 1.64236, 1.77911, + .06276, .03456, 39.55497, 1.86412, 1.51590, + 1.23567, 1.73212, 1.86814, + .06403, .03527, 41.37719, 1.94974, 1.60365, + 1.32595, 1.81853, 1.95387, + .06522, .03593, 43.06780, 2.03097, 1.68659, + 1.41087, 1.90047, 2.03519, + .06642, .03659, 44.78679, 2.11432, 1.77204, + 1.49880, 1.98455, 2.11865, + .06759, .03725, 46.43161, 2.19622, 1.85550, + 1.58405, 2.06714, 2.20065, + .06872, .03787, 48.02005, 2.27583, 1.93702, + 1.66784, 2.14741, 2.28036, + .06977, .03846, 49.47576, 2.35077, 2.01332, + 1.74570, 2.22295, 2.35538 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07085, .03905, 50.96040, 2.42775, 2.09199, + 1.82634, 2.30054, 2.43245, + .07190, .03964, 52.39432, 2.50369, 2.16939, + 1.90543, 2.37707, 2.50848, + .07291, .04019, 53.75595, 2.57678, 2.24391, + 1.98161, 2.45072, 2.58166, + .07387, .04072, 55.04736, 2.64686, 2.31547, + 2.05490, 2.52133, 2.65182, + .07484, .04126, 56.31229, 2.71720, 2.38701, + 2.12781, 2.59218, 2.72224 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03390, .01819, .71082, .32392, .00000, + .00000, .17410, .32563, + .03528, .01897, 1.34804, .34228, .00000, + .00000, .19381, .34411, + .03731, .02012, 2.43268, .37480, .00000, + .00000, .22824, .37680, + .03878, .02095, 3.31858, .40216, .01574, + .00000, .25693, .40429, + .04031, .02182, 4.27269, .43404, .05288, + .00000, .29015, .43630, + .04162, .02256, 5.16490, .46423, .08566, + .00000, .32145, .46660, + .04288, .02327, 6.08857, .49517, .11961, + .00000, .35343, .49765, + .04422, .02403, 7.13555, .53015, .15846, + .00000, .38950, .53276 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04538, .02468, 8.07890, .56243, .19270, + .00000, .42269, .56514, + .04649, .02531, 9.02747, .59512, .22748, + .00000, .45624, .59792, + .04738, .02581, 9.81585, .62211, .25670, + .00000, .48391, .62500, + .04925, .02687, 11.49788, .68274, .32092, + .00611, .54592, .68579, + .05086, .02777, 12.92923, .73772, .37860, + .07400, .60205, .74091, + .05265, .02879, 14.58856, .80249, .44654, + .15448, .66806, .80584, + .05451, .02984, 16.37693, .87305, .52037, + .23280, .73988, .87656, + .05620, .03079, 18.04163, .93967, .58994, + .30662, .80761, .94333 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05791, .03174, 19.75953, 1.00942, .66274, + .38346, .87846, 1.01323, + .05932, .03254, 21.20060, 1.06897, .72454, + .44786, .93890, 1.07291, + .06102, .03350, 22.95992, 1.14303, .80111, + .52731, 1.01401, 1.14711, + .06253, .03434, 24.53726, 1.21039, .87090, + .60007, 1.08228, 1.21461, + .06392, .03512, 25.99795, 1.27365, .93647, + .66847, 1.14635, 1.27799, + .06567, .03610, 27.83360, 1.35513, 1.02032, + .75497, 1.22885, 1.35963, + .06731, .03702, 29.56831, 1.43351, 1.10109, + .83856, 1.30816, 1.43815, + .06885, .03788, 31.20694, 1.50865, 1.17873, + .91923, 1.38416, 1.51343 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07039, .03874, 32.80691, 1.58417, 1.25612, + .99869, 1.46051, 1.58908, + .07189, .03958, 34.37914, 1.65946, 1.33353, + 1.07857, 1.53661, 1.66451, + .07332, .04037, 35.86174, 1.73173, 1.40783, + 1.15523, 1.60963, 1.73690, + .07465, .04112, 37.23031, 1.80006, 1.47781, + 1.22709, 1.67866, 1.80535, + .07600, .04187, 38.61710, 1.87001, 1.54973, + 1.30131, 1.74930, 1.87542, + .07732, .04260, 39.93678, 1.93850, 1.61973, + 1.37303, 1.81845, 1.94402, + .07858, .04330, 41.20759, 2.00493, 1.68796, + 1.44336, 1.88550, 2.01056, + .07976, .04396, 42.36598, 2.06724, 1.75161, + 1.50850, 1.94840, 2.07298 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08096, .04462, 43.54421, 2.13114, 1.81710, + 1.57584, 2.01289, 2.13698, + .08214, .04528, 44.67693, 2.19399, 1.88135, + 1.64168, 2.07630, 2.19993, + .08327, .04590, 45.74885, 2.25434, 1.94308, + 1.70497, 2.13719, 2.26038, + .08434, .04649, 46.76245, 2.31209, 2.00223, + 1.76573, 2.19544, 2.31822, + .08541, .04709, 47.75029, 2.36989, 2.06119, + 1.82600, 2.25374, 2.37611 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03791, .02037, .70467, .30833, .00000, + .00000, .16590, .31025, + .03945, .02125, 1.32058, .32595, .00000, + .00000, .18479, .32800, + .04172, .02254, 2.35827, .35687, .00000, + .00000, .21752, .35913, + .04336, .02347, 3.19817, .38272, .01484, + .00000, .24463, .38512, + .04506, .02444, 4.09588, .41267, .04979, + .00000, .27584, .41523, + .04652, .02528, 4.92983, .44089, .08049, + .00000, .30511, .44358, + .04792, .02607, 5.78855, .46971, .11217, + .00000, .33492, .47253, + .04941, .02692, 6.75681, .50218, .14829, + .00000, .36841, .50513 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05069, .02765, 7.62465, .53203, .18001, + .00000, .39912, .53510, + .05193, .02835, 8.49350, .56216, .21213, + .00000, .43007, .56534, + .05291, .02891, 9.21314, .58700, .23907, + .00000, .45554, .59026, + .05499, .03008, 10.74001, .64255, .29803, + .00567, .51240, .64600, + .05676, .03109, 12.03027, .69273, .35077, + .06782, .56366, .69634, + .05874, .03221, 13.51735, .75160, .41266, + .14133, .62371, .75539, + .06080, .03337, 15.11062, .81546, .47963, + .21253, .68877, .81944, + .06266, .03443, 16.58543, .87553, .54250, + .27938, .74989, .87968 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06454, .03548, 18.09943, .93820, .60804, + .34871, .81359, .94251, + .06609, .03636, 19.36315, .99151, .66350, + .40663, .86775, .99597, + .06796, .03741, 20.89869, 1.05759, .73197, + .47783, .93482, 1.06221, + .06962, .03835, 22.26915, 1.11751, .79418, + .54284, .99560, 1.12228, + .07114, .03920, 23.53308, 1.17361, .85247, + .60379, 1.05247, 1.17851, + .07306, .04028, 25.11352, 1.24563, .92675, + .68059, 1.12546, 1.25071, + .07486, .04129, 26.60018, 1.31469, .99808, + .75458, 1.19539, 1.31993, + .07655, .04223, 27.99883, 1.38069, 1.06645, + .82578, 1.26222, 1.38608 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07823, .04317, 29.35723, 1.44681, 1.13437, + .89568, 1.32912, 1.45235, + .07987, .04408, 30.68714, 1.51255, 1.20212, + .96576, 1.39563, 1.51824, + .08142, .04495, 31.93646, 1.57548, 1.26699, + 1.03284, 1.45928, 1.58131, + .08288, .04576, 33.08442, 1.63482, 1.32790, + 1.09554, 1.51928, 1.64078, + .08435, .04658, 34.24421, 1.69544, 1.39039, + 1.16018, 1.58056, 1.70153, + .08578, .04738, 35.34293, 1.75462, 1.45102, + 1.22244, 1.64037, 1.76083, + .08715, .04814, 36.39847, 1.81191, 1.51002, + 1.28341, 1.69826, 1.81824, + .08844, .04885, 37.35588, 1.86550, 1.56489, + 1.33972, 1.75241, 1.87195 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08974, .04957, 38.32745, 1.92036, 1.62127, + 1.39782, 1.80783, 1.92693, + .09102, .05028, 39.25768, 1.97420, 1.67645, + 1.45451, 1.86220, 1.98088, + .09224, .05095, 40.13538, 2.02580, 1.72936, + 1.50889, 1.91431, 2.03259, + .09340, .05159, 40.96314, 2.07509, 1.77998, + 1.56102, 1.96408, 2.08198, + .09457, .05224, 41.76605, 2.12429, 1.83030, + 1.61260, 2.01376, 2.13128 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05391, .02934, .70358, .26481, .00000, + .00000, .14330, .26802, + .05609, .03061, 1.25726, .28021, .00000, + .00000, .15980, .28362, + .05927, .03246, 2.15787, .30651, .00000, + .00000, .18767, .31024, + .06156, .03379, 2.86494, .32803, .01229, + .00000, .21027, .33198, + .06393, .03516, 3.60167, .35251, .04106, + .00000, .23584, .35668, + .06596, .03633, 4.27106, .37520, .06594, + .00000, .25945, .37957, + .06790, .03745, 4.94797, .39810, .09129, + .00000, .28320, .40266, + .06995, .03863, 5.69790, .42361, .11988, + .00000, .30960, .42837 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07171, .03965, 6.35832, .44677, .14468, + .00000, .33350, .45169, + .07341, .04062, 7.00990, .46990, .16955, + .00000, .35735, .47499, + .07475, .04139, 7.54336, .48883, .19025, + .00000, .37683, .49404, + .07759, .04302, 8.65397, .53064, .23502, + .00447, .41979, .53613, + .08000, .04439, 9.57014, .56788, .27451, + .05123, .45798, .57360, + .08268, .04592, 10.60547, .61101, .32026, + .10613, .50214, .61698, + .08545, .04750, 11.69251, .65714, .36910, + .15847, .54932, .66338, + .08795, .04891, 12.67945, .69996, .41435, + .20701, .59307, .70643 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09046, .05033, 13.67466, .74409, .46096, + .25674, .63811, .75080, + .09253, .05150, 14.49147, .78121, .49996, + .29782, .67597, .78811, + .09502, .05291, 15.46751, .82669, .54757, + .34777, .72233, .83383, + .09722, .05414, 16.32493, .86749, .59037, + .39290, .76389, .87484, + .09923, .05527, 17.10466, .90533, .63010, + .43482, .80242, .91286, + .10175, .05668, 18.06255, .95335, .68014, + .48705, .85129, .96111, + .10411, .05800, 18.94899, .99889, .72768, + .53683, .89762, 1.00687, + .10631, .05923, 19.77104, 1.04199, .77283, + .58431, .94145, 1.05018 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10850, .06044, 20.55458, 1.08467, .81715, + .63035, .98484, 1.09306, + .11063, .06162, 21.31139, 1.12673, .86098, + .67614, 1.02758, 1.13531, + .11263, .06273, 22.01237, 1.16663, .90257, + .71959, 1.06812, 1.17539, + .11451, .06377, 22.64596, 1.20388, .94125, + .75980, 1.10596, 1.21281, + .11640, .06481, 23.27955, 1.24167, .98066, + .80100, 1.14434, 1.25078, + .11823, .06583, 23.86882, 1.27818, 1.01850, + .84026, 1.18142, 1.28746, + .11998, .06679, 24.43027, 1.31332, 1.05513, + .87851, 1.21710, 1.32276, + .12162, .06769, 24.93004, 1.34588, 1.08886, + .91348, 1.25015, 1.35545 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12328, .06859, 25.43319, 1.37901, 1.12333, + .94940, 1.28379, 1.38874, + .12490, .06948, 25.90720, 1.41125, 1.15678, + .98414, 1.31652, 1.42112, + .12644, .07032, 26.34937, 1.44195, 1.18865, + 1.01726, 1.34768, 1.45196, + .12790, .07112, 26.76232, 1.47110, 1.21897, + 1.04883, 1.37727, 1.48124, + .12937, .07192, 27.15546, 1.49994, 1.24885, + 1.07980, 1.40655, 1.51021 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07758, .04357, .74971, .22908, .00000, + .00000, .12476, .23432, + .08064, .04536, 1.24345, .24239, .00000, + .00000, .13904, .24796, + .08508, .04796, 2.01426, .26447, .00000, + .00000, .16249, .27049, + .08826, .04981, 2.59875, .28210, .01005, + .00000, .18108, .28845, + .09153, .05171, 3.19018, .30175, .03340, + .00000, .20170, .30844, + .09432, .05331, 3.71392, .31965, .05324, + .00000, .22040, .32661, + .09697, .05484, 4.23246, .33746, .07319, + .00000, .23897, .34469, + .09976, .05645, 4.79530, .35703, .09539, + .00000, .25933, .36455 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10216, .05782, 5.28089, .37455, .11438, + .00000, .27752, .38231, + .10446, .05913, 5.75179, .39185, .13321, + .00000, .29545, .39984, + .10627, .06017, 6.13212, .40588, .14876, + .00000, .30998, .41405, + .11008, .06233, 6.90606, .43644, .18192, + .00345, .34156, .44498, + .11329, .06415, 7.52575, .46321, .21071, + .03779, .36919, .47207, + .11685, .06616, 8.20966, .49374, .24358, + .07776, .40065, .50295, + .12052, .06821, 8.91025, .52587, .27811, + .11521, .43372, .53544, + .12380, .07005, 9.53134, .55523, .30963, + .14943, .46393, .56512 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12708, .07188, 10.14395, .58506, .34165, + .18401, .49459, .59526, + .12978, .07337, 10.63613, .60982, .36809, + .21221, .52002, .62028, + .13300, .07516, 11.21206, .63974, .39995, + .24606, .55074, .65050, + .13583, .07672, 11.70790, .66623, .42824, + .27630, .57793, .67726, + .13840, .07813, 12.15063, .69053, .45421, + .30408, .60286, .70180, + .14162, .07990, 12.68185, .72094, .48648, + .33823, .63405, .73251, + .14462, .08153, 13.16296, .74940, .51676, + .37039, .66323, .76125, + .14741, .08305, 13.60078, .77603, .54520, + .40074, .69053, .78813 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15015, .08454, 14.00708, .80202, .57272, + .42977, .71718, .81437, + .15282, .08598, 14.39233, .82735, .59967, + .45836, .74314, .83995, + .15532, .08733, 14.74206, .85112, .62497, + .48520, .76751, .86395, + .15765, .08858, 15.05064, .87304, .64822, + .50977, .78998, .88608, + .15998, .08983, 15.35507, .89510, .67173, + .53475, .81258, .90834, + .16224, .09104, 15.62969, .91612, .69402, + .55827, .83414, .92957, + .16439, .09218, 15.88850, .93622, .71545, + .58104, .85474, .94986, + .16639, .09324, 16.11165, .95460, .73494, + .60161, .87358, .96841 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16840, .09431, 16.33386, .97319, .75475, + .62261, .89264, .98718, + .17037, .09535, 16.53763, .99107, .77376, + .64272, .91098, 1.00523, + .17223, .09633, 16.72431, 1.00795, .79174, + .66175, .92830, 1.02228, + .17399, .09726, 16.89585, 1.02387, .80873, + .67977, .94463, 1.03835, + .17575, .09818, 17.05322, 1.03944, .82528, + .69726, .96060, 1.05407 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09667, .05554, .80815, .21129, .00000, + .00000, .11570, .21842, + .10039, .05770, 1.26637, .22345, .00000, + .00000, .12878, .23098, + .10576, .06081, 1.96185, .24320, .00000, + .00000, .14983, .25129, + .10959, .06302, 2.47721, .25873, .00887, + .00000, .16628, .26722, + .11350, .06526, 2.98892, .27581, .02938, + .00000, .18428, .28471, + .11682, .06716, 3.43443, .29117, .04661, + .00000, .20041, .30041, + .11998, .06896, 3.86928, .30632, .06376, + .00000, .21630, .31589, + .12330, .07084, 4.33484, .32283, .08270, + .00000, .23356, .33273 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12614, .07244, 4.73106, .33746, .09874, + .00000, .24883, .34765, + .12885, .07397, 5.11078, .35179, .11455, + .00000, .26378, .36226, + .13099, .07517, 5.41464, .36335, .12751, + .00000, .27581, .37403, + .13545, .07766, 6.02327, .38828, .15492, + .00293, .30173, .39940, + .13921, .07975, 6.50025, .40988, .17847, + .03119, .32416, .42137, + .14335, .08204, 7.01779, .43425, .20509, + .06391, .34944, .44615, + .14759, .08437, 7.53883, .45962, .23275, + .09419, .37573, .47193, + .15138, .08645, 7.99295, .48256, .25776, + .12160, .39948, .49523 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15515, .08851, 8.43366, .50563, .28292, + .14906, .42336, .51866, + .15824, .09018, 8.78225, .52459, .30351, + .17125, .44298, .53791, + .16192, .09217, 9.18342, .54729, .32810, + .19767, .46647, .56097, + .16514, .09390, 9.52356, .56723, .34976, + .22109, .48709, .58120, + .16805, .09547, 9.82317, .58536, .36950, + .24245, .50584, .59961, + .17168, .09741, 10.17582, .60783, .39380, + .26847, .52907, .62241, + .17505, .09920, 10.48975, .62866, .41640, + .29278, .55061, .64354, + .17818, .10085, 10.77114, .64800, .43747, + .31556, .57061, .66316 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18124, .10246, 11.02613, .66667, .45767, + .33714, .58992, .68211, + .18420, .10402, 11.26416, .68473, .47730, + .35825, .60861, .70043, + .18698, .10547, 11.47640, .70155, .49560, + .37795, .62601, .71749, + .18955, .10681, 11.65925, .71691, .51228, + .39583, .64191, .73308, + .19212, .10814, 11.83749, .73228, .52905, + .41392, .65782, .74867, + .19460, .10942, 11.99360, .74678, .54481, + .43080, .67284, .76338, + .19695, .11063, 12.13947, .76058, .55990, + .44709, .68714, .77738, + .19912, .11175, 12.26083, .77306, .57349, + .46167, .70008, .79005 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20131, .11287, 12.38050, .78564, .58725, + .47651, .71312, .80280, + .20344, .11396, 12.48669, .79762, .60036, + .49061, .72556, .81497, + .20546, .11498, 12.58190, .80887, .61268, + .50389, .73723, .82638, + .20736, .11595, 12.66784, .81942, .62427, + .51641, .74819, .83709, + .20924, .11690, 12.74288, .82963, .63546, + .52846, .75880, .84745 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11347, .06627, .87070, .20002, .00000, + .00000, .11005, .20894, + .11772, .06872, 1.30128, .21137, .00000, + .00000, .12231, .22075, + .12383, .07221, 1.94199, .22951, .00000, + .00000, .14172, .23954, + .12818, .07468, 2.40832, .24359, .00808, + .00000, .15671, .25408, + .13260, .07718, 2.86470, .25893, .02670, + .00000, .17296, .26988, + .13634, .07928, 3.25688, .27259, .04220, + .00000, .18738, .28393, + .13989, .08127, 3.63542, .28597, .05752, + .00000, .20148, .29767, + .14362, .08334, 4.03637, .30044, .07432, + .00000, .21670, .31252 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14679, .08510, 4.37395, .31317, .08845, + .00000, .23006, .32557, + .14981, .08677, 4.69447, .32556, .10229, + .00000, .24306, .33827, + .15219, .08808, 4.94909, .33551, .11360, + .00000, .25348, .34845, + .15715, .09080, 5.45245, .35680, .13732, + .00260, .27575, .37023, + .16130, .09306, 5.83981, .37508, .15754, + .02699, .29486, .38892, + .16587, .09553, 6.25428, .39554, .18021, + .05512, .31622, .40982, + .17053, .09804, 6.66555, .41665, .20358, + .08092, .33824, .43137, + .17467, .10026, 7.01880, .43556, .22454, + .10410, .35796, .45068 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17879, .10245, 7.35691, .45444, .24547, + .12716, .37764, .46994, + .18214, .10423, 7.62065, .46983, .26248, + .14566, .39369, .48564, + .18613, .10633, 7.91980, .48812, .28265, + .16756, .41277, .50430, + .18960, .10815, 8.16999, .50406, .30030, + .18684, .42939, .52056, + .19275, .10979, 8.38759, .51847, .31630, + .20433, .44442, .53525, + .19664, .11182, 8.63905, .53617, .33583, + .22549, .46288, .55330, + .20025, .11368, 8.85924, .55246, .35388, + .24513, .47988, .56990, + .20359, .11539, 9.05376, .56747, .37061, + .26344, .49556, .58521 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20684, .11705, 9.22567, .58184, .38651, + .28065, .51057, .59985, + .20998, .11865, 9.38363, .59565, .40189, + .29741, .52500, .61393, + .21291, .12014, 9.52185, .60842, .41613, + .31295, .53836, .62695, + .21562, .12150, 9.63776, .61999, .42903, + .32697, .55047, .63874, + .21832, .12286, 9.74933, .63151, .44194, + .34110, .56253, .65049, + .22091, .12415, 9.84338, .64228, .45398, + .35420, .57382, .66146, + .22337, .12537, 9.93043, .65249, .46547, + .36679, .58453, .67187, + .22563, .12650, 9.99941, .66164, .47574, + .37799, .59414, .68120 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22791, .12762, 10.06663, .67082, .48610, + .38935, .60378, .69056, + .23011, .12870, 10.12347, .67950, .49590, + .40009, .61291, .69941, + .23220, .12972, 10.17283, .68760, .50508, + .41015, .62144, .70767, + .23416, .13068, 10.21614, .69515, .51367, + .41961, .62940, .71538, + .23609, .13162, 10.25066, .70240, .52191, + .42865, .63705, .72278 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12882, .07615, .93292, .19192, .00000, + .00000, .10611, .20259, + .13352, .07881, 1.33980, .20263, .00000, + .00000, .11772, .21381, + .14025, .08261, 1.93669, .21952, .00000, + .00000, .13588, .23141, + .14501, .08527, 2.36474, .23251, .00750, + .00000, .14977, .24490, + .14985, .08796, 2.77852, .24652, .02471, + .00000, .16469, .25942, + .15394, .09021, 3.13027, .25890, .03893, + .00000, .17784, .27222, + .15781, .09234, 3.46664, .27096, .05290, + .00000, .19061, .28467, + .16185, .09455, 3.81972, .28391, .06814, + .00000, .20433, .29804 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16529, .09642, 4.11427, .29524, .08088, + .00000, .21629, .30971, + .16856, .09819, 4.39174, .30621, .09330, + .00000, .22786, .32100, + .17113, .09958, 4.61081, .31498, .10340, + .00000, .23711, .33002, + .17647, .10244, 5.03880, .33362, .12447, + .00235, .25674, .34918, + .18092, .10482, 5.36271, .34951, .14230, + .02399, .27345, .36550, + .18581, .10740, 5.70503, .36717, .16218, + .04886, .29201, .38362, + .19078, .11002, 6.04035, .38523, .18252, + .07149, .31100, .40215, + .19519, .11232, 6.32453, .40131, .20063, + .09170, .32790, .41863 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19954, .11459, 6.59300, .41723, .21861, + .11168, .34463, .43495, + .20309, .11642, 6.79975, .43014, .23314, + .12763, .35820, .44818, + .20729, .11858, 7.03102, .44537, .25026, + .14639, .37421, .46378, + .21094, .12044, 7.22184, .45855, .26516, + .16283, .38808, .47728, + .21424, .12211, 7.38567, .47039, .27860, + .17768, .40055, .48941, + .21831, .12417, 7.57143, .48484, .29490, + .19553, .41577, .50420, + .22206, .12605, 7.73131, .49804, .30988, + .21202, .42969, .51772, + .22553, .12778, 7.87039, .51014, .32368, + .22731, .44245, .53011 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22889, .12944, 7.98975, .52161, .33671, + .24159, .45457, .54185, + .23214, .13104, 8.09749, .53258, .34926, + .25544, .46617, .55308, + .23515, .13252, 8.18972, .54266, .36082, + .26823, .47683, .56340, + .23793, .13387, 8.26445, .55172, .37121, + .27970, .48644, .57268, + .24070, .13522, 8.33527, .56070, .38159, + .29123, .49597, .58188, + .24335, .13649, 8.39159, .56902, .39120, + .30184, .50481, .59040, + .24585, .13769, 8.44303, .57688, .40035, + .31202, .51318, .59845, + .24815, .13879, 8.48075, .58385, .40846, + .32102, .52061, .60559 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25046, .13989, 8.51683, .59083, .41662, + .33013, .52806, .61274, + .25269, .14094, 8.54469, .59738, .42430, + .33869, .53506, .61945, + .25479, .14193, 8.56731, .60345, .43146, + .34668, .54156, .62567, + .25676, .14285, 8.58593, .60909, .43814, + .35417, .54762, .63146, + .25871, .14376, 8.59729, .61444, .44450, + .36129, .55337, .63694 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15672, .09410, 1.04969, .18054, .00000, + .00000, .10077, .19462, + .16213, .09707, 1.41750, .19024, .00000, + .00000, .11139, .20489, + .16984, .10127, 1.94477, .20522, .00000, + .00000, .12768, .22068, + .17526, .10420, 2.31387, .21654, .00664, + .00000, .13992, .23257, + .18074, .10713, 2.66332, .22859, .02182, + .00000, .15290, .24516, + .18535, .10958, 2.95518, .23909, .03420, + .00000, .16418, .25612, + .18968, .11187, 3.22996, .24921, .04625, + .00000, .17504, .26667, + .19420, .11425, 3.51403, .25997, .05926, + .00000, .18658, .27788 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19803, .11625, 3.74728, .26928, .07002, + .00000, .19654, .28754, + .20165, .11814, 3.96407, .27821, .08044, + .00000, .20609, .29682, + .20450, .11961, 4.13347, .28530, .08886, + .00000, .21367, .30418, + .21037, .12262, 4.45745, .30022, .10624, + .00200, .22960, .31964, + .21524, .12511, 4.69508, .31277, .12079, + .01985, .24299, .33262, + .22055, .12779, 4.94051, .32654, .13682, + .04023, .25768, .34687, + .22593, .13049, 5.17506, .34043, .15303, + .05856, .27252, .36123, + .23067, .13285, 5.36884, .35263, .16732, + .07475, .28556, .37384 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23533, .13515, 5.54734, .36457, .18135, + .09060, .29833, .38617, + .23910, .13699, 5.68095, .37412, .19257, + .10314, .30856, .39604, + .24355, .13915, 5.82610, .38526, .20566, + .11776, .32051, .40754, + .24739, .14101, 5.94252, .39480, .21695, + .13046, .33075, .41738, + .25084, .14266, 6.03977, .40328, .22704, + .14184, .33986, .42613, + .25508, .14468, 6.14494, .41347, .23915, + .15539, .35084, .43664, + .25896, .14651, 6.23170, .42266, .25016, + .16780, .36076, .44612, + .26254, .14818, 6.30427, .43099, .26023, + .17921, .36977, .45472 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26597, .14977, 6.36136, .43877, .26961, + .18976, .37821, .46274, + .26927, .15129, 6.41023, .44612, .27857, + .19992, .38619, .47032, + .27233, .15269, 6.44912, .45278, .28675, + .20922, .39346, .47720, + .27513, .15395, 6.47648, .45868, .29403, + .21749, .39991, .48329, + .27790, .15521, 6.50074, .46448, .30125, + .22575, .40627, .48927, + .28053, .15638, 6.51498, .46975, .30785, + .23328, .41207, .49471, + .28302, .15749, 6.52708, .47470, .31410, + .24048, .41753, .49982, + .28529, .15848, 6.53053, .47899, .31957, + .24676, .42229, .50425 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28756, .15948, 6.53267, .48326, .32505, + .25310, .42704, .50866, + .28973, .16042, 6.52934, .48719, .33014, + .25900, .43143, .51272, + .29177, .16130, 6.52348, .49080, .33486, + .26448, .43547, .51644, + .29368, .16212, 6.51604, .49412, .33923, + .26959, .43920, .51987, + .29555, .16291, 6.50340, .49718, .34333, + .27439, .44267, .52304 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19417, .11789, 1.20331, .16912, .00000, + .00000, .09574, .18810, + .20033, .12110, 1.52377, .17765, .00000, + .00000, .10524, .19725, + .20906, .12560, 1.97067, .19051, .00000, + .00000, .11947, .21097, + .21516, .12872, 2.27451, .20004, .00577, + .00000, .12996, .22108, + .22127, .13180, 2.55473, .20999, .01885, + .00000, .14089, .23161, + .22637, .13436, 2.78376, .21852, .02938, + .00000, .15024, .24061, + .23115, .13673, 2.99520, .22664, .03948, + .00000, .15913, .24915, + .23611, .13919, 3.20963, .23517, .05028, + .00000, .16847, .25812 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24029, .14123, 3.38223, .24244, .05911, + .00000, .17642, .26575, + .24422, .14314, 3.53981, .24933, .06757, + .00000, .18396, .27298, + .24729, .14463, 3.66128, .25477, .07435, + .00000, .18990, .27867, + .25360, .14766, 3.88648, .26602, .08820, + .00166, .20221, .29044, + .25878, .15012, 4.04380, .27533, .09962, + .01590, .21240, .30017, + .26440, .15275, 4.20077, .28538, .11204, + .03206, .22342, .31065, + .27003, .15536, 4.34514, .29534, .12443, + .04637, .23436, .32104, + .27495, .15763, 4.45936, .30394, .13520, + .05885, .24382, .32998 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27976, .15981, 4.55998, .31221, .14564, + .07095, .25295, .33859, + .28362, .16155, 4.63165, .31871, .15388, + .08040, .26015, .34536, + .28813, .16355, 4.70490, .32616, .16338, + .09131, .26843, .35311, + .29200, .16526, 4.76008, .33243, .17147, + .10069, .27542, .35963, + .29546, .16676, 4.80326, .33793, .17863, + .10901, .28157, .36534, + .29967, .16857, 4.84435, .34438, .18710, + .11881, .28884, .37205, + .30350, .17019, 4.87382, .35009, .19471, + .12768, .29530, .37798, + .30698, .17166, 4.89497, .35519, .20158, + .13576, .30108, .38327 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31031, .17304, 4.90529, .35980, .20789, + .14314, .30637, .38805, + .31348, .17433, 4.91045, .36408, .21384, + .15017, .31131, .39249, + .31639, .17551, 4.91019, .36789, .21921, + .15656, .31572, .39644, + .31902, .17656, 4.90371, .37116, .22392, + .16217, .31956, .39984, + .32162, .17759, 4.89521, .37435, .22855, + .16774, .32330, .40314, + .32406, .17854, 4.88043, .37712, .23271, + .17274, .32662, .40601, + .32636, .17943, 4.86564, .37970, .23662, + .17749, .32971, .40868, + .32843, .18021, 4.84648, .38184, .23998, + .18159, .33232, .41090 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33049, .18098, 4.82654, .38394, .24333, + .18570, .33491, .41308, + .33244, .18170, 4.80335, .38580, .24638, + .18949, .33722, .41500, + .33427, .18236, 4.77965, .38745, .24918, + .19296, .33932, .41671, + .33596, .18298, 4.75621, .38894, .25174, + .19619, .34121, .41825, + .33760, .18355, 4.72947, .39022, .25410, + .19917, .34291, .41958 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24965, .15184, 1.40516, .15595, .00000, + .00000, .09034, .18253, + .25655, .15511, 1.66174, .16296, .00000, + .00000, .09840, .19013, + .26619, .15963, 2.00675, .17321, .00000, + .00000, .11011, .20115, + .27285, .16272, 2.23195, .18059, .00478, + .00000, .11852, .20904, + .27945, .16571, 2.43147, .18811, .01551, + .00000, .12708, .21707, + .28491, .16817, 2.58945, .19441, .02398, + .00000, .13426, .22376, + .28998, .17042, 2.73121, .20030, .03199, + .00000, .14096, .22999, + .29520, .17271, 2.87088, .20637, .04042, + .00000, .14788, .23642 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29955, .17461, 2.97958, .21144, .04720, + .00000, .15367, .24177, + .30362, .17636, 3.07594, .21616, .05362, + .00000, .15908, .24675, + .30678, .17771, 3.14860, .21984, .05872, + .00000, .16330, .25062, + .31319, .18041, 3.27557, .22730, .06896, + .00130, .17186, .25845, + .31839, .18256, 3.35525, .23331, .07725, + .01191, .17879, .26474, + .32396, .18483, 3.42862, .23964, .08611, + .02384, .18611, .27134, + .32946, .18702, 3.48988, .24572, .09478, + .03421, .19320, .27768, + .33421, .18888, 3.53277, .25081, .10217, + .04312, .19919, .28298 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33878, .19063, 3.56531, .25556, .10921, + .05161, .20483, .28791, + .34240, .19200, 3.58372, .25918, .11468, + .05816, .20916, .29167, + .34658, .19353, 3.59670, .26319, .12086, + .06560, .21402, .29581, + .35012, .19481, 3.60177, .26646, .12605, + .07192, .21803, .29919, + .35324, .19592, 3.60158, .26925, .13057, + .07746, .22148, .30205, + .35697, .19720, 3.59252, .27236, .13580, + .08387, .22541, .30524, + .36031, .19831, 3.57843, .27499, .14042, + .08959, .22880, .30793, + .36331, .19930, 3.56150, .27725, .14452, + .09474, .23176, .31023 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36612, .20017, 3.53821, .27915, .14819, + .09935, .23433, .31214, + .36875, .20098, 3.51284, .28082, .15159, + .10370, .23666, .31382, + .37113, .20169, 3.48613, .28223, .15461, + .10760, .23867, .31523, + .37324, .20228, 3.45755, .28332, .15719, + .11096, .24032, .31631, + .37531, .20285, 3.42811, .28433, .15969, + .11427, .24189, .31730, + .37719, .20334, 3.39575, .28508, .16187, + .11718, .24317, .31802, + .37896, .20379, 3.36504, .28575, .16390, + .11992, .24435, .31866, + .38049, .20415, 3.33324, .28617, .16558, + .12224, .24524, .31904 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38201, .20450, 3.30124, .28656, .16723, + .12455, .24609, .31938, + .38342, .20479, 3.26809, .28680, .16869, + .12663, .24678, .31956, + .38470, .20505, 3.23598, .28695, .16999, + .12853, .24736, .31966, + .38589, .20528, 3.20529, .28703, .17117, + .13026, .24785, .31969, + .38699, .20546, 3.17275, .28698, .17220, + .13183, .24819, .31957 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29952, .18068, 1.54714, .14558, .00000, + .00000, .08626, .17889, + .30666, .18374, 1.75127, .15137, .00000, + .00000, .09313, .18511, + .31656, .18790, 2.01699, .15959, .00000, + .00000, .10288, .19390, + .32331, .19068, 2.18381, .16537, .00406, + .00000, .10972, .20005, + .32993, .19334, 2.32525, .17114, .01311, + .00000, .11657, .20614, + .33535, .19548, 2.43369, .17586, .02015, + .00000, .12219, .21112, + .34035, .19743, 2.52813, .18020, .02672, + .00000, .12737, .21566, + .34545, .19939, 2.61826, .18460, .03355, + .00000, .13264, .22026 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34965, .20096, 2.68562, .18820, .03898, + .00000, .13697, .22401, + .35356, .20240, 2.74316, .19149, .04406, + .00000, .14097, .22744, + .35658, .20350, 2.78539, .19403, .04807, + .00000, .14405, .23007, + .36261, .20566, 2.85237, .19906, .05601, + .00106, .15020, .23525, + .36744, .20732, 2.88614, .20300, .06234, + .00938, .15506, .23929, + .37253, .20902, 2.91148, .20702, .06901, + .01866, .16010, .24339, + .37749, .21062, 2.92653, .21076, .07543, + .02661, .16486, .24716, + .38170, .21193, 2.93085, .21377, .08082, + .03335, .16876, .25018 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38569, .21312, 2.92750, .21647, .08588, + .03970, .17234, .25287, + .38879, .21400, 2.91884, .21844, .08974, + .04453, .17502, .25481, + .39231, .21495, 2.90198, .22051, .09405, + .04997, .17793, .25682, + .39523, .21571, 2.88291, .22210, .09761, + .05454, .18025, .25835, + .39776, .21633, 2.86241, .22340, .10067, + .05850, .18219, .25956, + .40074, .21699, 2.83092, .22469, .10415, + .06302, .18429, .26075, + .40334, .21752, 2.79816, .22569, .10716, + .06701, .18603, .26162, + .40562, .21796, 2.76553, .22646, .10979, + .07057, .18747, .26227 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40769, .21828, 2.72905, .22696, .11208, + .07370, .18863, .26262, + .40959, .21854, 2.69227, .22731, .11417, + .07662, .18961, .26283, + .41126, .21873, 2.65622, .22750, .11599, + .07920, .19040, .26289, + .41269, .21884, 2.62052, .22752, .11750, + .08140, .19095, .26275, + .41406, .21894, 2.58469, .22748, .11895, + .08355, .19144, .26254, + .41524, .21894, 2.54767, .22726, .12016, + .08540, .19174, .26216, + .41634, .21894, 2.51298, .22703, .12127, + .08714, .19199, .26177, + .41723, .21887, 2.47877, .22665, .12215, + .08858, .19206, .26124 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41811, .21879, 2.44471, .22625, .12300, + .08999, .19211, .26069, + .41886, .21866, 2.41045, .22576, .12372, + .09125, .19204, .26002, + .41953, .21852, 2.37779, .22523, .12434, + .09238, .19192, .25933, + .42012, .21836, 2.34699, .22470, .12489, + .09340, .19177, .25864, + .42061, .21815, 2.31523, .22405, .12532, + .09430, .19151, .25784 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38742, .22714, 1.69179, .12800, .00000, + .00000, .07904, .17162, + .39415, .22932, 1.81371, .13183, .00000, + .00000, .08397, .17548, + .40321, .23215, 1.96155, .13701, .00000, + .00000, .09069, .18061, + .40924, .23393, 2.04588, .14050, .00302, + .00000, .09523, .18402, + .41499, .23555, 2.10812, .14383, .00966, + .00000, .09962, .18720, + .41959, .23675, 2.15117, .14643, .01472, + .00000, .10310, .18967, + .42375, .23780, 2.18499, .14872, .01935, + .00000, .10622, .19181, + .42789, .23879, 2.21339, .15096, .02406, + .00000, .10931, .19386 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .43122, .23953, 2.23057, .15269, .02774, + .00000, .11176, .19543, + .43424, .24015, 2.24202, .15421, .03113, + .00000, .11395, .19678, + .43654, .24059, 2.24881, .15535, .03376, + .00000, .11560, .19777, + .44099, .24135, 2.24828, .15745, .03888, + .00075, .11878, .19953, + .44438, .24182, 2.23257, .15895, .04285, + .00622, .12117, .20071, + .44780, .24218, 2.20815, .16034, .04694, + .01228, .12350, .20172, + .45095, .24239, 2.17721, .16144, .05076, + .01735, .12556, .20240, + .45348, .24244, 2.14478, .16217, .05389, + .02156, .12711, .20273 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45574, .24235, 2.10875, .16266, .05675, + .02545, .12843, .20283, + .45736, .24219, 2.07649, .16289, .05887, + .02836, .12931, .20271, + .45908, .24187, 2.03499, .16295, .06118, + .03156, .13014, .20234, + .46039, .24150, 1.99709, .16285, .06303, + .03421, .13071, .20187, + .46143, .24112, 1.96160, .16266, .06457, + .03647, .13111, .20131, + .46245, .24050, 1.91488, .16222, .06626, + .03899, .13140, .20039, + .46321, .23985, 1.87060, .16166, .06766, + .04117, .13151, .19939, + .46377, .23918, 1.82924, .16105, .06886, + .04307, .13150, .19836 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46410, .23840, 1.78693, .16028, .06983, + .04471, .13132, .19716, + .46428, .23761, 1.74602, .15946, .07069, + .04620, .13106, .19591, + .46432, .23682, 1.70760, .15861, .07139, + .04750, .13073, .19466, + .46421, .23601, 1.67129, .15772, .07193, + .04857, .13031, .19339, + .46405, .23517, 1.63558, .15680, .07242, + .04960, .12986, .19211, + .46371, .23428, 1.60029, .15581, .07278, + .05045, .12932, .19073, + .46337, .23343, 1.56763, .15486, .07311, + .05124, .12880, .18943, + .46289, .23257, 1.53665, .15388, .07330, + .05187, .12821, .18811 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46238, .23171, 1.50614, .15289, .07349, + .05248, .12760, .18678, + .46177, .23081, 1.47624, .15186, .07360, + .05299, .12695, .18542, + .46114, .22994, 1.44820, .15086, .07367, + .05344, .12630, .18410, + .46051, .22909, 1.42207, .14990, .07371, + .05384, .12567, .18284, + .45977, .22820, 1.39576, .14888, .07369, + .05416, .12498, .18152 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .46268, .26213, 1.70508, .11266, .00000, + .00000, .07205, .16232, + .46812, .26311, 1.76763, .11504, .00000, + .00000, .07546, .16424, + .47518, .26418, 1.83439, .11807, .00000, + .00000, .07994, .16655, + .47971, .26469, 1.86497, .12000, .00228, + .00000, .08285, .16793, + .48381, .26500, 1.87778, .12173, .00724, + .00000, .08557, .16907, + .48696, .26510, 1.88152, .12298, .01096, + .00000, .08765, .16980, + .48970, .26508, 1.88022, .12402, .01430, + .00000, .08944, .17033, + .49232, .26495, 1.87412, .12496, .01766, + .00000, .09115, .17073 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49430, .26473, 1.86408, .12561, .02024, + .00000, .09245, .17089, + .49600, .26443, 1.85139, .12611, .02258, + .00000, .09357, .17093, + .49726, .26416, 1.84011, .12646, .02439, + .00000, .09439, .17090, + .49946, .26341, 1.80690, .12695, .02784, + .00055, .09586, .17061, + .50090, .26261, 1.76905, .12717, .03046, + .00433, .09686, .17014, + .50214, .26157, 1.72379, .12719, .03310, + .00848, .09774, .16940, + .50302, .26035, 1.67501, .12697, .03551, + .01189, .09838, .16839, + .50347, .25912, 1.62961, .12659, .03744, + .01468, .09874, .16728 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50364, .25778, 1.58325, .12605, .03916, + .01722, .09893, .16603, + .50354, .25659, 1.54440, .12549, .04040, + .01909, .09894, .16487, + .50316, .25505, 1.49717, .12468, .04171, + .02112, .09881, .16334, + .50261, .25363, 1.45584, .12387, .04274, + .02277, .09859, .16190, + .50196, .25230, 1.41843, .12307, .04357, + .02416, .09831, .16052, + .50086, .25050, 1.37119, .12194, .04443, + .02568, .09780, .15866, + .49964, .24875, 1.32776, .12079, .04512, + .02698, .09724, .15684, + .49838, .24709, 1.28815, .11968, .04569, + .02809, .09665, .15511 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49685, .24535, 1.24895, .11848, .04610, + .02902, .09596, .15329, + .49526, .24362, 1.21172, .11728, .04644, + .02986, .09524, .15149, + .49365, .24197, 1.17738, .11611, .04671, + .03057, .09452, .14976, + .49199, .24035, 1.14563, .11496, .04687, + .03114, .09378, .14809, + .49030, .23873, 1.11473, .11380, .04700, + .03168, .09303, .14642, + .48846, .23707, 1.08482, .11261, .04706, + .03211, .09223, .14473, + .48671, .23551, 1.05734, .11150, .04709, + .03250, .09147, .14314, + .48490, .23400, 1.03174, .11040, .04707, + .03279, .09071, .14160 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48307, .23249, 1.00670, .10931, .04703, + .03308, .08994, .14006, + .48118, .23096, .98249, .10820, .04695, + .03330, .08915, .13852, + .47933, .22949, .95999, .10714, .04685, + .03349, .08839, .13706, + .47756, .22810, .93917, .10613, .04674, + .03364, .08766, .13568, + .47566, .22666, .91848, .10510, .04660, + .03376, .08690, .13425 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52687, .28802, 1.63496, .09904, .00000, + .00000, .06508, .15094, + .53046, .28768, 1.65527, .10034, .00000, + .00000, .06732, .15134, + .53474, .28684, 1.66684, .10184, .00000, + .00000, .07012, .15150, + .53724, .28602, 1.66261, .10270, .00173, + .00000, .07186, .15139, + .53925, .28495, 1.64482, .10336, .00545, + .00000, .07341, .15107, + .54058, .28388, 1.62517, .10373, .00821, + .00000, .07452, .15062, + .54157, .28278, 1.60362, .10398, .01066, + .00000, .07544, .15007, + .54233, .28153, 1.57830, .10412, .01309, + .00000, .07626, .14935 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54272, .28034, 1.55384, .10410, .01493, + .00000, .07683, .14861, + .54288, .27914, 1.52879, .10400, .01658, + .00000, .07727, .14782, + .54291, .27817, 1.50856, .10388, .01785, + .00000, .07756, .14717, + .54256, .27593, 1.46030, .10346, .02022, + .00041, .07800, .14563, + .54184, .27391, 1.41369, .10295, .02200, + .00308, .07820, .14419, + .54067, .27155, 1.36126, .10225, .02376, + .00600, .07824, .14244, + .53907, .26899, 1.30747, .10136, .02533, + .00837, .07811, .14049, + .53732, .26659, 1.25948, .10044, .02656, + .01028, .07783, .13861 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53529, .26411, 1.21210, .09941, .02763, + .01200, .07744, .13666, + .53341, .26198, 1.17356, .09848, .02838, + .01324, .07702, .13501, + .53085, .25937, 1.12794, .09730, .02916, + .01458, .07642, .13290, + .52843, .25702, 1.08888, .09621, .02974, + .01566, .07583, .13102, + .52610, .25485, 1.05414, .09518, .03020, + .01655, .07524, .12928, + .52290, .25203, 1.01127, .09379, .03065, + .01751, .07441, .12703, + .51974, .24935, .97254, .09246, .03099, + .01832, .07358, .12490, + .51670, .24683, .93770, .09121, .03125, + .01901, .07277, .12292 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51341, .24428, .90389, .08991, .03141, + .01956, .07191, .12090, + .51015, .24178, .87213, .08863, .03153, + .02006, .07105, .11892, + .50700, .23940, .84319, .08741, .03159, + .02047, .07022, .11707, + .50389, .23713, .81676, .08623, .03160, + .02079, .06940, .11531, + .50076, .23488, .79122, .08507, .03160, + .02109, .06858, .11358, + .49754, .23262, .76683, .08391, .03154, + .02131, .06774, .11185, + .49450, .23051, .74454, .08282, .03148, + .02152, .06696, .11023, + .49150, .22847, .72401, .08177, .03138, + .02166, .06619, .10869 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48849, .22644, .70402, .08073, .03127, + .02179, .06542, .10717, + .48545, .22442, .68487, .07969, .03113, + .02188, .06465, .10567, + .48254, .22249, .66717, .07869, .03100, + .02196, .06392, .10425, + .47976, .22067, .65088, .07776, .03086, + .02202, .06322, .10292, + .47686, .21882, .63481, .07682, .03070, + .02205, .06251, .10156 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59273, .30993, 1.47987, .08420, .00000, + .00000, .05662, .13467, + .59349, .30792, 1.46581, .08454, .00000, + .00000, .05774, .13371, + .59368, .30467, 1.43464, .08472, .00000, + .00000, .05905, .13202, + .59325, .30220, 1.40492, .08470, .00122, + .00000, .05978, .13066, + .59227, .29947, 1.36619, .08451, .00383, + .00000, .06035, .12916, + .59102, .29703, 1.33136, .08423, .00573, + .00000, .06068, .12776, + .58959, .29463, 1.29740, .08385, .00740, + .00000, .06089, .12637, + .58786, .29204, 1.26101, .08337, .00904, + .00000, .06101, .12485 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58608, .28974, 1.22880, .08288, .01026, + .00000, .06101, .12346, + .58419, .28747, 1.19767, .08236, .01135, + .00000, .06095, .12208, + .58263, .28567, 1.17332, .08194, .01217, + .00000, .06087, .12099, + .57890, .28179, 1.11967, .08092, .01370, + .00029, .06059, .11859, + .57536, .27841, 1.07178, .07997, .01482, + .00205, .06023, .11651, + .57115, .27457, 1.01984, .07882, .01590, + .00398, .05973, .11416, + .56648, .27054, .96825, .07755, .01685, + .00551, .05909, .11167, + .56198, .26687, .92355, .07635, .01756, + .00673, .05844, .10939 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55725, .26317, .88047, .07511, .01817, + .00782, .05771, .10709, + .55319, .26007, .84620, .07404, .01859, + .00860, .05707, .10519, + .54808, .25632, .80644, .07271, .01900, + .00942, .05624, .10287, + .54345, .25301, .77296, .07152, .01930, + .01008, .05548, .10085, + .53915, .24997, .74362, .07042, .01952, + .01062, .05476, .09901, + .53351, .24611, .70807, .06902, .01972, + .01118, .05382, .09667, + .52813, .24251, .67642, .06769, .01985, + .01165, .05291, .09450, + .52307, .23916, .64827, .06646, .01994, + .01204, .05206, .09251 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51783, .23581, .62139, .06521, .01997, + .01235, .05118, .09053, + .51270, .23255, .59639, .06400, .01997, + .01262, .05032, .08863, + .50782, .22948, .57385, .06287, .01994, + .01283, .04951, .08685, + .50312, .22661, .55347, .06181, .01989, + .01300, .04874, .08518, + .49842, .22378, .53391, .06077, .01982, + .01314, .04798, .08354, + .49375, .22094, .51544, .05972, .01972, + .01325, .04721, .08195, + .48936, .21829, .49864, .05873, .01962, + .01334, .04648, .08049, + .48510, .21579, .48331, .05781, .01951, + .01340, .04580, .07908 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48084, .21330, .46844, .05691, .01940, + .01345, .04513, .07769, + .47659, .21085, .45431, .05601, .01927, + .01348, .04445, .07634, + .47254, .20854, .44133, .05517, .01914, + .01349, .04381, .07508, + .46872, .20636, .42943, .05437, .01901, + .01350, .04322, .07390, + .46480, .20414, .41778, .05357, .01887, + .01349, .04261, .07271 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64365, .32226, 1.28973, .07152, .00000, + .00000, .04859, .11737, + .64131, .31862, 1.25630, .07121, .00000, + .00000, .04897, .11555, + .63703, .31314, 1.20269, .07054, .00000, + .00000, .04929, .11276, + .63350, .30910, 1.16088, .06994, .00086, + .00000, .04937, .11072, + .62933, .30488, 1.11362, .06926, .00268, + .00000, .04934, .10855, + .62547, .30116, 1.07338, .06856, .00400, + .00000, .04921, .10666, + .62156, .29760, 1.03563, .06786, .00514, + .00000, .04901, .10484, + .61724, .29385, .99655, .06708, .00625, + .00000, .04874, .10291 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61329, .29055, .96318, .06634, .00707, + .00000, .04845, .10123, + .60934, .28738, .93174, .06561, .00779, + .00000, .04812, .09960, + .60617, .28489, .90755, .06503, .00833, + .00000, .04784, .09833, + .59920, .27954, .85619, .06373, .00932, + .00021, .04719, .09563, + .59296, .27502, .81223, .06261, .01004, + .00138, .04657, .09332, + .58582, .26997, .76559, .06132, .01072, + .00267, .04582, .09079, + .57821, .26474, .72021, .05993, .01130, + .00368, .04500, .08820, + .57118, .26005, .68162, .05867, .01173, + .00448, .04421, .08587 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56400, .25537, .64502, .05740, .01209, + .00518, .04339, .08355, + .55794, .25151, .61633, .05632, .01233, + .00568, .04269, .08167, + .55054, .24686, .58352, .05502, .01255, + .00620, .04182, .07942, + .54396, .24280, .55622, .05388, .01270, + .00661, .04105, .07747, + .53790, .23913, .53253, .05285, .01281, + .00695, .04035, .07572, + .53011, .23451, .50414, .05155, .01289, + .00729, .03944, .07352, + .52281, .23022, .47914, .05034, .01293, + .00757, .03859, .07152, + .51601, .22627, .45711, .04923, .01294, + .00780, .03780, .06968 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50913, .22233, .43628, .04811, .01292, + .00798, .03699, .06791, + .50244, .21855, .41706, .04704, .01289, + .00813, .03621, .06621, + .49613, .21503, .39985, .04605, .01284, + .00825, .03550, .06462, + .49015, .21172, .38442, .04511, .01277, + .00834, .03482, .06316, + .48424, .20845, .36967, .04419, .01269, + .00841, .03416, .06174, + .47836, .20526, .35585, .04329, .01260, + .00846, .03350, .06035, + .47287, .20228, .34332, .04247, .01252, + .00850, .03289, .05906, + .46759, .19949, .33196, .04170, .01242, + .00852, .03231, .05786 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46235, .19672, .32099, .04094, .01232, + .00853, .03174, .05668, + .45717, .19399, .31060, .04019, .01221, + .00854, .03118, .05553, + .45228, .19142, .30108, .03948, .01211, + .00853, .03065, .05447, + .44768, .18901, .29239, .03883, .01201, + .00853, .03016, .05347, + .44297, .18659, .28393, .03818, .01190, + .00850, .02966, .05247 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68060, .32677, 1.09191, .06066, .00000, + .00000, .04118, .10017, + .67505, .32167, 1.04949, .05995, .00000, + .00000, .04108, .09786, + .66624, .31418, .98697, .05875, .00000, + .00000, .04074, .09452, + .65954, .30883, .94157, .05787, .00060, + .00000, .04043, .09213, + .65228, .30326, .89332, .05688, .00187, + .00000, .04004, .08971, + .64578, .29850, .85340, .05600, .00278, + .00000, .03963, .08762, + .63944, .29398, .81676, .05515, .00356, + .00000, .03921, .08564, + .63265, .28924, .77958, .05422, .00432, + .00000, .03873, .08359 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62663, .28512, .74850, .05339, .00487, + .00000, .03828, .08184, + .62075, .28118, .71968, .05257, .00535, + .00000, .03783, .08018, + .61610, .27810, .69773, .05192, .00571, + .00000, .03746, .07888, + .60605, .27163, .65223, .05055, .00636, + .00015, .03666, .07617, + .59733, .26618, .61432, .04940, .00683, + .00094, .03594, .07391, + .58754, .26018, .57472, .04810, .00727, + .00181, .03512, .07145, + .57731, .25404, .53673, .04675, .00763, + .00249, .03426, .06896, + .56803, .24857, .50486, .04553, .00790, + .00302, .03347, .06678 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55869, .24316, .47501, .04432, .00811, + .00348, .03265, .06464, + .55094, .23872, .45187, .04333, .00825, + .00380, .03198, .06291, + .54154, .23344, .42561, .04213, .00837, + .00414, .03117, .06087, + .53328, .22886, .40397, .04110, .00845, + .00441, .03046, .05912, + .52577, .22475, .38534, .04017, .00850, + .00462, .02981, .05756, + .51624, .21958, .36322, .03900, .00853, + .00483, .02901, .05562, + .50736, .21484, .34389, .03794, .00854, + .00501, .02825, .05386, + .49914, .21051, .32695, .03698, .00853, + .00515, .02756, .05227 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49093, .20619, .31107, .03601, .00849, + .00525, .02687, .05074, + .48301, .20208, .29649, .03509, .00845, + .00534, .02622, .04927, + .47561, .19827, .28349, .03424, .00840, + .00541, .02561, .04792, + .46863, .19471, .27190, .03345, .00834, + .00546, .02505, .04668, + .46175, .19122, .26086, .03268, .00827, + .00550, .02449, .04548, + .45496, .18782, .25056, .03194, .00820, + .00552, .02395, .04432, + .44864, .18468, .24126, .03125, .00813, + .00554, .02344, .04325, + .44264, .18171, .23285, .03060, .00805, + .00554, .02297, .04226 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43670, .17877, .22475, .02997, .00797, + .00554, .02251, .04129, + .43087, .17590, .21712, .02935, .00789, + .00554, .02206, .04035, + .42538, .17320, .21016, .02876, .00781, + .00553, .02164, .03948, + .42023, .17069, .20380, .02822, .00774, + .00551, .02125, .03867, + .41499, .16817, .19761, .02769, .00766, + .00549, .02085, .03786 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70465, .32485, .90275, .05137, .00000, + .00000, .03447, .08381, + .69591, .31852, .85822, .05041, .00000, + .00000, .03407, .08134, + .68271, .30931, .79537, .04891, .00000, + .00000, .03338, .07785, + .67305, .30279, .75152, .04783, .00042, + .00000, .03285, .07544, + .66280, .29616, .70655, .04673, .00130, + .00000, .03228, .07296, + .65389, .29049, .67007, .04575, .00192, + .00000, .03174, .07091, + .64534, .28515, .63707, .04482, .00246, + .00000, .03122, .06898, + .63628, .27960, .60406, .04385, .00297, + .00000, .03066, .06699 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62836, .27484, .57686, .04300, .00335, + .00000, .03015, .06530, + .62072, .27032, .55192, .04218, .00367, + .00000, .02966, .06372, + .61472, .26680, .53309, .04153, .00391, + .00000, .02928, .06251, + .60194, .25945, .49465, .04020, .00435, + .00011, .02845, .05998, + .59104, .25331, .46322, .03907, .00465, + .00064, .02773, .05792, + .57896, .24659, .43080, .03783, .00493, + .00123, .02694, .05568, + .56649, .23979, .40006, .03658, .00517, + .00169, .02613, .05343, + .55529, .23378, .37452, .03546, .00533, + .00205, .02539, .05148 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54416, .22785, .35078, .03435, .00546, + .00235, .02465, .04960, + .53498, .22304, .33252, .03346, .00555, + .00257, .02405, .04808, + .52395, .21735, .31201, .03241, .00561, + .00279, .02332, .04631, + .51434, .21244, .29519, .03150, .00565, + .00296, .02270, .04480, + .50566, .20803, .28078, .03068, .00568, + .00310, .02215, .04346, + .49476, .20253, .26380, .02966, .00569, + .00324, .02144, .04183, + .48467, .19752, .24904, .02874, .00568, + .00335, .02080, .04036, + .47539, .19296, .23615, .02791, .00566, + .00344, .02022, .03904 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46618, .18846, .22415, .02710, .00563, + .00350, .01965, .03773, + .45733, .18419, .21316, .02633, .00559, + .00355, .01911, .03651, + .44908, .18025, .20339, .02562, .00554, + .00359, .01861, .03540, + .44140, .17657, .19473, .02496, .00550, + .00362, .01815, .03439, + .43386, .17297, .18649, .02431, .00545, + .00364, .01770, .03340, + .42645, .16949, .17885, .02370, .00539, + .00365, .01726, .03246, + .41957, .16628, .17195, .02313, .00534, + .00366, .01685, .03159, + .41307, .16326, .16573, .02260, .00528, + .00365, .01647, .03079 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40666, .16028, .15974, .02208, .00522, + .00365, .01610, .03001, + .40038, .15739, .15411, .02158, .00516, + .00364, .01574, .02926, + .39448, .15468, .14899, .02112, .00510, + .00363, .01541, .02855, + .38897, .15216, .14432, .02068, .00505, + .00362, .01510, .02790, + .38340, .14963, .13978, .02024, .00499, + .00360, .01479, .02727 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71690, .31767, .73132, .04331, .00000, + .00000, .02852, .06894, + .70521, .31027, .68898, .04220, .00000, + .00000, .02797, .06652, + .68787, .29970, .63084, .04060, .00000, + .00000, .02712, .06311, + .67544, .29229, .59135, .03946, .00029, + .00000, .02650, .06079, + .66255, .28475, .55186, .03829, .00090, + .00000, .02584, .05851, + .65141, .27841, .52026, .03732, .00133, + .00000, .02528, .05657, + .64085, .27248, .49200, .03639, .00170, + .00000, .02473, .05479, + .62977, .26633, .46401, .03542, .00204, + .00000, .02415, .05299 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62021, .26108, .44124, .03458, .00230, + .00000, .02365, .05148, + .61103, .25613, .42053, .03380, .00252, + .00000, .02317, .05005, + .60386, .25229, .40497, .03320, .00268, + .00000, .02279, .04895, + .58877, .24431, .37360, .03194, .00297, + .00008, .02201, .04671, + .57604, .23769, .34829, .03089, .00317, + .00044, .02135, .04488, + .56204, .23051, .32242, .02977, .00335, + .00085, .02063, .04293, + .54772, .22328, .29810, .02864, .00351, + .00116, .01989, .04099, + .53500, .21692, .27805, .02764, .00361, + .00140, .01924, .03932 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52242, .21068, .25958, .02666, .00369, + .00160, .01859, .03773, + .51209, .20568, .24545, .02589, .00374, + .00175, .01807, .03644, + .49984, .19974, .22962, .02496, .00378, + .00190, .01746, .03495, + .48923, .19466, .21672, .02416, .00380, + .00201, .01694, .03370, + .47967, .19013, .20571, .02346, .00382, + .00210, .01646, .03259, + .46774, .18450, .19280, .02260, .00381, + .00219, .01588, .03123, + .45676, .17938, .18163, .02183, .00380, + .00226, .01535, .03001, + .44673, .17475, .17193, .02114, .00379, + .00232, .01487, .02892 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43681, .17022, .16289, .02045, .00376, + .00235, .01441, .02788, + .42734, .16590, .15464, .01981, .00373, + .00239, .01396, .02690, + .41858, .16193, .14733, .01923, .00369, + .00241, .01355, .02600, + .41043, .15827, .14086, .01869, .00365, + .00243, .01318, .02518, + .40246, .15469, .13473, .01816, .00362, + .00244, .01283, .02439, + .39467, .15123, .12903, .01764, .00358, + .00244, .01247, .02365, + .38747, .14803, .12390, .01717, .00354, + .00244, .01214, .02298, + .38067, .14506, .11930, .01675, .00349, + .00244, .01184, .02234 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37398, .14215, .11487, .01635, .00345, + .00243, .01156, .02171, + .36746, .13932, .11070, .01595, .00341, + .00242, .01129, .02110, + .36136, .13667, .10690, .01557, .00337, + .00242, .01103, .02055, + .35568, .13421, .10345, .01522, .00333, + .00241, .01079, .02004, + .34997, .13175, .10011, .01487, .00329, + .00239, .01055, .01955 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .71844, .30630, .58199, .03627, .00000, + .00000, .02337, .05577, + .70401, .29811, .54422, .03515, .00000, + .00000, .02274, .05352, + .68297, .28648, .49340, .03354, .00000, + .00000, .02181, .05040, + .66808, .27839, .45960, .03242, .00020, + .00000, .02116, .04829, + .65280, .27025, .42637, .03130, .00062, + .00000, .02051, .04621, + .63977, .26342, .40008, .03035, .00091, + .00000, .01995, .04450, + .62749, .25706, .37678, .02948, .00117, + .00000, .01942, .04293, + .61469, .25051, .35391, .02858, .00140, + .00000, .01888, .04133 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60372, .24496, .33539, .02782, .00157, + .00000, .01840, .04000, + .59328, .23973, .31868, .02710, .00172, + .00000, .01795, .03876, + .58516, .23568, .30619, .02655, .00183, + .00000, .01761, .03781, + .56817, .22731, .28126, .02541, .00203, + .00006, .01690, .03590, + .55399, .22042, .26135, .02446, .00216, + .00030, .01631, .03436, + .53846, .21300, .24114, .02346, .00229, + .00058, .01568, .03271, + .52273, .20555, .22225, .02247, .00239, + .00080, .01504, .03108, + .50883, .19903, .20678, .02160, .00246, + .00096, .01449, .02969 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49516, .19269, .19258, .02076, .00251, + .00110, .01395, .02837, + .48408, .18759, .18174, .02007, .00254, + .00120, .01352, .02732, + .47092, .18161, .16969, .01928, .00256, + .00130, .01301, .02609, + .45959, .17649, .15989, .01861, .00258, + .00137, .01257, .02507, + .44948, .17195, .15155, .01801, .00258, + .00143, .01218, .02417, + .43685, .16635, .14181, .01729, .00258, + .00149, .01171, .02308, + .42532, .16127, .13338, .01665, .00256, + .00154, .01128, .02210, + .41484, .15668, .12605, .01607, .00255, + .00158, .01090, .02123 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40456, .15219, .11928, .01549, .00253, + .00160, .01051, .02041, + .39476, .14795, .11311, .01496, .00251, + .00162, .01016, .01964, + .38571, .14406, .10765, .01447, .00248, + .00163, .00984, .01893, + .37732, .14049, .10282, .01404, .00245, + .00164, .00954, .01829, + .36910, .13702, .09823, .01363, .00242, + .00165, .00925, .01767, + .36116, .13366, .09397, .01321, .00239, + .00165, .00898, .01709, + .35384, .13057, .09014, .01282, .00237, + .00165, .00874, .01656, + .34698, .12769, .08672, .01247, .00234, + .00165, .00850, .01607 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34024, .12487, .08343, .01213, .00231, + .00164, .00828, .01560, + .33368, .12215, .08034, .01180, .00228, + .00163, .00806, .01514, + .32753, .11962, .07752, .01150, .00225, + .00163, .00785, .01471, + .32182, .11727, .07496, .01123, .00222, + .00162, .00767, .01432, + .31609, .11493, .07248, .01096, .00219, + .00161, .00749, .01393 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71008, .29199, .45595, .03045, .00000, + .00000, .01872, .04423, + .69330, .28319, .42381, .02932, .00000, + .00000, .01811, .04224, + .66912, .27078, .38124, .02774, .00000, + .00000, .01724, .03952, + .65220, .26220, .35330, .02664, .00014, + .00000, .01662, .03772, + .63492, .25367, .32630, .02561, .00043, + .00000, .01602, .03589, + .62034, .24652, .30508, .02472, .00063, + .00000, .01552, .03443, + .60668, .23989, .28641, .02390, .00080, + .00000, .01505, .03310, + .59252, .23309, .26821, .02307, .00097, + .00000, .01456, .03176 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58044, .22735, .25358, .02238, .00108, + .00000, .01415, .03063, + .56901, .22196, .24041, .02173, .00119, + .00000, .01377, .02959, + .56016, .21780, .23059, .02123, .00126, + .00000, .01347, .02880, + .54174, .20927, .21120, .02020, .00139, + .00004, .01287, .02721, + .52643, .20229, .19581, .01938, .00148, + .00021, .01237, .02593, + .50984, .19478, .18021, .01849, .00157, + .00040, .01183, .02459, + .49313, .18727, .16576, .01761, .00163, + .00055, .01129, .02328, + .47844, .18075, .15399, .01686, .00168, + .00066, .01083, .02216 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46406, .17444, .14319, .01615, .00171, + .00076, .01038, .02109, + .45248, .16937, .13497, .01556, .00173, + .00083, .01003, .02025, + .43881, .16346, .12584, .01489, .00175, + .00090, .00962, .01927, + .42706, .15843, .11843, .01433, .00175, + .00095, .00927, .01846, + .41658, .15399, .11213, .01383, .00176, + .00099, .00895, .01777, + .40362, .14851, .10478, .01323, .00175, + .00103, .00857, .01691, + .39185, .14356, .09845, .01270, .00174, + .00106, .00823, .01614, + .38117, .13911, .09298, .01222, .00173, + .00108, .00792, .01545 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37075, .13477, .08790, .01174, .00171, + .00110, .00764, .01481, + .36085, .13069, .08326, .01130, .00170, + .00111, .00737, .01421, + .35172, .12698, .07915, .01092, .00168, + .00112, .00712, .01365, + .34331, .12356, .07553, .01056, .00166, + .00112, .00689, .01315, + .33513, .12024, .07210, .01020, .00164, + .00113, .00667, .01268, + .32720, .11705, .06892, .00988, .00162, + .00113, .00646, .01223, + .31989, .11412, .06607, .00958, .00159, + .00112, .00627, .01182, + .31308, .11141, .06351, .00931, .00157, + .00112, .00609, .01145 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30640, .10876, .06105, .00904, .00155, + .00112, .00592, .01109, + .29992, .10619, .05874, .00878, .00153, + .00111, .00575, .01075, + .29389, .10380, .05664, .00853, .00151, + .00110, .00559, .01045, + .28829, .10159, .05473, .00831, .00149, + .00110, .00544, .01016, + .28269, .09940, .05288, .00809, .00147, + .00109, .00531, .00987 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69371, .27480, .35172, .02502, .00000, + .00000, .01504, .03470, + .67490, .26564, .32543, .02398, .00000, + .00000, .01445, .03299, + .64808, .25276, .29106, .02252, .00000, + .00000, .01363, .03067, + .62941, .24396, .26877, .02154, .00010, + .00000, .01307, .02913, + .61059, .23518, .24744, .02058, .00029, + .00000, .01252, .02763, + .59473, .22792, .23076, .01980, .00043, + .00000, .01208, .02638, + .57998, .22119, .21618, .01907, .00055, + .00000, .01166, .02527, + .56479, .21431, .20204, .01833, .00066, + .00000, .01123, .02418 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55188, .20853, .19071, .01772, .00074, + .00000, .01086, .02326, + .53970, .20313, .18055, .01715, .00081, + .00000, .01053, .02240, + .53029, .19898, .17300, .01672, .00086, + .00000, .01029, .02175, + .51084, .19048, .15814, .01586, .00095, + .00003, .00978, .02043, + .49484, .18351, .14643, .01514, .00101, + .00015, .00936, .01941, + .47755, .17609, .13461, .01438, .00107, + .00028, .00892, .01832, + .46020, .16874, .12365, .01364, .00112, + .00038, .00848, .01728, + .44504, .16237, .11472, .01301, .00115, + .00046, .00809, .01639 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43030, .15621, .10657, .01240, .00117, + .00053, .00773, .01554, + .41845, .15130, .10039, .01193, .00118, + .00057, .00744, .01488, + .40452, .14559, .09352, .01138, .00119, + .00062, .00710, .01411, + .39264, .14074, .08795, .01092, .00120, + .00065, .00682, .01347, + .38208, .13645, .08323, .01050, .00120, + .00068, .00658, .01292, + .36908, .13121, .07769, .01002, .00119, + .00071, .00628, .01225, + .35726, .12650, .07293, .00960, .00119, + .00073, .00601, .01166, + .34657, .12227, .06882, .00923, .00118, + .00074, .00577, .01114 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33625, .11817, .06500, .00883, .00116, + .00075, .00553, .01064, + .32646, .11431, .06151, .00848, .00115, + .00076, .00533, .01018, + .31744, .11080, .05843, .00817, .00114, + .00077, .00515, .00976, + .30919, .10759, .05572, .00788, .00112, + .00077, .00497, .00939, + .30117, .10449, .05315, .00758, .00111, + .00077, .00478, .00904, + .29343, .10150, .05077, .00732, .00109, + .00077, .00462, .00871, + .28631, .09877, .04864, .00708, .00108, + .00077, .00447, .00841, + .27970, .09624, .04671, .00687, .00106, + .00076, .00434, .00813 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27322, .09378, .04485, .00666, .00105, + .00076, .00421, .00785, + .26696, .09140, .04311, .00646, .00103, + .00076, .00409, .00759, + .26113, .08920, .04154, .00628, .00102, + .00075, .00397, .00735, + .25574, .08716, .04011, .00611, .00100, + .00075, .00386, .00713, + .25036, .08514, .03872, .00594, .00099, + .00074, .00376, .00691 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .66999, .25596, .26783, .02042, .00000, + .00000, .01186, .02680, + .64953, .24666, .24706, .01948, .00000, + .00000, .01133, .02536, + .62067, .23360, .22009, .01817, .00000, + .00000, .01061, .02344, + .60071, .22473, .20279, .01730, .00007, + .00000, .01014, .02215, + .58070, .21593, .18631, .01646, .00020, + .00000, .00965, .02092, + .56395, .20867, .17352, .01577, .00030, + .00000, .00926, .01993, + .54844, .20197, .16236, .01513, .00038, + .00000, .00892, .01903, + .53254, .19514, .15156, .01449, .00045, + .00000, .00857, .01813 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51908, .18944, .14297, .01397, .00051, + .00000, .00827, .01739, + .50646, .18411, .13528, .01348, .00056, + .00000, .00798, .01672, + .49674, .18002, .12956, .01310, .00059, + .00000, .00776, .01622, + .47671, .17172, .11828, .01236, .00065, + .00002, .00735, .01516, + .46027, .16497, .10945, .01177, .00070, + .00010, .00700, .01433, + .44263, .15775, .10056, .01114, .00073, + .00019, .00664, .01349, + .42506, .15062, .09233, .01053, .00077, + .00027, .00629, .01267, + .40977, .14449, .08562, .01000, .00079, + .00032, .00599, .01198 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39497, .13860, .07950, .00948, .00080, + .00037, .00569, .01133, + .38308, .13393, .07484, .00912, .00081, + .00040, .00547, .01079, + .36921, .12847, .06967, .00866, .00082, + .00043, .00521, .01020, + .35741, .12387, .06549, .00828, .00082, + .00045, .00499, .00972, + .34696, .11982, .06193, .00795, .00082, + .00047, .00479, .00930, + .33414, .11490, .05778, .00755, .00081, + .00049, .00456, .00879, + .32257, .11047, .05420, .00720, .00081, + .00050, .00435, .00834, + .31215, .10650, .05111, .00690, .00080, + .00051, .00418, .00794 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30206, .10268, .04824, .00658, .00079, + .00052, .00399, .00757, + .29254, .09910, .04562, .00630, .00078, + .00052, .00382, .00724, + .28384, .09583, .04329, .00604, .00078, + .00053, .00368, .00693, + .27586, .09285, .04124, .00582, .00077, + .00053, .00354, .00666, + .26812, .08998, .03931, .00562, .00075, + .00053, .00341, .00639, + .26069, .08724, .03751, .00542, .00074, + .00053, .00329, .00613, + .25387, .08473, .03590, .00523, .00073, + .00053, .00318, .00589, + .24756, .08242, .03445, .00506, .00072, + .00052, .00308, .00568 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24139, .08017, .03306, .00489, .00071, + .00052, .00298, .00549, + .23543, .07801, .03176, .00473, .00070, + .00052, .00289, .00529, + .22990, .07601, .03057, .00460, .00069, + .00051, .00280, .00511, + .22478, .07416, .02949, .00447, .00068, + .00051, .00272, .00494, + .21971, .07233, .02845, .00433, .00067, + .00051, .00264, .00480 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64014, .23597, .20156, .01642, .00000, + .00000, .00927, .02040, + .61855, .22661, .18557, .01559, .00000, + .00000, .00882, .01922, + .58819, .21366, .16502, .01444, .00000, + .00000, .00820, .01766, + .56734, .20488, .15190, .01370, .00005, + .00000, .00780, .01662, + .54655, .19624, .13950, .01297, .00014, + .00000, .00738, .01566, + .52930, .18907, .12987, .01237, .00020, + .00000, .00706, .01488, + .51334, .18252, .12148, .01183, .00026, + .00000, .00677, .01416, + .49701, .17590, .11338, .01130, .00031, + .00000, .00647, .01344 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48328, .17037, .10692, .01085, .00035, + .00000, .00624, .01286, + .47043, .16523, .10114, .01045, .00038, + .00000, .00600, .01233, + .46055, .16129, .09685, .01015, .00041, + .00000, .00582, .01193, + .44034, .15327, .08843, .00953, .00045, + .00002, .00549, .01110, + .42385, .14678, .08182, .00903, .00048, + .00007, .00522, .01047, + .40622, .13990, .07515, .00850, .00051, + .00014, .00493, .00982, + .38869, .13315, .06899, .00801, .00053, + .00018, .00465, .00919, + .37353, .12735, .06397, .00759, .00054, + .00022, .00440, .00866 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35895, .12179, .05938, .00718, .00055, + .00025, .00417, .00817, + .34729, .11737, .05589, .00686, .00056, + .00028, .00400, .00777, + .33372, .11227, .05199, .00649, .00056, + .00030, .00379, .00733, + .32221, .10798, .04883, .00619, .00056, + .00031, .00361, .00696, + .31205, .10423, .04616, .00593, .00056, + .00033, .00347, .00665, + .29963, .09963, .04305, .00562, .00056, + .00034, .00329, .00627, + .28845, .09554, .04035, .00534, .00055, + .00035, .00313, .00592, + .27843, .09189, .03801, .00510, .00055, + .00035, .00299, .00561 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26874, .08839, .03584, .00487, .00054, + .00036, .00285, .00534, + .25965, .08510, .03387, .00465, .00054, + .00036, .00273, .00509, + .25135, .08211, .03212, .00445, .00053, + .00036, .00262, .00488, + .24377, .07941, .03058, .00428, .00052, + .00036, .00252, .00466, + .23643, .07681, .02911, .00412, .00051, + .00036, .00242, .00445, + .22943, .07431, .02776, .00395, .00051, + .00036, .00233, .00427, + .22301, .07203, .02654, .00379, .00050, + .00036, .00224, .00412, + .21707, .06994, .02544, .00367, .00049, + .00036, .00216, .00396 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21128, .06792, .02439, .00355, .00048, + .00036, .00210, .00380, + .20569, .06597, .02340, .00343, .00048, + .00035, .00202, .00366, + .20051, .06417, .02250, .00333, .00047, + .00035, .00196, .00353, + .19573, .06251, .02169, .00323, .00046, + .00035, .00189, .00342, + .19101, .06087, .02090, .00313, .00045, + .00035, .00184, .00331 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60535, .21527, .15013, .01294, .00000, + .00000, .00720, .01536, + .58296, .20612, .13823, .01224, .00000, + .00000, .00680, .01441, + .55168, .19346, .12291, .01129, .00000, + .00000, .00628, .01316, + .53041, .18487, .11316, .01063, .00003, + .00000, .00594, .01237, + .50922, .17652, .10399, .01004, .00009, + .00000, .00561, .01159, + .49170, .16966, .09685, .00956, .00014, + .00000, .00536, .01094, + .47560, .16337, .09063, .00912, .00018, + .00000, .00512, .01038, + .45922, .15700, .08463, .00866, .00021, + .00000, .00488, .00983 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44547, .15169, .07982, .00831, .00024, + .00000, .00469, .00936, + .43264, .14679, .07553, .00798, .00026, + .00000, .00449, .00896, + .42279, .14305, .07234, .00774, .00028, + .00000, .00434, .00866, + .40274, .13545, .06607, .00724, .00031, + .00001, .00406, .00805, + .38645, .12934, .06116, .00682, .00033, + .00005, .00386, .00756, + .36909, .12287, .05619, .00641, .00035, + .00009, .00363, .00708, + .35197, .11655, .05158, .00600, .00036, + .00013, .00340, .00661, + .33722, .11115, .04782, .00566, .00037, + .00015, .00321, .00620 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32304, .10598, .04438, .00535, .00038, + .00018, .00305, .00581, + .31176, .10190, .04175, .00510, .00038, + .00019, .00291, .00552, + .29869, .09718, .03883, .00481, .00038, + .00021, .00275, .00518, + .28763, .09323, .03646, .00458, .00039, + .00022, .00262, .00491, + .27788, .08978, .03445, .00439, .00039, + .00023, .00251, .00467, + .26607, .08559, .03208, .00412, .00038, + .00023, .00236, .00440, + .25546, .08185, .03004, .00390, .00038, + .00024, .00224, .00416, + .24597, .07853, .02828, .00372, .00038, + .00025, .00215, .00393 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23682, .07534, .02663, .00354, .00037, + .00025, .00204, .00373, + .22827, .07237, .02513, .00336, .00037, + .00025, .00194, .00355, + .22051, .06969, .02381, .00320, .00036, + .00025, .00185, .00339, + .21341, .06725, .02265, .00307, .00036, + .00025, .00177, .00324, + .20655, .06490, .02154, .00295, .00035, + .00025, .00170, .00310, + .20001, .06266, .02051, .00283, .00034, + .00025, .00164, .00297, + .19403, .06063, .01959, .00272, .00034, + .00025, .00158, .00285, + .18853, .05877, .01876, .00262, .00033, + .00025, .00152, .00273 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18318, .05697, .01796, .00252, .00033, + .00024, .00146, .00262, + .17803, .05525, .01722, .00243, .00032, + .00024, .00141, .00252, + .17326, .05365, .01655, .00235, .00032, + .00024, .00136, .00242, + .16888, .05219, .01594, .00228, .00031, + .00024, .00132, .00234, + .16455, .05075, .01534, .00221, .00031, + .00024, .00128, .00226 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56651, .19461, .11108, .01020, .00000, + .00000, .00543, .01131, + .54380, .18574, .10237, .00957, .00000, + .00000, .00512, .01059, + .51224, .17354, .09121, .00877, .00000, + .00000, .00470, .00962, + .49082, .16533, .08410, .00824, .00002, + .00000, .00444, .00900, + .46969, .15733, .07738, .00774, .00006, + .00000, .00415, .00844, + .45225, .15079, .07217, .00735, .00010, + .00000, .00395, .00794, + .43628, .14483, .06760, .00698, .00012, + .00000, .00376, .00751, + .42009, .13881, .06316, .00660, .00015, + .00000, .00358, .00710 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40651, .13383, .05962, .00633, .00017, + .00000, .00343, .00674, + .39392, .12922, .05646, .00606, .00018, + .00000, .00328, .00643, + .38430, .12571, .05411, .00585, .00019, + .00000, .00316, .00620, + .36474, .11862, .04945, .00544, .00021, + .00001, .00296, .00574, + .34893, .11294, .04578, .00512, .00023, + .00004, .00279, .00537, + .33215, .10694, .04209, .00478, .00024, + .00007, .00261, .00501, + .31565, .10110, .03864, .00447, .00025, + .00009, .00244, .00465, + .30148, .09612, .03581, .00421, .00026, + .00011, .00231, .00435 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28793, .09138, .03322, .00395, .00026, + .00012, .00218, .00409, + .27720, .08766, .03124, .00376, .00026, + .00013, .00207, .00387, + .26479, .08337, .02904, .00354, .00027, + .00014, .00195, .00363, + .25433, .07978, .02724, .00336, .00027, + .00015, .00185, .00342, + .24517, .07665, .02571, .00321, .00026, + .00016, .00177, .00324, + .23402, .07286, .02392, .00303, .00026, + .00016, .00166, .00304, + .22409, .06950, .02238, .00286, .00026, + .00017, .00157, .00287, + .21523, .06652, .02104, .00270, .00026, + .00017, .00149, .00272 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20669, .06368, .01979, .00258, .00025, + .00017, .00142, .00256, + .19876, .06103, .01866, .00245, .00025, + .00017, .00135, .00242, + .19160, .05863, .01766, .00231, .00025, + .00017, .00128, .00230, + .18506, .05646, .01677, .00220, .00024, + .00017, .00123, .00221, + .17875, .05438, .01593, .00210, .00024, + .00017, .00119, .00211, + .17275, .05241, .01515, .00202, .00023, + .00017, .00114, .00201, + .16727, .05063, .01446, .00195, .00023, + .00017, .00110, .00192, + .16223, .04899, .01383, .00188, .00023, + .00017, .00105, .00184 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15734, .04740, .01323, .00180, .00022, + .00017, .00101, .00176, + .15266, .04588, .01267, .00174, .00022, + .00017, .00097, .00169, + .14833, .04448, .01216, .00167, .00022, + .00016, .00093, .00163, + .14435, .04320, .01169, .00161, .00021, + .00016, .00090, .00157, + .14041, .04194, .01124, .00157, .00021, + .00016, .00088, .00151 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52486, .17413, .08176, .00782, .00000, + .00000, .00407, .00823, + .50218, .16566, .07558, .00732, .00000, + .00000, .00382, .00768, + .47078, .15412, .06757, .00670, .00000, + .00000, .00348, .00692, + .44964, .14637, .06245, .00625, .00002, + .00000, .00323, .00651, + .42882, .13886, .05759, .00587, .00004, + .00000, .00303, .00605, + .41176, .13273, .05380, .00556, .00007, + .00000, .00287, .00568, + .39617, .12715, .05047, .00528, .00008, + .00000, .00272, .00535, + .38040, .12156, .04723, .00500, .00010, + .00000, .00257, .00502 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36729, .11693, .04461, .00474, .00011, + .00000, .00245, .00479, + .35512, .11267, .04227, .00453, .00013, + .00000, .00235, .00456, + .34584, .10943, .04052, .00439, .00013, + .00000, .00228, .00437, + .32705, .10289, .03706, .00407, .00015, + .00001, .00210, .00402, + .31186, .09767, .03433, .00384, .00016, + .00002, .00197, .00376, + .29588, .09220, .03155, .00358, .00017, + .00005, .00184, .00347, + .28025, .08688, .02895, .00332, .00017, + .00006, .00172, .00322, + .26687, .08236, .02682, .00311, .00018, + .00008, .00161, .00301 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25410, .07808, .02487, .00292, .00018, + .00009, .00151, .00282, + .24405, .07470, .02337, .00277, .00018, + .00009, .00144, .00266, + .23242, .07086, .02170, .00261, .00018, + .00010, .00135, .00246, + .22268, .06764, .02034, .00247, .00018, + .00011, .00128, .00232, + .21419, .06483, .01918, .00234, .00018, + .00011, .00122, .00221, + .20386, .06146, .01782, .00220, .00018, + .00011, .00114, .00207, + .19468, .05848, .01665, .00207, .00018, + .00012, .00107, .00194, + .18654, .05583, .01563, .00196, .00018, + .00012, .00101, .00182 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17871, .05331, .01469, .00185, .00017, + .00012, .00096, .00173, + .17143, .05098, .01383, .00175, .00017, + .00012, .00091, .00163, + .16485, .04887, .01307, .00167, .00017, + .00012, .00087, .00155, + .15889, .04697, .01239, .00160, .00017, + .00012, .00083, .00147, + .15316, .04515, .01176, .00153, .00016, + .00012, .00080, .00140, + .14772, .04344, .01117, .00146, .00016, + .00012, .00077, .00134, + .14277, .04189, .01064, .00140, .00016, + .00012, .00074, .00127, + .13822, .04046, .01016, .00135, .00015, + .00012, .00070, .00122 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13382, .03907, .00971, .00130, .00015, + .00011, .00067, .00116, + .12961, .03776, .00928, .00125, .00015, + .00011, .00064, .00111, + .12574, .03655, .00890, .00120, .00015, + .00011, .00061, .00107, + .12218, .03545, .00855, .00115, .00014, + .00011, .00059, .00104, + .11867, .03436, .00821, .00111, .00014, + .00011, .00057, .00100 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48130, .15409, .06001, .00585, .00000, + .00000, .00302, .00593, + .45898, .14615, .05567, .00546, .00000, + .00000, .00281, .00553, + .42827, .13532, .05000, .00494, .00000, + .00000, .00256, .00498, + .40765, .12815, .04631, .00462, .00001, + .00000, .00238, .00461, + .38757, .12117, .04283, .00431, .00003, + .00000, .00222, .00427, + .37110, .11551, .04007, .00405, .00005, + .00000, .00210, .00400, + .35607, .11038, .03763, .00384, .00006, + .00000, .00199, .00376, + .34092, .10524, .03524, .00364, .00007, + .00000, .00187, .00353 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32838, .10100, .03333, .00347, .00008, + .00000, .00178, .00335, + .31680, .09709, .03159, .00329, .00009, + .00000, .00170, .00318, + .30800, .09413, .03028, .00315, .00009, + .00000, .00164, .00305, + .29018, .08819, .02770, .00290, .00010, + .00001, .00151, .00282, + .27589, .08346, .02566, .00272, .00011, + .00002, .00142, .00263, + .26087, .07852, .02357, .00253, .00011, + .00003, .00132, .00244, + .24623, .07374, .02162, .00234, .00012, + .00004, .00122, .00224, + .23376, .06969, .02001, .00218, .00012, + .00005, .00114, .00208 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22191, .06587, .01853, .00203, .00012, + .00006, .00107, .00194, + .21259, .06288, .01740, .00192, .00012, + .00006, .00102, .00183, + .20186, .05945, .01613, .00180, .00012, + .00007, .00095, .00171, + .19289, .05661, .01510, .00170, .00012, + .00007, .00090, .00161, + .18508, .05415, .01422, .00161, .00012, + .00007, .00086, .00151, + .17565, .05118, .01318, .00150, .00012, + .00008, .00081, .00140, + .16729, .04856, .01229, .00142, .00012, + .00008, .00076, .00132, + .15988, .04624, .01153, .00134, .00012, + .00008, .00073, .00125 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15277, .04406, .01081, .00128, .00012, + .00008, .00069, .00116, + .14619, .04203, .01016, .00121, .00012, + .00008, .00065, .00110, + .14029, .04019, .00958, .00113, .00011, + .00008, .00061, .00106, + .13493, .03855, .00907, .00108, .00011, + .00008, .00058, .00101, + .12979, .03699, .00859, .00103, .00011, + .00008, .00055, .00095, + .12491, .03551, .00815, .00098, .00011, + .00008, .00053, .00090, + .12048, .03417, .00775, .00095, .00011, + .00008, .00051, .00085, + .11645, .03295, .00739, .00090, .00010, + .00008, .00048, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11256, .03177, .00705, .00086, .00010, + .00008, .00046, .00078, + .10882, .03065, .00673, .00082, .00010, + .00008, .00044, .00075, + .10537, .02962, .00645, .00080, .00010, + .00008, .00043, .00073, + .10222, .02868, .00618, .00077, .00010, + .00007, .00041, .00070, + .09913, .02776, .00593, .00074, .00009, + .00007, .00040, .00067 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43668, .13499, .04413, .00430, .00000, + .00000, .00219, .00420, + .41507, .12760, .04109, .00400, .00000, + .00000, .00205, .00389, + .38548, .11760, .03705, .00363, .00000, + .00000, .00186, .00348, + .36575, .11098, .03443, .00334, .00001, + .00000, .00173, .00322, + .34651, .10461, .03189, .00310, .00002, + .00000, .00162, .00299, + .33087, .09942, .02988, .00290, .00003, + .00000, .00152, .00280, + .31663, .09475, .02809, .00273, .00004, + .00000, .00143, .00264, + .30231, .09009, .02633, .00258, .00005, + .00000, .00134, .00247 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29050, .08626, .02489, .00243, .00005, + .00000, .00129, .00233, + .27962, .08273, .02359, .00230, .00006, + .00000, .00123, .00220, + .27136, .08006, .02262, .00220, .00006, + .00000, .00118, .00211, + .25472, .07473, .02068, .00202, .00007, + .00000, .00109, .00195, + .24143, .07051, .01914, .00187, .00007, + .00001, .00102, .00180, + .22750, .06612, .01757, .00173, .00008, + .00002, .00095, .00166, + .21397, .06188, .01609, .00159, .00008, + .00003, .00088, .00155, + .20249, .05830, .01487, .00148, .00008, + .00004, .00082, .00144 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19163, .05495, .01375, .00138, .00008, + .00004, .00076, .00133, + .18310, .05232, .01289, .00131, .00008, + .00004, .00072, .00126, + .17334, .04933, .01193, .00122, .00008, + .00005, .00067, .00117, + .16522, .04684, .01115, .00114, .00008, + .00005, .00064, .00110, + .15817, .04469, .01048, .00107, .00008, + .00005, .00061, .00104, + .14964, .04213, .00970, .00101, .00008, + .00005, .00057, .00096, + .14212, .03986, .00902, .00095, .00008, + .00005, .00054, .00089, + .13551, .03786, .00844, .00087, .00008, + .00005, .00050, .00083 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12918, .03597, .00791, .00082, .00008, + .00005, .00047, .00080, + .12331, .03424, .00741, .00078, .00008, + .00005, .00044, .00075, + .11803, .03269, .00698, .00075, .00008, + .00005, .00042, .00070, + .11329, .03128, .00660, .00071, .00007, + .00005, .00040, .00067, + .10876, .02994, .00624, .00067, .00007, + .00005, .00038, .00064, + .10445, .02869, .00590, .00064, .00007, + .00005, .00036, .00061, + .10055, .02755, .00561, .00062, .00007, + .00005, .00035, .00057, + .09700, .02652, .00534, .00059, .00007, + .00005, .00034, .00054 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09357, .02553, .00509, .00056, .00007, + .00005, .00032, .00052, + .09030, .02458, .00485, .00054, .00007, + .00005, .00031, .00050, + .08730, .02372, .00464, .00052, .00006, + .00005, .00029, .00047, + .08456, .02293, .00444, .00050, .00006, + .00005, .00028, .00045, + .08189, .02215, .00425, .00047, .00006, + .00005, .00027, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39202, .11710, .03267, .00324, .00000, + .00000, .00149, .00285, + .37134, .11036, .03054, .00302, .00000, + .00000, .00139, .00262, + .34332, .10126, .02768, .00268, .00000, + .00000, .00124, .00236, + .32469, .09524, .02577, .00246, .00001, + .00000, .00114, .00222, + .30659, .08948, .02392, .00229, .00002, + .00000, .00108, .00201, + .29192, .08482, .02244, .00214, .00002, + .00000, .00101, .00189, + .27863, .08063, .02110, .00201, .00003, + .00000, .00095, .00177, + .26530, .07647, .01978, .00189, .00003, + .00000, .00088, .00164 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25432, .07305, .01870, .00181, .00004, + .00000, .00084, .00154, + .24424, .06992, .01772, .00171, .00004, + .00000, .00079, .00146, + .23662, .06755, .01698, .00163, .00004, + .00000, .00076, .00141, + .22130, .06283, .01551, .00149, .00005, + .00000, .00071, .00127, + .20911, .05911, .01434, .00137, .00005, + .00001, .00066, .00118, + .19637, .05526, .01314, .00128, .00005, + .00002, .00060, .00108, + .18408, .05154, .01201, .00117, .00006, + .00002, .00056, .00099, + .17369, .04842, .01108, .00108, .00006, + .00002, .00052, .00093 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16386, .04551, .01023, .00102, .00006, + .00003, .00048, .00085, + .15620, .04322, .00956, .00097, .00006, + .00003, .00046, .00078, + .14745, .04064, .00883, .00089, .00006, + .00003, .00042, .00073, + .14019, .03849, .00824, .00082, .00006, + .00003, .00039, .00069, + .13389, .03664, .00774, .00077, .00006, + .00003, .00037, .00065, + .12630, .03445, .00714, .00073, .00006, + .00004, .00035, .00061, + .11963, .03251, .00663, .00068, .00005, + .00004, .00033, .00057, + .11376, .03081, .00619, .00063, .00005, + .00004, .00031, .00053 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10817, .02921, .00578, .00061, .00005, + .00004, .00029, .00049, + .10301, .02774, .00541, .00058, .00005, + .00004, .00027, .00046, + .09838, .02642, .00508, .00055, .00005, + .00004, .00024, .00043, + .09424, .02523, .00480, .00052, .00005, + .00004, .00023, .00041, + .09029, .02410, .00453, .00050, .00005, + .00004, .00023, .00038, + .08656, .02305, .00428, .00046, .00005, + .00004, .00022, .00036, + .08319, .02209, .00405, .00043, .00005, + .00004, .00021, .00035, + .08011, .02123, .00386, .00041, .00005, + .00003, .00020, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07713, .02040, .00367, .00040, .00004, + .00003, .00018, .00031, + .07431, .01961, .00349, .00038, .00004, + .00003, .00018, .00030, + .07173, .01889, .00333, .00037, .00004, + .00003, .00017, .00029, + .06937, .01823, .00319, .00035, .00004, + .00003, .00017, .00028, + .06705, .01759, .00305, .00034, .00004, + .00003, .00016, .00026 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34777, .10009, .02424, .00218, .00000, + .00000, .00109, .00199, + .32838, .09400, .02273, .00201, .00000, + .00000, .00101, .00183, + .30208, .08585, .02067, .00181, .00000, + .00000, .00090, .00163, + .28471, .08051, .01926, .00168, .00000, + .00000, .00084, .00149, + .26793, .07539, .01788, .00156, .00001, + .00000, .00077, .00136, + .25434, .07127, .01676, .00146, .00001, + .00000, .00072, .00126, + .24208, .06758, .01576, .00137, .00002, + .00000, .00067, .00120, + .22984, .06390, .01476, .00127, .00002, + .00000, .00062, .00113 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21981, .06089, .01394, .00121, .00003, + .00000, .00059, .00105, + .21060, .05816, .01320, .00115, .00003, + .00000, .00055, .00099, + .20364, .05611, .01264, .00110, .00003, + .00000, .00053, .00094, + .18979, .05201, .01151, .00098, .00003, + .00000, .00048, .00085, + .17876, .04878, .01062, .00091, .00003, + .00001, .00045, .00078, + .16729, .04544, .00972, .00084, .00004, + .00001, .00041, .00072, + .15624, .04224, .00885, .00079, .00004, + .00001, .00037, .00067, + .14695, .03956, .00815, .00073, .00004, + .00002, .00035, .00061 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13823, .03706, .00750, .00067, .00004, + .00002, .00032, .00056, + .13142, .03512, .00700, .00063, .00004, + .00002, .00030, .00052, + .12368, .03291, .00644, .00057, .00004, + .00002, .00028, .00049, + .11728, .03110, .00599, .00053, .00004, + .00002, .00026, .00046, + .11174, .02953, .00561, .00050, .00004, + .00002, .00025, .00043, + .10511, .02768, .00517, .00047, .00004, + .00002, .00024, .00038, + .09927, .02605, .00479, .00044, .00004, + .00002, .00022, .00036, + .09415, .02462, .00446, .00042, .00004, + .00002, .00020, .00034 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08929, .02328, .00415, .00039, .00003, + .00002, .00019, .00032, + .08483, .02206, .00388, .00037, .00003, + .00002, .00018, .00030, + .08084, .02096, .00364, .00035, .00003, + .00002, .00017, .00027, + .07725, .01998, .00342, .00033, .00003, + .00002, .00016, .00026, + .07384, .01905, .00322, .00032, .00003, + .00002, .00015, .00024, + .07064, .01818, .00304, .00031, .00003, + .00002, .00014, .00023, + .06775, .01739, .00288, .00029, .00003, + .00002, .00013, .00021, + .06512, .01668, .00273, .00027, .00003, + .00002, .00013, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06259, .01599, .00259, .00025, .00003, + .00002, .00012, .00020, + .06019, .01535, .00246, .00024, .00003, + .00002, .00012, .00019, + .05800, .01476, .00235, .00024, .00003, + .00002, .00011, .00018, + .05600, .01423, .00224, .00023, .00003, + .00002, .00010, .00017, + .05405, .01370, .00214, .00021, .00003, + .00002, .00010, .00017 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30471, .08451, .01814, .00149, .00000, + .00000, .00077, .00136, + .28678, .07912, .01703, .00134, .00000, + .00000, .00072, .00125, + .26256, .07191, .01548, .00120, .00000, + .00000, .00063, .00110, + .24658, .06721, .01441, .00110, .00000, + .00000, .00058, .00103, + .23125, .06272, .01336, .00101, .00001, + .00000, .00054, .00092, + .21890, .05912, .01251, .00093, .00001, + .00000, .00050, .00086, + .20778, .05591, .01174, .00088, .00001, + .00000, .00046, .00081, + .19669, .05273, .01098, .00083, .00002, + .00000, .00042, .00075 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18763, .05012, .01035, .00079, .00002, + .00000, .00040, .00068, + .17935, .04776, .00978, .00074, .00002, + .00000, .00038, .00064, + .17310, .04600, .00935, .00070, .00002, + .00000, .00037, .00062, + .16071, .04245, .00849, .00062, .00002, + .00000, .00033, .00058, + .15088, .03969, .00781, .00058, .00002, + .00000, .00031, .00052, + .14069, .03684, .00712, .00053, .00002, + .00001, .00029, .00046, + .13092, .03413, .00647, .00049, .00002, + .00001, .00026, .00043, + .12273, .03187, .00593, .00045, .00002, + .00001, .00024, .00040 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11507, .02976, .00544, .00041, .00002, + .00001, .00022, .00036, + .10914, .02812, .00507, .00038, .00002, + .00001, .00020, .00034, + .10238, .02628, .00465, .00036, .00002, + .00001, .00019, .00031, + .09680, .02476, .00431, .00034, .00002, + .00001, .00018, .00029, + .09199, .02346, .00403, .00032, .00002, + .00002, .00017, .00027, + .08627, .02191, .00370, .00029, .00002, + .00002, .00016, .00025, + .08124, .02057, .00341, .00027, .00002, + .00002, .00014, .00024, + .07684, .01939, .00317, .00025, .00002, + .00002, .00013, .00023 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07270, .01829, .00294, .00023, .00002, + .00002, .00012, .00021, + .06890, .01728, .00274, .00022, .00002, + .00002, .00012, .00019, + .06550, .01638, .00256, .00020, .00002, + .00002, .00011, .00018, + .06245, .01558, .00241, .00020, .00002, + .00002, .00010, .00017, + .05955, .01482, .00227, .00019, .00002, + .00002, .00009, .00016, + .05684, .01411, .00213, .00019, .00002, + .00002, .00009, .00015, + .05440, .01348, .00201, .00018, .00002, + .00001, .00009, .00013, + .05220, .01290, .00191, .00016, .00002, + .00001, .00008, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05009, .01235, .00181, .00015, .00002, + .00001, .00008, .00013, + .04808, .01183, .00171, .00014, .00002, + .00001, .00008, .00012, + .04624, .01136, .00163, .00014, .00002, + .00001, .00007, .00012, + .04457, .01093, .00155, .00013, .00002, + .00001, .00007, .00012, + .04295, .01051, .00148, .00013, .00002, + .00001, .00007, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26376, .07053, .01369, .00103, .00000, + .00000, .00048, .00086, + .24735, .06582, .01284, .00095, .00000, + .00000, .00044, .00078, + .22533, .05953, .01163, .00083, .00000, + .00000, .00038, .00071, + .21088, .05547, .01081, .00079, .00000, + .00000, .00036, .00061, + .19713, .05158, .01000, .00070, .00000, + .00000, .00033, .00056, + .18601, .04849, .00934, .00066, .00001, + .00000, .00030, .00052, + .17605, .04573, .00874, .00062, .00001, + .00000, .00028, .00048, + .16619, .04299, .00815, .00058, .00001, + .00000, .00026, .00045 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15814, .04077, .00766, .00054, .00001, + .00000, .00025, .00044, + .15082, .03876, .00722, .00051, .00001, + .00000, .00023, .00040, + .14530, .03726, .00689, .00049, .00001, + .00000, .00022, .00037, + .13434, .03427, .00623, .00043, .00001, + .00000, .00020, .00035, + .12570, .03194, .00571, .00041, .00001, + .00000, .00018, .00031, + .11681, .02954, .00518, .00038, .00002, + .00000, .00017, .00027, + .10832, .02726, .00469, .00034, .00002, + .00001, .00015, .00026, + .10123, .02537, .00429, .00031, .00002, + .00001, .00014, .00024 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09460, .02362, .00392, .00029, .00002, + .00001, .00013, .00021, + .08948, .02226, .00364, .00026, .00002, + .00001, .00012, .00021, + .08368, .02073, .00333, .00024, .00002, + .00001, .00011, .00019, + .07890, .01949, .00308, .00023, .00002, + .00001, .00010, .00017, + .07478, .01843, .00287, .00021, .00002, + .00001, .00010, .00016, + .06990, .01716, .00262, .00021, .00002, + .00001, .00008, .00014, + .06565, .01606, .00241, .00019, .00001, + .00001, .00008, .00013, + .06194, .01510, .00224, .00018, .00001, + .00001, .00007, .00013 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05844, .01420, .00207, .00016, .00001, + .00001, .00007, .00012, + .05523, .01339, .00193, .00016, .00001, + .00001, .00006, .00011, + .05237, .01266, .00180, .00015, .00001, + .00001, .00006, .00010, + .04984, .01202, .00168, .00014, .00001, + .00001, .00006, .00010, + .04743, .01141, .00158, .00012, .00001, + .00001, .00005, .00009, + .04519, .01084, .00148, .00012, .00001, + .00001, .00005, .00008, + .04317, .01033, .00140, .00011, .00001, + .00001, .00005, .00008, + .04134, .00987, .00132, .00010, .00001, + .00001, .00004, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03958, .00943, .00125, .00010, .00001, + .00001, .00004, .00008, + .03793, .00901, .00118, .00009, .00001, + .00001, .00004, .00007, + .03642, .00864, .00112, .00008, .00001, + .00001, .00004, .00007, + .03505, .00830, .00107, .00008, .00001, + .00001, .00003, .00006, + .03371, .00797, .00102, .00008, .00001, + .00001, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22483, .05778, .01030, .00062, .00000, + .00000, .00033, .00059, + .21005, .05376, .00963, .00058, .00000, + .00000, .00031, .00052, + .19038, .04839, .00868, .00052, .00000, + .00000, .00028, .00044, + .17759, .04490, .00803, .00046, .00000, + .00000, .00026, .00041, + .16535, .04162, .00739, .00042, .00000, + .00000, .00023, .00038, + .15555, .03900, .00687, .00039, .00000, + .00000, .00021, .00036, + .14681, .03667, .00641, .00036, .00001, + .00000, .00019, .00033, + .13818, .03438, .00595, .00033, .00001, + .00000, .00018, .00030 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13114, .03253, .00558, .00031, .00001, + .00000, .00016, .00027, + .12474, .03084, .00524, .00029, .00001, + .00000, .00015, .00025, + .11994, .02958, .00498, .00028, .00001, + .00000, .00015, .00025, + .11044, .02710, .00448, .00024, .00001, + .00000, .00014, .00023, + .10303, .02517, .00410, .00022, .00001, + .00000, .00012, .00021, + .09538, .02321, .00370, .00020, .00001, + .00000, .00011, .00019, + .08809, .02133, .00333, .00018, .00001, + .00000, .00010, .00017, + .08204, .01978, .00303, .00017, .00001, + .00000, .00010, .00015 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07641, .01835, .00276, .00015, .00001, + .00001, .00008, .00014, + .07205, .01726, .00255, .00015, .00001, + .00001, .00008, .00013, + .06716, .01602, .00233, .00014, .00001, + .00001, .00007, .00012, + .06314, .01502, .00215, .00013, .00001, + .00001, .00007, .00011, + .05969, .01416, .00199, .00013, .00001, + .00001, .00007, .00010, + .05563, .01314, .00182, .00011, .00001, + .00001, .00006, .00009, + .05208, .01226, .00167, .00010, .00001, + .00001, .00005, .00009, + .04899, .01150, .00154, .00010, .00001, + .00001, .00005, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04610, .01078, .00142, .00008, .00001, + .00001, .00005, .00008, + .04346, .01014, .00132, .00008, .00001, + .00001, .00004, .00007, + .04111, .00957, .00122, .00007, .00001, + .00001, .00004, .00006, + .03903, .00906, .00115, .00007, .00001, + .00001, .00004, .00006, + .03705, .00858, .00107, .00007, .00001, + .00001, .00004, .00006, + .03521, .00813, .00100, .00007, .00001, + .00001, .00003, .00005, + .03355, .00773, .00094, .00006, .00001, + .00001, .00003, .00005, + .03206, .00737, .00089, .00006, .00001, + .00001, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03063, .00703, .00084, .00006, .00001, + .00001, .00003, .00005, + .02929, .00671, .00079, .00006, .00001, + .00001, .00003, .00004, + .02807, .00641, .00075, .00005, .00001, + .00001, .00003, .00004, + .02697, .00615, .00072, .00005, .00001, + .00001, .00002, .00004, + .02590, .00589, .00068, .00004, .00001, + .00001, .00002, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15588, .03702, .00579, .00026, .00000, + .00000, .00011, .00021, + .14457, .03415, .00533, .00024, .00000, + .00000, .00012, .00017, + .12963, .03043, .00471, .00019, .00000, + .00000, .00009, .00016, + .11997, .02804, .00430, .00018, .00000, + .00000, .00009, .00014, + .11086, .02579, .00390, .00016, .00000, + .00000, .00008, .00013, + .10364, .02400, .00359, .00014, .00000, + .00000, .00008, .00013, + .09722, .02243, .00332, .00013, .00000, + .00000, .00007, .00011, + .09091, .02090, .00305, .00013, .00000, + .00000, .00007, .00010 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08581, .01966, .00283, .00012, .00000, + .00000, .00006, .00009, + .08120, .01855, .00264, .00011, .00000, + .00000, .00006, .00009, + .07776, .01772, .00249, .00010, .00000, + .00000, .00005, .00009, + .07099, .01610, .00222, .00009, .00000, + .00000, .00005, .00007, + .06574, .01485, .00200, .00008, .00000, + .00000, .00004, .00007, + .06039, .01358, .00179, .00007, .00000, + .00000, .00004, .00006, + .05534, .01239, .00160, .00006, .00000, + .00000, .00004, .00006, + .05117, .01141, .00144, .00006, .00000, + .00000, .00003, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04732, .01051, .00130, .00005, .00000, + .00000, .00003, .00004, + .04437, .00982, .00119, .00005, .00000, + .00000, .00003, .00004, + .04106, .00906, .00108, .00005, .00000, + .00000, .00002, .00004, + .03838, .00844, .00099, .00004, .00000, + .00000, .00002, .00003, + .03610, .00791, .00091, .00003, .00000, + .00000, .00002, .00003, + .03340, .00730, .00082, .00004, .00000, + .00000, .00002, .00003, + .03108, .00677, .00075, .00003, .00000, + .00000, .00002, .00003, + .02907, .00631, .00069, .00002, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02719, .00588, .00063, .00003, .00000, + .00000, .00002, .00002, + .02548, .00550, .00058, .00002, .00000, + .00000, .00002, .00002, + .02398, .00516, .00054, .00002, .00000, + .00000, .00001, .00002, + .02265, .00486, .00050, .00002, .00000, + .00000, .00001, .00002, + .02140, .00458, .00047, .00002, .00000, + .00000, .00001, .00002, + .02024, .00432, .00044, .00002, .00000, + .00000, .00001, .00002, + .01921, .00409, .00041, .00002, .00000, + .00000, .00001, .00001, + .01827, .00389, .00038, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01739, .00369, .00036, .00002, .00000, + .00000, .00001, .00001, + .01656, .00351, .00034, .00002, .00000, + .00000, .00001, .00001, + .01581, .00334, .00032, .00001, .00000, + .00000, .00001, .00001, + .01513, .00319, .00030, .00001, .00000, + .00000, .00001, .00001, + .01447, .00305, .00029, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .09989, .02174, .00303, .00009, .00000, + .00000, .00003, .00006, + .09191, .01990, .00273, .00007, .00000, + .00000, .00003, .00006, + .08143, .01753, .00235, .00008, .00000, + .00000, .00003, .00004, + .07476, .01601, .00211, .00006, .00000, + .00000, .00003, .00004, + .06851, .01461, .00188, .00006, .00000, + .00000, .00002, .00004, + .06359, .01351, .00171, .00005, .00000, + .00000, .00002, .00003, + .05926, .01254, .00156, .00004, .00000, + .00000, .00002, .00003, + .05504, .01160, .00142, .00004, .00000, + .00000, .00002, .00003 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05163, .01085, .00130, .00004, .00000, + .00000, .00002, .00003, + .04858, .01018, .00120, .00003, .00000, + .00000, .00002, .00002, + .04633, .00969, .00113, .00003, .00000, + .00000, .00001, .00002, + .04190, .00872, .00099, .00003, .00000, + .00000, .00001, .00002, + .03850, .00798, .00089, .00003, .00000, + .00000, .00001, .00002, + .03507, .00724, .00078, .00003, .00000, + .00000, .00001, .00001, + .03185, .00655, .00069, .00002, .00000, + .00000, .00001, .00002, + .02923, .00598, .00062, .00002, .00000, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02683, .00547, .00055, .00002, .00000, + .00000, .00001, .00001, + .02500, .00508, .00050, .00001, .00000, + .00000, .00001, .00001, + .02297, .00465, .00045, .00001, .00000, + .00000, .00001, .00001, + .02132, .00431, .00041, .00001, .00000, + .00000, .00000, .00001, + .01993, .00401, .00038, .00001, .00000, + .00000, .00000, .00001, + .01830, .00367, .00034, .00001, .00000, + .00000, .00000, .00001, + .01691, .00338, .00030, .00001, .00000, + .00000, .00000, .00001, + .01572, .00314, .00028, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01461, .00290, .00025, .00001, .00000, + .00000, .00000, .00001, + .01361, .00270, .00023, .00001, .00000, + .00000, .00000, .00001, + .01273, .00252, .00021, .00001, .00000, + .00000, .00000, .00000, + .01196, .00236, .00020, .00001, .00000, + .00000, .00000, .00000, + .01125, .00221, .00018, .00001, .00000, + .00000, .00000, .00000, + .01058, .00208, .00017, .00001, .00000, + .00000, .00000, .00000, + .00999, .00196, .00016, .00001, .00000, + .00000, .00000, .00000, + .00946, .00185, .00015, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00896, .00175, .00014, .00001, .00000, + .00000, .00000, .00000, + .00850, .00165, .00013, .00001, .00000, + .00000, .00000, .00000, + .00808, .00157, .00012, .00000, .00000, + .00000, .00000, .00000, + .00770, .00149, .00012, .00000, .00000, + .00000, .00000, .00000, + .00733, .00142, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05770, .01138, .00138, .00003, .00000, + .00000, .00000, .00001, + .05259, .01033, .00122, .00003, .00000, + .00000, .00000, .00001, + .04601, .00898, .00102, .00002, .00000, + .00000, .00000, .00001, + .04186, .00813, .00089, .00002, .00000, + .00000, .00000, .00001, + .03798, .00735, .00079, .00002, .00000, + .00000, .00000, .00001, + .03498, .00675, .00070, .00002, .00000, + .00000, .00000, .00000, + .03235, .00622, .00063, .00002, .00000, + .00000, .00000, .00000, + .02981, .00571, .00057, .00002, .00000, + .00000, .00000, .00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02779, .00530, .00052, .00001, .00000, + .00000, .00000, .00001, + .02599, .00495, .00047, .00001, .00000, + .00000, .00000, .00000, + .02466, .00468, .00044, .00000, .00000, + .00000, .00000, .00000, + .02207, .00417, .00038, .00001, .00000, + .00000, .00000, .00000, + .02010, .00378, .00034, .00001, .00000, + .00000, .00000, .00000, + .01813, .00340, .00030, .00001, .00000, + .00000, .00000, .00000, + .01631, .00305, .00026, .00001, .00000, + .00000, .00000, .00000, + .01484, .00276, .00023, .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)/ + .01350, .00250, .00020, .00000, .00000, + .00000, .00000, .00000, + .01249, .00231, .00018, .00001, .00000, + .00000, .00000, .00000, + .01138, .00209, .00016, .00000, .00000, + .00000, .00000, .00000, + .01049, .00192, .00015, .00000, .00000, + .00000, .00000, .00000, + .00974, .00178, .00013, .00001, .00000, + .00000, .00000, .00000, + .00887, .00162, .00012, .00000, .00000, + .00000, .00000, .00000, + .00813, .00148, .00011, .00000, .00000, + .00000, .00000, .00000, + .00750, .00136, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00693, .00125, .00009, .00000, .00000, + .00000, .00000, .00000, + .00641, .00116, .00008, .00000, .00000, + .00000, .00000, .00000, + .00596, .00107, .00007, .00000, .00000, + .00000, .00000, .00000, + .00556, .00100, .00007, .00000, .00000, + .00000, .00000, .00000, + .00520, .00093, .00006, .00000, .00000, + .00000, .00000, .00000, + .00486, .00087, .00006, .00000, .00000, + .00000, .00000, .00000, + .00456, .00081, .00005, .00000, .00000, + .00000, .00000, .00000, + .00430, .00077, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00405, .00072, .00005, .00000, .00000, + .00000, .00000, .00000, + .00382, .00068, .00004, .00000, .00000, + .00000, .00000, .00000, + .00362, .00064, .00004, .00000, .00000, + .00000, .00000, .00000, + .00343, .00061, .00004, .00000, .00000, + .00000, .00000, .00000, + .00325, .00057, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02865, .00503, .00049, .00000, .00000, + .00000, .00001, .00000, + .02585, .00452, .00043, .00000, .00000, + .00000, .00000, .00000, + .02227, .00387, .00035, .00000, .00000, + .00000, .00000, .00000, + .02004, .00347, .00030, .00000, .00000, + .00000, .00000, .00000, + .01800, .00311, .00026, .00000, .00000, + .00000, .00000, .00000, + .01642, .00282, .00023, .00000, .00000, + .00000, .00000, .00000, + .01506, .00258, .00021, .00000, .00000, + .00000, .00000, .00000, + .01376, .00235, .00018, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .01272, .00217, .00017, .00000, .00000, + .00000, .00000, .00000, + .01181, .00200, .00015, .00000, .00000, + .00000, .00000, .00000, + .01114, .00189, .00014, .00000, .00000, + .00000, .00000, .00000, + .00985, .00166, .00012, .00000, .00000, + .00000, .00000, .00000, + .00888, .00149, .00010, .00000, .00000, + .00000, .00000, .00000, + .00792, .00133, .00009, .00000, .00000, + .00000, .00000, .00000, + .00705, .00118, .00008, .00000, .00000, + .00000, .00000, .00000, + .00634, .00105, .00007, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00572, .00095, .00006, .00000, .00000, + .00000, .00000, .00000, + .00524, .00087, .00005, .00000, .00000, + .00000, .00000, .00000, + .00473, .00078, .00005, .00000, .00000, + .00000, .00000, .00000, + .00432, .00071, .00004, .00000, .00000, + .00000, .00000, .00000, + .00398, .00065, .00004, .00000, .00000, + .00000, .00000, .00000, + .00359, .00059, .00003, .00000, .00000, + .00000, .00000, .00000, + .00326, .00053, .00003, .00000, .00000, + .00000, .00000, .00000, + .00298, .00048, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00273, .00044, .00002, .00000, .00000, + .00000, .00000, .00000, + .00251, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00231, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00214, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00199, .00032, .00002, .00000, .00000, + .00000, .00000, .00000, + .00185, .00030, .00002, .00000, .00000, + .00000, .00000, .00000, + .00172, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00161, .00026, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00151, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00142, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00133, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00126, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00119, .00019, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00296, .00038, .00002, .00000, .00000, + .00000, .00000, .00000, + .00259, .00033, .00001, .00000, .00000, + .00000, .00000, .00000, + .00214, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00186, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00144, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00129, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00014, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00104, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00094, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00087, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00075, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00065, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00005, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00037, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor03.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