#include "pdf/pilot.h" subroutine sfmrs_99d7(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)/ + .00717, .00345, 1.13235, .86984, .00000, + .00000, .46696, .88277, + .00731, .00350, 2.30301, .90813, .00000, + .00000, .50984, .92110, + .00752, .00359, 4.65298, .98662, .01861, + .00000, .59494, .99968, + .00768, .00366, 6.86618, 1.06094, .05201, + .00000, .67393, 1.07405, + .00784, .00373, 9.56719, 1.15519, .16361, + .00000, .77292, 1.16833, + .00798, .00379, 12.37458, 1.25070, .27190, + .00000, .87244, 1.26386, + .00813, .00385, 15.54423, 1.35388, .38616, + .00000, .97939, 1.36706, + .00828, .00392, 19.44288, 1.47657, .52338, + .00000, 1.10600, 1.48976 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00841, .00398, 23.21055, 1.59704, .64799, + .00000, 1.22983, 1.61024, + .00854, .00404, 27.31881, 1.72367, .78433, + .00000, 1.35964, 1.73687, + .00864, .00409, 30.87486, 1.83237, .89979, + .00000, 1.47082, 1.84557, + .00886, .00419, 39.27772, 2.08972, 1.17253, + .00000, 1.73335, 2.10292, + .00905, .00428, 47.13178, 2.33895, 1.43501, + .30452, 1.98691, 2.35211, + .00927, .00439, 57.08773, 2.65004, 1.76223, + .69370, 2.30276, 2.66318, + .00950, .00449, 68.84790, 3.01198, 2.14184, + 1.09126, 2.66950, 3.02508, + .00971, .00460, 80.76862, 3.37500, 2.52224, + 1.49167, 3.03679, 3.38807 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00993, .00471, 94.07154, 3.77760, 2.94362, + 1.93240, 3.44359, 3.79062, + .01011, .00480, 105.95430, 4.13928, 3.31702, + 2.31154, 3.80869, 4.15226, + .01034, .00491, 121.64052, 4.61417, 3.80962, + 2.81959, 4.28764, 4.62710, + .01054, .00501, 136.70639, 5.06918, 4.28246, + 3.30965, 4.74617, 5.08206, + .01073, .00510, 151.35640, 5.51472, 4.74204, + 3.77983, 5.19488, 5.52756, + .01096, .00523, 171.25609, 6.12142, 5.36773, + 4.42130, 5.80552, 6.13419, + .01120, .00534, 191.37984, 6.73653, 6.00248, + 5.07370, 6.42425, 6.74923, + .01141, .00545, 211.38855, 7.35226, 6.63610, + 5.72264, 7.04330, 7.36490 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01163, .00556, 232.43061, 8.00546, 7.30611, + 6.40622, 7.69978, 8.01804, + .01184, .00567, 254.32302, 8.68659, 8.00646, + 7.12418, 8.38404, 8.69911, + .01205, .00578, 275.85285, 9.36462, 8.70013, + 7.83049, 9.06497, 9.37708, + .01225, .00589, 297.17088, 10.03860, 9.39069, + 8.53591, 9.74166, 10.05098, + .01244, .00599, 319.40183, 10.74776, 10.11572, + 9.27458, 10.45348, 10.76009, + .01264, .00609, 342.14292, 11.47829, 10.86237, + 10.03555, 11.18660, 11.49056, + .01283, .00619, 364.53419, 12.20342, 11.60262, + 10.78917, 11.91415, 12.21564, + .01302, .00628, 386.45694, 12.91799, 12.33201, + 11.53210, 12.63098, 12.93014 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01320, .00638, 409.14378, 13.66457, 13.09257, + 12.30496, 13.37980, 13.67667, + .01338, .00648, 432.42302, 14.43340, 13.87697, + 13.10414, 14.15080, 14.44543, + .01356, .00657, 454.92088, 15.18648, 14.64258, + 13.88066, 14.90595, 15.19847, + .01373, .00666, 477.16770, 15.93190, 15.40223, + 14.65399, 15.65330, 15.94383, + .01390, .00675, 499.88980, 16.70294, 16.18569, + 15.44867, 16.42625, 16.71482 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00966, .00468, 1.03899, .73721, .00000, + .00000, .39549, .74480, + .00985, .00475, 2.09526, .77258, .00000, + .00000, .43443, .78021, + .01014, .00488, 4.17101, .84213, .01699, + .00000, .50912, .84978, + .01036, .00498, 6.08838, .90618, .04546, + .00000, .57680, .91384, + .01058, .00509, 8.38964, .98595, .13980, + .00000, .66026, .99364, + .01077, .00518, 10.74800, 1.06575, .23038, + .00000, .74316, 1.07344, + .01096, .00526, 13.37915, 1.15121, .32494, + .00000, .83153, 1.15890, + .01117, .00536, 16.57774, 1.25198, .43750, + .00000, .93534, 1.25968 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01134, .00545, 19.63272, 1.34997, .53871, + .00000, 1.03593, 1.35768, + .01151, .00553, 22.93366, 1.45238, .64878, + .00000, 1.14079, 1.46009, + .01165, .00560, 25.76722, 1.53979, .74140, + .00000, 1.23011, 1.54748, + .01195, .00574, 32.38951, 1.74514, .95842, + .00000, 1.43946, 1.75283, + .01222, .00587, 38.48735, 1.94219, 1.16528, + .24010, 1.63987, 1.94989, + .01251, .00602, 46.12496, 2.18611, 1.42087, + .54452, 1.88743, 2.19378, + .01283, .00618, 55.03209, 2.46732, 1.71460, + .85180, 2.17235, 2.47497, + .01312, .00632, 63.95318, 2.74700, 2.00641, + 1.15853, 2.45532, 2.75463 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01341, .00647, 73.79903, 3.05471, 2.32704, + 1.49332, 2.76628, 3.06233, + .01366, .00660, 82.50258, 3.32905, 2.60892, + 1.77886, 3.04325, 3.33664, + .01396, .00675, 93.88464, 3.68680, 2.97828, + 2.15898, 3.40412, 3.69436, + .01423, .00690, 104.71313, 4.02717, 3.33035, + 2.52308, 3.74719, 4.03470, + .01447, .00702, 115.14956, 4.35824, 3.67023, + 2.86992, 4.08071, 4.36575, + .01479, .00719, 129.19899, 4.80603, 4.12987, + 3.33997, 4.53153, 4.81351, + .01511, .00734, 143.27412, 5.25680, 4.59290, + 3.81470, 4.98508, 5.26424, + .01539, .00750, 157.14555, 5.70497, 5.05200, + 4.28367, 5.43582, 5.71238 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01568, .00766, 171.60931, 6.17732, 5.53429, + 4.77439, 5.91067, 6.18470, + .01598, .00781, 186.54410, 6.66695, 6.03556, + 5.28697, 6.40271, 6.67430, + .01625, .00795, 201.11324, 7.15130, 6.52891, + 5.78791, 6.88931, 7.15862, + .01651, .00809, 215.44302, 7.63022, 7.01756, + 6.28577, 7.37031, 7.63752, + .01678, .00823, 230.28368, 8.13145, 7.52785, + 6.80426, 7.87359, 8.13870, + .01704, .00837, 245.36612, 8.64511, 8.05070, + 7.33574, 8.38923, 8.65234, + .01729, .00850, 260.12374, 9.15244, 8.56654, + 7.85950, 8.89843, 9.15964, + .01753, .00863, 274.48936, 9.65008, 9.07252, + 8.37355, 9.39781, 9.65725 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01777, .00877, 289.26763, 10.16759, 9.59767, + 8.90577, 9.91705, 10.17474, + .01802, .00890, 304.35575, 10.69833, 10.13718, + 9.45409, 10.44947, 10.70544, + .01825, .00902, 318.84765, 11.21574, 10.66117, + 9.98411, 10.96846, 11.22282, + .01848, .00914, 333.11929, 11.72608, 11.17944, + 10.51043, 11.48030, 11.73314, + .01871, .00927, 347.61237, 12.25163, 11.71154, + 11.04875, 12.00734, 12.25867 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01302, .00634, .95243, .62489, .00000, + .00000, .33544, .62879, + .01328, .00646, 1.90549, .65729, .00000, + .00000, .37064, .66119, + .01367, .00664, 3.73811, .71866, .01569, + .00000, .43600, .72257, + .01395, .00678, 5.39805, .77373, .03987, + .00000, .49388, .77765, + .01426, .00694, 7.35645, .84114, .11951, + .00000, .56414, .84505, + .01453, .00707, 9.33456, .90768, .19519, + .00000, .63308, .91160, + .01478, .00719, 11.51482, .97830, .27332, + .00000, .70595, .98221, + .01506, .00733, 14.13367, 1.06087, .36550, + .00000, .79087, 1.06479 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01530, .00746, 16.60480, 1.14037, .44758, + .00000, .87236, 1.14428, + .01553, .00757, 19.25028, 1.22296, .53626, + .00000, .95685, 1.22687, + .01571, .00767, 21.50185, 1.29302, .61042, + .00000, 1.02838, 1.29693, + .01613, .00787, 26.70514, 1.45635, .78277, + .00000, 1.19478, 1.46025, + .01647, .00805, 31.42304, 1.61165, .94547, + .18878, 1.35264, 1.61553, + .01688, .00826, 37.25948, 1.80219, 1.14467, + .42668, 1.54599, 1.80606, + .01731, .00848, 43.97753, 2.01984, 1.37144, + .66392, 1.76648, 2.02370, + .01770, .00869, 50.62398, 2.23445, 1.59473, + .89863, 1.98361, 2.23830 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01809, .00890, 57.87663, 2.46867, 1.83808, + 1.15262, 2.22031, 2.47251, + .01842, .00907, 64.21921, 2.67584, 2.05028, + 1.36737, 2.42950, 2.67969, + .01883, .00929, 72.43448, 2.94413, 2.32642, + 1.65134, 2.70017, 2.94795, + .01919, .00949, 80.17462, 3.19757, 2.58779, + 1.92142, 2.95568, 3.20139, + .01953, .00966, 87.56628, 3.44243, 2.83835, + 2.17682, 3.20239, 3.44624, + .01997, .00989, 97.42554, 3.77132, 3.17489, + 2.52058, 3.53360, 3.77511, + .02037, .01011, 107.20846, 4.10002, 3.51149, + 2.86532, 3.86441, 4.10379, + .02075, .01031, 116.76213, 4.42456, 3.84295, + 3.20348, 4.19092, 4.42833 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .02115, .01052, 126.63627, 4.76433, 4.18880, + 3.55489, 4.53259, 4.76808, + .02153, .01074, 136.75330, 5.11442, 4.54618, + 3.91989, 4.88453, 5.11816, + .02190, .01094, 146.53990, 5.45853, 4.89563, + 4.27421, 5.23034, 5.46226, + .02224, .01112, 156.10017, 5.79695, 5.23997, + 4.62458, 5.57035, 5.80068, + .02260, .01132, 165.93048, 6.14918, 5.59756, + 4.98741, 5.92415, 6.15290, + .02295, .01151, 175.85418, 6.50826, 5.96207, + 5.35743, 6.28474, 6.51197, + .02329, .01169, 185.50083, 6.86111, 6.31988, + 5.72023, 6.63902, 6.86481, + .02361, .01187, 194.83539, 7.20560, 6.66926, + 6.07469, 6.98483, 7.20930 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02393, .01205, 204.37872, 7.56214, 7.03011, + 6.43987, 7.34270, 7.56583, + .02426, .01222, 214.07263, 7.92627, 7.39936, + 6.81469, 7.70811, 7.92995, + .02457, .01240, 223.32220, 8.27950, 7.75619, + 7.17507, 8.06255, 8.28317, + .02486, .01256, 232.39405, 8.62670, 8.10797, + 7.53188, 8.41087, 8.63036, + .02516, .01273, 241.55039, 8.98261, 8.46744, + 7.89502, 8.76793, 8.98627 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01550, .00758, .90453, .56744, .00000, + .00000, .30499, .56982, + .01580, .00773, 1.80212, .59808, .00000, + .00000, .33805, .60047, + .01626, .00796, 3.50556, .65499, .01508, + .00000, .39839, .65736, + .01661, .00814, 5.03079, .70533, .03701, + .00000, .45117, .70771, + .01698, .00831, 6.81192, .76632, .10907, + .00000, .51462, .76870, + .01729, .00847, 8.59541, .82607, .17712, + .00000, .57642, .82844, + .01760, .00864, 10.54689, .88915, .24693, + .00000, .64145, .89152, + .01792, .00880, 12.87420, .96253, .32886, + .00000, .71684, .96489 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01822, .00895, 15.05431, 1.03275, .40137, + .00000, .78878, 1.03511, + .01849, .00910, 17.37534, 1.10546, .47945, + .00000, .86311, 1.10781, + .01872, .00921, 19.34071, 1.16690, .54449, + .00000, .92582, 1.16926, + .01920, .00946, 23.85220, 1.30950, .69492, + .00000, 1.07105, 1.31184, + .01962, .00969, 27.90541, 1.44432, .83611, + .16366, 1.20808, 1.44667, + .02011, .00994, 32.88202, 1.60889, 1.00808, + .36947, 1.37505, 1.61123, + .02061, .01021, 38.56564, 1.79585, 1.20272, + .57324, 1.56444, 1.79819, + .02108, .01046, 44.14741, 1.97925, 1.39338, + .77378, 1.74999, 1.98157 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02155, .01071, 50.19699, 2.17844, 1.60015, + .98969, 1.95130, 2.18076, + .02195, .01092, 55.45327, 2.35381, 1.77959, + 1.17130, 2.12839, 2.35612, + .02243, .01118, 62.22248, 2.57996, 2.01214, + 1.41049, 2.35658, 2.58228, + .02286, .01142, 68.56315, 2.79271, 2.23131, + 1.63704, 2.57110, 2.79503, + .02326, .01163, 74.58492, 2.99741, 2.44057, + 1.85034, 2.77737, 2.99972, + .02378, .01192, 82.57258, 3.27124, 2.72048, + 2.13627, 3.05318, 3.27355, + .02426, .01218, 90.45278, 3.54374, 2.99926, + 2.42179, 3.32748, 3.54604, + .02472, .01244, 98.10611, 3.81168, 3.27263, + 2.70069, 3.59710, 3.81399 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02518, .01268, 105.97410, 4.09108, 3.55673, + 2.98933, 3.87812, 4.09338, + .02563, .01293, 113.99832, 4.37794, 3.84930, + 3.28813, 4.16655, 4.38024, + .02606, .01317, 121.72077, 4.65882, 4.13425, + 3.57700, 4.44889, 4.66112, + .02648, .01340, 129.23373, 4.93418, 4.41417, + 3.86179, 4.72560, 4.93648, + .02690, .01363, 136.92544, 5.21983, 4.70390, + 4.15572, 5.01259, 5.22214, + .02731, .01386, 144.65861, 5.51013, 4.99833, + 4.45456, 5.30418, 5.51244, + .02771, .01408, 152.14629, 5.79452, 5.28646, + 4.74666, 5.58978, 5.79683, + .02809, .01429, 159.36573, 6.07140, 5.56704, + 5.03128, 5.86779, 6.07372 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02847, .01450, 166.71872, 6.35715, 5.85599, + 5.32365, 6.15465, 6.35946, + .02885, .01471, 174.16457, 6.64825, 6.15097, + 5.62304, 6.44686, 6.65057, + .02921, .01491, 181.24062, 6.92980, 6.43514, + 5.90998, 6.72944, 6.93211, + .02956, .01511, 188.16380, 7.20599, 6.71477, + 6.19358, 7.00659, 7.20830, + .02992, .01531, 195.12513, 7.48831, 6.99969, + 6.48134, 7.28988, 7.49063 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01754, .00861, .87176, .53000, .00000, + .00000, .28526, .53156, + .01788, .00878, 1.73207, .55939, .00000, + .00000, .31684, .56096, + .01840, .00905, 3.34924, .61326, .01473, + .00000, .37382, .61482, + .01880, .00925, 4.78543, .66046, .03515, + .00000, .42320, .66201, + .01921, .00947, 6.45017, .71722, .10224, + .00000, .48218, .71877, + .01957, .00965, 8.10671, .77254, .16531, + .00000, .53936, .77408, + .01992, .00983, 9.90980, .83071, .22971, + .00000, .59927, .83224, + .02029, .01003, 12.04900, .89813, .30502, + .00000, .66852, .89967 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .02062, .01020, 14.04238, .96238, .37139, + .00000, .73430, .96392, + .02094, .01037, 16.15619, 1.02874, .44266, + .00000, .80211, 1.03026, + .02119, .01050, 17.93948, 1.08467, .50188, + .00000, .85918, 1.08620, + .02174, .01080, 22.01319, 1.21403, .63838, + .00000, .99091, 1.21556, + .02222, .01106, 25.64919, 1.33587, .76598, + .14769, 1.11473, 1.33739, + .02276, .01134, 30.08907, 1.48404, .92078, + .33331, 1.26504, 1.48556, + .02333, .01166, 35.13102, 1.65168, 1.09531, + .51616, 1.43487, 1.65320, + .02386, .01194, 40.05635, 1.81552, 1.26561, + .69543, 1.60065, 1.81705 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02440, .01223, 45.36825, 1.99288, 1.44966, + .88773, 1.77989, 1.99440, + .02485, .01247, 49.96191, 2.14848, 1.60883, + 1.04889, 1.93704, 2.15000, + .02539, .01278, 55.85330, 2.34856, 1.81450, + 1.26055, 2.13894, 2.35010, + .02588, .01304, 61.34850, 2.53621, 2.00777, + 1.46041, 2.32818, 2.53774, + .02633, .01329, 66.54644, 2.71624, 2.19173, + 1.64799, 2.50962, 2.71777, + .02692, .01360, 73.41371, 2.95635, 2.43709, + 1.89872, 2.75149, 2.95789, + .02746, .01390, 80.16035, 3.19455, 2.68071, + 2.14833, 2.99132, 3.19610, + .02797, .01419, 86.68666, 3.42809, 2.91889, + 2.39140, 3.22634, 3.42964 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02850, .01448, 93.36997, 3.67090, 3.16570, + 2.64222, 3.47062, 3.67246, + .02901, .01476, 100.16329, 3.91958, 3.41925, + 2.90126, 3.72069, 3.92114, + .02950, .01503, 106.67660, 4.16239, 3.66549, + 3.15093, 3.96480, 4.16396, + .02997, .01529, 112.99437, 4.39989, 3.90685, + 3.39656, 4.20351, 4.40146, + .03043, .01556, 119.44208, 4.64568, 4.15607, + 3.64944, 4.45049, 4.64726, + .03090, .01582, 125.90537, 4.89490, 4.40876, + 3.90598, 4.70086, 4.89649, + .03134, .01606, 132.14548, 5.13852, 4.65552, + 4.15619, 4.94557, 5.14012, + .03178, .01630, 138.14627, 5.37523, 4.89532, + 4.39951, 5.18328, 5.37684 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03221, .01654, 144.24107, 5.61901, 5.14177, + 4.64891, 5.42807, 5.62063, + .03263, .01678, 150.39938, 5.86692, 5.39294, + 4.90390, 5.67696, 5.86855, + .03304, .01701, 156.23389, 6.10618, 5.63436, + 5.14770, 5.91714, 6.10781, + .03343, .01723, 161.93273, 6.34053, 5.87159, + 5.38836, 6.15236, 6.34218, + .03382, .01745, 167.64675, 6.57962, 6.11281, + 5.63202, 6.39230, 6.58126 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01929, .00951, .84725, .50273, .00000, + .00000, .27092, .50376, + .01968, .00970, 1.67977, .53117, .00000, + .00000, .30137, .53219, + .02025, .01000, 3.23294, .58275, .01448, + .00000, .35585, .58377, + .02069, .01023, 4.60353, .62761, .03380, + .00000, .40273, .62863, + .02115, .01047, 6.18313, .68128, .09723, + .00000, .45844, .68229, + .02155, .01068, 7.74720, .73335, .15667, + .00000, .51223, .73436, + .02193, .01088, 9.44259, .78795, .21715, + .00000, .56844, .78895, + .02234, .01110, 11.44587, .85106, .28765, + .00000, .63322, .85207 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02270, .01129, 13.30484, .91100, .34959, + .00000, .69458, .91200, + .02305, .01148, 15.26995, .97276, .41598, + .00000, .75770, .97377, + .02333, .01163, 16.92299, 1.02474, .47102, + .00000, .81072, 1.02574, + .02393, .01195, 20.68480, 1.14463, .59755, + .00000, .93278, 1.14564, + .02446, .01224, 24.02560, 1.25718, .71545, + .13626, 1.04716, 1.25818, + .02506, .01256, 28.08728, 1.39365, .85807, + .30755, 1.18562, 1.39467, + .02569, .01291, 32.67910, 1.54760, 1.01834, + .47559, 1.34158, 1.54862, + .02628, .01323, 37.14591, 1.69762, 1.17428, + .63987, 1.49337, 1.69865 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02686, .01354, 41.94466, 1.85957, 1.34237, + .81561, 1.65707, 1.86061, + .02735, .01382, 46.07910, 2.00128, 1.48732, + .96245, 1.80020, 2.00233, + .02795, .01415, 51.36431, 2.18310, 1.67419, + 1.15488, 1.98370, 2.18414, + .02849, .01444, 56.27775, 2.35319, 1.84938, + 1.33615, 2.15525, 2.35425, + .02899, .01472, 60.91061, 2.51601, 2.01575, + 1.50587, 2.31937, 2.51707, + .02963, .01508, 67.01195, 2.73267, 2.23712, + 1.73220, 2.53765, 2.73374, + .03023, .01541, 72.98647, 2.94708, 2.45640, + 1.95698, 2.75355, 2.94817, + .03079, .01572, 78.74755, 3.15681, 2.67029, + 2.17536, 2.96466, 3.15791 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .03136, .01604, 84.62911, 3.37438, 2.89142, + 2.40016, 3.18357, 3.37550, + .03193, .01636, 90.59177, 3.59675, 3.11814, + 2.63190, 3.40723, 3.59788, + .03247, .01665, 96.29164, 3.81341, 3.33784, + 2.85474, 3.62508, 3.81455, + .03298, .01694, 101.80743, 4.02495, 3.55281, + 3.07360, 3.83773, 4.02610, + .03350, .01723, 107.42249, 4.24347, 3.77437, + 3.29850, 4.05733, 4.24463, + .03400, .01751, 113.03797, 4.46464, 3.99861, + 3.52624, 4.27957, 4.46582, + .03449, .01779, 118.44710, 4.68047, 4.21721, + 3.74798, 4.49640, 4.68165, + .03495, .01805, 123.63794, 4.88985, 4.42932, + 3.96328, 4.70671, 4.89105 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03543, .01831, 128.89840, 5.10513, 4.64694, + 4.18358, 4.92291, 5.10634, + .03590, .01858, 134.20436, 5.32376, 4.86845, + 4.40854, 5.14245, 5.32499, + .03634, .01883, 139.21929, 5.53439, 5.08097, + 4.62322, 5.35393, 5.53564, + .03677, .01907, 144.11092, 5.74047, 5.28959, + 4.83494, 5.56079, 5.74172, + .03721, .01932, 149.00451, 5.95038, 5.50138, + 5.04893, 5.77149, 5.95164 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02604, .01301, .77475, .42720, .00000, + .00000, .23173, .42734, + .02655, .01328, 1.52734, .45263, .00000, + .00000, .25877, .45278, + .02733, .01371, 2.89708, .49745, .01397, + .00000, .30586, .49760, + .02792, .01402, 4.08185, .53557, .03008, + .00000, .34559, .53573, + .02854, .01436, 5.42203, .58045, .08321, + .00000, .39208, .58061, + .02908, .01466, 6.72813, .62343, .13249, + .00000, .43642, .62360, + .02959, .01494, 8.12527, .66808, .18205, + .00000, .48235, .66826, + .03016, .01524, 9.75473, .71923, .23933, + .00000, .53482, .71943 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .03064, .01551, 11.24673, .76731, .28913, + .00000, .58401, .76752, + .03111, .01578, 12.80822, .81656, .34218, + .00000, .63433, .81678, + .03149, .01598, 14.10954, .85773, .38587, + .00000, .67632, .85795, + .03230, .01643, 17.03501, .95192, .48548, + .00000, .77222, .95217, + .03301, .01683, 19.59146, 1.03950, .57739, + .10530, .86123, 1.03977, + .03382, .01728, 22.65513, 1.14472, .68756, + .23842, .96801, 1.14500, + .03467, .01776, 26.06930, 1.26225, .81012, + .36736, 1.08712, 1.26257, + .03545, .01820, 29.34608, 1.37575, .92827, + .49225, 1.20200, 1.37608 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03624, .01864, 32.82281, 1.49723, 1.05454, + .62469, 1.32485, 1.49760, + .03690, .01902, 35.78236, 1.60264, 1.16249, + .73433, 1.43136, 1.60302, + .03771, .01947, 39.52631, 1.73687, 1.30065, + .87702, 1.56691, 1.73729, + .03843, .01988, 42.97003, 1.86154, 1.42921, + 1.01045, 1.69271, 1.86198, + .03909, .02025, 46.18372, 1.97999, 1.55038, + 1.13438, 1.81218, 1.98045, + .03994, .02074, 50.37316, 2.13647, 1.71045, + 1.29847, 1.96993, 2.13697, + .04074, .02120, 54.43222, 2.29015, 1.86781, + 1.46022, 2.12477, 2.29068, + .04150, .02163, 58.30648, 2.43937, 2.02015, + 1.61616, 2.27506, 2.43993 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04226, .02206, 62.22230, 2.59305, 2.17651, + 1.77551, 2.42978, 2.59364, + .04301, .02249, 66.15863, 2.74914, 2.33584, + 1.93878, 2.58687, 2.74976, + .04373, .02290, 69.88490, 2.90016, 2.48913, + 2.09463, 2.73882, 2.90082, + .04440, .02328, 73.46366, 3.04678, 2.63829, + 2.24686, 2.88631, 3.04747, + .04509, .02367, 77.07705, 3.19733, 2.79109, + 2.40233, 3.03771, 3.19805, + .04576, .02406, 80.66317, 3.34887, 2.94489, + 2.55890, 3.19007, 3.34961, + .04640, .02443, 84.09181, 3.49592, 3.09400, + 2.71049, 3.33791, 3.49671, + .04702, .02478, 87.35981, 3.63787, 3.23796, + 2.85696, 3.48058, 3.63868 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04764, .02513, 90.64751, 3.78305, 3.38488, + 3.00602, 3.62648, 3.78390, + .04826, .02549, 93.94514, 3.92985, 3.53379, + 3.15761, 3.77398, 3.93072, + .04885, .02582, 97.03660, 4.07051, 3.67583, + 3.30139, 3.91529, 4.07141, + .04941, .02615, 100.03954, 4.20761, 3.81482, + 3.44277, 4.05303, 4.20855, + .04999, .02648, 103.02046, 4.34657, 3.95514, + 3.58486, 4.19258, 4.34752 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03527, .01792, .70976, .36434, .00000, + .00000, .19978, .36456, + .03596, .01830, 1.39172, .38673, .00000, + .00000, .22349, .38697, + .03700, .01887, 2.59898, .42516, .01382, + .00000, .26378, .42543, + .03779, .01932, 3.62208, .45720, .02699, + .00000, .29713, .45751, + .03861, .01978, 4.75649, .49437, .07116, + .00000, .33560, .49470, + .03933, .02018, 5.84343, .52950, .11171, + .00000, .37185, .52986, + .04002, .02058, 6.98981, .56568, .15202, + .00000, .40906, .56607, + .04076, .02100, 8.30834, .60676, .19820, + .00000, .45121, .60717 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .04141, .02137, 9.49849, .64497, .23792, + .00000, .49033, .64541, + .04205, .02173, 10.73093, .68386, .27999, + .00000, .53008, .68433, + .04256, .02202, 11.74784, .71616, .31440, + .00000, .56305, .71667, + .04364, .02264, 14.00444, .78947, .39224, + .00000, .63776, .79001, + .04459, .02319, 15.94400, .85696, .46334, + .07999, .70640, .85754, + .04568, .02382, 18.23095, .93728, .54774, + .18280, .78798, .93793, + .04682, .02448, 20.74075, 1.02611, .64071, + .28109, .87809, 1.02681, + .04786, .02507, 23.11508, 1.11108, .72949, + .37542, .96418, 1.11183 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04891, .02569, 25.60091, 1.20123, .82353, + .47454, 1.05545, 1.20203, + .04979, .02620, 27.68954, 1.27876, .90319, + .55581, 1.13387, 1.27962, + .05086, .02683, 30.30236, 1.37677, 1.00440, + .66083, 1.23295, 1.37768, + .05183, .02738, 32.67836, 1.46708, 1.09785, + .75829, 1.32417, 1.46805, + .05271, .02790, 34.87094, 1.55224, 1.18524, + .84808, 1.41016, 1.55325, + .05384, .02855, 37.69792, 1.66389, 1.29981, + .96607, 1.52283, 1.66496, + .05491, .02917, 40.40582, 1.77266, 1.41155, + 1.08146, 1.63256, 1.77380, + .05591, .02975, 42.96177, 1.87748, 1.51889, + 1.19183, 1.73824, 1.87867 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05693, .03034, 45.51698, 1.98460, 1.62822, + 1.30373, 1.84620, 1.98586, + .05792, .03092, 48.06234, 2.09270, 1.73890, + 1.41768, 1.95512, 2.09401, + .05886, .03147, 50.44582, 2.19651, 1.84459, + 1.52559, 2.05969, 2.19789, + .05975, .03199, 52.71634, 2.29672, 1.94683, + 1.63040, 2.16060, 2.29814, + .06065, .03252, 54.98800, 2.39896, 2.05090, + 1.73674, 2.26353, 2.40043, + .06155, .03304, 57.22371, 2.50124, 2.15504, + 1.84321, 2.36649, 2.50278, + .06240, .03352, 59.34355, 2.59995, 2.25541, + 1.94569, 2.46582, 2.60153, + .06321, .03400, 61.34904, 2.69472, 2.35181, + 2.04419, 2.56118, 2.69635 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06403, .03447, 63.35001, 2.79110, 2.44962, + 2.14384, 2.65816, 2.79279, + .06484, .03494, 65.34499, 2.88813, 2.54833, + 2.24477, 2.75575, 2.88986, + .06562, .03539, 67.19763, 2.98052, 2.64189, + 2.33986, 2.84868, 2.98230, + .06636, .03582, 68.98943, 3.07026, 2.73314, + 2.43309, 2.93894, 3.07209, + .06710, .03626, 70.75214, 3.16069, 2.82472, + 2.52620, 3.02987, 3.16257 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .04218, .02168, .67776, .33284, .00000, + .00000, .18408, .33345, + .04298, .02213, 1.32257, .35343, .00000, + .00000, .20584, .35408, + .04421, .02282, 2.44326, .38825, .01385, + .00000, .24236, .38898, + .04514, .02334, 3.38123, .41701, .02540, + .00000, .27229, .41777, + .04611, .02391, 4.40832, .45007, .06484, + .00000, .30653, .45087, + .04695, .02439, 5.38195, .48111, .10083, + .00000, .33856, .48196, + .04777, .02487, 6.39970, .51290, .13636, + .00000, .37129, .51379, + .04865, .02539, 7.56012, .54882, .17685, + .00000, .40818, .54976 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04942, .02583, 8.59824, .58201, .21147, + .00000, .44218, .58299, + .05017, .02627, 9.66607, .61568, .24801, + .00000, .47664, .61671, + .05078, .02662, 10.54169, .64356, .27778, + .00000, .50510, .64461, + .05206, .02736, 12.46896, .70648, .34479, + .00000, .56929, .70761, + .05319, .02803, 14.10914, .76407, .40564, + .06730, .62792, .76526, + .05448, .02878, 16.02239, .83224, .47749, + .15529, .69722, .83351, + .05582, .02957, 18.10193, .90715, .55612, + .23874, .77329, .90850, + .05705, .03029, 20.05143, .97841, .63080, + .31838, .84557, .97983 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05830, .03103, 22.07536, 1.05360, .70946, + .40160, .92177, 1.05511, + .05934, .03163, 23.76181, 1.11793, .77574, + .46946, .98691, 1.11949, + .06062, .03238, 25.85671, 1.19887, .85956, + .55676, 1.06882, 1.20052, + .06175, .03306, 27.74803, 1.27311, .93660, + .63740, 1.14388, 1.27482, + .06280, .03366, 29.48083, 1.34277, 1.00828, + .71131, 1.21430, 1.34455, + .06413, .03444, 31.69944, 1.43369, 1.10182, + .80800, 1.30615, 1.43556, + .06538, .03518, 33.80919, 1.52183, 1.19262, + .90210, 1.39515, 1.52378, + .06656, .03588, 35.78638, 1.60635, 1.27941, + .99167, 1.48046, 1.60839 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06776, .03659, 37.74898, 1.69234, 1.36739, + 1.08204, 1.56722, 1.69446, + .06892, .03726, 39.69281, 1.77876, 1.45613, + 1.17373, 1.65438, 1.78095, + .07003, .03792, 41.50007, 1.86138, 1.54044, + 1.26011, 1.73769, 1.86364, + .07108, .03853, 43.21269, 1.94083, 1.62172, + 1.34373, 1.81778, 1.94316, + .07214, .03915, 44.91601, 2.02157, 1.70413, + 1.42823, 1.89915, 2.02397, + .07319, .03977, 46.58322, 2.10206, 1.78628, + 1.51253, 1.98026, 2.10454, + .07418, .04035, 48.15547, 2.17945, 1.86518, + 1.59337, 2.05822, 2.18199, + .07513, .04090, 49.63564, 2.25351, 1.94070, + 1.67081, 2.13281, 2.25610 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07609, .04146, 51.10436, 2.32856, 2.01706, + 1.74887, 2.20841, 2.33123, + .07703, .04202, 52.56310, 2.40390, 2.09391, + 1.82774, 2.28428, 2.40663, + .07793, .04254, 53.90887, 2.47537, 2.16646, + 1.90173, 2.35624, 2.47816, + .07880, .04304, 55.20716, 2.54464, 2.23708, + 1.97414, 2.42597, 2.54750, + .07967, .04356, 56.47634, 2.61419, 2.30768, + 2.04617, 2.49598, 2.61710 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04789, .02479, .66066, .31236, .00000, + .00000, .17407, .31351, + .04880, .02531, 1.28072, .33168, .00000, + .00000, .19449, .33287, + .05017, .02611, 2.34312, .36407, .01389, + .00000, .22842, .36530, + .05121, .02671, 3.22407, .39060, .02434, + .00000, .25605, .39191, + .05230, .02735, 4.17960, .42096, .06062, + .00000, .28750, .42232, + .05325, .02791, 5.07813, .44931, .09359, + .00000, .31679, .45073, + .05418, .02845, 6.01112, .47824, .12597, + .00000, .34658, .47970, + .05518, .02904, 7.06794, .51081, .16275, + .00000, .38005, .51235 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05604, .02955, 8.00700, .54080, .19406, + .00000, .41079, .54237, + .05688, .03005, 8.96818, .57112, .22702, + .00000, .44184, .57274, + .05757, .03045, 9.75266, .59614, .25381, + .00000, .46743, .59780, + .05901, .03130, 11.46881, .65246, .31389, + .00000, .52491, .65421, + .06029, .03207, 12.91846, .70377, .36821, + .05922, .57719, .70560, + .06174, .03292, 14.59563, .76426, .43209, + .13779, .63874, .76617, + .06325, .03382, 16.40542, .83043, .50169, + .21187, .70601, .83245, + .06464, .03464, 18.09043, .89312, .56751, + .28229, .76964, .89522 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06605, .03548, 19.82872, .95902, .63657, + .35556, .83647, .96121, + .06722, .03618, 21.26799, 1.01515, .69452, + .41506, .89336, 1.01742, + .06866, .03703, 23.04643, 1.08554, .76756, + .49137, .96466, 1.08791, + .06992, .03779, 24.64330, 1.14987, .83445, + .56160, 1.02978, 1.15233, + .07110, .03848, 26.09830, 1.21004, .89648, + .62574, 1.09064, 1.21256, + .07259, .03937, 27.95136, 1.28827, .97715, + .70937, 1.16974, 1.29090, + .07400, .04021, 29.70378, 1.36385, 1.05514, + .79046, 1.24614, 1.36658, + .07534, .04099, 31.33711, 1.43607, 1.12945, + .86736, 1.31909, 1.43889 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07666, .04178, 32.94956, 1.50928, 1.20450, + .94468, 1.39302, 1.51218, + .07797, .04255, 34.53962, 1.58263, 1.27997, + 1.02290, 1.46707, 1.58563, + .07921, .04329, 36.00974, 1.65251, 1.35142, + 1.09633, 1.53760, 1.65558, + .08039, .04397, 37.39734, 1.71952, 1.42013, + 1.16722, 1.60522, 1.72268, + .08158, .04467, 38.77103, 1.78743, 1.48957, + 1.23865, 1.67373, 1.79067, + .08274, .04536, 40.10988, 1.85493, 1.55861, + 1.30970, 1.74180, 1.85826, + .08385, .04601, 41.36716, 1.91965, 1.62473, + 1.37765, 1.80707, 1.92307, + .08491, .04663, 42.54630, 1.98144, 1.68786, + 1.44259, 1.86937, 1.98492 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08597, .04725, 43.71119, 2.04389, 1.75153, + 1.50788, 1.93233, 2.04745, + .08703, .04788, 44.86480, 2.10644, 1.81549, + 1.57371, 1.99539, 2.11008, + .08804, .04846, 45.92350, 2.16561, 1.87567, + 1.63527, 2.05502, 2.16932, + .08899, .04902, 46.94287, 2.22287, 1.93417, + 1.69543, 2.11272, 2.22664, + .08997, .04959, 47.93430, 2.28019, 1.99248, + 1.75511, 2.17047, 2.28403 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05288, .02767, .65291, .29826, .00000, + .00000, .16690, .29947, + .05387, .02824, 1.25467, .31658, .00000, + .00000, .18623, .31785, + .05537, .02912, 2.27309, .34706, .01387, + .00000, .21814, .34841, + .05651, .02981, 3.11094, .37192, .02348, + .00000, .24401, .37333, + .05771, .03051, 4.01266, .40022, .05738, + .00000, .27334, .40171, + .05876, .03113, 4.85482, .42656, .08807, + .00000, .30053, .42811, + .05978, .03174, 5.72432, .45335, .11812, + .00000, .32814, .45497, + .06087, .03239, 6.70381, .48344, .15216, + .00000, .35906, .48512 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06183, .03295, 7.56923, .51104, .18102, + .00000, .38736, .51279, + .06276, .03351, 8.45136, .53890, .21135, + .00000, .41589, .54070, + .06350, .03396, 9.16851, .56185, .23595, + .00000, .43935, .56369, + .06509, .03491, 10.72926, .61332, .29094, + .00000, .49192, .61527, + .06650, .03575, 12.03966, .66006, .34051, + .05340, .53958, .66211, + .06808, .03669, 13.54532, .71498, .39859, + .12508, .59550, .71714, + .06975, .03768, 15.16008, .77486, .46165, + .19236, .65637, .77712, + .07127, .03860, 16.65487, .83136, .52107, + .25609, .71377, .83373 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07281, .03952, 18.18869, .89056, .58323, + .32219, .77385, .89304, + .07410, .04028, 19.45189, .94083, .63519, + .37566, .82484, .94340, + .07567, .04122, 21.00579, 1.00370, .70053, + .44408, .88855, 1.00637, + .07706, .04205, 22.39465, 1.06098, .76018, + .50687, .94656, 1.06376, + .07834, .04281, 23.65417, 1.11440, .81532, + .56403, 1.00064, 1.11726, + .07998, .04378, 25.25114, 1.18364, .88684, + .63834, 1.07072, 1.18663, + .08152, .04469, 26.75436, 1.25035, .95579, + .71019, 1.13817, 1.25344, + .08297, .04555, 28.14887, 1.31388, 1.02127, + .77813, 1.20240, 1.31707 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08442, .04642, 29.51907, 1.37810, 1.08721, + .84622, 1.26730, 1.38140, + .08585, .04726, 30.86522, 1.44229, 1.15336, + .91495, 1.33215, 1.44570, + .08720, .04805, 32.10382, 1.50325, 1.21580, + .97927, 1.39374, 1.50676, + .08848, .04881, 33.26885, 1.56158, 1.27570, + 1.04124, 1.45264, 1.56519, + .08976, .04956, 34.41743, 1.62056, 1.33611, + 1.10352, 1.51218, 1.62425, + .09103, .05031, 35.53309, 1.67904, 1.39601, + 1.16532, 1.57121, 1.68282, + .09224, .05102, 36.57715, 1.73497, 1.45326, + 1.22430, 1.62766, 1.73885, + .09338, .05170, 37.55285, 1.78825, 1.50782, + 1.28056, 1.68142, 1.79222 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09454, .05237, 38.51264, 1.84199, 1.56270, + 1.33698, 1.73563, 1.84604, + .09569, .05304, 39.46085, 1.89572, 1.61773, + 1.39377, 1.78984, 1.89985, + .09678, .05368, 40.32729, 1.94643, 1.66939, + 1.44675, 1.84099, 1.95064, + .09782, .05429, 41.16027, 1.99542, 1.71955, + 1.49846, 1.89041, 1.99971, + .09887, .05490, 41.96658, 2.04436, 1.76943, + 1.54964, 1.93975, 2.04872 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07211, .03909, .64783, .26001, .00000, + .00000, .14806, .26222, + .07341, .03988, 1.19704, .27512, .00000, + .00000, .16398, .27741, + .07542, .04110, 2.08750, .29982, .01372, + .00000, .18988, .30225, + .07694, .04204, 2.80107, .31971, .02084, + .00000, .21059, .32224, + .07853, .04302, 3.54874, .34210, .04793, + .00000, .23382, .34475, + .07994, .04387, 4.23108, .36273, .07225, + .00000, .25515, .36547, + .08130, .04471, 4.92215, .38352, .09576, + .00000, .27661, .38636, + .08277, .04560, 5.68630, .40668, .12217, + .00000, .30046, .40963 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08404, .04638, 6.34875, .42772, .14432, + .00000, .32208, .43075, + .08529, .04714, 7.01444, .44881, .16745, + .00000, .34374, .45194, + .08628, .04775, 7.54853, .46605, .18608, + .00000, .36143, .46927, + .08841, .04905, 8.69082, .50444, .22738, + .00000, .40072, .50780, + .09028, .05018, 9.63056, .53891, .26420, + .03747, .43595, .54241, + .09239, .05146, 10.68377, .57896, .30686, + .09081, .47684, .58263, + .09461, .05280, 11.78998, .62209, .35263, + .14009, .52083, .62594, + .09662, .05401, 12.79397, .66236, .39528, + .18627, .56185, .66635 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09867, .05525, 13.80542, .70409, .43942, + .23365, .60434, .70825, + .10036, .05626, 14.62293, .73914, .47591, + .27154, .63998, .74342, + .10242, .05750, 15.61322, .78254, .52136, + .31959, .68412, .78700, + .10426, .05859, 16.48432, .82173, .56247, + .36329, .72393, .82632, + .10594, .05959, 17.26134, .85790, .60009, + .40265, .76066, .86261, + .10807, .06086, 18.23105, .90434, .64842, + .45337, .80782, .90923, + .11009, .06205, 19.12892, .94861, .69455, + .50192, .85276, .95366, + .11197, .06316, 19.94805, .99035, .73791, + .54736, .89510, .99556 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11385, .06427, 20.73934, 1.03213, .78115, + .59246, .93748, 1.03749, + .11569, .06535, 21.50664, 1.07355, .82418, + .63762, .97947, 1.07905, + .11744, .06637, 22.20012, 1.11247, .86438, + .67945, 1.01893, 1.11812, + .11909, .06734, 22.84450, 1.14944, .90267, + .71948, 1.05641, 1.15522, + .12074, .06829, 23.47031, 1.18649, .94094, + .75935, 1.09396, 1.19241, + .12236, .06923, 24.07003, 1.22295, .97861, + .79863, 1.13088, 1.22900, + .12390, .07012, 24.62361, 1.25754, 1.01433, + .83583, 1.16594, 1.26371, + .12536, .07097, 25.13455, 1.29027, 1.04813, + .87106, 1.19909, 1.29655 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12682, .07182, 25.62970, 1.32300, 1.08187, + .90612, 1.23225, 1.32940, + .12828, .07266, 26.11449, 1.35555, 1.11553, + .94123, 1.26522, 1.36207, + .12965, .07345, 26.54911, 1.38599, 1.14683, + .97368, 1.29605, 1.39262, + .13097, .07420, 26.96482, 1.41528, 1.17710, + 1.00525, 1.32572, 1.42201, + .13228, .07495, 27.35956, 1.44427, 1.20694, + 1.03621, 1.35509, 1.45113 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09883, .05571, .70443, .22971, .00000, + .00000, .13297, .23354, + .10057, .05681, 1.20268, .24156, .00000, + .00000, .14551, .24553, + .10324, .05851, 1.97130, .26078, .01280, + .00000, .16571, .26496, + .10529, .05978, 2.56870, .27613, .01768, + .00000, .18175, .28047, + .10743, .06111, 3.17559, .29327, .03880, + .00000, .19961, .29779, + .10930, .06228, 3.71465, .30892, .05761, + .00000, .21586, .31359, + .11112, .06341, 4.24843, .32458, .07557, + .00000, .23208, .32940, + .11308, .06462, 4.82596, .34189, .09557, + .00000, .24998, .34687 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11479, .06566, 5.31566, .35744, .11214, + .00000, .26605, .36257, + .11645, .06669, 5.79955, .37294, .12936, + .00000, .28202, .37821, + .11778, .06750, 6.18177, .38552, .14312, + .00000, .29499, .39091, + .12061, .06922, 6.98241, .41326, .17334, + .00000, .32352, .41889, + .12309, .07072, 7.62665, .43786, .19995, + .02435, .34879, .44371, + .12587, .07239, 8.32476, .46612, .23041, + .06306, .37778, .47219, + .12878, .07412, 9.03972, .49613, .26266, + .09824, .40855, .50246, + .13142, .07569, 9.67296, .52378, .29233, + .13078, .43687, .53034 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13409, .07727, 10.29656, .55207, .32265, + .16377, .46585, .55887, + .13629, .07856, 10.78878, .57554, .34738, + .18980, .48985, .58252, + .13896, .08013, 11.37360, .60429, .37789, + .22251, .51925, .61150, + .14133, .08151, 11.87773, .62993, .40517, + .25191, .54547, .63735, + .14349, .08277, 12.31762, .65332, .42985, + .27810, .56937, .66093, + .14622, .08434, 12.85533, .68302, .46119, + .31147, .59972, .69086, + .14878, .08582, 13.34255, .71099, .49078, + .34308, .62829, .71905, + .15117, .08719, 13.77696, .73704, .51825, + .37230, .65490, .74532 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15354, .08854, 14.18683, .76280, .54532, + .40097, .68122, .77127, + .15587, .08987, 14.57744, .78808, .57200, + .42943, .70703, .79675, + .15805, .09110, 14.92118, .81153, .59664, + .45548, .73099, .82040, + .16010, .09225, 15.23519, .83362, .61990, + .48019, .75353, .84266, + .16216, .09340, 15.53339, .85551, .64290, + .50455, .77589, .86472, + .16417, .09453, 15.81328, .87684, .66534, + .52835, .79768, .88623, + .16607, .09559, 16.06611, .89689, .68642, + .55068, .81815, .90644, + .16787, .09658, 16.29509, .91569, .70620, + .57166, .83735, .92539 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16966, .09757, 16.51170, .93431, .72576, + .59235, .85638, .94416, + .17144, .09855, 16.72102, .95269, .74515, + .61295, .87516, .96269, + .17311, .09947, 16.90213, .96968, .76297, + .63177, .89251, .97982, + .17471, .10035, 17.07444, .98594, .78014, + .65001, .90914, .99622, + .17630, .10121, 17.23190, 1.00187, .79688, + .66770, .92542, 1.01228 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11903, .06859, .78148, .21399, .00000, + .00000, .12489, .21925, + .12111, .06992, 1.24840, .22402, .00000, + .00000, .13554, .22945, + .12431, .07196, 1.94561, .24025, .01153, + .00000, .15267, .24596, + .12673, .07348, 2.47570, .25316, .01524, + .00000, .16624, .25909, + .12928, .07507, 3.00358, .26759, .03328, + .00000, .18132, .27374, + .13149, .07645, 3.46417, .28066, .04927, + .00000, .19496, .28702, + .13367, .07778, 3.91340, .29370, .06441, + .00000, .20853, .30025, + .13600, .07921, 4.39249, .30804, .08121, + .00000, .22344, .31480 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13801, .08044, 4.79272, .32085, .09501, + .00000, .23673, .32780, + .13998, .08163, 5.18368, .33357, .10931, + .00000, .24991, .34069, + .14155, .08257, 5.48927, .34385, .12067, + .00000, .26054, .35111, + .14489, .08458, 6.12030, .36637, .14549, + .00000, .28381, .37393, + .14778, .08630, 6.62129, .38617, .16715, + .01771, .30426, .39399, + .15103, .08821, 7.14974, .40871, .19176, + .04938, .32753, .41684, + .15441, .09020, 7.68135, .43245, .21759, + .07784, .35200, .44089, + .15747, .09197, 8.14413, .45413, .24114, + .10396, .37433, .46283 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16056, .09376, 8.59234, .47613, .26501, + .13021, .39698, .48511, + .16310, .09521, 8.93966, .49419, .28432, + .15076, .41559, .50342, + .16617, .09696, 9.34648, .51617, .30796, + .17639, .43820, .52567, + .16887, .09849, 9.69189, .53561, .32895, + .19928, .45821, .54536, + .17134, .09989, 9.98813, .55321, .34778, + .21951, .47632, .56317, + .17445, .10162, 10.34421, .57537, .37153, + .24510, .49912, .58560, + .17735, .10325, 10.66133, .59606, .39375, + .26914, .52041, .60656, + .18007, .10474, 10.93900, .61516, .41423, + .29122, .54007, .62590 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18273, .10621, 11.19533, .63388, .43424, + .31269, .55933, .64485, + .18535, .10764, 11.43603, .65212, .45385, + .33389, .57811, .66333, + .18777, .10896, 11.64268, .66891, .47179, + .35313, .59539, .68033, + .19007, .11021, 11.82866, .68460, .48862, + .37128, .61154, .69621, + .19235, .11143, 12.00141, .70003, .50516, + .38905, .62745, .71185, + .19457, .11262, 12.16050, .71496, .52119, + .40631, .64283, .72697, + .19668, .11374, 12.30119, .72888, .53615, + .42241, .65719, .74108, + .19865, .11479, 12.42602, .74186, .55011, + .43745, .67057, .75422 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20062, .11583, 12.54066, .75463, .56381, + .45218, .68374, .76716, + .20257, .11686, 12.65001, .76716, .57733, + .46679, .69668, .77986, + .20438, .11781, 12.74056, .77863, .58966, + .48003, .70853, .79149, + .20612, .11872, 12.82640, .78958, .60150, + .49283, .71984, .80259, + .20784, .11962, 12.90096, .80020, .61295, + .50516, .73081, .81335 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13594, .07948, .86696, .20331, .00000, + .00000, .11909, .20985, + .13830, .08099, 1.30618, .21210, .00000, + .00000, .12848, .21888, + .14195, .08330, 1.95066, .22634, .01009, + .00000, .14359, .23345, + .14471, .08503, 2.43192, .23768, .01309, + .00000, .15556, .24505, + .14759, .08682, 2.90373, .25031, .02913, + .00000, .16881, .25795, + .15011, .08837, 3.30979, .26172, .04330, + .00000, .18078, .26961, + .15256, .08986, 3.70119, .27307, .05664, + .00000, .19265, .28119, + .15518, .09144, 4.11394, .28550, .07139, + .00000, .20564, .29386 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15746, .09281, 4.45478, .29656, .08343, + .00000, .21716, .30514, + .15967, .09412, 4.78474, .30748, .09587, + .00000, .22855, .31628, + .16143, .09517, 5.04051, .31628, .10571, + .00000, .23770, .32526, + .16516, .09736, 5.56258, .33548, .12712, + .00000, .25765, .34480, + .16840, .09925, 5.97314, .35224, .14569, + .01340, .27506, .36188, + .17201, .10133, 6.39571, .37121, .16665, + .04065, .29474, .38118, + .17575, .10346, 6.81449, .39103, .18849, + .06495, .31530, .40134, + .17912, .10537, 7.17371, .40900, .20827, + .08709, .33392, .41963 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18252, .10729, 7.51668, .42710, .22820, + .10921, .35270, .43806, + .18529, .10884, 7.77816, .44187, .24420, + .12641, .36800, .45307, + .18865, .11069, 8.08062, .45971, .26368, + .14775, .38648, .47122, + .19161, .11232, 8.33396, .47540, .28087, + .16670, .40274, .48718, + .19429, .11377, 8.54771, .48949, .29621, + .18335, .41736, .50153, + .19766, .11559, 8.80067, .50713, .31542, + .20430, .43564, .51946, + .20080, .11729, 9.02225, .52347, .33329, + .22385, .45260, .53609, + .20370, .11884, 9.21264, .53846, .34965, + .24170, .46815, .55133 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20657, .12037, 9.38463, .55303, .36554, + .25896, .48328, .56616, + .20936, .12184, 9.54378, .56716, .38102, + .27591, .49795, .58054, + .21197, .12319, 9.67665, .58005, .39508, + .29120, .51135, .59365, + .21441, .12446, 9.79427, .59203, .40822, + .30556, .52381, .60585, + .21682, .12571, 9.90072, .60374, .42105, + .31954, .53600, .61777, + .21917, .12692, 9.99645, .61499, .43342, + .33305, .54772, .62922, + .22139, .12805, 10.07881, .62542, .44490, + .34560, .55859, .63985, + .22347, .12910, 10.14993, .63509, .45557, + .35727, .56868, .64970 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22553, .13015, 10.21266, .64453, .46597, + .36864, .57853, .65932, + .22757, .13118, 10.27143, .65377, .47621, + .37987, .58818, .66873, + .22947, .13212, 10.31667, .66215, .48548, + .39001, .59695, .67727, + .23128, .13303, 10.35946, .67013, .49435, + .39976, .60529, .68540, + .23307, .13391, 10.39320, .67781, .50288, + .40911, .61332, .69321 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .15067, .08899, .95092, .19485, .00000, + .00000, .11428, .20253, + .15330, .09069, 1.36681, .20275, .00000, + .00000, .12276, .21069, + .15736, .09326, 1.96857, .21555, .00859, + .00000, .13640, .22390, + .16041, .09514, 2.41071, .22573, .01111, + .00000, .14720, .23440, + .16359, .09708, 2.83857, .23707, .02571, + .00000, .15918, .24605, + .16637, .09877, 3.20260, .24729, .03858, + .00000, .16995, .25654, + .16906, .10039, 3.55006, .25742, .05064, + .00000, .18060, .26695, + .17196, .10211, 3.91302, .26849, .06390, + .00000, .19222, .27830 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17444, .10357, 4.20987, .27827, .07470, + .00000, .20248, .28834, + .17686, .10499, 4.49504, .28794, .08582, + .00000, .21259, .29822, + .17879, .10610, 4.71453, .29569, .09459, + .00000, .22071, .30617, + .18286, .10845, 5.15806, .31251, .11358, + .00000, .23830, .32340, + .18637, .11044, 5.50436, .32713, .12997, + .01027, .25357, .33836, + .19027, .11264, 5.85238, .34357, .14837, + .03441, .27073, .35517, + .19430, .11488, 6.19275, .36063, .16742, + .05577, .28853, .37262, + .19793, .11688, 6.48074, .37599, .18459, + .07515, .30457, .38832 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20156, .11887, 6.75221, .39139, .20177, + .09440, .32064, .40406, + .20453, .12047, 6.95576, .40385, .21549, + .10928, .33365, .41680, + .20811, .12240, 7.18844, .41884, .23213, + .12768, .34930, .43212, + .21126, .12406, 7.38083, .43194, .24672, + .14393, .36300, .44552, + .21409, .12556, 7.54046, .44364, .25967, + .15814, .37522, .45748, + .21764, .12743, 7.72641, .45819, .27582, + .17593, .39043, .47235, + .22095, .12914, 7.88642, .47159, .29074, + .19245, .40447, .48605, + .22401, .13072, 8.02094, .48380, .30434, + .20745, .41726, .49853 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22701, .13225, 8.13963, .49559, .31747, + .22189, .42961, .51059, + .22992, .13373, 8.24771, .50695, .33021, + .23601, .44154, .52221, + .23263, .13509, 8.33479, .51724, .34170, + .24866, .45235, .53274, + .23516, .13635, 8.41027, .52677, .35240, + .26052, .46237, .54248, + .23765, .13758, 8.47617, .53603, .36280, + .27201, .47211, .55195, + .24009, .13879, 8.53344, .54486, .37279, + .28307, .48143, .56100, + .24236, .13989, 8.58065, .55301, .38200, + .29329, .49003, .56934, + .24449, .14093, 8.61977, .56052, .39053, + .30276, .49796, .57702 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24661, .14196, 8.65190, .56780, .39880, + .31194, .50567, .58449, + .24868, .14295, 8.68104, .57489, .40691, + .32100, .51318, .59175, + .25062, .14387, 8.69999, .58127, .41421, + .32911, .51996, .59829, + .25247, .14474, 8.71788, .58734, .42119, + .33692, .52639, .60450, + .25428, .14560, 8.72821, .59312, .42785, + .34436, .53255, .61043 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17617, .10544, 1.10529, .18185, .00000, + .00000, .10654, .19172, + .17930, .10742, 1.48098, .18848, .00000, + .00000, .11375, .19870, + .18408, .11036, 2.01398, .19927, .00567, + .00000, .12540, .21002, + .18765, .11250, 2.39429, .20785, .00761, + .00000, .13461, .21898, + .19135, .11471, 2.75432, .21738, .02023, + .00000, .14479, .22891, + .19456, .11659, 3.05505, .22592, .03129, + .00000, .15389, .23780, + .19767, .11838, 3.33745, .23435, .04159, + .00000, .16286, .24654, + .20098, .12028, 3.62781, .24350, .05283, + .00000, .17259, .25603 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20382, .12189, 3.86137, .25153, .06192, + .00000, .18111, .26436, + .20658, .12344, 4.08283, .25942, .07123, + .00000, .18947, .27253, + .20876, .12466, 4.25121, .26571, .07854, + .00000, .19613, .27905, + .21335, .12720, 4.58541, .27927, .09424, + .00000, .21050, .29307, + .21728, .12931, 4.84396, .29091, .10766, + .00591, .22282, .30510, + .22161, .13163, 5.09124, .30388, .12261, + .02581, .23656, .31851, + .22608, .13399, 5.32716, .31719, .13792, + .04324, .25065, .33224, + .23007, .13607, 5.52163, .32904, .15156, + .05889, .26321, .34446 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23405, .13812, 5.70006, .34077, .16512, + .07433, .27565, .35658, + .23728, .13977, 5.82969, .35017, .17583, + .08614, .28562, .36628, + .24114, .14172, 5.97405, .36135, .18869, + .10063, .29751, .37782, + .24452, .14340, 6.08992, .37104, .19990, + .11334, .30782, .38782, + .24755, .14491, 6.18256, .37959, .20976, + .12436, .31692, .39664, + .25134, .14675, 6.28640, .39010, .22193, + .13805, .32814, .40750, + .25484, .14845, 6.37192, .39967, .23308, + .15066, .33837, .41738, + .25804, .14998, 6.43976, .40829, .24315, + .16201, .34759, .42627 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26118, .15147, 6.49534, .41651, .25277, + .17284, .35641, .43476, + .26422, .15289, 6.54344, .42434, .26203, + .18336, .36484, .44286, + .26701, .15418, 6.57743, .43136, .27030, + .19270, .37239, .45010, + .26961, .15537, 6.60462, .43777, .27795, + .20140, .37933, .45674, + .27217, .15654, 6.62470, .44392, .28531, + .20976, .38600, .46310, + .27464, .15765, 6.63890, .44973, .29232, + .21775, .39231, .46911, + .27695, .15868, 6.64715, .45503, .29875, + .22508, .39809, .47459, + .27910, .15963, 6.65110, .45987, .30464, + .23184, .40336, .47959 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28122, .16055, 6.65001, .46449, .31032, + .23835, .40843, .48439, + .28330, .16145, 6.64720, .46895, .31584, + .24472, .41334, .48902, + .28521, .16228, 6.63820, .47291, .32076, + .25038, .41770, .49310, + .28703, .16306, 6.62978, .47664, .32544, + .25581, .42182, .49698, + .28881, .16381, 6.61607, .48012, .32986, + .26094, .42569, .50059 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20818, .12583, 1.30316, .16694, .00000, + .00000, .09715, .17978, + .21198, .12813, 1.62717, .17240, .00000, + .00000, .10325, .18572, + .21769, .13150, 2.07941, .18133, .00170, + .00000, .11307, .19533, + .22188, .13391, 2.38922, .18838, .00326, + .00000, .12082, .20286, + .22622, .13636, 2.67450, .19620, .01401, + .00000, .12932, .21115, + .22995, .13843, 2.90745, .20313, .02338, + .00000, .13686, .21850, + .23354, .14039, 3.12196, .20991, .03201, + .00000, .14423, .22569, + .23736, .14244, 3.33834, .21721, .04137, + .00000, .15216, .23341 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24060, .14416, 3.50859, .22356, .04885, + .00000, .15904, .24010, + .24373, .14580, 3.66736, .22974, .05647, + .00000, .16574, .24661, + .24619, .14709, 3.78608, .23463, .06241, + .00000, .17105, .25176, + .25134, .14974, 4.01597, .24509, .07507, + .00000, .18236, .26274, + .25568, .15192, 4.19258, .25392, .08575, + .00184, .19195, .27200, + .26045, .15426, 4.34760, .26364, .09750, + .01779, .20248, .28218, + .26530, .15662, 4.48978, .27344, .10939, + .03161, .21314, .29245, + .26960, .15868, 4.60193, .28204, .11988, + .04388, .22251, .30145 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27386, .16069, 4.70020, .29045, .13015, + .05584, .23167, .31024, + .27728, .16227, 4.76695, .29706, .13818, + .06490, .23891, .31717, + .28136, .16413, 4.83771, .30482, .14774, + .07593, .24743, .32529, + .28488, .16573, 4.89105, .31144, .15597, + .08550, .25472, .33222, + .28803, .16712, 4.92949, .31720, .16312, + .09372, .26107, .33825, + .29192, .16882, 4.96799, .32417, .17185, + .10382, .26879, .34555, + .29549, .17036, 4.99531, .33043, .17977, + .11304, .27575, .35209, + .29873, .17173, 5.01218, .33594, .18683, + .12126, .28191, .35786 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30187, .17304, 5.02037, .34110, .19348, + .12901, .28771, .36327, + .30489, .17429, 5.02412, .34595, .19984, + .13648, .29319, .36836, + .30763, .17540, 5.01982, .35019, .20544, + .14304, .29800, .37279, + .31018, .17641, 5.01263, .35401, .21056, + .14910, .30236, .37679, + .31266, .17739, 5.00069, .35760, .21544, + .15488, .30649, .38056, + .31503, .17830, 4.98539, .36092, .22004, + .16035, .31034, .38406, + .31723, .17913, 4.96754, .36391, .22420, + .16532, .31381, .38717, + .31926, .17990, 4.94826, .36656, .22798, + .16987, .31693, .38997 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32126, .18062, 4.92560, .36903, .23158, + .17421, .31987, .39257, + .32320, .18134, 4.90243, .37140, .23505, + .17843, .32268, .39506, + .32497, .18196, 4.87646, .37340, .23809, + .18214, .32511, .39717, + .32665, .18255, 4.85218, .37527, .24097, + .18568, .32741, .39916, + .32827, .18310, 4.82436, .37695, .24365, + .18898, .32949, .40093 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25259, .15309, 1.54455, .14818, .00000, + .00000, .08502, .16592, + .25729, .15575, 1.79714, .15258, .00000, + .00000, .09012, .17093, + .26425, .15954, 2.14639, .15963, -.00359, + .00000, .09827, .17883, + .26925, .16215, 2.37010, .16514, -.00217, + .00000, .10456, .18492, + .27438, .16477, 2.56740, .17115, .00673, + .00000, .11138, .19152, + .27871, .16696, 2.72346, .17641, .01441, + .00000, .11735, .19728, + .28284, .16900, 2.86309, .18151, .02139, + .00000, .12311, .20280, + .28718, .17109, 2.99980, .18690, .02887, + .00000, .12922, .20865 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29084, .17282, 3.10352, .19151, .03478, + .00000, .13444, .21364, + .29433, .17446, 3.19778, .19594, .04073, + .00000, .13946, .21843, + .29705, .17572, 3.26633, .19942, .04532, + .00000, .14339, .22216, + .30272, .17829, 3.39305, .20670, .05498, + .00000, .15165, .22999, + .30738, .18033, 3.49037, .21274, .06299, + -.00194, .15851, .23645, + .31242, .18251, 3.55898, .21922, .07168, + .01013, .16591, .24337, + .31749, .18462, 3.61569, .22561, .08031, + .02044, .17324, .25018, + .32193, .18642, 3.65469, .23107, .08779, + .02946, .17954, .25600 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32625, .18814, 3.68348, .23629, .09502, + .03814, .18558, .26156, + .32967, .18947, 3.69716, .24026, .10057, + .04463, .19024, .26579, + .33370, .19099, 3.70698, .24484, .10709, + .05243, .19563, .27066, + .33715, .19226, 3.70966, .24865, .11261, + .05911, .20016, .27471, + .34018, .19335, 3.70531, .25186, .11734, + .06477, .20401, .27812, + .34386, .19464, 3.69358, .25564, .12303, + .07165, .20859, .28213, + .34718, .19577, 3.67736, .25892, .12811, + .07784, .21261, .28560, + .35017, .19675, 3.65705, .26172, .13255, + .08328, .21609, .28857 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35301, .19764, 3.63186, .26422, .13667, + .08834, .21925, .29122, + .35570, .19846, 3.60513, .26650, .14054, + .09317, .22218, .29363, + .35809, .19916, 3.57543, .26837, .14389, + .09735, .22467, .29562, + .36028, .19978, 3.54606, .27002, .14692, + .10116, .22687, .29735, + .36239, .20035, 3.51413, .27146, .14975, + .10476, .22888, .29890, + .36438, .20086, 3.48108, .27275, .15236, + .10812, .23069, .30025, + .36618, .20130, 3.44817, .27381, .15469, + .11114, .23228, .30138, + .36783, .20169, 3.41607, .27471, .15678, + .11387, .23364, .30233 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .36940, .20204, 3.38226, .27547, .15871, + .11643, .23488, .30312, + .37092, .20236, 3.34885, .27616, .16057, + .11891, .23602, .30385, + .37227, .20262, 3.31509, .27664, .16214, + .12105, .23694, .30436, + .37355, .20286, 3.28365, .27709, .16362, + .12307, .23779, .30481, + .37474, .20306, 3.25031, .27738, .16495, + .12493, .23849, .30513 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28965, .17491, 1.69940, .13320, .00000, + .00000, .07541, .15514, + .29517, .17775, 1.89371, .13693, .00000, + .00000, .07998, .15960, + .30316, .18170, 2.16319, .14284, -.00731, + .00000, .08710, .16649, + .30881, .18438, 2.32356, .14735, -.00583, + .00000, .09250, .17164, + .31445, .18700, 2.45833, .15222, .00188, + .00000, .09828, .17712, + .31922, .18915, 2.56147, .15641, .00848, + .00000, .10323, .18179, + .32370, .19112, 2.65111, .16037, .01442, + .00000, .10795, .18622, + .32836, .19312, 2.73609, .16454, .02070, + .00000, .11289, .19084 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33224, .19474, 2.79749, .16803, .02561, + .00000, .11704, .19468, + .33591, .19625, 2.85153, .17134, .03051, + .00000, .12101, .19834, + .33876, .19741, 2.88926, .17391, .03426, + .00000, .12408, .20115, + .34458, .19968, 2.95423, .17922, .04208, + .00000, .13044, .20695, + .34930, .20144, 3.00508, .18350, .04846, + -.00387, .13561, .21159, + .35431, .20325, 3.02505, .18801, .05528, + .00579, .14109, .21647, + .35925, .20497, 3.03523, .19234, .06198, + .01397, .14640, .22112, + .36353, .20640, 3.03576, .19594, .06769, + .02102, .15087, .22499 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .36763, .20771, 3.02891, .19928, .07314, + .02775, .15510, .22856, + .37081, .20868, 3.01624, .20176, .07727, + .03272, .15827, .23119, + .37450, .20975, 2.99658, .20452, .08206, + .03864, .16186, .23413, + .37763, .21060, 2.97547, .20674, .08607, + .04365, .16481, .23649, + .38032, .21129, 2.95180, .20854, .08946, + .04786, .16726, .23840, + .38353, .21208, 2.91813, .21056, .09348, + .05293, .17010, .24054, + .38638, .21273, 2.88361, .21225, .09701, + .05743, .17253, .24229, + .38888, .21324, 2.84838, .21360, .10007, + .06135, .17456, .24368 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39119, .21367, 2.81047, .21470, .10286, + .06496, .17635, .24482, + .39335, .21402, 2.77265, .21565, .10544, + .06836, .17794, .24579, + .39523, .21427, 2.73448, .21633, .10762, + .07126, .17923, .24647, + .39692, .21447, 2.69811, .21686, .10957, + .07390, .18032, .24700, + .39849, .21460, 2.66044, .21726, .11137, + .07635, .18126, .24736, + .39992, .21470, 2.62286, .21753, .11300, + .07862, .18206, .24759, + .40120, .21473, 2.58661, .21769, .11443, + .08064, .18271, .24771, + .40232, .21474, 2.55205, .21775, .11567, + .08244, .18322, .24772 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40337, .21470, 2.51656, .21769, .11681, + .08412, .18363, .24761, + .40437, .21463, 2.48192, .21760, .11789, + .08572, .18399, .24746, + .40520, .21451, 2.44805, .21738, .11877, + .08709, .18419, .24718, + .40598, .21440, 2.41660, .21716, .11960, + .08838, .18436, .24691, + .40665, .21423, 2.38407, .21684, .12030, + .08954, .18443, .24651 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35297, .20884, 1.81948, .11024, .00000, + .00000, .06174, .14054, + .35957, .21168, 1.92747, .11311, .00000, + .00000, .06562, .14412, + .36881, .21542, 2.08279, .11742, -.01147, + .00000, .07137, .14931, + .37504, .21781, 2.15799, .12058, -.00982, + .00000, .07552, .15296, + .38114, .22006, 2.21166, .12388, -.00366, + .00000, .07985, .15672, + .38617, .22181, 2.24849, .12660, .00149, + .00000, .08344, .15981, + .39080, .22335, 2.27714, .12913, .00608, + .00000, .08677, .16264, + .39548, .22486, 2.30061, .13169, .01082, + .00000, .09019, .16546 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .39929, .22602, 2.31299, .13376, .01448, + .00000, .09297, .16773, + .40285, .22705, 2.32154, .13568, .01807, + .00000, .09557, .16981, + .40554, .22779, 2.32523, .13713, .02077, + .00000, .09753, .17136, + .41091, .22920, 2.32363, .14002, .02632, + .00000, .10150, .17441, + .41503, .23014, 2.32507, .14222, .03075, + -.00536, .10462, .17671, + .41927, .23099, 2.29708, .14442, .03537, + .00134, .10780, .17896, + .42329, .23168, 2.26309, .14638, .03980, + .00694, .11075, .18092, + .42662, .23214, 2.22844, .14790, .04351, + .01169, .11312, .18238 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .42969, .23246, 2.19056, .14917, .04695, + .01613, .11525, .18358, + .43193, .23259, 2.15607, .15001, .04952, + .01937, .11676, .18433, + .43444, .23262, 2.11310, .15084, .05243, + .02316, .11840, .18503, + .43644, .23256, 2.07413, .15143, .05481, + .02633, .11967, .18546, + .43804, .23242, 2.03695, .15178, .05677, + .02893, .12064, .18567, + .43984, .23211, 1.98911, .15206, .05907, + .03203, .12168, .18573, + .44131, .23174, 1.94388, .15216, .06102, + .03472, .12247, .18561, + .44248, .23130, 1.90105, .15210, .06266, + .03703, .12305, .18532 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44344, .23076, 1.85782, .15189, .06411, + .03911, .12346, .18489, + .44424, .23018, 1.81614, .15161, .06543, + .04105, .12376, .18437, + .44479, .22954, 1.77635, .15120, .06650, + .04267, .12389, .18373, + .44522, .22891, 1.73941, .15076, .06743, + .04412, .12394, .18305, + .44549, .22822, 1.70242, .15023, .06825, + .04544, .12390, .18228, + .44566, .22749, 1.66646, .14964, .06898, + .04663, .12379, .18144, + .44571, .22677, 1.63263, .14902, .06959, + .04769, .12360, .18059, + .44568, .22604, 1.60104, .14839, .07010, + .04861, .12337, .17972 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .44553, .22527, 1.56940, .14768, .07052, + .04944, .12307, .17878, + .44534, .22451, 1.53886, .14697, .07092, + .05023, .12275, .17784, + .44502, .22372, 1.50974, .14623, .07121, + .05088, .12237, .17685, + .44472, .22298, 1.48285, .14553, .07147, + .05149, .12200, .17592, + .44430, .22219, 1.45568, .14476, .07166, + .05201, .12155, .17492 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40619, .23396, 1.79088, .09274, .00000, + .00000, .05245, .12991, + .41330, .23641, 1.84202, .09498, .00000, + .00000, .05573, .13258, + .42287, .23947, 1.92313, .09818, -.01288, + .00000, .06039, .13621, + .42911, .24122, 1.94726, .10036, -.01116, + .00000, .06364, .13866, + .43505, .24277, 1.95449, .10261, -.00611, + .00000, .06692, .14104, + .43976, .24390, 1.95457, .10442, -.00193, + .00000, .06957, .14290, + .44399, .24481, 1.95050, .10603, .00173, + .00000, .07196, .14450, + .44818, .24561, 1.94199, .10759, .00546, + .00000, .07437, .14605 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45146, .24613, 1.92974, .10881, .00832, + .00000, .07626, .14722, + .45445, .24654, 1.91610, .10990, .01108, + .00000, .07798, .14822, + .45665, .24678, 1.90359, .11068, .01313, + .00000, .07928, .14892, + .46086, .24707, 1.87167, .11220, .01730, + .00000, .08180, .15020, + .46389, .24704, 1.85061, .11324, .02056, + -.00552, .08371, .15098, + .46679, .24681, 1.80384, .11420, .02391, + -.00059, .08556, .15160, + .46932, .24635, 1.75388, .11493, .02706, + .00350, .08718, .15194, + .47123, .24576, 1.70761, .11539, .02964, + .00690, .08842, .15201 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47280, .24506, 1.66040, .11564, .03200, + .01004, .08945, .15188, + .47376, .24432, 1.62035, .11570, .03372, + .01231, .09010, .15156, + .47469, .24331, 1.57231, .11563, .03565, + .01494, .09074, .15104, + .47527, .24234, 1.53031, .11545, .03720, + .01709, .09117, .15046, + .47555, .24135, 1.49175, .11518, .03845, + .01885, .09143, .14978, + .47562, .24001, 1.44352, .11470, .03988, + .02091, .09161, .14880, + .47548, .23866, 1.39914, .11414, .04108, + .02269, .09165, .14776, + .47510, .23733, 1.35822, .11354, .04205, + .02417, .09158, .14669 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .47451, .23592, 1.31790, .11283, .04289, + .02549, .09139, .14551, + .47379, .23450, 1.27963, .11208, .04363, + .02672, .09114, .14430, + .47291, .23307, 1.24387, .11128, .04421, + .02772, .09080, .14309, + .47198, .23171, 1.21111, .11050, .04469, + .02859, .09044, .14190, + .47090, .23028, 1.17883, .10967, .04510, + .02939, .09001, .14065, + .46973, .22886, 1.14783, .10882, .04544, + .03009, .08955, .13938, + .46850, .22748, 1.11903, .10798, .04571, + .03069, .08907, .13814, + .46726, .22615, 1.09241, .10715, .04592, + .03122, .08858, .13694 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .46593, .22478, 1.06606, .10629, .04608, + .03169, .08804, .13571, + .46457, .22341, 1.04081, .10543, .04621, + .03212, .08749, .13448, + .46314, .22207, 1.01703, .10456, .04629, + .03246, .08693, .13328, + .46178, .22081, .99516, .10374, .04634, + .03278, .08640, .13215, + .46030, .21949, .97334, .10289, .04636, + .03305, .08582, .13096 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45233, .25309, 1.68661, .07887, .00000, + .00000, .04564, .12099, + .45947, .25494, 1.70096, .08053, .00000, + .00000, .04834, .12271, + .46873, .25694, 1.73410, .08282, -.01288, + .00000, .05205, .12491, + .47445, .25789, 1.72762, .08435, -.01121, + .00000, .05456, .12625, + .47967, .25858, 1.70825, .08586, -.00702, + .00000, .05700, .12747, + .48369, .25892, 1.68797, .08699, -.00358, + .00000, .05894, .12833, + .48717, .25906, 1.66634, .08797, -.00061, + .00000, .06064, .12901, + .49043, .25904, 1.64126, .08891, .00239, + .00000, .06230, .12955 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49286, .25884, 1.61671, .08957, .00467, + .00000, .06357, .12985, + .49495, .25855, 1.59229, .09013, .00684, + .00000, .06471, .13005, + .49643, .25824, 1.57215, .09052, .00846, + .00000, .06553, .13015, + .49903, .25737, 1.52678, .09118, .01168, + .00000, .06710, .13014, + .50056, .25634, 1.49582, .09156, .01417, + -.00521, .06820, .12991, + .50176, .25497, 1.44295, .09180, .01668, + -.00147, .06921, .12945, + .50248, .25337, 1.38868, .09183, .01900, + .00161, .07002, .12877, + .50267, .25178, 1.34015, .09172, .02089, + .00415, .07056, .12795 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50252, .25004, 1.29209, .09146, .02259, + .00647, .07094, .12696, + .50203, .24846, 1.25245, .09111, .02381, + .00813, .07111, .12604, + .50118, .24648, 1.20580, .09060, .02515, + .01002, .07119, .12482, + .50017, .24467, 1.16576, .09007, .02621, + .01156, .07118, .12365, + .49901, .24292, 1.12966, .08950, .02706, + .01281, .07106, .12250, + .49727, .24063, 1.08527, .08870, .02800, + .01425, .07080, .12097, + .49541, .23842, 1.04501, .08789, .02877, + .01548, .07047, .11946, + .49346, .23629, 1.00845, .08705, .02939, + .01649, .07008, .11801 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49129, .23410, .97295, .08614, .02989, + .01739, .06962, .11648, + .48907, .23195, .93958, .08525, .03033, + .01820, .06912, .11498, + .48673, .22986, .90881, .08435, .03066, + .01885, .06858, .11350, + .48446, .22788, .88083, .08348, .03092, + .01943, .06806, .11209, + .48208, .22585, .85355, .08257, .03113, + .01993, .06750, .11067, + .47961, .22384, .82756, .08167, .03129, + .02038, .06691, .10925, + .47718, .22193, .80360, .08079, .03140, + .02075, .06631, .10789, + .47481, .22010, .78161, .07996, .03148, + .02107, .06574, .10660 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47235, .21824, .76003, .07909, .03152, + .02134, .06514, .10530, + .46991, .21639, .73943, .07823, .03155, + .02160, .06455, .10400, + .46742, .21462, .72023, .07740, .03153, + .02179, .06395, .10276, + .46511, .21295, .70262, .07662, .03150, + .02196, .06340, .10158, + .46266, .21124, .68515, .07581, .03145, + .02210, .06281, .10038 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50153, .26972, 1.51566, .06475, .00000, + .00000, .03889, .11004, + .50793, .27051, 1.50233, .06596, .00000, + .00000, .04096, .11067, + .51567, .27095, 1.49877, .06747, -.01202, + .00000, .04369, .11130, + .52007, .27074, 1.47115, .06843, -.01046, + .00000, .04542, .11149, + .52378, .27020, 1.43433, .06933, -.00710, + .00000, .04710, .11159, + .52638, .26947, 1.40125, .06997, -.00438, + .00000, .04839, .11149, + .52842, .26860, 1.36901, .07047, -.00203, + .00000, .04947, .11127, + .53010, .26752, 1.33437, .07088, .00029, + .00000, .05048, .11093 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53110, .26640, 1.30312, .07115, .00206, + .00000, .05124, .11051, + .53182, .26523, 1.27319, .07134, .00371, + .00000, .05188, .11002, + .53217, .26422, 1.24941, .07141, .00494, + .00000, .05232, .10960, + .53235, .26190, 1.19841, .07147, .00733, + .00000, .05310, .10857, + .53172, .25967, 1.16317, .07139, .00916, + -.00456, .05359, .10754, + .53050, .25702, 1.11025, .07115, .01098, + -.00183, .05397, .10627, + .52868, .25411, 1.05732, .07076, .01264, + .00041, .05420, .10479, + .52662, .25135, 1.01113, .07030, .01396, + .00223, .05425, .10335 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52417, .24849, .96630, .06973, .01512, + .00386, .05418, .10182, + .52181, .24600, .93014, .06914, .01595, + .00503, .05400, .10049, + .51871, .24297, .88817, .06839, .01685, + .00634, .05372, .09883, + .51574, .24026, .85264, .06769, .01755, + .00740, .05341, .09732, + .51280, .23770, .82112, .06699, .01808, + .00824, .05305, .09588, + .50883, .23444, .78286, .06606, .01867, + .00921, .05252, .09406, + .50492, .23136, .74862, .06515, .01913, + .01001, .05199, .09233, + .50111, .22840, .71791, .06423, .01950, + .01068, .05144, .09070 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .49708, .22545, .68845, .06330, .01978, + .01125, .05085, .08904, + .49306, .22259, .66101, .06239, .02002, + .01176, .05025, .08743, + .48911, .21984, .63598, .06149, .02019, + .01217, .04964, .08589, + .48533, .21725, .61343, .06064, .02030, + .01252, .04905, .08446, + .48144, .21466, .59162, .05978, .02038, + .01282, .04845, .08301, + .47755, .21210, .57100, .05893, .02044, + .01308, .04784, .08159, + .47379, .20967, .55212, .05810, .02047, + .01330, .04725, .08026, + .47020, .20739, .53492, .05732, .02047, + .01348, .04669, .07900 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .46650, .20508, .51815, .05654, .02044, + .01362, .04610, .07774, + .46284, .20283, .50221, .05578, .02041, + .01376, .04553, .07651, + .45927, .20067, .48749, .05503, .02036, + .01386, .04497, .07534, + .45592, .19864, .47404, .05434, .02030, + .01394, .04445, .07424, + .45247, .19657, .46079, .05362, .02022, + .01400, .04390, .07313 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54271, .28023, 1.33600, .05350, .00000, + .00000, .03329, .09879, + .54764, .27981, 1.30743, .05433, .00000, + .00000, .03481, .09854, + .55303, .27843, 1.28309, .05532, -.01083, + .00000, .03677, .09791, + .55550, .27698, 1.24505, .05593, -.00941, + .00000, .03798, .09726, + .55721, .27514, 1.20060, .05643, -.00669, + .00000, .03912, .09649, + .55801, .27329, 1.16234, .05672, -.00451, + .00000, .03992, .09578, + .55828, .27138, 1.12617, .05692, -.00264, + .00000, .04058, .09499, + .55807, .26925, 1.08836, .05704, -.00080, + .00000, .04117, .09407 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .55742, .26721, 1.05545, .05704, .00058, + .00000, .04157, .09319, + .55652, .26519, 1.02442, .05700, .00187, + .00000, .04188, .09229, + .55558, .26354, 1.00020, .05692, .00281, + .00000, .04210, .09154, + .55302, .25989, .94945, .05666, .00464, + .00000, .04241, .08990, + .55012, .25656, .91426, .05633, .00601, + -.00389, .04253, .08843, + .54637, .25273, .86487, .05586, .00736, + -.00185, .04253, .08672, + .54198, .24867, .81628, .05524, .00858, + -.00019, .04239, .08487, + .53760, .24491, .77454, .05460, .00953, + .00114, .04216, .08315 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53290, .24109, .73457, .05392, .01036, + .00233, .04187, .08136, + .52866, .23790, .70278, .05328, .01093, + .00317, .04153, .07986, + .52337, .23398, .66627, .05247, .01155, + .00411, .04107, .07806, + .51852, .23052, .63573, .05172, .01202, + .00485, .04064, .07646, + .51390, .22733, .60891, .05099, .01238, + .00545, .04019, .07498, + .50789, .22328, .57666, .05005, .01276, + .00611, .03959, .07312, + .50212, .21950, .54808, .04914, .01305, + .00666, .03898, .07137, + .49657, .21599, .52269, .04829, .01327, + .00711, .03840, .06973 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49089, .21245, .49858, .04741, .01343, + .00748, .03778, .06814, + .48533, .20905, .47626, .04655, .01356, + .00782, .03717, .06659, + .47996, .20580, .45613, .04571, .01364, + .00808, .03657, .06515, + .47487, .20280, .43807, .04495, .01369, + .00830, .03600, .06379, + .46969, .19982, .42070, .04417, .01372, + .00849, .03544, .06244, + .46458, .19690, .40441, .04342, .01372, + .00865, .03487, .06113, + .45971, .19413, .38960, .04269, .01371, + .00878, .03432, .05993, + .45509, .19153, .37618, .04200, .01367, + .00888, .03380, .05879 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45041, .18893, .36315, .04132, .01363, + .00897, .03328, .05764, + .44582, .18639, .35084, .04065, .01358, + .00904, .03278, .05655, + .44137, .18397, .33951, .04001, .01352, + .00909, .03228, .05551, + .43719, .18172, .32918, .03942, .01345, + .00912, .03182, .05456, + .43293, .17944, .31910, .03881, .01337, + .00915, .03134, .05359 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .57625, .28568, 1.16606, .04450, .00000, + .00000, .02832, .08708, + .57919, .28395, 1.12937, .04512, .00000, + .00000, .02944, .08615, + .58144, .28075, 1.09351, .04580, -.00960, + .00000, .03080, .08458, + .58164, .27802, 1.05094, .04609, -.00832, + .00000, .03160, .08342, + .58093, .27491, 1.00394, .04637, -.00610, + .00000, .03232, .08216, + .57962, .27206, .96442, .04647, -.00432, + .00000, .03281, .08099, + .57789, .26921, .92767, .04648, -.00282, + .00000, .03319, .07982, + .57561, .26606, .88996, .04642, -.00136, + .00000, .03348, .07854 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57316, .26321, .85772, .04628, -.00026, + .00000, .03365, .07741, + .57051, .26044, .82767, .04611, .00076, + .00000, .03375, .07628, + .56820, .25822, .80445, .04597, .00150, + .00000, .03379, .07537, + .56283, .25339, .75664, .04556, .00292, + .00000, .03379, .07341, + .55763, .24911, .72335, .04509, .00397, + -.00328, .03370, .07175, + .55136, .24429, .67874, .04449, .00500, + -.00173, .03349, .06988, + .54444, .23926, .63542, .04380, .00589, + -.00049, .03318, .06790, + .53791, .23468, .59864, .04310, .00660, + .00051, .03283, .06611 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53103, .23011, .56384, .04236, .00721, + .00140, .03241, .06432, + .52512, .22627, .53643, .04171, .00762, + .00202, .03201, .06283, + .51783, .22169, .50523, .04090, .00805, + .00270, .03149, .06105, + .51131, .21767, .47934, .04016, .00838, + .00324, .03100, .05951, + .50519, .21399, .45686, .03947, .00861, + .00365, .03052, .05810, + .49737, .20935, .43000, .03858, .00887, + .00412, .02991, .05634, + .48997, .20507, .40640, .03773, .00905, + .00451, .02933, .05473, + .48292, .20113, .38565, .03694, .00919, + .00482, .02876, .05324 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47585, .19722, .36608, .03615, .00928, + .00507, .02818, .05177, + .46899, .19347, .34806, .03538, .00935, + .00530, .02762, .05036, + .46240, .18994, .33190, .03466, .00939, + .00548, .02708, .04905, + .45625, .18667, .31750, .03397, .00941, + .00562, .02657, .04785, + .45006, .18340, .30376, .03329, .00940, + .00574, .02605, .04668, + .44400, .18025, .29094, .03261, .00939, + .00584, .02554, .04555, + .43824, .17728, .27934, .03199, .00936, + .00592, .02508, .04449, + .43283, .17450, .26887, .03140, .00932, + .00598, .02463, .04351 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42738, .17173, .25879, .03080, .00927, + .00602, .02417, .04255, + .42204, .16903, .24927, .03023, .00922, + .00606, .02374, .04161, + .41690, .16650, .24056, .02971, .00916, + .00608, .02331, .04072, + .41209, .16415, .23264, .02922, .00910, + .00611, .02292, .03991, + .40724, .16176, .22495, .02871, .00903, + .00611, .02254, .03909 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60253, .28678, 1.01181, .03734, .00000, + .00000, .02385, .07511, + .60299, .28377, .97110, .03778, .00000, + .00000, .02465, .07378, + .60163, .27875, .92900, .03816, -.00845, + .00000, .02561, .07175, + .59927, .27480, .88508, .03834, -.00730, + .00000, .02614, .07021, + .59592, .27050, .83827, .03839, -.00546, + .00000, .02658, .06868, + .59243, .26665, .79949, .03835, -.00401, + .00000, .02684, .06734, + .58860, .26289, .76397, .03824, -.00279, + .00000, .02702, .06600, + .58409, .25889, .72787, .03809, -.00160, + .00000, .02714, .06453 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .57980, .25532, .69739, .03788, -.00072, + .00000, .02718, .06330, + .57544, .25188, .66930, .03762, .00009, + .00000, .02715, .06210, + .57180, .24913, .64779, .03741, .00067, + .00000, .02709, .06114, + .56372, .24327, .60404, .03687, .00179, + .00000, .02693, .05916, + .55625, .23822, .57348, .03634, .00260, + -.00274, .02670, .05748, + .54762, .23261, .53393, .03569, .00338, + -.00155, .02639, .05561, + .53835, .22680, .49597, .03497, .00407, + -.00060, .02599, .05368, + .52973, .22161, .46410, .03428, .00460, + .00016, .02556, .05198 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52100, .21641, .43419, .03352, .00504, + .00081, .02510, .05032, + .51352, .21216, .41090, .03292, .00533, + .00127, .02469, .04891, + .50446, .20707, .38459, .03214, .00565, + .00177, .02417, .04726, + .49645, .20266, .36293, .03144, .00588, + .00217, .02371, .04585, + .48905, .19862, .34425, .03080, .00604, + .00247, .02326, .04459, + .47964, .19365, .32212, .02999, .00622, + .00281, .02269, .04301, + .47085, .18907, .30284, .02922, .00633, + .00307, .02214, .04158, + .46266, .18483, .28597, .02852, .00641, + .00329, .02162, .04028 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45447, .18063, .27017, .02780, .00647, + .00347, .02111, .03903, + .44657, .17665, .25573, .02710, .00651, + .00363, .02061, .03783, + .43905, .17297, .24290, .02647, .00652, + .00375, .02015, .03669, + .43207, .16955, .23153, .02587, .00651, + .00384, .01970, .03565, + .42511, .16616, .22070, .02528, .00650, + .00392, .01927, .03465, + .41830, .16289, .21065, .02471, .00647, + .00398, .01884, .03369, + .41190, .15982, .20163, .02416, .00645, + .00403, .01842, .03283, + .40588, .15698, .19351, .02366, .00641, + .00407, .01804, .03202 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39986, .15414, .18569, .02318, .00636, + .00409, .01767, .03121, + .39399, .15140, .17837, .02270, .00632, + .00411, .01731, .03043, + .38842, .14881, .17171, .02223, .00626, + .00412, .01695, .02971, + .38324, .14642, .16566, .02180, .00621, + .00412, .01664, .02905, + .37798, .14400, .15981, .02138, .00616, + .00413, .01631, .02839 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62170, .28416, .87345, .03156, .00000, + .00000, .01980, .06346, + .61940, .27986, .83117, .03184, .00000, + .00000, .02047, .06189, + .61414, .27310, .78606, .03204, -.00738, + .00000, .02111, .05965, + .60908, .26801, .74261, .03203, -.00635, + .00000, .02148, .05805, + .60299, .26263, .69759, .03199, -.00482, + .00000, .02171, .05641, + .59716, .25794, .66073, .03184, -.00362, + .00000, .02185, .05497, + .59120, .25345, .62723, .03167, -.00262, + .00000, .02192, .05360, + .58456, .24868, .59358, .03143, -.00166, + .00000, .02192, .05216 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .57846, .24447, .56560, .03114, -.00095, + .00000, .02183, .05095, + .57243, .24045, .53992, .03084, -.00030, + .00000, .02173, .04979, + .56752, .23729, .52040, .03058, .00016, + .00000, .02164, .04886, + .55685, .23057, .48118, .02998, .00104, + .00000, .02138, .04696, + .54732, .22491, .45370, .02943, .00167, + -.00226, .02111, .04537, + .53648, .21870, .41921, .02877, .00228, + -.00135, .02075, .04364, + .52510, .21233, .38645, .02804, .00280, + -.00062, .02031, .04189, + .51473, .20666, .35921, .02736, .00319, + -.00005, .01989, .04034 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50423, .20109, .33387, .02667, .00353, + .00045, .01943, .03882, + .49547, .19651, .31430, .02608, .00374, + .00079, .01904, .03761, + .48495, .19109, .29235, .02536, .00396, + .00116, .01856, .03618, + .47572, .18643, .27444, .02473, .00413, + .00145, .01813, .03493, + .46724, .18223, .25911, .02413, .00425, + .00168, .01773, .03382, + .45661, .17701, .24108, .02340, .00436, + .00192, .01720, .03247, + .44676, .17224, .22548, .02273, .00444, + .00211, .01672, .03125, + .43759, .16789, .21193, .02210, .00449, + .00226, .01627, .03013 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42855, .16361, .19935, .02147, .00453, + .00239, .01582, .02906, + .41990, .15954, .18789, .02086, .00454, + .00249, .01539, .02806, + .41170, .15575, .17775, .02029, .00454, + .00257, .01499, .02717, + .40412, .15228, .16881, .01978, .00453, + .00264, .01461, .02633, + .39659, .14888, .16038, .01927, .00451, + .00268, .01424, .02551, + .38928, .14560, .15260, .01880, .00448, + .00272, .01387, .02472, + .38242, .14255, .14560, .01836, .00446, + .00276, .01353, .02399, + .37601, .13973, .13934, .01794, .00442, + .00278, .01323, .02333 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36962, .13691, .13335, .01752, .00439, + .00280, .01291, .02269, + .36344, .13421, .12777, .01711, .00434, + .00280, .01261, .02207, + .35757, .13165, .12271, .01673, .00430, + .00281, .01234, .02148, + .35214, .12928, .11814, .01637, .00426, + .00281, .01208, .02095, + .34666, .12692, .11372, .01602, .00421, + .00280, .01182, .02042 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63420, .27803, .74899, .02663, .00000, + .00000, .01648, .05253, + .62891, .27259, .70683, .02686, .00000, + .00000, .01688, .05096, + .61935, .26446, .66101, .02697, -.00639, + .00000, .01732, .04863, + .61148, .25841, .61940, .02692, -.00548, + .00000, .01750, .04702, + .60262, .25214, .57698, .02679, -.00420, + .00000, .01763, .04542, + .59455, .24673, .54273, .02661, -.00322, + .00000, .01765, .04402, + .58655, .24159, .51194, .02638, -.00240, + .00000, .01761, .04274, + .57786, .23618, .48129, .02605, -.00162, + .00000, .01751, .04144 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57008, .23150, .45597, .02572, -.00103, + .00000, .01740, .04028, + .56248, .22705, .43298, .02539, -.00051, + .00000, .01727, .03920, + .55639, .22356, .41559, .02512, -.00015, + .00000, .01714, .03837, + .54326, .21629, .38101, .02452, .00055, + .00000, .01684, .03663, + .53190, .21017, .35682, .02396, .00105, + -.00185, .01653, .03521, + .51917, .20353, .32720, .02333, .00151, + -.00115, .01615, .03367, + .50597, .19676, .29931, .02264, .00192, + -.00059, .01574, .03213, + .49414, .19079, .27635, .02198, .00221, + -.00015, .01534, .03078 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48226, .18496, .25519, .02132, .00246, + .00023, .01493, .02948, + .47241, .18022, .23898, .02079, .00263, + .00049, .01455, .02844, + .46067, .17465, .22095, .02014, .00278, + .00075, .01413, .02721, + .45049, .16986, .20636, .01955, .00290, + .00097, .01375, .02617, + .44123, .16557, .19390, .01902, .00299, + .00113, .01340, .02527, + .42968, .16027, .17943, .01836, .00307, + .00131, .01294, .02417, + .41902, .15545, .16695, .01777, .00312, + .00145, .01252, .02317, + .40923, .15108, .15621, .01720, .00315, + .00156, .01214, .02225 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39956, .14682, .14630, .01666, .00317, + .00165, .01177, .02138, + .39032, .14277, .13735, .01615, .00317, + .00172, .01141, .02056, + .38172, .13903, .12946, .01566, .00316, + .00177, .01107, .01982, + .37379, .13560, .12253, .01521, .00315, + .00182, .01077, .01915, + .36591, .13223, .11601, .01479, .00313, + .00185, .01047, .01849, + .35830, .12900, .11004, .01439, .00311, + .00187, .01018, .01787, + .35119, .12603, .10469, .01401, .00309, + .00189, .00991, .01731, + .34459, .12328, .09994, .01366, .00306, + .00190, .00964, .01679 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33805, .12055, .09542, .01330, .00302, + .00191, .00939, .01629, + .33173, .11794, .09121, .01295, .00299, + .00191, .00915, .01580, + .32575, .11546, .08737, .01264, .00296, + .00192, .00893, .01535, + .32021, .11317, .08393, .01236, .00293, + .00192, .00873, .01494, + .31462, .11091, .08063, .01207, .00289, + .00191, .00853, .01453 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .63895, .27028, .63676, .02354, .00000, + .00000, .01295, .04195, + .63078, .26372, .59575, .02353, .00000, + .00000, .01331, .04056, + .61732, .25409, .55062, .02341, -.00548, + .00000, .01368, .03848, + .60680, .24713, .51159, .02318, -.00466, + .00000, .01382, .03706, + .59544, .24001, .47254, .02289, -.00361, + .00000, .01389, .03563, + .58528, .23397, .44134, .02259, -.00280, + .00000, .01391, .03442, + .57544, .22827, .41350, .02226, -.00211, + .00000, .01386, .03329, + .56492, .22231, .38608, .02186, -.00148, + .00000, .01375, .03216 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55554, .21729, .36371, .02151, -.00102, + .00000, .01360, .03115, + .54653, .21253, .34345, .02117, -.00060, + .00000, .01348, .03021, + .53940, .20880, .32827, .02088, -.00031, + .00000, .01335, .02949, + .52430, .20103, .29837, .02023, .00024, + .00000, .01305, .02799, + .51137, .19459, .27748, .01969, .00063, + -.00150, .01277, .02675, + .49707, .18767, .25243, .01905, .00099, + -.00096, .01243, .02547, + .48236, .18069, .22913, .01838, .00130, + -.00053, .01205, .02419, + .46928, .17457, .21012, .01777, .00153, + -.00019, .01171, .02307 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45644, .16859, .19272, .01710, .00171, + .00009, .01131, .02203, + .44574, .16383, .17957, .01661, .00184, + .00029, .01102, .02114, + .43312, .15820, .16502, .01603, .00195, + .00049, .01063, .02015, + .42224, .15339, .15328, .01552, .00203, + .00065, .01029, .01932, + .41239, .14910, .14340, .01505, .00209, + .00076, .01001, .01857, + .40019, .14384, .13192, .01446, .00215, + .00090, .00966, .01768, + .38901, .13909, .12214, .01392, .00218, + .00099, .00931, .01688, + .37880, .13477, .11377, .01345, .00221, + .00108, .00898, .01616 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36880, .13058, .10609, .01298, .00221, + .00113, .00869, .01547, + .35929, .12664, .09916, .01253, .00221, + .00118, .00840, .01483, + .35047, .12300, .09311, .01212, .00221, + .00123, .00813, .01426, + .34233, .11970, .08786, .01174, .00219, + .00125, .00786, .01373, + .33430, .11646, .08295, .01139, .00218, + .00127, .00761, .01323, + .32659, .11337, .07843, .01104, .00215, + .00129, .00737, .01276, + .31943, .11052, .07443, .01071, .00213, + .00130, .00717, .01230, + .31279, .10788, .07087, .01042, .00211, + .00131, .00698, .01190 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30620, .10528, .06749, .01013, .00209, + .00132, .00678, .01151, + .29985, .10280, .06435, .00986, .00206, + .00131, .00658, .01114, + .29390, .10045, .06152, .00958, .00203, + .00131, .00641, .01081, + .28838, .09829, .05898, .00933, .00200, + .00131, .00625, .01051, + .28287, .09616, .05656, .00909, .00199, + .00131, .00609, .01020 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .63826, .25918, .53359, .02000, .00000, + .00000, .01050, .03328, + .62701, .25178, .49492, .02000, .00000, + .00000, .01076, .03194, + .60955, .24099, .45212, .01972, -.00463, + .00000, .01102, .03011, + .59642, .23345, .41637, .01948, -.00393, + .00000, .01108, .02885, + .58245, .22585, .38128, .01922, -.00305, + .00000, .01106, .02756, + .57037, .21938, .35349, .01889, -.00239, + .00000, .01101, .02652, + .55878, .21331, .32895, .01853, -.00184, + .00000, .01094, .02553, + .54651, .20707, .30496, .01814, -.00133, + .00000, .01082, .02450 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53583, .20174, .28552, .01780, -.00095, + .00000, .01068, .02370, + .52564, .19674, .26814, .01742, -.00062, + .00000, .01052, .02294, + .51762, .19285, .25521, .01711, -.00039, + .00000, .01038, .02234, + .50073, .18487, .22985, .01647, .00004, + .00000, .01009, .02112, + .48649, .17831, .21224, .01596, .00035, + -.00119, .00983, .02010, + .47095, .17124, .19154, .01538, .00062, + -.00079, .00954, .01900, + .45513, .16421, .17243, .01475, .00086, + -.00045, .00919, .01795, + .44114, .15809, .15702, .01416, .00103, + -.00020, .00887, .01707 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42740, .15215, .14302, .01361, .00117, + .00001, .00856, .01622, + .41619, .14739, .13255, .01319, .00126, + .00015, .00829, .01550, + .40300, .14182, .12102, .01265, .00135, + .00031, .00800, .01470, + .39168, .13709, .11181, .01219, .00140, + .00042, .00774, .01404, + .38150, .13292, .10411, .01178, .00145, + .00051, .00747, .01345, + .36897, .12780, .09524, .01127, .00149, + .00060, .00715, .01276, + .35755, .12319, .08772, .01081, .00151, + .00068, .00686, .01215, + .34714, .11904, .08133, .01041, .00152, + .00073, .00661, .01157 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33699, .11502, .07550, .01002, .00152, + .00077, .00637, .01105, + .32738, .11126, .07031, .00963, .00153, + .00082, .00612, .01058, + .31845, .10783, .06581, .00930, .00152, + .00083, .00591, .01011, + .31032, .10469, .06187, .00901, .00151, + .00085, .00571, .00970, + .30236, .10162, .05822, .00869, .00149, + .00087, .00551, .00932, + .29473, .09870, .05488, .00840, .00148, + .00088, .00534, .00896, + .28765, .09598, .05193, .00813, .00146, + .00088, .00518, .00866, + .28111, .09351, .04934, .00788, .00145, + .00090, .00502, .00837 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27464, .09107, .04688, .00763, .00143, + .00090, .00487, .00806, + .26842, .08875, .04462, .00741, .00141, + .00090, .00473, .00778, + .26258, .08658, .04258, .00721, .00139, + .00089, .00459, .00752, + .25717, .08458, .04076, .00703, .00137, + .00089, .00447, .00729, + .25180, .08260, .03901, .00683, .00135, + .00089, .00434, .00706 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .63102, .24662, .43930, .01739, .00000, + .00000, .00823, .02551, + .61702, .23843, .40374, .01720, .00000, + .00000, .00842, .02448, + .59584, .22679, .36425, .01686, -.00387, + .00000, .00860, .02295, + .58035, .21875, .33235, .01653, -.00326, + .00000, .00865, .02189, + .56431, .21063, .30150, .01614, -.00254, + .00000, .00866, .02085, + .55049, .20386, .27735, .01578, -.00200, + .00000, .00857, .02000, + .53740, .19759, .25620, .01543, -.00156, + .00000, .00847, .01920, + .52372, .19113, .23573, .01502, -.00115, + .00000, .00835, .01838 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51188, .18569, .21936, .01466, -.00085, + .00000, .00827, .01765, + .50067, .18055, .20477, .01431, -.00059, + .00000, .00815, .01700, + .49193, .17658, .19396, .01404, -.00040, + .00000, .00800, .01653, + .47371, .16850, .17307, .01342, -.00006, + .00000, .00773, .01555, + .45849, .16192, .15860, .01291, .00017, + -.00094, .00749, .01477, + .44200, .15490, .14186, .01235, .00039, + -.00063, .00722, .01392, + .42536, .14795, .12660, .01180, .00055, + -.00038, .00691, .01308, + .41074, .14194, .11437, .01131, .00069, + -.00019, .00666, .01238 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39652, .13610, .10347, .01080, .00079, + -.00003, .00642, .01167, + .38497, .13148, .09528, .01041, .00086, + .00008, .00621, .01116, + .37146, .12610, .08643, .00993, .00092, + .00019, .00594, .01056, + .35991, .12155, .07941, .00954, .00097, + .00027, .00570, .01006, + .34962, .11753, .07353, .00919, .00099, + .00033, .00550, .00961, + .33697, .11263, .06687, .00875, .00102, + .00041, .00525, .00907, + .32551, .10825, .06128, .00836, .00104, + .00046, .00501, .00860, + .31512, .10430, .05656, .00801, .00105, + .00050, .00482, .00818 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30506, .10052, .05227, .00769, .00105, + .00052, .00462, .00777, + .29556, .09697, .04847, .00738, .00105, + .00055, .00444, .00739, + .28682, .09373, .04517, .00709, .00105, + .00057, .00427, .00707, + .27886, .09078, .04235, .00683, .00103, + .00058, .00411, .00678, + .27107, .08790, .03973, .00657, .00103, + .00060, .00396, .00648, + .26362, .08519, .03737, .00633, .00101, + .00060, .00382, .00621, + .25672, .08269, .03528, .00612, .00100, + .00060, .00367, .00598, + .25035, .08041, .03343, .00593, .00099, + .00061, .00356, .00576 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24409, .07816, .03169, .00575, .00097, + .00061, .00346, .00554, + .23809, .07604, .03008, .00557, .00096, + .00061, .00335, .00534, + .23249, .07404, .02867, .00538, .00094, + .00060, .00325, .00515, + .22733, .07220, .02740, .00523, .00093, + .00060, .00315, .00499, + .22220, .07039, .02619, .00507, .00091, + .00059, .00305, .00483 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .61817, .23242, .35273, .01494, .00000, + .00000, .00643, .01920, + .60153, .22369, .32097, .01468, .00000, + .00000, .00665, .01833, + .57703, .21146, .28586, .01418, -.00317, + .00000, .00671, .01717, + .55949, .20302, .25819, .01381, -.00265, + .00000, .00676, .01633, + .54156, .19464, .23188, .01339, -.00208, + .00000, .00669, .01554, + .52630, .18770, .21155, .01305, -.00165, + .00000, .00664, .01479, + .51198, .18128, .19389, .01269, -.00130, + .00000, .00654, .01415, + .49717, .17471, .17694, .01227, -.00097, + .00000, .00638, .01355 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48442, .16922, .16351, .01194, -.00073, + .00000, .00628, .01299, + .47243, .16413, .15164, .01160, -.00052, + .00000, .00617, .01248, + .46313, .16020, .14296, .01132, -.00038, + .00000, .00606, .01208, + .44382, .15220, .12616, .01080, -.00013, + .00000, .00586, .01128, + .42799, .14573, .11466, .01031, .00006, + -.00073, .00565, .01067, + .41088, .13885, .10157, .00982, .00021, + -.00050, .00541, .01004, + .39375, .13207, .08977, .00933, .00035, + -.00031, .00517, .00938, + .37887, .12624, .08043, .00890, .00045, + -.00017, .00493, .00883 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36438, .12068, .07213, .00847, .00053, + -.00005, .00468, .00834, + .35278, .11623, .06600, .00812, .00057, + .00003, .00452, .00793, + .33922, .11110, .05939, .00772, .00062, + .00011, .00433, .00746, + .32771, .10679, .05420, .00737, .00065, + .00017, .00415, .00707, + .31745, .10298, .04995, .00706, .00067, + .00021, .00400, .00673, + .30493, .09836, .04511, .00671, .00069, + .00027, .00382, .00633, + .29365, .09424, .04108, .00639, .00071, + .00030, .00364, .00599, + .28344, .09058, .03769, .00612, .00071, + .00033, .00347, .00569 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27360, .08704, .03468, .00585, .00071, + .00035, .00332, .00538, + .26436, .08374, .03202, .00560, .00071, + .00037, .00319, .00509, + .25591, .08072, .02974, .00537, .00070, + .00038, .00305, .00486, + .24821, .07801, .02776, .00515, .00070, + .00040, .00293, .00466, + .24071, .07538, .02596, .00494, .00070, + .00040, .00283, .00444, + .23358, .07291, .02433, .00474, .00069, + .00041, .00272, .00425, + .22699, .07062, .02292, .00457, .00067, + .00040, .00261, .00409, + .22095, .06853, .02168, .00440, .00066, + .00041, .00251, .00393 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21499, .06649, .02051, .00427, .00066, + .00041, .00243, .00376, + .20930, .06455, .01946, .00411, .00064, + .00041, .00234, .00360, + .20401, .06274, .01850, .00398, .00064, + .00041, .00227, .00348, + .19915, .06108, .01765, .00385, .00062, + .00040, .00221, .00337, + .19431, .05945, .01686, .00373, .00062, + .00041, .00213, .00325 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60019, .21678, .27414, .01241, .00000, + .00000, .00509, .01426, + .58111, .20781, .24676, .01217, .00000, + .00000, .00522, .01355, + .55365, .19519, .21664, .01169, -.00256, + .00000, .00531, .01258, + .53439, .18664, .19346, .01137, -.00213, + .00000, .00523, .01195, + .51488, .17816, .17179, .01095, -.00168, + .00000, .00521, .01129, + .49848, .17120, .15518, .01056, -.00132, + .00000, .00513, .01080, + .48319, .16481, .14093, .01021, -.00105, + .00000, .00502, .01032, + .46745, .15831, .12744, .00985, -.00080, + .00000, .00490, .00979 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45411, .15288, .11676, .00955, -.00061, + .00000, .00481, .00936, + .44160, .14784, .10749, .00925, -.00045, + .00000, .00470, .00896, + .43195, .14397, .10070, .00899, -.00034, + .00000, .00463, .00867, + .41203, .13618, .08789, .00850, -.00015, + .00000, .00442, .00805, + .39579, .12989, .07913, .00808, -.00001, + -.00056, .00424, .00759, + .37843, .12327, .06923, .00765, .00011, + -.00038, .00404, .00711, + .36115, .11682, .06041, .00724, .00021, + -.00025, .00383, .00663, + .34621, .11128, .05356, .00687, .00028, + -.00014, .00368, .00619 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33178, .10598, .04758, .00650, .00034, + -.00006, .00348, .00583, + .32024, .10177, .04318, .00621, .00037, + .00000, .00334, .00554, + .30684, .09695, .03851, .00587, .00041, + .00006, .00318, .00520, + .29552, .09290, .03487, .00561, .00043, + .00010, .00303, .00492, + .28554, .08937, .03190, .00535, .00045, + .00014, .00291, .00466, + .27334, .08509, .02858, .00507, .00046, + .00017, .00274, .00437, + .26239, .08127, .02583, .00481, .00047, + .00019, .00262, .00412, + .25258, .07789, .02357, .00455, .00047, + .00022, .00249, .00389 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24314, .07465, .02154, .00435, .00048, + .00024, .00238, .00367, + .23430, .07164, .01978, .00416, .00048, + .00025, .00228, .00347, + .22619, .06890, .01830, .00397, .00047, + .00026, .00218, .00331, + .21887, .06643, .01704, .00381, .00047, + .00026, .00208, .00315, + .21175, .06404, .01588, .00365, .00047, + .00027, .00198, .00300, + .20499, .06180, .01483, .00351, .00045, + .00027, .00190, .00285, + .19877, .05975, .01393, .00338, .00045, + .00027, .00184, .00273, + .19309, .05786, .01315, .00326, .00044, + .00027, .00177, .00262 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18753, .05604, .01243, .00312, .00044, + .00027, .00170, .00252, + .18225, .05431, .01175, .00301, .00043, + .00027, .00163, .00243, + .17732, .05269, .01117, .00289, .00042, + .00028, .00158, .00233, + .17279, .05121, .01065, .00279, .00041, + .00027, .00152, .00225, + .16831, .04976, .01016, .00271, .00040, + .00027, .00147, .00216 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .57718, .20088, .20344, .01059, .00000, + .00000, .00382, .01013, + .55621, .19156, .18085, .01023, .00000, + .00000, .00391, .00970, + .52627, .17888, .15619, .00974, -.00202, + .00000, .00398, .00896, + .50566, .17028, .13756, .00938, -.00168, + .00000, .00397, .00846, + .48498, .16179, .12048, .00894, -.00131, + .00000, .00388, .00804, + .46782, .15490, .10750, .00860, -.00105, + .00000, .00382, .00763, + .45187, .14863, .09650, .00827, -.00084, + .00000, .00377, .00723, + .43552, .14225, .08617, .00796, -.00064, + .00000, .00369, .00685 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42181, .13695, .07821, .00761, -.00050, + .00000, .00358, .00658, + .40898, .13207, .07130, .00734, -.00038, + .00000, .00348, .00631, + .39905, .12837, .06631, .00715, -.00029, + .00000, .00341, .00608, + .37896, .12084, .05696, .00673, -.00014, + .00000, .00324, .00562, + .36264, .11486, .05061, .00635, -.00004, + -.00042, .00310, .00528, + .34532, .10859, .04356, .00595, .00005, + -.00029, .00294, .00492, + .32822, .10244, .03742, .00557, .00012, + -.00019, .00278, .00455, + .31347, .09724, .03271, .00526, .00017, + -.00012, .00264, .00427 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29937, .09230, .02861, .00495, .00021, + -.00005, .00251, .00399, + .28806, .08841, .02565, .00474, .00024, + -.00001, .00239, .00377, + .27505, .08394, .02255, .00447, .00027, + .00003, .00227, .00352, + .26414, .08020, .02019, .00423, .00028, + .00006, .00215, .00333, + .25448, .07692, .01829, .00402, .00030, + .00009, .00205, .00318, + .24281, .07299, .01620, .00377, .00031, + .00011, .00195, .00296, + .23239, .06952, .01450, .00358, .00031, + .00012, .00184, .00275, + .22299, .06643, .01310, .00342, .00032, + .00015, .00174, .00260 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21405, .06350, .01189, .00325, .00032, + .00016, .00165, .00245, + .20573, .06079, .01081, .00308, .00032, + .00017, .00157, .00233, + .19816, .05831, .00996, .00290, .00031, + .00016, .00151, .00221, + .19131, .05609, .00922, .00277, .00031, + .00017, .00144, .00209, + .18465, .05397, .00857, .00266, .00031, + .00018, .00137, .00199, + .17837, .05196, .00797, .00253, .00030, + .00018, .00131, .00190, + .17263, .05011, .00746, .00244, .00030, + .00018, .00125, .00182, + .16738, .04845, .00702, .00235, .00029, + .00018, .00121, .00174 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16222, .04684, .00662, .00226, .00028, + .00018, .00117, .00164, + .15732, .04532, .00626, .00218, .00029, + .00018, .00112, .00157, + .15278, .04388, .00594, .00209, .00028, + .00018, .00108, .00152, + .14861, .04258, .00566, .00201, .00027, + .00018, .00105, .00147, + .14453, .04130, .00540, .00195, .00026, + .00017, .00101, .00142 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .54989, .18438, .14095, .00881, .00000, + .00000, .00286, .00710, + .52739, .17509, .12315, .00848, .00000, + .00000, .00291, .00677, + .49577, .16239, .10418, .00799, -.00157, + .00000, .00292, .00624, + .47419, .15391, .09011, .00760, -.00129, + .00000, .00289, .00586, + .45268, .14571, .07724, .00729, -.00101, + .00000, .00286, .00549, + .43494, .13900, .06774, .00695, -.00081, + .00000, .00279, .00522, + .41864, .13289, .05985, .00662, -.00065, + .00000, .00273, .00497, + .40207, .12677, .05243, .00633, -.00050, + .00000, .00266, .00468 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .38824, .12171, .04685, .00603, -.00039, + .00000, .00256, .00447, + .37537, .11706, .04205, .00578, -.00030, + .00000, .00248, .00426, + .36550, .11352, .03863, .00561, -.00024, + .00000, .00241, .00410, + .34542, .10641, .03236, .00521, -.00013, + .00000, .00229, .00382, + .32925, .10077, .02815, .00496, -.00006, + -.00032, .00219, .00355, + .31219, .09488, .02353, .00467, .00001, + -.00022, .00206, .00327, + .29549, .08918, .01958, .00434, .00006, + -.00015, .00194, .00304, + .28118, .08434, .01657, .00408, .00011, + -.00009, .00186, .00282 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26760, .07975, .01404, .00382, .00014, + -.00004, .00176, .00263, + .25677, .07618, .01232, .00362, .00015, + -.00002, .00168, .00249, + .24433, .07208, .01053, .00339, .00017, + .00001, .00156, .00233, + .23388, .06867, .00919, .00322, .00019, + .00004, .00148, .00217, + .22473, .06572, .00814, .00307, .00019, + .00005, .00141, .00205, + .21370, .06216, .00700, .00287, .00019, + .00007, .00132, .00192, + .20388, .05902, .00610, .00270, .00020, + .00008, .00125, .00180, + .19515, .05624, .00538, .00256, .00020, + .00009, .00118, .00170 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18683, .05360, .00481, .00239, .00020, + .00010, .00113, .00159, + .17909, .05117, .00433, .00223, .00021, + .00011, .00107, .00148, + .17201, .04898, .00390, .00216, .00020, + .00011, .00101, .00140, + .16565, .04702, .00357, .00207, .00020, + .00011, .00097, .00133, + .15953, .04513, .00329, .00198, .00020, + .00011, .00092, .00126, + .15375, .04335, .00304, .00188, .00020, + .00012, .00088, .00121, + .14848, .04174, .00283, .00180, .00019, + .00012, .00085, .00114, + .14366, .04026, .00266, .00173, .00019, + .00012, .00082, .00109 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13897, .03884, .00252, .00166, .00018, + .00011, .00077, .00104, + .13451, .03748, .00238, .00159, .00019, + .00012, .00074, .00101, + .13039, .03624, .00227, .00153, .00018, + .00012, .00070, .00097, + .12663, .03512, .00217, .00147, .00018, + .00012, .00068, .00092, + .12291, .03401, .00207, .00142, .00017, + .00012, .00066, .00089 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .51913, .16736, .08697, .00699, .00000, + .00000, .00218, .00493, + .49541, .15827, .07398, .00669, .00000, + .00000, .00221, .00464, + .46245, .14583, .06056, .00629, -.00119, + .00000, .00222, .00429, + .44034, .13763, .05059, .00596, -.00097, + .00000, .00218, .00403, + .41854, .12973, .04180, .00561, -.00077, + .00000, .00211, .00378, + .40055, .12329, .03541, .00534, -.00062, + .00000, .00205, .00359, + .38413, .11746, .03017, .00510, -.00049, + .00000, .00200, .00340, + .36756, .11167, .02541, .00483, -.00038, + .00000, .00192, .00323 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35375, .10687, .02194, .00464, -.00031, + .00000, .00187, .00303, + .34102, .10248, .01901, .00444, -.00024, + .00000, .00182, .00287, + .33130, .09916, .01691, .00429, -.00019, + .00000, .00179, .00275, + .31165, .09254, .01317, .00396, -.00012, + .00000, .00168, .00254, + .29590, .08731, .01091, .00372, -.00006, + -.00023, .00158, .00238, + .27942, .08187, .00830, .00343, -.00001, + -.00016, .00147, .00222, + .26337, .07663, .00616, .00317, .00003, + -.00011, .00139, .00204, + .24967, .07222, .00462, .00298, .00005, + -.00008, .00131, .00189 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23670, .06806, .00343, .00276, .00008, + -.00004, .00121, .00176, + .22644, .06479, .00261, .00262, .00009, + -.00002, .00116, .00167, + .21470, .06110, .00182, .00245, .00011, + .00000, .00110, .00155, + .20492, .05804, .00127, .00231, .00011, + .00002, .00103, .00144, + .19634, .05539, .00086, .00217, .00012, + .00003, .00099, .00138, + .18608, .05223, .00047, .00203, .00013, + .00004, .00092, .00129, + .17698, .04943, .00025, .00188, .00013, + .00005, .00087, .00119, + .16889, .04697, .00004, .00178, .00013, + .00005, .00082, .00110 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16119, .04464, -.00008, .00169, .00013, + .00006, .00077, .00104, + .15408, .04250, -.00019, .00159, .00013, + .00006, .00073, .00100, + .14767, .04055, -.00022, .00149, .00013, + .00007, .00070, .00093, + .14188, .03883, -.00026, .00141, .00013, + .00007, .00066, .00088, + .13629, .03719, -.00029, .00137, .00012, + .00007, .00064, .00083, + .13106, .03564, -.00030, .00130, .00013, + .00008, .00061, .00078, + .12631, .03425, -.00029, .00121, .00012, + .00008, .00057, .00075, + .12199, .03297, -.00027, .00115, .00012, + .00008, .00054, .00073 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11774, .03174, -.00024, .00112, .00012, + .00007, .00052, .00069, + .11375, .03058, -.00022, .00107, .00011, + .00007, .00049, .00067, + .11004, .02951, -.00020, .00103, .00011, + .00007, .00048, .00064, + .10667, .02855, -.00017, .00099, .00012, + .00008, .00046, .00062, + .10338, .02760, -.00015, .00096, .00011, + .00008, .00045, .00058 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .48531, .15041, .04154, .00540, .00000, + .00000, .00173, .00335, + .46078, .14160, .03314, .00518, .00000, + .00000, .00173, .00313, + .42732, .12956, .02498, .00473, -.00088, + .00000, .00169, .00293, + .40488, .12173, .01884, .00443, -.00072, + .00000, .00168, .00281, + .38306, .11417, .01365, .00406, -.00057, + .00000, .00162, .00268, + .36515, .10809, .00999, .00390, -.00045, + .00000, .00158, .00249, + .34890, .10265, .00715, .00372, -.00036, + .00000, .00153, .00231, + .33265, .09722, .00471, .00345, -.00029, + .00000, .00151, .00217 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .31915, .09278, .00294, .00326, -.00023, + .00000, .00144, .00210, + .30671, .08871, .00159, .00311, -.00018, + .00000, .00138, .00201, + .29721, .08563, .00067, .00299, -.00015, + .00000, .00132, .00195, + .27824, .07948, -.00091, .00277, -.00009, + .00000, .00125, .00179, + .26318, .07473, -.00169, .00256, -.00006, + -.00016, .00117, .00166, + .24745, .06979, -.00271, .00240, -.00002, + -.00012, .00111, .00151, + .23219, .06504, -.00338, .00223, .00001, + -.00008, .00105, .00136, + .21930, .06107, -.00379, .00203, .00003, + -.00005, .00098, .00129 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20713, .05733, -.00399, .00188, .00004, + -.00003, .00091, .00118, + .19755, .05443, -.00409, .00177, .00005, + -.00002, .00086, .00112, + .18665, .05117, -.00410, .00164, .00007, + .00000, .00080, .00103, + .17760, .04846, -.00404, .00154, .00006, + .00000, .00076, .00096, + .16968, .04610, -.00395, .00146, .00007, + .00002, .00072, .00089, + .16022, .04331, -.00379, .00137, .00008, + .00003, .00066, .00083, + .15190, .04087, -.00362, .00127, .00008, + .00003, .00061, .00078, + .14456, .03873, -.00342, .00117, .00008, + .00004, .00058, .00073 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13758, .03671, -.00324, .00110, .00008, + .00004, .00055, .00069, + .13112, .03485, -.00305, .00104, .00008, + .00004, .00053, .00064, + .12532, .03319, -.00286, .00099, .00008, + .00005, .00050, .00060, + .12013, .03171, -.00269, .00094, .00008, + .00005, .00047, .00057, + .11515, .03028, -.00251, .00086, .00008, + .00005, .00045, .00054, + .11047, .02895, -.00234, .00082, .00007, + .00004, .00043, .00052, + .10622, .02775, -.00219, .00078, .00008, + .00005, .00040, .00048, + .10235, .02668, -.00207, .00076, .00008, + .00005, .00039, .00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09859, .02563, -.00193, .00073, .00008, + .00005, .00036, .00045, + .09503, .02465, -.00180, .00071, .00007, + .00005, .00035, .00043, + .09179, .02375, -.00168, .00067, .00007, + .00005, .00034, .00040, + .08883, .02293, -.00158, .00065, .00007, + .00005, .00033, .00038, + .08592, .02213, -.00149, .00063, .00007, + .00005, .00032, .00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .44943, .13451, .00396, .00461, .00000, + .00000, .00098, .00203, + .42472, .12597, -.00024, .00429, .00000, + .00000, .00098, .00197, + .39113, .11457, -.00369, .00392, -.00064, + .00000, .00106, .00179, + .36902, .10719, -.00646, .00363, -.00052, + .00000, .00104, .00167, + .34739, .10012, -.00851, .00334, -.00040, + .00000, .00102, .00160, + .32986, .09443, -.00982, .00317, -.00033, + .00000, .00099, .00151, + .31406, .08935, -.01067, .00300, -.00026, + .00000, .00096, .00142, + .29830, .08432, -.01121, .00276, -.00021, + .00000, .00091, .00135 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28529, .08019, -.01147, .00264, -.00017, + .00000, .00087, .00129, + .27336, .07646, -.01161, .00251, -.00013, + .00000, .00085, .00123, + .26434, .07367, -.01155, .00240, -.00011, + .00000, .00082, .00114, + .24626, .06812, -.01133, .00217, -.00007, + .00000, .00077, .00102, + .23207, .06377, -.01097, .00202, -.00004, + -.00011, .00073, .00096, + .21729, .05928, -.01068, .00183, -.00002, + -.00008, .00068, .00090, + .20302, .05504, -.01027, .00171, .00000, + -.00005, .00062, .00083, + .19103, .05151, -.00981, .00160, .00001, + -.00004, .00058, .00076 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17978, .04818, -.00932, .00145, .00002, + -.00002, .00055, .00072, + .17094, .04561, -.00885, .00138, .00003, + -.00001, .00052, .00067, + .16093, .04271, -.00825, .00125, .00004, + .00000, .00048, .00062, + .15267, .04032, -.00777, .00116, .00004, + .00000, .00045, .00058, + .14548, .03827, -.00732, .00109, .00005, + .00001, .00043, .00054, + .13692, .03584, -.00674, .00100, .00005, + .00001, .00039, .00051, + .12939, .03371, -.00623, .00092, .00004, + .00001, .00037, .00047, + .12278, .03183, -.00580, .00087, .00005, + .00002, .00034, .00045 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11650, .03008, -.00537, .00082, .00005, + .00002, .00032, .00041, + .11073, .02849, -.00497, .00078, .00005, + .00002, .00031, .00037, + .10554, .02707, -.00463, .00074, .00005, + .00002, .00029, .00036, + .10091, .02581, -.00430, .00069, .00005, + .00003, .00028, .00034, + .09651, .02459, -.00400, .00065, .00005, + .00003, .00025, .00032, + .09237, .02347, -.00372, .00062, .00005, + .00003, .00024, .00029, + .08860, .02245, -.00347, .00058, .00005, + .00003, .00023, .00029, + .08520, .02153, -.00325, .00056, .00005, + .00003, .00022, .00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08193, .02065, -.00304, .00055, .00004, + .00003, .00022, .00026, + .07885, .01981, -.00285, .00053, .00004, + .00003, .00021, .00023, + .07600, .01906, -.00267, .00050, .00004, + .00003, .00020, .00022, + .07343, .01837, -.00250, .00047, .00004, + .00003, .00018, .00022, + .07091, .01770, -.00234, .00044, .00004, + .00003, .00017, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .41143, .11826, -.02522, .00331, .00000, + .00000, .00087, .00136, + .38688, .11021, -.02589, .00308, .00000, + .00000, .00087, .00133, + .35388, .09962, -.02497, .00270, -.00045, + .00000, .00079, .00122, + .33214, .09275, -.02501, .00255, -.00036, + .00000, .00079, .00115, + .31122, .08620, -.02456, .00239, -.00028, + .00000, .00077, .00107, + .29445, .08102, -.02389, .00222, -.00024, + .00000, .00073, .00097, + .27933, .07642, -.02314, .00208, -.00019, + .00000, .00070, .00091, + .26422, .07188, -.02221, .00195, -.00014, + .00000, .00064, .00086 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25185, .06817, -.02134, .00185, -.00012, + .00000, .00062, .00080, + .24058, .06482, -.02044, .00176, -.00010, + .00000, .00062, .00075, + .23209, .06227, -.01975, .00169, -.00009, + .00000, .00059, .00073, + .21518, .05730, -.01828, .00152, -.00005, + .00000, .00054, .00070, + .20194, .05344, -.01698, .00140, -.00004, + -.00008, .00049, .00065, + .18829, .04950, -.01578, .00127, -.00002, + -.00006, .00047, .00060, + .17519, .04576, -.01456, .00115, -.00001, + -.00004, .00043, .00055, + .16416, .04264, -.01347, .00108, .00000, + -.00003, .00040, .00049 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15389, .03975, -.01239, .00098, .00001, + -.00002, .00036, .00045, + .14590, .03753, -.01155, .00091, .00001, + -.00002, .00033, .00041, + .13684, .03502, -.01063, .00085, .00002, + .00000, .00032, .00039, + .12935, .03295, -.00982, .00080, .00002, + .00000, .00028, .00036, + .12292, .03120, -.00916, .00074, .00003, + .00001, .00027, .00033, + .11527, .02911, -.00834, .00067, .00003, + .00001, .00026, .00031, + .10856, .02729, -.00764, .00064, .00003, + .00001, .00025, .00029, + .10266, .02571, -.00701, .00062, .00002, + .00001, .00024, .00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09716, .02423, -.00644, .00056, .00003, + .00002, .00021, .00024, + .09211, .02289, -.00595, .00051, .00003, + .00002, .00019, .00024, + .08756, .02168, -.00549, .00049, .00003, + .00002, .00018, .00022, + .08352, .02060, -.00510, .00046, .00003, + .00002, .00018, .00021, + .07967, .01959, -.00472, .00043, .00003, + .00002, .00017, .00019, + .07606, .01866, -.00436, .00041, .00003, + .00002, .00015, .00018, + .07280, .01780, -.00406, .00040, .00003, + .00002, .00014, .00017, + .06986, .01704, -.00380, .00038, .00002, + .00002, .00014, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06704, .01631, -.00353, .00035, .00002, + .00001, .00013, .00015, + .06439, .01562, -.00331, .00033, .00002, + .00001, .00013, .00014, + .06194, .01500, -.00310, .00032, .00003, + .00002, .00012, .00014, + .05972, .01443, -.00291, .00030, .00003, + .00002, .00012, .00013, + .05756, .01387, -.00272, .00029, .00003, + .00002, .00011, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .37233, .10269, -.04657, .00223, .00000, + .00000, .00071, .00099, + .34831, .09528, -.04422, .00214, .00000, + .00000, .00071, .00085, + .31635, .08550, -.04006, .00190, -.00031, + .00000, .00064, .00081, + .29554, .07930, -.03771, .00173, -.00025, + .00000, .00061, .00072, + .27557, .07339, -.03532, .00161, -.00020, + .00000, .00059, .00066, + .25967, .06868, -.03324, .00147, -.00016, + .00000, .00055, .00067, + .24539, .06452, -.03124, .00135, -.00013, + .00000, .00051, .00064, + .23121, .06046, -.02921, .00128, -.00011, + .00000, .00050, .00058 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .21973, .05716, -.02747, .00116, -.00009, + .00000, .00046, .00054, + .20927, .05419, -.02592, .00110, -.00006, + .00000, .00045, .00052, + .20134, .05196, -.02472, .00108, -.00006, + .00000, .00044, .00049, + .18570, .04759, -.02223, .00096, -.00004, + .00000, .00038, .00044, + .17355, .04421, -.02032, .00088, -.00003, + -.00006, .00036, .00041, + .16108, .04075, -.01852, .00082, -.00002, + -.00004, .00032, .00039, + .14920, .03750, -.01675, .00072, -.00001, + -.00003, .00030, .00036, + .13930, .03482, -.01528, .00066, .00000, + -.00002, .00028, .00033 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13002, .03235, -.01390, .00062, .00000, + -.00002, .00027, .00029, + .12289, .03042, -.01287, .00058, .00001, + .00000, .00026, .00027, + .11485, .02827, -.01167, .00053, .00001, + .00000, .00023, .00024, + .10824, .02654, -.01071, .00047, .00001, + .00000, .00020, .00024, + .10251, .02503, -.00989, .00045, .00001, + .00000, .00019, .00023, + .09579, .02328, -.00893, .00042, .00002, + .00001, .00018, .00020, + .08992, .02176, -.00813, .00038, .00002, + .00001, .00017, .00019, + .08478, .02043, -.00743, .00034, .00002, + .00001, .00017, .00018 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07994, .01921, -.00679, .00034, .00002, + .00001, .00015, .00017, + .07553, .01809, -.00620, .00033, .00002, + .00001, .00012, .00014, + .07164, .01709, -.00570, .00030, .00001, + .00001, .00013, .00012, + .06815, .01620, -.00526, .00029, .00001, + .00001, .00011, .00011, + .06484, .01536, -.00489, .00027, .00001, + .00001, .00012, .00012, + .06176, .01459, -.00451, .00026, .00001, + .00001, .00010, .00012, + .05899, .01389, -.00419, .00024, .00002, + .00002, .00010, .00012, + .05650, .01327, -.00391, .00023, .00002, + .00002, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05412, .01267, -.00364, .00020, .00002, + .00002, .00009, .00010, + .05187, .01212, -.00339, .00019, .00002, + .00002, .00008, .00009, + .04980, .01160, -.00316, .00018, .00002, + .00001, .00008, .00009, + .04792, .01114, -.00297, .00018, .00002, + .00001, .00008, .00008, + .04608, .01071, -.00279, .00018, .00002, + .00001, .00008, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .33352, .08858, -.06181, .00183, .00000, + .00000, .00034, .00051, + .31055, .08180, -.05709, .00160, .00000, + .00000, .00034, .00051, + .27989, .07292, -.05032, .00149, -.00021, + .00000, .00034, .00048, + .26029, .06729, -.04635, .00135, -.00017, + .00000, .00035, .00041, + .24159, .06201, -.04237, .00119, -.00013, + .00000, .00030, .00038, + .22665, .05783, -.03919, .00111, -.00011, + .00000, .00029, .00034, + .21337, .05413, -.03634, .00103, -.00009, + .00000, .00030, .00033, + .20029, .05050, -.03353, .00096, -.00007, + .00000, .00028, .00034 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .18964, .04757, -.03115, .00091, -.00006, + .00000, .00025, .00030, + .18004, .04496, -.02905, .00085, -.00004, + .00000, .00022, .00027, + .17283, .04301, -.02749, .00079, -.00004, + .00000, .00022, .00026, + .15861, .03920, -.02447, .00072, -.00003, + .00000, .00021, .00025, + .14763, .03626, -.02217, .00065, -.00002, + -.00004, .00021, .00023, + .13638, .03330, -.01990, .00060, -.00001, + -.00002, .00018, .00020, + .12573, .03051, -.01779, .00054, -.00001, + -.00002, .00015, .00019, + .11693, .02819, -.01608, .00048, .00000, + -.00001, .00014, .00018 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10873, .02609, -.01447, .00043, .00000, + -.00001, .00013, .00016, + .10241, .02447, -.01329, .00040, .00000, + -.00001, .00012, .00014, + .09534, .02266, -.01199, .00038, .00001, + .00000, .00011, .00013, + .08956, .02120, -.01095, .00035, .00001, + .00000, .00010, .00013, + .08458, .01994, -.01006, .00032, .00001, + .00000, .00010, .00013, + .07871, .01848, -.00903, .00031, .00001, + .00000, .00009, .00012, + .07364, .01721, -.00816, .00028, .00001, + .00000, .00008, .00010, + .06920, .01612, -.00742, .00026, .00001, + .00000, .00008, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06511, .01509, -.00675, .00023, .00001, + .00000, .00008, .00008, + .06137, .01416, -.00617, .00020, .00001, + .00000, .00008, .00008, + .05799, .01335, -.00565, .00021, .00001, + .00001, .00007, .00008, + .05501, .01263, -.00521, .00021, .00001, + .00001, .00007, .00007, + .05221, .01195, -.00479, .00019, .00001, + .00001, .00006, .00005, + .04961, .01132, -.00443, .00018, .00001, + .00001, .00006, .00006, + .04729, .01075, -.00411, .00017, .00001, + .00001, .00006, .00006, + .04519, .01026, -.00382, .00015, .00001, + .00001, .00004, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04317, .00976, -.00354, .00014, .00001, + .00001, .00004, .00006, + .04128, .00932, -.00329, .00012, .00001, + .00001, .00004, .00006, + .03956, .00891, -.00309, .00013, .00001, + .00001, .00005, .00005, + .03800, .00854, -.00290, .00012, .00001, + .00001, .00005, .00005, + .03650, .00818, -.00271, .00012, .00001, + .00001, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .29446, .07476, -.07045, .00108, .00000, + .00000, .00035, .00038, + .27272, .06872, -.06403, .00095, .00000, + .00000, .00033, .00035, + .24413, .06087, -.05541, .00082, -.00013, + .00000, .00031, .00029, + .22584, .05593, -.05033, .00077, -.00011, + .00000, .00027, .00029, + .20852, .05124, -.04548, .00071, -.00009, + .00000, .00027, .00029, + .19480, .04759, -.04159, .00067, -.00007, + .00000, .00025, .00026, + .18266, .04439, -.03821, .00063, -.00005, + .00000, .00022, .00024, + .17077, .04127, -.03487, .00056, -.00004, + .00000, .00022, .00021 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16110, .03878, -.03227, .00055, -.00004, + .00000, .00020, .00022, + .15243, .03653, -.02988, .00051, -.00003, + .00000, .00019, .00022, + .14600, .03484, -.02809, .00045, -.00003, + .00000, .00017, .00020, + .13327, .03157, -.02470, .00041, -.00002, + .00000, .00016, .00016, + .12346, .02911, -.02217, .00039, -.00001, + -.00002, .00015, .00013, + .11355, .02661, -.01975, .00034, -.00001, + -.00002, .00013, .00013, + .10420, .02426, -.01751, .00031, -.00001, + -.00002, .00012, .00012, + .09647, .02234, -.01569, .00029, .00000, + -.00001, .00011, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08934, .02058, -.01407, .00025, .00000, + .00000, .00011, .00011, + .08386, .01925, -.01286, .00024, .00000, + .00000, .00010, .00008, + .07774, .01776, -.01150, .00022, .00000, + .00000, .00008, .00007, + .07276, .01655, -.01042, .00020, .00000, + .00000, .00007, .00006, + .06850, .01552, -.00954, .00019, .00000, + .00000, .00007, .00007, + .06351, .01433, -.00853, .00018, .00000, + .00000, .00006, .00007, + .05920, .01329, -.00768, .00016, .00001, + .00001, .00006, .00007, + .05546, .01240, -.00695, .00015, .00001, + .00001, .00006, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05199, .01158, -.00631, .00014, .00001, + .00001, .00006, .00006, + .04882, .01084, -.00573, .00012, .00001, + .00001, .00005, .00006, + .04601, .01019, -.00526, .00011, .00001, + .00001, .00005, .00006, + .04355, .00960, -.00481, .00011, .00001, + .00001, .00005, .00005, + .04122, .00907, -.00441, .00010, .00001, + .00001, .00003, .00005, + .03906, .00856, -.00406, .00010, .00001, + .00001, .00003, .00003, + .03713, .00812, -.00375, .00008, .00001, + .00001, .00003, .00003, + .03540, .00772, -.00348, .00008, .00001, + .00001, .00003, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03374, .00734, -.00323, .00008, .00001, + .00001, .00003, .00002, + .03219, .00699, -.00300, .00008, .00001, + .00001, .00003, .00002, + .03078, .00667, -.00279, .00007, .00001, + .00001, .00002, .00002, + .02952, .00637, -.00260, .00006, .00001, + .00001, .00002, .00002, + .02828, .00609, -.00244, .00006, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .21978, .05127, -.07353, .00045, .00000, + .00000, .00011, .00014, + .20129, .04663, -.06556, .00045, .00000, + .00000, .00012, .00012, + .17743, .04068, -.05540, .00037, -.00005, + .00000, .00012, .00014, + .16242, .03700, -.04931, .00036, -.00004, + .00000, .00011, .00011, + .14843, .03357, -.04368, .00033, -.00003, + .00000, .00009, .00009, + .13749, .03092, -.03936, .00028, -.00003, + .00000, .00007, .00009, + .12786, .02861, -.03563, .00024, -.00002, + .00000, .00007, .00007, + .11851, .02639, -.03212, .00020, -.00002, + .00000, .00007, .00009 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11102, .02459, -.02934, .00019, -.00002, + .00000, .00007, .00007, + .10433, .02302, -.02692, .00019, -.00002, + .00000, .00007, .00007, + .09934, .02185, -.02514, .00018, -.00001, + .00000, .00007, .00007, + .08969, .01959, -.02174, .00016, -.00001, + .00000, .00005, .00005, + .08236, .01790, -.01930, .00014, -.00001, + -.00001, .00005, .00005, + .07500, .01620, -.01697, .00013, -.00001, + -.00001, .00005, .00005, + .06813, .01463, -.01481, .00011, -.00001, + -.00001, .00005, .00004, + .06252, .01336, -.01312, .00009, -.00001, + -.00001, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05739, .01220, -.01162, .00009, .00000, + .00000, .00004, .00004, + .05349, .01132, -.01048, .00008, .00000, + .00000, .00002, .00002, + .04918, .01037, -.00929, .00006, .00000, + .00000, .00002, .00002, + .04569, .00959, -.00839, .00007, .00000, + .00000, .00002, .00004, + .04273, .00893, -.00762, .00007, .00000, + .00000, .00003, .00002, + .03929, .00818, -.00672, .00005, .00000, + .00000, .00002, .00002, + .03636, .00753, -.00602, .00005, .00000, + .00000, .00002, .00003, + .03383, .00699, -.00542, .00005, .00000, + .00000, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03150, .00647, -.00489, .00004, .00000, + .00000, .00003, .00003, + .02940, .00603, -.00439, .00004, .00000, + .00000, .00001, .00001, + .02754, .00562, -.00398, .00002, .00000, + .00000, .00001, .00001, + .02592, .00528, -.00364, .00002, .00000, + .00000, .00001, .00001, + .02440, .00496, -.00334, .00002, .00000, + .00000, .00001, .00001, + .02300, .00466, -.00306, .00002, .00000, + .00000, .00001, .00001, + .02173, .00439, -.00281, .00002, .00000, + .00000, .00001, .00001, + .02062, .00415, -.00259, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01956, .00393, -.00239, .00002, .00000, + .00000, .00001, .00001, + .01857, .00372, -.00222, .00002, .00000, + .00000, .00001, .00001, + .01768, .00353, -.00206, .00003, .00000, + .00000, .00001, .00001, + .01689, .00337, -.00193, .00003, .00000, + .00000, .00001, .00001, + .01610, .00321, -.00180, .00003, .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)/ + .15252, .03246, -.06344, .00017, .00000, + .00000, .00005, .00005, + .13812, .02917, -.05575, .00017, .00000, + .00000, .00005, .00005, + .11983, .02508, -.04617, .00014, -.00002, + .00000, .00003, .00003, + .10850, .02257, -.04054, .00011, -.00001, + .00000, .00003, .00003, + .09802, .02026, -.03543, .00009, -.00001, + .00000, .00003, .00003, + .08992, .01849, -.03156, .00007, -.00001, + .00000, .00003, .00003, + .08287, .01696, -.02832, .00008, -.00001, + .00000, .00003, .00003, + .07609, .01549, -.02524, .00010, -.00001, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07072, .01435, -.02284, .00008, -.00001, + .00000, .00001, .00001, + .06598, .01332, -.02075, .00006, -.00001, + .00000, .00001, .00001, + .06249, .01259, -.01928, .00006, .00000, + .00000, .00001, .00001, + .05575, .01115, -.01647, .00004, .00000, + .00000, .00001, .00001, + .05069, .01009, -.01448, .00004, .00000, + .00000, .00001, .00001, + .04567, .00904, -.01255, .00002, .00000, + .00000, .00002, .00002, + .04105, .00807, -.01084, .00002, .00000, + .00000, .00002, .00002, + .03728, .00730, -.00951, .00002, .00000, + .00000, .00002, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03390, .00660, -.00833, .00002, .00000, + .00000, .00001, .00001, + .03137, .00608, -.00749, .00002, .00000, + .00000, .00001, .00001, + .02858, .00551, -.00658, .00002, .00000, + .00000, .00001, .00001, + .02634, .00506, -.00588, .00001, .00000, + .00000, .00001, .00001, + .02446, .00468, -.00530, .00001, .00000, + .00000, .00000, .00001, + .02230, .00426, -.00466, .00001, .00000, + .00000, .00001, .00001, + .02047, .00389, -.00413, .00001, .00000, + .00000, .00001, .00000, + .01889, .00358, -.00368, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01745, .00330, -.00328, .00001, .00000, + .00000, .00000, .00000, + .01617, .00304, -.00296, .00001, .00000, + .00000, .00000, .00001, + .01505, .00282, -.00265, .00001, .00000, + .00000, .00000, .00000, + .01408, .00264, -.00242, .00001, .00000, + .00000, .00000, .00000, + .01316, .00246, -.00220, .00001, .00000, + .00000, .00000, .00000, + .01233, .00229, -.00199, .00001, .00000, + .00000, .00000, .00000, + .01159, .00215, -.00183, .00001, .00000, + .00000, .00000, .00000, + .01094, .00202, -.00169, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .01032, .00191, -.00154, .00001, .00000, + .00000, .00000, .00000, + .00975, .00180, -.00142, .00001, .00000, + .00000, .00000, .00000, + .00925, .00169, -.00131, .00000, .00000, + .00000, .00000, .00000, + .00878, .00161, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00834, .00152, -.00113, .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)/ + .09638, .01849, -.04698, .00010, .00000, + .00000, -.00001, -.00001, + .08620, .01645, -.04074, .00007, .00000, + .00000, -.00001, -.00001, + .07347, .01389, -.03321, .00007, .00000, + .00000, .00000, .00000, + .06572, .01236, -.02878, .00004, .00000, + .00000, .00000, .00000, + .05861, .01097, -.02484, .00004, .00000, + .00000, .00000, .00000, + .05321, .00991, -.02191, .00004, .00000, + .00000, .00000, .00000, + .04858, .00900, -.01944, .00002, .00000, + .00000, .00000, .00000, + .04416, .00813, -.01716, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .04069, .00748, -.01542, .00002, .00000, + .00000, .00000, .00000, + .03764, .00688, -.01391, .00002, .00000, + .00000, .00000, .00000, + .03541, .00644, -.01282, .00002, .00000, + .00000, .00000, .00000, + .03115, .00565, -.01082, .00002, .00000, + .00000, .00000, .00000, + .02802, .00505, -.00941, .00002, .00000, + .00000, .00000, .00000, + .02494, .00448, -.00808, .00002, .00000, + .00000, .00000, .00000, + .02214, .00396, -.00690, .00002, .00000, + .00000, .00000, .00000, + .01992, .00353, -.00599, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01792, .00317, -.00520, .00002, .00000, + .00000, .00000, .00000, + .01643, .00290, -.00464, .00002, .00000, + .00000, .00000, .00000, + .01481, .00260, -.00403, .00002, .00000, + .00000, .00000, .00000, + .01355, .00235, -.00356, .00000, .00000, + .00000, .00000, .00000, + .01247, .00217, -.00319, .00000, .00000, + .00000, .00000, .00000, + .01125, .00195, -.00277, .00000, .00000, + .00000, .00000, .00000, + .01022, .00176, -.00243, .00000, .00000, + .00000, .00000, .00000, + .00936, .00161, -.00216, .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)/ + .00858, .00147, -.00192, .00000, .00000, + .00000, .00000, .00000, + .00789, .00134, -.00170, .00000, .00000, + .00000, .00000, .00000, + .00728, .00125, -.00153, .00000, .00000, + .00000, .00000, .00000, + .00676, .00115, -.00138, .00000, .00000, + .00000, .00000, .00000, + .00627, .00106, -.00124, .00000, .00000, + .00000, .00000, .00000, + .00584, .00099, -.00112, .00000, .00000, + .00000, .00000, .00000, + .00546, .00092, -.00103, .00000, .00000, + .00000, .00000, .00000, + .00513, .00086, -.00094, .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)/ + .00481, .00081, -.00086, .00000, .00000, + .00000, .00000, .00000, + .00451, .00075, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00426, .00071, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00402, .00066, -.00066, .00000, .00000, + .00000, .00000, .00000, + .00380, .00063, -.00062, .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)/ + .05329, .00897, -.02947, .00000, .00000, + .00000, .00000, .00003, + .04699, .00786, -.02521, .00000, .00000, + .00000, .00000, .00000, + .03924, .00656, -.02022, .00000, .00000, + .00000, .00000, .00000, + .03459, .00576, -.01730, .00000, .00000, + .00000, .00000, .00000, + .03045, .00504, -.01477, .00000, .00000, + .00000, .00000, .00000, + .02730, .00451, -.01289, .00000, .00000, + .00000, .00000, .00000, + .02463, .00403, -.01131, .00000, .00000, + .00000, .00000, .00000, + .02212, .00362, -.00988, .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)/ + .02017, .00328, -.00879, .00000, .00000, + .00000, .00000, .00000, + .01848, .00300, -.00786, .00000, .00000, + .00000, .00000, .00000, + .01727, .00280, -.00722, .00000, .00000, + .00000, .00000, .00000, + .01494, .00242, -.00600, .00000, .00000, + .00000, .00000, .00000, + .01327, .00214, -.00516, .00000, .00000, + .00000, .00000, .00000, + .01164, .00186, -.00436, .00000, .00000, + .00000, .00000, .00000, + .01019, .00164, -.00369, .00000, .00000, + .00000, .00000, .00000, + .00905, .00142, -.00315, .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)/ + .00804, .00128, -.00272, .00000, .00000, + .00000, .00000, .00000, + .00729, .00114, -.00238, .00000, .00000, + .00000, .00000, .00000, + .00650, .00102, -.00206, .00000, .00000, + .00000, .00000, .00000, + .00587, .00092, -.00180, .00000, .00000, + .00000, .00000, .00000, + .00537, .00082, -.00159, .00000, .00000, + .00000, .00000, .00000, + .00478, .00074, -.00138, .00000, .00000, + .00000, .00000, .00000, + .00430, .00066, -.00119, .00000, .00000, + .00000, .00000, .00000, + .00389, .00060, -.00104, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00353, .00054, -.00092, .00000, .00000, + .00000, .00000, .00000, + .00322, .00049, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00293, .00046, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00271, .00041, -.00064, .00000, .00000, + .00000, .00000, .00000, + .00249, .00038, -.00057, .00000, .00000, + .00000, .00000, .00000, + .00230, .00034, -.00051, .00000, .00000, + .00000, .00000, .00000, + .00214, .00033, -.00047, .00000, .00000, + .00000, .00000, .00000, + .00199, .00030, -.00043, .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)/ + .00185, .00027, -.00038, .00000, .00000, + .00000, .00000, .00000, + .00173, .00026, -.00035, .00000, .00000, + .00000, .00000, .00000, + .00161, .00024, -.00032, .00000, .00000, + .00000, .00000, .00000, + .00153, .00023, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00143, .00020, -.00027, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00752, .00095, -.00524, .00000, .00000, + .00000, .00000, .00000, + .00636, .00080, -.00434, .00000, .00000, + .00000, .00000, .00000, + .00500, .00061, -.00327, .00000, .00000, + .00000, .00000, .00000, + .00423, .00051, -.00271, .00000, .00000, + .00000, .00000, .00000, + .00355, .00043, -.00221, .00000, .00000, + .00000, .00000, .00000, + .00309, .00037, -.00188, .00000, .00000, + .00000, .00000, .00000, + .00269, .00034, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00233, .00028, -.00136, .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)/ + .00206, .00026, -.00117, .00000, .00000, + .00000, .00000, .00000, + .00184, .00023, -.00103, .00000, .00000, + .00000, .00000, .00000, + .00167, .00020, -.00092, .00000, .00000, + .00000, .00000, .00000, + .00139, .00016, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00119, .00013, -.00061, .00000, .00000, + .00000, .00000, .00000, + .00100, .00011, -.00050, .00000, .00000, + .00000, .00000, .00000, + .00084, .00009, -.00040, .00000, .00000, + .00000, .00000, .00000, + .00072, .00009, -.00034, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00062, .00007, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00054, .00007, -.00024, .00000, .00000, + .00000, .00000, .00000, + .00047, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00036, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00031, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00020, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor07dis.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