#include "pdf/pilot.h" SUBROUTINE SFMSR3(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) #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)/ + .00181, .00812, 5.27909, .39654, .00527, + .00000, .24132, .40023, + .00195, .00822, 7.12456, .49402, .01190, + .00000, .32619, .49790, + .00217, .00836, 10.57419, .66665, .02856, + .00000, .47709, .67082, + .00233, .00846, 13.61452, .81163, .04836, + .00000, .60458, .81600, + .00250, .00857, 17.36051, .98262, .07986, + .00000, .75604, .98720, + .00265, .00867, 21.08157, 1.14528, .11947, + .00000, .90147, 1.15004, + .00279, .00876, 24.99563, 1.31014, .17161, + .00000, 1.05055, 1.31506, + .00295, .00885, 29.70444, 1.49966, .24790, + .00000, 1.22424, 1.50477 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00309, .00894, 34.23644, 1.67394, .33612, + .00000, 1.38652, 1.67920, + .00322, .00902, 38.95601, 1.84752, .44424, + .00000, 1.55103, 1.85292, + .00333, .00909, 43.03690, 1.99133, .54927, + .00000, 1.68952, 1.99685, + .00356, .00923, 52.53155, 2.30654, .83554, + .00000, 2.00107, 2.31231, + .00376, .00935, 61.68782, 2.58972, 1.15606, + .09099, 2.28998, 2.59569, + .00399, .00949, 73.05939, 2.92276, 1.59395, + .37809, 2.63844, 2.92897, + .00423, .00963, 86.18669, 3.29491, 2.12634, + .84202, 3.03393, 3.30135, + .00445, .00976, 99.33523, 3.66565, 2.66311, + 1.27190, 3.42879, 3.67230 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00468, .00989, 113.65236, 4.07492, 3.23860, + 1.74723, 3.86220, 4.08178, + .00487, .01001, 126.45562, 4.44831, 3.73674, + 2.17069, 4.25375, 4.45534, + .00510, .01014, 143.20030, 4.94743, 4.36328, + 2.72302, 4.77146, 4.95467, + .00531, .01027, 159.00716, 5.42958, 4.93471, + 3.24542, 5.26670, 5.43699, + .00551, .01038, 174.33850, 5.90585, 5.47449, + 3.75311, 5.75236, 5.91343, + .00576, .01052, 195.13324, 6.56158, 6.18897, + 4.44215, 6.41687, 6.56936, + .00600, .01066, 215.83704, 7.22488, 6.88996, + 5.13149, 7.08592, 7.23285, + .00622, .01079, 236.30779, 7.88854, 7.57745, + 5.81602, 7.75332, 7.89669 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00645, .01092, 258.03711, 8.59829, 8.30306, + 6.54410, 8.46566, 8.60661, + .00668, .01105, 280.07166, 9.32647, 9.04143, + 7.28852, 9.19561, 9.33495, + .00689, .01117, 302.05710, 10.05711, 9.77840, + 8.03338, 9.92746, 10.06575, + .00710, .01129, 323.52747, 10.77651, 10.50179, + 8.76546, 10.64771, 10.78530, + .00731, .01140, 345.98718, 11.53366, 11.26167, + 9.53483, 11.40552, 11.54259, + .00752, .01152, 368.83710, 12.30959, 12.03945, + 10.32240, 12.18198, 12.31866, + .00772, .01163, 391.34692, 13.07860, 12.80974, + 11.10222, 12.95143, 13.08781, + .00791, .01174, 413.20798, 13.83107, 13.56313, + 11.86472, 13.70427, 13.84041 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .00810, .01185, 436.11215, 14.62262, 14.35542, + 12.66621, 14.49615, 14.63207, + .00829, .01196, 459.03943, 15.42278, 15.15621, + 13.47608, 15.29664, 15.43236, + .00848, .01206, 481.84677, 16.22064, 15.95459, + 14.28307, 16.09479, 16.23034, + .00866, .01216, 503.66721, 16.99164, 16.72605, + 15.06266, 16.86606, 17.00144, + .00884, .01226, 526.42731, 17.79917, 17.53402, + 15.87879, 17.67386, 17.80908 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00338, .00992, 4.91741, .37634, .00469, + .00000, .22583, .37954, + .00358, .01005, 6.51432, .46146, .01049, + .00000, .29993, .46480, + .00389, .01024, 9.43951, .60959, .02488, + .00000, .42941, .61313, + .00411, .01038, 11.97122, .73207, .04179, + .00000, .53714, .73576, + .00435, .01053, 15.04561, .87472, .06843, + .00000, .66355, .87855, + .00456, .01066, 18.06043, 1.00888, .10166, + .00000, .78359, 1.01285, + .00476, .01078, 21.19655, 1.14356, .14509, + .00000, .90550, 1.14764, + .00498, .01092, 24.92996, 1.29687, .20819, + .00000, 1.04622, 1.30109 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00517, .01103, 28.48827, 1.43656, .28068, + .00000, 1.17655, 1.44089, + .00536, .01114, 32.16159, 1.57454, .36899, + .00000, 1.30768, 1.57897, + .00551, .01123, 35.31519, 1.68803, .45432, + .00000, 1.41733, 1.69255, + .00583, .01142, 42.57883, 1.93432, .68518, + .00000, 1.66180, 1.93901, + .00611, .01158, 49.50037, 2.15291, .94124, + .07107, 1.88608, 2.15775, + .00642, .01177, 58.00080, 2.40727, 1.28768, + .29367, 2.15396, 2.41227, + .00675, .01196, 67.70041, 2.68870, 1.70430, + .65107, 2.45508, 2.69388, + .00706, .01214, 77.31176, 2.96691, 2.11970, + .97885, 2.75323, 2.97224 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00737, .01231, 87.67051, 3.27205, 2.56025, + 1.33835, 3.07804, 3.27753, + .00764, .01246, 96.85213, 3.54895, 2.93775, + 1.65623, 3.36959, 3.55455, + .00796, .01265, 108.75803, 3.91717, 3.40782, + 2.06782, 3.75269, 3.92292, + .00825, .01281, 119.89780, 4.27086, 3.83231, + 2.45424, 4.11678, 4.27674, + .00851, .01296, 130.61877, 4.61841, 4.22988, + 2.82735, 4.47174, 4.62441, + .00886, .01315, 145.04549, 5.09421, 4.75166, + 3.33029, 4.95443, 5.10036, + .00918, .01333, 159.28316, 5.57238, 5.25914, + 3.82977, 5.43708, 5.57866, + .00949, .01350, 173.24875, 6.04788, 5.75310, + 4.32245, 5.91550, 6.05429 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .00980, .01367, 187.96776, 6.55350, 6.27095, + 4.84325, 6.42315, 6.56003, + .01011, .01384, 202.77763, 7.06910, 6.79439, + 5.37238, 6.94013, 7.07575, + .01040, .01400, 217.45914, 7.58367, 7.31385, + 5.89884, 7.45565, 7.59044, + .01068, .01416, 231.70259, 8.08765, 7.82092, + 6.41347, 7.96030, 8.09453, + .01096, .01431, 246.51384, 8.61545, 8.35085, + 6.95155, 8.48864, 8.62243, + .01124, .01446, 261.49130, 9.15367, 8.89054, + 7.49959, 9.02730, 9.16075, + .01151, .01461, 276.16351, 9.68461, 9.42251, + 8.03964, 9.55860, 9.69179, + .01177, .01475, 290.33359, 10.20180, 9.94046, + 8.56530, 10.07609, 10.20907 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01203, .01489, 305.11035, 10.74365, 10.48295, + 9.11556, 10.61824, 10.75102, + .01229, .01503, 319.81696, 11.28892, 11.02875, + 9.66903, 11.16378, 11.29637, + .01254, .01516, 334.38739, 11.83066, 11.57096, + 10.21849, 11.70578, 11.83820, + .01278, .01529, 348.25162, 12.35195, 12.09266, + 10.74703, 12.22729, 12.35956, + .01302, .01542, 362.65506, 12.89605, 12.63716, + 11.29839, 12.77163, 12.90375 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00569, .01212, 4.57920, .35682, .00415, + .00000, .21116, .35970, + .00598, .01229, 5.95461, .43071, .00920, + .00000, .27549, .43369, + .00641, .01256, 8.42400, .55713, .02157, + .00000, .38600, .56024, + .00673, .01275, 10.52289, .66007, .03593, + .00000, .47657, .66328, + .00707, .01295, 13.03500, .77847, .05836, + .00000, .58155, .78179, + .00736, .01312, 15.46686, .88859, .08611, + .00000, .68015, .89199, + .00765, .01329, 17.96841, .99809, .12214, + .00000, .77938, 1.00157, + .00795, .01346, 20.91508, 1.12151, .17412, + .00000, .89284, 1.12509 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .00822, .01362, 23.69610, 1.23293, .23345, + .00000, .99704, 1.23659, + .00848, .01377, 26.54173, 1.34208, .30533, + .00000, 1.10105, 1.34580, + .00869, .01388, 28.96725, 1.43119, .37440, + .00000, 1.18746, 1.43497, + .00913, .01414, 34.49726, 1.62262, .55992, + .00000, 1.37838, 1.62653, + .00952, .01436, 39.70349, 1.79044, .76379, + .05528, 1.55163, 1.79445, + .00996, .01460, 46.02521, 1.98358, 1.03697, + .22722, 1.75652, 1.98771, + .01042, .01486, 53.15448, 2.19518, 1.36193, + .50151, 1.98463, 2.19942, + .01084, .01509, 60.14214, 2.40274, 1.68236, + .75047, 2.20860, 2.40709 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01127, .01533, 67.59483, 2.62894, 2.01845, + 1.02132, 2.45078, 2.63339, + .01164, .01553, 74.14125, 2.83315, 2.30351, + 1.25900, 2.66676, 2.83769, + .01208, .01577, 82.55676, 3.10332, 2.65487, + 1.56448, 2.94881, 3.10796, + .01247, .01599, 90.35958, 3.36139, 2.96893, + 1.84916, 3.21513, 3.36613, + .01284, .01619, 97.80978, 3.61368, 3.26052, + 2.12222, 3.47325, 3.61850, + .01331, .01644, 107.75464, 3.95711, 3.63987, + 2.48780, 3.82209, 3.96204, + .01375, .01668, 117.48080, 4.30000, 4.00553, + 2.84815, 4.16849, 4.30502, + .01417, .01690, 126.94347, 4.63890, 4.35870, + 3.20121, 4.50966, 4.64401 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01459, .01713, 136.84468, 4.99718, 4.72643, + 3.57210, 4.86953, 5.00239, + .01501, .01735, 146.72690, 5.36029, 5.09559, + 3.94649, 5.23372, 5.36558, + .01541, .01756, 156.45908, 5.72072, 5.45980, + 4.31688, 5.59491, 5.72609, + .01578, .01776, 165.83707, 6.07182, 5.81332, + 4.67694, 5.94655, 6.07727, + .01617, .01796, 175.52916, 6.43768, 6.18086, + 5.05147, 6.31285, 6.44321, + .01655, .01816, 185.26892, 6.80889, 6.55326, + 5.43096, 6.68442, 6.81449, + .01691, .01835, 194.75537, 7.17336, 6.91858, + 5.80313, 7.04920, 7.17903, + .01725, .01853, 203.86455, 7.52675, 7.27262, + 6.16369, 7.40285, 7.53248 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .01760, .01872, 213.31870, 7.89551, 7.64192, + 6.53955, 7.77185, 7.90130, + .01795, .01890, 222.67049, 8.26483, 8.01172, + 6.91580, 8.14141, 8.27069, + .01829, .01907, 231.89812, 8.63046, 8.37778, + 7.28796, 8.50727, 8.63639, + .01861, .01924, 240.62798, 8.98073, 8.72843, + 7.64437, 8.85774, 8.98672, + .01893, .01941, 249.66026, 9.34507, 9.09313, + 8.01485, 9.22228, 9.35111 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00750, .01363, 4.39120, .34565, .00385, + .00000, .20294, .34844, + .00785, .01384, 5.64839, .41346, .00850, + .00000, .26198, .41633, + .00839, .01415, 7.87936, .52834, .01979, + .00000, .36242, .53131, + .00878, .01438, 9.75570, .62107, .03281, + .00000, .44402, .62413, + .00919, .01461, 11.98249, .72696, .05304, + .00000, .53795, .73010, + .00955, .01482, 14.12187, .82480, .07796, + .00000, .62560, .82802, + .00990, .01501, 16.30813, .92156, .11019, + .00000, .71335, .92484, + .01027, .01522, 18.86746, 1.03000, .15649, + .00000, .81314, 1.03335 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01060, .01541, 21.26897, 1.12736, .20915, + .00000, .90431, 1.13078, + .01091, .01558, 23.71345, 1.22226, .27273, + .00000, .99492, 1.22574, + .01117, .01572, 25.78827, 1.29941, .33365, + .00000, 1.06990, 1.30293, + .01171, .01602, 30.49025, 1.46414, .49658, + .00000, 1.23467, 1.46776, + .01218, .01628, 34.88533, 1.60749, .67466, + .04763, 1.38324, 1.61119, + .01271, .01658, 40.18642, 1.77140, .91195, + .19515, 1.55792, 1.77519, + .01327, .01688, 46.12313, 1.94991, 1.19243, + .42960, 1.75129, 1.95380, + .01378, .01716, 51.90438, 2.12423, 1.46720, + .64113, 1.94022, 2.12821 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01430, .01744, 58.03203, 2.31349, 1.75354, + .87014, 2.14362, 2.31756, + .01474, .01767, 63.38569, 2.48386, 1.99492, + 1.07021, 2.32434, 2.48799, + .01527, .01795, 70.23249, 2.70860, 2.29065, + 1.32625, 2.55948, 2.71282, + .01574, .01821, 76.54660, 2.92259, 2.55337, + 1.56380, 2.78065, 2.92689, + .01618, .01844, 82.54676, 3.13115, 2.79603, + 1.79078, 2.99429, 3.13552, + .01674, .01874, 90.51768, 3.41413, 3.11007, + 2.09342, 3.28196, 3.41859, + .01728, .01902, 98.27114, 3.69559, 3.41115, + 2.39044, 3.56646, 3.70013, + .01778, .01928, 105.77780, 3.97275, 3.70060, + 2.68027, 3.84559, 3.97737 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .01829, .01954, 113.59856, 4.26480, 4.00076, + 2.98362, 4.13901, 4.26948, + .01878, .01981, 121.36631, 4.55967, 4.30085, + 3.28866, 4.43484, 4.56443, + .01926, .02005, 128.98602, 4.85144, 4.59589, + 3.58942, 4.72728, 4.85627, + .01971, .02029, 136.29825, 5.13476, 4.88130, + 3.88084, 5.01108, 5.13965, + .02017, .02052, 143.82784, 5.42911, 5.17713, + 4.18303, 5.30582, 5.43406, + .02062, .02075, 151.36583, 5.72686, 5.47594, + 4.48830, 5.60390, 5.73188, + .02105, .02098, 158.68253, 6.01839, 5.76825, + 4.78681, 5.89571, 6.02347, + .02146, .02119, 165.68356, 6.30027, 6.05073, + 5.07520, 6.17784, 6.30541 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02188, .02140, 172.92900, 6.59372, 6.34469, + 5.37509, 6.47152, 6.59891, + .02229, .02161, 180.06946, 6.88678, 6.63821, + 5.67444, 6.76480, 6.89202, + .02269, .02182, 187.09830, 7.17631, 6.92814, + 5.96989, 7.05453, 7.18161, + .02307, .02201, 193.72414, 7.45293, 7.20513, + 6.25209, 7.33135, 7.45828, + .02345, .02221, 200.56261, 7.74007, 7.49263, + 6.54480, 7.61868, 7.74547 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .00904, .01482, 4.26181, .33781, .00364, + .00000, .19727, .34059, + .00946, .01505, 5.43980, .40151, .00802, + .00000, .25273, .40436, + .01007, .01541, 7.51308, .50868, .01859, + .00000, .34645, .51163, + .01052, .01566, 9.24382, .59466, .03072, + .00000, .42213, .59768, + .01100, .01593, 11.28548, .69236, .04950, + .00000, .50881, .69545, + .01142, .01616, 13.23647, .78221, .07256, + .00000, .58934, .78536, + .01182, .01638, 15.22087, .87072, .10230, + .00000, .66965, .87393, + .01224, .01662, 17.53363, .96950, .14491, + .00000, .76063, .97278 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01262, .01682, 19.69483, 1.05786, .19324, + .00000, .84345, 1.06119, + .01298, .01702, 21.88651, 1.14368, .25146, + .00000, .92551, 1.14706, + .01327, .01718, 23.74113, 1.21323, .30713, + .00000, .99321, 1.21665, + .01390, .01752, 27.92602, 1.36108, .45556, + .00000, 1.14144, 1.36460, + .01444, .01781, 31.81774, 1.48907, .61718, + .04280, 1.27448, 1.49266, + .01505, .01814, 36.48919, 1.63473, .83170, + .17499, 1.43025, 1.63840, + .01568, .01848, 41.69471, 1.79270, 1.08412, + .38452, 1.60199, 1.79645, + .01627, .01879, 46.74041, 1.94646, 1.33025, + .57274, 1.76920, 1.95029 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01686, .01911, 52.06445, 2.11297, 1.58556, + .77583, 1.94864, 2.11688, + .01736, .01937, 56.69813, 2.26254, 1.79985, + .95269, 2.10766, 2.26651, + .01797, .01969, 62.60219, 2.45945, 2.06124, + 1.17832, 2.31403, 2.46350, + .01851, .01997, 68.02569, 2.64652, 2.29245, + 1.38700, 2.50762, 2.65064, + .01901, .02023, 73.16195, 2.82846, 2.50519, + 1.58585, 2.69415, 2.83264, + .01965, .02056, 79.96172, 3.07475, 2.77947, + 1.85021, 2.94468, 3.07900, + .02026, .02088, 86.55009, 3.31904, 3.04142, + 2.10884, 3.19172, 3.32337, + .02083, .02117, 92.90620, 3.55898, 3.29240, + 2.36049, 3.43345, 3.56338 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02140, .02147, 99.50779, 3.81119, 3.55192, + 2.62319, 3.68691, 3.81566, + .02197, .02176, 106.04128, 4.06518, 3.81060, + 2.88661, 3.94177, 4.06971, + .02251, .02204, 112.43223, 4.31592, 4.06430, + 3.14573, 4.19313, 4.32052, + .02302, .02230, 118.54695, 4.55884, 4.30912, + 3.39619, 4.43649, 4.56349, + .02353, .02256, 124.82674, 4.81068, 4.56232, + 3.65535, 4.68870, 4.81538, + .02404, .02282, 131.09631, 5.06488, 4.81751, + 3.91656, 4.94321, 5.06965, + .02453, .02307, 137.16656, 5.31327, 5.06663, + 4.17147, 5.19187, 5.31809, + .02500, .02330, 142.96014, 5.55297, 5.30690, + 4.41724, 5.43180, 5.55784 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02547, .02354, 148.94388, 5.80207, 5.55649, + 4.67236, 5.68113, 5.80699, + .02594, .02378, 154.82434, 6.05033, 5.80520, + 4.92651, 5.92960, 6.05531, + .02638, .02400, 160.60333, 6.29523, 6.05051, + 5.17694, 6.17471, 6.30026, + .02681, .02422, 166.03630, 6.52877, 6.28440, + 5.41568, 6.40843, 6.53384, + .02725, .02444, 171.63383, 6.77083, 6.52681, + 5.66294, 6.65067, 6.77594 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01041, .01582, 4.16354, .33177, .00349, + .00000, .19295, .33459, + .01087, .01607, 5.28262, .39239, .00766, + .00000, .24574, .39527, + .01156, .01646, 7.23973, .49385, .01769, + .00000, .33448, .49682, + .01207, .01674, 8.86406, .57486, .02917, + .00000, .40580, .57790, + .01260, .01703, 10.77124, .66656, .04689, + .00000, .48718, .66966, + .01307, .01729, 12.58612, .75059, .06857, + .00000, .56251, .75375, + .01351, .01753, 14.42533, .83311, .09650, + .00000, .63744, .83633, + .01399, .01779, 16.56151, .92493, .13642, + .00000, .72205, .92820 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01441, .01801, 18.55127, 1.00681, .18161, + .00000, .79887, 1.01013, + .01481, .01823, 20.56321, 1.08612, .23595, + .00000, .87478, 1.08949, + .01514, .01841, 22.26174, 1.15023, .28782, + .00000, .93728, 1.15364, + .01583, .01878, 26.08150, 1.28608, .42581, + .00000, 1.07372, 1.28957, + .01643, .01910, 29.61947, 1.40318, .57563, + .03937, 1.19574, 1.40673, + .01711, .01946, 33.85035, 1.53595, .77386, + .16069, 1.33813, 1.53959, + .01782, .01983, 38.54650, 1.67948, 1.00632, + .35260, 1.49463, 1.68319, + .01847, .02017, 43.08199, 1.81883, 1.23216, + .52441, 1.64658, 1.82261 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .01913, .02051, 47.85077, 1.96943, 1.46558, + .70929, 1.80926, 1.97329, + .01968, .02080, 51.98867, 2.10450, 1.66084, + .86990, 1.95312, 2.10841, + .02035, .02115, 57.24577, 2.28205, 1.89819, + 1.07431, 2.13945, 2.28603, + .02095, .02146, 62.06013, 2.45042, 2.10742, + 1.26290, 2.31387, 2.45448, + .02150, .02175, 66.60728, 2.61391, 2.29936, + 1.44221, 2.48162, 2.61802, + .02221, .02211, 72.61092, 2.83483, 2.54610, + 1.68006, 2.70646, 2.83901, + .02288, .02245, 78.40988, 3.05348, 2.78103, + 1.91218, 2.92766, 3.05773, + .02351, .02277, 83.98889, 3.26782, 3.00553, + 2.13753, 3.14365, 3.27213 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02414, .02309, 89.76920, 3.49269, 3.23713, + 2.37229, 3.36969, 3.49707, + .02477, .02341, 95.47388, 3.71868, 3.46745, + 2.60719, 3.59649, 3.72312, + .02536, .02371, 101.04151, 3.94137, 3.69288, + 2.83782, 3.81976, 3.94588, + .02593, .02400, 106.35620, 4.15674, 3.91003, + 3.06033, 4.03555, 4.16129, + .02649, .02428, 111.80276, 4.37964, 4.13420, + 3.29016, 4.25881, 4.38425, + .02706, .02457, 117.22871, 4.60425, 4.35975, + 3.52143, 4.48372, 4.60892, + .02759, .02483, 122.47175, 4.82338, 4.57958, + 3.74674, 4.70311, 4.82810, + .02810, .02509, 127.46572, 5.03452, 4.79127, + 3.96364, 4.91447, 5.03929 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .02862, .02535, 132.61513, 5.25364, 5.01088, + 4.18847, 5.13382, 5.25846, + .02914, .02561, 137.66461, 5.47167, 5.22936, + 4.41209, 5.35206, 5.47654, + .02963, .02585, 142.62032, 5.68651, 5.44459, + 4.63217, 5.56709, 5.69142, + .03010, .02608, 147.26958, 5.89105, 5.64949, + 4.84165, 5.77182, 5.89601, + .03057, .02632, 152.05298, 6.10281, 5.86161, + 5.05835, 5.98377, 6.10782 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01584, .01939, 3.86832, .31315, .00304, + .00000, .17998, .31631, + .01649, .01974, 4.81742, .36479, .00662, + .00000, .22498, .36800, + .01747, .02025, 6.44493, .44984, .01511, + .00000, .29943, .45314, + .01819, .02062, 7.77159, .51679, .02472, + .00000, .35843, .52015, + .01894, .02102, 9.30673, .59167, .03942, + .00000, .42496, .59509, + .01960, .02135, 10.74860, .65953, .05728, + .00000, .48589, .66302, + .02022, .02168, 12.19309, .72557, .08013, + .00000, .54596, .72911, + .02089, .02202, 13.85277, .79832, .11258, + .00000, .61315, .80191 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02148, .02232, 15.38312, .86258, .14908, + .00000, .67363, .86622, + .02204, .02261, 16.91632, .92429, .19274, + .00000, .73293, .92798, + .02250, .02284, 18.20117, .97380, .23420, + .00000, .78142, .97752, + .02346, .02333, 21.05998, 1.07758, .34373, + .00000, .88630, 1.08137, + .02430, .02375, 23.67451, 1.16585, .46158, + .03023, .97904, 1.16972, + .02524, .02423, 26.76413, 1.26477, .61604, + .12274, 1.08616, 1.26871, + .02622, .02472, 30.15126, 1.37058, .79522, + .26815, 1.20272, 1.37460, + .02711, .02517, 33.38498, 1.47252, .96735, + .39696, 1.31493, 1.47661 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02802, .02562, 36.74699, 1.58201, 1.14326, + .53442, 1.43414, 1.58617, + .02878, .02600, 39.63624, 1.67973, 1.28883, + .65291, 1.53890, 1.68395, + .02970, .02646, 43.27329, 1.80758, 1.46389, + .80258, 1.67373, 1.81188, + .03053, .02687, 46.57145, 1.92819, 1.61652, + .93959, 1.79912, 1.93255, + .03128, .02724, 49.65981, 2.04469, 1.75522, + 1.06898, 1.91899, 2.04912, + .03224, .02772, 53.70241, 2.20125, 1.93184, + 1.23940, 2.07864, 2.20575, + .03315, .02816, 57.56856, 2.35517, 2.09837, + 1.40442, 2.23459, 2.35974, + .03401, .02858, 61.25486, 2.50510, 2.25618, + 1.56350, 2.38585, 2.50973 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03487, .02901, 65.04469, 2.66148, 2.41779, + 1.72814, 2.54318, 2.66618, + .03571, .02942, 68.75066, 2.81760, 2.57732, + 1.89176, 2.69998, 2.82237, + .03652, .02981, 72.34215, 2.97059, 2.73249, + 2.05144, 2.85347, 2.97542, + .03728, .03018, 75.74418, 3.11769, 2.88105, + 2.20460, 3.00096, 3.12258, + .03804, .03055, 79.20722, 3.26914, 3.03359, + 2.36195, 3.15274, 3.27409, + .03880, .03092, 82.63289, 3.42094, 3.18621, + 2.51940, 3.30482, 3.42595, + .03952, .03127, 85.92190, 3.56829, 3.33420, + 2.67202, 3.45243, 3.57336, + .04020, .03160, 89.03397, 3.70956, 3.47600, + 2.81820, 3.59393, 3.71468 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04090, .03193, 92.22651, 3.85556, 3.62248, + 2.96907, 3.74015, 3.86073, + .04158, .03226, 95.33412, 4.00008, 3.76744, + 3.11834, 3.88488, 4.00530, + .04224, .03258, 98.37142, 4.14196, 3.90972, + 3.26469, 4.02696, 4.14723, + .04286, .03288, 101.20058, 4.27637, 4.04451, + 3.40332, 4.16156, 4.28169, + .04350, .03319, 104.09845, 4.41503, 4.18354, + 3.54618, 4.30041, 4.42040 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02362, .02389, 3.58376, .29459, .00262, + .00000, .16759, .29850, + .02455, .02435, 4.38030, .33806, .00567, + .00000, .20553, .34204, + .02593, .02503, 5.71967, .40854, .01279, + .00000, .26733, .41263, + .02694, .02553, 6.79183, .46325, .02077, + .00000, .31563, .46743, + .02800, .02605, 8.01429, .52373, .03286, + .00000, .36947, .52799, + .02892, .02650, 9.14729, .57794, .04744, + .00000, .41825, .58229, + .02979, .02693, 10.26902, .63022, .06597, + .00000, .46592, .63463, + .03073, .02738, 11.54369, .68722, .09211, + .00000, .51874, .69171 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03155, .02778, 12.70686, .73710, .12134, + .00000, .56587, .74166, + .03234, .02816, 13.86111, .78457, .15610, + .00000, .61172, .78920, + .03297, .02847, 14.82112, .82236, .18895, + .00000, .64895, .82703, + .03431, .02911, 16.93360, .90068, .27512, + .00000, .72870, .90546, + .03546, .02967, 18.84026, .96638, .36701, + .02300, .79841, .97126, + .03676, .03030, 21.06571, 1.03910, .48632, + .09290, .87807, 1.04408, + .03811, .03095, 23.47408, 1.11603, .62321, + .20209, .96387, 1.12112, + .03935, .03154, 25.74581, 1.18956, .75323, + .29777, 1.04575, 1.19476 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04059, .03214, 28.07975, 1.26806, .88457, + .39900, 1.13206, 1.27335, + .04163, .03263, 30.06522, 1.33779, .99207, + .48557, 1.20741, 1.34317, + .04289, .03323, 32.54058, 1.42862, 1.11990, + .59407, 1.30378, 1.43409, + .04401, .03377, 34.76194, 1.51384, 1.23008, + .69262, 1.39280, 1.51940, + .04504, .03425, 36.82299, 1.59575, 1.32922, + .78503, 1.47738, 1.60139, + .04635, .03488, 39.49647, 1.70519, 1.45421, + .90585, 1.58932, 1.71094, + .04758, .03546, 42.02610, 1.81207, 1.57085, + 1.02191, 1.69784, 1.81792, + .04873, .03601, 44.41497, 1.91549, 1.68041, + 1.13296, 1.80237, 1.92143 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .04989, .03655, 46.85093, 2.02272, 1.79175, + 1.24714, 1.91041, 2.02875, + .05103, .03709, 49.20906, 2.12903, 1.90079, + 1.35979, 2.01734, 2.13515, + .05211, .03760, 51.47721, 2.23261, 2.00618, + 1.46906, 2.12139, 2.23882, + .05312, .03807, 53.60783, 2.33161, 2.10642, + 1.57323, 2.22076, 2.33790, + .05415, .03856, 55.76087, 2.43297, 2.20876, + 1.67963, 2.32246, 2.43935, + .05515, .03903, 57.87432, 2.53400, 2.31055, + 1.78550, 2.42379, 2.54045, + .05612, .03948, 59.88939, 2.63156, 2.40874, + 1.88757, 2.52162, 2.63809, + .05703, .03990, 61.78205, 2.72460, 2.50232, + 1.98481, 2.61491, 2.73120 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05795, .04033, 63.71314, 2.82033, 2.59856, + 2.08473, 2.71090, 2.82701, + .05886, .04076, 65.57704, 2.91457, 2.69327, + 2.18304, 2.80536, 2.92131, + .05973, .04117, 67.39124, 3.00674, 2.78588, + 2.27905, 2.89776, 3.01355, + .06055, .04155, 69.06702, 3.09359, 2.87314, + 2.36952, 2.98483, 3.10047, + .06139, .04194, 70.77540, 3.18284, 2.96280, + 2.46239, 3.07430, 3.18979 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02968, .02710, 3.41897, .28368, .00240, + .00000, .16055, .28823, + .03081, .02764, 4.13315, .32269, .00516, + .00000, .19466, .32734, + .03250, .02845, 5.32021, .38539, .01156, + .00000, .24972, .39019, + .03373, .02903, 6.26025, .43368, .01868, + .00000, .29242, .43859, + .03502, .02965, 7.32265, .48668, .02941, + .00000, .33968, .49171, + .03614, .03018, 8.29947, .53390, .04228, + .00000, .38224, .53902, + .03720, .03068, 9.25967, .57918, .05859, + .00000, .42362, .58439, + .03834, .03122, 10.34355, .62825, .08149, + .00000, .46921, .63357 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03933, .03169, 11.32641, .67095, .10701, + .00000, .50967, .67635, + .04028, .03214, 12.29605, .71137, .13726, + .00000, .54885, .71686, + .04104, .03250, 13.09884, .74339, .16576, + .00000, .58053, .74894, + .04266, .03326, 14.85344, .80930, .24022, + .00000, .64801, .81500, + .04406, .03392, 16.42436, .86412, .31920, + .01949, .70657, .86993, + .04562, .03466, 18.24409, .92432, .42117, + .07847, .77306, .93027, + .04724, .03542, 20.19777, .98758, .53743, + .17025, .84423, .99368, + .04872, .03611, 22.02699, 1.04777, .64709, + .25016, .91179, 1.05400 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05022, .03681, 23.89243, 1.11179, .75711, + .33426, .98268, 1.11814, + .05146, .03739, 25.46939, 1.16851, .84655, + .40584, 1.04431, 1.17496, + .05296, .03810, 27.42372, 1.24219, .95219, + .49514, 1.12286, 1.24878, + .05430, .03872, 29.16609, 1.31111, 1.04260, + .57585, 1.19511, 1.31782, + .05552, .03929, 30.77341, 1.37715, 1.12346, + .65121, 1.26351, 1.38396, + .05708, .04001, 32.84661, 1.46511, 1.22478, + .74931, 1.35367, 1.47205, + .05854, .04069, 34.79502, 1.55065, 1.31874, + .84309, 1.44069, 1.55772, + .05991, .04133, 36.62386, 1.63309, 1.40650, + .93242, 1.52415, 1.64028 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06129, .04196, 38.47926, 1.71826, 1.49527, + 1.02389, 1.61010, 1.72557, + .06263, .04259, 40.26366, 1.80235, 1.58178, + 1.11373, 1.69477, 1.80977, + .06391, .04317, 41.97194, 1.88398, 1.66506, + 1.20056, 1.77688, 1.89151, + .06511, .04373, 43.56797, 1.96172, 1.74396, + 1.28302, 1.85501, 1.96935, + .06631, .04429, 45.17334, 2.04105, 1.82422, + 1.36696, 1.93469, 2.04878, + .06750, .04483, 46.74132, 2.11983, 1.90378, + 1.45018, 2.01380, 2.12767, + .06863, .04535, 48.22965, 2.19567, 1.98026, + 1.53015, 2.08993, 2.20360, + .06970, .04585, 49.62084, 2.26776, 2.05291, + 1.60610, 2.16229, 2.27578 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07078, .04634, 51.03543, 2.34174, 2.12742, + 1.68391, 2.23655, 2.34986, + .07185, .04683, 52.39309, 2.41430, 2.20049, + 1.76021, 2.30937, 2.42251, + .07287, .04730, 53.71123, 2.48511, 2.27178, + 1.83456, 2.38044, 2.49341, + .07383, .04774, 54.92188, 2.55161, 2.33872, + 1.90437, 2.44717, 2.55999, + .07481, .04819, 56.15235, 2.61980, 2.40734, + 1.97587, 2.51559, 2.62826 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03487, .02971, 3.30117, .27589, .00225, + .00000, .15561, .28098, + .03617, .03033, 3.95952, .31187, .00482, + .00000, .18712, .31709, + .03811, .03124, 5.04475, .36935, .01074, + .00000, .23766, .37475, + .03952, .03190, 5.89745, .41336, .01728, + .00000, .27664, .41889, + .04100, .03259, 6.85498, .46143, .02711, + .00000, .31957, .46710, + .04228, .03319, 7.73029, .50406, .03886, + .00000, .35806, .50985, + .04350, .03376, 8.58619, .54478, .05370, + .00000, .39534, .55068, + .04480, .03436, 9.54766, .58872, .07448, + .00000, .43625, .59474 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04593, .03489, 10.41549, .62679, .09758, + .00000, .47242, .63292, + .04702, .03540, 11.26799, .66269, .12490, + .00000, .50732, .66892, + .04789, .03580, 11.97144, .69103, .15058, + .00000, .53546, .69734, + .04973, .03666, 13.50123, .74907, .21747, + .00000, .59513, .75555, + .05132, .03739, 14.86274, .79703, .28815, + .01726, .64666, .80365, + .05310, .03822, 16.43109, .84940, .37905, + .06935, .70489, .85619, + .05495, .03907, 18.10498, .90416, .48219, + .15019, .76692, .91112, + .05663, .03985, 19.66365, .95608, .57901, + .22023, .82559, .96320 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05832, .04063, 21.24435, 1.01116, .67565, + .29368, .88692, 1.01843, + .05972, .04128, 22.57435, 1.05986, .75383, + .35597, .94011, 1.06726, + .06143, .04207, 24.21530, 1.12302, .84571, + .43342, 1.00770, 1.13058, + .06294, .04276, 25.67109, 1.18198, .92394, + .50317, 1.06968, 1.18967, + .06432, .04339, 27.00823, 1.23834, .99359, + .56810, 1.12820, 1.24616, + .06607, .04420, 28.72566, 1.31323, 1.08047, + .65235, 1.20513, 1.32121, + .06772, .04496, 30.33145, 1.38584, 1.16066, + .73259, 1.27913, 1.39397, + .06926, .04566, 31.83175, 1.45562, 1.23524, + .80877, 1.34988, 1.46389 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07081, .04637, 33.34804, 1.52752, 1.31044, + .88655, 1.42253, 1.53593, + .07231, .04706, 34.79895, 1.59827, 1.38344, + .96270, 1.49388, 1.60682, + .07374, .04772, 36.18305, 1.66680, 1.45351, + 1.03609, 1.56288, 1.67547, + .07509, .04833, 37.47084, 1.73186, 1.51970, + 1.10559, 1.62835, 1.74065, + .07644, .04895, 38.76157, 1.79810, 1.58686, + 1.17616, 1.69495, 1.80701, + .07777, .04955, 40.01739, 1.86371, 1.65324, + 1.24595, 1.76091, 1.87274, + .07903, .05013, 41.20533, 1.92671, 1.71691, + 1.31285, 1.82423, 1.93586, + .08022, .05067, 42.31158, 1.98645, 1.77723, + 1.37622, 1.88427, 1.99571 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08143, .05122, 43.43352, 2.04765, 1.83898, + 1.44103, 1.94576, 2.05701, + .08262, .05176, 44.50545, 2.10750, 1.89937, + 1.50441, 2.00589, 2.11697, + .08376, .05227, 45.54426, 2.16582, 1.95820, + 1.56605, 2.06449, 2.17539, + .08483, .05276, 46.49398, 2.22045, 2.01329, + 1.62380, 2.11937, 2.23011, + .08592, .05326, 47.45703, 2.27636, 2.06967, + 1.68284, 2.17554, 2.28612 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03960, .03203, 3.20542, .26983, .00214, + .00000, .15169, .27528, + .04105, .03271, 3.82094, .30352, .00457, + .00000, .18122, .30910, + .04320, .03371, 4.82874, .35704, .01012, + .00000, .22835, .36283, + .04477, .03444, 5.61557, .39784, .01624, + .00000, .26452, .40377, + .04641, .03521, 6.49455, .44223, .02539, + .00000, .30421, .44831, + .04783, .03586, 7.29426, .48144, .03629, + .00000, .33967, .48766, + .04918, .03649, 8.07288, .51878, .05004, + .00000, .37390, .52512, + .05061, .03716, 8.94411, .55893, .06924, + .00000, .41134, .56540 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05186, .03774, 9.72754, .59360, .09054, + .00000, .44435, .60019, + .05307, .03829, 10.49437, .62619, .11568, + .00000, .47611, .63289, + .05403, .03874, 11.12543, .65184, .13927, + .00000, .50165, .65862, + .05606, .03968, 12.49215, .70415, .20058, + .00000, .55563, .71112, + .05781, .04049, 13.70261, .74715, .26516, + .01565, .60204, .75428, + .05977, .04139, 15.09055, .79388, .34794, + .06273, .65429, .80119, + .06180, .04233, 16.56467, .84254, .44152, + .13564, .70975, .85004, + .06364, .04318, 17.93107, .88855, .52901, + .19859, .76203, .89623 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06550, .04403, 19.31050, .93726, .61598, + .26438, .81654, .94510, + .06704, .04474, 20.46654, .98026, .68606, + .32002, .86369, .98824, + .06891, .04559, 21.88762, 1.03595, .76808, + .38900, .92348, 1.04411, + .07056, .04635, 23.14321, 1.08784, .83763, + .45096, .97819, 1.09614, + .07206, .04704, 24.29217, 1.13736, .89931, + .50848, 1.02972, 1.14581, + .07398, .04792, 25.76268, 1.20304, .97598, + .58293, 1.09730, 1.21166, + .07578, .04874, 27.13184, 1.26656, 1.04645, + .65362, 1.16213, 1.27534, + .07746, .04951, 28.40598, 1.32746, 1.11178, + .72056, 1.22396, 1.33639 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07914, .05028, 29.68954, 1.39007, 1.17746, + .78873, 1.28731, 1.39916, + .08078, .05102, 30.91269, 1.45152, 1.24103, + .85530, 1.34934, 1.46076, + .08233, .05173, 32.07600, 1.51091, 1.30190, + .91931, 1.40921, 1.52029, + .08379, .05239, 33.15438, 1.56718, 1.35926, + .97979, 1.46588, 1.57668, + .08526, .05306, 34.23197, 1.62434, 1.41732, + 1.04107, 1.52343, 1.63398, + .08670, .05371, 35.27694, 1.68083, 1.47460, + 1.10154, 1.58028, 1.69060, + .08807, .05434, 36.26265, 1.73498, 1.52942, + 1.15940, 1.63476, 1.74487, + .08936, .05492, 37.17768, 1.78623, 1.58126, + 1.21410, 1.68631, 1.79623 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09066, .05551, 38.10364, 1.83863, 1.63424, + 1.26994, 1.73901, 1.84875, + .09195, .05609, 38.98455, 1.88976, 1.68592, + 1.32444, 1.79045, 1.90000, + .09317, .05665, 39.83699, 1.93952, 1.73621, + 1.37736, 1.84049, 1.94988, + .09433, .05717, 40.61322, 1.98603, 1.78320, + 1.42684, 1.88726, 1.99648, + .09551, .05770, 41.39886, 2.03356, 1.83122, + 1.47736, 1.93506, 2.04412 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05855, .04090, 2.90500, .25055, .00182, + .00000, .13973, .25771, + .06056, .04182, 3.39686, .27753, .00385, + .00000, .16351, .28489, + .06353, .04319, 4.18520, .31972, .00838, + .00000, .20086, .32737, + .06568, .04418, 4.78822, .35143, .01328, + .00000, .22912, .35930, + .06792, .04521, 5.45065, .38550, .02054, + .00000, .25976, .39359, + .06985, .04610, 6.04421, .41525, .02909, + .00000, .28681, .42352, + .07169, .04694, 6.61398, .44329, .03980, + .00000, .31269, .45174, + .07364, .04784, 7.24342, .47310, .05463, + .00000, .34070, .48174 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07533, .04862, 7.80248, .49856, .07096, + .00000, .36515, .50737, + .07695, .04936, 8.34333, .52224, .09013, + .00000, .38846, .53121, + .07824, .04995, 8.78451, .54070, .10801, + .00000, .40706, .54979, + .08097, .05120, 9.72700, .57784, .15413, + .00000, .44594, .58720, + .08332, .05228, 10.54825, .60783, .20223, + .01137, .47891, .61741, + .08592, .05347, 11.47559, .63990, .26325, + .04530, .51555, .64974, + .08862, .05470, 12.44461, .67285, .33142, + .09747, .55398, .68294, + .09106, .05581, 13.32924, .70372, .39435, + .14197, .58983, .71405 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09350, .05693, 14.20831, .73618, .45608, + .18801, .62687, .74674, + .09552, .05785, 14.93534, .76471, .50519, + .22659, .65867, .77547, + .09796, .05896, 15.81797, .80151, .56191, + .27400, .69871, .81250, + .10011, .05994, 16.58684, .83560, .60933, + .31618, .73506, .84679, + .10207, .06083, 17.28159, .86796, .65088, + .35503, .76905, .87934, + .10456, .06195, 18.16017, .91062, .70189, + .40487, .81330, .92223, + .10688, .06300, 18.96586, .95153, .74817, + .45174, .85536, .96337, + .10904, .06398, 19.70544, .99046, .79060, + .49574, .89513, 1.00250 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11120, .06496, 20.44238, 1.03021, .83285, + .54019, .93559, 1.04245, + .11329, .06590, 21.13367, 1.06887, .87332, + .58322, .97484, 1.08130, + .11526, .06679, 21.78443, 1.10598, .91176, + .62429, 1.01245, 1.11860, + .11712, .06763, 22.37990, 1.14086, .94769, + .66280, 1.04779, 1.15366, + .11897, .06846, 22.96857, 1.17606, .98381, + .70155, 1.08341, 1.18903, + .12079, .06928, 23.53255, 1.21060, 1.01916, + .73952, 1.11836, 1.22374, + .12251, .07005, 24.05895, 1.24349, 1.05277, + .77562, 1.15162, 1.25678, + .12413, .07078, 24.54169, 1.27439, 1.08434, + .80951, 1.18288, 1.28783 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12577, .07151, 25.02650, 1.30583, 1.11643, + .84393, 1.21467, 1.31942, + .12737, .07223, 25.48055, 1.33626, 1.14749, + .87727, 1.24545, 1.35000, + .12890, .07291, 25.91783, 1.36576, 1.17758, + .90952, 1.27528, 1.37964, + .13034, .07355, 26.30958, 1.39311, 1.20548, + .93944, 1.30294, 1.40712, + .13179, .07420, 26.70331, 1.42093, 1.23387, + .96985, 1.33108, 1.43508 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .08637, .05366, 2.58782, .23059, .00157, + .00000, .12781, .24025, + .08908, .05493, 2.96868, .25147, .00325, + .00000, .14637, .26141, + .09310, .05679, 3.56535, .28361, .00690, + .00000, .17508, .29396, + .09598, .05813, 4.01163, .30741, .01078, + .00000, .19648, .31806, + .09900, .05953, 4.49294, .33265, .01641, + .00000, .21939, .34361, + .10158, .06072, 4.91700, .35441, .02297, + .00000, .23938, .36563, + .10401, .06184, 5.31749, .37470, .03110, + .00000, .25830, .38617, + .10659, .06304, 5.75375, .39600, .04225, + .00000, .27855, .40774 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10883, .06407, 6.13587, .41397, .05443, + .00000, .29604, .42594, + .11096, .06505, 6.50057, .43050, .06863, + .00000, .31256, .44268, + .11265, .06583, 6.79520, .44324, .08179, + .00000, .32562, .45560, + .11623, .06747, 7.41457, .46847, .11545, + .00000, .35260, .48118, + .11927, .06887, 7.94422, .48842, .15019, + .00801, .37512, .50144, + .12265, .07042, 8.53170, .50935, .19377, + .03171, .39980, .52271, + .12612, .07201, 9.13389, .53051, .24184, + .06788, .42533, .54421, + .12925, .07343, 9.67389, .55013, .28562, + .09833, .44888, .56415 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13237, .07485, 10.20026, .57062, .32795, + .12948, .47296, .58493, + .13493, .07602, 10.62868, .58855, .36115, + .15533, .49346, .60312, + .13802, .07743, 11.14102, .61159, .39895, + .18678, .51908, .62646, + .14073, .07865, 11.57926, .63282, .43007, + .21448, .54213, .64795, + .14318, .07976, 11.96911, .65285, .45696, + .23975, .56351, .66822, + .14628, .08116, 12.45494, .67908, .48951, + .27188, .59112, .69475, + .14916, .08246, 12.89163, .70401, .51860, + .30177, .61708, .71996, + .15183, .08366, 13.28538, .72752, .54492, + .32955, .64140, .74372 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15449, .08486, 13.67239, .75134, .57085, + .35738, .66592, .76779, + .15705, .08600, 14.02733, .77427, .59540, + .38405, .68947, .79095, + .15947, .08708, 14.35719, .79610, .61850, + .40929, .71185, .81301, + .16172, .08809, 14.65374, .81642, .63987, + .43275, .73267, .83355, + .16397, .08909, 14.94254, .83677, .66118, + .45618, .75350, .85410, + .16616, .09006, 15.21435, .85657, .68186, + .47896, .77377, .87410, + .16822, .09098, 15.46424, .87527, .70137, + .50045, .79290, .89299, + .17016, .09184, 15.68920, .89269, .71953, + .52047, .81073, .91059 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17212, .09270, 15.91281, .91030, .73789, + .54068, .82875, .92838, + .17401, .09354, 16.11683, .92718, .75548, + .56009, .84603, .94543, + .17583, .09434, 16.31231, .94347, .77245, + .57877, .86270, .96189, + .17752, .09509, 16.48267, .95842, .78804, + .59596, .87800, .97699, + .17924, .09584, 16.65221, .97355, .80382, + .61334, .89349, .99227 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10826, .06384, 2.39439, .21842, .00145, + .00000, .12088, .23025, + .11148, .06535, 2.71659, .23602, .00296, + .00000, .13667, .24819, + .11621, .06756, 3.21423, .26286, .00618, + .00000, .16083, .27554, + .11960, .06915, 3.58112, .28255, .00953, + .00000, .17869, .29559, + .12313, .07079, 3.97215, .30327, .01434, + .00000, .19766, .31668, + .12614, .07219, 4.31295, .32099, .01989, + .00000, .21409, .33472, + .12898, .07351, 4.63129, .33741, .02671, + -.00001, .22955, .35143, + .13198, .07490, 4.97495, .35450, .03601, + -.00001, .24597, .36884 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13457, .07610, 5.27320, .36881, .04612, + -.00001, .26006, .38342, + .13704, .07724, 5.55525, .38187, .05783, + -.00001, .27328, .39673, + .13900, .07815, 5.78169, .39186, .06865, + -.00001, .28368, .40692, + .14311, .08004, 6.25251, .41143, .09617, + -.00001, .30499, .42691, + .14660, .08165, 6.65002, .42668, .12438, + .00641, .32260, .44251, + .15046, .08341, 7.08559, .44247, .15953, + .02529, .34172, .45869, + .15442, .08522, 7.52616, .45825, .19799, + .05397, .36132, .47487, + .15797, .08684, 7.91635, .47279, .23271, + .07792, .37927, .48976 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16149, .08844, 8.29125, .48789, .26600, + .10224, .39749, .50521, + .16438, .08975, 8.59288, .50109, .29187, + .12230, .41293, .51869, + .16785, .09132, 8.94977, .51802, .32106, + .14656, .43212, .53596, + .17088, .09269, 9.25115, .53356, .34485, + .16778, .44929, .55179, + .17362, .09392, 9.51594, .54816, .36521, + .18703, .46512, .56666, + .17707, .09547, 9.84229, .56722, .38964, + .21135, .48546, .58604, + .18026, .09689, 10.13116, .58522, .41126, + .23383, .50446, .60435, + .18321, .09821, 10.38797, .60209, .43065, + .25458, .52214, .62149 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18614, .09951, 10.63775, .61909, .44961, + .27525, .53986, .63876, + .18894, .10076, 10.86246, .63533, .46740, + .29492, .55675, .65526, + .19158, .10192, 11.06915, .65071, .48405, + .31346, .57272, .67089, + .19403, .10301, 11.25211, .66495, .49937, + .33059, .58748, .68535, + .19647, .10408, 11.42800, .67912, .51454, + .34761, .60217, .69974, + .19885, .10512, 11.59090, .69282, .52917, + .36406, .61636, .71365, + .20108, .10610, 11.73867, .70568, .54290, + .37951, .62970, .72671, + .20317, .10701, 11.86938, .71759, .55562, + .39383, .64205, .73880 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20527, .10792, 11.99821, .72958, .56841, + .40823, .65449, .75099, + .20730, .10880, 12.11276, .74099, .58059, + .42198, .66632, .76257, + .20924, .10964, 12.22217, .75196, .59231, + .43517, .67771, .77371, + .21104, .11042, 12.31439, .76195, .60299, + .44723, .68808, .78385, + .21286, .11121, 12.40527, .77201, .61376, + .45938, .69853, .79407 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12703, .07278, 2.25314, .20954, .00138, + .00000, .11600, .22335, + .13063, .07448, 2.53657, .22495, .00279, + .00000, .12992, .23915, + .13591, .07696, 2.96967, .24827, .00573, + .00000, .15110, .26305, + .13969, .07873, 3.28544, .26528, .00874, + .00000, .16665, .28046, + .14361, .08056, 3.61897, .28306, .01302, + .00000, .18306, .29866, + .14694, .08211, 3.90723, .29818, .01792, + .00000, .19720, .31414, + .15008, .08357, 4.17417, .31211, .02390, + .00000, .21044, .32840, + .15339, .08511, 4.46034, .32653, .03202, + -.00001, .22443, .34316 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15625, .08643, 4.70691, .33853, .04079, + -.00001, .23638, .35546, + .15896, .08768, 4.93837, .34940, .05093, + -.00001, .24754, .36661, + .16110, .08867, 5.12329, .35768, .06026, + -.00001, .25628, .37511, + .16560, .09074, 5.50443, .37375, .08388, + -.00001, .27407, .39164, + .16941, .09249, 5.82289, .38612, .10797, + .00542, .28866, .40439, + .17361, .09440, 6.16843, .39879, .13784, + .02133, .30439, .41748, + .17790, .09636, 6.51415, .41132, .17032, + .04542, .32040, .43044, + .18173, .09810, 6.81717, .42282, .19947, + .06541, .33498, .44232 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18553, .09981, 7.10486, .43472, .22721, + .08560, .34970, .45459, + .18864, .10121, 7.33407, .44510, .24864, + .10218, .36211, .46527, + .19236, .10288, 7.60284, .45840, .27265, + .12213, .37749, .47893, + .19559, .10433, 7.82715, .47058, .29206, + .13950, .39118, .49141, + .19851, .10563, 8.02214, .48200, .30856, + .15518, .40376, .50310, + .20218, .10725, 8.26016, .49685, .32821, + .17490, .41985, .51829, + .20555, .10875, 8.46784, .51082, .34547, + .19304, .43479, .53257, + .20866, .11012, 8.65005, .52383, .36084, + .20969, .44862, .54587 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21175, .11147, 8.82558, .53690, .37579, + .22622, .46242, .55922, + .21469, .11276, 8.98053, .54930, .38972, + .24186, .47550, .57188, + .21745, .11396, 9.12168, .56100, .40270, + .25654, .48780, .58383, + .22001, .11508, 9.24462, .57177, .41457, + .27005, .49912, .59482, + .22255, .11618, 9.36129, .58243, .42628, + .28342, .51033, .60570, + .22501, .11724, 9.46753, .59269, .43752, + .29628, .52111, .61617, + .22733, .11823, 9.56252, .60227, .44801, + .30832, .53119, .62595, + .22948, .11915, 9.64487, .61110, .45769, + .31943, .54048, .63496 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23165, .12008, 9.72529, .61995, .46739, + .33058, .54980, .64400, + .23373, .12096, 9.79446, .62831, .47657, + .34116, .55861, .65253, + .23572, .12181, 9.86038, .63634, .48539, + .35129, .56708, .66073, + .23757, .12259, 9.91366, .64359, .49338, + .36052, .57473, .66812, + .23943, .12337, 9.96554, .65088, .50141, + .36978, .58243, .67556 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14377, .08092, 2.14181, .20246, .00133, + .00000, .11225, .21817, + .14768, .08276, 2.39687, .21625, .00268, + .00000, .12480, .23238, + .15341, .08546, 2.78317, .23700, .00542, + .00000, .14378, .25375, + .15750, .08737, 3.06228, .25204, .00819, + .00000, .15765, .26924, + .16173, .08934, 3.35486, .26769, .01209, + .00000, .17221, .28534, + .16533, .09102, 3.60591, .28094, .01652, + .00000, .18471, .29897, + .16869, .09258, 3.83675, .29309, .02190, + .00000, .19637, .31148, + .17225, .09423, 4.08278, .30560, .02917, + .00000, .20863, .32436 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17530, .09564, 4.29346, .31596, .03699, + .00000, .21906, .33503, + .17820, .09697, 4.48996, .32530, .04599, + .00000, .22876, .34467, + .18049, .09802, 4.64632, .33237, .05426, + .00000, .23633, .35198, + .18528, .10022, 4.96613, .34599, .07512, + .00000, .25167, .36608, + .18933, .10206, 5.23092, .35636, .09630, + .00474, .26417, .37686, + .19377, .10408, 5.51586, .36688, .12244, + .01859, .27755, .38781, + .19829, .10613, 5.79828, .37720, .15074, + .03949, .29110, .39857, + .20234, .10794, 6.04335, .38662, .17600, + .05675, .30337, .40838 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20632, .10973, 6.27352, .39635, .19992, + .07412, .31570, .41849, + .20957, .11118, 6.45536, .40482, .21830, + .08831, .32607, .42727, + .21346, .11291, 6.66685, .41568, .23876, + .10533, .33887, .43849, + .21683, .11439, 6.84134, .42560, .25520, + .12009, .35023, .44872, + .21986, .11573, 6.99153, .43488, .26910, + .13337, .36062, .45827, + .22366, .11740, 7.17320, .44691, .28555, + .15000, .37386, .47065, + .22715, .11892, 7.32936, .45818, .29991, + .16523, .38610, .48223, + .23036, .12031, 7.46462, .46865, .31261, + .17916, .39738, .49298 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23353, .12168, 7.59373, .47912, .32492, + .19294, .40860, .50372, + .23655, .12297, 7.70532, .48899, .33631, + .20592, .41916, .51385, + .23937, .12418, 7.80595, .49827, .34689, + .21806, .42907, .52337, + .24198, .12529, 7.89207, .50676, .35651, + .22918, .43813, .53208, + .24457, .12639, 7.97259, .51514, .36597, + .24016, .44708, .54067, + .24707, .12745, 8.04447, .52316, .37500, + .25069, .45564, .54889, + .24941, .12843, 8.10767, .53062, .38342, + .26051, .46361, .55654, + .25159, .12934, 8.16112, .53745, .39114, + .26955, .47093, .56355 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25377, .13025, 8.21272, .54429, .39886, + .27858, .47825, .57056, + .25586, .13112, 8.25504, .55070, .40613, + .28713, .48512, .57712, + .25786, .13195, 8.29530, .55684, .41309, + .29529, .49171, .58342, + .25970, .13271, 8.32588, .56234, .41936, + .30270, .49764, .58906, + .26155, .13347, 8.35514, .56786, .42566, + .31012, .50358, .59471 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17330, .09562, 1.97188, .19141, .00128, + .00000, .10665, .21072, + .17769, .09768, 2.18690, .20286, .00253, + .00001, .11724, .22265, + .18410, .10068, 2.50801, .21996, .00501, + .00001, .13313, .24043, + .18865, .10280, 2.73649, .23224, .00745, + .00001, .14464, .25320, + .19334, .10497, 2.97307, .24493, .01083, + .00001, .15664, .26637, + .19731, .10680, 3.17379, .25558, .01461, + .00001, .16686, .27744, + .20102, .10851, 3.35596, .26527, .01916, + .00001, .17634, .28750, + .20491, .11029, 3.54827, .27517, .02526, + .00001, .18624, .29779 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20825, .11181, 3.71124, .28329, .03177, + .00001, .19460, .30625, + .21141, .11324, 3.86155, .29054, .03922, + .00001, .20232, .31381, + .21390, .11437, 3.98034, .29599, .04604, + .00001, .20832, .31951, + .21909, .11671, 4.22022, .30633, .06312, + .00001, .22036, .33035, + .22345, .11866, 4.41563, .31405, .08035, + .00383, .23006, .33848, + .22821, .12078, 4.62265, .32172, .10147, + .01493, .24034, .34660, + .23304, .12292, 4.82433, .32914, .12415, + .03161, .25065, .35446, + .23733, .12480, 4.99655, .33586, .14423, + .04528, .25990, .36157 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .24153, .12664, 5.15492, .34275, .16308, + .05892, .26913, .36884, + .24495, .12812, 5.27785, .34876, .17743, + .07001, .27684, .37515, + .24901, .12987, 5.41861, .35646, .19327, + .08323, .28632, .38320, + .25252, .13138, 5.53244, .36348, .20586, + .09461, .29466, .39051, + .25566, .13272, 5.62823, .37002, .21641, + .10478, .30226, .39730, + .25958, .13437, 5.74189, .37847, .22877, + .11746, .31188, .40608, + .26315, .13588, 5.83669, .38632, .23943, + .12898, .32069, .41422, + .26642, .13724, 5.91634, .39355, .24878, + .13945, .32874, .42170 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26964, .13857, 5.99080, .40074, .25775, + .14974, .33670, .42914, + .27267, .13983, 6.05207, .40744, .26599, + .15937, .34411, .43607, + .27551, .14099, 6.10597, .41370, .27358, + .16833, .35103, .44254, + .27812, .14204, 6.14989, .41937, .28043, + .17650, .35730, .44841, + .28070, .14308, 6.18932, .42492, .28711, + .18450, .36344, .45414, + .28316, .14407, 6.22248, .43019, .29346, + .19214, .36928, .45957, + .28547, .14499, 6.25002, .43504, .29933, + .19922, .37467, .46458, + .28760, .14584, 6.27124, .43944, .30467, + .20571, .37957, .46912 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28973, .14667, 6.29093, .44381, .30998, + .21216, .38445, .47364, + .29176, .14747, 6.30404, .44784, .31494, + .21822, .38897, .47780, + .29370, .14822, 6.31648, .45170, .31967, + .22399, .39330, .48178, + .29547, .14890, 6.32275, .45510, .32389, + .22918, .39713, .48528, + .29724, .14958, 6.32791, .45848, .32811, + .23437, .40096, .48877 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .21138, .11514, 1.79079, .17901, .00125, + .00000, .10074, .20332, + .21626, .11739, 1.96698, .18816, .00242, + .00000, .10940, .21298, + .22334, .12063, 2.22574, .20169, .00465, + .00000, .12228, .22721, + .22833, .12290, 2.40649, .21131, .00678, + .00000, .13151, .23732, + .23346, .12522, 2.59081, .22114, .00967, + .00000, .14106, .24765, + .23778, .12716, 2.74496, .22932, .01284, + -.00001, .14913, .25625, + .24178, .12895, 2.88262, .23669, .01661, + .00000, .15654, .26399, + .24598, .13081, 3.02624, .24414, .02160, + .00000, .16422, .27182 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24956, .13239, 3.14636, .25017, .02688, + .00000, .17066, .27818, + .25293, .13387, 3.25551, .25549, .03288, + .00000, .17656, .28380, + .25558, .13503, 3.34105, .25944, .03834, + .00000, .18110, .28799, + .26106, .13741, 3.51065, .26678, .05191, + .00000, .19013, .29581, + .26564, .13937, 3.64592, .27211, .06548, + .00298, .19730, .30151, + .27061, .14149, 3.78625, .27725, .08198, + .01160, .20480, .30707, + .27562, .14360, 3.91961, .28210, .09954, + .02449, .21222, .31232, + .28003, .14545, 4.03076, .28645, .11494, + .03495, .21881, .31702 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28432, .14722, 4.12976, .29088, .12925, + .04531, .22532, .32177, + .28778, .14864, 4.20458, .29475, .14004, + .05366, .23072, .32589, + .29188, .15031, 4.28810, .29972, .15181, + .06355, .23730, .33115, + .29537, .15172, 4.35314, .30424, .16106, + .07200, .24305, .33591, + .29849, .15296, 4.40591, .30842, .16871, + .07950, .24824, .34030, + .30236, .15448, 4.46645, .31381, .17757, + .08879, .25476, .34595, + .30585, .15585, 4.51374, .31877, .18512, + .09715, .26067, .35112, + .30901, .15707, 4.55100, .32328, .19165, + .10469, .26601, .35582 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31212, .15825, 4.58425, .32772, .19785, + .11205, .27124, .36045, + .31501, .15934, 4.60809, .33179, .20348, + .11887, .27604, .36468, + .31770, .16035, 4.62757, .33555, .20861, + .12519, .28048, .36859, + .32016, .16124, 4.64084, .33890, .21319, + .13089, .28445, .37207, + .32256, .16211, 4.65078, .34214, .21763, + .13645, .28830, .37543, + .32484, .16294, 4.65653, .34516, .22180, + .14172, .29191, .37855, + .32696, .16369, 4.65919, .34791, .22562, + .14657, .29521, .38139, + .32891, .16437, 4.65828, .35035, .22906, + .15098, .29817, .38390 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33084, .16504, 4.65622, .35275, .23247, + .15535, .30109, .38639, + .33265, .16567, 4.64977, .35490, .23560, + .15941, .30374, .38860, + .33438, .16626, 4.64368, .35695, .23858, + .16327, .30627, .39072, + .33594, .16677, 4.63411, .35870, .24119, + .16670, .30847, .39251, + .33751, .16729, 4.62373, .36042, .24379, + .17012, .31064, .39428 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .26529, .14336, 1.58809, .16364, .00123, + -.00002, .09390, .19535, + .27059, .14567, 1.72443, .17039, .00233, + -.00002, .10057, .20255, + .27824, .14897, 1.92020, .18023, .00433, + -.00002, .11034, .21303, + .28358, .15124, 2.05347, .18712, .00616, + -.00002, .11725, .22036, + .28902, .15354, 2.18654, .19408, .00855, + -.00002, .12432, .22774, + .29356, .15544, 2.29560, .19978, .01113, + -.00002, .13022, .23379, + .29774, .15717, 2.39066, .20484, .01412, + -.00002, .13558, .23914, + .30209, .15895, 2.48815, .20986, .01801, + -.00002, .14108, .24448 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .30577, .16045, 2.56807, .21387, .02208, + -.00002, .14563, .24873, + .30921, .16183, 2.63906, .21731, .02665, + -.00002, .14974, .25240, + .31190, .16291, 2.69400, .21981, .03077, + -.00002, .15289, .25509, + .31742, .16508, 2.79974, .22430, .04093, + -.00002, .15902, .25992, + .32198, .16685, 2.88107, .22738, .05096, + .00218, .16380, .26326, + .32687, .16872, 2.96246, .23017, .06303, + .00846, .16869, .26633, + .33173, .17054, 3.03648, .23266, .07572, + .01779, .17342, .26907, + .33596, .17211, 3.09532, .23485, .08672, + .02528, .17756, .27147 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34002, .17357, 3.14427, .23706, .09681, + .03262, .18158, .27386, + .34326, .17472, 3.17918, .23901, .10431, + .03848, .18488, .27594, + .34705, .17604, 3.21591, .24154, .11238, + .04536, .18886, .27862, + .35024, .17714, 3.24160, .24383, .11861, + .05117, .19229, .28102, + .35304, .17808, 3.26007, .24595, .12369, + .05628, .19534, .28322, + .35648, .17921, 3.27886, .24866, .12947, + .06255, .19913, .28602, + .35954, .18018, 3.28979, .25109, .13430, + .06813, .20250, .28852, + .36226, .18102, 3.29510, .25325, .13840, + .07311, .20548, .29073 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36490, .18183, 3.29770, .25536, .14225, + .07794, .20836, .29287, + .36731, .18253, 3.29429, .25719, .14566, + .08236, .21093, .29473, + .36952, .18316, 3.28913, .25885, .14874, + .08641, .21327, .29640, + .37150, .18370, 3.28100, .26028, .15145, + .09003, .21532, .29782, + .37341, .18421, 3.27074, .26160, .15403, + .09354, .21726, .29913, + .37520, .18466, 3.25815, .26277, .15641, + .09681, .21902, .30029, + .37684, .18506, 3.24450, .26379, .15856, + .09981, .22060, .30129, + .37830, .18541, 3.22948, .26464, .16047, + .10250, .22197, .30211 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37974, .18574, 3.21378, .26546, .16235, + .10516, .22330, .30289, + .38107, .18601, 3.19560, .26611, .16402, + .10759, .22446, .30350, + .38232, .18627, 3.17849, .26673, .16561, + .10989, .22555, .30408, + .38342, .18647, 3.15993, .26717, .16697, + .11192, .22643, .30447, + .38450, .18666, 3.14088, .26758, .16830, + .11391, .22729, .30483 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .31202, .16772, 1.45009, .15141, .00123, + -.00001, .08874, .18943, + .31744, .16990, 1.56062, .15660, .00229, + -.00001, .09409, .19496, + .32518, .17297, 1.71628, .16407, .00415, + -.00001, .10185, .20289, + .33054, .17504, 1.81983, .16924, .00579, + -.00001, .10728, .20835, + .33595, .17711, 1.92125, .17438, .00788, + -.00001, .11278, .21378, + .34045, .17881, 2.00284, .17853, .01007, + -.00002, .11732, .21816, + .34454, .18032, 2.07221, .18215, .01258, + -.00002, .12139, .22196, + .34877, .18186, 2.14223, .18569, .01579, + -.00001, .12553, .22568 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .35232, .18313, 2.19851, .18845, .01912, + -.00002, .12892, .22857, + .35561, .18429, 2.24725, .19075, .02281, + -.00001, .13195, .23100, + .35817, .18518, 2.28450, .19240, .02612, + -.00001, .13424, .23274, + .36336, .18695, 2.35385, .19519, .03419, + -.00002, .13863, .23569, + .36758, .18835, 2.40499, .19695, .04209, + .00171, .14197, .23755, + .37206, .18981, 2.45387, .19839, .05151, + .00663, .14532, .23907, + .37646, .19118, 2.49565, .19953, .06131, + .01388, .14848, .24029, + .38024, .19231, 2.52664, .20049, .06972, + .01964, .15121, .24129 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38380, .19333, 2.54947, .20145, .07734, + .02524, .15380, .24226, + .38659, .19410, 2.56379, .20233, .08294, + .02968, .15590, .24313, + .38981, .19497, 2.57673, .20352, .08890, + .03484, .15842, .24428, + .39248, .19564, 2.58297, .20459, .09344, + .03917, .16055, .24532, + .39478, .19619, 2.58483, .20558, .09709, + .04295, .16242, .24624, + .39755, .19683, 2.58375, .20684, .10118, + .04756, .16471, .24742, + .39997, .19733, 2.57777, .20792, .10454, + .05162, .16669, .24841, + .40206, .19772, 2.56858, .20884, .10735, + .05520, .16840, .24923 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40406, .19807, 2.55754, .20971, .10994, + .05865, .17003, .24999, + .40582, .19832, 2.54257, .21038, .11219, + .06178, .17142, .25054, + .40742, .19852, 2.52717, .21096, .11420, + .06462, .17265, .25099, + .40879, .19866, 2.51038, .21139, .11593, + .06715, .17369, .25129, + .41009, .19876, 2.49220, .21174, .11756, + .06956, .17464, .25151, + .41127, .19881, 2.47271, .21199, .11905, + .07181, .17546, .25161, + .41231, .19883, 2.45316, .21215, .12037, + .07384, .17617, .25164, + .41321, .19881, 2.43335, .21222, .12151, + .07565, .17674, .25157 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41408, .19878, 2.41316, .21227, .12262, + .07742, .17727, .25147, + .41481, .19869, 2.39147, .21219, .12358, + .07904, .17768, .25125, + .41551, .19861, 2.37113, .21213, .12449, + .08056, .17807, .25104, + .41607, .19848, 2.35033, .21195, .12524, + .08187, .17832, .25072, + .41661, .19833, 2.32924, .21175, .12596, + .08315, .17855, .25037 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .39226, .20782, 1.26949, .13118, .00123, + .00000, .08019, .17861, + .39729, .20936, 1.34639, .13440, .00225, + .00000, .08385, .18183, + .40433, .21144, 1.45074, .13891, .00392, + .00001, .08904, .18633, + .40908, .21278, 1.51703, .14193, .00532, + .00000, .09259, .18930, + .41379, .21405, 1.57943, .14485, .00703, + .00000, .09611, .19214, + .41762, .21505, 1.62766, .14713, .00875, + .00001, .09896, .19433, + .42102, .21586, 1.66640, .14903, .01065, + .00000, .10145, .19611, + .42448, .21666, 1.70402, .15080, .01303, + .00000, .10393, .19776 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42733, .21728, 1.73274, .15209, .01544, + .00000, .10591, .19893, + .42990, .21780, 1.75596, .15307, .01807, + .00000, .10762, .19978, + .43188, .21818, 1.77311, .15372, .02039, + .00000, .10890, .20031, + .43576, .21884, 1.80180, .15458, .02597, + .00000, .11124, .20090, + .43880, .21928, 1.81989, .15486, .03133, + .00118, .11291, .20093, + .44190, .21965, 1.83392, .15481, .03762, + .00450, .11448, .20057, + .44479, .21988, 1.84197, .15451, .04405, + .00936, .11587, .19994, + .44716, .21999, 1.84443, .15419, .04948, + .01317, .11700, .19931 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44925, .21995, 1.84115, .15384, .05430, + .01681, .11801, .19862, + .45080, .21984, 1.83545, .15360, .05779, + .01965, .11881, .19809, + .45249, .21965, 1.82581, .15339, .06142, + .02292, .11973, .19752, + .45376, .21938, 1.81407, .15322, .06411, + .02563, .12047, .19700, + .45476, .21907, 1.80099, .15305, .06621, + .02797, .12108, .19652, + .45587, .21862, 1.78254, .15285, .06851, + .03076, .12179, .19592, + .45668, .21811, 1.76238, .15261, .07033, + .03320, .12233, .19526, + .45727, .21755, 1.74161, .15230, .07179, + .03531, .12274, .19458 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45775, .21696, 1.72010, .15196, .07310, + .03731, .12309, .19387, + .45801, .21629, 1.69682, .15152, .07419, + .03910, .12329, .19305, + .45817, .21564, 1.67443, .15107, .07513, + .04070, .12343, .19225, + .45819, .21496, 1.65230, .15058, .07591, + .04210, .12347, .19141, + .45812, .21426, 1.62959, .15004, .07662, + .04343, .12346, .19052, + .45794, .21352, 1.60661, .14946, .07723, + .04464, .12339, .18958, + .45769, .21280, 1.58446, .14887, .07775, + .04572, .12327, .18865, + .45736, .21208, 1.56300, .14825, .07817, + .04666, .12309, .18772 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45699, .21135, 1.54150, .14762, .07857, + .04756, .12290, .18677, + .45650, .21057, 1.51953, .14692, .07888, + .04837, .12262, .18576, + .45604, .20985, 1.49902, .14627, .07917, + .04913, .12236, .18481, + .45548, .20911, 1.47892, .14559, .07937, + .04976, .12205, .18383, + .45489, .20836, 1.45878, .14490, .07956, + .05037, .12172, .18284 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .46012, .23862, 1.15314, .11386, .00123, + .00000, .07242, .16681, + .46416, .23923, 1.20745, .11586, .00220, + .00000, .07499, .16848, + .46965, .23995, 1.27825, .11859, .00375, + .00000, .07856, .17067, + .47322, .24030, 1.32078, .12033, .00498, + .00000, .08094, .17201, + .47663, .24053, 1.35881, .12195, .00644, + .00000, .08324, .17317, + .47932, .24063, 1.38663, .12316, .00785, + .00000, .08506, .17397, + .48159, .24059, 1.40699, .12407, .00937, + -.00001, .08660, .17448, + .48383, .24048, 1.42555, .12484, .01124, + -.00001, .08809, .17483 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48560, .24032, 1.43836, .12532, .01308, + .00000, .08925, .17492, + .48710, .24007, 1.44711, .12558, .01507, + .00000, .09021, .17481, + .48823, .23985, 1.45302, .12569, .01680, + .00000, .09090, .17462, + .49027, .23925, 1.45944, .12553, .02089, + .00000, .09206, .17382, + .49168, .23861, 1.45993, .12505, .02477, + .00086, .09280, .17278, + .49295, .23779, 1.45595, .12427, .02925, + .00328, .09340, .17133, + .49392, .23680, 1.44717, .12329, .03376, + .00680, .09383, .16967, + .49456, .23579, 1.43589, .12236, .03752, + .00952, .09413, .16814 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49484, .23466, 1.42058, .12142, .04080, + .01207, .09432, .16656, + .49488, .23367, 1.40599, .12068, .04312, + .01405, .09444, .16529, + .49476, .23241, 1.38668, .11984, .04549, + .01630, .09455, .16380, + .49442, .23122, 1.36764, .11911, .04720, + .01814, .09460, .16250, + .49395, .23007, 1.34887, .11844, .04850, + .01971, .09459, .16131, + .49319, .22856, 1.32419, .11760, .04988, + .02157, .09453, .15981, + .49225, .22707, 1.29944, .11677, .05093, + .02315, .09439, .15835, + .49120, .22562, 1.27540, .11595, .05173, + .02452, .09418, .15696 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49007, .22415, 1.25126, .11513, .05243, + .02580, .09394, .15556, + .48873, .22265, 1.22648, .11425, .05297, + .02691, .09361, .15412, + .48739, .22121, 1.20313, .11340, .05341, + .02790, .09327, .15274, + .48601, .21982, 1.18075, .11257, .05376, + .02876, .09290, .15141, + .48453, .21840, 1.15826, .11171, .05405, + .02956, .09248, .15005, + .48299, .21697, 1.13600, .11083, .05427, + .03027, .09203, .14869, + .48145, .21561, 1.11490, .10997, .05444, + .03090, .09157, .14738, + .47991, .21429, 1.09485, .10913, .05456, + .03143, .09111, .14610 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47833, .21296, 1.07494, .10829, .05467, + .03195, .09063, .14482, + .47665, .21161, 1.05502, .10741, .05470, + .03239, .09010, .14352, + .47506, .21033, 1.03651, .10658, .05474, + .03279, .08961, .14230, + .47344, .20908, 1.01871, .10577, .05472, + .03312, .08909, .14110, + .47180, .20781, 1.00100, .10494, .05469, + .03344, .08856, .13989 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51808, .26164, 1.06865, .09836, .00121, + -.00001, .06489, .15366, + .52071, .26121, 1.10590, .09957, .00214, + -.00001, .06670, .15421, + .52406, .26041, 1.15189, .10115, .00357, + .00000, .06915, .15479, + .52603, .25967, 1.17730, .10210, .00467, + .00000, .07073, .15499, + .52776, .25878, 1.19816, .10289, .00593, + .00000, .07222, .15500, + .52901, .25791, 1.21186, .10342, .00712, + .00000, .07336, .15486, + .52988, .25696, 1.21975, .10373, .00837, + .00000, .07428, .15453, + .53061, .25591, 1.22557, .10391, .00987, + -.00001, .07514, .15402 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53105, .25494, 1.22796, .10393, .01132, + .00000, .07577, .15343, + .53128, .25392, 1.22739, .10377, .01286, + .00000, .07624, .15271, + .53141, .25310, 1.22616, .10357, .01419, + .00000, .07656, .15206, + .53128, .25123, 1.21879, .10286, .01729, + -.00001, .07699, .15040, + .53086, .24952, 1.20871, .10200, .02018, + .00065, .07717, .14872, + .53008, .24751, 1.19426, .10085, .02347, + .00248, .07719, .14667, + .52893, .24534, 1.17606, .09955, .02674, + .00512, .07706, .14442, + .52762, .24332, 1.15739, .09837, .02942, + .00714, .07689, .14236 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52597, .24117, 1.13599, .09716, .03173, + .00901, .07662, .14033, + .52443, .23935, 1.11712, .09619, .03333, + .01044, .07637, .13866, + .52239, .23711, 1.09345, .09508, .03493, + .01206, .07605, .13670, + .52039, .23507, 1.07142, .09411, .03605, + .01337, .07572, .13500, + .51840, .23316, 1.05056, .09322, .03688, + .01447, .07538, .13346, + .51576, .23071, 1.02391, .09211, .03772, + .01577, .07493, .13154, + .51306, .22838, .99820, .09105, .03833, + .01685, .07444, .12971, + .51039, .22615, .97384, .09003, .03878, + .01777, .07394, .12799 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50767, .22392, .94978, .08902, .03913, + .01864, .07342, .12629, + .50479, .22169, .92577, .08799, .03938, + .01937, .07285, .12457, + .50201, .21959, .90344, .08702, .03956, + .02001, .07229, .12296, + .49928, .21759, .88240, .08608, .03967, + .02055, .07173, .12144, + .49649, .21558, .86151, .08513, .03975, + .02105, .07114, .11991, + .49367, .21357, .84110, .08416, .03979, + .02149, .07054, .11839, + .49093, .21167, .82198, .08324, .03980, + .02188, .06995, .11696, + .48825, .20987, .80403, .08237, .03977, + .02220, .06937, .11558 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48555, .20806, .78632, .08149, .03973, + .02250, .06879, .11421, + .48277, .20625, .76884, .08061, .03965, + .02274, .06818, .11283, + .48015, .20456, .75265, .07978, .03956, + .02296, .06761, .11153, + .47758, .20291, .73727, .07896, .03945, + .02314, .06704, .11029, + .47498, .20126, .72203, .07813, .03933, + .02330, .06647, .10905 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .57813, .28101, .98605, .08110, .00116, + -.00002, .05579, .13587, + .57856, .27926, 1.00659, .08169, .00203, + -.00002, .05695, .13547, + .57867, .27653, 1.02892, .08238, .00333, + -.00001, .05844, .13470, + .57833, .27442, 1.03843, .08270, .00429, + .00000, .05934, .13398, + .57764, .27211, 1.04367, .08288, .00534, + -.00001, .06015, .13308, + .57679, .27009, 1.04481, .08291, .00632, + -.00001, .06073, .13220, + .57565, .26805, 1.04185, .08278, .00731, + -.00001, .06115, .13122, + .57428, .26586, 1.03683, .08254, .00847, + -.00001, .06149, .13006 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57292, .26393, 1.03051, .08224, .00957, + -.00001, .06170, .12895, + .57140, .26200, 1.02233, .08181, .01071, + -.00001, .06180, .12779, + .57016, .26047, 1.01536, .08142, .01169, + -.00001, .06184, .12683, + .56717, .25712, .99726, .08039, .01393, + -.00001, .06175, .12457, + .56429, .25418, .97929, .07933, .01597, + .00047, .06152, .12248, + .56081, .25087, .95734, .07803, .01827, + .00180, .06113, .12005, + .55691, .24739, .93277, .07662, .02051, + .00371, .06064, .11749, + .55317, .24420, .90944, .07533, .02231, + .00513, .06014, .11520 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .54910, .24094, .88457, .07404, .02383, + .00646, .05959, .11291, + .54559, .23822, .86355, .07300, .02485, + .00746, .05910, .11106, + .54123, .23492, .83799, .07179, .02585, + .00857, .05851, .10889, + .53722, .23199, .81505, .07074, .02653, + .00946, .05797, .10700, + .53340, .22930, .79392, .06979, .02700, + .01019, .05745, .10530, + .52848, .22591, .76748, .06861, .02745, + .01104, .05677, .10319, + .52370, .22269, .74263, .06749, .02773, + .01174, .05610, .10123, + .51912, .21968, .71960, .06644, .02791, + .01233, .05544, .09941 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51452, .21671, .69716, .06541, .02804, + .01287, .05479, .09762, + .50985, .21379, .67527, .06438, .02809, + .01332, .05410, .09584, + .50544, .21105, .65514, .06341, .02811, + .01371, .05345, .09419, + .50123, .20845, .63644, .06248, .02808, + .01403, .05282, .09267, + .49695, .20586, .61809, .06155, .02803, + .01432, .05218, .09114, + .49269, .20333, .60038, .06064, .02795, + .01457, .05153, .08962, + .48863, .20095, .58394, .05978, .02786, + .01477, .05092, .08821, + .48473, .19869, .56868, .05895, .02775, + .01494, .05033, .08687 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48083, .19644, .55372, .05814, .02763, + .01509, .04974, .08555, + .47688, .19421, .53912, .05733, .02749, + .01522, .04913, .08424, + .47318, .19212, .52565, .05657, .02735, + .01532, .04856, .08302, + .46958, .19012, .51301, .05584, .02720, + .01541, .04801, .08185, + .46596, .18813, .50056, .05511, .02704, + .01548, .04745, .08069 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .62524, .29150, .91617, .06605, .00110, + -.00003, .04719, .11760, + .62322, .28847, .92353, .06627, .00190, + -.00003, .04790, .11663, + .61976, .28391, .92772, .06642, .00306, + -.00003, .04877, .11504, + .61687, .28051, .92538, .06638, .00390, + -.00002, .04925, .11378, + .61354, .27691, .91929, .06622, .00479, + -.00002, .04963, .11237, + .61046, .27383, .91155, .06600, .00559, + -.00002, .04987, .11107, + .60724, .27078, .90113, .06564, .00639, + -.00002, .04998, .10974, + .60369, .26756, .88882, .06519, .00730, + -.00003, .05003, .10828 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60045, .26477, .87681, .06473, .00814, + -.00003, .05000, .10694, + .59716, .26203, .86381, .06419, .00900, + -.00003, .04989, .10557, + .59454, .25987, .85328, .06372, .00973, + -.00003, .04978, .10447, + .58861, .25527, .82880, .06260, .01137, + -.00003, .04939, .10200, + .58329, .25130, .80642, .06152, .01284, + .00033, .04896, .09979, + .57717, .24688, .78060, .06024, .01446, + .00133, .04839, .09729, + .57061, .24230, .75311, .05886, .01601, + .00274, .04773, .09470, + .56451, .23819, .72796, .05763, .01724, + .00380, .04710, .09239 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55817, .23401, .70213, .05640, .01825, + .00475, .04642, .09012, + .55281, .23058, .68082, .05541, .01891, + .00546, .04586, .08828, + .54627, .22648, .65541, .05425, .01954, + .00625, .04517, .08613, + .54039, .22284, .63312, .05324, .01993, + .00687, .04456, .08428, + .53491, .21954, .61297, .05234, .02018, + .00738, .04398, .08262, + .52796, .21542, .58810, .05123, .02041, + .00796, .04325, .08056, + .52133, .21157, .56517, .05019, .02053, + .00843, .04254, .07864, + .51508, .20798, .54423, .04921, .02057, + .00881, .04186, .07690 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50887, .20446, .52405, .04824, .02058, + .00915, .04118, .07522, + .50268, .20102, .50465, .04730, .02053, + .00944, .04050, .07356, + .49686, .19783, .48697, .04642, .02046, + .00968, .03986, .07202, + .49133, .19486, .47074, .04561, .02037, + .00987, .03926, .07057, + .48579, .19191, .45495, .04480, .02027, + .01004, .03865, .06915, + .48034, .18903, .43987, .04399, .02015, + .01018, .03803, .06778, + .47518, .18631, .42598, .04323, .02002, + .01030, .03746, .06650, + .47030, .18375, .41318, .04251, .01988, + .01040, .03691, .06531 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46542, .18121, .40070, .04180, .01973, + .01048, .03636, .06413, + .46051, .17872, .38864, .04110, .01957, + .01053, .03582, .06296, + .45592, .17639, .37756, .04046, .01942, + .01058, .03531, .06187, + .45152, .17418, .36725, .03984, .01926, + .01060, .03482, .06084, + .44711, .17197, .35715, .03921, .01911, + .01061, .03433, .05981 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .66002, .29458, .85220, .05311, .00102, + .00000, .03927, .09978, + .65544, .29038, .84907, .05312, .00175, + -.00001, .03969, .09848, + .64829, .28418, .83922, .05297, .00277, + -.00001, .04015, .09649, + .64276, .27968, .82801, .05276, .00349, + -.00001, .04035, .09497, + .63675, .27498, .81366, .05244, .00424, + -.00001, .04046, .09331, + .63145, .27096, .79962, .05209, .00489, + -.00002, .04049, .09183, + .62613, .26708, .78409, .05166, .00553, + -.00001, .04041, .09037, + .62042, .26301, .76693, .05114, .00624, + -.00001, .04028, .08879 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .61535, .25950, .75127, .05064, .00688, + -.00001, .04012, .08737, + .61033, .25611, .73530, .05008, .00753, + -.00001, .03990, .08598, + .60635, .25345, .72265, .04961, .00808, + -.00001, .03970, .08487, + .59766, .24782, .69464, .04852, .00927, + -.00001, .03919, .08242, + .59004, .24302, .67008, .04752, .01033, + .00026, .03867, .08027, + .58145, .23773, .64263, .04634, .01147, + .00101, .03804, .07788, + .57243, .23232, .61429, .04510, .01255, + .00206, .03733, .07543, + .56419, .22749, .58899, .04400, .01338, + .00284, .03668, .07327 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55578, .22264, .56364, .04288, .01403, + .00352, .03597, .07119, + .54878, .21868, .54307, .04199, .01446, + .00404, .03541, .06949, + .54033, .21397, .51891, .04096, .01484, + .00460, .03473, .06749, + .53280, .20986, .49808, .04006, .01507, + .00503, .03412, .06578, + .52587, .20615, .47948, .03927, .01520, + .00538, .03355, .06426, + .51714, .20155, .45680, .03829, .01528, + .00577, .03284, .06238, + .50897, .19725, .43618, .03736, .01530, + .00609, .03218, .06064, + .50131, .19329, .41759, .03651, .01527, + .00634, .03154, .05907 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49375, .18943, .39983, .03569, .01522, + .00655, .03091, .05755, + .48631, .18567, .38297, .03486, .01512, + .00673, .03029, .05608, + .47936, .18220, .36772, .03410, .01502, + .00689, .02971, .05472, + .47281, .17898, .35385, .03340, .01491, + .00702, .02916, .05346, + .46628, .17580, .34045, .03271, .01479, + .00712, .02862, .05221, + .45989, .17271, .32774, .03204, .01465, + .00719, .02808, .05102, + .45386, .16981, .31612, .03141, .01451, + .00725, .02757, .04991, + .44819, .16711, .30548, .03081, .01437, + .00729, .02709, .04888 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .44255, .16443, .29516, .03022, .01423, + .00732, .02661, .04786, + .43696, .16181, .28527, .02964, .01407, + .00734, .02615, .04687, + .43173, .15936, .27622, .02909, .01393, + .00736, .02571, .04595, + .42671, .15705, .26785, .02859, .01379, + .00737, .02530, .04507, + .42170, .15475, .25969, .02809, .01365, + .00737, .02489, .04420 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .68321, .29144, .79074, .04214, .00092, + -.00003, .03217, .08309, + .67606, .28626, .77931, .04203, .00158, + -.00003, .03240, .08166, + .66523, .27869, .75870, .04176, .00248, + -.00002, .03260, .07952, + .65714, .27326, .74092, .04147, .00309, + -.00002, .03264, .07793, + .64855, .26764, .72067, .04109, .00372, + -.00002, .03260, .07622, + .64110, .26287, .70228, .04070, .00426, + -.00003, .03251, .07473, + .63380, .25832, .68336, .04025, .00476, + -.00002, .03234, .07330, + .62604, .25357, .66314, .03973, .00532, + -.00002, .03212, .07175 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .61925, .24951, .64530, .03923, .00581, + -.00002, .03189, .07039, + .61263, .24561, .62767, .03872, .00630, + -.00002, .03163, .06905, + .60741, .24257, .61389, .03829, .00670, + -.00002, .03140, .06799, + .59619, .23614, .58426, .03731, .00757, + -.00002, .03086, .06571, + .58650, .23072, .55902, .03641, .00833, + .00019, .03033, .06374, + .57570, .22480, .53142, .03537, .00914, + .00075, .02970, .06158, + .56452, .21877, .50351, .03428, .00988, + .00154, .02902, .05940, + .55443, .21345, .47906, .03332, .01045, + .00212, .02840, .05747 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54421, .20816, .45504, .03240, .01088, + .00264, .02776, .05556, + .53579, .20385, .43581, .03163, .01115, + .00301, .02723, .05406, + .52571, .19874, .41348, .03073, .01137, + .00341, .02659, .05232, + .51682, .19432, .39445, .02997, .01148, + .00372, .02603, .05083, + .50871, .19034, .37767, .02929, .01153, + .00397, .02552, .04948, + .49857, .18542, .35742, .02845, .01155, + .00425, .02489, .04783, + .48913, .18089, .33921, .02766, .01151, + .00447, .02428, .04634, + .48035, .17673, .32295, .02695, .01144, + .00463, .02371, .04498 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .47173, .17270, .30755, .02625, .01135, + .00477, .02316, .04366, + .46329, .16879, .29310, .02558, .01125, + .00489, .02262, .04240, + .45546, .16519, .28011, .02496, .01115, + .00498, .02212, .04124, + .44815, .16186, .26837, .02437, .01102, + .00505, .02165, .04018, + .44088, .15858, .25710, .02380, .01090, + .00510, .02118, .03914, + .43379, .15543, .24650, .02325, .01077, + .00515, .02072, .03812, + .42714, .15248, .23685, .02274, .01064, + .00518, .02030, .03719, + .42091, .14972, .22808, .02226, .01051, + .00520, .01990, .03633 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .41474, .14700, .21961, .02178, .01038, + .00521, .01950, .03548, + .40864, .14434, .21156, .02132, .01024, + .00522, .01911, .03467, + .40296, .14186, .20420, .02088, .01011, + .00522, .01874, .03391, + .39755, .13954, .19745, .02048, .00998, + .00521, .01840, .03320, + .39215, .13724, .19089, .02008, .00985, + .00519, .01806, .03249 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .69543, .28331, .73028, .03299, .00083, + -.00003, .02596, .06795, + .68581, .27732, .71247, .03284, .00141, + -.00002, .02608, .06655, + .67152, .26865, .68384, .03251, .00219, + -.00002, .02613, .06446, + .66104, .26248, .66137, .03221, .00272, + -.00002, .02609, .06291, + .65005, .25615, .63709, .03182, .00324, + -.00002, .02596, .06129, + .64065, .25081, .61591, .03143, .00367, + -.00003, .02580, .05991, + .63152, .24575, .59496, .03101, .00408, + -.00001, .02560, .05856, + .62192, .24050, .57301, .03053, .00451, + -.00001, .02535, .05713 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61362, .23600, .55404, .03008, .00488, + -.00001, .02511, .05589, + .60556, .23174, .53572, .02962, .00524, + -.00002, .02484, .05469, + .59924, .22843, .52156, .02924, .00554, + -.00003, .02461, .05374, + .58575, .22150, .49174, .02841, .00618, + -.00002, .02408, .05168, + .57427, .21566, .46683, .02764, .00672, + .00015, .02358, .04995, + .56159, .20931, .44005, .02676, .00729, + .00059, .02301, .04807, + .54858, .20291, .41343, .02585, .00780, + .00119, .02239, .04617, + .53694, .19727, .39046, .02505, .00818, + .00162, .02183, .04451 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52524, .19172, .36824, .02427, .00846, + .00199, .02126, .04288, + .51567, .18723, .35065, .02363, .00861, + .00227, .02079, .04159, + .50428, .18195, .33042, .02289, .00873, + .00256, .02023, .04010, + .49431, .17738, .31340, .02225, .00879, + .00279, .01975, .03881, + .48529, .17328, .29851, .02169, .00879, + .00296, .01930, .03767, + .47408, .16823, .28069, .02100, .00876, + .00315, .01875, .03628, + .46363, .16363, .26484, .02036, .00869, + .00330, .01823, .03502, + .45403, .15940, .25083, .01977, .00862, + .00342, .01775, .03389 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44466, .15529, .23764, .01920, .00853, + .00353, .01728, .03279, + .43553, .15138, .22538, .01865, .00841, + .00359, .01683, .03175, + .42709, .14778, .21442, .01814, .00829, + .00364, .01641, .03079, + .41923, .14446, .20460, .01768, .00817, + .00368, .01601, .02992, + .41147, .14119, .19523, .01723, .00806, + .00371, .01563, .02906, + .40394, .13805, .18645, .01678, .00794, + .00373, .01526, .02823, + .39689, .13514, .17851, .01637, .00783, + .00374, .01491, .02747, + .39029, .13243, .17133, .01599, .00771, + .00375, .01458, .02679 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .38377, .12976, .16443, .01562, .00760, + .00376, .01425, .02611, + .37739, .12715, .15790, .01526, .00749, + .00374, .01393, .02543, + .37145, .12474, .15196, .01492, .00739, + .00372, .01364, .02480, + .36582, .12247, .14654, .01460, .00728, + .00371, .01336, .02424, + .36021, .12023, .14128, .01428, .00716, + .00370, .01309, .02368 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .69754, .27114, .67037, .02543, .00075, + .00006, .02067, .05465, + .68564, .26456, .64783, .02530, .00125, + .00004, .02070, .05334, + .66814, .25512, .61355, .02500, .00192, + .00005, .02066, .05141, + .65551, .24843, .58802, .02472, .00235, + .00005, .02055, .05001, + .64238, .24160, .56127, .02438, .00277, + .00004, .02039, .04854, + .63118, .23589, .53848, .02406, .00312, + .00003, .02022, .04728, + .62045, .23053, .51656, .02369, .00342, + .00003, .02000, .04609, + .60924, .22497, .49396, .02328, .00376, + .00004, .01974, .04482 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .59961, .22022, .47474, .02290, .00405, + .00004, .01951, .04371, + .59033, .21572, .45648, .02250, .00433, + .00004, .01926, .04266, + .58310, .21224, .44247, .02218, .00455, + .00004, .01905, .04184, + .56777, .20499, .41336, .02148, .00498, + .00004, .01858, .04009, + .55480, .19892, .38946, .02084, .00536, + .00016, .01813, .03864, + .54058, .19237, .36417, .02012, .00575, + .00048, .01762, .03704, + .52607, .18583, .33942, .01939, .00610, + .00093, .01709, .03542, + .51318, .18009, .31831, .01875, .00634, + .00124, .01661, .03401 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .50042, .17442, .29810, .01809, .00651, + .00151, .01611, .03268, + .49000, .16986, .28229, .01756, .00660, + .00171, .01571, .03161, + .47763, .16453, .26428, .01697, .00666, + .00191, .01524, .03037, + .46688, .15996, .24927, .01646, .00667, + .00206, .01482, .02930, + .45718, .15587, .23625, .01601, .00666, + .00218, .01445, .02835, + .44518, .15086, .22078, .01546, .00662, + .00232, .01399, .02720, + .43411, .14629, .20720, .01494, .00654, + .00243, .01356, .02618, + .42396, .14213, .19524, .01447, .00645, + .00250, .01317, .02526 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .41409, .13811, .18406, .01401, .00635, + .00256, .01278, .02437, + .40454, .13426, .17375, .01357, .00624, + .00260, .01241, .02354, + .39573, .13073, .16460, .01317, .00614, + .00264, .01207, .02278, + .38759, .12750, .15645, .01280, .00605, + .00265, .01175, .02206, + .37955, .12434, .14871, .01244, .00595, + .00266, .01143, .02137, + .37176, .12131, .14152, .01210, .00585, + .00267, .01113, .02072, + .36450, .11849, .13504, .01179, .00575, + .00267, .01085, .02012, + .35774, .11589, .12920, .01150, .00565, + .00266, .01059, .01957 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .35108, .11333, .12361, .01121, .00555, + .00266, .01033, .01903, + .34459, .11084, .11835, .01091, .00545, + .00265, .01008, .01851, + .33856, .10854, .11358, .01064, .00536, + .00264, .00985, .01802, + .33285, .10638, .10925, .01039, .00527, + .00263, .00964, .01757, + .32720, .10425, .10506, .01014, .00518, + .00262, .00943, .01713 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .69011, .25626, .61133, .01960, .00056, + -.00014, .01601, .04319, + .67622, .24925, .58547, .01945, .00099, + -.00014, .01604, .04203, + .65599, .23925, .54749, .01918, .00156, + -.00013, .01597, .04033, + .64150, .23222, .52016, .01892, .00193, + -.00013, .01586, .03911, + .62655, .22508, .49217, .01861, .00228, + -.00013, .01571, .03783, + .61392, .21913, .46876, .01832, .00257, + -.00013, .01555, .03673, + .60191, .21355, .44669, .01800, .00282, + -.00013, .01535, .03572, + .58940, .20780, .42421, .01764, .00306, + -.00014, .01513, .03465 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .57868, .20294, .40533, .01732, .00327, + -.00015, .01493, .03371, + .56842, .19834, .38760, .01699, .00347, + -.00014, .01472, .03283, + .56044, .19478, .37409, .01672, .00364, + -.00012, .01454, .03214, + .54368, .18741, .34647, .01612, .00397, + -.00012, .01412, .03069, + .52954, .18129, .32408, .01561, .00423, + -.00003, .01374, .02948, + .51416, .17472, .30069, .01504, .00449, + .00023, .01331, .02816, + .49859, .16816, .27807, .01445, .00471, + .00058, .01287, .02683, + .48483, .16246, .25895, .01393, .00487, + .00083, .01248, .02568 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .47123, .15686, .24093, .01341, .00497, + .00104, .01207, .02460, + .46020, .15237, .22695, .01301, .00501, + .00120, .01175, .02372, + .44718, .14713, .21116, .01255, .00503, + .00136, .01136, .02270, + .43594, .14265, .19811, .01212, .00504, + .00149, .01102, .02185, + .42585, .13866, .18686, .01175, .00500, + .00157, .01071, .02110, + .41342, .13377, .17360, .01131, .00494, + .00166, .01034, .02019, + .40200, .12934, .16203, .01090, .00486, + .00173, .00999, .01937, + .39156, .12533, .15195, .01053, .00478, + .00178, .00967, .01862 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .38144, .12148, .14258, .01017, .00471, + .00182, .00937, .01790, + .37170, .11779, .13399, .00982, .00462, + .00186, .00907, .01725, + .36275, .11442, .12641, .00952, .00453, + .00188, .00880, .01665, + .35446, .11135, .11971, .00925, .00445, + .00189, .00855, .01608, + .34634, .10834, .11337, .00898, .00436, + .00189, .00830, .01553, + .33855, .10547, .10750, .00870, .00428, + .00190, .00806, .01503, + .33128, .10281, .10224, .00845, .00420, + .00190, .00784, .01456, + .32451, .10036, .09753, .00823, .00412, + .00190, .00763, .01413 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31787, .09797, .09303, .00801, .00404, + .00189, .00744, .01371, + .31142, .09564, .08882, .00778, .00396, + .00188, .00724, .01331, + .30545, .09348, .08501, .00757, .00388, + .00186, .00706, .01294, + .29979, .09148, .08156, .00738, .00381, + .00185, .00689, .01259, + .29418, .08951, .07825, .00721, .00374, + .00184, .00672, .01225 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .67472, .23875, .55290, .01466, .00053, + -.00002, .01240, .03359, + .65913, .23150, .52502, .01453, .00089, + -.00004, .01241, .03260, + .63653, .22126, .48509, .01433, .00135, + -.00002, .01232, .03115, + .62048, .21410, .45702, .01413, .00164, + -.00002, .01221, .03012, + .60404, .20686, .42880, .01387, .00193, + -.00004, .01206, .02905, + .59021, .20085, .40560, .01364, .00215, + -.00003, .01190, .02814, + .57714, .19522, .38404, .01338, .00234, + -.00004, .01173, .02729, + .56359, .18946, .36229, .01310, .00252, + -.00004, .01155, .02639 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55203, .18461, .34420, .01285, .00268, + -.00004, .01137, .02561, + .54103, .18003, .32742, .01259, .00282, + -.00003, .01117, .02490, + .53249, .17649, .31473, .01239, .00293, + -.00002, .01101, .02435, + .51463, .16919, .28900, .01192, .00316, + -.00002, .01066, .02316, + .49967, .16317, .26843, .01152, .00335, + .00005, .01035, .02217, + .48348, .15673, .24718, .01107, .00352, + .00023, .01001, .02110, + .46720, .15032, .22687, .01061, .00366, + .00049, .00965, .02005, + .45291, .14473, .20988, .01019, .00376, + .00067, .00931, .01915 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43878, .13935, .19402, .00982, .00381, + .00082, .00898, .01825, + .42743, .13502, .18181, .00950, .00382, + .00093, .00871, .01756, + .41410, .12998, .16811, .00911, .00382, + .00104, .00840, .01677, + .40261, .12569, .15687, .00880, .00379, + .00111, .00812, .01609, + .39232, .12188, .14729, .00852, .00376, + .00117, .00788, .01549, + .37970, .11724, .13607, .00819, .00370, + .00124, .00759, .01476, + .36821, .11303, .12634, .00785, .00363, + .00128, .00732, .01414, + .35772, .10924, .11791, .00757, .00356, + .00131, .00706, .01356 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34757, .10561, .11012, .00732, .00349, + .00134, .00682, .01300, + .33784, .10217, .10306, .00705, .00340, + .00136, .00658, .01249, + .32894, .09903, .09685, .00680, .00333, + .00137, .00637, .01203, + .32077, .09616, .09136, .00657, .00327, + .00137, .00617, .01161, + .31276, .09337, .08622, .00636, .00320, + .00137, .00598, .01119, + .30506, .09070, .08148, .00616, .00312, + .00136, .00579, .01078, + .29791, .08824, .07725, .00598, .00306, + .00136, .00563, .01042, + .29128, .08598, .07347, .00582, .00299, + .00136, .00547, .01010 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28478, .08377, .06988, .00566, .00293, + .00135, .00531, .00978, + .27848, .08163, .06654, .00549, .00287, + .00134, .00516, .00946, + .27264, .07966, .06352, .00534, .00281, + .00133, .00502, .00917, + .26717, .07783, .06081, .00520, .00275, + .00132, .00490, .00891, + .26177, .07602, .05821, .00506, .00269, + .00130, .00477, .00867 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .65201, .21986, .49603, .01086, .00045, + -.00005, .00941, .02568, + .63501, .21259, .46717, .01079, .00074, + -.00003, .00940, .02485, + .61059, .20230, .42670, .01061, .00112, + -.00004, .00932, .02369, + .59334, .19517, .39880, .01046, .00136, + -.00004, .00922, .02284, + .57575, .18799, .37114, .01027, .00158, + -.00003, .00910, .02195, + .56105, .18203, .34869, .01008, .00175, + -.00002, .00897, .02122, + .54721, .17650, .32810, .00988, .00190, + -.00003, .00883, .02051, + .53292, .17085, .30752, .00967, .00204, + -.00003, .00867, .01979 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52078, .16609, .29059, .00946, .00216, + -.00003, .00850, .01919, + .50929, .16162, .27502, .00925, .00226, + -.00003, .00835, .01862, + .50039, .15817, .26330, .00908, .00233, + -.00004, .00823, .01818, + .48188, .15109, .23981, .00871, .00249, + -.00004, .00795, .01724, + .46645, .14527, .22123, .00841, .00261, + .00003, .00769, .01645, + .44980, .13907, .20221, .00807, .00272, + .00017, .00741, .01560, + .43312, .13293, .18422, .00773, .00281, + .00036, .00713, .01476, + .41856, .12762, .16931, .00741, .00287, + .00050, .00687, .01406 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40437, .12247, .15554, .00709, .00290, + .00061, .00661, .01336, + .39292, .11837, .14502, .00686, .00289, + .00068, .00640, .01282, + .37948, .11363, .13329, .00660, .00287, + .00076, .00615, .01220, + .36796, .10960, .12375, .00637, .00285, + .00082, .00593, .01167, + .35773, .10603, .11566, .00614, .00281, + .00086, .00574, .01122, + .34522, .10169, .10625, .00586, .00275, + .00091, .00551, .01068, + .33382, .09778, .09815, .00563, .00269, + .00094, .00529, .01018, + .32348, .09427, .09119, .00542, .00263, + .00096, .00509, .00974 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31351, .09091, .08480, .00522, .00257, + .00097, .00491, .00932, + .30402, .08773, .07902, .00501, .00250, + .00097, .00472, .00893, + .29534, .08483, .07397, .00483, .00244, + .00098, .00456, .00858, + .28739, .08219, .06954, .00466, .00238, + .00099, .00441, .00825, + .27961, .07963, .06540, .00450, .00232, + .00099, .00427, .00794, + .27215, .07721, .06160, .00436, .00226, + .00098, .00412, .00764, + .26527, .07497, .05822, .00422, .00221, + .00097, .00399, .00737, + .25891, .07292, .05522, .00408, .00216, + .00096, .00387, .00713 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25268, .07092, .05238, .00395, .00211, + .00095, .00375, .00690, + .24664, .06899, .04975, .00383, .00206, + .00094, .00364, .00667, + .24105, .06721, .04738, .00372, .00202, + .00094, .00355, .00646, + .23583, .06556, .04525, .00362, .00198, + .00093, .00345, .00626, + .23068, .06393, .04321, .00353, .00193, + .00092, .00336, .00606 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62310, .20010, .44108, .00789, .00038, + .00001, .00705, .01931, + .60507, .19292, .41222, .00784, .00063, + .00000, .00705, .01865, + .57931, .18281, .37231, .00770, .00095, + .00000, .00699, .01769, + .56122, .17584, .34528, .00758, .00114, + .00000, .00691, .01702, + .54288, .16884, .31881, .00744, .00130, + -.00001, .00679, .01633, + .52763, .16307, .29756, .00729, .00143, + .00000, .00669, .01575, + .51329, .15773, .27831, .00715, .00153, + .00000, .00656, .01522, + .49855, .15227, .25922, .00699, .00163, + .00000, .00643, .01466 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48610, .14770, .24363, .00683, .00172, + .00000, .00632, .01417, + .47432, .14343, .22941, .00670, .00179, + .00001, .00619, .01369, + .46523, .14016, .21879, .00659, .00184, + .00001, .00609, .01333, + .44638, .13342, .19770, .00633, .00195, + .00000, .00587, .01260, + .43080, .12789, .18116, .00608, .00202, + .00004, .00566, .01202, + .41407, .12203, .16438, .00581, .00210, + .00014, .00544, .01137, + .39738, .11626, .14867, .00555, .00215, + .00029, .00521, .01072, + .38288, .11128, .13578, .00530, .00217, + .00039, .00500, .01018 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36871, .10648, .12397, .00509, .00217, + .00047, .00480, .00966, + .35738, .10267, .11500, .00490, .00217, + .00052, .00465, .00925, + .34418, .09826, .10507, .00468, .00216, + .00057, .00446, .00878, + .33287, .09453, .09708, .00451, .00212, + .00061, .00428, .00839, + .32284, .09124, .09033, .00437, .00208, + .00063, .00413, .00804, + .31062, .08727, .08253, .00418, .00203, + .00066, .00395, .00760, + .29957, .08370, .07586, .00398, .00197, + .00068, .00378, .00724, + .28957, .08049, .07016, .00381, .00192, + .00069, .00364, .00691 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27996, .07742, .06494, .00367, .00188, + .00070, .00349, .00659, + .27085, .07453, .06027, .00351, .00183, + .00071, .00336, .00630, + .26253, .07191, .05621, .00338, .00178, + .00071, .00323, .00604, + .25491, .06952, .05267, .00327, .00173, + .00070, .00312, .00579, + .24750, .06722, .04937, .00315, .00168, + .00070, .00301, .00556, + .24043, .06504, .04635, .00303, .00164, + .00069, .00290, .00535, + .23390, .06303, .04369, .00293, .00159, + .00069, .00280, .00516, + .22786, .06120, .04133, .00283, .00155, + .00068, .00272, .00498 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22197, .05941, .03910, .00274, .00151, + .00068, .00264, .00480, + .21627, .05770, .03703, .00267, .00147, + .00067, .00255, .00462, + .21101, .05613, .03518, .00260, .00143, + .00067, .00247, .00446, + .20612, .05466, .03353, .00252, .00140, + .00066, .00240, .00433, + .20131, .05321, .03195, .00243, .00136, + .00064, .00233, .00420 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .58908, .17998, .38855, .00559, .00036, + .00007, .00525, .01424, + .57034, .17306, .36037, .00557, .00054, + .00007, .00523, .01373, + .54373, .16332, .32200, .00549, .00078, + .00007, .00517, .01301, + .52517, .15662, .29637, .00541, .00093, + .00006, .00511, .01250, + .50642, .14993, .27154, .00530, .00106, + .00005, .00502, .01196, + .49085, .14445, .25182, .00521, .00116, + .00006, .00494, .01149, + .47633, .13939, .23415, .00511, .00123, + .00005, .00484, .01107, + .46146, .13424, .21676, .00499, .00130, + .00005, .00473, .01064 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44893, .12992, .20266, .00489, .00136, + .00006, .00463, .01026, + .43713, .12589, .18991, .00477, .00141, + .00005, .00453, .00992, + .42804, .12280, .18041, .00467, .00145, + .00004, .00446, .00965, + .40925, .11649, .16171, .00447, .00151, + .00004, .00429, .00909, + .39376, .11134, .14722, .00430, .00156, + .00007, .00413, .00864, + .37720, .10589, .13265, .00411, .00160, + .00014, .00396, .00815, + .36079, .10055, .11911, .00391, .00163, + .00024, .00378, .00768, + .34661, .09595, .10811, .00373, .00164, + .00031, .00363, .00728 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33276, .09156, .09809, .00359, .00164, + .00037, .00348, .00686, + .32175, .08807, .09055, .00345, .00163, + .00041, .00335, .00655, + .30897, .08404, .08227, .00328, .00160, + .00044, .00319, .00621, + .29807, .08064, .07562, .00315, .00157, + .00046, .00306, .00593, + .28846, .07765, .07006, .00302, .00154, + .00048, .00294, .00567, + .27677, .07405, .06366, .00287, .00149, + .00050, .00281, .00535, + .26616, .07083, .05823, .00276, .00145, + .00050, .00269, .00506, + .25661, .06796, .05363, .00264, .00141, + .00051, .00258, .00482 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24746, .06522, .04946, .00253, .00138, + .00052, .00248, .00460, + .23882, .06263, .04571, .00244, .00133, + .00052, .00237, .00439, + .23096, .06030, .04246, .00235, .00129, + .00052, .00228, .00420, + .22380, .05819, .03964, .00225, .00125, + .00051, .00219, .00403, + .21685, .05615, .03703, .00216, .00122, + .00051, .00211, .00386, + .21023, .05422, .03465, .00207, .00119, + .00050, .00204, .00369, + .20414, .05245, .03256, .00200, .00115, + .00049, .00197, .00354, + .19852, .05083, .03073, .00193, .00112, + .00048, .00190, .00341 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19305, .04925, .02900, .00186, .00108, + .00048, .00183, .00329, + .18776, .04774, .02740, .00181, .00106, + .00047, .00177, .00316, + .18290, .04635, .02597, .00176, .00103, + .00046, .00171, .00305, + .17838, .04507, .02470, .00170, .00100, + .00045, .00166, .00295, + .17394, .04381, .02349, .00165, .00098, + .00044, .00161, .00286 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .55091, .16022, .33918, .00397, .00025, + -.00001, .00376, .01035, + .53187, .15359, .31225, .00397, .00041, + .00001, .00375, .00996, + .50491, .14438, .27602, .00393, .00061, + .00001, .00372, .00938, + .48624, .13805, .25219, .00386, .00072, + .00001, .00367, .00900, + .46745, .13175, .22938, .00378, .00082, + .00001, .00361, .00860, + .45187, .12663, .21142, .00374, .00090, + .00002, .00355, .00824, + .43745, .12188, .19543, .00364, .00096, + .00002, .00347, .00793, + .42270, .11706, .17982, .00355, .00101, + .00001, .00340, .00761 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41030, .11306, .16727, .00347, .00105, + .00001, .00332, .00733, + .39865, .10932, .15598, .00339, .00108, + .00001, .00325, .00707, + .38970, .10647, .14762, .00333, .00110, + .00000, .00319, .00687, + .37130, .10066, .13127, .00317, .00115, + .00002, .00306, .00647, + .35620, .09593, .11874, .00305, .00117, + .00004, .00295, .00612, + .34013, .09095, .10624, .00292, .00120, + .00010, .00281, .00574, + .32425, .08608, .09473, .00277, .00121, + .00016, .00268, .00538, + .31051, .08192, .08545, .00265, .00122, + .00021, .00257, .00508 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29729, .07792, .07707, .00251, .00120, + .00026, .00245, .00480, + .28677, .07477, .07081, .00241, .00118, + .00028, .00235, .00459, + .27456, .07114, .06397, .00230, .00116, + .00030, .00224, .00434, + .26420, .06810, .05851, .00221, .00113, + .00032, .00215, .00412, + .25507, .06544, .05398, .00213, .00111, + .00033, .00207, .00393, + .24401, .06223, .04880, .00202, .00108, + .00034, .00197, .00370, + .23405, .05937, .04442, .00192, .00104, + .00035, .00187, .00350, + .22510, .05682, .04072, .00184, .00100, + .00035, .00179, .00332 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21654, .05440, .03738, .00177, .00097, + .00035, .00171, .00315, + .20848, .05212, .03443, .00170, .00094, + .00035, .00164, .00300, + .20119, .05007, .03188, .00162, .00091, + .00035, .00157, .00287, + .19460, .04821, .02966, .00153, .00087, + .00035, .00150, .00275, + .18819, .04642, .02762, .00146, .00085, + .00034, .00144, .00263, + .18205, .04473, .02577, .00141, .00083, + .00034, .00139, .00251, + .17642, .04319, .02415, .00137, .00081, + .00034, .00134, .00241, + .17125, .04179, .02273, .00134, .00078, + .00034, .00130, .00231 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16621, .04043, .02139, .00130, .00075, + .00034, .00125, .00222, + .16139, .03912, .02017, .00125, .00073, + .00033, .00121, .00214, + .15696, .03793, .01908, .00120, .00072, + .00032, .00117, .00206, + .15283, .03682, .01810, .00117, .00069, + .00032, .00113, .00199, + .14877, .03574, .01717, .00113, .00067, + .00031, .00109, .00193 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .50976, .14091, .29297, .00274, .00022, + .00004, .00269, .00733, + .49071, .13474, .26780, .00276, .00033, + .00003, .00268, .00707, + .46391, .12617, .23434, .00274, .00048, + .00002, .00264, .00664, + .44542, .12030, .21258, .00270, .00057, + .00003, .00260, .00635, + .42690, .11447, .19193, .00266, .00064, + .00003, .00256, .00605, + .41164, .10972, .17582, .00262, .00068, + .00003, .00251, .00580, + .39754, .10536, .16160, .00255, .00072, + .00002, .00245, .00559, + .38315, .10096, .14781, .00248, .00075, + .00002, .00239, .00535 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37106, .09730, .13681, .00243, .00077, + .00003, .00234, .00515, + .35977, .09390, .12697, .00238, .00080, + .00003, .00228, .00496, + .35112, .09131, .11972, .00234, .00081, + .00003, .00223, .00481, + .33337, .08603, .10567, .00226, .00084, + .00003, .00213, .00449, + .31886, .08175, .09497, .00217, .00085, + .00004, .00205, .00425, + .30350, .07725, .08438, .00206, .00086, + .00008, .00196, .00399, + .28838, .07287, .07472, .00196, .00087, + .00012, .00186, .00374, + .27537, .06914, .06699, .00187, .00086, + .00015, .00177, .00352 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26283, .06560, .06007, .00179, .00085, + .00019, .00169, .00331, + .25291, .06281, .05493, .00171, .00084, + .00021, .00161, .00316, + .24146, .05960, .04934, .00161, .00082, + .00022, .00153, .00298, + .23179, .05691, .04492, .00154, .00079, + .00022, .00146, .00283, + .22325, .05455, .04127, .00149, .00077, + .00023, .00141, .00268, + .21294, .05173, .03711, .00142, .00075, + .00025, .00135, .00251, + .20371, .04922, .03363, .00137, .00073, + .00025, .00128, .00237, + .19544, .04699, .03070, .00130, .00070, + .00024, .00121, .00225 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18757, .04489, .02806, .00124, .00067, + .00023, .00115, .00214, + .18018, .04292, .02573, .00118, .00065, + .00023, .00111, .00203, + .17348, .04114, .02374, .00113, .00062, + .00023, .00106, .00193, + .16740, .03954, .02203, .00109, .00060, + .00023, .00101, .00184, + .16154, .03800, .02045, .00105, .00058, + .00023, .00097, .00176, + .15600, .03655, .01903, .00099, .00057, + .00023, .00094, .00167, + .15092, .03522, .01778, .00095, .00055, + .00023, .00090, .00160, + .14625, .03401, .01669, .00091, .00053, + .00022, .00087, .00154 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14171, .03284, .01567, .00088, .00051, + .00022, .00083, .00149, + .13734, .03173, .01474, .00086, .00050, + .00021, .00080, .00142, + .13333, .03072, .01390, .00084, .00048, + .00021, .00078, .00136, + .12963, .02977, .01317, .00081, .00047, + .00020, .00075, .00131, + .12601, .02885, .01247, .00078, .00045, + .00020, .00072, .00127 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .46648, .12245, .25024, .00184, .00019, + .00005, .00189, .00511, + .44778, .11676, .22711, .00186, .00028, + .00005, .00189, .00489, + .42159, .10885, .19670, .00184, .00038, + .00006, .00187, .00462, + .40356, .10350, .17717, .00182, .00044, + .00006, .00185, .00441, + .38559, .09820, .15880, .00180, .00049, + .00005, .00182, .00419, + .37089, .09387, .14455, .00176, .00054, + .00005, .00178, .00401, + .35725, .08993, .13209, .00173, .00056, + .00005, .00174, .00385, + .34340, .08595, .12010, .00169, .00058, + .00005, .00169, .00368 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33187, .08265, .11058, .00165, .00060, + .00005, .00165, .00354, + .32109, .07960, .10214, .00161, .00062, + .00004, .00161, .00341, + .31284, .07727, .09595, .00158, .00063, + .00004, .00158, .00330, + .29601, .07254, .08402, .00150, .00063, + .00004, .00151, .00309, + .28228, .06873, .07502, .00144, .00064, + .00004, .00144, .00292, + .26778, .06474, .06619, .00137, .00065, + .00006, .00137, .00274, + .25360, .06088, .05821, .00129, .00064, + .00011, .00129, .00256, + .24145, .05759, .05187, .00122, .00064, + .00013, .00124, .00240 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22973, .05447, .04624, .00119, .00063, + .00014, .00118, .00224, + .22052, .05202, .04208, .00114, .00062, + .00015, .00112, .00212, + .20992, .04922, .03758, .00108, .00060, + .00016, .00107, .00199, + .20099, .04688, .03404, .00104, .00058, + .00017, .00103, .00189, + .19317, .04484, .03114, .00098, .00056, + .00017, .00099, .00180, + .18376, .04240, .02785, .00091, .00054, + .00018, .00092, .00169, + .17532, .04023, .02513, .00085, .00051, + .00017, .00087, .00161, + .16778, .03832, .02284, .00081, .00050, + .00018, .00083, .00152 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16062, .03651, .02079, .00078, .00049, + .00018, .00080, .00142, + .15390, .03482, .01900, .00076, .00046, + .00018, .00076, .00135, + .14784, .03330, .01746, .00073, .00044, + .00018, .00072, .00128, + .14237, .03195, .01615, .00069, .00043, + .00017, .00069, .00121, + .13710, .03064, .01494, .00066, .00041, + .00016, .00066, .00115, + .13212, .02940, .01386, .00063, .00040, + .00017, .00064, .00110, + .12755, .02828, .01292, .00062, .00039, + .00017, .00061, .00105, + .12337, .02727, .01209, .00060, .00037, + .00016, .00059, .00101 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11931, .02628, .01132, .00058, .00036, + .00016, .00056, .00097, + .11545, .02535, .01062, .00055, .00035, + .00015, .00054, .00093, + .11191, .02449, .01000, .00053, .00033, + .00015, .00053, .00089, + .10863, .02370, .00946, .00052, .00033, + .00015, .00051, .00086, + .10542, .02293, .00894, .00050, .00032, + .00015, .00049, .00083 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .42221, .10514, .21133, .00120, .00015, + .00004, .00130, .00349, + .40410, .09996, .19042, .00122, .00022, + .00004, .00131, .00334, + .37886, .09282, .16322, .00122, .00030, + .00003, .00129, .00312, + .36160, .08798, .14594, .00119, .00035, + .00003, .00128, .00298, + .34443, .08321, .12985, .00115, .00039, + .00003, .00126, .00285, + .33037, .07934, .11747, .00114, .00042, + .00004, .00124, .00273, + .31746, .07582, .10673, .00113, .00044, + .00003, .00121, .00259, + .30437, .07227, .09646, .00110, .00046, + .00003, .00119, .00248 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29347, .06933, .08838, .00105, .00047, + .00003, .00115, .00240, + .28334, .06663, .08123, .00102, .00048, + .00003, .00112, .00230, + .27560, .06457, .07601, .00100, .00048, + .00003, .00110, .00222, + .25985, .06041, .06605, .00095, .00049, + .00003, .00105, .00207, + .24705, .05707, .05859, .00092, .00049, + .00004, .00101, .00194, + .23359, .05359, .05133, .00088, .00048, + .00005, .00096, .00180, + .22046, .05021, .04482, .00083, .00049, + .00008, .00090, .00168, + .20925, .04736, .03970, .00079, .00048, + .00010, .00086, .00158 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19850, .04466, .03517, .00076, .00047, + .00011, .00082, .00146, + .19009, .04254, .03185, .00072, .00046, + .00011, .00079, .00140, + .18043, .04013, .02829, .00066, .00044, + .00012, .00074, .00132, + .17228, .03813, .02550, .00063, .00042, + .00013, .00071, .00124, + .16518, .03639, .02323, .00061, .00041, + .00013, .00068, .00117, + .15667, .03431, .02067, .00059, .00040, + .00014, .00064, .00109, + .14906, .03246, .01855, .00055, .00038, + .00014, .00061, .00104, + .14228, .03084, .01679, .00053, .00037, + .00014, .00058, .00097 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13586, .02931, .01523, .00052, .00036, + .00014, .00055, .00090, + .12989, .02788, .01386, .00048, .00034, + .00014, .00052, .00086, + .12451, .02661, .01269, .00045, .00032, + .00014, .00050, .00083, + .11963, .02547, .01170, .00043, .00031, + .00013, .00047, .00079, + .11495, .02438, .01080, .00041, .00030, + .00013, .00045, .00074, + .11054, .02335, .00998, .00040, .00028, + .00013, .00043, .00070, + .10652, .02242, .00928, .00038, .00027, + .00013, .00042, .00067, + .10286, .02157, .00867, .00036, .00026, + .00012, .00040, .00065 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09932, .02075, .00810, .00034, .00025, + .00012, .00038, .00063, + .09591, .01997, .00758, .00033, .00025, + .00012, .00036, .00059, + .09280, .01927, .00712, .00032, .00024, + .00011, .00035, .00057, + .08994, .01862, .00672, .00031, .00023, + .00011, .00034, .00055, + .08715, .01798, .00634, .00029, .00022, + .00011, .00033, .00053 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .37778, .08928, .17655, .00085, .00007, + -.00001, .00082, .00234, + .36055, .08466, .15797, .00087, .00012, + -.00002, .00082, .00224, + .33664, .07828, .13409, .00088, .00017, + -.00003, .00082, .00208, + .32036, .07398, .11907, .00087, .00021, + -.00002, .00082, .00198, + .30422, .06977, .10518, .00085, .00024, + -.00001, .00081, .00188, + .29106, .06637, .09459, .00081, .00027, + -.00001, .00079, .00180, + .27899, .06327, .08547, .00081, .00028, + -.00001, .00078, .00172, + .26680, .06017, .07680, .00079, .00029, + -.00002, .00076, .00163 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25670, .05760, .07000, .00078, .00030, + -.00003, .00074, .00156, + .24731, .05524, .06406, .00076, .00030, + -.00002, .00072, .00150, + .24015, .05345, .05974, .00074, .00030, + -.00001, .00070, .00146, + .22561, .04985, .05152, .00072, .00031, + -.00001, .00067, .00135, + .21386, .04695, .04543, .00069, .00031, + -.00001, .00063, .00128, + .20158, .04394, .03954, .00064, .00031, + .00001, .00060, .00120, + .18964, .04104, .03429, .00059, .00030, + .00002, .00057, .00110, + .17945, .03861, .03018, .00057, .00029, + .00004, .00055, .00103 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16977, .03629, .02658, .00053, .00029, + .00005, .00051, .00098, + .16215, .03449, .02397, .00052, .00029, + .00006, .00049, .00092, + .15343, .03245, .02118, .00050, .00028, + .00006, .00047, .00085, + .14615, .03076, .01901, .00049, .00027, + .00007, .00044, .00080, + .13981, .02929, .01724, .00046, .00026, + .00007, .00041, .00076, + .13222, .02754, .01526, .00042, .00024, + .00007, .00038, .00071, + .12545, .02600, .01363, .00042, .00023, + .00007, .00037, .00067, + .11946, .02463, .01229, .00040, .00022, + .00007, .00036, .00063 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11381, .02335, .01110, .00038, .00021, + .00008, .00034, .00060, + .10854, .02217, .01007, .00035, .00020, + .00008, .00032, .00057, + .10381, .02111, .00919, .00033, .00019, + .00007, .00030, .00054, + .09955, .02016, .00845, .00031, .00019, + .00007, .00028, .00051, + .09547, .01926, .00777, .00029, .00018, + .00006, .00027, .00048, + .09165, .01841, .00717, .00028, .00017, + .00007, .00026, .00046, + .08816, .01764, .00664, .00026, .00016, + .00007, .00024, .00044, + .08497, .01695, .00619, .00026, .00015, + .00006, .00023, .00041 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08188, .01628, .00577, .00025, .00015, + .00006, .00022, .00039, + .07892, .01564, .00539, .00025, .00014, + .00006, .00021, .00038, + .07622, .01507, .00506, .00025, .00014, + .00006, .00021, .00037, + .07376, .01454, .00476, .00024, .00013, + .00006, .00020, .00035, + .07137, .01402, .00448, .00023, .00013, + .00006, .00020, .00033 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .33372, .07453, .14511, .00048, .00009, + .00003, .00058, .00151, + .31760, .07047, .12898, .00050, .00012, + .00004, .00058, .00144, + .29528, .06489, .10838, .00050, .00015, + .00004, .00057, .00137, + .28015, .06115, .09555, .00049, .00018, + .00004, .00056, .00130, + .26519, .05750, .08380, .00049, .00021, + .00003, .00055, .00122, + .25299, .05457, .07492, .00051, .00022, + .00003, .00055, .00115, + .24191, .05189, .06730, .00050, .00022, + .00003, .00053, .00110, + .23074, .04921, .06012, .00049, .00022, + .00003, .00052, .00105 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22148, .04702, .05455, .00048, .00022, + .00003, .00050, .00101, + .21293, .04500, .04967, .00046, .00022, + .00003, .00049, .00097, + .20644, .04347, .04614, .00044, .00023, + .00003, .00048, .00094, + .19323, .04039, .03949, .00044, .00023, + .00003, .00045, .00087, + .18261, .03793, .03459, .00042, .00023, + .00003, .00043, .00081, + .17153, .03539, .02990, .00040, .00022, + .00003, .00041, .00076, + .16080, .03294, .02574, .00037, .00022, + .00005, .00039, .00072, + .15170, .03089, .02252, .00036, .00021, + .00005, .00036, .00067 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .14308, .02895, .01972, .00033, .00020, + .00005, .00033, .00062, + .13633, .02745, .01769, .00032, .00020, + .00005, .00032, .00058, + .12862, .02575, .01554, .00031, .00019, + .00006, .00030, .00054, + .12221, .02434, .01388, .00029, .00018, + .00006, .00029, .00051, + .11662, .02312, .01254, .00027, .00017, + .00006, .00027, .00049, + .10995, .02168, .01105, .00026, .00016, + .00006, .00026, .00045, + .10405, .02041, .00982, .00025, .00015, + .00005, .00024, .00042, + .09883, .01929, .00882, .00024, .00015, + .00005, .00023, .00039 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09391, .01825, .00793, .00023, .00014, + .00005, .00022, .00037, + .08934, .01728, .00716, .00021, .00014, + .00005, .00021, .00035, + .08526, .01642, .00652, .00020, .00013, + .00005, .00020, .00033, + .08158, .01565, .00597, .00019, .00012, + .00005, .00018, .00031, + .07806, .01491, .00548, .00019, .00012, + .00005, .00017, .00029, + .07475, .01422, .00504, .00019, .00011, + .00005, .00017, .00028, + .07175, .01360, .00466, .00018, .00011, + .00005, .00016, .00026, + .06905, .01305, .00433, .00017, .00010, + .00005, .00015, .00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06643, .01251, .00403, .00016, .00010, + .00004, .00014, .00024, + .06392, .01200, .00375, .00015, .00009, + .00004, .00014, .00023, + .06163, .01154, .00351, .00014, .00009, + .00004, .00013, .00022, + .05953, .01112, .00330, .00014, .00008, + .00004, .00013, .00021, + .05749, .01071, .00310, .00014, .00008, + .00004, .00012, .00020 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .29107, .06136, .11765, .00027, .00008, + .00005, .00039, .00093, + .27617, .05785, .10382, .00028, .00011, + .00005, .00039, .00089, + .25563, .05306, .08636, .00028, .00013, + .00005, .00039, .00084, + .24176, .04985, .07559, .00029, .00014, + .00004, .00038, .00080, + .22812, .04671, .06580, .00030, .00016, + .00003, .00037, .00077, + .21708, .04419, .05846, .00030, .00016, + .00003, .00037, .00073, + .20701, .04194, .05222, .00030, .00016, + .00003, .00036, .00068, + .19690, .03968, .04637, .00030, .00017, + .00003, .00035, .00065 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18858, .03780, .04184, .00029, .00017, + .00003, .00034, .00063, + .18089, .03610, .03791, .00028, .00017, + .00003, .00032, .00061, + .17505, .03482, .03509, .00028, .00017, + .00003, .00031, .00059, + .16328, .03223, .02979, .00025, .00017, + .00003, .00029, .00055, + .15381, .03018, .02592, .00025, .00016, + .00003, .00028, .00052, + .14397, .02805, .02223, .00024, .00016, + .00003, .00027, .00047, + .13452, .02602, .01901, .00022, .00015, + .00003, .00025, .00043, + .12653, .02432, .01653, .00020, .00015, + .00004, .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)/ + .11892, .02274, .01439, .00021, .00014, + .00004, .00022, .00038, + .11302, .02150, .01284, .00020, .00014, + .00004, .00021, .00036, + .10631, .02011, .01122, .00018, .00013, + .00005, .00020, .00033, + .10073, .01896, .00997, .00017, .00013, + .00004, .00020, .00031, + .09591, .01797, .00897, .00015, .00012, + .00004, .00018, .00030, + .09016, .01679, .00785, .00013, .00011, + .00004, .00017, .00028, + .08506, .01576, .00696, .00015, .00011, + .00004, .00016, .00026, + .08057, .01486, .00622, .00015, .00010, + .00004, .00015, .00024 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07637, .01402, .00557, .00014, .00010, + .00004, .00014, .00023, + .07246, .01324, .00501, .00013, .00009, + .00004, .00013, .00022, + .06899, .01255, .00454, .00012, .00009, + .00003, .00012, .00020, + .06588, .01193, .00415, .00011, .00009, + .00004, .00012, .00019, + .06290, .01135, .00380, .00010, .00008, + .00004, .00011, .00018, + .06011, .01080, .00348, .00009, .00007, + .00003, .00010, .00018, + .05758, .01031, .00321, .00009, .00007, + .00003, .00010, .00018, + .05528, .00987, .00298, .00010, .00007, + .00003, .00010, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05306, .00945, .00276, .00010, .00007, + .00003, .00009, .00015, + .05098, .00905, .00257, .00009, .00006, + .00003, .00009, .00014, + .04908, .00868, .00240, .00008, .00006, + .00003, .00009, .00014, + .04734, .00835, .00225, .00008, .00006, + .00003, .00008, .00013, + .04565, .00803, .00211, .00008, .00006, + .00003, .00008, .00012 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .25045, .04984, .09407, .00021, .00003, + .00000, .00022, .00058, + .23694, .04687, .08242, .00021, .00005, + .00001, .00022, .00054, + .21836, .04280, .06785, .00022, .00007, + .00000, .00023, .00051, + .20587, .04009, .05898, .00023, .00008, + .00000, .00022, .00050, + .19365, .03745, .05097, .00021, .00008, + .00000, .00021, .00048, + .18380, .03534, .04499, .00020, .00008, + .00000, .00020, .00045, + .17485, .03343, .03996, .00018, .00009, + .00000, .00020, .00043, + .16586, .03154, .03527, .00018, .00009, + .00000, .00020, .00042 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15844, .03000, .03167, .00020, .00010, + .00000, .00019, .00040, + .15164, .02858, .02856, .00019, .00010, + .00000, .00018, .00039, + .14650, .02751, .02633, .00018, .00009, + .00000, .00018, .00037, + .13615, .02538, .02218, .00016, .00010, + -.00001, .00017, .00035, + .12785, .02369, .01917, .00017, .00010, + .00000, .00016, .00031, + .11926, .02196, .01633, .00017, .00010, + .00001, .00016, .00028, + .11103, .02030, .01387, .00016, .00009, + .00001, .00015, .00027, + .10408, .01892, .01199, .00016, .00008, + .00001, .00014, .00025 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09756, .01763, .01037, .00014, .00008, + .00002, .00013, .00023, + .09249, .01663, .00921, .00013, .00008, + .00002, .00012, .00022, + .08672, .01550, .00800, .00013, .00007, + .00002, .00011, .00020, + .08195, .01457, .00707, .00012, .00007, + .00002, .00010, .00019, + .07783, .01378, .00633, .00011, .00007, + .00002, .00010, .00018, + .07294, .01284, .00552, .00010, .00007, + .00002, .00010, .00017, + .06861, .01202, .00486, .00010, .00006, + .00002, .00009, .00016, + .06483, .01130, .00433, .00010, .00006, + .00002, .00008, .00015 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06129, .01063, .00387, .00009, .00005, + .00002, .00008, .00014, + .05801, .01002, .00347, .00009, .00005, + .00002, .00007, .00013, + .05509, .00948, .00313, .00008, .00005, + .00002, .00007, .00012, + .05249, .00899, .00285, .00008, .00005, + .00002, .00007, .00011, + .05001, .00853, .00260, .00007, .00005, + .00002, .00006, .00011, + .04769, .00811, .00238, .00007, .00004, + .00002, .00006, .00010, + .04559, .00772, .00219, .00007, .00004, + .00001, .00005, .00009, + .04369, .00738, .00202, .00007, .00004, + .00001, .00005, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04187, .00705, .00187, .00007, .00004, + .00001, .00005, .00008, + .04015, .00673, .00174, .00006, .00003, + .00001, .00005, .00008, + .03859, .00645, .00162, .00005, .00003, + .00001, .00005, .00008, + .03716, .00619, .00152, .00005, .00003, + .00001, .00005, .00008, + .03577, .00594, .00142, .00005, .00003, + .00001, .00004, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .21211, .03964, .07368, .00004, .00004, + .00004, .00016, .00034, + .20001, .03715, .06409, .00007, .00005, + .00004, .00016, .00033, + .18351, .03378, .05223, .00009, .00007, + .00004, .00016, .00031, + .17244, .03155, .04506, .00010, .00007, + .00003, .00016, .00029, + .16164, .02938, .03863, .00010, .00008, + .00003, .00016, .00027, + .15298, .02764, .03389, .00010, .00007, + .00004, .00015, .00026, + .14511, .02609, .02991, .00010, .00008, + .00003, .00014, .00024, + .13727, .02454, .02624, .00010, .00008, + .00003, .00014, .00022 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13086, .02328, .02344, .00009, .00008, + .00003, .00014, .00021, + .12495, .02213, .02102, .00009, .00008, + .00003, .00013, .00021, + .12047, .02127, .01930, .00008, .00008, + .00002, .00013, .00020, + .11151, .01955, .01612, .00009, .00007, + .00002, .00012, .00019, + .10439, .01819, .01384, .00008, .00007, + .00002, .00011, .00018, + .09704, .01679, .01171, .00007, .00007, + .00002, .00010, .00017, + .09000, .01547, .00987, .00008, .00007, + .00002, .00010, .00016, + .08408, .01437, .00847, .00008, .00006, + .00002, .00010, .00014 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07855, .01334, .00728, .00007, .00006, + .00002, .00008, .00013, + .07427, .01255, .00643, .00006, .00006, + .00002, .00008, .00012, + .06942, .01166, .00555, .00006, .00005, + .00002, .00007, .00012, + .06542, .01094, .00489, .00005, .00005, + .00002, .00007, .00011, + .06196, .01031, .00436, .00005, .00005, + .00002, .00007, .00010, + .05787, .00958, .00378, .00006, .00004, + .00002, .00006, .00009, + .05430, .00894, .00331, .00005, .00004, + .00002, .00006, .00009, + .05117, .00838, .00294, .00004, .00004, + .00002, .00006, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04823, .00787, .00261, .00004, .00004, + .00002, .00005, .00008, + .04552, .00739, .00233, .00004, .00004, + .00002, .00005, .00007, + .04313, .00697, .00210, .00004, .00003, + .00001, .00005, .00007, + .04099, .00660, .00191, .00004, .00003, + .00001, .00004, .00006, + .03896, .00625, .00173, .00004, .00003, + .00001, .00004, .00006, + .03706, .00592, .00158, .00003, .00003, + .00001, .00004, .00005, + .03535, .00563, .00145, .00003, .00003, + .00001, .00004, .00005, + .03381, .00537, .00134, .00004, .00003, + .00001, .00004, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03234, .00512, .00124, .00004, .00003, + .00001, .00003, .00005, + .03095, .00488, .00114, .00003, .00002, + .00001, .00003, .00004, + .02969, .00467, .00106, .00003, .00002, + .00001, .00003, .00004, + .02854, .00447, .00100, .00003, .00002, + .00001, .00003, .00004, + .02742, .00429, .00093, .00003, .00002, + .00001, .00003, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .14464, .02376, .04271, .00003, .00001, + .00000, .00005, .00011, + .13551, .02212, .03659, .00004, .00001, + .00000, .00005, .00010, + .12316, .01992, .02916, .00004, .00002, + .00000, .00005, .00010, + .11497, .01848, .02477, .00003, .00002, + .00000, .00005, .00008, + .10702, .01709, .02091, .00003, .00003, + .00000, .00005, .00008, + .10066, .01598, .01810, .00003, .00003, + .00000, .00005, .00008, + .09495, .01500, .01578, .00003, .00002, + .00000, .00005, .00008, + .08929, .01403, .01366, .00003, .00002, + .00000, .00004, .00007 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08468, .01324, .01207, .00002, .00003, + .00000, .00004, .00007, + .08047, .01252, .01071, .00002, .00003, + .00000, .00004, .00008, + .07729, .01199, .00976, .00001, .00003, + .00000, .00004, .00008, + .07096, .01093, .00802, .00003, .00003, + .00000, .00004, .00006, + .06598, .01010, .00678, .00003, .00002, + .00000, .00004, .00005, + .06087, .00926, .00565, .00003, .00002, + .00001, .00003, .00005, + .05602, .00846, .00469, .00003, .00002, + .00001, .00003, .00005, + .05199, .00781, .00397, .00002, .00002, + .00000, .00003, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04823, .00720, .00337, .00002, .00002, + .00000, .00003, .00004, + .04535, .00673, .00295, .00002, .00002, + .00000, .00002, .00004, + .04211, .00622, .00252, .00002, .00002, + .00001, .00002, .00003, + .03945, .00580, .00219, .00001, .00002, + .00001, .00002, .00003, + .03716, .00544, .00194, .00001, .00002, + .00001, .00002, .00003, + .03446, .00502, .00166, .00001, .00001, + .00000, .00002, .00003, + .03213, .00465, .00144, .00001, .00001, + .00001, .00002, .00003, + .03010, .00434, .00127, .00002, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02822, .00405, .00112, .00002, .00001, + .00001, .00002, .00002, + .02649, .00378, .00099, .00001, .00001, + .00001, .00002, .00002, + .02497, .00355, .00089, .00001, .00001, + .00001, .00001, .00002, + .02361, .00334, .00080, .00001, .00001, + .00000, .00001, .00002, + .02233, .00315, .00072, .00001, .00001, + .00000, .00001, .00002, + .02115, .00297, .00066, .00001, .00001, + .00000, .00001, .00001, + .02009, .00281, .00060, .00001, .00001, + .00001, .00001, .00001, + .01913, .00267, .00055, .00001, .00001, + .00001, .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)/ + .01822, .00254, .00051, .00001, .00001, + .00001, .00001, .00001, + .01737, .00241, .00047, .00001, .00001, + .00000, .00001, .00001, + .01660, .00229, .00043, .00000, .00001, + .00000, .00001, .00001, + .01589, .00219, .00040, .00000, .00001, + .00000, .00001, .00001, + .01522, .00209, .00038, .00000, .00001, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .09067, .01289, .02237, .00002, .00000, + -.00001, .00000, .00003, + .08437, .01192, .01886, .00001, .00000, + -.00001, .00001, .00002, + .07589, .01063, .01469, .00002, .00000, + .00000, .00001, .00002, + .07031, .00978, .01227, .00002, .00000, + .00000, .00001, .00002, + .06496, .00898, .01019, .00001, .00000, + .00000, .00001, .00003, + .06073, .00835, .00869, .00000, .00001, + .00000, .00001, .00002, + .05694, .00779, .00748, .00000, .00001, + .00000, .00001, .00002, + .05319, .00724, .00638, .00001, .00001, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05015, .00679, .00557, .00002, .00001, + .00000, .00001, .00002, + .04740, .00639, .00489, .00002, .00000, + .00000, .00001, .00002, + .04534, .00610, .00442, .00001, .00000, + .00000, .00001, .00002, + .04128, .00551, .00356, .00001, .00001, + .00000, .00001, .00002, + .03810, .00505, .00297, .00001, .00001, + .00000, .00001, .00002, + .03487, .00459, .00243, .00000, .00001, + .00000, .00001, .00002, + .03183, .00416, .00199, .00000, .00001, + .00000, .00001, .00001, + .02932, .00381, .00166, .00000, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02699, .00349, .00139, .00000, .00000, + .00000, .00000, .00001, + .02522, .00325, .00120, .00001, .00000, + .00000, .00001, .00001, + .02324, .00297, .00101, .00001, .00000, + .00000, .00001, .00001, + .02162, .00276, .00087, .00001, .00000, + .00000, .00001, .00001, + .02026, .00257, .00077, .00001, .00000, + .00000, .00001, .00001, + .01867, .00235, .00065, .00000, .00000, + .00000, .00000, .00001, + .01728, .00217, .00056, .00000, .00000, + .00000, .00000, .00001, + .01609, .00201, .00049, .00000, .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)/ + .01499, .00186, .00043, .00000, .00000, + .00000, .00000, .00000, + .01398, .00173, .00037, .00000, .00000, + .00000, .00000, .00000, + .01310, .00162, .00033, .00000, .00000, + .00000, .00000, .00000, + .01233, .00151, .00030, .00000, .00000, + .00000, .00000, .00000, + .01160, .00142, .00027, .00000, .00000, + .00000, .00000, .00000, + .01093, .00133, .00024, .00000, .00000, + .00000, .00000, .00000, + .01033, .00126, .00022, .00000, .00000, + .00000, .00000, .00000, + .00980, .00119, .00020, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00929, .00112, .00018, .00000, .00000, + .00000, .00000, .00000, + .00881, .00106, .00017, .00000, .00000, + .00000, .00000, .00000, + .00839, .00101, .00016, .00000, .00000, + .00000, .00000, .00000, + .00800, .00096, .00015, .00000, .00000, + .00000, .00000, .00000, + .00762, .00091, .00014, .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)/ + .05089, .00613, .01023, .00001, .00000, + -.00001, .00000, .00001, + .04697, .00563, .00848, .00001, .00000, + .00000, .00000, .00000, + .04178, .00496, .00644, .00000, .00000, + -.00001, .00000, .00000, + .03840, .00453, .00528, .00000, .00000, + .00000, .00000, .00001, + .03517, .00412, .00430, .00000, .00000, + .00000, .00000, .00001, + .03264, .00381, .00361, .00000, .00000, + .00000, .00000, .00001, + .03039, .00353, .00306, .00000, .00000, + .00000, .00000, .00001, + .02819, .00325, .00258, .00000, .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)/ + .02642, .00304, .00222, .00000, .00000, + .00000, .00000, .00000, + .02483, .00284, .00192, .00000, .00000, + .00000, .00000, .00000, + .02364, .00270, .00172, .00000, .00000, + .00000, .00000, .00000, + .02131, .00241, .00136, .00000, .00000, + .00000, .00000, .00000, + .01950, .00220, .00112, .00000, .00000, + .00000, .00000, .00000, + .01769, .00198, .00090, .00000, .00000, + .00000, .00000, .00000, + .01599, .00178, .00072, .00000, .00000, + .00000, .00000, .00000, + .01461, .00161, .00059, .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)/ + .01334, .00147, .00049, .00000, .00000, + .00000, .00000, .00000, + .01238, .00135, .00042, .00000, .00000, + .00000, .00000, .00000, + .01131, .00123, .00035, .00000, .00000, + .00000, .00000, .00000, + .01045, .00113, .00030, .00000, .00000, + .00000, .00000, .00000, + .00973, .00105, .00026, .00000, .00000, + .00000, .00000, .00000, + .00889, .00095, .00022, .00000, .00000, + .00000, .00000, .00000, + .00817, .00087, .00018, .00000, .00000, + .00000, .00000, .00000, + .00755, .00080, .00016, .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)/ + .00698, .00074, .00014, .00000, .00000, + .00000, .00000, .00000, + .00648, .00068, .00012, .00000, .00000, + .00000, .00000, .00000, + .00603, .00063, .00011, .00000, .00000, + .00000, .00000, .00000, + .00564, .00059, .00009, .00000, .00000, + .00000, .00000, .00000, + .00527, .00055, .00008, .00000, .00000, + .00000, .00000, .00000, + .00494, .00051, .00008, .00000, .00000, + .00000, .00000, .00000, + .00464, .00048, .00007, .00000, .00000, + .00000, .00000, .00000, + .00438, .00045, .00006, .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)/ + .00413, .00042, .00006, .00000, .00000, + .00000, .00000, .00000, + .00390, .00040, .00005, .00000, .00000, + .00000, .00000, .00000, + .00369, .00038, .00005, .00000, .00000, + .00000, .00000, .00000, + .00351, .00036, .00005, .00000, .00000, + .00000, .00000, .00000, + .00333, .00034, .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)/ + .02431, .00240, .00384, .00000, .00000, + .00000, .00000, .00000, + .02224, .00218, .00311, .00000, .00000, + .00000, .00000, .00000, + .01952, .00190, .00230, .00000, .00000, + .00000, .00000, .00000, + .01777, .00172, .00185, .00000, .00000, + .00000, .00000, .00000, + .01612, .00155, .00147, .00000, .00000, + .00000, .00000, .00000, + .01484, .00142, .00121, .00000, .00000, + .00000, .00000, .00000, + .01371, .00131, .00101, .00000, .00000, + .00000, .00000, .00000, + .01261, .00119, .00084, .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)/ + .01174, .00111, .00071, .00000, .00000, + .00000, .00000, .00000, + .01095, .00103, .00061, .00000, .00000, + .00000, .00000, .00000, + .01037, .00097, .00054, .00000, .00000, + .00000, .00000, .00000, + .00924, .00086, .00041, .00000, .00000, + .00000, .00000, .00000, + .00838, .00077, .00033, .00000, .00000, + .00000, .00000, .00000, + .00752, .00069, .00026, .00000, .00000, + .00000, .00000, .00000, + .00673, .00061, .00021, .00000, .00000, + .00000, .00000, .00000, + .00608, .00055, .00017, .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)/ + .00550, .00050, .00014, .00000, .00000, + .00000, .00000, .00000, + .00506, .00045, .00012, .00000, .00000, + .00000, .00000, .00000, + .00458, .00041, .00009, .00000, .00000, + .00000, .00000, .00000, + .00420, .00037, .00008, .00000, .00000, + .00000, .00000, .00000, + .00388, .00034, .00007, .00000, .00000, + .00000, .00000, .00000, + .00351, .00031, .00006, .00000, .00000, + .00000, .00000, .00000, + .00320, .00028, .00005, .00000, .00000, + .00000, .00000, .00000, + .00293, .00026, .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=25,32)/ + .00269, .00023, .00004, .00000, .00000, + .00000, .00000, .00000, + .00247, .00021, .00003, .00000, .00000, + .00000, .00000, .00000, + .00229, .00020, .00003, .00000, .00000, + .00000, .00000, .00000, + .00212, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00017, .00002, .00000, .00000, + .00000, .00000, .00000, + .00184, .00016, .00002, .00000, .00000, + .00000, .00000, .00000, + .00171, .00015, .00002, .00000, .00000, + .00000, .00000, .00000, + .00161, .00014, .00002, .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, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00141, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00133, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00126, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00119, .00010, .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)/ + .00220, .00012, .00017, .00000, .00000, + .00000, .00000, .00000, + .00196, .00011, .00013, .00000, .00000, + .00000, .00000, .00000, + .00165, .00009, .00009, .00000, .00000, + .00000, .00000, .00000, + .00147, .00008, .00007, .00000, .00000, + .00000, .00000, .00000, + .00129, .00007, .00005, .00000, .00000, + .00000, .00000, .00000, + .00116, .00006, .00004, .00000, .00000, + .00000, .00000, .00000, + .00105, .00006, .00003, .00000, .00000, + .00000, .00000, .00000, + .00094, .00005, .00002, .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)/ + .00086, .00005, .00002, .00000, .00000, + .00000, .00000, .00000, + .00079, .00004, .00002, .00000, .00000, + .00000, .00000, .00000, + .00073, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00063, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00056, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00048, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00042, .00002, .00001, .00000, .00000, + .00000, .00000, .00000, + .00037, .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=17,24)/ + .00032, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .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=25,32)/ + .00013, .00001, .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, + .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)/ + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .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='MRSR3.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