#include "pdf/pilot.h" SUBROUTINE SFMSR2(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) #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)/ + .00125, .00705, .95079, .46974, .00369, + .00000, .26718, .47247, + .00142, .00716, 2.14763, .54233, .00875, + .00000, .33163, .54546, + .00169, .00731, 4.57296, .68101, .02220, + .00000, .45455, .68470, + .00188, .00743, 6.93782, .80501, .03889, + .00000, .56470, .80910, + .00208, .00755, 9.99880, .95637, .06613, + .00000, .69982, .96086, + .00226, .00765, 13.16388, 1.10405, .10105, + .00000, .83263, 1.10888, + .00243, .00775, 16.70415, 1.26066, .14838, + .00000, .97479, 1.26581, + .00261, .00785, 20.94773, 1.44183, .21831, + .00000, 1.14126, 1.44730 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00276, .00794, 25.12284, 1.61086, .30020, + .00000, 1.29885, 1.61661, + .00292, .00803, 29.65736, 1.78415, .40243, + .00000, 1.46295, 1.79016, + .00304, .00810, 33.51854, 1.92665, .50192, + .00000, 1.60005, 1.93287, + .00330, .00825, 42.81261, 2.24710, .77801, + .00000, 1.91570, 2.25375, + .00353, .00838, 51.92537, 2.53905, 1.09174, + .08999, 2.21204, 2.54605, + .00378, .00853, 63.38321, 2.88537, 1.52589, + .41407, 2.57229, 2.89276, + .00405, .00868, 76.77367, 3.27568, 2.06127, + .88212, 2.98472, 3.28347, + .00430, .00882, 90.27887, 3.66532, 2.60704, + 1.33212, 3.39790, 3.67345 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00455, .00896, 105.25424, 4.10058, 3.20168, + 1.83209, 3.85713, 4.10905, + .00476, .00908, 118.72684, 4.49842, 3.72133, + 2.27950, 4.27335, 4.50716, + .00502, .00923, 136.23756, 5.02671, 4.37627, + 2.86165, 4.82088, 5.03578, + .00525, .00936, 152.93202, 5.54004, 4.97949, + 3.41592, 5.34804, 5.54939, + .00546, .00948, 169.34200, 6.05143, 5.55554, + 3.95946, 5.86956, 6.06102, + .00574, .00963, 191.32417, 6.74912, 6.31416, + 4.69155, 6.57705, 6.75903, + .00600, .00978, 213.35898, 7.45827, 7.06313, + 5.42769, 7.29290, 7.46846, + .00624, .00992, 235.33051, 8.17194, 7.80258, + 6.16303, 8.01117, 8.18239 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00649, .01006, 258.47083, 8.93081, 8.57918, + 6.94097, 8.77348, 8.94151, + .00673, .01020, 282.09943, 9.71395, 9.37422, + 7.74098, 9.55917, 9.72488, + .00697, .01033, 305.71927, 10.50036, 10.16848, + 8.54213, 10.34751, 10.51152, + .00719, .01045, 328.66223, 11.27234, 10.94581, + 9.32724, 11.12098, 11.28370, + .00741, .01058, 352.77954, 12.08749, 11.76498, + 10.15499, 11.93743, 12.09905, + .00764, .01070, 377.25537, 12.92173, 12.60230, + 11.00122, 12.77281, 12.93348, + .00785, .01082, 401.38583, 13.74898, 13.43195, + 11.83957, 13.60106, 13.76092, + .00805, .01094, 424.83652, 14.55918, 14.24410, + 12.66004, 14.41214, 14.57128 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .00826, .01105, 449.32571, 15.40913, 15.09581, + 13.52016, 15.26294, 15.42139, + .00847, .01117, 473.94208, 16.27154, 15.95983, + 14.39247, 16.12617, 16.28396, + .00867, .01128, 498.39615, 17.13007, 16.81981, + 15.26030, 16.98546, 17.14265, + .00885, .01138, 521.68097, 17.95758, 17.64863, + 16.09654, 17.81366, 17.97029, + .00905, .01149, 546.13434, 18.82824, 18.52058, + 16.97592, 18.68502, 18.84108 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00256, .00863, .95452, .42831, .00336, + .00000, .24242, .43084, + .00281, .00878, 2.05475, .49309, .00788, + .00000, .29981, .49588, + .00318, .00901, 4.20982, .61417, .01968, + .00000, .40699, .61734, + .00345, .00917, 6.25730, .72060, .03414, + .00000, .50147, .72403, + .00373, .00933, 8.85593, .84873, .05749, + .00000, .61583, .85243, + .00398, .00948, 11.49813, .97224, .08716, + .00000, .72693, .97617, + .00421, .00961, 14.41224, 1.10184, .12706, + .00000, .84464, 1.10598, + .00446, .00976, 17.85801, 1.25013, .18553, + .00000, .98106, 1.25449 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00468, .00989, 21.20776, 1.38713, .25351, + .00000, 1.10900, 1.39167, + .00490, .01001, 24.80883, 1.52637, .33781, + .00000, 1.24116, 1.53109, + .00507, .01011, 27.84710, 1.63994, .41938, + .00000, 1.35075, 1.64480, + .00543, .01031, 35.07557, 1.89268, .64387, + .00000, 1.60068, 1.89783, + .00575, .01049, 42.06365, 2.11998, .89634, + .07078, 1.83260, 2.12536, + .00610, .01070, 50.73584, 2.38651, 1.24207, + .32396, 2.11155, 2.39216, + .00647, .01090, 60.73619, 2.68368, 1.66341, + .68658, 2.42757, 2.68958, + .00681, .01110, 70.69849, 2.97774, 2.08788, + 1.03150, 2.74124, 2.98388 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00716, .01129, 81.62113, 3.30387, 2.54501, + 1.41133, 3.08705, 3.31024, + .00745, .01145, 91.34998, 3.60015, 2.94026, + 1.74846, 3.39824, 3.60670, + .00780, .01165, 103.86962, 3.99115, 3.43317, + 2.18360, 3.80472, 3.99793, + .00812, .01183, 115.69137, 4.36874, 3.88244, + 2.59465, 4.19334, 4.37570, + .00841, .01199, 127.21683, 4.74281, 4.30772, + 2.99497, 4.57544, 4.74995, + .00878, .01219, 142.51237, 5.24984, 4.86265, + 3.53012, 5.09019, 5.25719, + .00914, .01239, 157.70033, 5.76163, 5.40554, + 4.06405, 5.60723, 5.76917, + .00947, .01257, 172.71829, 6.27337, 5.93732, + 4.59366, 6.12256, 6.28108 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .00981, .01276, 188.40701, 6.81408, 6.49177, + 5.15019, 6.66596, 6.82197, + .01014, .01294, 204.29691, 7.36855, 7.05545, + 5.71871, 7.22244, 7.37660, + .01046, .01311, 220.07115, 7.92219, 7.61517, + 6.28469, 7.77758, 7.93039, + .01076, .01328, 235.28136, 8.46253, 8.15967, + 6.83606, 8.31911, 8.47088, + .01106, .01344, 251.17184, 9.03018, 8.73047, + 7.41432, 8.88779, 9.03867, + .01137, .01361, 267.19235, 9.60806, 9.31079, + 8.00232, 9.46659, 9.61668, + .01165, .01377, 282.89365, 10.17831, 9.88295, + 8.58193, 10.03763, 10.18705, + .01193, .01392, 298.06366, 10.73418, 10.44039, + 9.14647, 10.59421, 10.74304 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01221, .01407, 313.82397, 11.31481, 11.02245, + 9.73571, 11.17553, 11.32378, + .01249, .01422, 329.57388, 11.90121, 11.61016, + 10.33048, 11.76259, 11.91030, + .01275, .01436, 345.15158, 12.48276, 12.19290, + 10.91989, 12.34476, 12.49195, + .01301, .01450, 359.89584, 13.04074, 12.75196, + 11.48525, 12.90330, 13.05002, + .01327, .01464, 375.32080, 13.62583, 13.33812, + 12.07771, 13.48897, 13.63522 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00452, .01057, .95880, .39023, .00306, + .00000, .21994, .39265, + .00487, .01079, 1.96652, .44798, .00709, + .00000, .27098, .45056, + .00540, .01110, 3.87597, .55351, .01743, + .00000, .36429, .55633, + .00578, .01132, 5.64359, .64463, .02994, + .00000, .44513, .64762, + .00619, .01155, 7.84315, .75278, .04993, + .00000, .54164, .75594, + .00653, .01175, 10.04190, .85573, .07509, + .00000, .63427, .85903, + .00686, .01194, 12.43269, .96260, .10865, + .00000, .73140, .96603, + .00722, .01214, 15.22083, 1.08350, .15743, + .00000, .84276, 1.08707 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .00752, .01232, 17.89850, 1.19408, .21374, + .00000, .94622, 1.19776, + .00782, .01249, 20.74739, 1.30547, .28311, + .00000, 1.05221, 1.30926, + .00806, .01262, 23.12864, 1.39557, .34983, + .00000, 1.13944, 1.39945, + .00857, .01290, 28.72740, 1.59392, .53192, + .00000, 1.33644, 1.59799, + .00901, .01315, 34.06276, 1.76994, .73461, + .05547, 1.51708, 1.77416, + .00950, .01342, 40.59650, 1.97390, 1.00924, + .25253, 1.73201, 1.97828, + .01001, .01371, 48.02902, 2.19882, 1.33995, + .53245, 1.97292, 2.20337, + .01048, .01396, 55.34068, 2.41945, 1.66913, + .79584, 2.20983, 2.42415 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01096, .01423, 63.26545, 2.66241, 2.01948, + 1.08327, 2.46889, 2.66725, + .01136, .01444, 70.25235, 2.88180, 2.31910, + 1.33630, 2.70036, 2.88676, + .01185, .01471, 79.15251, 3.16960, 2.68871, + 1.66025, 3.00057, 3.17470, + .01228, .01495, 87.47433, 3.44584, 3.02199, + 1.96381, 3.28558, 3.45106, + .01268, .01516, 95.52023, 3.71801, 3.33462, + 2.25742, 3.56409, 3.72334, + .01319, .01544, 106.09579, 4.08449, 3.73870, + 2.64692, 3.93664, 4.08996, + .01368, .01570, 116.49593, 4.45185, 4.13032, + 3.03246, 4.30810, 4.45745, + .01413, .01594, 126.69185, 4.81681, 4.51082, + 3.41217, 4.67586, 4.82252 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01459, .01619, 137.25456, 5.19997, 4.90462, + 3.80848, 5.06112, 5.20580, + .01504, .01643, 147.86296, 5.59035, 5.30211, + 4.21058, 5.45305, 5.59628, + .01547, .01666, 158.32004, 5.97791, 5.69439, + 4.60849, 5.84180, 5.98395, + .01588, .01688, 168.32674, 6.35395, 6.07366, + 4.99379, 6.21877, 6.36008, + .01629, .01709, 178.71536, 6.74696, 6.46913, + 5.39575, 6.61259, 6.75318, + .01670, .01731, 189.11736, 7.14488, 6.86898, + 5.80221, 7.01124, 7.15120, + .01709, .01752, 199.25040, 7.53563, 7.26125, + 6.20086, 7.40262, 7.54202, + .01746, .01771, 208.98117, 7.91466, 7.64155, + 6.58724, 7.78222, 7.92114 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .01784, .01791, 219.03743, 8.30887, 8.03692, + 6.98872, 8.17698, 8.31542, + .01821, .01811, 229.02512, 8.70510, 8.43421, + 7.39202, 8.57374, 8.71172, + .01857, .01830, 238.86061, 9.09655, 8.82664, + 7.79013, 8.96569, 9.10325, + .01891, .01848, 248.11046, 9.47035, 9.20133, + 8.17017, 9.33994, 9.47712, + .01926, .01866, 257.75046, 9.86099, 9.59285, + 8.56705, 9.73104, 9.86783 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00607, .01191, .96177, .36937, .00289, + .00000, .20776, .37179, + .00651, .01217, 1.91719, .42332, .00667, + .00000, .25540, .42587, + .00716, .01254, 3.69346, .52060, .01624, + .00000, .34135, .52332, + .00763, .01281, 5.31296, .60370, .02772, + .00000, .41505, .60654, + .00812, .01309, 7.30488, .70148, .04595, + .00000, .50231, .70445, + .00855, .01333, 9.27617, .79386, .06878, + .00000, .58545, .79694, + .00895, .01356, 11.40167, .88914, .09907, + .00000, .67208, .89231, + .00939, .01380, 13.86018, .99620, .14290, + .00000, .77077, .99948 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .00976, .01401, 16.20429, 1.09353, .19326, + .00000, .86195, 1.09690, + .01012, .01421, 18.68305, 1.19105, .25508, + .00000, .95490, 1.19451, + .01041, .01437, 20.74340, 1.26954, .31432, + .00000, 1.03105, 1.27306, + .01103, .01471, 25.55387, 1.44122, .47523, + .00000, 1.20203, 1.44487, + .01156, .01501, 30.09902, 1.59234, .65324, + .04800, 1.35770, 1.59611, + .01216, .01533, 35.62123, 1.76621, .89292, + .21786, 1.54173, 1.77010, + .01278, .01567, 41.85240, 1.95669, 1.17953, + .45797, 1.74671, 1.96071, + .01335, .01598, 47.93647, 2.14258, 1.46278, + .68245, 1.94718, 2.14672 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01393, .01629, 54.48560, 2.34645, 1.76212, + .92613, 2.16535, 2.35069, + .01441, .01655, 60.22464, 2.52991, 2.01645, + 1.13959, 2.35947, 2.53425, + .01500, .01687, 67.49087, 2.76975, 2.32814, + 1.41159, 2.61020, 2.77419, + .01552, .01715, 74.24516, 2.99913, 2.60738, + 1.66525, 2.84725, 3.00367, + .01601, .01740, 80.74314, 3.22443, 2.86789, + 1.90959, 3.07807, 3.22905, + .01662, .01773, 89.23483, 3.52663, 3.20269, + 2.23227, 3.38553, 3.53136, + .01720, .01804, 97.53741, 3.82832, 3.52533, + 2.55018, 3.69076, 3.83314, + .01775, .01832, 105.63536, 4.12689, 3.83731, + 2.86196, 3.99176, 4.13181 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .01830, .01861, 113.98271, 4.43918, 4.15874, + 3.18604, 4.30585, 4.44418, + .01884, .01890, 122.32356, 4.75612, 4.48180, + 3.51354, 4.62415, 4.76121, + .01935, .01917, 130.51100, 5.06972, 4.79946, + 3.83648, 4.93877, 5.07489, + .01984, .01942, 138.30943, 5.37293, 5.10546, + 4.14807, 5.24278, 5.37817, + .02033, .01968, 146.37512, 5.68885, 5.42352, + 4.47209, 5.55941, 5.69417, + .02082, .01993, 154.41780, 6.00769, 5.74404, + 4.79866, 5.87889, 6.01308, + .02128, .02017, 162.22395, 6.31985, 6.05755, + 5.11800, 6.19161, 6.32531, + .02172, .02040, 169.69249, 6.62180, 6.36061, + 5.42661, 6.49406, 6.62732 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02217, .02063, 177.38649, 6.93502, 6.67486, + 5.74643, 6.80777, 6.94061, + .02261, .02086, 184.99924, 7.24893, 6.98973, + 6.06677, 7.12214, 7.25458, + .02304, .02108, 192.47658, 7.55838, 7.30004, + 6.38225, 7.43203, 7.56409, + .02344, .02129, 199.48074, 7.85301, 7.59546, + 6.68255, 7.72706, 7.85878, + .02386, .02151, 206.76364, 8.16031, 7.90355, + 6.99550, 8.03476, 8.16613 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .00741, .01297, .96419, .35516, .00278, + .00000, .19953, .35762, + .00792, .01326, 1.88330, .40655, .00638, + .00000, .24488, .40912, + .00867, .01369, 3.56944, .49831, .01544, + .00000, .32593, .50102, + .00921, .01400, 5.09022, .57609, .02624, + .00000, .39490, .57890, + .00978, .01432, 6.94525, .66705, .04331, + .00000, .47607, .66996, + .01027, .01459, 8.76792, .75252, .06460, + .00000, .55300, .75552, + .01074, .01485, 10.72138, .84025, .09275, + .00000, .63281, .84333, + .01124, .01512, 12.96762, .93836, .13335, + .00000, .72330, .94152 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01167, .01536, 15.09830, 1.02715, .17986, + .00000, .80657, 1.03039, + .01209, .01559, 17.34150, 1.11579, .23678, + .00000, .89115, 1.11910, + .01242, .01577, 19.19858, 1.18686, .29120, + .00000, .96022, 1.19022, + .01313, .01616, 23.51276, 1.34160, .43848, + .00000, 1.11466, 1.34507, + .01374, .01649, 27.56405, 1.47701, .60072, + .04328, 1.25455, 1.48058, + .01443, .01686, 32.45835, 1.63201, .81818, + .19599, 1.41916, 1.63568, + .01514, .01724, 37.94894, 1.80102, 1.07690, + .41111, 1.60168, 1.80480, + .01580, .01759, 43.28111, 1.96536, 1.33129, + .61132, 1.77950, 1.96924 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01646, .01794, 48.99258, 2.14507, 1.59877, + .82782, 1.97234, 2.14904, + .01701, .01824, 53.97569, 2.30641, 1.82496, + 1.01681, 2.14343, 2.31045, + .01768, .01859, 60.25713, 2.51680, 2.10085, + 1.25680, 2.36375, 2.52093, + .01828, .01890, 66.07139, 2.71753, 2.34687, + 1.47985, 2.57145, 2.72175, + .01883, .01919, 71.64510, 2.91424, 2.57548, + 1.69408, 2.77316, 2.91853, + .01952, .01956, 78.89846, 3.17739, 2.86807, + 1.97608, 3.04106, 3.18177, + .02018, .01991, 85.96050, 3.43931, 3.14887, + 2.25297, 3.30619, 3.44377, + .02081, .02023, 92.82318, 3.69783, 3.41945, + 2.52370, 3.56690, 3.70237 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02143, .02055, 99.87158, 3.96750, 3.69734, + 2.80430, 3.83819, 3.97212, + .02204, .02087, 106.88850, 4.24043, 3.97577, + 3.08705, 4.11234, 4.24513, + .02263, .02118, 113.75548, 4.50984, 4.24883, + 3.36514, 4.38268, 4.51460, + .02318, .02146, 120.27418, 4.76965, 4.51117, + 3.63276, 4.64322, 4.77448, + .02374, .02175, 126.99796, 5.03977, 4.78322, + 3.91043, 4.91398, 5.04466, + .02429, .02203, 133.68233, 5.31175, 5.05673, + 4.18963, 5.18654, 5.31671, + .02481, .02230, 140.15280, 5.57747, 5.32368, + 4.46205, 5.45277, 5.58249, + .02531, .02256, 146.32683, 5.83397, 5.58120, + 4.72476, 5.70973, 5.83904 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02582, .02282, 152.67271, 6.09954, 5.84772, + 4.99650, 5.97574, 6.10467, + .02632, .02307, 158.93408, 6.36515, 6.11421, + 5.26811, 6.24178, 6.37034, + .02680, .02332, 165.07289, 6.62656, 6.37642, + 5.53516, 6.50360, 6.63180, + .02726, .02355, 170.80612, 6.87494, 6.62554, + 5.78883, 6.75234, 6.88022, + .02772, .02379, 176.75813, 7.13363, 6.88495, + 6.05280, 7.01140, 7.13896 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .00859, .01385, .96633, .34445, .00270, + .00000, .19337, .34697, + .00917, .01418, 1.85770, .39393, .00617, + .00000, .23702, .39654, + .01001, .01465, 3.47630, .48159, .01484, + .00000, .31443, .48433, + .01062, .01499, 4.92393, .55544, .02514, + .00000, .37991, .55827, + .01126, .01534, 6.67833, .64139, .04136, + .00000, .45661, .64431, + .01181, .01565, 8.39248, .72181, .06152, + .00000, .52901, .72480, + .01233, .01593, 10.22099, .80405, .08811, + .00000, .60385, .80711, + .01289, .01624, 12.31391, .89566, .12635, + .00000, .68840, .89880 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01337, .01650, 14.29113, .97830, .17005, + .00000, .76595, .98150, + .01384, .01675, 16.36561, 1.06054, .22342, + .00000, .84451, 1.06380, + .01421, .01695, 18.07762, 1.12629, .27435, + .00000, .90850, 1.12960, + .01500, .01738, 22.03923, 1.26892, .41181, + .00000, 1.05110, 1.27232, + .01568, .01774, 25.74158, 1.39316, .56270, + .03991, 1.17975, 1.39665, + .01644, .01815, 30.19447, 1.53479, .76426, + .18044, 1.33059, 1.53838, + .01724, .01857, 35.16710, 1.68867, 1.00312, + .37785, 1.49725, 1.69234, + .01796, .01895, 39.97584, 1.83786, 1.23703, + .56093, 1.65911, 1.84162 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .01870, .01934, 45.10676, 2.00064, 1.48201, + .75831, 1.83420, 2.00449, + .01931, .01966, 49.56796, 2.14652, 1.68840, + .93015, 1.98917, 2.15043, + .02005, .02005, 55.17208, 2.33639, 1.93921, + 1.14776, 2.18828, 2.34039, + .02071, .02040, 60.34218, 2.51721, 2.16204, + 1.34949, 2.37556, 2.52127, + .02132, .02071, 65.28451, 2.69409, 2.36845, + 1.54280, 2.55708, 2.69822, + .02209, .02111, 71.69499, 2.93021, 2.63178, + 1.79659, 2.79759, 2.93442, + .02282, .02149, 77.91586, 3.16469, 2.88368, + 2.04515, 3.03504, 3.16899, + .02351, .02185, 83.94353, 3.39565, 3.12574, + 2.28760, 3.26801, 3.40001 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02420, .02220, 90.11655, 3.63605, 3.37371, + 2.53832, 3.50992, 3.64049, + .02488, .02255, 96.24416, 3.87885, 3.62157, + 2.79038, 3.75384, 3.88335, + .02552, .02288, 102.22656, 4.11804, 3.86414, + 3.03780, 3.99390, 4.12261, + .02613, .02319, 107.89021, 4.34827, 4.09669, + 3.27542, 4.22480, 4.35290, + .02674, .02351, 113.71963, 4.58721, 4.33744, + 3.52152, 4.46435, 4.59191, + .02735, .02382, 119.50094, 4.82737, 4.57902, + 3.76853, 4.70505, 4.83212, + .02793, .02411, 125.08563, 5.06162, 4.81441, + 4.00912, 4.93977, 5.06642, + .02848, .02439, 130.40289, 5.28735, 5.04111, + 4.24076, 5.16593, 5.29221 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .02903, .02467, 135.85851, 5.52074, 5.27539, + 4.47999, 5.39974, 5.52565, + .02958, .02495, 141.22934, 5.75379, 5.50926, + 4.71873, 5.63318, 5.75875, + .03011, .02522, 146.48755, 5.98286, 5.73909, + 4.95315, 5.86263, 5.98787, + .03061, .02547, 151.38669, 6.20014, 5.95706, + 5.17545, 6.08026, 6.20519, + .03112, .02573, 156.46631, 6.42619, 6.18381, + 5.40652, 6.30666, 6.43130 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01334, .01705, .97504, .31289, .00246, + .00000, .17545, .31577, + .01417, .01749, 1.78256, .35677, .00555, + .00000, .21412, .35972, + .01537, .01814, 3.20362, .43263, .01313, + .00000, .28109, .43569, + .01624, .01860, 4.44148, .49530, .02200, + .00000, .33667, .49843, + .01715, .01908, 5.91135, .56710, .03579, + .00000, .40079, .57031, + .01792, .01949, 7.32228, .63338, .05278, + .00000, .46052, .63665, + .01867, .01988, 8.80512, .70037, .07499, + .00000, .52156, .70370, + .01945, .02029, 10.47779, .77408, .10666, + .00000, .58974, .77747 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02013, .02064, 12.03785, .83984, .14258, + .00000, .65163, .84329, + .02079, .02098, 13.65697, .90466, .18615, + .00000, .71379, .90816, + .02130, .02125, 14.97987, .95601, .22747, + .00000, .76399, .95955, + .02241, .02183, 18.00327, 1.06608, .33806, + .00000, .87474, 1.06971, + .02336, .02232, 20.78594, 1.16055, .45817, + .03090, .97337, 1.16425, + .02442, .02286, 24.08571, 1.26685, .61685, + .13896, 1.08768, 1.27063, + .02553, .02343, 27.71745, 1.38099, .80257, + .28949, 1.21258, 1.38485, + .02653, .02394, 31.18248, 1.49067, .98215, + .42753, 1.33273, 1.49462 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02754, .02446, 34.83428, 1.60954, 1.16786, + .57495, 1.46161, 1.61356, + .02839, .02489, 37.97470, 1.71548, 1.32247, + .70221, 1.57488, 1.71956, + .02941, .02540, 41.87618, 1.85257, 1.50814, + .86200, 1.71935, 1.85673, + .03031, .02586, 45.43747, 1.98236, 1.67116, + 1.00889, 1.85427, 1.98659, + .03115, .02628, 48.81157, 2.10866, 1.82066, + 1.14863, 1.98424, 2.11295, + .03220, .02681, 53.14157, 2.27614, 2.00938, + 1.33063, 2.15518, 2.28051, + .03320, .02731, 57.29905, 2.44128, 2.18806, + 1.50740, 2.32264, 2.44573, + .03413, .02778, 61.29009, 2.60287, 2.35824, + 1.67854, 2.48582, 2.60738 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03507, .02825, 65.33988, 2.76994, 2.53118, + 1.85424, 2.65408, 2.77452, + .03598, .02871, 69.32187, 2.93752, 2.70270, + 2.02961, 2.82256, 2.94217, + .03686, .02914, 73.18002, 3.10164, 2.86946, + 2.20068, 2.98738, 3.10635, + .03768, .02955, 76.80062, 3.25860, 3.02827, + 2.36391, 3.14490, 3.26338, + .03850, .02996, 80.50179, 3.42063, 3.19174, + 2.53201, 3.30742, 3.42547, + .03932, .03036, 84.14366, 3.58254, 3.35480, + 2.69974, 3.46978, 3.58743, + .04010, .03075, 87.63791, 3.73963, 3.51284, + 2.86223, 3.62726, 3.74458, + .04083, .03111, 90.94166, 3.89022, 3.66424, + 3.01785, 3.77822, 3.89522 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04158, .03148, 94.31164, 4.04521, 3.81998, + 3.17782, 3.93356, 4.05027, + .04231, .03184, 97.60506, 4.19915, 3.97462, + 3.33661, 4.08784, 4.20426, + .04302, .03218, 100.81474, 4.34987, 4.12600, + 3.49189, 4.23889, 4.35504, + .04368, .03251, 103.78115, 4.49207, 4.26879, + 3.63837, 4.38138, 4.49728, + .04436, .03285, 106.84489, 4.63950, 4.41681, + 3.79007, 4.52911, 4.64476 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02023, .02111, .98940, .28377, .00224, + .00000, .15923, .28734, + .02142, .02171, 1.71603, .32247, .00499, + .00000, .19336, .32614, + .02314, .02259, 2.95579, .38772, .01160, + .00000, .25101, .39153, + .02437, .02321, 4.00682, .44054, .01921, + .00000, .29790, .44445, + .02566, .02386, 5.22888, .50008, .03089, + .00000, .35114, .50409, + .02675, .02441, 6.38059, .55425, .04513, + .00000, .40005, .55835, + .02780, .02494, 7.57247, .60833, .06359, + .00000, .44946, .61251, + .02890, .02549, 8.89668, .66708, .08968, + .00000, .50396, .67135 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .02986, .02597, 10.11535, .71889, .11903, + .00000, .55292, .72323, + .03078, .02643, 11.36596, .76945, .15439, + .00000, .60164, .77386, + .03150, .02679, 12.37711, .80910, .18771, + .00000, .64065, .81357, + .03305, .02756, 14.65833, .89305, .27612, + .00000, .72577, .89763, + .03437, .02822, 16.72455, .96396, .37109, + .02371, .80057, .96865, + .03584, .02895, 19.13870, 1.04264, .49516, + .10611, .88621, 1.04744, + .03737, .02970, 21.75547, 1.12609, .63852, + .21989, .97871, 1.13101, + .03875, .03038, 24.21696, 1.20557, .77532, + .32302, 1.06681, 1.21060 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04015, .03107, 26.77758, 1.29113, .91493, + .43211, 1.16051, 1.29626, + .04130, .03164, 28.95419, 1.36697, 1.02973, + .52543, 1.24226, 1.37219, + .04270, .03232, 31.62656, 1.46457, 1.16587, + .64159, 1.34577, 1.46990, + .04394, .03293, 34.03856, 1.55645, 1.28389, + .74746, 1.44174, 1.56188, + .04507, .03348, 36.30234, 1.64540, 1.39100, + .84743, 1.53359, 1.65091, + .04651, .03418, 39.17430, 1.76254, 1.52468, + .97654, 1.65349, 1.76816, + .04786, .03484, 41.90063, 1.87721, 1.64986, + 1.10085, 1.77002, 1.88293, + .04912, .03545, 44.49200, 1.98865, 1.76798, + 1.22029, 1.88275, 1.99447 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05038, .03606, 47.09552, 2.10308, 1.88698, + 1.34198, 1.99816, 2.10900, + .05162, .03666, 49.62906, 2.21704, 2.00403, + 1.46254, 2.11287, 2.22305, + .05279, .03723, 52.06407, 2.32797, 2.11706, + 1.57937, 2.22440, 2.33407, + .05389, .03776, 54.32705, 2.43334, 2.22393, + 1.69008, 2.33025, 2.43952, + .05499, .03829, 56.62348, 2.54151, 2.33330, + 1.80344, 2.43886, 2.54778, + .05608, .03882, 58.86366, 2.64893, 2.44170, + 1.91584, 2.54668, 2.65528, + .05712, .03931, 60.99723, 2.75258, 2.54617, + 2.02412, 2.65070, 2.75901, + .05810, .03978, 62.99882, 2.85140, 2.64570, + 2.12725, 2.74985, 2.85790 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05909, .04026, 65.02779, 2.95261, 2.74758, + 2.23274, 2.85139, 2.95919, + .06006, .04072, 66.99420, 3.05257, 2.84817, + 2.33686, 2.95166, 3.05923, + .06099, .04117, 68.90170, 3.15006, 2.94624, + 2.43826, 3.04945, 3.15679, + .06187, .04159, 70.64791, 3.24148, 3.03820, + 2.53335, 3.14114, 3.24827, + .06277, .04202, 72.44429, 3.33593, 3.13320, + 2.63148, 3.23588, 3.34280 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02565, .02404, 1.00257, .26786, .00212, + .00000, .15049, .27201, + .02711, .02476, 1.68280, .30368, .00469, + .00000, .18210, .30796, + .02922, .02581, 2.82254, .36317, .01078, + .00000, .23472, .36763, + .03074, .02655, 3.77298, .41072, .01771, + .00000, .27699, .41532, + .03231, .02733, 4.86403, .46380, .02829, + .00000, .32452, .46854, + .03365, .02799, 5.88084, .51168, .04108, + .00000, .36783, .51654, + .03493, .02861, 6.92325, .55912, .05759, + .00000, .41125, .56409, + .03627, .02927, 8.07072, .61025, .08078, + .00000, .45880, .61533 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03743, .02984, 9.11812, .65502, .10676, + .00000, .50124, .66020, + .03855, .03038, 10.18559, .69844, .13792, + .00000, .54323, .70372, + .03943, .03081, 11.04310, .73228, .16718, + .00000, .57668, .73763, + .04130, .03172, 12.96245, .80337, .24439, + .00000, .64917, .80888, + .04290, .03250, 14.68385, .86282, .32679, + .02020, .71234, .86847, + .04467, .03336, 16.67682, .92821, .43370, + .09011, .78414, .93401, + .04651, .03425, 18.81679, .99704, .55628, + .18615, .86113, 1.00300, + .04817, .03506, 20.81216, 1.06224, .67232, + .27258, .93402, 1.06833 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .04985, .03587, 22.87119, 1.13215, .78980, + .36346, 1.01115, 1.13839, + .05123, .03654, 24.60882, 1.19394, .88566, + .44081, 1.07815, 1.20030, + .05291, .03734, 26.72650, 1.27320, .99845, + .53656, 1.16260, 1.27970, + .05438, .03805, 28.62445, 1.34757, 1.09548, + .62336, 1.24056, 1.35419, + .05574, .03870, 30.39537, 1.41935, 1.18294, + .70497, 1.31489, 1.42609, + .05745, .03952, 32.62574, 1.51349, 1.29135, + .80981, 1.41147, 1.52037, + .05905, .04029, 34.72786, 1.60525, 1.39216, + .91023, 1.50487, 1.61226, + .06055, .04100, 36.71349, 1.69405, 1.48673, + 1.00625, 1.59484, 1.70119 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06205, .04172, 38.69590, 1.78486, 1.58151, + 1.10365, 1.68654, 1.79212, + .06351, .04242, 40.61222, 1.87488, 1.67424, + 1.19968, 1.77727, 1.88227, + .06489, .04307, 42.44470, 1.96219, 1.76342, + 1.29237, 1.86514, 1.96970, + .06619, .04369, 44.13695, 2.04478, 1.84735, + 1.37985, 1.94819, 2.05240, + .06749, .04431, 45.84626, 2.12927, 1.93294, + 1.46909, 2.03311, 2.13699, + .06877, .04492, 47.50433, 2.21285, 2.01744, + 1.55724, 2.11709, 2.22068, + .06999, .04549, 49.07606, 2.29323, 2.09859, + 1.64187, 2.19783, 2.30116, + .07114, .04604, 50.54305, 2.36960, 2.17563, + 1.72218, 2.27452, 2.37762 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07230, .04659, 52.02417, 2.44758, 2.25426, + 1.80409, 2.35283, 2.45571, + .07344, .04713, 53.45157, 2.52433, 2.33161, + 1.88466, 2.42989, 2.53255, + .07453, .04764, 54.83226, 2.59899, 2.40685, + 1.96292, 2.50486, 2.60731, + .07556, .04813, 56.08799, 2.66875, 2.47712, + 2.03604, 2.57488, 2.67714, + .07661, .04862, 57.37670, 2.74066, 2.54957, + 2.11133, 2.64708, 2.74915 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03033, .02646, 1.01535, .25710, .00204, + .00000, .14459, .26175, + .03201, .02728, 1.66276, .29092, .00449, + .00000, .17447, .29572, + .03445, .02846, 2.73352, .34646, .01022, + .00000, .22365, .35150, + .03620, .02931, 3.61567, .39047, .01670, + .00000, .26282, .39567, + .03801, .03019, 4.61887, .43924, .02653, + .00000, .30655, .44461, + .03955, .03093, 5.54616, .48295, .03837, + .00000, .34614, .48847, + .04101, .03164, 6.49024, .52603, .05357, + .00000, .38564, .53168, + .04255, .03239, 7.52240, .57218, .07486, + .00000, .42866, .57798 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04388, .03303, 8.45889, .61239, .09862, + .00000, .46686, .61830, + .04516, .03365, 9.40846, .65119, .12703, + .00000, .50452, .65723, + .04617, .03413, 10.16764, .68131, .15363, + .00000, .53438, .68743, + .04831, .03516, 11.85697, .74419, .22356, + .00000, .59881, .75051, + .05013, .03604, 13.36106, .79638, .29783, + .01797, .65460, .80287, + .05216, .03701, 15.09067, .85342, .39373, + .07996, .71767, .86009, + .05425, .03801, 16.93489, .91311, .50306, + .16481, .78494, .91997, + .05614, .03891, 18.64328, .96943, .60595, + .24076, .84834, .97646 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05804, .03982, 20.39558, 1.02966, .70950, + .32030, .91519, 1.03687, + .05961, .04057, 21.86639, 1.08278, .79352, + .38772, .97307, 1.09013, + .06150, .04147, 23.64895, 1.15076, .89181, + .47085, 1.04579, 1.15828, + .06317, .04226, 25.23816, 1.21440, .97587, + .54593, 1.11270, 1.22207, + .06470, .04299, 26.71450, 1.27568, 1.05128, + .61627, 1.17633, 1.28349, + .06663, .04390, 28.56362, 1.35583, 1.14424, + .70631, 1.25870, 1.36381, + .06844, .04476, 30.29696, 1.43369, 1.23024, + .79221, 1.33810, 1.44183, + .07012, .04556, 31.92654, 1.50882, 1.31058, + .87406, 1.41431, 1.51712 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07181, .04635, 33.54572, 1.58541, 1.39076, + .95680, 1.49175, 1.59386, + .07344, .04713, 35.10294, 1.66110, 1.46892, + 1.03811, 1.56811, 1.66969, + .07500, .04786, 36.58636, 1.73429, 1.54384, + 1.11636, 1.64185, 1.74302, + .07645, .04854, 37.94950, 1.80331, 1.61412, + 1.18997, 1.71133, 1.81217, + .07791, .04923, 39.32158, 1.87374, 1.68560, + 1.26488, 1.78219, 1.88273, + .07934, .04990, 40.64670, 1.94322, 1.75595, + 1.33865, 1.85206, 1.95233, + .08070, .05054, 41.89826, 2.00986, 1.82334, + 1.40929, 1.91906, 2.01909, + .08198, .05114, 43.06174, 2.07301, 1.88716, + 1.47617, 1.98255, 2.08236 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08327, .05175, 44.23286, 2.13736, 1.95214, + 1.54422, 2.04723, 2.14683, + .08455, .05234, 45.35651, 2.20052, 2.01590, + 1.61097, 2.11071, 2.21009, + .08576, .05291, 46.44109, 2.26185, 2.07780, + 1.67570, 2.17235, 2.27154, + .08691, .05344, 47.42225, 2.31899, 2.13545, + 1.73601, 2.22976, 2.32877, + .08807, .05399, 48.42741, 2.37780, 2.19479, + 1.79800, 2.28886, 2.38769 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03463, .02864, 1.03201, .24930, .00198, + .00000, .14014, .25426, + .03651, .02955, 1.65330, .28152, .00432, + .00000, .16862, .28666, + .03923, .03087, 2.67025, .33401, .00978, + .00000, .21511, .33940, + .04118, .03181, 3.49964, .37531, .01591, + .00000, .25189, .38087, + .04319, .03278, 4.43564, .42081, .02517, + .00000, .29273, .42657, + .04490, .03360, 5.29501, .46140, .03628, + .00000, .32953, .46731, + .04652, .03439, 6.16500, .50121, .05049, + .00000, .36608, .50728, + .04823, .03521, 7.11089, .54368, .07034, + .00000, .40572, .54990 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .04970, .03592, 7.96486, .58052, .09242, + .00000, .44079, .58687, + .05112, .03660, 8.82712, .61593, .11876, + .00000, .47524, .62242, + .05223, .03713, 9.51381, .64332, .14338, + .00000, .50247, .64990, + .05459, .03826, 11.03452, .70022, .20789, + .00000, .56099, .70703, + .05660, .03923, 12.38035, .74717, .27614, + .01634, .61141, .75415, + .05883, .04029, 13.91933, .79818, .36391, + .07258, .66815, .80537, + .06114, .04139, 15.55080, .85133, .46352, + .14930, .72841, .85872, + .06321, .04238, 17.05397, .90130, .55683, + .21771, .78500, .90889 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06530, .04337, 18.58807, .95463, .65028, + .28908, .84448, .96241, + .06702, .04419, 19.86990, 1.00158, .72576, + .34938, .89585, 1.00951, + .06909, .04518, 21.41628, 1.06155, .81364, + .42350, .96021, 1.06967, + .07092, .04604, 22.78886, 1.11759, .88844, + .49023, 1.01928, 1.12588, + .07259, .04683, 24.05931, 1.17147, .95526, + .55258, 1.07532, 1.17990, + .07470, .04783, 25.64304, 1.24174, 1.03728, + .63213, 1.14767, 1.25036, + .07667, .04876, 27.12077, 1.30983, 1.11283, + .70779, 1.21719, 1.31863, + .07850, .04962, 28.50467, 1.37538, 1.18316, + .77968, 1.28376, 1.38434 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08034, .05048, 29.87441, 1.44202, 1.25312, + .85214, 1.35121, 1.45115, + .08212, .05132, 31.18591, 1.50770, 1.32109, + .92315, 1.41753, 1.51698, + .08380, .05211, 32.43123, 1.57107, 1.38608, + .99132, 1.48143, 1.58051, + .08538, .05285, 33.57062, 1.63068, 1.44688, + 1.05529, 1.54149, 1.64026, + .08696, .05359, 34.71413, 1.69138, 1.50857, + 1.12025, 1.60261, 1.70110, + .08851, .05432, 35.81441, 1.75110, 1.56914, + 1.18406, 1.66272, 1.76096, + .08998, .05501, 36.85028, 1.80827, 1.62704, + 1.24504, 1.72025, 1.81826, + .09137, .05565, 37.80986, 1.86233, 1.68174, + 1.30265, 1.77464, 1.87244 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09277, .05630, 38.77322, 1.91732, 1.73735, + 1.36115, 1.82995, 1.92755, + .09414, .05694, 39.69402, 1.97115, 1.79177, + 1.41842, 1.88411, 1.98151, + .09545, .05755, 40.58128, 2.02337, 1.84455, + 1.47387, 1.93663, 2.03384, + .09668, .05813, 41.38033, 2.07189, 1.89358, + 1.52541, 1.98542, 2.08247, + .09794, .05871, 42.19775, 2.12177, 1.94398, + 1.57833, 2.03560, 2.13247 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05207, .03713, 1.09139, .22634, .00180, + .00000, .12731, .23289, + .05470, .03839, 1.63023, .25374, .00387, + .00000, .15161, .26056, + .05849, .04021, 2.48470, .29721, .00853, + .00000, .19025, .30440, + .06118, .04150, 3.15944, .33066, .01367, + .00000, .22015, .33811, + .06395, .04283, 3.90233, .36685, .02129, + .00000, .25275, .37457, + .06630, .04396, 4.56966, .39860, .03032, + .00000, .28168, .40655, + .06853, .04502, 5.23291, .42932, .04175, + .00000, .31003, .43748, + .07086, .04613, 5.94109, .46158, .05754, + .00000, .34033, .46997 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07286, .04709, 6.57012, .48917, .07495, + .00000, .36681, .49776, + .07478, .04800, 7.19660, .51538, .09555, + .00000, .39254, .52415, + .07628, .04872, 7.68913, .53538, .11467, + .00000, .41267, .54430, + .07946, .05023, 8.76268, .57630, .16427, + .00000, .45535, .58551, + .08216, .05151, 9.69400, .60934, .21610, + .01200, .49151, .61882, + .08514, .05293, 10.73937, .64459, .28191, + .05298, .53160, .65435, + .08821, .05437, 11.82629, .68072, .35552, + .10834, .57357, .69077, + .09096, .05567, 12.80969, .71435, .42341, + .15702, .61252, .72466 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09370, .05697, 13.79657, .74999, .49034, + .20723, .65305, .76056, + .09597, .05803, 14.60869, .78120, .54359, + .24921, .68776, .79198, + .09868, .05931, 15.57296, .82084, .60462, + .30027, .73087, .83188, + .10106, .06043, 16.41608, .85768, .65575, + .34576, .77010, .86893, + .10323, .06144, 17.18685, .89290, .70081, + .38790, .80706, .90436, + .10595, .06272, 18.13212, .93847, .75530, + .44111, .85431, .95018, + .10849, .06390, 19.00018, .98225, .80478, + .49119, .89928, .99420, + .11085, .06500, 19.80209, 1.02406, .85028, + .53833, .94196, 1.03623 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11319, .06609, 20.58456, 1.06621, .89504, + .58541, .98483, 1.07859, + .11546, .06715, 21.32210, 1.10736, .93805, + .63112, 1.02657, 1.11995, + .11760, .06814, 22.01469, 1.14679, .97883, + .67466, 1.06650, 1.15957, + .11960, .06906, 22.63852, 1.18353, 1.01662, + .71516, 1.10369, 1.19650, + .12159, .06999, 23.25811, 1.22069, 1.05468, + .75600, 1.14126, 1.23384, + .12354, .07089, 23.84602, 1.25696, 1.09173, + .79580, 1.17792, 1.27029, + .12539, .07174, 24.39330, 1.29143, 1.12690, + .83357, 1.21276, 1.30493, + .12712, .07253, 24.89374, 1.32379, 1.15989, + .86899, 1.24545, 1.33744 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12886, .07334, 25.39145, 1.35650, 1.19321, + .90476, 1.27850, 1.37031, + .13056, .07412, 25.86003, 1.38828, 1.22558, + .93951, 1.31061, 1.40224, + .13219, .07486, 26.30894, 1.41896, 1.25681, + .97299, 1.34160, 1.43306, + .13372, .07556, 26.70547, 1.44720, 1.28558, + 1.00386, 1.37014, 1.46145, + .13526, .07627, 27.10928, 1.47614, 1.31503, + 1.03543, 1.39936, 1.49052 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07814, .04972, 1.16475, .20611, .00165, + .00000, .11594, .21498, + .08175, .05147, 1.61860, .22875, .00348, + .00000, .13612, .23798, + .08692, .05397, 2.31366, .26369, .00744, + .00000, .16736, .27346, + .09057, .05573, 2.84371, .28995, .01167, + .00000, .19098, .30009, + .09431, .05753, 3.41184, .31782, .01784, + .00000, .21626, .32834, + .09747, .05905, 3.91015, .34185, .02502, + .00000, .23831, .35268, + .10045, .06047, 4.39548, .36472, .03399, + .00000, .25961, .37586, + .10355, .06196, 4.90332, .38835, .04625, + .00000, .28202, .39980 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10620, .06322, 5.34637, .40825, .05962, + .00000, .30134, .41996, + .10874, .06443, 5.78090, .42688, .07529, + .00000, .31989, .43884, + .11072, .06538, 6.11752, .44090, .08973, + .00000, .33422, .45306, + .11489, .06736, 6.83820, .46903, .12677, + .00000, .36418, .48159, + .11842, .06902, 7.44925, .49118, .16497, + .00855, .38908, .50410, + .12228, .07085, 8.12058, .51428, .21281, + .03750, .41622, .52758, + .12623, .07271, 8.80299, .53752, .26547, + .07618, .44417, .55120, + .12975, .07437, 9.40733, .55889, .31323, + .10968, .46977, .57290 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13326, .07601, 10.00186, .58138, .35953, + .14382, .49611, .59573, + .13613, .07735, 10.48218, .60099, .39574, + .17202, .51846, .61562, + .13955, .07894, 11.04139, .62575, .43652, + .20593, .54595, .64070, + .14254, .08033, 11.52136, .64862, .47006, + .23579, .57073, .66385, + .14526, .08159, 11.95358, .67038, .49916, + .26319, .59389, .68587, + .14864, .08316, 12.47250, .69828, .53377, + .29739, .62318, .71409, + .15178, .08460, 12.93958, .72483, .56465, + .32920, .65075, .74092, + .15469, .08594, 13.36360, .74995, .59266, + .35884, .67666, .76631 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15756, .08726, 13.76953, .77503, .61985, + .38813, .70241, .79166, + .16032, .08852, 14.14385, .79925, .64564, + .41627, .72721, .81613, + .16292, .08971, 14.49039, .82225, .66986, + .44284, .75073, .83937, + .16533, .09080, 14.79566, .84347, .69204, + .46731, .77239, .86080, + .16773, .09189, 15.09462, .86474, .71419, + .49178, .79411, .88229, + .17007, .09295, 15.37249, .88531, .73554, + .51542, .81508, .90306, + .17227, .09394, 15.62707, .90469, .75564, + .53768, .83485, .92264, + .17432, .09487, 15.85539, .92271, .77432, + .55839, .85325, .94085 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17639, .09580, 16.07935, .94081, .79307, + .57915, .87170, .95913, + .17840, .09670, 16.28484, .95820, .81109, + .59915, .88945, .97670, + .18031, .09756, 16.48035, .97491, .82840, + .61831, .90650, .99358, + .18209, .09835, 16.64713, .99011, .84415, + .63580, .92201, 1.00893, + .18389, .09916, 16.81613, 1.00561, .86021, + .65360, .93783, 1.02458 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09896, .05996, 1.20622, .19526, .00159, + .00000, .10995, .20616, + .10326, .06205, 1.60829, .21510, .00329, + .00000, .12773, .22645, + .10940, .06503, 2.21115, .24525, .00688, + -.00001, .15485, .25724, + .11372, .06712, 2.66110, .26757, .01064, + .00000, .17506, .28001, + .11813, .06924, 3.13541, .29098, .01603, + .00000, .19644, .30388, + .12183, .07102, 3.54523, .31094, .02223, + -.00001, .21489, .32422, + .12532, .07269, 3.93923, .32976, .02992, + -.00001, .23255, .34340, + .12893, .07442, 4.34631, .34899, .04032, + -.00001, .25095, .36299 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13201, .07589, 4.69720, .36502, .05160, + -.00001, .26668, .37933, + .13495, .07729, 5.03793, .37989, .06474, + -.00001, .28166, .39450, + .13724, .07837, 5.29938, .39097, .07678, + -.00001, .29315, .40580, + .14205, .08065, 5.85265, .41291, .10746, + -.00001, .31692, .42822, + .14609, .08255, 6.31465, .42989, .13884, + .00688, .33645, .44560, + .15051, .08463, 6.81491, .44732, .17779, + .03008, .35749, .46346, + .15500, .08673, 7.31567, .46461, .22025, + .06087, .37893, .48119, + .15900, .08859, 7.75255, .48039, .25836, + .08729, .39838, .49735 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16295, .09043, 8.17626, .49693, .29489, + .11398, .41826, .51427, + .16618, .09192, 8.51429, .51131, .32317, + .13588, .43503, .52896, + .17002, .09369, 8.90211, .52943, .35465, + .16201, .45552, .54743, + .17335, .09522, 9.23049, .54610, .38024, + .18486, .47388, .56442, + .17638, .09661, 9.52301, .56192, .40221, + .20569, .49095, .58052, + .18013, .09832, 9.86876, .58208, .42804, + .23151, .51239, .60102, + .18359, .09989, 10.17477, .60115, .45083, + .25534, .53242, .62041, + .18679, .10134, 10.44881, .61908, .47130, + .27739, .55112, .63863 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18993, .10275, 10.70727, .63686, .49100, + .29905, .56957, .65670, + .19295, .10411, 10.94134, .65390, .50951, + .31969, .58720, .67400, + .19577, .10537, 11.15562, .67000, .52678, + .33908, .60382, .69035, + .19838, .10654, 11.34059, .68471, .54247, + .35682, .61901, .70529, + .20098, .10769, 11.51961, .69939, .55805, + .37447, .63416, .72020, + .20349, .10880, 11.68279, .71349, .57297, + .39142, .64869, .73451, + .20586, .10984, 11.83003, .72668, .58692, + .40729, .66231, .74791, + .20806, .11081, 11.95942, .73887, .59981, + .42197, .67488, .76029 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .21026, .11178, 12.08480, .75104, .61268, + .43662, .68744, .77265, + .21239, .11271, 12.19697, .76266, .62496, + .45065, .69943, .78444, + .21443, .11360, 12.30315, .77377, .63672, + .46405, .71092, .79573, + .21631, .11441, 12.39013, .78379, .64734, + .47620, .72127, .80590, + .21821, .11524, 12.47801, .79399, .65814, + .48854, .73180, .81625 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11699, .06904, 1.23110, .18799, .00156, + .00000, .10598, .20073, + .12183, .07141, 1.59557, .20582, .00318, + .00000, .12207, .21909, + .12871, .07474, 2.13356, .23263, .00652, + -.00001, .14633, .24662, + .13354, .07708, 2.52876, .25226, .00996, + .00000, .16421, .26676, + .13846, .07944, 2.94021, .27267, .01483, + .00000, .18298, .28768, + .14257, .08141, 3.29172, .28993, .02039, + -.00001, .19905, .30536, + .14643, .08326, 3.62640, .30608, .02722, + -.00001, .21432, .32191, + .15042, .08515, 3.96878, .32244, .03640, + -.00001, .23013, .33868 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15382, .08677, 4.26125, .33598, .04630, + -.00001, .24354, .35256, + .15706, .08830, 4.54310, .34844, .05779, + -.00001, .25625, .36535, + .15957, .08948, 4.75774, .35766, .06826, + -.00001, .26593, .37481, + .16483, .09195, 5.20779, .37572, .09483, + -.00001, .28583, .39339, + .16924, .09402, 5.57909, .38950, .12182, + .00585, .30202, .40761, + .17405, .09625, 5.97653, .40344, .15511, + .02546, .31930, .42202, + .17891, .09851, 6.36943, .41713, .19114, + .05138, .33676, .43618, + .18322, .10049, 6.70806, .42954, .22323, + .07345, .35250, .44900 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18748, .10245, 7.03268, .44252, .25374, + .09562, .36850, .46237, + .19094, .10403, 7.28884, .45379, .27716, + .11371, .38192, .47397, + .19504, .10589, 7.57909, .46795, .30301, + .13518, .39825, .48850, + .19859, .10750, 7.82201, .48096, .32384, + .15384, .41282, .50184, + .20180, .10894, 8.03639, .49328, .34158, + .17078, .42630, .51445, + .20578, .11072, 8.28603, .50890, .36224, + .19165, .44314, .53043, + .20943, .11235, 8.50375, .52360, .38031, + .21080, .45878, .54545, + .21279, .11384, 8.69632, .53737, .39642, + .22844, .47331, .55951 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21609, .11530, 8.87534, .55094, .41181, + .24567, .48756, .57337, + .21923, .11668, 9.03452, .56386, .42617, + .26200, .50109, .58656, + .22218, .11797, 9.17869, .57601, .43950, + .27728, .51379, .59896, + .22488, .11915, 9.30047, .58704, .45152, + .29118, .52532, .61022, + .22757, .12032, 9.41693, .59800, .46341, + .30496, .53676, .62140, + .23017, .12144, 9.52086, .60845, .47472, + .31813, .54767, .63207, + .23260, .12248, 9.61310, .61819, .48526, + .33041, .55785, .64200, + .23486, .12345, 9.69231, .62712, .49494, + .34172, .56720, .65112 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23711, .12441, 9.76796, .63601, .50457, + .35297, .57650, .66019, + .23929, .12533, 9.83336, .64443, .51370, + .36369, .58531, .66878, + .24136, .12621, 9.89497, .65247, .52242, + .37390, .59373, .67699, + .24327, .12701, 9.94258, .65964, .53024, + .38311, .60127, .68431, + .24520, .12782, 9.99057, .66693, .53818, + .39244, .60891, .69175 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13320, .07737, 1.24547, .18247, .00154, + .00000, .10305, .19699, + .13849, .07995, 1.58036, .19874, .00310, + .00000, .11783, .21383, + .14598, .08357, 2.06858, .22298, .00627, + .00000, .13991, .23887, + .15122, .08609, 2.42271, .24059, .00948, + .00000, .15605, .25702, + .15653, .08863, 2.78769, .25876, .01396, + .00000, .17288, .27575, + .16097, .09075, 3.09666, .27402, .01904, + .00000, .18720, .29147, + .16513, .09272, 3.38851, .28822, .02524, + .00000, .20073, .30610, + .16941, .09475, 3.68465, .30251, .03353, + .00000, .21466, .32082 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17305, .09646, 3.93573, .31425, .04242, + .00000, .22641, .33292, + .17652, .09809, 4.17619, .32499, .05270, + .00000, .23749, .34400, + .17920, .09934, 4.35815, .33288, .06204, + .00000, .24589, .35216, + .18480, .10195, 4.73666, .34820, .08564, + .00000, .26306, .36803, + .18948, .10411, 5.04569, .35974, .10948, + .00512, .27690, .38002, + .19456, .10645, 5.37324, .37128, .13874, + .02223, .29158, .39205, + .19969, .10880, 5.69350, .38250, .17022, + .04474, .30630, .40375, + .20423, .11086, 5.96656, .39261, .19808, + .06381, .31949, .41428 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20869, .11288, 6.22565, .40317, .22440, + .08287, .33284, .42524, + .21231, .11450, 6.42808, .41233, .24448, + .09836, .34400, .43474, + .21658, .11641, 6.65479, .42382, .26648, + .11664, .35752, .44661, + .22027, .11805, 6.84250, .43436, .28406, + .13247, .36953, .45747, + .22360, .11952, 7.00674, .44431, .29894, + .14678, .38061, .46773, + .22770, .12133, 7.19517, .45691, .31614, + .16432, .39437, .48067, + .23146, .12297, 7.35720, .46870, .33107, + .18036, .40709, .49278, + .23491, .12447, 7.49872, .47970, .34430, + .19505, .41886, .50407 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23828, .12592, 7.62822, .49049, .35685, + .20934, .43034, .51515, + .24149, .12730, 7.74113, .50070, .36849, + .22284, .44118, .52562, + .24449, .12858, 7.84223, .51027, .37925, + .23542, .45131, .53543, + .24724, .12974, 7.92549, .51890, .38890, + .24681, .46046, .54428, + .24996, .13089, 8.00404, .52744, .39840, + .25807, .46951, .55304, + .25258, .13199, 8.07236, .53553, .40740, + .26879, .47808, .56133, + .25502, .13301, 8.13183, .54304, .41575, + .27875, .48604, .56902, + .25729, .13395, 8.18147, .54989, .42338, + .28788, .49332, .57605 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25955, .13488, 8.22793, .55667, .43094, + .29695, .50053, .58300, + .26172, .13577, 8.26601, .56305, .43808, + .30554, .50733, .58954, + .26379, .13662, 8.30167, .56912, .44487, + .31371, .51380, .59577, + .26568, .13738, 8.32657, .57450, .45092, + .32105, .51955, .60128, + .26759, .13816, 8.35163, .57995, .45706, + .32846, .52537, .60687 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .16204, .09251, 1.25522, .17418, .00152, + .00000, .09883, .19209, + .16803, .09539, 1.54521, .18808, .00301, + .00001, .11162, .20663, + .17645, .09942, 1.95983, .20851, .00593, + .00001, .13049, .22794, + .18231, .10220, 2.25467, .22315, .00880, + .00001, .14411, .24319, + .18822, .10498, 2.55375, .23810, .01275, + .00001, .15815, .25874, + .19314, .10729, 2.80320, .25052, .01714, + .00001, .16999, .27166, + .19773, .10943, 3.03582, .26196, .02245, + .00001, .18108, .28355, + .20244, .11161, 3.26867, .27335, .02948, + .00001, .19239, .29540 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20642, .11344, 3.46369, .28259, .03695, + .00001, .20184, .30503, + .21020, .11518, 3.64855, .29096, .04553, + .00001, .21068, .31377, + .21311, .11651, 3.78683, .29704, .05330, + .00001, .21734, .32012, + .21917, .11926, 4.07084, .30866, .07276, + .00001, .23080, .33230, + .22421, .12153, 4.29869, .31720, .09227, + .00415, .24151, .34131, + .22965, .12395, 4.53600, .32555, .11601, + .01790, .25272, .35015, + .23511, .12637, 4.76354, .33351, .14131, + .03587, .26382, .35861, + .23990, .12848, 4.95376, .34063, .16348, + .05095, .27368, .36614 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .24459, .13053, 5.13077, .34804, .18422, + .06592, .28358, .37395, + .24837, .13216, 5.26662, .35446, .19986, + .07798, .29180, .38069, + .25281, .13407, 5.41520, .36251, .21682, + .09213, .30169, .38910, + .25663, .13569, 5.53562, .36988, .23021, + .10429, .31041, .39678, + .26005, .13714, 5.63918, .37683, .24141, + .11521, .31842, .40401, + .26425, .13890, 5.75422, .38555, .25420, + .12851, .32828, .41306, + .26808, .14049, 5.85007, .39366, .26516, + .14056, .33731, .42146, + .27157, .14193, 5.93153, .40117, .27476, + .15153, .34560, .42924 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .27496, .14331, 6.00351, .40848, .28378, + .16214, .35362, .43679, + .27816, .14461, 6.06311, .41531, .29206, + .17207, .36111, .44386, + .28115, .14581, 6.11492, .42167, .29964, + .18128, .36806, .45043, + .28386, .14689, 6.15455, .42733, .30637, + .18955, .37426, .45627, + .28654, .14794, 6.19049, .43288, .31296, + .19769, .38036, .46201, + .28909, .14894, 6.21918, .43808, .31914, + .20538, .38608, .46739, + .29148, .14987, 6.24238, .44286, .32483, + .21249, .39134, .47232, + .29367, .15071, 6.25943, .44717, .32998, + .21897, .39611, .47677 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29584, .15154, 6.27401, .45141, .33507, + .22536, .40080, .48115, + .29792, .15233, 6.28276, .45533, .33982, + .23139, .40516, .48520, + .29989, .15307, 6.29069, .45906, .34433, + .23710, .40931, .48905, + .30168, .15373, 6.29180, .46228, .34828, + .24218, .41292, .49237, + .30349, .15440, 6.29292, .46553, .35228, + .24729, .41657, .49573 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19966, .11272, 1.24405, .16508, .00152, + .00000, .09448, .18774, + .20637, .11587, 1.48687, .17645, .00294, + .00000, .10518, .19980, + .21574, .12022, 1.82656, .19292, .00562, + .00000, .12074, .21720, + .22221, .12319, 2.06275, .20456, .00816, + .00000, .13182, .22947, + .22869, .12614, 2.29791, .21629, .01157, + .00000, .14310, .24181, + .23406, .12857, 2.49072, .22591, .01530, + .00000, .15251, .25193, + .23904, .13079, 2.66782, .23466, .01973, + .00000, .16124, .26115, + .24411, .13305, 2.84206, .24326, .02553, + -.00001, .17003, .27021 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24839, .13493, 2.98580, .25014, .03164, + .00000, .17731, .27747, + .25242, .13670, 3.12036, .25628, .03859, + .00000, .18406, .28397, + .25551, .13805, 3.21957, .26068, .04484, + .00000, .18909, .28862, + .26191, .14081, 3.42003, .26888, .06038, + .00000, .19913, .29736, + .26719, .14306, 3.57707, .27470, .07580, + .00323, .20699, .30362, + .27284, .14544, 3.73677, .28021, .09440, + .01392, .21509, .30958, + .27847, .14779, 3.88579, .28530, .11400, + .02779, .22298, .31511, + .28337, .14980, 4.00693, .28979, .13100, + .03931, .22990, .31997 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28812, .15174, 4.11643, .29446, .14670, + .05063, .23677, .32498, + .29193, .15327, 4.19789, .29851, .15840, + .05969, .24244, .32931, + .29636, .15503, 4.28384, .30359, .17092, + .07022, .24919, .33469, + .30014, .15651, 4.35096, .30824, .18066, + .07920, .25510, .33960, + .30352, .15783, 4.40694, .31262, .18871, + .08720, .26049, .34420, + .30760, .15938, 4.46527, .31807, .19775, + .09686, .26704, .34991, + .31129, .16078, 4.51077, .32308, .20538, + .10554, .27297, .35514, + .31463, .16202, 4.54703, .32767, .21197, + .11338, .27836, .35993 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31786, .16320, 4.57610, .33208, .21808, + .12089, .28350, .36453, + .32087, .16428, 4.59672, .33613, .22360, + .12787, .28824, .36873, + .32365, .16528, 4.61297, .33985, .22862, + .13429, .29259, .37260, + .32616, .16615, 4.62176, .34310, .23301, + .14001, .29641, .37596, + .32861, .16700, 4.62790, .34624, .23726, + .14559, .30011, .37922, + .33093, .16778, 4.62930, .34911, .24119, + .15083, .30353, .38221, + .33308, .16850, 4.62778, .35172, .24478, + .15563, .30665, .38490, + .33503, .16915, 4.62291, .35401, .24800, + .15998, .30942, .38727 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33696, .16977, 4.61634, .35623, .25114, + .16425, .31212, .38957, + .33878, .17035, 4.60616, .35823, .25403, + .16823, .31457, .39163, + .34051, .17089, 4.59630, .36011, .25676, + .17199, .31690, .39358, + .34205, .17136, 4.58259, .36166, .25911, + .17529, .31886, .39518, + .34360, .17183, 4.56888, .36323, .26148, + .17861, .32083, .39679 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25366, .14207, 1.19695, .15352, .00153, + -.00001, .08938, .18331, + .26105, .14531, 1.38856, .16205, .00289, + -.00001, .09775, .19251, + .27125, .14972, 1.64926, .17420, .00532, + -.00002, .10972, .20552, + .27822, .15268, 1.82541, .18262, .00753, + -.00002, .11809, .21452, + .28513, .15558, 1.99657, .19097, .01038, + -.00002, .12649, .22342, + .29080, .15793, 2.13368, .19770, .01341, + -.00002, .13340, .23058, + .29600, .16006, 2.25701, .20373, .01695, + -.00002, .13972, .23700, + .30125, .16219, 2.37547, .20952, .02150, + -.00002, .14601, .24317 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .30565, .16393, 2.47099, .21405, .02622, + -.00002, .15114, .24801, + .30977, .16556, 2.55883, .21801, .03154, + -.00002, .15583, .25225, + .31290, .16678, 2.62215, .22076, .03628, + -.00002, .15927, .25520, + .31931, .16924, 2.74685, .22570, .04793, + -.00002, .16604, .26054, + .32453, .17121, 2.84086, .22897, .05934, + .00235, .17119, .26412, + .33005, .17324, 2.93273, .23184, .07294, + .01013, .17636, .26731, + .33547, .17520, 3.01433, .23431, .08708, + .02015, .18129, .27008, + .34012, .17684, 3.07712, .23643, .09917, + .02836, .18553, .27243 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34457, .17838, 3.13055, .23865, .11018, + .03634, .18968, .27485, + .34809, .17956, 3.16775, .24060, .11826, + .04266, .19305, .27695, + .35211, .18088, 3.20331, .24306, .12676, + .04993, .19702, .27956, + .35549, .18196, 3.22825, .24532, .13324, + .05605, .20044, .28194, + .35848, .18289, 3.24713, .24747, .13850, + .06146, .20353, .28418, + .36203, .18396, 3.26214, .25007, .14429, + .06792, .20721, .28688, + .36518, .18488, 3.26992, .25242, .14905, + .07365, .21046, .28930, + .36798, .18567, 3.27299, .25453, .15309, + .07878, .21336, .29146 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .37064, .18639, 3.27137, .25649, .15675, + .08364, .21608, .29346, + .37307, .18700, 3.26469, .25822, .16000, + .08809, .21850, .29521, + .37529, .18755, 3.25641, .25976, .16289, + .09216, .22069, .29677, + .37724, .18800, 3.24445, .26101, .16537, + .09573, .22253, .29802, + .37912, .18842, 3.23087, .26219, .16773, + .09919, .22428, .29919, + .38086, .18879, 3.21468, .26320, .16988, + .10240, .22585, .30017, + .38243, .18909, 3.19773, .26405, .17180, + .10531, .22723, .30101, + .38384, .18934, 3.17976, .26475, .17348, + .10792, .22841, .30166 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38521, .18957, 3.16079, .26538, .17510, + .11046, .22952, .30226, + .38646, .18976, 3.13988, .26587, .17655, + .11279, .23048, .30270, + .38764, .18993, 3.12009, .26633, .17791, + .11498, .23138, .30312, + .38863, .19003, 3.09873, .26659, .17903, + .11687, .23205, .30333, + .38964, .19014, 3.07744, .26686, .18014, + .11876, .23272, .30354 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .30108, .16749, 1.13980, .14372, .00154, + -.00001, .08532, .17978, + .30873, .17055, 1.29792, .15033, .00287, + -.00001, .09210, .18692, + .31914, .17464, 1.50817, .15960, .00514, + -.00001, .10166, .19687, + .32617, .17733, 1.64686, .16592, .00713, + -.00001, .10826, .20363, + .33308, .17993, 1.77877, .17209, .00963, + -.00001, .11480, .21021, + .33870, .18199, 1.88227, .17699, .01222, + -.00002, .12012, .21541, + .34381, .18385, 1.97367, .18130, .01519, + -.00002, .12493, .21999, + .34892, .18564, 2.05937, .18536, .01895, + -.00001, .12965, .22429 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .35314, .18710, 2.12701, .18846, .02281, + -.00001, .13345, .22757, + .35707, .18844, 2.18813, .19110, .02711, + -.00002, .13688, .23037, + .36003, .18942, 2.23108, .19287, .03091, + -.00002, .13937, .23225, + .36604, .19137, 2.31351, .19587, .04017, + -.00002, .14416, .23547, + .37086, .19287, 2.37294, .19766, .04914, + .00185, .14772, .23741, + .37588, .19438, 2.42817, .19902, .05974, + .00792, .15119, .23890, + .38071, .19578, 2.47404, .20003, .07064, + .01568, .15442, .24001, + .38479, .19690, 2.50652, .20085, .07985, + .02197, .15713, .24087 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38864, .19790, 2.53140, .20172, .08813, + .02803, .15974, .24176, + .39163, .19863, 2.54644, .20252, .09414, + .03280, .16183, .24257, + .39497, .19939, 2.55732, .20355, .10036, + .03822, .16425, .24359, + .39773, .19998, 2.56198, .20453, .10503, + .04276, .16631, .24454, + .40012, .20046, 2.56330, .20547, .10876, + .04673, .16814, .24543, + .40289, .20095, 2.55847, .20657, .11278, + .05143, .17027, .24646, + .40528, .20131, 2.54937, .20752, .11602, + .05556, .17210, .24731, + .40737, .20158, 2.53794, .20834, .11871, + .05922, .17369, .24802 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40929, .20178, 2.52332, .20904, .12111, + .06265, .17513, .24862, + .41098, .20189, 2.50548, .20958, .12317, + .06577, .17634, .24903, + .41248, .20197, 2.48744, .21002, .12499, + .06860, .17742, .24935, + .41375, .20196, 2.46763, .21029, .12651, + .07105, .17826, .24949, + .41494, .20193, 2.44687, .21049, .12793, + .07341, .17903, .24957, + .41598, .20184, 2.42465, .21058, .12919, + .07558, .17967, .24951, + .41689, .20173, 2.40264, .21059, .13029, + .07753, .18019, .24939, + .41767, .20158, 2.38064, .21052, .13123, + .07925, .18058, .24917 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41840, .20141, 2.35806, .21040, .13212, + .08091, .18093, .24891, + .41900, .20120, 2.33445, .21019, .13288, + .08243, .18116, .24854, + .41956, .20100, 2.31224, .20998, .13359, + .08384, .18138, .24819, + .41997, .20075, 2.28951, .20966, .13413, + .08504, .18145, .24772, + .42037, .20050, 2.26693, .20934, .13467, + .08624, .18152, .24725 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38374, .20950, 1.03340, .12619, .00158, + .00000, .07807, .17202, + .39100, .21172, 1.14972, .13031, .00286, + .00000, .08276, .17631, + .40064, .21449, 1.29803, .13594, .00493, + .00001, .08922, .18209, + .40698, .21622, 1.39160, .13966, .00663, + .00000, .09357, .18586, + .41306, .21779, 1.47698, .14317, .00868, + .00000, .09779, .18938, + .41787, .21896, 1.54124, .14586, .01072, + .00000, .10113, .19203, + .42217, .21994, 1.59578, .14813, .01299, + .00000, .10408, .19425, + .42633, .22080, 1.64414, .15014, .01577, + .00000, .10691, .19617 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42969, .22144, 1.68040, .15157, .01857, + .00000, .10911, .19749, + .43277, .22199, 1.71183, .15268, .02163, + -.00001, .11105, .19850, + .43502, .22235, 1.73245, .15333, .02430, + .00000, .11241, .19906, + .43946, .22296, 1.76909, .15418, .03071, + .00000, .11492, .19967, + .44284, .22331, 1.79179, .15435, .03680, + .00127, .11664, .19961, + .44621, .22354, 1.80896, .15411, .04386, + .00537, .11820, .19909, + .44928, .22359, 1.81861, .15360, .05100, + .01055, .11952, .19826, + .45171, .22350, 1.82103, .15306, .05692, + .01468, .12056, .19742 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45386, .22328, 1.81821, .15255, .06213, + .01860, .12150, .19658, + .45540, .22302, 1.81231, .15219, .06583, + .02163, .12222, .19593, + .45695, .22258, 1.80045, .15180, .06955, + .02503, .12299, .19517, + .45811, .22211, 1.78707, .15150, .07226, + .02784, .12361, .19454, + .45904, .22164, 1.77322, .15125, .07437, + .03028, .12414, .19399, + .45992, .22091, 1.75184, .15088, .07654, + .03310, .12468, .19320, + .46051, .22015, 1.72931, .15047, .07821, + .03554, .12506, .19241, + .46091, .21937, 1.70684, .15005, .07953, + .03766, .12533, .19163 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46113, .21855, 1.68283, .14958, .08066, + .03963, .12551, .19077, + .46114, .21767, 1.65766, .14901, .08158, + .04138, .12555, .18982, + .46106, .21682, 1.63359, .14845, .08235, + .04294, .12555, .18890, + .46082, .21595, 1.60956, .14783, .08293, + .04426, .12544, .18794, + .46050, .21506, 1.58530, .14718, .08346, + .04552, .12528, .18694, + .46006, .21414, 1.56074, .14647, .08389, + .04666, .12505, .18589, + .45957, .21323, 1.53722, .14577, .08423, + .04766, .12479, .18485, + .45902, .21234, 1.51458, .14505, .08449, + .04853, .12448, .18383 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45842, .21143, 1.49182, .14431, .08471, + .04935, .12414, .18277, + .45770, .21051, 1.46887, .14352, .08486, + .05008, .12374, .18167, + .45701, .20964, 1.44744, .14278, .08500, + .05076, .12336, .18063, + .45622, .20875, 1.42641, .14200, .08503, + .05131, .12292, .17957, + .45544, .20786, 1.40561, .14123, .08507, + .05186, .12249, .17851 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45488, .24201, .95217, .11011, .00160, + .00001, .07106, .16239, + .46092, .24300, 1.04238, .11276, .00285, + .00000, .07444, .16477, + .46864, .24400, 1.15252, .11625, .00479, + .00000, .07898, .16777, + .47351, .24445, 1.21876, .11845, .00631, + .00000, .08195, .16959, + .47800, .24471, 1.27638, .12044, .00806, + .00000, .08475, .17115, + .48143, .24476, 1.31757, .12187, .00975, + .00000, .08691, .17220, + .48437, .24467, 1.35077, .12300, .01158, + .00000, .08877, .17295, + .48705, .24444, 1.37787, .12387, .01376, + -.00001, .09047, .17342 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48911, .24415, 1.39654, .12440, .01592, + .00000, .09175, .17355, + .49090, .24380, 1.41155, .12471, .01824, + .00000, .09284, .17347, + .49213, .24345, 1.41997, .12478, .02024, + .00000, .09356, .17324, + .49438, .24257, 1.43208, .12453, .02495, + .00000, .09479, .17233, + .49589, .24167, 1.43571, .12391, .02936, + .00093, .09551, .17114, + .49713, .24053, 1.43365, .12291, .03440, + .00392, .09603, .16951, + .49798, .23920, 1.42553, .12169, .03940, + .00765, .09636, .16762, + .49839, .23788, 1.41375, .12056, .04348, + .01059, .09652, .16585 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49849, .23646, 1.39834, .11945, .04700, + .01334, .09661, .16412, + .49834, .23521, 1.38324, .11859, .04943, + .01544, .09664, .16272, + .49786, .23360, 1.36201, .11757, .05183, + .01778, .09660, .16105, + .49723, .23212, 1.34155, .11672, .05351, + .01967, .09652, .15963, + .49652, .23074, 1.32201, .11596, .05477, + .02129, .09642, .15836, + .49532, .22889, 1.29503, .11499, .05602, + .02314, .09620, .15671, + .49399, .22710, 1.26848, .11404, .05691, + .02471, .09591, .15513, + .49260, .22539, 1.24315, .11313, .05758, + .02607, .09559, .15364 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49105, .22365, 1.21723, .11219, .05811, + .02730, .09520, .15213, + .48935, .22188, 1.19112, .11121, .05848, + .02837, .09474, .15060, + .48768, .22021, 1.16663, .11028, .05877, + .02932, .09427, .14914, + .48592, .21860, 1.14301, .10936, .05895, + .03011, .09377, .14771, + .48411, .21698, 1.11954, .10842, .05909, + .03085, .09324, .14628, + .48222, .21534, 1.09630, .10744, .05915, + .03150, .09267, .14485, + .48037, .21378, 1.07439, .10651, .05918, + .03207, .09211, .14347, + .47853, .21229, 1.05365, .10561, .05916, + .03255, .09153, .14213 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47665, .21078, 1.03304, .10470, .05911, + .03299, .09094, .14078, + .47468, .20927, 1.01262, .10377, .05902, + .03336, .09032, .13942, + .47282, .20784, .99365, .10289, .05892, + .03371, .08973, .13815, + .47093, .20645, .97539, .10201, .05878, + .03398, .08913, .13689, + .46903, .20506, .95741, .10113, .05864, + .03425, .08853, .13565 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51664, .26658, .89542, .09527, .00161, + -.00001, .06411, .15108, + .52085, .26619, .96634, .09699, .00284, + .00000, .06659, .15209, + .52586, .26522, 1.04866, .09914, .00466, + .00000, .06982, .15316, + .52875, .26429, 1.09533, .10041, .00603, + -.00001, .07186, .15365, + .53117, .26314, 1.13337, .10146, .00756, + -.00001, .07372, .15389, + .53281, .26201, 1.15856, .10214, .00899, + -.00001, .07511, .15387, + .53404, .26085, 1.17717, .10259, .01051, + -.00001, .07626, .15363, + .53490, .25949, 1.18995, .10281, .01227, + -.00001, .07724, .15314 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53539, .25823, 1.19696, .10281, .01397, + .00000, .07793, .15252, + .53569, .25697, 1.20125, .10266, .01579, + .00000, .07848, .15176, + .53572, .25593, 1.20185, .10242, .01733, + .00000, .07880, .15102, + .53546, .25359, 1.19854, .10158, .02091, + .00000, .07923, .14920, + .53481, .25149, 1.19047, .10057, .02420, + .00071, .07936, .14733, + .53369, .24905, 1.17696, .09923, .02792, + .00298, .07928, .14504, + .53212, .24641, 1.15871, .09770, .03154, + .00577, .07902, .14257, + .53037, .24394, 1.13918, .09632, .03443, + .00794, .07870, .14032 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52832, .24141, 1.11726, .09497, .03689, + .00996, .07833, .13810, + .52641, .23928, 1.09766, .09389, .03855, + .01149, .07798, .13631, + .52382, .23663, 1.07215, .09264, .04012, + .01315, .07751, .13419, + .52136, .23426, 1.04876, .09156, .04119, + .01449, .07706, .13237, + .51901, .23207, 1.02711, .09060, .04196, + .01561, .07664, .13076, + .51575, .22925, .99851, .08937, .04266, + .01688, .07603, .12870, + .51252, .22658, .97127, .08822, .04312, + .01795, .07541, .12676, + .50939, .22408, .94585, .08714, .04342, + .01886, .07480, .12496 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50613, .22157, .92043, .08606, .04362, + .01967, .07415, .12316, + .50280, .21907, .89539, .08494, .04372, + .02036, .07347, .12139, + .49962, .21673, .87220, .08389, .04376, + .02096, .07280, .11973, + .49646, .21451, .85027, .08289, .04373, + .02145, .07214, .11814, + .49326, .21230, .82870, .08188, .04368, + .02190, .07146, .11655, + .49003, .21011, .80766, .08088, .04357, + .02229, .07076, .11497, + .48691, .20804, .78801, .07993, .04345, + .02262, .07008, .11348, + .48391, .20608, .76964, .07901, .04331, + .02289, .06943, .11205 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48088, .20411, .75151, .07809, .04314, + .02314, .06876, .11064, + .47780, .20214, .73376, .07716, .04294, + .02334, .06808, .10924, + .47490, .20030, .71734, .07629, .04275, + .02352, .06743, .10794, + .47202, .19852, .70175, .07544, .04254, + .02365, .06680, .10665, + .46916, .19676, .68645, .07461, .04232, + .02377, .06617, .10538 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58186, .28778, .84991, .07852, .00161, + -.00002, .05561, .13541, + .58323, .28559, .90099, .07953, .00279, + -.00001, .05733, .13524, + .58409, .28212, .95540, .08066, .00447, + -.00001, .05944, .13470, + .58403, .27947, .98290, .08123, .00568, + -.00001, .06070, .13408, + .58341, .27660, 1.00220, .08160, .00699, + -.00001, .06178, .13322, + .58248, .27406, 1.01239, .08172, .00817, + -.00001, .06252, .13232, + .58130, .27158, 1.01757, .08169, .00938, + -.00001, .06309, .13133, + .57965, .26886, 1.01746, .08146, .01076, + .00000, .06349, .13011 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57797, .26648, 1.01419, .08111, .01205, + -.00001, .06372, .12891, + .57622, .26418, 1.00920, .08066, .01341, + -.00001, .06385, .12765, + .57465, .26233, 1.00314, .08022, .01454, + -.00001, .06386, .12657, + .57105, .25833, .98707, .07905, .01713, + -.00001, .06371, .12410, + .56760, .25486, .96969, .07784, .01947, + .00052, .06339, .12181, + .56342, .25098, .94748, .07637, .02205, + .00217, .06289, .11913, + .55875, .24693, .92192, .07477, .02452, + .00419, .06225, .11632, + .55428, .24324, .89716, .07333, .02644, + .00574, .06162, .11381 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .54956, .23952, .87118, .07192, .02803, + .00715, .06094, .11135, + .54549, .23645, .84908, .07080, .02907, + .00821, .06035, .10938, + .54036, .23271, .82160, .06946, .03000, + .00933, .05962, .10706, + .53571, .22942, .79725, .06833, .03060, + .01022, .05896, .10506, + .53140, .22643, .77520, .06733, .03100, + .01097, .05835, .10328, + .52575, .22263, .74699, .06605, .03130, + .01181, .05755, .10107, + .52031, .21909, .72079, .06487, .03145, + .01249, .05676, .09901, + .51518, .21582, .69681, .06378, .03151, + .01305, .05601, .09711 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50999, .21256, .67327, .06268, .03150, + .01356, .05524, .09523, + .50479, .20939, .65055, .06161, .03141, + .01397, .05446, .09340, + .49990, .20643, .62975, .06061, .03130, + .01431, .05372, .09171, + .49520, .20364, .61041, .05964, .03115, + .01459, .05301, .09012, + .49050, .20087, .59158, .05869, .03098, + .01484, .05229, .08855, + .48582, .19817, .57345, .05775, .03078, + .01505, .05157, .08701, + .48136, .19562, .55669, .05686, .03058, + .01521, .05089, .08556, + .47712, .19322, .54119, .05603, .03037, + .01534, .05023, .08420 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47286, .19084, .52601, .05519, .03015, + .01546, .04957, .08285, + .46860, .18849, .51131, .05435, .02991, + .01555, .04892, .08152, + .46461, .18630, .49779, .05357, .02969, + .01563, .04831, .08028, + .46072, .18420, .48509, .05283, .02945, + .01567, .04770, .07910, + .45685, .18212, .47267, .05209, .02921, + .01570, .04711, .07792 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .63438, .29995, .82145, .06384, .00157, + -.00003, .04754, .11903, + .63249, .29603, .85498, .06444, .00269, + -.00003, .04874, .11812, + .62872, .29019, .88554, .06498, .00424, + -.00003, .05010, .11654, + .62542, .28593, .89722, .06515, .00532, + -.00002, .05085, .11524, + .62154, .28145, .90148, .06512, .00643, + -.00001, .05142, .11375, + .61788, .27760, .89995, .06495, .00741, + -.00002, .05175, .11236, + .61416, .27395, .89493, .06466, .00838, + -.00003, .05196, .11094, + .60986, .27007, .88528, .06421, .00946, + -.00002, .05203, .10932 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60597, .26669, .87460, .06371, .01045, + -.00003, .05198, .10782, + .60214, .26346, .86309, .06315, .01147, + -.00003, .05186, .10633, + .59895, .26090, .85248, .06264, .01231, + -.00003, .05170, .10509, + .59199, .25550, .82798, .06138, .01420, + -.00002, .05123, .10236, + .58577, .25090, .80481, .06016, .01587, + .00037, .05070, .09991, + .57862, .24583, .77748, .05873, .01768, + .00161, .05000, .09715, + .57099, .24061, .74804, .05721, .01938, + .00312, .04918, .09431, + .56394, .23594, .72086, .05584, .02067, + .00425, .04841, .09180 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55672, .23129, .69336, .05450, .02169, + .00527, .04761, .08935, + .55067, .22748, .67064, .05344, .02234, + .00602, .04695, .08739, + .54320, .22291, .64319, .05220, .02288, + .00681, .04613, .08509, + .53657, .21893, .61939, .05113, .02319, + .00742, .04540, .08313, + .53051, .21534, .59819, .05018, .02337, + .00793, .04474, .08139, + .52269, .21085, .57166, .04901, .02345, + .00849, .04389, .07920, + .51533, .20668, .54746, .04792, .02343, + .00893, .04307, .07721, + .50847, .20285, .52561, .04691, .02336, + .00930, .04231, .07540 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50162, .19908, .50448, .04591, .02323, + .00961, .04154, .07363, + .49485, .19544, .48441, .04494, .02307, + .00986, .04077, .07191, + .48852, .19207, .46621, .04405, .02289, + .01006, .04006, .07032, + .48254, .18890, .44948, .04321, .02270, + .01022, .03938, .06884, + .47658, .18579, .43334, .04237, .02249, + .01036, .03870, .06740, + .47072, .18275, .41797, .04155, .02226, + .01046, .03803, .06600, + .46518, .17992, .40388, .04078, .02204, + .01054, .03740, .06469, + .45995, .17727, .39097, .04006, .02183, + .01060, .03680, .06345 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45472, .17465, .37840, .03935, .02160, + .01066, .03621, .06223, + .44954, .17206, .36632, .03864, .02136, + .01068, .03562, .06105, + .44470, .16965, .35525, .03799, .02113, + .01071, .03507, .05996, + .44003, .16736, .34498, .03737, .02090, + .01071, .03454, .05892, + .43540, .16509, .33497, .03675, .02067, + .01071, .03401, .05790 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .67464, .30454, .80047, .05124, .00150, + -.00001, .04008, .10279, + .66929, .29906, .81793, .05159, .00254, + -.00001, .04089, .10144, + .66064, .29112, .82748, .05181, .00395, + -.00001, .04173, .09926, + .65400, .28545, .82574, .05178, .00488, + -.00001, .04213, .09758, + .64676, .27961, .81764, .05157, .00582, + -.00002, .04237, .09574, + .64035, .27467, .80678, .05126, .00662, + -.00001, .04244, .09411, + .63408, .27003, .79382, .05086, .00739, + -.00002, .04241, .09251, + .62722, .26514, .77703, .05032, .00823, + -.00001, .04227, .09071 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62116, .26095, .76098, .04978, .00899, + -.00001, .04206, .08911, + .61529, .25699, .74486, .04921, .00975, + -.00002, .04180, .08755, + .61055, .25387, .73116, .04869, .01037, + -.00002, .04155, .08628, + .60041, .24734, .70119, .04749, .01173, + -.00001, .04093, .08353, + .59159, .24184, .67455, .04637, .01292, + .00029, .04029, .08114, + .58169, .23584, .64454, .04506, .01418, + .00122, .03951, .07848, + .57136, .22975, .61343, .04370, .01533, + .00234, .03866, .07578, + .56197, .22435, .58560, .04248, .01618, + .00317, .03786, .07341 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55252, .21903, .55815, .04131, .01682, + .00390, .03704, .07112, + .54472, .21468, .53594, .04036, .01720, + .00444, .03638, .06930, + .53520, .20955, .50965, .03926, .01749, + .00499, .03558, .06713, + .52685, .20510, .48725, .03831, .01763, + .00541, .03487, .06530, + .51929, .20111, .46753, .03748, .01769, + .00577, .03423, .06370, + .50968, .19613, .44331, .03644, .01765, + .00613, .03340, .06171, + .50071, .19156, .42154, .03549, .01755, + .00643, .03263, .05990, + .49243, .18738, .40212, .03461, .01741, + .00667, .03192, .05826 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48426, .18329, .38356, .03374, .01723, + .00685, .03122, .05667, + .47625, .17936, .36611, .03291, .01703, + .00700, .03052, .05514, + .46881, .17575, .35042, .03215, .01683, + .00712, .02987, .05374, + .46179, .17239, .33619, .03144, .01664, + .00721, .02927, .05242, + .45485, .16908, .32254, .03074, .01643, + .00728, .02867, .05114, + .44809, .16588, .30965, .03005, .01621, + .00733, .02808, .04991, + .44174, .16290, .29792, .02940, .01600, + .00736, .02753, .04878, + .43578, .16012, .28724, .02880, .01579, + .00738, .02702, .04772 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42984, .15737, .27691, .02821, .01557, + .00740, .02650, .04668, + .42398, .15469, .26708, .02764, .01536, + .00739, .02600, .04566, + .41850, .15220, .25810, .02711, .01516, + .00739, .02554, .04471, + .41326, .14985, .24983, .02661, .01496, + .00737, .02509, .04383, + .40807, .14753, .24180, .02612, .01476, + .00736, .02464, .04297 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70312, .30280, .78015, .04060, .00141, + -.00002, .03332, .08730, + .69426, .29598, .78299, .04082, .00237, + -.00001, .03387, .08572, + .68079, .28623, .77408, .04085, .00360, + -.00002, .03436, .08328, + .67087, .27937, .76102, .04069, .00441, + -.00002, .03453, .08145, + .66038, .27241, .74285, .04040, .00520, + -.00001, .03455, .07949, + .65132, .26659, .72463, .04005, .00585, + -.00001, .03447, .07777, + .64265, .26115, .70565, .03964, .00647, + -.00002, .03432, .07611, + .63335, .25546, .68362, .03910, .00711, + -.00002, .03406, .07432 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62526, .25063, .66381, .03857, .00768, + -.00002, .03377, .07274, + .61752, .24609, .64462, .03801, .00825, + -.00002, .03346, .07122, + .61136, .24254, .62897, .03753, .00870, + -.00002, .03317, .07000, + .59832, .23516, .59577, .03645, .00969, + -.00001, .03249, .06741, + .58717, .22901, .56739, .03545, .01052, + .00023, .03184, .06519, + .57481, .22236, .53639, .03432, .01138, + .00092, .03107, .06275, + .56212, .21564, .50517, .03314, .01215, + .00175, .03024, .06029, + .55074, .20972, .47788, .03209, .01269, + .00238, .02949, .05815 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53938, .20396, .45147, .03108, .01309, + .00291, .02873, .05608, + .53007, .19931, .43048, .03028, .01330, + .00329, .02811, .05443, + .51888, .19379, .40606, .02934, .01343, + .00369, .02736, .05252, + .50912, .18905, .38552, .02854, .01347, + .00399, .02671, .05089, + .50033, .18483, .36763, .02784, .01345, + .00424, .02613, .04945, + .48931, .17958, .34596, .02696, .01335, + .00448, .02538, .04770, + .47911, .17479, .32673, .02613, .01321, + .00468, .02469, .04612, + .46973, .17044, .30975, .02538, .01305, + .00483, .02405, .04470 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46048, .16621, .29368, .02467, .01286, + .00497, .02343, .04332, + .45151, .16217, .27877, .02399, .01266, + .00505, .02283, .04199, + .44321, .15846, .26546, .02337, .01247, + .00511, .02228, .04077, + .43546, .15503, .25348, .02279, .01228, + .00515, .02177, .03965, + .42783, .15167, .24208, .02222, .01209, + .00519, .02125, .03856, + .42041, .14842, .23139, .02167, .01189, + .00522, .02076, .03752, + .41348, .14541, .22173, .02116, .01170, + .00523, .02029, .03656, + .40699, .14261, .21298, .02067, .01151, + .00523, .01985, .03568 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40056, .13986, .20456, .02019, .01133, + .00522, .01942, .03482, + .39425, .13718, .19660, .01974, .01114, + .00520, .01901, .03398, + .38838, .13468, .18936, .01932, .01096, + .00519, .01862, .03320, + .38280, .13234, .18274, .01891, .01079, + .00517, .01825, .03247, + .37728, .13004, .17633, .01851, .01062, + .00514, .01789, .03175 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .72039, .29584, .75622, .03176, .00130, + -.00002, .02734, .07301, + .70813, .28792, .74607, .03190, .00216, + -.00001, .02770, .07135, + .69001, .27673, .72143, .03184, .00325, + -.00002, .02796, .06884, + .67699, .26895, .69912, .03164, .00393, + -.00003, .02799, .06701, + .66348, .26109, .67305, .03133, .00458, + -.00001, .02789, .06507, + .65199, .25458, .64930, .03097, .00510, + .00000, .02772, .06341, + .64114, .24851, .62600, .03055, .00558, + .00000, .02750, .06183, + .62964, .24224, .60046, .03004, .00608, + -.00002, .02718, .06015 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61974, .23696, .57823, .02956, .00650, + -.00002, .02687, .05866, + .61034, .23201, .55718, .02908, .00691, + .00000, .02655, .05723, + .60291, .22815, .54045, .02865, .00724, + -.00001, .02625, .05613, + .58733, .22021, .50583, .02772, .00793, + -.00002, .02558, .05377, + .57416, .21363, .47707, .02686, .00851, + .00015, .02497, .05178, + .55976, .20654, .44639, .02589, .00909, + .00070, .02425, .04962, + .54506, .19948, .41616, .02492, .00960, + .00134, .02349, .04744, + .53199, .19331, .39023, .02405, .00993, + .00179, .02281, .04556 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51911, .18728, .36554, .02320, .01015, + .00219, .02213, .04378, + .50861, .18244, .34618, .02255, .01026, + .00248, .02156, .04235, + .49610, .17675, .32397, .02175, .01031, + .00275, .02090, .04069, + .48526, .17189, .30553, .02108, .01029, + .00297, .02033, .03929, + .47555, .16758, .28963, .02050, .01022, + .00315, .01982, .03806, + .46342, .16227, .27061, .01978, .01009, + .00330, .01917, .03656, + .45226, .15743, .25389, .01913, .00992, + .00343, .01858, .03521, + .44207, .15305, .23928, .01854, .00976, + .00353, .01804, .03400 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43208, .14881, .22560, .01797, .00958, + .00361, .01751, .03284, + .42249, .14477, .21301, .01741, .00941, + .00366, .01701, .03173, + .41366, .14107, .20185, .01689, .00924, + .00370, .01654, .03071, + .40542, .13768, .19190, .01642, .00906, + .00372, .01611, .02978, + .39733, .13437, .18247, .01597, .00889, + .00373, .01568, .02888, + .38952, .13119, .17369, .01553, .00872, + .00373, .01527, .02803, + .38222, .12824, .16580, .01512, .00856, + .00373, .01489, .02723, + .37541, .12553, .15870, .01475, .00839, + .00372, .01454, .02650 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36869, .12285, .15191, .01439, .00824, + .00371, .01419, .02578, + .36214, .12024, .14553, .01403, .00808, + .00369, .01385, .02510, + .35606, .11782, .13974, .01370, .00794, + .00367, .01354, .02448, + .35029, .11556, .13446, .01339, .00780, + .00364, .01324, .02389, + .34460, .11333, .12937, .01308, .00766, + .00362, .01295, .02332 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72711, .28470, .72641, .02450, .00118, + .00005, .02216, .06014, + .71164, .27595, .70519, .02462, .00194, + .00005, .02239, .05850, + .68928, .26365, .66774, .02453, .00285, + .00004, .02247, .05610, + .67345, .25518, .63827, .02433, .00342, + .00003, .02240, .05438, + .65721, .24672, .60637, .02402, .00394, + .00004, .02223, .05257, + .64355, .23973, .57879, .02370, .00435, + .00004, .02202, .05102, + .63073, .23330, .55267, .02335, .00472, + .00003, .02176, .04956, + .61730, .22667, .52502, .02289, .00510, + .00004, .02143, .04802 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60584, .22110, .50156, .02247, .00541, + .00003, .02112, .04670, + .59502, .21590, .47971, .02205, .00571, + .00003, .02079, .04544, + .58651, .21189, .46269, .02171, .00594, + .00002, .02052, .04443, + .56882, .20363, .42811, .02094, .00640, + .00003, .01990, .04235, + .55401, .19682, .40000, .02023, .00679, + .00017, .01934, .04063, + .53794, .18952, .37058, .01944, .00717, + .00056, .01870, .03877, + .52170, .18229, .34211, .01863, .00749, + .00102, .01804, .03691, + .50734, .17603, .31809, .01793, .00770, + .00136, .01744, .03531 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49325, .16996, .29556, .01726, .00781, + .00164, .01685, .03379, + .48190, .16508, .27809, .01670, .00785, + .00182, .01639, .03256, + .46839, .15940, .25827, .01609, .00782, + .00203, .01581, .03117, + .45679, .15455, .24201, .01555, .00775, + .00218, .01533, .03000, + .44647, .15027, .22812, .01505, .00768, + .00230, .01490, .02898, + .43362, .14499, .21169, .01447, .00755, + .00241, .01435, .02773, + .42185, .14024, .19740, .01395, .00739, + .00248, .01385, .02663, + .41114, .13595, .18500, .01347, .00724, + .00254, .01340, .02563 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40072, .13182, .17348, .01302, .00708, + .00259, .01297, .02465, + .39074, .12789, .16298, .01258, .00694, + .00262, .01256, .02374, + .38158, .12432, .15372, .01218, .00679, + .00264, .01219, .02291, + .37308, .12104, .14552, .01181, .00665, + .00265, .01183, .02216, + .36477, .11785, .13780, .01146, .00650, + .00265, .01149, .02144, + .35677, .11480, .13066, .01112, .00635, + .00264, .01115, .02074, + .34934, .11198, .12427, .01080, .00621, + .00263, .01085, .02011, + .34246, .10937, .11857, .01050, .00609, + .00262, .01056, .01953 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33567, .10681, .11313, .01021, .00596, + .00261, .01029, .01897, + .32906, .10435, .10804, .00993, .00583, + .00259, .01002, .01842, + .32292, .10207, .10343, .00968, .00571, + .00257, .00976, .01791, + .31713, .09993, .09928, .00944, .00559, + .00254, .00953, .01744, + .31142, .09783, .09528, .00922, .00548, + .00252, .00930, .01698 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .72377, .27060, .69005, .01889, .00094, + -.00018, .01754, .04879, + .70551, .26120, .65985, .01896, .00159, + -.00017, .01768, .04728, + .67941, .24814, .61250, .01883, .00238, + -.00014, .01769, .04507, + .66113, .23922, .57785, .01863, .00285, + -.00013, .01758, .04349, + .64256, .23037, .54207, .01835, .00328, + -.00014, .01740, .04186, + .62708, .22311, .51218, .01805, .00360, + -.00015, .01718, .04049, + .61268, .21641, .48454, .01772, .00388, + -.00016, .01694, .03921, + .59767, .20959, .45606, .01735, .00415, + -.00015, .01665, .03783 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58493, .20388, .43238, .01700, .00439, + -.00014, .01636, .03667, + .57296, .19857, .41061, .01664, .00461, + -.00013, .01606, .03557, + .56363, .19448, .39388, .01635, .00476, + -.00013, .01581, .03471, + .54429, .18610, .36038, .01572, .00507, + -.00013, .01527, .03294, + .52825, .17923, .33370, .01514, .00533, + -.00002, .01479, .03148, + .51090, .17195, .30620, .01450, .00558, + .00029, .01425, .02991, + .49349, .16476, .28002, .01386, .00577, + .00066, .01369, .02835, + .47824, .15855, .25825, .01330, .00588, + .00092, .01319, .02702 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46338, .15254, .23808, .01274, .00592, + .00114, .01270, .02576, + .45143, .14774, .22261, .01230, .00591, + .00128, .01230, .02478, + .43733, .14217, .20525, .01180, .00587, + .00143, .01184, .02361, + .42523, .13745, .19117, .01138, .00580, + .00154, .01143, .02265, + .41449, .13331, .17923, .01101, .00572, + .00162, .01106, .02183, + .40124, .12823, .16518, .01055, .00560, + .00170, .01062, .02081, + .38920, .12364, .15312, .01013, .00547, + .00176, .01022, .01990, + .37829, .11953, .14275, .00975, .00534, + .00180, .00986, .01909 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36766, .11558, .13318, .00940, .00520, + .00182, .00951, .01831, + .35757, .11185, .12451, .00905, .00507, + .00184, .00918, .01758, + .34834, .10845, .11692, .00873, .00495, + .00186, .00888, .01692, + .33980, .10535, .11025, .00845, .00483, + .00186, .00860, .01632, + .33147, .10234, .10400, .00818, .00471, + .00186, .00832, .01574, + .32348, .09947, .09824, .00792, .00459, + .00184, .00806, .01518, + .31608, .09682, .09313, .00768, .00448, + .00184, .00782, .01468, + .30923, .09438, .08859, .00746, .00437, + .00183, .00760, .01423 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30249, .09200, .08427, .00723, .00427, + .00182, .00738, .01380, + .29594, .08970, .08026, .00702, .00417, + .00180, .00717, .01338, + .28988, .08759, .07663, .00683, .00408, + .00178, .00698, .01300, + .28420, .08560, .07337, .00665, .00399, + .00177, .00680, .01263, + .27862, .08366, .07024, .00648, .00390, + .00175, .00663, .01227 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .71200, .25361, .64700, .01413, .00085, + -.00006, .01389, .03904, + .69123, .24386, .60996, .01419, .00140, + -.00005, .01396, .03767, + .66186, .23042, .55567, .01408, .00205, + -.00002, .01389, .03571, + .64151, .22130, .51776, .01391, .00241, + -.00002, .01375, .03433, + .62098, .21230, .47987, .01370, .00274, + -.00004, .01356, .03288, + .60398, .20496, .44901, .01347, .00299, + -.00005, .01334, .03168, + .58824, .19825, .42101, .01321, .00320, + -.00003, .01312, .03056, + .57199, .19140, .39272, .01290, .00338, + -.00003, .01284, .02941 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55828, .18568, .36956, .01260, .00355, + -.00002, .01257, .02843, + .54545, .18039, .34855, .01232, .00371, + -.00002, .01231, .02751, + .53546, .17633, .33263, .01210, .00380, + -.00002, .01209, .02679, + .51494, .16805, .30109, .01160, .00401, + -.00002, .01163, .02530, + .49799, .16128, .27635, .01113, .00418, + .00005, .01123, .02409, + .47980, .15415, .25124, .01063, .00432, + .00028, .01077, .02279, + .46165, .14715, .22768, .01014, .00442, + .00054, .01031, .02151, + .44586, .14111, .20833, .00969, .00447, + .00072, .00989, .02043 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43054, .13532, .19059, .00927, .00448, + .00087, .00948, .01940, + .41826, .13073, .17714, .00894, .00445, + .00097, .00916, .01860, + .40385, .12540, .16219, .00853, .00440, + .00107, .00878, .01767, + .39157, .12089, .15015, .00820, .00432, + .00114, .00845, .01691, + .38070, .11694, .14003, .00792, .00424, + .00119, .00816, .01625, + .36736, .11211, .12827, .00756, .00413, + .00124, .00781, .01544, + .35526, .10780, .11824, .00725, .00402, + .00128, .00749, .01469, + .34434, .10395, .10966, .00698, .00391, + .00130, .00721, .01403 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33378, .10024, .10181, .00672, .00379, + .00131, .00692, .01343, + .32376, .09675, .09476, .00644, .00368, + .00132, .00666, .01286, + .31462, .09360, .08861, .00620, .00358, + .00133, .00642, .01235, + .30622, .09072, .08323, .00598, .00348, + .00132, .00620, .01188, + .29805, .08793, .07823, .00577, .00338, + .00131, .00599, .01143, + .29023, .08528, .07365, .00557, .00330, + .00131, .00578, .01103, + .28301, .08284, .06960, .00538, .00321, + .00130, .00559, .01065, + .27634, .08060, .06600, .00522, .00312, + .00129, .00543, .01030 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26979, .07842, .06260, .00506, .00304, + .00128, .00527, .00995, + .26347, .07632, .05945, .00491, .00296, + .00126, .00511, .00961, + .25762, .07440, .05663, .00476, .00290, + .00125, .00496, .00931, + .25214, .07260, .05409, .00463, .00283, + .00123, .00482, .00903, + .24676, .07084, .05166, .00450, .00276, + .00121, .00468, .00876 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .69215, .23508, .59860, .01050, .00072, + -.00003, .01079, .03075, + .66932, .22521, .55685, .01056, .00117, + -.00005, .01082, .02954, + .63736, .21165, .49831, .01046, .00168, + -.00005, .01072, .02787, + .61537, .20254, .45884, .01034, .00198, + -.00004, .01059, .02665, + .59337, .19358, .42038, .01015, .00223, + -.00003, .01040, .02543, + .57528, .18627, .38968, .00994, .00241, + -.00004, .01020, .02445, + .55859, .17961, .36228, .00973, .00257, + -.00004, .00998, .02352, + .54143, .17290, .33508, .00951, .00272, + -.00002, .00974, .02253 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52705, .16731, .31308, .00927, .00282, + -.00002, .00952, .02172, + .51364, .16214, .29329, .00903, .00291, + -.00003, .00931, .02097, + .50326, .15819, .27846, .00885, .00298, + -.00003, .00912, .02037, + .48197, .15015, .24948, .00845, .00312, + -.00003, .00874, .01916, + .46449, .14363, .22707, .00810, .00321, + .00003, .00840, .01818, + .44585, .13677, .20459, .00772, .00329, + .00020, .00803, .01714, + .42735, .13008, .18378, .00735, .00334, + .00039, .00765, .01611, + .41133, .12434, .16688, .00702, .00334, + .00052, .00732, .01525 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39589, .11885, .15156, .00668, .00332, + .00062, .00699, .01445, + .38356, .11451, .14005, .00642, .00329, + .00070, .00673, .01380, + .36916, .10949, .12738, .00612, .00324, + .00077, .00643, .01307, + .35693, .10527, .11727, .00588, .00318, + .00082, .00617, .01245, + .34615, .10158, .10883, .00566, .00311, + .00086, .00595, .01192, + .33298, .09709, .09905, .00537, .00300, + .00089, .00567, .01130, + .32106, .09309, .09081, .00513, .00291, + .00091, .00541, .01074, + .31034, .08952, .08382, .00492, .00282, + .00093, .00518, .01023 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30004, .08611, .07746, .00472, .00273, + .00094, .00497, .00976, + .29030, .08290, .07177, .00451, .00264, + .00094, .00477, .00933, + .28144, .08000, .06684, .00433, .00256, + .00094, .00459, .00894, + .27331, .07737, .06257, .00418, .00248, + .00093, .00442, .00858, + .26542, .07483, .05860, .00404, .00241, + .00093, .00426, .00823, + .25788, .07243, .05498, .00390, .00234, + .00092, .00410, .00789, + .25095, .07022, .05179, .00377, .00227, + .00091, .00396, .00759, + .24457, .06819, .04899, .00364, .00221, + .00090, .00383, .00733 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23833, .06622, .04634, .00352, .00215, + .00089, .00371, .00708, + .23231, .06433, .04391, .00341, .00208, + .00087, .00358, .00682, + .22676, .06260, .04172, .00330, .00203, + .00086, .00347, .00659, + .22158, .06097, .03977, .00320, .00198, + .00085, .00337, .00639, + .21650, .05939, .03791, .00310, .00193, + .00084, .00327, .00620 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .66550, .21539, .54597, .00763, .00060, + .00000, .00829, .02389, + .64109, .20557, .50158, .00767, .00098, + .00002, .00829, .02287, + .60712, .19223, .44134, .00762, .00138, + .00000, .00818, .02141, + .58396, .18327, .40182, .00752, .00160, + .00001, .00804, .02043, + .56093, .17451, .36407, .00737, .00180, + .00001, .00787, .01941, + .54207, .16742, .33445, .00723, .00194, + .00000, .00770, .01856, + .52479, .16096, .30838, .00706, .00203, + -.00001, .00750, .01784, + .50708, .15449, .28289, .00689, .00214, + -.00001, .00731, .01701 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49232, .14911, .26249, .00671, .00221, + -.00001, .00713, .01636, + .47859, .14416, .24433, .00652, .00227, + -.00001, .00695, .01576, + .46798, .14038, .23085, .00639, .00231, + -.00001, .00680, .01528, + .44636, .13274, .20476, .00610, .00238, + .00000, .00648, .01431, + .42875, .12655, .18484, .00581, .00243, + .00005, .00622, .01354, + .41000, .12008, .16510, .00553, .00248, + .00017, .00592, .01271, + .39151, .11378, .14702, .00525, .00249, + .00031, .00561, .01191, + .37562, .10840, .13253, .00499, .00248, + .00040, .00534, .01124 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36034, .10328, .11953, .00474, .00246, + .00047, .00509, .01059, + .34818, .09926, .10983, .00453, .00242, + .00052, .00489, .01008, + .33404, .09461, .09924, .00432, .00236, + .00057, .00465, .00952, + .32207, .09072, .09086, .00414, .00231, + .00060, .00445, .00905, + .31155, .08734, .08392, .00399, .00225, + .00062, .00428, .00863, + .29875, .08323, .07595, .00378, .00216, + .00065, .00407, .00814, + .28724, .07956, .06926, .00359, .00209, + .00066, .00387, .00772, + .27693, .07631, .06362, .00343, .00201, + .00066, .00370, .00735 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26702, .07323, .05853, .00328, .00195, + .00067, .00354, .00699, + .25769, .07032, .05401, .00314, .00188, + .00067, .00338, .00666, + .24924, .06770, .05011, .00302, .00181, + .00066, .00324, .00636, + .24150, .06533, .04676, .00291, .00176, + .00065, .00311, .00608, + .23402, .06306, .04366, .00280, .00170, + .00065, .00299, .00581, + .22690, .06090, .04083, .00269, .00165, + .00064, .00288, .00558, + .22036, .05893, .03836, .00259, .00160, + .00063, .00277, .00535, + .21436, .05713, .03619, .00251, .00155, + .00062, .00268, .00514 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20850, .05538, .03415, .00243, .00150, + .00061, .00259, .00495, + .20286, .05369, .03227, .00234, .00146, + .00061, .00249, .00478, + .19766, .05214, .03059, .00227, .00142, + .00060, .00241, .00462, + .19286, .05071, .02911, .00218, .00137, + .00059, .00234, .00447, + .18815, .04932, .02769, .00210, .00133, + .00058, .00227, .00432 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .63299, .19516, .49077, .00541, .00052, + .00007, .00630, .01826, + .60742, .18563, .44551, .00545, .00080, + .00007, .00628, .01742, + .57219, .17266, .38571, .00542, .00113, + .00006, .00618, .01619, + .54832, .16402, .34739, .00534, .00130, + .00006, .00605, .01539, + .52469, .15563, .31141, .00526, .00143, + .00006, .00589, .01456, + .50542, .14886, .28360, .00517, .00153, + .00006, .00574, .01388, + .48786, .14273, .25944, .00503, .00161, + .00007, .00559, .01329, + .46994, .13658, .23605, .00490, .00167, + .00005, .00543, .01264 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45507, .13148, .21757, .00477, .00171, + .00005, .00527, .01212, + .44131, .12680, .20126, .00463, .00174, + .00004, .00512, .01165, + .43072, .12324, .18925, .00452, .00177, + .00005, .00500, .01128, + .40918, .11608, .16625, .00430, .00181, + .00006, .00476, .01052, + .39169, .11031, .14888, .00410, .00183, + .00007, .00454, .00992, + .37323, .10429, .13186, .00387, .00184, + .00015, .00430, .00928, + .35510, .09846, .11646, .00367, .00184, + .00025, .00406, .00866, + .33953, .09351, .10424, .00350, .00182, + .00031, .00386, .00814 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32463, .08882, .09337, .00332, .00178, + .00035, .00367, .00764, + .31286, .08514, .08531, .00315, .00175, + .00039, .00351, .00728, + .29919, .08091, .07660, .00300, .00171, + .00043, .00333, .00683, + .28769, .07736, .06976, .00286, .00166, + .00045, .00318, .00647, + .27764, .07428, .06412, .00273, .00161, + .00046, .00304, .00618, + .26539, .07057, .05771, .00259, .00155, + .00048, .00288, .00580, + .25444, .06729, .05238, .00247, .00149, + .00048, .00274, .00547, + .24466, .06437, .04791, .00236, .00143, + .00048, .00261, .00518 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23531, .06160, .04388, .00225, .00138, + .00047, .00248, .00492, + .22650, .05903, .04033, .00215, .00132, + .00047, .00236, .00467, + .21853, .05671, .03728, .00207, .00127, + .00046, .00226, .00444, + .21128, .05461, .03468, .00199, .00123, + .00045, .00217, .00425, + .20430, .05258, .03227, .00191, .00119, + .00045, .00208, .00407, + .19770, .05067, .03010, .00182, .00115, + .00045, .00200, .00390, + .19163, .04893, .02820, .00175, .00111, + .00045, .00192, .00374, + .18606, .04735, .02654, .00168, .00107, + .00044, .00185, .00358 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18063, .04582, .02499, .00162, .00104, + .00043, .00179, .00343, + .17542, .04435, .02356, .00157, .00100, + .00042, .00172, .00331, + .17063, .04301, .02228, .00151, .00097, + .00042, .00166, .00320, + .16620, .04176, .02116, .00146, .00094, + .00041, .00160, .00310, + .16187, .04054, .02009, .00141, .00091, + .00040, .00155, .00300 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .59562, .17504, .43481, .00387, .00038, + .00002, .00466, .01371, + .56947, .16588, .39023, .00390, .00061, + .00001, .00462, .01303, + .53359, .15352, .33267, .00389, .00086, + .00001, .00452, .01205, + .50944, .14531, .29650, .00381, .00098, + .00001, .00442, .01142, + .48569, .13736, .26306, .00372, .00108, + .00002, .00429, .01078, + .46640, .13099, .23758, .00364, .00115, + .00002, .00418, .01025, + .44887, .12524, .21567, .00356, .00119, + .00002, .00405, .00977, + .43112, .11947, .19475, .00344, .00124, + .00001, .00392, .00929 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41636, .11475, .17836, .00335, .00128, + .00001, .00380, .00888, + .40274, .11042, .16399, .00327, .00131, + .00001, .00369, .00849, + .39235, .10712, .15348, .00319, .00131, + .00001, .00360, .00820, + .37129, .10051, .13352, .00300, .00133, + .00001, .00340, .00763, + .35424, .09521, .11866, .00286, .00134, + .00003, .00324, .00715, + .33630, .08969, .10426, .00271, .00134, + .00010, .00306, .00667, + .31880, .08437, .09135, .00256, .00132, + .00016, .00288, .00620, + .30385, .07987, .08118, .00242, .00130, + .00021, .00272, .00580 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28959, .07562, .07223, .00229, .00127, + .00024, .00258, .00543, + .27837, .07229, .06567, .00217, .00124, + .00027, .00247, .00516, + .26534, .06851, .05862, .00208, .00120, + .00031, .00234, .00482, + .25444, .06534, .05312, .00198, .00116, + .00032, .00222, .00455, + .24495, .06259, .04861, .00189, .00112, + .00032, .00212, .00433, + .23339, .05929, .04351, .00180, .00108, + .00033, .00200, .00405, + .22314, .05636, .03930, .00169, .00103, + .00032, .00188, .00382, + .21402, .05379, .03579, .00160, .00099, + .00032, .00178, .00362 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20529, .05137, .03265, .00154, .00094, + .00033, .00170, .00342, + .19712, .04909, .02990, .00147, .00091, + .00032, .00162, .00324, + .18975, .04704, .02755, .00141, .00088, + .00032, .00155, .00308, + .18309, .04520, .02554, .00134, .00084, + .00032, .00149, .00293, + .17668, .04344, .02369, .00128, .00081, + .00031, .00143, .00279, + .17060, .04177, .02204, .00122, .00078, + .00031, .00136, .00267, + .16503, .04026, .02060, .00117, .00075, + .00030, .00130, .00255, + .15992, .03889, .01934, .00114, .00072, + .00029, .00125, .00245 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15497, .03756, .01817, .00110, .00070, + .00028, .00119, .00235, + .15024, .03629, .01710, .00106, .00067, + .00028, .00115, .00226, + .14591, .03513, .01615, .00101, .00065, + .00028, .00111, .00218, + .14187, .03406, .01531, .00098, .00063, + .00027, .00107, .00209, + .13793, .03301, .01451, .00095, .00061, + .00027, .00103, .00202 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .55457, .15523, .37936, .00268, .00031, + .00003, .00340, .01011, + .52824, .14658, .33682, .00271, .00048, + .00004, .00337, .00957, + .49238, .13498, .28289, .00270, .00063, + .00003, .00327, .00884, + .46835, .12734, .24961, .00268, .00072, + .00003, .00318, .00831, + .44483, .11996, .21928, .00264, .00079, + .00003, .00308, .00780, + .42587, .11405, .19644, .00257, .00084, + .00003, .00299, .00739, + .40870, .10873, .17702, .00250, .00088, + .00002, .00289, .00703, + .39132, .10346, .15863, .00243, .00089, + .00002, .00278, .00666 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37699, .09912, .14436, .00236, .00091, + .00002, .00269, .00636, + .36380, .09514, .13195, .00229, .00092, + .00002, .00260, .00608, + .35371, .09213, .12296, .00224, .00093, + .00003, .00253, .00586, + .33337, .08611, .10599, .00213, .00093, + .00003, .00238, .00542, + .31701, .08132, .09350, .00201, .00093, + .00004, .00226, .00507, + .29987, .07635, .08150, .00190, .00092, + .00007, .00212, .00473, + .28324, .07157, .07085, .00178, .00091, + .00012, .00198, .00438, + .26908, .06754, .06255, .00168, .00089, + .00014, .00187, .00407 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25562, .06375, .05530, .00161, .00087, + .00016, .00178, .00379, + .24508, .06079, .05003, .00152, .00084, + .00019, .00168, .00360, + .23290, .05743, .04439, .00144, .00081, + .00019, .00158, .00335, + .22275, .05463, .04003, .00137, .00078, + .00020, .00150, .00315, + .21393, .05221, .03648, .00130, .00076, + .00021, .00143, .00298, + .20320, .04931, .03248, .00124, .00072, + .00020, .00135, .00280, + .19374, .04674, .02920, .00116, .00069, + .00020, .00127, .00263, + .18535, .04449, .02648, .00109, .00066, + .00020, .00120, .00248 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17733, .04238, .02407, .00104, .00063, + .00020, .00113, .00234, + .16987, .04040, .02196, .00099, .00060, + .00021, .00108, .00221, + .16316, .03862, .02017, .00094, .00057, + .00020, .00104, .00210, + .15705, .03704, .01865, .00091, .00055, + .00020, .00099, .00200, + .15120, .03552, .01726, .00088, .00053, + .00019, .00094, .00190, + .14570, .03409, .01601, .00084, .00051, + .00019, .00090, .00181, + .14066, .03280, .01493, .00080, .00049, + .00019, .00086, .00173, + .13606, .03162, .01399, .00078, .00047, + .00019, .00082, .00166 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13161, .03049, .01311, .00075, .00046, + .00018, .00078, .00158, + .12737, .02941, .01232, .00072, .00044, + .00017, .00075, .00150, + .12349, .02842, .01161, .00069, .00042, + .00016, .00073, .00143, + .11988, .02751, .01099, .00066, .00041, + .00016, .00070, .00138, + .11636, .02663, .01040, .00064, .00039, + .00016, .00067, .00134 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .51084, .13603, .32569, .00178, .00026, + .00006, .00247, .00732, + .48479, .12799, .28610, .00180, .00037, + .00006, .00244, .00691, + .44948, .11726, .23681, .00180, .00049, + .00005, .00235, .00635, + .42596, .11023, .20687, .00180, .00055, + .00005, .00227, .00596, + .40308, .10346, .17998, .00176, .00060, + .00005, .00220, .00556, + .38471, .09807, .15995, .00170, .00063, + .00003, .00212, .00525, + .36812, .09323, .14305, .00164, .00065, + .00003, .00204, .00499, + .35140, .08843, .12723, .00161, .00066, + .00003, .00197, .00469 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33766, .08451, .11507, .00154, .00067, + .00003, .00191, .00447, + .32506, .08093, .10458, .00148, .00068, + .00004, .00184, .00426, + .31546, .07822, .09703, .00145, .00068, + .00004, .00178, .00412, + .29610, .07282, .08288, .00141, .00067, + .00003, .00167, .00377, + .28061, .06854, .07255, .00133, .00067, + .00004, .00158, .00352, + .26450, .06412, .06274, .00124, .00067, + .00007, .00149, .00326, + .24890, .05989, .05413, .00117, .00065, + .00010, .00139, .00301, + .23566, .05633, .04747, .00110, .00064, + .00011, .00131, .00279 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22315, .05301, .04170, .00104, .00062, + .00012, .00122, .00259, + .21333, .05042, .03753, .00101, .00059, + .00014, .00117, .00244, + .20211, .04748, .03312, .00094, .00057, + .00014, .00109, .00228, + .19278, .04504, .02972, .00088, .00054, + .00015, .00103, .00216, + .18469, .04293, .02696, .00082, .00052, + .00015, .00098, .00205, + .17496, .04042, .02389, .00075, .00049, + .00016, .00092, .00191, + .16628, .03822, .02139, .00073, .00047, + .00015, .00086, .00178, + .15861, .03629, .01933, .00071, .00045, + .00015, .00081, .00167 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15138, .03446, .01750, .00067, .00044, + .00015, .00077, .00157, + .14465, .03278, .01591, .00063, .00042, + .00015, .00073, .00147, + .13860, .03127, .01457, .00060, .00040, + .00015, .00070, .00139, + .13316, .02991, .01343, .00057, .00037, + .00015, .00066, .00133, + .12793, .02862, .01240, .00054, .00036, + .00014, .00063, .00126, + .12300, .02741, .01147, .00052, .00035, + .00014, .00060, .00120, + .11851, .02632, .01068, .00049, .00033, + .00013, .00057, .00114, + .11443, .02533, .00998, .00047, .00032, + .00013, .00055, .00108 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11048, .02437, .00934, .00045, .00031, + .00013, .00052, .00103, + .10671, .02346, .00876, .00044, .00030, + .00012, .00050, .00099, + .10326, .02264, .00824, .00043, .00029, + .00012, .00048, .00096, + .10009, .02189, .00779, .00041, .00027, + .00012, .00046, .00092, + .09700, .02115, .00736, .00039, .00026, + .00012, .00044, .00088 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .46537, .11786, .27509, .00117, .00018, + .00005, .00174, .00524, + .43999, .11050, .23911, .00119, .00027, + .00005, .00171, .00488, + .40580, .10069, .19510, .00116, .00036, + .00003, .00165, .00446, + .38318, .09430, .16878, .00113, .00041, + .00003, .00160, .00418, + .36125, .08817, .14541, .00110, .00045, + .00003, .00154, .00388, + .34365, .08332, .12822, .00109, .00048, + .00003, .00149, .00364, + .32785, .07898, .11385, .00105, .00049, + .00004, .00144, .00345, + .31205, .07469, .10050, .00102, .00050, + .00003, .00138, .00323 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29907, .07119, .09034, .00098, .00050, + .00003, .00133, .00306, + .28717, .06802, .08162, .00095, .00050, + .00003, .00128, .00292, + .27812, .06561, .07538, .00093, .00050, + .00003, .00124, .00281, + .26005, .06084, .06383, .00087, .00050, + .00003, .00116, .00259, + .24562, .05707, .05549, .00082, .00049, + .00003, .00110, .00240, + .23066, .05320, .04762, .00077, .00048, + .00006, .00103, .00220, + .21624, .04952, .04076, .00072, .00046, + .00007, .00096, .00201, + .20407, .04643, .03552, .00067, .00045, + .00009, .00090, .00187 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19261, .04353, .03102, .00062, .00043, + .00010, .00084, .00175, + .18367, .04129, .02778, .00058, .00042, + .00010, .00080, .00165, + .17344, .03875, .02438, .00056, .00040, + .00011, .00074, .00154, + .16495, .03666, .02177, .00053, .00038, + .00011, .00070, .00143, + .15762, .03487, .01967, .00051, .00037, + .00012, .00067, .00134, + .14883, .03273, .01735, .00047, .00035, + .00012, .00063, .00124, + .14106, .03085, .01546, .00043, .00033, + .00012, .00059, .00117, + .13422, .02921, .01392, .00041, .00031, + .00012, .00055, .00111 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12774, .02767, .01256, .00039, .00029, + .00012, .00052, .00104, + .12175, .02626, .01138, .00037, .00028, + .00012, .00049, .00097, + .11639, .02500, .01039, .00035, .00027, + .00011, .00047, .00091, + .11156, .02386, .00956, .00033, .00026, + .00011, .00044, .00086, + .10694, .02278, .00880, .00032, .00025, + .00011, .00042, .00081, + .10259, .02177, .00813, .00031, .00024, + .00011, .00040, .00077, + .09865, .02086, .00754, .00030, .00023, + .00011, .00038, .00073, + .09508, .02003, .00704, .00029, .00022, + .00011, .00037, .00070 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09162, .01924, .00657, .00027, .00021, + .00010, .00035, .00067, + .08833, .01850, .00615, .00026, .00020, + .00010, .00034, .00064, + .08533, .01782, .00578, .00025, .00020, + .00010, .00033, .00061, + .08258, .01719, .00546, .00023, .00019, + .00009, .00031, .00058, + .07990, .01658, .00515, .00022, .00018, + .00009, .00030, .00056 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .41926, .10103, .22870, .00085, .00008, + -.00003, .00114, .00363, + .39493, .09439, .19681, .00085, .00015, + -.00003, .00112, .00339, + .36233, .08558, .15843, .00083, .00021, + -.00003, .00108, .00308, + .34084, .07986, .13581, .00083, .00024, + -.00001, .00104, .00288, + .32015, .07441, .11593, .00081, .00027, + -.00001, .00100, .00267, + .30364, .07012, .10144, .00078, .00028, + -.00002, .00096, .00250, + .28883, .06631, .08947, .00076, .00028, + -.00002, .00092, .00235, + .27408, .06250, .07843, .00074, .00030, + -.00001, .00088, .00219 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .26199, .05942, .07011, .00073, .00030, + -.00001, .00084, .00207, + .25097, .05664, .06302, .00070, .00030, + -.00001, .00081, .00197, + .24265, .05454, .05796, .00067, .00030, + -.00001, .00079, .00189, + .22598, .05039, .04865, .00062, .00030, + -.00001, .00073, .00172, + .21274, .04711, .04200, .00059, .00029, + .00000, .00068, .00160, + .19905, .04376, .03578, .00055, .00028, + .00000, .00063, .00147, + .18592, .04058, .03042, .00052, .00027, + .00002, .00059, .00135, + .17488, .03793, .02635, .00048, .00026, + .00004, .00055, .00126 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16451, .03546, .02288, .00046, .00025, + .00004, .00052, .00117, + .15646, .03356, .02039, .00044, .00024, + .00004, .00048, .00109, + .14731, .03141, .01781, .00041, .00023, + .00005, .00045, .00101, + .13973, .02964, .01584, .00039, .00022, + .00005, .00043, .00094, + .13320, .02811, .01425, .00036, .00021, + .00005, .00040, .00089, + .12537, .02631, .01252, .00035, .00020, + .00006, .00037, .00082, + .11849, .02474, .01112, .00032, .00019, + .00005, .00035, .00076, + .11246, .02337, .00997, .00030, .00017, + .00005, .00032, .00071 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10677, .02208, .00897, .00029, .00016, + .00005, .00031, .00066, + .10150, .02090, .00811, .00028, .00016, + .00005, .00029, .00062, + .09679, .01985, .00738, .00027, .00015, + .00005, .00028, .00058, + .09257, .01891, .00677, .00025, .00014, + .00005, .00026, .00055, + .08855, .01802, .00622, .00024, .00013, + .00005, .00025, .00052, + .08479, .01718, .00573, .00023, .00013, + .00005, .00023, .00049, + .08137, .01643, .00531, .00022, .00012, + .00005, .00022, .00046, + .07827, .01576, .00495, .00021, .00012, + .00005, .00021, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07528, .01511, .00462, .00020, .00012, + .00005, .00020, .00042, + .07245, .01450, .00432, .00019, .00011, + .00004, .00019, .00040, + .06987, .01394, .00405, .00019, .00010, + .00004, .00018, .00038, + .06749, .01343, .00382, .00018, .00010, + .00004, .00017, .00037, + .06519, .01294, .00360, .00018, .00009, + .00004, .00016, .00036 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .37306, .08521, .18631, .00046, .00009, + .00004, .00081, .00246, + .35005, .07932, .15879, .00048, .00014, + .00003, .00079, .00228, + .31947, .07156, .12606, .00046, .00017, + .00004, .00075, .00206, + .29941, .06654, .10707, .00047, .00018, + .00004, .00072, .00191, + .28013, .06177, .09057, .00047, .00019, + .00003, .00069, .00176, + .26483, .05802, .07864, .00045, .00020, + .00003, .00065, .00165, + .25114, .05469, .06888, .00044, .00020, + .00004, .00063, .00156, + .23755, .05143, .05997, .00045, .00021, + .00004, .00059, .00144 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22650, .04878, .05327, .00043, .00021, + .00003, .00056, .00136, + .21644, .04638, .04761, .00040, .00021, + .00002, .00054, .00128, + .20884, .04458, .04361, .00040, .00021, + .00002, .00051, .00123, + .19371, .04102, .03630, .00036, .00020, + .00002, .00049, .00113, + .18170, .03823, .03112, .00036, .00020, + .00002, .00045, .00104, + .16937, .03538, .02632, .00034, .00019, + .00003, .00042, .00096, + .15762, .03269, .02222, .00031, .00018, + .00004, .00038, .00088, + .14777, .03046, .01913, .00029, .00017, + .00004, .00036, .00081 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13854, .02838, .01651, .00027, .00016, + .00004, .00033, .00074, + .13141, .02679, .01465, .00026, .00016, + .00005, .00032, .00069, + .12332, .02498, .01273, .00025, .00015, + .00005, .00029, .00064, + .11664, .02351, .01127, .00023, .00014, + .00005, .00027, .00060, + .11089, .02225, .01011, .00022, .00014, + .00005, .00025, .00057, + .10407, .02076, .00884, .00020, .00013, + .00004, .00024, .00051, + .09806, .01946, .00782, .00020, .00012, + .00004, .00022, .00047, + .09279, .01833, .00699, .00019, .00011, + .00004, .00021, .00044 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08786, .01728, .00627, .00018, .00010, + .00004, .00019, .00041, + .08331, .01631, .00565, .00017, .00010, + .00004, .00018, .00039, + .07926, .01545, .00513, .00016, .00010, + .00004, .00017, .00037, + .07564, .01469, .00470, .00015, .00009, + .00004, .00016, .00034, + .07219, .01396, .00431, .00014, .00009, + .00003, .00016, .00032, + .06896, .01329, .00396, .00014, .00008, + .00003, .00015, .00030, + .06605, .01269, .00367, .00013, .00007, + .00003, .00014, .00029, + .06343, .01214, .00341, .00011, .00007, + .00003, .00013, .00028 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06090, .01162, .00318, .00011, .00006, + .00003, .00012, .00026, + .05848, .01113, .00296, .00011, .00006, + .00003, .00011, .00025, + .05629, .01068, .00278, .00012, .00006, + .00003, .00011, .00024, + .05429, .01027, .00261, .00011, .00006, + .00003, .00010, .00023, + .05236, .00988, .00246, .00011, .00006, + .00003, .00010, .00021 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .32775, .07094, .14890, .00023, .00009, + .00006, .00055, .00164, + .30638, .06579, .12568, .00024, .00011, + .00006, .00053, .00151, + .27806, .05904, .09841, .00025, .00012, + .00005, .00050, .00134, + .25959, .05470, .08280, .00026, .00013, + .00005, .00048, .00123, + .24193, .05058, .06939, .00025, .00014, + .00004, .00045, .00114, + .22797, .04735, .05981, .00024, .00014, + .00004, .00043, .00107, + .21552, .04451, .05202, .00025, .00014, + .00002, .00041, .00101, + .20328, .04171, .04498, .00023, .00015, + .00004, .00039, .00093 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .19328, .03946, .03972, .00023, .00015, + .00004, .00038, .00086, + .18420, .03742, .03529, .00023, .00014, + .00003, .00036, .00081, + .17739, .03589, .03219, .00022, .00014, + .00003, .00034, .00078, + .16384, .03289, .02657, .00020, .00014, + .00003, .00031, .00073, + .15316, .03055, .02262, .00019, .00014, + .00003, .00029, .00066, + .14222, .02817, .01899, .00019, .00013, + .00004, .00027, .00059, + .13182, .02593, .01592, .00017, .00012, + .00003, .00025, .00055, + .12316, .02407, .01362, .00016, .00011, + .00003, .00023, .00050 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11509, .02236, .01169, .00015, .00011, + .00003, .00021, .00045, + .10884, .02104, .01033, .00015, .00011, + .00004, .00020, .00042, + .10181, .01957, .00893, .00013, .00010, + .00004, .00019, .00039, + .09601, .01836, .00788, .00012, .00009, + .00003, .00018, .00037, + .09103, .01733, .00704, .00012, .00008, + .00003, .00017, .00034, + .08513, .01612, .00613, .00013, .00008, + .00004, .00016, .00030, + .07998, .01507, .00540, .00012, .00008, + .00003, .00014, .00028, + .07549, .01415, .00481, .00011, .00007, + .00003, .00013, .00026 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07127, .01330, .00430, .00010, .00007, + .00003, .00012, .00024, + .06741, .01252, .00387, .00009, .00006, + .00003, .00011, .00023, + .06398, .01183, .00351, .00008, .00006, + .00003, .00011, .00023, + .06092, .01122, .00320, .00007, .00006, + .00003, .00010, .00021, + .05801, .01065, .00293, .00007, .00005, + .00003, .00009, .00020, + .05529, .01011, .00269, .00007, .00005, + .00003, .00009, .00019, + .05284, .00963, .00249, .00007, .00005, + .00003, .00008, .00018, + .05063, .00920, .00231, .00007, .00005, + .00003, .00008, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04851, .00878, .00215, .00007, .00004, + .00002, .00007, .00015, + .04652, .00840, .00200, .00006, .00004, + .00002, .00007, .00014, + .04471, .00804, .00187, .00005, .00004, + .00002, .00007, .00014, + .04303, .00772, .00176, .00006, .00004, + .00002, .00007, .00013, + .04141, .00741, .00165, .00006, .00004, + .00002, .00006, .00013 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .28421, .05829, .11677, .00019, .00003, + .00001, .00033, .00105, + .26466, .05386, .09760, .00018, .00004, + .00000, .00031, .00097, + .23888, .04807, .07541, .00017, .00005, + .00000, .00030, .00087, + .22214, .04437, .06288, .00019, .00006, + .00001, .00028, .00079, + .20620, .04088, .05222, .00020, .00007, + .00002, .00026, .00071, + .19369, .03815, .04467, .00019, .00008, + .00001, .00025, .00066, + .18260, .03575, .03858, .00015, .00007, + .00000, .00023, .00064, + .17160, .03340, .03313, .00018, .00007, + .00000, .00021, .00058 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .16274, .03151, .02910, .00017, .00007, + .00001, .00021, .00055, + .15473, .02981, .02573, .00015, .00007, + .00001, .00020, .00051, + .14870, .02854, .02337, .00014, .00007, + .00000, .00019, .00049, + .13676, .02605, .01912, .00014, .00007, + .00000, .00017, .00044, + .12742, .02412, .01618, .00012, .00007, + .00000, .00016, .00041, + .11787, .02215, .01349, .00012, .00006, + .00001, .00015, .00037, + .10881, .02031, .01123, .00012, .00006, + .00001, .00014, .00033, + .10130, .01880, .00956, .00012, .00006, + .00001, .00013, .00031 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09434, .01740, .00816, .00011, .00005, + .00002, .00012, .00028, + .08899, .01633, .00718, .00010, .00005, + .00002, .00011, .00027, + .08296, .01513, .00618, .00010, .00005, + .00002, .00010, .00023, + .07801, .01416, .00543, .00009, .00004, + .00002, .00009, .00021, + .07378, .01333, .00484, .00009, .00004, + .00002, .00008, .00020, + .06877, .01236, .00420, .00008, .00004, + .00001, .00008, .00019, + .06440, .01152, .00369, .00007, .00004, + .00001, .00007, .00018, + .06062, .01079, .00328, .00007, .00003, + .00001, .00007, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05711, .01011, .00292, .00006, .00003, + .00001, .00006, .00015, + .05385, .00950, .00262, .00006, .00003, + .00001, .00006, .00014, + .05097, .00895, .00237, .00006, .00003, + .00001, .00006, .00013, + .04841, .00847, .00216, .00006, .00003, + .00001, .00005, .00012, + .04599, .00802, .00197, .00006, .00003, + .00001, .00005, .00012, + .04375, .00760, .00181, .00005, .00002, + .00001, .00005, .00011, + .04173, .00722, .00167, .00005, .00002, + .00001, .00004, .00010, + .03991, .00688, .00155, .00004, .00002, + .00001, .00004, .00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03816, .00656, .00144, .00004, .00002, + .00001, .00004, .00010, + .03651, .00626, .00134, .00004, .00002, + .00001, .00004, .00009, + .03501, .00599, .00125, .00004, .00002, + .00001, .00004, .00008, + .03366, .00574, .00117, .00004, .00002, + .00001, .00003, .00008, + .03235, .00550, .00110, .00003, .00002, + .00001, .00003, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .24262, .04695, .08929, .00004, .00005, + .00005, .00024, .00065, + .22497, .04320, .07387, .00006, .00005, + .00003, .00021, .00060, + .20187, .03836, .05633, .00008, .00005, + .00004, .00019, .00052, + .18704, .03526, .04653, .00007, .00005, + .00004, .00018, .00048, + .17296, .03235, .03829, .00006, .00005, + .00003, .00017, .00043, + .16189, .03010, .03250, .00006, .00005, + .00003, .00016, .00040, + .15210, .02812, .02788, .00007, .00006, + .00003, .00015, .00038, + .14249, .02619, .02377, .00007, .00005, + .00002, .00013, .00034 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13475, .02464, .02074, .00006, .00005, + .00002, .00013, .00032, + .12776, .02325, .01823, .00005, .00006, + .00003, .00013, .00030, + .12251, .02221, .01649, .00006, .00005, + .00003, .00013, .00028, + .11219, .02018, .01339, .00006, .00005, + .00002, .00012, .00025, + .10412, .01861, .01125, .00006, .00005, + .00002, .00011, .00024, + .09592, .01703, .00932, .00005, .00004, + .00002, .00010, .00022, + .08821, .01555, .00771, .00005, .00004, + .00002, .00009, .00019, + .08183, .01434, .00652, .00005, .00003, + .00002, .00008, .00017 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07593, .01323, .00554, .00004, .00003, + .00002, .00007, .00016, + .07141, .01238, .00485, .00004, .00003, + .00002, .00007, .00015, + .06633, .01143, .00416, .00004, .00003, + .00002, .00006, .00013, + .06218, .01067, .00364, .00004, .00003, + .00002, .00006, .00012, + .05865, .01001, .00323, .00003, .00003, + .00001, .00005, .00011, + .05449, .00925, .00279, .00003, .00002, + .00002, .00005, .00011, + .05086, .00859, .00245, .00004, .00002, + .00001, .00004, .00010, + .04772, .00803, .00217, .00004, .00002, + .00001, .00004, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04482, .00750, .00193, .00003, .00002, + .00001, .00004, .00009, + .04216, .00703, .00172, .00003, .00002, + .00001, .00004, .00008, + .03981, .00661, .00156, .00003, .00002, + .00001, .00004, .00007, + .03772, .00624, .00142, .00002, .00002, + .00001, .00003, .00007, + .03574, .00589, .00129, .00002, .00002, + .00001, .00003, .00007, + .03391, .00557, .00118, .00002, .00002, + .00001, .00003, .00006, + .03227, .00528, .00109, .00002, .00001, + .00001, .00003, .00006, + .03079, .00502, .00101, .00002, .00001, + .00001, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .02938, .00478, .00094, .00002, .00001, + .00001, .00003, .00005, + .02806, .00455, .00087, .00002, .00001, + .00001, .00002, .00005, + .02686, .00434, .00081, .00002, .00001, + .00001, .00002, .00005, + .02577, .00415, .00076, .00002, .00001, + .00001, .00002, .00004, + .02472, .00397, .00072, .00002, .00001, + .00001, .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)/ + .16838, .02892, .04846, .00002, .00000, + .00000, .00006, .00024, + .15481, .02640, .03932, .00004, .00001, + .00000, .00006, .00020, + .13729, .02315, .02915, .00002, .00001, + .00000, .00006, .00017, + .12611, .02111, .02363, .00002, .00001, + .00000, .00005, .00016, + .11562, .01921, .01908, .00002, .00001, + .00000, .00004, .00015, + .10745, .01774, .01595, .00001, .00001, + .00000, .00004, .00014, + .10029, .01646, .01349, .00002, .00001, + .00000, .00004, .00013, + .09330, .01523, .01135, .00002, .00001, + .00000, .00004, .00010 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08770, .01424, .00979, .00002, .00001, + .00000, .00004, .00009, + .08267, .01337, .00852, .00002, .00001, + .00000, .00004, .00009, + .07894, .01271, .00765, .00002, .00001, + .00000, .00004, .00010, + .07164, .01145, .00610, .00001, .00001, + .00000, .00003, .00009, + .06598, .01048, .00506, .00002, .00001, + .00000, .00003, .00007, + .06028, .00951, .00413, .00002, .00001, + .00000, .00003, .00006, + .05495, .00861, .00338, .00002, .00001, + .00000, .00003, .00006, + .05059, .00788, .00283, .00001, .00001, + .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)/ + .04659, .00722, .00238, .00001, .00001, + .00000, .00002, .00005, + .04355, .00671, .00207, .00001, .00001, + .00000, .00002, .00004, + .04017, .00615, .00176, .00001, .00001, + .00000, .00002, .00004, + .03741, .00570, .00153, .00001, .00001, + .00000, .00002, .00004, + .03508, .00533, .00135, .00001, .00001, + .00000, .00002, .00004, + .03236, .00488, .00116, .00000, .00001, + .00001, .00001, .00004, + .03002, .00451, .00101, .00000, .00001, + .00001, .00001, .00003, + .02800, .00418, .00089, .00000, .00001, + .00001, .00001, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02613, .00389, .00079, .00001, .00001, + .00000, .00001, .00002, + .02443, .00362, .00070, .00000, .00001, + .00000, .00001, .00002, + .02294, .00339, .00063, .00000, .00000, + .00000, .00001, .00002, + .02162, .00318, .00057, .00001, .00000, + .00000, .00001, .00002, + .02039, .00299, .00052, .00001, .00000, + .00000, .00001, .00002, + .01925, .00281, .00048, .00000, .00000, + .00000, .00001, .00002, + .01823, .00265, .00044, .00000, .00000, + .00000, .00001, .00001, + .01732, .00251, .00040, .00000, .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)/ + .01646, .00238, .00037, .00000, .00000, + .00000, .00001, .00001, + .01565, .00226, .00035, .00000, .00000, + .00000, .00001, .00001, + .01492, .00214, .00032, .00000, .00000, + .00000, .00001, .00001, + .01426, .00204, .00030, .00000, .00000, + .00000, .00001, .00001, + .01363, .00195, .00028, .00000, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .10767, .01621, .02318, .00001, -.00001, + -.00001, .00001, .00007, + .09810, .01466, .01842, .00002, -.00001, + -.00001, .00001, .00006, + .08588, .01270, .01328, .00000, .00000, + .00000, .00001, .00005, + .07817, .01147, .01056, .00000, .00000, + .00000, .00001, .00005, + .07101, .01035, .00836, .00000, .00000, + .00000, .00001, .00004, + .06549, .00949, .00689, .00000, .00000, + -.00001, .00000, .00003, + .06069, .00874, .00575, .00000, .00000, + .00000, .00001, .00003, + .05603, .00803, .00476, .00001, .00000, + .00000, .00001, .00003 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05233, .00746, .00407, .00001, .00000, + .00000, .00001, .00003, + .04903, .00695, .00350, .00000, .00000, + .00000, .00001, .00003, + .04660, .00658, .00312, .00000, .00000, + .00000, .00001, .00002, + .04187, .00587, .00245, .00000, .00000, + .00000, .00001, .00002, + .03824, .00533, .00200, .00000, .00000, + .00000, .00001, .00002, + .03462, .00479, .00162, .00000, .00000, + .00000, .00001, .00002, + .03128, .00430, .00131, .00000, .00000, + .00000, .00000, .00002, + .02856, .00390, .00108, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02608, .00355, .00090, .00000, .00000, + .00000, .00000, .00001, + .02422, .00328, .00078, .00000, .00000, + .00000, .00000, .00001, + .02215, .00298, .00066, .00000, .00000, + .00000, .00000, .00001, + .02049, .00274, .00057, .00000, .00000, + .00000, .00000, .00001, + .01910, .00255, .00050, .00000, .00000, + .00000, .00000, .00001, + .01748, .00232, .00043, .00000, .00000, + .00000, .00000, .00001, + .01610, .00212, .00037, .00000, .00000, + .00000, .00000, .00001, + .01491, .00196, .00033, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01383, .00181, .00029, .00000, .00000, + .00000, .00000, .00000, + .01285, .00167, .00026, .00000, .00000, + .00000, .00000, .00000, + .01199, .00156, .00023, .00000, .00000, + .00000, .00000, .00000, + .01124, .00145, .00021, .00000, .00000, + .00000, .00000, .00000, + .01054, .00136, .00019, .00000, .00000, + .00000, .00000, .00000, + .00990, .00127, .00017, .00000, .00000, + .00000, .00000, .00000, + .00933, .00119, .00016, .00000, .00000, + .00000, .00000, .00000, + .00882, .00113, .00015, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00834, .00106, .00013, .00000, .00000, + .00000, .00000, .00000, + .00790, .00100, .00013, .00000, .00000, + .00000, .00000, .00000, + .00750, .00095, .00012, .00000, .00000, + .00000, .00000, .00000, + .00713, .00090, .00011, .00000, .00000, + .00000, .00000, .00000, + .00679, .00085, .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)/ + .06184, .00801, .00938, .00001, -.00001, + -.00001, .00000, .00001, + .05579, .00718, .00729, .00000, -.00001, + -.00001, .00000, .00001, + .04812, .00613, .00511, .00001, -.00001, + -.00001, .00000, .00001, + .04336, .00548, .00398, .00000, -.00001, + -.00001, .00000, .00001, + .03898, .00490, .00309, .00000, .00000, + .00000, .00000, .00001, + .03564, .00445, .00250, .00000, -.00001, + .00000, .00000, .00001, + .03276, .00407, .00206, .00000, -.00001, + .00000, .00000, .00001, + .02999, .00370, .00168, .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=9,16)/ + .02781, .00342, .00142, .00000, .00000, + .00000, .00000, .00000, + .02588, .00317, .00121, .00000, .00000, + .00000, .00000, .00001, + .02447, .00298, .00107, .00000, .00000, + .00000, .00000, .00001, + .02174, .00263, .00083, .00000, .00000, + .00000, .00000, .00000, + .01967, .00237, .00067, .00000, .00000, + .00000, .00000, .00000, + .01763, .00211, .00053, .00000, .00000, + .00000, .00000, .00000, + .01576, .00187, .00043, .00000, .00000, + .00000, .00000, .00000, + .01426, .00168, .00035, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01290, .00151, .00029, .00000, .00000, + .00000, .00000, .00000, + .01190, .00139, .00025, .00000, .00000, + .00000, .00000, .00000, + .01078, .00125, .00021, .00000, .00000, + .00000, .00000, .00000, + .00990, .00114, .00018, .00000, .00000, + .00000, .00000, .00000, + .00916, .00105, .00016, .00000, .00000, + .00000, .00000, .00000, + .00831, .00095, .00014, .00000, .00000, + .00000, .00000, .00000, + .00759, .00087, .00012, .00000, .00000, + .00000, .00000, .00000, + .00698, .00079, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00642, .00073, .00009, .00000, .00000, + .00000, .00000, .00000, + .00593, .00067, .00008, .00000, .00000, + .00000, .00000, .00000, + .00550, .00062, .00007, .00000, .00000, + .00000, .00000, .00000, + .00512, .00057, .00007, .00000, .00000, + .00000, .00000, .00000, + .00477, .00053, .00006, .00000, .00000, + .00000, .00000, .00000, + .00445, .00049, .00005, .00000, .00000, + .00000, .00000, .00000, + .00417, .00046, .00005, .00000, .00000, + .00000, .00000, .00000, + .00393, .00043, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00369, .00041, .00004, .00000, .00000, + .00000, .00000, .00000, + .00348, .00038, .00004, .00000, .00000, + .00000, .00000, .00000, + .00328, .00036, .00004, .00000, .00000, + .00000, .00000, .00000, + .00311, .00034, .00003, .00000, .00000, + .00000, .00000, .00000, + .00295, .00032, .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)/ + .03040, .00330, .00298, -.00001, .00000, + .00000, .00000, .00000, + .02710, .00292, .00226, .00000, .00000, + .00000, .00000, .00000, + .02299, .00245, .00154, .00000, .00000, + .00000, .00000, .00000, + .02047, .00217, .00117, .00000, .00000, + .00000, .00000, .00000, + .01818, .00191, .00089, .00000, .00000, + .00000, .00000, .00000, + .01646, .00172, .00071, .00000, .00000, + .00000, .00000, .00000, + .01499, .00156, .00058, .00000, .00000, + .00000, .00000, .00000, + .01359, .00141, .00046, .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)/ + .01250, .00129, .00039, .00000, .00000, + .00000, .00000, .00000, + .01154, .00118, .00033, .00000, .00000, + .00000, .00000, .00000, + .01084, .00111, .00029, .00000, .00000, + .00000, .00000, .00000, + .00951, .00097, .00022, .00000, .00000, + .00000, .00000, .00000, + .00851, .00086, .00018, .00000, .00000, + .00000, .00000, .00000, + .00754, .00076, .00014, .00000, .00000, + .00000, .00000, .00000, + .00666, .00066, .00011, .00000, .00000, + .00000, .00000, .00000, + .00596, .00059, .00009, .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)/ + .00533, .00053, .00007, .00000, .00000, + .00000, .00000, .00000, + .00487, .00048, .00006, .00000, .00000, + .00000, .00000, .00000, + .00437, .00043, .00005, .00000, .00000, + .00000, .00000, .00000, + .00398, .00039, .00005, .00000, .00000, + .00000, .00000, .00000, + .00365, .00035, .00004, .00000, .00000, + .00000, .00000, .00000, + .00328, .00032, .00003, .00000, .00000, + .00000, .00000, .00000, + .00297, .00028, .00003, .00000, .00000, + .00000, .00000, .00000, + .00270, .00026, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00247, .00023, .00002, .00000, .00000, + .00000, .00000, .00000, + .00226, .00021, .00002, .00000, .00000, + .00000, .00000, .00000, + .00208, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00192, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00178, .00017, .00002, .00000, .00000, + .00000, .00000, .00000, + .00165, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00153, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00143, .00013, .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)/ + .00134, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00125, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00118, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00111, .00010, .00001, .00000, .00000, + .00000, .00000, .00000, + .00104, .00010, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00299, .00019, .00007, .00000, .00000, + .00000, .00000, .00000, + .00258, .00017, .00005, .00000, .00000, + .00000, .00000, .00000, + .00208, .00013, .00003, .00000, .00000, + .00000, .00000, .00000, + .00179, .00011, .00003, .00000, .00000, + .00000, .00000, .00000, + .00154, .00010, .00002, .00000, .00000, + .00000, .00000, .00000, + .00135, .00008, .00001, .00000, .00000, + .00000, .00000, .00000, + .00120, .00007, .00001, .00000, .00000, + .00000, .00000, .00000, + .00106, .00007, .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)/ + .00095, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00086, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00079, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00067, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00058, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00050, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00037, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00032, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00028, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .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, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5, . 1D-4,2D-4,4D-4,6D-4,8D-4, . 1D-3,2D-3,4D-3,6D-3,8D-3, . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2, . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, . .8D0,.9D0,1D0/ DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1, . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2, . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4, . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6, . 1.8D6,3.2D6,5.6D6,1D7/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/ DATA N0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ SAVE XSAVE=X Q2SAVE=QSQ IF(INIT.NE.0) GOTO 10 C OPEN(UNIT=1,FILE='MRSR2.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