real FUNCTION  f3nc00h100(xin,q2in)
***********************************************************
c  parametrization of f3-nc  from a fit to dis data
c  available for :  0.000057 <= x <=  0.906052  and 
c         
c                        1.500 <= q2 <=   35000.000
c*                                                 
c   for q2 or x outside limits, the closest        
c  limit is assumed : f2(x>xmax,q2)=f2(xmax,q2)    
c                     f2(x<xmin,q2)=f2(xmin,q2)    
c                     f2(x,q2>q2max)=f2(x,q2max)   
c                     f2(x,q2<q2min)=f2(x,q2min)   
c*                                                 
c  input : x and q2                                
c  comments, etc... to c. pascaud or f. zomer      
***************************************************
      parameter(n_bin_q2= 86)
      parameter(n_bin_x=100)
      parameter(cm_s=0.9012000E+06)
      dimension xl_bin(n_bin_x),q2l_bin(n_bin_q2) 
      dimension f(n_bin_x,n_bin_q2)               
      logical first                                                     
      data first/.true./                                                
      real fgd1(n_bin_x),fgd2(n_bin_x),fgd3(n_bin_x),fgd4(n_bin_x),     
     & fgd5(n_bin_x),fgd6(n_bin_x),fgd7(n_bin_x),fgd8(n_bin_x),         
     & fgd9(n_bin_x),fgd10(n_bin_x),fgd11(n_bin_x),fgd12(n_bin_x),      
     & fgd13(n_bin_x),fgd14(n_bin_x),fgd15(n_bin_x),fgd16(n_bin_x),     
     & fgd17(n_bin_x),fgd18(n_bin_x),fgd19(n_bin_x),fgd20(n_bin_x),     
     & fgd21(n_bin_x),fgd22(n_bin_x),fgd23(n_bin_x),fgd24(n_bin_x),     
     & fgd25(n_bin_x),fgd26(n_bin_x),fgd27(n_bin_x),fgd28(n_bin_x),     
     & fgd29(n_bin_x),fgd30(n_bin_x),fgd31(n_bin_x),fgd32(n_bin_x),     
     & fgd33(n_bin_x),fgd34(n_bin_x),fgd35(n_bin_x),fgd36(n_bin_x),     
     & fgd37(n_bin_x),fgd38(n_bin_x),fgd39(n_bin_x),fgd40(n_bin_x),     
     & fgd41(n_bin_x),fgd42(n_bin_x),fgd43(n_bin_x),fgd44(n_bin_x),     
     & fgd45(n_bin_x),fgd46(n_bin_x),fgd47(n_bin_x),fgd48(n_bin_x),     
     & fgd49(n_bin_x),fgd50(n_bin_x),fgd51(n_bin_x),fgd52(n_bin_x),     
     & fgd53(n_bin_x),fgd54(n_bin_x),fgd55(n_bin_x),fgd56(n_bin_x),     
     & fgd57(n_bin_x),fgd58(n_bin_x),fgd59(n_bin_x),fgd60(n_bin_x),     
     & fgd61(n_bin_x),fgd62(n_bin_x),fgd63(n_bin_x),fgd64(n_bin_x),     
     & fgd65(n_bin_x),fgd66(n_bin_x),fgd67(n_bin_x),fgd68(n_bin_x),     
     & fgd69(n_bin_x),fgd70(n_bin_x),fgd71(n_bin_x),fgd72(n_bin_x),     
     & fgd73(n_bin_x),fgd74(n_bin_x),fgd75(n_bin_x),fgd76(n_bin_x),     
     & fgd77(n_bin_x),fgd78(n_bin_x),fgd79(n_bin_x),fgd80(n_bin_x),     
     & fgd81(n_bin_x),fgd82(n_bin_x),fgd83(n_bin_x),fgd84(n_bin_x),     
     & fgd85(n_bin_x),fgd86(n_bin_x)                                    
      data xl_bin/                                                      
     &-.9767210E+01,-.9668551E+01,-.9569893E+01,-.9471234E+01,          
     &-.9372575E+01,-.9273917E+01,-.9175258E+01,-.9076599E+01,          
     &-.8977940E+01,-.8879282E+01,-.8780623E+01,-.8681964E+01,          
     &-.8583306E+01,-.8484647E+01,-.8385988E+01,-.8287330E+01,          
     &-.8188671E+01,-.8090012E+01,-.7991354E+01,-.7892695E+01,          
     &-.7794036E+01,-.7695378E+01,-.7596719E+01,-.7498060E+01,          
     &-.7399401E+01,-.7300743E+01,-.7202084E+01,-.7103425E+01,          
     &-.7004767E+01,-.6906108E+01,-.6807449E+01,-.6708791E+01,          
     &-.6610132E+01,-.6511473E+01,-.6412815E+01,-.6314156E+01,          
     &-.6215497E+01,-.6116839E+01,-.6018180E+01,-.5919521E+01,          
     &-.5820862E+01,-.5722204E+01,-.5623545E+01,-.5524886E+01,          
     &-.5426228E+01,-.5327569E+01,-.5228910E+01,-.5130252E+01,          
     &-.5031593E+01,-.4932934E+01,-.4834276E+01,-.4735617E+01,          
     &-.4636958E+01,-.4538300E+01,-.4439641E+01,-.4340982E+01,          
     &-.4242324E+01,-.4143665E+01,-.4045006E+01,-.3946347E+01,          
     &-.3847689E+01,-.3749030E+01,-.3650371E+01,-.3551713E+01,          
     &-.3453054E+01,-.3354395E+01,-.3255737E+01,-.3157078E+01,          
     &-.3058419E+01,-.2959761E+01,-.2861102E+01,-.2762443E+01,          
     &-.2663785E+01,-.2565126E+01,-.2466467E+01,-.2367808E+01,          
     &-.2269150E+01,-.2170491E+01,-.2071832E+01,-.1973174E+01,          
     &-.1874515E+01,-.1775856E+01,-.1677198E+01,-.1578539E+01,          
     &-.1479880E+01,-.1381222E+01,-.1282563E+01,-.1183904E+01,          
     &-.1085246E+01,-.9865869E+00,-.8879282E+00,-.7892695E+00,          
     &-.6906108E+00,-.5919521E+00,-.4932934E+00,-.3946347E+00,          
     &-.2959761E+00,-.1973174E+00,-.9865869E-01,0.0000000E+00/          
      data q2l_bin/                                                     
     &  0.15000E+01,  0.16000E+01,  0.17000E+01,  0.18000E+01,          
     &  0.19000E+01,  0.19599E+01,  0.19600E+01,  0.19601E+01,          
     &  0.20000E+01,  0.21000E+01,  0.22000E+01,  0.23000E+01,          
     &  0.24000E+01,  0.25000E+01,  0.30000E+01,  0.35000E+01,          
     &  0.40000E+01,  0.45000E+01,  0.50000E+01,  0.60000E+01,          
     &  0.70000E+01,  0.80000E+01,  0.90000E+01,  0.10000E+02,          
     &  0.15000E+02,  0.20000E+02,  0.20249E+02,  0.20250E+02,          
     &  0.20251E+02,  0.25000E+02,  0.30000E+02,  0.35000E+02,          
     &  0.40000E+02,  0.45000E+02,  0.50000E+02,  0.55000E+02,          
     &  0.60000E+02,  0.65000E+02,  0.70000E+02,  0.75000E+02,          
     &  0.80000E+02,  0.85000E+02,  0.90000E+02,  0.95000E+02,          
     &  0.10000E+03,  0.15000E+03,  0.20000E+03,  0.25000E+03,          
     &  0.30000E+03,  0.35000E+03,  0.40000E+03,  0.45000E+03,          
     &  0.50000E+03,  0.55000E+03,  0.60000E+03,  0.65000E+03,          
     &  0.70000E+03,  0.75000E+03,  0.80000E+03,  0.85000E+03,          
     &  0.90000E+03,  0.95000E+03,  0.10000E+04,  0.15000E+04,          
     &  0.20000E+04,  0.25000E+04,  0.30000E+04,  0.35000E+04,          
     &  0.40000E+04,  0.45000E+04,  0.50000E+04,  0.55000E+04,          
     &  0.60000E+04,  0.65000E+04,  0.70000E+04,  0.75000E+04,          
     &  0.80000E+04,  0.85000E+04,  0.90000E+04,  0.95000E+04,          
     &  0.10000E+05,  0.15000E+05,  0.20000E+05,  0.25000E+05,          
     &  0.30000E+05,  0.35000E+05/                                      
      data fgd1/                                                        
     &0.3920586E-06,0.4213640E-06,0.4527998E-06,0.4865153E-06,          
     &0.5226696E-06,0.5614328E-06,0.6029858E-06,0.6475218E-06,          
     &0.6952467E-06,0.7463797E-06,0.8011544E-06,0.8598196E-06,          
     &0.9226401E-06,0.9898978E-06,0.1061893E-05,0.1138944E-05,          
     &0.1221392E-05,0.1309596E-05,0.1403941E-05,0.1504836E-05,          
     &0.1612713E-05,0.1728033E-05,0.1851286E-05,0.1982991E-05,          
     &0.2123701E-05,0.2274001E-05,0.2434513E-05,0.2605897E-05,          
     &0.2788854E-05,0.2984126E-05,0.3192501E-05,0.3414815E-05,          
     &0.3651954E-05,0.3904858E-05,0.4174522E-05,0.4462001E-05,          
     &0.4768416E-05,0.5094951E-05,0.5442861E-05,0.5813476E-05,          
     &0.6208205E-05,0.6628538E-05,0.7076052E-05,0.7552417E-05,          
     &0.8059395E-05,0.8598850E-05,0.9172750E-05,0.9783166E-05,          
     &0.1043229E-04,0.1112241E-04,0.1185594E-04,0.1263540E-04,          
     &0.1346344E-04,0.1434279E-04,0.1527628E-04,0.1626686E-04,          
     &0.1731749E-04,0.1843122E-04,0.1961107E-04,0.2086004E-04,          
     &0.2218102E-04,0.2357673E-04,0.2504963E-04,0.2660178E-04,          
     &0.2823473E-04,0.2994934E-04,0.3174558E-04,0.3362227E-04,          
     &0.3557686E-04,0.3760510E-04,0.3970071E-04,0.4185502E-04,          
     &0.4405663E-04,0.4629102E-04,0.4854023E-04,0.5078255E-04,          
     &0.5299223E-04,0.5513934E-04,0.5718959E-04,0.5910412E-04,          
     &0.6083922E-04,0.6234584E-04,0.6356870E-04,0.6444502E-04,          
     &0.6490308E-04,0.6486109E-04,0.6422780E-04,0.6290659E-04,          
     &0.6080538E-04,0.5785359E-04,0.5402374E-04,0.4928016E-04,          
     &0.4359490E-04,0.3736550E-04,0.3091095E-04,0.2450250E-04,          
     &0.1843169E-04,0.1317111E-04,0.8694731E-05,0.0000000E+00/          
      data fgd2/                                                        
     &0.4256994E-06,0.4574356E-06,0.4914743E-06,0.5279765E-06,          
     &0.5671143E-06,0.6090711E-06,0.6540422E-06,0.7022363E-06,          
     &0.7538757E-06,0.8091972E-06,0.8684530E-06,0.9319117E-06,          
     &0.9998596E-06,0.1072601E-05,0.1150460E-05,0.1233782E-05,          
     &0.1322934E-05,0.1418305E-05,0.1520312E-05,0.1629394E-05,          
     &0.1746021E-05,0.1870692E-05,0.2003935E-05,0.2146313E-05,          
     &0.2298424E-05,0.2460901E-05,0.2634418E-05,0.2819690E-05,          
     &0.3017474E-05,0.3228575E-05,0.3453848E-05,0.3694198E-05,          
     &0.3950584E-05,0.4224027E-05,0.4515603E-05,0.4826460E-05,          
     &0.5157809E-05,0.5510934E-05,0.5887198E-05,0.6288042E-05,          
     &0.6714992E-05,0.7169664E-05,0.7653766E-05,0.8169105E-05,          
     &0.8717589E-05,0.9301236E-05,0.9922170E-05,0.1058263E-04,          
     &0.1128497E-04,0.1203168E-04,0.1282534E-04,0.1366866E-04,          
     &0.1456447E-04,0.1551570E-04,0.1652538E-04,0.1759663E-04,          
     &0.1873260E-04,0.1993649E-04,0.2121149E-04,0.2256071E-04,          
     &0.2398716E-04,0.2549360E-04,0.2708251E-04,0.2875591E-04,          
     &0.3051523E-04,0.3236112E-04,0.3429325E-04,0.3631002E-04,          
     &0.3840833E-04,0.4058320E-04,0.4282748E-04,0.4513143E-04,          
     &0.4748237E-04,0.4986430E-04,0.5225753E-04,0.5463839E-04,          
     &0.5697895E-04,0.5924684E-04,0.6140507E-04,0.6341181E-04,          
     &0.6522013E-04,0.6677737E-04,0.6802424E-04,0.6889341E-04,          
     &0.6930795E-04,0.6918007E-04,0.6841169E-04,0.6689867E-04,          
     &0.6454128E-04,0.6126232E-04,0.5703096E-04,0.5188382E-04,          
     &0.4568018E-04,0.3888667E-04,0.3187586E-04,0.2497887E-04,          
     &0.1850008E-04,0.1297160E-04,0.8298351E-05,0.0000000E+00/          
      data fgd3/                                                        
     &0.4597477E-06,0.4939420E-06,0.5306126E-06,0.5699326E-06,          
     &0.6120869E-06,0.6572726E-06,0.7056994E-06,0.7575917E-06,          
     &0.8131884E-06,0.8727438E-06,0.9365291E-06,0.1004833E-05,          
     &0.1077963E-05,0.1156247E-05,0.1240033E-05,0.1329692E-05,          
     &0.1425619E-05,0.1528232E-05,0.1637980E-05,0.1755335E-05,          
     &0.1880804E-05,0.2014921E-05,0.2158257E-05,0.2311417E-05,          
     &0.2475044E-05,0.2649821E-05,0.2836474E-05,0.3035770E-05,          
     &0.3248529E-05,0.3475615E-05,0.3717950E-05,0.3976510E-05,          
     &0.4252328E-05,0.4546503E-05,0.4860198E-05,0.5194648E-05,          
     &0.5551158E-05,0.5931115E-05,0.6335986E-05,0.6767323E-05,          
     &0.7226772E-05,0.7716073E-05,0.8237066E-05,0.8791695E-05,          
     &0.9382014E-05,0.1001019E-04,0.1067851E-04,0.1138938E-04,          
     &0.1214532E-04,0.1294899E-04,0.1380315E-04,0.1471072E-04,          
     &0.1567470E-04,0.1669821E-04,0.1778446E-04,0.1893675E-04,          
     &0.2015842E-04,0.2145282E-04,0.2282329E-04,0.2427305E-04,          
     &0.2580521E-04,0.2742258E-04,0.2912764E-04,0.3092235E-04,          
     &0.3280802E-04,0.3478509E-04,0.3685289E-04,0.3900941E-04,          
     &0.4125097E-04,0.4357186E-04,0.4596405E-04,0.4841671E-04,          
     &0.5091588E-04,0.5344405E-04,0.5597980E-04,0.5849750E-04,          
     &0.6096702E-04,0.6335356E-04,0.6561742E-04,0.6771383E-04,          
     &0.6959260E-04,0.7119749E-04,0.7246520E-04,0.7332388E-04,          
     &0.7369141E-04,0.7347408E-04,0.7256706E-04,0.7085886E-04,          
     &0.6824233E-04,0.6463398E-04,0.6000005E-04,0.5438090E-04,          
     &0.4772788E-04,0.4037374E-04,0.3281269E-04,0.2543394E-04,          
     &0.1854795E-04,0.1276154E-04,0.8029127E-05,0.0000000E+00/          
      data fgd4/                                                        
     &0.4941778E-06,0.5308557E-06,0.5701855E-06,0.6123523E-06,          
     &0.6575540E-06,0.7060015E-06,0.7579191E-06,0.8135470E-06,          
     &0.8731407E-06,0.9369725E-06,0.1005333E-05,0.1078530E-05,          
     &0.1156894E-05,0.1240775E-05,0.1330545E-05,0.1426603E-05,          
     &0.1529370E-05,0.1639296E-05,0.1756859E-05,0.1882567E-05,          
     &0.2016961E-05,0.2160615E-05,0.2314139E-05,0.2478182E-05,          
     &0.2653433E-05,0.2840624E-05,0.3040532E-05,0.3253982E-05,          
     &0.3481851E-05,0.3725066E-05,0.3984616E-05,0.4261546E-05,          
     &0.4556967E-05,0.4872055E-05,0.5208059E-05,0.5566301E-05,          
     &0.5948185E-05,0.6355195E-05,0.6788905E-05,0.7250981E-05,          
     &0.7743186E-05,0.8267383E-05,0.8825547E-05,0.9419758E-05,          
     &0.1005221E-04,0.1072524E-04,0.1144127E-04,0.1220287E-04,          
     &0.1301275E-04,0.1387374E-04,0.1478877E-04,0.1576095E-04,          
     &0.1679345E-04,0.1788960E-04,0.1905278E-04,0.2028647E-04,          
     &0.2159417E-04,0.2297940E-04,0.2444562E-04,0.2599620E-04,          
     &0.2763429E-04,0.2936277E-04,0.3118411E-04,0.3310020E-04,          
     &0.3511222E-04,0.3722036E-04,0.3942366E-04,0.4171963E-04,          
     &0.4410401E-04,0.4657039E-04,0.4910980E-04,0.5171032E-04,          
     &0.5435670E-04,0.5702993E-04,0.5970684E-04,0.6235982E-04,          
     &0.6495657E-04,0.6745980E-04,0.6982715E-04,0.7201089E-04,          
     &0.7395757E-04,0.7560738E-04,0.7689302E-04,0.7773813E-04,          
     &0.7805545E-04,0.7774540E-04,0.7669652E-04,0.7479007E-04,          
     &0.7191171E-04,0.6797200E-04,0.6293463E-04,0.5684416E-04,          
     &0.4974166E-04,0.4183012E-04,0.3372431E-04,0.2587141E-04,          
     &0.1857737E-04,0.1254177E-04,0.7757916E-05,0.0000000E+00/          
      data fgd5/                                                        
     &0.5289670E-06,0.5681525E-06,0.6101670E-06,0.6552078E-06,          
     &0.7034860E-06,0.7552260E-06,0.8106674E-06,0.8700659E-06,          
     &0.9336940E-06,0.1001842E-05,0.1074819E-05,0.1152955E-05,          
     &0.1236600E-05,0.1326129E-05,0.1421939E-05,0.1524454E-05,          
     &0.1634123E-05,0.1751427E-05,0.1876875E-05,0.2011010E-05,          
     &0.2154407E-05,0.2307681E-05,0.2471482E-05,0.2646502E-05,          
     &0.2833478E-05,0.3033189E-05,0.3246466E-05,0.3474189E-05,          
     &0.3717294E-05,0.3976772E-05,0.4253679E-05,0.4549130E-05,          
     &0.4864311E-05,0.5200479E-05,0.5558968E-05,0.5941191E-05,          
     &0.6348644E-05,0.6782914E-05,0.7245681E-05,0.7738722E-05,          
     &0.8263920E-05,0.8823264E-05,0.9418857E-05,0.1005292E-04,          
     &0.1072780E-04,0.1144596E-04,0.1221000E-04,0.1302265E-04,          
     &0.1388679E-04,0.1480542E-04,0.1578165E-04,0.1681877E-04,          
     &0.1792014E-04,0.1908926E-04,0.2032970E-04,0.2164510E-04,          
     &0.2303915E-04,0.2451550E-04,0.2607776E-04,0.2772939E-04,          
     &0.2947363E-04,0.3131340E-04,0.3325114E-04,0.3528868E-04,          
     &0.3742703E-04,0.3966618E-04,0.4200479E-04,0.4443995E-04,          
     &0.4696679E-04,0.4957815E-04,0.5226415E-04,0.5501176E-04,          
     &0.5780443E-04,0.6062162E-04,0.6343843E-04,0.6622528E-04,          
     &0.6894764E-04,0.7156578E-04,0.7403464E-04,0.7630354E-04,          
     &0.7831578E-04,0.8000799E-04,0.8130886E-04,0.8213757E-04,          
     &0.8240175E-04,0.8199598E-04,0.8080222E-04,0.7869473E-04,          
     &0.7555211E-04,0.7127926E-04,0.6583771E-04,0.5927667E-04,          
     &0.5172458E-04,0.4325870E-04,0.3461315E-04,0.2629295E-04,          
     &0.1864048E-04,0.1231308E-04,0.7484561E-05,0.0000000E+00/          
      data fgd6/                                                        
     &0.5499700E-06,0.5906685E-06,0.6343027E-06,0.6810776E-06,          
     &0.7312116E-06,0.7849380E-06,0.8425051E-06,0.9041782E-06,          
     &0.9702400E-06,0.1040991E-05,0.1116754E-05,0.1197868E-05,          
     &0.1284699E-05,0.1377634E-05,0.1477086E-05,0.1583495E-05,          
     &0.1697327E-05,0.1819080E-05,0.1949283E-05,0.2088499E-05,          
     &0.2237326E-05,0.2396400E-05,0.2566397E-05,0.2748036E-05,          
     &0.2942079E-05,0.3149338E-05,0.3370674E-05,0.3607001E-05,          
     &0.3859290E-05,0.4128571E-05,0.4415938E-05,0.4722552E-05,          
     &0.5049641E-05,0.5398514E-05,0.5770552E-05,0.6167222E-05,          
     &0.6590080E-05,0.7040772E-05,0.7521042E-05,0.8032735E-05,          
     &0.8577804E-05,0.9158314E-05,0.9776446E-05,0.1043450E-04,          
     &0.1113492E-04,0.1188024E-04,0.1267318E-04,0.1351656E-04,          
     &0.1441334E-04,0.1536664E-04,0.1637968E-04,0.1745585E-04,          
     &0.1859862E-04,0.1981160E-04,0.2109847E-04,0.2246297E-04,          
     &0.2390889E-04,0.2543995E-04,0.2705986E-04,0.2877214E-04,          
     &0.3058006E-04,0.3248656E-04,0.3449408E-04,0.3660439E-04,          
     &0.3881842E-04,0.4113600E-04,0.4355559E-04,0.4607399E-04,          
     &0.4868599E-04,0.5138395E-04,0.5415746E-04,0.5699281E-04,          
     &0.5987267E-04,0.6277558E-04,0.6567559E-04,0.6854194E-04,          
     &0.7133875E-04,0.7402485E-04,0.7655354E-04,0.7887237E-04,          
     &0.8092271E-04,0.8263902E-04,0.8394765E-04,0.8476504E-04,          
     &0.8499580E-04,0.8453104E-04,0.8324885E-04,0.8101928E-04,          
     &0.7771685E-04,0.7324317E-04,0.6755865E-04,0.6071547E-04,          
     &0.5287470E-04,0.4409622E-04,0.3512893E-04,0.2653115E-04,          
     &0.1868078E-04,0.1216361E-04,0.7310694E-05,0.0000000E+00/          
      data fgd7/                                                        
     &0.5499940E-06,0.5906942E-06,0.6343304E-06,0.6811074E-06,          
     &0.7312437E-06,0.7849725E-06,0.8425422E-06,0.9042182E-06,          
     &0.9702828E-06,0.1041038E-05,0.1116803E-05,0.1197921E-05,          
     &0.1284756E-05,0.1377696E-05,0.1477153E-05,0.1583566E-05,          
     &0.1697403E-05,0.1819162E-05,0.1949371E-05,0.2088594E-05,          
     &0.2237427E-05,0.2396509E-05,0.2566514E-05,0.2748161E-05,          
     &0.2942214E-05,0.3149484E-05,0.3370830E-05,0.3607169E-05,          
     &0.3859470E-05,0.4128764E-05,0.4416146E-05,0.4722774E-05,          
     &0.5049880E-05,0.5398769E-05,0.5770826E-05,0.6167516E-05,          
     &0.6590396E-05,0.7041111E-05,0.7521405E-05,0.8033124E-05,          
     &0.8578221E-05,0.9158761E-05,0.9776925E-05,0.1043502E-04,          
     &0.1113547E-04,0.1188083E-04,0.1267381E-04,0.1351723E-04,          
     &0.1441406E-04,0.1536741E-04,0.1638051E-04,0.1745674E-04,          
     &0.1859957E-04,0.1981262E-04,0.2109956E-04,0.2246414E-04,          
     &0.2391013E-04,0.2544128E-04,0.2706128E-04,0.2877365E-04,          
     &0.3058167E-04,0.3248828E-04,0.3449591E-04,0.3660634E-04,          
     &0.3882050E-04,0.4113820E-04,0.4355793E-04,0.4607647E-04,          
     &0.4868861E-04,0.5138673E-04,0.5416038E-04,0.5699590E-04,          
     &0.5987592E-04,0.6277899E-04,0.6567915E-04,0.6854565E-04,          
     &0.7134262E-04,0.7402887E-04,0.7655769E-04,0.7887664E-04,          
     &0.8092709E-04,0.8264349E-04,0.8395217E-04,0.8476961E-04,          
     &0.8500037E-04,0.8453557E-04,0.8325330E-04,0.8102358E-04,          
     &0.7772094E-04,0.7324697E-04,0.6756208E-04,0.6071845E-04,          
     &0.5287717E-04,0.4409816E-04,0.3513028E-04,0.2653196E-04,          
     &0.1868117E-04,0.1216360E-04,0.7310558E-05,0.0000000E+00/          
      data fgd8/                                                        
     &0.5500183E-06,0.5907204E-06,0.6343586E-06,0.6811376E-06,          
     &0.7312763E-06,0.7850076E-06,0.8425798E-06,0.9042586E-06,          
     &0.9703264E-06,0.1041084E-05,0.1116853E-05,0.1197975E-05,          
     &0.1284815E-05,0.1377758E-05,0.1477220E-05,0.1583638E-05,          
     &0.1697481E-05,0.1819245E-05,0.1949460E-05,0.2088689E-05,          
     &0.2237530E-05,0.2396619E-05,0.2566633E-05,0.2748289E-05,          
     &0.2942351E-05,0.3149630E-05,0.3370987E-05,0.3607337E-05,          
     &0.3859651E-05,0.4128959E-05,0.4416354E-05,0.4722997E-05,          
     &0.5050120E-05,0.5399027E-05,0.5771101E-05,0.6167812E-05,          
     &0.6590713E-05,0.7041450E-05,0.7521769E-05,0.8033514E-05,          
     &0.8578640E-05,0.9159209E-05,0.9777405E-05,0.1043553E-04,          
     &0.1113602E-04,0.1188142E-04,0.1267444E-04,0.1351791E-04,          
     &0.1441479E-04,0.1536818E-04,0.1638134E-04,0.1745762E-04,          
     &0.1860052E-04,0.1981363E-04,0.2110064E-04,0.2246529E-04,          
     &0.2391136E-04,0.2544260E-04,0.2706269E-04,0.2877515E-04,          
     &0.3058327E-04,0.3248999E-04,0.3449773E-04,0.3660828E-04,          
     &0.3882256E-04,0.4114039E-04,0.4356025E-04,0.4607893E-04,          
     &0.4869122E-04,0.5138948E-04,0.5416329E-04,0.5699896E-04,          
     &0.5987914E-04,0.6278236E-04,0.6568269E-04,0.6854934E-04,          
     &0.7134646E-04,0.7403285E-04,0.7656181E-04,0.7888088E-04,          
     &0.8093144E-04,0.8264793E-04,0.8395668E-04,0.8477415E-04,          
     &0.8500492E-04,0.8454008E-04,0.8325773E-04,0.8102787E-04,          
     &0.7772502E-04,0.7325078E-04,0.6756552E-04,0.6072144E-04,          
     &0.5287964E-04,0.4410011E-04,0.3513164E-04,0.2653278E-04,          
     &0.1868157E-04,0.1216359E-04,0.7310427E-05,0.0000000E+00/          
      data fgd9/                                                        
     &0.5641907E-06,0.6059113E-06,0.6506396E-06,0.6985854E-06,          
     &0.7499726E-06,0.8050399E-06,0.8640415E-06,0.9272494E-06,          
     &0.9949529E-06,0.1067460E-05,0.1145100E-05,0.1228223E-05,          
     &0.1317201E-05,0.1412431E-05,0.1514337E-05,0.1623368E-05,          
     &0.1740002E-05,0.1864750E-05,0.1998153E-05,0.2140787E-05,          
     &0.2293265E-05,0.2456239E-05,0.2630400E-05,0.2816486E-05,          
     &0.3015277E-05,0.3227605E-05,0.3454351E-05,0.3696452E-05,          
     &0.3954901E-05,0.4230757E-05,0.4525136E-05,0.4839229E-05,          
     &0.5174297E-05,0.5531675E-05,0.5912783E-05,0.6319121E-05,          
     &0.6752283E-05,0.7213955E-05,0.7705922E-05,0.8230076E-05,          
     &0.8788415E-05,0.9383052E-05,0.1001622E-04,0.1069028E-04,          
     &0.1140772E-04,0.1217115E-04,0.1298334E-04,0.1384717E-04,          
     &0.1476568E-04,0.1574204E-04,0.1677956E-04,0.1788169E-04,          
     &0.1905197E-04,0.2029409E-04,0.2161178E-04,0.2300887E-04,          
     &0.2448919E-04,0.2605655E-04,0.2771468E-04,0.2946715E-04,          
     &0.3131727E-04,0.3326799E-04,0.3532173E-04,0.3748024E-04,          
     &0.3974437E-04,0.4211388E-04,0.4458708E-04,0.4716059E-04,          
     &0.4982897E-04,0.5258428E-04,0.5541574E-04,0.5830922E-04,          
     &0.6124686E-04,0.6420661E-04,0.6716183E-04,0.7008096E-04,          
     &0.7292729E-04,0.7565865E-04,0.7822730E-04,0.8057959E-04,          
     &0.8265565E-04,0.8438851E-04,0.8570293E-04,0.8651361E-04,          
     &0.8672311E-04,0.8622021E-04,0.8488041E-04,0.8257092E-04,          
     &0.7916345E-04,0.7455734E-04,0.6871211E-04,0.6168186E-04,          
     &0.5363395E-04,0.4466195E-04,0.3547961E-04,0.2669601E-04,          
     &0.1871288E-04,0.1206673E-04,0.7196941E-05,0.0000000E+00/          
      data fgd10/                                                       
     &0.5999431E-06,0.6442314E-06,0.6917080E-06,0.7425950E-06,          
     &0.7971296E-06,0.8555647E-06,0.9181695E-06,0.9852317E-06,          
     &0.1057058E-05,0.1133975E-05,0.1216330E-05,0.1304495E-05,          
     &0.1398863E-05,0.1499856E-05,0.1607922E-05,0.1723536E-05,          
     &0.1847205E-05,0.1979470E-05,0.2120904E-05,0.2272118E-05,          
     &0.2433761E-05,0.2606522E-05,0.2791135E-05,0.2988380E-05,          
     &0.3199085E-05,0.3424130E-05,0.3664449E-05,0.3921035E-05,          
     &0.4194942E-05,0.4487287E-05,0.4799258E-05,0.5132113E-05,          
     &0.5487188E-05,0.5865901E-05,0.6269751E-05,0.6700332E-05,          
     &0.7159329E-05,0.7648528E-05,0.8169822E-05,0.8725210E-05,          
     &0.9316808E-05,0.9946854E-05,0.1061771E-04,0.1133187E-04,          
     &0.1209196E-04,0.1290075E-04,0.1376114E-04,0.1467620E-04,          
     &0.1564911E-04,0.1668323E-04,0.1778203E-04,0.1894912E-04,          
     &0.2018825E-04,0.2150325E-04,0.2289805E-04,0.2437663E-04,          
     &0.2594299E-04,0.2760106E-04,0.2935472E-04,0.3120761E-04,          
     &0.3316313E-04,0.3522424E-04,0.3739334E-04,0.3967210E-04,          
     &0.4206122E-04,0.4456019E-04,0.4716701E-04,0.4987781E-04,          
     &0.5268655E-04,0.5558458E-04,0.5856017E-04,0.6159811E-04,          
     &0.6467926E-04,0.6778003E-04,0.7087210E-04,0.7392195E-04,          
     &0.7689068E-04,0.7973371E-04,0.8240063E-04,0.8483493E-04,          
     &0.8697351E-04,0.8874588E-04,0.9007291E-04,0.9086486E-04,          
     &0.9101925E-04,0.9041916E-04,0.8893361E-04,0.8642284E-04,          
     &0.8275169E-04,0.7781402E-04,0.7156745E-04,0.6407099E-04,          
     &0.5550799E-04,0.4605392E-04,0.3633843E-04,0.2709560E-04,          
     &0.1878608E-04,0.1181847E-04,0.6910712E-05,0.0000000E+00/          
      data fgd11/                                                       
     &0.6360168E-06,0.6828938E-06,0.7331409E-06,0.7869930E-06,          
     &0.8447004E-06,0.9065301E-06,0.9727665E-06,0.1043713E-05,          
     &0.1119695E-05,0.1201055E-05,0.1288162E-05,0.1381408E-05,          
     &0.1481208E-05,0.1588008E-05,0.1702279E-05,0.1824526E-05,          
     &0.1955284E-05,0.2095122E-05,0.2244646E-05,0.2404502E-05,          
     &0.2575375E-05,0.2757994E-05,0.2953134E-05,0.3161618E-05,          
     &0.3384321E-05,0.3622173E-05,0.3876161E-05,0.4147333E-05,          
     &0.4436801E-05,0.4745749E-05,0.5075428E-05,0.5427170E-05,          
     &0.5802386E-05,0.6202571E-05,0.6629312E-05,0.7084289E-05,          
     &0.7569284E-05,0.8086183E-05,0.8636981E-05,0.9223791E-05,          
     &0.9848846E-05,0.1051451E-04,0.1122326E-04,0.1197774E-04,          
     &0.1278072E-04,0.1363510E-04,0.1454396E-04,0.1551050E-04,          
     &0.1653808E-04,0.1763022E-04,0.1879056E-04,0.2002291E-04,          
     &0.2133116E-04,0.2271933E-04,0.2419152E-04,0.2575187E-04,          
     &0.2740452E-04,0.2915357E-04,0.3100298E-04,0.3295653E-04,          
     &0.3501764E-04,0.3718930E-04,0.3947390E-04,0.4187299E-04,          
     &0.4438712E-04,0.4701553E-04,0.4975585E-04,0.5260377E-04,          
     &0.5555262E-04,0.5859299E-04,0.6171225E-04,0.6489408E-04,          
     &0.6811802E-04,0.7135901E-04,0.7458694E-04,0.7776638E-04,          
     &0.8085623E-04,0.8380951E-04,0.8657316E-04,0.8908772E-04,          
     &0.9128691E-04,0.9309677E-04,0.9443422E-04,0.9520512E-04,          
     &0.9530200E-04,0.9460223E-04,0.9296848E-04,0.9025413E-04,          
     &0.8631735E-04,0.8104670E-04,0.7439819E-04,0.6643611E-04,          
     &0.5736002E-04,0.4742434E-04,0.3717961E-04,0.2748262E-04,          
     &0.1885230E-04,0.1156297E-04,0.6622070E-05,0.0000000E+00/          
      data fgd12/                                                       
     &0.6723964E-06,0.7218819E-06,0.7749209E-06,0.8317605E-06,          
     &0.8926647E-06,0.9579145E-06,0.1027810E-05,0.1102670E-05,          
     &0.1182837E-05,0.1268674E-05,0.1360568E-05,0.1458931E-05,          
     &0.1564202E-05,0.1676850E-05,0.1797372E-05,0.1926298E-05,          
     &0.2064193E-05,0.2211657E-05,0.2369329E-05,0.2537887E-05,          
     &0.2718054E-05,0.2910598E-05,0.3116335E-05,0.3336134E-05,          
     &0.3570915E-05,0.3821658E-05,0.4089403E-05,0.4375255E-05,          
     &0.4680387E-05,0.5006042E-05,0.5353543E-05,0.5724291E-05,          
     &0.6119771E-05,0.6541560E-05,0.6991330E-05,0.7470850E-05,          
     &0.7981997E-05,0.8526756E-05,0.9107228E-05,0.9725638E-05,          
     &0.1038434E-04,0.1108580E-04,0.1183266E-04,0.1262768E-04,          
     &0.1347376E-04,0.1437396E-04,0.1533151E-04,0.1634977E-04,          
     &0.1743227E-04,0.1858269E-04,0.1980484E-04,0.2110270E-04,          
     &0.2248033E-04,0.2394194E-04,0.2549178E-04,0.2713415E-04,          
     &0.2887336E-04,0.3071362E-04,0.3265902E-04,0.3471342E-04,          
     &0.3688030E-04,0.3916267E-04,0.4156288E-04,0.4408238E-04,          
     &0.4672155E-04,0.4947937E-04,0.5235310E-04,0.5533796E-04,          
     &0.5842667E-04,0.6160905E-04,0.6487154E-04,0.6819671E-04,          
     &0.7156278E-04,0.7494318E-04,0.7830607E-04,0.8161405E-04,          
     &0.8482384E-04,0.8788603E-04,0.9074489E-04,0.9333809E-04,          
     &0.9559614E-04,0.9744155E-04,0.9878734E-04,0.9953502E-04,          
     &0.9957212E-04,0.9877038E-04,0.9698614E-04,0.9406608E-04,          
     &0.8986184E-04,0.8425692E-04,0.7720598E-04,0.6877887E-04,          
     &0.5919163E-04,0.4877484E-04,0.3800455E-04,0.2785813E-04,          
     &0.1891215E-04,0.1141819E-04,0.6331244E-05,0.0000000E+00/          
      data fgd13/                                                       
     &0.7090676E-06,0.7611807E-06,0.8170317E-06,0.8768805E-06,          
     &0.9410042E-06,0.1009699E-05,0.1083278E-05,0.1162080E-05,          
     &0.1246462E-05,0.1336806E-05,0.1433519E-05,0.1537035E-05,          
     &0.1647814E-05,0.1766350E-05,0.1893164E-05,0.2028815E-05,          
     &0.2173895E-05,0.2329035E-05,0.2494907E-05,0.2672223E-05,          
     &0.2861745E-05,0.3064278E-05,0.3280680E-05,0.3511864E-05,          
     &0.3758799E-05,0.4022514E-05,0.4304102E-05,0.4604724E-05,          
     &0.4925614E-05,0.5268078E-05,0.5633507E-05,0.6023371E-05,          
     &0.6439235E-05,0.6882754E-05,0.7355684E-05,0.7859885E-05,          
     &0.8397329E-05,0.8970101E-05,0.9580408E-05,0.1023059E-04,          
     &0.1092310E-04,0.1166056E-04,0.1244572E-04,0.1328146E-04,          
     &0.1417085E-04,0.1511710E-04,0.1612356E-04,0.1719378E-04,          
     &0.1833143E-04,0.1954036E-04,0.2082457E-04,0.2218818E-04,          
     &0.2363545E-04,0.2517074E-04,0.2679848E-04,0.2852312E-04,          
     &0.3034911E-04,0.3228080E-04,0.3432241E-04,0.3647785E-04,          
     &0.3875068E-04,0.4114391E-04,0.4365983E-04,0.4629981E-04,          
     &0.4906405E-04,0.5195124E-04,0.5495829E-04,0.5807993E-04,          
     &0.6130826E-04,0.6463232E-04,0.6803763E-04,0.7150562E-04,          
     &0.7501319E-04,0.7853226E-04,0.8202924E-04,0.8546477E-04,          
     &0.8879336E-04,0.9196319E-04,0.9491588E-04,0.9758616E-04,          
     &0.9990137E-04,0.1017805E-03,0.1031327E-03,0.1038551E-03,          
     &0.1038303E-03,0.1029244E-03,0.1009876E-03,0.9785982E-04,          
     &0.9338641E-04,0.8744605E-04,0.7999226E-04,0.7110073E-04,          
     &0.6100420E-04,0.5008784E-04,0.3881451E-04,0.2822309E-04,          
     &0.1896619E-04,0.1132826E-04,0.6038455E-05,0.0000000E+00/          
      data fgd14/                                                       
     &0.7460176E-06,0.8007765E-06,0.8594588E-06,0.9223372E-06,          
     &0.9897022E-06,0.1061864E-05,0.1139153E-05,0.1221922E-05,          
     &0.1310547E-05,0.1405428E-05,0.1506992E-05,0.1615694E-05,          
     &0.1732017E-05,0.1856478E-05,0.1989625E-05,0.2132043E-05,          
     &0.2284353E-05,0.2447217E-05,0.2621339E-05,0.2807469E-05,          
     &0.3006402E-05,0.3218984E-05,0.3446116E-05,0.3688755E-05,          
     &0.3947915E-05,0.4224678E-05,0.4520190E-05,0.4835668E-05,          
     &0.5172406E-05,0.5531775E-05,0.5915232E-05,0.6324321E-05,          
     &0.6760680E-05,0.7226047E-05,0.7722262E-05,0.8251277E-05,          
     &0.8815156E-05,0.9416085E-05,0.1005638E-04,0.1073848E-04,          
     &0.1146499E-04,0.1223861E-04,0.1306224E-04,0.1393891E-04,          
     &0.1487181E-04,0.1586430E-04,0.1691989E-04,0.1804227E-04,          
     &0.1923529E-04,0.2050297E-04,0.2184946E-04,0.2327907E-04,          
     &0.2479621E-04,0.2640542E-04,0.2811129E-04,0.2991842E-04,          
     &0.3183142E-04,0.3385477E-04,0.3599277E-04,0.3824944E-04,          
     &0.4062838E-04,0.4313259E-04,0.4576433E-04,0.4852486E-04,          
     &0.5141417E-04,0.5443071E-04,0.5757100E-04,0.6082927E-04,          
     &0.6419699E-04,0.6766243E-04,0.7121015E-04,0.7482045E-04,          
     &0.7846895E-04,0.8212597E-04,0.8575622E-04,0.8931835E-04,          
     &0.9276468E-04,0.9604095E-04,0.9908613E-04,0.1018320E-03,          
     &0.1042028E-03,0.1061140E-03,0.1074708E-03,0.1081660E-03,          
     &0.1080772E-03,0.1070651E-03,0.1049737E-03,0.1016363E-03,          
     &0.9689221E-04,0.9061531E-04,0.8275831E-04,0.7340298E-04,          
     &0.6279896E-04,0.5136257E-04,0.3961059E-04,0.2857835E-04,          
     &0.1901493E-04,0.1123666E-04,0.5743915E-05,0.0000000E+00/          
      data fgd15/                                                       
     &0.9345650E-06,0.1002799E-05,0.1075900E-05,0.1154206E-05,          
     &0.1238074E-05,0.1327890E-05,0.1424060E-05,0.1527022E-05,          
     &0.1637240E-05,0.1755208E-05,0.1881454E-05,0.2016540E-05,          
     &0.2161064E-05,0.2315664E-05,0.2481017E-05,0.2657845E-05,          
     &0.2846919E-05,0.3049053E-05,0.3265120E-05,0.3496043E-05,          
     &0.3742807E-05,0.4006458E-05,0.4288108E-05,0.4588939E-05,          
     &0.4910206E-05,0.5253243E-05,0.5619466E-05,0.6010381E-05,          
     &0.6427582E-05,0.6872765E-05,0.7347728E-05,0.7854377E-05,          
     &0.8394733E-05,0.8970938E-05,0.9585264E-05,0.1024011E-04,          
     &0.1093803E-04,0.1168170E-04,0.1247398E-04,0.1331786E-04,          
     &0.1421653E-04,0.1517333E-04,0.1619178E-04,0.1727559E-04,          
     &0.1842866E-04,0.1965508E-04,0.2095911E-04,0.2234524E-04,          
     &0.2381810E-04,0.2538253E-04,0.2704352E-04,0.2880622E-04,          
     &0.3067586E-04,0.3265780E-04,0.3475743E-04,0.3698010E-04,          
     &0.3933109E-04,0.4181551E-04,0.4443813E-04,0.4720334E-04,          
     &0.5011491E-04,0.5317581E-04,0.5638797E-04,0.5975203E-04,          
     &0.6326698E-04,0.6692978E-04,0.7073500E-04,0.7467429E-04,          
     &0.7873587E-04,0.8290401E-04,0.8715843E-04,0.9147370E-04,          
     &0.9581868E-04,0.1001560E-03,0.1044415E-03,0.1086239E-03,          
     &0.1126446E-03,0.1164370E-03,0.1199268E-03,0.1230313E-03,          
     &0.1256587E-03,0.1277070E-03,0.1290623E-03,0.1295957E-03,          
     &0.1291606E-03,0.1275905E-03,0.1246996E-03,0.1202901E-03,          
     &0.1141721E-03,0.1061990E-03,0.9632227E-04,0.8465735E-04,          
     &0.7154085E-04,0.5754529E-04,0.4341967E-04,0.3023279E-04,          
     &0.1919324E-04,0.1075872E-04,0.4848042E-05,0.0000000E+00/          
      data fgd16/                                                       
     &0.1128634E-05,0.1210701E-05,0.1298602E-05,0.1392738E-05,          
     &0.1493540E-05,0.1601466E-05,0.1717003E-05,0.1840674E-05,          
     &0.1973032E-05,0.2114670E-05,0.2266216E-05,0.2428343E-05,          
     &0.2601766E-05,0.2787244E-05,0.2985588E-05,0.3197662E-05,          
     &0.3424382E-05,0.3666725E-05,0.3925730E-05,0.4202502E-05,          
     &0.4498215E-05,0.4814119E-05,0.5151541E-05,0.5511892E-05,          
     &0.5896670E-05,0.6307468E-05,0.6745975E-05,0.7213987E-05,          
     &0.7713409E-05,0.8246261E-05,0.8814686E-05,0.9420958E-05,          
     &0.1006749E-04,0.1075682E-04,0.1149166E-04,0.1227488E-04,          
     &0.1310949E-04,0.1399870E-04,0.1494588E-04,0.1595461E-04,          
     &0.1702864E-04,0.1817195E-04,0.1938869E-04,0.2068325E-04,          
     &0.2206024E-04,0.2352445E-04,0.2508092E-04,0.2673489E-04,          
     &0.2849180E-04,0.3035728E-04,0.3233714E-04,0.3443732E-04,          
     &0.3666389E-04,0.3902299E-04,0.4152074E-04,0.4416321E-04,          
     &0.4695633E-04,0.4990574E-04,0.5301665E-04,0.5629372E-04,          
     &0.5974082E-04,0.6336078E-04,0.6715513E-04,0.7112377E-04,          
     &0.7526453E-04,0.7957282E-04,0.8404107E-04,0.8865823E-04,          
     &0.9340912E-04,0.9827387E-04,0.1032272E-03,0.1082378E-03,          
     &0.1132677E-03,0.1182717E-03,0.1231965E-03,0.1279811E-03,          
     &0.1325556E-03,0.1368412E-03,0.1407503E-03,0.1441856E-03,          
     &0.1470394E-03,0.1491924E-03,0.1505116E-03,0.1508468E-03,          
     &0.1500280E-03,0.1478621E-03,0.1441350E-03,0.1386200E-03,          
     &0.1311006E-03,0.1214138E-03,0.1095140E-03,0.9555454E-04,          
     &0.7996226E-04,0.6346590E-04,0.4703587E-04,0.3172911E-04,          
     &0.1928559E-04,0.1025249E-04,0.4410605E-05,0.0000000E+00/          
      data fgd17/                                                       
     &0.1327381E-05,0.1423584E-05,0.1526605E-05,0.1636914E-05,          
     &0.1755012E-05,0.1881434E-05,0.2016748E-05,0.2161562E-05,          
     &0.2316523E-05,0.2482321E-05,0.2659689E-05,0.2849410E-05,          
     &0.3052317E-05,0.3269297E-05,0.3501294E-05,0.3749314E-05,          
     &0.4014424E-05,0.4297764E-05,0.4600543E-05,0.4924048E-05,          
     &0.5269648E-05,0.5638798E-05,0.6033043E-05,0.6454026E-05,          
     &0.6903493E-05,0.7383296E-05,0.7895403E-05,0.8441903E-05,          
     &0.9025011E-05,0.9647079E-05,0.1031060E-04,0.1101822E-04,          
     &0.1177273E-04,0.1257710E-04,0.1343447E-04,0.1434815E-04,          
     &0.1532167E-04,0.1635873E-04,0.1746325E-04,0.1863935E-04,          
     &0.1989140E-04,0.2122396E-04,0.2264187E-04,0.2415016E-04,          
     &0.2575414E-04,0.2745934E-04,0.2927154E-04,0.3119672E-04,          
     &0.3324113E-04,0.3541118E-04,0.3771347E-04,0.4015474E-04,          
     &0.4274186E-04,0.4548169E-04,0.4838112E-04,0.5144686E-04,          
     &0.5468544E-04,0.5810299E-04,0.6170513E-04,0.6549670E-04,          
     &0.6948161E-04,0.7366249E-04,0.7804036E-04,0.8261429E-04,          
     &0.8738088E-04,0.9233386E-04,0.9746342E-04,0.1027557E-03,          
     &0.1081920E-03,0.1137482E-03,0.1193938E-03,0.1250917E-03,          
     &0.1307968E-03,0.1364560E-03,0.1420070E-03,0.1473787E-03,          
     &0.1524899E-03,0.1572498E-03,0.1615572E-03,0.1653003E-03,          
     &0.1683557E-03,0.1705868E-03,0.1718416E-03,0.1719492E-03,          
     &0.1707161E-03,0.1679241E-03,0.1633317E-03,0.1566846E-03,          
     &0.1477430E-03,0.1363296E-03,0.1224057E-03,0.1061660E-03,          
     &0.8812951E-04,0.6918074E-04,0.5050667E-04,0.3340739E-04,          
     &0.1931668E-04,0.9726647E-05,0.3969051E-05,0.0000000E+00/          
      data fgd18/                                                       
     &0.1530182E-05,0.1640781E-05,0.1759200E-05,0.1885977E-05,          
     &0.2021685E-05,0.2166936E-05,0.2322381E-05,0.2488714E-05,          
     &0.2666677E-05,0.2857058E-05,0.3060698E-05,0.3278490E-05,          
     &0.3511388E-05,0.3760407E-05,0.4026625E-05,0.4311194E-05,          
     &0.4615335E-05,0.4940350E-05,0.5287621E-05,0.5658621E-05,          
     &0.6054915E-05,0.6478163E-05,0.6930135E-05,0.7412706E-05,          
     &0.7927871E-05,0.8477747E-05,0.9064581E-05,0.9690760E-05,          
     &0.1035881E-04,0.1107142E-04,0.1183144E-04,0.1264187E-04,          
     &0.1350591E-04,0.1442695E-04,0.1540855E-04,0.1645451E-04,          
     &0.1756882E-04,0.1875570E-04,0.2001962E-04,0.2136525E-04,          
     &0.2279756E-04,0.2432173E-04,0.2594323E-04,0.2766778E-04,          
     &0.2950138E-04,0.3145026E-04,0.3352095E-04,0.3572021E-04,          
     &0.3805502E-04,0.4053260E-04,0.4316033E-04,0.4594573E-04,          
     &0.4889641E-04,0.5201999E-04,0.5532405E-04,0.5881594E-04,          
     &0.6250275E-04,0.6639107E-04,0.7048684E-04,0.7479508E-04,          
     &0.7931966E-04,0.8406292E-04,0.8902534E-04,0.9420507E-04,          
     &0.9959740E-04,0.1051943E-03,0.1109836E-03,0.1169485E-03,          
     &0.1230668E-03,0.1293098E-03,0.1356421E-03,0.1420203E-03,          
     &0.1483923E-03,0.1546969E-03,0.1608628E-03,0.1668087E-03,          
     &0.1724422E-03,0.1776603E-03,0.1823483E-03,0.1863799E-03,          
     &0.1896160E-03,0.1919029E-03,0.1930697E-03,0.1929250E-03,          
     &0.1912527E-03,0.1878096E-03,0.1823280E-03,0.1745280E-03,          
     &0.1641477E-03,0.1509986E-03,0.1350517E-03,0.1165456E-03,          
     &0.9609327E-04,0.7473416E-04,0.5386727E-04,0.3502703E-04,          
     &0.1956419E-04,0.9197551E-05,0.3534997E-05,0.0000000E+00/          
      data fgd19/                                                       
     &0.1736555E-05,0.1861780E-05,0.1995842E-05,0.2139346E-05,          
     &0.2292940E-05,0.2457313E-05,0.2633198E-05,0.2821381E-05,          
     &0.3022697E-05,0.3238033E-05,0.3468338E-05,0.3714620E-05,          
     &0.3977953E-05,0.4259482E-05,0.4560422E-05,0.4882069E-05,          
     &0.5225802E-05,0.5593086E-05,0.5985480E-05,0.6404642E-05,          
     &0.6852334E-05,0.7330429E-05,0.7840917E-05,0.8385911E-05,          
     &0.8967658E-05,0.9588539E-05,0.1025109E-04,0.1095798E-04,          
     &0.1171208E-04,0.1251639E-04,0.1337411E-04,0.1428864E-04,          
     &0.1526356E-04,0.1630268E-04,0.1741001E-04,0.1858980E-04,          
     &0.1984654E-04,0.2118497E-04,0.2261007E-04,0.2412711E-04,          
     &0.2574163E-04,0.2745944E-04,0.2928664E-04,0.3122964E-04,          
     &0.3329510E-04,0.3549000E-04,0.3782158E-04,0.4029736E-04,          
     &0.4292509E-04,0.4571275E-04,0.4866849E-04,0.5180061E-04,          
     &0.5511745E-04,0.5862736E-04,0.6233856E-04,0.6625907E-04,          
     &0.7039645E-04,0.7475775E-04,0.7934919E-04,0.8417590E-04,          
     &0.8924167E-04,0.9454853E-04,0.1000963E-03,0.1058822E-03,          
     &0.1119001E-03,0.1181401E-03,0.1245876E-03,0.1312230E-03,          
     &0.1380201E-03,0.1449461E-03,0.1519600E-03,0.1590123E-03,          
     &0.1660439E-03,0.1729853E-03,0.1797563E-03,0.1862652E-03,          
     &0.1924085E-03,0.1980707E-03,0.2031239E-03,0.2074273E-03,          
     &0.2108261E-03,0.2131495E-03,0.2142082E-03,0.2137902E-03,          
     &0.2116572E-03,0.2075419E-03,0.2011512E-03,0.1921807E-03,          
     &0.1803483E-03,0.1654567E-03,0.1474886E-03,0.1267290E-03,          
     &0.1038859E-03,0.8015297E-04,0.5713708E-04,0.3659927E-04,          
     &0.2005848E-04,0.8669004E-05,0.3108656E-05,0.0000000E+00/          
      data fgd20/                                                       
     &0.2158560E-05,0.2313634E-05,0.2479612E-05,0.2657242E-05,          
     &0.2847320E-05,0.3050693E-05,0.3268265E-05,0.3501000E-05,          
     &0.3749925E-05,0.4016133E-05,0.4300788E-05,0.4605130E-05,          
     &0.4930481E-05,0.5278243E-05,0.5649915E-05,0.6047085E-05,          
     &0.6471448E-05,0.6924803E-05,0.7409064E-05,0.7926265E-05,          
     &0.8478572E-05,0.9068281E-05,0.9697834E-05,0.1036982E-04,          
     &0.1108700E-04,0.1185229E-04,0.1266879E-04,0.1353979E-04,          
     &0.1446878E-04,0.1545945E-04,0.1651572E-04,0.1764173E-04,          
     &0.1884188E-04,0.2012079E-04,0.2148338E-04,0.2293483E-04,          
     &0.2448061E-04,0.2612649E-04,0.2787854E-04,0.2974316E-04,          
     &0.3172706E-04,0.3383731E-04,0.3608128E-04,0.3846671E-04,          
     &0.4100164E-04,0.4369448E-04,0.4655392E-04,0.4958895E-04,          
     &0.5280884E-04,0.5622309E-04,0.5984135E-04,0.6367341E-04,          
     &0.6772907E-04,0.7201806E-04,0.7654989E-04,0.8133370E-04,          
     &0.8637807E-04,0.9169079E-04,0.9727853E-04,0.1031466E-03,          
     &0.1092984E-03,0.1157353E-03,0.1224556E-03,0.1294544E-03,          
     &0.1367227E-03,0.1442466E-03,0.1520067E-03,0.1599769E-03,          
     &0.1681236E-03,0.1764048E-03,0.1847688E-03,0.1931535E-03,          
     &0.2014853E-03,0.2096784E-03,0.2176342E-03,0.2252404E-03,          
     &0.2323710E-03,0.2388859E-03,0.2446305E-03,0.2494350E-03,          
     &0.2531135E-03,0.2554614E-03,0.2562526E-03,0.2552354E-03,          
     &0.2521276E-03,0.2466154E-03,0.2383575E-03,0.2270034E-03,          
     &0.2122354E-03,0.1938435E-03,0.1718401E-03,0.1466083E-03,          
     &0.1190492E-03,0.9066160E-04,0.6345764E-04,0.3963177E-04,          
     &0.2101489E-04,0.8541644E-05,0.2279118E-05,0.0000000E+00/          
      data fgd21/                                                       
     &0.2591100E-05,0.2776697E-05,0.2975310E-05,0.3187827E-05,          
     &0.3415197E-05,0.3658429E-05,0.3918598E-05,0.4196852E-05,          
     &0.4494412E-05,0.4812580E-05,0.5152740E-05,0.5516367E-05,          
     &0.5905031E-05,0.6320405E-05,0.6764264E-05,0.7238501E-05,          
     &0.7745129E-05,0.8286285E-05,0.8864246E-05,0.9481428E-05,          
     &0.1014040E-04,0.1084389E-04,0.1159480E-04,0.1239621E-04,          
     &0.1325138E-04,0.1416377E-04,0.1513708E-04,0.1617519E-04,          
     &0.1728224E-04,0.1846260E-04,0.1972092E-04,0.2106211E-04,          
     &0.2249134E-04,0.2401412E-04,0.2563624E-04,0.2736382E-04,          
     &0.2920332E-04,0.3116154E-04,0.3324565E-04,0.3546317E-04,          
     &0.3782200E-04,0.4033044E-04,0.4299714E-04,0.4583117E-04,          
     &0.4884195E-04,0.5203928E-04,0.5543328E-04,0.5903444E-04,          
     &0.6285350E-04,0.6690142E-04,0.7118935E-04,0.7572853E-04,          
     &0.8053015E-04,0.8560526E-04,0.9096458E-04,0.9661835E-04,          
     &0.1025760E-03,0.1088460E-03,0.1154354E-03,0.1223494E-03,          
     &0.1295912E-03,0.1371609E-03,0.1450554E-03,0.1532675E-03,          
     &0.1617850E-03,0.1705900E-03,0.1796577E-03,0.1889556E-03,          
     &0.1984424E-03,0.2080666E-03,0.2177656E-03,0.2274645E-03,          
     &0.2370751E-03,0.2464950E-03,0.2556070E-03,0.2642782E-03,          
     &0.2723600E-03,0.2796878E-03,0.2860801E-03,0.2913385E-03,          
     &0.2952459E-03,0.2975645E-03,0.2980321E-03,0.2963576E-03,          
     &0.2922167E-03,0.2852508E-03,0.2750728E-03,0.2612902E-03,          
     &0.2435542E-03,0.2216478E-03,0.1956200E-03,0.1659573E-03,          
     &0.1337561E-03,0.1008176E-03,0.6954635E-04,0.4254823E-04,          
     &0.2193982E-04,0.8627943E-05,0.2002496E-05,0.0000000E+00/          
      data fgd22/                                                       
     &0.3032559E-05,0.3249249E-05,0.3481101E-05,0.3729149E-05,          
     &0.3994494E-05,0.4278309E-05,0.4581844E-05,0.4906433E-05,          
     &0.5253494E-05,0.5624538E-05,0.6021176E-05,0.6445119E-05,          
     &0.6898191E-05,0.7382333E-05,0.7899607E-05,0.8452212E-05,          
     &0.9042479E-05,0.9672894E-05,0.1034609E-04,0.1106489E-04,          
     &0.1183225E-04,0.1265134E-04,0.1352553E-04,0.1445839E-04,          
     &0.1545369E-04,0.1651546E-04,0.1764795E-04,0.1885569E-04,          
     &0.2014344E-04,0.2151629E-04,0.2297960E-04,0.2453903E-04,          
     &0.2620059E-04,0.2797063E-04,0.2985584E-04,0.3186327E-04,          
     &0.3400039E-04,0.3627503E-04,0.3869543E-04,0.4127027E-04,          
     &0.4400863E-04,0.4692003E-04,0.5001441E-04,0.5330214E-04,          
     &0.5679402E-04,0.6050123E-04,0.6443535E-04,0.6860829E-04,          
     &0.7303225E-04,0.7771966E-04,0.8268312E-04,0.8793527E-04,          
     &0.9348866E-04,0.9935560E-04,0.1055480E-03,0.1120771E-03,          
     &0.1189531E-03,0.1261850E-03,0.1337803E-03,0.1417439E-03,          
     &0.1500785E-03,0.1587831E-03,0.1678530E-03,0.1772784E-03,          
     &0.1870438E-03,0.1971270E-03,0.2074979E-03,0.2181174E-03,          
     &0.2289360E-03,0.2398927E-03,0.2509138E-03,0.2619115E-03,          
     &0.2727827E-03,0.2834083E-03,0.2936525E-03,0.3033617E-03,          
     &0.3123646E-03,0.3204719E-03,0.3274756E-03,0.3331487E-03,          
     &0.3372433E-03,0.3394884E-03,0.3395862E-03,0.3372071E-03,          
     &0.3319859E-03,0.3235204E-03,0.3113802E-03,0.2951337E-03,          
     &0.2744049E-03,0.2489749E-03,0.2189339E-03,0.1848761E-03,          
     &0.1480955E-03,0.1106918E-03,0.7545161E-04,0.4537440E-04,          
     &0.2284129E-04,0.8718544E-05,0.1973374E-05,0.0000000E+00/          
      data fgd23/                                                       
     &0.3481738E-05,0.3730014E-05,0.3995629E-05,0.4279763E-05,          
     &0.4583672E-05,0.4908697E-05,0.5256261E-05,0.5627888E-05,          
     &0.6025196E-05,0.6449910E-05,0.6903863E-05,0.7389012E-05,          
     &0.7907434E-05,0.8461342E-05,0.9053089E-05,0.9685179E-05,          
     &0.1036027E-04,0.1108120E-04,0.1185096E-04,0.1267277E-04,          
     &0.1355000E-04,0.1448626E-04,0.1548539E-04,0.1655144E-04,          
     &0.1768872E-04,0.1890180E-04,0.2019553E-04,0.2157504E-04,          
     &0.2304578E-04,0.2461350E-04,0.2628429E-04,0.2806461E-04,          
     &0.2996128E-04,0.3198148E-04,0.3413281E-04,0.3642328E-04,          
     &0.3886134E-04,0.4145586E-04,0.4421618E-04,0.4715211E-04,          
     &0.5027389E-04,0.5359230E-04,0.5711855E-04,0.6086432E-04,          
     &0.6484175E-04,0.6906343E-04,0.7354235E-04,0.7829184E-04,          
     &0.8332555E-04,0.8865735E-04,0.9430125E-04,0.1002713E-03,          
     &0.1065813E-03,0.1132448E-03,0.1202749E-03,0.1276837E-03,          
     &0.1354823E-03,0.1436800E-03,0.1522845E-03,0.1613007E-03,          
     &0.1707303E-03,0.1805715E-03,0.1908174E-03,0.2014559E-03,          
     &0.2124678E-03,0.2238267E-03,0.2354967E-03,0.2474321E-03,          
     &0.2595752E-03,0.2718553E-03,0.2841872E-03,0.2964702E-03,          
     &0.3085863E-03,0.3203995E-03,0.3317551E-03,0.3424791E-03,          
     &0.3523773E-03,0.3612358E-03,0.3688200E-03,0.3748744E-03,          
     &0.3791206E-03,0.3812548E-03,0.3809439E-03,0.3778207E-03,          
     &0.3714795E-03,0.3614764E-03,0.3473394E-03,0.3286003E-03,          
     &0.3048595E-03,0.2758996E-03,0.2418563E-03,0.2034353E-03,          
     &0.1621288E-03,0.1203325E-03,0.8120604E-04,0.4812707E-04,          
     &0.2372406E-04,0.8812691E-05,0.1946192E-05,0.0000000E+00/          
      data fgd24/                                                       
     &0.3937715E-05,0.4218010E-05,0.4517849E-05,0.4838556E-05,          
     &0.5181548E-05,0.5548331E-05,0.5940507E-05,0.6359791E-05,          
     &0.6808002E-05,0.7287078E-05,0.7799086E-05,0.8346220E-05,          
     &0.8930819E-05,0.9555369E-05,0.1022251E-04,0.1093507E-04,          
     &0.1169603E-04,0.1250856E-04,0.1337606E-04,0.1430210E-04,          
     &0.1529050E-04,0.1634530E-04,0.1747081E-04,0.1867158E-04,          
     &0.1995244E-04,0.2131853E-04,0.2277529E-04,0.2432846E-04,          
     &0.2598416E-04,0.2774883E-04,0.2962931E-04,0.3163282E-04,          
     &0.3376699E-04,0.3603988E-04,0.3845998E-04,0.4103626E-04,          
     &0.4377815E-04,0.4669557E-04,0.4979895E-04,0.5309922E-04,          
     &0.5660783E-04,0.6033677E-04,0.6429851E-04,0.6850605E-04,          
     &0.7297290E-04,0.7771300E-04,0.8274074E-04,0.8807090E-04,          
     &0.9371852E-04,0.9969892E-04,0.1060275E-03,0.1127196E-03,          
     &0.1197904E-03,0.1272546E-03,0.1351263E-03,0.1434186E-03,          
     &0.1521432E-03,0.1613099E-03,0.1709265E-03,0.1809976E-03,          
     &0.1915242E-03,0.2025031E-03,0.2139255E-03,0.2257766E-03,          
     &0.2380337E-03,0.2506657E-03,0.2636312E-03,0.2768774E-03,          
     &0.2903384E-03,0.3039335E-03,0.3175664E-03,0.3311228E-03,          
     &0.3444699E-03,0.3574547E-03,0.3699038E-03,0.3816221E-03,          
     &0.3923930E-03,0.4019779E-03,0.4101159E-03,0.4165228E-03,          
     &0.4208898E-03,0.4228808E-03,0.4221278E-03,0.4182264E-03,          
     &0.4107315E-03,0.3991585E-03,0.3829956E-03,0.3617402E-03,          
     &0.3349716E-03,0.3024777E-03,0.2644430E-03,0.2216871E-03,          
     &0.1759019E-03,0.1297759E-03,0.8683383E-04,0.5081894E-04,          
     &0.2459235E-04,0.8911030E-05,0.1921901E-05,0.0000000E+00/          
      data fgd25/                                                       
     &0.6298093E-05,0.6743600E-05,0.7219979E-05,0.7729314E-05,          
     &0.8273826E-05,0.8855880E-05,0.9477990E-05,0.1014284E-04,          
     &0.1085328E-04,0.1161236E-04,0.1242330E-04,0.1328955E-04,          
     &0.1421475E-04,0.1520280E-04,0.1625784E-04,0.1738425E-04,          
     &0.1858672E-04,0.1987019E-04,0.2123994E-04,0.2270156E-04,          
     &0.2426099E-04,0.2592454E-04,0.2769888E-04,0.2959110E-04,          
     &0.3160872E-04,0.3375969E-04,0.3605244E-04,0.3849589E-04,          
     &0.4109949E-04,0.4387320E-04,0.4682758E-04,0.4997377E-04,          
     &0.5332350E-04,0.5688917E-04,0.6068381E-04,0.6472117E-04,          
     &0.6901567E-04,0.7358244E-04,0.7843735E-04,0.8359702E-04,          
     &0.8907879E-04,0.9490073E-04,0.1010816E-03,0.1076410E-03,          
     &0.1145990E-03,0.1219763E-03,0.1297942E-03,0.1380744E-03,          
     &0.1468389E-03,0.1561098E-03,0.1659093E-03,0.1762589E-03,          
     &0.1871801E-03,0.1986929E-03,0.2108164E-03,0.2235673E-03,          
     &0.2369603E-03,0.2510067E-03,0.2657136E-03,0.2810836E-03,          
     &0.2971130E-03,0.3137907E-03,0.3310971E-03,0.3490026E-03,          
     &0.3674654E-03,0.3864299E-03,0.4058251E-03,0.4255617E-03,          
     &0.4455310E-03,0.4656016E-03,0.4856184E-03,0.5053998E-03,          
     &0.5247367E-03,0.5433907E-03,0.5610933E-03,0.5775454E-03,          
     &0.5924166E-03,0.6053459E-03,0.6159406E-03,0.6237763E-03,          
     &0.6283945E-03,0.6293001E-03,0.6259562E-03,0.6177795E-03,          
     &0.6041381E-03,0.5843577E-03,0.5577468E-03,0.5236559E-03,          
     &0.4815914E-03,0.4314032E-03,0.3735573E-03,0.3094720E-03,          
     &0.2418424E-03,0.1747871E-03,0.1135668E-03,0.6360710E-04,          
     &0.2877402E-04,0.9447778E-05,0.1832391E-05,0.0000000E+00/          
      data fgd26/                                                       
     &0.8758157E-05,0.9375182E-05,0.1003479E-04,0.1073986E-04,          
     &0.1149341E-04,0.1229872E-04,0.1315922E-04,0.1407860E-04,          
     &0.1506078E-04,0.1610992E-04,0.1723044E-04,0.1842708E-04,          
     &0.1970482E-04,0.2106901E-04,0.2252529E-04,0.2407969E-04,          
     &0.2573859E-04,0.2750877E-04,0.2939744E-04,0.3141224E-04,          
     &0.3356128E-04,0.3585315E-04,0.3829698E-04,0.4090243E-04,          
     &0.4367972E-04,0.4663970E-04,0.4979384E-04,0.5315426E-04,          
     &0.5673379E-04,0.6054599E-04,0.6460514E-04,0.6892634E-04,          
     &0.7352550E-04,0.7841937E-04,0.8362556E-04,0.8916260E-04,          
     &0.9504991E-04,0.1013079E-03,0.1079578E-03,0.1150219E-03,          
     &0.1225235E-03,0.1304866E-03,0.1389363E-03,0.1478984E-03,          
     &0.1573998E-03,0.1674676E-03,0.1781299E-03,0.1894151E-03,          
     &0.2013518E-03,0.2139686E-03,0.2272941E-03,0.2413559E-03,          
     &0.2561807E-03,0.2717938E-03,0.2882181E-03,0.3054738E-03,          
     &0.3235773E-03,0.3425405E-03,0.3623693E-03,0.3830625E-03,          
     &0.4046106E-03,0.4269936E-03,0.4501795E-03,0.4741223E-03,          
     &0.4987593E-03,0.5240091E-03,0.5497689E-03,0.5759116E-03,          
     &0.6022835E-03,0.6287011E-03,0.6549486E-03,0.6807760E-03,          
     &0.7058965E-03,0.7299851E-03,0.7526778E-03,0.7735709E-03,          
     &0.7922209E-03,0.8081446E-03,0.8208195E-03,0.8296828E-03,          
     &0.8341299E-03,0.8335111E-03,0.8271272E-03,0.8142253E-03,          
     &0.7939992E-03,0.7656026E-03,0.7281870E-03,0.6809866E-03,          
     &0.6234713E-03,0.5555946E-03,0.4781443E-03,0.3931670E-03,          
     &0.3043625E-03,0.2172346E-03,0.1386718E-03,0.7561625E-04,          
     &0.3276272E-04,0.1002801E-04,0.1777466E-05,0.0000000E+00/          
      data fgd27/                                                       
     &0.8882710E-05,0.9508406E-05,0.1017728E-04,0.1089223E-04,          
     &0.1165636E-04,0.1247294E-04,0.1334549E-04,0.1427773E-04,          
     &0.1527363E-04,0.1633742E-04,0.1747358E-04,0.1868689E-04,          
     &0.1998244E-04,0.2136561E-04,0.2284214E-04,0.2441814E-04,          
     &0.2610008E-04,0.2789482E-04,0.2980967E-04,0.3185237E-04,          
     &0.3403115E-04,0.3635471E-04,0.3883230E-04,0.4147370E-04,          
     &0.4428929E-04,0.4729004E-04,0.5048759E-04,0.5389421E-04,          
     &0.5752291E-04,0.6138741E-04,0.6550220E-04,0.6988257E-04,          
     &0.7454463E-04,0.7950534E-04,0.8478257E-04,0.9039506E-04,          
     &0.9636250E-04,0.1027055E-03,0.1094457E-03,0.1166056E-03,          
     &0.1242086E-03,0.1322793E-03,0.1408430E-03,0.1499258E-03,          
     &0.1595548E-03,0.1697576E-03,0.1805627E-03,0.1919986E-03,          
     &0.2040943E-03,0.2168789E-03,0.2303810E-03,0.2446287E-03,          
     &0.2596489E-03,0.2754671E-03,0.2921066E-03,0.3095874E-03,          
     &0.3279263E-03,0.3471350E-03,0.3672194E-03,0.3881781E-03,          
     &0.4100012E-03,0.4326683E-03,0.4561469E-03,0.4803898E-03,          
     &0.5053335E-03,0.5308951E-03,0.5569704E-03,0.5834304E-03,          
     &0.6101188E-03,0.6368497E-03,0.6634044E-03,0.6895291E-03,          
     &0.7149333E-03,0.7392876E-03,0.7622234E-03,0.7833317E-03,          
     &0.8021633E-03,0.8182290E-03,0.8309999E-03,0.8399063E-03,          
     &0.8443365E-03,0.8436331E-03,0.8370889E-03,0.8239429E-03,          
     &0.8033804E-03,0.7745468E-03,0.7365865E-03,0.6887283E-03,          
     &0.6304411E-03,0.5616842E-03,0.4832624E-03,0.3972538E-03,          
     &0.3074085E-03,0.2192982E-03,0.1398901E-03,0.7619891E-04,          
     &0.3295734E-04,0.1005754E-04,0.1775342E-05,0.0000000E+00/          
      data fgd28/                                                       
     &0.8883139E-05,0.9508866E-05,0.1017777E-04,0.1089276E-04,          
     &0.1165692E-04,0.1247355E-04,0.1334613E-04,0.1427842E-04,          
     &0.1527437E-04,0.1633821E-04,0.1747443E-04,0.1868780E-04,          
     &0.1998341E-04,0.2136665E-04,0.2284326E-04,0.2441934E-04,          
     &0.2610135E-04,0.2789618E-04,0.2981113E-04,0.3185394E-04,          
     &0.3403282E-04,0.3635649E-04,0.3883420E-04,0.4147573E-04,          
     &0.4429146E-04,0.4729237E-04,0.5049007E-04,0.5389687E-04,          
     &0.5752575E-04,0.6139044E-04,0.6550544E-04,0.6988602E-04,          
     &0.7454832E-04,0.7950929E-04,0.8478678E-04,0.9039955E-04,          
     &0.9636729E-04,0.1027106E-03,0.1094511E-03,0.1166114E-03,          
     &0.1242148E-03,0.1322859E-03,0.1408500E-03,0.1499333E-03,          
     &0.1595628E-03,0.1697662E-03,0.1805717E-03,0.1920082E-03,          
     &0.2041046E-03,0.2168898E-03,0.2303926E-03,0.2446410E-03,          
     &0.2596620E-03,0.2754811E-03,0.2921213E-03,0.3096031E-03,          
     &0.3279429E-03,0.3471526E-03,0.3672380E-03,0.3881978E-03,          
     &0.4100220E-03,0.4326903E-03,0.4561701E-03,0.4804142E-03,          
     &0.5053592E-03,0.5309222E-03,0.5569988E-03,0.5834601E-03,          
     &0.6101500E-03,0.6368822E-03,0.6634382E-03,0.6895643E-03,          
     &0.7149698E-03,0.7393254E-03,0.7622623E-03,0.7833717E-03,          
     &0.8022042E-03,0.8182707E-03,0.8310422E-03,0.8399491E-03,          
     &0.8443794E-03,0.8436759E-03,0.8371313E-03,0.8239846E-03,          
     &0.8034210E-03,0.7745859E-03,0.7366237E-03,0.6887629E-03,          
     &0.6304726E-03,0.5617122E-03,0.4832863E-03,0.3972733E-03,          
     &0.3074233E-03,0.2193085E-03,0.1398964E-03,0.7620212E-04,          
     &0.3295852E-04,0.1005779E-04,0.1775357E-05,0.0000000E+00/          
      data fgd29/                                                       
     &0.8883570E-05,0.9509328E-05,0.1017827E-04,0.1089329E-04,          
     &0.1165749E-04,0.1247415E-04,0.1334678E-04,0.1427911E-04,          
     &0.1527511E-04,0.1633901E-04,0.1747528E-04,0.1868871E-04,          
     &0.1998439E-04,0.2136769E-04,0.2284438E-04,0.2442053E-04,          
     &0.2610263E-04,0.2789755E-04,0.2981259E-04,0.3185550E-04,          
     &0.3403449E-04,0.3635828E-04,0.3883611E-04,0.4147778E-04,          
     &0.4429364E-04,0.4729470E-04,0.5049256E-04,0.5389953E-04,          
     &0.5752859E-04,0.6139348E-04,0.6550868E-04,0.6988949E-04,          
     &0.7455202E-04,0.7951323E-04,0.8479098E-04,0.9040404E-04,          
     &0.9637208E-04,0.1027157E-03,0.1094566E-03,0.1166172E-03,          
     &0.1242210E-03,0.1322925E-03,0.1408571E-03,0.1499408E-03,          
     &0.1595708E-03,0.1697747E-03,0.1805808E-03,0.1920178E-03,          
     &0.2041148E-03,0.2169007E-03,0.2304042E-03,0.2446533E-03,          
     &0.2596751E-03,0.2754950E-03,0.2921361E-03,0.3096187E-03,          
     &0.3279595E-03,0.3471702E-03,0.3672566E-03,0.3882175E-03,          
     &0.4100428E-03,0.4327123E-03,0.4561932E-03,0.4804386E-03,          
     &0.5053849E-03,0.5309492E-03,0.5570272E-03,0.5834898E-03,          
     &0.6101810E-03,0.6369146E-03,0.6634720E-03,0.6895994E-03,          
     &0.7150061E-03,0.7393630E-03,0.7623011E-03,0.7834115E-03,          
     &0.8022450E-03,0.8183123E-03,0.8310845E-03,0.8399917E-03,          
     &0.8444223E-03,0.8437187E-03,0.8371738E-03,0.8240263E-03,          
     &0.8034616E-03,0.7746250E-03,0.7366607E-03,0.6887974E-03,          
     &0.6305041E-03,0.5617401E-03,0.4833102E-03,0.3972928E-03,          
     &0.3074382E-03,0.2193189E-03,0.1399028E-03,0.7620533E-04,          
     &0.3295971E-04,0.1005804E-04,0.1775373E-05,0.0000000E+00/          
      data fgd30/                                                       
     &0.1129540E-04,0.1208867E-04,0.1293652E-04,0.1384260E-04,          
     &0.1481080E-04,0.1584527E-04,0.1695041E-04,0.1813092E-04,          
     &0.1939179E-04,0.2073834E-04,0.2217621E-04,0.2371141E-04,          
     &0.2535032E-04,0.2709972E-04,0.2896683E-04,0.3095929E-04,          
     &0.3308523E-04,0.3535328E-04,0.3777260E-04,0.4035289E-04,          
     &0.4310447E-04,0.4603824E-04,0.4916579E-04,0.5249937E-04,          
     &0.5605195E-04,0.5983729E-04,0.6386988E-04,0.6816511E-04,          
     &0.7273920E-04,0.7760926E-04,0.8279338E-04,0.8831061E-04,          
     &0.9418101E-04,0.1004257E-03,0.1070668E-03,0.1141278E-03,          
     &0.1216329E-03,0.1296077E-03,0.1380790E-03,0.1470747E-03,          
     &0.1566237E-03,0.1667562E-03,0.1775033E-03,0.1888972E-03,          
     &0.2009710E-03,0.2137585E-03,0.2272943E-03,0.2416132E-03,          
     &0.2567504E-03,0.2727407E-03,0.2896185E-03,0.3074173E-03,          
     &0.3261690E-03,0.3459032E-03,0.3666467E-03,0.3884222E-03,          
     &0.4112476E-03,0.4351346E-03,0.4600870E-03,0.4860997E-03,          
     &0.5131562E-03,0.5412268E-03,0.5702663E-03,0.6002113E-03,          
     &0.6309774E-03,0.6624563E-03,0.6945127E-03,0.7269808E-03,          
     &0.7596608E-03,0.7923164E-03,0.8246707E-03,0.8564044E-03,          
     &0.8871527E-03,0.9165042E-03,0.9439993E-03,0.9691304E-03,          
     &0.9913413E-03,0.1010028E-02,0.1024541E-02,0.1034179E-02,          
     &0.1038196E-02,0.1035791E-02,0.1026109E-02,0.1008232E-02,          
     &0.9811887E-03,0.9439725E-03,0.8955923E-03,0.8351831E-03,          
     &0.7621990E-03,0.6767184E-03,0.5798701E-03,0.4743395E-03,          
     &0.3648241E-03,0.2581787E-03,0.1628510E-03,0.8720317E-04,          
     &0.3666280E-04,0.1064474E-04,0.1745878E-05,0.0000000E+00/          
      data fgd31/                                                       
     &0.1389080E-04,0.1486394E-04,0.1590386E-04,0.1701501E-04,          
     &0.1820215E-04,0.1947033E-04,0.2082492E-04,0.2227165E-04,          
     &0.2381660E-04,0.2546626E-04,0.2722749E-04,0.2910761E-04,          
     &0.3111441E-04,0.3325612E-04,0.3554154E-04,0.3797996E-04,          
     &0.4058128E-04,0.4335598E-04,0.4631520E-04,0.4947075E-04,          
     &0.5283513E-04,0.5642161E-04,0.6024424E-04,0.6431789E-04,          
     &0.6865832E-04,0.7328216E-04,0.7820704E-04,0.8345155E-04,          
     &0.8903534E-04,0.9497914E-04,0.1013048E-03,0.1080354E-03,          
     &0.1151951E-03,0.1228094E-03,0.1309050E-03,0.1395102E-03,          
     &0.1486541E-03,0.1583677E-03,0.1686830E-03,0.1796335E-03,          
     &0.1912539E-03,0.2035803E-03,0.2166500E-03,0.2305013E-03,          
     &0.2451737E-03,0.2607073E-03,0.2771432E-03,0.2945226E-03,          
     &0.3128868E-03,0.3322768E-03,0.3527328E-03,0.3742937E-03,          
     &0.3969961E-03,0.4208741E-03,0.4459575E-03,0.4722715E-03,          
     &0.4998348E-03,0.5286585E-03,0.5587440E-03,0.5900810E-03,          
     &0.6226459E-03,0.6563984E-03,0.6912792E-03,0.7272071E-03,          
     &0.7640749E-03,0.8017467E-03,0.8400537E-03,0.8787902E-03,          
     &0.9177102E-03,0.9565232E-03,0.9948909E-03,0.1032424E-02,          
     &0.1068679E-02,0.1103158E-02,0.1135305E-02,0.1164509E-02,          
     &0.1190103E-02,0.1211361E-02,0.1227507E-02,0.1237706E-02,          
     &0.1241070E-02,0.1236652E-02,0.1223440E-02,0.1200363E-02,          
     &0.1166289E-02,0.1120060E-02,0.1060555E-02,0.9868252E-03,          
     &0.8983272E-03,0.7952841E-03,0.6791835E-03,0.5533599E-03,          
     &0.4235050E-03,0.2977967E-03,0.1861858E-03,0.9837408E-04,          
     &0.4044134E-04,0.1126568E-04,0.1726335E-05,0.0000000E+00/          
      data fgd32/                                                       
     &0.1653328E-04,0.1768921E-04,0.1892429E-04,0.2024379E-04,          
     &0.2165333E-04,0.2315889E-04,0.2476682E-04,0.2648387E-04,          
     &0.2831725E-04,0.3027461E-04,0.3236406E-04,0.3459424E-04,          
     &0.3697433E-04,0.3951408E-04,0.4222384E-04,0.4511459E-04,          
     &0.4819800E-04,0.5148643E-04,0.5499301E-04,0.5873166E-04,          
     &0.6271711E-04,0.6696500E-04,0.7149185E-04,0.7631518E-04,          
     &0.8145353E-04,0.8692648E-04,0.9275472E-04,0.9896013E-04,          
     &0.1055658E-03,0.1125961E-03,0.1200766E-03,0.1280343E-03,          
     &0.1364978E-03,0.1454967E-03,0.1550626E-03,0.1652282E-03,          
     &0.1760279E-03,0.1874976E-03,0.1996749E-03,0.2125987E-03,          
     &0.2263096E-03,0.2408494E-03,0.2562616E-03,0.2725907E-03,          
     &0.2898823E-03,0.3081830E-03,0.3275400E-03,0.3480008E-03,          
     &0.3696129E-03,0.3924231E-03,0.4164774E-03,0.4418197E-03,          
     &0.4684914E-03,0.4965303E-03,0.5259695E-03,0.5568360E-03,          
     &0.5891490E-03,0.6229185E-03,0.6581428E-03,0.6948068E-03,          
     &0.7328784E-03,0.7723065E-03,0.8130171E-03,0.8549103E-03,          
     &0.8978557E-03,0.9416890E-03,0.9862070E-03,0.1031164E-02,          
     &0.1076267E-02,0.1121170E-02,0.1165473E-02,0.1208716E-02,          
     &0.1250378E-02,0.1289872E-02,0.1326549E-02,0.1359692E-02,          
     &0.1388522E-02,0.1412196E-02,0.1429809E-02,0.1440396E-02,          
     &0.1442928E-02,0.1436312E-02,0.1419388E-02,0.1390931E-02,          
     &0.1349657E-02,0.1294264E-02,0.1223510E-02,0.1136377E-02,          
     &0.1032338E-02,0.9117738E-03,0.7765463E-03,0.6306464E-03,          
     &0.4807554E-03,0.3363516E-03,0.2088434E-03,0.1092086E-03,          
     &0.4411754E-04,0.1188581E-04,0.1715041E-05,0.0000000E+00/          
      data fgd33/                                                       
     &0.1921527E-04,0.2055643E-04,0.2198926E-04,0.2351985E-04,          
     &0.2515470E-04,0.2690071E-04,0.2876521E-04,0.3075603E-04,          
     &0.3288147E-04,0.3515035E-04,0.3757207E-04,0.4015658E-04,          
     &0.4291450E-04,0.4585704E-04,0.4899617E-04,0.5234456E-04,          
     &0.5591564E-04,0.5972369E-04,0.6378385E-04,0.6811212E-04,          
     &0.7272551E-04,0.7764201E-04,0.8288067E-04,0.8846166E-04,          
     &0.9440628E-04,0.1007371E-03,0.1074779E-03,0.1146538E-03,          
     &0.1222914E-03,0.1304186E-03,0.1390649E-03,0.1482613E-03,          
     &0.1580404E-03,0.1684365E-03,0.1794854E-03,0.1912248E-03,          
     &0.2036940E-03,0.2169342E-03,0.2309882E-03,0.2459005E-03,          
     &0.2617173E-03,0.2784866E-03,0.2962575E-03,0.3150808E-03,          
     &0.3350084E-03,0.3560929E-03,0.3783879E-03,0.4019469E-03,          
     &0.4268235E-03,0.4530704E-03,0.4807388E-03,0.5098777E-03,          
     &0.5405330E-03,0.5727463E-03,0.6065532E-03,0.6419824E-03,          
     &0.6790534E-03,0.7177748E-03,0.7581416E-03,0.8001327E-03,          
     &0.8437079E-03,0.8888044E-03,0.9353332E-03,0.9831749E-03,          
     &0.1032176E-02,0.1082142E-02,0.1132836E-02,0.1183971E-02,          
     &0.1235206E-02,0.1286141E-02,0.1336312E-02,0.1385190E-02,          
     &0.1432172E-02,0.1476587E-02,0.1517688E-02,0.1554656E-02,          
     &0.1586600E-02,0.1612559E-02,0.1631501E-02,0.1642331E-02,          
     &0.1643881E-02,0.1634917E-02,0.1614131E-02,0.1580147E-02,          
     &0.1531536E-02,0.1466857E-02,0.1384759E-02,0.1284161E-02,          
     &0.1164563E-02,0.1026521E-02,0.8722792E-03,0.7064898E-03,          
     &0.5368195E-03,0.3740271E-03,0.2309412E-03,0.1197639E-03,          
     &0.4770648E-04,0.1250282E-04,0.1709708E-05,0.0000000E+00/          
      data fgd34/                                                       
     &0.2193115E-04,0.2345964E-04,0.2509243E-04,0.2683646E-04,          
     &0.2869909E-04,0.3068817E-04,0.3281203E-04,0.3507953E-04,          
     &0.3750012E-04,0.4008381E-04,0.4284125E-04,0.4578375E-04,          
     &0.4892332E-04,0.5227273E-04,0.5584551E-04,0.5965605E-04,          
     &0.6371957E-04,0.6805225E-04,0.7267123E-04,0.7759469E-04,          
     &0.8284185E-04,0.8843310E-04,0.9439002E-04,0.1007354E-03,          
     &0.1074934E-03,0.1146895E-03,0.1223506E-03,0.1305052E-03,          
     &0.1391832E-03,0.1484163E-03,0.1582377E-03,0.1686824E-03,          
     &0.1797872E-03,0.1915907E-03,0.2041335E-03,0.2174579E-03,          
     &0.2316082E-03,0.2466308E-03,0.2625738E-03,0.2794873E-03,          
     &0.2974231E-03,0.3164350E-03,0.3365782E-03,0.3579094E-03,          
     &0.3804867E-03,0.4043690E-03,0.4296158E-03,0.4562869E-03,          
     &0.4844416E-03,0.5141383E-03,0.5454337E-03,0.5783815E-03,          
     &0.6130319E-03,0.6494297E-03,0.6876136E-03,0.7276132E-03,          
     &0.7694483E-03,0.8131256E-03,0.8586365E-03,0.9059536E-03,          
     &0.9550282E-03,0.1005785E-02,0.1058121E-02,0.1111895E-02,          
     &0.1166930E-02,0.1223003E-02,0.1279842E-02,0.1337117E-02,          
     &0.1394439E-02,0.1451354E-02,0.1507335E-02,0.1561779E-02,          
     &0.1614008E-02,0.1663261E-02,0.1708696E-02,0.1749390E-02,          
     &0.1784342E-02,0.1812472E-02,0.1832626E-02,0.1843575E-02,          
     &0.1844016E-02,0.1832575E-02,0.1807799E-02,0.1768166E-02,          
     &0.1712104E-02,0.1638041E-02,0.1544520E-02,0.1430409E-02,          
     &0.1295246E-02,0.1139769E-02,0.9666137E-03,0.7810992E-03,          
     &0.5918722E-03,0.4109548E-03,0.2525632E-03,0.1300810E-03,          
     &0.5121942E-04,0.1311545E-04,0.1708825E-05,0.0000000E+00/          
      data fgd35/                                                       
     &0.2467659E-04,0.2639421E-04,0.2822889E-04,0.3018839E-04,          
     &0.3228096E-04,0.3451539E-04,0.3690100E-04,0.3944774E-04,          
     &0.4216617E-04,0.4506750E-04,0.4816366E-04,0.5146730E-04,          
     &0.5499188E-04,0.5875167E-04,0.6276182E-04,0.6703840E-04,          
     &0.7159848E-04,0.7646012E-04,0.8164250E-04,0.8716593E-04,          
     &0.9305190E-04,0.9932320E-04,0.1060039E-03,0.1131195E-03,          
     &0.1206970E-03,0.1287648E-03,0.1373529E-03,0.1464932E-03,          
     &0.1562189E-03,0.1665655E-03,0.1775699E-03,0.1892711E-03,          
     &0.2017103E-03,0.2149302E-03,0.2289761E-03,0.2438951E-03,          
     &0.2597365E-03,0.2765517E-03,0.2943942E-03,0.3133196E-03,          
     &0.3333854E-03,0.3546511E-03,0.3771780E-03,0.4010287E-03,          
     &0.4262674E-03,0.4529591E-03,0.4811694E-03,0.5109640E-03,          
     &0.5424081E-03,0.5755657E-03,0.6104984E-03,0.6472650E-03,          
     &0.6859196E-03,0.7265104E-03,0.7690783E-03,0.8136543E-03,          
     &0.8602577E-03,0.9088933E-03,0.9595485E-03,0.1012190E-02,          
     &0.1066759E-02,0.1123169E-02,0.1181299E-02,0.1240991E-02,          
     &0.1302041E-02,0.1364197E-02,0.1427150E-02,0.1490530E-02,          
     &0.1553900E-02,0.1616748E-02,0.1678484E-02,0.1738437E-02,          
     &0.1795845E-02,0.1849862E-02,0.1899551E-02,0.1943885E-02,          
     &0.1981752E-02,0.2011956E-02,0.2033216E-02,0.2044177E-02,          
     &0.2043400E-02,0.2029371E-02,0.2000496E-02,0.1955109E-02,          
     &0.1891500E-02,0.1807969E-02,0.1702962E-02,0.1575300E-02,          
     &0.1424570E-02,0.1251700E-02,0.1059725E-02,0.8546321E-03,          
     &0.6460450E-03,0.4472333E-03,0.2737726E-03,0.1401908E-03,          
     &0.5466512E-04,0.1372305E-04,0.1711353E-05,0.0000000E+00/          
      data fgd36/                                                       
     &0.2744813E-04,0.2935650E-04,0.3139476E-04,0.3357151E-04,          
     &0.3589592E-04,0.3837769E-04,0.4102718E-04,0.4385539E-04,          
     &0.4687402E-04,0.5009549E-04,0.5353300E-04,0.5720056E-04,          
     &0.6111307E-04,0.6528633E-04,0.6973710E-04,0.7448317E-04,          
     &0.7954340E-04,0.8493781E-04,0.9068758E-04,0.9681517E-04,          
     &0.1033444E-03,0.1103003E-03,0.1177097E-03,0.1256007E-03,          
     &0.1340029E-03,0.1429480E-03,0.1524690E-03,0.1626010E-03,          
     &0.1733809E-03,0.1848475E-03,0.1970419E-03,0.2100069E-03,          
     &0.2237878E-03,0.2384320E-03,0.2539890E-03,0.2705109E-03,          
     &0.2880519E-03,0.3066685E-03,0.3264195E-03,0.3473661E-03,          
     &0.3695714E-03,0.3931006E-03,0.4180209E-03,0.4444010E-03,          
     &0.4723110E-03,0.5018220E-03,0.5330057E-03,0.5659335E-03,          
     &0.6006766E-03,0.6373041E-03,0.6758830E-03,0.7164765E-03,          
     &0.7591427E-03,0.8039332E-03,0.8508906E-03,0.9000473E-03,          
     &0.9514219E-03,0.1005017E-02,0.1060816E-02,0.1118778E-02,          
     &0.1178837E-02,0.1240891E-02,0.1304806E-02,0.1370400E-02,          
     &0.1437447E-02,0.1505663E-02,0.1574703E-02,0.1644157E-02,          
     &0.1713537E-02,0.1782275E-02,0.1849719E-02,0.1915125E-02,          
     &0.1977653E-02,0.2036369E-02,0.2090239E-02,0.2138136E-02,          
     &0.2178835E-02,0.2211024E-02,0.2233301E-02,0.2244178E-02,          
     &0.2242087E-02,0.2225373E-02,0.2192303E-02,0.2141071E-02,          
     &0.2069831E-02,0.1976761E-02,0.1860214E-02,0.1718973E-02,          
     &0.1552678E-02,0.1362457E-02,0.1151748E-02,0.9272106E-03,          
     &0.6994397E-03,0.4829387E-03,0.2946181E-03,0.1501176E-03,          
     &0.5805058E-04,0.1432529E-04,0.1716551E-05,0.0000000E+00/          
      data fgd37/                                                       
     &0.3024296E-04,0.3234349E-04,0.3458684E-04,0.3698245E-04,          
     &0.3954037E-04,0.4227128E-04,0.4518652E-04,0.4829819E-04,          
     &0.5161911E-04,0.5516293E-04,0.5894413E-04,0.6297808E-04,          
     &0.6728113E-04,0.7187059E-04,0.7676487E-04,0.8198345E-04,          
     &0.8754705E-04,0.9347758E-04,0.9979828E-04,0.1065338E-03,          
     &0.1137101E-03,0.1213548E-03,0.1294971E-03,0.1381679E-03,          
     &0.1473997E-03,0.1572270E-03,0.1676860E-03,0.1788151E-03,          
     &0.1906547E-03,0.2032473E-03,0.2166377E-03,0.2308728E-03,          
     &0.2460021E-03,0.2620772E-03,0.2791525E-03,0.2972845E-03,          
     &0.3165326E-03,0.3369583E-03,0.3586258E-03,0.3816016E-03,          
     &0.4059545E-03,0.4317556E-03,0.4590778E-03,0.4879958E-03,          
     &0.5185857E-03,0.5509246E-03,0.5850900E-03,0.6211594E-03,          
     &0.6592093E-03,0.6993145E-03,0.7415469E-03,0.7859741E-03,          
     &0.8326581E-03,0.8816533E-03,0.9330048E-03,0.9867453E-03,          
     &0.1042893E-02,0.1101448E-02,0.1162389E-02,0.1225669E-02,          
     &0.1291211E-02,0.1358902E-02,0.1428589E-02,0.1500072E-02,          
     &0.1573098E-02,0.1647352E-02,0.1722455E-02,0.1797953E-02,          
     &0.1873308E-02,0.1947898E-02,0.2021006E-02,0.2091815E-02,          
     &0.2159409E-02,0.2222763E-02,0.2280750E-02,0.2332139E-02,          
     &0.2375597E-02,0.2409693E-02,0.2432903E-02,0.2443613E-02,          
     &0.2440120E-02,0.2420635E-02,0.2383286E-02,0.2326129E-02,          
     &0.2247185E-02,0.2144515E-02,0.2016383E-02,0.1861540E-02,          
     &0.1679686E-02,0.1472154E-02,0.1242792E-02,0.9989324E-03,          
     &0.7521376E-03,0.5181319E-03,0.3151385E-03,0.1598805E-03,          
     &0.6138154E-04,0.1492206E-04,0.1723879E-05,0.0000000E+00/          
      data fgd38/                                                       
     &0.3305874E-04,0.3535272E-04,0.3780251E-04,0.4041840E-04,          
     &0.4321134E-04,0.4619298E-04,0.4937567E-04,0.5277258E-04,          
     &0.5639768E-04,0.6026583E-04,0.6439281E-04,0.6879536E-04,          
     &0.7349126E-04,0.7849938E-04,0.8383973E-04,0.8953356E-04,          
     &0.9560338E-04,0.1020730E-03,0.1089678E-03,0.1163145E-03,          
     &0.1241414E-03,0.1324786E-03,0.1413577E-03,0.1508123E-03,          
     &0.1608778E-03,0.1715916E-03,0.1829932E-03,0.1951243E-03,          
     &0.2080286E-03,0.2217524E-03,0.2363441E-03,0.2518549E-03,          
     &0.2683383E-03,0.2858505E-03,0.3044501E-03,0.3241988E-03,          
     &0.3451605E-03,0.3674021E-03,0.3909929E-03,0.4160051E-03,          
     &0.4425129E-03,0.4705932E-03,0.5003247E-03,0.5317880E-03,          
     &0.5650652E-03,0.6002393E-03,0.6373937E-03,0.6766117E-03,          
     &0.7179754E-03,0.7615649E-03,0.8074568E-03,0.8557233E-03,          
     &0.9064301E-03,0.9596344E-03,0.1015383E-02,0.1073710E-02,          
     &0.1134631E-02,0.1198146E-02,0.1264227E-02,0.1332821E-02,          
     &0.1403841E-02,0.1477160E-02,0.1552609E-02,0.1629967E-02,          
     &0.1708954E-02,0.1789227E-02,0.1870369E-02,0.1951882E-02,          
     &0.2033181E-02,0.2113586E-02,0.2192317E-02,0.2268485E-02,          
     &0.2341093E-02,0.2409031E-02,0.2471076E-02,0.2525893E-02,          
     &0.2572041E-02,0.2607973E-02,0.2632042E-02,0.2642508E-02,          
     &0.2637536E-02,0.2615203E-02,0.2573500E-02,0.2510348E-02,          
     &0.2423636E-02,0.2311312E-02,0.2171557E-02,0.2003093E-02,          
     &0.1805689E-02,0.1580885E-02,0.1332945E-02,0.1069877E-02,          
     &0.8042047E-03,0.5528622E-03,0.3353656E-03,0.1694953E-03,          
     &0.6466277E-04,0.1551336E-04,0.1732930E-05,0.0000000E+00/          
      data fgd39/                                                       
     &0.3589352E-04,0.3838209E-04,0.4103954E-04,0.4387701E-04,          
     &0.4690634E-04,0.5014014E-04,0.5359180E-04,0.5727555E-04,          
     &0.6120653E-04,0.6540081E-04,0.6987545E-04,0.7464858E-04,          
     &0.7973943E-04,0.8516841E-04,0.9095718E-04,0.9712869E-04,          
     &0.1037073E-03,0.1107188E-03,0.1181905E-03,0.1261513E-03,          
     &0.1346320E-03,0.1436648E-03,0.1532841E-03,0.1635261E-03,          
     &0.1744291E-03,0.1860335E-03,0.1983818E-03,0.2115190E-03,          
     &0.2254925E-03,0.2403520E-03,0.2561500E-03,0.2729415E-03,          
     &0.2907843E-03,0.3097387E-03,0.3298683E-03,0.3512392E-03,          
     &0.3739205E-03,0.3979839E-03,0.4235043E-03,0.4505591E-03,          
     &0.4792282E-03,0.5095940E-03,0.5417413E-03,0.5757564E-03,          
     &0.6117274E-03,0.6497431E-03,0.6898929E-03,0.7322656E-03,          
     &0.7769490E-03,0.8240283E-03,0.8735849E-03,0.9256954E-03,          
     &0.9804289E-03,0.1037846E-02,0.1097994E-02,0.1160908E-02,          
     &0.1226604E-02,0.1295077E-02,0.1366297E-02,0.1440200E-02,          
     &0.1516691E-02,0.1595630E-02,0.1676830E-02,0.1760049E-02,          
     &0.1844983E-02,0.1931255E-02,0.2018412E-02,0.2105915E-02,          
     &0.2193128E-02,0.2279314E-02,0.2363630E-02,0.2445114E-02,          
     &0.2522691E-02,0.2595162E-02,0.2661210E-02,0.2719397E-02,          
     &0.2768173E-02,0.2805875E-02,0.2830735E-02,0.2840888E-02,          
     &0.2834367E-02,0.2809116E-02,0.2762991E-02,0.2693779E-02,          
     &0.2599243E-02,0.2477219E-02,0.2325808E-02,0.2143710E-02,          
     &0.1930764E-02,0.1688728E-02,0.1422282E-02,0.1140110E-02,          
     &0.8556956E-03,0.5871706E-03,0.3553255E-03,0.1789751E-03,          
     &0.6789831E-04,0.1609927E-04,0.1743392E-05,0.0000000E+00/          
      data fgd40/                                                       
     &0.3874560E-04,0.4142982E-04,0.4429604E-04,0.4735625E-04,          
     &0.5062322E-04,0.5411050E-04,0.5783250E-04,0.6180455E-04,          
     &0.6604294E-04,0.7056497E-04,0.7538899E-04,0.8053450E-04,          
     &0.8602220E-04,0.9187404E-04,0.9811332E-04,0.1047647E-03,          
     &0.1118544E-03,0.1194102E-03,0.1274614E-03,0.1360391E-03,          
     &0.1451763E-03,0.1549078E-03,0.1652704E-03,0.1763031E-03,          
     &0.1880469E-03,0.2005453E-03,0.2138440E-03,0.2279913E-03,          
     &0.2430379E-03,0.2590374E-03,0.2760460E-03,0.2941226E-03,          
     &0.3133293E-03,0.3337309E-03,0.3553954E-03,0.3783937E-03,          
     &0.4027996E-03,0.4286903E-03,0.4561457E-03,0.4852486E-03,          
     &0.5160846E-03,0.5487418E-03,0.5833106E-03,0.6198832E-03,          
     &0.6585536E-03,0.6994166E-03,0.7425671E-03,0.7880999E-03,          
     &0.8361080E-03,0.8866818E-03,0.9399076E-03,0.9958658E-03,          
     &0.1054629E-02,0.1116261E-02,0.1180811E-02,0.1248314E-02,          
     &0.1318784E-02,0.1392214E-02,0.1468568E-02,0.1547777E-02,          
     &0.1629732E-02,0.1714283E-02,0.1801224E-02,0.1890291E-02,          
     &0.1981155E-02,0.2073408E-02,0.2166560E-02,0.2260027E-02,          
     &0.2353126E-02,0.2445062E-02,0.2534926E-02,0.2621688E-02,          
     &0.2704190E-02,0.2781147E-02,0.2851147E-02,0.2912650E-02,          
     &0.2963996E-02,0.3003408E-02,0.3028999E-02,0.3038774E-02,          
     &0.3030640E-02,0.3002407E-02,0.2951799E-02,0.2876471E-02,          
     &0.2774059E-02,0.2642294E-02,0.2479198E-02,0.2283455E-02,          
     &0.2054979E-02,0.1795748E-02,0.1510864E-02,0.1209688E-02,          
     &0.9066565E-03,0.6210914E-03,0.3750401E-03,0.1883309E-03,          
     &0.7109160E-04,0.1667991E-04,0.1755023E-05,0.0000000E+00/          
      data fgd41/                                                       
     &0.4161354E-04,0.4449437E-04,0.4757037E-04,0.5085440E-04,          
     &0.5436013E-04,0.5810208E-04,0.6209569E-04,0.6635737E-04,          
     &0.7090458E-04,0.7575583E-04,0.8093078E-04,0.8645032E-04,          
     &0.9233660E-04,0.9861313E-04,0.1053048E-03,0.1124381E-03,          
     &0.1200411E-03,0.1281433E-03,0.1367763E-03,0.1459734E-03,          
     &0.1557697E-03,0.1662025E-03,0.1773112E-03,0.1891375E-03,          
     &0.2017253E-03,0.2151209E-03,0.2293733E-03,0.2445341E-03,          
     &0.2606575E-03,0.2778007E-03,0.2960237E-03,0.3153896E-03,          
     &0.3359644E-03,0.3578175E-03,0.3810213E-03,0.4056515E-03,          
     &0.4317869E-03,0.4595096E-03,0.4889048E-03,0.5200609E-03,          
     &0.5530688E-03,0.5880223E-03,0.6250176E-03,0.6641528E-03,          
     &0.7055277E-03,0.7492428E-03,0.7953990E-03,0.8440964E-03,          
     &0.8954335E-03,0.9495059E-03,0.1006404E-02,0.1066214E-02,          
     &0.1129010E-02,0.1194859E-02,0.1263811E-02,0.1335903E-02,          
     &0.1411146E-02,0.1489532E-02,0.1571017E-02,0.1655526E-02,          
     &0.1742940E-02,0.1833094E-02,0.1925765E-02,0.2020669E-02,          
     &0.2117448E-02,0.2215664E-02,0.2314789E-02,0.2414198E-02,          
     &0.2513155E-02,0.2610811E-02,0.2706191E-02,0.2798192E-02,          
     &0.2885579E-02,0.2966979E-02,0.3040883E-02,0.3105652E-02,          
     &0.3159516E-02,0.3200583E-02,0.3226845E-02,0.3236184E-02,          
     &0.3226378E-02,0.3195106E-02,0.3139959E-02,0.3058461E-02,          
     &0.2948129E-02,0.2806585E-02,0.2631780E-02,0.2422384E-02,          
     &0.2178391E-02,0.1902002E-02,0.1598745E-02,0.1278657E-02,          
     &0.9571266E-03,0.6546538E-03,0.3945282E-03,0.1975721E-03,          
     &0.7424563E-04,0.1725541E-04,0.1767631E-05,0.0000000E+00/          
      data fgd42/                                                       
     &0.4449607E-04,0.4757439E-04,0.5086110E-04,0.5436993E-04,          
     &0.5811546E-04,0.6211318E-04,0.6637954E-04,0.7093208E-04,          
     &0.7578939E-04,0.8097121E-04,0.8649853E-04,0.9239360E-04,          
     &0.9868004E-04,0.1053829E-03,0.1125288E-03,0.1201458E-03,          
     &0.1282639E-03,0.1369147E-03,0.1461316E-03,0.1559502E-03,          
     &0.1664080E-03,0.1775446E-03,0.1894020E-03,0.2020246E-03,          
     &0.2154590E-03,0.2297548E-03,0.2449640E-03,0.2611415E-03,          
     &0.2783450E-03,0.2966353E-03,0.3160762E-03,0.3367350E-03,          
     &0.3586817E-03,0.3819902E-03,0.4067373E-03,0.4330035E-03,          
     &0.4608725E-03,0.4904316E-03,0.5217710E-03,0.5549846E-03,          
     &0.5901689E-03,0.6274233E-03,0.6668497E-03,0.7085520E-03,          
     &0.7526357E-03,0.7992072E-03,0.8483732E-03,0.9002392E-03,          
     &0.9549092E-03,0.1012483E-02,0.1073058E-02,0.1136721E-02,          
     &0.1203552E-02,0.1273619E-02,0.1346975E-02,0.1423655E-02,          
     &0.1503671E-02,0.1587009E-02,0.1673622E-02,0.1763426E-02,          
     &0.1856293E-02,0.1952042E-02,0.2050433E-02,0.2151161E-02,          
     &0.2253840E-02,0.2358002E-02,0.2463081E-02,0.2568409E-02,          
     &0.2673199E-02,0.2776546E-02,0.2877410E-02,0.2974617E-02,          
     &0.3066850E-02,0.3152651E-02,0.3230416E-02,0.3298403E-02,          
     &0.3354735E-02,0.3397405E-02,0.3424285E-02,0.3433134E-02,          
     &0.3421602E-02,0.3387237E-02,0.3327499E-02,0.3239786E-02,          
     &0.3121491E-02,0.2970135E-02,0.2783601E-02,0.2560545E-02,          
     &0.2301048E-02,0.2007539E-02,0.1685971E-02,0.1347059E-02,          
     &0.1007140E-02,0.6878830E-03,0.4138059E-03,0.2067068E-03,          
     &0.7736299E-04,0.1782592E-04,0.1781062E-05,0.0000000E+00/          
      data fgd43/                                                       
     &0.4739207E-04,0.5066869E-04,0.5416698E-04,0.5790151E-04,          
     &0.6188778E-04,0.6614227E-04,0.7068246E-04,0.7552697E-04,          
     &0.8069556E-04,0.8620921E-04,0.9209020E-04,0.9836218E-04,          
     &0.1050502E-03,0.1121810E-03,0.1197826E-03,0.1278851E-03,          
     &0.1365201E-03,0.1457213E-03,0.1555241E-03,0.1659663E-03,          
     &0.1770876E-03,0.1889303E-03,0.2015387E-03,0.2149600E-03,          
     &0.2292437E-03,0.2444423E-03,0.2606110E-03,0.2778080E-03,          
     &0.2960946E-03,0.3155351E-03,0.3361973E-03,0.3581521E-03,          
     &0.3814743E-03,0.4062416E-03,0.4325357E-03,0.4604416E-03,          
     &0.4900480E-03,0.5214473E-03,0.5547350E-03,0.5900101E-03,          
     &0.6273747E-03,0.6669341E-03,0.7087955E-03,0.7530688E-03,          
     &0.7998653E-03,0.8492972E-03,0.9014765E-03,0.9565146E-03,          
     &0.1014521E-02,0.1075600E-02,0.1139852E-02,0.1207371E-02,          
     &0.1278238E-02,0.1352525E-02,0.1430284E-02,0.1511552E-02,          
     &0.1596339E-02,0.1684627E-02,0.1776365E-02,0.1871460E-02,          
     &0.1969772E-02,0.2071107E-02,0.2175209E-02,0.2281748E-02,          
     &0.2390313E-02,0.2500405E-02,0.2611420E-02,0.2722644E-02,          
     &0.2833244E-02,0.2942254E-02,0.3048572E-02,0.3150951E-02,          
     &0.3247995E-02,0.3338158E-02,0.3419742E-02,0.3490903E-02,          
     &0.3549657E-02,0.3593881E-02,0.3621331E-02,0.3629639E-02,          
     &0.3616330E-02,0.3578822E-02,0.3514447E-02,0.3420474E-02,          
     &0.3294180E-02,0.3132983E-02,0.2934700E-02,0.2697982E-02,          
     &0.2422995E-02,0.2112400E-02,0.1772581E-02,0.1414929E-02,          
     &0.1056725E-02,0.7208009E-03,0.4328872E-03,0.2157422E-03,          
     &0.8044600E-04,0.1839161E-04,0.1795191E-05,0.0000000E+00/          
      data fgd44/                                                       
     &0.5030056E-04,0.5377622E-04,0.5748687E-04,0.6144794E-04,          
     &0.6567585E-04,0.7018804E-04,0.7500303E-04,0.8014055E-04,          
     &0.8562150E-04,0.9146813E-04,0.9770400E-04,0.1043542E-03,          
     &0.1114452E-03,0.1190052E-03,0.1270641E-03,0.1356536E-03,          
     &0.1448071E-03,0.1545604E-03,0.1649509E-03,0.1760185E-03,          
     &0.1878054E-03,0.2003561E-03,0.2137177E-03,0.2279399E-03,          
     &0.2430753E-03,0.2591791E-03,0.2763099E-03,0.2945291E-03,          
     &0.3139014E-03,0.3344950E-03,0.3563812E-03,0.3796353E-03,          
     &0.4043359E-03,0.4305653E-03,0.4584096E-03,0.4879587E-03,          
     &0.5193060E-03,0.5525490E-03,0.5877884E-03,0.6251286E-03,          
     &0.6646773E-03,0.7065450E-03,0.7508452E-03,0.7976930E-03,          
     &0.8472058E-03,0.8995011E-03,0.9546971E-03,0.1012910E-02,          
     &0.1074255E-02,0.1138842E-02,0.1206774E-02,0.1278150E-02,          
     &0.1353055E-02,0.1431562E-02,0.1513725E-02,0.1599580E-02,          
     &0.1689136E-02,0.1782371E-02,0.1879229E-02,0.1979609E-02,          
     &0.2083360E-02,0.2190274E-02,0.2300076E-02,0.2412415E-02,          
     &0.2526853E-02,0.2642858E-02,0.2759790E-02,0.2876891E-02,          
     &0.2993276E-02,0.3107924E-02,0.3219667E-02,0.3327187E-02,          
     &0.3429008E-02,0.3523496E-02,0.3608860E-02,0.3683154E-02,          
     &0.3744285E-02,0.3790019E-02,0.3817991E-02,0.3825712E-02,          
     &0.3810578E-02,0.3769882E-02,0.3700826E-02,0.3600553E-02,          
     &0.3466225E-02,0.3295161E-02,0.3085114E-02,0.2834730E-02,          
     &0.2544268E-02,0.2216623E-02,0.1858610E-02,0.1482298E-02,          
     &0.1105908E-02,0.7534267E-03,0.4517845E-03,0.2246843E-03,          
     &0.8349666E-04,0.1895263E-04,0.1809916E-05,0.0000000E+00/          
      data fgd45/                                                       
     &0.5322065E-04,0.5689605E-04,0.6081979E-04,0.6500817E-04,          
     &0.6947853E-04,0.7424928E-04,0.7933999E-04,0.8477146E-04,          
     &0.9056580E-04,0.9674645E-04,0.1033383E-03,0.1103678E-03,          
     &0.1178630E-03,0.1258536E-03,0.1343711E-03,0.1434490E-03,          
     &0.1531226E-03,0.1634295E-03,0.1744094E-03,0.1861042E-03,          
     &0.1985585E-03,0.2118191E-03,0.2259358E-03,0.2409611E-03,          
     &0.2569502E-03,0.2739615E-03,0.2920567E-03,0.3113004E-03,          
     &0.3317610E-03,0.3535102E-03,0.3766233E-03,0.4011794E-03,          
     &0.4272612E-03,0.4549556E-03,0.4843532E-03,0.5155484E-03,          
     &0.5486397E-03,0.5837295E-03,0.6209239E-03,0.6603324E-03,          
     &0.7020683E-03,0.7462478E-03,0.7929898E-03,0.8424154E-03,          
     &0.8946473E-03,0.9498093E-03,0.1008025E-02,0.1069415E-02,          
     &0.1134101E-02,0.1202197E-02,0.1273812E-02,0.1349047E-02,          
     &0.1427990E-02,0.1510716E-02,0.1597282E-02,0.1687723E-02,          
     &0.1782046E-02,0.1880226E-02,0.1982200E-02,0.2087860E-02,          
     &0.2197043E-02,0.2309527E-02,0.2425020E-02,0.2543147E-02,          
     &0.2663444E-02,0.2785348E-02,0.2908179E-02,0.3031136E-02,          
     &0.3153285E-02,0.3273546E-02,0.3390687E-02,0.3503318E-02,          
     &0.3609882E-02,0.3708661E-02,0.3797767E-02,0.3875155E-02,          
     &0.3938623E-02,0.3985824E-02,0.4014274E-02,0.4021363E-02,          
     &0.4004362E-02,0.3960435E-02,0.3886657E-02,0.3780048E-02,          
     &0.3637654E-02,0.3456698E-02,0.3234874E-02,0.2970824E-02,          
     &0.2664902E-02,0.2320242E-02,0.1944090E-02,0.1549194E-02,          
     &0.1154713E-02,0.7857772E-03,0.4705084E-03,0.2335388E-03,          
     &0.8651680E-04,0.1950912E-04,0.1825150E-05,0.0000000E+00/          
      data fgd46/                                                       
     &0.8291627E-04,0.8861831E-04,0.9470382E-04,0.1011978E-03,          
     &0.1081269E-03,0.1155194E-03,0.1234053E-03,0.1318164E-03,          
     &0.1407866E-03,0.1503519E-03,0.1605503E-03,0.1714222E-03,          
     &0.1830106E-03,0.1953609E-03,0.2085211E-03,0.2225424E-03,          
     &0.2374787E-03,0.2533871E-03,0.2703282E-03,0.2883658E-03,          
     &0.3075677E-03,0.3280052E-03,0.3497537E-03,0.3728928E-03,          
     &0.3975064E-03,0.4236829E-03,0.4515154E-03,0.4811020E-03,          
     &0.5125456E-03,0.5459543E-03,0.5814417E-03,0.6191266E-03,          
     &0.6591335E-03,0.7015923E-03,0.7466387E-03,0.7944140E-03,          
     &0.8450650E-03,0.8987440E-03,0.9556085E-03,0.1015821E-02,          
     &0.1079548E-02,0.1146962E-02,0.1218237E-02,0.1293549E-02,          
     &0.1373077E-02,0.1457001E-02,0.1545497E-02,0.1638741E-02,          
     &0.1736901E-02,0.1840138E-02,0.1948603E-02,0.2062432E-02,          
     &0.2181741E-02,0.2306623E-02,0.2437143E-02,0.2573329E-02,          
     &0.2715167E-02,0.2862591E-02,0.3015476E-02,0.3173625E-02,          
     &0.3336761E-02,0.3504511E-02,0.3676395E-02,0.3851812E-02,          
     &0.4030023E-02,0.4210135E-02,0.4391090E-02,0.4571642E-02,          
     &0.4750348E-02,0.4925553E-02,0.5095378E-02,0.5257713E-02,          
     &0.5410207E-02,0.5550276E-02,0.5675097E-02,0.5781623E-02,          
     &0.5866591E-02,0.5926540E-02,0.5957826E-02,0.5956642E-02,          
     &0.5919041E-02,0.5840952E-02,0.5718231E-02,0.5546723E-02,          
     &0.5322403E-02,0.5041630E-02,0.4701599E-02,0.4301069E-02,          
     &0.3841474E-02,0.3328439E-02,0.2773621E-02,0.2196521E-02,          
     &0.1625510E-02,0.1096823E-02,0.6499321E-03,0.3181300E-03,          
     &0.1153307E-03,0.2485534E-04,0.1994161E-05,0.0000000E+00/          
      data fgd47/                                                       
     &0.1132142E-03,0.1209776E-03,0.1292614E-03,0.1380995E-03,          
     &0.1475278E-03,0.1575846E-03,0.1683102E-03,0.1797478E-03,          
     &0.1919432E-03,0.2049446E-03,0.2188037E-03,0.2335747E-03,          
     &0.2493156E-03,0.2660875E-03,0.2839553E-03,0.3029876E-03,          
     &0.3232571E-03,0.3448407E-03,0.3678196E-03,0.3922798E-03,          
     &0.4183120E-03,0.4460122E-03,0.4754814E-03,0.5068264E-03,          
     &0.5401595E-03,0.5755991E-03,0.6132699E-03,0.6533028E-03,          
     &0.6958353E-03,0.7410119E-03,0.7889838E-03,0.8399095E-03,          
     &0.8939546E-03,0.9512918E-03,0.1012101E-02,0.1076571E-02,          
     &0.1144894E-02,0.1217273E-02,0.1293916E-02,0.1375036E-02,          
     &0.1460853E-02,0.1551593E-02,0.1647483E-02,0.1748754E-02,          
     &0.1855639E-02,0.1968371E-02,0.2087177E-02,0.2212281E-02,          
     &0.2343901E-02,0.2482238E-02,0.2627482E-02,0.2779798E-02,          
     &0.2939327E-02,0.3106176E-02,0.3280410E-02,0.3462046E-02,          
     &0.3651042E-02,0.3847285E-02,0.4050581E-02,0.4260639E-02,          
     &0.4477056E-02,0.4699304E-02,0.4926708E-02,0.5158431E-02,          
     &0.5393452E-02,0.5630545E-02,0.5868263E-02,0.6104913E-02,          
     &0.6338541E-02,0.6566914E-02,0.6787506E-02,0.6997489E-02,          
     &0.7193727E-02,0.7372777E-02,0.7530896E-02,0.7664051E-02,          
     &0.7767942E-02,0.7838021E-02,0.7869519E-02,0.7857474E-02,          
     &0.7796769E-02,0.7682163E-02,0.7508366E-02,0.7270137E-02,          
     &0.6962491E-02,0.6581054E-02,0.6122675E-02,0.5586398E-02,          
     &0.4974909E-02,0.4296468E-02,0.3567216E-02,0.2813351E-02,          
     &0.2072196E-02,0.1390582E-02,0.8185764E-03,0.3972831E-03,          
     &0.1422205E-03,0.2987692E-04,0.2175714E-05,0.0000000E+00/          
      data fgd48/                                                       
     &0.1438582E-03,0.1537019E-03,0.1642038E-03,0.1754067E-03,          
     &0.1873559E-03,0.2000995E-03,0.2136886E-03,0.2281774E-03,          
     &0.2436236E-03,0.2600880E-03,0.2776356E-03,0.2963348E-03,          
     &0.3162583E-03,0.3374830E-03,0.3600907E-03,0.3841675E-03,          
     &0.4098048E-03,0.4370991E-03,0.4661524E-03,0.4970727E-03,          
     &0.5299739E-03,0.5649761E-03,0.6022062E-03,0.6417978E-03,          
     &0.6838917E-03,0.7286361E-03,0.7761869E-03,0.8267078E-03,          
     &0.8803708E-03,0.9373561E-03,0.9978525E-03,0.1062058E-02,          
     &0.1130178E-02,0.1202428E-02,0.1279033E-02,0.1360225E-02,          
     &0.1446245E-02,0.1537344E-02,0.1633778E-02,0.1735813E-02,          
     &0.1843720E-02,0.1957776E-02,0.2078261E-02,0.2205459E-02,          
     &0.2339656E-02,0.2481133E-02,0.2630170E-02,0.2787038E-02,          
     &0.2951996E-02,0.3125289E-02,0.3307138E-02,0.3497738E-02,          
     &0.3697249E-02,0.3905787E-02,0.4123418E-02,0.4350142E-02,          
     &0.4585884E-02,0.4830479E-02,0.5083660E-02,0.5345035E-02,          
     &0.5614076E-02,0.5890090E-02,0.6172204E-02,0.6459341E-02,          
     &0.6750193E-02,0.7043199E-02,0.7336520E-02,0.7628014E-02,          
     &0.7915216E-02,0.8195315E-02,0.8465140E-02,0.8721153E-02,          
     &0.8959438E-02,0.9175703E-02,0.9365298E-02,0.9523222E-02,          
     &0.9644156E-02,0.9722489E-02,0.9752355E-02,0.9727674E-02,          
     &0.9642196E-02,0.9489560E-02,0.9263385E-02,0.8957413E-02,          
     &0.8565781E-02,0.8083474E-02,0.7507103E-02,0.6836114E-02,          
     &0.6074550E-02,0.5233396E-02,0.4333303E-02,0.3407093E-02,          
     &0.2500821E-02,0.1671515E-02,0.9792903E-03,0.4724554E-03,          
     &0.1676946E-03,0.3464592E-04,0.2359431E-05,0.0000000E+00/          
      data fgd49/                                                       
     &0.1747000E-03,0.1866336E-03,0.1993638E-03,0.2129420E-03,          
     &0.2274229E-03,0.2428646E-03,0.2593287E-03,0.2768807E-03,          
     &0.2955899E-03,0.3155300E-03,0.3367789E-03,0.3594193E-03,          
     &0.3835388E-03,0.4092301E-03,0.4365913E-03,0.4657265E-03,          
     &0.4967454E-03,0.5297643E-03,0.5649059E-03,0.6022999E-03,          
     &0.6420833E-03,0.6844005E-03,0.7294037E-03,0.7772536E-03,          
     &0.8281191E-03,0.8821779E-03,0.9396170E-03,0.1000633E-02,          
     &0.1065431E-02,0.1134228E-02,0.1207249E-02,0.1284731E-02,          
     &0.1366921E-02,0.1454074E-02,0.1546460E-02,0.1644355E-02,          
     &0.1748048E-02,0.1857835E-02,0.1974022E-02,0.2096926E-02,          
     &0.2226866E-02,0.2364172E-02,0.2509175E-02,0.2662211E-02,          
     &0.2823614E-02,0.2993718E-02,0.3172849E-02,0.3361323E-02,          
     &0.3559443E-02,0.3767489E-02,0.3985716E-02,0.4214345E-02,          
     &0.4453553E-02,0.4703463E-02,0.4964134E-02,0.5235550E-02,          
     &0.5517598E-02,0.5810061E-02,0.6112593E-02,0.6424700E-02,          
     &0.6745720E-02,0.7074797E-02,0.7410857E-02,0.7752577E-02,          
     &0.8098364E-02,0.8446316E-02,0.8794205E-02,0.9139437E-02,          
     &0.9479037E-02,0.9809621E-02,0.1012738E-01,0.1042806E-01,          
     &0.1070698E-01,0.1095902E-01,0.1117861E-01,0.1135982E-01,          
     &0.1149632E-01,0.1158145E-01,0.1160829E-01,0.1156966E-01,          
     &0.1145821E-01,0.1126650E-01,0.1098711E-01,0.1061282E-01,          
     &0.1013694E-01,0.9553899E-02,0.8860148E-02,0.8055617E-02,          
     &0.7145788E-02,0.6144422E-02,0.5076686E-02,0.3981945E-02,          
     &0.2914793E-02,0.1942127E-02,0.1133668E-02,0.5444637E-03,          
     &0.1920430E-03,0.3920844E-04,0.2541772E-05,0.0000000E+00/          
      data fgd50/                                                       
     &0.2056432E-03,0.2196708E-03,0.2346331E-03,0.2505904E-03,          
     &0.2676070E-03,0.2857506E-03,0.3050935E-03,0.3257123E-03,          
     &0.3476882E-03,0.3711073E-03,0.3960608E-03,0.4226454E-03,          
     &0.4509635E-03,0.4811235E-03,0.5132402E-03,0.5474351E-03,          
     &0.5838363E-03,0.6225798E-03,0.6638088E-03,0.7076748E-03,          
     &0.7543376E-03,0.8039657E-03,0.8567367E-03,0.9128378E-03,          
     &0.9724661E-03,0.1035829E-02,0.1103143E-02,0.1174638E-02,          
     &0.1250554E-02,0.1331141E-02,0.1416662E-02,0.1507392E-02,          
     &0.1603617E-02,0.1705636E-02,0.1813760E-02,0.1928309E-02,          
     &0.2049618E-02,0.2178030E-02,0.2313900E-02,0.2457591E-02,          
     &0.2609476E-02,0.2769931E-02,0.2939339E-02,0.3118087E-02,          
     &0.3306557E-02,0.3505132E-02,0.3714184E-02,0.3934073E-02,          
     &0.4165142E-02,0.4407708E-02,0.4662055E-02,0.4928428E-02,          
     &0.5207018E-02,0.5497955E-02,0.5801291E-02,0.6116985E-02,          
     &0.6444891E-02,0.6784730E-02,0.7136078E-02,0.7498336E-02,          
     &0.7870709E-02,0.8252171E-02,0.8641445E-02,0.9036967E-02,          
     &0.9436849E-02,0.9838854E-02,0.1024036E-01,0.1063833E-01,          
     &0.1102927E-01,0.1140923E-01,0.1177377E-01,0.1211794E-01,          
     &0.1243628E-01,0.1272284E-01,0.1297119E-01,0.1317444E-01,          
     &0.1332529E-01,0.1341605E-01,0.1343876E-01,0.1338515E-01,          
     &0.1324684E-01,0.1301532E-01,0.1268216E-01,0.1223924E-01,          
     &0.1167911E-01,0.1099567E-01,0.1018530E-01,0.9248472E-02,          
     &0.8192160E-02,0.7032941E-02,0.5800485E-02,0.4540620E-02,          
     &0.3316307E-02,0.2204024E-02,0.1282729E-02,0.6138301E-03,          
     &0.2154523E-03,0.4359599E-04,0.2721351E-05,0.0000000E+00/          
      data fgd51/                                                       
     &0.2366209E-03,0.2527422E-03,0.2699363E-03,0.2882722E-03,          
     &0.3078234E-03,0.3286678E-03,0.3508879E-03,0.3745716E-03,          
     &0.3998117E-03,0.4267069E-03,0.4553615E-03,0.4858862E-03,          
     &0.5183982E-03,0.5530214E-03,0.5898871E-03,0.6291343E-03,          
     &0.6709095E-03,0.7153680E-03,0.7626736E-03,0.8129993E-03,          
     &0.8665275E-03,0.9234509E-03,0.9839721E-03,0.1048305E-02,          
     &0.1116674E-02,0.1189315E-02,0.1266478E-02,0.1348422E-02,          
     &0.1435420E-02,0.1527759E-02,0.1625738E-02,0.1729670E-02,          
     &0.1839880E-02,0.1956708E-02,0.2080505E-02,0.2211639E-02,          
     &0.2350488E-02,0.2497440E-02,0.2652900E-02,0.2817276E-02,          
     &0.2990992E-02,0.3174472E-02,0.3368150E-02,0.3572460E-02,          
     &0.3787834E-02,0.4014701E-02,0.4253478E-02,0.4504568E-02,          
     &0.4768352E-02,0.5045182E-02,0.5335371E-02,0.5639184E-02,          
     &0.5956828E-02,0.6288433E-02,0.6634044E-02,0.6993596E-02,          
     &0.7366902E-02,0.7753625E-02,0.8153259E-02,0.8565097E-02,          
     &0.8988208E-02,0.9421399E-02,0.9863187E-02,0.1031176E-01,          
     &0.1076494E-01,0.1122016E-01,0.1167440E-01,0.1212418E-01,          
     &0.1256549E-01,0.1299383E-01,0.1340411E-01,0.1379070E-01,          
     &0.1414738E-01,0.1446739E-01,0.1474341E-01,0.1496764E-01,          
     &0.1513180E-01,0.1522721E-01,0.1524487E-01,0.1517549E-01,          
     &0.1500961E-01,0.1473774E-01,0.1435048E-01,0.1383881E-01,          
     &0.1319457E-01,0.1241122E-01,0.1148508E-01,0.1041723E-01,          
     &0.9216187E-02,0.7901357E-02,0.6506899E-02,0.5085025E-02,          
     &0.3706896E-02,0.2458324E-02,0.1427181E-02,0.6809166E-03,          
     &0.2380529E-03,0.4783139E-04,0.2897609E-05,0.0000000E+00/          
      data fgd52/                                                       
     &0.2675845E-03,0.2857963E-03,0.3052185E-03,0.3259290E-03,          
     &0.3480105E-03,0.3715507E-03,0.3966426E-03,0.4233851E-03,          
     &0.4518827E-03,0.4822465E-03,0.5145939E-03,0.5490496E-03,          
     &0.5857453E-03,0.6248205E-03,0.6664230E-03,0.7107088E-03,          
     &0.7578431E-03,0.8080002E-03,0.8613642E-03,0.9181296E-03,          
     &0.9785016E-03,0.1042696E-02,0.1110941E-02,0.1183477E-02,          
     &0.1260555E-02,0.1342441E-02,0.1429414E-02,0.1521765E-02,          
     &0.1619801E-02,0.1723843E-02,0.1834226E-02,0.1951300E-02,          
     &0.2075430E-02,0.2206995E-02,0.2346391E-02,0.2494026E-02,          
     &0.2650322E-02,0.2815716E-02,0.2990655E-02,0.3175600E-02,          
     &0.3371017E-02,0.3577383E-02,0.3795179E-02,0.4024886E-02,          
     &0.4266984E-02,0.4521947E-02,0.4790238E-02,0.5072298E-02,          
     &0.5368549E-02,0.5679374E-02,0.6005113E-02,0.6346052E-02,          
     &0.6702409E-02,0.7074316E-02,0.7461806E-02,0.7864790E-02,          
     &0.8283040E-02,0.8716156E-02,0.9163549E-02,0.9624407E-02,          
     &0.1009766E-01,0.1058194E-01,0.1107556E-01,0.1157647E-01,          
     &0.1208220E-01,0.1258984E-01,0.1309598E-01,0.1359669E-01,          
     &0.1408748E-01,0.1456326E-01,0.1501834E-01,0.1544638E-01,          
     &0.1584042E-01,0.1619289E-01,0.1649563E-01,0.1673990E-01,          
     &0.1691648E-01,0.1701570E-01,0.1702756E-01,0.1694173E-01,          
     &0.1674776E-01,0.1643516E-01,0.1599358E-01,0.1541317E-01,          
     &0.1468509E-01,0.1380239E-01,0.1276139E-01,0.1156382E-01,          
     &0.1021977E-01,0.8751475E-02,0.7197573E-02,0.5616579E-02,          
     &0.4087698E-02,0.2705853E-02,0.1567544E-02,0.7459896E-03,          
     &0.2599408E-03,0.5193187E-04,0.3070352E-05,0.0000000E+00/          
      data fgd53/                                                       
     &0.2984969E-03,0.3187938E-03,0.3404384E-03,0.3635170E-03,          
     &0.3881218E-03,0.4143501E-03,0.4423054E-03,0.4720974E-03,          
     &0.5038425E-03,0.5376640E-03,0.5736924E-03,0.6120661E-03,          
     &0.6529314E-03,0.6964433E-03,0.7427658E-03,0.7920721E-03,          
     &0.8445455E-03,0.9003796E-03,0.9597787E-03,0.1022958E-02,          
     &0.1090146E-02,0.1161582E-02,0.1237519E-02,0.1318221E-02,          
     &0.1403970E-02,0.1495059E-02,0.1591796E-02,0.1694505E-02,          
     &0.1803525E-02,0.1919212E-02,0.2041936E-02,0.2172084E-02,          
     &0.2310059E-02,0.2456282E-02,0.2611189E-02,0.2775230E-02,          
     &0.2948872E-02,0.3132596E-02,0.3326897E-02,0.3532279E-02,          
     &0.3749259E-02,0.3978360E-02,0.4220109E-02,0.4475036E-02,          
     &0.4743667E-02,0.5026521E-02,0.5324102E-02,0.5636894E-02,          
     &0.5965353E-02,0.6309893E-02,0.6670883E-02,0.7048626E-02,          
     &0.7443349E-02,0.7855186E-02,0.8284157E-02,0.8730147E-02,          
     &0.9192883E-02,0.9671905E-02,0.1016654E-01,0.1067586E-01,          
     &0.1119866E-01,0.1173341E-01,0.1227822E-01,0.1283077E-01,          
     &0.1338832E-01,0.1394762E-01,0.1450487E-01,0.1505570E-01,          
     &0.1559511E-01,0.1611748E-01,0.1661646E-01,0.1708506E-01,          
     &0.1751557E-01,0.1789963E-01,0.1822821E-01,0.1849168E-01,          
     &0.1867989E-01,0.1878220E-01,0.1878760E-01,0.1868479E-01,          
     &0.1846230E-01,0.1810869E-01,0.1761269E-01,0.1696366E-01,          
     &0.1615210E-01,0.1517068E-01,0.1401577E-01,0.1268978E-01,          
     &0.1120439E-01,0.9584710E-02,0.7873791E-02,0.6136381E-02,          
     &0.4459594E-02,0.2947247E-02,0.1704220E-02,0.8092534E-03,          
     &0.2811898E-03,0.5591095E-04,0.3239549E-05,0.0000000E+00/          
      data fgd54/                                                       
     &0.3293297E-03,0.3517047E-03,0.3755638E-03,0.4010023E-03,          
     &0.4281212E-03,0.4570279E-03,0.4878359E-03,0.5206660E-03,          
     &0.5556461E-03,0.5929118E-03,0.6326065E-03,0.6748823E-03,          
     &0.7199001E-03,0.7678301E-03,0.8188525E-03,0.8731575E-03,          
     &0.9309466E-03,0.9924322E-03,0.1057839E-02,0.1127403E-02,          
     &0.1201375E-02,0.1280017E-02,0.1363607E-02,0.1452436E-02,          
     &0.1546812E-02,0.1647055E-02,0.1753506E-02,0.1866518E-02,          
     &0.1986462E-02,0.2113729E-02,0.2248724E-02,0.2391870E-02,          
     &0.2543611E-02,0.2704404E-02,0.2874726E-02,0.3055072E-02,          
     &0.3245950E-02,0.3447887E-02,0.3661420E-02,0.3887103E-02,          
     &0.4125497E-02,0.4377172E-02,0.4642703E-02,0.4922665E-02,          
     &0.5217630E-02,0.5528160E-02,0.5854802E-02,0.6198078E-02,          
     &0.6558479E-02,0.6936452E-02,0.7332387E-02,0.7746607E-02,          
     &0.8179347E-02,0.8630740E-02,0.9100792E-02,0.9589361E-02,          
     &0.1009613E-01,0.1062058E-01,0.1116194E-01,0.1171918E-01,          
     &0.1229096E-01,0.1287558E-01,0.1347092E-01,0.1407445E-01,          
     &0.1468312E-01,0.1529335E-01,0.1590095E-01,0.1650112E-01,          
     &0.1708837E-01,0.1765649E-01,0.1819856E-01,0.1870688E-01,          
     &0.1917304E-01,0.1958786E-01,0.1994149E-01,0.2022342E-01,          
     &0.2042256E-01,0.2052731E-01,0.2052570E-01,0.2040544E-01,          
     &0.2015411E-01,0.1975929E-01,0.1920887E-01,0.1849139E-01,          
     &0.1759675E-01,0.1651729E-01,0.1524946E-01,0.1379635E-01,          
     &0.1217128E-01,0.1040220E-01,0.8536585E-02,0.6645316E-02,          
     &0.4823286E-02,0.3183015E-02,0.1837527E-02,0.8708702E-03,          
     &0.3018587E-03,0.5977944E-04,0.3405254E-05,0.0000000E+00/          
      data fgd55/                                                       
     &0.3600604E-03,0.3845051E-03,0.4105697E-03,0.4383581E-03,          
     &0.4679806E-03,0.4995540E-03,0.5332024E-03,0.5690572E-03,          
     &0.6072580E-03,0.6479523E-03,0.6912965E-03,0.7374563E-03,          
     &0.7866070E-03,0.8389340E-03,0.8946335E-03,0.9539129E-03,          
     &0.1016991E-02,0.1084100E-02,0.1155483E-02,0.1231399E-02,          
     &0.1312119E-02,0.1397929E-02,0.1489131E-02,0.1586042E-02,          
     &0.1688996E-02,0.1798343E-02,0.1914451E-02,0.2037706E-02,          
     &0.2168510E-02,0.2307288E-02,0.2454479E-02,0.2610544E-02,          
     &0.2775962E-02,0.2951232E-02,0.3136870E-02,0.3333413E-02,          
     &0.3541411E-02,0.3761435E-02,0.3994068E-02,0.4239907E-02,          
     &0.4499561E-02,0.4773644E-02,0.5062779E-02,0.5367585E-02,          
     &0.5688679E-02,0.6026667E-02,0.6382134E-02,0.6755643E-02,          
     &0.7147717E-02,0.7558832E-02,0.7989405E-02,0.8439772E-02,          
     &0.8910177E-02,0.9400752E-02,0.9911487E-02,0.1044221E-01,          
     &0.1099256E-01,0.1156196E-01,0.1214954E-01,0.1275417E-01,          
     &0.1337437E-01,0.1400826E-01,0.1465352E-01,0.1530738E-01,          
     &0.1596650E-01,0.1662695E-01,0.1728418E-01,0.1793295E-01,          
     &0.1856726E-01,0.1918037E-01,0.1976473E-01,0.2031201E-01,          
     &0.2081303E-01,0.2125787E-01,0.2163582E-01,0.2193552E-01,          
     &0.2214494E-01,0.2225158E-01,0.2224247E-01,0.2210439E-01,          
     &0.2182394E-01,0.2138780E-01,0.2078299E-01,0.1999731E-01,          
     &0.1902007E-01,0.1784328E-01,0.1646350E-01,0.1488457E-01,          
     &0.1312144E-01,0.1120491E-01,0.9186809E-02,0.7144113E-02,          
     &0.5179353E-02,0.3413571E-02,0.1967724E-02,0.9309719E-03,          
     &0.3219950E-03,0.6354629E-04,0.3567557E-05,0.0000000E+00/          
      data fgd56/                                                       
     &0.3906710E-03,0.4171758E-03,0.4454357E-03,0.4755630E-03,          
     &0.5076772E-03,0.5419048E-03,0.5783797E-03,0.6172445E-03,          
     &0.6586498E-03,0.7027555E-03,0.7497308E-03,0.7997548E-03,          
     &0.8530169E-03,0.9097179E-03,0.9700698E-03,0.1034297E-02,          
     &0.1102636E-02,0.1175336E-02,0.1252663E-02,0.1334895E-02,          
     &0.1422324E-02,0.1515261E-02,0.1614031E-02,0.1718977E-02,          
     &0.1830458E-02,0.1948854E-02,0.2074560E-02,0.2207994E-02,          
     &0.2349590E-02,0.2499804E-02,0.2659113E-02,0.2828012E-02,          
     &0.3007017E-02,0.3196667E-02,0.3397517E-02,0.3610144E-02,          
     &0.3835142E-02,0.4073124E-02,0.4324718E-02,0.4590566E-02,          
     &0.4871320E-02,0.5167642E-02,0.5480199E-02,0.5809654E-02,          
     &0.6156669E-02,0.6521889E-02,0.6905944E-02,0.7309429E-02,          
     &0.7732904E-02,0.8176872E-02,0.8641771E-02,0.9127955E-02,          
     &0.9635676E-02,0.1016506E-01,0.1071608E-01,0.1128854E-01,          
     &0.1188203E-01,0.1249589E-01,0.1312920E-01,0.1378070E-01,          
     &0.1444876E-01,0.1513134E-01,0.1582593E-01,0.1652948E-01,          
     &0.1723838E-01,0.1794839E-01,0.1865455E-01,0.1935120E-01,          
     &0.2003184E-01,0.2068920E-01,0.2131513E-01,0.2190061E-01,          
     &0.2243578E-01,0.2290993E-01,0.2331153E-01,0.2362836E-01,          
     &0.2384750E-01,0.2395550E-01,0.2393847E-01,0.2378224E-01,          
     &0.2347247E-01,0.2299495E-01,0.2233586E-01,0.2148225E-01,          
     &0.2042290E-01,0.1914952E-01,0.1765880E-01,0.1595535E-01,          
     &0.1405574E-01,0.1199363E-01,0.9825186E-02,0.7633385E-02,          
     &0.5528279E-02,0.3639263E-02,0.2095030E-02,0.9896683E-03,          
     &0.3416385E-03,0.6721894E-04,0.3726568E-05,0.0000000E+00/          
      data fgd57/                                                       
     &0.4211471E-03,0.4497016E-03,0.4801456E-03,0.5125999E-03,          
     &0.5471929E-03,0.5840607E-03,0.6233474E-03,0.6652060E-03,          
     &0.7097988E-03,0.7572976E-03,0.8078840E-03,0.8617507E-03,          
     &0.9191015E-03,0.9801518E-03,0.1045130E-02,0.1114276E-02,          
     &0.1187845E-02,0.1266105E-02,0.1349341E-02,0.1437850E-02,          
     &0.1531949E-02,0.1631969E-02,0.1738260E-02,0.1851190E-02,          
     &0.1971145E-02,0.2098531E-02,0.2233774E-02,0.2377321E-02,          
     &0.2529637E-02,0.2691213E-02,0.2862557E-02,0.3044202E-02,          
     &0.3236701E-02,0.3440630E-02,0.3656583E-02,0.3885180E-02,          
     &0.4127054E-02,0.4382863E-02,0.4653276E-02,0.4938981E-02,          
     &0.5240673E-02,0.5559061E-02,0.5894853E-02,0.6248760E-02,          
     &0.6621483E-02,0.7013712E-02,0.7426111E-02,0.7859318E-02,          
     &0.8313918E-02,0.8790447E-02,0.9289363E-02,0.9811034E-02,          
     &0.1035572E-01,0.1092354E-01,0.1151445E-01,0.1212822E-01,          
     &0.1276441E-01,0.1342228E-01,0.1410083E-01,0.1479868E-01,          
     &0.1551406E-01,0.1624477E-01,0.1698808E-01,0.1774071E-01,          
     &0.1849877E-01,0.1925767E-01,0.2001210E-01,0.2075593E-01,          
     &0.2148221E-01,0.2218312E-01,0.2284990E-01,0.2347290E-01,          
     &0.2404153E-01,0.2454431E-01,0.2496894E-01,0.2530231E-01,          
     &0.2553063E-01,0.2563955E-01,0.2561422E-01,0.2543956E-01,          
     &0.2510032E-01,0.2458140E-01,0.2386816E-01,0.2294696E-01,          
     &0.2180602E-01,0.2043680E-01,0.1883615E-01,0.1700944E-01,          
     &0.1497492E-01,0.1276905E-01,0.1045233E-01,0.8113656E-02,          
     &0.5870478E-02,0.3860387E-02,0.2219626E-02,0.1047052E-02,          
     &0.3608227E-03,0.7080378E-04,0.3882402E-05,0.0000000E+00/          
      data fgd58/                                                       
     &0.4514766E-03,0.4820699E-03,0.5146862E-03,0.5494547E-03,          
     &0.5865128E-03,0.6260062E-03,0.6680888E-03,0.7129244E-03,          
     &0.7606865E-03,0.8115587E-03,0.8657355E-03,0.9234225E-03,          
     &0.9848379E-03,0.1050212E-02,0.1119788E-02,0.1193823E-02,          
     &0.1272590E-02,0.1356376E-02,0.1445483E-02,0.1540231E-02,          
     &0.1640957E-02,0.1748016E-02,0.1861779E-02,0.1982642E-02,          
     &0.2111015E-02,0.2247332E-02,0.2392048E-02,0.2545639E-02,          
     &0.2708603E-02,0.2881461E-02,0.3064757E-02,0.3259058E-02,          
     &0.3464954E-02,0.3683059E-02,0.3914006E-02,0.4158454E-02,          
     &0.4417079E-02,0.4690578E-02,0.4979667E-02,0.5285074E-02,          
     &0.5607541E-02,0.5947818E-02,0.6306659E-02,0.6684817E-02,          
     &0.7083036E-02,0.7502045E-02,0.7942548E-02,0.8405216E-02,          
     &0.8890669E-02,0.9399467E-02,0.9932089E-02,0.1048892E-01,          
     &0.1107022E-01,0.1167610E-01,0.1230651E-01,0.1296119E-01,          
     &0.1363964E-01,0.1434106E-01,0.1506436E-01,0.1580805E-01,          
     &0.1657022E-01,0.1734850E-01,0.1813996E-01,0.1894109E-01,          
     &0.1974768E-01,0.2055484E-01,0.2135687E-01,0.2214723E-01,          
     &0.2291847E-01,0.2366225E-01,0.2436921E-01,0.2502905E-01,          
     &0.2563049E-01,0.2616130E-01,0.2660836E-01,0.2695773E-01,          
     &0.2719475E-01,0.2730415E-01,0.2727020E-01,0.2707688E-01,          
     &0.2670805E-01,0.2614775E-01,0.2538054E-01,0.2439209E-01,          
     &0.2317011E-01,0.2170582E-01,0.1999625E-01,0.1804755E-01,          
     &0.1587963E-01,0.1353180E-01,0.1106880E-01,0.8585384E-02,          
     &0.6206308E-02,0.4077197E-02,0.2341672E-02,0.1103204E-02,          
     &0.3795765E-03,0.7430628E-04,0.4035174E-05,0.0000000E+00/          
      data fgd59/                                                       
     &0.4816500E-03,0.5142704E-03,0.5490465E-03,0.5861159E-03,          
     &0.6256249E-03,0.6677284E-03,0.7125904E-03,0.7603854E-03,          
     &0.8112979E-03,0.8655232E-03,0.9232684E-03,0.9847524E-03,          
     &0.1050207E-02,0.1119878E-02,0.1194023E-02,0.1272917E-02,          
     &0.1356850E-02,0.1446125E-02,0.1541066E-02,0.1642013E-02,          
     &0.1749322E-02,0.1863372E-02,0.1984559E-02,0.2113300E-02,          
     &0.2250034E-02,0.2395221E-02,0.2549344E-02,0.2712909E-02,          
     &0.2886445E-02,0.3070506E-02,0.3265668E-02,0.3472534E-02,          
     &0.3691729E-02,0.3923905E-02,0.4169734E-02,0.4429913E-02,          
     &0.4705160E-02,0.4996215E-02,0.5303833E-02,0.5628787E-02,          
     &0.5971862E-02,0.6333852E-02,0.6715553E-02,0.7117760E-02,          
     &0.7541260E-02,0.7986821E-02,0.8455186E-02,0.8947058E-02,          
     &0.9463089E-02,0.1000386E-01,0.1056988E-01,0.1116154E-01,          
     &0.1177911E-01,0.1242269E-01,0.1309221E-01,0.1378739E-01,          
     &0.1450766E-01,0.1525218E-01,0.1601975E-01,0.1680879E-01,          
     &0.1761723E-01,0.1844255E-01,0.1928160E-01,0.2013062E-01,          
     &0.2098515E-01,0.2183995E-01,0.2268895E-01,0.2352519E-01,          
     &0.2434075E-01,0.2512674E-01,0.2587324E-01,0.2656929E-01,          
     &0.2720292E-01,0.2776116E-01,0.2823009E-01,0.2859495E-01,          
     &0.2884022E-01,0.2894973E-01,0.2890686E-01,0.2869468E-01,          
     &0.2829618E-01,0.2769455E-01,0.2687356E-01,0.2581824E-01,          
     &0.2451579E-01,0.2295721E-01,0.2113971E-01,0.1907028E-01,          
     &0.1677046E-01,0.1428240E-01,0.1167505E-01,0.9048969E-02,          
     &0.6536083E-02,0.4289918E-02,0.2461306E-02,0.1158193E-02,          
     &0.3979250E-03,0.7773122E-04,0.4184996E-05,0.0000000E+00/          
      data fgd60/                                                       
     &0.5116593E-03,0.5462948E-03,0.5832177E-03,0.6225742E-03,          
     &0.6645191E-03,0.7092168E-03,0.7568413E-03,0.8075773E-03,          
     &0.8616204E-03,0.9191780E-03,0.9804692E-03,0.1045726E-02,          
     &0.1115195E-02,0.1189134E-02,0.1267819E-02,0.1351541E-02,          
     &0.1440604E-02,0.1535333E-02,0.1636069E-02,0.1743172E-02,          
     &0.1857020E-02,0.1978014E-02,0.2106573E-02,0.2243138E-02,          
     &0.2388175E-02,0.2542170E-02,0.2705634E-02,0.2879102E-02,          
     &0.3063134E-02,0.3258315E-02,0.3465256E-02,0.3684594E-02,          
     &0.3916989E-02,0.4163129E-02,0.4423726E-02,0.4699516E-02,          
     &0.4991256E-02,0.5299728E-02,0.5625729E-02,0.5970073E-02,          
     &0.6333590E-02,0.6717114E-02,0.7121485E-02,0.7547541E-02,          
     &0.7996107E-02,0.8467992E-02,0.8963974E-02,0.9484792E-02,          
     &0.1003113E-01,0.1060359E-01,0.1120270E-01,0.1182886E-01,          
     &0.1248235E-01,0.1316327E-01,0.1387152E-01,0.1460678E-01,          
     &0.1536846E-01,0.1615563E-01,0.1696701E-01,0.1780089E-01,          
     &0.1865510E-01,0.1952692E-01,0.2041300E-01,0.2130935E-01,          
     &0.2221123E-01,0.2311307E-01,0.2400843E-01,0.2488993E-01,          
     &0.2574918E-01,0.2657676E-01,0.2736217E-01,0.2809382E-01,          
     &0.2875905E-01,0.2934415E-01,0.2983443E-01,0.3021431E-01,          
     &0.3046739E-01,0.3057666E-01,0.3052461E-01,0.3029341E-01,          
     &0.2986518E-01,0.2922230E-01,0.2834777E-01,0.2722596E-01,          
     &0.2584361E-01,0.2419152E-01,0.2226711E-01,0.2007817E-01,          
     &0.1764794E-01,0.1502133E-01,0.1227152E-01,0.9504767E-02,          
     &0.6860083E-02,0.4498745E-02,0.2578649E-02,0.1212080E-02,          
     &0.4158901E-03,0.8108284E-04,0.4331977E-05,0.0000000E+00/          
      data fgd61/                                                       
     &0.5414978E-03,0.5781360E-03,0.6171925E-03,0.6588217E-03,          
     &0.7031873E-03,0.7504629E-03,0.8008322E-03,0.8544904E-03,          
     &0.9116443E-03,0.9725124E-03,0.1037327E-02,0.1106332E-02,          
     &0.1179787E-02,0.1257968E-02,0.1341163E-02,0.1429678E-02,          
     &0.1523838E-02,0.1623984E-02,0.1730475E-02,0.1843692E-02,          
     &0.1964034E-02,0.2091923E-02,0.2227802E-02,0.2372137E-02,          
     &0.2525416E-02,0.2688156E-02,0.2860892E-02,0.3044191E-02,          
     &0.3238642E-02,0.3444862E-02,0.3663494E-02,0.3895208E-02,          
     &0.4140703E-02,0.4400701E-02,0.4675952E-02,0.4967230E-02,          
     &0.5275334E-02,0.5601084E-02,0.5945320E-02,0.6308898E-02,          
     &0.6692688E-02,0.7097568E-02,0.7524420E-02,0.7974122E-02,          
     &0.8447539E-02,0.8945520E-02,0.9468879E-02,0.1001839E-01,          
     &0.1059475E-01,0.1119861E-01,0.1183051E-01,0.1249085E-01,          
     &0.1317992E-01,0.1389781E-01,0.1464441E-01,0.1541937E-01,          
     &0.1622202E-01,0.1705140E-01,0.1790613E-01,0.1878439E-01,          
     &0.1968385E-01,0.2060164E-01,0.2153422E-01,0.2247735E-01,          
     &0.2342600E-01,0.2437429E-01,0.2531541E-01,0.2624156E-01,          
     &0.2714390E-01,0.2801246E-01,0.2883618E-01,0.2960285E-01,          
     &0.3029911E-01,0.3091054E-01,0.3142168E-01,0.3181611E-01,          
     &0.3207663E-01,0.3218534E-01,0.3212385E-01,0.3187349E-01,          
     &0.3141552E-01,0.3073148E-01,0.2980366E-01,0.2861577E-01,          
     &0.2715411E-01,0.2540929E-01,0.2337896E-01,0.2107174E-01,          
     &0.1851253E-01,0.1574904E-01,0.1285859E-01,0.9953100E-02,          
     &0.7178555E-02,0.4703856E-02,0.2693809E-02,0.1264920E-02,          
     &0.4334914E-03,0.8436489E-04,0.4476218E-05,0.0000000E+00/          
      data fgd62/                                                       
     &0.5711602E-03,0.6097882E-03,0.6509647E-03,0.6948521E-03,          
     &0.7416228E-03,0.7914595E-03,0.8445557E-03,0.9011171E-03,          
     &0.9613610E-03,0.1025518E-02,0.1093831E-02,0.1166560E-02,          
     &0.1243976E-02,0.1326368E-02,0.1414042E-02,0.1507319E-02,          
     &0.1606540E-02,0.1712065E-02,0.1824271E-02,0.1943559E-02,          
     &0.2070349E-02,0.2205084E-02,0.2348230E-02,0.2500278E-02,          
     &0.2661741E-02,0.2833161E-02,0.3015102E-02,0.3208158E-02,          
     &0.3412950E-02,0.3630125E-02,0.3860359E-02,0.4104357E-02,          
     &0.4362850E-02,0.4636598E-02,0.4926388E-02,0.5233032E-02,          
     &0.5557369E-02,0.5900259E-02,0.6262581E-02,0.6645235E-02,          
     &0.7049131E-02,0.7475188E-02,0.7924331E-02,0.8397477E-02,          
     &0.8895532E-02,0.9419382E-02,0.9969874E-02,0.1054781E-01,          
     &0.1115394E-01,0.1178891E-01,0.1245329E-01,0.1314749E-01,          
     &0.1387180E-01,0.1462631E-01,0.1541089E-01,0.1622514E-01,          
     &0.1706836E-01,0.1793951E-01,0.1883713E-01,0.1975929E-01,          
     &0.2070352E-01,0.2166678E-01,0.2264532E-01,0.2363467E-01,          
     &0.2462954E-01,0.2562371E-01,0.2661001E-01,0.2758023E-01,          
     &0.2852505E-01,0.2943401E-01,0.3029547E-01,0.3109658E-01,          
     &0.3182334E-01,0.3246059E-01,0.3299209E-01,0.3340067E-01,          
     &0.3366825E-01,0.3377610E-01,0.3370498E-01,0.3343533E-01,          
     &0.3294760E-01,0.3222253E-01,0.3124167E-01,0.2998813E-01,          
     &0.2844775E-01,0.2661099E-01,0.2447573E-01,0.2205144E-01,          
     &0.1936467E-01,0.1646591E-01,0.1343661E-01,0.1039426E-01,          
     &0.7491726E-02,0.4905408E-02,0.2806885E-02,0.1316761E-02,          
     &0.4507464E-03,0.8758072E-04,0.4617818E-05,0.0000000E+00/          
      data fgd63/                                                       
     &0.6006419E-03,0.6412470E-03,0.6845295E-03,0.7306602E-03,          
     &0.7798200E-03,0.8322009E-03,0.8880059E-03,0.9474509E-03,          
     &0.1010764E-02,0.1078187E-02,0.1149976E-02,0.1226402E-02,          
     &0.1307751E-02,0.1394327E-02,0.1486448E-02,0.1584454E-02,          
     &0.1688701E-02,0.1799566E-02,0.1917447E-02,0.2042762E-02,          
     &0.2175953E-02,0.2317485E-02,0.2467846E-02,0.2627550E-02,          
     &0.2797136E-02,0.2977171E-02,0.3168248E-02,0.3370989E-02,          
     &0.3586043E-02,0.3814090E-02,0.4055837E-02,0.4312022E-02,          
     &0.4583411E-02,0.4870802E-02,0.5175015E-02,0.5496904E-02,          
     &0.5837343E-02,0.6197232E-02,0.6577494E-02,0.6979065E-02,          
     &0.7402899E-02,0.7849957E-02,0.8321200E-02,0.8817590E-02,          
     &0.9340070E-02,0.9889561E-02,0.1046695E-01,0.1107307E-01,          
     &0.1170869E-01,0.1237448E-01,0.1307104E-01,0.1379879E-01,          
     &0.1455801E-01,0.1534878E-01,0.1617095E-01,0.1702411E-01,          
     &0.1790749E-01,0.1881999E-01,0.1976005E-01,0.2072564E-01,          
     &0.2171415E-01,0.2272237E-01,0.2374636E-01,0.2478141E-01,          
     &0.2582194E-01,0.2686143E-01,0.2789235E-01,0.2890606E-01,          
     &0.2989280E-01,0.3084159E-01,0.3174022E-01,0.3257523E-01,          
     &0.3333196E-01,0.3399453E-01,0.3454597E-01,0.3496827E-01,          
     &0.3524257E-01,0.3534929E-01,0.3526834E-01,0.3497932E-01,          
     &0.3446184E-01,0.3369588E-01,0.3266225E-01,0.3134348E-01,          
     &0.2972499E-01,0.2779707E-01,0.2555787E-01,0.2301769E-01,          
     &0.2020475E-01,0.1717231E-01,0.1400589E-01,0.1082850E-01,          
     &0.7799800E-02,0.5103546E-02,0.2917964E-02,0.1367647E-02,          
     &0.4676708E-03,0.9073337E-04,0.4756868E-05,0.0000000E+00/          
      data fgd64/                                                       
     &0.8850041E-03,0.9446404E-03,0.1008194E-02,0.1075914E-02,          
     &0.1148063E-02,0.1224921E-02,0.1306782E-02,0.1393961E-02,          
     &0.1486790E-02,0.1585619E-02,0.1690820E-02,0.1802786E-02,          
     &0.1921933E-02,0.2048698E-02,0.2183547E-02,0.2326969E-02,          
     &0.2479480E-02,0.2641626E-02,0.2813980E-02,0.2997148E-02,          
     &0.3191766E-02,0.3398506E-02,0.3618070E-02,0.3851199E-02,          
     &0.4098669E-02,0.4361295E-02,0.4639927E-02,0.4935459E-02,          
     &0.5248821E-02,0.5580985E-02,0.5932965E-02,0.6305812E-02,          
     &0.6700621E-02,0.7118525E-02,0.7560693E-02,0.8028334E-02,          
     &0.8522688E-02,0.9045028E-02,0.9596653E-02,0.1017888E-01,          
     &0.1079305E-01,0.1144051E-01,0.1212258E-01,0.1284061E-01,          
     &0.1359590E-01,0.1438970E-01,0.1522323E-01,0.1609759E-01,          
     &0.1701381E-01,0.1797278E-01,0.1897521E-01,0.2002161E-01,          
     &0.2111226E-01,0.2224714E-01,0.2342588E-01,0.2464770E-01,          
     &0.2591137E-01,0.2721510E-01,0.2855645E-01,0.2993231E-01,          
     &0.3133873E-01,0.3277085E-01,0.3422281E-01,0.3568763E-01,          
     &0.3715708E-01,0.3862160E-01,0.4007018E-01,0.4149028E-01,          
     &0.4286774E-01,0.4418670E-01,0.4542962E-01,0.4657722E-01,          
     &0.4760852E-01,0.4850095E-01,0.4923043E-01,0.4977154E-01,          
     &0.5009774E-01,0.5018162E-01,0.4999518E-01,0.4951023E-01,          
     &0.4869879E-01,0.4753369E-01,0.4598935E-01,0.4404301E-01,          
     &0.4167659E-01,0.3887950E-01,0.3565294E-01,0.3201588E-01,          
     &0.2801300E-01,0.2372414E-01,0.1927363E-01,0.1483642E-01,          
     &0.1063521E-01,0.6921546E-02,0.3933773E-02,0.1831362E-02,          
     &0.6213653E-03,0.1192936E-03,0.6024065E-05,0.0000000E+00/          
      data fgd65/                                                       
     &0.1150027E-02,0.1227350E-02,0.1309740E-02,0.1397516E-02,          
     &0.1491018E-02,0.1590604E-02,0.1696657E-02,0.1809579E-02,          
     &0.1929797E-02,0.2057764E-02,0.2193956E-02,0.2338880E-02,          
     &0.2493069E-02,0.2657087E-02,0.2831529E-02,0.3017025E-02,          
     &0.3214237E-02,0.3423864E-02,0.3646643E-02,0.3883349E-02,          
     &0.4134797E-02,0.4401846E-02,0.4685398E-02,0.4986397E-02,          
     &0.5305836E-02,0.5644755E-02,0.6004243E-02,0.6385435E-02,          
     &0.6789519E-02,0.7217734E-02,0.7671367E-02,0.8151758E-02,          
     &0.8660297E-02,0.9198419E-02,0.9767608E-02,0.1036939E-01,          
     &0.1100534E-01,0.1167707E-01,0.1238619E-01,0.1313439E-01,          
     &0.1392333E-01,0.1475470E-01,0.1563016E-01,0.1655138E-01,          
     &0.1751997E-01,0.1853748E-01,0.1960540E-01,0.2072507E-01,          
     &0.2189773E-01,0.2312442E-01,0.2440596E-01,0.2574291E-01,          
     &0.2713551E-01,0.2858360E-01,0.3008660E-01,0.3164337E-01,          
     &0.3325216E-01,0.3491054E-01,0.3661526E-01,0.3836212E-01,          
     &0.4014591E-01,0.4196026E-01,0.4379749E-01,0.4564849E-01,          
     &0.4750259E-01,0.4934740E-01,0.5116872E-01,0.5295041E-01,          
     &0.5467429E-01,0.5632007E-01,0.5786532E-01,0.5928548E-01,          
     &0.6055389E-01,0.6164192E-01,0.6251910E-01,0.6315338E-01,          
     &0.6351135E-01,0.6355866E-01,0.6326035E-01,0.6258138E-01,          
     &0.6148718E-01,0.5994448E-01,0.5792231E-01,0.5539370E-01,          
     &0.5233797E-01,0.4874453E-01,0.4461814E-01,0.3998653E-01,          
     &0.3491013E-01,0.2949352E-01,0.2389647E-01,0.1834046E-01,          
     &0.1310392E-01,0.8497267E-02,0.4809885E-02,0.2229215E-02,          
     &0.7525417E-03,0.1435732E-03,0.7107852E-05,0.0000000E+00/          
      data fgd66/                                                       
     &0.1396483E-02,0.1490220E-02,0.1590086E-02,0.1696468E-02,          
     &0.1809775E-02,0.1930440E-02,0.2058923E-02,0.2195711E-02,          
     &0.2341317E-02,0.2496287E-02,0.2661195E-02,0.2836651E-02,          
     &0.3023298E-02,0.3221814E-02,0.3432916E-02,0.3657361E-02,          
     &0.3895946E-02,0.4149510E-02,0.4418940E-02,0.4705166E-02,          
     &0.5009169E-02,0.5331979E-02,0.5674677E-02,0.6038398E-02,          
     &0.6424332E-02,0.6833724E-02,0.7267877E-02,0.7728155E-02,          
     &0.8215976E-02,0.8732821E-02,0.9280230E-02,0.9859802E-02,          
     &0.1047319E-01,0.1112212E-01,0.1180835E-01,0.1253369E-01,          
     &0.1330003E-01,0.1410925E-01,0.1496331E-01,0.1586417E-01,          
     &0.1681381E-01,0.1781421E-01,0.1886735E-01,0.1997517E-01,          
     &0.2113956E-01,0.2236233E-01,0.2364519E-01,0.2498972E-01,          
     &0.2639731E-01,0.2786914E-01,0.2940610E-01,0.3100877E-01,          
     &0.3267734E-01,0.3441152E-01,0.3621047E-01,0.3807271E-01,          
     &0.3999602E-01,0.4197732E-01,0.4401257E-01,0.4609659E-01,          
     &0.4822297E-01,0.5038391E-01,0.5257004E-01,0.5477028E-01,          
     &0.5697168E-01,0.5915926E-01,0.6131588E-01,0.6342207E-01,          
     &0.6545597E-01,0.6739323E-01,0.6920698E-01,0.7086782E-01,          
     &0.7234395E-01,0.7360122E-01,0.7460342E-01,0.7531247E-01,          
     &0.7568883E-01,0.7569192E-01,0.7528056E-01,0.7441365E-01,          
     &0.7305083E-01,0.7115351E-01,0.6868615E-01,0.6561825E-01,          
     &0.6192729E-01,0.5760311E-01,0.5265433E-01,0.4711723E-01,          
     &0.4106713E-01,0.3463155E-01,0.2800263E-01,0.2144388E-01,          
     &0.1528343E-01,0.9883549E-02,0.5577737E-02,0.2576488E-02,          
     &0.8665704E-03,0.1646093E-03,0.8049356E-05,0.0000000E+00/          
      data fgd67/                                                       
     &0.1625734E-02,0.1734713E-02,0.1850806E-02,0.1974460E-02,          
     &0.2106151E-02,0.2246380E-02,0.2395678E-02,0.2554609E-02,          
     &0.2723768E-02,0.2903786E-02,0.3095327E-02,0.3299097E-02,          
     &0.3515838E-02,0.3746335E-02,0.3991418E-02,0.4251958E-02,          
     &0.4528878E-02,0.4823148E-02,0.5135790E-02,0.5467879E-02,          
     &0.5820545E-02,0.6194978E-02,0.6592424E-02,0.7014191E-02,          
     &0.7461651E-02,0.7936236E-02,0.8439451E-02,0.8972859E-02,          
     &0.9538095E-02,0.1013686E-01,0.1077093E-01,0.1144214E-01,          
     &0.1215238E-01,0.1290362E-01,0.1369790E-01,0.1453729E-01,          
     &0.1542393E-01,0.1636000E-01,0.1734771E-01,0.1838931E-01,          
     &0.1948705E-01,0.2064319E-01,0.2185997E-01,0.2313959E-01,          
     &0.2448419E-01,0.2589580E-01,0.2737634E-01,0.2892758E-01,          
     &0.3055104E-01,0.3224802E-01,0.3401946E-01,0.3586596E-01,          
     &0.3778762E-01,0.3978402E-01,0.4185408E-01,0.4399597E-01,          
     &0.4620702E-01,0.4848355E-01,0.5082075E-01,0.5321253E-01,          
     &0.5565136E-01,0.5812808E-01,0.6063176E-01,0.6314950E-01,          
     &0.6566622E-01,0.6816456E-01,0.7062463E-01,0.7302394E-01,          
     &0.7533722E-01,0.7753640E-01,0.7959054E-01,0.8146583E-01,          
     &0.8312573E-01,0.8453111E-01,0.8564050E-01,0.8641042E-01,          
     &0.8679572E-01,0.8675022E-01,0.8622718E-01,0.8518004E-01,          
     &0.8356334E-01,0.8133380E-01,0.7845192E-01,0.7488428E-01,          
     &0.7060695E-01,0.6561060E-01,0.5990775E-01,0.5354295E-01,          
     &0.4660553E-01,0.3924429E-01,0.3168101E-01,0.2421734E-01,          
     &0.1722609E-01,0.1111560E-01,0.6258004E-02,0.2883104E-02,          
     &0.9669004E-03,0.1830650E-03,0.8876422E-05,0.0000000E+00/          
      data fgd68/                                                       
     &0.1839255E-02,0.1962409E-02,0.2093591E-02,0.2233306E-02,          
     &0.2382088E-02,0.2540503E-02,0.2709148E-02,0.2888659E-02,          
     &0.3079705E-02,0.3282997E-02,0.3499282E-02,0.3729353E-02,          
     &0.3974046E-02,0.4234244E-02,0.4510878E-02,0.4804931E-02,          
     &0.5117439E-02,0.5449491E-02,0.5802236E-02,0.6176881E-02,          
     &0.6574697E-02,0.6997017E-02,0.7445241E-02,0.7920836E-02,          
     &0.8425341E-02,0.8960363E-02,0.9527586E-02,0.1012877E-01,          
     &0.1076573E-01,0.1144039E-01,0.1215472E-01,0.1291077E-01,          
     &0.1371068E-01,0.1455663E-01,0.1545090E-01,0.1639580E-01,          
     &0.1739372E-01,0.1844709E-01,0.1955836E-01,0.2073004E-01,          
     &0.2196464E-01,0.2326466E-01,0.2463256E-01,0.2607080E-01,          
     &0.2758172E-01,0.2916757E-01,0.3083045E-01,0.3257227E-01,          
     &0.3439470E-01,0.3629912E-01,0.3828652E-01,0.4035747E-01,          
     &0.4251202E-01,0.4474958E-01,0.4706885E-01,0.4946768E-01,          
     &0.5194295E-01,0.5449040E-01,0.5710452E-01,0.5977834E-01,          
     &0.6250329E-01,0.6526895E-01,0.6806293E-01,0.7087061E-01,          
     &0.7367498E-01,0.7645643E-01,0.7919256E-01,0.8185806E-01,          
     &0.8442455E-01,0.8686050E-01,0.8913122E-01,0.9119889E-01,          
     &0.9302264E-01,0.9455875E-01,0.9576096E-01,0.9658083E-01,          
     &0.9696817E-01,0.9687170E-01,0.9623963E-01,0.9502053E-01,          
     &0.9316435E-01,0.9062368E-01,0.8735555E-01,0.8332409E-01,          
     &0.7850433E-01,0.7288796E-01,0.6649145E-01,0.5936725E-01,          
     &0.5161786E-01,0.4341182E-01,0.3499814E-01,0.2671327E-01,          
     &0.1897035E-01,0.1221906E-01,0.6865590E-02,0.3156150E-02,          
     &0.1055974E-02,0.1994078E-03,0.9609219E-05,0.0000000E+00/          
      data fgd69/                                                       
     &0.2038467E-02,0.2174828E-02,0.2320069E-02,0.2474746E-02,          
     &0.2639449E-02,0.2814803E-02,0.3001467E-02,0.3200142E-02,          
     &0.3411569E-02,0.3636528E-02,0.3875848E-02,0.4130401E-02,          
     &0.4401109E-02,0.4688947E-02,0.4994941E-02,0.5320175E-02,          
     &0.5665788E-02,0.6032984E-02,0.6423027E-02,0.6837247E-02,          
     &0.7277043E-02,0.7743882E-02,0.8239307E-02,0.8764931E-02,          
     &0.9322448E-02,0.9913624E-02,0.1054031E-01,0.1120444E-01,          
     &0.1190802E-01,0.1265314E-01,0.1344199E-01,0.1427680E-01,          
     &0.1515993E-01,0.1609376E-01,0.1708079E-01,0.1812356E-01,          
     &0.1922468E-01,0.2038679E-01,0.2161261E-01,0.2290484E-01,          
     &0.2426624E-01,0.2569952E-01,0.2720738E-01,0.2879247E-01,          
     &0.3045733E-01,0.3220440E-01,0.3403595E-01,0.3595401E-01,          
     &0.3796038E-01,0.4005649E-01,0.4224338E-01,0.4452161E-01,          
     &0.4689112E-01,0.4935120E-01,0.5190032E-01,0.5453601E-01,          
     &0.5725471E-01,0.6005166E-01,0.6292064E-01,0.6585389E-01,          
     &0.6884181E-01,0.7187286E-01,0.7493325E-01,0.7800679E-01,          
     &0.8107463E-01,0.8411511E-01,0.8710349E-01,0.9001184E-01,          
     &0.9280891E-01,0.9545998E-01,0.9792692E-01,0.1001682E+00,          
     &0.1021389E+00,0.1037912E+00,0.1050743E+00,0.1059354E+00,          
     &0.1063196E+00,0.1061710E+00,0.1054333E+00,0.1040505E+00,          
     &0.1019686E+00,0.9913635E-01,0.9550783E-01,0.9104504E-01,          
     &0.8572228E-01,0.7953244E-01,0.7249584E-01,0.6467249E-01,          
     &0.5617728E-01,0.4719706E-01,0.3800599E-01,0.2897230E-01,          
     &0.2054586E-01,0.1321352E-01,0.7411813E-02,0.3400965E-02,          
     &0.1135619E-02,0.2139862E-03,0.1026302E-04,0.0000000E+00/          
      data fgd70/                                                       
     &0.2224683E-02,0.2373376E-02,0.2531742E-02,0.2700386E-02,          
     &0.2879950E-02,0.3071114E-02,0.3274595E-02,0.3491154E-02,          
     &0.3721597E-02,0.3966773E-02,0.4227582E-02,0.4504973E-02,          
     &0.4799947E-02,0.5113563E-02,0.5446936E-02,0.5801243E-02,          
     &0.6177723E-02,0.6577681E-02,0.7002490E-02,0.7453594E-02,          
     &0.7932511E-02,0.8440834E-02,0.8980234E-02,0.9552464E-02,          
     &0.1015936E-01,0.1080283E-01,0.1148489E-01,0.1220763E-01,          
     &0.1297322E-01,0.1378394E-01,0.1464212E-01,0.1555023E-01,          
     &0.1651077E-01,0.1752635E-01,0.1859965E-01,0.1973342E-01,          
     &0.2093048E-01,0.2219368E-01,0.2352594E-01,0.2493019E-01,          
     &0.2640937E-01,0.2796642E-01,0.2960424E-01,0.3132565E-01,          
     &0.3313338E-01,0.3503004E-01,0.3701804E-01,0.3909954E-01,          
     &0.4127642E-01,0.4355019E-01,0.4592191E-01,0.4839210E-01,          
     &0.5096064E-01,0.5362666E-01,0.5638841E-01,0.5924312E-01,          
     &0.6218683E-01,0.6521427E-01,0.6831858E-01,0.7149123E-01,          
     &0.7472170E-01,0.7799734E-01,0.8130309E-01,0.8462128E-01,          
     &0.8793136E-01,0.9120974E-01,0.9442952E-01,0.9756033E-01,          
     &0.1005682E+00,0.1034156E+00,0.1060611E+00,0.1084598E+00,          
     &0.1105630E+00,0.1123191E+00,0.1136733E+00,0.1145685E+00,          
     &0.1149457E+00,0.1147447E+00,0.1139049E+00,0.1123665E+00,          
     &0.1100717E+00,0.1069659E+00,0.1030005E+00,0.9813576E-01,          
     &0.9234546E-01,0.8562374E-01,0.7799475E-01,0.6952568E-01,          
     &0.6034303E-01,0.5065075E-01,0.4074623E-01,0.3102692E-01,          
     &0.2197616E-01,0.1411446E-01,0.7905559E-02,0.3621720E-02,          
     &0.1207255E-02,0.2270697E-03,0.1084973E-04,0.0000000E+00/          
      data fgd71/                                                       
     &0.2399092E-02,0.2559323E-02,0.2729968E-02,0.2911679E-02,          
     &0.3105144E-02,0.3311095E-02,0.3530303E-02,0.3763588E-02,          
     &0.4011812E-02,0.4275891E-02,0.4556790E-02,0.4855530E-02,          
     &0.5173186E-02,0.5510896E-02,0.5869857E-02,0.6251332E-02,          
     &0.6656653E-02,0.7087220E-02,0.7544508E-02,0.8030065E-02,          
     &0.8545522E-02,0.9092585E-02,0.9673050E-02,0.1028879E-01,          
     &0.1094178E-01,0.1163407E-01,0.1236782E-01,0.1314525E-01,          
     &0.1396870E-01,0.1484061E-01,0.1576349E-01,0.1673995E-01,          
     &0.1777268E-01,0.1886448E-01,0.2001821E-01,0.2123681E-01,          
     &0.2252328E-01,0.2388067E-01,0.2531210E-01,0.2682069E-01,          
     &0.2840956E-01,0.3008186E-01,0.3184064E-01,0.3368892E-01,          
     &0.3562960E-01,0.3766542E-01,0.3979892E-01,0.4203238E-01,          
     &0.4436777E-01,0.4680664E-01,0.4935006E-01,0.5199853E-01,          
     &0.5475185E-01,0.5760900E-01,0.6056802E-01,0.6362585E-01,          
     &0.6677815E-01,0.7001915E-01,0.7334142E-01,0.7673567E-01,          
     &0.8019053E-01,0.8369232E-01,0.8722477E-01,0.9076884E-01,          
     &0.9430238E-01,0.9780000E-01,0.1012328E+00,0.1045681E+00,          
     &0.1077696E+00,0.1107968E+00,0.1136055E+00,0.1161474E+00,          
     &0.1183707E+00,0.1202200E+00,0.1216369E+00,0.1225603E+00,          
     &0.1229274E+00,0.1226742E+00,0.1217362E+00,0.1200499E+00,          
     &0.1175541E+00,0.1141913E+00,0.1099105E+00,0.1046704E+00,          
     &0.9844450E-01,0.9122822E-01,0.8304945E-01,0.7398222E-01,          
     &0.6416398E-01,0.5381459E-01,0.4325300E-01,0.3290357E-01,          
     &0.2328032E-01,0.1493441E-01,0.8353971E-02,0.3821751E-02,          
     &0.1272012E-02,0.2388723E-03,0.1137889E-04,0.0000000E+00/          
      data fgd72/                                                       
     &0.2562763E-02,0.2733811E-02,0.2915967E-02,0.3109926E-02,          
     &0.3316421E-02,0.3536232E-02,0.3770179E-02,0.4019136E-02,          
     &0.4284023E-02,0.4565813E-02,0.4865535E-02,0.5184274E-02,          
     &0.5523177E-02,0.5883453E-02,0.6266378E-02,0.6673297E-02,          
     &0.7105624E-02,0.7564851E-02,0.8052545E-02,0.8570354E-02,          
     &0.9120012E-02,0.9703334E-02,0.1032223E-01,0.1097869E-01,          
     &0.1167481E-01,0.1241277E-01,0.1319485E-01,0.1402344E-01,          
     &0.1490101E-01,0.1583013E-01,0.1681349E-01,0.1785385E-01,          
     &0.1895407E-01,0.2011710E-01,0.2134599E-01,0.2264383E-01,          
     &0.2401382E-01,0.2545920E-01,0.2698323E-01,0.2858923E-01,          
     &0.3028051E-01,0.3206036E-01,0.3393203E-01,0.3589868E-01,          
     &0.3796336E-01,0.4012895E-01,0.4239811E-01,0.4477322E-01,          
     &0.4725632E-01,0.4984901E-01,0.5255236E-01,0.5536684E-01,          
     &0.5829215E-01,0.6132716E-01,0.6446970E-01,0.6771640E-01,          
     &0.7106259E-01,0.7450203E-01,0.7802672E-01,0.8162668E-01,          
     &0.8528973E-01,0.8900122E-01,0.9274375E-01,0.9649698E-01,          
     &0.1002373E+00,0.1039376E+00,0.1075671E+00,0.1110911E+00,          
     &0.1144708E+00,0.1176633E+00,0.1206216E+00,0.1232945E+00,          
     &0.1256270E+00,0.1275603E+00,0.1290327E+00,0.1299795E+00,          
     &0.1303343E+00,0.1300294E+00,0.1289969E+00,0.1271700E+00,          
     &0.1244843E+00,0.1208797E+00,0.1163031E+00,0.1107117E+00,          
     &0.1040790E+00,0.9640172E-01,0.8771139E-01,0.7808853E-01,          
     &0.6768090E-01,0.5672328E-01,0.4555461E-01,0.3462415E-01,          
     &0.2447410E-01,0.1568361E-01,0.8762893E-02,0.4003776E-02,          
     &0.1330808E-02,0.2495672E-03,0.1185822E-04,0.0000000E+00/          
      data fgd73/                                                       
     &0.2716650E-02,0.2897860E-02,0.3090829E-02,0.3296291E-02,          
     &0.3515024E-02,0.3747850E-02,0.3995639E-02,0.4259312E-02,          
     &0.4539843E-02,0.4838261E-02,0.5155653E-02,0.5493166E-02,          
     &0.5852012E-02,0.6233469E-02,0.6638884E-02,0.7069677E-02,          
     &0.7527345E-02,0.8013461E-02,0.8529681E-02,0.9077745E-02,          
     &0.9659482E-02,0.1027681E-01,0.1093174E-01,0.1162638E-01,          
     &0.1236294E-01,0.1314372E-01,0.1397112E-01,0.1484765E-01,          
     &0.1577594E-01,0.1675868E-01,0.1779871E-01,0.1889893E-01,          
     &0.2006236E-01,0.2129211E-01,0.2259138E-01,0.2396343E-01,          
     &0.2541162E-01,0.2693934E-01,0.2855005E-01,0.3024721E-01,          
     &0.3203430E-01,0.3391476E-01,0.3589201E-01,0.3796935E-01,          
     &0.4014997E-01,0.4243686E-01,0.4483281E-01,0.4734027E-01,          
     &0.4996135E-01,0.5269768E-01,0.5555036E-01,0.5851978E-01,          
     &0.6160560E-01,0.6480652E-01,0.6812018E-01,0.7154297E-01,          
     &0.7506985E-01,0.7869414E-01,0.8240731E-01,0.8619874E-01,          
     &0.9005547E-01,0.9396192E-01,0.9789968E-01,0.1018471E+00,          
     &0.1057793E+00,0.1096675E+00,0.1134792E+00,0.1171777E+00,          
     &0.1207221E+00,0.1240671E+00,0.1271631E+00,0.1299561E+00,          
     &0.1323882E+00,0.1343976E+00,0.1359192E+00,0.1368853E+00,          
     &0.1372259E+00,0.1368702E+00,0.1357469E+00,0.1337863E+00,          
     &0.1309210E+00,0.1270885E+00,0.1222338E+00,0.1163131E+00,          
     &0.1092996E+00,0.1011917E+00,0.9202417E-01,0.8188388E-01,          
     &0.7092826E-01,0.5940605E-01,0.4767485E-01,0.3620697E-01,          
     &0.2557064E-01,0.1637063E-01,0.9137175E-02,0.4170041E-02,          
     &0.1384400E-02,0.2592967E-03,0.1229410E-04,0.0000000E+00/          
      data fgd74/                                                       
     &0.2861606E-02,0.3052379E-02,0.3255524E-02,0.3471812E-02,          
     &0.3702061E-02,0.3947134E-02,0.4207945E-02,0.4485463E-02,          
     &0.4780712E-02,0.5094771E-02,0.5428783E-02,0.5783954E-02,          
     &0.6161555E-02,0.6562930E-02,0.6989492E-02,0.7442734E-02,          
     &0.7924226E-02,0.8435620E-02,0.8978655E-02,0.9555157E-02,          
     &0.1016704E-01,0.1081633E-01,0.1150513E-01,0.1223564E-01,          
     &0.1301019E-01,0.1383119E-01,0.1470116E-01,0.1562273E-01,          
     &0.1659864E-01,0.1763173E-01,0.1872496E-01,0.1988138E-01,          
     &0.2110415E-01,0.2239652E-01,0.2376184E-01,0.2520352E-01,          
     &0.2672507E-01,0.2833004E-01,0.3002204E-01,0.3180469E-01,          
     &0.3368161E-01,0.3565640E-01,0.3773261E-01,0.3991369E-01,          
     &0.4220293E-01,0.4460347E-01,0.4711816E-01,0.4974956E-01,          
     &0.5249982E-01,0.5537061E-01,0.5836300E-01,0.6147739E-01,          
     &0.6471332E-01,0.6806938E-01,0.7154300E-01,0.7513033E-01,          
     &0.7882599E-01,0.8262289E-01,0.8651199E-01,0.9048206E-01,          
     &0.9451939E-01,0.9860758E-01,0.1027272E+00,0.1068555E+00,          
     &0.1109661E+00,0.1150291E+00,0.1190100E+00,0.1228704E+00,          
     &0.1265673E+00,0.1300533E+00,0.1332763E+00,0.1361798E+00,          
     &0.1387031E+00,0.1407816E+00,0.1423471E+00,0.1433289E+00,          
     &0.1436541E+00,0.1432485E+00,0.1420380E+00,0.1399500E+00,          
     &0.1369146E+00,0.1328671E+00,0.1277506E+00,0.1215205E+00,          
     &0.1141499E+00,0.1056387E+00,0.9602509E-01,0.8540177E-01,          
     &0.7393537E-01,0.6188774E-01,0.4963388E-01,0.3766756E-01,          
     &0.2658103E-01,0.1700266E-01,0.9480882E-02,0.4322426E-02,          
     &0.1433416E-02,0.2681793E-03,0.1269184E-04,0.0000000E+00/          
      data fgd75/                                                       
     &0.2998392E-02,0.3198182E-02,0.3410921E-02,0.3637416E-02,          
     &0.3878520E-02,0.4135137E-02,0.4408224E-02,0.4698792E-02,          
     &0.5007911E-02,0.5336710E-02,0.5686385E-02,0.6058193E-02,          
     &0.6453467E-02,0.6873607E-02,0.7320092E-02,0.7794481E-02,          
     &0.8298414E-02,0.8833617E-02,0.9401905E-02,0.1000519E-01,          
     &0.1064547E-01,0.1132484E-01,0.1204552E-01,0.1280981E-01,          
     &0.1362012E-01,0.1447897E-01,0.1538900E-01,0.1635295E-01,          
     &0.1737367E-01,0.1845414E-01,0.1959742E-01,0.2080671E-01,          
     &0.2208528E-01,0.2343654E-01,0.2486396E-01,0.2637111E-01,          
     &0.2796163E-01,0.2963921E-01,0.3140761E-01,0.3327059E-01,          
     &0.3523191E-01,0.3729531E-01,0.3946447E-01,0.4174296E-01,          
     &0.4413420E-01,0.4664142E-01,0.4926756E-01,0.5201526E-01,          
     &0.5488671E-01,0.5788361E-01,0.6100704E-01,0.6425734E-01,          
     &0.6763397E-01,0.7113539E-01,0.7475886E-01,0.7850029E-01,          
     &0.8235395E-01,0.8631239E-01,0.9036608E-01,0.9450319E-01,          
     &0.9870935E-01,0.1029673E+00,0.1072567E+00,0.1115538E+00,          
     &0.1158309E+00,0.1200566E+00,0.1241950E+00,0.1282060E+00,          
     &0.1320446E+00,0.1356613E+00,0.1390019E+00,0.1420073E+00,          
     &0.1446143E+00,0.1467557E+00,0.1483606E+00,0.1493552E+00,          
     &0.1496637E+00,0.1492093E+00,0.1479151E+00,0.1457058E+00,          
     &0.1425091E+00,0.1382582E+00,0.1328949E+00,0.1263735E+00,          
     &0.1186674E+00,0.1097778E+00,0.9974623E-01,0.8867099E-01,          
     &0.7672740E-01,0.6418962E-01,0.5144894E-01,0.3901912E-01,          
     &0.2751471E-01,0.1758580E-01,0.9797459E-02,0.4462518E-02,          
     &0.1478389E-02,0.2763144E-03,0.1305591E-04,0.0000000E+00/          
      data fgd76/                                                       
     &0.3127683E-02,0.3335991E-02,0.3557791E-02,0.3793924E-02,          
     &0.4045280E-02,0.4312799E-02,0.4597476E-02,0.4900365E-02,          
     &0.5222579E-02,0.5565295E-02,0.5929754E-02,0.6317269E-02,          
     &0.6729221E-02,0.7167073E-02,0.7632360E-02,0.8126704E-02,          
     &0.8651813E-02,0.9209480E-02,0.9801595E-02,0.1043014E-01,          
     &0.1109720E-01,0.1180496E-01,0.1255571E-01,0.1335185E-01,          
     &0.1419588E-01,0.1509043E-01,0.1603823E-01,0.1704213E-01,          
     &0.1810510E-01,0.1923021E-01,0.2042067E-01,0.2167977E-01,          
     &0.2301094E-01,0.2441767E-01,0.2590360E-01,0.2747241E-01,          
     &0.2912788E-01,0.3087385E-01,0.3271418E-01,0.3465278E-01,          
     &0.3669356E-01,0.3884036E-01,0.4109699E-01,0.4346713E-01,          
     &0.4595432E-01,0.4856188E-01,0.5129283E-01,0.5414988E-01,          
     &0.5713526E-01,0.6025069E-01,0.6349724E-01,0.6687521E-01,          
     &0.7038400E-01,0.7402191E-01,0.7778605E-01,0.8167206E-01,          
     &0.8567397E-01,0.8978391E-01,0.9399189E-01,0.9828555E-01,          
     &0.1026499E+00,0.1070668E+00,0.1115151E+00,0.1159700E+00,          
     &0.1204027E+00,0.1247804E+00,0.1290659E+00,0.1332172E+00,          
     &0.1371877E+00,0.1409260E+00,0.1443755E+00,0.1474752E+00,          
     &0.1501594E+00,0.1523582E+00,0.1539982E+00,0.1550030E+00,          
     &0.1552942E+00,0.1547922E+00,0.1534176E+00,0.1510925E+00,          
     &0.1477426E+00,0.1432993E+00,0.1377028E+00,0.1309067E+00,          
     &0.1228848E+00,0.1136395E+00,0.1032155E+00,0.9171655E-01,          
     &0.7932617E-01,0.6633011E-01,0.5313494E-01,0.4027309E-01,          
     &0.2837982E-01,0.1812531E-01,0.1008986E-01,0.4591678E-02,          
     &0.1519773E-02,0.2837871E-03,0.1339016E-04,0.0000000E+00/          
      data fgd77/                                                       
     &0.3250097E-02,0.3466463E-02,0.3696836E-02,0.3942087E-02,          
     &0.4203140E-02,0.4480971E-02,0.4776610E-02,0.5091153E-02,          
     &0.5425752E-02,0.5781628E-02,0.6160068E-02,0.6562433E-02,          
     &0.6990157E-02,0.7444753E-02,0.7927815E-02,0.8441024E-02,          
     &0.8986149E-02,0.9565050E-02,0.1017968E-01,0.1083210E-01,          
     &0.1152447E-01,0.1225905E-01,0.1303821E-01,0.1386444E-01,          
     &0.1474033E-01,0.1566860E-01,0.1665207E-01,0.1769370E-01,          
     &0.1879657E-01,0.1996384E-01,0.2119884E-01,0.2250497E-01,          
     &0.2388577E-01,0.2534488E-01,0.2688602E-01,0.2851303E-01,          
     &0.3022978E-01,0.3204026E-01,0.3394845E-01,0.3595838E-01,          
     &0.3807408E-01,0.4029952E-01,0.4263861E-01,0.4509515E-01,          
     &0.4767278E-01,0.5037488E-01,0.5320459E-01,0.5616464E-01,          
     &0.5925732E-01,0.6248436E-01,0.6584682E-01,0.6934496E-01,          
     &0.7297809E-01,0.7674442E-01,0.8064086E-01,0.8466284E-01,          
     &0.8880408E-01,0.9305637E-01,0.9740929E-01,0.1018500E+00,          
     &0.1063627E+00,0.1109288E+00,0.1155261E+00,0.1201289E+00,          
     &0.1247073E+00,0.1292273E+00,0.1336502E+00,0.1379327E+00,          
     &0.1420263E+00,0.1458778E+00,0.1494287E+00,0.1526158E+00,          
     &0.1553711E+00,0.1576224E+00,0.1592940E+00,0.1603069E+00,          
     &0.1605801E+00,0.1600316E+00,0.1585796E+00,0.1561441E+00,          
     &0.1526486E+00,0.1480228E+00,0.1422056E+00,0.1351502E+00,          
     &0.1268303E+00,0.1172500E+00,0.1064569E+00,0.9455994E-01,          
     &0.8175039E-01,0.6832497E-01,0.5470460E-01,0.4143917E-01,          
     &0.2918325E-01,0.1862562E-01,0.1036059E-01,0.4711045E-02,          
     &0.1557946E-02,0.2906682E-03,0.1369776E-04,0.0000000E+00/          
      data fgd78/                                                       
     &0.3366174E-02,0.3590176E-02,0.3828672E-02,0.4082563E-02,          
     &0.4352803E-02,0.4640404E-02,0.4946429E-02,0.5272010E-02,          
     &0.5618341E-02,0.5986682E-02,0.6378364E-02,0.6794794E-02,          
     &0.7237453E-02,0.7707905E-02,0.8207799E-02,0.8738869E-02,          
     &0.9302944E-02,0.9901946E-02,0.1053790E-01,0.1121292E-01,          
     &0.1192924E-01,0.1268920E-01,0.1349525E-01,0.1434995E-01,          
     &0.1525598E-01,0.1621615E-01,0.1723338E-01,0.1831071E-01,          
     &0.1945130E-01,0.2065845E-01,0.2193557E-01,0.2328617E-01,          
     &0.2471391E-01,0.2622253E-01,0.2781587E-01,0.2949787E-01,          
     &0.3127256E-01,0.3314399E-01,0.3511630E-01,0.3719363E-01,          
     &0.3938010E-01,0.4167982E-01,0.4409679E-01,0.4663492E-01,          
     &0.4929792E-01,0.5208928E-01,0.5501219E-01,0.5806943E-01,          
     &0.6126335E-01,0.6459567E-01,0.6806745E-01,0.7167890E-01,          
     &0.7542925E-01,0.7931660E-01,0.8333769E-01,0.8748774E-01,          
     &0.9176020E-01,0.9614651E-01,0.1006358E+00,0.1052148E+00,          
     &0.1098671E+00,0.1145734E+00,0.1193107E+00,0.1240524E+00,          
     &0.1287676E+00,0.1334210E+00,0.1379728E+00,0.1423780E+00,          
     &0.1465867E+00,0.1505438E+00,0.1541892E+00,0.1574574E+00,          
     &0.1602785E+00,0.1625781E+00,0.1642780E+00,0.1652971E+00,          
     &0.1655519E+00,0.1649581E+00,0.1634317E+00,0.1608906E+00,          
     &0.1572565E+00,0.1524574E+00,0.1464311E+00,0.1391303E+00,          
     &0.1305290E+00,0.1206326E+00,0.1094918E+00,0.9722020E-01,          
     &0.8401664E-01,0.7018816E-01,0.5616919E-01,0.4252597E-01,          
     &0.2993111E-01,0.1909067E-01,0.1061183E-01,0.4821633E-02,          
     &0.1593246E-02,0.2970205E-03,0.1398154E-04,0.0000000E+00/          
      data fgd79/                                                       
     &0.3476407E-02,0.3707655E-02,0.3953859E-02,0.4215948E-02,          
     &0.4494907E-02,0.4791776E-02,0.5107655E-02,0.5443709E-02,          
     &0.5801170E-02,0.6181335E-02,0.6585578E-02,0.7015348E-02,          
     &0.7472172E-02,0.7957662E-02,0.8473518E-02,0.9021526E-02,          
     &0.9603571E-02,0.1022163E-01,0.1087779E-01,0.1157424E-01,          
     &0.1231327E-01,0.1309729E-01,0.1392882E-01,0.1481051E-01,          
     &0.1574511E-01,0.1673551E-01,0.1778471E-01,0.1889586E-01,          
     &0.2007220E-01,0.2131713E-01,0.2263414E-01,0.2402687E-01,          
     &0.2549906E-01,0.2705456E-01,0.2869732E-01,0.3043140E-01,          
     &0.3226092E-01,0.3419005E-01,0.3622305E-01,0.3836415E-01,          
     &0.4061759E-01,0.4298758E-01,0.4547822E-01,0.4809351E-01,          
     &0.5083725E-01,0.5371300E-01,0.5672402E-01,0.5987314E-01,          
     &0.6316272E-01,0.6659452E-01,0.7016957E-01,0.7388804E-01,          
     &0.7774909E-01,0.8175068E-01,0.8588944E-01,0.9016033E-01,          
     &0.9455657E-01,0.9906926E-01,0.1036872E+00,0.1083964E+00,          
     &0.1131802E+00,0.1180185E+00,0.1228876E+00,0.1277600E+00,          
     &0.1326037E+00,0.1373826E+00,0.1420552E+00,0.1465756E+00,          
     &0.1508921E+00,0.1549482E+00,0.1586816E+00,0.1620255E+00,          
     &0.1649076E+00,0.1672515E+00,0.1689769E+00,0.1700004E+00,          
     &0.1702365E+00,0.1695986E+00,0.1680007E+00,0.1653586E+00,          
     &0.1615923E+00,0.1566285E+00,0.1504039E+00,0.1428705E+00,          
     &0.1340029E+00,0.1238078E+00,0.1123387E+00,0.9971397E-01,          
     &0.8613941E-01,0.7193186E-01,0.5753851E-01,0.4354096E-01,          
     &0.3062871E-01,0.1952387E-01,0.1084551E-01,0.4924309E-02,          
     &0.1625961E-02,0.3028977E-03,0.1424392E-04,0.0000000E+00/          
      data fgd80/                                                       
     &0.3581235E-02,0.3819370E-02,0.4072900E-02,0.4342780E-02,          
     &0.4630023E-02,0.4935700E-02,0.5260941E-02,0.5606946E-02,          
     &0.5974979E-02,0.6366377E-02,0.6782553E-02,0.7224994E-02,          
     &0.7695273E-02,0.8195047E-02,0.8726061E-02,0.9290155E-02,          
     &0.9889263E-02,0.1052542E-01,0.1120077E-01,0.1191756E-01,          
     &0.1267815E-01,0.1348501E-01,0.1434073E-01,0.1524803E-01,          
     &0.1620975E-01,0.1722884E-01,0.1830839E-01,0.1945162E-01,          
     &0.2066188E-01,0.2194265E-01,0.2329751E-01,0.2473019E-01,          
     &0.2624454E-01,0.2784450E-01,0.2953413E-01,0.3131758E-01,          
     &0.3319909E-01,0.3518293E-01,0.3727344E-01,0.3947498E-01,          
     &0.4179189E-01,0.4422845E-01,0.4678889E-01,0.4947727E-01,          
     &0.5229748E-01,0.5525316E-01,0.5834760E-01,0.6158369E-01,          
     &0.6496383E-01,0.6848978E-01,0.7216254E-01,0.7598225E-01,          
     &0.7994799E-01,0.8405762E-01,0.8830760E-01,0.9269271E-01,          
     &0.9720591E-01,0.1018380E+00,0.1065773E+00,0.1114096E+00,          
     &0.1163175E+00,0.1212803E+00,0.1262737E+00,0.1312691E+00,          
     &0.1362340E+00,0.1411308E+00,0.1459172E+00,0.1505457E+00,          
     &0.1549635E+00,0.1591122E+00,0.1629281E+00,0.1663424E+00,          
     &0.1692811E+00,0.1716658E+00,0.1734142E+00,0.1744408E+00,          
     &0.1746580E+00,0.1739772E+00,0.1723104E+00,0.1695716E+00,          
     &0.1656793E+00,0.1605585E+00,0.1541454E+00,0.1463914E+00,          
     &0.1372714E+00,0.1267936E+00,0.1150142E+00,0.1020560E+00,          
     &0.8813144E-01,0.7356678E-01,0.5882118E-01,0.4449071E-01,          
     &0.3128067E-01,0.1992819E-01,0.1106327E-01,0.5019833E-02,          
     &0.1656342E-02,0.3083466E-03,0.1448701E-04,0.0000000E+00/          
      data fgd81/                                                       
     &0.3681059E-02,0.3925748E-02,0.4186248E-02,0.4463542E-02,          
     &0.4758668E-02,0.5072725E-02,0.5406874E-02,0.5762346E-02,          
     &0.6140437E-02,0.6542522E-02,0.6970048E-02,0.7424543E-02,          
     &0.7907620E-02,0.8420978E-02,0.8966409E-02,0.9545799E-02,          
     &0.1016113E-01,0.1081450E-01,0.1150810E-01,0.1224423E-01,          
     &0.1302531E-01,0.1385388E-01,0.1473260E-01,0.1566425E-01,          
     &0.1665173E-01,0.1769808E-01,0.1880648E-01,0.1998020E-01,          
     &0.2122269E-01,0.2253750E-01,0.2392832E-01,0.2539895E-01,          
     &0.2695334E-01,0.2859553E-01,0.3032967E-01,0.3216000E-01,          
     &0.3409086E-01,0.3612664E-01,0.3827175E-01,0.4053066E-01,          
     &0.4290779E-01,0.4540754E-01,0.4803419E-01,0.5079192E-01,          
     &0.5368467E-01,0.5671613E-01,0.5988969E-01,0.6320824E-01,          
     &0.6667423E-01,0.7028940E-01,0.7405476E-01,0.7797038E-01,          
     &0.8203529E-01,0.8624724E-01,0.9060252E-01,0.9509575E-01,          
     &0.9971963E-01,0.1044647E+00,0.1093188E+00,0.1142674E+00,          
     &0.1192926E+00,0.1243731E+00,0.1294837E+00,0.1345954E+00,          
     &0.1396745E+00,0.1446826E+00,0.1495761E+00,0.1543064E+00,          
     &0.1588193E+00,0.1630550E+00,0.1669482E+00,0.1704284E+00,          
     &0.1734198E+00,0.1758421E+00,0.1776112E+00,0.1786396E+00,          
     &0.1788377E+00,0.1781151E+00,0.1763820E+00,0.1735506E+00,          
     &0.1695377E+00,0.1642675E+00,0.1576750E+00,0.1497114E+00,          
     &0.1403519E+00,0.1296061E+00,0.1175328E+00,0.1042592E+00,          
     &0.9000405E-01,0.7510240E-01,0.6002482E-01,0.4538102E-01,          
     &0.3189111E-01,0.2030625E-01,0.1126659E-01,0.5108872E-02,          
     &0.1684610E-02,0.3134079E-03,0.1471266E-04,0.0000000E+00/          
      data fgd82/                                                       
     &0.4469263E-02,0.4765557E-02,0.5080934E-02,0.5416574E-02,          
     &0.5773727E-02,0.6153711E-02,0.6557920E-02,0.6987831E-02,          
     &0.7445000E-02,0.7931073E-02,0.8447786E-02,0.8996968E-02,          
     &0.9580553E-02,0.1020057E-01,0.1085917E-01,0.1155860E-01,          
     &0.1230124E-01,0.1308958E-01,0.1392624E-01,0.1481397E-01,          
     &0.1575566E-01,0.1675432E-01,0.1781313E-01,0.1893538E-01,          
     &0.2012454E-01,0.2138421E-01,0.2271814E-01,0.2413026E-01,          
     &0.2562461E-01,0.2720540E-01,0.2887700E-01,0.3064391E-01,          
     &0.3251075E-01,0.3448229E-01,0.3656341E-01,0.3875909E-01,          
     &0.4107440E-01,0.4351446E-01,0.4608443E-01,0.4878950E-01,          
     &0.5163478E-01,0.5462535E-01,0.5776614E-01,0.6106189E-01,          
     &0.6451709E-01,0.6813590E-01,0.7192204E-01,0.7587870E-01,          
     &0.8000842E-01,0.8431292E-01,0.8879303E-01,0.9344841E-01,          
     &0.9827741E-01,0.1032769E+00,0.1084419E+00,0.1137655E+00,          
     &0.1192384E+00,0.1248486E+00,0.1305813E+00,0.1364184E+00,          
     &0.1423378E+00,0.1483136E+00,0.1543153E+00,0.1603076E+00,          
     &0.1662500E+00,0.1720961E+00,0.1777940E+00,0.1832853E+00,          
     &0.1885054E+00,0.1933832E+00,0.1978415E+00,0.2017966E+00,          
     &0.2051595E+00,0.2078357E+00,0.2097265E+00,0.2107299E+00,          
     &0.2107418E+00,0.2096575E+00,0.2073737E+00,0.2037903E+00,          
     &0.1988133E+00,0.1923584E+00,0.1843552E+00,0.1747538E+00,          
     &0.1635339E+00,0.1507171E+00,0.1363844E+00,0.1206979E+00,          
     &0.1039268E+00,0.8647471E-01,0.6889915E-01,0.5191240E-01,          
     &0.3634414E-01,0.2304652E-01,0.1272965E-01,0.5744408E-02,          
     &0.1884614E-02,0.3489239E-03,0.1629000E-04,0.0000000E+00/          
      data fgd83/                                                       
     &0.5007691E-02,0.5339069E-02,0.5691743E-02,0.6067024E-02,          
     &0.6466301E-02,0.6891042E-02,0.7342796E-02,0.7823203E-02,          
     &0.8333994E-02,0.8876996E-02,0.9454137E-02,0.1006745E-01,          
     &0.1071907E-01,0.1141127E-01,0.1214641E-01,0.1292700E-01,          
     &0.1375566E-01,0.1463517E-01,0.1556841E-01,0.1655844E-01,          
     &0.1760844E-01,0.1872176E-01,0.1990189E-01,0.2115249E-01,          
     &0.2247737E-01,0.2388051E-01,0.2536606E-01,0.2693831E-01,          
     &0.2860175E-01,0.3036101E-01,0.3222087E-01,0.3418627E-01,          
     &0.3626231E-01,0.3845421E-01,0.4076731E-01,0.4320705E-01,          
     &0.4577897E-01,0.4848867E-01,0.5134175E-01,0.5434385E-01,          
     &0.5750051E-01,0.6081722E-01,0.6429929E-01,0.6795181E-01,          
     &0.7177957E-01,0.7578698E-01,0.7997792E-01,0.8435571E-01,          
     &0.8892290E-01,0.9368111E-01,0.9863095E-01,0.1037717E+00,          
     &0.1091013E+00,0.1146158E+00,0.1203093E+00,0.1261737E+00,          
     &0.1321985E+00,0.1383698E+00,0.1446708E+00,0.1510809E+00,          
     &0.1575754E+00,0.1641251E+00,0.1706958E+00,0.1772482E+00,          
     &0.1837368E+00,0.1901104E+00,0.1963110E+00,0.2022741E+00,          
     &0.2079283E+00,0.2131950E+00,0.2179891E+00,0.2222187E+00,          
     &0.2257860E+00,0.2285875E+00,0.2305155E+00,0.2314587E+00,          
     &0.2313040E+00,0.2299381E+00,0.2272494E+00,0.2231306E+00,          
     &0.2174819E+00,0.2102143E+00,0.2012554E+00,0.1905561E+00,          
     &0.1781009E+00,0.1639213E+00,0.1481145E+00,0.1308675E+00,          
     &0.1124841E+00,0.9341332E-01,0.7426879E-01,0.5582706E-01,          
     &0.3898429E-01,0.2465107E-01,0.1357412E-01,0.6105257E-02,          
     &0.1996127E-02,0.3683808E-03,0.1714631E-04,0.0000000E+00/          
      data fgd84/                                                       
     &0.5401928E-02,0.5758892E-02,0.6138757E-02,0.6542930E-02,          
     &0.6972900E-02,0.7430242E-02,0.7916615E-02,0.8433779E-02,          
     &0.8983590E-02,0.9568003E-02,0.1018909E-01,0.1084901E-01,          
     &0.1155008E-01,0.1229470E-01,0.1308542E-01,0.1392492E-01,          
     &0.1481600E-01,0.1576162E-01,0.1676488E-01,0.1782904E-01,          
     &0.1895750E-01,0.2015382E-01,0.2142176E-01,0.2276519E-01,          
     &0.2418820E-01,0.2569502E-01,0.2729007E-01,0.2897794E-01,          
     &0.3076337E-01,0.3265132E-01,0.3464685E-01,0.3675524E-01,          
     &0.3898187E-01,0.4133229E-01,0.4381216E-01,0.4642725E-01,          
     &0.4918341E-01,0.5208655E-01,0.5514259E-01,0.5835745E-01,          
     &0.6173699E-01,0.6528694E-01,0.6901287E-01,0.7292008E-01,          
     &0.7701354E-01,0.8129780E-01,0.8577686E-01,0.9045404E-01,          
     &0.9533186E-01,0.1004119E+00,0.1056944E+00,0.1111785E+00,          
     &0.1168616E+00,0.1227393E+00,0.1288049E+00,0.1350495E+00,          
     &0.1414613E+00,0.1480254E+00,0.1547233E+00,0.1615326E+00,          
     &0.1684267E+00,0.1753739E+00,0.1823374E+00,0.1892748E+00,          
     &0.1961375E+00,0.2028702E+00,0.2094110E+00,0.2156910E+00,          
     &0.2216336E+00,0.2271554E+00,0.2321656E+00,0.2365665E+00,          
     &0.2402543E+00,0.2431193E+00,0.2450475E+00,0.2459214E+00,          
     &0.2456218E+00,0.2440296E+00,0.2410281E+00,0.2365053E+00,          
     &0.2303576E+00,0.2224940E+00,0.2128412E+00,0.2013517E+00,          
     &0.1880143E+00,0.1728687E+00,0.1560250E+00,0.1376886E+00,          
     &0.1181887E+00,0.9800648E-01,0.7779484E-01,0.5837390E-01,          
     &0.4068347E-01,0.2567071E-01,0.1410280E-01,0.6327225E-02,          
     &0.2063356E-02,0.3798757E-03,0.1764640E-04,0.0000000E+00/          
      data fgd85/                                                       
     &0.5705025E-02,0.6081592E-02,0.6482284E-02,0.6908580E-02,          
     &0.7362046E-02,0.7844336E-02,0.8357196E-02,0.8902474E-02,          
     &0.9482120E-02,0.1009819E-01,0.1075285E-01,0.1144839E-01,          
     &0.1218721E-01,0.1297186E-01,0.1380500E-01,0.1468943E-01,          
     &0.1562811E-01,0.1662414E-01,0.1768076E-01,0.1880139E-01,          
     &0.1998959E-01,0.2124911E-01,0.2258385E-01,0.2399790E-01,          
     &0.2549551E-01,0.2708112E-01,0.2875935E-01,0.3053499E-01,          
     &0.3241301E-01,0.3439856E-01,0.3649696E-01,0.3871367E-01,          
     &0.4105435E-01,0.4352475E-01,0.4613078E-01,0.4887842E-01,          
     &0.5177377E-01,0.5482296E-01,0.5803213E-01,0.6140742E-01,          
     &0.6495488E-01,0.6868042E-01,0.7258978E-01,0.7668842E-01,          
     &0.8098142E-01,0.8547340E-01,0.9016842E-01,0.9506979E-01,          
     &0.1001800E+00,0.1055004E+00,0.1110313E+00,0.1167713E+00,          
     &0.1227175E+00,0.1288651E+00,0.1352069E+00,0.1417332E+00,          
     &0.1484312E+00,0.1552852E+00,0.1622755E+00,0.1693782E+00,          
     &0.1765652E+00,0.1838029E+00,0.1910527E+00,0.1982696E+00,          
     &0.2054025E+00,0.2123935E+00,0.2191774E+00,0.2256820E+00,          
     &0.2318271E+00,0.2375255E+00,0.2426822E+00,0.2471953E+00,          
     &0.2509565E+00,0.2538518E+00,0.2557624E+00,0.2565666E+00,          
     &0.2561408E+00,0.2543618E+00,0.2511093E+00,0.2462684E+00,          
     &0.2397331E+00,0.2314110E+00,0.2212291E+00,0.2091416E+00,          
     &0.1951412E+00,0.1792746E+00,0.1616621E+00,0.1425236E+00,          
     &0.1222077E+00,0.1012199E+00,0.8024167E-01,0.6012438E-01,          
     &0.4183817E-01,0.2635427E-01,0.1445143E-01,0.6470706E-02,          
     &0.2105791E-02,0.3869523E-03,0.1794960E-04,0.0000000E+00/          
      data fgd86/                                                       
     &0.5946620E-02,0.6338764E-02,0.6756000E-02,0.7199866E-02,          
     &0.7671987E-02,0.8174081E-02,0.8707961E-02,0.9275544E-02,          
     &0.9878854E-02,0.1052002E-01,0.1120130E-01,0.1192506E-01,          
     &0.1269380E-01,0.1351015E-01,0.1437687E-01,0.1529688E-01,          
     &0.1627323E-01,0.1730913E-01,0.1840794E-01,0.1957321E-01,          
     &0.2080863E-01,0.2211807E-01,0.2350556E-01,0.2497534E-01,          
     &0.2653182E-01,0.2817957E-01,0.2992338E-01,0.3176818E-01,          
     &0.3371913E-01,0.3578154E-01,0.3796088E-01,0.4026282E-01,          
     &0.4269316E-01,0.4525784E-01,0.4796294E-01,0.5081464E-01,          
     &0.5381918E-01,0.5698288E-01,0.6031204E-01,0.6381294E-01,          
     &0.6749179E-01,0.7135464E-01,0.7540734E-01,0.7965544E-01,          
     &0.8410411E-01,0.8875801E-01,0.9362120E-01,0.9869701E-01,          
     &0.1039878E+00,0.1094949E+00,0.1152184E+00,0.1211566E+00,          
     &0.1273065E+00,0.1336627E+00,0.1402175E+00,0.1469607E+00,          
     &0.1538790E+00,0.1609555E+00,0.1681697E+00,0.1754968E+00,          
     &0.1829070E+00,0.1903657E+00,0.1978323E+00,0.2052603E+00,          
     &0.2125965E+00,0.2197807E+00,0.2267454E+00,0.2334156E+00,          
     &0.2397086E+00,0.2455339E+00,0.2507936E+00,0.2553824E+00,          
     &0.2591888E+00,0.2620952E+00,0.2639795E+00,0.2647167E+00,          
     &0.2641799E+00,0.2622432E+00,0.2587835E+00,0.2536839E+00,          
     &0.2468369E+00,0.2381496E+00,0.2275494E+00,0.2149922E+00,          
     &0.2004745E+00,0.1840486E+00,0.1658436E+00,0.1460911E+00,          
     &0.1251548E+00,0.1035593E+00,0.8200789E-01,0.6137520E-01,          
     &0.4265320E-01,0.2682955E-01,0.1468932E-01,0.6566317E-02,          
     &0.2133245E-02,0.3913828E-03,0.1813540E-04,0.0000000E+00/          
      if(first) then                                                    
        first=.false.                                                   
        do i=1,n_bin_q2                                                 
          q2l_bin(i)=log(q2l_bin(i))                                    
        enddo                                                           
        do i=1,n_bin_x                                                  
          f(i,1)=fgd1(i)                                                
          f(i,2)=fgd2(i)                                                
          f(i,3)=fgd3(i)                                                
          f(i,4)=fgd4(i)                                                
          f(i,5)=fgd5(i)                                                
          f(i,6)=fgd6(i)                                                
          f(i,7)=fgd7(i)                                                
          f(i,8)=fgd8(i)                                                
          f(i,9)=fgd9(i)                                                
          f(i,10)=fgd10(i)                                              
          f(i,11)=fgd11(i)                                              
          f(i,12)=fgd12(i)                                              
          f(i,13)=fgd13(i)                                              
          f(i,14)=fgd14(i)                                              
          f(i,15)=fgd15(i)                                              
          f(i,16)=fgd16(i)                                              
          f(i,17)=fgd17(i)                                              
          f(i,18)=fgd18(i)                                              
          f(i,19)=fgd19(i)                                              
          f(i,20)=fgd20(i)                                              
          f(i,21)=fgd21(i)                                              
          f(i,22)=fgd22(i)                                              
          f(i,23)=fgd23(i)                                              
          f(i,24)=fgd24(i)                                              
          f(i,25)=fgd25(i)                                              
          f(i,26)=fgd26(i)                                              
          f(i,27)=fgd27(i)                                              
          f(i,28)=fgd28(i)                                              
          f(i,29)=fgd29(i)                                              
          f(i,30)=fgd30(i)                                              
          f(i,31)=fgd31(i)                                              
          f(i,32)=fgd32(i)                                              
          f(i,33)=fgd33(i)                                              
          f(i,34)=fgd34(i)                                              
          f(i,35)=fgd35(i)                                              
          f(i,36)=fgd36(i)                                              
          f(i,37)=fgd37(i)                                              
          f(i,38)=fgd38(i)                                              
          f(i,39)=fgd39(i)                                              
          f(i,40)=fgd40(i)                                              
          f(i,41)=fgd41(i)                                              
          f(i,42)=fgd42(i)                                              
          f(i,43)=fgd43(i)                                              
          f(i,44)=fgd44(i)                                              
          f(i,45)=fgd45(i)                                              
          f(i,46)=fgd46(i)                                              
          f(i,47)=fgd47(i)                                              
          f(i,48)=fgd48(i)                                              
          f(i,49)=fgd49(i)                                              
          f(i,50)=fgd50(i)                                              
          f(i,51)=fgd51(i)                                              
          f(i,52)=fgd52(i)                                              
          f(i,53)=fgd53(i)                                              
          f(i,54)=fgd54(i)                                              
          f(i,55)=fgd55(i)                                              
          f(i,56)=fgd56(i)                                              
          f(i,57)=fgd57(i)                                              
          f(i,58)=fgd58(i)                                              
          f(i,59)=fgd59(i)                                              
          f(i,60)=fgd60(i)                                              
          f(i,61)=fgd61(i)                                              
          f(i,62)=fgd62(i)                                              
          f(i,63)=fgd63(i)                                              
          f(i,64)=fgd64(i)                                              
          f(i,65)=fgd65(i)                                              
          f(i,66)=fgd66(i)                                              
          f(i,67)=fgd67(i)                                              
          f(i,68)=fgd68(i)                                              
          f(i,69)=fgd69(i)                                              
          f(i,70)=fgd70(i)                                              
          f(i,71)=fgd71(i)                                              
          f(i,72)=fgd72(i)                                              
          f(i,73)=fgd73(i)                                              
          f(i,74)=fgd74(i)                                              
          f(i,75)=fgd75(i)                                              
          f(i,76)=fgd76(i)                                              
          f(i,77)=fgd77(i)                                              
          f(i,78)=fgd78(i)                                              
          f(i,79)=fgd79(i)                                              
          f(i,80)=fgd80(i)                                              
          f(i,81)=fgd81(i)                                              
          f(i,82)=fgd82(i)                                              
          f(i,83)=fgd83(i)                                              
          f(i,84)=fgd84(i)                                              
          f(i,85)=fgd85(i)                                              
          f(i,86)=fgd86(i)                                              
        enddo                                                           
      endif                                                             

      if(q2in.gt.xin*cm_s) THEN                    
        f3nc00h100=0.
        return                                       
      endif                                        
      x=log(xin)                                   
      y=log(q2in)                                  
      DO i=2,n_bin_x                               
        IF(x.LT.xl_bin(i))  goto 1                 
        IF(xl_bin(i).ge.0.)  goto 1                
      ENDDO                                        
      i=n_bin_x                                    
    1 i=i-1                                        
      DO j=2,n_bin_q2                              
        IF(y.LT.q2l_bin(j))  GOTO 2                
      ENDDO                                        
      j=n_bin_q2                                   
    2 j=j-1                                        
      dx=xl_bin(i+1)-xl_bin(i)                     
      xd=(x-xl_bin(i))/dx                          
      dy=q2l_bin(j+1)-q2l_bin(j)                   
      yd=(y-q2l_bin(j))/dy                         
      f3nc00h100=f(i,j)+xd*(f(i+1,j)-f(i,j))
     &+yd*(f(i,j+1)-f(i,j))                        
     &+xd*yd*(f(i+1,j+1)+f(i,j)-f(i+1,j)-f(i,j+1)) 
      END