#include "pdf/pilot.h" subroutine sfmrs_98a3(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)/ + .00408, .00237, 1.12142, .87870, .00000, + .00000, .46696, .88815, + .00424, .00243, 2.37000, .91425, .00000, + .00000, .50714, .92386, + .00448, .00253, 4.81686, .99040, .03290, + .00000, .58990, 1.00023, + .00466, .00260, 7.17814, 1.06354, .11029, + .00000, .66770, 1.07352, + .00485, .00268, 10.19450, 1.16003, .19842, + .00000, .76897, 1.17017, + .00501, .00275, 13.28564, 1.25984, .29008, + .00000, .87279, 1.27010, + .00516, .00282, 16.76563, 1.36922, .39514, + .00000, .98593, 1.37959, + .00533, .00289, 21.04811, 1.50104, .52477, + .00000, 1.12165, 1.51152 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00548, .00296, 25.21732, 1.63088, .64963, + .00000, 1.25481, 1.64145, + .00562, .00302, 29.69568, 1.76926, .78392, + .00000, 1.39634, 1.77992, + .00573, .00307, 33.62181, 1.88804, .90202, + .00000, 1.51757, 1.89876, + .00598, .00318, 42.86912, 2.17165, 1.18099, + .02218, 1.80630, 2.18251, + .00619, .00328, 51.86707, 2.44974, 1.45396, + .34036, 2.08870, 2.46070, + .00643, .00339, 63.25751, 2.80034, 1.80032, + .73816, 2.44399, 2.81140, + .00668, .00350, 76.64371, 3.21127, 2.20734, + 1.16250, 2.85969, 3.22244, + .00691, .00361, 90.18671, 3.62664, 2.61969, + 1.59281, 3.27926, 3.63790 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00714, .00372, 105.25520, 4.08895, 3.07994, + 2.07133, 3.74571, 4.10028, + .00734, .00382, 118.79253, 4.50635, 3.49468, + 2.49774, 4.16649, 4.51775, + .00758, .00393, 136.46303, 5.05420, 4.03859, + 3.05489, 4.71835, 5.06566, + .00780, .00403, 153.36763, 5.57932, 4.56178, + 3.59335, 5.24693, 5.59084, + .00800, .00413, 169.93800, 6.09560, 5.07725, + 4.12424, 5.76633, 6.10717, + .00825, .00425, 192.16139, 6.79570, 5.77350, + 4.83461, 6.47032, 6.80733, + .00849, .00437, 214.54834, 7.50452, 6.48022, + 5.55764, 7.18270, 7.51619, + .00872, .00448, 236.93715, 8.21606, 7.19193, + 6.28827, 7.89752, 8.22777 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00895, .00460, 260.21698, 8.96644, 7.93891, + 7.04782, 8.65112, 8.97818, + .00918, .00471, 284.31726, 9.74670, 8.71803, + 7.84316, 9.43447, 9.75846, + .00940, .00482, 308.24033, 10.52667, 9.49750, + 8.63875, 10.21731, 10.53846, + .00961, .00492, 331.52756, 11.29427, 10.26324, + 9.41745, 10.98758, 11.30609, + .00982, .00502, 356.10956, 12.10709, 11.07664, + 10.24768, 11.80303, 12.11892, + .01003, .00513, 380.80463, 12.93482, 11.90234, + 11.08581, 12.63332, 12.94667, + .01023, .00523, 405.44580, 13.76243, 12.73084, + 11.93051, 13.46332, 13.77429, + .01042, .00532, 429.08972, 14.56726, 13.53410, + 12.74528, 14.27038, 14.57913 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01061, .00542, 453.93533, 15.41547, 14.38284, + 13.60876, 15.12081, 15.42735, + .01080, .00552, 478.92456, 16.27757, 15.24439, + 14.48328, 15.98507, 16.28945, + .01099, .00561, 503.44965, 17.12922, 16.09595, + 15.34782, 16.83876, 17.14110, + .01117, .00570, 527.41248, 17.96556, 16.93321, + 16.19884, 17.67701, 17.97746, + .01135, .00579, 551.84790, 18.82849, 17.79538, + 17.07224, 18.54185, 18.84039 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00570, .00320, 1.03310, .75182, .00000, + .00000, .39899, .75747, + .00593, .00330, 2.15359, .78416, .00000, + .00000, .43507, .78991, + .00627, .00344, 4.30511, .85093, .02848, + .00000, .50715, .85682, + .00651, .00355, 6.33978, .91365, .09494, + .00000, .57361, .91963, + .00678, .00367, 8.89548, .99504, .16921, + .00000, .65882, 1.00112, + .00700, .00377, 11.47574, 1.07818, .24551, + .00000, .74517, 1.08433, + .00722, .00387, 14.34528, 1.16851, .33214, + .00000, .83850, 1.17473, + .00745, .00398, 17.83455, 1.27648, .43800, + .00000, .94958, 1.28277 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00766, .00407, 21.19213, 1.38191, .53905, + .00000, 1.05765, 1.38826, + .00786, .00416, 24.76344, 1.49351, .64692, + .00000, 1.17175, 1.49992, + .00801, .00423, 27.86952, 1.58880, .74122, + .00000, 1.26899, 1.59525, + .00835, .00439, 35.09740, 1.81439, .96203, + .01803, 1.49864, 1.82092, + .00864, .00453, 42.02779, 2.03339, 1.17584, + .26670, 1.72104, 2.03999, + .00897, .00469, 50.68799, 2.30692, 1.44456, + .57550, 1.99829, 2.31360, + .00932, .00486, 60.73025, 2.62439, 1.75718, + .90094, 2.31951, 2.63113, + .00964, .00501, 70.76392, 2.94230, 2.07094, + 1.22779, 2.64074, 2.94910 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00996, .00517, 81.80051, 3.29309, 2.41813, + 1.58803, 2.99479, 3.29995, + .01023, .00530, 91.61332, 3.60732, 2.72853, + 1.90640, 3.31168, 3.61423, + .01056, .00546, 104.29307, 4.01656, 3.13246, + 2.31912, 3.72407, 4.02352, + .01086, .00561, 116.30483, 4.40585, 3.51812, + 2.71504, 4.11608, 4.41286, + .01113, .00574, 127.97827, 4.78603, 3.89560, + 3.10283, 4.49871, 4.79307, + .01148, .00591, 143.48306, 5.29771, 4.40164, + 3.61768, 5.01343, 5.30479, + .01181, .00608, 158.95288, 5.81184, 4.91150, + 4.13790, 5.53036, 5.81896, + .01212, .00624, 174.29153, 6.32441, 5.42157, + 4.66019, 6.04550, 6.33157 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01244, .00639, 190.09596, 6.86116, 5.95310, + 5.19909, 6.58476, 6.86835, + .01275, .00655, 206.33009, 7.41576, 6.50416, + 5.76010, 7.14178, 7.42298, + .01304, .00670, 222.32335, 7.96680, 7.05220, + 6.31799, 7.69507, 7.97404, + .01333, .00684, 237.77411, 8.50589, 7.58741, + 6.86073, 8.23625, 8.51316, + .01361, .00699, 253.98309, 9.07381, 8.15317, + 7.43673, 8.80623, 9.08110, + .01389, .00713, 270.14569, 9.64883, 8.72412, + 8.01466, 9.38324, 9.65614, + .01416, .00727, 286.18436, 10.22109, 9.29454, + 8.59477, 9.95737, 10.22842, + .01442, .00740, 301.46918, 10.77467, 9.84461, + 9.15119, 10.51270, 10.78202 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01468, .00753, 317.45087, 11.35565, 10.42354, + 9.73869, 11.09542, 11.36301, + .01494, .00766, 333.42682, 11.94331, 11.00838, + 10.33079, 11.68477, 11.95069, + .01519, .00779, 349.02484, 12.52137, 11.58406, + 10.91376, 12.26443, 12.52877, + .01543, .00792, 364.19305, 13.08684, 12.14796, + 11.48553, 12.83139, 13.09425, + .01567, .00804, 379.57153, 13.66771, 12.72600, + 12.06959, 13.41376, 13.67513 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00798, .00432, .95258, .64292, .00000, + .00000, .34096, .64591, + .00829, .00447, 1.95794, .67221, .00000, + .00000, .37327, .67526, + .00877, .00468, 3.84872, .73069, .02465, + .00000, .43602, .73382, + .00911, .00485, 5.60015, .78445, .08170, + .00000, .49278, .78763, + .00948, .00502, 7.76244, .85306, .14426, + .00000, .56445, .85629, + .00979, .00517, 9.91241, .92223, .20775, + .00000, .63618, .92551, + .01010, .00531, 12.27374, .99671, .27911, + .00000, .71306, 1.00004, + .01042, .00547, 15.11018, 1.08499, .36548, + .00000, .80382, 1.08836 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01071, .00560, 17.80711, 1.17041, .44717, + .00000, .89134, 1.17382, + .01098, .00574, 20.64705, 1.26018, .53371, + .00000, .98310, 1.26362, + .01120, .00584, 23.09710, 1.33642, .60891, + .00000, 1.06088, 1.33988, + .01167, .00607, 28.72801, 1.51533, .78341, + .01466, 1.24301, 1.51885, + .01207, .00627, 34.04599, 1.68721, .95061, + .20888, 1.41758, 1.69078, + .01253, .00650, 40.60380, 1.89986, 1.15870, + .44847, 1.63316, 1.90348, + .01301, .00673, 48.10469, 2.14417, 1.39831, + .69789, 1.88043, 2.14783, + .01345, .00695, 55.50371, 2.38650, 1.63650, + .94595, 2.12537, 2.39021 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01389, .00718, 63.54739, 2.65154, 1.89776, + 1.21687, 2.39299, 2.65530, + .01426, .00736, 70.62322, 2.88705, 2.12946, + 1.45429, 2.63058, 2.89084, + .01472, .00759, 79.67174, 3.19135, 2.42860, + 1.75960, 2.93735, 3.19518, + .01512, .00780, 88.15784, 3.47858, 2.71203, + 2.05028, 3.22671, 3.48244, + .01549, .00798, 96.33260, 3.75717, 2.98760, + 2.33307, 3.50722, 3.76107, + .01597, .00823, 107.08201, 4.12925, 3.35418, + 2.70551, 3.88168, 4.13319, + .01642, .00846, 117.70217, 4.50025, 3.72075, + 3.07904, 4.25486, 4.50421, + .01685, .00867, 128.13979, 4.86754, 4.08499, + 3.45157, 4.62416, 4.87155 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01728, .00889, 138.79277, 5.24937, 4.46177, + 3.83297, 5.00796, 5.25341, + .01770, .00911, 149.64824, 5.64139, 4.84999, + 4.22767, 5.40186, 5.64546, + .01810, .00932, 160.25938, 6.02849, 5.23374, + 4.61779, 5.79071, 6.03258, + .01848, .00951, 170.43010, 6.40489, 5.60623, + 4.99495, 6.16874, 6.40901, + .01887, .00971, 181.03267, 6.79938, 5.99805, + 5.39335, 6.56483, 6.80352, + .01925, .00991, 191.52205, 7.19641, 6.39105, + 5.79054, 6.96342, 7.20058, + .01961, .01010, 201.87326, 7.58969, 6.78198, + 6.18762, 7.35816, 7.59389, + .01996, .01028, 211.66670, 7.96808, 7.15686, + 6.56624, 7.73790, 7.97229 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02031, .01046, 221.85484, 8.36350, 7.54983, + 6.96451, 8.13467, 8.36774, + .02066, .01065, 231.97409, 8.76150, 7.94484, + 7.36386, 8.53398, 8.76576, + .02100, .01082, 241.80070, 9.15131, 8.33202, + 7.75542, 8.92504, 9.15559, + .02132, .01099, 251.30998, 9.53111, 8.70983, + 8.13802, 9.30600, 9.53541, + .02164, .01116, 260.89200, 9.91946, 9.09530, + 8.52693, 9.69551, 9.92377 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00971, .00516, .90909, .58649, .00000, + .00000, .31104, .58840, + .01009, .00534, 1.85263, .61409, .00000, + .00000, .34129, .61603, + .01067, .00561, 3.60529, .66817, .02265, + .00000, .39915, .67017, + .01109, .00582, 5.20880, .71726, .07482, + .00000, .45089, .71931, + .01153, .00603, 7.16815, .77931, .13138, + .00000, .51563, .78140, + .01192, .00622, 9.09860, .84138, .18837, + .00000, .57995, .84351, + .01229, .00640, 11.20310, .90786, .25206, + .00000, .64854, .91002, + .01268, .00659, 13.71268, .98625, .32869, + .00000, .72910, .98844 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01302, .00676, 16.08177, 1.06168, .40077, + .00000, .80637, 1.06390, + .01336, .00693, 18.56158, 1.14061, .47679, + .00000, .88704, 1.14286, + .01362, .00706, 20.69062, 1.20742, .54261, + .00000, .95521, 1.20969, + .01419, .00734, 25.54745, 1.36339, .69454, + .01298, 1.11398, 1.36570, + .01468, .00759, 30.09278, 1.51229, .83919, + .18099, 1.26524, 1.51464, + .01523, .00786, 35.65355, 1.69546, 1.01817, + .38744, 1.45097, 1.69785, + .01581, .00816, 41.96204, 1.90462, 1.22302, + .60081, 1.66271, 1.90706, + .01634, .00842, 48.13725, 2.11091, 1.42548, + .81177, 1.87127, 2.11339 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01687, .00870, 54.80348, 2.33535, 1.64640, + 1.04094, 2.09794, 2.33786, + .01732, .00893, 60.63017, 2.53382, 1.84137, + 1.24077, 2.29822, 2.53637, + .01787, .00921, 68.03490, 2.78904, 2.09191, + 1.49650, 2.55560, 2.79163, + .01835, .00946, 74.93766, 3.02884, 2.32822, + 1.73888, 2.79725, 3.03147, + .01880, .00969, 81.55212, 3.26049, 2.55706, + 1.97373, 3.03056, 3.26314, + .01937, .00998, 90.19733, 3.56845, 2.86005, + 2.28155, 3.34058, 3.57114, + .01992, .01026, 98.68818, 3.87410, 3.16168, + 2.58889, 3.64813, 3.87683, + .02043, .01052, 106.98922, 4.17546, 3.46020, + 2.89420, 3.95122, 4.17822 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02094, .01079, 115.41262, 4.48738, 3.76761, + 3.20532, 4.26484, 4.49018, + .02144, .01105, 123.95512, 4.80640, 4.08319, + 3.52613, 4.58550, 4.80924, + .02192, .01130, 132.26602, 5.12027, 4.39402, + 3.84209, 4.90088, 5.12313, + .02238, .01154, 140.19391, 5.42434, 4.69461, + 4.14639, 5.20636, 5.42724, + .02284, .01178, 148.42725, 5.74205, 5.00989, + 4.46693, 5.52545, 5.74497, + .02329, .01202, 156.53333, 6.06066, 5.32495, + 4.78527, 5.84541, 6.06361, + .02373, .01225, 164.50620, 6.37540, 5.63753, + 5.10275, 6.16140, 6.37838, + .02414, .01246, 172.01596, 6.67721, 5.93627, + 5.40439, 6.46439, 6.68022 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02456, .01268, 179.80486, 6.99183, 6.24868, + 5.72098, 6.78018, 6.99486, + .02497, .01290, 187.51030, 7.30755, 6.56177, + 6.03745, 7.09704, 7.31061, + .02537, .01311, 194.96852, 7.61599, 6.86789, + 6.34696, 7.40654, 7.61907, + .02575, .01331, 202.16466, 7.91579, 7.16590, + 6.64873, 7.70735, 7.91889, + .02614, .01351, 209.38814, 8.22148, 7.46909, + 6.95455, 8.01405, 8.22461 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01116, .00585, .87989, .54939, .00000, + .00000, .29143, .55072, + .01160, .00606, 1.78190, .57581, .00000, + .00000, .32029, .57718, + .01226, .00638, 3.44248, .62696, .02133, + .00000, .37490, .62837, + .01275, .00662, 4.94824, .67298, .07028, + .00000, .42335, .67443, + .01326, .00687, 6.77453, .73075, .12294, + .00000, .48357, .73223, + .01370, .00709, 8.56205, .78820, .17571, + .00000, .54309, .78971, + .01412, .00730, 10.50031, .84950, .23443, + .00000, .60631, .85104, + .01457, .00753, 12.79954, .92151, .30481, + .00000, .68030, .92308 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01497, .00773, 14.95885, .99052, .37074, + .00000, .75100, .99212, + .01535, .00792, 17.20934, 1.06251, .44006, + .00000, .82458, 1.06414, + .01565, .00807, 19.13479, 1.12331, .49992, + .00000, .88661, 1.12495, + .01630, .00840, 23.50362, 1.26468, .63755, + .01190, 1.03054, 1.26637, + .01686, .00868, 27.56535, 1.39904, .76800, + .16345, 1.16704, 1.40076, + .01749, .00901, 32.50612, 1.56363, .92874, + .34915, 1.33396, 1.56540, + .01816, .00935, 38.07817, 1.75077, 1.11190, + .54008, 1.52344, 1.75258, + .01876, .00966, 43.50236, 1.93457, 1.29219, + .72807, 1.70931, 1.93642 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01937, .00997, 49.32821, 2.13379, 1.48817, + .93150, 1.91055, 2.13568, + .01988, .01024, 54.39679, 2.30934, 1.66053, + 1.10823, 2.08775, 2.31127, + .02051, .01056, 60.80904, 2.53433, 1.88126, + 1.33363, 2.31469, 2.53630, + .02106, .01085, 66.76067, 2.74502, 2.08878, + 1.54657, 2.52706, 2.74702, + .02157, .01111, 72.44198, 2.94796, 2.28916, + 1.75230, 2.73150, 2.94999, + .02222, .01145, 79.83485, 3.21685, 2.55358, + 2.02100, 3.00226, 3.21893, + .02284, .01177, 87.06477, 3.48285, 2.81596, + 2.28843, 3.26997, 3.48497, + .02342, .01207, 94.10621, 3.74433, 3.07488, + 2.55334, 3.53303, 3.74649 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02400, .01238, 101.22124, 4.01413, 3.34066, + 2.82237, 3.80436, 4.01632, + .02457, .01268, 108.41190, 4.28932, 3.61278, + 3.09908, 4.08103, 4.29155, + .02511, .01297, 115.38367, 4.55934, 3.88011, + 3.37088, 4.35242, 4.56160, + .02563, .01324, 122.01080, 4.82026, 4.13793, + 3.63194, 4.61460, 4.82255, + .02615, .01351, 128.87462, 5.09226, 4.40779, + 3.90638, 4.88787, 5.09459, + .02666, .01378, 135.60835, 5.36434, 4.67674, + 4.17817, 5.16115, 5.36670, + .02716, .01404, 142.21577, 5.63257, 4.94309, + 4.44876, 5.43053, 5.63496, + .02762, .01429, 148.41869, 5.88918, 5.19700, + 4.70518, 5.68819, 5.89160 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02810, .01454, 154.83836, 6.15619, 5.46209, + 4.97388, 5.95626, 6.15864, + .02857, .01479, 161.17065, 6.42356, 5.72718, + 5.24187, 6.22466, 6.42604, + .02902, .01503, 167.28517, 6.68428, 5.98589, + 5.50350, 6.48634, 6.68679, + .02944, .01525, 173.17235, 6.93726, 6.23734, + 5.75817, 6.74024, 6.93980, + .02988, .01548, 179.06483, 7.19470, 6.49262, + 6.01570, 6.99858, 7.19726 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01243, .00645, .85823, .52218, .00000, + .00000, .27709, .52316, + .01293, .00669, 1.72930, .54771, .00000, + .00000, .30491, .54873, + .01366, .00706, 3.32167, .59668, .02036, + .00000, .35711, .59774, + .01420, .00733, 4.75546, .64044, .06695, + .00000, .40315, .64154, + .01477, .00761, 6.48434, .69508, .11675, + .00000, .46008, .69621, + .01526, .00786, 8.16776, .74918, .16646, + .00000, .51610, .75034, + .01573, .00810, 9.98547, .80672, .22159, + .00000, .57544, .80790, + .01624, .00835, 12.13281, .87411, .28746, + .00000, .64469, .87533 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01667, .00857, 14.14130, .93850, .34896, + .00000, .71065, .93975, + .01710, .00879, 16.22748, 1.00550, .41347, + .00000, .77912, 1.00677, + .01743, .00896, 18.00750, 1.06197, .46906, + .00000, .83675, 1.06327, + .01815, .00933, 22.02926, 1.19290, .59650, + .01113, .97006, 1.19423, + .01878, .00965, 25.74892, 1.31689, .71686, + .15099, 1.09605, 1.31826, + .01948, .01001, 30.25326, 1.46829, .86468, + .32201, 1.24961, 1.46970, + .02021, .01039, 35.30952, 1.63982, 1.03254, + .49712, 1.42333, 1.64128, + .02088, .01074, 40.21015, 1.80776, 1.19724, + .66899, 1.59319, 1.80926 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02156, .01109, 45.45269, 1.98924, 1.37573, + .85439, 1.77655, 1.99079, + .02213, .01138, 49.99715, 2.14873, 1.53229, + 1.01501, 1.93757, 2.15031, + .02282, .01174, 55.72586, 2.35259, 1.73226, + 1.21931, 2.14323, 2.35421, + .02343, .01206, 61.02486, 2.54299, 1.91977, + 1.41182, 2.33519, 2.54465, + .02399, .01236, 66.06799, 2.72596, 2.10041, + 1.59739, 2.51956, 2.72766, + .02471, .01274, 72.60756, 2.96777, 2.33817, + 1.83910, 2.76310, 2.96951, + .02539, .01309, 78.98146, 3.20636, 2.57349, + 2.07906, 3.00328, 3.20815, + .02603, .01343, 85.17049, 3.44036, 2.80518, + 2.31622, 3.23874, 3.44218 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02667, .01377, 91.40331, 3.68119, 3.04240, + 2.55643, 3.48099, 3.68306, + .02731, .01410, 97.68514, 3.92632, 3.28479, + 2.80299, 3.72749, 3.92822, + .02791, .01442, 103.75928, 4.16633, 3.52241, + 3.04469, 3.96878, 4.16828, + .02847, .01472, 109.51704, 4.39778, 3.75110, + 3.27633, 4.20140, 4.39976, + .02905, .01503, 115.46767, 4.63865, 3.99008, + 3.51947, 4.44343, 4.64066, + .02961, .01533, 121.28902, 4.87908, 4.22775, + 3.75972, 4.68498, 4.88113, + .03015, .01561, 126.99046, 5.11575, 4.46277, + 3.99858, 4.92271, 5.11784, + .03067, .01589, 132.32866, 5.34174, 4.68639, + 4.22447, 5.14968, 5.34386 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03119, .01616, 137.84407, 5.57656, 4.91954, + 4.46089, 5.38548, 5.57871, + .03170, .01644, 143.27168, 5.81130, 5.15229, + 4.69626, 5.62116, 5.81348, + .03220, .01670, 148.50256, 6.03985, 5.37910, + 4.92571, 5.85062, 6.04208, + .03267, .01695, 153.53050, 6.26134, 5.59927, + 5.14879, 6.07295, 6.26359, + .03315, .01721, 158.55153, 6.48636, 5.82242, + 5.37397, 6.29881, 6.48864 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01739, .00877, .79696, .44566, .00000, + .00000, .23698, .44614, + .01809, .00913, 1.57865, .46855, .00000, + .00000, .26176, .46907, + .01912, .00966, 2.97566, .51124, .01760, + .00000, .30711, .51181, + .01988, .01005, 4.20555, .54862, .05753, + .00000, .34635, .54923, + .02067, .01047, 5.66113, .59449, .09937, + .00000, .39411, .59514, + .02136, .01083, 7.05511, .63927, .14059, + .00000, .44047, .63997, + .02201, .01117, 8.54016, .68644, .18585, + .00000, .48911, .68717, + .02272, .01154, 10.27158, .74117, .23936, + .00000, .54535, .74194 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02333, .01186, 11.87006, .79292, .28885, + .00000, .59839, .79373, + .02391, .01217, 13.51244, .84634, .34033, + .00000, .65302, .84719, + .02438, .01242, 14.90168, .89111, .38442, + .00000, .69872, .89198, + .02538, .01294, 17.99809, .99388, .48451, + .00902, .80344, .99481, + .02624, .01340, 20.81430, 1.09010, .57799, + .11783, .90128, 1.09109, + .02721, .01392, 24.17580, 1.20638, .69161, + .24999, 1.01931, 1.20742, + .02822, .01445, 27.89329, 1.33667, .81922, + .38359, 1.15137, 1.33778, + .02915, .01495, 31.44626, 1.46292, .94315, + .51336, 1.27918, 1.46409 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03008, .01544, 35.19873, 1.59806, 1.07620, + .65200, 1.41584, 1.59929, + .03086, .01586, 38.41350, 1.71579, 1.19189, + .77104, 1.53481, 1.71707, + .03180, .01636, 42.41968, 1.86500, 1.33839, + .92113, 1.68547, 1.86633, + .03264, .01681, 46.08481, 2.00320, 1.47465, + 1.06143, 1.82494, 2.00460, + .03341, .01723, 49.53928, 2.13505, 1.60498, + 1.19569, 1.95791, 2.13650, + .03438, .01775, 53.96853, 2.30785, 1.77507, + 1.36905, 2.13211, 2.30936, + .03531, .01825, 58.23886, 2.47695, 1.94206, + 1.53977, 2.30249, 2.47852, + .03618, .01872, 62.34541, 2.64157, 2.10529, + 1.70730, 2.46828, 2.64320 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03705, .01918, 66.43568, 2.80965, 2.27105, + 1.87552, 2.63751, 2.81135, + .03790, .01964, 70.52200, 2.97958, 2.43930, + 2.04710, 2.80854, 2.98133, + .03871, .02008, 74.43867, 3.14486, 2.60316, + 2.21419, 2.97484, 3.14667, + .03948, .02050, 78.11737, 3.30318, 2.75981, + 2.37320, 3.13410, 3.30504, + .04025, .02091, 81.89332, 3.46705, 2.92264, + 2.53929, 3.29891, 3.46896, + .04101, .02132, 85.55244, 3.62953, 3.08348, + 2.70222, 3.46230, 3.63150, + .04174, .02172, 89.11514, 3.78871, 3.24181, + 2.86352, 3.62232, 3.79073, + .04242, .02209, 92.42132, 3.93977, 3.39149, + 3.01504, 3.77416, 3.94183 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04312, .02247, 95.81867, 4.09603, 3.54691, + 3.17300, 3.93122, 4.09815, + .04381, .02284, 99.13606, 4.25139, 3.70118, + 3.32935, 4.08734, 4.25356, + .04447, .02320, 102.31346, 4.40196, 3.85084, + 3.48109, 4.23862, 4.40417, + .04510, .02354, 105.35080, 4.54724, 3.99551, + 3.62801, 4.38458, 4.54949, + .04573, .02388, 108.36037, 4.69407, 4.14135, + 3.77547, 4.53208, 4.69637 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02437, .01203, .74663, .38003, .00000, + .00000, .20289, .38079, + .02536, .01255, 1.44855, .40044, .00000, + .00000, .22488, .40126, + .02680, .01333, 2.67258, .43750, .01518, + .00000, .26419, .43842, + .02786, .01390, 3.72465, .46932, .04933, + .00000, .29757, .47031, + .02897, .01450, 4.94539, .50768, .08439, + .00000, .33752, .50875, + .02993, .01502, 6.09407, .54459, .11847, + .00000, .37575, .54572, + .03085, .01551, 7.30047, .58306, .15549, + .00000, .41545, .58426, + .03182, .01604, 8.68756, .62725, .19880, + .00000, .46092, .62852 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03267, .01650, 9.95054, .66860, .23843, + .00000, .50335, .66993, + .03349, .01695, 11.23338, .71092, .27932, + .00000, .54668, .71231, + .03414, .01730, 12.30860, .74616, .31411, + .00000, .58271, .74760, + .03552, .01805, 14.67057, .82622, .39230, + .00728, .66441, .82776, + .03671, .01870, 16.78051, .90028, .46447, + .09153, .73983, .90191, + .03805, .01943, 19.26068, .98880, .55123, + .19317, .82981, .99052, + .03944, .02019, 21.96029, 1.08683, .64756, + .29455, .92934, 1.08866, + .04070, .02088, 24.50216, 1.18080, .74010, + .39196, 1.02461, 1.18273 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04198, .02158, 27.15031, 1.28039, .83849, + .49499, 1.12548, 1.28241, + .04304, .02217, 29.39051, 1.36635, .92324, + .58261, 1.21247, 1.36845, + .04433, .02287, 32.14794, 1.47431, 1.02962, + .69211, 1.32166, 1.47651, + .04547, .02350, 34.64106, 1.57344, 1.12771, + .79359, 1.42185, 1.57573, + .04651, .02407, 36.96659, 1.66730, 1.22083, + .88997, 1.51665, 1.66967, + .04784, .02480, 39.91178, 1.78922, 1.34127, + 1.01326, 1.63975, 1.79169, + .04909, .02549, 42.71817, 1.90751, 1.45850, + 1.13366, 1.75911, 1.91007, + .05027, .02613, 45.38906, 2.02176, 1.57222, + 1.25092, 1.87436, 2.02443 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05144, .02678, 48.01703, 2.13744, 1.68670, + 1.36760, 1.99099, 2.14019, + .05259, .02741, 50.61762, 2.25355, 1.80210, + 1.48580, 2.10803, 2.25639, + .05368, .02801, 53.08652, 2.36570, 1.91372, + 1.60011, 2.22104, 2.36863, + .05470, .02857, 55.38173, 2.47237, 2.01964, + 1.70810, 2.32850, 2.47537, + .05574, .02914, 57.72037, 2.58215, 2.12915, + 1.82029, 2.43907, 2.58524, + .05675, .02970, 59.96242, 2.69022, 2.23652, + 1.92950, 2.54790, 2.69339, + .05772, .03023, 62.13181, 2.79556, 2.34172, + 2.03715, 2.65396, 2.79881, + .05864, .03074, 64.12439, 2.89487, 2.44049, + 2.13754, 2.75393, 2.89819 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05956, .03125, 66.16017, 2.99713, 2.54259, + 2.24175, 2.85685, 3.00052, + .06048, .03175, 68.13031, 3.09819, 2.64333, + 2.34428, 2.95856, 3.10166, + .06135, .03223, 70.00439, 3.19565, 2.74058, + 2.44329, 3.05663, 3.19919, + .06219, .03269, 71.78496, 3.28928, 2.83419, + 2.53876, 3.15082, 3.29288, + .06302, .03315, 73.53307, 3.38335, 2.92798, + 2.63399, 3.24547, 3.38702 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02974, .01457, .72397, .34619, .00000, + .00000, .18542, .34743, + .03094, .01522, 1.38335, .36520, .00000, + .00000, .20589, .36654, + .03270, .01619, 2.51518, .39924, .01390, + .00000, .24198, .40071, + .03399, .01690, 3.47344, .42811, .04502, + .00000, .27228, .42968, + .03534, .01764, 4.57169, .46256, .07656, + .00000, .30818, .46424, + .03650, .01828, 5.59381, .49541, .10698, + .00000, .34225, .49718, + .03762, .01890, 6.65778, .52944, .13980, + .00000, .37740, .53130, + .03880, .01955, 7.87052, .56829, .17795, + .00000, .41742, .57024 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03983, .02012, 8.96526, .60439, .21264, + .00000, .45451, .60643, + .04082, .02066, 10.06925, .64115, .24825, + .00000, .49220, .64327, + .04160, .02110, 10.98931, .67164, .27842, + .00000, .52342, .67383, + .04327, .02202, 12.99213, .74048, .34582, + .00640, .59375, .74280, + .04471, .02282, 14.76102, .80367, .40756, + .07867, .65820, .80611, + .04632, .02371, 16.82045, .87868, .48130, + .16548, .73457, .88126, + .04799, .02464, 19.03987, .96118, .56260, + .25136, .81843, .96388, + .04951, .02548, 21.11009, 1.03971, .64018, + .33334, .89816, 1.04254 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05104, .02633, 23.24838, 1.12242, .72215, + .41951, .98206, 1.12539, + .05231, .02704, 25.04288, 1.19341, .79237, + .49237, 1.05401, 1.19648, + .05385, .02789, 27.23448, 1.28208, .88001, + .58291, 1.14380, 1.28527, + .05521, .02865, 29.20127, 1.36306, .96040, + .66638, 1.22575, 1.36637, + .05646, .02934, 31.02384, 1.43936, 1.03635, + .74528, 1.30294, 1.44278, + .05804, .03022, 33.31383, 1.53794, 1.13405, + .84564, 1.40260, 1.54149, + .05953, .03105, 35.47966, 1.63306, 1.22863, + .94314, 1.49871, 1.63673, + .06092, .03182, 37.52734, 1.72451, 1.31996, + 1.03765, 1.59108, 1.72830 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06231, .03259, 39.52609, 1.81659, 1.41139, + 1.13116, 1.68405, 1.82050, + .06367, .03335, 41.49203, 1.90862, 1.50316, + 1.22550, 1.77694, 1.91264, + .06496, .03407, 43.34694, 1.99712, 1.59154, + 1.31633, 1.86624, 2.00125, + .06618, .03474, 45.05972, 2.08091, 1.67503, + 1.40174, 1.95077, 2.08515, + .06740, .03542, 46.79683, 2.16686, 1.76106, + 1.49020, 2.03745, 2.17119, + .06860, .03608, 48.45017, 2.25108, 1.84501, + 1.57589, 2.12238, 2.25552, + .06974, .03672, 50.04372, 2.33292, 1.92703, + 1.66012, 2.20489, 2.33746, + .07082, .03731, 51.49714, 2.40975, 2.00369, + 1.73830, 2.28232, 2.41437 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07191, .03792, 52.97672, 2.48864, 2.08273, + 1.81927, 2.36183, 2.49335, + .07298, .03851, 54.39988, 2.56631, 2.16042, + 1.89862, 2.44010, 2.57111, + .07401, .03908, 55.74752, 2.64098, 2.23519, + 1.97501, 2.51534, 2.64587, + .07498, .03962, 57.02283, 2.71251, 2.30696, + 2.04847, 2.58740, 2.71748, + .07596, .04016, 58.26686, 2.78412, 2.37861, + 2.12146, 2.65954, 2.78918 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03428, .01677, .71197, .32410, .00000, + .00000, .17404, .32579, + .03566, .01754, 1.34288, .34216, .00000, + .00000, .19347, .34397, + .03770, .01867, 2.41278, .37414, .01305, + .00000, .22739, .37613, + .03918, .01949, 3.30835, .40104, .04214, + .00000, .25564, .40315, + .04073, .02036, 4.32532, .43290, .07136, + .00000, .28887, .43514, + .04206, .02110, 5.26401, .46308, .09938, + .00000, .32019, .46544, + .04334, .02181, 6.23462, .49419, .12945, + .00000, .35238, .49666, + .04470, .02257, 7.33379, .52955, .16424, + .00000, .38885, .53214 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04587, .02323, 8.31959, .56226, .19573, + .00000, .42248, .56495, + .04700, .02386, 9.30841, .59542, .22794, + .00000, .45653, .59821, + .04790, .02436, 10.12897, .62286, .25514, + .00000, .48465, .62573, + .04980, .02543, 11.90301, .68450, .31563, + .00583, .54771, .68753, + .05144, .02635, 13.45645, .74077, .37075, + .07046, .60517, .74395, + .05328, .02737, 15.25203, .80723, .43624, + .14787, .67292, .81057, + .05518, .02844, 17.17268, .87993, .50807, + .22398, .74691, .88343, + .05691, .02941, 18.95158, .94878, .57628, + .29628, .81692, .95244 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05865, .03038, 20.77708, 1.02098, .64802, + .37192, .89024, 1.02479, + .06009, .03119, 22.29982, 1.08268, .70921, + .43561, .95284, 1.08661, + .06183, .03216, 24.14852, 1.15941, .78527, + .51442, 1.03065, 1.16350, + .06337, .03303, 25.79825, 1.22922, .85476, + .58680, 1.10139, 1.23344, + .06479, .03382, 27.31939, 1.29476, .92019, + .65497, 1.16777, 1.29911, + .06657, .03482, 29.21906, 1.37909, 1.00399, + .74132, 1.25313, 1.38359, + .06825, .03576, 31.00550, 1.46013, 1.08482, + .82488, 1.33513, 1.46478, + .06982, .03664, 32.68605, 1.53777, 1.16258, + .90561, 1.41365, 1.54256 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07139, .03751, 34.31623, 1.61564, 1.24011, + .98513, 1.49236, 1.62056, + .07292, .03837, 35.91226, 1.69319, 1.31768, + 1.06511, 1.57074, 1.69825, + .07437, .03918, 37.41100, 1.76754, 1.39215, + 1.14188, 1.64586, 1.77273, + .07573, .03993, 38.78755, 1.83770, 1.46225, + 1.21381, 1.71672, 1.84300, + .07710, .04070, 40.17876, 1.90947, 1.53431, + 1.28813, 1.78919, 1.91489, + .07844, .04145, 41.49522, 1.97955, 1.60438, + 1.35985, 1.85995, 1.98509, + .07972, .04216, 42.76038, 2.04751, 1.67269, + 1.43022, 1.92855, 2.05316, + .08092, .04283, 43.90781, 2.11108, 1.73632, + 1.49532, 1.99272, 2.11684 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08214, .04351, 45.07265, 2.17624, 1.80180, + 1.56260, 2.05846, 2.18210, + .08334, .04418, 46.18765, 2.24020, 1.86597, + 1.62834, 2.12300, 2.24617, + .08449, .04482, 47.23967, 2.30155, 1.92760, + 1.69149, 2.18490, 2.30762, + .08557, .04542, 48.23214, 2.36019, 1.98663, + 1.75210, 2.24406, 2.36636, + .08667, .04603, 49.19515, 2.41874, 2.04538, + 1.81214, 2.30311, 2.42500 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03833, .01886, .70694, .30832, .00000, + .00000, .16575, .31021, + .03987, .01973, 1.31674, .32564, .00000, + .00000, .18437, .32768, + .04214, .02101, 2.34002, .35607, .01240, + .00000, .21662, .35830, + .04379, .02193, 3.18835, .38147, .03996, + .00000, .24330, .38385, + .04552, .02291, 4.14422, .41138, .06744, + .00000, .27450, .41391, + .04700, .02374, 5.02041, .43956, .09365, + .00000, .30377, .44223, + .04842, .02454, 5.92129, .46851, .12168, + .00000, .33372, .47130, + .04993, .02539, 6.93592, .50128, .15399, + .00000, .36754, .50421 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05123, .02613, 7.84102, .53147, .18311, + .00000, .39861, .53452, + .05248, .02683, 8.74479, .56200, .21280, + .00000, .42997, .56515, + .05348, .02739, 9.49209, .58719, .23781, + .00000, .45580, .59043, + .05559, .02858, 11.09843, .64356, .29323, + .00541, .51352, .64699, + .05740, .02961, 12.49486, .69479, .34350, + .06445, .56587, .69838, + .05943, .03075, 14.09919, .75504, .40299, + .13497, .62734, .75882, + .06153, .03193, 15.80451, .82066, .46795, + .20397, .69418, .82462, + .06343, .03301, 17.37465, .88255, .52938, + .26925, .75716, .88669 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06535, .03408, 18.97720, .94720, .59375, + .33729, .82288, .95151, + .06694, .03498, 20.30702, 1.00226, .64847, + .39437, .87879, 1.00671, + .06885, .03606, 21.91353, 1.07049, .71624, + .46476, .94805, 1.07512, + .07054, .03701, 23.34027, 1.13236, .77796, + .52920, 1.01080, 1.13714, + .07209, .03788, 24.65014, 1.19028, .83590, + .58973, 1.06951, 1.19520, + .07405, .03898, 26.27751, 1.26455, .90986, + .66612, 1.14476, 1.26964, + .07589, .04001, 27.80054, 1.33568, .98096, + .73980, 1.21680, 1.34094, + .07761, .04098, 29.22720, 1.40362, 1.04917, + .81078, 1.28557, 1.40903 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07931, .04193, 30.60371, 1.47154, 1.11694, + .88046, 1.35429, 1.47710, + .08099, .04287, 31.94608, 1.53899, 1.18457, + .95036, 1.42253, 1.54470, + .08257, .04376, 33.20148, 1.60348, 1.24931, + 1.01727, 1.48775, 1.60933, + .08405, .04459, 34.34915, 1.66416, 1.31009, + 1.07979, 1.54910, 1.67014, + .08554, .04542, 35.50551, 1.72611, 1.37244, + 1.14425, 1.61171, 1.73222, + .08700, .04624, 36.59424, 1.78642, 1.43288, + 1.20628, 1.67267, 1.79266, + .08839, .04701, 37.63799, 1.84479, 1.49170, + 1.26703, 1.73165, 1.85116, + .08970, .04774, 38.57983, 1.89925, 1.54635, + 1.32307, 1.78667, 1.90573 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09102, .04848, 39.53376, 1.95497, 1.60249, + 1.38090, 1.84296, 1.96157, + .09232, .04921, 40.44273, 2.00952, 1.65737, + 1.43727, 1.89806, 2.01624, + .09356, .04990, 41.29761, 2.06175, 1.70997, + 1.49131, 1.95080, 2.06857, + .09474, .05055, 42.10199, 2.11159, 1.76028, + 1.54310, 2.00113, 2.11851, + .09593, .05121, 42.87880, 2.16123, 1.81023, + 1.59427, 2.05126, 2.16826 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05446, .02755, .70959, .26429, .00000, + .00000, .14291, .26747, + .05663, .02881, 1.25759, .27944, .00000, + .00000, .15917, .28283, + .05981, .03065, 2.14456, .30532, .01054, + .00000, .18662, .30901, + .06211, .03199, 2.85638, .32645, .03376, + .00000, .20885, .33036, + .06452, .03338, 3.63792, .35082, .05635, + .00000, .23435, .35497, + .06658, .03457, 4.33781, .37340, .07755, + .00000, .25786, .37775, + .06854, .03570, 5.04392, .39630, .09993, + .00000, .28164, .40084, + .07062, .03690, 5.82473, .42192, .12538, + .00000, .30817, .42665 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07241, .03793, 6.50868, .44521, .14803, + .00000, .33222, .45011, + .07413, .03892, 7.18133, .46851, .17088, + .00000, .35624, .47357, + .07549, .03971, 7.73090, .48758, .18998, + .00000, .37588, .49278, + .07837, .04136, 8.88927, .52973, .23175, + .00424, .41920, .53520, + .08084, .04278, 9.87153, .56745, .26908, + .04836, .45789, .57316, + .08358, .04435, 10.97702, .61120, .31266, + .10062, .50271, .61717, + .08641, .04597, 12.12718, .65815, .35955, + .15091, .55074, .66438, + .08897, .04743, 13.16477, .70182, .40330, + .19785, .59536, .70830 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09153, .04889, 14.20407, .74687, .44856, + .24617, .64134, .75358, + .09364, .05009, 15.05132, .78477, .48659, + .28622, .68001, .79169, + .09619, .05154, 16.05707, .83120, .53315, + .33505, .72734, .83836, + .09842, .05281, 16.93557, .87284, .57510, + .37928, .76975, .88020, + .10047, .05397, 17.73028, .91144, .61410, + .42042, .80906, .91899, + .10304, .05542, 18.69945, .96035, .66330, + .47174, .85883, .96814, + .10544, .05678, 19.59106, 1.00667, .71008, + .52072, .90596, 1.01468, + .10769, .05805, 20.41378, 1.05048, .75453, + .56746, .95051, 1.05870 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10991, .05929, 21.19196, 1.09376, .79818, + .61279, .99451, 1.10218, + .11207, .06051, 21.94018, 1.13636, .84135, + .65788, 1.03780, 1.14498, + .11411, .06166, 22.62959, 1.17670, .88231, + .70067, 1.07880, 1.18551, + .11602, .06272, 23.24891, 1.21430, .92039, + .74025, 1.11699, 1.22328, + .11793, .06380, 23.86632, 1.25240, .95918, + .78080, 1.15570, 1.26156, + .11980, .06484, 24.43624, 1.28912, .99641, + .81941, 1.19299, 1.29844, + .12157, .06583, 24.97796, 1.32444, 1.03243, + .85703, 1.22886, 1.33392, + .12323, .06675, 25.45702, 1.35707, 1.06556, + .89139, 1.26199, 1.36670 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12491, .06769, 25.93824, 1.39026, 1.09942, + .92666, 1.29570, 1.40005, + .12655, .06860, 26.38886, 1.42249, 1.13225, + .96076, 1.32842, 1.43242, + .12812, .06947, 26.80750, 1.45313, 1.16351, + .99325, 1.35952, 1.46320, + .12960, .07029, 27.19737, 1.48219, 1.19323, + 1.02421, 1.38904, 1.49240, + .13108, .07111, 27.56629, 1.51089, 1.22249, + 1.05453, 1.41817, 1.52123 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07828, .04149, .76010, .22814, .00000, + .00000, .12417, .23335, + .08133, .04329, 1.24831, .24124, .00000, + .00000, .13825, .24677, + .08576, .04590, 2.00571, .26295, .00891, + .00000, .16132, .26893, + .08896, .04778, 2.59134, .28024, .02831, + .00000, .17958, .28654, + .09228, .04972, 3.21551, .29974, .04667, + .00000, .20007, .30639, + .09510, .05137, 3.75968, .31746, .06358, + .00000, .21862, .32439, + .09779, .05293, 4.29668, .33518, .08116, + .00000, .23711, .34238, + .10063, .05458, 4.87793, .35472, .10086, + .00000, .25745, .36221 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10306, .05599, 5.37636, .37222, .11812, + .00000, .27563, .37995, + .10538, .05733, 5.85788, .38951, .13533, + .00000, .29357, .39748, + .10722, .05840, 6.24580, .40355, .14958, + .00000, .30811, .41169, + .11108, .06062, 7.04440, .43409, .18029, + .00326, .33970, .44262, + .11437, .06251, 7.70122, .46095, .20726, + .03544, .36743, .46981, + .11801, .06460, 8.42219, .49160, .23825, + .07319, .39904, .50082, + .12175, .06673, 9.15305, .52393, .27104, + .10884, .43234, .53351, + .12511, .06864, 9.79605, .55353, .30114, + .14159, .46279, .56342 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12845, .07054, 10.42520, .58359, .33184, + .17481, .49371, .59381, + .13120, .07209, 10.92672, .60854, .35728, + .20198, .51934, .61902, + .13448, .07394, 11.50883, .63867, .38801, + .23468, .55029, .64947, + .13736, .07556, 12.00667, .66535, .41534, + .26394, .57767, .67641, + .13998, .07703, 12.44854, .68979, .44047, + .29085, .60275, .70110, + .14325, .07886, 12.97372, .72031, .47173, + .32396, .63408, .73193, + .14630, .08056, 13.44600, .74884, .50108, + .35518, .66334, .76075, + .14913, .08214, 13.87323, .77551, .52865, + .38464, .69069, .78767 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15191, .08368, 14.26569, .80147, .55535, + .41282, .71731, .81388, + .15462, .08517, 14.63572, .82674, .58148, + .44058, .74322, .83940, + .15716, .08657, 14.96937, .85041, .60601, + .46664, .76750, .86330, + .15951, .08787, 15.26119, .87219, .62855, + .49048, .78983, .88529, + .16188, .08917, 15.54790, .89408, .65133, + .51472, .81228, .90740, + .16416, .09041, 15.80408, .91489, .67291, + .53751, .83363, .92841, + .16633, .09160, 16.04488, .93477, .69366, + .55958, .85402, .94849, + .16835, .09270, 16.25020, .95290, .71251, + .57950, .87262, .96680 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17038, .09381, 16.45403, .97123, .73166, + .59983, .89142, .98530, + .17237, .09488, 16.63907, .98882, .75002, + .61928, .90947, 1.00306, + .17425, .09590, 16.80750, 1.00540, .76737, + .63768, .92649, 1.01981, + .17603, .09686, 16.96158, 1.02102, .78377, + .65510, .94252, 1.03558, + .17780, .09782, 17.10134, 1.03625, .79972, + .67198, .95816, 1.05096 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09748, .05332, .82019, .21015, .00000, + .00000, .11501, .21723, + .10118, .05551, 1.27312, .22212, .00000, + .00000, .12789, .22959, + .10653, .05865, 1.95503, .24151, .00804, + .00000, .14860, .24955, + .11038, .06090, 2.46926, .25672, .02544, + .00000, .16473, .26515, + .11435, .06322, 3.00723, .27362, .04159, + .00000, .18257, .28247, + .11772, .06518, 3.46790, .28878, .05628, + .00000, .19852, .29798, + .12092, .06703, 3.91580, .30380, .07140, + .00000, .21427, .31332, + .12428, .06897, 4.39375, .32020, .08818, + .00000, .23145, .33007 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12715, .07062, 4.79781, .33474, .10273, + .00000, .24664, .34491, + .12990, .07220, 5.18344, .34900, .11712, + .00000, .26151, .35944, + .13206, .07344, 5.49117, .36050, .12896, + .00000, .27350, .37115, + .13659, .07602, 6.11430, .38527, .15422, + .00276, .29928, .39638, + .14043, .07820, 6.61567, .40680, .17615, + .02914, .32165, .41828, + .14466, .08060, 7.15656, .43109, .20107, + .05989, .34687, .44299, + .14899, .08304, 7.69466, .45642, .22714, + .08856, .37314, .46874, + .15286, .08521, 8.15944, .47934, .25083, + .11462, .39690, .49204 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15670, .08736, 8.60659, .50239, .27475, + .14082, .42077, .51545, + .15984, .08910, 8.95717, .52133, .29438, + .16205, .44038, .53470, + .16359, .09118, 9.35689, .54400, .31788, + .18737, .46384, .55771, + .16686, .09299, 9.69318, .56387, .33861, + .20984, .48441, .57789, + .16982, .09462, 9.98730, .58194, .35751, + .23036, .50310, .59623, + .17351, .09664, 10.32986, .60427, .38082, + .25538, .52621, .61890, + .17692, .09851, 10.63211, .62495, .40250, + .27877, .54761, .63989, + .18009, .10024, 10.90093, .64412, .42272, + .30069, .56745, .65935 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18319, .10191, 11.14127, .66258, .44210, + .32145, .58656, .67809, + .18619, .10353, 11.36425, .68042, .46094, + .34177, .60502, .69619, + .18899, .10504, 11.56163, .69699, .47849, + .36071, .62218, .71301, + .19159, .10644, 11.72955, .71209, .49448, + .37790, .63783, .72833, + .19419, .10783, 11.89230, .72718, .51056, + .39530, .65347, .74365, + .19668, .10916, 12.03262, .74137, .52566, + .41151, .66819, .75806, + .19905, .11042, 12.16322, .75487, .54011, + .42716, .68219, .77176, + .20125, .11158, 12.27003, .76705, .55311, + .44115, .69484, .78413 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20345, .11275, 12.37490, .77931, .56627, + .45538, .70756, .79657, + .20560, .11388, 12.46635, .79097, .57879, + .46889, .71967, .80840, + .20762, .11494, 12.54741, .80189, .59056, + .48161, .73102, .81949, + .20954, .11595, 12.61997, .81212, .60162, + .49360, .74166, .82988, + .21143, .11694, 12.68176, .82199, .61229, + .50513, .75194, .83991 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11435, .06400, .88387, .19876, .00000, + .00000, .10930, .20762, + .11857, .06648, 1.30840, .20991, .00000, + .00000, .12135, .21923, + .12466, .07003, 1.93528, .22771, .00746, + .00000, .14043, .23767, + .12903, .07256, 2.39891, .24148, .02351, + .00000, .15511, .25191, + .13351, .07515, 2.87710, .25662, .03820, + .00000, .17118, .26752, + .13731, .07733, 3.28099, .27007, .05143, + .00000, .18539, .28135, + .14090, .07939, 3.66912, .28328, .06494, + .00000, .19933, .29493, + .14467, .08154, 4.07870, .29761, .07980, + .00000, .21442, .30965 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14788, .08336, 4.42110, .31021, .09259, + .00000, .22767, .32258, + .15094, .08509, 4.74475, .32248, .10516, + .00000, .24055, .33516, + .15334, .08645, 5.00107, .33233, .11545, + .00000, .25088, .34525, + .15837, .08928, 5.51311, .35339, .13724, + .00244, .27294, .36681, + .16261, .09166, 5.91755, .37151, .15598, + .02515, .29189, .38534, + .16728, .09426, 6.34754, .39179, .17709, + .05150, .31309, .40607, + .17203, .09689, 6.76870, .41272, .19898, + .07582, .33496, .42747, + .17626, .09922, 7.12686, .43150, .21870, + .09776, .35456, .44665 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18045, .10152, 7.46639, .45023, .23846, + .11964, .37411, .46577, + .18386, .10338, 7.72863, .46550, .25456, + .13724, .39005, .48135, + .18791, .10558, 8.02298, .48363, .27370, + .15810, .40896, .49985, + .19144, .10749, 8.26698, .49940, .29046, + .17649, .42543, .51595, + .19463, .10921, 8.47745, .51364, .30565, + .19320, .44030, .53048, + .19858, .11133, 8.71766, .53110, .32424, + .21341, .45853, .54829, + .20223, .11328, 8.92575, .54714, .34141, + .23218, .47529, .56465, + .20560, .11507, 9.10783, .56191, .35733, + .24968, .49072, .57971 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20888, .11681, 9.26599, .57600, .37246, + .26613, .50546, .59408, + .21206, .11848, 9.41013, .58952, .38709, + .28214, .51961, .60787, + .21502, .12003, 9.53500, .60199, .40064, + .29699, .53268, .62060, + .21774, .12145, 9.63784, .61327, .41289, + .31038, .54450, .63210, + .22046, .12287, 9.73605, .62448, .42516, + .32387, .55626, .64354, + .22307, .12422, 9.81678, .63493, .43659, + .33636, .56723, .65420, + .22554, .12550, 9.89108, .64483, .44749, + .34838, .57763, .66430, + .22782, .12667, 9.94812, .65367, .45723, + .35905, .58694, .67332 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23011, .12784, 10.00329, .66254, .46705, + .36987, .59627, .68237, + .23232, .12897, 10.04831, .67089, .47634, + .38009, .60508, .69090, + .23441, .13004, 10.08643, .67868, .48502, + .38966, .61330, .69885, + .23638, .13103, 10.11921, .68594, .49315, + .39866, .62097, .70626, + .23832, .13201, 10.14347, .69287, .50094, + .40724, .62831, .71334 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12976, .07388, .94561, .19057, .00000, + .00000, .10530, .20118, + .13442, .07659, 1.34622, .20109, .00000, + .00000, .11671, .21219, + .14112, .08045, 1.92898, .21764, .00703, + .00000, .13454, .22947, + .14590, .08319, 2.35312, .23032, .02207, + .00000, .14813, .24265, + .15081, .08599, 2.78541, .24412, .03566, + .00000, .16285, .25696, + .15495, .08834, 3.14634, .25628, .04781, + .00000, .17578, .26954, + .15886, .09055, 3.48983, .26815, .06013, + .00000, .18838, .28181, + .16295, .09285, 3.84891, .28094, .07360, + .00000, .20193, .29502 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16643, .09480, 4.14630, .29211, .08511, + .00000, .21375, .30654, + .16973, .09664, 4.42504, .30293, .09636, + .00000, .22518, .31769, + .17233, .09809, 4.64436, .31158, .10553, + .00000, .23431, .32660, + .17774, .10108, 5.07739, .32995, .12483, + .00220, .25368, .34550, + .18229, .10359, 5.41371, .34563, .14129, + .02231, .27019, .36161, + .18728, .10632, 5.76660, .36303, .15971, + .04554, .28852, .37949, + .19235, .10907, 6.10737, .38086, .17866, + .06680, .30729, .39779, + .19684, .11150, 6.39307, .39673, .19561, + .08585, .32399, .41408 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20127, .11388, 6.66018, .41244, .21249, + .10474, .34052, .43019, + .20487, .11581, 6.86345, .42515, .22615, + .11984, .35391, .44323, + .20914, .11808, 7.08825, .44014, .24228, + .13763, .36970, .45860, + .21284, .12003, 7.27188, .45311, .25634, + .15324, .38336, .47189, + .21618, .12179, 7.42803, .46475, .26901, + .16734, .39563, .48382, + .22030, .12395, 7.60234, .47890, .28441, + .18431, .41056, .49833, + .22409, .12593, 7.75047, .49181, .29856, + .19998, .42419, .51156, + .22759, .12774, 7.87788, .50362, .31160, + .21452, .43667, .52366 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23099, .12949, 7.98493, .51479, .32391, + .22809, .44850, .53511, + .23425, .13117, 8.08027, .52545, .33576, + .24126, .45979, .54603, + .23729, .13272, 8.16043, .53521, .34667, + .25340, .47014, .55603, + .24008, .13413, 8.22373, .54398, .35648, + .26429, .47946, .56502, + .24286, .13554, 8.28302, .55266, .36627, + .27524, .48869, .57392, + .24552, .13687, 8.32818, .56066, .37532, + .28531, .49722, .58213, + .24804, .13813, 8.36904, .56822, .38393, + .29496, .50528, .58988, + .25034, .13928, 8.39690, .57490, .39156, + .30349, .51243, .59673 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25265, .14043, 8.42309, .58158, .39924, + .31212, .51958, .60358, + .25488, .14153, 8.44128, .58783, .40645, + .32022, .52628, .60999, + .25698, .14256, 8.45478, .59361, .41317, + .32778, .53250, .61592, + .25896, .14353, 8.46494, .59897, .41944, + .33487, .53828, .62143, + .26090, .14447, 8.46823, .60404, .42540, + .34160, .54375, .62664 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15770, .09192, 1.05942, .17908, .00000, + .00000, .09991, .19308, + .16307, .09495, 1.42068, .18859, .00000, + .00000, .11032, .20316, + .17073, .09926, 1.93328, .20324, .00639, + .00000, .12627, .21861, + .17617, .10229, 2.29663, .21426, .01993, + .00000, .13822, .23020, + .18173, .10537, 2.65991, .22608, .03194, + .00000, .15098, .24258, + .18639, .10794, 2.95754, .23634, .04253, + .00000, .16202, .25331, + .19077, .11034, 3.23616, .24624, .05314, + .00000, .17267, .26365, + .19534, .11283, 3.52282, .25681, .06462, + .00000, .18402, .27466 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19920, .11493, 3.75640, .26594, .07432, + .00000, .19380, .28416, + .20287, .11690, 3.97225, .27469, .08372, + .00000, .20318, .29326, + .20574, .11844, 4.14023, .28164, .09133, + .00000, .21063, .30049, + .21169, .12162, 4.46474, .29623, .10716, + .00187, .22624, .31563, + .21666, .12425, 4.70891, .30850, .12049, + .01840, .23936, .32835, + .22208, .12711, 4.95905, .32196, .13523, + .03736, .25376, .34229, + .22755, .12996, 5.19431, .33554, .15021, + .05448, .26830, .35636, + .23237, .13246, 5.38612, .34747, .16345, + .06965, .28108, .36870 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23711, .13490, 5.56050, .35912, .17648, + .08454, .29358, .38076, + .24093, .13685, 5.68911, .36844, .18691, + .09633, .30359, .39040, + .24543, .13914, 5.82689, .37929, .19911, + .11009, .31525, .40161, + .24932, .14110, 5.93587, .38856, .20963, + .12205, .32522, .41119, + .25280, .14285, 6.02559, .39679, .21904, + .13278, .33410, .41970, + .25708, .14497, 6.12036, .40666, .23034, + .14555, .34476, .42989, + .26100, .14691, 6.19682, .41554, .24062, + .15724, .35438, .43907, + .26459, .14867, 6.25942, .42358, .25001, + .16800, .36310, .44737 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26804, .15035, 6.30660, .43104, .25876, + .17794, .37122, .45508, + .27136, .15196, 6.34562, .43808, .26710, + .18751, .37891, .46236, + .27442, .15343, 6.37504, .44446, .27472, + .19627, .38589, .46895, + .27722, .15476, 6.39385, .45008, .28150, + .20406, .39207, .47476, + .28000, .15608, 6.40966, .45560, .28822, + .21183, .39815, .48047, + .28263, .15731, 6.41570, .46060, .29435, + .21891, .40368, .48564, + .28512, .15848, 6.42006, .46529, .30015, + .22567, .40888, .49048, + .28738, .15953, 6.41671, .46934, .30523, + .23158, .41340, .49467 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28964, .16057, 6.41213, .47336, .31031, + .23753, .41789, .49883, + .29181, .16156, 6.40232, .47704, .31503, + .24307, .42203, .50264, + .29384, .16249, 6.39037, .48041, .31939, + .24821, .42584, .50612, + .29574, .16335, 6.37735, .48350, .32343, + .25300, .42934, .50932, + .29760, .16418, 6.35948, .48634, .32722, + .25750, .43260, .51227 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19515, .11599, 1.20606, .16760, .00000, + .00000, .09483, .18647, + .20126, .11930, 1.51960, .17593, .00000, + .00000, .10411, .19542, + .20992, .12395, 1.95134, .18847, .00570, + .00000, .11801, .20882, + .21602, .12720, 2.24767, .19770, .01767, + .00000, .12821, .21864, + .22221, .13047, 2.53719, .20741, .02804, + .00000, .13890, .22894, + .22738, .13317, 2.76888, .21569, .03703, + .00000, .14800, .23769, + .23221, .13568, 2.98139, .22358, .04593, + .00000, .15667, .24602, + .23722, .13827, 3.19569, .23189, .05543, + .00000, .16579, .25478 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24143, .14043, 3.36663, .23896, .06335, + .00000, .17354, .26222, + .24539, .14245, 3.52164, .24566, .07094, + .00000, .18090, .26926, + .24849, .14402, 3.64056, .25094, .07703, + .00000, .18669, .27480, + .25486, .14724, 3.86313, .26185, .08955, + .00155, .19866, .28624, + .26015, .14987, 4.02282, .27086, .09992, + .01469, .20856, .29567, + .26587, .15269, 4.18034, .28057, .11123, + .02964, .21924, .30583, + .27159, .15549, 4.32232, .29018, .12254, + .04294, .22985, .31588, + .27659, .15791, 4.43275, .29847, .13239, + .05456, .23902, .32454 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28146, .16024, 4.52828, .30644, .14196, + .06583, .24786, .33285, + .28536, .16209, 4.59482, .31269, .14953, + .07465, .25481, .33937, + .28992, .16422, 4.66104, .31983, .15825, + .08483, .26280, .34682, + .29383, .16604, 4.70958, .32584, .16568, + .09359, .26953, .35308, + .29730, .16765, 4.74639, .33110, .17226, + .10136, .27544, .35855, + .30153, .16957, 4.77906, .33724, .18004, + .11051, .28240, .36495, + .30537, .17130, 4.80067, .34266, .18702, + .11880, .28857, .37059, + .30886, .17286, 4.81456, .34748, .19332, + .12635, .29408, .37561 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31219, .17432, 4.81772, .35183, .19910, + .13323, .29911, .38013, + .31535, .17570, 4.81608, .35586, .20455, + .13980, .30380, .38432, + .31825, .17695, 4.80961, .35942, .20947, + .14575, .30797, .38803, + .32088, .17806, 4.79749, .36247, .21377, + .15098, .31158, .39120, + .32347, .17915, 4.78347, .36542, .21800, + .15617, .31509, .39426, + .32589, .18016, 4.76368, .36798, .22179, + .16083, .31820, .39692, + .32817, .18110, 4.74428, .37036, .22536, + .16526, .32109, .39940, + .33021, .18193, 4.72105, .37232, .22841, + .16907, .32352, .40143 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33225, .18275, 4.69713, .37424, .23145, + .17289, .32592, .40342, + .33418, .18352, 4.67037, .37591, .23422, + .17641, .32806, .40516, + .33598, .18422, 4.64348, .37740, .23676, + .17965, .32998, .40670, + .33765, .18487, 4.61712, .37873, .23908, + .18264, .33173, .40808, + .33926, .18549, 4.58765, .37987, .24121, + .18541, .33327, .40926 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25050, .15065, 1.39364, .15444, .00000, + .00000, .08942, .18089, + .25731, .15405, 1.64315, .16126, .00000, + .00000, .09726, .18830, + .26686, .15877, 1.97293, .17119, .00488, + .00000, .10865, .19902, + .27353, .16201, 2.18925, .17829, .01498, + .00000, .11678, .20665, + .28020, .16523, 2.39377, .18557, .02350, + .00000, .12510, .21442, + .28572, .16785, 2.55185, .19162, .03072, + .00000, .13202, .22088, + .29084, .17027, 2.69252, .19728, .03775, + .00000, .13850, .22690, + .29609, .17273, 2.83011, .20313, .04513, + .00000, .14521, .23311 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .30048, .17475, 2.93604, .20800, .05117, + .00000, .15080, .23827, + .30457, .17662, 3.02909, .21254, .05688, + .00000, .15603, .24307, + .30774, .17807, 3.09881, .21607, .06142, + .00000, .16009, .24680, + .31422, .18097, 3.22161, .22319, .07057, + .00121, .16833, .25430, + .31951, .18331, 3.30077, .22890, .07800, + .01095, .17497, .26030, + .32517, .18577, 3.37255, .23490, .08595, + .02194, .18197, .26659, + .33074, .18815, 3.43048, .24065, .09374, + .03151, .18875, .27261, + .33555, .19017, 3.46946, .24546, .10038, + .03973, .19446, .27763 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34016, .19207, 3.49749, .24993, .10671, + .04758, .19982, .28229, + .34381, .19354, 3.51179, .25333, .11163, + .05363, .20395, .28582, + .34800, .19521, 3.51968, .25708, .11720, + .06051, .20855, .28971, + .35154, .19659, 3.52019, .26012, .12185, + .06635, .21233, .29286, + .35467, .19778, 3.51581, .26270, .12591, + .07147, .21558, .29552, + .35838, .19917, 3.50158, .26556, .13061, + .07740, .21926, .29846, + .36170, .20039, 3.48298, .26798, .13474, + .08268, .22243, .30092, + .36469, .20145, 3.46209, .27003, .13840, + .08744, .22518, .30302 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36746, .20240, 3.43487, .27174, .14167, + .09170, .22756, .30474, + .37006, .20327, 3.40600, .27323, .14470, + .09571, .22971, .30624, + .37241, .20403, 3.37629, .27446, .14738, + .09930, .23155, .30747, + .37448, .20468, 3.34520, .27541, .14967, + .10240, .23305, .30839, + .37651, .20531, 3.31340, .27628, .15189, + .10545, .23447, .30923, + .37835, .20584, 3.27904, .27688, .15381, + .10814, .23562, .30981, + .38007, .20633, 3.24653, .27742, .15560, + .11067, .23666, .31032, + .38157, .20672, 3.21339, .27774, .15707, + .11280, .23744, .31059 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38305, .20710, 3.18014, .27802, .15852, + .11492, .23819, .31083, + .38441, .20743, 3.14594, .27815, .15979, + .11684, .23878, .31091, + .38565, .20773, 3.11294, .27821, .16093, + .11858, .23926, .31091, + .38679, .20798, 3.08152, .27821, .16195, + .12018, .23966, .31085, + .38785, .20819, 3.04852, .27808, .16284, + .12162, .23992, .31065 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .30012, .18030, 1.52141, .14416, .00000, + .00000, .08537, .17734, + .30716, .18351, 1.71876, .14976, .00000, + .00000, .09203, .18339, + .31697, .18789, 1.96994, .15768, .00424, + .00000, .10147, .19190, + .32371, .19086, 2.12761, .16321, .01294, + .00000, .10806, .19780, + .33039, .19377, 2.27188, .16875, .02011, + .00000, .11467, .20366, + .33587, .19609, 2.37936, .17324, .02609, + .00000, .12007, .20841, + .34091, .19820, 2.47199, .17736, .03184, + .00000, .12504, .21276, + .34604, .20032, 2.55955, .18155, .03779, + .00000, .13011, .21717 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .35026, .20204, 2.62406, .18497, .04259, + .00000, .13426, .22074, + .35418, .20361, 2.67848, .18810, .04709, + .00000, .13808, .22399, + .35720, .20480, 2.71806, .19050, .05062, + .00000, .14103, .22649, + .36329, .20715, 2.78114, .19523, .05765, + .00099, .14689, .23140, + .36818, .20899, 2.81385, .19891, .06326, + .00860, .15150, .23516, + .37334, .21089, 2.83736, .20265, .06917, + .01712, .15625, .23897, + .37834, .21266, 2.84956, .20609, .07485, + .02442, .16073, .24247, + .38259, .21410, 2.85092, .20885, .07962, + .03061, .16439, .24524 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38660, .21541, 2.84439, .21131, .08409, + .03644, .16774, .24770, + .38970, .21640, 2.83302, .21309, .08751, + .04088, .17024, .24945, + .39321, .21746, 2.81291, .21495, .09131, + .04587, .17294, .25125, + .39612, .21831, 2.79110, .21637, .09444, + .05006, .17509, .25260, + .39863, .21900, 2.76821, .21751, .09713, + .05370, .17687, .25365, + .40157, .21974, 2.73397, .21861, .10017, + .05785, .17879, .25465, + .40412, .22035, 2.69891, .21944, .10280, + .06151, .18036, .25535, + .40636, .22085, 2.66438, .22007, .10510, + .06477, .18166, .25585 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40838, .22122, 2.62632, .22043, .10708, + .06764, .18267, .25606, + .41022, .22153, 2.58821, .22066, .10889, + .07031, .18353, .25614, + .41184, .22176, 2.55114, .22074, .11045, + .07268, .18420, .25607, + .41321, .22192, 2.51473, .22066, .11175, + .07469, .18466, .25583, + .41451, .22204, 2.47831, .22053, .11299, + .07666, .18506, .25554, + .41565, .22208, 2.44096, .22023, .11401, + .07835, .18527, .25506, + .41669, .22209, 2.40602, .21992, .11495, + .07995, .18544, .25460, + .41753, .22204, 2.37184, .21948, .11569, + .08126, .18545, .25400 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41835, .22198, 2.33787, .21901, .11640, + .08255, .18543, .25337, + .41904, .22187, 2.30385, .21846, .11699, + .08370, .18530, .25265, + .41965, .22174, 2.27152, .21788, .11749, + .08473, .18513, .25192, + .42019, .22159, 2.24109, .21731, .11793, + .08567, .18494, .25119, + .42063, .22139, 2.20986, .21663, .11827, + .08649, .18464, .25035 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38733, .22851, 1.64344, .12685, .00000, + .00000, .07832, .17037, + .39394, .23087, 1.75996, .13054, .00000, + .00000, .08307, .17408, + .40288, .23393, 1.89581, .13549, .00326, + .00000, .08955, .17901, + .40892, .23589, 1.97200, .13877, .00984, + .00000, .09389, .18223, + .41472, .23773, 2.03542, .14190, .01510, + .00000, .09808, .18523, + .41935, .23911, 2.07731, .14432, .01936, + .00000, .10138, .18751, + .42353, .24030, 2.10957, .14645, .02338, + .00000, .10433, .18950, + .42769, .24144, 2.13606, .14852, .02746, + .00000, .10725, .19141 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .43103, .24230, 2.15131, .15012, .03067, + .00000, .10957, .19283, + .43405, .24302, 2.16087, .15151, .03363, + .00000, .11163, .19404, + .43636, .24354, 2.16616, .15253, .03592, + .00000, .11319, .19493, + .44079, .24447, 2.16353, .15442, .04038, + .00070, .11614, .19647, + .44421, .24508, 2.14736, .15573, .04383, + .00569, .11833, .19744, + .44766, .24557, 2.12235, .15690, .04737, + .01123, .12046, .19823, + .45082, .24589, 2.09046, .15780, .05067, + .01586, .12232, .19871, + .45334, .24602, 2.05716, .15835, .05336, + .01970, .12372, .19887 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45557, .24601, 2.02039, .15868, .05580, + .02325, .12488, .19879, + .45716, .24590, 1.98761, .15879, .05762, + .02590, .12564, .19854, + .45880, .24565, 1.94566, .15872, .05957, + .02882, .12634, .19803, + .46006, .24533, 1.90754, .15852, .06113, + .03123, .12681, .19744, + .46106, .24495, 1.87199, .15823, .06243, + .03328, .12712, .19680, + .46200, .24437, 1.82544, .15768, .06383, + .03558, .12730, .19577, + .46266, .24374, 1.78152, .15704, .06500, + .03756, .12732, .19466, + .46314, .24310, 1.74065, .15636, .06598, + .03929, .12725, .19355 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46338, .24233, 1.69912, .15552, .06676, + .04077, .12699, .19228, + .46349, .24154, 1.65905, .15464, .06744, + .04213, .12667, .19098, + .46346, .24073, 1.62151, .15374, .06799, + .04330, .12630, .18968, + .46328, .23991, 1.58620, .15282, .06841, + .04427, .12585, .18838, + .46303, .23907, 1.55153, .15187, .06879, + .04521, .12537, .18705, + .46261, .23817, 1.51743, .15084, .06904, + .04598, .12479, .18565, + .46219, .23732, 1.48590, .14986, .06927, + .04670, .12424, .18431, + .46163, .23645, 1.45609, .14888, .06939, + .04727, .12363, .18298 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46104, .23558, 1.42676, .14789, .06950, + .04782, .12301, .18163, + .46037, .23466, 1.39810, .14685, .06954, + .04829, .12234, .18025, + .45968, .23376, 1.37126, .14584, .06956, + .04871, .12169, .17893, + .45898, .23290, 1.34628, .14488, .06955, + .04907, .12106, .17767, + .45816, .23200, 1.32119, .14386, .06948, + .04936, .12036, .17633 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .46182, .26517, 1.64371, .11181, .00000, + .00000, .07151, .16147, + .46714, .26633, 1.70264, .11409, .00000, + .00000, .07481, .16327, + .47410, .26761, 1.76049, .11696, .00252, + .00000, .07910, .16544, + .47858, .26829, 1.78470, .11875, .00754, + .00000, .08187, .16668, + .48276, .26876, 1.79852, .12033, .01147, + .00000, .08444, .16767, + .48593, .26899, 1.80187, .12144, .01459, + .00000, .08638, .16826, + .48868, .26908, 1.79988, .12236, .01748, + .00000, .08806, .16867, + .49131, .26905, 1.79293, .12317, .02036, + .00000, .08965, .16894 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49328, .26891, 1.78223, .12372, .02260, + .00000, .09085, .16900, + .49497, .26869, 1.76890, .12413, .02462, + .00000, .09187, .16895, + .49621, .26847, 1.75714, .12441, .02617, + .00000, .09261, .16886, + .49838, .26781, 1.72364, .12475, .02913, + .00051, .09393, .16840, + .49983, .26707, 1.68627, .12481, .03137, + .00396, .09480, .16776, + .50104, .26609, 1.64165, .12467, .03362, + .00775, .09553, .16685, + .50187, .26490, 1.59350, .12431, .03565, + .01086, .09603, .16568, + .50227, .26370, 1.54876, .12381, .03726, + .01340, .09628, .16445 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50238, .26237, 1.50320, .12317, .03869, + .01571, .09637, .16308, + .50221, .26119, 1.46511, .12253, .03971, + .01741, .09632, .16182, + .50173, .25964, 1.41896, .12163, .04078, + .01925, .09609, .16021, + .50111, .25821, 1.37870, .12076, .04161, + .02075, .09580, .15870, + .50038, .25685, 1.34236, .11991, .04227, + .02201, .09548, .15725, + .49917, .25502, 1.29664, .11871, .04295, + .02339, .09492, .15531, + .49784, .25325, 1.25475, .11753, .04348, + .02456, .09431, .15344, + .49646, .25157, 1.21662, .11639, .04390, + .02557, .09368, .15167 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49485, .24978, 1.17904, .11516, .04419, + .02641, .09296, .14980, + .49317, .24801, 1.14342, .11393, .04442, + .02717, .09222, .14797, + .49148, .24630, 1.11064, .11274, .04459, + .02781, .09148, .14623, + .48973, .24464, 1.08040, .11158, .04467, + .02832, .09072, .14454, + .48793, .24299, 1.05101, .11042, .04474, + .02881, .08996, .14286, + .48600, .24129, 1.02266, .10923, .04473, + .02920, .08915, .14116, + .48416, .23970, .99661, .10812, .04471, + .02956, .08839, .13957, + .48227, .23814, .97242, .10702, .04464, + .02982, .08763, .13803 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48037, .23659, .94878, .10593, .04456, + .03008, .08687, .13649, + .47840, .23502, .92595, .10483, .04444, + .03028, .08608, .13495, + .47647, .23351, .90475, .10379, .04431, + .03045, .08533, .13349, + .47463, .23208, .88516, .10280, .04418, + .03060, .08461, .13211, + .47267, .23060, .86571, .10177, .04401, + .03070, .08386, .13070 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52522, .29258, 1.56929, .09849, .00000, + .00000, .06476, .15044, + .52873, .29237, 1.58770, .09973, .00000, + .00000, .06691, .15079, + .53294, .29170, 1.59327, .10112, .00195, + .00000, .06959, .15087, + .53543, .29100, 1.58434, .10188, .00579, + .00000, .07122, .15068, + .53748, .29002, 1.56781, .10242, .00874, + .00000, .07266, .15024, + .53882, .28903, 1.54847, .10270, .01104, + .00000, .07368, .14968, + .53980, .28799, 1.52710, .10285, .01315, + .00000, .07451, .14903, + .54056, .28679, 1.50196, .10290, .01523, + .00000, .07524, .14822 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54092, .28564, 1.47769, .10282, .01682, + .00000, .07574, .14739, + .54106, .28446, 1.45290, .10265, .01824, + .00000, .07613, .14653, + .54108, .28350, 1.43289, .10248, .01931, + .00000, .07638, .14582, + .54067, .28129, 1.38558, .10195, .02134, + .00038, .07670, .14416, + .53990, .27927, 1.34015, .10134, .02283, + .00282, .07679, .14258, + .53866, .27689, 1.28916, .10053, .02430, + .00550, .07673, .14069, + .53699, .27428, 1.23690, .09953, .02559, + .00766, .07650, .13862, + .53515, .27183, 1.19037, .09852, .02659, + .00940, .07615, .13666 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53302, .26930, 1.14456, .09743, .02746, + .01096, .07569, .13461, + .53103, .26714, 1.10740, .09646, .02806, + .01209, .07522, .13288, + .52838, .26444, 1.06353, .09522, .02865, + .01331, .07457, .13072, + .52587, .26202, 1.02607, .09409, .02910, + .01429, .07394, .12878, + .52345, .25979, .99284, .09301, .02944, + .01510, .07331, .12700, + .52010, .25690, .95192, .09160, .02976, + .01597, .07245, .12470, + .51682, .25414, .91507, .09025, .02999, + .01669, .07160, .12254, + .51368, .25154, .88199, .08896, .03016, + .01731, .07077, .12052 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51031, .24890, .84997, .08765, .03024, + .01782, .06989, .11849, + .50694, .24632, .81995, .08636, .03028, + .01826, .06902, .11650, + .50368, .24386, .79264, .08514, .03028, + .01863, .06818, .11464, + .50049, .24153, .76775, .08397, .03024, + .01892, .06736, .11287, + .49727, .23921, .74373, .08281, .03018, + .01919, .06654, .11112, + .49396, .23688, .72084, .08165, .03009, + .01940, .06571, .10940, + .49084, .23469, .69992, .08056, .02999, + .01958, .06493, .10779, + .48776, .23260, .68070, .07952, .02986, + .01971, .06416, .10625 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48468, .23051, .66199, .07848, .02973, + .01983, .06340, .10473, + .48156, .22843, .64408, .07746, .02957, + .01992, .06264, .10323, + .47856, .22646, .62755, .07649, .02942, + .01998, .06191, .10181, + .47571, .22460, .61233, .07557, .02926, + .02004, .06123, .10049, + .47277, .22267, .59735, .07463, .02909, + .02006, .06052, .09915 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59021, .31608, 1.41799, .08397, .00000, + .00000, .05649, .13460, + .59094, .31415, 1.40366, .08429, .00000, + .00000, .05760, .13361, + .59111, .31099, 1.36923, .08442, .00141, + .00000, .05884, .13190, + .59066, .30858, 1.33652, .08434, .00415, + .00000, .05951, .13049, + .58970, .30585, 1.29934, .08407, .00623, + .00000, .06000, .12890, + .58846, .30340, 1.26541, .08371, .00782, + .00000, .06027, .12742, + .58701, .30099, 1.23226, .08329, .00925, + .00000, .06042, .12595, + .58524, .29839, 1.19674, .08277, .01065, + .00000, .06050, .12434 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58344, .29604, 1.16538, .08222, .01170, + .00000, .06047, .12290, + .58152, .29376, 1.13513, .08166, .01263, + .00000, .06037, .12147, + .57992, .29195, 1.11150, .08119, .01333, + .00000, .06026, .12033, + .57613, .28797, 1.05952, .08011, .01461, + .00027, .05989, .11785, + .57252, .28448, 1.01315, .07908, .01554, + .00189, .05947, .11567, + .56820, .28052, .96298, .07785, .01642, + .00366, .05889, .11321, + .56339, .27636, .91330, .07651, .01718, + .00507, .05819, .11063, + .55877, .27258, .87035, .07525, .01775, + .00619, .05748, .10827 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55392, .26876, .82907, .07396, .01822, + .00718, .05671, .10588, + .54975, .26555, .79632, .07286, .01853, + .00789, .05604, .10392, + .54451, .26164, .75844, .07149, .01883, + .00864, .05517, .10156, + .53978, .25820, .72663, .07027, .01904, + .00924, .05439, .09949, + .53537, .25507, .69881, .06916, .01918, + .00972, .05365, .09762, + .52959, .25108, .66515, .06773, .01930, + .01023, .05268, .09526, + .52409, .24734, .63526, .06639, .01936, + .01066, .05176, .09307, + .51891, .24387, .60875, .06514, .01938, + .01101, .05089, .09107 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51357, .24039, .58344, .06389, .01935, + .01129, .05002, .08905, + .50834, .23702, .55996, .06268, .01930, + .01153, .04916, .08713, + .50336, .23387, .53882, .06154, .01924, + .01172, .04834, .08535, + .49859, .23089, .51975, .06048, .01915, + .01187, .04757, .08368, + .49384, .22794, .50146, .05943, .01905, + .01200, .04680, .08204, + .48908, .22501, .48422, .05839, .01893, + .01210, .04603, .08046, + .48462, .22227, .46853, .05742, .01882, + .01218, .04531, .07899, + .48028, .21969, .45423, .05650, .01869, + .01223, .04463, .07759 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47595, .21712, .44036, .05560, .01856, + .01227, .04396, .07621, + .47165, .21459, .42719, .05471, .01841, + .01230, .04330, .07487, + .46757, .21219, .41509, .05387, .01827, + .01231, .04267, .07360, + .46370, .20994, .40400, .05309, .01813, + .01232, .04208, .07243, + .45972, .20766, .39316, .05231, .01798, + .01231, .04148, .07124 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64043, .32965, 1.23812, .07152, .00000, + .00000, .04862, .11764, + .63810, .32603, 1.20532, .07121, .00000, + .00000, .04903, .11582, + .63386, .32055, 1.15016, .07055, .00101, + .00000, .04933, .11303, + .63032, .31651, 1.10646, .06993, .00297, + .00000, .04938, .11096, + .62620, .31214, 1.06069, .06917, .00443, + .00000, .04931, .10874, + .62228, .30837, 1.02153, .06844, .00553, + .00000, .04913, .10677, + .61834, .30474, .98478, .06771, .00651, + .00000, .04890, .10488, + .61399, .30088, .94678, .06689, .00746, + .00000, .04859, .10289 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61001, .29750, .91443, .06613, .00817, + .00000, .04827, .10116, + .60604, .29423, .88401, .06537, .00878, + .00000, .04791, .09949, + .60286, .29166, .86063, .06476, .00924, + .00000, .04762, .09819, + .59575, .28618, .81102, .06343, .01006, + .00020, .04692, .09540, + .58940, .28146, .76847, .06223, .01065, + .00129, .04625, .09302, + .58212, .27620, .72345, .06086, .01119, + .00248, .04545, .09040, + .57435, .27077, .67979, .05944, .01165, + .00342, .04457, .08770, + .56718, .26588, .64277, .05813, .01198, + .00415, .04375, .08530 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55985, .26100, .60778, .05681, .01224, + .00479, .04290, .08293, + .55368, .25699, .58041, .05571, .01241, + .00525, .04216, .08101, + .54614, .25215, .54919, .05438, .01255, + .00573, .04127, .07872, + .53945, .24792, .52328, .05321, .01264, + .00610, .04047, .07673, + .53329, .24411, .50083, .05216, .01270, + .00640, .03975, .07496, + .52538, .23929, .47400, .05084, .01272, + .00671, .03883, .07274, + .51796, .23484, .45043, .04961, .01271, + .00697, .03796, .07071, + .51107, .23073, .42971, .04848, .01269, + .00718, .03716, .06887 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50408, .22666, .41014, .04735, .01263, + .00734, .03635, .06707, + .49729, .22274, .39209, .04629, .01256, + .00747, .03557, .06534, + .49089, .21910, .37592, .04530, .01248, + .00758, .03486, .06373, + .48484, .21567, .36148, .04438, .01239, + .00765, .03418, .06226, + .47886, .21230, .34769, .04347, .01230, + .00772, .03351, .06082, + .47290, .20900, .33475, .04257, .01219, + .00776, .03285, .05944, + .46733, .20594, .32301, .04175, .01209, + .00780, .03223, .05816, + .46202, .20303, .31241, .04098, .01198, + .00782, .03166, .05696 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45675, .20016, .30217, .04022, .01187, + .00783, .03110, .05577, + .45153, .19735, .29248, .03948, .01175, + .00783, .03054, .05462, + .44659, .19470, .28359, .03878, .01164, + .00783, .03001, .05356, + .44195, .19222, .27549, .03813, .01153, + .00782, .02952, .05257, + .43724, .18971, .26761, .03746, .01141, + .00780, .02903, .05159 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .67693, .33498, 1.05370, .06083, .00000, + .00000, .04135, .10070, + .67140, .32989, 1.01220, .06015, .00000, + .00000, .04127, .09840, + .66267, .32234, .94888, .05900, .00072, + .00000, .04095, .09508, + .65602, .31688, .90213, .05810, .00211, + .00000, .04065, .09265, + .64871, .31113, .85501, .05708, .00314, + .00000, .04021, .09015, + .64218, .30621, .81601, .05616, .00391, + .00000, .03978, .08801, + .63582, .30153, .78022, .05527, .00458, + .00000, .03933, .08600, + .62900, .29661, .74396, .05431, .00523, + .00000, .03883, .08390 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62294, .29236, .71375, .05345, .00571, + .00000, .03836, .08210, + .61701, .28830, .68581, .05262, .00612, + .00000, .03788, .08040, + .61232, .28513, .66456, .05197, .00642, + .00000, .03750, .07907, + .60216, .27841, .62045, .05057, .00696, + .00014, .03665, .07629, + .59328, .27271, .58356, .04936, .00734, + .00088, .03590, .07394, + .58333, .26642, .54515, .04799, .00768, + .00170, .03504, .07141, + .57292, .26001, .50847, .04660, .00796, + .00233, .03414, .06884, + .56347, .25430, .47779, .04535, .00816, + .00282, .03331, .06659 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55399, .24863, .44913, .04409, .00830, + .00325, .03247, .06440, + .54613, .24399, .42699, .04305, .00839, + .00354, .03178, .06265, + .53657, .23849, .40193, .04184, .00846, + .00385, .03095, .06056, + .52819, .23372, .38131, .04080, .00850, + .00409, .03022, .05876, + .52058, .22943, .36357, .03986, .00851, + .00429, .02956, .05716, + .51093, .22406, .34261, .03866, .00850, + .00448, .02873, .05521, + .50194, .21913, .32430, .03759, .00847, + .00464, .02796, .05343, + .49364, .21463, .30827, .03662, .00843, + .00477, .02725, .05182 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48535, .21015, .29328, .03563, .00837, + .00486, .02656, .05026, + .47735, .20588, .27952, .03470, .00830, + .00494, .02590, .04879, + .46986, .20192, .26726, .03386, .00823, + .00500, .02529, .04742, + .46284, .19824, .25637, .03306, .00816, + .00504, .02472, .04617, + .45592, .19463, .24600, .03229, .00808, + .00507, .02415, .04496, + .44908, .19111, .23632, .03154, .00799, + .00509, .02361, .04380, + .44272, .18785, .22757, .03085, .00791, + .00511, .02311, .04273, + .43668, .18478, .21969, .03021, .00782, + .00511, .02263, .04174 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43071, .18175, .21210, .02958, .00774, + .00511, .02217, .04077, + .42485, .17880, .20494, .02896, .00765, + .00510, .02172, .03982, + .41932, .17602, .19840, .02838, .00756, + .00509, .02130, .03894, + .41414, .17343, .19244, .02784, .00748, + .00508, .02091, .03813, + .40890, .17083, .18665, .02731, .00739, + .00506, .02051, .03733 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70066, .33364, .87860, .05167, .00000, + .00000, .03473, .08450, + .69202, .32724, .83480, .05075, .00000, + .00000, .03436, .08205, + .67898, .31787, .77120, .04930, .00052, + .00000, .03370, .07856, + .66933, .31122, .72611, .04824, .00150, + .00000, .03318, .07610, + .65905, .30429, .68171, .04709, .00222, + .00000, .03257, .07360, + .65007, .29842, .64575, .04609, .00275, + .00000, .03201, .07149, + .64147, .29289, .61324, .04515, .00322, + .00000, .03148, .06951, + .63235, .28712, .58078, .04415, .00366, + .00000, .03090, .06747 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62440, .28217, .55412, .04327, .00398, + .00000, .03038, .06575, + .61672, .27747, .52975, .04243, .00426, + .00000, .02987, .06414, + .61068, .27382, .51136, .04178, .00446, + .00000, .02946, .06290, + .59777, .26617, .47382, .04041, .00482, + .00010, .02861, .06029, + .58670, .25971, .44297, .03922, .00507, + .00061, .02786, .05815, + .57441, .25266, .41123, .03794, .00529, + .00117, .02703, .05584, + .56174, .24553, .38126, .03664, .00546, + .00160, .02617, .05353, + .55038, .23923, .35645, .03548, .00558, + .00193, .02540, .05153 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53907, .23303, .33348, .03435, .00566, + .00222, .02465, .04959, + .52976, .22801, .31587, .03343, .00571, + .00242, .02403, .04804, + .51861, .22204, .29611, .03234, .00574, + .00262, .02328, .04623, + .50890, .21692, .27997, .03141, .00575, + .00278, .02264, .04469, + .50012, .21234, .26617, .03059, .00574, + .00290, .02207, .04331, + .48910, .20662, .24990, .02955, .00572, + .00303, .02135, .04165, + .47891, .20140, .23581, .02861, .00569, + .00313, .02070, .04016, + .46955, .19666, .22357, .02777, .00565, + .00320, .02011, .03880 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46028, .19198, .21213, .02694, .00560, + .00326, .01953, .03750, + .45139, .18754, .20168, .02615, .00554, + .00331, .01898, .03627, + .44311, .18344, .19241, .02543, .00548, + .00334, .01848, .03513, + .43538, .17964, .18421, .02477, .00542, + .00336, .01800, .03411, + .42779, .17591, .17641, .02413, .00536, + .00338, .01754, .03313, + .42035, .17231, .16917, .02350, .00529, + .00339, .01710, .03218, + .41345, .16899, .16264, .02293, .00523, + .00339, .01669, .03130, + .40693, .16587, .15679, .02240, .00517, + .00339, .01631, .03050 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40050, .16281, .15115, .02189, .00510, + .00338, .01593, .02971, + .39421, .15983, .14585, .02138, .00504, + .00338, .01557, .02896, + .38831, .15704, .14100, .02090, .00497, + .00336, .01523, .02827, + .38279, .15444, .13660, .02046, .00491, + .00335, .01492, .02762, + .37724, .15184, .13234, .02003, .00485, + .00333, .01461, .02698 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71277, .32677, .72024, .04371, .00000, + .00000, .02884, .06968, + .70125, .31923, .67811, .04262, .00000, + .00000, .02832, .06730, + .68417, .30839, .61886, .04104, .00037, + .00000, .02749, .06392, + .67175, .30079, .57795, .03993, .00106, + .00000, .02687, .06157, + .65876, .29290, .53833, .03874, .00156, + .00000, .02620, .05920, + .64756, .28630, .50678, .03774, .00193, + .00000, .02561, .05724, + .63694, .28012, .47858, .03679, .00226, + .00000, .02505, .05541, + .62581, .27371, .45070, .03580, .00256, + .00000, .02447, .05355 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61616, .26827, .42809, .03496, .00278, + .00000, .02395, .05199, + .60695, .26311, .40759, .03416, .00297, + .00000, .02346, .05053, + .59975, .25911, .39221, .03354, .00310, + .00000, .02307, .04942, + .58451, .25078, .36114, .03226, .00334, + .00008, .02224, .04711, + .57158, .24380, .33596, .03117, .00350, + .00042, .02155, .04522, + .55736, .23624, .31030, .02999, .00364, + .00081, .02080, .04321, + .54283, .22865, .28628, .02881, .00375, + .00111, .02003, .04121, + .52992, .22198, .26658, .02778, .00382, + .00133, .01935, .03949 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51717, .21547, .24850, .02677, .00387, + .00152, .01868, .03784, + .50675, .21023, .23469, .02597, .00389, + .00166, .01814, .03651, + .49435, .20402, .21928, .02501, .00391, + .00179, .01750, .03500, + .48363, .19871, .20675, .02420, .00391, + .00190, .01696, .03371, + .47399, .19398, .19610, .02350, .00390, + .00198, .01649, .03257, + .46193, .18814, .18362, .02262, .00387, + .00206, .01588, .03119, + .45088, .18282, .17283, .02183, .00384, + .00212, .01534, .02996, + .44080, .17799, .16347, .02111, .00381, + .00217, .01485, .02884 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43085, .17325, .15481, .02041, .00376, + .00221, .01438, .02778, + .42136, .16876, .14691, .01975, .00372, + .00224, .01393, .02679, + .41256, .16465, .13991, .01915, .00368, + .00226, .01352, .02588, + .40439, .16085, .13372, .01860, .00363, + .00227, .01313, .02507, + .39638, .15715, .12787, .01806, .00358, + .00227, .01276, .02429, + .38858, .15358, .12244, .01756, .00353, + .00228, .01241, .02352, + .38135, .15028, .11756, .01709, .00349, + .00228, .01210, .02282, + .37457, .14721, .11317, .01665, .00344, + .00227, .01179, .02218 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36790, .14419, .10895, .01622, .00339, + .00227, .01149, .02156, + .36139, .14127, .10500, .01583, .00334, + .00226, .01121, .02096, + .35528, .13855, .10140, .01546, .00330, + .00225, .01095, .02039, + .34959, .13602, .09813, .01512, .00326, + .00223, .01071, .01987, + .34390, .13349, .09496, .01477, .00321, + .00222, .01046, .01938 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .71437, .31545, .58197, .03673, .00000, + .00000, .02369, .05653, + .70016, .30706, .54379, .03564, .00000, + .00000, .02309, .05430, + .67940, .29512, .49124, .03406, .00026, + .00000, .02219, .05120, + .66455, .28678, .45575, .03294, .00074, + .00000, .02155, .04906, + .64914, .27824, .42173, .03179, .00110, + .00000, .02089, .04692, + .63602, .27111, .39500, .03083, .00135, + .00000, .02030, .04517, + .62367, .26446, .37132, .02993, .00158, + .00000, .01976, .04356, + .61081, .25762, .34810, .02901, .00179, + .00000, .01920, .04192 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .59977, .25182, .32939, .02823, .00194, + .00000, .01873, .04055, + .58927, .24636, .31256, .02749, .00206, + .00000, .01827, .03928, + .58111, .24215, .30001, .02693, .00216, + .00000, .01790, .03831, + .56397, .23342, .27484, .02576, .00232, + .00006, .01718, .03632, + .54954, .22613, .25470, .02477, .00242, + .00029, .01656, .03473, + .53379, .21830, .23430, .02373, .00252, + .00056, .01588, .03302, + .51783, .21047, .21534, .02269, .00259, + .00077, .01522, .03135, + .50374, .20364, .19989, .02179, .00263, + .00092, .01464, .02991 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48991, .19701, .18576, .02093, .00266, + .00105, .01408, .02853, + .47871, .19166, .17504, .02023, .00267, + .00115, .01363, .02745, + .46544, .18540, .16312, .01940, .00267, + .00124, .01310, .02620, + .45402, .18006, .15347, .01870, .00267, + .00131, .01264, .02516, + .44381, .17531, .14529, .01809, .00266, + .00136, .01224, .02425, + .43111, .16947, .13574, .01734, .00264, + .00141, .01175, .02314, + .41952, .16419, .12751, .01669, .00261, + .00145, .01131, .02214, + .40896, .15942, .12041, .01611, .00258, + .00149, .01091, .02125 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39864, .15476, .11382, .01553, .00255, + .00151, .01054, .02039, + .38883, .15036, .10783, .01498, .00252, + .00152, .01019, .01959, + .37977, .14632, .10255, .01448, .00248, + .00153, .00986, .01887, + .37139, .14263, .09789, .01403, .00245, + .00154, .00955, .01823, + .36319, .13903, .09348, .01359, .00241, + .00154, .00925, .01762, + .35523, .13558, .08939, .01317, .00238, + .00154, .00898, .01702, + .34788, .13241, .08571, .01279, .00234, + .00154, .00872, .01648, + .34104, .12944, .08243, .01244, .00231, + .00154, .00849, .01599 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33432, .12653, .07928, .01209, .00228, + .00153, .00826, .01551, + .32777, .12372, .07632, .01176, .00224, + .00152, .00804, .01505, + .32165, .12111, .07363, .01146, .00221, + .00151, .00783, .01462, + .31595, .11870, .07119, .01119, .00218, + .00150, .00764, .01423, + .31025, .11628, .06883, .01091, .00215, + .00149, .00745, .01385 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .70625, .30095, .46455, .03093, .00000, + .00000, .01907, .04494, + .68971, .29193, .43133, .02983, .00000, + .00000, .01846, .04298, + .66584, .27917, .38636, .02827, .00018, + .00000, .01762, .04025, + .64896, .27028, .35642, .02717, .00052, + .00000, .01701, .03842, + .63154, .26130, .32808, .02608, .00077, + .00000, .01639, .03658, + .61686, .25380, .30600, .02517, .00095, + .00000, .01586, .03509, + .60311, .24687, .28656, .02433, .00111, + .00000, .01537, .03372, + .58886, .23976, .26762, .02349, .00125, + .00000, .01487, .03233 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .57673, .23377, .25250, .02277, .00135, + .00000, .01446, .03115, + .56525, .22814, .23894, .02210, .00144, + .00000, .01407, .03009, + .55635, .22379, .22885, .02158, .00150, + .00000, .01376, .02929, + .53776, .21485, .20886, .02053, .00161, + .00004, .01313, .02766, + .52219, .20748, .19296, .01967, .00168, + .00021, .01260, .02632, + .50535, .19956, .17695, .01874, .00174, + .00039, .01204, .02491, + .48841, .19168, .16212, .01783, .00179, + .00054, .01148, .02355, + .47353, .18485, .15010, .01706, .00181, + .00064, .01099, .02238 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45899, .17824, .13919, .01632, .00183, + .00073, .01053, .02126, + .44729, .17294, .13091, .01571, .00183, + .00080, .01017, .02039, + .43349, .16675, .12175, .01501, .00183, + .00086, .00973, .01941, + .42166, .16149, .11435, .01443, .00183, + .00090, .00936, .01858, + .41111, .15686, .10810, .01393, .00182, + .00094, .00904, .01784, + .39809, .15116, .10081, .01331, .00180, + .00098, .00865, .01695, + .38624, .14603, .09453, .01275, .00178, + .00100, .00829, .01617, + .37549, .14142, .08911, .01226, .00176, + .00102, .00797, .01548 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36505, .13692, .08413, .01178, .00174, + .00103, .00767, .01483, + .35514, .13269, .07960, .01134, .00171, + .00104, .00739, .01422, + .34600, .12883, .07561, .01095, .00169, + .00105, .00714, .01366, + .33761, .12530, .07208, .01058, .00166, + .00105, .00691, .01316, + .32945, .12186, .06875, .01022, .00164, + .00105, .00668, .01267, + .32153, .11857, .06567, .00989, .00161, + .00105, .00647, .01222, + .31423, .11554, .06291, .00959, .00158, + .00105, .00627, .01181, + .30746, .11274, .06044, .00930, .00156, + .00105, .00609, .01144 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30083, .11000, .05807, .00902, .00153, + .00104, .00591, .01107, + .29438, .10736, .05585, .00875, .00151, + .00103, .00574, .01072, + .28836, .10492, .05383, .00851, .00149, + .00103, .00558, .01039, + .28278, .10265, .05200, .00829, .00146, + .00102, .00544, .01009, + .27722, .10041, .05023, .00807, .00144, + .00101, .00529, .00981 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69025, .28341, .36642, .02550, .00000, + .00000, .01534, .03539, + .67171, .27399, .33842, .02446, .00000, + .00000, .01478, .03368, + .64519, .26075, .30106, .02301, .00013, + .00000, .01398, .03136, + .62656, .25162, .27647, .02204, .00036, + .00000, .01342, .02976, + .60754, .24238, .25342, .02105, .00054, + .00000, .01286, .02822, + .59154, .23479, .23553, .02026, .00066, + .00000, .01238, .02694, + .57670, .22774, .21990, .01951, .00077, + .00000, .01195, .02579, + .56144, .22050, .20479, .01874, .00087, + .00000, .01153, .02464 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54844, .21447, .19279, .01812, .00094, + .00000, .01116, .02369, + .53620, .20881, .18206, .01753, .00100, + .00000, .01081, .02283, + .52676, .20446, .17410, .01708, .00104, + .00000, .01054, .02217, + .50716, .19554, .15836, .01616, .00111, + .00003, .01001, .02082, + .49085, .18823, .14595, .01542, .00116, + .00014, .00956, .01974, + .47327, .18039, .13349, .01463, .00120, + .00027, .00909, .01862, + .45569, .17265, .12202, .01386, .00123, + .00037, .00863, .01753, + .44034, .16596, .11276, .01321, .00125, + .00045, .00824, .01659 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42545, .15951, .10434, .01257, .00126, + .00051, .00786, .01571, + .41348, .15436, .09799, .01209, .00126, + .00055, .00755, .01504, + .39943, .14840, .09098, .01152, .00126, + .00059, .00720, .01424, + .38746, .14334, .08533, .01103, .00125, + .00062, .00691, .01359, + .37686, .13886, .08057, .01060, .00124, + .00065, .00665, .01303, + .36378, .13341, .07500, .01009, .00123, + .00067, .00635, .01234, + .35194, .12851, .07024, .00965, .00121, + .00069, .00608, .01173, + .34127, .12412, .06615, .00925, .00120, + .00070, .00583, .01118 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33090, .11988, .06236, .00886, .00118, + .00071, .00558, .01068, + .32108, .11590, .05893, .00851, .00116, + .00072, .00535, .01021, + .31207, .11226, .05591, .00821, .00114, + .00072, .00516, .00978, + .30383, .10895, .05325, .00791, .00113, + .00072, .00498, .00939, + .29583, .10574, .05073, .00762, .00111, + .00072, .00481, .00902, + .28810, .10267, .04841, .00736, .00109, + .00072, .00464, .00869, + .28100, .09986, .04632, .00711, .00107, + .00071, .00448, .00839, + .27443, .09726, .04446, .00688, .00105, + .00071, .00435, .00810 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26801, .09471, .04268, .00666, .00104, + .00071, .00422, .00782, + .26178, .09227, .04100, .00646, .00102, + .00070, .00409, .00756, + .25599, .09002, .03948, .00627, .00100, + .00070, .00397, .00731, + .25063, .08793, .03810, .00610, .00099, + .00069, .00386, .00709, + .24531, .08586, .03676, .00592, .00097, + .00068, .00375, .00688 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .66694, .26414, .28620, .02089, .00000, + .00000, .01215, .02738, + .64686, .25447, .26323, .01993, .00000, + .00000, .01164, .02597, + .61826, .24106, .23287, .01862, .00009, + .00000, .01091, .02404, + .59832, .23185, .21308, .01776, .00025, + .00000, .01043, .02272, + .57809, .22258, .19463, .01689, .00037, + .00000, .00996, .02142, + .56124, .21494, .18044, .01617, .00046, + .00000, .00955, .02040, + .54561, .20792, .16810, .01551, .00053, + .00000, .00918, .01949, + .52956, .20078, .15619, .01486, .00060, + .00000, .00880, .01856 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51602, .19480, .14675, .01433, .00065, + .00000, .00851, .01777, + .50332, .18923, .13834, .01382, .00069, + .00000, .00822, .01707, + .49355, .18496, .13213, .01343, .00072, + .00000, .00800, .01654, + .47334, .17622, .11990, .01264, .00077, + .00002, .00756, .01549, + .45665, .16908, .11029, .01200, .00080, + .00010, .00719, .01464, + .43871, .16148, .10068, .01133, .00083, + .00019, .00680, .01376, + .42088, .15401, .09185, .01070, .00085, + .00026, .00642, .01289, + .40540, .14758, .08473, .01017, .00086, + .00031, .00611, .01214 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39044, .14140, .07830, .00966, .00086, + .00035, .00582, .01144, + .37846, .13650, .07345, .00925, .00086, + .00038, .00558, .01092, + .36448, .13080, .06809, .00876, .00086, + .00041, .00529, .01034, + .35260, .12600, .06377, .00837, .00085, + .00043, .00505, .00984, + .34207, .12180, .06014, .00805, .00085, + .00045, .00486, .00939, + .32923, .11666, .05591, .00762, .00084, + .00047, .00462, .00887, + .31763, .11207, .05230, .00727, .00083, + .00048, .00441, .00841, + .30716, .10798, .04920, .00697, .00082, + .00049, .00422, .00799 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .29710, .10401, .04631, .00664, .00080, + .00049, .00404, .00761, + .28760, .10031, .04371, .00635, .00079, + .00049, .00386, .00725, + .27888, .09695, .04142, .00610, .00078, + .00049, .00369, .00693, + .27092, .09388, .03941, .00586, .00076, + .00049, .00356, .00665, + .26320, .09092, .03751, .00564, .00075, + .00049, .00343, .00639, + .25580, .08810, .03575, .00543, .00074, + .00049, .00330, .00613, + .24902, .08552, .03417, .00525, .00072, + .00049, .00319, .00588, + .24273, .08315, .03277, .00507, .00071, + .00048, .00309, .00568 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23659, .08083, .03142, .00490, .00070, + .00048, .00298, .00549, + .23068, .07861, .03016, .00474, .00069, + .00048, .00289, .00530, + .22519, .07656, .02901, .00459, .00068, + .00047, .00280, .00511, + .22013, .07467, .02797, .00446, .00067, + .00047, .00272, .00495, + .21510, .07280, .02697, .00432, .00065, + .00046, .00264, .00479 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .63772, .24348, .22151, .01681, .00000, + .00000, .00953, .02094, + .61637, .23388, .20307, .01599, .00000, + .00000, .00907, .01977, + .58628, .22054, .17886, .01487, .00006, + .00000, .00845, .01819, + .56550, .21138, .16323, .01409, .00018, + .00000, .00805, .01712, + .54440, .20229, .14872, .01335, .00026, + .00000, .00764, .01608, + .52700, .19476, .13760, .01274, .00032, + .00000, .00730, .01526, + .51094, .18788, .12795, .01217, .00037, + .00000, .00699, .01453, + .49452, .18092, .11866, .01158, .00041, + .00000, .00668, .01381 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48068, .17512, .11134, .01112, .00045, + .00000, .00641, .01321, + .46774, .16975, .10483, .01072, .00047, + .00000, .00619, .01264, + .45779, .16565, .10002, .01042, .00049, + .00000, .00603, .01219, + .43734, .15726, .09059, .00978, .00053, + .00002, .00568, .01135, + .42057, .15039, .08319, .00927, .00055, + .00007, .00537, .01068, + .40266, .14312, .07581, .00872, .00057, + .00013, .00505, .01001, + .38493, .13602, .06906, .00816, .00058, + .00018, .00475, .00936, + .36962, .12993, .06364, .00769, .00059, + .00021, .00450, .00882 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35486, .12411, .05873, .00728, .00059, + .00024, .00425, .00831, + .34309, .11951, .05504, .00696, .00059, + .00026, .00408, .00789, + .32934, .11420, .05094, .00662, .00059, + .00028, .00387, .00741, + .31775, .10974, .04765, .00631, .00058, + .00029, .00368, .00702, + .30759, .10581, .04489, .00602, .00058, + .00031, .00351, .00669, + .29512, .10106, .04169, .00569, .00057, + .00032, .00334, .00630, + .28392, .09681, .03894, .00540, .00056, + .00033, .00317, .00596, + .27389, .09301, .03658, .00516, .00055, + .00033, .00303, .00566 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26419, .08940, .03441, .00492, .00054, + .00034, .00288, .00538, + .25511, .08601, .03243, .00469, .00053, + .00034, .00275, .00512, + .24687, .08293, .03069, .00448, .00053, + .00034, .00263, .00488, + .23931, .08015, .02917, .00430, .00052, + .00034, .00253, .00467, + .23200, .07746, .02774, .00413, .00051, + .00034, .00243, .00446, + .22501, .07491, .02641, .00397, .00050, + .00034, .00234, .00428, + .21861, .07258, .02522, .00383, .00049, + .00034, .00225, .00411, + .21271, .07043, .02415, .00369, .00048, + .00034, .00218, .00395 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20696, .06835, .02314, .00356, .00047, + .00033, .00210, .00380, + .20143, .06635, .02218, .00344, .00047, + .00033, .00203, .00366, + .19631, .06450, .02132, .00332, .00046, + .00033, .00196, .00354, + .19159, .06281, .02054, .00322, .00045, + .00033, .00189, .00342, + .18694, .06114, .01978, .00310, .00044, + .00033, .00184, .00331 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60344, .22222, .17004, .01334, .00000, + .00000, .00741, .01576, + .58131, .21277, .15550, .01263, .00000, + .00000, .00702, .01482, + .55040, .19963, .13654, .01163, .00004, + .00000, .00650, .01360, + .52904, .19077, .12431, .01102, .00012, + .00000, .00616, .01274, + .50762, .18193, .11306, .01036, .00018, + .00000, .00579, .01196, + .48994, .17470, .10445, .00985, .00022, + .00000, .00552, .01131, + .47367, .16810, .09699, .00940, .00025, + .00000, .00527, .01071, + .45711, .16143, .08983, .00895, .00028, + .00000, .00503, .01011 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44326, .15588, .08419, .00856, .00030, + .00000, .00482, .00966, + .43036, .15074, .07920, .00820, .00032, + .00000, .00463, .00924, + .42047, .14683, .07552, .00794, .00034, + .00000, .00447, .00892, + .40017, .13887, .06828, .00743, .00036, + .00001, .00418, .00829, + .38363, .13240, .06262, .00699, .00038, + .00005, .00396, .00776, + .36599, .12561, .05699, .00656, .00039, + .00009, .00372, .00722, + .34860, .11897, .05184, .00613, .00040, + .00012, .00348, .00673, + .33367, .11328, .04771, .00577, .00040, + .00014, .00328, .00633 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .31938, .10787, .04397, .00542, .00041, + .00016, .00310, .00594, + .30802, .10362, .04115, .00516, .00041, + .00018, .00295, .00562, + .29482, .09871, .03805, .00487, .00041, + .00019, .00279, .00527, + .28368, .09459, .03557, .00464, .00041, + .00020, .00265, .00499, + .27391, .09099, .03347, .00442, .00040, + .00020, .00254, .00475, + .26205, .08665, .03103, .00416, .00040, + .00021, .00240, .00445, + .25140, .08280, .02895, .00395, .00039, + .00022, .00227, .00419, + .24187, .07937, .02716, .00377, .00038, + .00022, .00215, .00397 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23279, .07607, .02551, .00355, .00038, + .00022, .00205, .00377, + .22425, .07301, .02402, .00337, .00037, + .00022, .00195, .00357, + .21647, .07025, .02272, .00323, .00037, + .00022, .00186, .00339, + .20939, .06775, .02156, .00310, .00036, + .00022, .00179, .00324, + .20257, .06534, .02047, .00297, .00036, + .00022, .00172, .00310, + .19605, .06307, .01947, .00285, .00035, + .00022, .00165, .00295, + .19010, .06100, .01857, .00275, .00035, + .00022, .00159, .00283, + .18465, .05909, .01777, .00264, .00034, + .00022, .00153, .00272 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .17934, .05723, .01700, .00253, .00034, + .00022, .00147, .00261, + .17425, .05546, .01628, .00244, .00033, + .00022, .00142, .00251, + .16954, .05383, .01563, .00235, .00033, + .00022, .00137, .00242, + .16520, .05233, .01504, .00228, .00032, + .00022, .00132, .00234, + .16089, .05087, .01447, .00221, .00032, + .00022, .00128, .00226 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56525, .20084, .12970, .01051, .00000, + .00000, .00561, .01165, + .54274, .19170, .11839, .00991, .00000, + .00000, .00532, .01091, + .51145, .17909, .10371, .00908, .00003, + .00000, .00488, .00996, + .49003, .17055, .09430, .00853, .00008, + .00000, .00458, .00933, + .46855, .16212, .08564, .00800, .00012, + .00000, .00432, .00872, + .45097, .15523, .07904, .00757, .00014, + .00000, .00411, .00820, + .43484, .14897, .07332, .00719, .00017, + .00000, .00391, .00775, + .41846, .14268, .06784, .00681, .00019, + .00000, .00370, .00732 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40479, .13745, .06354, .00652, .00020, + .00000, .00354, .00695, + .39209, .13263, .05973, .00625, .00022, + .00000, .00339, .00662, + .38238, .12896, .05691, .00603, .00023, + .00000, .00328, .00638, + .36265, .12151, .05138, .00558, .00024, + .00001, .00305, .00591, + .34650, .11552, .04710, .00526, .00025, + .00003, .00287, .00552, + .32942, .10921, .04280, .00491, .00026, + .00006, .00269, .00514, + .31268, .10307, .03888, .00459, .00027, + .00008, .00251, .00476, + .29836, .09785, .03573, .00431, .00027, + .00010, .00236, .00444 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28468, .09289, .03289, .00404, .00027, + .00011, .00222, .00416, + .27383, .08901, .03076, .00385, .00027, + .00012, .00210, .00393, + .26132, .08455, .02840, .00361, .00027, + .00012, .00198, .00368, + .25082, .08082, .02651, .00341, .00027, + .00013, .00188, .00348, + .24163, .07757, .02492, .00323, .00027, + .00013, .00179, .00330, + .23046, .07365, .02307, .00304, .00027, + .00013, .00169, .00309, + .22052, .07018, .02150, .00287, .00027, + .00013, .00159, .00290, + .21167, .06711, .02015, .00271, .00027, + .00013, .00150, .00272 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20316, .06417, .01890, .00257, .00027, + .00013, .00143, .00258, + .19522, .06144, .01777, .00244, .00027, + .00013, .00136, .00245, + .18804, .05898, .01678, .00232, .00027, + .00013, .00129, .00233, + .18152, .05677, .01591, .00222, .00027, + .00013, .00124, .00222, + .17525, .05464, .01509, .00213, .00027, + .00013, .00119, .00211, + .16927, .05263, .01433, .00204, .00027, + .00013, .00114, .00201, + .16381, .05081, .01365, .00196, .00027, + .00013, .00110, .00192, + .15882, .04913, .01305, .00188, .00026, + .00013, .00105, .00184 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15398, .04751, .01247, .00181, .00026, + .00013, .00102, .00176, + .14933, .04596, .01193, .00174, .00026, + .00013, .00098, .00169, + .14504, .04454, .01145, .00168, .00026, + .00013, .00094, .00163, + .14111, .04323, .01100, .00163, .00025, + .00013, .00090, .00157, + .13724, .04195, .01058, .00157, .00025, + .00013, .00087, .00152 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52419, .17961, .09830, .00811, .00000, + .00000, .00422, .00851, + .50169, .17090, .08962, .00762, .00000, + .00000, .00396, .00796, + .47055, .15898, .07841, .00695, .00002, + .00000, .00360, .00722, + .44936, .15093, .07124, .00650, .00005, + .00000, .00338, .00673, + .42821, .14298, .06462, .00610, .00008, + .00000, .00317, .00626, + .41094, .13655, .05959, .00576, .00010, + .00000, .00299, .00588, + .39518, .13072, .05524, .00545, .00011, + .00000, .00283, .00554, + .37926, .12485, .05108, .00515, .00013, + .00000, .00267, .00521 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36599, .12002, .04781, .00492, .00014, + .00000, .00255, .00492, + .35372, .11556, .04491, .00470, .00014, + .00000, .00244, .00467, + .34437, .11216, .04277, .00452, .00015, + .00000, .00236, .00448, + .32534, .10531, .03858, .00418, .00016, + .00001, .00218, .00415, + .30989, .09981, .03532, .00393, .00016, + .00002, .00203, .00388, + .29362, .09404, .03206, .00367, .00017, + .00004, .00190, .00357, + .27774, .08845, .02909, .00340, .00017, + .00005, .00177, .00329, + .26419, .08373, .02670, .00318, .00017, + .00006, .00165, .00307 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25130, .07926, .02454, .00298, .00017, + .00007, .00154, .00287, + .24113, .07576, .02293, .00283, .00017, + .00007, .00147, .00270, + .22944, .07173, .02114, .00265, .00017, + .00007, .00137, .00251, + .21964, .06840, .01971, .00250, .00017, + .00007, .00130, .00236, + .21107, .06551, .01850, .00239, .00017, + .00007, .00124, .00223, + .20069, .06204, .01711, .00225, .00017, + .00007, .00115, .00208, + .19151, .05895, .01592, .00211, .00017, + .00007, .00108, .00196, + .18340, .05621, .01490, .00198, .00017, + .00007, .00103, .00185 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17558, .05362, .01396, .00187, .00017, + .00007, .00097, .00174, + .16832, .05123, .01310, .00176, .00017, + .00007, .00092, .00163, + .16179, .04907, .01236, .00167, .00017, + .00007, .00087, .00154, + .15585, .04713, .01170, .00159, .00017, + .00007, .00083, .00146, + .15013, .04528, .01108, .00153, .00017, + .00007, .00080, .00140, + .14472, .04352, .01051, .00146, .00017, + .00007, .00076, .00133, + .13979, .04192, .01000, .00140, .00017, + .00007, .00072, .00128, + .13530, .04047, .00955, .00134, .00017, + .00007, .00069, .00122 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13095, .03906, .00911, .00128, .00017, + .00007, .00067, .00117, + .12678, .03772, .00871, .00123, .00017, + .00007, .00064, .00113, + .12294, .03649, .00834, .00119, .00017, + .00007, .00061, .00108, + .11941, .03537, .00801, .00115, .00017, + .00007, .00059, .00104, + .11594, .03427, .00769, .00111, .00017, + .00007, .00057, .00100 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48117, .15890, .07397, .00610, .00000, + .00000, .00314, .00615, + .45905, .15070, .06741, .00569, .00000, + .00000, .00295, .00572, + .42854, .13954, .05892, .00515, .00001, + .00000, .00266, .00517, + .40785, .13208, .05348, .00482, .00003, + .00000, .00249, .00480, + .38737, .12469, .04847, .00449, .00005, + .00000, .00233, .00444, + .37068, .11874, .04466, .00423, .00006, + .00000, .00217, .00416, + .35550, .11336, .04138, .00400, .00007, + .00000, .00206, .00391, + .34023, .10798, .03823, .00376, .00008, + .00000, .00196, .00366 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32754, .10357, .03574, .00357, .00009, + .00000, .00186, .00345, + .31582, .09949, .03355, .00340, .00009, + .00000, .00176, .00328, + .30691, .09638, .03194, .00326, .00009, + .00000, .00169, .00316, + .28890, .09016, .02877, .00300, .00010, + .00000, .00157, .00291, + .27431, .08518, .02630, .00280, .00010, + .00001, .00147, .00270, + .25898, .07999, .02384, .00261, .00010, + .00003, .00136, .00248, + .24412, .07498, .02160, .00241, .00010, + .00003, .00126, .00229, + .23149, .07074, .01981, .00223, .00010, + .00004, .00117, .00214 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .21951, .06674, .01818, .00208, .00010, + .00004, .00109, .00200, + .21010, .06363, .01696, .00197, .00010, + .00004, .00104, .00187, + .19928, .06010, .01562, .00184, .00010, + .00004, .00097, .00173, + .19025, .05716, .01454, .00174, .00010, + .00004, .00092, .00162, + .18241, .05460, .01363, .00164, .00010, + .00004, .00087, .00153, + .17294, .05155, .01259, .00153, .00010, + .00004, .00082, .00143, + .16457, .04885, .01169, .00144, .00010, + .00004, .00076, .00134, + .15716, .04646, .01092, .00135, .00010, + .00004, .00071, .00126 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15012, .04421, .01021, .00127, .00010, + .00004, .00069, .00117, + .14356, .04213, .00957, .00120, .00010, + .00004, .00065, .00110, + .13762, .04027, .00901, .00114, .00010, + .00004, .00061, .00104, + .13230, .03860, .00852, .00108, .00010, + .00004, .00058, .00100, + .12721, .03701, .00806, .00103, .00010, + .00004, .00055, .00095, + .12236, .03550, .00764, .00099, .00010, + .00004, .00052, .00090, + .11796, .03413, .00726, .00095, .00010, + .00004, .00050, .00086, + .11396, .03288, .00692, .00090, .00010, + .00004, .00048, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11011, .03168, .00659, .00085, .00010, + .00004, .00046, .00079, + .10641, .03055, .00629, .00082, .00010, + .00004, .00044, .00075, + .10300, .02951, .00602, .00079, .00010, + .00004, .00043, .00072, + .09988, .02856, .00577, .00076, .00010, + .00004, .00041, .00069, + .09682, .02762, .00554, .00074, .00010, + .00004, .00040, .00067 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43713, .13909, .05537, .00449, .00000, + .00000, .00228, .00437, + .41566, .13149, .05042, .00419, .00000, + .00000, .00213, .00405, + .38622, .12119, .04402, .00376, .00001, + .00000, .00193, .00365, + .36636, .11431, .03993, .00351, .00002, + .00000, .00181, .00335, + .34680, .10756, .03616, .00320, .00003, + .00000, .00167, .00312, + .33091, .10212, .03330, .00300, .00004, + .00000, .00158, .00292, + .31647, .09723, .03082, .00283, .00004, + .00000, .00150, .00273, + .30198, .09236, .02845, .00266, .00005, + .00000, .00141, .00253 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29003, .08835, .02658, .00251, .00005, + .00000, .00133, .00241, + .27902, .08468, .02493, .00237, .00005, + .00000, .00127, .00229, + .27067, .08190, .02371, .00228, .00005, + .00000, .00122, .00220, + .25379, .07632, .02134, .00208, .00005, + .00000, .00112, .00202, + .24020, .07187, .01948, .00194, .00005, + .00001, .00104, .00188, + .22600, .06726, .01763, .00179, .00005, + .00001, .00097, .00172, + .21226, .06282, .01595, .00164, .00005, + .00001, .00090, .00158, + .20064, .05909, .01460, .00151, .00005, + .00001, .00083, .00146 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .18966, .05559, .01338, .00140, .00005, + .00001, .00077, .00135, + .18105, .05287, .01246, .00133, .00005, + .00001, .00073, .00126, + .17120, .04976, .01146, .00123, .00005, + .00001, .00069, .00118, + .16301, .04719, .01065, .00116, .00005, + .00001, .00064, .00112, + .15590, .04497, .00997, .00110, .00005, + .00001, .00061, .00105, + .14739, .04233, .00919, .00101, .00005, + .00001, .00057, .00098, + .13985, .04001, .00852, .00095, .00005, + .00001, .00053, .00091, + .13317, .03798, .00795, .00090, .00005, + .00001, .00050, .00084 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12689, .03604, .00742, .00084, .00005, + .00001, .00047, .00080, + .12106, .03425, .00694, .00078, .00005, + .00001, .00045, .00076, + .11580, .03266, .00653, .00074, .00005, + .00001, .00042, .00071, + .11107, .03123, .00616, .00070, .00005, + .00001, .00040, .00068, + .10655, .02987, .00582, .00066, .00005, + .00001, .00038, .00064, + .10229, .02860, .00550, .00063, .00005, + .00001, .00036, .00061, + .09842, .02745, .00522, .00060, .00005, + .00001, .00035, .00058, + .09492, .02641, .00497, .00057, .00005, + .00001, .00033, .00055 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09154, .02540, .00473, .00053, .00005, + .00001, .00032, .00052, + .08830, .02444, .00451, .00052, .00005, + .00001, .00030, .00050, + .08532, .02357, .00431, .00051, .00005, + .00001, .00029, .00048, + .08260, .02277, .00413, .00050, .00005, + .00001, .00028, .00046, + .07994, .02199, .00395, .00048, .00005, + .00001, .00027, .00043 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39287, .12055, .04135, .00339, .00000, + .00000, .00157, .00300, + .37235, .11363, .03763, .00317, .00000, + .00000, .00146, .00274, + .34445, .10423, .03284, .00279, .00000, + .00000, .00132, .00248, + .32564, .09802, .02978, .00263, .00001, + .00000, .00122, .00226, + .30721, .09193, .02696, .00239, .00002, + .00000, .00112, .00209, + .29228, .08705, .02481, .00222, .00002, + .00000, .00104, .00197, + .27878, .08267, .02295, .00208, .00002, + .00000, .00098, .00184, + .26529, .07831, .02117, .00194, .00002, + .00000, .00093, .00171 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25417, .07474, .01977, .00184, .00002, + .00000, .00087, .00161, + .24395, .07148, .01853, .00176, .00002, + .00000, .00082, .00152, + .23622, .06902, .01761, .00170, .00002, + .00000, .00080, .00144, + .22068, .06407, .01582, .00155, .00002, + .00000, .00073, .00131, + .20821, .06017, .01443, .00146, .00002, + .00000, .00067, .00121, + .19523, .05612, .01304, .00133, .00002, + .00000, .00062, .00110, + .18272, .05225, .01178, .00121, .00002, + .00000, .00057, .00101, + .17217, .04899, .01076, .00112, .00002, + .00000, .00052, .00094 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16223, .04594, .00985, .00104, .00002, + .00000, .00048, .00087, + .15449, .04359, .00916, .00098, .00002, + .00000, .00046, .00081, + .14565, .04092, .00841, .00091, .00002, + .00000, .00043, .00075, + .13832, .03871, .00780, .00086, .00002, + .00000, .00040, .00070, + .13198, .03681, .00729, .00081, .00002, + .00000, .00037, .00067, + .12442, .03454, .00671, .00074, .00002, + .00000, .00034, .00061, + .11773, .03255, .00621, .00069, .00002, + .00000, .00032, .00056, + .11182, .03082, .00578, .00066, .00002, + .00000, .00030, .00053 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10629, .02918, .00539, .00060, .00002, + .00000, .00029, .00049, + .10116, .02768, .00504, .00056, .00002, + .00000, .00027, .00046, + .09654, .02634, .00472, .00054, .00002, + .00000, .00025, .00044, + .09241, .02514, .00445, .00052, .00002, + .00000, .00024, .00041, + .08847, .02399, .00420, .00049, .00002, + .00000, .00023, .00038, + .08475, .02292, .00397, .00047, .00002, + .00000, .00022, .00036, + .08139, .02196, .00376, .00044, .00002, + .00000, .00021, .00035, + .07835, .02108, .00357, .00042, .00002, + .00000, .00020, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07542, .02024, .00340, .00040, .00002, + .00000, .00019, .00031, + .07262, .01944, .00323, .00038, .00002, + .00000, .00018, .00030, + .07006, .01872, .00309, .00037, .00002, + .00000, .00017, .00028, + .06773, .01806, .00295, .00036, .00002, + .00000, .00016, .00027, + .06545, .01741, .00282, .00034, .00002, + .00000, .00015, .00026 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34904, .10294, .03052, .00230, .00000, + .00000, .00115, .00209, + .32974, .09671, .02777, .00212, .00000, + .00000, .00106, .00192, + .30347, .08832, .02424, .00191, .00000, + .00000, .00095, .00170, + .28590, .08278, .02196, .00178, .00000, + .00000, .00087, .00157, + .26880, .07739, .01986, .00162, .00000, + .00000, .00079, .00143, + .25500, .07306, .01827, .00151, .00000, + .00000, .00074, .00133, + .24256, .06919, .01689, .00142, .00000, + .00000, .00070, .00124, + .23013, .06536, .01557, .00133, .00000, + .00000, .00065, .00115 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21994, .06223, .01452, .00126, .00000, + .00000, .00062, .00108, + .21060, .05938, .01359, .00119, .00000, + .00000, .00058, .00102, + .20355, .05724, .01291, .00114, .00000, + .00000, .00055, .00098, + .18944, .05296, .01158, .00103, .00000, + .00000, .00050, .00088, + .17817, .04957, .01054, .00094, .00000, + .00000, .00046, .00081, + .16646, .04606, .00951, .00087, .00000, + .00000, .00043, .00073, + .15521, .04273, .00857, .00080, .00000, + .00000, .00039, .00067, + .14578, .03995, .00781, .00074, .00000, + .00000, .00036, .00062 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13695, .03734, .00714, .00068, .00000, + .00000, .00033, .00058, + .13007, .03534, .00663, .00064, .00000, + .00000, .00031, .00053, + .12225, .03306, .00607, .00059, .00000, + .00000, .00028, .00050, + .11578, .03119, .00562, .00055, .00000, + .00000, .00026, .00047, + .11020, .02959, .00525, .00052, .00000, + .00000, .00024, .00043, + .10357, .02768, .00481, .00047, .00000, + .00000, .00023, .00040, + .09773, .02602, .00445, .00043, .00000, + .00000, .00021, .00038, + .09259, .02457, .00413, .00041, .00000, + .00000, .00020, .00034 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08774, .02320, .00384, .00039, .00000, + .00000, .00018, .00032, + .08329, .02195, .00358, .00037, .00000, + .00000, .00017, .00030, + .07931, .02084, .00336, .00035, .00000, + .00000, .00016, .00028, + .07575, .01984, .00316, .00033, .00000, + .00000, .00015, .00027, + .07235, .01890, .00298, .00031, .00000, + .00000, .00014, .00026, + .06917, .01802, .00280, .00030, .00000, + .00000, .00013, .00024, + .06631, .01723, .00265, .00028, .00000, + .00000, .00013, .00022, + .06369, .01651, .00252, .00027, .00000, + .00000, .00012, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06118, .01582, .00239, .00027, .00000, + .00000, .00012, .00020, + .05880, .01517, .00227, .00026, .00000, + .00000, .00011, .00019, + .05663, .01458, .00216, .00024, .00000, + .00000, .00011, .00018, + .05466, .01404, .00207, .00023, .00000, + .00000, .00010, .00017, + .05275, .01352, .00198, .00022, .00000, + .00000, .00009, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30631, .08683, .02239, .00157, .00000, + .00000, .00081, .00140, + .28840, .08130, .02037, .00144, .00000, + .00000, .00074, .00130, + .26418, .07390, .01775, .00126, .00000, + .00000, .00065, .00116, + .24807, .06903, .01606, .00115, .00000, + .00000, .00060, .00107, + .23233, .06431, .01452, .00108, .00000, + .00000, .00057, .00094, + .21972, .06053, .01333, .00101, .00000, + .00000, .00052, .00088, + .20841, .05716, .01231, .00094, .00000, + .00000, .00048, .00082, + .19717, .05384, .01133, .00087, .00000, + .00000, .00044, .00077 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18797, .05114, .01055, .00082, .00000, + .00000, .00042, .00071, + .17957, .04868, .00987, .00077, .00000, + .00000, .00040, .00067, + .17324, .04684, .00936, .00074, .00000, + .00000, .00038, .00063, + .16057, .04316, .00838, .00067, .00000, + .00000, .00035, .00058, + .15053, .04026, .00761, .00060, .00000, + .00000, .00033, .00054, + .14012, .03728, .00685, .00055, .00000, + .00000, .00029, .00049, + .13017, .03446, .00616, .00051, .00000, + .00000, .00026, .00044, + .12186, .03211, .00561, .00046, .00000, + .00000, .00024, .00040 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11409, .02992, .00511, .00042, .00000, + .00000, .00022, .00037, + .10807, .02824, .00474, .00039, .00000, + .00000, .00020, .00035, + .10123, .02634, .00433, .00037, .00000, + .00000, .00019, .00032, + .09561, .02478, .00400, .00035, .00000, + .00000, .00018, .00030, + .09079, .02344, .00373, .00031, .00000, + .00000, .00017, .00029, + .08501, .02187, .00341, .00031, .00000, + .00000, .00016, .00025, + .07998, .02050, .00314, .00028, .00000, + .00000, .00014, .00023, + .07560, .01930, .00292, .00025, .00000, + .00000, .00013, .00022 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07145, .01818, .00271, .00024, .00000, + .00000, .00013, .00020, + .06765, .01716, .00252, .00023, .00000, + .00000, .00012, .00019, + .06427, .01625, .00236, .00021, .00000, + .00000, .00011, .00018, + .06124, .01544, .00221, .00020, .00000, + .00000, .00010, .00017, + .05836, .01467, .00208, .00019, .00000, + .00000, .00009, .00016, + .05567, .01396, .00196, .00018, .00000, + .00000, .00009, .00015, + .05326, .01331, .00185, .00017, .00000, + .00000, .00009, .00014, + .05106, .01274, .00175, .00017, .00000, + .00000, .00008, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04896, .01218, .00166, .00016, .00000, + .00000, .00008, .00012, + .04697, .01166, .00157, .00015, .00000, + .00000, .00007, .00011, + .04517, .01119, .00150, .00014, .00000, + .00000, .00007, .00011, + .04353, .01076, .00143, .00013, .00000, + .00000, .00007, .00011, + .04191, .01034, .00136, .00013, .00000, + .00000, .00007, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26559, .07237, .01633, .00109, .00000, + .00000, .00051, .00092, + .24916, .06754, .01484, .00100, .00000, + .00000, .00046, .00085, + .22710, .06110, .01291, .00091, .00000, + .00000, .00040, .00072, + .21250, .05688, .01167, .00083, .00000, + .00000, .00037, .00065, + .19838, .05280, .01054, .00073, .00000, + .00000, .00033, .00059, + .18702, .04956, .00967, .00068, .00000, + .00000, .00031, .00055, + .17689, .04668, .00891, .00064, .00000, + .00000, .00029, .00051, + .16686, .04384, .00819, .00060, .00000, + .00000, .00027, .00046 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15865, .04153, .00762, .00057, .00000, + .00000, .00025, .00045, + .15120, .03943, .00712, .00053, .00000, + .00000, .00024, .00042, + .14560, .03785, .00675, .00050, .00000, + .00000, .00023, .00039, + .13442, .03476, .00602, .00045, .00000, + .00000, .00020, .00036, + .12557, .03233, .00546, .00043, .00000, + .00000, .00019, .00032, + .11646, .02983, .00490, .00039, .00000, + .00000, .00017, .00030, + .10781, .02746, .00440, .00034, .00000, + .00000, .00015, .00027, + .10060, .02550, .00399, .00031, .00000, + .00000, .00014, .00025 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09387, .02368, .00363, .00029, .00000, + .00000, .00013, .00023, + .08866, .02229, .00336, .00027, .00000, + .00000, .00012, .00021, + .08279, .02073, .00306, .00026, .00000, + .00000, .00011, .00018, + .07797, .01945, .00282, .00024, .00000, + .00000, .00010, .00017, + .07385, .01836, .00263, .00022, .00000, + .00000, .00009, .00016, + .06894, .01707, .00240, .00021, .00000, + .00000, .00009, .00015, + .06467, .01595, .00221, .00019, .00000, + .00000, .00008, .00014, + .06096, .01498, .00204, .00017, .00000, + .00000, .00008, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05747, .01407, .00189, .00016, .00000, + .00000, .00007, .00012, + .05427, .01325, .00175, .00015, .00000, + .00000, .00006, .00011, + .05144, .01252, .00164, .00014, .00000, + .00000, .00006, .00010, + .04890, .01187, .00153, .00013, .00000, + .00000, .00006, .00010, + .04649, .01126, .00144, .00013, .00000, + .00000, .00005, .00009, + .04426, .01068, .00135, .00012, .00000, + .00000, .00005, .00009, + .04227, .01017, .00128, .00010, .00000, + .00000, .00005, .00009, + .04044, .00971, .00121, .00011, .00000, + .00000, .00005, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03868, .00927, .00114, .00011, .00000, + .00000, .00004, .00008, + .03704, .00886, .00108, .00011, .00000, + .00000, .00004, .00007, + .03555, .00848, .00103, .00010, .00000, + .00000, .00004, .00007, + .03420, .00814, .00098, .00010, .00000, + .00000, .00004, .00006, + .03288, .00781, .00093, .00009, .00000, + .00000, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22680, .05922, .01171, .00066, .00000, + .00000, .00036, .00062, + .21206, .05508, .01063, .00059, .00000, + .00000, .00033, .00055, + .19225, .04959, .00923, .00055, .00000, + .00000, .00029, .00047, + .17924, .04599, .00834, .00051, .00000, + .00000, .00026, .00044, + .16671, .04251, .00751, .00044, .00000, + .00000, .00024, .00040, + .15669, .03979, .00688, .00041, .00000, + .00000, .00022, .00037, + .14775, .03737, .00633, .00038, .00000, + .00000, .00021, .00034, + .13893, .03499, .00581, .00035, .00000, + .00000, .00020, .00030 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13175, .03307, .00540, .00034, .00000, + .00000, .00017, .00029, + .12524, .03132, .00503, .00032, .00000, + .00000, .00016, .00027, + .12036, .03002, .00476, .00030, .00000, + .00000, .00016, .00025, + .11067, .02744, .00424, .00026, .00000, + .00000, .00014, .00023, + .10304, .02542, .00384, .00024, .00000, + .00000, .00014, .00021, + .09521, .02337, .00343, .00021, .00000, + .00000, .00012, .00020, + .08777, .02143, .00307, .00019, .00000, + .00000, .00010, .00018, + .08160, .01983, .00278, .00018, .00000, + .00000, .00010, .00015 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07587, .01836, .00252, .00017, .00000, + .00000, .00009, .00014, + .07146, .01723, .00233, .00016, .00000, + .00000, .00008, .00013, + .06650, .01597, .00212, .00014, .00000, + .00000, .00007, .00013, + .06245, .01494, .00195, .00013, .00000, + .00000, .00007, .00012, + .05898, .01407, .00181, .00012, .00000, + .00000, .00006, .00011, + .05488, .01304, .00165, .00012, .00000, + .00000, .00006, .00009, + .05132, .01214, .00151, .00011, .00000, + .00000, .00005, .00008, + .04823, .01137, .00139, .00010, .00000, + .00000, .00005, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04534, .01066, .00129, .00009, .00000, + .00000, .00004, .00008, + .04270, .01000, .00119, .00008, .00000, + .00000, .00004, .00007, + .04036, .00943, .00111, .00008, .00000, + .00000, .00004, .00006, + .03829, .00891, .00104, .00007, .00000, + .00000, .00004, .00006, + .03634, .00843, .00097, .00006, .00000, + .00000, .00004, .00006, + .03451, .00798, .00091, .00006, .00000, + .00000, .00004, .00006, + .03286, .00758, .00086, .00006, .00000, + .00000, .00003, .00006, + .03138, .00723, .00081, .00006, .00000, + .00000, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .02997, .00689, .00077, .00005, .00000, + .00000, .00003, .00005, + .02864, .00657, .00072, .00005, .00000, + .00000, .00003, .00004, + .02743, .00627, .00069, .00005, .00000, + .00000, .00002, .00004, + .02634, .00601, .00065, .00005, .00000, + .00000, .00002, .00004, + .02528, .00576, .00062, .00004, .00000, + .00000, .00002, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15788, .03780, .00578, .00028, .00000, + .00000, .00012, .00021, + .14652, .03489, .00523, .00025, .00000, + .00000, .00011, .00020, + .13147, .03107, .00452, .00021, .00000, + .00000, .00010, .00018, + .12164, .02860, .00406, .00019, .00000, + .00000, .00009, .00016, + .11225, .02624, .00364, .00016, .00000, + .00000, .00009, .00014, + .10479, .02439, .00332, .00016, .00000, + .00000, .00008, .00013, + .09820, .02276, .00305, .00015, .00000, + .00000, .00007, .00012, + .09174, .02117, .00279, .00012, .00000, + .00000, .00006, .00012 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08651, .01990, .00258, .00012, .00000, + .00000, .00006, .00011, + .08180, .01875, .00240, .00012, .00000, + .00000, .00006, .00010, + .07829, .01790, .00226, .00011, .00000, + .00000, .00005, .00009, + .07136, .01622, .00200, .00010, .00000, + .00000, .00004, .00008, + .06595, .01492, .00180, .00008, .00000, + .00000, .00004, .00007, + .06044, .01361, .00160, .00007, .00000, + .00000, .00004, .00007, + .05526, .01238, .00143, .00007, .00000, + .00000, .00003, .00006, + .05100, .01137, .00128, .00006, .00000, + .00000, .00003, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04708, .01045, .00116, .00006, .00000, + .00000, .00003, .00005, + .04410, .00975, .00106, .00005, .00000, + .00000, .00003, .00004, + .04074, .00897, .00096, .00006, .00000, + .00000, .00002, .00004, + .03801, .00834, .00088, .00005, .00000, + .00000, .00002, .00004, + .03571, .00781, .00081, .00005, .00000, + .00000, .00002, .00003, + .03301, .00719, .00074, .00003, .00000, + .00000, .00002, .00003, + .03067, .00665, .00067, .00003, .00000, + .00000, .00002, .00003, + .02865, .00620, .00062, .00003, .00000, + .00000, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02677, .00577, .00057, .00003, .00000, + .00000, .00002, .00002, + .02507, .00538, .00052, .00003, .00000, + .00000, .00002, .00002, + .02357, .00505, .00049, .00003, .00000, + .00000, .00001, .00002, + .02225, .00475, .00045, .00002, .00000, + .00000, .00001, .00002, + .02101, .00447, .00042, .00002, .00000, + .00000, .00001, .00002, + .01985, .00421, .00039, .00002, .00000, + .00000, .00001, .00002, + .01881, .00398, .00037, .00002, .00000, + .00000, .00001, .00002, + .01789, .00378, .00035, .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)/ + .01702, .00359, .00033, .00001, .00000, + .00000, .00001, .00001, + .01620, .00341, .00031, .00001, .00000, + .00000, .00001, .00001, + .01545, .00324, .00029, .00001, .00000, + .00000, .00001, .00001, + .01478, .00310, .00028, .00001, .00000, + .00000, .00001, .00001, + .01413, .00295, .00026, .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)/ + .10169, .02209, .00259, .00009, .00000, + .00000, .00003, .00007, + .09360, .02023, .00234, .00009, .00000, + .00000, .00003, .00007, + .08302, .01781, .00201, .00006, .00000, + .00000, .00003, .00005, + .07619, .01626, .00180, .00006, .00000, + .00000, .00002, .00005, + .06968, .01480, .00161, .00006, .00000, + .00000, .00003, .00004, + .06460, .01366, .00146, .00005, .00000, + .00000, .00002, .00004, + .06012, .01266, .00134, .00005, .00000, + .00000, .00002, .00003, + .05575, .01170, .00121, .00006, .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)/ + .05228, .01092, .00112, .00005, .00000, + .00000, .00001, .00002, + .04916, .01024, .00104, .00004, .00000, + .00000, .00001, .00002, + .04684, .00973, .00098, .00003, .00000, + .00000, .00002, .00003, + .04228, .00874, .00086, .00004, .00000, + .00000, .00001, .00002, + .03876, .00797, .00077, .00003, .00000, + .00000, .00001, .00002, + .03522, .00721, .00068, .00002, .00000, + .00000, .00001, .00002, + .03192, .00650, .00060, .00002, .00000, + .00000, .00001, .00002, + .02922, .00592, .00054, .00002, .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=17,24)/ + .02677, .00540, .00048, .00001, .00000, + .00000, .00001, .00001, + .02490, .00501, .00044, .00002, .00000, + .00000, .00001, .00001, + .02283, .00457, .00040, .00001, .00000, + .00000, .00001, .00001, + .02117, .00422, .00036, .00001, .00000, + .00000, .00001, .00001, + .01976, .00393, .00033, .00001, .00000, + .00000, .00001, .00001, + .01812, .00359, .00030, .00001, .00000, + .00000, .00000, .00001, + .01672, .00330, .00027, .00001, .00000, + .00000, .00000, .00001, + .01552, .00305, .00025, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01441, .00282, .00023, .00001, .00000, + .00000, .00000, .00001, + .01341, .00262, .00021, .00001, .00000, + .00000, .00000, .00000, + .01253, .00244, .00019, .00001, .00000, + .00000, .00000, .00001, + .01177, .00228, .00018, .00001, .00000, + .00000, .00000, .00000, + .01105, .00214, .00016, .00001, .00000, + .00000, .00000, .00000, + .01039, .00201, .00015, .00001, .00000, + .00000, .00000, .00000, + .00980, .00189, .00014, .00001, .00000, + .00000, .00000, .00000, + .00927, .00178, .00013, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00878, .00168, .00013, .00001, .00000, + .00000, .00000, .00000, + .00832, .00159, .00012, .00001, .00000, + .00000, .00000, .00000, + .00790, .00151, .00011, .00000, .00000, + .00000, .00000, .00000, + .00753, .00143, .00010, .00000, .00000, + .00000, .00000, .00000, + .00717, .00136, .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=1,8)/ + .05908, .01151, .00100, .00004, .00000, + .00000, .00000, .00001, + .05389, .01045, .00091, .00003, .00000, + .00000, .00000, .00001, + .04717, .00907, .00078, .00003, .00000, + .00000, .00000, .00001, + .04290, .00821, .00069, .00002, .00000, + .00000, .00000, .00001, + .03886, .00740, .00062, .00002, .00000, + .00000, .00000, .00001, + .03574, .00678, .00056, .00002, .00000, + .00000, .00000, .00001, + .03302, .00624, .00051, .00001, .00000, + .00000, .00000, .00001, + .03039, .00572, .00046, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02829, .00530, .00043, .00001, .00000, + .00000, .00000, .00001, + .02642, .00494, .00039, .00001, .00000, + .00000, .00000, .00000, + .02505, .00467, .00037, .00001, .00000, + .00000, .00000, .00000, + .02238, .00415, .00032, .00001, .00000, + .00000, .00000, .00000, + .02033, .00375, .00029, .00001, .00000, + .00000, .00000, .00000, + .01829, .00336, .00025, .00001, .00000, + .00000, .00000, .00000, + .01641, .00300, .00022, .00001, .00000, + .00000, .00000, .00000, + .01489, .00271, .00020, .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, .00017, .00001, .00000, + .00000, .00000, .00000, + .01248, .00225, .00016, .00001, .00000, + .00000, .00000, .00000, + .01135, .00204, .00014, .00000, .00000, + .00000, .00000, .00000, + .01044, .00187, .00013, .00000, .00000, + .00000, .00000, .00000, + .00968, .00173, .00012, .00001, .00000, + .00000, .00000, .00000, + .00880, .00157, .00010, .00001, .00000, + .00000, .00000, .00000, + .00806, .00143, .00009, .00000, .00000, + .00000, .00000, .00000, + .00743, .00131, .00009, .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)/ + .00684, .00121, .00008, .00000, .00000, + .00000, .00000, .00000, + .00633, .00111, .00007, .00000, .00000, + .00000, .00000, .00000, + .00587, .00103, .00007, .00000, .00000, + .00000, .00000, .00000, + .00548, .00096, .00006, .00000, .00000, + .00000, .00000, .00000, + .00511, .00089, .00006, .00000, .00000, + .00000, .00000, .00000, + .00478, .00083, .00005, .00000, .00000, + .00000, .00000, .00000, + .00448, .00078, .00005, .00000, .00000, + .00000, .00000, .00000, + .00422, .00073, .00004, .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)/ + .00397, .00069, .00004, .00000, .00000, + .00000, .00000, .00000, + .00375, .00064, .00004, .00000, .00000, + .00000, .00000, .00000, + .00354, .00061, .00004, .00000, .00000, + .00000, .00000, .00000, + .00336, .00058, .00003, .00000, .00000, + .00000, .00000, .00000, + .00318, .00054, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02957, .00505, .00031, .00000, .00000, + .00000, .00000, .00000, + .02669, .00454, .00028, .00000, .00000, + .00000, .00001, .00000, + .02301, .00389, .00024, .00000, .00000, + .00000, .00000, .00001, + .02070, .00348, .00022, .00000, .00000, + .00000, .00000, .00000, + .01855, .00310, .00019, .00000, .00000, + .00000, .00000, .00000, + .01690, .00281, .00018, .00000, .00000, + .00000, .00000, .00000, + .01548, .00257, .00016, .00000, .00000, + .00000, .00000, .00000, + .01411, .00233, .00014, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .01303, .00215, .00013, .00000, .00000, + .00000, .00000, .00000, + .01208, .00198, .00012, .00000, .00000, + .00000, .00000, .00000, + .01139, .00186, .00011, .00000, .00000, + .00000, .00000, .00000, + .01005, .00164, .00010, .00000, .00000, + .00000, .00000, .00000, + .00903, .00147, .00009, .00000, .00000, + .00000, .00000, .00000, + .00803, .00130, .00008, .00000, .00000, + .00000, .00000, .00000, + .00712, .00114, .00007, .00000, .00000, + .00000, .00000, .00000, + .00640, .00102, .00006, .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)/ + .00575, .00092, .00005, .00000, .00000, + .00000, .00000, .00000, + .00526, .00084, .00005, .00000, .00000, + .00000, .00000, .00000, + .00474, .00075, .00004, .00000, .00000, + .00000, .00000, .00000, + .00432, .00068, .00004, .00000, .00000, + .00000, .00000, .00000, + .00397, .00062, .00003, .00000, .00000, + .00000, .00000, .00000, + .00358, .00056, .00003, .00000, .00000, + .00000, .00000, .00000, + .00324, .00051, .00003, .00000, .00000, + .00000, .00000, .00000, + .00296, .00046, .00002, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00271, .00042, .00002, .00000, .00000, + .00000, .00000, .00000, + .00248, .00038, .00002, .00000, .00000, + .00000, .00000, .00000, + .00229, .00035, .00002, .00000, .00000, + .00000, .00000, .00000, + .00212, .00033, .00002, .00000, .00000, + .00000, .00000, .00000, + .00196, .00030, .00002, .00000, .00000, + .00000, .00000, .00000, + .00182, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00170, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00159, .00024, .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)/ + .00149, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00139, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00131, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00123, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00116, .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)/ + .00313, .00037, .00001, .00000, .00000, + .00000, .00000, .00000, + .00274, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00226, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00197, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00171, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00152, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00135, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00120, .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)/ + .00108, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00098, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00091, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00078, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00068, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00058, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00050, .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)/ + .00038, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00030, .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)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / 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='ft11a.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