#include "pdf/pilot.h" SUBROUTINE SFMSR4(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C #include "pdf/impdp.inc" C PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8) C #include "pdf/expdp.inc" + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00085, .00577, 2.56858, .38075, .00454, + .00000, .22725, .38319, + .00101, .00587, 4.01857, .46959, .01054, + .00000, .30477, .47228, + .00125, .00603, 6.81849, .63039, .02592, + .00000, .44554, .63344, + .00143, .00614, 9.43938, .77039, .04470, + .00000, .56873, .77369, + .00161, .00625, 12.75915, .93797, .07493, + .00000, .71723, .94153, + .00177, .00636, 16.13222, 1.09925, .11332, + .00000, .86140, 1.10304, + .00193, .00645, 19.85547, 1.26857, .16497, + .00000, 1.01433, 1.27256, + .00209, .00656, 24.29172, 1.46164, .24055, + .00000, 1.19106, 1.46586 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00224, .00665, 28.61800, 1.64040, .32852, + .00000, 1.35722, 1.64480, + .00238, .00674, 33.27514, 1.82287, .43786, + .00000, 1.52960, 1.82745, + .00249, .00681, 37.23265, 1.97163, .54366, + .00000, 1.67250, 1.97635, + .00273, .00696, 46.68842, 2.30432, .83561, + .00000, 1.99997, 2.30934, + .00294, .00709, 55.90504, 2.60501, 1.16498, + .09285, 2.30524, 2.61028, + .00318, .00724, 67.43512, 2.95954, 1.61773, + .42666, 2.67434, 2.96508, + .00343, .00739, 80.85163, 3.35709, 2.17214, + .90696, 3.09485, 3.36291, + .00366, .00753, 94.33593, 3.75256, 2.73373, + 1.36649, 3.51455, 3.75864 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00390, .00768, 109.24551, 4.19324, 3.34208, + 1.87519, 3.97967, 4.19957, + .00409, .00780, 122.62965, 4.59523, 3.87113, + 2.32900, 4.40021, 4.60177, + .00433, .00795, 140.00378, 5.12802, 4.53496, + 2.91779, 4.95219, 5.13481, + .00455, .00808, 156.53906, 5.64486, 5.14401, + 3.47700, 5.48261, 5.65186, + .00475, .00820, 172.76350, 6.15896, 5.72387, + 4.02424, 6.00648, 6.16616, + .00501, .00835, 194.48903, 6.85921, 6.48538, + 4.75983, 6.71594, 6.86664, + .00525, .00850, 216.24652, 7.56982, 7.23542, + 5.49809, 7.43261, 7.57748, + .00549, .00864, 237.91757, 8.28391, 7.97451, + 6.23434, 8.15068, 8.29178 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00572, .00878, 260.72931, 9.04224, 8.74955, + 7.01215, 8.91178, 9.05032, + .00595, .00892, 284.01913, 9.82395, 9.54204, + 7.81108, 9.69541, 9.83223, + .00617, .00906, 307.27795, 10.60802, 10.33283, + 8.61019, 10.48079, 10.61649, + .00638, .00918, 329.87732, 11.37711, 11.10617, + 9.39267, 11.25081, 11.38574, + .00660, .00931, 353.61807, 12.18847, 11.92046, + 10.21689, 12.06291, 12.19728, + .00681, .00944, 377.71402, 13.01834, 12.75233, + 11.05900, 12.89338, 13.02731, + .00701, .00956, 401.46371, 13.84067, 13.57605, + 11.89264, 13.71621, 13.84980, + .00721, .00967, 424.54773, 14.64564, 14.38203, + 12.70811, 14.52160, 14.65491 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .00741, .00979, 448.64511, 15.48957, 15.22679, + 13.56243, 15.36592, 15.49900, + .00760, .00991, 472.87659, 16.34567, 16.08359, + 14.42863, 16.22239, 16.35524, + .00779, .01002, 496.93295, 17.19730, 16.93581, + 15.28976, 17.07436, 17.20701, + .00798, .01013, 519.86127, 18.01829, 17.75731, + 16.11967, 17.89566, 18.02812, + .00816, .01024, 543.92712, 18.88156, 18.62108, + 16.99184, 18.75923, 18.89152 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00192, .00721, 2.37730, .36163, .00407, + .00000, .21337, .36402, + .00215, .00736, 3.65051, .43973, .00937, + .00000, .28151, .44229, + .00249, .00758, 6.05576, .57854, .02273, + .00000, .40303, .58137, + .00275, .00774, 8.26371, .69738, .03884, + .00000, .50764, .70039, + .00301, .00791, 11.01689, .83774, .06452, + .00000, .63206, .84094, + .00324, .00805, 13.77586, .97120, .09684, + .00000, .75145, .97456, + .00346, .00819, 16.78551, 1.10984, .13997, + .00000, .87680, 1.11335, + .00369, .00833, 20.32963, 1.26633, .20263, + .00000, 1.02025, 1.27000 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00390, .00846, 23.75004, 1.40981, .27503, + .00000, 1.15390, 1.41362, + .00410, .00858, 27.39928, 1.55500, .36443, + .00000, 1.29142, 1.55893, + .00426, .00868, 30.47500, 1.67248, .45047, + .00000, 1.40464, 1.67651, + .00460, .00889, 37.74792, 1.93251, .68597, + .00000, 1.66166, 1.93676, + .00490, .00907, 44.74713, 2.16461, .94902, + .07250, 1.89860, 2.16904, + .00523, .00927, 53.39957, 2.43525, 1.30695, + .33138, 2.18216, 2.43988, + .00558, .00948, 63.34490, 2.73565, 1.74029, + .70091, 2.50202, 2.74048, + .00591, .00968, 73.22697, 3.03205, 2.17423, + 1.05088, 2.81847, 3.03706 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00624, .00987, 84.03941, 3.36013, 2.63907, + 1.43501, 3.16650, 3.36532, + .00651, .01004, 93.65524, 3.65772, 3.03915, + 1.77503, 3.47906, 3.66306, + .00685, .01024, 106.02145, 4.04990, 3.53605, + 2.21284, 3.88660, 4.05542, + .00715, .01041, 117.68421, 4.42815, 3.98735, + 2.62551, 4.27562, 4.43382, + .00743, .01058, 129.03972, 4.80241, 4.41336, + 3.02670, 4.65760, 4.80823, + .00779, .01079, 144.11060, 5.30907, 4.96791, + 3.56212, 5.17148, 5.31505, + .00813, .01099, 159.06821, 5.81983, 5.50929, + 4.09547, 5.68698, 5.82598, + .00845, .01117, 173.84781, 6.32995, 6.03873, + 4.62379, 6.20019, 6.33625 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .00877, .01136, 189.28453, 6.86840, 6.59007, + 5.17834, 6.74081, 6.87485, + .00909, .01155, 204.92181, 7.42008, 7.15004, + 5.74432, 7.29399, 7.42667, + .00940, .01172, 220.43465, 7.97040, 7.70554, + 6.30719, 7.84534, 7.97713, + .00969, .01189, 235.40076, 8.50724, 8.24568, + 6.85524, 8.38293, 8.51409, + .00998, .01206, 251.02997, 9.07080, 8.81153, + 7.42960, 8.94708, 9.07777, + .01027, .01223, 266.79172, 9.64426, 9.38659, + 8.01335, 9.52104, 9.65136, + .01055, .01239, 282.23801, 10.20985, 9.95331, + 8.58847, 10.08704, 10.21707, + .01082, .01254, 297.16647, 10.76098, 10.50528, + 9.14844, 10.63853, 10.76830 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01109, .01269, 312.67249, 11.33640, 11.08141, + 9.73261, 11.21427, 11.34383, + .01136, .01285, 328.17569, 11.91746, 11.66307, + 10.32218, 11.79564, 11.92499, + .01161, .01300, 343.50232, 12.49337, 12.23951, + 10.90610, 12.37185, 12.50101, + .01186, .01314, 358.02451, 13.04610, 12.79271, + 11.46635, 12.92485, 13.05383, + .01211, .01328, 373.21063, 13.62540, 13.37245, + 12.05314, 13.50441, 13.63322 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00358, .00903, 2.19981, .34318, .00363, + .00000, .20022, .34559, + .00392, .00924, 3.31547, .41147, .00828, + .00000, .25980, .41400, + .00441, .00955, 5.37717, .53068, .01985, + .00000, .36418, .53339, + .00477, .00977, 7.23278, .63106, .03361, + .00000, .45256, .63390, + .00515, .01000, 9.51015, .74803, .05533, + .00000, .55632, .75101, + .00548, .01020, 11.76054, .85793, .08243, + .00000, .65471, .86102, + .00580, .01039, 14.18619, .97089, .11831, + .00000, .75696, .97408, + .00613, .01059, 17.00868, 1.09710, .17005, + .00000, .87285, 1.10041 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .00643, .01077, 19.70396, 1.21171, .22942, + .00000, .97984, 1.21511, + .00671, .01094, 22.55363, 1.32665, .30227, + .00000, 1.08903, 1.33014, + .00694, .01107, 24.93547, 1.41895, .37199, + .00000, 1.17830, 1.42251, + .00742, .01136, 30.50853, 1.62112, .56133, + .00000, 1.37905, 1.62483, + .00784, .01161, 35.80270, 1.79928, .77074, + .05639, 1.56203, 1.80312, + .00831, .01188, 42.26857, 2.00470, 1.05283, + .25640, 1.77878, 2.00867, + .00881, .01217, 49.60823, 2.23036, 1.39049, + .53965, 2.02083, 2.23447, + .00926, .01244, 56.81680, 2.45120, 1.72473, + .80516, 2.25823, 2.45544 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .00972, .01270, 64.61993, 2.69406, 2.07874, + 1.09410, 2.51730, 2.69843, + .01011, .01292, 71.49364, 2.91313, 2.38024, + 1.34787, 2.74844, 2.91760, + .01058, .01319, 80.24876, 3.20025, 2.75081, + 1.67213, 3.04781, 3.20485, + .01100, .01343, 88.42969, 3.47559, 3.08389, + 1.97543, 3.33169, 3.48030, + .01139, .01365, 96.33264, 3.74663, 3.39558, + 2.26835, 3.60880, 3.75144, + .01188, .01393, 106.72553, 4.11129, 3.79761, + 2.65644, 3.97913, 4.11622, + .01235, .01420, 116.94547, 4.47649, 4.18657, + 3.04013, 4.34802, 4.48153, + .01280, .01445, 126.96151, 4.83897, 4.56400, + 3.41760, 4.71293, 4.84412 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01325, .01470, 137.33948, 5.21927, 4.95423, + 3.81122, 5.09492, 5.22452, + .01369, .01495, 147.76689, 5.60650, 5.34787, + 4.21036, 5.48334, 5.61186, + .01411, .01518, 158.04164, 5.99067, 5.73605, + 4.60502, 5.86833, 5.99612, + .01450, .01540, 167.88145, 6.36330, 6.11127, + 4.98706, 6.24156, 6.36884, + .01491, .01563, 178.09494, 6.75254, 6.50233, + 5.38538, 6.63130, 6.75817, + .01531, .01585, 188.32661, 7.14657, 6.89765, + 5.78807, 7.02573, 7.15228, + .01569, .01606, 198.29472, 7.53333, 7.28535, + 6.18286, 7.41284, 7.53913, + .01605, .01626, 207.87163, 7.90845, 7.66119, + 6.56543, 7.78826, 7.91432 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .01642, .01646, 217.76846, 8.29845, 8.05181, + 6.96282, 8.17855, 8.30440, + .01679, .01666, 227.60396, 8.69046, 8.44436, + 7.36201, 8.57082, 8.69648, + .01714, .01686, 237.28651, 9.07756, 8.83195, + 7.75587, 8.95818, 9.08366, + .01747, .01704, 246.40302, 9.44736, 9.20218, + 8.13202, 9.32822, 9.45353, + .01782, .01723, 255.90115, 9.83367, 9.58891, + 8.52466, 9.71477, 9.83991 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00493, .01030, 2.10183, .33263, .00339, + .00000, .19284, .33511, + .00535, .01055, 3.13339, .39558, .00769, + .00000, .24777, .39816, + .00597, .01093, 5.01512, .50433, .01829, + .00000, .34301, .50706, + .00642, .01120, 6.68910, .59502, .03082, + .00000, .42289, .59785, + .00689, .01148, 8.72434, .69989, .05047, + .00000, .51594, .70283, + .00729, .01172, 10.71884, .79771, .07486, + .00000, .60358, .80075, + .00768, .01195, 12.85347, .89766, .10701, + .00000, .69412, .90077, + .00809, .01220, 15.31973, 1.00866, .15317, + .00000, .79615, 1.01187 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .00846, .01241, 17.66008, 1.10888, .20593, + .00000, .88984, 1.11217, + .00881, .01261, 20.12126, 1.20887, .27043, + .00000, .98500, 1.21223, + .00908, .01277, 22.16815, 1.28880, .33197, + .00000, 1.06249, 1.29222, + .00968, .01312, 26.92763, 1.46279, .49831, + .00000, 1.23577, 1.46633, + .01019, .01342, 31.41416, 1.61496, .68125, + .04858, 1.39266, 1.61860, + .01077, .01375, 36.85427, 1.78922, .92623, + .22022, 1.57738, 1.79298, + .01138, .01409, 42.98371, 1.97950, 1.21752, + .46217, 1.78245, 1.98336, + .01193, .01441, 48.96198, 2.16483, 1.50393, + .68760, 1.98254, 2.16880 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01249, .01472, 55.39217, 2.36786, 1.80524, + .93170, 2.19993, 2.37194, + .01296, .01499, 61.02420, 2.55044, 2.06026, + 1.14510, 2.39312, 2.55461, + .01354, .01531, 68.15676, 2.78897, 2.37176, + 1.41654, 2.64238, 2.79324, + .01405, .01559, 74.78467, 3.01697, 2.65002, + 1.66930, 2.87782, 3.02132, + .01452, .01586, 81.15728, 3.24073, 2.90903, + 1.91244, 3.10686, 3.24516, + .01512, .01619, 89.49157, 3.54070, 3.24131, + 2.23321, 3.41175, 3.54523, + .01569, .01650, 97.64192, 3.83995, 3.56104, + 2.54892, 3.71421, 3.84457, + .01622, .01680, 105.59069, 4.13590, 3.86985, + 2.85826, 4.01226, 4.14062 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .01676, .01709, 113.78700, 4.44528, 4.18777, + 3.17959, 4.32311, 4.45008, + .01729, .01739, 121.98212, 4.75915, 4.50716, + 3.50417, 4.63802, 4.76404, + .01780, .01766, 130.02464, 5.06952, 4.82101, + 3.82400, 4.94912, 5.07449, + .01828, .01792, 137.69200, 5.36956, 5.12330, + 4.13254, 5.24970, 5.37460, + .01876, .01819, 145.62180, 5.68205, 5.43740, + 4.45325, 5.56264, 5.68717, + .01924, .01845, 153.53380, 5.99741, 5.75392, + 4.77645, 5.87836, 6.00259, + .01970, .01870, 161.21461, 6.30607, 6.06344, + 5.09239, 6.18735, 6.31132, + .02013, .01893, 168.56754, 6.60461, 6.36265, + 5.39768, 6.48616, 6.60993 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02058, .01917, 176.14275, 6.91421, 6.67284, + 5.71398, 6.79604, 6.91960, + .02101, .01940, 183.64317, 7.22454, 6.98369, + 6.03083, 7.10662, 7.22999, + .02144, .01963, 191.00850, 7.53033, 7.28994, + 6.34274, 7.41265, 7.53584, + .02183, .01985, 197.91620, 7.82164, 7.58167, + 6.63979, 7.70418, 7.82720, + .02224, .02006, 205.09738, 8.12536, 7.88581, + 6.94926, 8.00812, 8.13099 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .00611, .01131, 2.03473, .32523, .00322, + .00000, .18774, .32779, + .00660, .01160, 3.00995, .38456, .00729, + .00000, .23952, .38721, + .00732, .01203, 4.77252, .48630, .01725, + .00000, .32864, .48909, + .00784, .01234, 6.32747, .57057, .02895, + .00000, .40288, .57345, + .00839, .01266, 8.20531, .66748, .04723, + .00000, .48891, .67045, + .00886, .01294, 10.03464, .75744, .06983, + .00000, .56953, .76049, + .00931, .01320, 11.98258, .84894, .09955, + .00000, .65248, .85207, + .00979, .01348, 14.22167, .95014, .14208, + .00000, .74558, .95334 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01021, .01372, 16.33688, 1.04114, .19055, + .00000, .83074, 1.04441, + .01062, .01396, 18.55279, 1.13159, .24965, + .00000, .91694, 1.13492, + .01094, .01414, 20.38906, 1.20366, .30592, + .00000, .98693, 1.20705, + .01163, .01453, 24.63976, 1.35984, .45752, + .00000, 1.14283, 1.36333, + .01222, .01487, 28.62448, 1.49569, .62357, + .04366, 1.28330, 1.49927, + .01289, .01525, 33.43116, 1.65051, .84501, + .19748, 1.44798, 1.65419, + .01359, .01564, 38.81794, 1.81881, 1.10709, + .41361, 1.63002, 1.82260, + .01423, .01599, 44.04568, 1.98220, 1.36352, + .61412, 1.80701, 1.98608 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01487, .01635, 49.64278, 2.16071, 1.63201, + .83046, 1.99868, 2.16469, + .01541, .01665, 54.52503, 2.32090, 1.85824, + 1.01896, 2.16855, 2.32495, + .01607, .01702, 60.68240, 2.52970, 2.13334, + 1.25796, 2.38711, 2.53383, + .01666, .01734, 66.38128, 2.72882, 2.37798, + 1.47980, 2.59299, 2.73303, + .01720, .01763, 71.84218, 2.92383, 2.60484, + 1.69261, 2.79279, 2.92812, + .01788, .01801, 78.95563, 3.18459, 2.89473, + 1.97249, 3.05800, 3.18897, + .01853, .01836, 85.88413, 3.44400, 3.17258, + 2.24707, 3.32032, 3.44847, + .01915, .01870, 92.61746, 3.69990, 3.44003, + 2.51534, 3.57812, 3.70445 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .01976, .01903, 99.53631, 3.96672, 3.71454, + 2.79323, 3.84628, 3.97135, + .02037, .01936, 106.42950, 4.23670, 3.98949, + 3.07315, 4.11721, 4.24140, + .02095, .01967, 113.17472, 4.50305, 4.25899, + 3.34830, 4.38424, 4.50783, + .02149, .01996, 119.58417, 4.75992, 4.51791, + 3.61308, 4.64160, 4.76476, + .02204, .02026, 126.19558, 5.02688, 4.78635, + 3.88770, 4.90898, 5.03179, + .02259, .02055, 132.77275, 5.29568, 5.05624, + 4.16382, 5.17814, 5.30065, + .02311, .02083, 139.14139, 5.55825, 5.31962, + 4.43317, 5.44101, 5.56328, + .02360, .02109, 145.22203, 5.81169, 5.57370, + 4.69292, 5.69472, 5.81678 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02411, .02136, 151.47275, 6.07406, 5.83664, + 4.96154, 5.95735, 6.07921, + .02460, .02162, 157.64485, 6.33651, 6.09960, + 5.23007, 6.22005, 6.34172, + .02508, .02187, 163.69498, 6.59472, 6.35827, + 5.49400, 6.47850, 6.59999, + .02553, .02211, 169.35281, 6.84021, 6.60417, + 5.74485, 6.72419, 6.84552, + .02600, .02236, 175.22527, 7.09581, 6.86018, + 6.00581, 6.98001, 7.10117 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .00717, .01216, 1.98398, .31952, .00310, + .00000, .18385, .32217, + .00772, .01249, 2.91728, .37614, .00699, + .00000, .23327, .37888, + .00853, .01297, 4.59199, .47267, .01647, + .00000, .31785, .47553, + .00912, .01331, 6.05984, .55221, .02756, + .00000, .38794, .55515, + .00974, .01367, 7.82318, .64328, .04483, + .00000, .46881, .64631, + .01027, .01398, 9.53299, .72750, .06613, + .00000, .54433, .73060, + .01078, .01427, 11.34644, .81287, .09406, + .00000, .62176, .81605, + .01132, .01458, 13.42261, .90699, .13395, + .00000, .70840, .91024 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01179, .01484, 15.37700, .99135, .17931, + .00000, .78742, .99466, + .01224, .01510, 17.41828, 1.07495, .23450, + .00000, .86719, 1.07832, + .01260, .01530, 19.10509, 1.14141, .28696, + .00000, .93182, 1.14482, + .01337, .01574, 22.99612, 1.28490, .42794, + .00000, 1.07532, 1.28842, + .01404, .01611, 26.62782, 1.40919, .58188, + .04016, 1.20414, 1.41279, + .01479, .01653, 30.99090, 1.55029, .78652, + .18136, 1.35465, 1.55398, + .01557, .01696, 35.86000, 1.70315, 1.02781, + .37923, 1.52049, 1.70694, + .01628, .01735, 40.56685, 1.85116, 1.26304, + .56221, 1.68125, 1.85503 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .01700, .01775, 45.58806, 2.01255, 1.50839, + .75907, 1.85493, 2.01651, + .01760, .01807, 49.95387, 2.15712, 1.71441, + .93016, 2.00853, 2.16115, + .01833, .01847, 55.44192, 2.34525, 1.96405, + 1.14654, 2.20573, 2.34936, + .01898, .01883, 60.50534, 2.52434, 2.18528, + 1.34687, 2.39109, 2.52853, + .01958, .01915, 65.34453, 2.69944, 2.38982, + 1.53864, 2.57063, 2.70370, + .02035, .01957, 71.62815, 2.93313, 2.65038, + 1.79023, 2.80843, 2.93747, + .02107, .01995, 77.72909, 3.16511, 2.89934, + 2.03645, 3.04310, 3.16953, + .02175, .02032, 83.64171, 3.39348, 3.13836, + 2.27646, 3.27324, 3.39798 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02243, .02068, 89.70061, 3.63112, 3.38308, + 2.52454, 3.51214, 3.63569, + .02310, .02104, 95.71994, 3.87108, 3.62764, + 2.77389, 3.75298, 3.87573, + .02374, .02138, 101.59648, 4.10739, 3.86687, + 3.01852, 3.98993, 4.11211, + .02434, .02170, 107.16599, 4.33485, 4.09625, + 3.25347, 4.21787, 4.33963, + .02495, .02203, 112.89919, 4.57086, 4.33365, + 3.49674, 4.45428, 4.57570, + .02555, .02234, 118.58936, 4.80808, 4.57190, + 3.74089, 4.69184, 4.81298, + .02613, .02265, 124.08789, 5.03943, 4.80403, + 3.97868, 4.92349, 5.04439, + .02668, .02294, 129.32684, 5.26238, 5.02762, + 4.20761, 5.14671, 5.26740 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .02723, .02323, 134.70294, 5.49287, 5.25866, + 4.44403, 5.37745, 5.49794, + .02778, .02351, 139.99979, 5.72306, 5.48936, + 4.67999, 5.60788, 5.72819, + .02830, .02379, 145.18486, 5.94927, 5.71602, + 4.91161, 5.83432, 5.95445, + .02880, .02405, 150.02211, 6.16397, 5.93114, + 5.13141, 6.04923, 6.16920, + .02931, .02432, 155.03711, 6.38728, 6.15486, + 5.35980, 6.27275, 6.39256 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01149, .01529, 1.83282, .30192, .00273, + .00000, .17211, .30501, + .01230, .01575, 2.64519, .35058, .00611, + .00000, .21465, .35375, + .01348, .01641, 4.07025, .43210, .01420, + .00000, .28616, .43539, + .01433, .01688, 5.29387, .49818, .02355, + .00000, .34447, .50155, + .01522, .01737, 6.73957, .57286, .03797, + .00000, .41088, .57631, + .01599, .01779, 8.12089, .64110, .05561, + .00000, .47218, .64463, + .01672, .01819, 9.56762, .70955, .07855, + .00000, .53439, .71315, + .01749, .01861, 11.20301, .78425, .11109, + .00000, .60334, .78791 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .01816, .01898, 12.72532, .85054, .14785, + .00000, .66565, .85427, + .01881, .01933, 14.30028, .91564, .19229, + .00000, .72802, .91943, + .01932, .01960, 15.59008, .96698, .23431, + .00000, .77820, .97081, + .02042, .02019, 18.53244, 1.07661, .34638, + .00000, .88853, 1.08053, + .02136, .02070, 21.24089, 1.17027, .46757, + .03085, .98643, 1.17427, + .02241, .02126, 24.45296, 1.27532, .62707, + .13858, 1.09959, 1.27942, + .02351, .02184, 27.98982, 1.38791, .81301, + .28838, 1.22299, 1.39210, + .02450, .02237, 31.36629, 1.49603, .99216, + .42545, 1.34155, 1.50030 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02551, .02291, 34.92696, 1.61319, 1.17685, + .57163, 1.46866, 1.61755, + .02635, .02335, 37.99105, 1.71761, 1.33022, + .69766, 1.58032, 1.72205, + .02737, .02388, 41.80252, 1.85279, 1.51401, + .85580, 1.72272, 1.85730, + .02828, .02436, 45.28389, 1.98077, 1.67506, + 1.00105, 1.85568, 1.98536, + .02911, .02479, 48.58305, 2.10528, 1.82256, + 1.13913, 1.98370, 2.10994, + .03016, .02534, 52.82338, 2.27042, 2.00859, + 1.31893, 2.15211, 2.27516, + .03116, .02586, 56.89876, 2.43325, 2.18460, + 1.49350, 2.31709, 2.43808, + .03209, .02634, 60.81327, 2.59254, 2.35217, + 1.66246, 2.47781, 2.59745 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03303, .02682, 64.78919, 2.75726, 2.52241, + 1.83589, 2.64355, 2.76224, + .03395, .02730, 68.70295, 2.92249, 2.69128, + 2.00901, 2.80954, 2.92755, + .03482, .02775, 72.49606, 3.08429, 2.85543, + 2.17784, 2.97189, 3.08941, + .03564, .02817, 76.06029, 3.23908, 3.01180, + 2.33898, 3.12712, 3.24427, + .03647, .02859, 79.70510, 3.39886, 3.17278, + 2.50491, 3.28727, 3.40411, + .03729, .02901, 83.29496, 3.55856, 3.33339, + 2.67050, 3.44730, 3.56388, + .03807, .02941, 86.74123, 3.71351, 3.48908, + 2.83094, 3.60255, 3.71890, + .03881, .02979, 90.00233, 3.86211, 3.63827, + 2.98462, 3.75140, 3.86755 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .03956, .03017, 93.32998, 4.01503, 3.79175, + 3.14260, 3.90459, 4.02053, + .04030, .03054, 96.58501, 4.16698, 3.94422, + 3.29947, 4.05678, 4.17254, + .04101, .03090, 99.75745, 4.31574, 4.09344, + 3.45285, 4.20577, 4.32135, + .04168, .03124, 102.69358, 4.45619, 4.23432, + 3.59764, 4.34644, 4.46186, + .04236, .03159, 105.72601, 4.60179, 4.38035, + 3.74757, 4.49226, 4.60750 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .01795, .01936, 1.68967, .28426, .00240, + .00000, .16080, .28811, + .01912, .01998, 2.39354, .32563, .00531, + .00000, .19704, .32958, + .02084, .02088, 3.59984, .39372, .01217, + .00000, .25692, .39783, + .02207, .02153, 4.61383, .44804, .02000, + .00000, .30497, .45225, + .02335, .02220, 5.79136, .50863, .03195, + .00000, .35898, .51295, + .02444, .02278, 6.89936, .56334, .04643, + .00000, .40826, .56776, + .02549, .02332, 8.04475, .61764, .06513, + .00000, .45778, .62215, + .02659, .02389, 9.32237, .67629, .09146, + .00000, .51211, .68090 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .02755, .02439, 10.49782, .72781, .12101, + .00000, .56075, .73250, + .02847, .02487, 11.70198, .77794, .15652, + .00000, .60904, .78271, + .02920, .02524, 12.67879, .81714, .18991, + .00000, .64760, .82197, + .03074, .02604, 14.88149, .89989, .27829, + .00000, .73156, .90485, + .03207, .02672, 16.87975, .96958, .37294, + .02349, .80515, .97465, + .03355, .02748, 19.21758, 1.04675, .49627, + .10499, .88928, 1.05195, + .03509, .02827, 21.75570, 1.12853, .63841, + .21742, .98006, 1.13386, + .03648, .02897, 24.14689, 1.20642, .77373, + .31919, 1.06649, 1.21186 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .03788, .02969, 26.63796, 1.29031, .91156, + .42676, 1.15841, 1.29587, + .03905, .03028, 28.75829, 1.36471, 1.02471, + .51874, 1.23862, 1.37036, + .04046, .03099, 31.36637, 1.46052, 1.15874, + .63320, 1.34022, 1.46629, + .04171, .03162, 33.72319, 1.55076, 1.27482, + .73749, 1.43443, 1.55663, + .04285, .03220, 35.93679, 1.63812, 1.38007, + .83594, 1.52460, 1.64408, + .04430, .03292, 38.75061, 1.75325, 1.51143, + .96311, 1.64237, 1.75933, + .04566, .03361, 41.42558, 1.86599, 1.63442, + 1.08558, 1.75687, 1.87218, + .04694, .03425, 43.97060, 1.97558, 1.75047, + 1.20323, 1.86766, 1.98187 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .04822, .03489, 46.53087, 2.08815, 1.86743, + 1.32314, 1.98113, 2.09455, + .04947, .03551, 49.02591, 2.20031, 1.98251, + 1.44198, 2.09397, 2.20681, + .05065, .03610, 51.42525, 2.30950, 2.09366, + 1.55714, 2.20368, 2.31609, + .05176, .03665, 53.65855, 2.41328, 2.19881, + 1.66634, 2.30789, 2.41996, + .05288, .03720, 55.92618, 2.51983, 2.30645, + 1.77816, 2.41483, 2.52660, + .05399, .03775, 58.14085, 2.62570, 2.41319, + 1.88908, 2.52105, 2.63256, + .05503, .03827, 60.25170, 2.72789, 2.51609, + 1.99596, 2.62355, 2.73483, + .05603, .03876, 62.23399, 2.82535, 2.61418, + 2.09780, 2.72130, 2.83237 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05703, .03925, 64.24445, 2.92519, 2.71460, + 2.20197, 2.82143, 2.93229, + .05802, .03974, 66.19498, 3.02386, 2.81382, + 2.30486, 2.92037, 3.03103, + .05896, .04020, 68.08741, 3.12007, 2.91055, + 2.40505, 3.01685, 3.12733, + .05986, .04064, 69.82254, 3.21040, 3.00134, + 2.49910, 3.10741, 3.21772, + .06076, .04109, 71.60773, 3.30371, 3.09513, + 2.59614, 3.20098, 3.31111 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02314, .02233, 1.60840, .27377, .00222, + .00000, .15427, .27822, + .02460, .02308, 2.25374, .31114, .00488, + .00000, .18710, .31573, + .02672, .02417, 3.34417, .37203, .01109, + .00000, .24076, .37682, + .02824, .02495, 4.24897, .42014, .01811, + .00000, .28341, .42507, + .02982, .02576, 5.28867, .47341, .02877, + .00000, .33101, .47848, + .03117, .02644, 6.25788, .52116, .04161, + .00000, .37413, .52636, + .03246, .02710, 7.25180, .56827, .05813, + .00000, .41719, .57359, + .03381, .02778, 8.35139, .61884, .08128, + .00000, .46418, .62428 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03498, .02837, 9.35580, .66299, .10716, + .00000, .50600, .66854, + .03611, .02894, 10.37855, .70570, .13814, + .00000, .54731, .71135, + .03699, .02939, 11.20332, .73893, .16719, + .00000, .58016, .74466, + .03888, .03034, 13.04999, .80859, .24371, + .00000, .65124, .81449, + .04050, .03115, 14.71023, .86674, .32520, + .01992, .71310, .87278, + .04230, .03205, 16.63633, .93061, .43075, + .08877, .78333, .93681, + .04416, .03298, 18.70919, .99783, .55157, + .18328, .85863, 1.00420, + .04584, .03382, 20.64608, 1.06153, .66576, + .26828, .92992, 1.06805 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .04754, .03467, 22.64858, 1.12991, .78124, + .35764, 1.00538, 1.13657, + .04894, .03537, 24.34144, 1.19037, .87538, + .43367, 1.07096, 1.19716, + .05064, .03621, 26.40907, 1.26801, .98610, + .52782, 1.15369, 1.27495, + .05214, .03695, 28.26501, 1.34090, 1.08130, + .61317, 1.23008, 1.34797, + .05351, .03763, 29.99847, 1.41127, 1.16709, + .69340, 1.30294, 1.41846, + .05525, .03848, 32.18651, 1.50365, 1.27347, + .79654, 1.39768, 1.51099, + .05688, .03928, 34.25222, 1.59375, 1.37241, + .89536, 1.48937, 1.60122, + .05840, .04003, 36.20583, 1.68098, 1.46527, + .98988, 1.57771, 1.68858 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .05992, .04078, 38.15918, 1.77023, 1.55837, + 1.08578, 1.66781, 1.77796, + .06141, .04151, 40.05043, 1.85877, 1.64954, + 1.18041, 1.75703, 1.86664, + .06281, .04219, 41.86030, 1.94466, 1.73722, + 1.27176, 1.84345, 1.95265, + .06413, .04284, 43.53445, 2.02598, 1.81983, + 1.35803, 1.92521, 2.03407, + .06546, .04348, 45.22674, 2.10919, 1.90409, + 1.44606, 2.00882, 2.11739, + .06676, .04412, 46.87040, 2.19156, 1.98733, + 1.53307, 2.09157, 2.19988, + .06800, .04472, 48.42981, 2.27080, 2.06732, + 1.61663, 2.17116, 2.27922, + .06917, .04529, 49.88694, 2.34614, 2.14329, + 1.69597, 2.24681, 2.35465 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07035, .04586, 51.35899, 2.42309, 2.22086, + 1.77690, 2.32407, 2.43170, + .07151, .04642, 52.77934, 2.49886, 2.29722, + 1.85656, 2.40015, 2.50758, + .07263, .04696, 54.15359, 2.57259, 2.37150, + 1.93394, 2.47417, 2.58140, + .07367, .04747, 55.40548, 2.64155, 2.44096, + 2.00632, 2.54339, 2.65044, + .07474, .04798, 56.69048, 2.71264, 2.51257, + 2.08083, 2.61476, 2.72163 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .02767, .02481, 1.55126, .26619, .00210, + .00000, .14964, .27115, + .02937, .02567, 2.15695, .30083, .00459, + .00000, .18013, .30595, + .03183, .02691, 3.16980, .35687, .01036, + .00000, .22963, .36223, + .03360, .02780, 4.00224, .40085, .01685, + .00000, .26870, .40639, + .03543, .02872, 4.95140, .44928, .02665, + .00000, .31205, .45499, + .03699, .02950, 5.83011, .49248, .03842, + .00000, .35114, .49835, + .03847, .03024, 6.72593, .53491, .05350, + .00000, .39002, .54092, + .04003, .03102, 7.71094, .58024, .07458, + .00000, .43225, .58640 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04138, .03169, 8.60593, .61965, .09806, + .00000, .46969, .62593, + .04268, .03233, 9.51320, .65761, .12610, + .00000, .50654, .66402, + .04370, .03284, 10.24164, .68704, .15233, + .00000, .53574, .69354, + .04587, .03392, 11.86404, .74840, .22121, + .00000, .59866, .75511, + .04772, .03483, 13.31290, .79928, .29426, + .01766, .65311, .80616, + .04978, .03585, 14.98328, .85484, .38847, + .07853, .71464, .86191, + .05190, .03690, 16.76921, .91301, .49577, + .16181, .78028, .92028, + .05383, .03784, 18.42776, .96794, .59667, + .23635, .84217, .97539 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05576, .03879, 20.13278, 1.02674, .69815, + .31440, .90748, 1.03437, + .05736, .03958, 21.56677, 1.07865, .78046, + .38056, .96405, 1.08642, + .05928, .04052, 23.30890, 1.14515, .87676, + .46219, 1.03520, 1.15309, + .06098, .04135, 24.86480, 1.20745, .95913, + .53594, 1.10071, 1.21555, + .06254, .04211, 26.31197, 1.26747, 1.03301, + .60503, 1.16303, 1.27571, + .06451, .04307, 28.12886, 1.34605, 1.12417, + .69354, 1.24379, 1.35447, + .06635, .04396, 29.83519, 1.42245, 1.20855, + .77804, 1.32169, 1.43103, + .06807, .04480, 31.44160, 1.49621, 1.28742, + .85858, 1.39651, 1.50495 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .06978, .04563, 33.04035, 1.57145, 1.36620, + .94005, 1.47259, 1.58034, + .07145, .04644, 34.58054, 1.64587, 1.44305, + 1.02017, 1.54768, 1.65491, + .07304, .04720, 36.04903, 1.71786, 1.51675, + 1.09729, 1.62022, 1.72705, + .07452, .04792, 37.40087, 1.78582, 1.58596, + 1.16990, 1.68863, 1.79513, + .07601, .04864, 38.76268, 1.85519, 1.65637, + 1.24382, 1.75843, 1.86464, + .07747, .04934, 40.07969, 1.92367, 1.72573, + 1.31666, 1.82731, 1.93325, + .07885, .05001, 41.32477, 1.98939, 1.79221, + 1.38645, 1.89340, 1.99909, + .08016, .05064, 42.48364, 2.05171, 1.85520, + 1.45255, 1.95606, 2.06153 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08148, .05127, 43.65089, 2.11524, 1.91937, + 1.51983, 2.01992, 2.12517, + .08278, .05189, 44.77221, 2.17763, 1.98238, + 1.58588, 2.08264, 2.18767, + .08402, .05249, 45.85492, 2.23823, 2.04356, + 1.64993, 2.14355, 2.24839, + .08519, .05304, 46.83604, 2.29475, 2.10061, + 1.70967, 2.20036, 2.30500, + .08637, .05361, 47.84144, 2.35293, 2.15934, + 1.77109, 2.25883, 2.36329 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03188, .02707, 1.50536, .26013, .00201, + .00000, .14588, .26544, + .03379, .02802, 2.08069, .29269, .00437, + .00000, .17459, .29818, + .03654, .02941, 3.03457, .34507, .00982, + .00000, .22093, .35083, + .03852, .03039, 3.81245, .38597, .01591, + .00000, .25731, .39191, + .04056, .03141, 4.69378, .43080, .02507, + .00000, .29751, .43694, + .04230, .03227, 5.50506, .47063, .03603, + .00000, .33361, .47693, + .04395, .03309, 6.32813, .50960, .05004, + .00000, .36938, .51606, + .04568, .03395, 7.22861, .55109, .06957, + .00000, .40811, .55771 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .04718, .03470, 8.04321, .58703, .09128, + .00000, .44233, .59379, + .04862, .03541, 8.86598, .62153, .11715, + .00000, .47591, .62843, + .04975, .03597, 9.52413, .64819, .14131, + .00000, .50246, .65520, + .05216, .03715, 10.98367, .70354, .20457, + .00000, .55944, .71077, + .05421, .03816, 12.27984, .74919, .27144, + .01602, .60853, .75660, + .05648, .03928, 13.76643, .79879, .35737, + .07113, .66378, .80641, + .05883, .04043, 15.34731, .85049, .45486, + .14630, .72250, .85833, + .06095, .04147, 16.80792, .89916, .54613, + .21332, .77768, .90720 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06307, .04251, 18.30226, .95117, .63754, + .28327, .83573, .95940, + .06483, .04336, 19.55371, .99700, .71137, + .34240, .88590, 1.00539, + .06695, .04439, 21.06742, 1.05562, .79737, + .41512, .94883, 1.06420, + .06881, .04530, 22.41353, 1.11044, .87061, + .48062, 1.00664, 1.11919, + .07052, .04613, 23.66113, 1.16316, .93605, + .54184, 1.06151, 1.17207, + .07266, .04717, 25.22055, 1.23204, 1.01648, + .62003, 1.13243, 1.24113, + .07468, .04814, 26.67834, 1.29883, 1.09063, + .69445, 1.20065, 1.30811, + .07655, .04905, 28.04554, 1.36317, 1.15969, + .76519, 1.26601, 1.37261 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07843, .04995, 29.40101, 1.42863, 1.22845, + .83655, 1.33229, 1.43824, + .08024, .05083, 30.70124, 1.49322, 1.29534, + .90654, 1.39754, 1.50299, + .08197, .05165, 31.93709, 1.55557, 1.35932, + .97376, 1.46043, 1.56549, + .08358, .05243, 33.06989, 1.61426, 1.41923, + 1.03688, 1.51959, 1.62433, + .08520, .05320, 34.20782, 1.67406, 1.48006, + 1.10100, 1.57983, 1.68427, + .08678, .05396, 35.30437, 1.73296, 1.53984, + 1.16406, 1.63913, 1.74330, + .08828, .05468, 36.33779, 1.78936, 1.59701, + 1.22434, 1.69592, 1.79984, + .08970, .05536, 37.29630, 1.84274, 1.65107, + 1.28132, 1.74965, 1.85334 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09113, .05604, 38.25936, 1.89705, 1.70605, + 1.33922, 1.80431, 1.90778, + .09253, .05671, 39.18117, 1.95028, 1.75991, + 1.39593, 1.85787, 1.96113, + .09387, .05734, 40.06975, 2.00191, 1.81214, + 1.45085, 1.90983, 2.01288, + .09513, .05794, 40.87091, 2.04994, 1.86072, + 1.50195, 1.95816, 2.06102, + .09641, .05855, 41.69076, 2.09933, 1.91066, + 1.55442, 2.00785, 2.11052 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .04927, .03596, 1.36633, .24058, .00175, + .00000, .13424, .24757, + .05197, .03729, 1.85383, .26705, .00376, + .00000, .15776, .27430, + .05585, .03921, 2.63963, .30891, .00829, + .00000, .19505, .31654, + .05861, .04056, 3.26414, .34104, .01325, + .00000, .22384, .34894, + .06145, .04196, 3.95693, .37578, .02062, + .00000, .25521, .38397, + .06386, .04314, 4.58279, .40626, .02934, + .00000, .28304, .41468, + .06615, .04426, 5.20763, .43573, .04038, + .00000, .31031, .44437, + .06853, .04543, 5.87980, .46674, .05564, + .00000, .33950, .47561 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07058, .04643, 6.47907, .49328, .07248, + .00000, .36503, .50234, + .07255, .04739, 7.07706, .51847, .09239, + .00000, .38983, .52773, + .07410, .04814, 7.54954, .53775, .11089, + .00000, .40927, .54715, + .07736, .04973, 8.58230, .57718, .15888, + .00000, .45051, .58689, + .08013, .05108, 9.48250, .60908, .20908, + .01170, .48552, .61906, + .08319, .05256, 10.49706, .64318, .27288, + .05163, .52440, .65345, + .08633, .05408, 11.55633, .67822, .34431, + .10561, .56518, .68878, + .08915, .05544, 12.51819, .71088, .41028, + .15314, .60309, .72170 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09197, .05680, 13.48654, .74555, .47543, + .20222, .64260, .75664, + .09430, .05791, 14.28568, .77596, .52734, + .24330, .67648, .78727, + .09708, .05925, 15.23749, .81466, .58695, + .29334, .71863, .82622, + .09952, .06042, 16.07168, .85066, .63698, + .33797, .75704, .86244, + .10175, .06149, 16.83567, .88510, .68112, + .37934, .79325, .89709, + .10454, .06282, 17.77546, .92975, .73463, + .43167, .83963, .94199, + .10714, .06406, 18.64043, .97270, .78330, + .48098, .88383, .98518, + .10957, .06521, 19.44093, 1.01376, .82812, + .52743, .92583, 1.02646 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11197, .06635, 20.22356, 1.05520, .87227, + .57388, .96805, 1.06812, + .11430, .06745, 20.96282, 1.09572, .91478, + .61903, 1.00924, 1.10885, + .11649, .06849, 21.65794, 1.13457, .95510, + .66206, 1.04866, 1.14789, + .11854, .06945, 22.28532, 1.17082, .99252, + .70214, 1.08541, 1.18433, + .12059, .07042, 22.90916, 1.20751, 1.03023, + .74257, 1.12258, 1.22120, + .12258, .07136, 23.50215, 1.24337, 1.06700, + .78202, 1.15889, 1.25723, + .12448, .07225, 24.05485, 1.27747, 1.10192, + .81948, 1.19342, 1.29150, + .12625, .07308, 24.56099, 1.30951, 1.13470, + .85465, 1.22585, 1.32370 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12804, .07392, 25.06487, 1.34192, 1.16784, + .89017, 1.25866, 1.35626, + .12979, .07473, 25.54005, 1.37344, 1.20006, + .92472, 1.29056, 1.38794, + .13146, .07551, 25.99553, 1.40388, 1.23116, + .95801, 1.32137, 1.41852, + .13302, .07624, 26.39841, 1.43195, 1.25984, + .98875, 1.34977, 1.44672, + .13460, .07698, 26.80886, 1.46069, 1.28922, + 1.02017, 1.37887, 1.47561 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07586, .04931, 1.23002, .21969, .00155, + .00000, .12223, .22912, + .07959, .05115, 1.63809, .24061, .00327, + .00000, .14104, .25042, + .08492, .05377, 2.27504, .27311, .00701, + .00000, .17031, .28345, + .08869, .05563, 2.76656, .29762, .01101, + .00000, .19252, .30835, + .09255, .05752, 3.29883, .32375, .01686, + .00000, .21638, .33486, + .09580, .05911, 3.76946, .34636, .02368, + .00000, .23725, .35779, + .09887, .06060, 4.23075, .36794, .03221, + .00000, .25747, .37968, + .10206, .06216, 4.71726, .39034, .04389, + .00000, .27884, .40239 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10480, .06348, 5.14378, .40926, .05665, + .00000, .29732, .42158, + .10741, .06475, 5.56356, .42700, .07163, + .00000, .31507, .43957, + .10945, .06574, 5.89042, .44040, .08545, + .00000, .32885, .45317, + .11375, .06781, 6.59297, .46736, .12097, + .00000, .35771, .48055, + .11737, .06956, 7.19210, .48869, .15768, + .00831, .38180, .50222, + .12134, .07147, 7.85353, .51102, .20377, + .03645, .40813, .52493, + .12541, .07341, 8.52903, .53356, .25466, + .07412, .43535, .54785, + .12903, .07514, 9.12980, .55434, .30097, + .10682, .46033, .56898 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13264, .07686, 9.72303, .57627, .34599, + .14021, .48611, .59124, + .13559, .07826, 10.20388, .59541, .38131, + .16785, .50802, .61065, + .13910, .07992, 10.76553, .61964, .42123, + .20115, .53502, .63521, + .14218, .08137, 11.24905, .64205, .45418, + .23053, .55940, .65790, + .14497, .08269, 11.68550, .66338, .48283, + .25750, .58221, .67949, + .14845, .08432, 12.21105, .69080, .51701, + .29125, .61112, .70722, + .15167, .08583, 12.68515, .71693, .54761, + .32269, .63837, .73364, + .15465, .08722, 13.11652, .74169, .57541, + .35202, .66402, .75867 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15760, .08859, 13.53062, .76646, .60246, + .38106, .68956, .78370, + .16043, .08991, 13.91350, .79041, .62818, + .40898, .71420, .80790, + .16310, .09114, 14.26853, .81319, .65234, + .43538, .73758, .83092, + .16557, .09228, 14.58187, .83423, .67452, + .45972, .75915, .85216, + .16803, .09341, 14.88923, .85535, .69668, + .48409, .78080, .87350, + .17043, .09451, 15.17560, .87579, .71809, + .50766, .80174, .89415, + .17268, .09555, 15.43833, .89508, .73825, + .52987, .82150, .91363, + .17479, .09651, 15.67432, .91304, .75701, + .55055, .83989, .93176 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17690, .09747, 15.90614, .93107, .77584, + .57129, .85836, .94998, + .17896, .09841, 16.11941, .94843, .79397, + .59129, .87614, .96751, + .18092, .09930, 16.32247, .96511, .81138, + .61046, .89323, .98436, + .18274, .10013, 16.49630, .98032, .82727, + .62799, .90882, .99972, + .18459, .10096, 16.67254, .99583, .84347, + .64584, .92471, 1.01539 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09741, .06021, 1.15401, .20673, .00147, + .00000, .11511, .21829, + .10186, .06241, 1.51927, .22466, .00304, + .00000, .13139, .23668, + .10819, .06552, 2.07739, .25221, .00640, + -.00001, .15645, .26488, + .11265, .06771, 2.49982, .27278, .00992, + -.00001, .17526, .28591, + .11719, .06993, 2.95001, .29450, .01499, + -.00001, .19529, .30809, + .12101, .07180, 3.34243, .31313, .02084, + -.00001, .21266, .32710, + .12461, .07354, 3.72236, .33077, .02812, + -.00001, .22936, .34510, + .12833, .07534, 4.11786, .34892, .03799, + -.00001, .24687, .36361 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13150, .07688, 4.46064, .36411, .04871, + -.00001, .26190, .37912, + .13454, .07834, 4.79487, .37823, .06123, + -.00001, .27624, .39354, + .13689, .07947, 5.05255, .38881, .07272, + -.00001, .28729, .40435, + .14184, .08185, 5.60029, .40985, .10209, + -.00001, .31024, .42586, + .14599, .08383, 6.06033, .42622, .13221, + .00670, .32919, .44263, + .15053, .08600, 6.56101, .44311, .16974, + .02927, .34969, .45995, + .15515, .08819, 7.06458, .45995, .21079, + .05930, .37066, .47722, + .15926, .09012, 7.50590, .47536, .24780, + .08514, .38975, .49301 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16332, .09204, 7.93574, .49155, .28341, + .11131, .40931, .50958, + .16664, .09359, 8.27963, .50566, .31110, + .13284, .42584, .52400, + .17057, .09543, 8.67572, .52346, .34204, + .15859, .44608, .54214, + .17399, .09702, 9.01213, .53986, .36730, + .18114, .46426, .55886, + .17709, .09846, 9.31252, .55544, .38906, + .20173, .48117, .57471, + .18094, .10023, 9.66848, .57534, .41474, + .22730, .50246, .59496, + .18449, .10186, 9.98467, .59419, .43747, + .25095, .52238, .61412, + .18776, .10337, 10.26865, .61195, .45794, + .27286, .54101, .63217 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .19099, .10484, 10.53730, .62961, .47770, + .29442, .55944, .65009, + .19407, .10624, 10.78104, .64654, .49630, + .31500, .57707, .66729, + .19697, .10755, 11.00455, .66255, .51367, + .33435, .59370, .68355, + .19964, .10876, 11.19810, .67723, .52949, + .35208, .60894, .69845, + .20229, .10995, 11.38579, .69189, .54521, + .36973, .62414, .71333, + .20486, .11110, 11.55744, .70597, .56029, + .38670, .63875, .72762, + .20727, .11218, 11.71269, .71918, .57441, + .40261, .65245, .74102, + .20953, .11318, 11.84955, .73139, .58746, + .41734, .66512, .75342 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .21178, .11418, 11.98237, .74360, .60051, + .43205, .67778, .76581, + .21396, .11515, 12.10151, .75526, .61298, + .44615, .68989, .77764, + .21603, .11606, 12.21439, .76643, .62492, + .45963, .70149, .78898, + .21795, .11691, 12.30742, .77651, .63572, + .47186, .71196, .79921, + .21989, .11776, 12.40146, .78678, .64671, + .48428, .72263, .80963 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11618, .06988, 1.10275, .19721, .00142, + .00000, .11003, .21071, + .12119, .07235, 1.43901, .21314, .00292, + .00000, .12462, .22716, + .12829, .07583, 1.94446, .23742, .00603, + -.00001, .14690, .25218, + .13327, .07827, 2.32131, .25541, .00924, + -.00001, .16349, .27067, + .13832, .08073, 2.71796, .27426, .01382, + .00000, .18104, .29005, + .14256, .08279, 3.05988, .29033, .01905, + -.00001, .19616, .30654, + .14654, .08471, 3.38777, .30544, .02551, + -.00001, .21060, .32205, + .15064, .08669, 3.72554, .32089, .03423, + -.00001, .22566, .33790 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15414, .08836, 4.01568, .33372, .04364, + -.00001, .23851, .35107, + .15747, .08996, 4.29656, .34557, .05459, + -.00001, .25070, .36325, + .16005, .09119, 4.51136, .35439, .06460, + -.00001, .26005, .37232, + .16546, .09376, 4.96388, .37176, .09005, + -.00001, .27933, .39020, + .16998, .09590, 5.33935, .38510, .11601, + .00570, .29511, .40396, + .17491, .09823, 5.74331, .39868, .14815, + .02483, .31204, .41800, + .17990, .10057, 6.14455, .41208, .18309, + .05017, .32922, .43187, + .18432, .10263, 6.49195, .42427, .21434, + .07183, .34476, .44446 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18869, .10465, 6.82642, .43704, .24420, + .09364, .36059, .45763, + .19223, .10629, 7.09111, .44816, .26723, + .11148, .37391, .46906, + .19643, .10822, 7.39225, .46214, .29276, + .13270, .39014, .48341, + .20006, .10988, 7.64509, .47501, .31342, + .15119, .40464, .49660, + .20335, .11138, 7.86879, .48720, .33108, + .16799, .41809, .50907, + .20741, .11322, 8.13000, .50270, .35175, + .18874, .43491, .52493, + .21114, .11490, 8.35876, .51731, .36989, + .20782, .45056, .53985, + .21458, .11644, 8.56176, .53102, .38611, + .22541, .46512, .55384 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21795, .11795, 8.75113, .54456, .40165, + .24263, .47944, .56766, + .22116, .11938, 8.91993, .55748, .41618, + .25898, .49306, .58083, + .22417, .12071, 9.07313, .56963, .42968, + .27428, .50584, .59323, + .22693, .12192, 9.20309, .58069, .44189, + .28823, .51748, .60452, + .22967, .12312, 9.32770, .59169, .45398, + .30206, .52904, .61573, + .23231, .12428, 9.43941, .60220, .46549, + .31530, .54008, .62643, + .23479, .12536, 9.53891, .61200, .47623, + .32765, .55039, .63642, + .23709, .12635, 9.62477, .62100, .48611, + .33905, .55987, .64561 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23939, .12734, 9.70699, .62997, .49594, + .35038, .56930, .65475, + .24161, .12829, 9.77845, .63847, .50528, + .36120, .57827, .66342, + .24372, .12919, 9.84584, .64660, .51421, + .37150, .58683, .67170, + .24566, .13002, 9.89855, .65387, .52222, + .38081, .59450, .67911, + .24762, .13085, 9.95171, .66125, .53035, + .39023, .60229, .68663 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13312, .07872, 1.06537, .18963, .00140, + .00000, .10611, .20499, + .13858, .08141, 1.37982, .20407, .00284, + .00000, .11946, .22000, + .14629, .08518, 1.84611, .22595, .00578, + .00000, .13970, .24268, + .15168, .08780, 2.18942, .24205, .00878, + .00000, .15467, .25933, + .15714, .09045, 2.54705, .25884, .01300, + .00000, .17042, .27666, + .16171, .09265, 2.85246, .27305, .01779, + .00000, .18391, .29133, + .16598, .09470, 3.14302, .28635, .02366, + .00000, .19675, .30506, + .17038, .09680, 3.43965, .29987, .03154, + .00000, .21006, .31900 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17412, .09858, 3.69255, .31103, .04002, + .00000, .22135, .33053, + .17767, .10026, 3.93589, .32128, .04984, + .00000, .23203, .34111, + .18042, .10156, 4.12071, .32886, .05879, + .00000, .24018, .34895, + .18617, .10427, 4.50709, .34365, .08146, + .00000, .25689, .36429, + .19096, .10651, 4.82431, .35488, .10446, + .00501, .27046, .37596, + .19617, .10893, 5.16216, .36619, .13280, + .02175, .28492, .38774, + .20141, .11136, 5.49416, .37723, .16343, + .04382, .29948, .39926, + .20605, .11349, 5.77850, .38723, .19067, + .06259, .31259, .40967 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .21061, .11557, 6.04933, .39768, .21654, + .08140, .32588, .42052, + .21431, .11725, 6.26168, .40676, .23635, + .09672, .33702, .42992, + .21867, .11922, 6.50045, .41818, .25818, + .11486, .35053, .44171, + .22244, .12091, 6.69873, .42866, .27572, + .13059, .36256, .45251, + .22584, .12243, 6.87262, .43858, .29062, + .14484, .37367, .46271, + .23002, .12428, 7.07297, .45114, .30791, + .16234, .38750, .47561, + .23385, .12597, 7.24606, .46293, .32299, + .17836, .40031, .48770, + .23737, .12751, 7.39776, .47393, .33638, + .19307, .41217, .49899 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .24080, .12901, 7.53705, .48476, .34913, + .20740, .42377, .51009, + .24407, .13043, 7.65901, .49503, .36098, + .22095, .43474, .52060, + .24712, .13174, 7.76855, .50465, .37195, + .23359, .44501, .53046, + .24992, .13294, 7.85941, .51336, .38180, + .24506, .45429, .53937, + .25269, .13412, 7.94543, .52197, .39152, + .25640, .46348, .54819, + .25534, .13524, 8.02070, .53016, .40074, + .26720, .47221, .55656, + .25782, .13629, 8.08650, .53776, .40930, + .27725, .48032, .56434, + .26013, .13725, 8.14172, .54470, .41713, + .28648, .48775, .57145 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .26242, .13821, 8.19374, .55159, .42490, + .29564, .49511, .57849, + .26463, .13912, 8.23716, .55807, .43225, + .30434, .50206, .58513, + .26673, .13999, 8.27786, .56425, .43925, + .31262, .50869, .59146, + .26865, .14077, 8.30697, .56973, .44549, + .32005, .51457, .59706, + .27058, .14156, 8.33627, .57528, .45181, + .32756, .52054, .60273 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .16330, .09475, 1.01436, .17785, .00139, + .00000, .10027, .19675, + .16944, .09774, 1.29675, .19017, .00276, + .00000, .11184, .20970, + .17808, .10191, 1.70637, .20865, .00549, + .00001, .12920, .22905, + .18409, .10479, 2.00180, .22209, .00819, + .00001, .14189, .24309, + .19014, .10767, 2.30433, .23597, .01192, + .00001, .15512, .25756, + .19518, .11005, 2.55872, .24761, .01609, + .00001, .16636, .26969, + .19987, .11226, 2.79753, .25841, .02116, + .00000, .17697, .28094, + .20468, .11451, 3.03770, .26927, .02788, + .00001, .18787, .29224 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20875, .11640, 3.23988, .27814, .03506, + .00001, .19704, .30149, + .21261, .11819, 3.43243, .28621, .04333, + .00001, .20565, .30991, + .21558, .11956, 3.57688, .29210, .05082, + .00001, .21217, .31608, + .22177, .12239, 3.87494, .30345, .06967, + .00000, .22541, .32797, + .22690, .12472, 4.11530, .31186, .08863, + .00408, .23602, .33683, + .23245, .12722, 4.36682, .32015, .11181, + .01762, .24719, .34560, + .23800, .12971, 4.60916, .32811, .13663, + .03536, .25832, .35402, + .24288, .13187, 4.81267, .33524, .15849, + .05030, .26823, .36156 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .24765, .13396, 5.00286, .34268, .17903, + .06516, .27820, .36938, + .25150, .13565, 5.14927, .34914, .19461, + .07717, .28650, .37614, + .25601, .13760, 5.31023, .35724, .21158, + .09129, .29649, .38458, + .25988, .13926, 5.44114, .36466, .22504, + .10345, .30532, .39230, + .26336, .14075, 5.55407, .37166, .23637, + .11439, .31344, .39956, + .26761, .14254, 5.68033, .38047, .24934, + .12774, .32346, .40867, + .27149, .14416, 5.78609, .38867, .26051, + .13985, .33265, .41715, + .27503, .14563, 5.87642, .39628, .27033, + .15090, .34109, .42500 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .27846, .14705, 5.95675, .40369, .27957, + .16159, .34927, .43265, + .28170, .14837, 6.02391, .41064, .28807, + .17161, .35693, .43981, + .28472, .14959, 6.08269, .41711, .29588, + .18091, .36405, .44648, + .28746, .15069, 6.12851, .42289, .30283, + .18929, .37042, .45242, + .29017, .15177, 6.17039, .42857, .30963, + .19752, .37667, .45827, + .29275, .15279, 6.20439, .43389, .31601, + .20530, .38255, .46374, + .29515, .15373, 6.23234, .43879, .32190, + .21251, .38797, .46878, + .29736, .15458, 6.25351, .44322, .32725, + .21909, .39289, .47334 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29956, .15543, 6.27213, .44757, .33252, + .22558, .39773, .47782, + .30165, .15623, 6.28463, .45162, .33745, + .23170, .40224, .48197, + .30364, .15698, 6.29608, .45545, .34213, + .23751, .40652, .48591, + .30544, .15766, 6.30012, .45878, .34625, + .24267, .41027, .48933, + .30726, .15833, 6.30416, .46215, .35041, + .24788, .41405, .49278 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20259, .11602, .96974, .16488, .00140, + .00000, .09418, .18868, + .20944, .11926, 1.21875, .17510, .00273, + .00000, .10399, .19957, + .21898, .12373, 1.57066, .19022, .00527, + .00000, .11852, .21560, + .22557, .12678, 1.81827, .20108, .00769, + .00000, .12900, .22706, + .23217, .12981, 2.06664, .21215, .01096, + .00000, .13980, .23873, + .23762, .13229, 2.27162, .22133, .01456, + .00000, .14888, .24839, + .24267, .13458, 2.46090, .22975, .01885, + .00000, .15736, .25725, + .24782, .13689, 2.64776, .23809, .02448, + .00000, .16598, .26603 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .25215, .13881, 2.80256, .24482, .03042, + .00000, .17316, .27312, + .25624, .14062, 2.94809, .25086, .03721, + .00000, .17984, .27949, + .25938, .14199, 3.05557, .25520, .04333, + .00000, .18485, .28408, + .26586, .14481, 3.27370, .26338, .05857, + .00000, .19489, .29277, + .27120, .14711, 3.44538, .26925, .07376, + .00321, .20281, .29904, + .27692, .14954, 3.62073, .27485, .09215, + .01383, .21101, .30507, + .28260, .15192, 3.78513, .28007, .11162, + .02765, .21904, .31070, + .28755, .15397, 3.91943, .28469, .12857, + .03916, .22611, .31566 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .29235, .15594, 4.04145, .28950, .14430, + .05051, .23315, .32078, + .29619, .15750, 4.13266, .29367, .15609, + .05961, .23896, .32521, + .30066, .15928, 4.22955, .29889, .16875, + .07020, .24588, .33070, + .30446, .16078, 4.30559, .30367, .17865, + .07924, .25195, .33571, + .30785, .16211, 4.36932, .30818, .18687, + .08732, .25749, .34042, + .31196, .16369, 4.43670, .31379, .19614, + .09708, .26424, .34625, + .31567, .16509, 4.48990, .31895, .20398, + .10586, .27035, .35161, + .31903, .16634, 4.53292, .32370, .21078, + .11379, .27591, .35652 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .32226, .16754, 4.56828, .32827, .21710, + .12141, .28123, .36124, + .32528, .16863, 4.59429, .33247, .22282, + .12849, .28614, .36557, + .32807, .16962, 4.61533, .33634, .22802, + .13500, .29065, .36956, + .33057, .17051, 4.62812, .33972, .23259, + .14082, .29462, .37304, + .33302, .17136, 4.63802, .34300, .23701, + .14650, .29848, .37642, + .33535, .17214, 4.64269, .34602, .24112, + .15183, .30205, .37952, + .33750, .17286, 4.64411, .34875, .24487, + .15672, .30530, .38232, + .33945, .17351, 4.64182, .35116, .24823, + .16114, .30820, .38479 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .34137, .17413, 4.63767, .35351, .25151, + .16549, .31102, .38719, + .34319, .17470, 4.62949, .35562, .25453, + .16954, .31360, .38935, + .34491, .17524, 4.62150, .35761, .25739, + .17337, .31604, .39139, + .34644, .17571, 4.60932, .35926, .25985, + .17674, .31810, .39306, + .34798, .17618, 4.59713, .36092, .26233, + .18012, .32018, .39476 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25859, .14663, .93501, .14938, .00145, + -.00001, .08738, .18048, + .26606, .14993, 1.14572, .15738, .00277, + -.00001, .09533, .18909, + .27634, .15440, 1.43362, .16900, .00513, + -.00002, .10688, .20151, + .28336, .15741, 1.62962, .17717, .00729, + -.00002, .11507, .21022, + .29031, .16034, 1.82084, .18536, .01010, + -.00002, .12336, .21892, + .29601, .16272, 1.97461, .19204, .01311, + -.00002, .13023, .22598, + .30125, .16488, 2.11340, .19805, .01662, + -.00001, .13656, .23235, + .30652, .16702, 2.24679, .20389, .02114, + -.00002, .14289, .23852 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .31092, .16878, 2.35476, .20849, .02584, + -.00002, .14808, .24339, + .31505, .17042, 2.45438, .21253, .03115, + -.00002, .15284, .24768, + .31818, .17165, 2.52619, .21537, .03589, + -.00002, .15637, .25069, + .32461, .17413, 2.66822, .22050, .04756, + -.00002, .16330, .25617, + .32983, .17611, 2.77573, .22396, .05903, + .00237, .16862, .25990, + .33535, .17815, 2.88130, .22704, .07272, + .01022, .17400, .26324, + .34075, .18011, 2.97564, .22975, .08701, + .02032, .17914, .26619, + .34539, .18175, 3.04877, .23207, .09927, + .02862, .18356, .26870 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34982, .18327, 3.11160, .23450, .11046, + .03671, .18790, .27128, + .35331, .18445, 3.15581, .23663, .11871, + .04312, .19144, .27351, + .35732, .18577, 3.19883, .23928, .12741, + .05050, .19559, .27628, + .36068, .18684, 3.22964, .24172, .13407, + .05672, .19918, .27880, + .36365, .18776, 3.25347, .24403, .13949, + .06223, .20242, .28117, + .36716, .18881, 3.27393, .24684, .14546, + .06880, .20628, .28403, + .37027, .18971, 3.28599, .24938, .15040, + .07464, .20970, .28660, + .37305, .19048, 3.29261, .25166, .15459, + .07986, .21276, .28890 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .37567, .19118, 3.29412, .25380, .15840, + .08481, .21562, .29103, + .37807, .19178, 3.28998, .25568, .16177, + .08935, .21817, .29289, + .38025, .19231, 3.28387, .25737, .16479, + .09349, .22048, .29457, + .38217, .19274, 3.27349, .25876, .16737, + .09713, .22244, .29592, + .38401, .19314, 3.26138, .26007, .16984, + .10066, .22431, .29719, + .38571, .19348, 3.24641, .26120, .17208, + .10393, .22597, .29827, + .38726, .19378, 3.23042, .26218, .17408, + .10690, .22745, .29919, + .38863, .19401, 3.21310, .26297, .17584, + .10956, .22871, .29993 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38997, .19422, 3.19471, .26371, .17753, + .11214, .22990, .30061, + .39119, .19438, 3.17423, .26429, .17905, + .11453, .23094, .30113, + .39234, .19453, 3.15483, .26484, .18047, + .11676, .23190, .30161, + .39330, .19462, 3.13364, .26519, .18163, + .11869, .23264, .30188, + .39428, .19470, 3.11253, .26554, .18281, + .12062, .23338, .30216 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .30729, .17288, .92297, .13761, .00151, + -.00001, .08250, .17496, + .31494, .17596, 1.10543, .14413, .00283, + -.00001, .08920, .18196, + .32534, .18006, 1.34791, .15344, .00510, + -.00001, .09876, .19185, + .33235, .18276, 1.50844, .15987, .00710, + -.00001, .10543, .19864, + .33924, .18535, 1.66129, .16619, .00962, + -.00002, .11209, .20531, + .34483, .18741, 1.78141, .17125, .01224, + -.00002, .11752, .21063, + .34991, .18926, 1.88761, .17575, .01525, + -.00001, .12246, .21534, + .35500, .19105, 1.98713, .18001, .01906, + -.00002, .12734, .21978 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .35919, .19249, 2.06588, .18329, .02298, + -.00002, .13128, .22320, + .36309, .19381, 2.13723, .18609, .02735, + -.00002, .13485, .22614, + .36603, .19479, 2.18737, .18801, .03122, + -.00002, .13745, .22812, + .37197, .19671, 2.28389, .19131, .04065, + -.00002, .14247, .23157, + .37672, .19820, 2.35388, .19335, .04980, + .00188, .14623, .23368, + .38168, .19968, 2.41939, .19497, .06062, + .00806, .14991, .23536, + .38646, .20104, 2.47435, .19624, .07178, + .01597, .15334, .23666, + .39048, .20212, 2.51386, .19727, .08122, + .02239, .15623, .23769 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .39425, .20308, 2.54479, .19836, .08973, + .02858, .15902, .23875, + .39718, .20379, 2.56408, .19934, .09590, + .03344, .16125, .23968, + .40045, .20452, 2.57926, .20059, .10230, + .03898, .16383, .24085, + .40314, .20507, 2.58714, .20174, .10711, + .04362, .16603, .24192, + .40549, .20552, 2.59103, .20285, .11098, + .04768, .16799, .24295, + .40819, .20597, 2.58875, .20415, .11513, + .05248, .17026, .24411, + .41050, .20629, 2.58147, .20528, .11848, + .05670, .17222, .24510, + .41252, .20652, 2.57141, .20626, .12126, + .06043, .17393, .24594 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .41437, .20668, 2.55780, .20713, .12374, + .06394, .17548, .24665, + .41599, .20675, 2.54059, .20781, .12588, + .06712, .17679, .24716, + .41743, .20679, 2.52300, .20839, .12776, + .07000, .17795, .24757, + .41864, .20675, 2.50338, .20877, .12933, + .07250, .17887, .24779, + .41977, .20668, 2.48270, .20909, .13080, + .07490, .17971, .24794, + .42076, .20656, 2.46039, .20928, .13210, + .07711, .18041, .24797, + .42162, .20641, 2.43820, .20939, .13323, + .07910, .18099, .24791, + .42234, .20623, 2.41592, .20941, .13420, + .08085, .18144, .24776 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .42302, .20603, 2.39303, .20938, .13511, + .08254, .18184, .24756, + .42357, .20578, 2.36901, .20924, .13590, + .08408, .18211, .24725, + .42409, .20554, 2.34642, .20910, .13662, + .08552, .18236, .24694, + .42445, .20526, 2.32320, .20884, .13717, + .08673, .18246, .24652, + .42481, .20498, 2.30015, .20858, .13772, + .08793, .18256, .24609 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .39104, .21575, .92414, .11914, .00163, + .00000, .07491, .16598, + .39819, .21790, 1.06383, .12369, .00296, + .00000, .07989, .17059, + .40764, .22061, 1.24062, .12995, .00511, + .00000, .08677, .17684, + .41385, .22228, 1.35180, .13412, .00688, + .00000, .09141, .18095, + .41979, .22377, 1.45288, .13807, .00901, + .00000, .09592, .18481, + .42449, .22489, 1.52876, .14112, .01113, + -.00001, .09951, .18774, + .42870, .22580, 1.59302, .14370, .01349, + -.00001, .10268, .19022, + .43273, .22662, 1.64984, .14605, .01638, + .00000, .10572, .19237 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .43600, .22721, 1.69245, .14773, .01929, + .00000, .10810, .19390, + .43898, .22771, 1.72942, .14907, .02247, + .00000, .11019, .19509, + .44115, .22802, 1.75366, .14990, .02525, + .00000, .11167, .19575, + .44543, .22855, 1.79689, .15107, .03190, + .00000, .11440, .19661, + .44870, .22882, 1.82395, .15149, .03822, + .00132, .11629, .19673, + .45194, .22896, 1.84478, .15150, .04555, + .00554, .11801, .19637, + .45485, .22894, 1.85710, .15122, .05295, + .01087, .11949, .19568, + .45715, .22877, 1.86115, .15088, .05907, + .01512, .12064, .19497 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45916, .22848, 1.85932, .15056, .06446, + .01915, .12170, .19426, + .46060, .22815, 1.85378, .15035, .06828, + .02227, .12250, .19371, + .46204, .22763, 1.84195, .15012, .07210, + .02576, .12337, .19307, + .46310, .22709, 1.82826, .14996, .07488, + .02863, .12407, .19252, + .46392, .22655, 1.81396, .14985, .07704, + .03112, .12468, .19205, + .46467, .22575, 1.79174, .14963, .07925, + .03401, .12528, .19137, + .46515, .22492, 1.76818, .14937, .08095, + .03649, .12572, .19066, + .46544, .22409, 1.74466, .14908, .08229, + .03867, .12605, .18995 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46556, .22319, 1.71955, .14871, .08342, + .04067, .12627, .18916, + .46548, .22224, 1.69316, .14825, .08433, + .04244, .12636, .18828, + .46532, .22132, 1.66791, .14778, .08509, + .04402, .12639, .18742, + .46499, .22039, 1.64271, .14724, .08567, + .04537, .12630, .18650, + .46460, .21944, 1.61728, .14666, .08618, + .04664, .12617, .18555, + .46409, .21846, 1.59158, .14602, .08660, + .04779, .12596, .18454, + .46352, .21751, 1.56697, .14538, .08693, + .04880, .12571, .18354, + .46289, .21658, 1.54329, .14472, .08716, + .04967, .12541, .18254 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46221, .21563, 1.51951, .14403, .08736, + .05049, .12508, .18151, + .46143, .21465, 1.49557, .14328, .08749, + .05122, .12469, .18043, + .46069, .21373, 1.47322, .14258, .08759, + .05190, .12431, .17942, + .45984, .21280, 1.45129, .14185, .08762, + .05246, .12388, .17838, + .45899, .21187, 1.42961, .14111, .08763, + .05301, .12344, .17733 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .46207, .24846, .93381, .10396, .00170, + .00000, .06827, .15662, + .46791, .24934, 1.04023, .10721, .00304, + .00000, .07205, .15946, + .47536, .25020, 1.16847, .11148, .00508, + .00000, .07711, .16311, + .48004, .25054, 1.24483, .11420, .00668, + .00000, .08041, .16533, + .48433, .25067, 1.31063, .11668, .00853, + .00000, .08352, .16727, + .48758, .25063, 1.35727, .11849, .01031, + .00000, .08593, .16860, + .49037, .25047, 1.39455, .11994, .01222, + -.00001, .08800, .16960, + .49289, .25014, 1.42465, .12114, .01452, + .00000, .08989, .17027 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49482, .24976, 1.44519, .12190, .01677, + .00000, .09132, .17058, + .49650, .24933, 1.46160, .12241, .01920, + .00000, .09253, .17067, + .49763, .24892, 1.47066, .12263, .02129, + .00000, .09334, .17053, + .49968, .24791, 1.48342, .12266, .02622, + .00000, .09473, .16982, + .50101, .24691, 1.48680, .12224, .03081, + .00097, .09557, .16875, + .50208, .24566, 1.48385, .12145, .03605, + .00406, .09620, .16722, + .50275, .24422, 1.47433, .12041, .04124, + .00791, .09661, .16543, + .50299, .24280, 1.46094, .11942, .04545, + .01093, .09684, .16376 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50293, .24128, 1.44370, .11847, .04908, + .01376, .09700, .16210, + .50267, .23995, 1.42695, .11771, .05158, + .01593, .09707, .16077, + .50206, .23823, 1.40357, .11682, .05402, + .01831, .09708, .15918, + .50130, .23667, 1.38119, .11606, .05572, + .02024, .09704, .15781, + .50048, .23521, 1.35990, .11541, .05700, + .02190, .09697, .15660, + .49916, .23326, 1.33066, .11453, .05823, + .02378, .09677, .15502, + .49770, .23138, 1.30204, .11367, .05910, + .02538, .09651, .15350, + .49620, .22959, 1.27483, .11284, .05975, + .02676, .09620, .15206 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49454, .22776, 1.24708, .11198, .06025, + .02801, .09583, .15058, + .49273, .22593, 1.21923, .11107, .06059, + .02909, .09538, .14908, + .49096, .22419, 1.19315, .11020, .06084, + .03004, .09492, .14766, + .48913, .22251, 1.16808, .10931, .06099, + .03084, .09441, .14626, + .48724, .22082, 1.14321, .10842, .06110, + .03158, .09389, .14485, + .48528, .21912, 1.11867, .10749, .06113, + .03223, .09332, .14343, + .48335, .21751, 1.09557, .10660, .06113, + .03279, .09276, .14206, + .48144, .21596, 1.07375, .10572, .06107, + .03326, .09218, .14075 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47948, .21440, 1.05209, .10484, .06100, + .03370, .09158, .13942, + .47745, .21284, 1.03068, .10394, .06087, + .03408, .09095, .13807, + .47552, .21138, 1.01080, .10309, .06074, + .03442, .09036, .13681, + .47356, .20994, .99172, .10223, .06057, + .03468, .08975, .13557, + .47161, .20850, .97295, .10138, .06039, + .03493, .08914, .13433 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52311, .27286, .94066, .09061, .00173, + -.00001, .06187, .14599, + .52710, .27232, 1.01949, .09291, .00304, + .00000, .06475, .14749, + .53176, .27116, 1.10907, .09582, .00498, + .00000, .06846, .14913, + .53442, .27010, 1.15874, .09756, .00643, + .00000, .07079, .14998, + .53662, .26879, 1.19831, .09903, .00805, + -.00001, .07291, .15053, + .53807, .26755, 1.22380, .10002, .00955, + -.00001, .07449, .15075, + .53912, .26629, 1.24202, .10074, .01113, + -.00001, .07580, .15074, + .53984, .26479, 1.25368, .10122, .01298, + -.00001, .07692, .15043 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54017, .26344, 1.25936, .10142, .01476, + -.00001, .07772, .14993, + .54031, .26211, 1.26217, .10144, .01665, + -.00001, .07836, .14928, + .54025, .26099, 1.26139, .10131, .01826, + -.00001, .07875, .14862, + .53978, .25850, 1.25492, .10068, .02198, + -.00001, .07929, .14693, + .53897, .25627, 1.24392, .09981, .02540, + .00073, .07948, .14516, + .53767, .25369, 1.22703, .09861, .02924, + .00307, .07947, .14295, + .53592, .25092, 1.20524, .09722, .03298, + .00596, .07927, .14054, + .53400, .24835, 1.18254, .09594, .03595, + .00819, .07898, .13833 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53179, .24572, 1.15750, .09468, .03846, + .01025, .07862, .13617, + .52976, .24349, 1.13541, .09369, .04015, + .01181, .07830, .13442, + .52705, .24072, 1.10699, .09249, .04173, + .01351, .07785, .13236, + .52446, .23826, 1.08116, .09149, .04279, + .01487, .07742, .13058, + .52199, .23601, 1.05737, .09061, .04355, + .01602, .07700, .12899, + .51863, .23308, 1.02624, .08944, .04422, + .01730, .07641, .12696, + .51526, .23032, .99675, .08834, .04465, + .01838, .07579, .12507, + .51201, .22774, .96937, .08731, .04492, + .01929, .07518, .12331 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50866, .22514, .94210, .08626, .04508, + .02010, .07454, .12154, + .50524, .22256, .91539, .08518, .04514, + .02079, .07384, .11979, + .50197, .22015, .89073, .08417, .04515, + .02139, .07318, .11815, + .49874, .21786, .86750, .08320, .04509, + .02188, .07250, .11657, + .49547, .21558, .84470, .08222, .04500, + .02233, .07180, .11500, + .49218, .21333, .82252, .08123, .04486, + .02271, .07110, .11345, + .48901, .21119, .80187, .08029, .04471, + .02304, .07042, .11198, + .48594, .20917, .78260, .07938, .04453, + .02330, .06976, .11058 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48284, .20714, .76361, .07847, .04433, + .02354, .06908, .10917, + .47970, .20513, .74507, .07756, .04411, + .02374, .06839, .10778, + .47673, .20325, .72793, .07671, .04390, + .02391, .06775, .10647, + .47381, .20143, .71172, .07587, .04365, + .02403, .06710, .10521, + .47090, .19962, .69582, .07503, .04341, + .02416, .06645, .10397 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58703, .29356, .93950, .07576, .00172, + -.00001, .05402, .13118, + .58815, .29121, .98960, .07724, .00298, + -.00002, .05604, .13138, + .58870, .28749, 1.04039, .07893, .00475, + -.00001, .05851, .13129, + .58841, .28468, 1.06430, .07984, .00603, + -.00001, .05998, .13093, + .58756, .28164, 1.07929, .08052, .00739, + -.00002, .06124, .13030, + .58644, .27898, 1.08551, .08088, .00862, + -.00002, .06212, .12957, + .58507, .27640, 1.08680, .08104, .00988, + -.00001, .06278, .12872, + .58326, .27356, 1.08251, .08097, .01130, + -.00001, .06328, .12760 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58146, .27106, 1.07565, .08074, .01264, + -.00001, .06358, .12649, + .57959, .26865, 1.06726, .08040, .01404, + -.00001, .06377, .12531, + .57794, .26671, 1.05856, .08002, .01521, + -.00001, .06382, .12428, + .57412, .26258, 1.03709, .07900, .01788, + -.00001, .06372, .12190, + .57051, .25898, 1.01535, .07788, .02027, + .00053, .06343, .11966, + .56618, .25495, .98858, .07648, .02291, + .00222, .06295, .11705, + .56135, .25076, .95867, .07495, .02543, + .00430, .06233, .11429, + .55673, .24696, .93029, .07356, .02739, + .00588, .06170, .11181 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55188, .24313, .90096, .07220, .02899, + .00731, .06103, .10939, + .54772, .23996, .87630, .07110, .03002, + .00838, .06046, .10746, + .54246, .23613, .84599, .06982, .03096, + .00952, .05973, .10515, + .53770, .23275, .81935, .06873, .03154, + .01042, .05907, .10318, + .53332, .22968, .79536, .06775, .03191, + .01118, .05846, .10143, + .52754, .22579, .76494, .06651, .03219, + .01201, .05764, .09924, + .52202, .22215, .73687, .06534, .03231, + .01270, .05686, .09722, + .51680, .21878, .71128, .06426, .03232, + .01327, .05611, .09535 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51152, .21546, .68629, .06319, .03227, + .01377, .05533, .09352, + .50624, .21221, .66231, .06213, .03216, + .01418, .05454, .09171, + .50129, .20919, .64042, .06114, .03202, + .01452, .05380, .09003, + .49654, .20633, .62012, .06017, .03185, + .01480, .05308, .08846, + .49178, .20351, .60041, .05921, .03166, + .01505, .05236, .08690, + .48705, .20074, .58150, .05828, .03144, + .01525, .05163, .08538, + .48254, .19814, .56406, .05741, .03121, + .01541, .05093, .08396, + .47825, .19571, .54796, .05658, .03098, + .01553, .05027, .08261 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47394, .19328, .53223, .05574, .03074, + .01564, .04961, .08128, + .46965, .19088, .51702, .05491, .03048, + .01571, .04894, .07997, + .46562, .18863, .50303, .05412, .03024, + .01578, .04833, .07874, + .46169, .18649, .48994, .05338, .02999, + .01582, .04772, .07756, + .45779, .18437, .47716, .05264, .02974, + .01587, .04713, .07640 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .63816, .30509, .92573, .06267, .00166, + -.00002, .04645, .11539, + .63607, .30098, .95221, .06357, .00284, + -.00004, .04784, .11476, + .63198, .29489, .97230, .06449, .00445, + -.00003, .04945, .11346, + .62849, .29046, .97659, .06487, .00557, + -.00003, .05033, .11234, + .62438, .28583, .97348, .06504, .00672, + -.00003, .05100, .11101, + .62056, .28187, .96595, .06500, .00772, + -.00003, .05143, .10973, + .61672, .27808, .95549, .06482, .00871, + -.00003, .05169, .10841, + .61229, .27406, .94048, .06445, .00981, + -.00004, .05180, .10687 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60828, .27058, .92546, .06401, .01082, + -.00004, .05179, .10543, + .60434, .26726, .90999, .06351, .01186, + -.00003, .05170, .10398, + .60107, .26463, .89645, .06303, .01272, + -.00003, .05155, .10278, + .59396, .25907, .86621, .06184, .01464, + -.00003, .05111, .10012, + .58760, .25435, .83862, .06067, .01634, + .00037, .05059, .09772, + .58033, .24914, .80694, .05926, .01817, + .00164, .04989, .09500, + .57257, .24380, .77350, .05776, .01987, + .00317, .04908, .09221, + .56539, .23903, .74312, .05642, .02116, + .00431, .04831, .08973 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55807, .23428, .71278, .05511, .02218, + .00534, .04752, .08732, + .55195, .23038, .68796, .05406, .02282, + .00611, .04685, .08538, + .54439, .22570, .65827, .05282, .02334, + .00689, .04603, .08312, + .53767, .22164, .63271, .05177, .02364, + .00751, .04531, .08119, + .53154, .21799, .61006, .05083, .02380, + .00802, .04465, .07947, + .52368, .21338, .58191, .04964, .02387, + .00858, .04379, .07734, + .51625, .20913, .55640, .04855, .02382, + .00903, .04296, .07539, + .50932, .20524, .53346, .04755, .02373, + .00939, .04220, .07360 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50240, .20141, .51135, .04656, .02358, + .00970, .04143, .07184, + .49560, .19768, .49045, .04559, .02340, + .00994, .04066, .07016, + .48924, .19424, .47155, .04469, .02320, + .01015, .03994, .06861, + .48321, .19102, .45425, .04384, .02299, + .01030, .03927, .06716, + .47720, .18786, .43758, .04300, .02277, + .01043, .03859, .06573, + .47129, .18479, .42173, .04218, .02253, + .01053, .03791, .06434, + .46572, .18191, .40725, .04141, .02230, + .01061, .03728, .06305, + .46046, .17921, .39399, .04069, .02206, + .01067, .03669, .06184 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45520, .17654, .38111, .03997, .02182, + .01072, .03609, .06065, + .44998, .17392, .36877, .03926, .02158, + .01075, .03550, .05949, + .44510, .17149, .35746, .03859, .02135, + .01077, .03494, .05842, + .44043, .16915, .34698, .03795, .02111, + .01076, .03442, .05740, + .43579, .16684, .33678, .03732, .02088, + .01076, .03389, .05639 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .67715, .30896, .89993, .05123, .00157, + -.00001, .03932, .09950, + .67159, .30333, .90714, .05177, .00265, + -.00001, .04025, .09831, + .66269, .29516, .90306, .05219, .00407, + .00000, .04122, .09635, + .65589, .28933, .89250, .05224, .00502, + .00000, .04169, .09480, + .64850, .28332, .87612, .05211, .00598, + -.00001, .04198, .09307, + .64197, .27826, .85886, .05186, .00679, + -.00001, .04210, .09151, + .63560, .27349, .84036, .05152, .00757, + -.00001, .04211, .08997, + .62862, .26849, .81829, .05102, .00842, + -.00002, .04198, .08823 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62248, .26421, .79810, .05049, .00918, + -.00002, .04179, .08669, + .61654, .26015, .77833, .04993, .00995, + -.00002, .04155, .08517, + .61173, .25696, .76201, .04943, .01056, + -.00001, .04131, .08392, + .60146, .25030, .72703, .04826, .01194, + -.00001, .04069, .08123, + .59254, .24469, .69669, .04714, .01313, + .00029, .04006, .07888, + .58254, .23858, .66317, .04584, .01439, + .00123, .03928, .07629, + .57212, .23237, .62894, .04447, .01553, + .00236, .03843, .07364, + .56267, .22687, .59870, .04325, .01637, + .00318, .03763, .07132 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55315, .22144, .56919, .04206, .01701, + .00391, .03682, .06907, + .54527, .21703, .54550, .04112, .01739, + .00445, .03616, .06726, + .53572, .21180, .51770, .04000, .01766, + .00501, .03536, .06516, + .52732, .20727, .49415, .03905, .01779, + .00544, .03465, .06337, + .51970, .20322, .47349, .03822, .01783, + .00580, .03400, .06179, + .51005, .19817, .44823, .03716, .01779, + .00616, .03319, .05984, + .50103, .19354, .42568, .03621, .01767, + .00644, .03242, .05806, + .49272, .18929, .40562, .03533, .01752, + .00667, .03171, .05646 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48451, .18513, .38646, .03444, .01733, + .00687, .03100, .05492, + .47649, .18114, .36858, .03359, .01713, + .00702, .03031, .05341, + .46902, .17747, .35254, .03281, .01693, + .00714, .02968, .05203, + .46197, .17406, .33802, .03209, .01672, + .00722, .02906, .05076, + .45502, .17072, .32410, .03138, .01650, + .00729, .02846, .04952, + .44824, .16746, .31098, .03068, .01627, + .00734, .02788, .04833, + .44187, .16444, .29905, .03003, .01605, + .00738, .02733, .04721, + .43587, .16162, .28822, .02943, .01584, + .00740, .02682, .04618 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42990, .15885, .27776, .02884, .01563, + .00741, .02631, .04516, + .42402, .15614, .26781, .02825, .01541, + .00741, .02580, .04417, + .41853, .15362, .25874, .02771, .01521, + .00741, .02533, .04326, + .41329, .15124, .25039, .02720, .01500, + .00738, .02489, .04239, + .40810, .14889, .24228, .02669, .01479, + .00736, .02445, .04153 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70452, .30656, .86364, .04136, .00144, + -.00002, .03276, .08423, + .69551, .29959, .85536, .04165, .00240, + -.00002, .03337, .08275, + .68187, .28961, .83255, .04175, .00366, + -.00003, .03392, .08043, + .67183, .28261, .81094, .04161, .00447, + -.00003, .03412, .07869, + .66123, .27550, .78507, .04133, .00526, + -.00003, .03418, .07681, + .65209, .26955, .76113, .04099, .00591, + -.00003, .03411, .07516, + .64334, .26400, .73732, .04058, .00652, + -.00002, .03396, .07357, + .63397, .25822, .71088, .04004, .00717, + -.00002, .03371, .07183 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62582, .25331, .68768, .03950, .00774, + -.00001, .03343, .07030, + .61802, .24869, .66556, .03894, .00830, + -.00001, .03312, .06883, + .61181, .24508, .64786, .03846, .00875, + -.00002, .03283, .06764, + .59869, .23758, .61089, .03735, .00973, + -.00001, .03217, .06511, + .58747, .23133, .57983, .03635, .01056, + .00021, .03153, .06293, + .57509, .22455, .54637, .03519, .01142, + .00092, .03076, .06055, + .56234, .21774, .51303, .03398, .01218, + .00176, .02994, .05816, + .55089, .21176, .48418, .03293, .01271, + .00236, .02919, .05607 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53949, .20590, .45650, .03190, .01310, + .00289, .02844, .05405, + .53016, .20117, .43460, .03107, .01331, + .00329, .02782, .05245, + .51892, .19559, .40930, .03013, .01344, + .00369, .02707, .05058, + .50914, .19079, .38812, .02930, .01347, + .00399, .02642, .04901, + .50035, .18650, .36973, .02857, .01345, + .00423, .02584, .04762, + .48929, .18119, .34754, .02767, .01333, + .00448, .02511, .04592, + .47904, .17635, .32795, .02685, .01319, + .00468, .02443, .04438, + .46962, .17196, .31069, .02610, .01302, + .00483, .02380, .04299 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46037, .16767, .29438, .02536, .01284, + .00495, .02319, .04165, + .45140, .16357, .27929, .02466, .01264, + .00503, .02259, .04036, + .44309, .15982, .26583, .02403, .01246, + .00510, .02204, .03918, + .43535, .15634, .25374, .02342, .01226, + .00514, .02152, .03810, + .42772, .15294, .24224, .02283, .01207, + .00518, .02101, .03705, + .42030, .14965, .23149, .02227, .01186, + .00520, .02051, .03605, + .41336, .14661, .22177, .02174, .01167, + .00521, .02005, .03513, + .40685, .14378, .21300, .02124, .01149, + .00521, .01962, .03427 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40040, .14100, .20456, .02075, .01131, + .00520, .01920, .03343, + .39408, .13830, .19657, .02030, .01112, + .00519, .01879, .03261, + .38818, .13579, .18931, .01988, .01094, + .00519, .01841, .03185, + .38259, .13342, .18268, .01947, .01077, + .00517, .01804, .03116, + .37706, .13109, .17627, .01907, .01059, + .00514, .01767, .03048 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .72093, .29898, .81877, .03295, .00130, + -.00002, .02690, .07004, + .70858, .29090, .79835, .03307, .00216, + -.00003, .02728, .06846, + .69036, .27950, .76143, .03299, .00324, + -.00003, .02755, .06606, + .67726, .27159, .73191, .03277, .00392, + -.00002, .02758, .06431, + .66370, .26360, .69958, .03241, .00456, + .00000, .02749, .06247, + .65215, .25699, .67135, .03203, .00509, + .00000, .02733, .06086, + .64122, .25087, .64437, .03161, .00556, + -.00001, .02712, .05930, + .62966, .24452, .61556, .03109, .00606, + .00001, .02680, .05766 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61973, .23916, .59095, .03058, .00648, + .00000, .02649, .05625, + .61029, .23414, .56788, .03006, .00688, + -.00001, .02616, .05489, + .60285, .23023, .54978, .02962, .00720, + -.00002, .02588, .05380, + .58724, .22217, .51269, .02866, .00789, + -.00002, .02523, .05151, + .57403, .21550, .48227, .02779, .00846, + .00017, .02461, .04958, + .55957, .20835, .45012, .02680, .00904, + .00071, .02390, .04749, + .54485, .20119, .41870, .02578, .00954, + .00133, .02316, .04538, + .53178, .19493, .39196, .02489, .00987, + .00179, .02248, .04357 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51887, .18885, .36667, .02402, .01010, + .00218, .02180, .04183, + .50839, .18394, .34691, .02331, .01020, + .00246, .02126, .04048, + .49582, .17821, .32432, .02250, .01025, + .00274, .02061, .03886, + .48497, .17329, .30563, .02182, .01022, + .00296, .02004, .03751, + .47527, .16892, .28956, .02122, .01015, + .00313, .01954, .03634, + .46314, .16353, .27035, .02048, .01002, + .00330, .01892, .03490, + .45198, .15865, .25358, .01979, .00987, + .00343, .01832, .03361, + .44178, .15424, .23892, .01917, .00971, + .00352, .01778, .03245 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43177, .14997, .22516, .01860, .00954, + .00359, .01727, .03131, + .42217, .14590, .21257, .01802, .00936, + .00365, .01676, .03024, + .41334, .14217, .20142, .01748, .00920, + .00369, .01630, .02927, + .40512, .13873, .19146, .01699, .00903, + .00371, .01588, .02838, + .39704, .13538, .18205, .01653, .00885, + .00372, .01546, .02752, + .38921, .13218, .17331, .01609, .00868, + .00372, .01506, .02668, + .38192, .12920, .16545, .01567, .00851, + .00372, .01468, .02593, + .37513, .12644, .15836, .01528, .00835, + .00371, .01433, .02525 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36842, .12372, .15159, .01489, .00819, + .00370, .01398, .02458, + .36186, .12111, .14522, .01452, .00804, + .00367, .01365, .02392, + .35575, .11869, .13945, .01418, .00790, + .00365, .01333, .02332, + .35000, .11640, .13422, .01386, .00776, + .00363, .01305, .02275, + .34433, .11415, .12916, .01355, .00762, + .00361, .01276, .02220 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72700, .28729, .76735, .02589, .00116, + .00005, .02177, .05727, + .71151, .27838, .73775, .02594, .00191, + .00004, .02199, .05571, + .68904, .26596, .69074, .02579, .00282, + .00004, .02207, .05340, + .67315, .25740, .65591, .02554, .00338, + .00004, .02200, .05173, + .65690, .24881, .61958, .02518, .00390, + .00004, .02183, .04999, + .64322, .24172, .58894, .02481, .00430, + .00004, .02163, .04852, + .63040, .23520, .56041, .02441, .00466, + .00005, .02137, .04713, + .61693, .22852, .53072, .02394, .00502, + .00004, .02106, .04563 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60544, .22290, .50584, .02349, .00533, + .00003, .02074, .04437, + .59460, .21765, .48284, .02304, .00563, + .00003, .02042, .04316, + .58611, .21357, .46508, .02267, .00586, + .00002, .02015, .04221, + .56839, .20523, .42922, .02185, .00633, + .00003, .01955, .04022, + .55357, .19833, .40033, .02111, .00671, + .00016, .01900, .03856, + .53751, .19096, .37028, .02028, .00709, + .00056, .01838, .03678, + .52128, .18365, .34139, .01943, .00740, + .00101, .01771, .03502, + .50694, .17732, .31713, .01869, .00760, + .00134, .01712, .03350 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49288, .17118, .29445, .01798, .00772, + .00164, .01656, .03202, + .48149, .16628, .27693, .01742, .00776, + .00183, .01610, .03085, + .46796, .16055, .25712, .01677, .00775, + .00203, .01554, .02952, + .45636, .15566, .24088, .01620, .00769, + .00217, .01506, .02841, + .44605, .15134, .22700, .01570, .00761, + .00228, .01463, .02743, + .43319, .14602, .21059, .01511, .00749, + .00239, .01411, .02623, + .42144, .14121, .19640, .01455, .00734, + .00248, .01363, .02518, + .41076, .13688, .18410, .01404, .00719, + .00254, .01319, .02424 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40033, .13273, .17268, .01357, .00704, + .00258, .01276, .02331, + .39034, .12878, .16226, .01313, .00689, + .00261, .01234, .02244, + .38118, .12517, .15307, .01273, .00675, + .00264, .01197, .02165, + .37269, .12187, .14493, .01235, .00660, + .00264, .01163, .02094, + .36440, .11864, .13728, .01197, .00645, + .00264, .01129, .02026, + .35646, .11554, .13020, .01159, .00631, + .00265, .01096, .01962, + .34905, .11269, .12388, .01125, .00618, + .00264, .01066, .01902, + .34214, .11008, .11823, .01096, .00605, + .00263, .01038, .01845 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33532, .10752, .11283, .01068, .00593, + .00261, .01011, .01790, + .32869, .10504, .10777, .01040, .00580, + .00258, .00985, .01737, + .32253, .10274, .10319, .01014, .00568, + .00256, .00961, .01689, + .31677, .10058, .09908, .00989, .00557, + .00254, .00938, .01646, + .31110, .09846, .09511, .00964, .00546, + .00253, .00916, .01604 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .72321, .27273, .71144, .02031, .00092, + -.00016, .01719, .04602, + .70494, .26321, .67523, .02028, .00156, + -.00016, .01732, .04458, + .67881, .25003, .62145, .02007, .00234, + -.00015, .01733, .04246, + .66051, .24103, .58345, .01982, .00280, + -.00014, .01722, .04095, + .64195, .23208, .54508, .01947, .00322, + -.00015, .01704, .03940, + .62647, .22473, .51352, .01912, .00354, + -.00015, .01682, .03810, + .61203, .21800, .48463, .01877, .00382, + -.00013, .01657, .03688, + .59706, .21109, .45524, .01832, .00409, + -.00015, .01627, .03562 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58433, .20533, .43093, .01794, .00431, + -.00014, .01599, .03451, + .57235, .19999, .40870, .01757, .00452, + -.00012, .01571, .03346, + .56301, .19585, .39177, .01726, .00467, + -.00012, .01547, .03266, + .54370, .18739, .35800, .01655, .00499, + -.00011, .01494, .03101, + .52764, .18048, .33120, .01594, .00525, + .00000, .01447, .02961, + .51034, .17312, .30368, .01526, .00550, + .00029, .01395, .02811, + .49295, .16586, .27760, .01459, .00569, + .00064, .01340, .02663, + .47771, .15958, .25599, .01399, .00580, + .00091, .01290, .02539 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46288, .15352, .23599, .01341, .00585, + .00113, .01242, .02421, + .45092, .14872, .22068, .01294, .00585, + .00127, .01205, .02326, + .43684, .14311, .20355, .01241, .00582, + .00142, .01159, .02216, + .42477, .13835, .18963, .01197, .00575, + .00153, .01119, .02125, + .41405, .13415, .17782, .01158, .00567, + .00161, .01084, .02047, + .40082, .12903, .16402, .01108, .00555, + .00169, .01041, .01952, + .38877, .12442, .15212, .01064, .00542, + .00175, .01003, .01867, + .37785, .12028, .14187, .01025, .00530, + .00180, .00968, .01790 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36725, .11632, .13242, .00988, .00516, + .00182, .00934, .01716, + .35715, .11255, .12387, .00953, .00504, + .00184, .00900, .01648, + .34790, .10912, .11639, .00921, .00492, + .00186, .00870, .01586, + .33938, .10599, .10980, .00892, .00479, + .00186, .00843, .01531, + .33106, .10297, .10363, .00864, .00467, + .00186, .00817, .01477, + .32305, .10009, .09795, .00837, .00456, + .00186, .00792, .01424, + .31566, .09742, .09289, .00811, .00446, + .00185, .00769, .01376, + .30884, .09496, .08838, .00786, .00436, + .00183, .00747, .01334 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30213, .09256, .08410, .00763, .00426, + .00182, .00726, .01293, + .29560, .09025, .08012, .00741, .00416, + .00180, .00705, .01253, + .28955, .08812, .07653, .00722, .00406, + .00179, .00686, .01217, + .28388, .08613, .07330, .00702, .00398, + .00177, .00669, .01182, + .27830, .08419, .07020, .00683, .00390, + .00176, .00652, .01147 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .71114, .25538, .65241, .01550, .00083, + -.00005, .01356, .03637, + .69038, .24555, .61183, .01544, .00136, + -.00005, .01361, .03513, + .66104, .23197, .55414, .01524, .00199, + -.00003, .01354, .03328, + .64069, .22279, .51471, .01502, .00237, + -.00003, .01341, .03196, + .62020, .21371, .47584, .01473, .00270, + -.00002, .01320, .03061, + .60322, .20630, .44448, .01445, .00294, + -.00002, .01299, .02950, + .58748, .19954, .41624, .01415, .00314, + -.00002, .01276, .02847, + .57126, .19262, .38791, .01378, .00333, + -.00003, .01250, .02740 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55756, .18687, .36483, .01346, .00349, + -.00003, .01225, .02648, + .54474, .18154, .34394, .01315, .00364, + -.00003, .01200, .02561, + .53478, .17744, .32814, .01289, .00374, + -.00002, .01180, .02494, + .51431, .16908, .29696, .01232, .00395, + -.00002, .01135, .02356, + .49734, .16228, .27259, .01184, .00411, + .00006, .01095, .02243, + .47917, .15511, .24789, .01131, .00425, + .00028, .01051, .02122, + .46107, .14804, .22474, .01077, .00437, + .00053, .01006, .02003, + .44530, .14196, .20575, .01030, .00442, + .00071, .00965, .01902 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43000, .13614, .18838, .00985, .00443, + .00087, .00926, .01805, + .41774, .13151, .17520, .00948, .00441, + .00097, .00896, .01731, + .40336, .12615, .16057, .00906, .00436, + .00108, .00858, .01645, + .39109, .12161, .14878, .00872, .00429, + .00115, .00826, .01572, + .38024, .11763, .13885, .00843, .00422, + .00121, .00798, .01508, + .36689, .11279, .12732, .00804, .00411, + .00125, .00765, .01433, + .35482, .10844, .11746, .00769, .00399, + .00129, .00734, .01366, + .34392, .10455, .10903, .00739, .00389, + .00131, .00706, .01307 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33336, .10083, .10130, .00711, .00378, + .00132, .00678, .01251, + .32335, .09733, .09435, .00684, .00367, + .00134, .00653, .01197, + .31423, .09415, .08829, .00659, .00358, + .00134, .00630, .01147, + .30583, .09125, .08300, .00636, .00348, + .00134, .00608, .01104, + .29767, .08844, .07806, .00614, .00339, + .00133, .00588, .01063, + .28985, .08577, .07354, .00593, .00330, + .00132, .00568, .01024, + .28264, .08332, .06953, .00573, .00321, + .00131, .00550, .00988, + .27600, .08106, .06598, .00555, .00313, + .00130, .00534, .00955 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26947, .07887, .06262, .00538, .00305, + .00128, .00518, .00922, + .26315, .07676, .05950, .00522, .00298, + .00127, .00502, .00892, + .25730, .07482, .05669, .00507, .00290, + .00126, .00487, .00865, + .25184, .07301, .05418, .00493, .00283, + .00125, .00474, .00840, + .24647, .07123, .05177, .00480, .00277, + .00123, .00461, .00815 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .69119, .23652, .59214, .01170, .00069, + -.00004, .01046, .02832, + .66842, .22654, .54912, .01165, .00114, + -.00006, .01049, .02722, + .63645, .21295, .48986, .01149, .00164, + -.00004, .01040, .02564, + .61449, .20376, .45040, .01130, .00193, + -.00003, .01027, .02454, + .59254, .19471, .41224, .01105, .00218, + -.00003, .01008, .02343, + .57446, .18737, .38194, .01080, .00237, + -.00004, .00989, .02252, + .55781, .18068, .35502, .01055, .00253, + -.00003, .00970, .02166, + .54070, .17391, .32839, .01027, .00267, + -.00004, .00948, .02073 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52632, .16828, .30688, .01002, .00278, + -.00003, .00926, .01999, + .51291, .16308, .28758, .00977, .00289, + -.00002, .00904, .01930, + .50257, .15908, .27314, .00956, .00295, + -.00002, .00887, .01877, + .48129, .15102, .24494, .00912, .00307, + -.00003, .00850, .01765, + .46384, .14447, .22316, .00874, .00318, + .00002, .00818, .01674, + .44524, .13757, .20130, .00831, .00326, + .00019, .00782, .01578, + .42681, .13082, .18103, .00789, .00332, + .00039, .00746, .01484, + .41083, .12504, .16459, .00752, .00334, + .00052, .00714, .01403 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39539, .11950, .14969, .00717, .00332, + .00063, .00683, .01330, + .38305, .11515, .13850, .00691, .00329, + .00071, .00657, .01272, + .36866, .11010, .12615, .00659, .00322, + .00078, .00629, .01203, + .35646, .10586, .11627, .00631, .00316, + .00083, .00604, .01147, + .34571, .10215, .10801, .00607, .00310, + .00087, .00581, .01100, + .33252, .09764, .09845, .00577, .00301, + .00089, .00554, .01042, + .32067, .09361, .09037, .00550, .00292, + .00092, .00530, .00989, + .31000, .09001, .08351, .00528, .00284, + .00094, .00508, .00942 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .29966, .08659, .07727, .00509, .00275, + .00095, .00488, .00897, + .28991, .08337, .07167, .00488, .00266, + .00094, .00468, .00857, + .28106, .08046, .06681, .00468, .00258, + .00094, .00449, .00821, + .27298, .07781, .06259, .00450, .00251, + .00094, .00433, .00788, + .26513, .07526, .05867, .00433, .00243, + .00093, .00418, .00756, + .25760, .07283, .05509, .00417, .00236, + .00092, .00403, .00728, + .25067, .07060, .05194, .00403, .00229, + .00091, .00389, .00701, + .24429, .06857, .04915, .00392, .00223, + .00091, .00377, .00674 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23805, .06659, .04652, .00380, .00217, + .00090, .00364, .00650, + .23204, .06469, .04410, .00367, .00211, + .00089, .00353, .00628, + .22650, .06294, .04193, .00355, .00206, + .00088, .00342, .00609, + .22133, .06132, .03998, .00344, .00201, + .00087, .00332, .00590, + .21625, .05973, .03812, .00334, .00195, + .00086, .00323, .00571 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .66447, .21662, .53184, .00869, .00060, + -.00001, .00799, .02163, + .64010, .20675, .48800, .00865, .00094, + -.00001, .00800, .02074, + .60625, .19327, .42910, .00847, .00135, + -.00001, .00789, .01948, + .58313, .18427, .39071, .00832, .00158, + .00000, .00776, .01859, + .56015, .17544, .35417, .00813, .00177, + .00000, .00761, .01765, + .54134, .16832, .32557, .00793, .00191, + .00001, .00746, .01688, + .52409, .16185, .30045, .00772, .00202, + .00001, .00728, .01622, + .50642, .15530, .27585, .00751, .00213, + .00000, .00708, .01549 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49162, .14992, .25625, .00733, .00220, + -.00001, .00690, .01489, + .47789, .14496, .23879, .00715, .00226, + .00000, .00673, .01434, + .46734, .14116, .22578, .00699, .00229, + .00000, .00659, .01391, + .44581, .13345, .20063, .00664, .00239, + .00000, .00630, .01303, + .42817, .12723, .18145, .00636, .00244, + .00004, .00604, .01232, + .40949, .12072, .16240, .00602, .00247, + .00017, .00575, .01159, + .39108, .11438, .14494, .00568, .00250, + .00031, .00546, .01087, + .37517, .10899, .13090, .00541, .00249, + .00040, .00522, .01023 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35987, .10385, .11829, .00516, .00247, + .00048, .00498, .00964, + .34775, .09979, .10884, .00496, .00244, + .00054, .00479, .00918, + .33363, .09512, .09855, .00470, .00238, + .00058, .00455, .00869, + .32170, .09121, .09037, .00450, .00232, + .00062, .00435, .00827, + .31123, .08779, .08355, .00431, .00227, + .00064, .00419, .00790, + .29843, .08368, .07575, .00408, .00219, + .00066, .00398, .00745, + .28692, .08000, .06918, .00390, .00212, + .00067, .00380, .00705, + .27661, .07673, .06364, .00374, .00205, + .00068, .00363, .00671 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26670, .07362, .05860, .00358, .00198, + .00068, .00346, .00639, + .25740, .07070, .05415, .00342, .00191, + .00068, .00331, .00609, + .24896, .06807, .05031, .00328, .00185, + .00067, .00318, .00581, + .24126, .06570, .04698, .00315, .00179, + .00067, .00306, .00555, + .23379, .06341, .04389, .00303, .00173, + .00066, .00294, .00532, + .22668, .06123, .04109, .00292, .00168, + .00066, .00283, .00510, + .22014, .05924, .03863, .00283, .00163, + .00065, .00273, .00490, + .21415, .05743, .03646, .00273, .00158, + .00063, .00263, .00471 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20830, .05566, .03442, .00263, .00154, + .00062, .00254, .00454, + .20269, .05398, .03255, .00252, .00149, + .00061, .00246, .00438, + .19753, .05244, .03088, .00243, .00144, + .00061, .00238, .00423, + .19266, .05100, .02939, .00237, .00140, + .00060, .00231, .00409, + .18791, .04961, .02796, .00231, .00137, + .00060, .00224, .00395 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .63204, .19617, .47273, .00627, .00052, + .00006, .00603, .01630, + .60655, .18656, .42936, .00627, .00080, + .00006, .00602, .01554, + .57137, .17355, .37232, .00616, .00112, + .00007, .00593, .01450, + .54752, .16487, .33584, .00605, .00129, + .00006, .00582, .01378, + .52397, .15640, .30161, .00589, .00143, + .00006, .00568, .01307, + .50479, .14959, .27513, .00573, .00154, + .00006, .00554, .01248, + .48722, .14346, .25212, .00558, .00160, + .00005, .00539, .01196, + .46935, .13726, .22988, .00542, .00167, + .00005, .00524, .01138 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45449, .13216, .21227, .00528, .00172, + .00004, .00510, .01090, + .44073, .12747, .19669, .00513, .00176, + .00004, .00496, .01046, + .43015, .12389, .18520, .00501, .00179, + .00005, .00485, .01014, + .40870, .11667, .16311, .00473, .00183, + .00005, .00462, .00947, + .39122, .11089, .14644, .00451, .00186, + .00007, .00441, .00894, + .37276, .10485, .13005, .00430, .00187, + .00016, .00419, .00836, + .35464, .09899, .11517, .00407, .00188, + .00026, .00398, .00779, + .33912, .09400, .10334, .00385, .00186, + .00033, .00378, .00734 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32428, .08929, .09278, .00363, .00183, + .00037, .00359, .00691, + .31248, .08558, .08495, .00349, .00179, + .00041, .00344, .00656, + .29887, .08133, .07646, .00329, .00175, + .00045, .00327, .00617, + .28738, .07778, .06976, .00315, .00170, + .00046, .00312, .00585, + .27730, .07469, .06422, .00304, .00165, + .00047, .00298, .00558, + .26509, .07096, .05789, .00286, .00160, + .00049, .00282, .00526, + .25416, .06765, .05262, .00272, .00153, + .00049, .00268, .00497, + .24439, .06473, .04820, .00260, .00147, + .00049, .00256, .00470 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23504, .06195, .04421, .00248, .00142, + .00050, .00245, .00445, + .22626, .05936, .04069, .00237, .00137, + .00049, .00234, .00422, + .21832, .05703, .03765, .00227, .00132, + .00048, .00224, .00402, + .21111, .05491, .03505, .00216, .00128, + .00048, .00214, .00387, + .20414, .05288, .03264, .00207, .00123, + .00048, .00205, .00370, + .19749, .05097, .03047, .00201, .00119, + .00047, .00198, .00351, + .19142, .04923, .02857, .00194, .00115, + .00046, .00190, .00336, + .18587, .04763, .02689, .00186, .00111, + .00045, .00183, .00325 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18046, .04608, .02533, .00179, .00107, + .00044, .00176, .00313, + .17526, .04461, .02390, .00173, .00104, + .00043, .00170, .00300, + .17047, .04326, .02262, .00168, .00101, + .00043, .00165, .00288, + .16603, .04201, .02149, .00162, .00098, + .00042, .00159, .00279, + .16168, .04078, .02040, .00157, .00095, + .00041, .00154, .00270 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .59482, .17589, .41588, .00456, .00040, + .00002, .00441, .01203, + .56870, .16668, .37405, .00454, .00063, + .00001, .00440, .01145, + .53287, .15429, .32002, .00447, .00087, + .00003, .00432, .01063, + .50876, .14606, .28603, .00437, .00099, + .00002, .00423, .01008, + .48504, .13805, .25457, .00425, .00109, + .00002, .00412, .00953, + .46582, .13164, .23052, .00414, .00116, + .00002, .00402, .00908, + .44831, .12589, .20982, .00403, .00123, + .00002, .00391, .00864, + .43058, .12009, .18996, .00389, .00127, + .00002, .00378, .00824 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41587, .11534, .17438, .00379, .00130, + .00002, .00368, .00788, + .40229, .11098, .16069, .00369, .00132, + .00002, .00358, .00754, + .39190, .10768, .15065, .00358, .00134, + .00001, .00350, .00729, + .37085, .10103, .13156, .00340, .00136, + .00002, .00331, .00677, + .35380, .09571, .11729, .00325, .00137, + .00004, .00315, .00635, + .33588, .09018, .10338, .00306, .00137, + .00010, .00298, .00593, + .31842, .08483, .09088, .00286, .00136, + .00017, .00282, .00555, + .30349, .08031, .08100, .00271, .00134, + .00021, .00267, .00519 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28925, .07604, .07226, .00258, .00132, + .00025, .00253, .00485, + .27805, .07269, .06584, .00245, .00129, + .00028, .00242, .00461, + .26509, .06886, .05891, .00232, .00125, + .00030, .00229, .00433, + .25421, .06569, .05348, .00220, .00121, + .00031, .00218, .00409, + .24471, .06294, .04902, .00210, .00117, + .00033, .00208, .00388, + .23317, .05962, .04397, .00200, .00112, + .00033, .00197, .00365, + .22292, .05668, .03978, .00190, .00108, + .00034, .00187, .00344, + .21381, .05408, .03628, .00180, .00104, + .00034, .00178, .00326 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20512, .05163, .03314, .00170, .00100, + .00033, .00169, .00308, + .19697, .04935, .03039, .00163, .00096, + .00034, .00161, .00290, + .18961, .04731, .02803, .00156, .00092, + .00034, .00154, .00274, + .18293, .04547, .02600, .00150, .00089, + .00033, .00147, .00263, + .17650, .04369, .02414, .00144, .00086, + .00033, .00141, .00252, + .17043, .04202, .02247, .00138, .00082, + .00032, .00134, .00241, + .16487, .04050, .02101, .00132, .00079, + .00032, .00129, .00230, + .15977, .03912, .01974, .00128, .00077, + .00031, .00124, .00221 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15481, .03778, .01855, .00124, .00074, + .00030, .00120, .00211, + .15009, .03651, .01746, .00119, .00071, + .00030, .00115, .00202, + .14575, .03535, .01648, .00115, .00069, + .00029, .00111, .00194, + .14172, .03427, .01563, .00111, .00067, + .00028, .00107, .00187, + .13780, .03322, .01482, .00107, .00065, + .00028, .00103, .00181 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .55391, .15596, .36194, .00320, .00029, + .00003, .00319, .00874, + .52759, .14730, .32248, .00322, .00048, + .00003, .00318, .00828, + .49177, .13566, .27234, .00318, .00066, + .00002, .00311, .00764, + .46780, .12797, .24126, .00312, .00075, + .00003, .00303, .00722, + .44435, .12055, .21283, .00303, .00083, + .00004, .00295, .00681, + .42541, .11462, .19132, .00295, .00087, + .00003, .00287, .00647, + .40823, .10929, .17298, .00288, .00091, + .00002, .00278, .00616, + .39092, .10397, .15553, .00276, .00093, + .00001, .00267, .00587 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37661, .09961, .14195, .00267, .00095, + .00002, .00259, .00560, + .36344, .09562, .13012, .00259, .00096, + .00003, .00252, .00534, + .35336, .09261, .12150, .00254, .00097, + .00002, .00245, .00515, + .33305, .08655, .10520, .00242, .00098, + .00002, .00232, .00478, + .31672, .08173, .09313, .00229, .00098, + .00003, .00220, .00447, + .29960, .07675, .08149, .00217, .00098, + .00008, .00208, .00415, + .28297, .07195, .07110, .00204, .00097, + .00013, .00196, .00386, + .26883, .06791, .06296, .00193, .00094, + .00015, .00185, .00360 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25538, .06411, .05583, .00183, .00092, + .00017, .00174, .00336, + .24485, .06114, .05062, .00173, .00090, + .00019, .00166, .00319, + .23269, .05776, .04504, .00165, .00087, + .00021, .00156, .00297, + .22254, .05494, .04070, .00156, .00083, + .00022, .00149, .00280, + .21373, .05250, .03714, .00148, .00080, + .00022, .00143, .00266, + .20305, .04959, .03315, .00140, .00077, + .00022, .00133, .00249, + .19355, .04702, .02985, .00133, .00073, + .00022, .00126, .00234, + .18514, .04475, .02711, .00127, .00070, + .00022, .00119, .00221 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17718, .04261, .02466, .00119, .00067, + .00022, .00114, .00210, + .16972, .04063, .02253, .00114, .00064, + .00021, .00108, .00198, + .16300, .03886, .02071, .00109, .00061, + .00021, .00102, .00188, + .15693, .03727, .01915, .00104, .00059, + .00021, .00097, .00178, + .15110, .03574, .01773, .00099, .00057, + .00021, .00093, .00169, + .14559, .03431, .01646, .00096, .00055, + .00021, .00089, .00160, + .14056, .03301, .01535, .00092, .00053, + .00020, .00086, .00153, + .13598, .03182, .01439, .00088, .00051, + .00019, .00082, .00147 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13153, .03068, .01349, .00084, .00050, + .00019, .00079, .00141, + .12728, .02960, .01267, .00081, .00048, + .00019, .00076, .00135, + .12338, .02861, .01194, .00079, .00046, + .00018, .00073, .00129, + .11977, .02769, .01130, .00076, .00044, + .00018, .00070, .00125, + .11626, .02680, .01070, .00074, .00042, + .00017, .00067, .00121 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .51027, .13668, .31134, .00220, .00026, + .00007, .00230, .00620, + .48425, .12861, .27480, .00221, .00039, + .00004, .00228, .00586, + .44903, .11785, .22912, .00216, .00051, + .00005, .00222, .00541, + .42558, .11079, .20116, .00212, .00058, + .00005, .00216, .00509, + .40271, .10399, .17588, .00207, .00064, + .00005, .00210, .00477, + .38432, .09857, .15696, .00202, .00068, + .00004, .00204, .00452, + .36774, .09373, .14095, .00194, .00070, + .00004, .00198, .00429, + .35104, .08891, .12586, .00191, .00072, + .00004, .00192, .00403 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33733, .08496, .11422, .00184, .00073, + .00004, .00185, .00385, + .32474, .08136, .10412, .00177, .00073, + .00004, .00178, .00369, + .31513, .07866, .09682, .00172, .00072, + .00004, .00173, .00356, + .29583, .07324, .08312, .00165, .00073, + .00003, .00163, .00328, + .28041, .06893, .07307, .00154, .00074, + .00004, .00155, .00307, + .26432, .06448, .06344, .00143, .00072, + .00007, .00146, .00285, + .24871, .06024, .05495, .00135, .00070, + .00011, .00137, .00263, + .23548, .05668, .04836, .00127, .00069, + .00012, .00129, .00245 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22298, .05331, .04261, .00120, .00066, + .00013, .00121, .00230, + .21318, .05072, .03843, .00115, .00065, + .00014, .00115, .00216, + .20200, .04775, .03400, .00107, .00062, + .00015, .00108, .00202, + .19268, .04530, .03057, .00101, .00059, + .00016, .00103, .00189, + .18458, .04319, .02778, .00096, .00058, + .00017, .00099, .00177, + .17482, .04068, .02467, .00090, .00056, + .00016, .00093, .00166, + .16616, .03846, .02210, .00085, .00053, + .00017, .00087, .00158, + .15851, .03651, .01999, .00081, .00050, + .00017, .00082, .00150 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15130, .03468, .01813, .00077, .00048, + .00016, .00078, .00140, + .14455, .03298, .01649, .00073, .00046, + .00017, .00074, .00131, + .13849, .03147, .01510, .00070, .00044, + .00017, .00070, .00124, + .13306, .03011, .01393, .00066, .00042, + .00016, .00066, .00117, + .12784, .02881, .01286, .00063, .00040, + .00015, .00063, .00112, + .12289, .02760, .01191, .00061, .00038, + .00015, .00060, .00106, + .11841, .02650, .01108, .00059, .00036, + .00015, .00058, .00102, + .11435, .02550, .01036, .00055, .00035, + .00015, .00056, .00098 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11041, .02454, .00968, .00053, .00034, + .00014, .00053, .00093, + .10664, .02363, .00908, .00051, .00033, + .00014, .00051, .00089, + .10319, .02280, .00854, .00050, .00032, + .00014, .00049, .00084, + .10002, .02204, .00807, .00048, .00031, + .00014, .00047, .00081, + .09693, .02130, .00762, .00046, .00030, + .00013, .00045, .00078 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .46496, .11848, .26469, .00148, .00021, + .00005, .00160, .00430, + .43964, .11105, .23150, .00146, .00029, + .00005, .00160, .00407, + .40547, .10122, .19047, .00143, .00039, + .00003, .00156, .00374, + .38286, .09481, .16576, .00139, .00045, + .00004, .00152, .00352, + .36091, .08866, .14365, .00136, .00049, + .00004, .00148, .00328, + .34337, .08379, .12727, .00131, .00051, + .00003, .00143, .00310, + .32764, .07942, .11351, .00125, .00053, + .00003, .00139, .00295, + .31183, .07510, .10068, .00122, .00054, + .00003, .00134, .00278 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29885, .07159, .09084, .00117, .00055, + .00003, .00129, .00264, + .28698, .06841, .08238, .00113, .00056, + .00003, .00125, .00251, + .27796, .06600, .07628, .00109, .00056, + .00003, .00122, .00242, + .25989, .06121, .06491, .00104, .00055, + .00004, .00114, .00222, + .24546, .05742, .05665, .00099, .00054, + .00004, .00109, .00205, + .23049, .05353, .04883, .00094, .00053, + .00005, .00102, .00190, + .21610, .04981, .04198, .00086, .00052, + .00008, .00096, .00176, + .20395, .04669, .03671, .00079, .00050, + .00010, .00090, .00164 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19247, .04380, .03215, .00076, .00049, + .00010, .00083, .00152, + .18353, .04155, .02885, .00072, .00047, + .00012, .00079, .00144, + .17333, .03901, .02537, .00068, .00045, + .00012, .00075, .00133, + .16486, .03690, .02270, .00064, .00043, + .00012, .00071, .00125, + .15753, .03509, .02054, .00060, .00041, + .00013, .00067, .00119, + .14876, .03295, .01814, .00055, .00039, + .00013, .00063, .00109, + .14098, .03106, .01618, .00053, .00037, + .00012, .00059, .00102, + .13413, .02941, .01458, .00050, .00035, + .00012, .00056, .00096 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12767, .02787, .01316, .00047, .00034, + .00012, .00053, .00090, + .12168, .02644, .01193, .00045, .00032, + .00012, .00050, .00085, + .11632, .02516, .01089, .00042, .00031, + .00012, .00047, .00080, + .11149, .02402, .01002, .00040, .00029, + .00012, .00045, .00076, + .10688, .02294, .00922, .00038, .00028, + .00011, .00043, .00072, + .10254, .02193, .00851, .00037, .00027, + .00011, .00041, .00068, + .09860, .02101, .00790, .00035, .00026, + .00011, .00039, .00065, + .09501, .02018, .00737, .00035, .00025, + .00011, .00037, .00063 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09155, .01938, .00688, .00033, .00024, + .00011, .00036, .00060, + .08828, .01863, .00643, .00031, .00023, + .00011, .00034, .00057, + .08529, .01794, .00604, .00029, .00022, + .00010, .00033, .00055, + .08252, .01732, .00570, .00028, .00021, + .00010, .00032, .00052, + .07984, .01671, .00537, .00028, .00021, + .00010, .00030, .00050 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .41895, .10160, .22254, .00108, .00010, + -.00002, .00104, .00292, + .39464, .09490, .19289, .00108, .00018, + -.00002, .00103, .00276, + .36210, .08608, .15677, .00103, .00025, + -.00002, .00101, .00253, + .34068, .08034, .13528, .00100, .00028, + -.00001, .00099, .00236, + .31998, .07486, .11625, .00097, .00031, + -.00002, .00095, .00220, + .30345, .07054, .10227, .00096, .00033, + -.00002, .00092, .00208, + .28866, .06669, .09062, .00093, .00034, + .00000, .00090, .00195, + .27390, .06287, .07986, .00090, .00034, + -.00001, .00086, .00186 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .26183, .05980, .07167, .00086, .00034, + -.00001, .00082, .00176, + .25082, .05701, .06466, .00083, .00034, + -.00001, .00079, .00167, + .24248, .05490, .05963, .00082, .00035, + -.00002, .00077, .00160, + .22580, .05072, .05033, .00078, .00034, + -.00001, .00073, .00146, + .21258, .04744, .04363, .00073, .00034, + -.00001, .00068, .00137, + .19891, .04407, .03733, .00067, .00033, + .00001, .00064, .00126, + .18582, .04087, .03187, .00062, .00031, + .00002, .00059, .00116, + .17480, .03820, .02769, .00058, .00030, + .00003, .00055, .00108 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16444, .03571, .02411, .00054, .00029, + .00005, .00052, .00100, + .15642, .03380, .02154, .00051, .00028, + .00005, .00050, .00093, + .14724, .03163, .01884, .00049, .00027, + .00005, .00046, .00086, + .13966, .02985, .01678, .00047, .00026, + .00005, .00044, .00081, + .13313, .02833, .01512, .00044, .00024, + .00006, .00041, .00076, + .12530, .02652, .01329, .00043, .00023, + .00006, .00039, .00070, + .11843, .02493, .01181, .00039, .00022, + .00006, .00036, .00066, + .11240, .02354, .01060, .00036, .00021, + .00006, .00033, .00062 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10671, .02225, .00953, .00034, .00019, + .00006, .00031, .00059, + .10144, .02105, .00861, .00033, .00018, + .00006, .00030, .00055, + .09674, .01999, .00784, .00032, .00018, + .00006, .00029, .00051, + .09252, .01906, .00718, .00031, .00017, + .00006, .00027, .00048, + .08850, .01816, .00659, .00029, .00016, + .00006, .00025, .00045, + .08474, .01733, .00607, .00027, .00015, + .00006, .00024, .00043, + .08133, .01657, .00563, .00026, .00015, + .00006, .00023, .00041, + .07824, .01589, .00524, .00025, .00014, + .00006, .00022, .00039 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07525, .01523, .00488, .00024, .00013, + .00005, .00021, .00037, + .07242, .01461, .00455, .00023, .00013, + .00005, .00020, .00036, + .06984, .01405, .00426, .00023, .00013, + .00005, .00019, .00034, + .06747, .01354, .00402, .00021, .00012, + .00005, .00018, .00033, + .06517, .01304, .00378, .00020, .00012, + .00005, .00017, .00032 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .37284, .08573, .18425, .00063, .00011, + .00004, .00072, .00195, + .34987, .07982, .15827, .00064, .00015, + .00004, .00071, .00181, + .31927, .07202, .12703, .00062, .00020, + .00004, .00070, .00165, + .29922, .06699, .10867, .00062, .00022, + .00004, .00069, .00153, + .27997, .06220, .09256, .00060, .00024, + .00004, .00067, .00143, + .26469, .05843, .08085, .00058, .00024, + .00005, .00064, .00135, + .25105, .05506, .07118, .00054, .00025, + .00003, .00060, .00131, + .23745, .05178, .06230, .00055, .00024, + .00002, .00058, .00120 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22637, .04911, .05558, .00054, .00024, + .00002, .00056, .00114, + .21632, .04669, .04987, .00052, .00025, + .00003, .00054, .00109, + .20876, .04488, .04580, .00049, .00025, + .00003, .00053, .00104, + .19362, .04130, .03833, .00048, .00024, + .00003, .00049, .00095, + .18164, .03850, .03301, .00045, .00023, + .00003, .00045, .00089, + .16933, .03564, .02803, .00041, .00023, + .00003, .00042, .00081, + .15756, .03293, .02374, .00039, .00022, + .00004, .00039, .00073, + .14771, .03068, .02050, .00036, .00021, + .00005, .00037, .00068 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13850, .02860, .01774, .00034, .00020, + .00005, .00035, .00064, + .13136, .02699, .01577, .00034, .00019, + .00005, .00032, .00059, + .12327, .02518, .01372, .00030, .00018, + .00005, .00030, .00055, + .11660, .02370, .01216, .00028, .00017, + .00005, .00028, .00051, + .11085, .02243, .01091, .00027, .00016, + .00006, .00027, .00048, + .10400, .02093, .00954, .00025, .00015, + .00005, .00024, .00045, + .09801, .01962, .00844, .00024, .00014, + .00005, .00023, .00042, + .09276, .01848, .00754, .00022, .00014, + .00005, .00022, .00039 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08784, .01742, .00675, .00020, .00013, + .00005, .00020, .00037, + .08327, .01645, .00608, .00020, .00012, + .00005, .00019, .00034, + .07921, .01559, .00552, .00021, .00012, + .00005, .00017, .00031, + .07559, .01482, .00505, .00019, .00011, + .00004, .00016, .00030, + .07215, .01409, .00462, .00018, .00010, + .00004, .00016, .00029, + .06893, .01341, .00424, .00017, .00010, + .00004, .00015, .00027, + .06602, .01280, .00392, .00016, .00010, + .00004, .00014, .00026, + .06338, .01225, .00364, .00016, .00009, + .00004, .00014, .00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06085, .01172, .00338, .00015, .00009, + .00004, .00013, .00023, + .05846, .01123, .00315, .00014, .00008, + .00004, .00012, .00022, + .05628, .01077, .00295, .00013, .00008, + .00003, .00012, .00020, + .05428, .01036, .00277, .00013, .00008, + .00003, .00011, .00019, + .05234, .00997, .00260, .00013, .00007, + .00003, .00011, .00018 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .32763, .07142, .15045, .00034, .00009, + .00005, .00049, .00124, + .30626, .06622, .12804, .00035, .00012, + .00005, .00048, .00118, + .27793, .05944, .10145, .00036, .00016, + .00005, .00047, .00106, + .25949, .05508, .08602, .00035, .00016, + .00004, .00045, .00098, + .24183, .05096, .07263, .00035, .00017, + .00004, .00043, .00091, + .22787, .04772, .06297, .00035, .00018, + .00004, .00042, .00085, + .21547, .04485, .05505, .00033, .00018, + .00004, .00041, .00081, + .20316, .04203, .04786, .00033, .00017, + .00002, .00038, .00077 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .19317, .03976, .04245, .00033, .00017, + .00002, .00037, .00071, + .18411, .03771, .03787, .00032, .00017, + .00002, .00035, .00067, + .17729, .03618, .03463, .00030, .00018, + .00002, .00034, .00064, + .16378, .03317, .02873, .00028, .00017, + .00003, .00032, .00059, + .15310, .03081, .02456, .00026, .00016, + .00003, .00030, .00055, + .14216, .02841, .02070, .00025, .00016, + .00003, .00028, .00050, + .13177, .02614, .01741, .00023, .00015, + .00003, .00026, .00046, + .12312, .02427, .01493, .00021, .00014, + .00004, .00024, .00042 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11506, .02255, .01284, .00019, .00014, + .00004, .00022, .00039, + .10882, .02123, .01136, .00019, .00013, + .00004, .00021, .00035, + .10177, .01974, .00982, .00017, .00012, + .00004, .00019, .00034, + .09598, .01852, .00866, .00016, .00012, + .00004, .00018, .00032, + .09102, .01748, .00774, .00014, .00011, + .00004, .00017, .00031, + .08512, .01626, .00673, .00014, .00010, + .00004, .00016, .00028, + .07995, .01520, .00593, .00014, .00010, + .00004, .00014, .00025, + .07545, .01428, .00528, .00014, .00009, + .00004, .00014, .00023 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07126, .01342, .00471, .00012, .00009, + .00004, .00013, .00022, + .06738, .01264, .00423, .00012, .00008, + .00003, .00012, .00020, + .06394, .01194, .00382, .00012, .00008, + .00003, .00011, .00019, + .06088, .01133, .00349, .00010, .00007, + .00003, .00011, .00018, + .05798, .01075, .00318, .00010, .00007, + .00003, .00010, .00017, + .05525, .01021, .00291, .00010, .00006, + .00002, .00009, .00016, + .05280, .00972, .00269, .00009, .00006, + .00002, .00009, .00015, + .05060, .00929, .00249, .00009, .00006, + .00002, .00008, .00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04848, .00887, .00231, .00009, .00006, + .00002, .00008, .00013, + .04649, .00848, .00215, .00008, .00005, + .00002, .00008, .00013, + .04467, .00812, .00200, .00007, .00005, + .00002, .00007, .00013, + .04301, .00780, .00188, .00007, .00005, + .00002, .00007, .00012, + .04141, .00749, .00177, .00007, .00005, + .00003, .00007, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .28416, .05872, .12111, .00025, .00004, + .00001, .00029, .00079, + .26458, .05425, .10216, .00025, .00006, + .00001, .00029, .00073, + .23877, .04845, .07990, .00028, .00008, + .00000, .00028, .00063, + .22208, .04473, .06717, .00027, .00009, + .00000, .00027, .00059, + .20617, .04121, .05623, .00025, .00009, + .00000, .00025, .00057, + .19364, .03847, .04840, .00024, .00009, + .00000, .00023, .00054, + .18254, .03606, .04205, .00024, .00010, + .00000, .00023, .00049, + .17160, .03368, .03629, .00021, .00010, + .00000, .00021, .00047 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .16271, .03178, .03200, .00021, .00009, + .00000, .00021, .00045, + .15467, .03008, .02839, .00021, .00009, + .00001, .00020, .00043, + .14864, .02879, .02586, .00020, .00009, + .00001, .00020, .00041, + .13672, .02628, .02127, .00019, .00009, + .00001, .00019, .00036, + .12736, .02433, .01806, .00018, .00010, + .00001, .00017, .00033, + .11781, .02235, .01510, .00017, .00009, + .00001, .00016, .00031, + .10878, .02050, .01261, .00015, .00008, + .00001, .00015, .00027, + .10127, .01897, .01074, .00015, .00008, + .00002, .00013, .00025 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09431, .01756, .00918, .00014, .00008, + .00001, .00012, .00024, + .08895, .01648, .00808, .00013, .00007, + .00001, .00011, .00022, + .08293, .01527, .00695, .00011, .00007, + .00002, .00010, .00021, + .07797, .01430, .00610, .00011, .00006, + .00002, .00010, .00019, + .07374, .01347, .00543, .00012, .00006, + .00002, .00010, .00017, + .06874, .01249, .00470, .00010, .00006, + .00002, .00009, .00016, + .06439, .01164, .00412, .00009, .00005, + .00002, .00008, .00015, + .06060, .01090, .00365, .00009, .00005, + .00002, .00008, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05706, .01022, .00325, .00008, .00004, + .00001, .00007, .00013, + .05382, .00960, .00291, .00008, .00004, + .00002, .00006, .00012, + .05095, .00905, .00262, .00008, .00004, + .00002, .00006, .00011, + .04839, .00856, .00238, .00007, .00004, + .00001, .00006, .00011, + .04597, .00810, .00217, .00007, .00004, + .00001, .00005, .00010, + .04372, .00768, .00198, .00007, .00003, + .00001, .00005, .00009, + .04170, .00730, .00182, .00007, .00003, + .00001, .00005, .00009, + .03987, .00696, .00169, .00006, .00003, + .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)/ + .03813, .00663, .00156, .00005, .00003, + .00001, .00004, .00008, + .03649, .00633, .00145, .00005, .00003, + .00001, .00004, .00008, + .03500, .00606, .00135, .00005, .00003, + .00001, .00004, .00007, + .03364, .00580, .00126, .00005, .00002, + .00001, .00004, .00007, + .03233, .00556, .00118, .00004, .00002, + .00001, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .24256, .04735, .09559, .00010, .00006, + .00004, .00021, .00046, + .22496, .04357, .07990, .00009, .00006, + .00003, .00020, .00043, + .20189, .03869, .06168, .00010, .00007, + .00004, .00019, .00037, + .18703, .03558, .05138, .00010, .00007, + .00003, .00018, .00035, + .17292, .03266, .04261, .00009, .00007, + .00003, .00017, .00034, + .16183, .03038, .03639, .00011, .00007, + .00003, .00015, .00032, + .15205, .02838, .03139, .00011, .00007, + .00003, .00015, .00030, + .14245, .02643, .02690, .00010, .00007, + .00003, .00015, .00028 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13469, .02488, .02358, .00010, .00007, + .00002, .00014, .00026, + .12769, .02348, .02080, .00011, .00007, + .00002, .00014, .00024, + .12246, .02244, .01886, .00010, .00007, + .00002, .00013, .00022, + .11216, .02038, .01537, .00009, .00007, + .00002, .00012, .00021, + .10410, .01880, .01295, .00008, .00006, + .00002, .00011, .00020, + .09591, .01721, .01075, .00008, .00006, + .00002, .00010, .00018, + .08819, .01572, .00890, .00007, .00006, + .00002, .00009, .00016, + .08180, .01449, .00753, .00006, .00005, + .00002, .00009, .00015 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07589, .01337, .00640, .00006, .00005, + .00002, .00008, .00014, + .07136, .01251, .00560, .00006, .00005, + .00002, .00008, .00013, + .06628, .01156, .00479, .00007, .00005, + .00002, .00007, .00011, + .06214, .01078, .00419, .00006, .00004, + .00002, .00006, .00011, + .05863, .01013, .00371, .00004, .00004, + .00002, .00006, .00010, + .05445, .00936, .00319, .00005, .00004, + .00002, .00006, .00009, + .05084, .00869, .00279, .00004, .00004, + .00002, .00005, .00009, + .04772, .00812, .00246, .00004, .00003, + .00001, .00005, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04481, .00759, .00218, .00003, .00003, + .00001, .00004, .00007, + .04214, .00711, .00194, .00003, .00003, + .00001, .00004, .00006, + .03979, .00669, .00174, .00003, .00003, + .00001, .00004, .00007, + .03770, .00631, .00158, .00003, .00003, + .00001, .00004, .00006, + .03572, .00596, .00144, .00003, .00002, + .00001, .00004, .00006, + .03389, .00563, .00131, .00003, .00002, + .00001, .00003, .00005, + .03225, .00534, .00120, .00003, .00002, + .00001, .00003, .00005, + .03076, .00508, .00111, .00003, .00002, + .00001, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .02935, .00484, .00102, .00003, .00002, + .00001, .00003, .00005, + .02803, .00460, .00095, .00003, .00002, + .00001, .00003, .00004, + .02683, .00440, .00088, .00003, .00002, + .00001, .00002, .00004, + .02575, .00421, .00083, .00002, .00002, + .00001, .00002, .00004, + .02471, .00402, .00077, .00002, .00001, + .00001, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .16835, .02925, .05632, .00003, .00001, + .00000, .00005, .00014, + .15479, .02668, .04616, .00004, .00002, + .00000, .00005, .00014, + .13726, .02341, .03467, .00003, .00002, + .00000, .00005, .00013, + .12607, .02136, .02834, .00004, .00002, + .00000, .00005, .00011, + .11556, .01944, .02306, .00004, .00002, + .00000, .00005, .00010, + .10741, .01795, .01939, .00004, .00002, + .00000, .00005, .00009, + .10025, .01666, .01649, .00004, .00002, + .00000, .00005, .00009, + .09327, .01541, .01392, .00003, .00002, + .00000, .00005, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08767, .01441, .01205, .00002, .00002, + .00000, .00004, .00008, + .08264, .01353, .01051, .00002, .00002, + .00000, .00004, .00008, + .07891, .01287, .00944, .00002, .00002, + .00000, .00004, .00008, + .07159, .01159, .00755, .00003, .00002, + .00000, .00004, .00006, + .06593, .01061, .00627, .00003, .00002, + .00000, .00003, .00005, + .06024, .00963, .00512, .00003, .00002, + .00000, .00003, .00005, + .05493, .00873, .00417, .00002, .00002, + .00000, .00003, .00005, + .05056, .00799, .00348, .00002, .00002, + .00000, .00003, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04655, .00731, .00292, .00002, .00002, + .00000, .00002, .00004, + .04352, .00680, .00253, .00001, .00001, + .00000, .00002, .00004, + .04013, .00624, .00214, .00001, .00001, + .00000, .00002, .00003, + .03739, .00578, .00185, .00001, .00001, + .00001, .00002, .00003, + .03506, .00540, .00162, .00001, .00001, + .00001, .00002, .00003, + .03233, .00495, .00138, .00001, .00001, + .00001, .00002, .00003, + .02998, .00457, .00120, .00001, .00001, + .00001, .00002, .00003, + .02796, .00424, .00105, .00001, .00001, + .00001, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02610, .00394, .00092, .00000, .00001, + .00001, .00001, .00002, + .02441, .00367, .00082, .00001, .00001, + .00001, .00001, .00002, + .02292, .00343, .00073, .00001, .00001, + .00000, .00001, .00002, + .02160, .00323, .00066, .00001, .00001, + .00000, .00001, .00002, + .02037, .00303, .00059, .00001, .00001, + .00000, .00001, .00002, + .01923, .00285, .00054, .00001, .00001, + .00000, .00001, .00002, + .01821, .00269, .00049, .00001, .00001, + .00000, .00001, .00001, + .01730, .00255, .00045, .00001, .00001, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01644, .00242, .00042, .00001, .00000, + .00000, .00001, .00001, + .01563, .00229, .00038, .00001, .00000, + .00000, .00001, .00001, + .01491, .00218, .00036, .00000, .00000, + .00000, .00001, .00001, + .01425, .00208, .00033, .00000, .00000, + .00000, .00001, .00001, + .01361, .00198, .00031, .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=1,8)/ + .10761, .01644, .03007, .00001, .00000, + -.00001, .00001, .00004, + .09804, .01487, .02414, .00002, .00000, + -.00001, .00001, .00003, + .08581, .01289, .01762, .00002, .00000, + .00000, .00001, .00002, + .07812, .01164, .01412, .00001, .00000, + .00000, .00001, .00002, + .07095, .01050, .01125, .00001, .00000, + .00000, .00001, .00002, + .06543, .00963, .00931, .00001, .00000, + .00000, .00001, .00003, + .06061, .00887, .00779, .00001, .00000, + -.00001, .00000, .00003, + .05597, .00815, .00647, .00000, .00000, + -.00001, .00000, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05228, .00758, .00553, .00001, .00000, + .00000, .00000, .00002, + .04899, .00707, .00476, .00001, .00000, + .00000, .00001, .00002, + .04655, .00669, .00424, .00002, .00000, + .00000, .00001, .00001, + .04182, .00597, .00332, .00001, .00001, + .00000, .00001, .00002, + .03819, .00542, .00271, .00001, .00000, + .00000, .00001, .00001, + .03457, .00487, .00218, .00001, .00000, + .00000, .00001, .00001, + .03124, .00437, .00175, .00000, .00000, + .00000, .00000, .00001, + .02852, .00397, .00144, .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=17,24)/ + .02604, .00361, .00119, .00001, .00000, + .00000, .00000, .00001, + .02418, .00333, .00102, .00001, .00000, + .00000, .00000, .00001, + .02212, .00303, .00085, .00000, .00000, + .00000, .00000, .00001, + .02047, .00279, .00073, .00000, .00000, + .00000, .00000, .00001, + .01907, .00259, .00063, .00000, .00000, + .00000, .00000, .00001, + .01745, .00236, .00053, .00000, .00000, + .00000, .00000, .00001, + .01607, .00216, .00046, .00000, .00000, + .00000, .00000, .00001, + .01489, .00199, .00040, .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)/ + .01381, .00184, .00035, .00000, .00000, + .00000, .00000, .00000, + .01283, .00170, .00031, .00000, .00000, + .00000, .00000, .00000, + .01197, .00158, .00027, .00000, .00000, + .00000, .00000, .00000, + .01122, .00148, .00024, .00000, .00000, + .00000, .00000, .00000, + .01052, .00138, .00022, .00000, .00000, + .00000, .00000, .00000, + .00988, .00129, .00020, .00000, .00000, + .00000, .00000, .00000, + .00931, .00122, .00018, .00000, .00000, + .00000, .00000, .00000, + .00881, .00115, .00017, .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)/ + .00833, .00108, .00015, .00000, .00000, + .00000, .00000, .00000, + .00788, .00102, .00014, .00000, .00000, + .00000, .00000, .00000, + .00748, .00097, .00013, .00000, .00000, + .00000, .00000, .00000, + .00712, .00092, .00012, .00000, .00000, + .00000, .00000, .00000, + .00677, .00087, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .06175, .00817, .01409, .00002, -.00001, + -.00001, .00000, .00000, + .05569, .00731, .01105, .00001, -.00001, + .00000, .00000, .00001, + .04804, .00625, .00781, .00001, -.00001, + -.00001, -.00001, .00001, + .04329, .00559, .00612, .00000, -.00001, + -.00001, -.00001, .00000, + .03892, .00499, .00477, .00000, -.00001, + -.00001, .00000, .00000, + .03558, .00454, .00387, .00000, .00000, + .00000, .00000, .00000, + .03270, .00415, .00319, .00000, .00000, + .00000, .00000, .00000, + .02993, .00378, .00260, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02776, .00349, .00219, .00000, .00000, + .00000, .00000, .00000, + .02584, .00323, .00186, .00000, .00000, + .00000, .00000, .00000, + .02442, .00304, .00164, .00000, .00000, + .00000, .00000, .00000, + .02170, .00269, .00126, .00000, .00000, + .00000, .00000, .00000, + .01963, .00242, .00101, .00000, .00000, + .00000, .00000, .00000, + .01759, .00215, .00079, .00000, .00000, + .00000, .00000, .00000, + .01573, .00191, .00063, .00000, .00000, + .00000, .00000, .00000, + .01423, .00172, .00051, .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)/ + .01287, .00155, .00041, .00000, .00000, + .00000, .00000, .00000, + .01186, .00142, .00035, .00000, .00000, + .00000, .00000, .00000, + .01075, .00128, .00029, .00000, .00000, + .00000, .00000, .00000, + .00987, .00117, .00024, .00000, .00000, + .00000, .00000, .00000, + .00914, .00108, .00021, .00000, .00000, + .00000, .00000, .00000, + .00829, .00097, .00018, .00000, .00000, + .00000, .00000, .00000, + .00757, .00088, .00015, .00000, .00000, + .00000, .00000, .00000, + .00696, .00081, .00013, .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)/ + .00641, .00074, .00011, .00000, .00000, + .00000, .00000, .00000, + .00591, .00068, .00010, .00000, .00000, + .00000, .00000, .00000, + .00548, .00063, .00009, .00000, .00000, + .00000, .00000, .00000, + .00511, .00059, .00008, .00000, .00000, + .00000, .00000, .00000, + .00476, .00054, .00007, .00000, .00000, + .00000, .00000, .00000, + .00444, .00051, .00006, .00000, .00000, + .00000, .00000, .00000, + .00416, .00047, .00006, .00000, .00000, + .00000, .00000, .00000, + .00391, .00044, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00368, .00042, .00005, .00000, .00000, + .00000, .00000, .00000, + .00346, .00039, .00004, .00000, .00000, + .00000, .00000, .00000, + .00327, .00037, .00004, .00000, .00000, + .00000, .00000, .00000, + .00310, .00035, .00004, .00000, .00000, + .00000, .00000, .00000, + .00294, .00033, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .03030, .00338, .00544, .00000, .00000, + .00000, .00000, .00000, + .02701, .00299, .00416, .00000, .00000, + .00000, .00000, .00000, + .02291, .00251, .00283, .00000, .00000, + .00000, .00000, .00000, + .02041, .00222, .00216, .00000, .00000, + .00000, .00000, .00000, + .01813, .00196, .00164, .00000, .00000, + .00000, .00000, .00000, + .01641, .00177, .00131, .00000, .00000, + .00000, .00000, .00000, + .01494, .00160, .00105, .00000, .00000, + .00000, .00000, .00000, + .01354, .00144, .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)/ + .01245, .00132, .00070, .00000, .00000, + .00000, .00000, .00000, + .01150, .00121, .00058, .00000, .00000, + .00000, .00000, .00000, + .01080, .00114, .00051, .00000, .00000, + .00000, .00000, .00000, + .00947, .00099, .00038, .00000, .00000, + .00000, .00000, .00000, + .00848, .00088, .00030, .00000, .00000, + .00000, .00000, .00000, + .00751, .00078, .00023, .00000, .00000, + .00000, .00000, .00000, + .00663, .00068, .00018, .00000, .00000, + .00000, .00000, .00000, + .00593, .00061, .00014, .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)/ + .00531, .00054, .00011, .00000, .00000, + .00000, .00000, .00000, + .00485, .00049, .00010, .00000, .00000, + .00000, .00000, .00000, + .00435, .00044, .00008, .00000, .00000, + .00000, .00000, .00000, + .00396, .00040, .00007, .00000, .00000, + .00000, .00000, .00000, + .00363, .00036, .00006, .00000, .00000, + .00000, .00000, .00000, + .00326, .00032, .00005, .00000, .00000, + .00000, .00000, .00000, + .00295, .00029, .00004, .00000, .00000, + .00000, .00000, .00000, + .00269, .00027, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00246, .00024, .00003, .00000, .00000, + .00000, .00000, .00000, + .00225, .00022, .00003, .00000, .00000, + .00000, .00000, .00000, + .00207, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00191, .00019, .00002, .00000, .00000, + .00000, .00000, .00000, + .00177, .00017, .00002, .00000, .00000, + .00000, .00000, .00000, + .00164, .00016, .00002, .00000, .00000, + .00000, .00000, .00000, + .00153, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00143, .00014, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00133, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00125, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00117, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00110, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00104, .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)/ + .00296, .00020, .00026, .00000, .00000, + .00000, .00000, .00000, + .00255, .00017, .00019, .00000, .00000, + .00000, .00000, .00000, + .00206, .00014, .00012, .00000, .00000, + .00000, .00000, .00000, + .00178, .00012, .00008, .00000, .00000, + .00000, .00000, .00000, + .00152, .00010, .00006, .00000, .00000, + .00000, .00000, .00000, + .00134, .00009, .00004, .00000, .00000, + .00000, .00000, .00000, + .00119, .00008, .00003, .00000, .00000, + .00000, .00000, .00000, + .00105, .00007, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00094, .00006, .00002, .00000, .00000, + .00000, .00000, .00000, + .00085, .00006, .00002, .00000, .00000, + .00000, .00000, .00000, + .00078, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00066, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00057, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00049, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00042, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00036, .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)/ + .00031, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00028, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .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)/ + .00012, .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, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .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='MRSR4.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