#include "pdf/pilot.h" subroutine sfmrs_98lo2(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)/ + .01616, .00683, 2.49594, .96883, .00000, + .00000, .49855, .98494, + .01632, .00687, 4.92533, .97285, .00003, + .00000, .50643, .98889, + .01657, .00693, 9.56993, .99630, .02821, + .00000, .53555, 1.01222, + .01676, .00697, 13.80940, 1.02892, .07423, + .00000, .57226, 1.04476, + .01695, .00702, 18.88911, 1.08451, .13335, + .00000, .63213, 1.10026, + .01712, .00706, 24.17862, 1.14357, .20163, + .00000, .69484, 1.15923, + .01728, .00711, 29.73861, 1.21691, .27774, + .00000, .77164, 1.23248, + .01745, .00716, 36.41777, 1.31000, .37644, + .00000, .86838, 1.32548 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .01760, .00720, 42.89913, 1.40457, .47784, + .00000, .96608, 1.41996, + .01775, .00724, 49.61974, 1.51092, .58781, + .00000, 1.07543, 1.52623, + .01786, .00727, 55.39180, 1.60472, .68602, + .00000, 1.17158, 1.61996, + .01811, .00735, 68.81419, 1.83637, .92772, + .00041, 1.40820, 1.85147, + .01832, .00742, 81.72071, 2.07152, 1.17595, + .21131, 1.64756, 2.08649, + .01856, .00750, 97.52657, 2.37643, 1.49839, + .61374, 1.95709, 2.39126, + .01882, .00758, 115.42858, 2.74566, 1.87945, + .99259, 2.33106, 2.76033, + .01904, .00766, 133.20726, 3.12622, 2.27429, + 1.40334, 2.71585, 3.14075 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .01928, .00775, 152.75288, 3.55799, 2.72539, + 1.88020, 3.15180, 3.57238, + .01947, .00782, 170.01192, 3.95423, 3.13641, + 2.30534, 3.55145, 3.96850, + .01970, .00791, 192.21783, 4.48113, 3.68153, + 2.86856, 4.08243, 4.49525, + .01991, .00799, 213.34880, 4.99499, 4.21665, + 3.42748, 4.59984, 5.00899, + .02011, .00806, 233.39284, 5.50061, 4.73651, + 3.95907, 5.10866, 5.51448, + .02035, .00816, 260.44016, 6.19859, 5.45753, + 4.70301, 5.81063, 6.21231, + .02058, .00826, 287.44696, 6.91462, 6.19783, + 5.46775, 6.53035, 6.92819, + .02080, .00835, 313.51825, 7.62855, 6.92966, + 6.21519, 7.24769, 7.64199 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .02102, .00844, 341.15173, 8.39955, 7.72396, + 7.03262, 8.02203, 8.41285, + .02124, .00853, 368.98822, 9.19737, 8.54145, + 7.86804, 8.82307, 9.21054, + .02145, .00862, 396.49847, 10.00116, 9.36625, + 8.71308, 9.62987, 10.01421, + .02164, .00871, 423.18488, 10.79744, 10.18132, + 9.54571, 10.42894, 10.81038, + .02184, .00880, 450.92862, 11.63983, 11.04388, + 10.42768, 11.27410, 11.65265, + .02204, .00889, 478.88074, 12.50504, 11.92777, + 11.32906, 12.14199, 12.51775, + .02222, .00897, 506.38092, 13.36928, 12.81161, + 12.23197, 13.00875, 13.38188, + .02240, .00905, 532.71063, 14.21204, 13.67059, + 13.10605, 13.85388, 14.22455 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .02258, .00914, 560.44952, 15.10980, 14.58850, + 14.04396, 14.75398, 15.12220, + .02276, .00922, 587.66711, 16.00814, 15.50215, + 14.97171, 15.65461, 16.02044, + .02294, .00930, 614.66376, 16.90871, 16.42021, + 15.90678, 16.55734, 16.92092, + .02310, .00938, 640.64490, 17.78739, 17.31499, + 16.81722, 17.43806, 17.79951, + .02327, .00946, 667.19971, 18.69798, 18.24071, + 17.75747, 18.35067, 18.71000 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .01968, .00832, 2.59678, .83010, .00000, + .00000, .42587, .83942, + .01989, .00838, 4.79050, .83723, .00002, + .00000, .43610, .84649, + .02020, .00848, 8.80858, .86193, .02609, + .00000, .46535, .87111, + .02044, .00855, 12.36505, .89240, .06794, + .00000, .49911, .90153, + .02068, .00863, 16.54105, .94133, .12014, + .00000, .55147, .95040, + .02090, .00870, 20.81157, .99242, .17920, + .00000, .60548, 1.00143, + .02111, .00877, 25.23818, 1.05450, .24395, + .00000, .67034, 1.06345, + .02133, .00885, 30.48425, 1.13230, .32674, + .00000, .75105, 1.14118 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .02152, .00891, 35.51439, 1.21051, .41072, + .00000, .83177, 1.21934, + .02171, .00898, 40.67585, 1.29750, .50078, + .00000, .92116, 1.30628, + .02185, .00904, 45.07076, 1.37368, .58051, + .00000, .99923, 1.38242, + .02217, .00915, 55.16745, 1.55987, .77438, + .00036, 1.18938, 1.56851, + .02245, .00926, 64.73620, 1.74663, .97076, + .16558, 1.37951, 1.75519, + .02276, .00938, 76.29261, 1.98603, 1.22261, + .47881, 1.62260, 1.99450, + .02309, .00950, 89.21046, 2.27231, 1.51634, + .76862, 1.91266, 2.28068, + .02338, .00962, 101.88441, 2.56414, 1.81716, + 1.07950, 2.20785, 2.57242 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .02369, .00975, 115.66533, 2.89188, 2.15724, + 1.43681, 2.53892, 2.90007, + .02394, .00985, 127.71370, 3.18985, 2.46418, + 1.75221, 2.83962, 3.19797, + .02424, .00998, 143.06714, 3.58253, 2.86757, + 2.16633, 3.23554, 3.59055, + .02452, .01010, 157.54303, 3.96212, 3.26014, + 2.57399, 3.61795, 3.97007, + .02477, .01021, 171.15466, 4.33261, 3.63839, + 2.95830, 3.99099, 4.34048, + .02509, .01035, 189.36696, 4.83989, 4.15887, + 3.49223, 4.50144, 4.84766, + .02539, .01049, 207.38838, 5.35579, 4.68879, + 4.03669, 5.02028, 5.36347, + .02568, .01062, 224.63136, 5.86601, 5.20839, + 4.56429, 5.53321, 5.87362 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .02596, .01075, 242.77290, 6.41302, 5.76848, + 5.13776, 6.08288, 6.42055, + .02625, .01088, 260.90195, 6.97494, 6.34073, + 5.71947, 6.64735, 6.98238, + .02652, .01100, 278.69458, 7.53729, 6.91445, + 6.30440, 7.21210, 7.54466, + .02677, .01113, 295.83777, 8.09092, 7.47793, + 6.87720, 7.76794, 8.09822, + .02703, .01125, 313.54996, 8.67317, 8.07089, + 7.48069, 8.35239, 8.68040, + .02729, .01137, 331.28183, 9.26774, 8.67505, + 8.09395, 8.94909, 9.27489, + .02753, .01149, 348.62979, 9.85846, 9.27611, + 8.70533, 9.54182, 9.86555, + .02776, .01160, 365.14023, 10.43149, 9.85720, + 9.29397, 10.11672, 10.43853 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .02800, .01172, 382.45715, 11.03912, 10.47558, + 9.92333, 10.72621, 11.04609, + .02823, .01183, 399.34082, 11.64399, 11.08776, + 10.54223, 11.33290, 11.65091, + .02846, .01194, 416.01791, 12.24779, 11.70052, + 11.16388, 11.93842, 12.25466, + .02867, .01205, 431.98953, 12.83436, 12.29519, + 11.76659, 12.52661, 12.84117, + .02889, .01216, 448.23413, 13.43965, 12.90782, + 12.38637, 13.13351, 13.44641 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .02397, .01013, 2.70121, .71060, .00000, + .00000, .36389, .71517, + .02423, .01023, 4.65910, .71985, .00002, + .00000, .37562, .72438, + .02463, .01038, 8.10702, .74498, .02411, + .00000, .40441, .74946, + .02493, .01050, 11.07010, .77327, .06215, + .00000, .43533, .77771, + .02524, .01062, 14.48190, .81630, .10818, + .00000, .48109, .82069, + .02552, .01073, 17.90894, .86045, .15918, + .00000, .52759, .86481, + .02578, .01083, 21.41267, .91294, .21415, + .00000, .58230, .91726, + .02606, .01095, 25.50925, .97784, .28346, + .00000, .64953, .98212 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .02631, .01105, 29.39055, 1.04237, .35284, + .00000, .71606, 1.04662, + .02655, .01115, 33.33157, 1.11331, .42641, + .00000, .78892, 1.11753, + .02674, .01123, 36.65840, 1.17498, .49095, + .00000, .85209, 1.17917, + .02715, .01141, 44.20809, 1.32404, .64603, + .00032, 1.00430, 1.32816, + .02751, .01156, 51.25830, 1.47172, .80093, + .12967, 1.15467, 1.47580, + .02791, .01173, 59.65305, 1.65879, .99703, + .37330, 1.34467, 1.66281, + .02833, .01192, 68.91241, 1.87960, 1.22268, + .59480, 1.56849, 1.88356, + .02872, .01210, 77.88580, 2.10216, 1.45106, + .82983, 1.79373, 2.10607 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .02911, .01228, 87.53463, 2.34954, 1.70653, + 1.09723, 2.04375, 2.35339, + .02943, .01243, 95.88535, 2.57232, 1.93488, + 1.33088, 2.26870, 2.57613, + .02983, .01261, 106.42301, 2.86323, 2.23222, + 1.63487, 2.56218, 2.86699, + .03019, .01278, 116.26574, 3.14196, 2.51906, + 1.93167, 2.84314, 3.14567, + .03051, .01293, 125.43786, 3.41176, 2.79314, + 2.20894, 3.11497, 3.41543, + .03093, .01313, 137.60457, 3.77815, 3.16726, + 2.59131, 3.48388, 3.78177, + .03132, .01333, 149.53354, 4.14753, 3.54494, + 2.97803, 3.85558, 4.15110, + .03170, .01351, 160.84229, 4.50985, 3.91218, + 3.34948, 4.22004, 4.51337 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .03207, .01369, 172.65150, 4.89545, 4.30532, + 3.75072, 4.60775, 4.89893, + .03244, .01388, 184.35516, 5.28863, 4.70401, + 4.15459, 5.00295, 5.29207, + .03279, .01405, 195.76036, 5.67949, 5.10115, + 4.55822, 5.39571, 5.68289, + .03312, .01422, 206.67247, 6.06186, 5.48877, + 4.95101, 5.77982, 6.06522, + .03346, .01439, 217.87523, 6.46161, 5.89435, + 5.36257, 6.18132, 6.46494, + .03379, .01456, 229.01660, 6.86743, 6.30518, + 5.77834, 6.58882, 6.87071, + .03410, .01472, 239.85460, 7.26844, 6.71181, + 6.19083, 6.99142, 7.27170, + .03441, .01487, 250.10423, 7.65538, 7.10279, + 6.58574, 7.37984, 7.65861 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .03471, .01503, 260.80753, 8.06381, 7.51716, + 7.00645, 7.78974, 8.06700, + .03502, .01519, 271.17145, 8.46821, 7.92505, + 7.41762, 8.19558, 8.47137, + .03531, .01534, 281.36646, 8.87019, 8.33176, + 7.82922, 8.59892, 8.87333, + .03558, .01549, 291.07977, 9.25897, 8.72473, + 8.22652, 8.98898, 9.26208, + .03587, .01563, 300.90906, 9.65843, 9.12782, + 8.63327, 9.38971, 9.66151 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .02690, .01138, 2.76381, .64853, .00000, + .00000, .33197, .65113, + .02721, .01151, 4.58370, .65865, .00002, + .00000, .34428, .66122, + .02767, .01170, 7.72221, .68373, .02301, + .00000, .37256, .68626, + .02801, .01184, 10.37511, .71073, .05896, + .00000, .40188, .71324, + .02837, .01200, 13.39606, .75061, .10170, + .00000, .44417, .75308, + .02868, .01213, 16.39907, .79114, .14846, + .00000, .48675, .79358, + .02899, .01227, 19.44500, .83868, .19835, + .00000, .53624, .84109, + .02931, .01241, 22.97827, .89699, .26073, + .00000, .59658, .89937 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .02960, .01254, 26.30256, .95458, .32270, + .00000, .65593, .95694, + .02988, .01266, 29.65726, 1.01744, .38796, + .00000, .72047, 1.01977, + .03010, .01276, 32.47479, 1.07183, .44491, + .00000, .77617, 1.07414, + .03057, .01298, 38.82247, 1.20242, .58078, + .00030, .90953, 1.20469, + .03099, .01317, 44.69851, 1.33085, .71538, + .11232, 1.04031, 1.33308, + .03145, .01339, 51.63612, 1.49235, .88447, + .32254, 1.20438, 1.49454, + .03194, .01362, 59.22810, 1.68150, 1.07750, + .51168, 1.39616, 1.68366, + .03239, .01384, 66.53202, 1.87087, 1.27151, + .71109, 1.58787, 1.87299 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .03284, .01406, 74.33386, 2.08007, 1.48715, + .93659, 1.79938, 2.08215, + .03322, .01424, 81.04548, 2.26740, 1.67881, + 1.13244, 1.98860, 2.26945, + .03369, .01447, 89.46533, 2.51070, 1.92702, + 1.38587, 2.23414, 2.51271, + .03410, .01467, 97.28644, 2.74258, 2.16522, + 1.63211, 2.46798, 2.74457, + .03448, .01486, 104.53514, 2.96594, 2.39169, + 1.86088, 2.69310, 2.96790, + .03496, .01511, 114.10131, 3.26780, 2.69936, + 2.17500, 2.99716, 3.26973, + .03542, .01534, 123.42919, 3.57056, 3.00840, + 2.49113, 3.30194, 3.57245, + .03585, .01556, 132.22295, 3.86607, 3.30740, + 2.79317, 3.59932, 3.86793 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .03629, .01578, 141.36496, 4.17923, 3.62618, + 3.11823, 3.91431, 4.18106, + .03672, .01600, 150.38000, 4.49714, 3.94803, + 3.44391, 4.23399, 4.49895, + .03713, .01622, 159.12776, 4.81192, 4.26741, + 3.76823, 4.55043, 4.81371, + .03751, .01642, 167.46211, 5.11871, 4.57798, + 4.08263, 4.85875, 5.12048, + .03790, .01662, 175.98549, 5.43834, 4.90182, + 4.41099, 5.17989, 5.44008, + .03829, .01683, 184.42841, 5.76168, 5.22873, + 4.74153, 5.50470, 5.76340, + .03866, .01702, 192.61319, 6.08018, 5.55130, + 5.06852, 5.82458, 6.08188, + .03901, .01721, 200.32385, 6.38652, 5.86046, + 5.38050, 6.13221, 6.38821 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .03936, .01740, 208.35481, 6.70901, 6.18731, + 5.71217, 6.45599, 6.71068, + .03972, .01758, 216.09799, 7.02730, 6.50796, + 6.03510, 6.77553, 7.02895, + .04006, .01777, 223.69629, 7.34290, 6.82695, + 6.35772, 7.09231, 7.34454, + .04038, .01794, 230.91319, 7.64732, 7.13436, + 6.66831, 7.39784, 7.64895, + .04071, .01812, 238.19307, 7.95932, 7.44886, + 6.98544, 7.71095, 7.96092 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .02921, .01237, 2.80882, .60767, .00000, + .00000, .31109, .60921, + .02954, .01252, 4.53079, .61827, .00002, + .00000, .32368, .61978, + .03005, .01274, 7.45989, .64319, .02226, + .00000, .35153, .64467, + .03042, .01291, 9.90777, .66929, .05679, + .00000, .37974, .67074, + .03082, .01309, 12.67388, .70706, .09731, + .00000, .41970, .70848, + .03117, .01325, 15.40344, .74518, .14125, + .00000, .45969, .74658, + .03151, .01340, 18.15658, .78948, .18780, + .00000, .50577, .79085, + .03187, .01357, 21.33235, .84348, .24565, + .00000, .56163, .84484 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .03218, .01372, 24.30551, .89657, .30279, + .00000, .61632, .89790, + .03249, .01386, 27.29273, .95421, .36269, + .00000, .67548, .95552, + .03274, .01398, 29.79258, 1.00391, .41476, + .00000, .72639, 1.00521, + .03326, .01423, 35.39534, 1.12267, .53835, + .00028, .84767, 1.12394, + .03372, .01446, 40.54929, 1.23884, .66007, + .10141, .96596, 1.24007, + .03424, .01471, 46.59734, 1.38415, .81213, + .29066, 1.11362, 1.38536, + .03478, .01498, 53.17852, 1.55338, .98475, + .45967, 1.28524, 1.55456, + .03528, .01522, 59.47687, 1.72199, 1.15736, + .63704, 1.45597, 1.72314 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .03578, .01548, 66.17272, 1.90742, 1.34837, + .83676, 1.64351, 1.90855, + .03621, .01569, 71.90795, 2.07281, 1.51744, + 1.00946, 1.81061, 2.07391, + .03672, .01595, 79.07272, 2.28676, 1.73553, + 1.23207, 2.02661, 2.28784, + .03718, .01619, 85.70139, 2.48991, 1.94405, + 1.44759, 2.23154, 2.49097, + .03760, .01641, 91.82097, 2.68491, 2.14159, + 1.64705, 2.42814, 2.68596, + .03814, .01669, 99.86725, 2.94753, 2.40907, + 1.92006, 2.69275, 2.94855, + .03865, .01695, 107.68206, 3.20996, 2.67675, + 2.19384, 2.95702, 3.21096, + .03914, .01721, 115.01953, 3.46522, 2.93482, + 2.45443, 3.21397, 3.46620 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .03962, .01746, 122.62321, 3.73489, 3.20915, + 2.73413, 3.48531, 3.73585, + .04010, .01772, 130.09390, 4.00779, 3.48525, + 3.01342, 3.75981, 4.00873, + .04055, .01796, 137.32101, 4.27724, 3.75848, + 3.29083, 4.03076, 4.27818, + .04098, .01819, 144.18538, 4.53915, 4.02345, + 3.55902, 4.29406, 4.54007, + .04142, .01842, 151.18591, 4.81133, 4.29909, + 3.83846, 4.56762, 4.81224, + .04185, .01865, 158.10007, 5.08599, 4.57663, + 4.11903, 4.84361, 5.08688, + .04226, .01887, 164.78622, 5.35592, 4.84990, + 4.39601, 5.11479, 5.35680, + .04265, .01909, 171.06720, 5.61495, 5.11119, + 4.65963, 5.37500, 5.61583 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .04304, .01930, 177.59706, 5.88712, 5.38695, + 4.93947, 5.64833, 5.88799, + .04344, .01951, 183.87283, 6.15513, 5.65681, + 5.21118, 5.91747, 6.15599, + .04381, .01972, 190.02084, 6.42039, 5.92484, + 5.48225, 6.18381, 6.42124, + .04417, .01992, 195.84616, 6.67578, 6.18265, + 5.74271, 6.44021, 6.67663, + .04453, .02011, 201.70891, 6.93703, 6.44591, + 6.00814, 6.70247, 6.93787 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .03113, .01320, 2.84400, .57770, .00000, + .00000, .29584, .57857, + .03149, .01336, 4.49006, .58859, .00002, + .00000, .30859, .58944, + .03204, .01362, 7.26226, .61334, .02169, + .00000, .33606, .61416, + .03244, .01380, 9.55916, .63873, .05514, + .00000, .36342, .63953, + .03287, .01401, 12.13950, .67493, .09401, + .00000, .40166, .67571, + .03325, .01419, 14.67132, .71127, .13587, + .00000, .43974, .71202, + .03361, .01436, 17.21404, .75319, .17996, + .00000, .48332, .75393, + .03400, .01455, 20.13434, .80406, .23449, + .00000, .53592, .80478 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .03434, .01472, 22.85784, .85387, .28813, + .00000, .58722, .85457, + .03468, .01488, 25.58490, .90772, .34414, + .00000, .64249, .90841, + .03494, .01501, 27.86062, .95405, .39269, + .00000, .68993, .95472, + .03551, .01529, 32.94036, 1.06429, .50746, + .00027, .80252, 1.06494, + .03601, .01554, 37.59021, 1.17167, .61997, + .09365, .91188, 1.17230, + .03657, .01583, 43.02061, 1.30543, .75993, + .26804, 1.04783, 1.30604, + .03716, .01613, 48.90368, 1.46052, .91809, + .42287, 1.20514, 1.46111, + .03770, .01640, 54.51081, 1.61445, 1.07564, + .58478, 1.36104, 1.61501 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .03825, .01669, 60.44971, 1.78316, 1.24937, + .76647, 1.53170, 1.78371, + .03871, .01692, 65.51928, 1.93314, 1.40264, + .92305, 1.68328, 1.93368, + .03927, .01722, 71.83153, 2.12659, 1.59976, + 1.12426, 1.87862, 2.12710, + .03977, .01748, 77.65329, 2.30973, 1.78768, + 1.31854, 2.06341, 2.31023, + .04023, .01772, 83.01126, 2.48503, 1.96521, + 1.49778, 2.24021, 2.48552, + .04081, .01803, 90.03576, 2.72049, 2.20495, + 1.74251, 2.47752, 2.72097, + .04137, .01833, 96.83708, 2.95511, 2.44420, + 1.98726, 2.71384, 2.95557, + .04189, .01861, 103.20245, 3.18268, 2.67420, + 2.21950, 2.94299, 3.18314 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .04242, .01889, 109.78229, 3.42253, 2.91815, + 2.46827, 3.18439, 3.42298, + .04294, .01917, 116.22827, 3.66466, 3.16305, + 2.71602, 3.42801, 3.66510, + .04343, .01944, 122.44904, 3.90320, 3.40490, + 2.96160, 3.66794, 3.90363, + .04390, .01970, 128.34305, 4.13458, 3.63894, + 3.19851, 3.90061, 4.13500, + .04437, .01995, 134.34097, 4.37457, 3.88193, + 3.44489, 4.14187, 4.37498, + .04484, .02021, 140.25114, 4.61626, 4.12613, + 3.69178, 4.38480, 4.61667, + .04528, .02045, 145.95520, 4.85338, 4.36615, + 3.93512, 4.62308, 4.85378, + .04571, .02069, 151.30153, 5.08051, 4.59523, + 4.16627, 4.85130, 5.08091 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .04613, .02092, 156.85155, 5.31881, 4.83668, + 4.41134, 5.09068, 5.31921, + .04656, .02116, 162.17198, 5.55303, 5.07248, + 4.64879, 5.32596, 5.55343, + .04697, .02138, 167.37685, 5.78454, 5.30641, + 4.88541, 5.55847, 5.78493, + .04736, .02160, 172.29993, 6.00710, 5.53107, + 5.11243, 5.78196, 6.00749, + .04775, .02182, 177.24495, 6.23444, 5.76014, + 5.34342, 6.01024, 6.23483 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .03797, .01619, 2.95410, .49346, .00000, + .00000, .25332, .49313, + .03843, .01643, 4.36491, .50491, .00002, + .00000, .26628, .50458, + .03912, .01679, 6.67868, .52882, .01996, + .00000, .29238, .52846, + .03964, .01706, 8.54772, .55202, .05023, + .00000, .31717, .55166, + .04018, .01735, 10.61083, .58367, .08430, + .00000, .35046, .58330, + .04066, .01761, 12.59987, .61492, .12018, + .00000, .38311, .61454, + .04113, .01785, 14.57125, .65015, .15730, + .00000, .41966, .64976, + .04163, .01812, 16.80486, .69226, .20256, + .00000, .46317, .69187 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .04207, .01836, 18.86316, .73299, .24646, + .00000, .50510, .73259, + .04249, .01859, 20.90223, .77643, .29176, + .00000, .54968, .77603, + .04284, .01877, 22.58892, .81348, .33066, + .00000, .58762, .81307, + .04357, .01917, 26.30577, .90056, .42147, + .00023, .67658, .90014, + .04421, .01952, 29.65526, .98420, .50921, + .07296, .76181, .98378, + .04493, .01992, 33.50751, 1.08702, .61688, + .20788, .86639, 1.08660, + .04569, .02034, 37.62299, 1.20454, .73686, + .32549, .98569, 1.20412, + .04639, .02073, 41.49468, 1.31978, .85491, + .44710, 1.10250, 1.31935 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .04709, .02112, 45.54741, 1.44470, .98364, + .58212, 1.22899, 1.44428, + .04769, .02146, 48.96956, 1.55464, 1.09608, + .69723, 1.34021, 1.55423, + .04841, .02186, 53.18588, 1.69508, 1.23927, + .84372, 1.48217, 1.69466, + .04905, .02223, 57.03621, 1.82681, 1.37455, + .98395, 1.61522, 1.82640, + .04965, .02256, 60.54451, 1.95181, 1.50121, + 1.11204, 1.74141, 1.95141, + .05040, .02299, 65.10178, 2.11828, 1.67083, + 1.28559, 1.90937, 2.11789, + .05112, .02340, 69.47065, 2.28266, 1.83862, + 1.45764, 2.07512, 2.28227, + .05180, .02378, 73.51698, 2.44073, 1.99847, + 1.61934, 2.23445, 2.44035 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .05248, .02417, 77.66644, 2.60607, 2.16681, + 1.79141, 2.40103, 2.60571, + .05315, .02456, 81.69344, 2.77170, 2.33446, + 1.96133, 2.56785, 2.77134, + .05378, .02492, 85.54959, 2.93374, 2.49891, + 2.12868, 2.73100, 2.93340, + .05439, .02527, 89.17443, 3.08987, 2.65699, + 2.28903, 2.88817, 3.08954, + .05500, .02562, 92.83694, 3.25082, 2.82014, + 2.45481, 3.05014, 3.25050, + .05560, .02596, 96.41853, 3.41191, 2.98306, + 2.61985, 3.21222, 3.41161, + .05617, .02630, 99.85363, 3.56907, 3.14234, + 2.78170, 3.37031, 3.56878, + .05672, .02661, 103.04897, 3.71876, 3.29346, + 2.93446, 3.52087, 3.71848 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .05727, .02693, 106.35128, 3.87508, 3.45207, + 3.09586, 3.67806, 3.87481, + .05782, .02725, 109.48943, 4.02783, 3.60600, + 3.25111, 3.83165, 4.02757, + .05834, .02755, 112.54659, 4.17816, 3.75809, + 3.40531, 3.98278, 4.17791, + .05885, .02784, 115.42027, 4.32199, 3.90347, + 3.55252, 4.12737, 4.32176, + .05935, .02814, 118.28902, 4.46823, 4.05101, + 3.70158, 4.27436, 4.46802 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .04639, .02004, 3.06293, .42161, .00000, + .00000, .21750, .42114, + .04698, .02037, 4.24084, .43319, .00002, + .00000, .23029, .43271, + .04786, .02088, 6.13604, .45586, .01827, + .00000, .25475, .45538, + .04852, .02126, 7.63175, .47687, .04550, + .00000, .27704, .47640, + .04922, .02167, 9.25560, .50437, .07519, + .00000, .30587, .50390, + .04984, .02203, 10.79385, .53108, .10574, + .00000, .33372, .53061, + .05044, .02237, 12.29875, .56049, .13677, + .00000, .36421, .56002, + .05108, .02275, 13.98059, .59511, .17404, + .00000, .39995, .59465 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .05164, .02308, 15.51177, .62815, .20968, + .00000, .43397, .62769, + .05219, .02340, 17.01226, .66288, .24601, + .00000, .46963, .66243, + .05263, .02366, 18.24235, .69224, .27690, + .00000, .49971, .69180, + .05358, .02422, 20.91710, .76032, .34811, + .00021, .56932, .75989, + .05440, .02471, 23.28836, .82476, .41588, + .05647, .63505, .82434, + .05533, .02526, 25.97167, .90288, .49791, + .16016, .71460, .90248, + .05632, .02584, 28.79719, .99082, .58798, + .24886, .80398, .99043, + .05722, .02638, 31.41946, 1.07596, .67549, + .33953, .89041, 1.07560 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .05813, .02692, 34.13087, 1.16721, .76983, + .43908, .98294, 1.16687, + .05889, .02738, 36.39437, 1.24668, .85138, + .52301, 1.06346, 1.24636, + .05983, .02794, 39.15232, 1.34718, .95419, + .62876, 1.16519, 1.34689, + .06066, .02844, 41.64487, 1.44056, 1.05042, + .72909, 1.25965, 1.44029, + .06143, .02890, 43.89167, 1.52837, 1.13968, + .81980, 1.34843, 1.52811, + .06241, .02949, 46.78208, 1.64429, 1.25820, + .94171, 1.46556, 1.64406, + .06333, .03004, 49.52397, 1.75769, 1.37436, + 1.06148, 1.58008, 1.75749, + .06421, .03057, 52.03463, 1.86575, 1.48399, + 1.17290, 1.68918, 1.86558 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .06508, .03109, 54.58787, 1.97793, 1.59861, + 1.29068, 1.80237, 1.97779, + .06595, .03161, 57.04021, 2.08938, 1.71181, + 1.40596, 1.91480, 2.08927, + .06677, .03211, 59.36906, 2.19765, 1.82207, + 1.51874, 2.02398, 2.19757, + .06755, .03257, 61.53922, 2.30126, 1.92733, + 1.62602, 2.12844, 2.30121, + .06833, .03305, 63.71518, 2.40738, 2.03528, + 1.73627, 2.23540, 2.40736, + .06911, .03351, 65.82523, 2.51292, 2.14237, + 1.84528, 2.34175, 2.51293, + .06985, .03396, 67.83522, 2.61529, 2.24650, + 1.95161, 2.44489, 2.61532, + .07055, .03438, 69.68893, 2.71221, 2.34466, + 2.05131, 2.54252, 2.71227 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .07126, .03481, 71.59602, 2.81294, 2.44727, + 2.15625, 2.64398, 2.81304, + .07197, .03523, 73.38959, 2.91076, 2.54615, + 2.25643, 2.74249, 2.91088, + .07264, .03564, 75.12943, 3.00661, 2.64348, + 2.35558, 2.83900, 3.00675, + .07328, .03602, 76.75350, 3.09786, 2.73604, + 2.44976, 2.93087, 3.09803, + .07393, .03641, 78.36304, 3.19019, 2.82949, + 2.54461, 3.02381, 3.19039 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .05222, .02286, 3.12376, .38501, .00000, + .00000, .19938, .38478, + .05290, .02327, 4.16793, .39649, .00002, + .00000, .21194, .39626, + .05393, .02389, 5.83460, .41827, .01727, + .00000, .23531, .41806, + .05470, .02435, 7.13319, .43798, .04276, + .00000, .25615, .43777, + .05552, .02485, 8.52999, .46318, .07001, + .00000, .28254, .46299, + .05623, .02528, 9.83948, .48742, .09768, + .00000, .30779, .48723, + .05693, .02570, 11.11092, .51374, .12547, + .00000, .33508, .51357, + .05768, .02616, 12.52029, .54444, .15854, + .00000, .36678, .54428 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .05833, .02656, 13.79420, .57350, .18991, + .00000, .39671, .57336, + .05897, .02695, 15.03449, .60378, .22164, + .00000, .42782, .60365, + .05949, .02727, 16.04583, .62923, .24847, + .00000, .45391, .62911, + .06059, .02794, 18.22705, .68777, .30983, + .00019, .51382, .68768, + .06155, .02853, 20.14139, .74268, .36771, + .04835, .56988, .74261, + .06263, .02920, 22.28590, .80867, .43718, + .13675, .63715, .80863, + .06378, .02990, 24.52433, .88227, .51279, + .21152, .71204, .88227, + .06483, .03055, 26.58451, .95298, .58568, + .28741, .78391, .95301 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .06589, .03120, 28.69873, 1.02825, .66373, + .37019, .86032, 1.02831, + .06678, .03175, 30.45131, 1.09337, .73076, + .43952, .92638, 1.09346, + .06787, .03242, 32.57201, 1.17523, .81477, + .52633, 1.00935, 1.17536, + .06884, .03302, 34.47643, 1.25085, .89295, + .60825, 1.08594, 1.25101, + .06973, .03357, 36.18145, 1.32157, .96506, + .68185, 1.15753, 1.32176, + .07087, .03427, 38.36169, 1.41443, 1.06032, + .78029, 1.25149, 1.41467, + .07195, .03494, 40.41636, 1.50477, 1.15316, + .87647, 1.34283, 1.50504, + .07296, .03556, 42.28400, 1.59038, 1.24028, + .96539, 1.42937, 1.59069 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .07398, .03619, 44.17350, 1.67884, 1.33097, + 1.05901, 1.51875, 1.67919, + .07499, .03680, 45.97627, 1.76629, 1.42007, + 1.15014, 1.60708, 1.76669, + .07594, .03739, 47.67925, 1.85088, 1.50649, + 1.23894, 1.69250, 1.85131, + .07684, .03795, 49.25727, 1.93148, 1.58864, + 1.32303, 1.77387, 1.93196, + .07775, .03850, 50.83173, 2.01373, 1.67258, + 1.40913, 1.85687, 2.01424, + .07865, .03906, 52.35015, 2.09519, 1.75551, + 1.49390, 1.93908, 2.09575, + .07951, .03958, 53.79026, 2.17393, 1.83587, + 1.57633, 2.01852, 2.17453, + .08032, .04008, 55.11074, 2.24821, 1.91134, + 1.65329, 2.09344, 2.24884 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .08114, .04058, 56.46558, 2.32519, 1.99002, + 1.73413, 2.17108, 2.32586, + .08196, .04108, 57.73061, 2.39965, 2.06552, + 1.81093, 2.24617, 2.40036, + .08274, .04156, 58.95456, 2.47242, 2.13966, + 1.88678, 2.31954, 2.47316, + .08348, .04201, 60.09168, 2.54148, 2.20994, + 1.95860, 2.38917, 2.54226, + .08423, .04247, 61.21302, 2.61115, 2.28068, + 2.03070, 2.45940, 2.61196 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .05685, .02522, 3.16433, .36146, .00000, + .00000, .18774, .36147, + .05761, .02569, 4.11560, .37279, .00002, + .00000, .20007, .37282, + .05876, .02641, 5.62657, .39388, .01654, + .00000, .22262, .39393, + .05962, .02694, 6.79336, .41263, .04079, + .00000, .24242, .41269, + .06053, .02751, 8.04031, .43623, .06635, + .00000, .26712, .43632, + .06133, .02801, 9.20057, .45878, .09205, + .00000, .29059, .45888, + .06211, .02850, 10.32111, .48302, .11766, + .00000, .31572, .48314, + .06295, .02902, 11.55588, .51110, .14793, + .00000, .34473, .51124 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .06368, .02948, 12.66617, .53752, .17647, + .00000, .37195, .53768, + .06440, .02993, 13.74211, .56488, .20518, + .00000, .40008, .56506, + .06497, .03029, 14.61602, .58777, .22936, + .00000, .42357, .58797, + .06620, .03106, 16.48958, .64012, .28433, + .00018, .47719, .64036, + .06727, .03173, 18.12166, .68890, .33586, + .04314, .52704, .68917, + .06849, .03250, 19.93624, .74716, .39731, + .12177, .58648, .74747, + .06977, .03330, 21.81818, .81170, .46377, + .18775, .65222, .81205, + .07094, .03403, 23.53963, .87335, .52749, + .25436, .71494, .87374 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .07213, .03478, 25.29647, .93863, .59537, + .32667, .78129, .93907, + .07312, .03540, 26.74517, .99486, .65340, + .38693, .83839, .99533, + .07433, .03616, 28.48916, 1.06522, .72581, + .46206, .90979, 1.06574, + .07541, .03684, 30.04790, 1.12995, .79293, + .53267, .97542, 1.13051, + .07641, .03747, 31.43626, 1.19023, .85456, + .59583, 1.03651, 1.19083, + .07768, .03826, 33.20363, 1.26909, .93568, + .68000, 1.11639, 1.26974, + .07888, .03901, 34.86102, 1.34548, 1.01443, + .76190, 1.19373, 1.34618, + .08001, .03972, 36.35911, 1.41758, 1.08801, + .83728, 1.26671, 1.41834 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .08115, .04043, 37.86890, 1.49183, 1.16435, + .91641, 1.34182, 1.49264, + .08227, .04112, 39.30195, 1.56497, 1.23908, + .99314, 1.41578, 1.56583, + .08333, .04178, 40.65031, 1.63549, 1.31134, + 1.06767, 1.48708, 1.63639, + .08433, .04240, 41.89430, 1.70248, 1.37981, + 1.13803, 1.55479, 1.70343, + .08534, .04303, 43.13081, 1.77063, 1.44958, + 1.20986, 1.62366, 1.77163, + .08634, .04365, 44.31818, 1.83795, 1.51831, + 1.28038, 1.69167, 1.83900, + .08729, .04424, 45.44058, 1.90285, 1.58474, + 1.34878, 1.75723, 1.90394, + .08819, .04480, 46.46502, 1.96390, 1.64694, + 1.41245, 1.81889, 1.96503 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08911, .04536, 47.51407, 2.02704, 1.71168, + 1.47923, 1.88265, 2.02823, + .09001, .04592, 48.48780, 2.08793, 1.77359, + 1.54244, 1.94414, 2.08916, + .09087, .04645, 49.42817, 2.14733, 1.83429, + 1.60477, 2.00411, 2.14860, + .09170, .04696, 50.29848, 2.20357, 1.89170, + 1.66366, 2.06088, 2.20489, + .09253, .04747, 51.15329, 2.26017, 1.94934, + 1.72263, 2.11802, 2.26153 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .06076, .02744, 3.19612, .34535, .00000, + .00000, .17961, .34532, + .06159, .02797, 4.07957, .35657, .00002, + .00000, .19176, .35655, + .06285, .02877, 5.47187, .37707, .01595, + .00000, .21361, .37708, + .06379, .02937, 6.53831, .39503, .03919, + .00000, .23256, .39507, + .06480, .03001, 7.67199, .41737, .06344, + .00000, .25592, .41743, + .06568, .03057, 8.72036, .43857, .08763, + .00000, .27800, .43867, + .06653, .03112, 9.72854, .46120, .11157, + .00000, .30145, .46132, + .06745, .03170, 10.83420, .48726, .13972, + .00000, .32838, .48741 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06825, .03221, 11.82423, .51167, .16612, + .00000, .35355, .51185, + .06904, .03271, 12.78005, .53682, .19257, + .00000, .37941, .53703, + .06967, .03311, 13.55394, .55781, .21477, + .00000, .40096, .55803, + .07102, .03397, 15.20488, .60555, .26501, + .00017, .44989, .60582, + .07220, .03472, 16.63424, .64981, .31184, + .03929, .49515, .65012, + .07353, .03557, 18.21366, .70240, .36742, + .11072, .54885, .70276, + .07493, .03646, 19.84305, .76034, .42722, + .17025, .60792, .76076, + .07621, .03728, 21.32609, .81544, .48429, + .23011, .66403, .81592 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07751, .03810, 22.83273, .87356, .54484, + .29484, .72315, .87409, + .07860, .03879, 24.06967, .92342, .59642, + .34856, .77383, .92399, + .07993, .03963, 25.55252, .98559, .66053, + .41530, .83697, .98622, + .08111, .04038, 26.87277, 1.04258, .71977, + .47783, .89482, 1.04327, + .08220, .04106, 28.04374, 1.09549, .77398, + .53354, .94850, 1.09623, + .08359, .04194, 29.52871, 1.16448, .84511, + .60759, 1.01845, 1.16528, + .08490, .04276, 30.91543, 1.23109, .91394, + .67941, 1.08596, 1.23195, + .08614, .04354, 32.16307, 1.29375, .97803, + .74526, 1.14944, 1.29468 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08738, .04431, 33.41642, 1.35810, 1.04435, + .81423, 1.21461, 1.35909, + .08860, .04508, 34.60083, 1.42130, 1.10907, + .88088, 1.27859, 1.42235, + .08975, .04580, 35.71157, 1.48207, 1.17150, + .94548, 1.34010, 1.48318, + .09084, .04648, 36.73269, 1.53966, 1.23051, + 1.00630, 1.39837, 1.54082, + .09195, .04716, 37.74429, 1.59811, 1.29048, + 1.06825, 1.45750, 1.59933, + .09303, .04784, 38.71195, 1.65570, 1.34943, + 1.12893, 1.51576, 1.65698, + .09407, .04848, 39.62410, 1.71111, 1.40629, + 1.18767, 1.57179, 1.71244, + .09505, .04909, 40.45333, 1.76311, 1.45941, + 1.24220, 1.62437, 1.76449 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09604, .04970, 41.30114, 1.81681, 1.51462, + 1.29933, 1.67867, 1.81825, + .09702, .05030, 42.08379, 1.86846, 1.56726, + 1.35325, 1.73088, 1.86995, + .09796, .05088, 42.83852, 1.91876, 1.61881, + 1.40636, 1.78173, 1.92031, + .09885, .05143, 43.53482, 1.96631, 1.66747, + 1.45643, 1.82979, 1.96790, + .09975, .05199, 44.21644, 2.01407, 1.71624, + 1.50647, 1.87806, 2.01571 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07508, .03623, 3.26381, .30095, .00000, + .00000, .15726, .30109, + .07621, .03698, 3.94076, .31149, .00002, + .00000, .16857, .31168, + .07791, .03812, 4.98498, .32984, .01400, + .00000, .18804, .33010, + .07918, .03897, 5.76591, .34528, .03404, + .00000, .20428, .34558, + .08053, .03988, 6.58349, .36373, .05426, + .00000, .22358, .36409, + .08172, .04067, 7.32519, .38094, .07395, + .00000, .24152, .38135, + .08287, .04143, 8.02926, .39885, .09303, + .00000, .26012, .39931, + .08411, .04225, 8.78991, .41913, .11511, + .00000, .28112, .41964 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08519, .04297, 9.46212, .43783, .13548, + .00000, .30046, .43840, + .08625, .04366, 10.10345, .45681, .15561, + .00000, .32003, .45743, + .08709, .04422, 10.61757, .47247, .17232, + .00000, .33616, .47313, + .08890, .04541, 11.69679, .50757, .20960, + .00014, .37226, .50832, + .09048, .04644, 12.61228, .53955, .24377, + .02893, .40510, .54038, + .09227, .04761, 13.60275, .57696, .28369, + .08109, .44345, .57787, + .09414, .04882, 14.60749, .61745, .32591, + .12366, .48491, .61847, + .09585, .04992, 15.50695, .65540, .36563, + .16589, .52372, .65651 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09758, .05104, 16.40709, .69490, .40724, + .21099, .56409, .69611, + .09903, .05197, 17.13549, .72838, .44225, + .24795, .59827, .72966, + .10079, .05310, 17.99626, .76963, .48527, + .29334, .64037, .77102, + .10235, .05409, 18.75275, .80704, .52460, + .33544, .67853, .80852, + .10379, .05501, 19.41375, .84140, .56020, + .37251, .71355, .84295, + .10562, .05616, 20.24143, .88574, .60646, + .42132, .75875, .88741, + .10735, .05725, 21.00356, .92809, .65074, + .46817, .80189, .92986, + .10897, .05827, 21.67765, .96750, .69152, + .51062, .84202, .96937 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11059, .05929, 22.34751, 1.00761, .73337, + .55475, .88286, 1.00958, + .11218, .06028, 22.97047, 1.04661, .77380, + .59694, .92256, 1.04868, + .11368, .06121, 23.54779, 1.08380, .81249, + .63752, .96040, 1.08596, + .11510, .06209, 24.07136, 1.11875, .84875, + .67540, .99596, 1.12100, + .11653, .06297, 24.58404, 1.15395, .88533, + .71372, 1.03178, 1.15629, + .11793, .06384, 25.06767, 1.18836, .92100, + .75094, 1.06678, 1.19078, + .11927, .06466, 25.51892, 1.22123, .95519, + .78675, 1.10022, 1.22374, + .12053, .06543, 25.92270, 1.25185, .98687, + .81972, 1.13136, 1.25443 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12181, .06621, 26.33344, 1.28330, 1.01965, + .85413, 1.16335, 1.28597, + .12306, .06698, 26.70440, 1.31328, 1.05062, + .88628, 1.19385, 1.31603, + .12426, .06771, 27.06040, 1.34235, 1.08081, + .91783, 1.22341, 1.34518, + .12540, .06840, 27.38445, 1.36964, 1.10914, + .94739, 1.25117, 1.37254, + .12655, .06909, 27.69705, 1.39688, 1.13734, + .97674, 1.27887, 1.39986 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09409, .04952, 3.24185, .26559, .00000, + .00000, .13904, .26601, + .09566, .05059, 3.72768, .27487, .00002, + .00000, .14897, .27538, + .09803, .05220, 4.45878, .29034, .01174, + .00000, .16542, .29099, + .09980, .05339, 4.99154, .30287, .02827, + .00000, .17865, .30362, + .10168, .05465, 5.54112, .31732, .04442, + .00000, .19384, .31818, + .10333, .05575, 6.02998, .33056, .05979, + .00000, .20772, .33152, + .10492, .05680, 6.48794, .34401, .07437, + .00000, .22178, .34507, + .10662, .05792, 6.97511, .35898, .09095, + .00000, .23740, .36014 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10811, .05891, 7.39982, .37258, .10603, + .00000, .25156, .37384, + .10956, .05985, 7.80003, .38616, .12070, + .00000, .26568, .38751, + .11072, .06061, 8.11747, .39725, .13275, + .00000, .27719, .39867, + .11320, .06221, 8.77186, .42172, .15924, + .00012, .30256, .42330, + .11535, .06360, 9.31401, .44363, .18310, + .02049, .32525, .44535, + .11778, .06516, 9.88582, .46881, .21052, + .05711, .35130, .47070, + .12031, .06676, 10.45530, .49560, .23902, + .08636, .37897, .49766, + .12261, .06822, 10.95547, .52031, .26542, + .11498, .40449, .52253 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12493, .06968, 11.44748, .54567, .29272, + .14515, .43066, .54805, + .12687, .07089, 11.83889, .56689, .31539, + .16954, .45255, .56941, + .12921, .07234, 12.29353, .59272, .34292, + .19914, .47917, .59540, + .13129, .07362, 12.68704, .61586, .36780, + .22632, .50302, .61869, + .13319, .07479, 13.02433, .63686, .39006, + .24993, .52465, .63982, + .13559, .07626, 13.44020, .66367, .41869, + .28074, .55228, .66681, + .13786, .07764, 13.81644, .68898, .44579, + .30998, .57834, .69228, + .13997, .07891, 14.14149, .71223, .47043, + .33614, .60229, .71569 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14207, .08018, 14.46016, .73567, .49551, + .36312, .62643, .73928, + .14413, .08140, 14.74975, .75821, .51947, + .38863, .64966, .76198, + .14607, .08256, 15.01388, .77950, .54219, + .41296, .67159, .78341, + .14789, .08364, 15.24876, .79931, .56329, + .43546, .69200, .80336, + .14972, .08471, 15.47489, .81909, .58442, + .45804, .71238, .82328, + .15151, .08576, 15.68364, .83825, .60483, + .47979, .73213, .84258, + .15320, .08676, 15.87554, .85642, .62425, + .50057, .75086, .86087, + .15480, .08768, 16.04272, .87317, .64209, + .51953, .76814, .87775 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .15642, .08862, 16.21190, .89029, .66046, + .53923, .78579, .89499, + .15799, .08953, 16.35846, .90643, .67763, + .55744, .80244, .91125, + .15949, .09039, 16.49837, .92199, .69429, + .57524, .81850, .92693, + .16092, .09121, 16.62263, .93649, .70980, + .59179, .83346, .94153, + .16235, .09202, 16.73916, .95084, .72513, + .60811, .84828, .95599 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10852, .06032, 3.15396, .24803, .00000, + .00000, .12982, .24883, + .11046, .06162, 3.53640, .25626, .00002, + .00000, .13868, .25719, + .11338, .06356, 4.10350, .26968, .01027, + .00000, .15305, .27082, + .11554, .06499, 4.51033, .28033, .02460, + .00000, .16439, .28161, + .11784, .06649, 4.92668, .29240, .03837, + .00000, .17718, .29384, + .11984, .06780, 5.29291, .30333, .05130, + .00000, .18874, .30491, + .12178, .06905, 5.63342, .31429, .06341, + .00000, .20031, .31602, + .12385, .07038, 5.99232, .32638, .07707, + .00000, .21303, .32825 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12566, .07154, 6.30264, .33726, .08938, + .00000, .22448, .33927, + .12741, .07265, 6.59295, .34803, .10126, + .00000, .23578, .35017, + .12880, .07353, 6.82180, .35677, .11095, + .00000, .24495, .35901, + .13179, .07541, 7.28789, .37588, .13208, + .00011, .26497, .37835, + .13437, .07703, 7.66787, .39281, .15092, + .01636, .28268, .39548, + .13727, .07882, 8.06142, .41209, .17237, + .04545, .30283, .41497, + .14028, .08067, 8.44881, .43237, .19443, + .06840, .32402, .43549, + .14301, .08234, 8.78473, .45090, .21469, + .09067, .34337, .45423 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .14576, .08400, 9.11138, .46976, .23547, + .11396, .36305, .47331, + .14804, .08537, 9.36824, .48541, .25259, + .13265, .37938, .48914, + .15080, .08702, 9.66291, .50431, .27324, + .15517, .39910, .50826, + .15323, .08846, 9.91527, .52113, .29178, + .17572, .41664, .52527, + .15544, .08976, 10.12820, .53627, .30823, + .19343, .43244, .54059, + .15824, .09141, 10.38777, .55547, .32928, + .21641, .45248, .56001, + .16087, .09293, 10.61949, .57345, .34906, + .23809, .47125, .57821, + .16330, .09434, 10.81558, .58984, .36691, + .25732, .48837, .59480 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .16573, .09573, 11.00588, .60627, .38498, + .27706, .50552, .61142, + .16809, .09707, 11.17543, .62194, .40212, + .29560, .52190, .62728, + .17031, .09833, 11.32784, .63664, .41829, + .31319, .53727, .64217, + .17239, .09950, 11.46075, .65024, .43322, + .32936, .55150, .65594, + .17447, .10067, 11.58672, .66374, .44808, + .34552, .56563, .66961, + .17649, .10180, 11.70050, .67674, .46237, + .36099, .57923, .68277, + .17841, .10286, 11.80362, .68899, .47590, + .37571, .59207, .69518, + .18021, .10385, 11.89083, .70020, .48825, + .38906, .60383, .70654 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .18202, .10485, 11.97881, .71163, .50094, + .40291, .61581, .71812, + .18378, .10581, 12.05124, .72231, .51270, + .41560, .62703, .72894, + .18547, .10673, 12.12015, .73258, .52409, + .42799, .63782, .73935, + .18705, .10758, 12.17943, .74208, .53464, + .43945, .64781, .74899, + .18864, .10844, 12.23290, .75143, .54501, + .45069, .65765, .75847 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12095, .06982, 3.04339, .23669, .00000, + .00000, .12379, .23797, + .12320, .07129, 3.35786, .24402, .00002, + .00000, .13176, .24547, + .12658, .07349, 3.81920, .25582, .00917, + .00000, .14451, .25752, + .12909, .07510, 4.14636, .26505, .02188, + .00000, .15446, .26695, + .13174, .07678, 4.47939, .27539, .03396, + .00000, .16554, .27750, + .13405, .07825, 4.77007, .28470, .04521, + .00000, .17549, .28699, + .13628, .07964, 5.03891, .29395, .05566, + .00000, .18536, .29642, + .13865, .08112, 5.32046, .30408, .06738, + .00000, .19616, .30675 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14073, .08241, 5.56252, .31316, .07787, + .00000, .20581, .31599, + .14273, .08364, 5.78776, .32208, .08794, + .00000, .21528, .32507, + .14432, .08461, 5.96451, .32928, .09613, + .00000, .22293, .33241, + .14772, .08668, 6.32113, .34496, .11385, + .00010, .23955, .34837, + .15065, .08845, 6.60816, .35874, .12956, + .01376, .25415, .36240, + .15393, .09041, 6.90102, .37432, .14732, + .03813, .27064, .37825, + .15732, .09242, 7.18665, .39059, .16545, + .05719, .28785, .39480, + .16039, .09422, 7.43186, .40535, .18200, + .07559, .30346, .40982 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .16348, .09602, 7.66812, .42028, .19888, + .09473, .31926, .42502, + .16603, .09749, 7.85201, .43260, .21272, + .11000, .33229, .43755, + .16909, .09924, 8.06074, .44739, .22931, + .12832, .34794, .45260, + .17180, .10078, 8.23788, .46048, .24415, + .14495, .36179, .46592, + .17424, .10217, 8.38525, .47219, .25724, + .15921, .37419, .47785, + .17734, .10390, 8.56307, .48697, .27391, + .17764, .38985, .49289, + .18023, .10551, 8.71986, .50073, .28951, + .19493, .40444, .50690, + .18290, .10698, 8.84983, .51319, .30350, + .21020, .41766, .51959 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .18556, .10844, 8.97477, .52562, .31761, + .22581, .43085, .53225, + .18813, .10983, 9.08370, .53740, .33092, + .24039, .44338, .54426, + .19054, .11114, 9.18018, .54841, .34343, + .25418, .45509, .55547, + .19279, .11235, 9.26257, .55853, .35493, + .26680, .46587, .56579, + .19503, .11354, 9.33925, .56853, .36634, + .27937, .47653, .57598, + .19722, .11470, 9.40671, .57810, .37725, + .29135, .48674, .58574, + .19928, .11579, 9.46678, .58709, .38756, + .30272, .49634, .59491, + .20120, .11679, 9.51556, .59526, .39691, + .31298, .50509, .60325 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .20315, .11781, 9.56466, .60357, .40651, + .32360, .51399, .61173, + .20502, .11878, 9.60203, .61128, .41535, + .33329, .52226, .61960, + .20682, .11970, 9.63748, .61867, .42389, + .34272, .53020, .62715, + .20850, .12056, 9.66642, .62547, .43178, + .35142, .53752, .63410, + .21018, .12142, 9.69072, .63213, .43949, + .35992, .54469, .64090 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13220, .07843, 2.92461, .22831, .00000, + .00000, .11933, .23013, + .13473, .08004, 3.19001, .23487, .00002, + .00000, .12655, .23690, + .13853, .08244, 3.57625, .24531, .00829, + .00000, .13799, .24766, + .14134, .08419, 3.84778, .25342, .01974, + .00000, .14683, .25601, + .14430, .08602, 4.12305, .26243, .03053, + .00000, .15661, .26527, + .14688, .08760, 4.36196, .27048, .04052, + .00000, .16535, .27355, + .14936, .08911, 4.58210, .27845, .04974, + .00000, .17396, .28173, + .15200, .09070, 4.81154, .28713, .06004, + .00000, .18334, .29065 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .15430, .09208, 5.00794, .29488, .06921, + .00000, .19169, .29859, + .15651, .09340, 5.18997, .30246, .07799, + .00000, .19985, .30636, + .15827, .09444, 5.33234, .30856, .08510, + .00000, .20642, .31262, + .16201, .09664, 5.61724, .32177, .10043, + .00009, .22062, .32616, + .16524, .09852, 5.84402, .33333, .11394, + .01193, .23303, .33801, + .16884, .10060, 6.07241, .34632, .12915, + .03299, .24698, .35132, + .17254, .10271, 6.29326, .35980, .14459, + .04937, .26145, .36513, + .17588, .10460, 6.48132, .37197, .15862, + .06510, .27452, .37760 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .17924, .10648, 6.66113, .38422, .17287, + .08141, .28768, .39015, + .18199, .10801, 6.79985, .39429, .18450, + .09436, .29849, .40046, + .18531, .10983, 6.95556, .40630, .19839, + .10984, .31141, .41278, + .18822, .11143, 7.08656, .41689, .21076, + .12384, .32280, .42363, + .19085, .11285, 7.19405, .42632, .22164, + .13581, .33296, .43329, + .19417, .11463, 7.32250, .43816, .23544, + .15121, .34573, .44543, + .19726, .11628, 7.43441, .44914, .24830, + .16562, .35757, .45669, + .20010, .11778, 7.52509, .45902, .25978, + .17828, .36826, .46683 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .20292, .11926, 7.61137, .46884, .27133, + .19119, .37888, .47690, + .20564, .12067, 7.68467, .47810, .28218, + .20320, .38892, .48640, + .20819, .12198, 7.74858, .48671, .29234, + .21452, .39827, .49525, + .21056, .12320, 7.80186, .49459, .30165, + .22485, .40684, .50334, + .21292, .12440, 7.85026, .50235, .31085, + .23511, .41529, .51130, + .21521, .12555, 7.89123, .50972, .31962, + .24485, .42334, .51889, + .21737, .12663, 7.92687, .51663, .32788, + .25408, .43089, .52599, + .21937, .12763, 7.95409, .52288, .33535, + .26237, .43774, .53242 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .22140, .12863, 7.98144, .52922, .34300, + .27095, .44470, .53894, + .22334, .12959, 7.99942, .53505, .35001, + .27873, .45111, .54494, + .22520, .13050, 8.01641, .54063, .35678, + .28629, .45726, .55068, + .22693, .13134, 8.02868, .54573, .36300, + .29325, .46291, .55594, + .22866, .13217, 8.03703, .55070, .36907, + .30003, .46841, .56106 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15265, .09385, 2.68378, .21597, .00000, + .00000, .11282, .21908, + .15566, .09567, 2.88282, .22125, .00002, + .00000, .11883, .22464, + .16018, .09836, 3.16921, .22956, .00696, + .00000, .12824, .23338, + .16349, .10031, 3.36791, .23594, .01650, + .00000, .13543, .24007, + .16698, .10233, 3.56848, .24295, .02541, + .00000, .14330, .24742, + .17001, .10408, 3.74120, .24918, .03360, + .00000, .15028, .25394, + .17290, .10573, 3.89945, .25529, .04109, + .00000, .15711, .26034, + .17596, .10747, 4.06330, .26192, .04941, + .00000, .16450, .26725 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .17863, .10897, 4.20275, .26778, .05678, + .00000, .17103, .27338, + .18119, .11040, 4.33113, .27350, .06379, + .00000, .17739, .27933, + .18322, .11152, 4.43100, .27807, .06944, + .00000, .18248, .28411, + .18751, .11388, 4.62839, .28792, .08155, + .00008, .19343, .29437, + .19119, .11589, 4.78269, .29647, .09216, + .00947, .20292, .30327, + .19528, .11809, 4.93443, .30599, .10402, + .02611, .21351, .31319, + .19946, .12031, 5.07912, .31580, .11596, + .03895, .22441, .32340, + .20321, .12228, 5.20052, .32458, .12673, + .05120, .23417, .33254 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .20696, .12423, 5.31487, .33334, .13761, + .06382, .24394, .34166, + .21002, .12581, 5.40144, .34049, .14644, + .07379, .25191, .34910, + .21368, .12767, 5.49677, .34895, .15691, + .08563, .26137, .35791, + .21689, .12930, 5.57571, .35636, .16620, + .09630, .26966, .36563, + .21976, .13073, 5.63853, .36291, .17431, + .10535, .27700, .37244, + .22338, .13252, 5.71195, .37106, .18455, + .11695, .28616, .38094, + .22673, .13416, 5.77408, .37855, .19403, + .12774, .29461, .38876, + .22978, .13564, 5.82169, .38523, .20243, + .13715, .30216, .39572 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .23281, .13709, 5.86592, .39183, .21084, + .14672, .30963, .40260, + .23571, .13846, 5.90104, .39797, .21869, + .15555, .31662, .40901, + .23841, .13974, 5.93008, .40364, .22601, + .16385, .32310, .41494, + .24091, .14090, 5.95221, .40879, .23267, + .17138, .32899, .42032, + .24339, .14205, 5.97071, .41381, .23922, + .17881, .33476, .42557, + .24577, .14314, 5.98412, .41855, .24543, + .18584, .34023, .43052, + .24802, .14416, 5.99445, .42295, .25125, + .19247, .34532, .43513, + .25009, .14509, 5.99947, .42687, .25648, + .19840, .34990, .43925 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .25219, .14602, 6.00450, .43085, .26182, + .20451, .35453, .44342, + .25418, .14690, 6.00308, .43443, .26666, + .21001, .35875, .44718, + .25608, .14773, 6.00168, .43786, .27133, + .21535, .36278, .45078, + .25784, .14849, 5.99763, .44096, .27560, + .22023, .36645, .45404, + .25959, .14925, 5.99069, .44393, .27974, + .22496, .37001, .45717 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18041, .11395, 2.34265, .20255, .00000, + .00000, .10593, .20797, + .18401, .11595, 2.48367, .20637, .00001, + .00000, .11060, .21217, + .18937, .11888, 2.68460, .21234, .00558, + .00000, .11785, .21871, + .19329, .12100, 2.82235, .21688, .01320, + .00000, .12334, .22367, + .19737, .12317, 2.96102, .22186, .02025, + .00000, .12931, .22908, + .20090, .12504, 3.07968, .22626, .02669, + .00000, .13457, .23384, + .20425, .12679, 3.18799, .23055, .03255, + .00000, .13969, .23848, + .20780, .12863, 3.29938, .23518, .03901, + .00000, .14520, .24348 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .21087, .13020, 3.39360, .23925, .04472, + .00000, .15004, .24788, + .21379, .13168, 3.47979, .24321, .05011, + .00000, .15473, .25214, + .21609, .13285, 3.54652, .24637, .05445, + .00000, .15848, .25553, + .22095, .13528, 3.67636, .25312, .06370, + .00007, .16648, .26278, + .22510, .13732, 3.77556, .25893, .07174, + .00725, .17336, .26901, + .22966, .13955, 3.87015, .26535, .08067, + .01996, .18099, .27591, + .23430, .14177, 3.95881, .27191, .08960, + .02967, .18878, .28293, + .23842, .14371, 4.03146, .27772, .09760, + .03889, .19570, .28915 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .24251, .14563, 4.09842, .28346, .10564, + .04833, .20257, .29530, + .24583, .14716, 4.14772, .28810, .11211, + .05574, .20813, .30027, + .24977, .14895, 4.20023, .29355, .11975, + .06450, .21468, .30610, + .25320, .15050, 4.24254, .29827, .12648, + .07234, .22039, .31116, + .25625, .15184, 4.27419, .30239, .13232, + .07895, .22539, .31558, + .26006, .15350, 4.30962, .30748, .13964, + .08738, .23159, .32104, + .26356, .15502, 4.33783, .31211, .14639, + .09517, .23726, .32601, + .26672, .15636, 4.35654, .31616, .15231, + .10192, .24227, .33035 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .26985, .15767, 4.37273, .32012, .15821, + .10875, .24719, .33461, + .27281, .15889, 4.38251, .32376, .16367, + .11500, .25175, .33853, + .27555, .16000, 4.38884, .32707, .16873, + .12085, .25593, .34210, + .27806, .16101, 4.39115, .33003, .17330, + .12612, .25970, .34528, + .28054, .16199, 4.39081, .33288, .17778, + .13130, .26336, .34836, + .28291, .16292, 4.38708, .33552, .18198, + .13617, .26678, .35121, + .28513, .16377, 4.38186, .33794, .18591, + .14074, .26994, .35383, + .28716, .16454, 4.37358, .34005, .18940, + .14478, .27275, .35613 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .28920, .16531, 4.36531, .34218, .19296, + .14895, .27558, .35844, + .29111, .16601, 4.35260, .34403, .19615, + .15267, .27811, .36046, + .29293, .16667, 4.34055, .34580, .19921, + .15626, .28052, .36238, + .29461, .16728, 4.32731, .34736, .20200, + .15953, .28268, .36409, + .29626, .16786, 4.31202, .34881, .20467, + .16268, .28475, .36568 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .22265, .14220, 1.85814, .18524, .00000, + .00000, .09760, .19531, + .22694, .14429, 1.95213, .18739, .00001, + .00000, .10078, .19794, + .23326, .14732, 2.08542, .19077, .00415, + .00000, .10571, .20204, + .23784, .14949, 2.17611, .19336, .00980, + .00000, .10944, .20514, + .24257, .15168, 2.26733, .19623, .01501, + .00000, .11348, .20853, + .24663, .15354, 2.34504, .19875, .01976, + .00000, .11704, .21150, + .25045, .15527, 2.41570, .20123, .02405, + .00000, .12049, .21438, + .25445, .15707, 2.48793, .20389, .02877, + .00000, .12419, .21747 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .25789, .15860, 2.54868, .20624, .03292, + .00000, .12743, .22018, + .26115, .16002, 2.60379, .20851, .03684, + .00000, .13057, .22280, + .26371, .16112, 2.64619, .21032, .03997, + .00000, .13306, .22487, + .26905, .16340, 2.72714, .21417, .04663, + .00006, .13836, .22928, + .27356, .16529, 2.78721, .21746, .05238, + .00522, .14288, .23303, + .27847, .16731, 2.84210, .22106, .05873, + .01434, .14786, .23714, + .28337, .16927, 2.89174, .22470, .06503, + .02125, .15289, .24126, + .28769, .17097, 2.93090, .22787, .07063, + .02777, .15732, .24485 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .29193, .17261, 2.96558, .23097, .07622, + .03440, .16168, .24836, + .29534, .17390, 2.98965, .23344, .08069, + .03958, .16517, .25115, + .29932, .17537, 3.01333, .23628, .08593, + .04565, .16924, .25436, + .30276, .17662, 3.03117, .23871, .09052, + .05105, .17274, .25711, + .30577, .17768, 3.04230, .24078, .09445, + .05557, .17578, .25945, + .30949, .17897, 3.05294, .24329, .09936, + .06130, .17950, .26228, + .31287, .18011, 3.05923, .24552, .10384, + .06655, .18285, .26481, + .31586, .18108, 3.05952, .24739, .10773, + .07106, .18575, .26693 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .31879, .18202, 3.05810, .24919, .11158, + .07559, .18858, .26898, + .32152, .18286, 3.05244, .25078, .11510, + .07970, .19114, .27078, + .32402, .18361, 3.04508, .25218, .11834, + .08351, .19347, .27239, + .32630, .18426, 3.03561, .25337, .12123, + .08693, .19552, .27377, + .32851, .18487, 3.02434, .25448, .12404, + .09026, .19748, .27505, + .33057, .18544, 3.01099, .25546, .12665, + .09335, .19927, .27618, + .33249, .18594, 2.99723, .25632, .12907, + .09625, .20090, .27719, + .33421, .18637, 2.98195, .25702, .13119, + .09878, .20231, .27800 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .33594, .18679, 2.96673, .25771, .13335, + .10139, .20373, .27882, + .33751, .18715, 2.94870, .25822, .13524, + .10367, .20493, .27943, + .33900, .18748, 2.93168, .25870, .13706, + .10587, .20606, .28002, + .34036, .18776, 2.91439, .25907, .13869, + .10786, .20706, .28048, + .34166, .18802, 2.89571, .25937, .14023, + .10975, .20797, .28085 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .26180, .16592, 1.47710, .17029, .00000, + .00000, .09090, .18554, + .26649, .16793, 1.55132, .17135, .00001, + .00000, .09314, .18712, + .27335, .17082, 1.65674, .17310, .00329, + .00000, .09664, .18963, + .27828, .17285, 1.72845, .17449, .00778, + .00000, .09929, .19155, + .28331, .17488, 1.80038, .17608, .01192, + .00000, .10220, .19368, + .28761, .17659, 1.86151, .17749, .01569, + .00000, .10475, .19554, + .29164, .17816, 1.91680, .17890, .01909, + .00000, .10724, .19736, + .29582, .17976, 1.97297, .18042, .02283, + .00000, .10991, .19931 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .29938, .18111, 2.01994, .18177, .02612, + .00000, .11224, .20102, + .30273, .18235, 2.06215, .18308, .02922, + .00000, .11449, .20266, + .30535, .18330, 2.09446, .18413, .03169, + .00000, .11628, .20396, + .31076, .18523, 2.15522, .18636, .03692, + .00005, .12007, .20671, + .31528, .18680, 2.19932, .18826, .04143, + .00409, .12329, .20903, + .32014, .18846, 2.23830, .19032, .04638, + .01121, .12681, .21153, + .32492, .19002, 2.27205, .19238, .05127, + .01657, .13035, .21400, + .32908, .19133, 2.29753, .19414, .05559, + .02161, .13343, .21612 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .33312, .19256, 2.31899, .19583, .05987, + .02672, .13644, .21814, + .33632, .19349, 2.33267, .19715, .06328, + .03067, .13882, .21971, + .34002, .19453, 2.34451, .19863, .06725, + .03529, .14156, .22147, + .34318, .19539, 2.35234, .19986, .07070, + .03938, .14391, .22294, + .34590, .19608, 2.35510, .20086, .07364, + .04278, .14590, .22413, + .34920, .19689, 2.35572, .20204, .07728, + .04706, .14831, .22553, + .35216, .19758, 2.35324, .20305, .08058, + .05097, .15046, .22674, + .35473, .19811, 2.34629, .20383, .08341, + .05428, .15227, .22767 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .35722, .19861, 2.33803, .20455, .08620, + .05760, .15401, .22853, + .35948, .19901, 2.32659, .20510, .08871, + .06059, .15555, .22922, + .36153, .19934, 2.31422, .20556, .09101, + .06334, .15692, .22977, + .36334, .19960, 2.30059, .20589, .09305, + .06579, .15809, .23019, + .36507, .19981, 2.28559, .20616, .09501, + .06816, .15919, .23054, + .36667, .19997, 2.26914, .20633, .09681, + .07035, .16016, .23078, + .36812, .20009, 2.25276, .20644, .09846, + .07237, .16103, .23095, + .36938, .20016, 2.23557, .20645, .09990, + .07413, .16173, .23100 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .37065, .20022, 2.21850, .20646, .10136, + .07594, .16245, .23104, + .37174, .20021, 2.19937, .20634, .10260, + .07749, .16299, .23094, + .37277, .20020, 2.18137, .20622, .10380, + .07899, .16351, .23083, + .37368, .20016, 2.16350, .20605, .10485, + .08033, .16393, .23067, + .37452, .20008, 2.14460, .20581, .10583, + .08160, .16429, .23044 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .33338, .20382, .96403, .14323, .00000, + .00000, .07946, .16898, + .33826, .20539, 1.02835, .14312, .00001, + .00000, .08065, .16930, + .34527, .20757, 1.11953, .14315, .00239, + .00000, .08259, .16990, + .35023, .20905, 1.18134, .14328, .00567, + .00000, .08411, .17043, + .35517, .21046, 1.24179, .14355, .00870, + .00000, .08579, .17108, + .35934, .21162, 1.29269, .14383, .01145, + .00000, .08728, .17166, + .36316, .21263, 1.33767, .14416, .01394, + .00000, .08874, .17224, + .36707, .21362, 1.38262, .14454, .01667, + .00000, .09031, .17288 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .37036, .21443, 1.41958, .14489, .01906, + .00000, .09169, .17344, + .37339, .21512, 1.45191, .14525, .02130, + .00000, .09302, .17397, + .37572, .21564, 1.47626, .14554, .02308, + .00000, .09406, .17439, + .38043, .21662, 1.52072, .14617, .02683, + .00004, .09626, .17525, + .38427, .21735, 1.55169, .14670, .03003, + .00289, .09812, .17595, + .38833, .21802, 1.57740, .14723, .03352, + .00789, .10011, .17666, + .39212, .21855, 1.59726, .14774, .03691, + .01162, .10206, .17728, + .39530, .21891, 1.61041, .14813, .03988, + .01509, .10373, .17773 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .39831, .21918, 1.61977, .14845, .04278, + .01856, .10531, .17810, + .40060, .21930, 1.62383, .14866, .04506, + .02123, .10653, .17833, + .40312, .21933, 1.62470, .14882, .04768, + .02431, .10788, .17849, + .40521, .21931, 1.62325, .14892, .04993, + .02701, .10901, .17857, + .40689, .21918, 1.61821, .14892, .05181, + .02922, .10992, .17852, + .40885, .21895, 1.60960, .14885, .05411, + .03198, .11099, .17838, + .41052, .21867, 1.59919, .14871, .05616, + .03446, .11188, .17816, + .41182, .21829, 1.58590, .14846, .05788, + .03653, .11258, .17780 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .41303, .21788, 1.57177, .14818, .05955, + .03859, .11322, .17741, + .41398, .21739, 1.55551, .14782, .06103, + .04040, .11371, .17691, + .41478, .21688, 1.53913, .14742, .06235, + .04205, .11411, .17638, + .41540, .21635, 1.52239, .14698, .06349, + .04350, .11441, .17582, + .41592, .21577, 1.50481, .14650, .06457, + .04488, .11465, .17519, + .41631, .21516, 1.48646, .14597, .06554, + .04613, .11481, .17451, + .41660, .21455, 1.46868, .14544, .06642, + .04728, .11492, .17383, + .41675, .21393, 1.45083, .14487, .06714, + .04825, .11495, .17312 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .41690, .21330, 1.43317, .14430, .06788, + .04925, .11497, .17241, + .41686, .21262, 1.41431, .14366, .06847, + .05007, .11490, .17160, + .41683, .21197, 1.39666, .14305, .06904, + .05087, .11482, .17082, + .41672, .21132, 1.37952, .14244, .06952, + .05156, .11470, .17006, + .41652, .21063, 1.36178, .14178, .06996, + .05220, .11453, .16924 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .39710, .23228, .68739, .11890, .00000, + .00000, .06933, .15367, + .40154, .23318, .75268, .11837, .00001, + .00000, .07007, .15330, + .40778, .23434, .84374, .11778, .00200, + .00000, .07132, .15288, + .41207, .23506, .90432, .11746, .00475, + .00000, .07232, .15264, + .41625, .23564, .96142, .11725, .00726, + .00000, .07344, .15248, + .41972, .23607, 1.00884, .11711, .00954, + .00000, .07444, .15236, + .42280, .23638, 1.04936, .11703, .01158, + .00000, .07542, .15227, + .42589, .23661, 1.08896, .11697, .01381, + .00000, .07647, .15217 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .42844, .23674, 1.12075, .11694, .01575, + .00000, .07737, .15210, + .43070, .23679, 1.14765, .11692, .01755, + .00000, .07823, .15202, + .43240, .23680, 1.16746, .11692, .01898, + .00000, .07891, .15196, + .43573, .23667, 1.20219, .11691, .02195, + .00004, .08032, .15178, + .43832, .23643, 1.22492, .11688, .02446, + .00226, .08148, .15158, + .44089, .23605, 1.24193, .11682, .02715, + .00617, .08269, .15129, + .44309, .23546, 1.25251, .11669, .02973, + .00903, .08383, .15089, + .44481, .23481, 1.25744, .11651, .03195, + .01166, .08475, .15044 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .44629, .23405, 1.25878, .11627, .03409, + .01428, .08560, .14991, + .44729, .23333, 1.25653, .11602, .03575, + .01626, .08622, .14941, + .44820, .23238, 1.25025, .11566, .03762, + .01851, .08686, .14870, + .44885, .23148, 1.24282, .11531, .03920, + .02047, .08736, .14803, + .44921, .23055, 1.23292, .11489, .04050, + .02205, .08772, .14733, + .44948, .22932, 1.21865, .11433, .04206, + .02400, .08809, .14638, + .44953, .22812, 1.20346, .11376, .04343, + .02573, .08836, .14541, + .44931, .22687, 1.18656, .11312, .04454, + .02714, .08849, .14441 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .44900, .22561, 1.16920, .11246, .04560, + .02852, .08857, .14339, + .44847, .22430, 1.15047, .11174, .04651, + .02973, .08855, .14232, + .44786, .22303, 1.13220, .11104, .04731, + .03081, .08848, .14126, + .44716, .22178, 1.11417, .11033, .04798, + .03173, .08837, .14022, + .44635, .22050, 1.09565, .10959, .04859, + .03260, .08820, .13914, + .44543, .21921, 1.07684, .10882, .04912, + .03338, .08798, .13804, + .44449, .21797, 1.05889, .10808, .04959, + .03408, .08774, .13697, + .44346, .21676, 1.04132, .10733, .04995, + .03465, .08745, .13592 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .44243, .21555, 1.02401, .10659, .05032, + .03524, .08717, .13488, + .44123, .21429, 1.00609, .10580, .05058, + .03571, .08681, .13377, + .44010, .21309, .98938, .10506, .05083, + .03616, .08647, .13273, + .43895, .21194, .97339, .10433, .05103, + .03654, .08612, .13172, + .43771, .21075, .95706, .10356, .05118, + .03687, .08573, .13067 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45318, .25344, .56164, .09745, .00000, + .00000, .06013, .13862, + .45671, .25356, .62744, .09689, .00001, + .00000, .06069, .13787, + .46152, .25356, .71690, .09624, .00182, + .00000, .06165, .13686, + .46471, .25342, .77478, .09586, .00430, + .00000, .06240, .13620, + .46767, .25309, .82726, .09556, .00654, + .00000, .06325, .13556, + .47004, .25274, .87005, .09533, .00855, + .00000, .06400, .13502, + .47203, .25229, .90523, .09514, .01033, + .00000, .06472, .13452, + .47392, .25172, .93866, .09497, .01226, + .00000, .06547, .13398 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .47541, .25116, .96469, .09483, .01392, + .00000, .06612, .13351, + .47663, .25054, .98577, .09469, .01544, + .00000, .06672, .13306, + .47751, .25001, 1.00084, .09459, .01663, + .00000, .06718, .13270, + .47902, .24876, 1.02548, .09435, .01909, + .00003, .06811, .13188, + .48002, .24757, 1.03973, .09412, .02114, + .00187, .06886, .13113, + .48079, .24613, 1.04776, .09381, .02331, + .00509, .06959, .13023, + .48109, .24445, 1.04935, .09344, .02534, + .00740, .07023, .12922, + .48105, .24283, 1.04659, .09303, .02705, + .00950, .07072, .12821 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .48077, .24112, 1.04063, .09257, .02869, + .01156, .07112, .12715, + .48029, .23963, 1.03280, .09214, .02993, + .01309, .07137, .12622, + .47944, .23773, 1.02039, .09156, .03130, + .01482, .07159, .12502, + .47855, .23602, 1.00799, .09101, .03244, + .01631, .07173, .12392, + .47746, .23436, .99418, .09045, .03335, + .01748, .07175, .12285, + .47592, .23223, .97551, .08969, .03442, + .01891, .07172, .12146, + .47430, .23018, .95679, .08894, .03534, + .02017, .07162, .12011, + .47248, .22819, .93734, .08817, .03605, + .02117, .07143, .11876 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .47060, .22620, .91780, .08739, .03673, + .02214, .07120, .11741, + .46857, .22419, .89759, .08657, .03727, + .02296, .07090, .11604, + .46655, .22227, .87829, .08576, .03774, + .02369, .07058, .11473, + .46451, .22043, .85969, .08498, .03811, + .02430, .07023, .11347, + .46240, .21856, .84093, .08417, .03843, + .02487, .06985, .11219, + .46021, .21670, .82225, .08334, .03869, + .02536, .06944, .11091, + .45808, .21493, .80464, .08256, .03891, + .02579, .06903, .10968, + .45593, .21323, .78773, .08179, .03906, + .02614, .06859, .10849 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .45378, .21154, .77116, .08103, .03921, + .02649, .06816, .10730, + .45149, .20982, .75435, .08022, .03928, + .02675, .06768, .10610, + .44933, .20820, .73876, .07947, .03934, + .02700, .06722, .10496, + .44722, .20664, .72400, .07874, .03937, + .02720, .06676, .10387, + .44502, .20506, .70912, .07799, .03937, + .02737, .06628, .10276 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .51262, .27158, .53053, .07499, .00000, + .00000, .04980, .11992, + .51456, .27069, .59181, .07465, .00001, + .00000, .05033, .11894, + .51696, .26918, .67195, .07426, .00170, + .00000, .05118, .11759, + .51833, .26794, .72147, .07403, .00399, + .00000, .05181, .11664, + .51932, .26645, .76409, .07384, .00602, + .00000, .05250, .11567, + .51998, .26511, .79769, .07370, .00780, + .00000, .05308, .11484, + .52030, .26373, .82366, .07357, .00936, + .00000, .05362, .11404, + .52041, .26218, .84707, .07342, .01101, + .00000, .05416, .11319 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .52034, .26078, .86425, .07330, .01241, + .00000, .05461, .11246, + .52004, .25935, .87686, .07316, .01368, + .00000, .05501, .11174, + .51970, .25818, .88523, .07304, .01466, + .00000, .05531, .11116, + .51865, .25560, .89610, .07276, .01665, + .00003, .05588, .10989, + .51742, .25329, .89912, .07248, .01827, + .00153, .05629, .10875, + .51572, .25062, .89562, .07211, .01995, + .00414, .05666, .10742, + .51344, .24771, .88634, .07165, .02147, + .00597, .05691, .10598, + .51110, .24499, .87462, .07117, .02273, + .00760, .05705, .10460 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .50852, .24221, .86046, .07063, .02390, + .00918, .05711, .10317, + .50614, .23986, .84662, .07013, .02476, + .01033, .05708, .10197, + .50301, .23696, .82787, .06947, .02569, + .01161, .05697, .10045, + .50013, .23438, .81051, .06887, .02644, + .01268, .05682, .09909, + .49725, .23195, .79299, .06826, .02701, + .01352, .05660, .09781, + .49348, .22887, .77034, .06745, .02766, + .01452, .05628, .09617, + .48980, .22598, .74861, .06666, .02820, + .01538, .05593, .09461, + .48612, .22319, .72724, .06586, .02858, + .01604, .05553, .09309 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .48240, .22044, .70620, .06506, .02893, + .01668, .05510, .09159, + .47858, .21773, .68521, .06424, .02918, + .01720, .05462, .09010, + .47490, .21516, .66558, .06344, .02938, + .01765, .05414, .08869, + .47135, .21273, .64709, .06267, .02952, + .01801, .05366, .08735, + .46773, .21030, .62877, .06189, .02962, + .01834, .05316, .08600, + .46408, .20790, .61085, .06111, .02967, + .01861, .05264, .08467, + .46059, .20563, .59419, .06036, .02970, + .01885, .05213, .08342, + .45721, .20346, .57848, .05963, .02968, + .01902, .05162, .08223 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .45384, .20131, .56317, .05890, .02967, + .01920, .05112, .08105, + .45035, .19916, .54797, .05817, .02960, + .01931, .05059, .07985, + .44706, .19714, .53395, .05749, .02953, + .01941, .05009, .07873, + .44390, .19522, .52085, .05683, .02945, + .01949, .04960, .07767, + .44067, .19327, .50779, .05614, .02934, + .01954, .04909, .07660 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .56037, .28216, .57114, .05725, .00000, + .00000, .04078, .10161, + .56041, .28025, .62218, .05719, .00001, + .00000, .04135, .10059, + .55995, .27725, .68567, .05716, .00161, + .00000, .04219, .09914, + .55923, .27493, .72239, .05716, .00376, + .00000, .04280, .09810, + .55801, .27234, .75165, .05715, .00561, + .00000, .04341, .09702, + .55675, .27006, .77342, .05713, .00720, + .00000, .04390, .09608, + .55522, .26781, .78841, .05711, .00857, + .00000, .04433, .09516, + .55338, .26535, .80034, .05705, .01000, + .00000, .04475, .09418 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .55162, .26316, .80777, .05698, .01119, + .00000, .04508, .09333, + .54971, .26099, .81144, .05689, .01225, + .00000, .04535, .09248, + .54811, .25925, .81292, .05681, .01306, + .00000, .04555, .09180, + .54434, .25550, .81011, .05658, .01467, + .00003, .04588, .09032, + .54081, .25220, .80240, .05632, .01595, + .00127, .04609, .08901, + .53660, .24846, .78827, .05596, .01725, + .00341, .04624, .08751, + .53176, .24448, .76946, .05549, .01838, + .00488, .04625, .08590, + .52712, .24085, .75027, .05501, .01930, + .00617, .04617, .08439 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .52228, .23719, .72956, .05448, .02012, + .00739, .04602, .08284, + .51810, .23413, .71111, .05399, .02070, + .00826, .04584, .08154, + .51281, .23039, .68779, .05334, .02130, + .00922, .04554, .07994, + .50806, .22712, .66705, .05276, .02178, + .01001, .04524, .07852, + .50352, .22407, .64721, .05215, .02212, + .01061, .04490, .07721, + .49770, .22024, .62226, .05136, .02248, + .01131, .04443, .07554, + .49215, .21667, .59903, .05060, .02276, + .01190, .04396, .07396, + .48676, .21330, .57702, .04986, .02293, + .01234, .04345, .07246 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .48138, .20998, .55570, .04911, .02307, + .01276, .04294, .07099, + .47599, .20672, .53495, .04835, .02314, + .01308, .04239, .06954, + .47088, .20368, .51586, .04762, .02318, + .01336, .04185, .06818, + .46602, .20082, .49822, .04691, .02317, + .01357, .04133, .06690, + .46111, .19797, .48096, .04620, .02314, + .01375, .04080, .06563, + .45622, .19518, .46437, .04550, .02307, + .01389, .04025, .06438, + .45160, .19256, .44909, .04483, .02299, + .01401, .03973, .06322, + .44717, .19008, .43489, .04417, .02289, + .01408, .03921, .06212 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44278, .18763, .42112, .04353, .02278, + .01416, .03871, .06103, + .43832, .18519, .40769, .04288, .02264, + .01419, .03819, .05994, + .43413, .18290, .39535, .04228, .02251, + .01421, .03770, .05891, + .43013, .18074, .38394, .04170, .02237, + .01422, .03723, .05796, + .42606, .17856, .37268, .04110, .02221, + .01421, .03675, .05700 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .59685, .28647, .63752, .04365, .00000, + .00000, .03302, .08421, + .59481, .28363, .67462, .04386, .00001, + .00000, .03363, .08325, + .59126, .27927, .71718, .04417, .00151, + .00000, .03449, .08186, + .58830, .27599, .73883, .04437, .00351, + .00000, .03507, .08084, + .58472, .27243, .75317, .04453, .00519, + .00000, .03561, .07977, + .58145, .26933, .76224, .04464, .00661, + .00000, .03605, .07883, + .57804, .26630, .76591, .04471, .00780, + .00000, .03642, .07789, + .57422, .26303, .76640, .04474, .00902, + .00000, .03674, .07689 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57077, .26017, .76439, .04474, .01003, + .00000, .03697, .07602, + .56723, .25738, .75966, .04470, .01090, + .00000, .03715, .07516, + .56435, .25517, .75482, .04465, .01157, + .00000, .03727, .07446, + .55794, .25041, .73981, .04447, .01287, + .00003, .03745, .07294, + .55220, .24629, .72291, .04424, .01387, + .00106, .03753, .07161, + .54555, .24169, .70003, .04392, .01486, + .00282, .03752, .07010, + .53830, .23683, .67380, .04347, .01569, + .00399, .03736, .06852, + .53155, .23246, .64906, .04302, .01634, + .00501, .03716, .06702 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .52463, .22809, .62377, .04252, .01691, + .00596, .03691, .06549, + .51876, .22447, .60235, .04205, .01729, + .00663, .03664, .06423, + .51154, .22010, .57628, .04144, .01766, + .00734, .03624, .06271, + .50515, .21628, .55370, .04087, .01794, + .00793, .03586, .06137, + .49914, .21277, .53284, .04031, .01812, + .00835, .03547, .06012, + .49152, .20839, .50716, .03959, .01829, + .00885, .03495, .05855, + .48435, .20434, .48379, .03890, .01841, + .00925, .03443, .05707, + .47750, .20053, .46218, .03821, .01844, + .00954, .03390, .05571 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47074, .19681, .44154, .03752, .01845, + .00981, .03336, .05437, + .46404, .19320, .42187, .03684, .01840, + .01001, .03281, .05305, + .45773, .18983, .40401, .03619, .01834, + .01017, .03228, .05182, + .45177, .18670, .38776, .03557, .01825, + .01029, .03176, .05067, + .44581, .18358, .37201, .03495, .01814, + .01038, .03125, .04954, + .43995, .18054, .35704, .03432, .01801, + .01045, .03073, .04844, + .43442, .17769, .34338, .03373, .01788, + .01049, .03024, .04742, + .42917, .17502, .33086, .03317, .01773, + .01051, .02977, .04645 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42397, .17238, .31878, .03261, .01759, + .01053, .02930, .04549, + .41874, .16977, .30718, .03206, .01742, + .01051, .02883, .04455, + .41383, .16734, .29658, .03154, .01726, + .01050, .02838, .04367, + .40920, .16504, .28684, .03105, .01710, + .01047, .02796, .04286, + .40453, .16274, .27731, .03053, .01693, + .01044, .02752, .04204 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .62256, .28570, .70266, .03351, .00000, + .00000, .02641, .06813, + .61838, .28200, .72413, .03391, .00001, + .00000, .02706, .06732, + .61170, .27642, .74433, .03445, .00140, + .00000, .02794, .06611, + .60648, .27230, .75059, .03479, .00322, + .00000, .02851, .06518, + .60061, .26786, .75022, .03504, .00472, + .00000, .02901, .06421, + .59540, .26403, .74721, .03521, .00597, + .00000, .02939, .06335, + .59016, .26033, .74039, .03532, .00699, + .00000, .02969, .06251, + .58442, .25640, .73057, .03539, .00803, + .00000, .02994, .06158 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .57932, .25299, .72030, .03543, .00887, + .00000, .03013, .06075, + .57424, .24967, .70838, .03541, .00959, + .00000, .03025, .05994, + .57017, .24705, .69824, .03537, .01013, + .00000, .03032, .05929, + .56131, .24145, .67337, .03521, .01115, + .00002, .03039, .05789, + .55352, .23665, .64937, .03500, .01193, + .00087, .03037, .05666, + .54466, .23135, .62012, .03471, .01267, + .00231, .03025, .05525, + .53520, .22584, .58880, .03429, .01327, + .00325, .03004, .05375, + .52655, .22090, .56054, .03385, .01371, + .00405, .02977, .05238 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .51781, .21600, .53260, .03337, .01408, + .00478, .02945, .05101, + .51049, .21197, .50969, .03295, .01432, + .00529, .02914, .04986, + .50156, .20715, .48256, .03238, .01453, + .00582, .02871, .04847, + .49374, .20296, .45951, .03186, .01467, + .00625, .02831, .04727, + .48649, .19913, .43872, .03135, .01474, + .00655, .02791, .04616, + .47736, .19437, .41356, .03069, .01478, + .00690, .02738, .04477, + .46885, .19000, .39106, .03007, .01478, + .00718, .02686, .04348, + .46081, .18593, .37070, .02946, .01473, + .00736, .02636, .04226 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45292, .18196, .35145, .02885, .01466, + .00753, .02585, .04108, + .44519, .17811, .33342, .02824, .01456, + .00765, .02532, .03996, + .43795, .17455, .31721, .02766, .01444, + .00773, .02482, .03892, + .43117, .17123, .30261, .02711, .01431, + .00779, .02435, .03795, + .42442, .16796, .28863, .02656, .01416, + .00783, .02388, .03699, + .41780, .16480, .27550, .02602, .01401, + .00785, .02343, .03605, + .41159, .16185, .26361, .02551, .01385, + .00785, .02300, .03518, + .40572, .15909, .25280, .02503, .01369, + .00784, .02256, .03438 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39993, .15637, .24243, .02455, .01353, + .00783, .02213, .03359, + .39416, .15369, .23257, .02408, .01336, + .00779, .02172, .03282, + .38877, .15119, .22360, .02364, .01320, + .00776, .02133, .03209, + .38369, .14884, .21543, .02321, .01303, + .00772, .02096, .03142, + .37859, .14648, .20750, .02278, .01286, + .00767, .02059, .03075 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63820, .28068, .75190, .02602, .00000, + .00000, .02091, .05380, + .63191, .27624, .75779, .02652, .00001, + .00000, .02157, .05317, + .62221, .26960, .75653, .02716, .00127, + .00000, .02243, .05221, + .61486, .26475, .74861, .02755, .00290, + .00000, .02298, .05144, + .60677, .25959, .73504, .02784, .00422, + .00000, .02344, .05061, + .59970, .25518, .72151, .02805, .00530, + .00000, .02378, .04988, + .59271, .25095, .70578, .02818, .00616, + .00000, .02403, .04914, + .58519, .24647, .68748, .02827, .00703, + .00000, .02423, .04833 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .57861, .24260, .67061, .02831, .00772, + .00000, .02435, .04762, + .57214, .23885, .65310, .02828, .00830, + .00000, .02442, .04691, + .56701, .23591, .63893, .02823, .00872, + .00000, .02446, .04635, + .55592, .22968, .60686, .02807, .00952, + .00002, .02446, .04511, + .54629, .22439, .57800, .02787, .01011, + .00071, .02438, .04403, + .53550, .21858, .54473, .02757, .01065, + .00188, .02422, .04280, + .52410, .21262, .51059, .02720, .01107, + .00263, .02396, .04146, + .51382, .20727, .48074, .02678, .01136, + .00325, .02366, .04027 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50355, .20198, .45191, .02631, .01159, + .00381, .02332, .03909, + .49502, .19769, .42880, .02591, .01172, + .00419, .02300, .03809, + .48470, .19257, .40194, .02540, .01182, + .00458, .02258, .03689, + .47571, .18814, .37948, .02494, .01187, + .00489, .02220, .03584, + .46748, .18411, .35966, .02446, .01187, + .00511, .02182, .03490, + .45716, .17913, .33596, .02386, .01184, + .00535, .02132, .03372, + .44758, .17460, .31505, .02332, .01177, + .00553, .02084, .03263, + .43866, .17036, .29646, .02275, .01167, + .00565, .02037, .03164 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42993, .16625, .27905, .02220, .01156, + .00575, .01990, .03067, + .42139, .16233, .26295, .02168, .01142, + .00581, .01944, .02972, + .41346, .15870, .24862, .02119, .01128, + .00586, .01900, .02884, + .40606, .15532, .23584, .02071, .01114, + .00587, .01859, .02804, + .39875, .15200, .22371, .02024, .01098, + .00588, .01817, .02726, + .39163, .14880, .21242, .01977, .01082, + .00587, .01777, .02651, + .38497, .14582, .20228, .01933, .01067, + .00586, .01739, .02580, + .37869, .14304, .19316, .01893, .01051, + .00583, .01702, .02514 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37250, .14031, .18443, .01854, .01035, + .00580, .01666, .02450, + .36638, .13763, .17622, .01814, .01019, + .00576, .01631, .02388, + .36068, .13514, .16878, .01777, .01004, + .00572, .01598, .02331, + .35531, .13281, .16204, .01741, .00989, + .00567, .01566, .02277, + .34994, .13048, .15552, .01705, .00973, + .00562, .01535, .02224 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64458, .27216, .77864, .02043, .00000, + .00000, .01639, .04148, + .63628, .26713, .77032, .02098, .00001, + .00000, .01702, .04104, + .62369, .25969, .75014, .02168, .00113, + .00000, .01784, .04030, + .61433, .25426, .73014, .02207, .00256, + .00000, .01835, .03971, + .60420, .24854, .70570, .02236, .00370, + .00000, .01875, .03905, + .59545, .24367, .68376, .02256, .00461, + .00000, .01903, .03847, + .58692, .23903, .66114, .02268, .00533, + .00000, .01923, .03786, + .57783, .23413, .63647, .02275, .00604, + .00000, .01939, .03719 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .56993, .22991, .61480, .02277, .00660, + .00000, .01949, .03659, + .56221, .22588, .59339, .02274, .00706, + .00000, .01953, .03600, + .55612, .22272, .57653, .02270, .00740, + .00000, .01953, .03552, + .54308, .21606, .53995, .02254, .00801, + .00002, .01948, .03448, + .53189, .21043, .50838, .02234, .00845, + .00058, .01937, .03356, + .51948, .20428, .47326, .02204, .00884, + .00151, .01919, .03250, + .50654, .19799, .43833, .02166, .00912, + .00210, .01891, .03141, + .49491, .19242, .40844, .02128, .00930, + .00258, .01861, .03041 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48335, .18694, .38010, .02087, .00943, + .00301, .01829, .02941, + .47387, .18248, .35778, .02050, .00949, + .00329, .01798, .02858, + .46252, .17716, .33226, .02000, .00951, + .00358, .01759, .02761, + .45269, .17260, .31121, .01954, .00951, + .00380, .01723, .02676, + .44367, .16851, .29291, .01914, .00946, + .00395, .01688, .02597, + .43246, .16346, .27128, .01861, .00938, + .00412, .01642, .02502, + .42215, .15883, .25241, .01811, .00929, + .00424, .01599, .02417, + .41258, .15459, .23590, .01763, .00917, + .00431, .01559, .02333 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40324, .15048, .22057, .01716, .00904, + .00436, .01519, .02252, + .39420, .14654, .20656, .01670, .00889, + .00439, .01478, .02176, + .38583, .14292, .19419, .01627, .00875, + .00441, .01440, .02107, + .37805, .13957, .18326, .01586, .00861, + .00441, .01405, .02043, + .37037, .13629, .17297, .01545, .00846, + .00440, .01370, .01981, + .36293, .13314, .16347, .01507, .00830, + .00438, .01335, .01920, + .35599, .13021, .15498, .01470, .00816, + .00435, .01303, .01865, + .34947, .12749, .14738, .01436, .00801, + .00432, .01273, .01814 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34307, .12482, .14015, .01403, .00787, + .00428, .01243, .01765, + .33679, .12221, .13341, .01369, .00772, + .00424, .01213, .01715, + .33093, .11978, .12732, .01338, .00759, + .00420, .01187, .01669, + .32545, .11752, .12184, .01309, .00746, + .00416, .01161, .01627, + .31996, .11526, .11658, .01280, .00732, + .00411, .01135, .01586 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64218, .26127, .78165, .01653, .00000, + .00000, .01253, .03102, + .63211, .25572, .76124, .01703, .00001, + .00000, .01315, .03076, + .61697, .24758, .72558, .01765, .00099, + .00000, .01392, .03030, + .60584, .24171, .69610, .01800, .00223, + .00000, .01437, .02989, + .59394, .23557, .66340, .01824, .00319, + .00000, .01473, .02941, + .58373, .23035, .63535, .01839, .00396, + .00000, .01499, .02897, + .57390, .22536, .60793, .01846, .00455, + .00000, .01516, .02851, + .56344, .22018, .57905, .01851, .00513, + .00000, .01529, .02798 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55438, .21577, .55436, .01852, .00557, + .00000, .01536, .02749, + .54564, .21153, .53065, .01846, .00594, + .00000, .01538, .02702, + .53878, .20821, .51229, .01839, .00620, + .00000, .01537, .02665, + .52418, .20125, .47362, .01819, .00666, + .00002, .01531, .02582, + .51174, .19540, .44121, .01798, .00698, + .00046, .01519, .02508, + .49806, .18902, .40608, .01767, .00725, + .00120, .01499, .02426, + .48389, .18255, .37190, .01729, .00743, + .00166, .01473, .02338, + .47126, .17687, .34317, .01692, .00753, + .00203, .01445, .02258 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45879, .17130, .31636, .01652, .00759, + .00236, .01415, .02178, + .44861, .16678, .29558, .01618, .00760, + .00257, .01388, .02112, + .43645, .16147, .27214, .01574, .00757, + .00278, .01353, .02033, + .42596, .15692, .25302, .01534, .00753, + .00294, .01322, .01965, + .41645, .15282, .23658, .01497, .00747, + .00304, .01291, .01904, + .40467, .14778, .21734, .01451, .00736, + .00314, .01252, .01828, + .39387, .14320, .20076, .01408, .00725, + .00322, .01216, .01758, + .38389, .13902, .18642, .01365, .00713, + .00326, .01181, .01693 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37421, .13499, .17322, .01324, .00700, + .00329, .01146, .01631, + .36490, .13113, .16128, .01284, .00686, + .00330, .01112, .01572, + .35628, .12759, .15083, .01248, .00672, + .00330, .01080, .01518, + .34829, .12434, .14166, .01214, .00659, + .00329, .01051, .01468, + .34044, .12116, .13307, .01181, .00645, + .00327, .01022, .01419, + .33287, .11810, .12519, .01148, .00632, + .00324, .00994, .01373, + .32584, .11528, .11820, .01117, .00619, + .00321, .00968, .01331, + .31928, .11266, .11200, .01089, .00606, + .00318, .00943, .01292 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31283, .11010, .10612, .01061, .00594, + .00315, .00919, .01253, + .30651, .10760, .10068, .01034, .00581, + .00311, .00895, .01216, + .30063, .10528, .09577, .01009, .00569, + .00307, .00873, .01182, + .29515, .10313, .09139, .00985, .00558, + .00303, .00852, .01150, + .28968, .10099, .08719, .00961, .00547, + .00299, .00831, .01118 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .63256, .24773, .76223, .01318, .00000, + .00000, .00964, .02276, + .62085, .24185, .73236, .01365, .00001, + .00000, .01020, .02264, + .60343, .23327, .68509, .01422, .00084, + .00000, .01089, .02237, + .59072, .22712, .64889, .01451, .00189, + .00000, .01128, .02211, + .57732, .22068, .61066, .01470, .00269, + .00000, .01158, .02179, + .56587, .21525, .57871, .01482, .00333, + .00000, .01179, .02148, + .55488, .21011, .54844, .01487, .00380, + .00000, .01193, .02113, + .54329, .20477, .51730, .01488, .00426, + .00000, .01202, .02073 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53332, .20023, .49120, .01487, .00461, + .00000, .01207, .02036, + .52375, .19588, .46666, .01479, .00489, + .00000, .01207, .02000, + .51626, .19248, .44790, .01471, .00508, + .00000, .01205, .01972, + .50041, .18540, .40911, .01452, .00542, + .00001, .01197, .01907, + .48699, .17949, .37732, .01431, .00565, + .00037, .01185, .01848, + .47232, .17309, .34362, .01400, .00583, + .00094, .01165, .01784, + .45725, .16661, .31141, .01366, .00594, + .00130, .01139, .01716, + .44390, .16094, .28476, .01332, .00599, + .00158, .01114, .01653 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43078, .15541, .26019, .01297, .00600, + .00181, .01087, .01590, + .42013, .15094, .24138, .01266, .00598, + .00197, .01064, .01538, + .40748, .14570, .22041, .01227, .00594, + .00212, .01034, .01477, + .39662, .14124, .20347, .01192, .00588, + .00223, .01007, .01424, + .38678, .13724, .18910, .01162, .00580, + .00230, .00980, .01376, + .37468, .13233, .17244, .01121, .00570, + .00237, .00947, .01316, + .36366, .12787, .15822, .01081, .00558, + .00242, .00917, .01264, + .35352, .12383, .14603, .01046, .00547, + .00243, .00887, .01213 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34370, .11994, .13490, .01012, .00535, + .00245, .00858, .01165, + .33431, .11622, .12493, .00977, .00522, + .00245, .00830, .01122, + .32564, .11282, .11625, .00947, .00510, + .00244, .00804, .01082, + .31763, .10972, .10869, .00920, .00498, + .00242, .00780, .01043, + .30980, .10670, .10166, .00893, .00486, + .00240, .00757, .01006, + .30229, .10380, .09525, .00865, .00475, + .00237, .00734, .00970, + .29532, .10112, .08960, .00840, .00464, + .00235, .00712, .00937, + .28882, .09863, .08461, .00816, .00453, + .00232, .00693, .00909 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28245, .09620, .07989, .00794, .00443, + .00229, .00674, .00880, + .27625, .09385, .07556, .00771, .00432, + .00225, .00656, .00853, + .27049, .09167, .07167, .00750, .00422, + .00222, .00639, .00827, + .26511, .08965, .06820, .00731, .00413, + .00219, .00623, .00803, + .25976, .08766, .06491, .00713, .00404, + .00215, .00606, .00780 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .61605, .23281, .72410, .01067, .00000, + .00000, .00728, .01618, + .60298, .22669, .68747, .01107, .00001, + .00000, .00777, .01619, + .58371, .21778, .63243, .01151, .00071, + .00000, .00837, .01612, + .56980, .21140, .59216, .01172, .00158, + .00000, .00872, .01600, + .55511, .20486, .55093, .01187, .00224, + .00000, .00897, .01578, + .54263, .19935, .51714, .01197, .00275, + .00000, .00914, .01557, + .53075, .19416, .48585, .01199, .00313, + .00000, .00926, .01532, + .51831, .18875, .45416, .01197, .00349, + .00000, .00932, .01504 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .50767, .18414, .42796, .01192, .00376, + .00000, .00933, .01479, + .49748, .17977, .40372, .01184, .00397, + .00000, .00932, .01454, + .48950, .17638, .38538, .01176, .00411, + .00000, .00930, .01433, + .47277, .16932, .34808, .01154, .00436, + .00001, .00921, .01385, + .45870, .16343, .31807, .01132, .00451, + .00028, .00910, .01341, + .44337, .15708, .28678, .01105, .00463, + .00073, .00893, .01291, + .42772, .15073, .25732, .01073, .00469, + .00100, .00872, .01238, + .41395, .14517, .23329, .01043, .00470, + .00121, .00850, .01190 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40049, .13976, .21141, .01012, .00469, + .00138, .00826, .01142, + .38960, .13543, .19483, .00984, .00466, + .00150, .00807, .01101, + .37672, .13034, .17653, .00950, .00459, + .00160, .00780, .01056, + .36569, .12600, .16190, .00921, .00453, + .00168, .00756, .01018, + .35582, .12215, .14961, .00892, .00446, + .00172, .00735, .00981, + .34367, .11744, .13547, .00856, .00435, + .00177, .00708, .00936, + .33261, .11321, .12352, .00824, .00425, + .00179, .00683, .00894, + .32245, .10936, .11337, .00797, .00415, + .00180, .00659, .00857 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31266, .10567, .10417, .00771, .00404, + .00180, .00636, .00822, + .30337, .10216, .09597, .00742, .00393, + .00180, .00614, .00790, + .29483, .09895, .08889, .00716, .00383, + .00178, .00593, .00760, + .28699, .09602, .08277, .00692, .00373, + .00177, .00573, .00733, + .27932, .09318, .07711, .00670, .00363, + .00175, .00554, .00705, + .27195, .09048, .07197, .00649, .00353, + .00172, .00536, .00677, + .26514, .08798, .06746, .00629, .00344, + .00170, .00520, .00652, + .25885, .08567, .06352, .00610, .00335, + .00167, .00505, .00631 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25269, .08342, .05980, .00591, .00327, + .00165, .00490, .00610, + .24670, .08123, .05639, .00572, .00318, + .00162, .00475, .00590, + .24114, .07922, .05334, .00555, .00310, + .00159, .00462, .00571, + .23598, .07735, .05064, .00540, .00303, + .00157, .00449, .00554, + .23084, .07551, .04808, .00525, .00296, + .00154, .00437, .00537 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .59381, .21663, .67143, .00853, .00000, + .00000, .00545, .01125, + .57964, .21040, .63069, .00885, .00001, + .00000, .00589, .01134, + .55889, .20136, .57149, .00919, .00058, + .00000, .00641, .01138, + .54398, .19495, .52949, .00935, .00129, + .00000, .00670, .01135, + .52831, .18841, .48745, .00949, .00183, + .00000, .00690, .01121, + .51509, .18289, .45352, .00955, .00223, + .00000, .00703, .01108, + .50265, .17766, .42265, .00952, .00253, + .00000, .00710, .01096, + .48960, .17228, .39180, .00947, .00280, + .00000, .00715, .01077 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47844, .16776, .36659, .00942, .00301, + .00000, .00718, .01057, + .46783, .16345, .34354, .00933, .00316, + .00000, .00717, .01039, + .45957, .16011, .32625, .00923, .00327, + .00000, .00714, .01024, + .44227, .15319, .29158, .00905, .00344, + .00001, .00706, .00987, + .42778, .14746, .26412, .00886, .00355, + .00022, .00695, .00954, + .41209, .14130, .23589, .00862, .00362, + .00056, .00678, .00918, + .39621, .13511, .20974, .00832, .00364, + .00076, .00659, .00882, + .38228, .12974, .18860, .00806, .00364, + .00091, .00640, .00847 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36872, .12455, .16955, .00778, .00361, + .00104, .00621, .00811, + .35780, .12040, .15529, .00753, .00357, + .00112, .00604, .00783, + .34495, .11556, .13970, .00724, .00350, + .00119, .00582, .00749, + .33399, .11146, .12732, .00699, .00344, + .00125, .00563, .00720, + .32417, .10780, .11702, .00678, .00337, + .00128, .00546, .00692, + .31217, .10335, .10527, .00649, .00328, + .00130, .00524, .00658, + .30132, .09934, .09541, .00620, .00319, + .00132, .00504, .00628, + .29140, .09573, .08712, .00597, .00310, + .00132, .00484, .00600 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .28186, .09228, .07964, .00575, .00301, + .00132, .00466, .00574, + .27282, .08901, .07303, .00552, .00292, + .00131, .00448, .00548, + .26454, .08604, .06736, .00532, .00283, + .00129, .00431, .00526, + .25693, .08332, .06247, .00514, .00275, + .00128, .00416, .00506, + .24952, .08069, .05798, .00496, .00267, + .00126, .00401, .00487, + .24246, .07819, .05394, .00478, .00259, + .00124, .00388, .00468, + .23594, .07588, .05040, .00462, .00252, + .00122, .00375, .00451, + .22992, .07376, .04732, .00447, .00245, + .00120, .00364, .00435 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22404, .07168, .04442, .00432, .00238, + .00118, .00353, .00420, + .21831, .06969, .04179, .00418, .00232, + .00115, .00341, .00405, + .21302, .06786, .03944, .00406, .00225, + .00113, .00330, .00391, + .20812, .06616, .03736, .00394, .00220, + .00111, .00321, .00379, + .20328, .06448, .03540, .00382, .00214, + .00109, .00311, .00367 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .56668, .19968, .60861, .00671, .00000, + .00000, .00406, .00763, + .55165, .19345, .56612, .00698, .00001, + .00000, .00442, .00776, + .52978, .18446, .50592, .00726, .00047, + .00000, .00486, .00788, + .51418, .17811, .46423, .00736, .00104, + .00000, .00509, .00790, + .49795, .17163, .42321, .00742, .00146, + .00000, .00525, .00787, + .48426, .16620, .39051, .00745, .00178, + .00000, .00535, .00781, + .47135, .16111, .36114, .00742, .00201, + .00000, .00541, .00772, + .45793, .15585, .33216, .00737, .00222, + .00000, .00545, .00760 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44653, .15141, .30874, .00732, .00237, + .00000, .00545, .00748, + .43572, .14723, .28753, .00722, .00248, + .00000, .00543, .00736, + .42732, .14399, .27173, .00712, .00256, + .00000, .00540, .00726, + .40979, .13731, .24046, .00695, .00268, + .00001, .00532, .00700, + .39517, .13180, .21603, .00679, .00275, + .00016, .00523, .00676, + .37941, .12590, .19121, .00657, .00279, + .00042, .00510, .00650, + .36351, .12003, .16850, .00636, .00279, + .00057, .00494, .00618, + .34968, .11493, .15037, .00611, .00277, + .00068, .00478, .00593 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33629, .11000, .13419, .00585, .00273, + .00077, .00462, .00570, + .32553, .10608, .12217, .00565, .00269, + .00083, .00448, .00549, + .31293, .10152, .10915, .00541, .00264, + .00088, .00431, .00523, + .30222, .09768, .09891, .00520, .00258, + .00091, .00415, .00501, + .29264, .09426, .09045, .00502, .00252, + .00093, .00401, .00481, + .28097, .09011, .08085, .00480, .00244, + .00095, .00384, .00457, + .27045, .08640, .07286, .00458, .00236, + .00095, .00368, .00436, + .26089, .08306, .06621, .00439, .00229, + .00095, .00353, .00415 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .25172, .07987, .06025, .00422, .00221, + .00095, .00338, .00396, + .24304, .07686, .05500, .00404, .00214, + .00094, .00324, .00378, + .23512, .07413, .05053, .00389, .00207, + .00092, .00312, .00363, + .22788, .07164, .04670, .00376, .00201, + .00091, .00301, .00348, + .22085, .06924, .04320, .00362, .00194, + .00090, .00290, .00334, + .21416, .06696, .04005, .00347, .00188, + .00088, .00278, .00321, + .20800, .06486, .03731, .00334, .00182, + .00086, .00268, .00308, + .20233, .06293, .03494, .00322, .00177, + .00085, .00260, .00297 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19681, .06106, .03272, .00310, .00172, + .00083, .00251, .00286, + .19144, .05926, .03071, .00300, .00166, + .00081, .00243, .00275, + .18649, .05760, .02892, .00290, .00162, + .00080, .00235, .00265, + .18191, .05608, .02734, .00282, .00157, + .00078, .00227, .00256, + .17738, .05458, .02586, .00273, .00153, + .00077, .00220, .00247 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .53544, .18252, .54010, .00530, .00000, + .00000, .00291, .00500, + .51988, .17637, .49789, .00550, .00001, + .00000, .00323, .00516, + .49735, .16756, .43925, .00569, .00038, + .00000, .00360, .00532, + .48131, .16138, .39938, .00577, .00083, + .00000, .00378, .00539, + .46473, .15506, .36077, .00580, .00116, + .00000, .00392, .00539, + .45082, .14980, .33033, .00580, .00140, + .00000, .00400, .00536, + .43776, .14488, .30329, .00577, .00157, + .00000, .00405, .00530, + .42423, .13983, .27689, .00571, .00173, + .00000, .00407, .00523 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41277, .13557, .25576, .00564, .00184, + .00000, .00407, .00516, + .40192, .13156, .23679, .00556, .00192, + .00000, .00405, .00507, + .39351, .12847, .22275, .00549, .00197, + .00000, .00402, .00500, + .37605, .12210, .19523, .00533, .00205, + .00001, .00395, .00482, + .36159, .11686, .17402, .00517, .00209, + .00012, .00387, .00467, + .34606, .11127, .15279, .00496, .00211, + .00031, .00375, .00451, + .33050, .10571, .13349, .00476, .00210, + .00042, .00362, .00431, + .31695, .10094, .11827, .00459, .00208, + .00050, .00350, .00412 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30386, .09636, .10481, .00440, .00204, + .00057, .00337, .00393, + .29342, .09270, .09488, .00424, .00201, + .00061, .00326, .00377, + .28123, .08847, .08422, .00404, .00195, + .00064, .00313, .00359, + .27090, .08490, .07590, .00387, .00191, + .00066, .00301, .00343, + .26169, .08175, .06907, .00373, .00185, + .00067, .00289, .00330, + .25052, .07794, .06139, .00355, .00179, + .00068, .00275, .00313, + .24050, .07454, .05504, .00337, .00173, + .00069, .00262, .00298, + .23143, .07149, .04979, .00323, .00167, + .00068, .00252, .00282 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .22275, .06858, .04510, .00309, .00161, + .00068, .00242, .00268, + .21455, .06584, .04100, .00296, .00155, + .00067, .00231, .00255, + .20709, .06336, .03753, .00284, .00150, + .00066, .00222, .00244, + .20031, .06111, .03458, .00272, .00145, + .00065, .00213, .00235, + .19375, .05894, .03189, .00261, .00140, + .00063, .00205, .00225, + .18750, .05688, .02949, .00250, .00135, + .00062, .00196, .00215, + .18176, .05500, .02741, .00240, .00130, + .00061, .00188, .00206, + .17646, .05328, .02560, .00232, .00126, + .00060, .00181, .00198 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .17131, .05161, .02392, .00224, .00122, + .00058, .00175, .00191, + .16636, .05001, .02240, .00216, .00118, + .00057, .00169, .00184, + .16180, .04853, .02106, .00208, .00115, + .00056, .00163, .00178, + .15758, .04717, .01987, .00201, .00111, + .00055, .00158, .00172, + .15341, .04583, .01877, .00195, .00108, + .00053, .00153, .00167 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .50113, .16522, .46946, .00405, .00000, + .00000, .00211, .00317, + .48526, .15928, .42912, .00421, .00000, + .00000, .00236, .00334, + .46237, .15079, .37400, .00437, .00029, + .00000, .00265, .00353, + .44619, .14485, .33717, .00444, .00064, + .00000, .00278, .00362, + .42958, .13880, .30193, .00445, .00089, + .00000, .00287, .00363, + .41570, .13377, .27444, .00443, .00108, + .00000, .00293, .00363, + .40267, .12910, .25030, .00441, .00121, + .00000, .00297, .00360, + .38922, .12430, .22693, .00437, .00132, + .00000, .00298, .00355 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37787, .12027, .20835, .00433, .00140, + .00000, .00298, .00349, + .36718, .11648, .19183, .00426, .00146, + .00000, .00296, .00344, + .35893, .11356, .17969, .00419, .00149, + .00000, .00294, .00340, + .34185, .10759, .15609, .00404, .00155, + .00001, .00288, .00328, + .32774, .10269, .13809, .00390, .00157, + .00009, .00281, .00317, + .31264, .09745, .12024, .00374, .00158, + .00023, .00271, .00308, + .29757, .09233, .10422, .00357, .00156, + .00031, .00261, .00292, + .28453, .08792, .09171, .00341, .00154, + .00037, .00251, .00279 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27197, .08368, .08073, .00326, .00151, + .00041, .00241, .00267, + .26197, .08031, .07271, .00314, .00147, + .00044, .00232, .00256, + .25036, .07643, .06416, .00298, .00143, + .00047, .00222, .00243, + .24056, .07317, .05752, .00284, .00139, + .00048, .00213, .00232, + .23187, .07030, .05212, .00273, .00135, + .00049, .00204, .00222, + .22133, .06684, .04607, .00258, .00129, + .00049, .00194, .00210, + .21190, .06376, .04110, .00246, .00124, + .00049, .00186, .00199, + .20340, .06100, .03702, .00235, .00120, + .00049, .00176, .00189 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .19528, .05838, .03340, .00225, .00115, + .00048, .00168, .00180, + .18765, .05592, .03027, .00214, .00111, + .00048, .00160, .00171, + .18074, .05370, .02761, .00205, .00107, + .00047, .00152, .00163, + .17447, .05170, .02536, .00196, .00103, + .00046, .00146, .00155, + .16840, .04976, .02332, .00187, .00099, + .00045, .00140, .00148, + .16265, .04793, .02151, .00177, .00095, + .00044, .00135, .00142, + .15738, .04626, .01994, .00170, .00092, + .00043, .00130, .00136, + .15252, .04474, .01860, .00164, .00089, + .00042, .00125, .00130 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14780, .04326, .01734, .00159, .00086, + .00041, .00120, .00125, + .14329, .04183, .01621, .00152, .00083, + .00041, .00116, .00120, + .13914, .04052, .01521, .00145, .00080, + .00040, .00111, .00117, + .13530, .03933, .01434, .00140, .00078, + .00039, .00107, .00113, + .13150, .03816, .01352, .00136, .00076, + .00038, .00103, .00108 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .46441, .14809, .39966, .00296, .00000, + .00000, .00151, .00203, + .44851, .14242, .36239, .00309, .00000, + .00000, .00171, .00218, + .42568, .13434, .31223, .00323, .00023, + .00000, .00193, .00233, + .40966, .12869, .27919, .00328, .00049, + .00000, .00204, .00238, + .39324, .12296, .24792, .00328, .00068, + .00000, .00212, .00243, + .37956, .11822, .22374, .00326, .00082, + .00000, .00217, .00245, + .36679, .11382, .20271, .00322, .00091, + .00000, .00219, .00243, + .35366, .10932, .18251, .00318, .00099, + .00000, .00220, .00240 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .34261, .10555, .16660, .00313, .00105, + .00000, .00219, .00238, + .33221, .10202, .15254, .00307, .00109, + .00000, .00217, .00235, + .32420, .09932, .14226, .00301, .00111, + .00000, .00214, .00233, + .30765, .09378, .12251, .00292, .00115, + .00001, .00209, .00224, + .29406, .08926, .10760, .00284, .00116, + .00007, .00204, .00216, + .27962, .08445, .09296, .00270, .00116, + .00016, .00197, .00210, + .26525, .07973, .07994, .00255, .00114, + .00022, .00189, .00200, + .25288, .07568, .06985, .00242, .00112, + .00026, .00181, .00191 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .24101, .07182, .06109, .00231, .00109, + .00030, .00173, .00181, + .23158, .06878, .05474, .00221, .00106, + .00032, .00166, .00173, + .22064, .06526, .04803, .00211, .00103, + .00033, .00159, .00165, + .21144, .06233, .04285, .00201, .00099, + .00035, .00152, .00157, + .20335, .05975, .03865, .00191, .00096, + .00035, .00145, .00150, + .19355, .05665, .03398, .00180, .00092, + .00036, .00137, .00142, + .18476, .05389, .03018, .00171, .00088, + .00036, .00129, .00135, + .17690, .05144, .02708, .00162, .00085, + .00035, .00124, .00128 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16943, .04911, .02434, .00154, .00081, + .00035, .00119, .00120, + .16244, .04692, .02198, .00146, .00078, + .00034, .00113, .00115, + .15610, .04495, .01999, .00139, .00075, + .00034, .00108, .00110, + .15036, .04318, .01831, .00133, .00072, + .00033, .00103, .00105, + .14482, .04148, .01680, .00127, .00069, + .00033, .00098, .00100, + .13957, .03987, .01546, .00121, .00066, + .00032, .00094, .00096, + .13478, .03841, .01431, .00116, .00064, + .00031, .00090, .00092, + .13038, .03708, .01332, .00111, .00062, + .00031, .00086, .00088 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .12613, .03580, .01239, .00107, .00060, + .00030, .00083, .00083, + .12204, .03456, .01157, .00103, .00058, + .00030, .00080, .00080, + .11828, .03343, .01085, .00100, .00056, + .00029, .00077, .00077, + .11483, .03239, .01021, .00096, .00054, + .00029, .00074, .00074, + .11145, .03137, .00961, .00092, .00052, + .00028, .00072, .00071 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .42608, .13153, .33340, .00217, .00000, + .00000, .00106, .00121, + .41042, .12615, .29993, .00226, .00000, + .00000, .00122, .00135, + .38804, .11852, .25550, .00233, .00017, + .00000, .00138, .00151, + .37236, .11323, .22665, .00236, .00037, + .00000, .00149, .00157, + .35636, .10788, .19962, .00235, .00051, + .00000, .00153, .00163, + .34309, .10346, .17892, .00233, .00061, + .00000, .00156, .00167, + .33078, .09936, .16106, .00229, .00068, + .00000, .00158, .00166, + .31814, .09519, .14405, .00224, .00074, + .00000, .00159, .00165 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .30753, .09171, .13075, .00219, .00077, + .00000, .00159, .00163, + .29755, .08846, .11910, .00215, .00080, + .00000, .00158, .00162, + .28986, .08597, .11063, .00213, .00081, + .00000, .00155, .00161, + .27411, .08090, .09445, .00205, .00083, + .00000, .00151, .00154, + .26124, .07677, .08235, .00195, .00084, + .00005, .00147, .00148, + .24761, .07239, .07060, .00182, .00083, + .00012, .00141, .00146, + .23404, .06812, .06028, .00175, .00082, + .00015, .00136, .00136, + .22245, .06448, .05235, .00166, .00080, + .00018, .00130, .00129 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .21137, .06101, .04550, .00157, .00078, + .00020, .00124, .00123, + .20258, .05828, .04057, .00150, .00075, + .00022, .00119, .00118, + .19244, .05515, .03538, .00142, .00072, + .00023, .00113, .00112, + .18393, .05253, .03141, .00135, .00070, + .00024, .00108, .00107, + .17646, .05024, .02823, .00128, .00068, + .00024, .00103, .00102, + .16747, .04749, .02471, .00120, .00065, + .00024, .00097, .00097, + .15947, .04504, .02185, .00112, .00062, + .00024, .00092, .00091, + .15229, .04289, .01953, .00107, .00059, + .00024, .00088, .00086 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .14547, .04085, .01749, .00103, .00057, + .00024, .00083, .00081, + .13911, .03894, .01575, .00097, .00054, + .00024, .00079, .00078, + .13337, .03722, .01428, .00092, .00052, + .00024, .00075, .00075, + .12818, .03568, .01305, .00087, .00050, + .00024, .00071, .00071, + .12320, .03421, .01195, .00083, .00048, + .00024, .00068, .00068, + .11850, .03282, .01097, .00078, .00047, + .00024, .00065, .00064, + .11421, .03155, .01014, .00075, .00045, + .00023, .00063, .00061, + .11028, .03039, .00942, .00072, .00043, + .00023, .00060, .00059 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .10648, .02928, .00875, .00069, .00042, + .00022, .00058, .00057, + .10286, .02822, .00816, .00065, .00041, + .00022, .00055, .00054, + .09955, .02726, .00764, .00062, .00039, + .00022, .00053, .00052, + .09649, .02637, .00718, .00060, .00038, + .00022, .00051, .00050, + .09348, .02550, .00676, .00058, .00037, + .00021, .00049, .00047 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .38703, .11576, .27271, .00162, .00000, + .00000, .00067, .00069, + .37182, .11076, .24354, .00169, .00000, + .00000, .00079, .00080, + .35014, .10371, .20529, .00177, .00013, + .00000, .00092, .00092, + .33505, .09881, .18078, .00178, .00027, + .00000, .00099, .00098, + .31976, .09387, .15797, .00175, .00038, + .00000, .00104, .00101, + .30710, .08981, .14065, .00174, .00045, + .00000, .00107, .00103, + .29535, .08606, .12587, .00172, .00050, + .00000, .00108, .00104, + .28333, .08225, .11189, .00169, .00054, + .00000, .00108, .00105 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .27327, .07908, .10101, .00166, .00057, + .00000, .00106, .00104, + .26385, .07613, .09155, .00161, .00059, + .00000, .00105, .00103, + .25663, .07388, .08472, .00157, .00060, + .00000, .00104, .00102, + .24188, .06929, .07178, .00149, .00061, + .00000, .00101, .00100, + .22984, .06556, .06220, .00143, .00061, + .00003, .00097, .00096, + .21707, .06165, .05295, .00137, .00061, + .00008, .00093, .00091, + .20451, .05781, .04489, .00131, .00059, + .00011, .00089, .00088, + .19380, .05456, .03876, .00123, .00058, + .00012, .00086, .00084 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18360, .05149, .03350, .00115, .00056, + .00014, .00082, .00079, + .17557, .04908, .02974, .00109, .00054, + .00015, .00077, .00076, + .16630, .04631, .02582, .00103, .00052, + .00015, .00073, .00070, + .15855, .04400, .02283, .00099, .00050, + .00016, .00071, .00066, + .15176, .04199, .02044, .00093, .00049, + .00016, .00067, .00064, + .14359, .03958, .01781, .00087, .00046, + .00016, .00062, .00060, + .13635, .03744, .01570, .00082, .00044, + .00016, .00058, .00057, + .12990, .03556, .01399, .00078, .00043, + .00016, .00055, .00054 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .12379, .03379, .01249, .00074, .00041, + .00016, .00052, .00050, + .11808, .03214, .01122, .00071, .00039, + .00016, .00049, .00048, + .11295, .03066, .01015, .00068, .00038, + .00016, .00046, .00046, + .10834, .02933, .00927, .00064, .00036, + .00016, .00045, .00043, + .10392, .02806, .00847, .00060, .00035, + .00016, .00043, .00041, + .09976, .02686, .00776, .00056, .00034, + .00016, .00041, .00040, + .09597, .02578, .00716, .00053, .00033, + .00016, .00039, .00038, + .09251, .02479, .00665, .00051, .00032, + .00016, .00037, .00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08918, .02384, .00617, .00049, .00031, + .00016, .00036, .00034, + .08597, .02295, .00575, .00048, .00030, + .00016, .00034, .00033, + .08303, .02213, .00537, .00047, .00029, + .00016, .00033, .00031, + .08034, .02137, .00505, .00045, .00028, + .00016, .00031, .00030, + .07773, .02064, .00475, .00043, .00027, + .00016, .00030, .00029 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34764, .10050, .21796, .00103, .00000, + .00000, .00051, .00043, + .33308, .09591, .19324, .00108, .00000, + .00000, .00059, .00052, + .31246, .08946, .16120, .00113, .00009, + .00000, .00067, .00061, + .29814, .08500, .14088, .00114, .00020, + .00000, .00072, .00066, + .28363, .08052, .12220, .00116, .00027, + .00000, .00075, .00068, + .27167, .07685, .10811, .00116, .00032, + .00000, .00077, .00070, + .26064, .07347, .09616, .00114, .00036, + .00000, .00077, .00071, + .24940, .07005, .08494, .00111, .00039, + .00000, .00077, .00070 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .24001, .06721, .07629, .00109, .00041, + .00000, .00076, .00069, + .23124, .06457, .06880, .00106, .00042, + .00000, .00075, .00069, + .22452, .06256, .06341, .00105, .00042, + .00000, .00074, .00069, + .21085, .05847, .05329, .00100, .00043, + .00000, .00072, .00066, + .19975, .05517, .04588, .00095, .00043, + .00002, .00069, .00064, + .18804, .05170, .03880, .00090, .00043, + .00005, .00065, .00061, + .17653, .04834, .03267, .00086, .00041, + .00007, .00062, .00058, + .16677, .04548, .02805, .00082, .00040, + .00008, .00058, .00056 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15751, .04278, .02411, .00076, .00039, + .00009, .00055, .00053, + .15022, .04068, .02131, .00072, .00038, + .00009, .00053, .00050, + .14187, .03827, .01841, .00067, .00036, + .00009, .00050, .00047, + .13491, .03627, .01621, .00063, .00035, + .00009, .00046, .00045, + .12881, .03453, .01446, .00060, .00034, + .00009, .00045, .00042, + .12150, .03245, .01255, .00057, .00032, + .00009, .00042, .00039, + .11504, .03063, .01103, .00053, .00031, + .00009, .00038, .00037, + .10931, .02901, .00980, .00051, .00030, + .00009, .00037, .00035 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .10391, .02749, .00873, .00048, .00028, + .00009, .00035, .00033, + .09890, .02608, .00782, .00044, .00027, + .00009, .00033, .00031, + .09439, .02482, .00707, .00042, .00026, + .00009, .00031, .00030, + .09032, .02371, .00644, .00040, .00026, + .00009, .00029, .00029, + .08643, .02263, .00587, .00038, .00025, + .00009, .00028, .00027, + .08278, .02162, .00538, .00036, .00024, + .00009, .00027, .00026, + .07947, .02071, .00495, .00034, .00023, + .00009, .00025, .00024, + .07647, .01988, .00459, .00033, .00023, + .00009, .00024, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .07357, .01908, .00426, .00032, .00022, + .00009, .00023, .00022, + .07080, .01833, .00396, .00031, .00022, + .00009, .00022, .00021, + .06826, .01765, .00370, .00030, .00021, + .00009, .00021, .00020, + .06595, .01702, .00348, .00029, .00021, + .00009, .00020, .00019, + .06369, .01641, .00327, .00028, .00020, + .00009, .00019, .00018 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30873, .08631, .17035, .00065, .00000, + .00000, .00036, .00027, + .29500, .08215, .14994, .00069, .00000, + .00000, .00042, .00034, + .27562, .07631, .12380, .00072, .00006, + .00000, .00048, .00042, + .26220, .07230, .10742, .00075, .00014, + .00000, .00050, .00045, + .24869, .06829, .09245, .00074, .00019, + .00000, .00052, .00046, + .23758, .06502, .08127, .00074, .00022, + .00000, .00053, .00046, + .22735, .06201, .07187, .00072, .00024, + .00000, .00052, .00048, + .21696, .05898, .06310, .00070, .00026, + .00000, .00052, .00048 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .20832, .05646, .05637, .00068, .00027, + .00000, .00052, .00047, + .20028, .05413, .05059, .00067, .00027, + .00000, .00051, .00047, + .19414, .05235, .04647, .00065, .00028, + .00000, .00050, .00047, + .18166, .04874, .03875, .00062, .00028, + .00000, .00049, .00045, + .17155, .04584, .03314, .00059, .00028, + .00001, .00048, .00043, + .16093, .04281, .02782, .00057, .00027, + .00003, .00045, .00040, + .15059, .03990, .02328, .00052, .00026, + .00004, .00043, .00038, + .14180, .03743, .01988, .00050, .00025, + .00005, .00040, .00036 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13349, .03510, .01700, .00047, .00024, + .00005, .00038, .00034, + .12699, .03329, .01497, .00043, .00023, + .00005, .00036, .00033, + .11955, .03122, .01287, .00041, .00022, + .00005, .00034, .00031, + .11336, .02950, .01129, .00039, .00021, + .00005, .00032, .00029, + .10798, .02802, .01004, .00037, .00020, + .00005, .00030, .00028, + .10155, .02625, .00868, .00034, .00019, + .00005, .00028, .00026, + .09587, .02471, .00760, .00032, .00018, + .00005, .00026, .00024, + .09084, .02335, .00674, .00031, .00017, + .00005, .00025, .00022 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08611, .02207, .00599, .00030, .00017, + .00005, .00023, .00021, + .08174, .02089, .00536, .00028, .00016, + .00005, .00022, .00020, + .07783, .01983, .00483, .00026, .00015, + .00005, .00020, .00019, + .07432, .01889, .00439, .00025, .00014, + .00005, .00020, .00018, + .07097, .01799, .00400, .00023, .00014, + .00005, .00019, .00017, + .06783, .01715, .00366, .00022, .00014, + .00005, .00017, .00017, + .06498, .01640, .00337, .00021, .00013, + .00005, .00016, .00016, + .06240, .01572, .00312, .00020, .00013, + .00005, .00016, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05991, .01506, .00289, .00019, .00013, + .00005, .00015, .00014, + .05755, .01444, .00269, .00018, .00013, + .00005, .00015, .00013, + .05540, .01387, .00251, .00017, .00013, + .00005, .00014, .00012, + .05344, .01336, .00236, .00016, .00013, + .00005, .00013, .00012, + .05153, .01285, .00222, .00015, .00013, + .00005, .00013, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .27101, .07335, .13022, .00047, .00000, + .00000, .00020, .00012, + .25823, .06963, .11382, .00049, .00000, + .00000, .00024, .00018, + .24027, .06442, .09303, .00052, .00004, + .00000, .00029, .00024, + .22791, .06086, .08015, .00052, .00009, + .00000, .00032, .00026, + .21549, .05730, .06850, .00053, .00013, + .00000, .00033, .00028, + .20532, .05441, .05985, .00053, .00015, + .00000, .00034, .00029, + .19600, .05178, .05262, .00051, .00016, + .00000, .00033, .00030, + .18656, .04912, .04592, .00049, .00017, + .00000, .00033, .00029 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .17873, .04691, .04082, .00049, .00018, + .00000, .00033, .00028, + .17145, .04488, .03647, .00048, .00018, + .00000, .00033, .00027, + .16588, .04334, .03337, .00047, .00018, + .00000, .00032, .00027, + .15463, .04022, .02763, .00045, .00018, + .00000, .00031, .00027, + .14556, .03772, .02349, .00043, .00018, + .00001, .00029, .00027, + .13609, .03511, .01961, .00039, .00018, + .00002, .00028, .00024, + .12691, .03259, .01630, .00037, .00017, + .00002, .00026, .00023, + .11912, .03047, .01385, .00034, .00016, + .00002, .00024, .00023 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .11178, .02849, .01178, .00031, .00015, + .00002, .00023, .00022, + .10608, .02694, .01034, .00030, .00015, + .00002, .00022, .00020, + .09954, .02519, .00885, .00028, .00014, + .00002, .00021, .00018, + .09413, .02375, .00774, .00027, .00013, + .00002, .00019, .00018, + .08943, .02251, .00687, .00026, .00013, + .00002, .00018, .00017, + .08384, .02103, .00593, .00024, .00012, + .00002, .00017, .00016, + .07894, .01973, .00518, .00022, .00011, + .00002, .00015, .00015, + .07461, .01859, .00458, .00021, .00011, + .00002, .00014, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .07055, .01753, .00406, .00020, .00010, + .00002, .00013, .00013, + .06681, .01655, .00363, .00017, .00009, + .00002, .00013, .00012, + .06346, .01568, .00327, .00016, .00009, + .00002, .00012, .00012, + .06046, .01491, .00297, .00016, .00008, + .00002, .00011, .00011, + .05759, .01417, .00270, .00015, .00008, + .00002, .00011, .00010, + .05492, .01347, .00247, .00014, .00008, + .00002, .00010, .00010, + .05251, .01285, .00227, .00014, .00007, + .00002, .00009, .00010, + .05033, .01229, .00210, .00013, .00007, + .00002, .00009, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04824, .01176, .00195, .00012, .00007, + .00002, .00009, .00008, + .04624, .01126, .00181, .00012, .00007, + .00002, .00008, .00008, + .04443, .01080, .00169, .00012, .00007, + .00002, .00008, .00008, + .04278, .01038, .00159, .00012, .00007, + .00002, .00008, .00007, + .04117, .00997, .00149, .00011, .00007, + .00002, .00007, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .23457, .06127, .09678, .00023, .00000, + .00000, .00015, .00011, + .22287, .05800, .08400, .00025, .00000, + .00000, .00018, .00014, + .20650, .05345, .06796, .00028, .00003, + .00000, .00022, .00016, + .19528, .05034, .05814, .00029, .00006, + .00000, .00023, .00018, + .18405, .04726, .04934, .00029, .00008, + .00000, .00023, .00020, + .17488, .04475, .04284, .00029, .00010, + .00000, .00024, .00021, + .16649, .04247, .03744, .00029, .00011, + .00000, .00024, .00020, + .15803, .04018, .03248, .00029, .00011, + .00000, .00024, .00020 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .15102, .03829, .02872, .00028, .00011, + .00000, .00024, .00019, + .14454, .03655, .02554, .00027, .00012, + .00000, .00023, .00019, + .13961, .03522, .02328, .00027, .00012, + .00000, .00022, .00019, + .12966, .03256, .01914, .00024, .00011, + .00000, .00021, .00019, + .12166, .03044, .01618, .00023, .00011, + .00000, .00020, .00018, + .11331, .02824, .01341, .00023, .00011, + .00000, .00019, .00017, + .10526, .02612, .01109, .00021, .00010, + .00000, .00018, .00015, + .09847, .02435, .00937, .00020, .00010, + .00000, .00016, .00014 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09210, .02269, .00794, .00019, .00009, + .00000, .00015, .00013, + .08715, .02140, .00694, .00018, .00009, + .00000, .00015, .00012, + .08152, .01995, .00592, .00016, .00008, + .00000, .00014, .00012, + .07687, .01875, .00517, .00014, .00008, + .00000, .00013, .00012, + .07284, .01772, .00457, .00014, .00007, + .00000, .00012, .00011, + .06806, .01650, .00393, .00013, .00007, + .00000, .00011, .00010, + .06387, .01544, .00342, .00013, .00007, + .00000, .00010, .00010, + .06021, .01451, .00302, .00012, .00006, + .00000, .00009, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05678, .01364, .00268, .00010, .00006, + .00000, .00009, .00008, + .05361, .01285, .00239, .00010, .00005, + .00000, .00008, .00008, + .05079, .01214, .00215, .00009, .00005, + .00000, .00008, .00007, + .04827, .01151, .00195, .00009, .00005, + .00000, .00008, .00007, + .04588, .01091, .00178, .00008, .00005, + .00000, .00007, .00006, + .04366, .01036, .00162, .00008, .00004, + .00000, .00007, .00006, + .04166, .00986, .00149, .00007, .00004, + .00000, .00006, .00006, + .03984, .00941, .00138, .00007, .00004, + .00000, .00006, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03811, .00899, .00128, .00006, .00004, + .00000, .00006, .00005, + .03646, .00858, .00119, .00006, .00004, + .00000, .00005, .00005, + .03497, .00822, .00111, .00005, .00004, + .00000, .00005, .00005, + .03361, .00788, .00104, .00005, .00004, + .00000, .00005, .00005, + .03229, .00756, .00098, .00005, .00004, + .00000, .00005, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .16829, .04098, .04919, .00008, .00000, + .00000, .00005, .00003, + .15893, .03856, .04209, .00010, .00000, + .00000, .00006, .00004, + .14595, .03522, .03337, .00011, .00001, + .00000, .00008, .00005, + .13713, .03297, .02814, .00011, .00002, + .00000, .00009, .00006, + .12838, .03074, .02353, .00011, .00003, + .00000, .00009, .00007, + .12129, .02894, .02018, .00011, .00003, + .00000, .00009, .00007, + .11484, .02732, .01745, .00010, .00003, + .00000, .00008, .00008, + .10837, .02570, .01496, .00010, .00003, + .00000, .00008, .00007 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .10304, .02437, .01310, .00010, .00003, + .00000, .00009, .00006, + .09813, .02315, .01155, .00010, .00003, + .00000, .00008, .00006, + .09442, .02223, .01046, .00010, .00003, + .00000, .00008, .00006, + .08698, .02039, .00848, .00010, .00003, + .00000, .00008, .00006, + .08107, .01893, .00709, .00009, .00003, + .00000, .00007, .00006, + .07496, .01743, .00581, .00007, .00003, + .00000, .00007, .00007, + .06909, .01599, .00475, .00007, .00003, + .00000, .00006, .00006, + .06418, .01480, .00398, .00006, .00003, + .00000, .00006, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05961, .01370, .00335, .00006, .00003, + .00000, .00005, .00006, + .05607, .01285, .00291, .00006, .00003, + .00000, .00005, .00005, + .05209, .01190, .00247, .00006, .00003, + .00000, .00005, .00004, + .04883, .01112, .00215, .00005, .00003, + .00000, .00004, .00004, + .04602, .01045, .00189, .00005, .00003, + .00000, .00004, .00004, + .04272, .00967, .00162, .00004, .00003, + .00000, .00004, .00004, + .03984, .00899, .00141, .00004, .00003, + .00000, .00004, .00004, + .03734, .00840, .00124, .00003, .00003, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03501, .00785, .00110, .00002, .00003, + .00000, .00003, .00003, + .03286, .00735, .00098, .00003, .00003, + .00000, .00003, .00002, + .03096, .00691, .00088, .00003, .00003, + .00000, .00003, .00002, + .02929, .00652, .00080, .00003, .00003, + .00000, .00003, .00002, + .02770, .00615, .00073, .00003, .00003, + .00000, .00002, .00002, + .02623, .00581, .00067, .00002, .00002, + .00000, .00002, .00002, + .02491, .00551, .00061, .00002, .00002, + .00000, .00002, .00002, + .02372, .00524, .00057, .00002, .00002, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .02259, .00498, .00052, .00002, .00002, + .00000, .00002, .00002, + .02153, .00473, .00049, .00002, .00002, + .00000, .00002, .00002, + .02057, .00451, .00046, .00002, .00002, + .00000, .00002, .00002, + .01970, .00431, .00043, .00001, .00002, + .00000, .00002, .00002, + .01885, .00412, .00040, .00001, .00002, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .11224, .02531, .02174, .00004, .00000, + .00000, .00001, .00000, + .10532, .02367, .01833, .00003, .00000, + .00000, .00002, .00001, + .09580, .02142, .01425, .00003, .00000, + .00000, .00002, .00002, + .08936, .01992, .01185, .00004, .00000, + .00000, .00003, .00003, + .08307, .01844, .00976, .00004, .00000, + .00000, .00002, .00002, + .07799, .01725, .00827, .00004, .00000, + .00000, .00002, .00002, + .07339, .01619, .00707, .00004, .00000, + .00000, .00002, .00002, + .06882, .01514, .00600, .00004, .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=9,16)/ + .06508, .01428, .00521, .00003, .00000, + .00000, .00002, .00002, + .06166, .01349, .00456, .00003, .00000, + .00000, .00002, .00002, + .05909, .01290, .00410, .00004, .00000, + .00000, .00002, .00002, + .05397, .01173, .00328, .00003, .00000, + .00000, .00002, .00002, + .04993, .01082, .00272, .00002, .00000, + .00000, .00002, .00002, + .04577, .00988, .00221, .00002, .00000, + .00000, .00002, .00002, + .04183, .00899, .00179, .00002, .00000, + .00000, .00002, .00002, + .03856, .00826, .00150, .00003, .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)/ + .03555, .00759, .00125, .00003, .00000, + .00000, .00002, .00001, + .03324, .00708, .00108, .00002, .00000, + .00000, .00001, .00002, + .03065, .00650, .00092, .00002, .00000, + .00000, .00001, .00002, + .02854, .00604, .00079, .00002, .00000, + .00000, .00001, .00001, + .02675, .00564, .00070, .00001, .00000, + .00000, .00001, .00001, + .02464, .00518, .00060, .00001, .00000, + .00000, .00001, .00001, + .02282, .00479, .00052, .00001, .00000, + .00000, .00001, .00001, + .02125, .00444, .00046, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01980, .00413, .00041, .00001, .00000, + .00000, .00001, .00001, + .01847, .00384, .00036, .00001, .00000, + .00000, .00001, .00001, + .01730, .00359, .00033, .00001, .00000, + .00000, .00001, .00001, + .01628, .00337, .00030, .00001, .00000, + .00000, .00001, .00001, + .01531, .00316, .00027, .00001, .00000, + .00000, .00001, .00001, + .01442, .00297, .00025, .00001, .00000, + .00000, .00001, .00001, + .01363, .00280, .00023, .00001, .00000, + .00000, .00001, .00001, + .01293, .00265, .00021, .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=33,37)/ + .01226, .00251, .00020, .00001, .00000, + .00000, .00001, .00000, + .01162, .00238, .00018, .00001, .00000, + .00000, .00000, .00000, + .01106, .00226, .00017, .00000, .00000, + .00000, .00000, .00000, + .01054, .00215, .00016, .00000, .00000, + .00000, .00000, .00000, + .01005, .00204, .00015, .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)/ + .06802, .01409, .00799, .00001, .00000, + .00000, -.00001, .00000, + .06336, .01309, .00664, .00002, .00000, + .00000, .00000, .00000, + .05701, .01172, .00506, .00002, .00000, + .00000, .00000, .00000, + .05277, .01081, .00415, .00003, .00000, + .00000, .00000, .00000, + .04866, .00993, .00337, .00002, .00000, + .00000, .00000, .00000, + .04537, .00923, .00283, .00002, .00000, + .00000, .00000, .00000, + .04241, .00860, .00239, .00001, .00000, + .00000, .00000, .00000, + .03949, .00799, .00201, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .03712, .00749, .00173, .00001, .00000, + .00000, .00000, .00000, + .03497, .00703, .00150, .00001, .00000, + .00000, .00000, .00000, + .03336, .00670, .00135, .00001, .00000, + .00000, .00000, .00000, + .03017, .00603, .00107, .00001, .00000, + .00000, .00000, .00000, + .02767, .00551, .00088, .00001, .00000, + .00000, .00000, .00000, + .02513, .00499, .00071, .00001, .00000, + .00000, .00000, .00000, + .02276, .00450, .00057, .00001, .00000, + .00000, .00000, .00000, + .02081, .00410, .00048, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01901, .00374, .00040, .00001, .00000, + .00000, .00000, .00000, + .01765, .00346, .00035, .00001, .00000, + .00000, .00000, .00000, + .01614, .00315, .00029, .00001, .00000, + .00000, .00000, .00000, + .01493, .00291, .00025, .00000, .00000, + .00000, .00000, .00000, + .01389, .00270, .00022, .00001, .00000, + .00000, .00000, .00000, + .01269, .00246, .00019, .00000, .00000, + .00000, .00000, .00000, + .01167, .00225, .00017, .00000, .00000, + .00000, .00000, .00000, + .01078, .00208, .00015, .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)/ + .00997, .00192, .00013, .00000, .00000, + .00000, .00000, .00000, + .00924, .00177, .00012, .00000, .00000, + .00000, .00000, .00000, + .00860, .00164, .00011, .00000, .00000, + .00000, .00000, .00000, + .00804, .00153, .00010, .00000, .00000, + .00000, .00000, .00000, + .00752, .00143, .00009, .00000, .00000, + .00000, .00000, .00000, + .00705, .00134, .00008, .00000, .00000, + .00000, .00000, .00000, + .00662, .00125, .00007, .00000, .00000, + .00000, .00000, .00000, + .00625, .00118, .00007, .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)/ + .00589, .00111, .00006, .00000, .00000, + .00000, .00000, .00000, + .00556, .00105, .00006, .00000, .00000, + .00000, .00000, .00000, + .00526, .00099, .00006, .00000, .00000, + .00000, .00000, .00000, + .00499, .00094, .00005, .00000, .00000, + .00000, .00000, .00000, + .00474, .00089, .00005, .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)/ + .03588, .00672, .00226, .00000, .00000, + .00000, .00000, .00000, + .03315, .00619, .00185, .00000, .00000, + .00000, .00000, .00000, + .02946, .00548, .00138, .00000, .00000, + .00000, .00000, .00000, + .02703, .00501, .00112, .00000, .00000, + .00000, .00000, .00000, + .02468, .00456, .00090, .00000, .00000, + .00000, .00000, .00000, + .02283, .00420, .00075, .00000, .00000, + .00000, .00000, .00000, + .02117, .00389, .00063, .00000, .00000, + .00000, .00000, .00000, + .01956, .00358, .00052, .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)/ + .01826, .00333, .00045, .00000, .00000, + .00000, .00000, .00000, + .01708, .00311, .00039, .00000, .00000, + .00000, .00000, .00000, + .01621, .00295, .00035, .00000, .00000, + .00000, .00000, .00000, + .01449, .00263, .00027, .00000, .00000, + .00000, .00000, .00000, + .01316, .00238, .00022, .00000, .00000, + .00000, .00000, .00000, + .01183, .00213, .00018, .00000, .00000, + .00000, .00000, .00000, + .01059, .00190, .00015, .00000, .00000, + .00000, .00000, .00000, + .00959, .00171, .00012, .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)/ + .00868, .00155, .00010, .00000, .00000, + .00000, .00000, .00000, + .00799, .00142, .00009, .00000, .00000, + .00000, .00000, .00000, + .00723, .00128, .00008, .00000, .00000, + .00000, .00000, .00000, + .00663, .00117, .00007, .00000, .00000, + .00000, .00000, .00000, + .00613, .00108, .00006, .00000, .00000, + .00000, .00000, .00000, + .00554, .00097, .00005, .00000, .00000, + .00000, .00000, .00000, + .00505, .00088, .00004, .00000, .00000, + .00000, .00000, .00000, + .00462, .00081, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00424, .00074, .00004, .00000, .00000, + .00000, .00000, .00000, + .00390, .00068, .00003, .00000, .00000, + .00000, .00000, .00000, + .00360, .00063, .00003, .00000, .00000, + .00000, .00000, .00000, + .00334, .00058, .00003, .00000, .00000, + .00000, .00000, .00000, + .00311, .00054, .00002, .00000, .00000, + .00000, .00000, .00000, + .00289, .00050, .00002, .00000, .00000, + .00000, .00000, .00000, + .00270, .00046, .00002, .00000, .00000, + .00000, .00000, .00000, + .00253, .00043, .00002, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00237, .00041, .00002, .00000, .00000, + .00000, .00000, .00000, + .00222, .00038, .00002, .00000, .00000, + .00000, .00000, .00000, + .00209, .00036, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00034, .00001, .00000, .00000, + .00000, .00000, .00000, + .00186, .00032, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00449, .00064, .00004, .00000, .00000, + .00000, .00000, .00000, + .00405, .00057, .00003, .00000, .00000, + .00000, .00000, .00000, + .00347, .00049, .00002, .00000, .00000, + .00000, .00000, .00000, + .00310, .00044, .00002, .00000, .00000, + .00000, .00000, .00000, + .00276, .00039, .00002, .00000, .00000, + .00000, .00000, .00000, + .00249, .00035, .00001, .00000, .00000, + .00000, .00000, .00000, + .00226, .00031, .00001, .00000, .00000, + .00000, .00000, .00000, + .00204, .00028, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00186, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00171, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00160, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00138, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00122, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00106, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00092, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00081, .00011, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00071, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00064, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00051, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00046, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00040, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00036, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00032, .00004, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00029, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='lo09a.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