#include "pdf/pilot.h" subroutine sfmrs_99a9(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)/ + .00524, .00225, 1.11507, .91673, .00000, + .00000, .43325, .92916, + .00541, .00231, 2.38593, .95124, .00000, + .00000, .47390, .96375, + .00565, .00241, 4.88911, 1.02724, .00000, + .00000, .55860, 1.03984, + .00582, .00249, 7.22930, 1.10088, .04540, + .00000, .63830, 1.11354, + .00601, .00257, 10.05464, 1.19630, .15607, + .00000, .73982, 1.20900, + .00617, .00264, 12.97012, 1.29483, .26204, + .00000, .84348, 1.30757, + .00632, .00271, 16.24274, 1.40201, .37896, + .00000, .95547, 1.41478, + .00648, .00279, 20.25854, 1.53030, .52072, + .00000, 1.08873, 1.54311 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00663, .00285, 24.17170, 1.65622, .65343, + .00000, 1.21886, 1.66904, + .00677, .00292, 28.37326, 1.78997, .79473, + .00000, 1.35661, 1.80282, + .00688, .00297, 32.05407, 1.90447, .91807, + .00000, 1.47420, 1.91732, + .00712, .00308, 40.57703, 2.17721, 1.20547, + .02267, 1.75337, 2.19008, + .00732, .00318, 48.59679, 2.44136, 1.48125, + .34670, 2.02287, 2.45424, + .00756, .00329, 58.72475, 2.77219, 1.82688, + .74567, 2.35952, 2.78507, + .00780, .00341, 70.64552, 3.15679, 2.22779, + 1.16491, 2.75001, 3.16967, + .00803, .00352, 82.70376, 3.54281, 2.62948, + 1.58516, 3.14121, 3.55567 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00826, .00363, 96.13752, 3.97051, 3.07427, + 2.04863, 3.57401, 3.98336, + .00845, .00373, 108.22611, 4.35525, 3.47240, + 2.45877, 3.96288, 4.36809, + .00868, .00384, 124.03743, 4.85895, 3.99182, + 2.99179, 4.47149, 4.87177, + .00889, .00395, 139.18558, 5.34060, 4.48917, + 3.50449, 4.95738, 5.35340, + .00909, .00405, 154.05742, 5.81329, 4.97738, + 4.00810, 5.43387, 5.82607, + .00934, .00417, 174.06555, 6.45391, 5.63494, + 4.67988, 6.07920, 6.46665, + .00957, .00429, 194.26398, 7.10182, 6.30046, + 5.36164, 6.73144, 7.11453, + .00979, .00440, 214.50067, 7.75156, 6.96900, + 6.04885, 7.38514, 7.76423 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01002, .00452, 235.61906, 8.43742, 7.67005, + 6.76241, 8.07489, 8.45006, + .01024, .00463, 257.52185, 9.15027, 8.40007, + 7.50843, 8.79146, 9.16287, + .01045, .00474, 279.31253, 9.86294, 9.12959, + 8.25385, 9.50759, 9.87551, + .01065, .00485, 300.58368, 10.56513, 9.84621, + 8.98322, 10.21299, 10.57766, + .01086, .00495, 323.06915, 11.30837, 10.60650, + 9.76005, 10.95939, 11.32087, + .01106, .00506, 345.73203, 12.06667, 11.37879, + 10.54457, 11.72074, 12.07913, + .01125, .00516, 368.37097, 12.82443, 12.15279, + 11.33447, 12.48136, 12.83686, + .01144, .00526, 390.16098, 13.56290, 12.90404, + 12.09701, 13.22250, 13.57529 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01163, .00535, 413.08563, 14.34101, 13.69720, + 12.90463, 14.00325, 14.35336, + .01181, .00545, 436.19785, 15.13305, 14.50293, + 13.72307, 14.79787, 15.14537, + .01199, .00555, 458.92014, 15.91600, 15.29935, + 14.53222, 15.58324, 15.92828, + .01217, .00564, 481.15384, 16.68521, 16.08232, + 15.32866, 16.35472, 16.69745, + .01234, .00573, 503.88434, 17.48048, 16.88959, + 16.14695, 17.15225, 17.49269 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00708, .00307, 1.04011, .77621, .00000, + .00000, .36687, .78339, + .00730, .00317, 2.18517, .80835, .00000, + .00000, .40381, .81557, + .00764, .00332, 4.39208, .87572, .00000, + .00000, .47799, .88299, + .00788, .00343, 6.41419, .93928, .03864, + .00000, .54628, .94658, + .00814, .00355, 8.81468, 1.02017, .13234, + .00000, .63194, 1.02750, + .00836, .00365, 11.25605, 1.10257, .22094, + .00000, .71834, 1.10992, + .00857, .00375, 13.96372, 1.19142, .31773, + .00000, .81093, 1.19879, + .00880, .00386, 17.24739, 1.29689, .43405, + .00000, .92026, 1.30427 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00900, .00396, 20.41074, 1.39947, .54195, + .00000, 1.02612, 1.40687, + .00920, .00405, 23.77456, 1.50770, .65602, + .00000, 1.13744, 1.51510, + .00935, .00413, 26.69842, 1.59986, .75502, + .00000, 1.23201, 1.60727, + .00968, .00429, 33.38902, 1.81755, .98368, + .01852, 1.45469, 1.82497, + .00996, .00443, 39.59538, 2.02639, 1.20093, + .27322, 1.66767, 2.03381, + .01029, .00459, 47.33649, 2.28562, 1.47070, + .58488, 1.93141, 2.29305, + .01062, .00476, 56.33228, 2.58417, 1.78060, + .90858, 2.23451, 2.59160, + .01093, .00492, 65.32340, 2.88116, 2.08830, + 1.23006, 2.53552, 2.88859 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01125, .00508, 75.23013, 3.20752, 2.42619, + 1.58154, 2.86582, 3.21494, + .01151, .00521, 84.05628, 3.49888, 2.72630, + 1.89008, 3.16037, 3.50630, + .01183, .00537, 95.48808, 3.87748, 3.11491, + 2.28799, 3.54275, 3.88489, + .01211, .00552, 106.33683, 4.23687, 3.48432, + 2.66797, 3.90541, 4.24427, + .01238, .00566, 116.89914, 4.58730, 3.84463, + 3.03880, 4.25877, 4.59470, + .01272, .00583, 130.97639, 5.05875, 4.32633, + 3.52968, 4.73386, 5.06613, + .01304, .00600, 145.05559, 5.53209, 4.81037, + 4.02430, 5.21054, 5.53946, + .01334, .00616, 159.04370, 6.00362, 5.29347, + 4.51972, 5.68514, 6.01098 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01364, .00632, 173.51248, 6.49792, 5.79648, + 5.03032, 6.18243, 6.50526, + .01394, .00648, 188.40450, 7.00854, 6.31720, + 5.56110, 6.69592, 7.01587, + .01423, .00663, 203.11081, 7.51600, 6.83454, + 6.08838, 7.20605, 7.52332, + .01450, .00677, 217.36116, 8.01310, 7.33975, + 6.60121, 7.70561, 8.02040, + .01478, .00692, 232.33342, 8.53662, 7.87322, + 7.14495, 8.23158, 8.54391, + .01505, .00706, 247.31435, 9.06772, 8.41195, + 7.69074, 8.76503, 9.07499, + .01531, .00720, 262.19849, 9.59605, 8.94960, + 8.23810, 9.29557, 9.60331, + .01556, .00733, 276.42926, 10.10825, 9.46867, + 8.76356, 9.80983, 10.11550 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01581, .00747, 291.32748, 10.64572, 10.01457, + 9.31805, 10.34934, 10.65295, + .01606, .00760, 306.25809, 11.19023, 10.56648, + 9.87724, 10.89584, 11.19745, + .01630, .00773, 320.86191, 11.72624, 11.10979, + 10.42786, 11.43371, 11.73344, + .01653, .00785, 335.08524, 12.25082, 11.64195, + 10.96788, 11.96005, 12.25801, + .01677, .00798, 349.54446, 12.79079, 12.18817, + 11.52014, 12.50177, 12.79796 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00955, .00419, .97124, .65697, .00000, + .00000, .31075, .66050, + .00987, .00434, 2.00252, .68662, .00000, + .00000, .34416, .69017, + .01033, .00456, 3.94679, .74620, .00000, + .00000, .40905, .74978, + .01067, .00473, 5.69200, .80103, .03287, + .00000, .46757, .80461, + .01103, .00490, 7.72829, .86957, .11219, + .00000, .53982, .87316, + .01134, .00505, 9.76873, .93843, .18622, + .00000, .61178, .94204, + .01164, .00520, 12.00411, 1.01200, .26631, + .00000, .68826, 1.01562, + .01195, .00536, 14.68262, 1.09859, .36168, + .00000, .77784, 1.10221 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01223, .00550, 17.23293, 1.18202, .44934, + .00000, .86381, 1.18565, + .01250, .00564, 19.91822, 1.26941, .54133, + .00000, .95359, 1.27304, + .01271, .00574, 22.23371, 1.34344, .62070, + .00000, 1.02948, 1.34707, + .01316, .00598, 27.46826, 1.51675, .80239, + .01512, 1.20664, 1.52038, + .01356, .00618, 32.25300, 1.68138, .97327, + .21521, 1.37448, 1.68502, + .01400, .00641, 38.14560, 1.88388, 1.18348, + .45855, 1.58045, 1.88753, + .01446, .00665, 44.90436, 2.11484, 1.42257, + .70831, 1.81491, 2.11849, + .01488, .00687, 51.57720, 2.34250, 1.65779, + .95403, 2.04566, 2.34616 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01531, .00710, 58.84702, 2.59057, 1.91387, + 1.22031, 2.29675, 2.59423, + .01567, .00728, 65.25777, 2.81031, 2.13954, + 1.45215, 2.51895, 2.81397, + .01611, .00752, 73.47825, 3.09367, 2.42951, + 1.74880, 2.80520, 3.09733, + .01650, .00772, 81.20396, 3.36064, 2.70311, + 2.02999, 3.07469, 3.36431, + .01686, .00791, 88.66174, 3.61925, 2.96823, + 2.30261, 3.33554, 3.62291, + .01732, .00816, 98.50539, 3.96456, 3.31998, + 2.66064, 3.68364, 3.96823, + .01775, .00839, 108.25667, 4.30867, 3.67084, + 3.01876, 4.03031, 4.31233, + .01816, .00861, 117.86207, 4.64915, 4.01871, + 3.37514, 4.37313, 4.65282 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01857, .00883, 127.70645, 5.00353, 4.37827, + 3.73962, 4.72980, 5.00719, + .01898, .00905, 137.75996, 5.36732, 4.74825, + 4.11628, 5.09580, 5.37099, + .01937, .00926, 147.61273, 5.72670, 5.11365, + 4.48824, 5.45721, 5.73037, + .01973, .00946, 157.08716, 6.07662, 5.46832, + 4.84777, 5.80902, 6.08029, + .02010, .00966, 166.97978, 6.44329, 5.84103, + 5.22720, 6.17756, 6.44696, + .02047, .00986, 176.80305, 6.81308, 6.21515, + 5.60567, 6.54915, 6.81675, + .02082, .01005, 186.50916, 7.17926, 6.58693, + 5.98371, 6.91702, 7.18293, + .02115, .01023, 195.72423, 7.53236, 6.94385, + 6.34450, 7.27168, 7.53603 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02149, .01042, 205.32343, 7.90133, 7.31776, + 6.72382, 7.64222, 7.90500, + .02183, .01060, 214.88344, 8.27331, 7.69392, + 7.10443, 8.01572, 8.27698, + .02215, .01078, 224.18472, 8.63792, 8.06268, + 7.47765, 8.38177, 8.64160, + .02246, .01094, 233.20016, 8.99336, 8.42250, + 7.84235, 8.73855, 8.99704, + .02277, .01112, 242.31064, 9.35757, 8.79010, + 8.21348, 9.10410, 9.36125 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01138, .00503, .93392, .59578, .00000, + .00000, .28205, .59782, + .01177, .00521, 1.90382, .62396, .00000, + .00000, .31349, .62601, + .01233, .00550, 3.70850, .67935, .00000, + .00000, .37348, .68140, + .01275, .00570, 5.30865, .72960, .02990, + .00000, .42692, .73166, + .01318, .00592, 7.15650, .79179, .10183, + .00000, .49231, .79386, + .01355, .00611, 8.99173, .85376, .16845, + .00000, .55695, .85583, + .01391, .00630, 10.98762, .91960, .24011, + .00000, .62529, .92168, + .01430, .00650, 13.36209, .99669, .32499, + .00000, .70496, .99877 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01463, .00667, 15.60710, 1.07055, .40257, + .00000, .78101, 1.07264, + .01495, .00684, 17.95703, 1.14758, .48363, + .00000, .86010, 1.14967, + .01521, .00697, 19.97372, 1.21262, .55333, + .00000, .92674, 1.21471, + .01576, .00726, 24.49977, 1.36408, .71203, + .01343, 1.08151, 1.36618, + .01623, .00751, 28.60038, 1.50710, .86039, + .18709, 1.22728, 1.50921, + .01676, .00779, 33.61220, 1.68206, 1.04187, + .39755, 1.40522, 1.68418, + .01732, .00809, 39.31599, 1.88044, 1.24708, + .61204, 1.60660, 1.88256, + .01783, .00836, 44.90605, 2.07493, 1.44784, + .82189, 1.80373, 2.07706 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01835, .00863, 50.95521, 2.28577, 1.66530, + 1.04811, 2.01717, 2.28791, + .01878, .00886, 56.25687, 2.47167, 1.85604, + 1.24411, 2.20516, 2.47381, + .01930, .00915, 63.01435, 2.71028, 2.09998, + 1.49372, 2.44626, 2.71243, + .01977, .00940, 69.32825, 2.93410, 2.32914, + 1.72928, 2.67222, 2.93626, + .02020, .00963, 75.39213, 3.15005, 2.55033, + 1.95677, 2.89010, 3.15221, + .02075, .00993, 83.34931, 3.43711, 2.84245, + 2.25410, 3.17953, 3.43928, + .02127, .01021, 91.18669, 3.72189, 3.13255, + 2.55021, 3.46649, 3.72406, + .02176, .01048, 98.86726, 4.00254, 3.41905, + 2.84374, 3.74915, 4.00472 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02225, .01075, 106.69511, 4.29338, 3.71387, + 3.14255, 4.04195, 4.29557, + .02273, .01101, 114.65194, 4.59085, 4.01614, + 3.45027, 4.34130, 4.59306, + .02319, .01126, 122.41418, 4.88365, 4.31361, + 3.75306, 4.63584, 4.88586, + .02363, .01150, 129.84366, 5.16772, 4.60129, + 4.04464, 4.92151, 5.16994, + .02407, .01175, 137.57248, 5.46449, 4.90274, + 4.35151, 5.21988, 5.46672, + .02451, .01198, 145.21123, 5.76273, 5.20421, + 4.65644, 5.51965, 5.76496, + .02492, .01221, 152.73439, 6.05726, 5.50305, + 4.96030, 5.81563, 6.05950, + .02532, .01243, 159.84604, 6.34034, 5.78897, + 5.24926, 6.10004, 6.34258 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02572, .01265, 167.23213, 6.63542, 6.08782, + 5.55240, 6.39646, 6.63768, + .02612, .01287, 174.55977, 6.93203, 6.38756, + 5.85562, 6.69437, 6.93430, + .02650, .01309, 181.66635, 7.22203, 6.68067, + 6.15224, 6.98559, 7.22430, + .02687, .01329, 188.53462, 7.50407, 6.96602, + 6.44144, 7.26878, 7.50635, + .02724, .01349, 195.44975, 7.79227, 7.25672, + 6.73487, 7.55813, 7.79457 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01290, .00572, .90888, .55581, .00000, + .00000, .26336, .55703, + .01334, .00595, 1.83741, .58295, .00000, + .00000, .29344, .58418, + .01399, .00628, 3.54883, .63551, .00000, + .00000, .35015, .63674, + .01446, .00652, 5.05294, .68274, .02795, + .00000, .40026, .68398, + .01495, .00678, 6.77699, .74077, .09505, + .00000, .46117, .74201, + .01538, .00700, 8.47832, .79825, .15686, + .00000, .52106, .79949, + .01579, .00722, 10.31886, .85908, .22306, + .00000, .58415, .86033, + .01623, .00745, 12.49725, .93003, .30118, + .00000, .65743, .93129 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01662, .00765, 14.54646, .99774, .37229, + .00000, .72710, .99901, + .01698, .00784, 16.68237, 1.06813, .44637, + .00000, .79934, 1.06940, + .01728, .00800, 18.50912, 1.12743, .50990, + .00000, .86008, 1.12870, + .01790, .00833, 22.58739, 1.26497, .65401, + .01234, 1.00060, 1.26625, + .01844, .00862, 26.25867, 1.39430, .78815, + .16935, 1.13240, 1.39560, + .01905, .00895, 30.72119, 1.55188, .95158, + .35915, 1.29265, 1.55318, + .01969, .00929, 35.77131, 1.72980, 1.13558, + .55163, 1.47326, 1.73111, + .02027, .00960, 40.69457, 1.90354, 1.31488, + .73918, 1.64937, 1.90486 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02086, .00992, 45.99630, 2.09120, 1.50839, + .94060, 1.83936, 2.09254, + .02135, .01019, 50.62225, 2.25611, 1.67753, + 1.11450, 2.00614, 2.25745, + .02194, .01052, 56.49287, 2.46707, 1.89314, + 1.33521, 2.21933, 2.46843, + .02247, .01081, 61.95516, 2.66432, 2.09504, + 1.54285, 2.41849, 2.66569, + .02296, .01107, 67.18176, 2.85409, 2.28937, + 1.74280, 2.60999, 2.85547, + .02359, .01141, 74.01127, 3.10553, 2.54517, + 2.00325, 2.86356, 3.10692, + .02418, .01174, 80.71011, 3.35418, 2.79839, + 2.26181, 3.11416, 3.35558, + .02473, .01204, 87.25063, 3.59851, 3.04776, + 2.51739, 3.36028, 3.59993 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02529, .01235, 93.88946, 3.85092, 3.30356, + 2.77671, 3.61445, 3.85236, + .02584, .01265, 100.61486, 4.10841, 3.56513, + 3.04308, 3.87361, 4.10986, + .02636, .01294, 107.15408, 4.36119, 3.82189, + 3.30451, 4.12795, 4.36265, + .02685, .01322, 113.39166, 4.60579, 4.06955, + 3.55558, 4.37399, 4.60727, + .02735, .01349, 119.86333, 4.86079, 4.32852, + 3.81929, 4.63041, 4.86228, + .02784, .01377, 126.23753, 5.11638, 4.58683, + 4.08060, 4.88738, 5.11788, + .02831, .01403, 132.50072, 5.36831, 4.84241, + 4.34055, 5.14060, 5.36982, + .02876, .01428, 138.40245, 5.60987, 5.08635, + 4.58713, 5.38335, 5.61139 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02921, .01453, 144.51881, 5.86123, 5.34088, + 4.84538, 5.63591, 5.86277, + .02966, .01478, 150.56964, 6.11335, 5.59563, + 5.10314, 5.88919, 6.11491, + .03009, .01502, 156.42438, 6.35940, 5.84428, + 5.35483, 6.13633, 6.36097, + .03051, .01525, 162.07086, 6.59830, 6.08597, + 5.59983, 6.37626, 6.59988, + .03092, .01548, 167.74022, 6.84192, 6.33167, + 5.84787, 6.62090, 6.84352 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01421, .00634, .89036, .52665, .00000, + .00000, .24975, .52737, + .01470, .00659, 1.78800, .55298, .00000, + .00000, .27881, .55371, + .01542, .00696, 3.43021, .60343, .00000, + .00000, .33309, .60416, + .01595, .00724, 4.86351, .64843, .02653, + .00000, .38075, .64917, + .01650, .00753, 6.49679, .70341, .09008, + .00000, .43840, .70416, + .01697, .00778, 8.10045, .75762, .14840, + .00000, .49483, .75837, + .01743, .00802, 9.82816, .81482, .21064, + .00000, .55411, .81558, + .01792, .00828, 11.86473, .88133, .28387, + .00000, .62277, .88210 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01834, .00851, 13.77292, .94460, .35033, + .00000, .68785, .94537, + .01875, .00873, 15.75522, 1.01021, .41939, + .00000, .75516, 1.01099, + .01908, .00890, 17.44606, 1.06538, .47850, + .00000, .81166, 1.06616, + .01977, .00928, 21.20529, 1.19296, .61218, + .01155, .94198, 1.19375, + .02037, .00960, 24.57227, 1.31252, .73619, + .15673, 1.06380, 1.31332, + .02104, .00997, 28.64731, 1.45772, .88680, + .33187, 1.21147, 1.45854, + .02175, .01035, 33.23850, 1.62114, 1.05581, + .50879, 1.37736, 1.62197, + .02239, .01070, 37.69575, 1.78021, 1.21998, + .68064, 1.53862, 1.78106 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02304, .01106, 42.47726, 1.95154, 1.39665, + .86465, 1.71209, 1.95241, + .02358, .01136, 46.63472, 2.10169, 1.55067, + 1.02309, 1.86397, 2.10257, + .02424, .01172, 51.89274, 2.29328, 1.74647, + 1.22364, 2.05760, 2.29418, + .02483, .01204, 56.76890, 2.47197, 1.92937, + 1.41184, 2.23805, 2.47288, + .02537, .01234, 61.42110, 2.64350, 2.10503, + 1.59267, 2.41116, 2.64442, + .02605, .01272, 67.47970, 2.87018, 2.33563, + 1.82758, 2.63980, 2.87112, + .02670, .01308, 73.40303, 3.09378, 2.56335, + 2.06021, 2.86519, 3.09474, + .02732, .01342, 79.16953, 3.31300, 2.78711, + 2.28966, 3.08606, 3.31398 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02793, .01376, 85.00373, 3.53892, 3.01605, + 2.52184, 3.31358, 3.53992, + .02853, .01410, 90.89830, 3.76889, 3.24969, + 2.75986, 3.54510, 3.76991, + .02911, .01442, 96.61463, 3.99421, 3.47857, + 2.99300, 3.77184, 3.99524, + .02965, .01472, 102.05259, 4.21178, 3.69886, + 3.21641, 3.99074, 4.21284, + .03020, .01503, 107.68278, 4.43822, 3.92886, + 3.45072, 4.21849, 4.43930, + .03074, .01533, 113.21310, 4.66473, 4.15778, + 3.68238, 4.44625, 4.66582, + .03126, .01562, 118.63709, 4.88765, 4.38396, + 3.91253, 4.67036, 4.88876, + .03175, .01589, 123.73497, 5.10100, 4.59942, + 4.13038, 4.88481, 5.10213 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03225, .01617, 129.00952, 5.32270, 4.82394, + 4.35828, 5.10760, 5.32384, + .03274, .01645, 134.21579, 5.54470, 5.04826, + 4.58533, 5.33066, 5.54586, + .03321, .01671, 139.24394, 5.76103, 5.26691, + 4.80672, 5.54800, 5.76221, + .03366, .01697, 144.08517, 5.97080, 5.47917, + 5.02197, 5.75871, 5.97200, + .03412, .01722, 148.93529, 6.18438, 5.69458, + 5.23951, 5.97323, 6.18560 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01922, .00871, .83860, .44549, .00000, + .00000, .21203, .44532, + .01990, .00908, 1.64666, .46935, .00000, + .00000, .23804, .46920, + .02091, .00963, 3.09004, .51366, .00000, + .00000, .28538, .51352, + .02164, .01003, 4.32212, .55232, .02252, + .00000, .32614, .55220, + .02240, .01045, 5.70005, .59875, .07618, + .00000, .37466, .59864, + .02306, .01082, 7.03138, .64387, .12476, + .00000, .42153, .64378, + .02369, .01117, 8.44685, .69101, .17608, + .00000, .47030, .69094, + .02437, .01154, 10.09392, .74531, .23591, + .00000, .52628, .74526 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02495, .01187, 11.61763, .79643, .28966, + .00000, .57883, .79640, + .02552, .01219, 13.18375, .84902, .34508, + .00000, .63274, .84900, + .02597, .01244, 14.50823, .89298, .39223, + .00000, .67775, .89298, + .02692, .01297, 17.41410, .99365, .49784, + .00940, .78056, .99368, + .02775, .01343, 19.97463, 1.08696, .59476, + .12299, .87565, 1.08702, + .02867, .01395, 23.03109, 1.19917, .71130, + .25918, .98977, 1.19926, + .02963, .01450, 26.42619, 1.32410, .84068, + .39506, 1.11663, 1.32423, + .03051, .01499, 29.67850, 1.44451, .96512, + .52574, 1.23875, 1.44467 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03140, .01549, 33.12479, 1.57301, 1.09781, + .66437, 1.36891, 1.57321, + .03214, .01591, 36.08778, 1.68467, 1.21250, + .78268, 1.48192, 1.68490, + .03304, .01642, 39.79404, 1.82597, 1.35709, + .93119, 1.62480, 1.82623, + .03383, .01687, 43.19487, 1.95669, 1.49108, + 1.06946, 1.75689, 1.95698, + .03457, .01729, 46.40940, 2.08128, 1.61885, + 1.20137, 1.88271, 2.08161, + .03550, .01782, 50.55047, 2.24459, 1.78520, + 1.37126, 2.04754, 2.24496, + .03638, .01832, 54.55672, 2.40438, 1.94816, + 1.53817, 2.20872, 2.40479, + .03721, .01879, 58.42054, 2.55992, 2.10716, + 1.70166, 2.36555, 2.56037 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03804, .01926, 62.28871, 2.71895, 2.26851, + 1.86568, 2.52581, 2.71943, + .03885, .01973, 66.16357, 2.87976, 2.43212, + 2.03278, 2.68782, 2.88028, + .03962, .02017, 69.88950, 3.03628, 2.59135, + 2.19539, 2.84545, 3.03684, + .04035, .02058, 73.40279, 3.18644, 2.74359, + 2.35013, 2.99663, 3.18703, + .04109, .02100, 77.01593, 3.34188, 2.90171, + 2.51163, 3.15309, 3.34250, + .04181, .02142, 80.53297, 3.49634, 3.05803, + 2.67017, 3.30853, 3.49700, + .04251, .02181, 83.96243, 3.64764, 3.21179, + 2.82702, 3.46075, 3.64834, + .04316, .02219, 87.15832, 3.79156, 3.35733, + 2.97450, 3.60552, 3.79229 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04383, .02256, 90.44739, 3.94047, 3.50837, + 3.12817, 3.75528, 3.94123, + .04449, .02294, 93.66962, 4.08877, 3.65844, + 3.28041, 3.90440, 4.08956, + .04512, .02330, 96.76295, 4.23261, 3.80404, + 3.42818, 4.04903, 4.23344, + .04572, .02364, 99.72530, 4.37151, 3.94482, + 3.57128, 4.18866, 4.37237, + .04632, .02399, 102.67111, 4.51220, 4.08692, + 3.71508, 4.33008, 4.51310 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02607, .01207, .79842, .37727, .00000, + .00000, .18052, .37706, + .02702, .01261, 1.52590, .39873, .00000, + .00000, .20370, .39856, + .02842, .01341, 2.79219, .43745, .00000, + .00000, .24486, .43734, + .02943, .01400, 3.84790, .47054, .01906, + .00000, .27963, .47047, + .03049, .01461, 5.00539, .50960, .06422, + .00000, .32036, .50957, + .03141, .01514, 6.10480, .54700, .10456, + .00000, .35917, .54701, + .03228, .01564, 7.25746, .58567, .14672, + .00000, .39915, .58573, + .03321, .01618, 8.58051, .62979, .19538, + .00000, .44461, .62989 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03402, .01665, 9.78807, .67086, .23866, + .00000, .48683, .67100, + .03480, .01710, 11.01534, .71276, .28292, + .00000, .52979, .71294, + .03542, .01746, 12.04395, .74757, .32034, + .00000, .56544, .74778, + .03673, .01822, 14.26900, .82645, .40332, + .00762, .64604, .82673, + .03786, .01888, 16.19555, .89874, .47862, + .09606, .71975, .89907, + .03913, .01961, 18.46170, .98474, .56820, + .20144, .80728, .98513, + .04045, .02038, 20.94131, 1.07942, .66657, + .30523, .90351, 1.07989, + .04165, .02108, 23.28308, 1.16972, .76019, + .40402, .99517, 1.17025 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04286, .02178, 25.73228, 1.26515, .85907, + .50781, 1.09194, 1.26575, + .04386, .02237, 27.81280, 1.34733, .94376, + .59558, 1.17520, 1.34798, + .04508, .02308, 30.38466, 1.45040, 1.04959, + .70477, 1.27955, 1.45113, + .04616, .02370, 32.71801, 1.54496, 1.14684, + .80560, 1.37520, 1.54574, + .04716, .02428, 34.90164, 1.63441, 1.23890, + .90108, 1.46564, 1.63525, + .04842, .02501, 37.68175, 1.75064, 1.35769, + 1.02293, 1.58309, 1.75155, + .04960, .02571, 40.34114, 1.86340, 1.47308, + 1.14167, 1.69697, 1.86438, + .05072, .02635, 42.88042, 1.97233, 1.58483, + 1.25711, 1.80693, 1.97338 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05183, .02700, 45.39313, 2.08276, 1.69725, + 1.37188, 1.91836, 2.08387, + .05293, .02764, 47.88715, 2.19365, 1.81047, + 1.48803, 2.03021, 2.19483, + .05396, .02824, 50.26330, 2.30085, 1.91991, + 1.60029, 2.13831, 2.30209, + .05494, .02880, 52.48197, 2.40296, 2.02378, + 1.70633, 2.24124, 2.40426, + .05592, .02938, 54.74751, 2.50807, 2.13110, + 1.81644, 2.34718, 2.50944, + .05689, .02994, 56.93035, 2.61179, 2.23641, + 1.92370, 2.45168, 2.61321, + .05782, .03047, 59.04585, 2.71289, 2.33952, + 2.02935, 2.55352, 2.71437, + .05869, .03098, 60.99816, 2.80841, 2.43645, + 2.12798, 2.64974, 2.80994 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05957, .03149, 62.99603, 2.90681, 2.53661, + 2.23034, 2.74882, 2.90839, + .06045, .03200, 64.93672, 3.00422, 2.63552, + 2.33111, 2.84690, 3.00586, + .06128, .03248, 66.78748, 3.09825, 2.73104, + 2.42846, 2.94156, 3.09995, + .06207, .03294, 68.54951, 3.18865, 2.82298, + 2.52234, 3.03255, 3.19039, + .06288, .03340, 70.28646, 3.27969, 2.91524, + 2.61609, 3.12418, 3.28148 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03123, .01470, .78279, .34288, .00000, + .00000, .16469, .34295, + .03239, .01538, 1.46689, .36296, .00000, + .00000, .18631, .36310, + .03408, .01638, 2.63818, .39864, .00000, + .00000, .22415, .39887, + .03531, .01711, 3.60037, .42877, .01724, + .00000, .25577, .42906, + .03660, .01787, 4.64233, .46396, .05797, + .00000, .29245, .46432, + .03770, .01852, 5.62154, .49737, .09405, + .00000, .32711, .49779, + .03876, .01914, 6.63925, .53170, .13151, + .00000, .36260, .53218, + .03989, .01981, 7.79753, .57062, .17449, + .00000, .40272, .57116 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04086, .02038, 8.84585, .60662, .21248, + .00000, .43973, .60721, + .04180, .02094, 9.90383, .64314, .25115, + .00000, .47721, .64379, + .04255, .02138, 10.78562, .67337, .28370, + .00000, .50819, .67407, + .04413, .02232, 12.67622, .74143, .35546, + .00672, .57778, .74223, + .04549, .02312, 14.29517, .80336, .42012, + .08281, .64098, .80424, + .04701, .02402, 16.18208, .87655, .49656, + .17313, .71555, .87752, + .04859, .02495, 18.22735, .95658, .57992, + .26139, .79696, .95764, + .05003, .02580, 20.14179, 1.03240, .65876, + .34488, .87400, 1.03355 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05147, .02665, 22.12769, 1.11205, .74151, + .43205, .95485, 1.11329, + .05268, .02736, 23.80189, 1.18025, .81201, + .50536, 1.02402, 1.18158, + .05413, .02822, 25.85609, 1.26533, .89962, + .59608, 1.11024, 1.26675, + .05542, .02898, 27.70656, 1.34297, .97971, + .67942, 1.18887, 1.34447, + .05661, .02968, 29.42742, 1.41608, 1.05517, + .75797, 1.26287, 1.41765, + .05811, .03056, 31.60191, 1.51055, 1.15201, + .85766, 1.35843, 1.51222, + .05952, .03139, 33.66714, 1.60172, 1.24560, + .95430, 1.45062, 1.60349, + .06084, .03216, 35.62668, 1.68938, 1.33581, + 1.04783, 1.53921, 1.69124 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06216, .03294, 37.55106, 1.77778, 1.42607, + 1.14030, 1.62851, 1.77972, + .06346, .03370, 39.45002, 1.86616, 1.51658, + 1.23350, 1.71777, 1.86819, + .06468, .03442, 41.24856, 1.95124, 1.60370, + 1.32319, 1.80365, 1.95335, + .06584, .03509, 42.91718, 2.03191, 1.68602, + 1.40753, 1.88507, 2.03410, + .06700, .03577, 44.61341, 2.11468, 1.77079, + 1.49482, 1.96859, 2.11695, + .06814, .03644, 46.23659, 2.19598, 1.85358, + 1.57944, 2.05060, 2.19832, + .06923, .03707, 47.80375, 2.27499, 1.93442, + 1.66258, 2.13028, 2.27741, + .07026, .03767, 49.24052, 2.34932, 2.01007, + 1.73983, 2.20524, 2.35181 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07130, .03828, 50.70566, 2.42568, 2.08805, + 1.81980, 2.28223, 2.42824, + .07232, .03888, 52.12072, 2.50100, 2.16476, + 1.89824, 2.35815, 2.50363, + .07330, .03945, 53.46436, 2.57347, 2.23861, + 1.97378, 2.43120, 2.57617, + .07423, .03999, 54.73871, 2.64296, 2.30951, + 2.04643, 2.50123, 2.64572, + .07517, .04053, 55.98736, 2.71268, 2.38038, + 2.11871, 2.57149, 2.71551 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03556, .01700, .77674, .32088, .00000, + .00000, .15456, .32124, + .03689, .01779, 1.43155, .34001, .00000, + .00000, .17510, .34044, + .03883, .01896, 2.53864, .37361, .00000, + .00000, .21070, .37417, + .04025, .01981, 3.43805, .40174, .01603, + .00000, .24021, .40238, + .04172, .02068, 4.40305, .43436, .05382, + .00000, .27421, .43509, + .04298, .02144, 5.30275, .46513, .08708, + .00000, .30613, .46594, + .04419, .02217, 6.23173, .49660, .12145, + .00000, .33868, .49749, + .04548, .02294, 7.28232, .53212, .16073, + .00000, .37531, .53309 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04659, .02360, 8.22722, .56481, .19527, + .00000, .40894, .56585, + .04767, .02425, 9.17585, .59785, .23031, + .00000, .44287, .59896, + .04852, .02476, 9.96321, .62512, .25973, + .00000, .47083, .62628, + .05033, .02584, 11.64012, .68623, .32427, + .00613, .53337, .68751, + .05187, .02676, 13.06412, .74153, .38214, + .07432, .58985, .74292, + .05360, .02779, 14.71239, .80658, .45022, + .15505, .65618, .80808, + .05540, .02886, 16.48641, .87733, .52408, + .23348, .72822, .87895, + .05703, .02983, 18.13585, .94403, .59360, + .30732, .79606, .94577 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05867, .03081, 19.83631, 1.01380, .66627, + .38409, .86695, 1.01564, + .06004, .03162, 21.26170, 1.07329, .72790, + .44838, .92735, 1.07523, + .06169, .03260, 23.00074, 1.14719, .80420, + .52760, 1.00232, 1.14925, + .06315, .03347, 24.55889, 1.21437, .87368, + .60012, 1.07042, 1.21652, + .06449, .03426, 26.00104, 1.27741, .93892, + .66823, 1.13430, 1.27966, + .06618, .03526, 27.81288, 1.35854, 1.02229, + .75431, 1.21645, 1.36090, + .06777, .03620, 29.52437, 1.43653, 1.10256, + .83745, 1.29539, 1.43900, + .06926, .03708, 31.14047, 1.51125, 1.17967, + .91764, 1.37099, 1.51384 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07075, .03796, 32.71831, 1.58630, 1.25649, + .99658, 1.44689, 1.58899, + .07221, .03882, 34.26839, 1.66110, 1.33330, + 1.07591, 1.52251, 1.66389, + .07359, .03963, 35.72988, 1.73286, 1.40699, + 1.15200, 1.59504, 1.73575, + .07488, .04039, 37.07903, 1.80069, 1.47638, + 1.22331, 1.66357, 1.80367, + .07619, .04116, 38.44583, 1.87010, 1.54767, + 1.29695, 1.73368, 1.87318, + .07747, .04191, 39.74676, 1.93804, 1.61705, + 1.36807, 1.80230, 1.94121, + .07869, .04262, 40.99919, 2.00392, 1.68465, + 1.43781, 1.86882, 2.00718, + .07984, .04329, 42.14141, 2.06571, 1.74769, + 1.50239, 1.93120, 2.06905 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08100, .04397, 43.30307, 2.12905, 1.81255, + 1.56913, 1.99513, 2.13247, + .08215, .04464, 44.41993, 2.19134, 1.87618, + 1.63438, 2.05800, 2.19485, + .08324, .04528, 45.47681, 2.25116, 1.93729, + 1.69709, 2.11836, 2.25474, + .08428, .04589, 46.47623, 2.30838, 1.99585, + 1.75729, 2.17610, 2.31204, + .08533, .04649, 47.45072, 2.36564, 2.05422, + 1.81700, 2.23387, 2.36938 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03940, .01918, .77871, .30581, .00000, + .00000, .14744, .30621, + .04088, .02007, 1.41112, .32420, .00000, + .00000, .16714, .32469, + .04305, .02139, 2.46931, .35621, .00000, + .00000, .20100, .35684, + .04463, .02234, 3.32113, .38281, .01512, + .00000, .22889, .38355, + .04626, .02333, 4.22799, .41348, .05067, + .00000, .26084, .41432, + .04767, .02418, 5.06785, .44226, .08181, + .00000, .29069, .44320, + .04902, .02499, 5.93032, .47158, .11387, + .00000, .32102, .47262, + .05045, .02586, 6.90050, .50456, .15037, + .00000, .35503, .50569 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05168, .02660, 7.76852, .53479, .18236, + .00000, .38614, .53601, + .05287, .02732, 8.63616, .56525, .21470, + .00000, .41742, .56655, + .05382, .02789, 9.35380, .59034, .24180, + .00000, .44315, .59170, + .05582, .02909, 10.87364, .64633, .30102, + .00569, .50047, .64783, + .05753, .03012, 12.15519, .69679, .35390, + .06808, .55203, .69841, + .05944, .03126, 13.62998, .75589, .41587, + .14177, .61233, .75764, + .06143, .03245, 15.20792, .81990, .48282, + .21302, .67755, .82180, + .06323, .03353, 16.66681, .88002, .54559, + .27985, .73873, .88204 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06504, .03461, 18.16304, .94265, .61095, + .34906, .80241, .94481, + .06654, .03550, 19.41115, .99589, .66621, + .40683, .85649, .99815, + .06836, .03658, 20.92673, 1.06179, .73438, + .47779, .92340, 1.06419, + .06996, .03754, 22.27855, 1.12151, .79626, + .54252, .98399, 1.12402, + .07143, .03841, 23.52471, 1.17738, .85421, + .60317, 1.04064, 1.18000, + .07329, .03951, 25.08263, 1.24904, .92801, + .67954, 1.11327, 1.25180, + .07503, .04054, 26.54743, 1.31771, .99882, + .75307, 1.18283, 1.32059, + .07667, .04151, 27.92491, 1.38331, 1.06667, + .82380, 1.24925, 1.38631 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07830, .04247, 29.26313, 1.44897, 1.13403, + .89319, 1.31572, 1.45210, + .07989, .04341, 30.57278, 1.51424, 1.20120, + .96273, 1.38176, 1.51748, + .08140, .04429, 31.80276, 1.57669, 1.26548, + 1.02928, 1.44493, 1.58004, + .08281, .04512, 32.93354, 1.63555, 1.32583, + 1.09145, 1.50446, 1.63901, + .08423, .04596, 34.07595, 1.69567, 1.38771, + 1.15554, 1.56524, 1.69923, + .08563, .04677, 35.15788, 1.75434, 1.44775, + 1.21724, 1.62454, 1.75800, + .08696, .04755, 36.19698, 1.81112, 1.50616, + 1.27766, 1.68194, 1.81489, + .08821, .04828, 37.14016, 1.86423, 1.56048, + 1.33344, 1.73560, 1.86809 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08947, .04902, 38.09722, 1.91858, 1.61628, + 1.39099, 1.79052, 1.92254, + .09072, .04975, 39.01365, 1.97191, 1.67088, + 1.44714, 1.84439, 1.97596, + .09191, .05044, 39.87831, 2.02302, 1.72322, + 1.50099, 1.89602, 2.02715, + .09303, .05109, 40.69391, 2.07183, 1.77330, + 1.55260, 1.94532, 2.07605, + .09417, .05175, 41.48587, 2.12056, 1.82308, + 1.60367, 1.99453, 2.12486 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05454, .02826, .80541, .26476, .00000, + .00000, .12819, .26578, + .05663, .02956, 1.37157, .28091, .00000, + .00000, .14542, .28209, + .05968, .03146, 2.28533, .30822, .00000, + .00000, .17425, .30964, + .06189, .03282, 2.99849, .33042, .01251, + .00000, .19751, .33200, + .06417, .03422, 3.73843, .35551, .04173, + .00000, .22367, .35728, + .06612, .03543, 4.40863, .37867, .06693, + .00000, .24771, .38058, + .06799, .03657, 5.08431, .40198, .09254, + .00000, .27186, .40404, + .06997, .03778, 5.83099, .42787, .12136, + .00000, .29862, .43009 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07168, .03883, 6.48745, .45131, .14630, + .00000, .32279, .45366, + .07332, .03983, 7.13405, .47467, .17128, + .00000, .34684, .47715, + .07461, .04062, 7.66265, .49376, .19205, + .00000, .36648, .49635, + .07735, .04228, 8.76110, .53584, .23688, + .00447, .40968, .53865, + .07968, .04369, 9.66511, .57323, .27636, + .05130, .44799, .57622, + .08228, .04526, 10.68520, .61644, .32202, + .10619, .49221, .61963, + .08497, .04687, 11.75491, .66257, .37068, + .15843, .53937, .66598, + .08740, .04833, 12.72512, .70532, .41571, + .20681, .58304, .70892 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08983, .04978, 13.70266, .74932, .46204, + .25632, .62793, .75312, + .09184, .05098, 14.50461, .78628, .50076, + .29718, .66562, .79024, + .09426, .05242, 15.46248, .83153, .54800, + .34681, .71173, .83568, + .09640, .05369, 16.30354, .87208, .59043, + .39163, .75304, .87640, + .09835, .05484, 17.06816, .90966, .62978, + .43322, .79129, .91414, + .10080, .05629, 18.00762, .95730, .67933, + .48501, .83978, .96198, + .10310, .05764, 18.87675, 1.00246, .72638, + .53435, .88571, 1.00732, + .10525, .05890, 19.68255, 1.04518, .77102, + .58137, .92916, 1.05022 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10737, .06015, 20.45109, 1.08745, .81484, + .62696, .97213, 1.09266, + .10945, .06136, 21.19327, 1.12909, .85816, + .67229, 1.01445, 1.13447, + .11141, .06250, 21.88066, 1.16858, .89924, + .71527, 1.05458, 1.17411, + .11324, .06356, 22.50256, 1.20543, .93745, + .75505, 1.09202, 1.21111, + .11508, .06463, 23.12455, 1.24281, .97636, + .79579, 1.12999, 1.24864, + .11688, .06567, 23.70303, 1.27892, 1.01374, + .83462, 1.16667, 1.28489, + .11859, .06666, 24.25408, 1.31367, 1.04989, + .87243, 1.20195, 1.31978, + .12019, .06758, 24.74519, 1.34585, 1.08319, + .90701, 1.23463, 1.35208 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12180, .06851, 25.23965, 1.37860, 1.11721, + .94250, 1.26789, 1.38496, + .12339, .06942, 25.70567, 1.41046, 1.15023, + .97684, 1.30024, 1.41695, + .12490, .07028, 26.14047, 1.44080, 1.18168, + 1.00958, 1.33104, 1.44741, + .12633, .07110, 26.54672, 1.46960, 1.21161, + 1.04078, 1.36029, 1.47633, + .12777, .07191, 26.93410, 1.49811, 1.24110, + 1.07139, 1.38923, 1.50496 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07680, .04282, .88798, .23311, .00000, + .00000, .11315, .23529, + .07976, .04466, 1.38828, .24709, .00000, + .00000, .12805, .24954, + .08407, .04733, 2.16153, .26997, .00000, + .00000, .15224, .27280, + .08715, .04924, 2.74406, .28810, .01019, + .00000, .17129, .29120, + .09032, .05118, 3.33137, .30818, .03383, + .00000, .19230, .31157, + .09303, .05283, 3.84995, .32637, .05385, + .00000, .21126, .32999, + .09560, .05440, 4.36172, .34442, .07391, + .00000, .23004, .34827, + .09832, .05605, 4.91583, .36420, .09619, + .00000, .25059, .36829 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10066, .05746, 5.39336, .38184, .11520, + .00000, .26888, .38614, + .10289, .05881, 5.85567, .39923, .13403, + .00000, .28688, .40372, + .10466, .05988, 6.22848, .41331, .14954, + .00000, .30144, .41796, + .10837, .06209, 6.98590, .44389, .18258, + .00344, .33303, .44887, + .11150, .06396, 7.59079, .47061, .21121, + .03768, .36059, .47587, + .11498, .06602, 8.25751, .50103, .24384, + .07747, .39192, .50658, + .11856, .06813, 8.94007, .53297, .27806, + .11468, .42479, .53884, + .12177, .07002, 9.54480, .56211, .30926, + .14864, .45477, .56826 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12498, .07190, 10.14086, .59168, .34092, + .18292, .48516, .59811, + .12762, .07343, 10.61976, .61618, .36703, + .21084, .51034, .62284, + .13078, .07526, 11.18004, .64577, .39847, + .24434, .54072, .65270, + .13355, .07686, 11.66240, .67195, .42637, + .27424, .56761, .67912, + .13608, .07832, 12.09321, .69595, .45197, + .30169, .59223, .70333, + .13924, .08012, 12.61039, .72595, .48377, + .33542, .62302, .73360, + .14218, .08180, 13.07889, .75401, .51359, + .36718, .65182, .76192, + .14492, .08336, 13.50533, .78026, .54158, + .39713, .67875, .78840 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14761, .08489, 13.90146, .80585, .56867, + .42577, .70501, .81423, + .15024, .08636, 14.27725, .83081, .59519, + .45397, .73061, .83940, + .15270, .08775, 14.61864, .85422, .62008, + .48044, .75463, .86302, + .15499, .08903, 14.92014, .87580, .64296, + .50467, .77677, .88479, + .15729, .09031, 15.21765, .89750, .66609, + .52931, .79904, .90669, + .15952, .09155, 15.48652, .91820, .68802, + .55250, .82029, .92758, + .16163, .09272, 15.73996, .93798, .70910, + .57495, .84059, .94754, + .16360, .09381, 15.95885, .95607, .72828, + .59524, .85916, .96579 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16559, .09490, 16.17686, .97436, .74777, + .61595, .87795, .98425, + .16753, .09597, 16.37712, .99197, .76648, + .63579, .89603, 1.00202, + .16937, .09698, 16.56075, 1.00859, .78417, + .65456, .91310, 1.01879, + .17110, .09793, 16.72968, 1.02426, .80089, + .67234, .92920, 1.03461, + .17284, .09887, 16.88521, 1.03959, .81719, + .68960, .94496, 1.05008 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09481, .05514, .97078, .21803, .00000, + .00000, .10602, .22147, + .09843, .05736, 1.42811, .23073, .00000, + .00000, .11960, .23450, + .10366, .06056, 2.11801, .25107, .00000, + .00000, .14121, .25534, + .10740, .06283, 2.62589, .26694, .00896, + .00000, .15797, .27156, + .11122, .06514, 3.12842, .28428, .02963, + .00000, .17621, .28926, + .11447, .06709, 3.56491, .29979, .04694, + .00000, .19248, .30507, + .11756, .06893, 3.98965, .31505, .06411, + .00000, .20845, .32062, + .12081, .07087, 4.44336, .33162, .08303, + .00000, .22577, .33749 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12359, .07251, 4.82921, .34626, .09901, + .00000, .24104, .35238, + .12624, .07408, 5.19851, .36056, .11474, + .00000, .25596, .36693, + .12834, .07531, 5.49362, .37208, .12762, + .00000, .26795, .37865, + .13272, .07787, 6.08367, .39687, .15479, + .00292, .29373, .40383, + .13640, .08001, 6.54492, .41829, .17809, + .03098, .31598, .42559, + .14048, .08237, 7.04489, .44241, .20439, + .06342, .34101, .45008, + .14465, .08476, 7.54807, .46747, .23169, + .09340, .36701, .47552, + .14838, .08689, 7.98654, .49009, .25633, + .12050, .39046, .49847 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15209, .08900, 8.41205, .51280, .28109, + .14762, .41401, .52152, + .15513, .09072, 8.74862, .53146, .30135, + .16952, .43334, .54045, + .15876, .09276, 9.13640, .55378, .32552, + .19557, .45647, .56309, + .16193, .09454, 9.46525, .57336, .34680, + .21865, .47675, .58295, + .16482, .09614, 9.75488, .59116, .36619, + .23969, .49520, .60101, + .16840, .09813, 10.09633, .61319, .39004, + .26532, .51803, .62336, + .17173, .09996, 10.40051, .63362, .41222, + .28925, .53921, .64408, + .17482, .10166, 10.67329, .65258, .43290, + .31167, .55886, .66330 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17785, .10331, 10.92080, .67087, .45271, + .33292, .57783, .68185, + .18078, .10491, 11.15212, .68857, .47198, + .35370, .59619, .69980, + .18353, .10639, 11.35874, .70505, .48993, + .37309, .61329, .71652, + .18608, .10776, 11.53723, .72010, .50630, + .39069, .62892, .73179, + .18863, .10913, 11.71141, .73516, .52277, + .40850, .64455, .74706, + .19108, .11044, 11.86421, .74937, .53824, + .42512, .65932, .76147, + .19341, .11168, 12.00701, .76288, .55305, + .44116, .67338, .77519, + .19558, .11282, 12.12629, .77512, .56641, + .45553, .68611, .78761 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19775, .11397, 12.24398, .78744, .57992, + .47014, .69893, .80011, + .19986, .11508, 12.34867, .79919, .59281, + .48404, .71117, .81204, + .20186, .11613, 12.44269, .81023, .60492, + .49713, .72267, .82323, + .20375, .11712, 12.52772, .82057, .61632, + .50948, .73346, .83374, + .20563, .11809, 12.60244, .83059, .62733, + .52137, .74392, .84391 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11075, .06621, 1.04773, .20869, .00000, + .00000, .10165, .21342, + .11491, .06873, 1.47173, .22043, .00000, + .00000, .11427, .22556, + .12090, .07232, 2.10045, .23896, .00000, + .00000, .13407, .24468, + .12516, .07486, 2.55521, .25324, .00813, + .00000, .14925, .25938, + .12950, .07742, 2.99868, .26869, .02680, + .00000, .16561, .27525, + .13318, .07958, 3.37909, .28239, .04230, + .00000, .18007, .28930, + .13667, .08162, 3.74524, .29576, .05757, + .00000, .19416, .30300, + .14033, .08375, 4.13229, .31017, .07427, + .00000, .20934, .31777 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14346, .08556, 4.45806, .32281, .08829, + .00000, .22263, .33070, + .14644, .08727, 4.76705, .33509, .10199, + .00000, .23552, .34326, + .14878, .08862, 5.01220, .34493, .11317, + .00000, .24585, .35332, + .15367, .09140, 5.49604, .36594, .13658, + .00257, .26787, .37479, + .15777, .09372, 5.86740, .38394, .15650, + .02671, .28673, .39317, + .16228, .09626, 6.26450, .40405, .17881, + .05450, .30777, .41370, + .16689, .09883, 6.65855, .42475, .20177, + .07995, .32943, .43482, + .17099, .10111, 6.99712, .44329, .22234, + .10279, .34882, .45373 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17506, .10335, 7.32130, .46175, .24287, + .12549, .36814, .47256, + .17838, .10517, 7.57429, .47680, .25954, + .14370, .38389, .48791, + .18233, .10733, 7.86175, .49467, .27930, + .16522, .40259, .50613, + .18578, .10919, 8.10230, .51023, .29659, + .18418, .41888, .52200, + .18890, .11087, 8.31159, .52429, .31225, + .20137, .43361, .53633, + .19277, .11295, 8.55400, .54155, .33137, + .22215, .45169, .55393, + .19635, .11485, 8.76654, .55743, .34904, + .24146, .46834, .57012, + .19967, .11661, 8.95448, .57207, .36542, + .25944, .48370, .58505 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20290, .11831, 9.12095, .58607, .38099, + .27635, .49841, .59933, + .20603, .11994, 9.27419, .59953, .39604, + .29282, .51255, .61306, + .20894, .12146, 9.40864, .61198, .41000, + .30809, .52565, .62575, + .21164, .12286, 9.52187, .62326, .42264, + .32188, .53753, .63726, + .21433, .12425, 9.63105, .63449, .43530, + .33578, .54936, .64872, + .21692, .12557, 9.72340, .64500, .44710, + .34867, .56045, .65944, + .21937, .12682, 9.80892, .65495, .45837, + .36106, .57096, .66960, + .22163, .12796, 9.87717, .66388, .46846, + .37209, .58040, .67871 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22390, .12911, 9.94376, .67284, .47863, + .38328, .58988, .68785, + .22610, .13022, 10.00038, .68131, .48826, + .39386, .59886, .69651, + .22818, .13126, 10.04972, .68923, .49728, + .40378, .60725, .70459, + .23013, .13224, 10.09319, .69661, .50574, + .41311, .61510, .71213, + .23207, .13320, 10.12839, .70370, .51385, + .42203, .62264, .71937 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12539, .07642, 1.11663, .20198, .00000, + .00000, .09856, .20805, + .13001, .07915, 1.51318, .21295, .00000, + .00000, .11043, .21948, + .13664, .08305, 2.09283, .23005, .00000, + .00000, .12884, .23724, + .14134, .08578, 2.50605, .24310, .00750, + .00000, .14281, .25076, + .14611, .08854, 2.90417, .25710, .02468, + .00000, .15774, .26523, + .15014, .09086, 3.24216, .26941, .03883, + .00000, .17084, .27792, + .15396, .09304, 3.56453, .28136, .05269, + .00000, .18353, .29024, + .15795, .09530, 3.90234, .29416, .06777, + .00000, .19712, .30344 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16136, .09722, 4.18415, .30532, .08035, + .00000, .20895, .31492, + .16459, .09904, 4.44943, .31610, .09259, + .00000, .22037, .32601, + .16713, .10046, 4.65866, .32471, .10253, + .00000, .22948, .33486, + .17242, .10340, 5.06683, .34297, .12325, + .00232, .24879, .35362, + .17684, .10583, 5.37489, .35851, .14075, + .02366, .26521, .36957, + .18169, .10848, 5.70050, .37574, .16022, + .04814, .28341, .38725, + .18662, .11116, 6.01951, .39334, .18013, + .07039, .30200, .40530, + .19100, .11352, 6.29002, .40897, .19785, + .09024, .31853, .42133 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19534, .11584, 6.54588, .42445, .21543, + .10986, .33490, .43721, + .19887, .11771, 6.74307, .43698, .22962, + .12551, .34815, .45006, + .20305, .11992, 6.96398, .45176, .24635, + .14391, .36380, .46521, + .20669, .12183, 7.14652, .46456, .26091, + .16004, .37735, .47832, + .20997, .12354, 7.30353, .47605, .27403, + .17460, .38953, .49010, + .21403, .12564, 7.48205, .49005, .28996, + .19210, .40440, .50445, + .21777, .12757, 7.63597, .50285, .30459, + .20828, .41799, .51757, + .22123, .12934, 7.77005, .51458, .31808, + .22327, .43047, .52959 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22459, .13104, 7.88566, .52570, .33083, + .23729, .44232, .54100, + .22783, .13267, 7.99031, .53633, .34310, + .25089, .45366, .55191, + .23085, .13418, 8.08024, .54611, .35441, + .26345, .46411, .56193, + .23363, .13556, 8.15341, .55490, .36459, + .27472, .47352, .57095, + .23640, .13693, 8.22286, .56362, .37476, + .28605, .48286, .57989, + .23904, .13824, 8.27870, .57170, .38418, + .29650, .49154, .58818, + .24155, .13946, 8.32982, .57933, .39315, + .30651, .49975, .59602, + .24385, .14058, 8.36785, .58611, .40113, + .31538, .50705, .60297 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24617, .14170, 8.40435, .59288, .40915, + .32435, .51437, .60993, + .24840, .14278, 8.43287, .59924, .41670, + .33279, .52125, .61647, + .25051, .14378, 8.45623, .60514, .42374, + .34068, .52766, .62254, + .25249, .14473, 8.47574, .61063, .43032, + .34808, .53362, .62818, + .25444, .14565, 8.48851, .61584, .43659, + .35512, .53930, .63354 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15221, .09496, 1.23390, .19241, .00000, + .00000, .09430, .20121, + .15756, .09801, 1.58534, .20213, .00000, + .00000, .10499, .21148, + .16521, .10231, 2.08751, .21700, .00000, + .00000, .12125, .22713, + .17061, .10532, 2.43716, .22817, .00658, + .00000, .13341, .23883, + .17604, .10832, 2.76720, .23998, .02158, + .00000, .14623, .25119, + .18062, .11083, 3.04278, .25024, .03378, + .00000, .15734, .26189, + .18494, .11318, 3.30171, .26010, .04562, + .00000, .16800, .27217, + .18944, .11561, 3.56910, .27055, .05838, + .00000, .17931, .28307 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19325, .11766, 3.78889, .27957, .06892, + .00000, .18905, .29245, + .19687, .11959, 3.99307, .28821, .07910, + .00000, .19837, .30143, + .19970, .12109, 4.15248, .29507, .08733, + .00000, .20577, .30855, + .20556, .12418, 4.45712, .30945, .10428, + .00197, .22129, .32348, + .21042, .12672, 4.67995, .32154, .11846, + .01944, .23432, .33601, + .21573, .12947, 4.91020, .33478, .13407, + .03938, .24861, .34974, + .22111, .13222, 5.13056, .34813, .14985, + .05730, .26303, .36357, + .22585, .13463, 5.31292, .35984, .16374, + .07312, .27569, .37570 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23052, .13698, 5.48127, .37129, .17739, + .08861, .28810, .38756, + .23430, .13886, 5.60766, .38044, .18830, + .10086, .29804, .39705, + .23875, .14107, 5.74536, .39112, .20104, + .11514, .30964, .40811, + .24260, .14296, 5.85602, .40026, .21203, + .12755, .31960, .41757, + .24607, .14465, 5.94864, .40838, .22185, + .13868, .32846, .42598, + .25032, .14670, 6.04949, .41815, .23366, + .15194, .33915, .43610, + .25423, .14857, 6.13300, .42696, .24440, + .16408, .34882, .44523, + .25782, .15027, 6.20308, .43495, .25422, + .17526, .35760, .45351 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26128, .15190, 6.25902, .44240, .26339, + .18560, .36583, .46123, + .26460, .15345, 6.30711, .44944, .27215, + .19556, .37363, .46853, + .26768, .15487, 6.34562, .45584, .28016, + .20470, .38074, .47517, + .27050, .15615, 6.37332, .46151, .28729, + .21282, .38707, .48105, + .27329, .15743, 6.39816, .46708, .29438, + .22095, .39330, .48684, + .27595, .15862, 6.41352, .47215, .30086, + .22837, .39901, .49210, + .27845, .15975, 6.42674, .47691, .30701, + .23546, .40438, .49705, + .28074, .16076, 6.43175, .48105, .31240, + .24166, .40909, .50135 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28303, .16177, 6.43554, .48517, .31781, + .24792, .41377, .50563, + .28523, .16273, 6.43404, .48895, .32284, + .25376, .41811, .50957, + .28730, .16362, 6.43001, .49243, .32750, + .25919, .42212, .51319, + .28923, .16445, 6.42443, .49562, .33183, + .26425, .42581, .51652, + .29112, .16526, 6.41399, .49859, .33590, + .26901, .42927, .51961 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18861, .11952, 1.36810, .18230, .00000, + .00000, .09001, .19527, + .19478, .12280, 1.66592, .19056, .00000, + .00000, .09936, .20415, + .20351, .12741, 2.08067, .20293, .00000, + .00000, .11328, .21739, + .20961, .13059, 2.36144, .21204, .00563, + .00000, .12350, .22710, + .21572, .13375, 2.61974, .22153, .01838, + .00000, .13411, .23718, + .22084, .13636, 2.83105, .22963, .02861, + .00000, .14316, .24577, + .22564, .13879, 3.02600, .23733, .03842, + .00000, .15175, .25391, + .23061, .14128, 3.22374, .24540, .04888, + .00000, .16076, .26245 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23481, .14337, 3.38325, .25226, .05742, + .00000, .16842, .26969, + .23876, .14532, 3.52891, .25877, .06560, + .00000, .17569, .27656, + .24185, .14684, 3.64114, .26388, .07217, + .00000, .18141, .28196, + .24819, .14992, 3.84931, .27449, .08555, + .00162, .19327, .29313, + .25341, .15243, 3.99431, .28326, .09659, + .01544, .20308, .30234, + .25907, .15511, 4.13926, .29271, .10859, + .03112, .21368, .31228, + .26475, .15777, 4.27307, .30208, .12057, + .04502, .22422, .32211, + .26972, .16007, 4.37945, .31015, .13098, + .05714, .23335, .33060 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27457, .16229, 4.47364, .31792, .14109, + .06889, .24216, .33876, + .27847, .16405, 4.54096, .32404, .14908, + .07809, .24911, .34517, + .28303, .16609, 4.61038, .33103, .15830, + .08870, .25712, .35253, + .28695, .16782, 4.66303, .33693, .16617, + .09784, .26390, .35872, + .29044, .16935, 4.70443, .34209, .17313, + .10596, .26986, .36414, + .29471, .17118, 4.74458, .34816, .18138, + .11553, .27693, .37052, + .29858, .17283, 4.77391, .35354, .18881, + .12420, .28323, .37617, + .30212, .17432, 4.79540, .35833, .19553, + .13212, .28888, .38122 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30549, .17571, 4.80691, .36269, .20171, + .13936, .29407, .38579, + .30870, .17702, 4.81360, .36673, .20756, + .14627, .29892, .39004, + .31167, .17822, 4.81517, .37032, .21285, + .15256, .30327, .39382, + .31434, .17928, 4.81085, .37341, .21749, + .15808, .30706, .39708, + .31699, .18032, 4.80463, .37641, .22207, + .16358, .31075, .40024, + .31948, .18128, 4.79246, .37904, .22619, + .16853, .31406, .40301, + .32181, .18217, 4.78018, .38148, .23008, + .17324, .31714, .40559, + .32392, .18296, 4.76370, .38351, .23343, + .17731, .31977, .40774 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32602, .18374, 4.74648, .38550, .23677, + .18140, .32236, .40985, + .32802, .18446, 4.72612, .38726, .23982, + .18517, .32470, .41171, + .32988, .18513, 4.70517, .38883, .24263, + .18864, .32682, .41338, + .33162, .18575, 4.68435, .39024, .24521, + .19187, .32876, .41488, + .33329, .18633, 4.66038, .39146, .24759, + .19486, .33050, .41619 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24328, .15450, 1.50983, .16948, .00000, + .00000, .08491, .18933, + .25024, .15784, 1.73955, .17587, .00000, + .00000, .09257, .19637, + .25998, .16243, 2.04891, .18518, .00000, + .00000, .10367, .20656, + .26671, .16555, 2.25041, .19187, .00456, + .00000, .11163, .21385, + .27338, .16860, 2.42857, .19869, .01480, + .00000, .11973, .22124, + .27891, .17109, 2.57025, .20439, .02288, + .00000, .12652, .22740, + .28405, .17338, 2.69756, .20972, .03052, + .00000, .13286, .23314, + .28933, .17570, 2.82328, .21520, .03856, + .00000, .13941, .23906 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29375, .17762, 2.92167, .21978, .04503, + .00000, .14489, .24398, + .29788, .17939, 3.00908, .22405, .05116, + .00000, .15002, .24856, + .30108, .18076, 3.07508, .22738, .05603, + .00000, .15401, .25213, + .30759, .18350, 3.19062, .23412, .06582, + .00126, .16215, .25934, + .31289, .18566, 3.26308, .23956, .07377, + .01144, .16875, .26516, + .31855, .18795, 3.33033, .24528, .08227, + .02291, .17575, .27126, + .32416, .19017, 3.38717, .25078, .09061, + .03291, .18254, .27713, + .32899, .19205, 3.42757, .25539, .09774, + .04150, .18829, .28203 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33366, .19381, 3.45886, .25969, .10456, + .04972, .19372, .28662, + .33736, .19518, 3.47729, .26297, .10986, + .05606, .19793, .29010, + .34164, .19672, 3.49127, .26661, .11588, + .06329, .20265, .29397, + .34526, .19800, 3.49781, .26957, .12094, + .06944, .20656, .29712, + .34845, .19911, 3.49937, .27209, .12537, + .07485, .20994, .29980, + .35227, .20039, 3.49345, .27491, .13051, + .08113, .21382, .30279, + .35569, .20151, 3.48277, .27730, .13506, + .08675, .21718, .30532, + .35878, .20249, 3.46930, .27935, .13913, + .09181, .22013, .30749 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36167, .20336, 3.44991, .28105, .14278, + .09637, .22272, .30930, + .36438, .20416, 3.42850, .28257, .14618, + .10068, .22509, .31090, + .36683, .20487, 3.40567, .28384, .14921, + .10454, .22715, .31224, + .36901, .20546, 3.38096, .28482, .15181, + .10790, .22886, .31328, + .37114, .20602, 3.35541, .28572, .15435, + .11120, .23049, .31424, + .37309, .20650, 3.32694, .28639, .15657, + .11412, .23186, .31494, + .37491, .20694, 3.29985, .28699, .15865, + .11689, .23312, .31557, + .37650, .20730, 3.27163, .28736, .16039, + .11923, .23410, .31595 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37808, .20764, 3.24318, .28770, .16210, + .12156, .23504, .31629, + .37954, .20793, 3.21347, .28789, .16363, + .12368, .23583, .31649, + .38088, .20818, 3.18458, .28800, .16500, + .12562, .23651, .31660, + .38212, .20840, 3.15690, .28805, .16625, + .12739, .23709, .31666, + .38327, .20857, 3.12743, .28798, .16735, + .12900, .23754, .31657 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29298, .18410, 1.57981, .15836, .00000, + .00000, .08068, .18473, + .30026, .18719, 1.75775, .16330, .00000, + .00000, .08702, .19025, + .31033, .19139, 1.99062, .17034, .00000, + .00000, .09603, .19804, + .31721, .19420, 2.13696, .17529, .00381, + .00000, .10237, .20349, + .32395, .19688, 2.26103, .18025, .01230, + .00000, .10871, .20891, + .32948, .19903, 2.35695, .18431, .01892, + .00000, .11395, .21333, + .33458, .20099, 2.44087, .18805, .02511, + .00000, .11877, .21738, + .33977, .20296, 2.52143, .19183, .03155, + .00000, .12370, .22149 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34407, .20455, 2.58228, .19493, .03668, + .00000, .12776, .22484, + .34806, .20600, 2.63458, .19778, .04150, + .00000, .13152, .22789, + .35114, .20711, 2.67313, .19997, .04531, + .00000, .13442, .23024, + .35733, .20925, 2.73503, .20432, .05287, + .00102, .14024, .23490, + .36227, .21092, 2.76678, .20773, .05892, + .00895, .14487, .23854, + .36750, .21261, 2.79153, .21121, .06532, + .01783, .14968, .24224, + .37259, .21421, 2.80758, .21444, .07151, + .02546, .15426, .24565, + .37692, .21550, 2.81404, .21704, .07673, + .03196, .15804, .24839 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38103, .21667, 2.81376, .21937, .08165, + .03810, .16154, .25084, + .38424, .21755, 2.80828, .22106, .08544, + .04280, .16418, .25260, + .38787, .21849, 2.79592, .22284, .08967, + .04809, .16708, .25444, + .39090, .21923, 2.78120, .22421, .09319, + .05256, .16941, .25585, + .39354, .21983, 2.76493, .22530, .09623, + .05645, .17138, .25696, + .39662, .22047, 2.73921, .22640, .09970, + .06090, .17354, .25807, + .39932, .22098, 2.71200, .22723, .10273, + .06486, .17535, .25889, + .40170, .22139, 2.68460, .22787, .10540, + .06839, .17689, .25950 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40386, .22170, 2.65356, .22825, .10775, + .07152, .17816, .25983, + .40585, .22194, 2.62203, .22850, .10990, + .07445, .17926, .26003, + .40762, .22210, 2.59092, .22861, .11179, + .07706, .18016, .26009, + .40912, .22220, 2.55983, .22858, .11338, + .07929, .18084, .25997, + .41056, .22227, 2.52851, .22849, .11491, + .08147, .18147, .25980, + .41181, .22226, 2.49585, .22824, .11621, + .08337, .18190, .25945, + .41297, .22224, 2.46516, .22798, .11741, + .08515, .18228, .25910, + .41394, .22215, 2.43470, .22758, .11838, + .08664, .18249, .25861 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41488, .22205, 2.40431, .22717, .11933, + .08811, .18268, .25811, + .41570, .22190, 2.37357, .22666, .12014, + .08942, .18275, .25750, + .41643, .22173, 2.34418, .22612, .12085, + .09061, .18277, .25687, + .41707, .22155, 2.31636, .22559, .12148, + .09169, .18274, .25624, + .41762, .22133, 2.28750, .22495, .12201, + .09265, .18261, .25550 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38157, .23151, 1.58960, .13796, .00000, + .00000, .07295, .17538, + .38846, .23369, 1.69459, .14084, .00000, + .00000, .07732, .17847, + .39781, .23646, 1.82407, .14473, .00000, + .00000, .08332, .18262, + .40400, .23824, 1.89916, .14737, .00278, + .00000, .08742, .18538, + .40994, .23981, 1.95567, .14991, .00890, + .00000, .09141, .18798, + .41469, .24099, 1.99592, .15189, .01359, + .00000, .09461, .19001, + .41898, .24201, 2.02848, .15365, .01791, + .00000, .09749, .19177, + .42327, .24297, 2.05692, .15536, .02233, + .00000, .10036, .19345 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42673, .24368, 2.07537, .15667, .02579, + .00000, .10266, .19474, + .42986, .24427, 2.08886, .15783, .02900, + .00000, .10474, .19584, + .43225, .24470, 2.09761, .15870, .03151, + .00000, .10633, .19664, + .43687, .24541, 2.10305, .16029, .03640, + .00072, .10939, .19809, + .44042, .24582, 2.09382, .16142, .04024, + .00593, .11174, .19907, + .44401, .24613, 2.07741, .16244, .04422, + .01174, .11406, .19989, + .44733, .24629, 2.05529, .16322, .04798, + .01663, .11616, .20043, + .45000, .24628, 2.03119, .16371, .05108, + .02072, .11780, .20067 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45239, .24615, 2.00376, .16400, .05394, + .02453, .11921, .20070, + .45414, .24595, 1.97858, .16408, .05609, + .02739, .12020, .20055, + .45597, .24558, 1.94558, .16402, .05845, + .03057, .12119, .20018, + .45738, .24518, 1.91506, .16383, .06036, + .03321, .12192, .19971, + .45852, .24475, 1.88620, .16356, .06197, + .03547, .12246, .19918, + .45967, .24407, 1.84761, .16304, .06377, + .03802, .12294, .19832, + .46055, .24336, 1.81063, .16243, .06528, + .04024, .12325, .19738, + .46121, .24265, 1.77578, .16180, .06658, + .04219, .12344, .19642 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46163, .24183, 1.73970, .16101, .06767, + .04388, .12346, .19530, + .46191, .24098, 1.70456, .16017, .06865, + .04544, .12340, .19414, + .46204, .24014, 1.67132, .15933, .06947, + .04680, .12325, .19298, + .46200, .23929, 1.63961, .15845, .07013, + .04793, .12302, .19180, + .46191, .23841, 1.60828, .15755, .07074, + .04903, .12276, .19059, + .46165, .23748, 1.57705, .15657, .07121, + .04995, .12240, .18930, + .46137, .23660, 1.54804, .15563, .07164, + .05081, .12205, .18808, + .46095, .23570, 1.52029, .15468, .07194, + .05151, .12162, .18684 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46051, .23480, 1.49289, .15372, .07223, + .05218, .12118, .18560, + .45996, .23386, 1.46585, .15272, .07244, + .05277, .12069, .18432, + .45939, .23295, 1.44038, .15175, .07261, + .05328, .12020, .18308, + .45881, .23207, 1.41656, .15081, .07274, + .05374, .11972, .18189, + .45811, .23115, 1.39243, .14982, .07281, + .05412, .11917, .18064 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45807, .26692, 1.50624, .11938, .00000, + .00000, .06560, .16448, + .46371, .26784, 1.56467, .12089, .00000, + .00000, .06857, .16577, + .47105, .26881, 1.63087, .12284, .00000, + .00000, .07255, .16727, + .47575, .26927, 1.66429, .12408, .00209, + .00000, .07517, .16818, + .48007, .26949, 1.68286, .12518, .00667, + .00000, .07767, .16891, + .48338, .26952, 1.69293, .12598, .01013, + .00000, .07961, .16935, + .48625, .26944, 1.69842, .12663, .01328, + .00000, .08132, .16964, + .48902, .26926, 1.70016, .12719, .01646, + .00000, .08297, .16982 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49114, .26897, 1.69759, .12755, .01892, + .00000, .08426, .16983, + .49296, .26862, 1.69237, .12782, .02118, + .00000, .08538, .16975, + .49430, .26831, 1.68707, .12799, .02293, + .00000, .08621, .16965, + .49667, .26747, 1.66710, .12819, .02631, + .00054, .08777, .16923, + .49827, .26659, 1.64089, .12819, .02890, + .00418, .08889, .16869, + .49967, .26547, 1.60845, .12803, .03156, + .00823, .08992, .16791, + .50069, .26416, 1.57254, .12767, .03402, + .01158, .09074, .16690, + .50128, .26286, 1.53828, .12720, .03601, + .01435, .09129, .16583 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50158, .26144, 1.50259, .12659, .03781, + .01689, .09169, .16462, + .50157, .26019, 1.47215, .12600, .03914, + .01878, .09189, .16351, + .50130, .25858, 1.43453, .12515, .04056, + .02085, .09199, .16206, + .50087, .25709, 1.40115, .12433, .04169, + .02255, .09198, .16071, + .50031, .25568, 1.37058, .12353, .04262, + .02398, .09189, .15942, + .49933, .25380, 1.33139, .12241, .04362, + .02558, .09164, .15766, + .49820, .25199, 1.29492, .12130, .04444, + .02695, .09132, .15595, + .49702, .25026, 1.26131, .12022, .04513, + .02813, .09096, .15432 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49557, .24846, 1.22760, .11906, .04567, + .02914, .09049, .15260, + .49407, .24667, 1.19530, .11790, .04613, + .03005, .08999, .15090, + .49253, .24495, 1.16524, .11677, .04651, + .03083, .08946, .14928, + .49093, .24328, 1.13715, .11566, .04677, + .03147, .08891, .14769, + .48929, .24161, 1.10967, .11455, .04701, + .03208, .08834, .14611, + .48750, .23991, 1.08279, .11340, .04716, + .03258, .08772, .14450, + .48581, .23830, 1.05800, .11233, .04730, + .03303, .08713, .14299, + .48405, .23674, 1.03467, .11127, .04736, + .03339, .08652, .14153 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48228, .23518, 1.01177, .11021, .04741, + .03373, .08590, .14006, + .48042, .23361, .98946, .10914, .04741, + .03401, .08526, .13860, + .47862, .23210, .96861, .10812, .04738, + .03425, .08463, .13720, + .47687, .23067, .94926, .10715, .04735, + .03445, .08403, .13588, + .47502, .22919, .92986, .10615, .04727, + .03461, .08340, .13452 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52361, .29287, 1.38320, .10277, .00000, + .00000, .05853, .15202, + .52740, .29243, 1.41162, .10341, .00000, + .00000, .06051, .15196, + .53196, .29143, 1.43847, .10412, .00000, + .00000, .06307, .15159, + .53463, .29052, 1.44693, .10451, .00161, + .00000, .06470, .15118, + .53682, .28935, 1.44375, .10477, .00511, + .00000, .06621, .15063, + .53829, .28820, 1.43704, .10486, .00773, + .00000, .06733, .15003, + .53941, .28700, 1.42790, .10487, .01008, + .00000, .06828, .14935, + .54033, .28565, 1.41563, .10479, .01245, + .00000, .06917, .14854 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54081, .28441, 1.40236, .10464, .01426, + .00000, .06983, .14775, + .54107, .28313, 1.38789, .10443, .01590, + .00000, .07037, .14693, + .54118, .28210, 1.37582, .10423, .01717, + .00000, .07075, .14626, + .54100, .27975, 1.34448, .10368, .01958, + .00041, .07140, .14474, + .54038, .27764, 1.31171, .10312, .02141, + .00305, .07180, .14331, + .53934, .27517, 1.27374, .10238, .02325, + .00598, .07209, .14161, + .53789, .27249, 1.23376, .10147, .02493, + .00837, .07222, .13975, + .53625, .26999, 1.19723, .10055, .02627, + .01033, .07219, .13798 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53432, .26742, 1.16041, .09956, .02745, + .01210, .07205, .13612, + .53250, .26524, 1.12990, .09869, .02831, + .01341, .07186, .13452, + .53006, .26252, 1.09313, .09754, .02921, + .01482, .07151, .13255, + .52773, .26008, 1.06115, .09649, .02991, + .01597, .07114, .13078, + .52547, .25784, 1.03236, .09551, .03048, + .01693, .07075, .12913, + .52236, .25491, .99618, .09418, .03106, + .01798, .07019, .12700, + .51928, .25215, .96305, .09292, .03152, + .01887, .06959, .12498, + .51627, .24959, .93292, .09174, .03189, + .01963, .06900, .12308 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51307, .24695, .90320, .09049, .03216, + .02026, .06834, .12116, + .50986, .24439, .87502, .08927, .03237, + .02083, .06767, .11928, + .50673, .24196, .84908, .08812, .03253, + .02130, .06701, .11751, + .50367, .23963, .82512, .08700, .03262, + .02168, .06636, .11582, + .50060, .23732, .80182, .08589, .03269, + .02204, .06570, .11414, + .49742, .23500, .77930, .08477, .03270, + .02232, .06502, .11247, + .49442, .23283, .75863, .08373, .03271, + .02257, .06437, .11092, + .49145, .23074, .73938, .08271, .03267, + .02275, .06373, .10944 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48848, .22866, .72058, .08171, .03262, + .02293, .06308, .10798, + .48547, .22659, .70240, .08070, .03254, + .02307, .06243, .10652, + .48257, .22463, .68550, .07975, .03245, + .02318, .06180, .10514, + .47981, .22278, .66989, .07886, .03235, + .02327, .06121, .10384, + .47693, .22089, .65436, .07794, .03223, + .02333, .06060, .10252 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59109, .31452, 1.21467, .08491, .00000, + .00000, .05022, .13492, + .59199, .31238, 1.22025, .08491, .00000, + .00000, .05134, .13369, + .59241, .30894, 1.21811, .08471, .00000, + .00000, .05270, .13177, + .59213, .30634, 1.20904, .08449, .00119, + .00000, .05351, .13031, + .59128, .30349, 1.19137, .08416, .00374, + .00000, .05423, .12874, + .59017, .30093, 1.17385, .08377, .00564, + .00000, .05470, .12733, + .58883, .29844, 1.15565, .08336, .00733, + .00000, .05507, .12593, + .58717, .29576, 1.13506, .08287, .00900, + .00000, .05537, .12441 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58548, .29336, 1.11577, .08238, .01027, + .00000, .05554, .12305, + .58366, .29101, 1.09639, .08188, .01141, + .00000, .05565, .12171, + .58214, .28916, 1.08088, .08147, .01228, + .00000, .05572, .12063, + .57855, .28513, 1.04463, .08049, .01392, + .00030, .05573, .11835, + .57513, .28161, 1.01018, .07959, .01514, + .00213, .05563, .11637, + .57100, .27766, .97168, .07854, .01636, + .00415, .05541, .11411, + .56639, .27353, .93236, .07737, .01744, + .00578, .05508, .11174, + .56199, .26975, .89738, .07625, .01828, + .00709, .05469, .10958 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55734, .26593, .86290, .07510, .01902, + .00827, .05423, .10739, + .55333, .26275, .83489, .07412, .01953, + .00913, .05379, .10556, + .54828, .25889, .80174, .07289, .02005, + .01004, .05320, .10336, + .54371, .25549, .77335, .07179, .02045, + .01078, .05265, .10141, + .53945, .25238, .74811, .07077, .02076, + .01139, .05212, .09964, + .53385, .24844, .71691, .06946, .02106, + .01204, .05139, .09740, + .52850, .24475, .68872, .06822, .02128, + .01258, .05068, .09531, + .52346, .24134, .66334, .06707, .02144, + .01303, .05000, .09339 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51826, .23791, .63867, .06589, .02154, + .01340, .04929, .09147, + .51316, .23458, .61550, .06475, .02160, + .01373, .04859, .08962, + .50832, .23146, .59435, .06367, .02163, + .01399, .04792, .08790, + .50365, .22852, .57501, .06265, .02162, + .01420, .04726, .08628, + .49899, .22561, .55633, .06165, .02160, + .01438, .04661, .08468, + .49430, .22275, .53844, .06066, .02155, + .01452, .04595, .08312, + .48990, .22007, .52210, .05974, .02148, + .01465, .04534, .08167, + .48566, .21751, .50702, .05884, .02140, + .01473, .04474, .08030 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48144, .21497, .49236, .05795, .02131, + .01480, .04416, .07894, + .47721, .21247, .47829, .05708, .02120, + .01485, .04356, .07762, + .47318, .21010, .46529, .05627, .02109, + .01489, .04300, .07638, + .46936, .20788, .45333, .05550, .02098, + .01491, .04246, .07521, + .46544, .20564, .44152, .05473, .02085, + .01492, .04192, .07403 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64335, .32638, 1.05341, .07016, .00000, + .00000, .04260, .11705, + .64113, .32258, 1.04598, .06976, .00000, + .00000, .04316, .11517, + .63701, .31689, 1.02799, .06908, .00000, + .00000, .04376, .11235, + .63354, .31274, 1.00990, .06855, .00089, + .00000, .04409, .11030, + .62952, .30834, .98542, .06790, .00279, + .00000, .04431, .10822, + .62572, .30450, .96314, .06728, .00419, + .00000, .04440, .10640, + .62188, .30084, .94121, .06667, .00542, + .00000, .04443, .10464, + .61761, .29697, .91749, .06600, .00663, + .00000, .04441, .10277 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61372, .29358, .89625, .06535, .00754, + .00000, .04432, .10117, + .60982, .29031, .87554, .06471, .00835, + .00000, .04420, .09960, + .60669, .28775, .85924, .06422, .00896, + .00000, .04408, .09837, + .59977, .28227, .82282, .06308, .01010, + .00023, .04374, .09583, + .59359, .27764, .78980, .06209, .01094, + .00152, .04340, .09364, + .58651, .27245, .75364, .06095, .01176, + .00295, .04294, .09121, + .57894, .26711, .71737, .05974, .01248, + .00409, .04239, .08871, + .57194, .26232, .68565, .05861, .01302, + .00500, .04185, .08649 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56481, .25752, .65483, .05744, .01348, + .00580, .04127, .08427, + .55878, .25359, .63014, .05648, .01380, + .00638, .04076, .08244, + .55137, .24885, .60123, .05531, .01411, + .00699, .04009, .08028, + .54480, .24472, .57675, .05427, .01434, + .00747, .03949, .07839, + .53876, .24099, .55520, .05332, .01450, + .00787, .03894, .07667, + .53100, .23626, .52885, .05211, .01465, + .00828, .03820, .07455, + .52372, .23189, .50525, .05097, .01474, + .00862, .03749, .07261, + .51694, .22787, .48420, .04992, .01481, + .00891, .03683, .07082 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .51007, .22387, .46392, .04887, .01482, + .00912, .03616, .06906, + .50338, .22003, .44501, .04786, .01482, + .00931, .03550, .06738, + .49707, .21644, .42788, .04692, .01479, + .00947, .03487, .06582, + .49109, .21309, .41235, .04604, .01474, + .00958, .03428, .06437, + .48516, .20979, .39743, .04517, .01468, + .00968, .03370, .06295, + .47928, .20655, .38326, .04430, .01460, + .00974, .03311, .06158, + .47379, .20353, .37036, .04350, .01453, + .00980, .03257, .06031, + .46853, .20068, .35853, .04274, .01443, + .00983, .03205, .05912 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46331, .19785, .34707, .04200, .01434, + .00986, .03153, .05795, + .45813, .19509, .33614, .04127, .01423, + .00987, .03102, .05680, + .45323, .19250, .32608, .04059, .01412, + .00987, .03054, .05573, + .44861, .19007, .31685, .03995, .01402, + .00986, .03009, .05472, + .44390, .18762, .30779, .03932, .01390, + .00985, .02963, .05372 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68137, .33026, .90960, .05813, .00000, + .00000, .03574, .09937, + .67585, .32503, .89478, .05756, .00000, + .00000, .03593, .09714, + .66713, .31733, .86826, .05663, .00000, + .00000, .03606, .09392, + .66049, .31184, .84571, .05593, .00067, + .00000, .03607, .09164, + .65327, .30614, .81843, .05518, .00211, + .00000, .03600, .08930, + .64683, .30123, .79446, .05445, .00315, + .00000, .03587, .08735, + .64054, .29658, .77145, .05375, .00407, + .00000, .03570, .08551, + .63377, .29173, .74710, .05300, .00495, + .00000, .03548, .08357 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62775, .28754, .72582, .05234, .00561, + .00000, .03525, .08187, + .62189, .28352, .70540, .05167, .00620, + .00000, .03501, .08027, + .61727, .28036, .68951, .05112, .00664, + .00000, .03480, .07905, + .60724, .27376, .65496, .04996, .00744, + .00017, .03430, .07650, + .59854, .26820, .62453, .04897, .00803, + .00110, .03384, .07434, + .58876, .26208, .59169, .04786, .00859, + .00213, .03328, .07198, + .57855, .25583, .55919, .04668, .00907, + .00294, .03267, .06959, + .56928, .25026, .53111, .04561, .00943, + .00358, .03208, .06749 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55994, .24476, .50414, .04452, .00972, + .00414, .03146, .06543, + .55216, .24027, .48270, .04364, .00992, + .00454, .03093, .06373, + .54276, .23490, .45788, .04256, .01010, + .00495, .03028, .06174, + .53451, .23024, .43704, .04161, .01022, + .00528, .02971, .06004, + .52700, .22605, .41885, .04075, .01031, + .00554, .02918, .05851, + .51745, .22082, .39678, .03967, .01038, + .00581, .02850, .05660, + .50856, .21601, .37719, .03868, .01041, + .00603, .02786, .05487, + .50036, .21161, .35983, .03776, .01042, + .00620, .02726, .05330 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49213, .20725, .34325, .03685, .01039, + .00634, .02665, .05177, + .48418, .20308, .32788, .03598, .01036, + .00645, .02607, .05031, + .47674, .19921, .31406, .03518, .01031, + .00654, .02553, .04896, + .46976, .19561, .30158, .03442, .01025, + .00660, .02502, .04773, + .46288, .19208, .28964, .03367, .01018, + .00665, .02451, .04653, + .45609, .18864, .27839, .03293, .01010, + .00668, .02401, .04536, + .44976, .18546, .26819, .03226, .01002, + .00670, .02355, .04429, + .44376, .18245, .25887, .03163, .00993, + .00671, .02311, .04329 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43783, .17948, .24988, .03100, .00985, + .00671, .02268, .04231, + .43197, .17658, .24135, .03040, .00975, + .00670, .02226, .04136, + .42644, .17387, .23353, .02983, .00966, + .00669, .02187, .04048, + .42126, .17133, .22639, .02930, .00957, + .00667, .02150, .03966, + .41603, .16878, .21940, .02877, .00947, + .00665, .02112, .03885 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70616, .32769, .78533, .04837, .00000, + .00000, .02965, .08256, + .69744, .32122, .76630, .04769, .00000, + .00000, .02962, .08027, + .68428, .31179, .73526, .04662, .00000, + .00000, .02947, .07701, + .67462, .30515, .71072, .04584, .00051, + .00000, .02929, .07474, + .66440, .29836, .68264, .04502, .00160, + .00000, .02905, .07245, + .65547, .29259, .65853, .04427, .00239, + .00000, .02881, .07053, + .64691, .28716, .63573, .04356, .00307, + .00000, .02855, .06872, + .63785, .28151, .61197, .04279, .00373, + .00000, .02824, .06684 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62994, .27666, .59154, .04211, .00421, + .00000, .02794, .06526, + .62229, .27206, .57215, .04144, .00464, + .00000, .02764, .06377, + .61627, .26848, .55718, .04092, .00496, + .00000, .02740, .06260, + .60351, .26100, .52520, .03980, .00553, + .00013, .02685, .06023, + .59258, .25477, .49769, .03886, .00594, + .00081, .02635, .05825, + .58047, .24796, .46836, .03781, .00633, + .00156, .02579, .05609, + .56798, .24106, .43964, .03671, .00665, + .00214, .02517, .05394, + .55677, .23495, .41508, .03572, .00688, + .00259, .02460, .05206 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54559, .22895, .39170, .03473, .00707, + .00299, .02403, .05022, + .53639, .22408, .37328, .03393, .00719, + .00326, .02354, .04875, + .52535, .21831, .35215, .03297, .00729, + .00355, .02294, .04701, + .51573, .21333, .33454, .03213, .00736, + .00377, .02241, .04552, + .50703, .20888, .31925, .03137, .00740, + .00394, .02193, .04420, + .49607, .20334, .30086, .03043, .00742, + .00412, .02133, .04258, + .48596, .19826, .28465, .02955, .00741, + .00426, .02077, .04112, + .47669, .19363, .27039, .02876, .00740, + .00437, .02026, .03979 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46745, .18911, .25684, .02798, .00736, + .00445, .01973, .03850, + .45858, .18479, .24436, .02724, .00731, + .00452, .01924, .03728, + .45032, .18079, .23320, .02654, .00726, + .00456, .01879, .03617, + .44260, .17708, .22321, .02591, .00719, + .00459, .01835, .03515, + .43502, .17346, .21369, .02529, .00713, + .00462, .01792, .03417, + .42759, .16995, .20472, .02468, .00705, + .00463, .01751, .03322, + .42069, .16670, .19662, .02412, .00698, + .00463, .01713, .03234, + .41419, .16366, .18930, .02359, .00691, + .00463, .01677, .03152 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40776, .16067, .18226, .02307, .00683, + .00462, .01642, .03073, + .40146, .15775, .17560, .02257, .00675, + .00461, .01608, .02996, + .39553, .15502, .16950, .02211, .00667, + .00459, .01575, .02925, + .38999, .15249, .16395, .02169, .00660, + .00457, .01545, .02859, + .38440, .14995, .15853, .02125, .00652, + .00454, .01516, .02793 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71889, .31987, .67926, .04038, .00000, + .00000, .02434, .06723, + .70715, .31236, .65776, .03966, .00000, + .00000, .02419, .06502, + .68983, .30157, .62447, .03852, .00000, + .00000, .02388, .06195, + .67737, .29403, .59924, .03770, .00039, + .00000, .02360, .05985, + .66445, .28637, .57143, .03686, .00122, + .00000, .02330, .05772, + .65330, .27993, .54792, .03612, .00182, + .00000, .02300, .05595, + .64270, .27391, .52599, .03541, .00233, + .00000, .02270, .05430, + .63158, .26769, .50339, .03467, .00282, + .00000, .02235, .05261 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62199, .26237, .48415, .03400, .00317, + .00000, .02206, .05117, + .61280, .25734, .46611, .03336, .00348, + .00000, .02175, .04982, + .60561, .25344, .45230, .03287, .00371, + .00000, .02150, .04880, + .59048, .24536, .42321, .03183, .00412, + .00010, .02093, .04670, + .57773, .23864, .39862, .03093, .00441, + .00059, .02045, .04497, + .56367, .23137, .37266, .02996, .00468, + .00114, .01992, .04311, + .54933, .22405, .34748, .02896, .00489, + .00156, .01935, .04124, + .53656, .21763, .32616, .02807, .00505, + .00188, .01884, .03962 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52392, .21136, .30606, .02720, .00516, + .00216, .01831, .03805, + .51360, .20628, .29036, .02647, .00523, + .00236, .01787, .03682, + .50129, .20028, .27246, .02562, .00529, + .00255, .01735, .03535, + .49064, .19515, .25766, .02489, .00532, + .00270, .01689, .03411, + .48107, .19058, .24489, .02422, .00533, + .00282, .01648, .03302, + .46908, .18492, .22961, .02341, .00533, + .00294, .01595, .03167, + .45808, .17977, .21624, .02267, .00531, + .00303, .01547, .03046, + .44803, .17508, .20454, .02199, .00528, + .00310, .01504, .02937 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43809, .17050, .19356, .02131, .00524, + .00314, .01461, .02834, + .42859, .16616, .18347, .02069, .00519, + .00318, .01420, .02735, + .41978, .16216, .17446, .02012, .00514, + .00321, .01383, .02645, + .41159, .15848, .16645, .01960, .00508, + .00322, .01347, .02562, + .40356, .15490, .15885, .01909, .00502, + .00323, .01312, .02482, + .39577, .15140, .15174, .01858, .00496, + .00323, .01278, .02407, + .38855, .14817, .14535, .01810, .00489, + .00322, .01247, .02339, + .38175, .14518, .13957, .01767, .00483, + .00321, .01218, .02274 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37505, .14225, .13403, .01725, .00477, + .00320, .01190, .02210, + .36851, .13940, .12881, .01684, .00470, + .00319, .01162, .02150, + .36238, .13674, .12406, .01646, .00464, + .00317, .01136, .02095, + .35667, .13426, .11975, .01611, .00458, + .00315, .01112, .02043, + .35094, .13179, .11557, .01575, .00452, + .00313, .01088, .01993 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72072, .30786, .58868, .03372, .00000, + .00000, .01980, .05369, + .70619, .29959, .56584, .03299, .00000, + .00000, .01956, .05169, + .68512, .28777, .53157, .03187, .00000, + .00000, .01914, .04893, + .67017, .27957, .50647, .03108, .00030, + .00000, .01884, .04703, + .65484, .27133, .47954, .03025, .00093, + .00000, .01852, .04514, + .64176, .26441, .45707, .02954, .00138, + .00000, .01820, .04358, + .62943, .25798, .43632, .02887, .00177, + .00000, .01788, .04214, + .61658, .25137, .41515, .02816, .00213, + .00000, .01754, .04066 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60557, .24574, .39735, .02754, .00239, + .00000, .01723, .03944, + .59510, .24044, .38078, .02694, .00261, + .00000, .01693, .03831, + .58696, .23635, .36815, .02648, .00278, + .00000, .01668, .03743, + .56989, .22793, .34195, .02554, .00308, + .00008, .01618, .03560, + .55564, .22097, .32015, .02472, .00328, + .00044, .01574, .03415, + .54010, .21345, .29737, .02384, .00346, + .00084, .01525, .03258, + .52432, .20592, .27548, .02295, .00361, + .00114, .01476, .03102, + .51037, .19935, .25713, .02216, .00371, + .00137, .01430, .02969 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49666, .19297, .23995, .02138, .00378, + .00157, .01384, .02840, + .48552, .18786, .22662, .02075, .00382, + .00171, .01347, .02737, + .47233, .18182, .21156, .02000, .00384, + .00184, .01302, .02619, + .46097, .17666, .19916, .01936, .00385, + .00194, .01263, .02519, + .45079, .17208, .18850, .01880, .00385, + .00202, .01229, .02431, + .43813, .16645, .17593, .01810, .00384, + .00210, .01185, .02323, + .42656, .16135, .16497, .01747, .00381, + .00216, .01145, .02226, + .41603, .15674, .15541, .01691, .00378, + .00220, .01108, .02140 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40570, .15222, .14650, .01634, .00374, + .00223, .01074, .02058, + .39587, .14796, .13836, .01581, .00369, + .00225, .01042, .01980, + .38679, .14404, .13115, .01533, .00365, + .00226, .01011, .01909, + .37837, .14046, .12475, .01488, .00360, + .00227, .00982, .01845, + .37015, .13697, .11869, .01444, .00355, + .00227, .00954, .01783, + .36218, .13360, .11307, .01403, .00349, + .00226, .00927, .01724, + .35482, .13049, .10802, .01365, .00344, + .00226, .00903, .01670, + .34792, .12761, .10350, .01330, .00339, + .00224, .00880, .01621 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34114, .12479, .09916, .01295, .00334, + .00223, .00857, .01574, + .33455, .12206, .09509, .01262, .00329, + .00222, .00835, .01526, + .32839, .11951, .09139, .01232, .00324, + .00220, .00815, .01482, + .32266, .11715, .08804, .01204, .00319, + .00218, .00797, .01442, + .31692, .11480, .08481, .01175, .00314, + .00216, .00779, .01405 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71240, .29302, .51084, .02846, .00000, + .00000, .01571, .04183, + .69555, .28412, .48728, .02768, .00000, + .00000, .01547, .04014, + .67130, .27155, .45291, .02656, .00000, + .00000, .01507, .03777, + .65427, .26290, .42831, .02577, .00023, + .00000, .01478, .03616, + .63702, .25421, .40264, .02494, .00071, + .00000, .01446, .03459, + .62235, .24700, .38144, .02426, .00105, + .00000, .01417, .03327, + .60863, .24031, .36205, .02362, .00134, + .00000, .01388, .03206, + .59442, .23345, .34247, .02295, .00161, + .00000, .01357, .03083 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58226, .22770, .32619, .02239, .00180, + .00000, .01329, .02980, + .57079, .22227, .31114, .02183, .00197, + .00000, .01302, .02886, + .56191, .21806, .29975, .02139, .00209, + .00000, .01281, .02815, + .54341, .20949, .27636, .02052, .00229, + .00006, .01236, .02667, + .52806, .20243, .25720, .01978, .00244, + .00032, .01198, .02548, + .51141, .19487, .23736, .01900, .00256, + .00062, .01157, .02419, + .49459, .18734, .21847, .01821, .00266, + .00084, .01115, .02293, + .47983, .18079, .20277, .01751, .00272, + .00100, .01076, .02187 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46544, .17444, .18821, .01682, .00276, + .00114, .01036, .02086, + .45380, .16937, .17697, .01627, .00278, + .00124, .01005, .02004, + .44006, .16341, .16434, .01563, .00279, + .00133, .00968, .01912, + .42828, .15836, .15404, .01509, .00279, + .00140, .00936, .01833, + .41776, .15389, .14525, .01462, .00278, + .00146, .00908, .01761, + .40479, .14838, .13492, .01401, .00276, + .00151, .00873, .01678, + .39297, .14341, .12600, .01348, .00273, + .00154, .00842, .01602, + .38224, .13894, .11826, .01301, .00270, + .00157, .00814, .01533 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37174, .13462, .11106, .01253, .00267, + .00158, .00784, .01472, + .36181, .13053, .10453, .01209, .00263, + .00159, .00757, .01412, + .35268, .12679, .09876, .01169, .00259, + .00160, .00733, .01357, + .34425, .12336, .09367, .01131, .00255, + .00160, .00711, .01309, + .33603, .12003, .08888, .01094, .00251, + .00160, .00689, .01262, + .32808, .11684, .08445, .01060, .00246, + .00159, .00668, .01218, + .32075, .11390, .08048, .01030, .00242, + .00158, .00648, .01178, + .31391, .11118, .07693, .01002, .00238, + .00157, .00631, .01139 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30721, .10852, .07355, .00974, .00234, + .00156, .00614, .01101, + .30070, .10595, .07038, .00947, .00230, + .00154, .00597, .01067, + .29464, .10357, .06750, .00923, .00226, + .00153, .00582, .01035, + .28901, .10136, .06491, .00899, .00222, + .00152, .00567, .01006, + .28342, .09916, .06241, .00876, .00219, + .00150, .00553, .00978 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69603, .27528, .44250, .02357, .00000, + .00000, .01253, .03218, + .67713, .26603, .41885, .02285, .00000, + .00000, .01229, .03072, + .65016, .25309, .38506, .02179, .00000, + .00000, .01189, .02875, + .63145, .24418, .36145, .02104, .00018, + .00000, .01160, .02742, + .61250, .23539, .33727, .02031, .00054, + .00000, .01127, .02611, + .59661, .22804, .31753, .01967, .00079, + .00000, .01100, .02504, + .58178, .22128, .29968, .01908, .00100, + .00000, .01074, .02406, + .56649, .21438, .28182, .01848, .00120, + .00000, .01045, .02306 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55357, .20853, .26704, .01794, .00134, + .00000, .01022, .02224, + .54136, .20308, .25353, .01745, .00146, + .00000, .00998, .02148, + .53192, .19891, .24335, .01708, .00155, + .00000, .00980, .02089, + .51242, .19036, .22275, .01629, .00169, + .00005, .00940, .01971, + .49628, .18342, .20607, .01567, .00179, + .00024, .00907, .01875, + .47888, .17596, .18893, .01498, .00188, + .00045, .00873, .01774, + .46148, .16856, .17277, .01430, .00194, + .00061, .00837, .01674, + .44628, .16216, .15946, .01370, .00198, + .00073, .00805, .01589 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43149, .15600, .14719, .01312, .00200, + .00082, .00773, .01509, + .41960, .15106, .13782, .01265, .00201, + .00089, .00745, .01448, + .40563, .14533, .12737, .01210, .00201, + .00095, .00716, .01375, + .39369, .14046, .11889, .01164, .00201, + .00100, .00691, .01314, + .38308, .13617, .11169, .01125, .00199, + .00104, .00668, .01261, + .37001, .13092, .10327, .01075, .00197, + .00107, .00640, .01196, + .35818, .12619, .09603, .01030, .00195, + .00109, .00615, .01140, + .34750, .12194, .08979, .00990, .00192, + .00111, .00591, .01090 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33711, .11784, .08403, .00951, .00189, + .00112, .00568, .01041, + .32728, .11399, .07882, .00916, .00186, + .00112, .00547, .00995, + .31826, .11049, .07426, .00885, .00182, + .00112, .00529, .00952, + .30997, .10728, .07024, .00854, .00179, + .00112, .00511, .00916, + .30192, .10416, .06645, .00824, .00176, + .00112, .00494, .00884, + .29415, .10118, .06299, .00796, .00172, + .00111, .00478, .00851, + .28701, .09844, .05989, .00771, .00169, + .00110, .00463, .00820, + .28037, .09591, .05713, .00749, .00166, + .00109, .00449, .00792 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27388, .09344, .05450, .00727, .00163, + .00108, .00437, .00764, + .26760, .09107, .05205, .00705, .00160, + .00107, .00424, .00739, + .26176, .08887, .04984, .00685, .00157, + .00106, .00412, .00716, + .25635, .08683, .04784, .00666, .00154, + .00105, .00401, .00695, + .25096, .08482, .04592, .00649, .00151, + .00103, .00390, .00674 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67211, .25605, .38219, .01950, .00000, + .00000, .00982, .02420, + .65162, .24663, .35887, .01882, .00000, + .00000, .00958, .02303, + .62258, .23354, .32621, .01784, .00000, + .00000, .00922, .02142, + .60254, .22461, .30388, .01714, .00013, + .00000, .00895, .02038, + .58243, .21580, .28141, .01648, .00040, + .00000, .00866, .01932, + .56567, .20846, .26328, .01589, .00059, + .00000, .00843, .01848, + .55009, .20173, .24702, .01535, .00075, + .00000, .00820, .01770, + .53407, .19491, .23088, .01483, .00089, + .00000, .00796, .01690 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52056, .18918, .21769, .01437, .00099, + .00000, .00775, .01625, + .50789, .18384, .20573, .01393, .00108, + .00000, .00755, .01565, + .49813, .17975, .19679, .01359, .00114, + .00000, .00740, .01520, + .47802, .17140, .17876, .01292, .00124, + .00004, .00707, .01426, + .46153, .16461, .16437, .01235, .00131, + .00017, .00679, .01354, + .44382, .15740, .14976, .01174, .00137, + .00033, .00651, .01276, + .42617, .15027, .13610, .01115, .00141, + .00044, .00621, .01202, + .41086, .14411, .12491, .01063, .00143, + .00052, .00594, .01138 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39603, .13819, .11469, .01013, .00144, + .00059, .00569, .01077, + .38410, .13352, .10695, .00975, .00144, + .00064, .00549, .01027, + .37016, .12806, .09835, .00931, .00144, + .00068, .00525, .00973, + .35831, .12345, .09142, .00894, .00143, + .00071, .00505, .00927, + .34783, .11941, .08557, .00861, .00142, + .00074, .00487, .00887, + .33498, .11447, .07876, .00819, .00140, + .00076, .00463, .00840, + .32337, .11005, .07296, .00782, .00138, + .00077, .00443, .00797, + .31291, .10610, .06798, .00750, .00136, + .00078, .00426, .00757 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30280, .10226, .06339, .00717, .00133, + .00078, .00409, .00724, + .29325, .09868, .05928, .00688, .00130, + .00079, .00393, .00691, + .28449, .09544, .05569, .00662, .00128, + .00078, .00378, .00660, + .27649, .09247, .05254, .00639, .00125, + .00078, .00365, .00633, + .26874, .08960, .04959, .00616, .00123, + .00078, .00352, .00607, + .26127, .08686, .04689, .00595, .00120, + .00077, .00339, .00584, + .25442, .08436, .04450, .00576, .00118, + .00076, .00328, .00563, + .24809, .08205, .04236, .00557, .00115, + .00076, .00317, .00543 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24192, .07980, .04033, .00538, .00113, + .00075, .00308, .00522, + .23595, .07763, .03845, .00521, .00111, + .00074, .00298, .00504, + .23041, .07563, .03675, .00505, .00108, + .00073, .00289, .00487, + .22528, .07378, .03523, .00491, .00106, + .00072, .00281, .00471, + .22019, .07196, .03376, .00477, .00104, + .00071, .00273, .00456 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64209, .23567, .32815, .01593, .00000, + .00000, .00762, .01788, + .62041, .22626, .30560, .01528, .00000, + .00000, .00740, .01698, + .58985, .21330, .27465, .01441, .00000, + .00000, .00709, .01569, + .56898, .20446, .25381, .01377, .00010, + .00000, .00685, .01488, + .54812, .19579, .23328, .01317, .00030, + .00000, .00661, .01406, + .53075, .18865, .21689, .01267, .00044, + .00000, .00641, .01339, + .51472, .18209, .20231, .01219, .00055, + .00000, .00621, .01280, + .49835, .17543, .18796, .01171, .00065, + .00000, .00600, .01221 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48457, .16989, .17635, .01132, .00073, + .00000, .00582, .01171, + .47168, .16473, .16587, .01094, .00079, + .00000, .00565, .01125, + .46178, .16079, .15807, .01065, .00083, + .00000, .00551, .01090, + .44152, .15274, .14253, .01005, .00090, + .00003, .00526, .01021, + .42495, .14626, .13028, .00958, .00095, + .00012, .00503, .00965, + .40720, .13940, .11795, .00911, .00098, + .00023, .00479, .00905, + .38965, .13263, .10652, .00861, .00101, + .00031, .00457, .00848, + .37448, .12683, .09725, .00816, .00102, + .00037, .00436, .00801 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35982, .12129, .08882, .00775, .00103, + .00042, .00414, .00755, + .34810, .11689, .08247, .00744, .00103, + .00045, .00400, .00719, + .33444, .11180, .07549, .00710, .00102, + .00048, .00381, .00676, + .32292, .10751, .06990, .00678, .00101, + .00050, .00365, .00643, + .31280, .10372, .06522, .00647, .00100, + .00052, .00350, .00617, + .30029, .09916, .05978, .00617, .00098, + .00053, .00333, .00580, + .28907, .09507, .05517, .00588, .00097, + .00054, .00318, .00549, + .27903, .09142, .05123, .00561, .00095, + .00055, .00304, .00523 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26931, .08792, .04762, .00537, .00093, + .00055, .00291, .00496, + .26019, .08464, .04439, .00514, .00091, + .00055, .00279, .00471, + .25187, .08166, .04160, .00494, .00089, + .00055, .00268, .00451, + .24428, .07896, .03915, .00474, .00087, + .00054, .00258, .00432, + .23693, .07637, .03687, .00455, .00085, + .00054, .00248, .00413, + .22988, .07389, .03477, .00439, .00083, + .00053, .00239, .00395, + .22341, .07163, .03291, .00424, .00081, + .00053, .00230, .00379, + .21746, .06954, .03128, .00409, .00079, + .00052, .00222, .00366 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21167, .06751, .02974, .00395, .00078, + .00051, .00215, .00353, + .20609, .06557, .02830, .00381, .00076, + .00051, .00207, .00340, + .20092, .06377, .02701, .00369, .00074, + .00050, .00201, .00328, + .19615, .06212, .02585, .00357, .00073, + .00049, .00194, .00317, + .19141, .06050, .02473, .00346, .00071, + .00049, .00189, .00306 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60700, .21473, .27946, .01282, .00000, + .00000, .00588, .01295, + .58458, .20549, .25810, .01221, .00000, + .00000, .00568, .01229, + .55319, .19281, .22928, .01142, .00000, + .00000, .00539, .01132, + .53175, .18428, .21029, .01090, .00007, + .00000, .00522, .01065, + .51055, .17589, .19177, .01037, .00022, + .00000, .00500, .01004, + .49296, .16900, .17716, .00993, .00032, + .00000, .00482, .00955, + .47680, .16270, .16428, .00952, .00040, + .00000, .00465, .00911, + .46036, .15633, .15171, .00910, .00047, + .00000, .00447, .00868 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44654, .15105, .14164, .00877, .00052, + .00000, .00433, .00830, + .43368, .14614, .13258, .00845, .00056, + .00000, .00420, .00796, + .42382, .14240, .12587, .00821, .00059, + .00000, .00409, .00770, + .40371, .13482, .11266, .00774, .00064, + .00002, .00387, .00715, + .38735, .12872, .10241, .00735, .00067, + .00009, .00369, .00675, + .36992, .12227, .09214, .00695, .00070, + .00017, .00351, .00631, + .35274, .11595, .08270, .00653, .00071, + .00022, .00332, .00591, + .33794, .11055, .07511, .00618, .00072, + .00026, .00315, .00557 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32371, .10540, .06827, .00586, .00072, + .00030, .00300, .00522, + .31242, .10134, .06315, .00560, .00072, + .00032, .00288, .00496, + .29929, .09663, .05754, .00530, .00071, + .00034, .00273, .00467, + .28820, .09268, .05307, .00504, .00071, + .00035, .00261, .00443, + .27847, .08924, .04933, .00482, .00070, + .00036, .00249, .00423, + .26662, .08506, .04505, .00455, .00068, + .00037, .00237, .00397, + .25598, .08133, .04142, .00432, .00067, + .00037, .00225, .00375, + .24646, .07801, .03833, .00413, .00066, + .00038, .00215, .00356 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23727, .07486, .03554, .00394, .00064, + .00038, .00206, .00335, + .22868, .07191, .03304, .00376, .00062, + .00038, .00197, .00318, + .22089, .06923, .03086, .00358, .00061, + .00037, .00188, .00304, + .21377, .06680, .02898, .00344, .00060, + .00037, .00181, .00290, + .20690, .06446, .02723, .00331, .00058, + .00037, .00173, .00277, + .20034, .06224, .02564, .00318, .00057, + .00036, .00166, .00265, + .19435, .06022, .02422, .00306, .00055, + .00036, .00160, .00255, + .18884, .05837, .02298, .00295, .00054, + .00035, .00154, .00244 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18348, .05657, .02181, .00284, .00053, + .00035, .00149, .00234, + .17833, .05485, .02072, .00273, .00051, + .00034, .00144, .00225, + .17356, .05327, .01974, .00264, .00050, + .00034, .00139, .00216, + .16917, .05181, .01886, .00255, .00049, + .00033, .00135, .00208, + .16481, .05037, .01803, .00248, .00048, + .00033, .00131, .00202 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56796, .19383, .23571, .01024, .00000, + .00000, .00439, .00919, + .54512, .18494, .21589, .00973, .00000, + .00000, .00423, .00867, + .51345, .17276, .18959, .00902, .00000, + .00000, .00399, .00796, + .49194, .16457, .17249, .00856, .00005, + .00000, .00382, .00749, + .47075, .15656, .15612, .00811, .00016, + .00000, .00367, .00705, + .45326, .15003, .14331, .00775, .00023, + .00000, .00353, .00667, + .43724, .14407, .13211, .00741, .00029, + .00000, .00340, .00634, + .42100, .13806, .12127, .00704, .00034, + .00000, .00327, .00602 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40739, .13309, .11265, .00677, .00037, + .00000, .00317, .00574, + .39478, .12850, .10498, .00650, .00040, + .00000, .00305, .00548, + .38515, .12499, .09933, .00629, .00042, + .00000, .00296, .00529, + .36549, .11791, .08830, .00589, .00046, + .00002, .00280, .00493, + .34961, .11226, .07978, .00558, .00048, + .00006, .00266, .00463, + .33278, .10629, .07134, .00525, .00049, + .00012, .00251, .00431, + .31625, .10046, .06366, .00491, .00050, + .00016, .00236, .00402, + .30207, .09549, .05752, .00462, .00050, + .00018, .00223, .00378 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28850, .09078, .05203, .00436, .00050, + .00021, .00212, .00355, + .27773, .08707, .04795, .00417, .00050, + .00022, .00202, .00336, + .26528, .08279, .04351, .00393, .00049, + .00023, .00192, .00314, + .25479, .07922, .03999, .00373, .00049, + .00024, .00183, .00296, + .24558, .07610, .03705, .00357, .00048, + .00025, .00175, .00282, + .23443, .07234, .03370, .00337, .00047, + .00025, .00166, .00264, + .22447, .06899, .03088, .00318, .00046, + .00026, .00157, .00249, + .21560, .06601, .02850, .00303, .00045, + .00026, .00148, .00235 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20705, .06319, .02635, .00289, .00044, + .00026, .00142, .00222, + .19907, .06056, .02444, .00276, .00043, + .00026, .00135, .00210, + .19184, .05818, .02278, .00264, .00041, + .00026, .00129, .00199, + .18530, .05602, .02135, .00252, .00040, + .00025, .00125, .00190, + .17901, .05395, .02001, .00240, .00039, + .00025, .00120, .00182, + .17299, .05200, .01881, .00229, .00038, + .00025, .00115, .00173, + .16750, .05024, .01774, .00220, .00037, + .00024, .00110, .00165, + .16247, .04860, .01680, .00210, .00036, + .00024, .00105, .00159 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15758, .04701, .01592, .00201, .00036, + .00024, .00101, .00154, + .15288, .04550, .01510, .00194, .00035, + .00023, .00098, .00147, + .14853, .04410, .01437, .00189, .00034, + .00023, .00095, .00141, + .14454, .04283, .01371, .00183, .00033, + .00023, .00091, .00135, + .14062, .04158, .01309, .00176, .00032, + .00022, .00088, .00131 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52600, .17319, .19639, .00801, .00000, + .00000, .00327, .00639, + .50324, .16473, .17840, .00758, .00000, + .00000, .00313, .00602, + .47178, .15322, .15489, .00699, .00000, + .00000, .00293, .00549, + .45057, .14549, .13983, .00659, .00004, + .00000, .00278, .00517, + .42973, .13800, .12560, .00622, .00011, + .00000, .00266, .00482, + .41262, .13188, .11460, .00592, .00016, + .00000, .00254, .00456, + .39697, .12633, .10505, .00565, .00020, + .00000, .00244, .00432, + .38114, .12075, .09588, .00537, .00024, + .00000, .00233, .00408 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36799, .11614, .08865, .00514, .00026, + .00000, .00224, .00388, + .35578, .11190, .08224, .00493, .00028, + .00000, .00216, .00370, + .34647, .10867, .07753, .00478, .00029, + .00000, .00210, .00356, + .32767, .10214, .06845, .00442, .00032, + .00001, .00196, .00332, + .31248, .09694, .06152, .00418, .00033, + .00004, .00186, .00312, + .29640, .09152, .05470, .00394, .00034, + .00008, .00175, .00288, + .28071, .08622, .04854, .00368, .00034, + .00011, .00164, .00267, + .26731, .08172, .04365, .00346, .00035, + .00013, .00155, .00250 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25450, .07746, .03930, .00326, .00035, + .00014, .00146, .00234, + .24441, .07411, .03610, .00309, .00034, + .00015, .00139, .00222, + .23279, .07029, .03261, .00290, .00034, + .00016, .00131, .00206, + .22303, .06709, .02987, .00275, .00033, + .00017, .00124, .00194, + .21449, .06429, .02760, .00261, .00033, + .00017, .00117, .00186, + .20415, .06094, .02502, .00245, .00032, + .00017, .00111, .00174, + .19496, .05798, .02286, .00232, .00031, + .00018, .00105, .00162, + .18678, .05536, .02104, .00220, .00030, + .00018, .00100, .00152 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17896, .05285, .01940, .00207, .00029, + .00018, .00094, .00143, + .17168, .05053, .01794, .00197, .00029, + .00017, .00090, .00135, + .16509, .04842, .01669, .00188, .00028, + .00017, .00086, .00129, + .15910, .04655, .01561, .00180, .00027, + .00017, .00082, .00123, + .15336, .04475, .01461, .00172, .00026, + .00017, .00078, .00117, + .14791, .04305, .01371, .00164, .00026, + .00017, .00075, .00112, + .14295, .04150, .01291, .00157, .00025, + .00016, .00072, .00107, + .13841, .04008, .01221, .00151, .00024, + .00016, .00069, .00102 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13400, .03870, .01155, .00146, .00024, + .00016, .00066, .00097, + .12978, .03739, .01094, .00140, .00023, + .00016, .00064, .00093, + .12589, .03619, .01040, .00134, .00022, + .00015, .00061, .00090, + .12232, .03510, .00991, .00130, .00022, + .00015, .00059, .00086, + .11881, .03403, .00945, .00125, .00021, + .00015, .00057, .00083 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48222, .15305, .16120, .00608, .00000, + .00000, .00240, .00441, + .45982, .14514, .14524, .00572, .00000, + .00000, .00231, .00411, + .42903, .13437, .12466, .00527, .00000, + .00000, .00213, .00375, + .40842, .12720, .11167, .00491, .00003, + .00000, .00203, .00352, + .38823, .12026, .09956, .00462, .00008, + .00000, .00192, .00329, + .37170, .11463, .09027, .00440, .00011, + .00000, .00184, .00309, + .35668, .10952, .08227, .00418, .00014, + .00000, .00176, .00291, + .34155, .10439, .07466, .00394, .00016, + .00000, .00168, .00275 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32895, .10019, .06868, .00374, .00018, + .00000, .00159, .00264, + .31732, .09630, .06344, .00358, .00019, + .00000, .00152, .00252, + .30848, .09336, .05962, .00346, .00020, + .00000, .00148, .00242, + .29061, .08746, .05226, .00322, .00022, + .00001, .00139, .00222, + .27630, .08276, .04673, .00302, .00022, + .00003, .00132, .00205, + .26126, .07785, .04132, .00281, .00023, + .00006, .00124, .00192, + .24657, .07309, .03646, .00261, .00023, + .00007, .00115, .00179, + .23407, .06907, .03263, .00244, .00023, + .00009, .00109, .00166 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22221, .06528, .02926, .00229, .00023, + .00010, .00103, .00155, + .21285, .06230, .02678, .00217, .00023, + .00010, .00097, .00147, + .20209, .05891, .02410, .00204, .00023, + .00011, .00092, .00136, + .19312, .05609, .02201, .00193, .00022, + .00011, .00087, .00127, + .18531, .05364, .02027, .00182, .00022, + .00011, .00082, .00120, + .17588, .05068, .01832, .00170, .00021, + .00012, .00077, .00113, + .16750, .04808, .01669, .00159, .00021, + .00012, .00073, .00106, + .16006, .04579, .01533, .00150, .00020, + .00012, .00069, .00100 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15297, .04361, .01410, .00142, .00019, + .00012, .00064, .00094, + .14639, .04160, .01301, .00134, .00019, + .00012, .00061, .00089, + .14045, .03980, .01208, .00128, .00018, + .00011, .00059, .00085, + .13509, .03817, .01128, .00121, .00018, + .00011, .00056, .00080, + .12995, .03662, .01053, .00115, .00017, + .00011, .00054, .00075, + .12508, .03515, .00987, .00110, .00017, + .00011, .00051, .00072, + .12066, .03382, .00928, .00105, .00016, + .00011, .00049, .00069, + .11659, .03261, .00876, .00101, .00016, + .00011, .00047, .00066 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11266, .03144, .00828, .00098, .00015, + .00010, .00045, .00062, + .10892, .03032, .00783, .00094, .00015, + .00010, .00043, .00060, + .10550, .02929, .00743, .00090, .00015, + .00010, .00042, .00057, + .10236, .02836, .00708, .00087, .00014, + .00010, .00040, .00055, + .09927, .02745, .00674, .00083, .00014, + .00010, .00039, .00053 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43742, .13392, .13027, .00454, .00000, + .00000, .00173, .00296, + .41572, .12659, .11640, .00426, .00000, + .00000, .00166, .00275, + .38607, .11663, .09873, .00388, .00000, + .00000, .00154, .00249, + .36629, .11004, .08778, .00362, .00002, + .00000, .00144, .00233, + .34704, .10370, .07768, .00336, .00005, + .00000, .00138, .00216, + .33131, .09855, .06998, .00318, .00007, + .00000, .00131, .00204, + .31705, .09391, .06343, .00300, .00009, + .00000, .00125, .00194, + .30275, .08928, .05724, .00282, .00011, + .00000, .00119, .00183 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29090, .08547, .05242, .00267, .00012, + .00000, .00114, .00174, + .28001, .08198, .04821, .00253, .00013, + .00000, .00110, .00164, + .27175, .07933, .04515, .00243, .00013, + .00000, .00107, .00157, + .25503, .07404, .03933, .00226, .00014, + .00001, .00100, .00147, + .24171, .06985, .03498, .00210, .00015, + .00002, .00093, .00136, + .22777, .06548, .03076, .00194, .00015, + .00004, .00087, .00126, + .21422, .06128, .02701, .00180, .00015, + .00005, .00082, .00117, + .20271, .05773, .02408, .00168, .00015, + .00006, .00077, .00108 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19182, .05439, .02150, .00158, .00015, + .00006, .00073, .00101, + .18330, .05178, .01962, .00150, .00015, + .00007, .00068, .00095, + .17356, .04881, .01759, .00138, .00015, + .00007, .00065, .00088, + .16543, .04635, .01602, .00129, .00015, + .00007, .00061, .00083, + .15834, .04422, .01472, .00122, .00014, + .00008, .00058, .00080, + .14982, .04168, .01326, .00114, .00014, + .00008, .00054, .00074, + .14229, .03943, .01205, .00107, .00013, + .00008, .00051, .00069, + .13564, .03746, .01103, .00100, .00013, + .00008, .00049, .00064 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12929, .03559, .01013, .00095, .00013, + .00008, .00045, .00061, + .12341, .03387, .00933, .00089, .00012, + .00008, .00042, .00057, + .11814, .03232, .00865, .00084, .00012, + .00008, .00040, .00054, + .11339, .03093, .00806, .00080, .00012, + .00007, .00039, .00052, + .10885, .02961, .00752, .00076, .00011, + .00007, .00037, .00049, + .10455, .02836, .00703, .00073, .00011, + .00007, .00035, .00046, + .10066, .02724, .00660, .00069, .00011, + .00007, .00034, .00043, + .09709, .02622, .00623, .00066, .00010, + .00007, .00032, .00042 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09365, .02523, .00588, .00063, .00010, + .00007, .00031, .00040, + .09039, .02429, .00555, .00061, .00010, + .00007, .00030, .00039, + .08740, .02344, .00527, .00058, .00009, + .00007, .00029, .00037, + .08466, .02265, .00501, .00055, .00009, + .00006, .00028, .00035, + .08197, .02189, .00476, .00053, .00009, + .00006, .00027, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39248, .11603, .10357, .00347, .00000, + .00000, .00116, .00189, + .37189, .10932, .09181, .00318, .00000, + .00000, .00109, .00178, + .34373, .10029, .07709, .00292, .00000, + .00000, .00100, .00160, + .32506, .09435, .06804, .00270, .00001, + .00000, .00097, .00148, + .30693, .08863, .05978, .00251, .00003, + .00000, .00091, .00137, + .29225, .08399, .05358, .00234, .00005, + .00000, .00086, .00129, + .27896, .07984, .04833, .00220, .00006, + .00000, .00081, .00121, + .26562, .07572, .04338, .00208, .00007, + .00000, .00076, .00113 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25461, .07231, .03955, .00198, .00008, + .00000, .00073, .00108, + .24450, .06920, .03624, .00188, .00008, + .00000, .00070, .00102, + .23685, .06686, .03384, .00180, .00009, + .00000, .00067, .00098, + .22149, .06218, .02931, .00167, .00009, + .00000, .00061, .00089, + .20930, .05849, .02594, .00155, .00010, + .00001, .00058, .00084, + .19656, .05466, .02271, .00143, .00010, + .00003, .00054, .00078, + .18424, .05100, .01986, .00131, .00010, + .00003, .00050, .00071, + .17385, .04790, .01764, .00122, .00010, + .00004, .00047, .00065 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16404, .04499, .01570, .00113, .00010, + .00004, .00044, .00060, + .15634, .04275, .01428, .00108, .00010, + .00005, .00042, .00056, + .14757, .04018, .01277, .00100, .00010, + .00005, .00039, .00052, + .14030, .03806, .01160, .00094, .00009, + .00005, .00037, .00050, + .13399, .03623, .01063, .00089, .00009, + .00005, .00034, .00047, + .12641, .03405, .00955, .00082, .00009, + .00005, .00032, .00044, + .11973, .03213, .00866, .00077, .00009, + .00005, .00030, .00041, + .11385, .03045, .00792, .00073, .00008, + .00005, .00029, .00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10829, .02885, .00726, .00067, .00008, + .00005, .00027, .00036, + .10313, .02739, .00667, .00062, .00008, + .00005, .00025, .00034, + .09849, .02609, .00617, .00060, .00008, + .00005, .00023, .00031, + .09431, .02493, .00575, .00058, .00007, + .00005, .00022, .00029, + .09033, .02382, .00535, .00055, .00007, + .00005, .00021, .00028, + .08660, .02277, .00500, .00052, .00007, + .00005, .00020, .00027, + .08322, .02182, .00469, .00050, .00007, + .00005, .00019, .00026, + .08013, .02097, .00442, .00048, .00007, + .00005, .00018, .00024 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07715, .02015, .00417, .00047, .00006, + .00004, .00018, .00023, + .07433, .01937, .00393, .00045, .00006, + .00004, .00017, .00022, + .07175, .01866, .00373, .00042, .00006, + .00004, .00016, .00021, + .06940, .01801, .00354, .00040, .00006, + .00004, .00015, .00020, + .06710, .01737, .00337, .00038, .00006, + .00004, .00015, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34812, .09903, .08050, .00237, .00000, + .00000, .00085, .00129, + .32866, .09303, .07081, .00219, .00000, + .00000, .00079, .00119, + .30236, .08496, .05881, .00197, .00000, + .00000, .00072, .00106, + .28496, .07966, .05157, .00183, .00001, + .00000, .00067, .00097, + .26818, .07457, .04502, .00170, .00002, + .00000, .00063, .00089, + .25461, .07049, .04011, .00158, .00003, + .00000, .00060, .00084, + .24234, .06684, .03599, .00149, .00004, + .00000, .00056, .00079, + .23007, .06320, .03215, .00141, .00005, + .00000, .00053, .00074 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22004, .06022, .02920, .00133, .00005, + .00000, .00051, .00070, + .21081, .05750, .02664, .00126, .00005, + .00000, .00048, .00066, + .20382, .05547, .02481, .00122, .00006, + .00000, .00045, .00063, + .18994, .05140, .02136, .00110, .00006, + .00000, .00042, .00057, + .17890, .04821, .01883, .00103, .00006, + .00001, .00039, .00053, + .16741, .04491, .01641, .00095, .00006, + .00002, .00037, .00048, + .15637, .04173, .01428, .00087, .00006, + .00002, .00033, .00044, + .14709, .03907, .01264, .00079, .00006, + .00002, .00030, .00042 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13834, .03661, .01121, .00074, .00006, + .00003, .00029, .00039, + .13151, .03469, .01018, .00071, .00006, + .00003, .00027, .00036, + .12375, .03251, .00907, .00066, .00006, + .00003, .00025, .00033, + .11733, .03071, .00822, .00062, .00006, + .00003, .00024, .00030, + .11177, .02917, .00753, .00059, .00006, + .00003, .00023, .00029, + .10514, .02733, .00675, .00054, .00006, + .00003, .00021, .00027, + .09932, .02572, .00611, .00050, .00005, + .00003, .00019, .00026, + .09421, .02431, .00557, .00046, .00005, + .00003, .00019, .00024 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08935, .02298, .00510, .00044, .00005, + .00003, .00017, .00022, + .08488, .02177, .00468, .00041, .00005, + .00003, .00016, .00020, + .08088, .02068, .00432, .00038, .00005, + .00003, .00015, .00020, + .07730, .01971, .00402, .00037, .00005, + .00003, .00014, .00019, + .07388, .01880, .00374, .00035, .00004, + .00003, .00014, .00018, + .07068, .01793, .00349, .00034, .00004, + .00003, .00013, .00016, + .06779, .01715, .00327, .00032, .00004, + .00003, .00012, .00015, + .06515, .01645, .00307, .00031, .00004, + .00003, .00011, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06262, .01578, .00290, .00029, .00004, + .00003, .00011, .00014, + .06022, .01515, .00273, .00028, .00004, + .00003, .00010, .00013, + .05803, .01457, .00258, .00027, .00004, + .00003, .00010, .00012, + .05603, .01404, .00245, .00025, .00004, + .00003, .00010, .00012, + .05408, .01352, .00233, .00024, .00003, + .00003, .00009, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30504, .08354, .06124, .00157, .00000, + .00000, .00060, .00083, + .28700, .07820, .05347, .00147, .00000, + .00000, .00054, .00078, + .26272, .07108, .04396, .00133, .00000, + .00000, .00050, .00068, + .24675, .06642, .03826, .00123, .00000, + .00000, .00046, .00063, + .23140, .06198, .03318, .00112, .00001, + .00000, .00044, .00057, + .21903, .05842, .02941, .00105, .00002, + .00000, .00041, .00053, + .20791, .05523, .02626, .00098, .00002, + .00000, .00039, .00051, + .19685, .05208, .02334, .00090, .00003, + .00000, .00036, .00048 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18777, .04951, .02112, .00087, .00003, + .00000, .00034, .00044, + .17948, .04717, .01920, .00082, .00003, + .00000, .00032, .00042, + .17323, .04542, .01783, .00078, .00003, + .00000, .00031, .00040, + .16078, .04193, .01527, .00071, .00004, + .00000, .00029, .00035, + .15096, .03919, .01341, .00066, .00004, + .00001, .00027, .00033, + .14080, .03637, .01164, .00059, .00004, + .00001, .00025, .00031, + .13101, .03369, .01009, .00055, .00004, + .00001, .00023, .00029, + .12281, .03145, .00890, .00051, .00004, + .00002, .00021, .00027 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11515, .02937, .00787, .00046, .00004, + .00002, .00019, .00024, + .10919, .02775, .00713, .00044, .00004, + .00002, .00019, .00022, + .10244, .02592, .00634, .00040, .00004, + .00002, .00017, .00021, + .09686, .02442, .00574, .00037, .00004, + .00002, .00016, .00020, + .09203, .02315, .00524, .00035, .00004, + .00002, .00015, .00018, + .08631, .02162, .00469, .00032, .00003, + .00002, .00013, .00017, + .08128, .02029, .00423, .00030, .00003, + .00002, .00012, .00016, + .07687, .01913, .00386, .00029, .00003, + .00002, .00012, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07274, .01803, .00352, .00027, .00003, + .00002, .00011, .00014, + .06893, .01704, .00323, .00025, .00003, + .00002, .00010, .00013, + .06552, .01616, .00298, .00024, .00003, + .00002, .00010, .00012, + .06247, .01536, .00277, .00023, .00003, + .00002, .00009, .00011, + .05958, .01461, .00257, .00022, .00003, + .00002, .00009, .00011, + .05687, .01391, .00240, .00020, .00003, + .00002, .00009, .00010, + .05443, .01328, .00224, .00019, .00003, + .00002, .00008, .00009, + .05222, .01271, .00211, .00019, .00002, + .00002, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05009, .01217, .00198, .00018, .00002, + .00002, .00008, .00008, + .04808, .01166, .00187, .00017, .00002, + .00002, .00007, .00008, + .04626, .01119, .00177, .00016, .00002, + .00002, .00006, .00007, + .04459, .01077, .00168, .00014, .00002, + .00002, .00006, .00007, + .04296, .01035, .00159, .00014, .00002, + .00002, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26390, .06965, .04560, .00113, .00000, + .00000, .00036, .00050, + .24749, .06498, .03952, .00103, .00000, + .00000, .00033, .00046, + .22540, .05878, .03218, .00093, .00000, + .00000, .00030, .00040, + .21102, .05475, .02781, .00083, .00000, + .00000, .00028, .00036, + .19718, .05090, .02399, .00078, .00001, + .00000, .00025, .00033, + .18609, .04785, .02116, .00073, .00001, + .00000, .00024, .00030, + .17615, .04513, .01881, .00068, .00001, + .00000, .00024, .00028, + .16629, .04243, .01665, .00064, .00002, + .00000, .00022, .00027 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15823, .04023, .01501, .00060, .00002, + .00000, .00020, .00025, + .15088, .03824, .01361, .00056, .00002, + .00000, .00019, .00024, + .14536, .03676, .01261, .00053, .00002, + .00000, .00018, .00023, + .13440, .03379, .01075, .00048, .00002, + .00000, .00015, .00022, + .12579, .03149, .00941, .00044, .00002, + .00000, .00015, .00019, + .11689, .02913, .00814, .00040, .00002, + .00001, .00014, .00018, + .10838, .02688, .00703, .00037, .00002, + .00001, .00012, .00017, + .10128, .02502, .00619, .00034, .00002, + .00001, .00011, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09465, .02329, .00546, .00031, .00002, + .00001, .00011, .00014, + .08951, .02195, .00493, .00030, .00002, + .00001, .00011, .00013, + .08371, .02044, .00438, .00028, .00002, + .00001, .00010, .00011, + .07893, .01921, .00396, .00026, .00002, + .00001, .00009, .00010, + .07481, .01816, .00361, .00025, .00002, + .00001, .00008, .00009, + .06995, .01691, .00323, .00022, .00002, + .00001, .00007, .00009, + .06568, .01582, .00291, .00021, .00002, + .00001, .00007, .00008, + .06195, .01488, .00265, .00020, .00002, + .00001, .00006, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05846, .01399, .00241, .00018, .00002, + .00001, .00006, .00007, + .05525, .01319, .00221, .00017, .00002, + .00001, .00006, .00007, + .05240, .01248, .00204, .00016, .00002, + .00001, .00005, .00006, + .04986, .01184, .00189, .00015, .00002, + .00001, .00005, .00006, + .04746, .01123, .00175, .00014, .00002, + .00001, .00005, .00006, + .04521, .01067, .00163, .00013, .00002, + .00001, .00004, .00005, + .04318, .01017, .00153, .00013, .00002, + .00001, .00004, .00005, + .04135, .00972, .00143, .00012, .00001, + .00001, .00004, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03959, .00928, .00135, .00011, .00001, + .00001, .00004, .00005, + .03793, .00888, .00127, .00011, .00001, + .00001, .00003, .00004, + .03641, .00851, .00120, .00010, .00001, + .00001, .00003, .00004, + .03504, .00817, .00114, .00010, .00001, + .00001, .00003, .00004, + .03371, .00784, .00108, .00009, .00001, + .00001, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22488, .05701, .03294, .00069, .00000, + .00000, .00027, .00033, + .21015, .05302, .02835, .00063, .00000, + .00000, .00025, .00030, + .19048, .04771, .02286, .00055, .00000, + .00000, .00021, .00026, + .17763, .04428, .01964, .00051, .00000, + .00000, .00020, .00024, + .16544, .04103, .01683, .00045, .00000, + .00000, .00018, .00022, + .15564, .03844, .01479, .00041, .00001, + .00000, .00017, .00020, + .14688, .03615, .01309, .00039, .00001, + .00000, .00016, .00020, + .13822, .03389, .01154, .00037, .00001, + .00000, .00015, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13120, .03206, .01037, .00034, .00001, + .00000, .00014, .00016, + .12481, .03040, .00937, .00031, .00001, + .00000, .00013, .00014, + .12001, .02916, .00866, .00030, .00001, + .00000, .00012, .00013, + .11048, .02670, .00736, .00027, .00001, + .00000, .00011, .00014, + .10304, .02480, .00642, .00025, .00001, + .00000, .00010, .00012, + .09540, .02286, .00554, .00023, .00001, + .00000, .00009, .00011, + .08812, .02102, .00477, .00021, .00001, + .00001, .00008, .00010, + .08206, .01949, .00419, .00020, .00001, + .00001, .00008, .00010 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07642, .01808, .00369, .00018, .00001, + .00001, .00007, .00009, + .07209, .01699, .00333, .00017, .00001, + .00001, .00007, .00008, + .06719, .01578, .00295, .00015, .00001, + .00001, .00006, .00007, + .06317, .01478, .00266, .00014, .00001, + .00001, .00006, .00007, + .05973, .01394, .00242, .00013, .00001, + .00001, .00005, .00007, + .05566, .01294, .00216, .00012, .00001, + .00001, .00005, .00006, + .05211, .01207, .00195, .00011, .00001, + .00001, .00005, .00005, + .04900, .01132, .00177, .00010, .00001, + .00001, .00004, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04612, .01062, .00161, .00009, .00001, + .00001, .00004, .00005, + .04348, .00998, .00148, .00008, .00001, + .00001, .00004, .00005, + .04113, .00942, .00136, .00008, .00001, + .00001, .00003, .00004, + .03905, .00891, .00126, .00008, .00001, + .00001, .00003, .00004, + .03708, .00844, .00117, .00007, .00001, + .00001, .00003, .00004, + .03523, .00800, .00108, .00007, .00001, + .00001, .00003, .00004, + .03358, .00761, .00101, .00006, .00001, + .00001, .00003, .00003, + .03208, .00726, .00095, .00006, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03065, .00692, .00089, .00006, .00001, + .00001, .00003, .00003, + .02931, .00660, .00084, .00006, .00001, + .00001, .00002, .00003, + .02809, .00631, .00079, .00005, .00001, + .00001, .00002, .00003, + .02699, .00605, .00075, .00005, .00001, + .00001, .00002, .00003, + .02591, .00580, .00071, .00005, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15595, .03642, .01576, .00026, .00000, + .00000, .00009, .00011, + .14461, .03362, .01339, .00025, .00000, + .00000, .00008, .00011, + .12965, .02995, .01061, .00021, .00000, + .00000, .00007, .00008, + .12000, .02759, .00902, .00020, .00000, + .00000, .00006, .00007, + .11089, .02536, .00765, .00018, .00000, + .00000, .00005, .00009, + .10365, .02362, .00667, .00016, .00000, + .00000, .00005, .00007, + .09723, .02208, .00587, .00014, .00000, + .00000, .00005, .00006, + .09094, .02056, .00514, .00013, .00000, + .00000, .00005, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08584, .01934, .00459, .00012, .00000, + .00000, .00005, .00005, + .08123, .01824, .00414, .00011, .00000, + .00000, .00004, .00005, + .07779, .01743, .00381, .00011, .00000, + .00000, .00004, .00004, + .07100, .01583, .00322, .00010, .00000, + .00000, .00003, .00004, + .06576, .01460, .00279, .00009, .00000, + .00000, .00003, .00004, + .06041, .01335, .00240, .00008, .00000, + .00000, .00003, .00004, + .05536, .01218, .00206, .00007, .00000, + .00000, .00003, .00003, + .05118, .01122, .00181, .00006, .00000, + .00000, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04733, .01033, .00159, .00006, .00000, + .00000, .00002, .00003, + .04439, .00966, .00143, .00005, .00000, + .00000, .00002, .00003, + .04109, .00891, .00127, .00005, .00000, + .00000, .00002, .00002, + .03840, .00829, .00114, .00005, .00000, + .00000, .00002, .00002, + .03611, .00778, .00104, .00004, .00000, + .00000, .00002, .00002, + .03341, .00717, .00092, .00004, .00000, + .00000, .00002, .00002, + .03109, .00665, .00083, .00004, .00000, + .00000, .00002, .00002, + .02907, .00620, .00075, .00003, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02719, .00578, .00068, .00003, .00000, + .00000, .00001, .00001, + .02549, .00540, .00062, .00003, .00000, + .00000, .00001, .00001, + .02400, .00507, .00057, .00002, .00000, + .00000, .00001, .00001, + .02267, .00478, .00053, .00002, .00000, + .00000, .00001, .00001, + .02141, .00450, .00049, .00002, .00000, + .00000, .00001, .00001, + .02025, .00425, .00046, .00002, .00000, + .00000, .00001, .00001, + .01921, .00402, .00042, .00002, .00000, + .00000, .00001, .00001, + .01828, .00382, .00040, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01740, .00362, .00037, .00002, .00000, + .00000, .00001, .00001, + .01657, .00344, .00035, .00001, .00000, + .00000, .00001, .00001, + .01582, .00328, .00033, .00001, .00000, + .00000, .00001, .00001, + .01514, .00314, .00031, .00001, .00000, + .00000, .00001, .00001, + .01448, .00299, .00029, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .09990, .02135, .00648, .00010, .00000, + .00000, .00002, .00002, + .09193, .01955, .00545, .00008, .00000, + .00000, .00003, .00003, + .08146, .01721, .00427, .00007, .00000, + .00000, .00001, .00003, + .07479, .01573, .00360, .00006, .00000, + .00000, .00002, .00003, + .06853, .01435, .00303, .00006, .00000, + .00000, .00001, .00002, + .06362, .01326, .00263, .00005, .00000, + .00000, .00001, .00002, + .05928, .01231, .00231, .00004, .00000, + .00000, .00001, .00002, + .05504, .01140, .00202, .00005, .00000, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05165, .01066, .00180, .00004, .00000, + .00000, .00001, .00001, + .04861, .01000, .00161, .00004, .00000, + .00000, .00001, .00001, + .04635, .00951, .00149, .00003, .00000, + .00000, .00001, .00001, + .04191, .00856, .00125, .00004, .00000, + .00000, .00001, .00001, + .03852, .00784, .00109, .00003, .00000, + .00000, .00001, .00001, + .03509, .00710, .00093, .00002, .00000, + .00000, .00001, .00001, + .03187, .00642, .00080, .00002, .00000, + .00000, .00001, .00001, + .02924, .00587, .00070, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02684, .00537, .00062, .00002, .00000, + .00000, .00000, .00001, + .02502, .00499, .00055, .00001, .00000, + .00000, .00000, .00000, + .02298, .00456, .00049, .00001, .00000, + .00000, .00000, .00001, + .02133, .00423, .00044, .00001, .00000, + .00000, .00000, .00001, + .01994, .00394, .00040, .00001, .00000, + .00000, .00000, .00001, + .01832, .00360, .00036, .00001, .00000, + .00000, .00000, .00000, + .01693, .00332, .00032, .00001, .00000, + .00000, .00000, .00000, + .01573, .00307, .00029, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01462, .00285, .00026, .00001, .00000, + .00000, .00000, .00000, + .01362, .00265, .00024, .00001, .00000, + .00000, .00000, .00000, + .01275, .00247, .00022, .00001, .00000, + .00000, .00000, .00000, + .01197, .00232, .00020, .00001, .00000, + .00000, .00000, .00000, + .01125, .00217, .00019, .00001, .00000, + .00000, .00000, .00000, + .01059, .00204, .00017, .00001, .00000, + .00000, .00000, .00000, + .01000, .00192, .00016, .00000, .00000, + .00000, .00000, .00000, + .00947, .00181, .00015, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00897, .00171, .00014, .00000, .00000, + .00000, .00000, .00000, + .00850, .00162, .00013, .00001, .00000, + .00000, .00000, .00000, + .00808, .00154, .00012, .00001, .00000, + .00000, .00000, .00000, + .00770, .00146, .00012, .00001, .00000, + .00000, .00000, .00000, + .00734, .00139, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05773, .01116, .00219, .00003, .00000, + .00000, .00000, .00000, + .05263, .01013, .00183, .00003, .00000, + .00000, .00000, .00000, + .04605, .00880, .00143, .00002, .00000, + .00000, .00000, .00000, + .04188, .00798, .00120, .00002, .00000, + .00000, .00000, .00000, + .03803, .00721, .00101, .00002, .00000, + .00000, .00000, .00001, + .03502, .00661, .00088, .00001, .00000, + .00000, .00000, .00001, + .03239, .00609, .00077, .00001, .00000, + .00000, .00000, .00001, + .02985, .00560, .00067, .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)/ + .02782, .00520, .00060, .00001, .00000, + .00000, .00000, .00000, + .02601, .00484, .00054, .00001, .00000, + .00000, .00000, .00000, + .02467, .00459, .00050, .00001, .00000, + .00000, .00000, .00000, + .02209, .00409, .00042, .00001, .00000, + .00000, .00000, .00000, + .02012, .00371, .00037, .00001, .00000, + .00000, .00000, .00000, + .01816, .00333, .00032, .00001, .00000, + .00000, .00000, .00000, + .01633, .00298, .00027, .00001, .00000, + .00000, .00000, .00000, + .01486, .00270, .00024, .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)/ + .01352, .00245, .00021, .00000, .00000, + .00000, .00000, .00000, + .01251, .00226, .00019, .00000, .00000, + .00000, .00000, .00000, + .01139, .00205, .00017, .00000, .00000, + .00000, .00000, .00000, + .01050, .00188, .00015, .00000, .00000, + .00000, .00000, .00000, + .00976, .00175, .00014, .00000, .00000, + .00000, .00000, .00000, + .00889, .00158, .00012, .00000, .00000, + .00000, .00000, .00000, + .00814, .00145, .00011, .00000, .00000, + .00000, .00000, .00000, + .00751, .00133, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00693, .00123, .00009, .00000, .00000, + .00000, .00000, .00000, + .00642, .00113, .00008, .00000, .00000, + .00000, .00000, .00000, + .00597, .00105, .00007, .00000, .00000, + .00000, .00000, .00000, + .00557, .00098, .00007, .00000, .00000, + .00000, .00000, .00000, + .00520, .00091, .00006, .00000, .00000, + .00000, .00000, .00000, + .00487, .00085, .00006, .00000, .00000, + .00000, .00000, .00000, + .00457, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00431, .00075, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00406, .00070, .00005, .00000, .00000, + .00000, .00000, .00000, + .00383, .00066, .00004, .00000, .00000, + .00000, .00000, .00000, + .00362, .00063, .00004, .00000, .00000, + .00000, .00000, .00000, + .00344, .00059, .00004, .00000, .00000, + .00000, .00000, .00000, + .00326, .00056, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02869, .00493, .00056, .00000, .00000, + .00000, .00000, .00000, + .02589, .00443, .00047, .00000, .00000, + .00000, .00000, .00000, + .02231, .00379, .00037, .00000, .00000, + .00000, .00000, .00000, + .02008, .00340, .00031, .00000, .00000, + .00000, .00000, .00000, + .01803, .00304, .00027, .00000, .00000, + .00000, .00000, .00000, + .01646, .00276, .00023, .00000, .00000, + .00000, .00000, .00000, + .01509, .00252, .00021, .00000, .00000, + .00000, .00000, .00000, + .01378, .00230, .00018, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .01274, .00212, .00016, .00000, .00000, + .00000, .00000, .00000, + .01183, .00196, .00015, .00000, .00000, + .00000, .00000, .00000, + .01116, .00185, .00014, .00000, .00000, + .00000, .00000, .00000, + .00987, .00162, .00012, .00000, .00000, + .00000, .00000, .00000, + .00890, .00146, .00010, .00000, .00000, + .00000, .00000, .00000, + .00794, .00130, .00009, .00000, .00000, + .00000, .00000, .00000, + .00706, .00115, .00008, .00000, .00000, + .00000, .00000, .00000, + .00636, .00103, .00007, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00573, .00092, .00006, .00000, .00000, + .00000, .00000, .00000, + .00526, .00085, .00005, .00000, .00000, + .00000, .00000, .00000, + .00474, .00076, .00005, .00000, .00000, + .00000, .00000, .00000, + .00433, .00069, .00004, .00000, .00000, + .00000, .00000, .00000, + .00399, .00064, .00004, .00000, .00000, + .00000, .00000, .00000, + .00360, .00057, .00003, .00000, .00000, + .00000, .00000, .00000, + .00327, .00052, .00003, .00000, .00000, + .00000, .00000, .00000, + .00299, .00047, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00274, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00251, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00232, .00036, .00002, .00000, .00000, + .00000, .00000, .00000, + .00215, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00199, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00185, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00173, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .00025, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00152, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00142, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00134, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00126, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00119, .00018, .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)/ + .00298, .00037, .00001, .00000, .00000, + .00000, .00000, .00000, + .00261, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00215, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00188, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00163, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00145, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00130, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00014, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00104, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00095, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00088, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00075, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00057, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00043, .00005, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00037, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00015, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor09.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