**************************************************************************
**************************************************************************
*  
* These functions are parametrisations of the structure functions and
* parton densities from the H1 QCD fit (DESY 99-107). The parton densities
* are always returned as momentum weighted parton densities:
*
* x*q_i(x,q2)
*
* They are available in both MS-bar and DIS scheme. If there
* are problems please contact Eram Rizvi (rizvi@mail.desy.de).
*
* These functions come from fit 
*
*
*
**************************************************************************
**************************************************************************
       real function  f2ncct5d00(xin,q2in)
***********************************************************
c  parametrization of f2ncct5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0:22)
       data p15/
     & 0.41696E+00,-0.32471E+00, 0.79503E-01,-0.59152E-01,-0.53477E-01,
     &-0.42358E-01,-0.25305E-01,-0.10682E-01,-0.15274E-02, 0.37999E-02,
     & 0.58278E-02, 0.52155E-02, 0.42147E-02, 0.24403E-02, 0.13493E-02,
     & 0.39584E-03, 0.43702E-03,-0.85456E-04, 0.38267E-03, 0.14661E-04,
     & 0.25828E-03, 0.37237E-04,-0.18731E-05
     & /
       real p16(0:22)
       data p16/
     & 0.44710E+00,-0.35754E+00, 0.87898E-01,-0.62525E-01,-0.55189E-01,
     &-0.43537E-01,-0.25804E-01,-0.10700E-01,-0.13459E-02, 0.40736E-02,
     & 0.60992E-02, 0.53937E-02, 0.43468E-02, 0.24882E-02, 0.13717E-02,
     & 0.38105E-03, 0.45125E-03,-0.10930E-03, 0.40132E-03, 0.41613E-06,
     & 0.26850E-03, 0.32234E-04,-0.42949E-05
     & /
       real p17(0:22)
       data p17/
     & 0.51122E+00,-0.42897E+00, 0.10665E+00,-0.69659E-01,-0.58495E-01,
     &-0.45808E-01,-0.26721E-01,-0.10674E-01,-0.95169E-03, 0.46335E-02,
     & 0.66429E-02, 0.57393E-02, 0.46033E-02, 0.25734E-02, 0.14115E-02,
     & 0.34519E-03, 0.48080E-03,-0.16198E-03, 0.44085E-03,-0.31650E-04,
     & 0.28992E-03, 0.20932E-04,-0.92575E-05
     & /
       real p18(0:22)
       data p18/
     & 0.58063E+00,-0.50842E+00, 0.12835E+00,-0.77271E-01,-0.61640E-01,
     &-0.47985E-01,-0.27575E-01,-0.10611E-01,-0.55261E-03, 0.51849E-02,
     & 0.71731E-02, 0.60629E-02, 0.48472E-02, 0.26449E-02, 0.14460E-02,
     & 0.30219E-03, 0.51298E-03,-0.22091E-03, 0.48414E-03,-0.67999E-04,
     & 0.31347E-03, 0.85178E-05,-0.13734E-04
     & /
       real p19(0:22)
       data p19/
     & 0.65526E+00,-0.59586E+00, 0.15300E+00,-0.85439E-01,-0.64610E-01,
     &-0.50060E-01,-0.28348E-01,-0.10492E-01,-0.13529E-03, 0.57372E-02,
     & 0.76955E-02, 0.63678E-02, 0.50802E-02, 0.27032E-02, 0.14755E-02,
     & 0.25186E-03, 0.54773E-03,-0.28620E-03, 0.53112E-03,-0.10888E-03,
     & 0.33893E-03,-0.53085E-05,-0.17989E-04
     & /
       real p20(0:22)
       data p20/
     & 0.73508E+00,-0.69128E+00, 0.18062E+00,-0.94239E-01,-0.67389E-01,
     &-0.52028E-01,-0.29025E-01,-0.10303E-01, 0.31349E-03, 0.62998E-02,
     & 0.82160E-02, 0.66571E-02, 0.53037E-02, 0.27485E-02, 0.14998E-02,
     & 0.19397E-03, 0.58501E-03,-0.35799E-03, 0.58175E-03,-0.15453E-03,
     & 0.36610E-03,-0.20846E-04,-0.22282E-04
     & /
       real p21(0:22)
       data p21/
     & 0.82019E+00,-0.79490E+00, 0.21137E+00,-0.10372E+00,-0.69974E-01,
     &-0.53898E-01,-0.29614E-01,-0.10050E-01, 0.78882E-03, 0.68699E-02,
     & 0.87336E-02, 0.69307E-02, 0.55182E-02, 0.27813E-02, 0.15197E-02,
     & 0.12882E-03, 0.62528E-03,-0.43629E-03, 0.63635E-03,-0.20498E-03,
     & 0.39519E-03,-0.38068E-04,-0.26546E-04
     & /
       real p22(0:22)
       data p22/
     & 0.91075E+00,-0.90693E+00, 0.24543E+00,-0.11393E+00,-0.72359E-01,
     &-0.55678E-01,-0.30124E-01,-0.97404E-02, 0.12858E-02, 0.74449E-02,
     & 0.92473E-02, 0.71884E-02, 0.57244E-02, 0.28023E-02, 0.15360E-02,
     & 0.56704E-04, 0.66901E-03,-0.52109E-03, 0.69527E-03,-0.26024E-03,
     & 0.42642E-03,-0.56950E-04,-0.30709E-04
     & /
       real p23(0:22)
       data p23/
     & 0.10069E+01,-0.10276E+01, 0.28295E+00,-0.12491E+00,-0.74540E-01,
     &-0.57378E-01,-0.30564E-01,-0.93806E-02, 0.17995E-02, 0.80219E-02,
     & 0.97561E-02, 0.74298E-02, 0.59229E-02, 0.28118E-02, 0.15492E-02,
     &-0.22095E-04, 0.71668E-03,-0.61242E-03, 0.75885E-03,-0.32034E-03,
     & 0.46001E-03,-0.77466E-04,-0.34701E-04
     & /
       real p24(0:22)
       data p24/
     & 0.11092E+01,-0.11579E+01, 0.32463E+00,-0.13672E+00,-0.76542E-01,
     &-0.59046E-01,-0.30998E-01,-0.90262E-02, 0.22888E-02, 0.85760E-02,
     & 0.10248E-01, 0.76506E-02, 0.61153E-02, 0.28131E-02, 0.15635E-02,
     &-0.10496E-03, 0.77106E-03,-0.70933E-03, 0.82885E-03,-0.38474E-03,
     & 0.49723E-03,-0.99060E-04,-0.38074E-04
     & /
       real p25(0:22)
       data p25/
     & 0.12172E+01,-0.12972E+01, 0.37002E+00,-0.14940E+00,-0.78323E-01,
     &-0.60644E-01,-0.31367E-01,-0.86257E-02, 0.27925E-02, 0.91313E-02,
     & 0.10734E-01, 0.78556E-02, 0.63010E-02, 0.28036E-02, 0.15756E-02,
     &-0.19441E-03, 0.82983E-03,-0.81297E-03, 0.90390E-03,-0.45414E-03,
     & 0.53703E-03,-0.12234E-03,-0.41215E-04
     & /
       real p26(0:22)
       data p26/
     & 0.13311E+01,-0.14454E+01, 0.41918E+00,-0.16300E+00,-0.79874E-01,
     &-0.62175E-01,-0.31672E-01,-0.81788E-02, 0.33110E-02, 0.96886E-02,
     & 0.11217E-01, 0.80454E-02, 0.64804E-02, 0.27833E-02, 0.15856E-02,
     &-0.29050E-03, 0.89314E-03,-0.92350E-03, 0.98413E-03,-0.52863E-03,
     & 0.57947E-03,-0.14737E-03,-0.44109E-04
     & /
       real p27(0:22)
       data p27/
     & 0.14508E+01,-0.16029E+01, 0.47228E+00,-0.17756E+00,-0.81188E-01,
     &-0.63645E-01,-0.31918E-01,-0.76895E-02, 0.38415E-02, 0.10246E-01,
     & 0.11696E-01, 0.82199E-02, 0.66542E-02, 0.27528E-02, 0.15941E-02,
     &-0.39307E-03, 0.96131E-03,-0.10410E-02, 0.10698E-02,-0.60828E-03,
     & 0.62470E-03,-0.17415E-03,-0.46708E-04
     & /
       real p28(0:22)
       data p28/
     & 0.15764E+01,-0.17697E+01, 0.52944E+00,-0.19314E+00,-0.82258E-01,
     &-0.65061E-01,-0.32109E-01,-0.71622E-02, 0.43812E-02, 0.10803E-01,
     & 0.12169E-01, 0.83793E-02, 0.68229E-02, 0.27122E-02, 0.16017E-02,
     &-0.50197E-03, 0.10347E-02,-0.11655E-02, 0.11611E-02,-0.69313E-03,
     & 0.67290E-03,-0.20269E-03,-0.48963E-04
     & /
       real p29(0:22)
       data p29/
     & 0.17081E+01,-0.19461E+01, 0.59080E+00,-0.20979E+00,-0.83079E-01,
     &-0.66430E-01,-0.32252E-01,-0.66008E-02, 0.49271E-02, 0.11357E-01,
     & 0.12637E-01, 0.85235E-02, 0.69870E-02, 0.26622E-02, 0.16087E-02,
     &-0.61704E-03, 0.11136E-02,-0.12971E-02, 0.12585E-02,-0.78324E-03,
     & 0.72420E-03,-0.23298E-03,-0.50826E-04
     & /
       real p30(0:22)
       data p30/
     & 0.18464E+01,-0.21327E+01, 0.65680E+00,-0.22753E+00,-0.83678E-01,
     &-0.67783E-01,-0.32389E-01,-0.60387E-02, 0.54558E-02, 0.11896E-01,
     & 0.13094E-01, 0.86511E-02, 0.71486E-02, 0.26050E-02, 0.16182E-02,
     &-0.73659E-03, 0.11999E-02,-0.14354E-02, 0.13630E-02,-0.87829E-03,
     & 0.77938E-03,-0.26469E-03,-0.51886E-04
     & /
       real p31(0:22)
       data p31/
     & 0.19912E+01,-0.23298E+01, 0.72766E+00,-0.24642E+00,-0.84058E-01,
     &-0.69134E-01,-0.32532E-01,-0.54869E-02, 0.59594E-02, 0.12414E-01,
     & 0.13538E-01, 0.87619E-02, 0.73086E-02, 0.25417E-02, 0.16312E-02,
     &-0.86009E-03, 0.12943E-02,-0.15805E-02, 0.14752E-02,-0.97825E-03,
     & 0.83874E-03,-0.29775E-03,-0.52006E-04
     & /
       real p32(0:22)
       data p32/
     & 0.20718E+01,-0.24418E+01, 0.76919E+00,-0.25708E+00,-0.83796E-01,
     &-0.69729E-01,-0.32586E-01,-0.52262E-02, 0.61684E-02, 0.12637E-01,
     & 0.13739E-01, 0.87947E-02, 0.73877E-02, 0.25042E-02, 0.16432E-02,
     &-0.92615E-03, 0.13514E-02,-0.16616E-02, 0.15400E-02,-0.10350E-02,
     & 0.87336E-03,-0.31616E-03,-0.51306E-04
     & /
       real p33(0:22)
       data p33/
     & 0.21626E+01,-0.25669E+01, 0.81514E+00,-0.26921E+00,-0.83692E-01,
     &-0.70468E-01,-0.32636E-01,-0.48898E-02, 0.64516E-02, 0.12926E-01,
     & 0.13989E-01, 0.88433E-02, 0.74786E-02, 0.24600E-02, 0.16526E-02,
     &-0.10033E-02, 0.14131E-02,-0.17533E-02, 0.16119E-02,-0.10987E-02,
     & 0.91154E-03,-0.33720E-03,-0.50900E-04
     & /
       real p34(0:22)
       data p34/
     & 0.23295E+01,-0.27982E+01, 0.90094E+00,-0.29191E+00,-0.83257E-01,
     &-0.71761E-01,-0.32689E-01,-0.42651E-02, 0.69598E-02, 0.13439E-01,
     & 0.14430E-01, 0.89183E-02, 0.76383E-02, 0.23737E-02, 0.16701E-02,
     &-0.11459E-02, 0.15284E-02,-0.19231E-02, 0.17456E-02,-0.12171E-02,
     & 0.98249E-03,-0.37632E-03,-0.49840E-04
     & /
       real p35(0:22)
       data p35/
     & 0.25036E+01,-0.30407E+01, 0.99193E+00,-0.31606E+00,-0.82492E-01,
     &-0.73030E-01,-0.32699E-01,-0.36094E-02, 0.74720E-02, 0.13950E-01,
     & 0.14868E-01, 0.89786E-02, 0.77959E-02, 0.22782E-02, 0.16886E-02,
     &-0.12954E-02, 0.16507E-02,-0.21012E-02, 0.18867E-02,-0.13418E-02,
     & 0.10574E-02,-0.41763E-03,-0.48325E-04
     & /
       real p36(0:22)
       data p36/
     & 0.26848E+01,-0.32946E+01, 0.10883E+01,-0.34169E+00,-0.81386E-01,
     &-0.74278E-01,-0.32670E-01,-0.29248E-02, 0.79867E-02, 0.14459E-01,
     & 0.15302E-01, 0.90243E-02, 0.79518E-02, 0.21736E-02, 0.17086E-02,
     &-0.14517E-02, 0.17804E-02,-0.22879E-02, 0.20353E-02,-0.14729E-02,
     & 0.11363E-02,-0.46116E-03,-0.46329E-04
     & /
       real p37(0:22)
       data p37/
     & 0.28732E+01,-0.35600E+01, 0.11900E+01,-0.36888E+00,-0.79930E-01,
     &-0.75512E-01,-0.32604E-01,-0.22136E-02, 0.85024E-02, 0.14964E-01,
     & 0.15733E-01, 0.90557E-02, 0.81064E-02, 0.20602E-02, 0.17303E-02,
     &-0.16148E-02, 0.19176E-02,-0.24832E-02, 0.21917E-02,-0.16106E-02,
     & 0.12194E-02,-0.50693E-03,-0.43827E-04
     & /
       real p38(0:22)
       data p38/
     & 0.30690E+01,-0.38372E+01, 0.12974E+01,-0.39767E+00,-0.78112E-01,
     &-0.76738E-01,-0.32504E-01,-0.14780E-02, 0.90176E-02, 0.15464E-01,
     & 0.16161E-01, 0.90726E-02, 0.82602E-02, 0.19382E-02, 0.17543E-02,
     &-0.17845E-02, 0.20626E-02,-0.26872E-02, 0.23560E-02,-0.17548E-02,
     & 0.13068E-02,-0.55499E-03,-0.40792E-04
     & /
       real p39(0:22)
       data p39/
     & 0.32722E+01,-0.41263E+01, 0.14105E+01,-0.42812E+00,-0.75925E-01,
     &-0.77960E-01,-0.32375E-01,-0.72034E-03, 0.95308E-02, 0.15961E-01,
     & 0.16585E-01, 0.90754E-02, 0.84138E-02, 0.18079E-02, 0.17808E-02,
     &-0.19609E-02, 0.22158E-02,-0.29001E-02, 0.25286E-02,-0.19057E-02,
     & 0.13987E-02,-0.60536E-03,-0.37198E-04
     & /
       real p40(0:22)
       data p40/
     & 0.34835E+01,-0.44284E+01, 0.15302E+01,-0.46040E+00,-0.73383E-01,
     &-0.79205E-01,-0.32250E-01, 0.34685E-04, 0.10025E-01, 0.16443E-01,
     & 0.17004E-01, 0.90644E-02, 0.85703E-02, 0.16720E-02, 0.18130E-02,
     &-0.21426E-02, 0.23791E-02,-0.31218E-02, 0.27109E-02,-0.20635E-02,
     & 0.14959E-02,-0.65803E-03,-0.32891E-04
     & /
       real p41(0:22)
       data p41/
     & 0.37031E+01,-0.47439E+01, 0.16565E+01,-0.49459E+00,-0.70482E-01,
     &-0.80483E-01,-0.32139E-01, 0.78065E-03, 0.10495E-01, 0.16911E-01,
     & 0.17416E-01, 0.90398E-02, 0.87307E-02, 0.15312E-02, 0.18518E-02,
     &-0.23293E-02, 0.25533E-02,-0.33527E-02, 0.29035E-02,-0.22284E-02,
     & 0.15987E-02,-0.71301E-03,-0.27828E-04
     & /
       real p42(0:22)
       data p42/
     & 0.39302E+01,-0.50715E+01, 0.17888E+01,-0.53056E+00,-0.67169E-01,
     &-0.81766E-01,-0.31994E-01, 0.15509E-02, 0.10965E-01, 0.17375E-01,
     & 0.17825E-01, 0.90011E-02, 0.88912E-02, 0.13818E-02, 0.18932E-02,
     &-0.25231E-02, 0.27356E-02,-0.35926E-02, 0.31044E-02,-0.24002E-02,
     & 0.17060E-02,-0.77044E-03,-0.22192E-04
     & /
       real p43(0:22)
       data p43/
     & 0.41649E+01,-0.54112E+01, 0.19270E+01,-0.56835E+00,-0.63434E-01,
     &-0.83057E-01,-0.31818E-01, 0.23441E-02, 0.11434E-01, 0.17835E-01,
     & 0.18232E-01, 0.89486E-02, 0.90520E-02, 0.12238E-02, 0.19375E-02,
     &-0.27239E-02, 0.29263E-02,-0.38418E-02, 0.33137E-02,-0.25790E-02,
     & 0.18180E-02,-0.83036E-03,-0.15964E-04
     & /
       real p44(0:37)
       data p44/
     & 0.44058E+01,-0.57611E+01, 0.20701E+01,-0.60742E+00,-0.58907E-01,
     &-0.85849E-01,-0.29130E-01, 0.19457E-03, 0.14683E-01, 0.16194E-01,
     & 0.20082E-01, 0.84353E-02, 0.84663E-02, 0.26083E-02,-0.84630E-04,
     &-0.34858E-03, 0.57693E-03,-0.21685E-02, 0.19006E-02,-0.12498E-02,
     & 0.12241E-02,-0.12192E-02, 0.46238E-03, 0.43915E-03,-0.13370E-02,
     & 0.81389E-03, 0.31777E-03,-0.12819E-02, 0.14877E-02,-0.13905E-03,
     &-0.15637E-02, 0.21478E-02,-0.20710E-02, 0.19913E-02,-0.21478E-02,
     & 0.17188E-02,-0.65161E-03,-0.70753E-04
     & /
       real p45(0:37)
       data p45/
     & 0.46557E+01,-0.61254E+01, 0.22206E+01,-0.64897E+00,-0.54266E-01,
     &-0.87271E-01,-0.28733E-01, 0.83601E-03, 0.15330E-01, 0.16503E-01,
     & 0.20579E-01, 0.83270E-02, 0.85816E-02, 0.25358E-02,-0.17365E-03,
     &-0.39485E-03, 0.61900E-03,-0.23047E-02, 0.20168E-02,-0.13483E-02,
     & 0.13003E-02,-0.12989E-02, 0.49479E-03, 0.47134E-03,-0.14137E-02,
     & 0.86488E-03, 0.33705E-03,-0.13639E-02, 0.15731E-02,-0.14602E-03,
     &-0.16593E-02, 0.22884E-02,-0.22098E-02, 0.21281E-02,-0.22868E-02,
     & 0.18293E-02,-0.69775E-03,-0.64651E-04
     & /
       real p46(0:37)
       data p46/
     & 0.49133E+01,-0.65022E+01, 0.23774E+01,-0.69250E+00,-0.49166E-01,
     &-0.88720E-01,-0.28303E-01, 0.14892E-02, 0.15981E-01, 0.16802E-01,
     & 0.21077E-01, 0.82040E-02, 0.86966E-02, 0.24590E-02,-0.26446E-03,
     &-0.44177E-03, 0.66369E-03,-0.24452E-02, 0.21376E-02,-0.14507E-02,
     & 0.13796E-02,-0.13814E-02, 0.52853E-03, 0.50471E-03,-0.14929E-02,
     & 0.91756E-03, 0.35704E-03,-0.14486E-02, 0.16612E-02,-0.15307E-03,
     &-0.17583E-02, 0.24342E-02,-0.23540E-02, 0.22704E-02,-0.24312E-02,
     & 0.19439E-02,-0.74591E-03,-0.57767E-04
     & /
       real p47(0:37)
       data p47/
     & 0.51789E+01,-0.68919E+01, 0.25406E+01,-0.73806E+00,-0.43596E-01,
     &-0.90199E-01,-0.27843E-01, 0.21527E-02, 0.16635E-01, 0.17091E-01,
     & 0.21578E-01, 0.80666E-02, 0.88117E-02, 0.23782E-02,-0.35690E-03,
     &-0.48927E-03, 0.71110E-03,-0.25900E-02, 0.22631E-02,-0.15569E-02,
     & 0.14623E-02,-0.14667E-02, 0.56363E-03, 0.53928E-03,-0.15745E-02,
     & 0.97196E-03, 0.37776E-03,-0.15363E-02, 0.17521E-02,-0.16018E-03,
     &-0.18606E-02, 0.25854E-02,-0.25040E-02, 0.24183E-02,-0.25809E-02,
     & 0.20626E-02,-0.79614E-03,-0.50072E-04
     & /
       real p48(0:37)
       data p48/
     & 0.54524E+01,-0.72944E+01, 0.27104E+01,-0.78570E+00,-0.37544E-01,
     &-0.91715E-01,-0.27352E-01, 0.28253E-02, 0.17291E-01, 0.17368E-01,
     & 0.22080E-01, 0.79147E-02, 0.89273E-02, 0.22936E-02,-0.45078E-03,
     &-0.53724E-03, 0.76132E-03,-0.27391E-02, 0.23934E-02,-0.16672E-02,
     & 0.15484E-02,-0.15548E-02, 0.60011E-03, 0.57507E-03,-0.16587E-02,
     & 0.10281E-02, 0.39923E-03,-0.16268E-02, 0.18457E-02,-0.16735E-03,
     &-0.19664E-02, 0.27421E-02,-0.26597E-02, 0.25720E-02,-0.27361E-02,
     & 0.21856E-02,-0.84850E-03,-0.41538E-04
     & /
       real p49(0:37)
       data p49/
     & 0.57340E+01,-0.77100E+01, 0.28868E+01,-0.83548E+00,-0.30998E-01,
     &-0.93272E-01,-0.26834E-01, 0.35054E-02, 0.17948E-01, 0.17634E-01,
     & 0.22584E-01, 0.77485E-02, 0.90437E-02, 0.22053E-02,-0.54593E-03,
     &-0.58562E-03, 0.81446E-03,-0.28926E-02, 0.25286E-02,-0.17814E-02,
     & 0.16379E-02,-0.16458E-02, 0.63800E-03, 0.61209E-03,-0.17454E-02,
     & 0.10860E-02, 0.42145E-03,-0.17203E-02, 0.19422E-02,-0.17458E-03,
     &-0.20757E-02, 0.29044E-02,-0.28213E-02, 0.27314E-02,-0.28968E-02,
     & 0.23128E-02,-0.90301E-03,-0.32136E-04
     & /
       real p50(0:37)
       data p50/
     & 0.60238E+01,-0.81389E+01, 0.30701E+01,-0.88745E+00,-0.23946E-01,
     &-0.94874E-01,-0.26289E-01, 0.41919E-02, 0.18607E-01, 0.17889E-01,
     & 0.23091E-01, 0.75680E-02, 0.91613E-02, 0.21137E-02,-0.64217E-03,
     &-0.63430E-03, 0.87062E-03,-0.30505E-02, 0.26688E-02,-0.18997E-02,
     & 0.17311E-02,-0.17397E-02, 0.67733E-03, 0.65036E-03,-0.18347E-02,
     & 0.11456E-02, 0.44444E-03,-0.18168E-02, 0.20415E-02,-0.18186E-03,
     &-0.21884E-02, 0.30723E-02,-0.29888E-02, 0.28968E-02,-0.30631E-02,
     & 0.24444E-02,-0.95974E-03,-0.21834E-04
     & /
       real p51(0:37)
       data p51/
     & 0.63234E+01,-0.85838E+01, 0.32621E+01,-0.94213E+00,-0.16407E-01,
     &-0.96569E-01,-0.25785E-01, 0.48396E-02, 0.19236E-01, 0.18116E-01,
     & 0.23598E-01, 0.73737E-02, 0.92872E-02, 0.20241E-02,-0.73445E-03,
     &-0.67976E-03, 0.93233E-03,-0.32121E-02, 0.28159E-02,-0.20218E-02,
     & 0.18291E-02,-0.18364E-02, 0.71879E-03, 0.69023E-03,-0.19270E-02,
     & 0.12074E-02, 0.46855E-03,-0.19170E-02, 0.21445E-02,-0.18916E-03,
     &-0.23055E-02, 0.32471E-02,-0.31639E-02, 0.30694E-02,-0.32362E-02,
     & 0.25811E-02,-0.10191E-02,-0.10360E-04
     & /
       real p52(0:37)
       data p52/
     & 0.66314E+01,-0.90425E+01, 0.34612E+01,-0.99913E+00,-0.83366E-02,
     &-0.98320E-01,-0.25257E-01, 0.54910E-02, 0.19866E-01, 0.18330E-01,
     & 0.24109E-01, 0.71653E-02, 0.94150E-02, 0.19314E-02,-0.82750E-03,
     &-0.72537E-03, 0.99725E-03,-0.33783E-02, 0.29681E-02,-0.21480E-02,
     & 0.19309E-02,-0.19361E-02, 0.76174E-03, 0.73139E-03,-0.20220E-02,
     & 0.12709E-02, 0.49346E-03,-0.20203E-02, 0.22504E-02,-0.19650E-03,
     &-0.24262E-02, 0.34279E-02,-0.33452E-02, 0.32482E-02,-0.34152E-02,
     & 0.27222E-02,-0.10807E-02, 0.20709E-05
     & /
       real p53(0:37)
       data p53/
     & 0.69477E+01,-0.95147E+01, 0.36673E+01,-0.10584E+01, 0.28284E-03,
     &-0.10013E+00,-0.24698E-01, 0.61521E-02, 0.20499E-01, 0.18535E-01,
     & 0.24622E-01, 0.69428E-02, 0.95440E-02, 0.18349E-02,-0.92196E-03,
     &-0.77163E-03, 0.10651E-02,-0.35492E-02, 0.31255E-02,-0.22786E-02,
     & 0.20363E-02,-0.20388E-02, 0.80613E-03, 0.77380E-03,-0.21196E-02,
     & 0.13363E-02, 0.51913E-03,-0.21266E-02, 0.23593E-02,-0.20388E-03,
     &-0.25506E-02, 0.36144E-02,-0.35327E-02, 0.34332E-02,-0.36000E-02,
     & 0.28679E-02,-0.11447E-02, 0.15449E-04
     & /
       real p54(0:37)
       data p54/
     & 0.72726E+01,-0.10001E+02, 0.38805E+01,-0.11201E+01, 0.94655E-02,
     &-0.10199E+00,-0.24107E-01, 0.68221E-02, 0.21136E-01, 0.18730E-01,
     & 0.25140E-01, 0.67061E-02, 0.96745E-02, 0.17348E-02,-0.10177E-02,
     &-0.81851E-03, 0.11360E-02,-0.37248E-02, 0.32881E-02,-0.24136E-02,
     & 0.21454E-02,-0.21446E-02, 0.85198E-03, 0.81749E-03,-0.22199E-02,
     & 0.14035E-02, 0.54560E-03,-0.22360E-02, 0.24711E-02,-0.21129E-03,
     &-0.26786E-02, 0.38068E-02,-0.37264E-02, 0.36244E-02,-0.37907E-02,
     & 0.30181E-02,-0.12111E-02, 0.29802E-04
     & /
       real p55(0:37)
       data p55/
     & 0.76061E+01,-0.10501E+02, 0.41010E+01,-0.11842E+01, 0.19226E-01,
     &-0.10392E+00,-0.23485E-01, 0.75004E-02, 0.21777E-01, 0.18914E-01,
     & 0.25662E-01, 0.64554E-02, 0.98068E-02, 0.16311E-02,-0.11147E-02,
     &-0.86597E-03, 0.12099E-02,-0.39055E-02, 0.34560E-02,-0.25532E-02,
     & 0.22584E-02,-0.22536E-02, 0.89932E-03, 0.86248E-03,-0.23229E-02,
     & 0.14726E-02, 0.57287E-03,-0.23485E-02, 0.25859E-02,-0.21874E-03,
     &-0.28105E-02, 0.40053E-02,-0.39266E-02, 0.38220E-02,-0.39876E-02,
     & 0.31732E-02,-0.12799E-02, 0.45160E-04
     & /
       real p56(0:37)
       data p56/
     & 0.79485E+01,-0.11015E+02, 0.43290E+01,-0.12508E+01, 0.29580E-01,
     &-0.10591E+00,-0.22832E-01, 0.81864E-02, 0.22420E-01, 0.19088E-01,
     & 0.26188E-01, 0.61906E-02, 0.99413E-02, 0.15239E-02,-0.12128E-02,
     &-0.91397E-03, 0.12871E-02,-0.40911E-02, 0.36294E-02,-0.26974E-02,
     & 0.23753E-02,-0.23658E-02, 0.94820E-03, 0.90880E-03,-0.24288E-02,
     & 0.15436E-02, 0.60096E-03,-0.24643E-02, 0.27037E-02,-0.22621E-03,
     &-0.29462E-02, 0.42099E-02,-0.41334E-02, 0.40262E-02,-0.41908E-02,
     & 0.33330E-02,-0.13511E-02, 0.61554E-04
     & /
       real p57(0:37)
       data p57/
     & 0.83001E+01,-0.11544E+02, 0.45646E+01,-0.13200E+01, 0.40545E-01,
     &-0.10798E+00,-0.22151E-01, 0.88796E-02, 0.23067E-01, 0.19252E-01,
     & 0.26720E-01, 0.59117E-02, 0.10078E-01, 0.14134E-02,-0.13119E-02,
     &-0.96249E-03, 0.13676E-02,-0.42820E-02, 0.38085E-02,-0.28463E-02,
     & 0.24962E-02,-0.24813E-02, 0.99865E-03, 0.95648E-03,-0.25376E-02,
     & 0.16167E-02, 0.62989E-03,-0.25834E-02, 0.28248E-02,-0.23371E-03,
     &-0.30859E-02, 0.44209E-02,-0.43471E-02, 0.42372E-02,-0.44003E-02,
     & 0.34979E-02,-0.14250E-02, 0.79015E-04
     & /
       real p58(0:37)
       data p58/
     & 0.86612E+01,-0.12089E+02, 0.48082E+01,-0.13918E+01, 0.52137E-01,
     &-0.11013E+00,-0.21440E-01, 0.95795E-02, 0.23718E-01, 0.19405E-01,
     & 0.27257E-01, 0.56186E-02, 0.10218E-01, 0.12996E-02,-0.14120E-02,
     &-0.10115E-02, 0.14515E-02,-0.44782E-02, 0.39934E-02,-0.30002E-02,
     & 0.26214E-02,-0.26003E-02, 0.10507E-02, 0.10056E-02,-0.26494E-02,
     & 0.16917E-02, 0.65970E-03,-0.27058E-02, 0.29490E-02,-0.24123E-03,
     &-0.32297E-02, 0.46384E-02,-0.45678E-02, 0.44551E-02,-0.46166E-02,
     & 0.36679E-02,-0.15015E-02, 0.97578E-04
     & /
       real p59(0:37)
       data p59/
     & 0.90320E+01,-0.12649E+02, 0.50599E+01,-0.14664E+01, 0.64378E-01,
     &-0.11237E+00,-0.20701E-01, 0.10286E-01, 0.24372E-01, 0.19548E-01,
     & 0.27802E-01, 0.53114E-02, 0.10362E-01, 0.11827E-02,-0.15130E-02,
     &-0.10610E-02, 0.15389E-02,-0.46799E-02, 0.41843E-02,-0.31591E-02,
     & 0.27509E-02,-0.27228E-02, 0.11045E-02, 0.10561E-02,-0.27643E-02,
     & 0.17689E-02, 0.69042E-03,-0.28318E-02, 0.30767E-02,-0.24878E-03,
     &-0.33778E-02, 0.48628E-02,-0.47957E-02, 0.46803E-02,-0.48398E-02,
     & 0.38432E-02,-0.15809E-02, 0.11728E-03
     & /
       real p60(0:37)
       data p60/
     & 0.94132E+01,-0.13226E+02, 0.53202E+01,-0.15440E+01, 0.77288E-01,
     &-0.11470E+00,-0.19934E-01, 0.10998E-01, 0.25030E-01, 0.19680E-01,
     & 0.28353E-01, 0.49898E-02, 0.10509E-01, 0.10627E-02,-0.16147E-02,
     &-0.11109E-02, 0.16301E-02,-0.48875E-02, 0.43816E-02,-0.33234E-02,
     & 0.28850E-02,-0.28490E-02, 0.11601E-02, 0.11082E-02,-0.28825E-02,
     & 0.18484E-02, 0.72208E-03,-0.29615E-02, 0.32080E-02,-0.25636E-03,
     &-0.35303E-02, 0.50943E-02,-0.50313E-02, 0.49131E-02,-0.50701E-02,
     & 0.40242E-02,-0.16630E-02, 0.13816E-03
     & /
       real p61(0:37)
       data p61/
     & 0.98051E+01,-0.13820E+02, 0.55895E+01,-0.16245E+01, 0.90893E-01,
     &-0.11713E+00,-0.19140E-01, 0.11716E-01, 0.25692E-01, 0.19802E-01,
     & 0.28912E-01, 0.46536E-02, 0.10661E-01, 0.93964E-03,-0.17173E-02,
     &-0.11613E-02, 0.17252E-02,-0.51011E-02, 0.45855E-02,-0.34932E-02,
     & 0.30238E-02,-0.29791E-02, 0.12174E-02, 0.11618E-02,-0.30041E-02,
     & 0.19301E-02, 0.75472E-03,-0.30951E-02, 0.33429E-02,-0.26397E-03,
     &-0.36875E-02, 0.53331E-02,-0.52748E-02, 0.51538E-02,-0.53080E-02,
     & 0.42109E-02,-0.17482E-02, 0.16026E-03
     & /
       real p62(0:37)
       data p62/
     & 0.10208E+02,-0.14433E+02, 0.58681E+01,-0.17082E+01, 0.10522E+00,
     &-0.11967E+00,-0.18318E-01, 0.12440E-01, 0.26359E-01, 0.19914E-01,
     & 0.29481E-01, 0.43026E-02, 0.10817E-01, 0.81366E-03,-0.18206E-02,
     &-0.12121E-02, 0.18244E-02,-0.53211E-02, 0.47964E-02,-0.36688E-02,
     & 0.31677E-02,-0.31133E-02, 0.12768E-02, 0.12172E-02,-0.31293E-02,
     & 0.20143E-02, 0.78840E-03,-0.32327E-02, 0.34818E-02,-0.27161E-03,
     &-0.38496E-02, 0.55799E-02,-0.55267E-02, 0.54028E-02,-0.55539E-02,
     & 0.44039E-02,-0.18366E-02, 0.18364E-03
     & /
       real p63(0:37)
       data p63/
     & 0.10625E+02,-0.15067E+02, 0.61581E+01,-0.17958E+01, 0.12033E+00,
     &-0.12236E+00,-0.17505E-01, 0.13147E-01, 0.27017E-01, 0.20008E-01,
     & 0.30061E-01, 0.39379E-02, 0.10984E-01, 0.68848E-03,-0.19218E-02,
     &-0.12615E-02, 0.19294E-02,-0.55481E-02, 0.50160E-02,-0.38510E-02,
     & 0.33179E-02,-0.32520E-02, 0.13386E-02, 0.12745E-02,-0.32587E-02,
     & 0.21014E-02, 0.82328E-03,-0.33751E-02, 0.36252E-02,-0.27923E-03,
     &-0.40175E-02, 0.58357E-02,-0.57885E-02, 0.56615E-02,-0.58091E-02,
     & 0.46040E-02,-0.19288E-02, 0.20859E-03
     & /
       real p64(0:37)
       data p64/
     & 0.11056E+02,-0.15723E+02, 0.64598E+01,-0.18873E+01, 0.13625E+00,
     &-0.12519E+00,-0.16693E-01, 0.13842E-01, 0.27671E-01, 0.20087E-01,
     & 0.30654E-01, 0.35586E-02, 0.11162E-01, 0.56324E-03,-0.20215E-02,
     &-0.13098E-02, 0.20403E-02,-0.57824E-02, 0.52446E-02,-0.40400E-02,
     & 0.34745E-02,-0.33954E-02, 0.14029E-02, 0.13338E-02,-0.33926E-02,
     & 0.21915E-02, 0.85940E-03,-0.35223E-02, 0.37735E-02,-0.28686E-03,
     &-0.41912E-02, 0.61010E-02,-0.60605E-02, 0.59304E-02,-0.60741E-02,
     & 0.48117E-02,-0.20249E-02, 0.23513E-03
     & /
       real p65(0:37)
       data p65/
     & 0.11500E+02,-0.16401E+02, 0.67725E+01,-0.19825E+01, 0.15299E+00,
     &-0.12816E+00,-0.15844E-01, 0.14549E-01, 0.28335E-01, 0.20156E-01,
     & 0.31260E-01, 0.31628E-02, 0.11345E-01, 0.43429E-03,-0.21227E-02,
     &-0.13591E-02, 0.21558E-02,-0.60247E-02, 0.54814E-02,-0.42359E-02,
     & 0.36369E-02,-0.35438E-02, 0.14695E-02, 0.13951E-02,-0.35308E-02,
     & 0.22845E-02, 0.89677E-03,-0.36745E-02, 0.39265E-02,-0.29457E-03,
     &-0.43709E-02, 0.63757E-02,-0.63424E-02, 0.62092E-02,-0.63485E-02,
     & 0.50267E-02,-0.21247E-02, 0.26308E-03
     & /
       real p66(0:37)
       data p66/
     & 0.11960E+02,-0.17103E+02, 0.70971E+01,-0.20817E+01, 0.17062E+00,
     &-0.13127E+00,-0.14958E-01, 0.15269E-01, 0.29012E-01, 0.20218E-01,
     & 0.31882E-01, 0.27497E-02, 0.11535E-01, 0.30153E-03,-0.22253E-02,
     &-0.14092E-02, 0.22761E-02,-0.62755E-02, 0.57269E-02,-0.44395E-02,
     & 0.38057E-02,-0.36975E-02, 0.15386E-02, 0.14586E-02,-0.36739E-02,
     & 0.23808E-02, 0.93548E-03,-0.38320E-02, 0.40848E-02,-0.30238E-03,
     &-0.45571E-02, 0.66606E-02,-0.66350E-02, 0.64986E-02,-0.66332E-02,
     & 0.52497E-02,-0.22285E-02, 0.29251E-03
     & /
       real p67(0:37)
       data p67/
     & 0.12436E+02,-0.17832E+02, 0.74346E+01,-0.21852E+01, 0.18918E+00,
     &-0.13454E+00,-0.14033E-01, 0.16004E-01, 0.29702E-01, 0.20271E-01,
     & 0.32522E-01, 0.23184E-02, 0.11734E-01, 0.16486E-03,-0.23295E-02,
     &-0.14604E-02, 0.24019E-02,-0.65358E-02, 0.59820E-02,-0.46512E-02,
     & 0.39814E-02,-0.38570E-02, 0.16104E-02, 0.15246E-02,-0.38222E-02,
     & 0.24805E-02, 0.97567E-03,-0.39954E-02, 0.42488E-02,-0.31032E-03,
     &-0.47504E-02, 0.69565E-02,-0.69394E-02, 0.67996E-02,-0.69291E-02,
     & 0.54814E-02,-0.23366E-02, 0.32353E-03
     & /
       real p68(0:37)
       data p68/
     & 0.12931E+02,-0.18589E+02, 0.77862E+01,-0.22933E+01, 0.20875E+00,
     &-0.13799E+00,-0.13067E-01, 0.16756E-01, 0.30409E-01, 0.20317E-01,
     & 0.33182E-01, 0.18676E-02, 0.11941E-01, 0.24115E-04,-0.24355E-02,
     &-0.15127E-02, 0.25334E-02,-0.68065E-02, 0.62477E-02,-0.48718E-02,
     & 0.41647E-02,-0.40230E-02, 0.16853E-02, 0.15932E-02,-0.39763E-02,
     & 0.25842E-02, 0.10175E-02,-0.41653E-02, 0.44192E-02,-0.31842E-03,
     &-0.49514E-02, 0.72645E-02,-0.72565E-02, 0.71133E-02,-0.72372E-02,
     & 0.57227E-02,-0.24495E-02, 0.35624E-03
     & /
       real p69(0:37)
       data p69/
     & 0.13447E+02,-0.19378E+02, 0.81534E+01,-0.24066E+01, 0.22941E+00,
     &-0.14163E+00,-0.12057E-01, 0.17527E-01, 0.31134E-01, 0.20355E-01,
     & 0.33866E-01, 0.13961E-02, 0.12160E-01,-0.12091E-03,-0.25435E-02,
     &-0.15662E-02, 0.26713E-02,-0.70886E-02, 0.65249E-02,-0.51024E-02,
     & 0.43563E-02,-0.41960E-02, 0.17635E-02, 0.16647E-02,-0.41368E-02,
     & 0.26921E-02, 0.10610E-02,-0.43423E-02, 0.45966E-02,-0.32670E-03,
     &-0.51610E-02, 0.75860E-02,-0.75877E-02, 0.74409E-02,-0.75589E-02,
     & 0.59744E-02,-0.25676E-02, 0.39077E-03
     & /
       real p70(0:37)
       data p70/
     & 0.13985E+02,-0.20202E+02, 0.85377E+01,-0.25256E+01, 0.25124E+00,
     &-0.14548E+00,-0.11001E-01, 0.18318E-01, 0.31881E-01, 0.20386E-01,
     & 0.34576E-01, 0.90208E-03, 0.12390E-01,-0.27046E-03,-0.26537E-02,
     &-0.16210E-02, 0.28163E-02,-0.73836E-02, 0.68148E-02,-0.53438E-02,
     & 0.45570E-02,-0.43767E-02, 0.18453E-02, 0.17395E-02,-0.43044E-02,
     & 0.28048E-02, 0.11066E-02,-0.45273E-02, 0.47818E-02,-0.33519E-03,
     &-0.53802E-02, 0.79223E-02,-0.79345E-02, 0.77840E-02,-0.78955E-02,
     & 0.62378E-02,-0.26914E-02, 0.42727E-03
     & /
       real p71(0:37)
       data p71/
     & 0.14548E+02,-0.21066E+02, 0.89411E+01,-0.26507E+01, 0.27435E+00,
     &-0.14956E+00,-0.98950E-02, 0.19133E-01, 0.32652E-01, 0.20409E-01,
     & 0.35317E-01, 0.38376E-03, 0.12634E-01,-0.42485E-03,-0.27663E-02,
     &-0.16772E-02, 0.29690E-02,-0.76928E-02, 0.71189E-02,-0.55973E-02,
     & 0.47679E-02,-0.45662E-02, 0.19313E-02, 0.18180E-02,-0.44800E-02,
     & 0.29228E-02, 0.11543E-02,-0.47212E-02, 0.49758E-02,-0.34395E-03,
     &-0.56099E-02, 0.82750E-02,-0.82985E-02, 0.81441E-02,-0.82487E-02,
     & 0.65141E-02,-0.28215E-02, 0.46591E-03
     & /
       real p72(0:37)
       data p72/
     & 0.15140E+02,-0.21973E+02, 0.93654E+01,-0.27827E+01, 0.29887E+00,
     &-0.15391E+00,-0.87354E-02, 0.19974E-01, 0.33451E-01, 0.20424E-01,
     & 0.36093E-01,-0.16111E-03, 0.12893E-01,-0.58445E-03,-0.28817E-02,
     &-0.17351E-02, 0.31303E-02,-0.80178E-02, 0.74388E-02,-0.58642E-02,
     & 0.49900E-02,-0.47653E-02, 0.20219E-02, 0.19005E-02,-0.46645E-02,
     & 0.30466E-02, 0.12044E-02,-0.49248E-02, 0.51795E-02,-0.35301E-03,
     &-0.58514E-02, 0.86461E-02,-0.86816E-02, 0.85231E-02,-0.86203E-02,
     & 0.68048E-02,-0.29587E-02, 0.50689E-03
     & /
       real p73(0:37)
       data p73/
     & 0.15764E+02,-0.22929E+02, 0.98131E+01,-0.29223E+01, 0.32492E+00,
     &-0.15855E+00,-0.75175E-02, 0.20844E-01, 0.34280E-01, 0.20432E-01,
     & 0.36907E-01,-0.73504E-03, 0.13170E-01,-0.74969E-03,-0.30002E-02,
     &-0.17948E-02, 0.33011E-02,-0.83604E-02, 0.77761E-02,-0.61459E-02,
     & 0.52246E-02,-0.49750E-02, 0.21175E-02, 0.19874E-02,-0.48588E-02,
     & 0.31771E-02, 0.12573E-02,-0.51395E-02, 0.53940E-02,-0.36241E-03,
     &-0.61061E-02, 0.90374E-02,-0.90859E-02, 0.89231E-02,-0.90124E-02,
     & 0.71115E-02,-0.31036E-02, 0.55041E-03
     & /
       real p74(0:37)
       data p74/
     & 0.16422E+02,-0.23939E+02, 0.10287E+02,-0.30703E+01, 0.35266E+00,
     &-0.16350E+00,-0.62363E-02, 0.21747E-01, 0.35145E-01, 0.20431E-01,
     & 0.37765E-01,-0.13408E-02, 0.13466E-01,-0.92106E-03,-0.31221E-02,
     &-0.18565E-02, 0.34823E-02,-0.87225E-02, 0.81327E-02,-0.64440E-02,
     & 0.54730E-02,-0.51966E-02, 0.22187E-02, 0.20794E-02,-0.50641E-02,
     & 0.33148E-02, 0.13131E-02,-0.53662E-02, 0.56206E-02,-0.37220E-03,
     &-0.63752E-02, 0.94512E-02,-0.95136E-02, 0.93464E-02,-0.94271E-02,
     & 0.74357E-02,-0.32571E-02, 0.59674E-03
     & /
       real p75(0:37)
       data p75/
     & 0.17119E+02,-0.25009E+02, 0.10789E+02,-0.32274E+01, 0.38225E+00,
     &-0.16881E+00,-0.48862E-02, 0.22686E-01, 0.36047E-01, 0.20422E-01,
     & 0.38672E-01,-0.19815E-02, 0.13784E-01,-0.10991E-02,-0.32479E-02,
     &-0.19204E-02, 0.36751E-02,-0.91063E-02, 0.85105E-02,-0.67601E-02,
     & 0.57367E-02,-0.54313E-02, 0.23261E-02, 0.21768E-02,-0.52815E-02,
     & 0.34606E-02, 0.13722E-02,-0.56064E-02, 0.58605E-02,-0.38244E-03,
     &-0.66603E-02, 0.98898E-02,-0.99672E-02, 0.97952E-02,-0.98668E-02,
     & 0.77795E-02,-0.34200E-02, 0.64614E-03
     & /
       real p76(0:38)
       data p76/
     & 0.17859E+02,-0.26144E+02, 0.11322E+02,-0.33947E+01, 0.41387E+00,
     &-0.17449E+00,-0.34611E-02, 0.23663E-01, 0.36992E-01, 0.20404E-01,
     & 0.39632E-01,-0.26603E-02, 0.14126E-01,-0.12844E-02,-0.33779E-02,
     &-0.19867E-02, 0.38805E-02,-0.95137E-02, 0.89118E-02,-0.70961E-02,
     & 0.60171E-02,-0.56803E-02, 0.24403E-02, 0.22803E-02,-0.55123E-02,
     & 0.36151E-02, 0.14349E-02,-0.58613E-02, 0.61151E-02,-0.39316E-03,
     &-0.69631E-02, 0.10356E-01,-0.10449E-01, 0.10272E-01,-0.10334E-01,
     & 0.81446E-02,-0.35932E-02, 0.69890E-03,-0.18862E-02
     & /
       real p77(0:38)
       data p77/
     & 0.18645E+02,-0.27351E+02, 0.11890E+02,-0.35730E+01, 0.44772E+00,
     &-0.18060E+00,-0.19573E-02, 0.24681E-01, 0.37981E-01, 0.20374E-01,
     & 0.40650E-01,-0.33806E-02, 0.14494E-01,-0.14773E-02,-0.35122E-02,
     &-0.20556E-02, 0.40999E-02,-0.99469E-02, 0.93387E-02,-0.74537E-02,
     & 0.63158E-02,-0.59450E-02, 0.25619E-02, 0.23904E-02,-0.57575E-02,
     & 0.37794E-02, 0.15015E-02,-0.61324E-02, 0.63856E-02,-0.40442E-03,
     &-0.72851E-02, 0.10851E-01,-0.10962E-01, 0.10780E-01,-0.10831E-01,
     & 0.85331E-02,-0.37778E-02, 0.75536E-03,-0.19782E-02
     & /
       real p78(0:38)
       data p78/
     & 0.19484E+02,-0.28640E+02, 0.12498E+02,-0.37648E+01, 0.48417E+00,
     &-0.18723E+00,-0.43315E-03, 0.25705E-01, 0.38998E-01, 0.20322E-01,
     & 0.41737E-01,-0.41425E-02, 0.14900E-01,-0.16721E-02,-0.36461E-02,
     &-0.21246E-02, 0.43372E-02,-0.10409E-01, 0.97961E-02,-0.78364E-02,
     & 0.66365E-02,-0.62273E-02, 0.26917E-02, 0.25086E-02,-0.60200E-02,
     & 0.39548E-02, 0.15732E-02,-0.64225E-02, 0.66749E-02,-0.41645E-03,
     &-0.76290E-02, 0.11382E-01,-0.11512E-01, 0.11324E-01,-0.11363E-01,
     & 0.89486E-02,-0.39757E-02, 0.81640E-03,-0.20765E-02
     & /
       real p79(0:38)
       data p79/
     & 0.20376E+02,-0.30011E+02, 0.13145E+02,-0.39693E+01, 0.52321E+00,
     &-0.19435E+00, 0.11906E-02, 0.26778E-01, 0.40066E-01, 0.20257E-01,
     & 0.42890E-01,-0.49532E-02, 0.15337E-01,-0.18767E-02,-0.37856E-02,
     &-0.21968E-02, 0.45902E-02,-0.10901E-01, 0.10283E-01,-0.82440E-02,
     & 0.69783E-02,-0.65278E-02, 0.28301E-02, 0.26342E-02,-0.62992E-02,
     & 0.41414E-02, 0.16494E-02,-0.67310E-02, 0.69824E-02,-0.42906E-03,
     &-0.79951E-02, 0.11946E-01,-0.12098E-01, 0.11903E-01,-0.11930E-01,
     & 0.93910E-02,-0.41867E-02, 0.88171E-03,-0.21812E-02
     & /
       real p80(0:38)
       data p80/
     & 0.21324E+02,-0.31469E+02, 0.13834E+02,-0.41873E+01, 0.56502E+00,
     &-0.20198E+00, 0.29205E-02, 0.27902E-01, 0.41189E-01, 0.20178E-01,
     & 0.44112E-01,-0.58159E-02, 0.15804E-01,-0.20916E-02,-0.39309E-02,
     &-0.22727E-02, 0.48601E-02,-0.11424E-01, 0.10801E-01,-0.86781E-02,
     & 0.73424E-02,-0.68473E-02, 0.29775E-02, 0.27678E-02,-0.65960E-02,
     & 0.43396E-02, 0.17304E-02,-0.70590E-02, 0.73093E-02,-0.44226E-03,
     &-0.83845E-02, 0.12547E-01,-0.12721E-01, 0.12520E-01,-0.12533E-01,
     & 0.98619E-02,-0.44115E-02, 0.95163E-03,-0.22928E-02
     & /
       real p81(0:38)
       data p81/
     & 0.22332E+02,-0.33018E+02, 0.14567E+02,-0.44196E+01, 0.60979E+00,
     &-0.21015E+00, 0.47623E-02, 0.29077E-01, 0.42367E-01, 0.20081E-01,
     & 0.45407E-01,-0.67335E-02, 0.16303E-01,-0.23176E-02,-0.40823E-02,
     &-0.23523E-02, 0.51476E-02,-0.11981E-01, 0.11352E-01,-0.91399E-02,
     & 0.77299E-02,-0.71869E-02, 0.31343E-02, 0.29097E-02,-0.69112E-02,
     & 0.45500E-02, 0.18163E-02,-0.74074E-02, 0.76564E-02,-0.45605E-03,
     &-0.87985E-02, 0.13185E-01,-0.13384E-01, 0.13176E-01,-0.13174E-01,
     & 0.10363E-01,-0.46509E-02, 0.10265E-02,-0.24116E-02
     & /
       real p82(0:38)
       data p82/
     & 0.23399E+02,-0.34661E+02, 0.15346E+02,-0.46668E+01, 0.65767E+00,
     &-0.21889E+00, 0.67213E-02, 0.30302E-01, 0.43600E-01, 0.19966E-01,
     & 0.46774E-01,-0.77085E-02, 0.16835E-01,-0.25551E-02,-0.42397E-02,
     &-0.24357E-02, 0.54534E-02,-0.12571E-01, 0.11937E-01,-0.96305E-02,
     & 0.81419E-02,-0.75473E-02, 0.33008E-02, 0.30601E-02,-0.72454E-02,
     & 0.47731E-02, 0.19075E-02,-0.77769E-02, 0.80243E-02,-0.47041E-03,
     &-0.92378E-02, 0.13864E-01,-0.14089E-01, 0.13873E-01,-0.13855E-01,
     & 0.10894E-01,-0.49055E-02, 0.11065E-02,-0.25378E-02
     & /
       real p83(0:38)
       data p83/
     & 0.24529E+02,-0.36400E+02, 0.16171E+02,-0.49293E+01, 0.70879E+00,
     &-0.22822E+00, 0.88017E-02, 0.31575E-01, 0.44886E-01, 0.19829E-01,
     & 0.48215E-01,-0.87429E-02, 0.17402E-01,-0.28045E-02,-0.44030E-02,
     &-0.25231E-02, 0.57781E-02,-0.13197E-01, 0.12556E-01,-0.10151E-01,
     & 0.85787E-02,-0.79289E-02, 0.34773E-02, 0.32191E-02,-0.75990E-02,
     & 0.50090E-02, 0.20040E-02,-0.81678E-02, 0.84134E-02,-0.48531E-03,
     &-0.97029E-02, 0.14582E-01,-0.14835E-01, 0.14612E-01,-0.14577E-01,
     & 0.11458E-01,-0.51757E-02, 0.11919E-02,-0.26717E-02
     & /
       real p84(0:38)
       data p84/
     & 0.25720E+02,-0.38236E+02, 0.17044E+02,-0.52075E+01, 0.76327E+00,
     &-0.23815E+00, 0.11007E-01, 0.32895E-01, 0.46223E-01, 0.19667E-01,
     & 0.49729E-01,-0.98379E-02, 0.18002E-01,-0.30662E-02,-0.45721E-02,
     &-0.26145E-02, 0.61219E-02,-0.13857E-01, 0.13211E-01,-0.10700E-01,
     & 0.90409E-02,-0.83319E-02, 0.36638E-02, 0.33869E-02,-0.79719E-02,
     & 0.52578E-02, 0.21058E-02,-0.85801E-02, 0.88236E-02,-0.50069E-03,
     &-0.10194E-01, 0.15341E-01,-0.15625E-01, 0.15393E-01,-0.15340E-01,
     & 0.12053E-01,-0.54617E-02, 0.12831E-02,-0.28133E-02
     & /
       real p85(0:38)
       data p85/
     & 0.26972E+02,-0.40166E+02, 0.17963E+02,-0.55013E+01, 0.82118E+00,
     &-0.24869E+00, 0.13338E-01, 0.34256E-01, 0.47607E-01, 0.19479E-01,
     & 0.51313E-01,-0.10994E-01, 0.18636E-01,-0.33403E-02,-0.47467E-02,
     &-0.27099E-02, 0.64849E-02,-0.14551E-01, 0.13901E-01,-0.11280E-01,
     & 0.95284E-02,-0.87562E-02, 0.38603E-02, 0.35632E-02,-0.83641E-02,
     & 0.55193E-02, 0.22129E-02,-0.90138E-02, 0.92548E-02,-0.51649E-03,
     &-0.10711E-01, 0.16140E-01,-0.16457E-01, 0.16217E-01,-0.16143E-01,
     & 0.12680E-01,-0.57636E-02, 0.13799E-02,-0.29626E-02
     & /
       real p86(0:38)
       data p86/
     & 0.28284E+02,-0.42190E+02, 0.18929E+02,-0.58106E+01, 0.88254E+00,
     &-0.25984E+00, 0.15795E-01, 0.35653E-01, 0.49035E-01, 0.19261E-01,
     & 0.52963E-01,-0.12211E-01, 0.19303E-01,-0.36267E-02,-0.49262E-02,
     &-0.28092E-02, 0.68667E-02,-0.15280E-01, 0.14625E-01,-0.11889E-01,
     & 0.10041E-01,-0.92013E-02, 0.40664E-02, 0.37477E-02,-0.87749E-02,
     & 0.57931E-02, 0.23252E-02,-0.94681E-02, 0.97062E-02,-0.53261E-03,
     &-0.11253E-01, 0.16979E-01,-0.17330E-01, 0.17082E-01,-0.16987E-01,
     & 0.13338E-01,-0.60812E-02, 0.14827E-02,-0.31195E-02
     & /
       real p87(0:38)
       data p87/
     & 0.29651E+02,-0.44302E+02, 0.19939E+02,-0.61352E+01, 0.94737E+00,
     &-0.27160E+00, 0.18378E-01, 0.37081E-01, 0.50500E-01, 0.19012E-01,
     & 0.54677E-01,-0.13488E-01, 0.20000E-01,-0.39254E-02,-0.51100E-02,
     &-0.29123E-02, 0.72669E-02,-0.16040E-01, 0.15383E-01,-0.12525E-01,
     & 0.10577E-01,-0.96665E-02, 0.42818E-02, 0.39402E-02,-0.92035E-02,
     & 0.60789E-02, 0.24425E-02,-0.99423E-02, 0.10177E-01,-0.54897E-03,
     &-0.11820E-01, 0.17855E-01,-0.18245E-01, 0.17987E-01,-0.17869E-01,
     & 0.14026E-01,-0.64141E-02, 0.15914E-02,-0.32838E-02
     & /
       real p88(0:38)
       data p88/
     & 0.31072E+02,-0.46499E+02, 0.20993E+02,-0.64746E+01, 0.10156E+01,
     &-0.28396E+00, 0.21084E-01, 0.38534E-01, 0.51996E-01, 0.18729E-01,
     & 0.56447E-01,-0.14823E-01, 0.20727E-01,-0.42360E-02,-0.52976E-02,
     &-0.30190E-02, 0.76847E-02,-0.16831E-01, 0.16172E-01,-0.13189E-01,
     & 0.11137E-01,-0.10151E-01, 0.45060E-02, 0.41401E-02,-0.96489E-02,
     & 0.63757E-02, 0.25645E-02,-0.10435E-01, 0.10666E-01,-0.56544E-03,
     &-0.12409E-01, 0.18768E-01,-0.19198E-01, 0.18931E-01,-0.18788E-01,
     & 0.14743E-01,-0.67616E-02, 0.17059E-02,-0.34551E-02
     & /
       real p89(0:38)
       data p89/
     & 0.32541E+02,-0.48773E+02, 0.22087E+02,-0.68280E+01, 0.10872E+01,
     &-0.29689E+00, 0.23909E-01, 0.40003E-01, 0.53517E-01, 0.18410E-01,
     & 0.58268E-01,-0.16213E-01, 0.21481E-01,-0.45581E-02,-0.54882E-02,
     &-0.31291E-02, 0.81192E-02,-0.17651E-01, 0.16992E-01,-0.13878E-01,
     & 0.11718E-01,-0.10653E-01, 0.47384E-02, 0.43468E-02,-0.10110E-01,
     & 0.66829E-02, 0.26911E-02,-0.10945E-01, 0.11171E-01,-0.58191E-03,
     &-0.13020E-01, 0.19715E-01,-0.20187E-01, 0.19910E-01,-0.19741E-01,
     & 0.15487E-01,-0.71231E-02, 0.18262E-02,-0.36330E-02
     & /
       real p90(0:38)
       data p90/
     & 0.34054E+02,-0.51119E+02, 0.23218E+02,-0.71946E+01, 0.11621E+01,
     &-0.31038E+00, 0.26848E-01, 0.41482E-01, 0.55056E-01, 0.18054E-01,
     & 0.60133E-01,-0.17655E-01, 0.22260E-01,-0.48911E-02,-0.56810E-02,
     &-0.32423E-02, 0.85692E-02,-0.18496E-01, 0.17839E-01,-0.14591E-01,
     & 0.12320E-01,-0.11172E-01, 0.49783E-02, 0.45597E-02,-0.10585E-01,
     & 0.69994E-02, 0.28216E-02,-0.11471E-01, 0.11692E-01,-0.59825E-03,
     &-0.13650E-01, 0.20693E-01,-0.21211E-01, 0.20924E-01,-0.20726E-01,
     & 0.16255E-01,-0.74975E-02, 0.19521E-02,-0.38171E-02
     & /
       real p91(0:38)
       data p91/
     & 0.35607E+02,-0.53528E+02, 0.24384E+02,-0.75735E+01, 0.12400E+01,
     &-0.32440E+00, 0.29895E-01, 0.42964E-01, 0.56606E-01, 0.17660E-01,
     & 0.62035E-01,-0.19147E-01, 0.23061E-01,-0.52342E-02,-0.58751E-02,
     &-0.33583E-02, 0.90336E-02,-0.19364E-01, 0.18711E-01,-0.15325E-01,
     & 0.12940E-01,-0.11705E-01, 0.52249E-02, 0.47780E-02,-0.11072E-01,
     & 0.73242E-02, 0.29559E-02,-0.12011E-01, 0.12226E-01,-0.61436E-03,
     &-0.14298E-01, 0.21699E-01,-0.22265E-01, 0.21968E-01,-0.21741E-01,
     & 0.17045E-01,-0.78841E-02, 0.20835E-02,-0.40068E-02
     & /
       real p92(0:38)
       data p92/
     & 0.37193E+02,-0.55993E+02, 0.25580E+02,-0.79639E+01, 0.13210E+01,
     &-0.33893E+00, 0.33044E-01, 0.44440E-01, 0.58160E-01, 0.17228E-01,
     & 0.63967E-01,-0.20683E-01, 0.23881E-01,-0.55869E-02,-0.60698E-02,
     &-0.34769E-02, 0.95110E-02,-0.20253E-01, 0.19606E-01,-0.16078E-01,
     & 0.13577E-01,-0.12252E-01, 0.54775E-02, 0.50010E-02,-0.11571E-01,
     & 0.76563E-02, 0.30935E-02,-0.12563E-01, 0.12772E-01,-0.63010E-03,
     &-0.14961E-01, 0.22730E-01,-0.23347E-01, 0.23039E-01,-0.22780E-01,
     & 0.17855E-01,-0.82816E-02, 0.22201E-02,-0.42016E-02
     & /
       real p93(0:38)
       data p93/
     & 0.38808E+02,-0.58506E+02, 0.26804E+02,-0.83645E+01, 0.14047E+01,
     &-0.35392E+00, 0.36288E-01, 0.45904E-01, 0.59712E-01, 0.16758E-01,
     & 0.65923E-01,-0.22260E-01, 0.24718E-01,-0.59482E-02,-0.62642E-02,
     &-0.35978E-02, 0.10000E-01,-0.21159E-01, 0.20521E-01,-0.16849E-01,
     & 0.14229E-01,-0.12811E-01, 0.57353E-02, 0.52280E-02,-0.12078E-01,
     & 0.79946E-02, 0.32339E-02,-0.13126E-01, 0.13327E-01,-0.64538E-03,
     &-0.15638E-01, 0.23784E-01,-0.24453E-01, 0.24135E-01,-0.23843E-01,
     & 0.18683E-01,-0.86890E-02, 0.23617E-02,-0.44009E-02
     & /
       real p94(0:38)
       data p94/
     & 0.40447E+02,-0.61060E+02, 0.28051E+02,-0.87747E+01, 0.14911E+01,
     &-0.36937E+00, 0.39617E-01, 0.47349E-01, 0.61256E-01, 0.16248E-01,
     & 0.67896E-01,-0.23873E-01, 0.25570E-01,-0.63170E-02,-0.64574E-02,
     &-0.37205E-02, 0.10500E-01,-0.22080E-01, 0.21454E-01,-0.17634E-01,
     & 0.14895E-01,-0.13379E-01, 0.59976E-02, 0.54582E-02,-0.12594E-01,
     & 0.83380E-02, 0.33768E-02,-0.13697E-01, 0.13890E-01,-0.66004E-03,
     &-0.16327E-01, 0.24856E-01,-0.25581E-01, 0.25253E-01,-0.24926E-01,
     & 0.19527E-01,-0.91054E-02, 0.25081E-02,-0.46042E-02
     & /
       real p95(0:38)
       data p95/
     & 0.42109E+02,-0.63655E+02, 0.29326E+02,-0.91960E+01, 0.15806E+01,
     &-0.38537E+00, 0.42957E-01, 0.48733E-01, 0.62770E-01, 0.15694E-01,
     & 0.69892E-01,-0.25515E-01, 0.26448E-01,-0.66860E-02,-0.66431E-02,
     &-0.38420E-02, 0.11011E-01,-0.23015E-01, 0.22405E-01,-0.18435E-01,
     & 0.15575E-01,-0.13959E-01, 0.62650E-02, 0.56907E-02,-0.13116E-01,
     & 0.86861E-02, 0.35220E-02,-0.14277E-01, 0.14461E-01,-0.67338E-03,
     &-0.17028E-01, 0.25949E-01,-0.26732E-01, 0.26393E-01,-0.26029E-01,
     & 0.20386E-01,-0.95319E-02, 0.26605E-02,-0.48120E-02
     & /
       real p96(0:38)
       data p96/
     & 0.43785E+02,-0.66276E+02, 0.30618E+02,-0.96246E+01, 0.16723E+01,
     &-0.40176E+00, 0.46375E-01, 0.50091E-01, 0.64267E-01, 0.15102E-01,
     & 0.71893E-01,-0.27185E-01, 0.27335E-01,-0.70618E-02,-0.68269E-02,
     &-0.39651E-02, 0.11531E-01,-0.23961E-01, 0.23368E-01,-0.19246E-01,
     & 0.16264E-01,-0.14545E-01, 0.65354E-02, 0.59251E-02,-0.13643E-01,
     & 0.90373E-02, 0.36689E-02,-0.14862E-01, 0.15036E-01,-0.68601E-03,
     &-0.17737E-01, 0.27055E-01,-0.27899E-01, 0.27550E-01,-0.27147E-01,
     & 0.21256E-01,-0.99651E-02, 0.28170E-02,-0.50227E-02
     & /
       real p97(0:38)
       data p97/
     & 0.45471E+02,-0.68917E+02, 0.31924E+02,-0.10060E+02, 0.17662E+01,
     &-0.41849E+00, 0.49867E-01, 0.51418E-01, 0.65745E-01, 0.14475E-01,
     & 0.73895E-01,-0.28881E-01, 0.28229E-01,-0.74436E-02,-0.70082E-02,
     &-0.40895E-02, 0.12056E-01,-0.24913E-01, 0.24342E-01,-0.20067E-01,
     & 0.16962E-01,-0.15137E-01, 0.68081E-02, 0.61610E-02,-0.14174E-01,
     & 0.93910E-02, 0.38172E-02,-0.15451E-01, 0.15615E-01,-0.69786E-03,
     &-0.18452E-01, 0.28171E-01,-0.29079E-01, 0.28719E-01,-0.28275E-01,
     & 0.22134E-01,-0.10404E-01, 0.29774E-02,-0.52358E-02
     & /
       real p98(0:38)
       data p98/
     & 0.47165E+02,-0.71573E+02, 0.33242E+02,-0.10500E+02, 0.18620E+01,
     &-0.43557E+00, 0.53427E-01, 0.52713E-01, 0.67200E-01, 0.13814E-01,
     & 0.75893E-01,-0.30598E-01, 0.29128E-01,-0.78309E-02,-0.71865E-02,
     &-0.42152E-02, 0.12588E-01,-0.25872E-01, 0.25324E-01,-0.20895E-01,
     & 0.17666E-01,-0.15734E-01, 0.70826E-02, 0.63978E-02,-0.14707E-01,
     & 0.97464E-02, 0.39665E-02,-0.16044E-01, 0.16196E-01,-0.70888E-03,
     &-0.19171E-01, 0.29296E-01,-0.30269E-01, 0.29899E-01,-0.29413E-01,
     & 0.23020E-01,-0.10848E-01, 0.31414E-02,-0.54509E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  38,  38,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.22) param(i,15) = p15(i)
             if (i.le.22) param(i,16) = p16(i)
             if (i.le.22) param(i,17) = p17(i)
             if (i.le.22) param(i,18) = p18(i)
             if (i.le.22) param(i,19) = p19(i)
             if (i.le.22) param(i,20) = p20(i)
             if (i.le.22) param(i,21) = p21(i)
             if (i.le.22) param(i,22) = p22(i)
             if (i.le.22) param(i,23) = p23(i)
             if (i.le.22) param(i,24) = p24(i)
             if (i.le.22) param(i,25) = p25(i)
             if (i.le.22) param(i,26) = p26(i)
             if (i.le.22) param(i,27) = p27(i)
             if (i.le.22) param(i,28) = p28(i)
             if (i.le.22) param(i,29) = p29(i)
             if (i.le.22) param(i,30) = p30(i)
             if (i.le.22) param(i,31) = p31(i)
             if (i.le.22) param(i,32) = p32(i)
             if (i.le.22) param(i,33) = p33(i)
             if (i.le.22) param(i,34) = p34(i)
             if (i.le.22) param(i,35) = p35(i)
             if (i.le.22) param(i,36) = p36(i)
             if (i.le.22) param(i,37) = p37(i)
             if (i.le.22) param(i,38) = p38(i)
             if (i.le.22) param(i,39) = p39(i)
             if (i.le.22) param(i,40) = p40(i)
             if (i.le.22) param(i,41) = p41(i)
             if (i.le.22) param(i,42) = p42(i)
             if (i.le.22) param(i,43) = p43(i)
             if (i.le.37) param(i,44) = p44(i)
             if (i.le.37) param(i,45) = p45(i)
             if (i.le.37) param(i,46) = p46(i)
             if (i.le.37) param(i,47) = p47(i)
             if (i.le.37) param(i,48) = p48(i)
             if (i.le.37) param(i,49) = p49(i)
             if (i.le.37) param(i,50) = p50(i)
             if (i.le.37) param(i,51) = p51(i)
             if (i.le.37) param(i,52) = p52(i)
             if (i.le.37) param(i,53) = p53(i)
             if (i.le.37) param(i,54) = p54(i)
             if (i.le.37) param(i,55) = p55(i)
             if (i.le.37) param(i,56) = p56(i)
             if (i.le.37) param(i,57) = p57(i)
             if (i.le.37) param(i,58) = p58(i)
             if (i.le.37) param(i,59) = p59(i)
             if (i.le.37) param(i,60) = p60(i)
             if (i.le.37) param(i,61) = p61(i)
             if (i.le.37) param(i,62) = p62(i)
             if (i.le.37) param(i,63) = p63(i)
             if (i.le.37) param(i,64) = p64(i)
             if (i.le.37) param(i,65) = p65(i)
             if (i.le.37) param(i,66) = p66(i)
             if (i.le.37) param(i,67) = p67(i)
             if (i.le.37) param(i,68) = p68(i)
             if (i.le.37) param(i,69) = p69(i)
             if (i.le.37) param(i,70) = p70(i)
             if (i.le.37) param(i,71) = p71(i)
             if (i.le.37) param(i,72) = p72(i)
             if (i.le.37) param(i,73) = p73(i)
             if (i.le.37) param(i,74) = p74(i)
             if (i.le.37) param(i,75) = p75(i)
             if (i.le.38) param(i,76) = p76(i)
             if (i.le.38) param(i,77) = p77(i)
             if (i.le.38) param(i,78) = p78(i)
             if (i.le.38) param(i,79) = p79(i)
             if (i.le.38) param(i,80) = p80(i)
             if (i.le.38) param(i,81) = p81(i)
             if (i.le.38) param(i,82) = p82(i)
             if (i.le.38) param(i,83) = p83(i)
             if (i.le.38) param(i,84) = p84(i)
             if (i.le.38) param(i,85) = p85(i)
             if (i.le.38) param(i,86) = p86(i)
             if (i.le.38) param(i,87) = p87(i)
             if (i.le.38) param(i,88) = p88(i)
             if (i.le.38) param(i,89) = p89(i)
             if (i.le.38) param(i,90) = p90(i)
             if (i.le.38) param(i,91) = p91(i)
             if (i.le.38) param(i,92) = p92(i)
             if (i.le.38) param(i,93) = p93(i)
             if (i.le.38) param(i,94) = p94(i)
             if (i.le.38) param(i,95) = p95(i)
             if (i.le.38) param(i,96) = p96(i)
             if (i.le.38) param(i,97) = p97(i)
             if (i.le.38) param(i,98) = p98(i)
          enddo
       endif
            
       f2ncct5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       f2ncct5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) f2ncct5d00=0.0
       if (q2.lt.q2min) f2ncct5d00=0.0
       if ( x.gt. xmax) f2ncct5d00=0.0
       if ( x.lt. xmin) f2ncct5d00=0.0
       return
       end
       real function  f3ncct5d00(xin,q2in)
***********************************************************
c  parametrization of f3ncct5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0: 4)
       data p15/
     & 0.42108E-04, 0.54519E-04, 0.38275E-05,-0.28055E-04,-0.35349E-04
     & /
       real p16(0: 4)
       data p16/
     & 0.46199E-04, 0.59614E-04, 0.38108E-05,-0.31064E-04,-0.38811E-04
     & /
       real p17(0: 4)
       data p17/
     & 0.55406E-04, 0.71018E-04, 0.36569E-05,-0.37913E-04,-0.46601E-04
     & /
       real p18(0: 5)
       data p18/
     & 0.66135E-04, 0.84233E-04, 0.33490E-05,-0.45967E-04,-0.55653E-04,
     &-0.42948E-04
     & /
       real p19(0: 5)
       data p19/
     & 0.78605E-04, 0.99501E-04, 0.28254E-05,-0.55428E-04,-0.66153E-04,
     &-0.50453E-04
     & /
       real p20(0: 5)
       data p20/
     & 0.93063E-04, 0.11709E-03, 0.20064E-05,-0.66533E-04,-0.78313E-04,
     &-0.59036E-04
     & /
       real p21(0: 5)
       data p21/
     & 0.10981E-03, 0.13732E-03, 0.82432E-06,-0.79540E-04,-0.92375E-04,
     &-0.68839E-04
     & /
       real p22(0: 6)
       data p22/
     & 0.12917E-03, 0.16058E-03,-0.79959E-06,-0.94744E-04,-0.10861E-03,
     &-0.80027E-04,-0.41918E-04
     & /
       real p23(0: 6)
       data p23/
     & 0.15155E-03, 0.18731E-03,-0.29568E-05,-0.11248E-03,-0.12735E-03,
     &-0.92783E-04,-0.47772E-04
     & /
       real p24(0: 6)
       data p24/
     & 0.17745E-03, 0.21811E-03,-0.56534E-05,-0.13309E-03,-0.14893E-03,
     &-0.10737E-03,-0.54385E-04
     & /
       real p25(0: 6)
       data p25/
     & 0.20731E-03, 0.25343E-03,-0.91090E-05,-0.15705E-03,-0.17378E-03,
     &-0.12398E-03,-0.61762E-04
     & /
       real p26(0: 7)
       data p26/
     & 0.24172E-03, 0.29390E-03,-0.13486E-04,-0.18489E-03,-0.20233E-03,
     &-0.14286E-03,-0.69977E-04,-0.14579E-04
     & /
       real p27(0: 8)
       data p27/
     & 0.28133E-03, 0.34023E-03,-0.18963E-04,-0.21719E-03,-0.23513E-03,
     &-0.16431E-03,-0.79119E-04,-0.15120E-04, 0.19287E-04
     & /
       real p28(0: 9)
       data p28/
     & 0.32689E-03, 0.39325E-03,-0.25749E-04,-0.25461E-03,-0.27276E-03,
     &-0.18867E-03,-0.89283E-04,-0.15483E-04, 0.23613E-04, 0.35183E-04
     & /
       real p29(0: 9)
       data p29/
     & 0.37926E-03, 0.45387E-03,-0.34084E-04,-0.29790E-03,-0.31591E-03,
     &-0.21631E-03,-0.10058E-03,-0.15615E-04, 0.28731E-04, 0.41281E-04
     & /
       real p30(0:10)
       data p30/
     & 0.43949E-03, 0.52331E-03,-0.44115E-04,-0.34788E-03,-0.36534E-03,
     &-0.24773E-03,-0.11323E-03,-0.15554E-04, 0.34695E-04, 0.48278E-04,
     & 0.41742E-04
     & /
       real p31(0:10)
       data p31/
     & 0.50873E-03, 0.60287E-03,-0.56081E-04,-0.40549E-03,-0.42196E-03,
     &-0.28346E-03,-0.12742E-03,-0.15290E-04, 0.41597E-04, 0.56275E-04,
     & 0.48093E-04
     & /
       real p32(0:10)
       data p32/
     & 0.54221E-03, 0.64121E-03,-0.62094E-04,-0.43346E-03,-0.44927E-03,
     &-0.30058E-03,-0.13413E-03,-0.15045E-04, 0.44993E-04, 0.60153E-04,
     & 0.51150E-04
     & /
       real p33(0:10)
       data p33/
     & 0.58814E-03, 0.69367E-03,-0.70561E-04,-0.47195E-03,-0.48670E-03,
     &-0.32392E-03,-0.14316E-03,-0.14597E-04, 0.49707E-04, 0.65486E-04,
     & 0.55331E-04
     & /
       real p34(0:10)
       data p34/
     & 0.67916E-03, 0.79723E-03,-0.88003E-04,-0.54856E-03,-0.56070E-03,
     &-0.36970E-03,-0.16059E-03,-0.13368E-04, 0.59213E-04, 0.76082E-04,
     & 0.63573E-04
     & /
       real p35(0:10)
       data p35/
     & 0.78340E-03, 0.91527E-03,-0.10893E-03,-0.63678E-03,-0.64520E-03,
     &-0.42147E-03,-0.17986E-03,-0.11480E-04, 0.70332E-04, 0.88259E-04,
     & 0.72948E-04
     & /
       real p36(0:11)
       data p36/
     & 0.90272E-03, 0.10498E-02,-0.13394E-03,-0.73828E-03,-0.74165E-03,
     &-0.47999E-03,-0.20115E-03,-0.87863E-05, 0.83310E-04, 0.10224E-03,
     & 0.83605E-04, 0.54649E-04
     & /
       real p37(0:11)
       data p37/
     & 0.10392E-02, 0.12029E-02,-0.16373E-03,-0.85498E-03,-0.85165E-03,
     &-0.54610E-03,-0.22466E-03,-0.51176E-05, 0.98428E-04, 0.11826E-03,
     & 0.95708E-04, 0.61986E-04
     & /
       real p38(0:11)
       data p38/
     & 0.11953E-02, 0.13771E-02,-0.19911E-03,-0.98903E-03,-0.97702E-03,
     &-0.62073E-03,-0.25058E-03,-0.27697E-06, 0.11601E-03, 0.13661E-03,
     & 0.10944E-03, 0.70235E-04
     & /
       real p39(0:11)
       data p39/
     & 0.13736E-02, 0.15754E-02,-0.24100E-03,-0.11429E-02,-0.11198E-02,
     &-0.70494E-03,-0.27915E-03, 0.59639E-05, 0.13641E-03, 0.15761E-03,
     & 0.12502E-03, 0.79502E-04
     & /
       real p40(0:11)
       data p40/
     & 0.15773E-02, 0.18011E-02,-0.29020E-03,-0.13193E-02,-0.12825E-02,
     &-0.80013E-03,-0.31084E-03, 0.13668E-04, 0.15991E-03, 0.18155E-03,
     & 0.14265E-03, 0.89920E-04
     & /
       real p41(0:11)
       data p41/
     & 0.18101E-02, 0.20580E-02,-0.34779E-03,-0.15212E-02,-0.14676E-02,
     &-0.90771E-03,-0.34605E-03, 0.23025E-04, 0.18690E-03, 0.20878E-03,
     & 0.16259E-03, 0.10163E-03
     & /
       real p42(0:12)
       data p42/
     & 0.20756E-02, 0.23497E-02,-0.41554E-03,-0.17525E-02,-0.16782E-02,
     &-0.10289E-02,-0.38473E-03, 0.34671E-04, 0.21810E-03, 0.23985E-03,
     & 0.18515E-03, 0.11476E-03, 0.58335E-04
     & /
       real p43(0:12)
       data p43/
     & 0.23783E-02, 0.26809E-02,-0.49509E-03,-0.20172E-02,-0.19173E-02,
     &-0.11653E-02,-0.42717E-03, 0.49027E-04, 0.25411E-03, 0.27528E-03,
     & 0.21066E-03, 0.12946E-03, 0.65059E-04
     & /
       real p44(0:12)
       data p44/
     & 0.27231E-02, 0.30565E-02,-0.58829E-03,-0.23198E-02,-0.21890E-02,
     &-0.13188E-02,-0.47366E-03, 0.66582E-04, 0.29563E-03, 0.31563E-03,
     & 0.23947E-03, 0.14592E-03, 0.72476E-04
     & /
       real p45(0:12)
       data p45/
     & 0.31156E-02, 0.34824E-02,-0.69729E-03,-0.26657E-02,-0.24972E-02,
     &-0.14914E-02,-0.52453E-03, 0.87894E-04, 0.34344E-03, 0.36156E-03,
     & 0.27199E-03, 0.16434E-03, 0.80648E-04
     & /
       real p46(0:12)
       data p46/
     & 0.35623E-02, 0.39650E-02,-0.82454E-03,-0.30606E-02,-0.28467E-02,
     &-0.16854E-02,-0.58011E-03, 0.11361E-03, 0.39841E-03, 0.41378E-03,
     & 0.30868E-03, 0.18491E-03, 0.89642E-04
     & /
       real p47(0:12)
       data p47/
     & 0.40702E-02, 0.45115E-02,-0.97284E-03,-0.35112E-02,-0.32429E-02,
     &-0.19032E-02,-0.64075E-03, 0.14447E-03, 0.46153E-03, 0.47310E-03,
     & 0.35003E-03, 0.20789E-03, 0.99531E-04
     & /
       real p48(0:12)
       data p48/
     & 0.46475E-02, 0.51299E-02,-0.11454E-02,-0.40249E-02,-0.36916E-02,
     &-0.21477E-02,-0.70680E-03, 0.18131E-03, 0.53394E-03, 0.54043E-03,
     & 0.39659E-03, 0.23354E-03, 0.11039E-03
     & /
       real p49(0:12)
       data p49/
     & 0.53029E-02, 0.58294E-02,-0.13457E-02,-0.46100E-02,-0.41993E-02,
     &-0.24218E-02,-0.77864E-03, 0.22509E-03, 0.61687E-03, 0.61677E-03,
     & 0.44898E-03, 0.26213E-03, 0.12230E-03
     & /
       real p50(0:13)
       data p50/
     & 0.60467E-02, 0.66201E-02,-0.15780E-02,-0.52760E-02,-0.47735E-02,
     &-0.27291E-02,-0.85665E-03, 0.27692E-03, 0.71173E-03, 0.70324E-03,
     & 0.50788E-03, 0.29398E-03, 0.13535E-03, 0.42544E-04
     & /
       real p51(0:13)
       data p51/
     & 0.68913E-02, 0.75154E-02,-0.18450E-02,-0.60325E-02,-0.54229E-02,
     &-0.30747E-02,-0.94294E-03, 0.33656E-03, 0.81914E-03, 0.80062E-03,
     & 0.57393E-03, 0.32954E-03, 0.14981E-03, 0.45520E-04
     & /
       real p52(0:13)
       data p52/
     & 0.78483E-02, 0.85260E-02,-0.21534E-02,-0.68919E-02,-0.61562E-02,
     &-0.34616E-02,-0.10366E-02, 0.40653E-03, 0.94158E-03, 0.91064E-03,
     & 0.64804E-03, 0.36911E-03, 0.16564E-03, 0.48548E-04
     & /
       real p53(0:14)
       data p53/
     & 0.89316E-02, 0.96657E-02,-0.25094E-02,-0.78673E-02,-0.69833E-02,
     &-0.38941E-02,-0.11377E-02, 0.48864E-03, 0.10811E-02, 0.10349E-02,
     & 0.73111E-03, 0.41305E-03, 0.18291E-03, 0.51559E-04,-0.67718E-05
     & /
       real p54(0:15)
       data p54/
     & 0.10157E-01, 0.10949E-01,-0.29198E-02,-0.89733E-02,-0.79154E-02,
     &-0.43772E-02,-0.12466E-02, 0.58472E-03, 0.12400E-02, 0.11751E-02,
     & 0.82414E-03, 0.46179E-03, 0.20171E-03, 0.54505E-04,-0.10073E-04,
     &-0.27870E-04
     & /
       real p55(0:15)
       data p55/
     & 0.11541E-01, 0.12394E-01,-0.33920E-02,-0.10226E-01,-0.89646E-02,
     &-0.49160E-02,-0.13636E-02, 0.69684E-03, 0.14206E-02, 0.13330E-02,
     & 0.92819E-03, 0.51580E-03, 0.22215E-03, 0.57323E-04,-0.14081E-04,
     &-0.32962E-04
     & /
       real p56(0:16)
       data p56/
     & 0.13103E-01, 0.14018E-01,-0.39345E-02,-0.11643E-01,-0.10144E-01,
     &-0.55164E-02,-0.14888E-02, 0.82730E-03, 0.16257E-02, 0.15108E-02,
     & 0.10444E-02, 0.57557E-03, 0.24432E-03, 0.59940E-04,-0.18911E-04,
     &-0.38850E-04,-0.34341E-04
     & /
       real p57(0:16)
       data p57/
     & 0.14863E-01, 0.15842E-01,-0.45567E-02,-0.13245E-01,-0.11470E-01,
     &-0.61846E-02,-0.16224E-02, 0.97870E-03, 0.18582E-02, 0.17105E-02,
     & 0.11741E-02, 0.64162E-03, 0.26831E-03, 0.62268E-04,-0.24691E-04,
     &-0.45638E-04,-0.39613E-04
     & /
       real p58(0:16)
       data p58/
     & 0.16845E-01, 0.17887E-01,-0.52691E-02,-0.15052E-01,-0.12956E-01,
     &-0.69273E-02,-0.17645E-02, 0.11539E-02, 0.21213E-02, 0.19347E-02,
     & 0.13187E-02, 0.71449E-03, 0.29422E-03, 0.64204E-04,-0.31562E-04,
     &-0.53444E-04,-0.45606E-04
     & /
       real p59(0:17)
       data p59/
     & 0.19074E-01, 0.20178E-01,-0.60832E-02,-0.17088E-01,-0.14621E-01,
     &-0.77516E-02,-0.19150E-02, 0.13561E-02, 0.24185E-02, 0.21860E-02,
     & 0.14794E-02, 0.79476E-03, 0.32212E-03, 0.65628E-04,-0.39685E-04,
     &-0.62395E-04,-0.52404E-04,-0.36867E-04
     & /
       real p60(0:17)
       data p60/
     & 0.21575E-01, 0.22740E-01,-0.70117E-02,-0.19378E-01,-0.16483E-01,
     &-0.86649E-02,-0.20738E-02, 0.15889E-02, 0.27538E-02, 0.24670E-02,
     & 0.16580E-02, 0.88303E-03, 0.35209E-03, 0.66400E-04,-0.49235E-04,
     &-0.72629E-04,-0.60096E-04,-0.41966E-04
     & /
       real p61(0:17)
       data p61/
     & 0.24379E-01, 0.25600E-01,-0.80686E-02,-0.21951E-01,-0.18562E-01,
     &-0.96752E-02,-0.22404E-02, 0.18560E-02, 0.31313E-02, 0.27809E-02,
     & 0.18560E-02, 0.97991E-03, 0.38420E-03, 0.66362E-04,-0.60405E-04,
     &-0.84298E-04,-0.68779E-04,-0.47686E-04
     & /
       real p62(0:18)
       data p62/
     & 0.27515E-01, 0.28787E-01,-0.92690E-02,-0.24834E-01,-0.20879E-01,
     &-0.10791E-01,-0.24143E-02, 0.21617E-02, 0.35552E-02, 0.31307E-02,
     & 0.20750E-02, 0.10860E-02, 0.41847E-03, 0.65331E-04,-0.73405E-04,
     &-0.97563E-04,-0.78555E-04,-0.54087E-04,-0.34604E-04
     & /
       real p63(0:18)
       data p63/
     & 0.31019E-01, 0.32338E-01,-0.10625E-01,-0.28059E-01,-0.23458E-01,
     &-0.12024E-01,-0.25987E-02, 0.25074E-02, 0.40286E-02, 0.35190E-02,
     & 0.23170E-02, 0.12024E-02, 0.45543E-03, 0.63524E-04,-0.88137E-04,
     &-0.11239E-03,-0.89400E-04,-0.61139E-04,-0.38958E-04
     & /
       real p64(0:18)
       data p64/
     & 0.34926E-01, 0.36285E-01,-0.12154E-01,-0.31658E-01,-0.26322E-01,
     &-0.13382E-01,-0.27926E-02, 0.28978E-02, 0.45561E-02, 0.39492E-02,
     & 0.25835E-02, 0.13295E-02, 0.49510E-03, 0.60737E-04,-0.10482E-03,
     &-0.12894E-03,-0.10142E-03,-0.68900E-04,-0.43749E-04
     & /
       real p65(0:18)
       data p65/
     & 0.39270E-01, 0.40656E-01,-0.13878E-01,-0.35666E-01,-0.29493E-01,
     &-0.14873E-01,-0.29915E-02, 0.33407E-02, 0.51446E-02, 0.44254E-02,
     & 0.28765E-02, 0.14678E-02, 0.53700E-03, 0.56340E-04,-0.12402E-03,
     &-0.14760E-03,-0.11484E-03,-0.77516E-04,-0.49047E-04
     & /
       real p66(0:19)
       data p66/
     & 0.44086E-01, 0.45485E-01,-0.15817E-01,-0.40119E-01,-0.32996E-01,
     &-0.16503E-01,-0.31936E-02, 0.38418E-02, 0.57993E-02, 0.49511E-02,
     & 0.31975E-02, 0.16177E-02, 0.58103E-03, 0.50040E-04,-0.14600E-03,
     &-0.16856E-03,-0.12979E-03,-0.87054E-04,-0.54889E-04,-0.34296E-04
     & /
       real p67(0:19)
       data p67/
     & 0.49413E-01, 0.50804E-01,-0.17990E-01,-0.45053E-01,-0.36854E-01,
     &-0.18281E-01,-0.33965E-02, 0.44067E-02, 0.65257E-02, 0.55299E-02,
     & 0.35484E-02, 0.17797E-02, 0.62705E-03, 0.41511E-04,-0.17108E-03,
     &-0.19203E-03,-0.14639E-03,-0.97581E-04,-0.61311E-04,-0.38195E-04
     & /
       real p68(0:19)
       data p68/
     & 0.55286E-01, 0.56648E-01,-0.20420E-01,-0.50503E-01,-0.41091E-01,
     &-0.20214E-01,-0.35979E-02, 0.50414E-02, 0.73290E-02, 0.61651E-02,
     & 0.39306E-02, 0.19540E-02, 0.67485E-03, 0.30401E-04,-0.19955E-03,
     &-0.21822E-03,-0.16475E-03,-0.10916E-03,-0.68347E-04,-0.42455E-04
     & /
       real p69(0:20)
       data p69/
     & 0.61742E-01, 0.63047E-01,-0.23127E-01,-0.56504E-01,-0.45730E-01,
     &-0.22308E-01,-0.37945E-02, 0.57518E-02, 0.82146E-02, 0.68600E-02,
     & 0.43455E-02, 0.21411E-02, 0.72418E-03, 0.16333E-04,-0.23173E-03,
     &-0.24734E-03,-0.18500E-03,-0.12185E-03,-0.76027E-04,-0.47092E-04,
     &-0.27511E-04
     & /
       real p70(0:20)
       data p70/
     & 0.68815E-01, 0.70029E-01,-0.26132E-01,-0.63089E-01,-0.50789E-01,
     &-0.24569E-01,-0.39828E-02, 0.65440E-02, 0.91872E-02, 0.76175E-02,
     & 0.47943E-02, 0.23408E-02, 0.77470E-03,-0.10951E-05,-0.26795E-03,
     &-0.27958E-03,-0.20723E-03,-0.13571E-03,-0.84378E-04,-0.52120E-04,
     &-0.30391E-04
     & /
       real p71(0:20)
       data p71/
     & 0.76534E-01, 0.77619E-01,-0.29454E-01,-0.70288E-01,-0.56288E-01,
     &-0.27000E-01,-0.41588E-02, 0.74238E-02, 0.10252E-01, 0.84399E-02,
     & 0.52777E-02, 0.25533E-02, 0.82599E-03,-0.22300E-04,-0.30850E-03,
     &-0.31514E-03,-0.23155E-03,-0.15077E-03,-0.93421E-04,-0.57548E-04,
     &-0.33492E-04
     & /
       real p72(0:20)
       data p72/
     & 0.84925E-01, 0.85839E-01,-0.33114E-01,-0.78128E-01,-0.62240E-01,
     &-0.29603E-01,-0.43181E-02, 0.83964E-02, 0.11411E-01, 0.93293E-02,
     & 0.57964E-02, 0.27782E-02, 0.87759E-03,-0.47710E-04,-0.35369E-03,
     &-0.35417E-03,-0.25803E-03,-0.16709E-03,-0.10317E-03,-0.63384E-04,
     &-0.36816E-04
     & /
       real p73(0:21)
       data p73/
     & 0.94010E-01, 0.94702E-01,-0.37128E-01,-0.86629E-01,-0.68655E-01,
     &-0.32377E-01,-0.44555E-02, 0.94670E-02, 0.12670E-01, 0.10287E-01,
     & 0.63502E-02, 0.30149E-02, 0.92893E-03,-0.77751E-04,-0.40376E-03,
     &-0.39681E-03,-0.28673E-03,-0.18466E-03,-0.11362E-03,-0.69628E-04,
     &-0.40360E-04,-0.24445E-04
     & /
       real p74(0:21)
       data p74/
     & 0.10380E+00, 0.10422E+00,-0.41510E-01,-0.95807E-01,-0.75538E-01,
     &-0.35320E-01,-0.45660E-02, 0.10640E-01, 0.14029E-01, 0.11313E-01,
     & 0.69387E-02, 0.32629E-02, 0.97940E-03,-0.11284E-03,-0.45897E-03,
     &-0.44318E-03,-0.31769E-03,-0.20351E-03,-0.12478E-03,-0.76274E-04,
     &-0.44119E-04,-0.26679E-04
     & /
       real p75(0:21)
       data p75/
     & 0.11431E+00, 0.11438E+00,-0.46271E-01,-0.10567E+00,-0.82887E-01,
     &-0.38424E-01,-0.46438E-02, 0.11917E-01, 0.15490E-01, 0.12407E-01,
     & 0.75608E-02, 0.35211E-02, 0.10283E-02,-0.15338E-03,-0.51949E-03,
     &-0.49331E-03,-0.35091E-03,-0.22361E-03,-0.13663E-03,-0.83310E-04,
     &-0.48085E-04,-0.29028E-04
     & /
       real p76(0:22)
       data p76/
     & 0.12552E+00, 0.12518E+00,-0.51418E-01,-0.11621E+00,-0.90694E-01,
     &-0.41683E-01,-0.46831E-02, 0.13303E-01, 0.17052E-01, 0.13567E-01,
     & 0.82150E-02, 0.37883E-02, 0.10749E-02,-0.19971E-03,-0.58544E-03,
     &-0.54724E-03,-0.38635E-03,-0.24494E-03,-0.14914E-03,-0.90716E-04,
     &-0.52244E-04,-0.31481E-04,-0.20922E-04
     & /
       real p77(0:22)
       data p77/
     & 0.13743E+00, 0.13661E+00,-0.56953E-01,-0.12742E+00,-0.98944E-01,
     &-0.45083E-01,-0.46790E-02, 0.14796E-01, 0.18712E-01, 0.14792E-01,
     & 0.88989E-02, 0.40631E-02, 0.11185E-02,-0.25206E-03,-0.65681E-03,
     &-0.60486E-03,-0.42392E-03,-0.26741E-03,-0.16224E-03,-0.98464E-04,
     &-0.56576E-04,-0.34022E-04,-0.22617E-04
     & /
       real p78(0:23)
       data p78/
     & 0.15002E+00, 0.14865E+00,-0.62846E-01,-0.13927E+00,-0.10763E+00,
     &-0.48637E-01,-0.46516E-02, 0.16376E-01, 0.20458E-01, 0.16072E-01,
     & 0.96113E-02, 0.43474E-02, 0.11619E-02,-0.30769E-03,-0.73155E-03,
     &-0.66479E-03,-0.46277E-03,-0.29060E-03,-0.17566E-03,-0.10642E-03,
     &-0.60995E-04,-0.36538E-04,-0.24388E-04,-0.17073E-04
     & /
       real p79(0:23)
       data p79/
     & 0.16325E+00, 0.16125E+00,-0.69116E-01,-0.15174E+00,-0.11670E+00,
     &-0.52299E-01,-0.45698E-02, 0.18060E-01, 0.22293E-01, 0.17408E-01,
     & 0.10347E-01, 0.46357E-02, 0.12008E-02,-0.36971E-03,-0.81155E-03,
     &-0.72812E-03,-0.50349E-03,-0.31475E-03,-0.18955E-03,-0.11465E-03,
     &-0.65538E-04,-0.39107E-04,-0.26212E-04,-0.18326E-04
     & /
       real p80(0:23)
       data p80/
     & 0.17706E+00, 0.17435E+00,-0.75748E-01,-0.16478E+00,-0.12612E+00,
     &-0.56051E-01,-0.44279E-02, 0.19846E-01, 0.24212E-01, 0.18792E-01,
     & 0.11102E-01, 0.49257E-02, 0.12343E-02,-0.43826E-03,-0.89667E-03,
     &-0.79464E-03,-0.54591E-03,-0.33974E-03,-0.20383E-03,-0.12308E-03,
     &-0.70176E-04,-0.41714E-04,-0.28077E-04,-0.19600E-04
     & /
       real p81(0:23)
       data p81/
     & 0.19140E+00, 0.18788E+00,-0.82724E-01,-0.17834E+00,-0.13585E+00,
     &-0.59866E-01,-0.42208E-02, 0.21727E-01, 0.26206E-01, 0.20218E-01,
     & 0.11871E-01, 0.52151E-02, 0.12615E-02,-0.51340E-03,-0.98667E-03,
     &-0.86410E-03,-0.58982E-03,-0.36544E-03,-0.21844E-03,-0.13168E-03,
     &-0.74876E-04,-0.44338E-04,-0.29973E-04,-0.20886E-04
     & /
       real p82(0:23)
       data p82/
     & 0.20620E+00, 0.20177E+00,-0.90020E-01,-0.19235E+00,-0.14583E+00,
     &-0.63721E-01,-0.39439E-02, 0.23697E-01, 0.28265E-01, 0.21677E-01,
     & 0.12650E-01, 0.55014E-02, 0.12816E-02,-0.59511E-03,-0.10812E-02,
     &-0.93616E-03,-0.63498E-03,-0.39169E-03,-0.23326E-03,-0.14038E-03,
     &-0.79606E-04,-0.46959E-04,-0.31886E-04,-0.22174E-04
     & /
       real p83(0:23)
       data p83/
     & 0.22139E+00, 0.21595E+00,-0.97605E-01,-0.20675E+00,-0.15601E+00,
     &-0.67587E-01,-0.35934E-02, 0.25749E-01, 0.30380E-01, 0.23161E-01,
     & 0.13433E-01, 0.57820E-02, 0.12939E-02,-0.68326E-03,-0.11800E-02,
     &-0.10105E-02,-0.68114E-03,-0.41833E-03,-0.24819E-03,-0.14913E-03,
     &-0.84328E-04,-0.49558E-04,-0.33803E-04,-0.23453E-04
     & /
       real p84(0:23)
       data p84/
     & 0.23687E+00, 0.23034E+00,-0.10545E+00,-0.22146E+00,-0.16632E+00,
     &-0.71437E-01,-0.31665E-02, 0.27872E-01, 0.32537E-01, 0.24660E-01,
     & 0.14214E-01, 0.60545E-02, 0.12977E-02,-0.77762E-03,-0.12825E-02,
     &-0.10866E-02,-0.72800E-03,-0.44517E-03,-0.26313E-03,-0.15785E-03,
     &-0.89007E-04,-0.52112E-04,-0.35710E-04,-0.24711E-04
     & /
       real p85(0:23)
       data p85/
     & 0.25257E+00, 0.24485E+00,-0.11351E+00,-0.23638E+00,-0.17670E+00,
     &-0.75242E-01,-0.26614E-02, 0.30057E-01, 0.34724E-01, 0.26165E-01,
     & 0.14988E-01, 0.63164E-02, 0.12926E-02,-0.87789E-03,-0.13882E-02,
     &-0.11642E-02,-0.77527E-03,-0.47203E-03,-0.27798E-03,-0.16649E-03,
     &-0.93605E-04,-0.54602E-04,-0.37593E-04,-0.25939E-04
     & /
       real p86(0:23)
       data p86/
     & 0.26839E+00, 0.25938E+00,-0.12174E+00,-0.25146E+00,-0.18709E+00,
     &-0.78976E-01,-0.20772E-02, 0.32292E-01, 0.36929E-01, 0.27667E-01,
     & 0.15750E-01, 0.65657E-02, 0.12782E-02,-0.98368E-03,-0.14965E-02,
     &-0.12426E-02,-0.82265E-03,-0.49874E-03,-0.29262E-03,-0.17498E-03,
     &-0.98088E-04,-0.57009E-04,-0.39439E-04,-0.27125E-04
     & /
       real p87(0:23)
       data p87/
     & 0.28424E+00, 0.27386E+00,-0.13012E+00,-0.26658E+00,-0.19743E+00,
     &-0.82613E-01,-0.14143E-02, 0.34565E-01, 0.39139E-01, 0.29155E-01,
     & 0.16494E-01, 0.68002E-02, 0.12542E-02,-0.10945E-02,-0.16069E-02,
     &-0.13216E-02,-0.86983E-03,-0.52511E-03,-0.30696E-03,-0.18327E-03,
     &-0.10242E-03,-0.59314E-04,-0.41235E-04,-0.28260E-04
     & /
       real p88(0:23)
       data p88/
     & 0.30005E+00, 0.28820E+00,-0.13859E+00,-0.28168E+00,-0.20765E+00,
     &-0.86129E-01,-0.67407E-03, 0.36865E-01, 0.41341E-01, 0.30620E-01,
     & 0.17215E-01, 0.70181E-02, 0.12205E-02,-0.12099E-02,-0.17187E-02,
     &-0.14005E-02,-0.91654E-03,-0.55098E-03,-0.32090E-03,-0.19129E-03,
     &-0.10658E-03,-0.61502E-04,-0.42971E-04,-0.29334E-04
     & /
       real p89(0:23)
       data p89/
     & 0.31572E+00, 0.30233E+00,-0.14712E+00,-0.29668E+00,-0.21771E+00,
     &-0.89504E-01, 0.14124E-03, 0.39181E-01, 0.43524E-01, 0.32056E-01,
     & 0.17910E-01, 0.72181E-02, 0.11771E-02,-0.13291E-02,-0.18314E-02,
     &-0.14790E-02,-0.96249E-03,-0.57619E-03,-0.33435E-03,-0.19900E-03,
     &-0.11053E-03,-0.63559E-04,-0.44636E-04,-0.30341E-04
     & /
       real p90(0:22)
       data p90/
     & 0.33118E+00, 0.31618E+00,-0.15566E+00,-0.31150E+00,-0.22755E+00,
     &-0.92720E-01, 0.10284E-02, 0.41500E-01, 0.45676E-01, 0.33453E-01,
     & 0.18574E-01, 0.73990E-02, 0.11243E-02,-0.14518E-02,-0.19444E-02,
     &-0.15567E-02,-0.10074E-02,-0.60059E-03,-0.34724E-03,-0.20637E-03,
     &-0.11425E-03,-0.65475E-04,-0.46221E-04
     & /
       real p91(0:22)
       data p91/
     & 0.34636E+00, 0.32968E+00,-0.16418E+00,-0.32608E+00,-0.23712E+00,
     &-0.95761E-01, 0.19837E-02, 0.43813E-01, 0.47788E-01, 0.34807E-01,
     & 0.19205E-01, 0.75600E-02, 0.10623E-02,-0.15772E-02,-0.20570E-02,
     &-0.16331E-02,-0.10511E-02,-0.62408E-03,-0.35950E-03,-0.21334E-03,
     &-0.11772E-03,-0.67240E-04,-0.47721E-04
     & /
       real p92(0:22)
       data p92/
     & 0.36122E+00, 0.34279E+00,-0.17264E+00,-0.34035E+00,-0.24639E+00,
     &-0.98617E-01, 0.30024E-02, 0.46109E-01, 0.49850E-01, 0.36110E-01,
     & 0.19799E-01, 0.77006E-02, 0.99150E-03,-0.17046E-02,-0.21688E-02,
     &-0.17079E-02,-0.10934E-02,-0.64654E-03,-0.37109E-03,-0.21990E-03,
     &-0.12094E-03,-0.68850E-04,-0.49128E-04
     & /
       real p93(0:22)
       data p93/
     & 0.37568E+00, 0.35545E+00,-0.18102E+00,-0.35429E+00,-0.25533E+00,
     &-0.10128E+00, 0.40797E-02, 0.48380E-01, 0.51856E-01, 0.37360E-01,
     & 0.20356E-01, 0.78206E-02, 0.91239E-03,-0.18337E-02,-0.22793E-02,
     &-0.17809E-02,-0.11341E-02,-0.66789E-03,-0.38196E-03,-0.22602E-03,
     &-0.12388E-03,-0.70301E-04,-0.50440E-04
     & /
       real p94(0:22)
       data p94/
     & 0.38973E+00, 0.36766E+00,-0.18929E+00,-0.36783E+00,-0.26392E+00,
     &-0.10375E+00, 0.52076E-02, 0.50617E-01, 0.53798E-01, 0.38551E-01,
     & 0.20874E-01, 0.79206E-02, 0.82594E-03,-0.19633E-02,-0.23879E-02,
     &-0.18516E-02,-0.11730E-02,-0.68804E-03,-0.39207E-03,-0.23168E-03,
     &-0.12653E-03,-0.71594E-04,-0.51662E-04
     & /
       real p95(0:22)
       data p95/
     & 0.40336E+00, 0.37943E+00,-0.19737E+00,-0.38094E+00,-0.27218E+00,
     &-0.10607E+00, 0.63266E-02, 0.52774E-01, 0.55654E-01, 0.39681E-01,
     & 0.21360E-01, 0.80098E-02, 0.74096E-03,-0.20872E-02,-0.24903E-02,
     &-0.19177E-02,-0.12090E-02,-0.70638E-03,-0.40112E-03,-0.23683E-03,
     &-0.12874E-03,-0.72802E-04,-0.52934E-04
     & /
       real p96(0:22)
       data p96/
     & 0.41651E+00, 0.39070E+00,-0.20530E+00,-0.39362E+00,-0.28005E+00,
     &-0.10819E+00, 0.74906E-02, 0.54889E-01, 0.57441E-01, 0.40750E-01,
     & 0.21806E-01, 0.80791E-02, 0.64910E-03,-0.22112E-02,-0.25905E-02,
     &-0.19814E-02,-0.12430E-02,-0.72351E-03,-0.40942E-03,-0.24152E-03,
     &-0.13067E-03,-0.73850E-04,-0.54102E-04
     & /
       real p97(0:22)
       data p97/
     & 0.42918E+00, 0.40144E+00,-0.21308E+00,-0.40585E+00,-0.28753E+00,
     &-0.11011E+00, 0.86952E-02, 0.56958E-01, 0.59155E-01, 0.41757E-01,
     & 0.22212E-01, 0.81289E-02, 0.55088E-03,-0.23351E-02,-0.26883E-02,
     &-0.20426E-02,-0.12753E-02,-0.73942E-03,-0.41697E-03,-0.24576E-03,
     &-0.13234E-03,-0.74743E-04,-0.55166E-04
     & /
       real p98(0:22)
       data p98/
     & 0.44135E+00, 0.41167E+00,-0.22068E+00,-0.41762E+00,-0.29463E+00,
     &-0.11184E+00, 0.99359E-02, 0.58977E-01, 0.60798E-01, 0.42704E-01,
     & 0.22580E-01, 0.81602E-02, 0.44685E-03,-0.24585E-02,-0.27835E-02,
     &-0.21013E-02,-0.13056E-02,-0.75413E-03,-0.42379E-03,-0.24956E-03,
     &-0.13375E-03,-0.75484E-04,-0.56126E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,   4,   4,   4,   5,   5,   5,   5
     &,   6,   6,   6,   6,   7,   8,   9,   9,  10,  10
     &,  10,  10,  10,  10,  11,  11,  11,  11,  11,  11
     &,  12,  12,  12,  12,  12,  12,  12,  12,  13,  13
     &,  13,  14,  15,  15,  16,  16,  16,  17,  17,  17
     &,  18,  18,  18,  18,  19,  19,  19,  20,  20,  20
     &,  20,  21,  21,  21,  22,  22,  23,  23,  23,  23
     &,  23,  23,  23,  23,  23,  23,  23,  23,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le. 4) param(i,15) = p15(i)
             if (i.le. 4) param(i,16) = p16(i)
             if (i.le. 4) param(i,17) = p17(i)
             if (i.le. 5) param(i,18) = p18(i)
             if (i.le. 5) param(i,19) = p19(i)
             if (i.le. 5) param(i,20) = p20(i)
             if (i.le. 5) param(i,21) = p21(i)
             if (i.le. 6) param(i,22) = p22(i)
             if (i.le. 6) param(i,23) = p23(i)
             if (i.le. 6) param(i,24) = p24(i)
             if (i.le. 6) param(i,25) = p25(i)
             if (i.le. 7) param(i,26) = p26(i)
             if (i.le. 8) param(i,27) = p27(i)
             if (i.le. 9) param(i,28) = p28(i)
             if (i.le. 9) param(i,29) = p29(i)
             if (i.le.10) param(i,30) = p30(i)
             if (i.le.10) param(i,31) = p31(i)
             if (i.le.10) param(i,32) = p32(i)
             if (i.le.10) param(i,33) = p33(i)
             if (i.le.10) param(i,34) = p34(i)
             if (i.le.10) param(i,35) = p35(i)
             if (i.le.11) param(i,36) = p36(i)
             if (i.le.11) param(i,37) = p37(i)
             if (i.le.11) param(i,38) = p38(i)
             if (i.le.11) param(i,39) = p39(i)
             if (i.le.11) param(i,40) = p40(i)
             if (i.le.11) param(i,41) = p41(i)
             if (i.le.12) param(i,42) = p42(i)
             if (i.le.12) param(i,43) = p43(i)
             if (i.le.12) param(i,44) = p44(i)
             if (i.le.12) param(i,45) = p45(i)
             if (i.le.12) param(i,46) = p46(i)
             if (i.le.12) param(i,47) = p47(i)
             if (i.le.12) param(i,48) = p48(i)
             if (i.le.12) param(i,49) = p49(i)
             if (i.le.13) param(i,50) = p50(i)
             if (i.le.13) param(i,51) = p51(i)
             if (i.le.13) param(i,52) = p52(i)
             if (i.le.14) param(i,53) = p53(i)
             if (i.le.15) param(i,54) = p54(i)
             if (i.le.15) param(i,55) = p55(i)
             if (i.le.16) param(i,56) = p56(i)
             if (i.le.16) param(i,57) = p57(i)
             if (i.le.16) param(i,58) = p58(i)
             if (i.le.17) param(i,59) = p59(i)
             if (i.le.17) param(i,60) = p60(i)
             if (i.le.17) param(i,61) = p61(i)
             if (i.le.18) param(i,62) = p62(i)
             if (i.le.18) param(i,63) = p63(i)
             if (i.le.18) param(i,64) = p64(i)
             if (i.le.18) param(i,65) = p65(i)
             if (i.le.19) param(i,66) = p66(i)
             if (i.le.19) param(i,67) = p67(i)
             if (i.le.19) param(i,68) = p68(i)
             if (i.le.20) param(i,69) = p69(i)
             if (i.le.20) param(i,70) = p70(i)
             if (i.le.20) param(i,71) = p71(i)
             if (i.le.20) param(i,72) = p72(i)
             if (i.le.21) param(i,73) = p73(i)
             if (i.le.21) param(i,74) = p74(i)
             if (i.le.21) param(i,75) = p75(i)
             if (i.le.22) param(i,76) = p76(i)
             if (i.le.22) param(i,77) = p77(i)
             if (i.le.23) param(i,78) = p78(i)
             if (i.le.23) param(i,79) = p79(i)
             if (i.le.23) param(i,80) = p80(i)
             if (i.le.23) param(i,81) = p81(i)
             if (i.le.23) param(i,82) = p82(i)
             if (i.le.23) param(i,83) = p83(i)
             if (i.le.23) param(i,84) = p84(i)
             if (i.le.23) param(i,85) = p85(i)
             if (i.le.23) param(i,86) = p86(i)
             if (i.le.23) param(i,87) = p87(i)
             if (i.le.23) param(i,88) = p88(i)
             if (i.le.23) param(i,89) = p89(i)
             if (i.le.22) param(i,90) = p90(i)
             if (i.le.22) param(i,91) = p91(i)
             if (i.le.22) param(i,92) = p92(i)
             if (i.le.22) param(i,93) = p93(i)
             if (i.le.22) param(i,94) = p94(i)
             if (i.le.22) param(i,95) = p95(i)
             if (i.le.22) param(i,96) = p96(i)
             if (i.le.22) param(i,97) = p97(i)
             if (i.le.22) param(i,98) = p98(i)
          enddo
       endif
            
       f3ncct5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       f3ncct5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) f3ncct5d00=0.0
       if (q2.lt.q2min) f3ncct5d00=0.0
       if ( x.gt. xmax) f3ncct5d00=0.0
       if ( x.lt. xmin) f3ncct5d00=0.0
       return
       end
       real function  w2cect5d00(xin,q2in)
***********************************************************
c  parametrization of w2cect5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0:22)
       data p15/
     & 0.16341E+01,-0.12175E+01, 0.29990E+00,-0.23782E+00,-0.22014E+00,
     &-0.17515E+00,-0.10583E+00,-0.46499E-01,-0.95760E-02, 0.11672E-01,
     & 0.20112E-01, 0.18811E-01, 0.16370E-01, 0.10862E-01, 0.73858E-02,
     & 0.36718E-02, 0.31588E-02, 0.26931E-03, 0.13496E-02,-0.39005E-03,
     & 0.58684E-03,-0.63001E-05, 0.10434E-03
     & /
       real p16(0:22)
       data p16/
     & 0.17477E+01,-0.13381E+01, 0.33030E+00,-0.25110E+00,-0.22733E+00,
     &-0.18009E+00,-0.10796E+00,-0.46663E-01,-0.89158E-02, 0.12698E-01,
     & 0.21139E-01, 0.19511E-01, 0.16923E-01, 0.11120E-01, 0.75487E-02,
     & 0.36760E-02, 0.32393E-02, 0.18019E-03, 0.14017E-02,-0.46204E-03,
     & 0.61282E-03,-0.26559E-04, 0.10058E-03
     & /
       real p17(0:22)
       data p17/
     & 0.19887E+01,-0.16001E+01, 0.39808E+00,-0.27909E+00,-0.24126E+00,
     &-0.18959E+00,-0.11189E+00,-0.46732E-01,-0.74589E-02, 0.14812E-01,
     & 0.23208E-01, 0.20877E-01, 0.18004E-01, 0.11599E-01, 0.78515E-02,
     & 0.36555E-02, 0.33985E-02,-0.19993E-04, 0.15122E-02,-0.61898E-03,
     & 0.66901E-03,-0.71150E-04, 0.92651E-04
     & /
       real p18(0:22)
       data p18/
     & 0.22486E+01,-0.18911E+01, 0.47644E+00,-0.30880E+00,-0.25457E+00,
     &-0.19871E+00,-0.11555E+00,-0.46638E-01,-0.59712E-02, 0.16900E-01,
     & 0.25227E-01, 0.22161E-01, 0.19035E-01, 0.12020E-01, 0.81272E-02,
     & 0.36014E-02, 0.35615E-02,-0.24540E-03, 0.16359E-02,-0.79051E-03,
     & 0.73399E-03,-0.11913E-03, 0.86243E-04
     & /
       real p19(0:22)
       data p19/
     & 0.25273E+01,-0.22109E+01, 0.56540E+00,-0.34050E+00,-0.26720E+00,
     &-0.20741E+00,-0.11887E+00,-0.46314E-01,-0.43977E-02, 0.19001E-01,
     & 0.27223E-01, 0.23379E-01, 0.20023E-01, 0.12387E-01, 0.83768E-02,
     & 0.35131E-02, 0.37277E-02,-0.49729E-03, 0.17719E-02,-0.97782E-03,
     & 0.80691E-03,-0.17155E-03, 0.80509E-04
     & /
       real p20(0:22)
       data p20/
     & 0.28245E+01,-0.25594E+01, 0.66495E+00,-0.37449E+00,-0.27912E+00,
     &-0.21566E+00,-0.12179E+00,-0.45695E-01,-0.26837E-02, 0.21157E-01,
     & 0.29222E-01, 0.24546E-01, 0.20978E-01, 0.12705E-01, 0.86016E-02,
     & 0.33900E-02, 0.38962E-02,-0.77693E-03, 0.19192E-02,-0.11821E-02,
     & 0.88693E-03,-0.22943E-03, 0.74606E-04
     & /
       real p21(0:22)
       data p21/
     & 0.31408E+01,-0.29375E+01, 0.77571E+00,-0.41094E+00,-0.29030E+00,
     &-0.22351E+00,-0.12434E+00,-0.44808E-01,-0.84987E-03, 0.23354E-01,
     & 0.31220E-01, 0.25660E-01, 0.21901E-01, 0.12974E-01, 0.88042E-02,
     & 0.32334E-02, 0.40691E-02,-0.10839E-02, 0.20795E-02,-0.14032E-02,
     & 0.97481E-03,-0.29273E-03, 0.68775E-04
     & /
       real p22(0:22)
       data p22/
     & 0.34766E+01,-0.33460E+01, 0.89830E+00,-0.45001E+00,-0.30073E+00,
     &-0.23099E+00,-0.12656E+00,-0.43683E-01, 0.10829E-02, 0.25580E-01,
     & 0.33209E-01, 0.26720E-01, 0.22793E-01, 0.13197E-01, 0.89873E-02,
     & 0.30451E-02, 0.42489E-02,-0.14176E-02, 0.22541E-02,-0.16412E-02,
     & 0.10713E-02,-0.36142E-03, 0.63257E-04
     & /
       real p23(0:22)
       data p23/
     & 0.38323E+01,-0.37856E+01, 0.10333E+01,-0.49187E+00,-0.31039E+00,
     &-0.23813E+00,-0.12849E+00,-0.42349E-01, 0.30940E-02, 0.27824E-01,
     & 0.35186E-01, 0.27723E-01, 0.23657E-01, 0.13374E-01, 0.91536E-02,
     & 0.28264E-02, 0.44376E-02,-0.17778E-02, 0.24446E-02,-0.18961E-02,
     & 0.11772E-02,-0.43544E-03, 0.58292E-04
     & /
       real p24(0:22)
       data p24/
     & 0.42103E+01,-0.42599E+01, 0.11833E+01,-0.53668E+00,-0.31938E+00,
     &-0.24513E+00,-0.13038E+00,-0.41031E-01, 0.50116E-02, 0.29975E-01,
     & 0.37091E-01, 0.28641E-01, 0.24489E-01, 0.13514E-01, 0.93170E-02,
     & 0.25897E-02, 0.46489E-02,-0.21572E-02, 0.26597E-02,-0.21648E-02,
     & 0.12970E-02,-0.51328E-03, 0.55428E-04
     & /
       real p25(0:22)
       data p25/
     & 0.46089E+01,-0.47664E+01, 0.13466E+01,-0.58463E+00,-0.32753E+00,
     &-0.25183E+00,-0.13200E+00,-0.39521E-01, 0.69968E-02, 0.32139E-01,
     & 0.38983E-01, 0.29504E-01, 0.25295E-01, 0.13611E-01, 0.94666E-02,
     & 0.23234E-02, 0.48713E-02,-0.25636E-02, 0.28922E-02,-0.24509E-02,
     & 0.14269E-02,-0.59668E-03, 0.53333E-04
     & /
       real p26(0:22)
       data p26/
     & 0.50282E+01,-0.53054E+01, 0.15235E+01,-0.63588E+00,-0.33483E+00,
     &-0.25825E+00,-0.13335E+00,-0.37816E-01, 0.90515E-02, 0.34319E-01,
     & 0.40864E-01, 0.30314E-01, 0.26077E-01, 0.13666E-01, 0.96036E-02,
     & 0.20275E-02, 0.51055E-02,-0.29973E-02, 0.31426E-02,-0.27548E-02,
     & 0.15672E-02,-0.68583E-03, 0.52051E-04
     & /
       real p27(0:22)
       data p27/
     & 0.54685E+01,-0.58775E+01, 0.17144E+01,-0.69062E+00,-0.34124E+00,
     &-0.26440E+00,-0.13445E+00,-0.35934E-01, 0.11164E-01, 0.36508E-01,
     & 0.42733E-01, 0.31069E-01, 0.26838E-01, 0.13679E-01, 0.97300E-02,
     & 0.17029E-02, 0.53530E-02,-0.34583E-02, 0.34122E-02,-0.30766E-02,
     & 0.17183E-02,-0.78077E-03, 0.51751E-04
     & /
       real p28(0:22)
       data p28/
     & 0.59303E+01,-0.64835E+01, 0.19199E+01,-0.74900E+00,-0.34675E+00,
     &-0.27032E+00,-0.13532E+00,-0.33893E-01, 0.13321E-01, 0.38699E-01,
     & 0.44586E-01, 0.31770E-01, 0.27578E-01, 0.13653E-01, 0.98478E-02,
     & 0.13506E-02, 0.56156E-02,-0.39466E-02, 0.37018E-02,-0.34165E-02,
     & 0.18809E-02,-0.88155E-03, 0.52599E-04
     & /
       real p29(0:22)
       data p29/
     & 0.64138E+01,-0.71238E+01, 0.21405E+01,-0.81121E+00,-0.35133E+00,
     &-0.27604E+00,-0.13599E+00,-0.31710E-01, 0.15511E-01, 0.40886E-01,
     & 0.46422E-01, 0.32416E-01, 0.28299E-01, 0.13589E-01, 0.99591E-02,
     & 0.97132E-03, 0.58947E-02,-0.44620E-02, 0.40128E-02,-0.37747E-02,
     & 0.20554E-02,-0.98821E-03, 0.54762E-04
     & /
       real p30(0:22)
       data p30/
     & 0.69207E+01,-0.78008E+01, 0.23778E+01,-0.87736E+00,-0.35508E+00,
     &-0.28168E+00,-0.13662E+00,-0.29522E-01, 0.17633E-01, 0.43007E-01,
     & 0.48209E-01, 0.32994E-01, 0.29004E-01, 0.13493E-01, 0.10075E-01,
     & 0.57297E-03, 0.61997E-02,-0.50013E-02, 0.43511E-02,-0.41492E-02,
     & 0.22445E-02,-0.10996E-02, 0.59596E-04
     & /
       real p31(0:22)
       data p31/
     & 0.74514E+01,-0.85155E+01, 0.26326E+01,-0.94762E+00,-0.35802E+00,
     &-0.28728E+00,-0.13727E+00,-0.27376E-01, 0.19654E-01, 0.45043E-01,
     & 0.49938E-01, 0.33503E-01, 0.29695E-01, 0.13368E-01, 0.10199E-01,
     & 0.15808E-03, 0.65340E-02,-0.55635E-02, 0.47192E-02,-0.45399E-02,
     & 0.24494E-02,-0.12155E-02, 0.67555E-04
     & /
       real p32(0:22)
       data p32/
     & 0.76911E+01,-0.88400E+01, 0.27493E+01,-0.97978E+00,-0.35897E+00,
     &-0.28968E+00,-0.13749E+00,-0.26388E-01, 0.20553E-01, 0.45936E-01,
     & 0.50693E-01, 0.33709E-01, 0.29993E-01, 0.13301E-01, 0.10252E-01,
     &-0.32469E-04, 0.66861E-02,-0.58190E-02, 0.48876E-02,-0.47173E-02,
     & 0.25431E-02,-0.12684E-02, 0.71435E-04
     & /
       real p33(0:22)
       data p33/
     & 0.80045E+01,-0.92658E+01, 0.29034E+01,-0.10222E+01,-0.35989E+00,
     &-0.29272E+00,-0.13771E+00,-0.25083E-01, 0.21714E-01, 0.47081E-01,
     & 0.51656E-01, 0.33959E-01, 0.30371E-01, 0.13205E-01, 0.10318E-01,
     &-0.28425E-03, 0.68861E-02,-0.61543E-02, 0.51096E-02,-0.49501E-02,
     & 0.26668E-02,-0.13380E-02, 0.76769E-04
     & /
       real p34(0:22)
       data p34/
     & 0.85802E+01,-0.10052E+02, 0.31907E+01,-0.11014E+01,-0.36067E+00,
     &-0.29799E+00,-0.13796E+00,-0.22654E-01, 0.23804E-01, 0.49118E-01,
     & 0.53362E-01, 0.34365E-01, 0.31034E-01, 0.13007E-01, 0.10435E-01,
     &-0.75357E-03, 0.72572E-02,-0.67737E-02, 0.55229E-02,-0.53801E-02,
     & 0.28973E-02,-0.14672E-02, 0.87324E-04
     & /
       real p35(0:22)
       data p35/
     & 0.91789E+01,-0.10875E+02, 0.34950E+01,-0.11852E+01,-0.36033E+00,
     &-0.30313E+00,-0.13802E+00,-0.20096E-01, 0.25920E-01, 0.51150E-01,
     & 0.55055E-01, 0.34719E-01, 0.31686E-01, 0.12774E-01, 0.10550E-01,
     &-0.12495E-02, 0.76482E-02,-0.74218E-02, 0.59601E-02,-0.58301E-02,
     & 0.31412E-02,-0.16031E-02, 0.99310E-04
     & /
       real p36(0:22)
       data p36/
     & 0.98007E+01,-0.11735E+02, 0.38165E+01,-0.12739E+01,-0.35883E+00,
     &-0.30816E+00,-0.13792E+00,-0.17421E-01, 0.28055E-01, 0.53176E-01,
     & 0.56735E-01, 0.35022E-01, 0.32328E-01, 0.12506E-01, 0.10665E-01,
     &-0.17714E-02, 0.80604E-02,-0.80988E-02, 0.64218E-02,-0.63006E-02,
     & 0.33989E-02,-0.17461E-02, 0.11281E-03
     & /
       real p37(0:22)
       data p37/
     & 0.10446E+02,-0.12633E+02, 0.41559E+01,-0.13677E+01,-0.35615E+00,
     &-0.31309E+00,-0.13766E+00,-0.14637E-01, 0.30202E-01, 0.55192E-01,
     & 0.58402E-01, 0.35275E-01, 0.32961E-01, 0.12205E-01, 0.10782E-01,
     &-0.23191E-02, 0.84948E-02,-0.88048E-02, 0.69088E-02,-0.67916E-02,
     & 0.36709E-02,-0.18961E-02, 0.12792E-03
     & /
       real p38(0:22)
       data p38/
     & 0.11115E+02,-0.13569E+02, 0.45135E+01,-0.14666E+01,-0.35224E+00,
     &-0.31795E+00,-0.13725E+00,-0.11754E-01, 0.32355E-01, 0.57195E-01,
     & 0.60055E-01, 0.35477E-01, 0.33588E-01, 0.11871E-01, 0.10901E-01,
     &-0.28920E-02, 0.89525E-02,-0.95400E-02, 0.74220E-02,-0.73034E-02,
     & 0.39576E-02,-0.20532E-02, 0.14473E-03
     & /
       real p39(0:22)
       data p39/
     & 0.11808E+02,-0.14543E+02, 0.48897E+01,-0.15710E+01,-0.34708E+00,
     &-0.32275E+00,-0.13671E+00,-0.87813E-02, 0.34508E-01, 0.59182E-01,
     & 0.61694E-01, 0.35628E-01, 0.34209E-01, 0.11507E-01, 0.11025E-01,
     &-0.34896E-02, 0.94346E-02,-0.10305E-01, 0.79621E-02,-0.78364E-02,
     & 0.42593E-02,-0.22177E-02, 0.16332E-03
     & /
       real p40(0:22)
       data p40/
     & 0.12528E+02,-0.15561E+02, 0.52871E+01,-0.16813E+01,-0.34073E+00,
     &-0.32760E+00,-0.13618E+00,-0.58215E-02, 0.36588E-01, 0.61114E-01,
     & 0.63304E-01, 0.35728E-01, 0.34834E-01, 0.11120E-01, 0.11166E-01,
     &-0.41048E-02, 0.99508E-02,-0.11096E-01, 0.85353E-02,-0.83909E-02,
     & 0.45792E-02,-0.23895E-02, 0.18440E-03
     & /
       real p41(0:22)
       data p41/
     & 0.13274E+02,-0.16621E+02, 0.57066E+01,-0.17979E+01,-0.33318E+00,
     &-0.33254E+00,-0.13570E+00,-0.29012E-02, 0.38576E-01, 0.62981E-01,
     & 0.64882E-01, 0.35774E-01, 0.35468E-01, 0.10715E-01, 0.11326E-01,
     &-0.47359E-02, 0.10504E-01,-0.11916E-01, 0.91436E-02,-0.89673E-02,
     & 0.49182E-02,-0.25688E-02, 0.20818E-03
     & /
       real p42(0:22)
       data p42/
     & 0.14045E+02,-0.17721E+02, 0.61451E+01,-0.19202E+01,-0.32425E+00,
     &-0.33745E+00,-0.13507E+00, 0.11677E-03, 0.40571E-01, 0.64838E-01,
     & 0.66449E-01, 0.35771E-01, 0.36097E-01, 0.10278E-01, 0.11491E-01,
     &-0.53931E-02, 0.11081E-01,-0.12765E-01, 0.97789E-02,-0.95655E-02,
     & 0.52725E-02,-0.27558E-02, 0.23377E-03
     & /
       real p43(0:22)
       data p43/
     & 0.14840E+02,-0.18860E+02, 0.66030E+01,-0.20484E+01,-0.31389E+00,
     &-0.34234E+00,-0.13430E+00, 0.32267E-02, 0.42569E-01, 0.66683E-01,
     & 0.68006E-01, 0.35720E-01, 0.36723E-01, 0.98087E-02, 0.11662E-01,
     &-0.60762E-02, 0.11683E-01,-0.13646E-01, 0.10442E-01,-0.10186E-01,
     & 0.56422E-02,-0.29506E-02, 0.26122E-03
     & /
       real p44(0:37)
       data p44/
     & 0.15655E+02,-0.20032E+02, 0.70763E+01,-0.21806E+01,-0.30084E+00,
     &-0.35241E+00,-0.12476E+00,-0.38965E-02, 0.54249E-01, 0.61243E-01,
     & 0.74596E-01, 0.34051E-01, 0.34738E-01, 0.14719E-01, 0.46618E-02,
     & 0.22167E-02, 0.34184E-02,-0.78604E-02, 0.54765E-02,-0.55114E-02,
     & 0.35639E-02,-0.43199E-02, 0.19760E-02, 0.19755E-02,-0.44169E-02,
     & 0.28800E-02, 0.95247E-03,-0.46877E-02, 0.50820E-02,-0.54287E-03,
     &-0.54491E-02, 0.75603E-02,-0.71325E-02, 0.69242E-02,-0.75178E-02,
     & 0.59501E-02,-0.22950E-02,-0.33494E-03
     & /
       real p45(0:37)
       data p45/
     & 0.16499E+02,-0.21251E+02, 0.75738E+01,-0.23210E+01,-0.28745E+00,
     &-0.35765E+00,-0.12320E+00,-0.12671E-02, 0.56852E-01, 0.62582E-01,
     & 0.76447E-01, 0.33807E-01, 0.35204E-01, 0.14529E-01, 0.43802E-02,
     & 0.20461E-02, 0.35182E-02,-0.83637E-02, 0.58275E-02,-0.58601E-02,
     & 0.38139E-02,-0.45815E-02, 0.20920E-02, 0.20863E-02,-0.46760E-02,
     & 0.30464E-02, 0.10120E-02,-0.49646E-02, 0.53685E-02,-0.56544E-03,
     &-0.57689E-02, 0.80314E-02,-0.75953E-02, 0.73798E-02,-0.79833E-02,
     & 0.63191E-02,-0.24480E-02,-0.31627E-03
     & /
       real p46(0:37)
       data p46/
     & 0.17368E+02,-0.22510E+02, 0.80917E+01,-0.24678E+01,-0.27253E+00,
     &-0.36294E+00,-0.12151E+00, 0.14133E-02, 0.59469E-01, 0.63886E-01,
     & 0.78299E-01, 0.33512E-01, 0.35664E-01, 0.14322E-01, 0.40895E-02,
     & 0.18710E-02, 0.36250E-02,-0.88813E-02, 0.61936E-02,-0.62207E-02,
     & 0.40749E-02,-0.48518E-02, 0.22121E-02, 0.22008E-02,-0.49432E-02,
     & 0.32182E-02, 0.10740E-02,-0.52506E-02, 0.56638E-02,-0.58817E-03,
     &-0.60993E-02, 0.85196E-02,-0.80761E-02, 0.78533E-02,-0.84658E-02,
     & 0.67013E-02,-0.26075E-02,-0.29501E-03
     & /
       real p47(0:37)
       data p47/
     & 0.18263E+02,-0.23810E+02, 0.86304E+01,-0.26211E+01,-0.25605E+00,
     &-0.36829E+00,-0.11969E+00, 0.41389E-02, 0.62098E-01, 0.65154E-01,
     & 0.80152E-01, 0.33166E-01, 0.36121E-01, 0.14098E-01, 0.37907E-02,
     & 0.16919E-02, 0.37394E-02,-0.94131E-02, 0.65752E-02,-0.65933E-02,
     & 0.43470E-02,-0.51309E-02, 0.23366E-02, 0.23190E-02,-0.52185E-02,
     & 0.33954E-02, 0.11383E-02,-0.55457E-02, 0.59681E-02,-0.61104E-03,
     &-0.64406E-02, 0.90251E-02,-0.85751E-02, 0.83449E-02,-0.89656E-02,
     & 0.70969E-02,-0.27737E-02,-0.27107E-03
     & /
       real p48(0:37)
       data p48/
     & 0.19182E+02,-0.25152E+02, 0.91902E+01,-0.27812E+01,-0.23796E+00,
     &-0.37373E+00,-0.11776E+00, 0.69035E-02, 0.64734E-01, 0.66382E-01,
     & 0.82007E-01, 0.32769E-01, 0.36576E-01, 0.13859E-01, 0.34845E-02,
     & 0.15091E-02, 0.38618E-02,-0.99590E-02, 0.69726E-02,-0.69781E-02,
     & 0.46304E-02,-0.54188E-02, 0.24654E-02, 0.24410E-02,-0.55020E-02,
     & 0.35782E-02, 0.12052E-02,-0.58501E-02, 0.62813E-02,-0.63404E-03,
     &-0.67929E-02, 0.95479E-02,-0.90927E-02, 0.88548E-02,-0.94828E-02,
     & 0.75061E-02,-0.29468E-02,-0.24437E-03
     & /
       real p49(0:37)
       data p49/
     & 0.20127E+02,-0.26535E+02, 0.97714E+01,-0.29481E+01,-0.21824E+00,
     &-0.37926E+00,-0.11571E+00, 0.97011E-02, 0.67375E-01, 0.67571E-01,
     & 0.83864E-01, 0.32322E-01, 0.37029E-01, 0.13604E-01, 0.31716E-02,
     & 0.13233E-02, 0.39926E-02,-0.10519E-01, 0.73863E-02,-0.73751E-02,
     & 0.49254E-02,-0.57157E-02, 0.25986E-02, 0.25669E-02,-0.57937E-02,
     & 0.37665E-02, 0.12746E-02,-0.61638E-02, 0.66037E-02,-0.65714E-03,
     &-0.71563E-02, 0.10089E-01,-0.96291E-02, 0.93833E-02,-0.10018E-01,
     & 0.79290E-02,-0.31268E-02,-0.21480E-03
     & /
       real p50(0:37)
       data p50/
     & 0.21099E+02,-0.27961E+02, 0.10374E+02,-0.31220E+01,-0.19684E+00,
     &-0.38490E+00,-0.11355E+00, 0.12526E-01, 0.70017E-01, 0.68717E-01,
     & 0.85722E-01, 0.31825E-01, 0.37482E-01, 0.13336E-01, 0.28527E-02,
     & 0.11348E-02, 0.41324E-02,-0.11093E-01, 0.78164E-02,-0.77844E-02,
     & 0.52322E-02,-0.60216E-02, 0.27363E-02, 0.26966E-02,-0.60937E-02,
     & 0.39605E-02, 0.13467E-02,-0.64869E-02, 0.69352E-02,-0.68032E-03,
     &-0.75309E-02, 0.10647E-01,-0.10185E-01, 0.99309E-02,-0.10571E-01,
     & 0.83658E-02,-0.33139E-02,-0.18229E-03
     & /
       real p51(0:37)
       data p51/
     & 0.22101E+02,-0.29438E+02, 0.11005E+02,-0.33047E+01,-0.17385E+00,
     &-0.39084E+00,-0.11155E+00, 0.15188E-01, 0.72533E-01, 0.69748E-01,
     & 0.87563E-01, 0.31273E-01, 0.37956E-01, 0.13073E-01, 0.25489E-02,
     & 0.96097E-03, 0.42949E-02,-0.11675E-01, 0.82714E-02,-0.82041E-02,
     & 0.55549E-02,-0.63365E-02, 0.28804E-02, 0.28323E-02,-0.64032E-02,
     & 0.41616E-02, 0.14231E-02,-0.68221E-02, 0.72786E-02,-0.70357E-03,
     &-0.79191E-02, 0.11228E-01,-0.10764E-01, 0.10501E-01,-0.11145E-01,
     & 0.88189E-02,-0.35100E-02,-0.14593E-03
     & /
       real p52(0:37)
       data p52/
     & 0.23129E+02,-0.30957E+02, 0.11659E+02,-0.34946E+01,-0.14911E+00,
     &-0.39693E+00,-0.10946E+00, 0.17865E-01, 0.75045E-01, 0.70734E-01,
     & 0.89406E-01, 0.30672E-01, 0.38433E-01, 0.12798E-01, 0.22407E-02,
     & 0.78546E-03, 0.44672E-02,-0.12270E-01, 0.87436E-02,-0.86363E-02,
     & 0.58899E-02,-0.66606E-02, 0.30291E-02, 0.29719E-02,-0.67211E-02,
     & 0.43684E-02, 0.15022E-02,-0.71668E-02, 0.76313E-02,-0.72686E-03,
     &-0.83187E-02, 0.11827E-01,-0.11362E-01, 0.11091E-01,-0.11738E-01,
     & 0.92863E-02,-0.37134E-02,-0.10643E-03
     & /
       real p53(0:37)
       data p53/
     & 0.24183E+02,-0.32519E+02, 0.12334E+02,-0.36918E+01,-0.12257E+00,
     &-0.40315E+00,-0.10725E+00, 0.20582E-01, 0.77567E-01, 0.71683E-01,
     & 0.91255E-01, 0.30022E-01, 0.38909E-01, 0.12507E-01, 0.19255E-02,
     & 0.60593E-03, 0.46476E-02,-0.12881E-01, 0.92320E-02,-0.90816E-02,
     & 0.62366E-02,-0.69941E-02, 0.31822E-02, 0.31153E-02,-0.70473E-02,
     & 0.45807E-02, 0.15838E-02,-0.75208E-02, 0.79930E-02,-0.75018E-03,
     &-0.87296E-02, 0.12443E-01,-0.11980E-01, 0.11700E-01,-0.12349E-01,
     & 0.97677E-02,-0.39240E-02,-0.63854E-04
     & /
       real p54(0:37)
       data p54/
     & 0.25262E+02,-0.34122E+02, 0.13031E+02,-0.38964E+01,-0.94198E-01,
     &-0.40952E+00,-0.10491E+00, 0.23334E-01, 0.80100E-01, 0.72597E-01,
     & 0.93110E-01, 0.29324E-01, 0.39386E-01, 0.12202E-01, 0.16040E-02,
     & 0.42265E-03, 0.48364E-02,-0.13506E-01, 0.97368E-02,-0.95401E-02,
     & 0.65953E-02,-0.73369E-02, 0.33397E-02, 0.32623E-02,-0.73818E-02,
     & 0.47987E-02, 0.16678E-02,-0.78841E-02, 0.83636E-02,-0.77351E-03,
     &-0.91518E-02, 0.13078E-01,-0.12618E-01, 0.12329E-01,-0.12979E-01,
     & 0.10263E-01,-0.41420E-02,-0.18117E-04
     & /
       real p55(0:37)
       data p55/
     & 0.26368E+02,-0.35768E+02, 0.13751E+02,-0.41085E+01,-0.63947E-01,
     &-0.41605E+00,-0.10245E+00, 0.26119E-01, 0.82642E-01, 0.73473E-01,
     & 0.94971E-01, 0.28577E-01, 0.39864E-01, 0.11882E-01, 0.12765E-02,
     & 0.23587E-03, 0.50339E-02,-0.14146E-01, 0.10258E-01,-0.10012E-01,
     & 0.69661E-02,-0.76892E-02, 0.35018E-02, 0.34131E-02,-0.77247E-02,
     & 0.50223E-02, 0.17543E-02,-0.82568E-02, 0.87433E-02,-0.79682E-03,
     &-0.95854E-02, 0.13732E-01,-0.13275E-01, 0.12977E-01,-0.13627E-01,
     & 0.10773E-01,-0.43674E-02, 0.30863E-04
     & /
       real p56(0:37)
       data p56/
     & 0.27499E+02,-0.37457E+02, 0.14493E+02,-0.43283E+01,-0.31783E-01,
     &-0.42276E+00,-0.99876E-01, 0.28933E-01, 0.85189E-01, 0.74311E-01,
     & 0.96839E-01, 0.27782E-01, 0.40344E-01, 0.11549E-01, 0.94374E-03,
     & 0.45864E-04, 0.52404E-02,-0.14801E-01, 0.10797E-01,-0.10497E-01,
     & 0.73492E-02,-0.80510E-02, 0.36683E-02, 0.35676E-02,-0.80760E-02,
     & 0.52516E-02, 0.18433E-02,-0.86389E-02, 0.91320E-02,-0.82011E-03,
     &-0.10031E-01, 0.14404E-01,-0.13952E-01, 0.13645E-01,-0.14294E-01,
     & 0.11298E-01,-0.46004E-02, 0.83162E-04
     & /
       real p57(0:37)
       data p57/
     & 0.28657E+02,-0.39189E+02, 0.15258E+02,-0.45559E+01, 0.23303E-02,
     &-0.42965E+00,-0.97190E-01, 0.31771E-01, 0.87742E-01, 0.75110E-01,
     & 0.98714E-01, 0.26940E-01, 0.40828E-01, 0.11202E-01, 0.60608E-03,
     &-0.14711E-03, 0.54561E-02,-0.15472E-01, 0.11352E-01,-0.10996E-01,
     & 0.77447E-02,-0.84225E-02, 0.38395E-02, 0.37259E-02,-0.84357E-02,
     & 0.54867E-02, 0.19348E-02,-0.90305E-02, 0.95299E-02,-0.84334E-03,
     &-0.10488E-01, 0.15094E-01,-0.14649E-01, 0.14333E-01,-0.14980E-01,
     & 0.11837E-01,-0.48411E-02, 0.13886E-03
     & /
       real p58(0:37)
       data p58/
     & 0.29841E+02,-0.40964E+02, 0.16047E+02,-0.47914E+01, 0.38430E-01,
     &-0.43675E+00,-0.94396E-01, 0.34631E-01, 0.90297E-01, 0.75869E-01,
     & 0.10060E+00, 0.26050E-01, 0.41315E-01, 0.10843E-01, 0.26407E-03,
     &-0.34280E-03, 0.56814E-02,-0.16157E-01, 0.11925E-01,-0.11509E-01,
     & 0.81528E-02,-0.88037E-02, 0.40153E-02, 0.38879E-02,-0.88039E-02,
     & 0.57275E-02, 0.20288E-02,-0.94317E-02, 0.99369E-02,-0.86650E-03,
     &-0.10956E-01, 0.15804E-01,-0.15367E-01, 0.15042E-01,-0.15685E-01,
     & 0.12391E-01,-0.50897E-02, 0.19804E-03
     & /
       real p59(0:37)
       data p59/
     & 0.31052E+02,-0.42783E+02, 0.16858E+02,-0.50350E+01, 0.76555E-01,
     &-0.44406E+00,-0.91499E-01, 0.37508E-01, 0.92854E-01, 0.76588E-01,
     & 0.10249E+00, 0.25113E-01, 0.41808E-01, 0.10471E-01,-0.81752E-04,
     &-0.54094E-03, 0.59165E-02,-0.16857E-01, 0.12516E-01,-0.12035E-01,
     & 0.85738E-02,-0.91947E-02, 0.41958E-02, 0.40538E-02,-0.91806E-02,
     & 0.59741E-02, 0.21254E-02,-0.98424E-02, 0.10353E-01,-0.88957E-03,
     &-0.11437E-01, 0.16532E-01,-0.16106E-01, 0.15771E-01,-0.16409E-01,
     & 0.12960E-01,-0.53461E-02, 0.26078E-03
     & /
       real p60(0:37)
       data p60/
     & 0.32289E+02,-0.44646E+02, 0.17694E+02,-0.52868E+01, 0.11674E+00,
     &-0.45160E+00,-0.88501E-01, 0.40399E-01, 0.95410E-01, 0.77265E-01,
     & 0.10439E+00, 0.24129E-01, 0.42306E-01, 0.10087E-01,-0.43089E-03,
     &-0.74125E-03, 0.61618E-02,-0.17572E-01, 0.13124E-01,-0.12576E-01,
     & 0.90076E-02,-0.95956E-02, 0.43810E-02, 0.42235E-02,-0.95659E-02,
     & 0.62266E-02, 0.22247E-02,-0.10263E-01, 0.10779E-01,-0.91253E-03,
     &-0.11929E-01, 0.17280E-01,-0.16866E-01, 0.16521E-01,-0.17153E-01,
     & 0.13544E-01,-0.56106E-02, 0.32716E-03
     & /
       real p61(0:37)
       data p61/
     & 0.33553E+02,-0.46553E+02, 0.18553E+02,-0.55470E+01, 0.15902E+00,
     &-0.45939E+00,-0.85407E-01, 0.43300E-01, 0.97963E-01, 0.77899E-01,
     & 0.10630E+00, 0.23099E-01, 0.42811E-01, 0.96923E-02,-0.78281E-03,
     &-0.94350E-03, 0.64176E-02,-0.18302E-01, 0.13751E-01,-0.13131E-01,
     & 0.94546E-02,-0.10006E-01, 0.45709E-02, 0.43971E-02,-0.99599E-02,
     & 0.64849E-02, 0.23265E-02,-0.10693E-01, 0.11213E-01,-0.93536E-03,
     &-0.12433E-01, 0.18047E-01,-0.17646E-01, 0.17292E-01,-0.17917E-01,
     & 0.14143E-01,-0.58832E-02, 0.39726E-03
     & /
       real p62(0:37)
       data p62/
     & 0.34843E+02,-0.48505E+02, 0.19436E+02,-0.58157E+01, 0.20345E+00,
     &-0.46744E+00,-0.82220E-01, 0.46208E-01, 0.10051E+00, 0.78490E-01,
     & 0.10822E+00, 0.22022E-01, 0.43324E-01, 0.92865E-02,-0.11370E-02,
     &-0.11474E-02, 0.66840E-02,-0.19047E-01, 0.14396E-01,-0.13700E-01,
     & 0.99149E-02,-0.10427E-01, 0.47657E-02, 0.45745E-02,-0.10362E-01,
     & 0.67492E-02, 0.24310E-02,-0.11133E-01, 0.11657E-01,-0.95804E-03,
     &-0.12950E-01, 0.18834E-01,-0.18449E-01, 0.18084E-01,-0.18700E-01,
     & 0.14758E-01,-0.61641E-02, 0.47116E-03
     & /
       real p63(0:37)
       data p63/
     & 0.36165E+02,-0.50508E+02, 0.20349E+02,-0.60946E+01, 0.25011E+00,
     &-0.47588E+00,-0.79093E-01, 0.49019E-01, 0.10299E+00, 0.79003E-01,
     & 0.11014E+00, 0.20902E-01, 0.43861E-01, 0.88842E-02,-0.14802E-02,
     &-0.13436E-02, 0.69695E-02,-0.19806E-01, 0.15065E-01,-0.14284E-01,
     & 0.10392E-01,-0.10859E-01, 0.49668E-02, 0.47561E-02,-0.10774E-01,
     & 0.70205E-02, 0.25384E-02,-0.11584E-01, 0.12112E-01,-0.98025E-03,
     &-0.13480E-01, 0.19644E-01,-0.19276E-01, 0.18901E-01,-0.19507E-01,
     & 0.15390E-01,-0.64546E-02, 0.54964E-03
     & /
       real p64(0:37)
       data p64/
     & 0.37516E+02,-0.52561E+02, 0.21290E+02,-0.63835E+01, 0.29904E+00,
     &-0.48470E+00,-0.75992E-01, 0.51754E-01, 0.10542E+00, 0.79446E-01,
     & 0.11208E+00, 0.19739E-01, 0.44419E-01, 0.84823E-02,-0.18150E-02,
     &-0.15340E-02, 0.72723E-02,-0.20577E-01, 0.15756E-01,-0.14884E-01,
     & 0.10884E-01,-0.11302E-01, 0.51739E-02, 0.49418E-02,-0.11195E-01,
     & 0.72987E-02, 0.26487E-02,-0.12045E-01, 0.12576E-01,-0.10020E-02,
     &-0.14024E-01, 0.20476E-01,-0.20128E-01, 0.19743E-01,-0.20337E-01,
     & 0.16040E-01,-0.67546E-02, 0.63261E-03
     & /
       real p65(0:37)
       data p65/
     & 0.38894E+02,-0.54657E+02, 0.22255E+02,-0.66809E+01, 0.35020E+00,
     &-0.49379E+00,-0.72778E-01, 0.54507E-01, 0.10785E+00, 0.79850E-01,
     & 0.11402E+00, 0.18529E-01, 0.44983E-01, 0.80681E-02,-0.21534E-02,
     &-0.17274E-02, 0.75849E-02,-0.21364E-01, 0.16466E-01,-0.15498E-01,
     & 0.11390E-01,-0.11755E-01, 0.53857E-02, 0.51314E-02,-0.11625E-01,
     & 0.75826E-02, 0.27616E-02,-0.12516E-01, 0.13050E-01,-0.10237E-02,
     &-0.14581E-01, 0.21327E-01,-0.21001E-01, 0.20605E-01,-0.21186E-01,
     & 0.16705E-01,-0.70630E-02, 0.71945E-03
     & /
       real p66(0:37)
       data p66/
     & 0.40299E+02,-0.56798E+02, 0.23244E+02,-0.69870E+01, 0.40362E+00,
     &-0.50318E+00,-0.69450E-01, 0.57276E-01, 0.11029E+00, 0.80215E-01,
     & 0.11598E+00, 0.17274E-01, 0.45555E-01, 0.76418E-02,-0.24951E-02,
     &-0.19236E-02, 0.79075E-02,-0.22167E-01, 0.17194E-01,-0.16126E-01,
     & 0.11909E-01,-0.12218E-01, 0.56021E-02, 0.53249E-02,-0.12063E-01,
     & 0.78724E-02, 0.28772E-02,-0.12997E-01, 0.13533E-01,-0.10452E-02,
     &-0.15149E-01, 0.22198E-01,-0.21896E-01, 0.21489E-01,-0.22055E-01,
     & 0.17385E-01,-0.73797E-02, 0.81025E-03
     & /
       real p67(0:37)
       data p67/
     & 0.41730E+02,-0.58983E+02, 0.24258E+02,-0.73019E+01, 0.45935E+00,
     &-0.51286E+00,-0.66011E-01, 0.60058E-01, 0.11272E+00, 0.80542E-01,
     & 0.11795E+00, 0.15974E-01, 0.46134E-01, 0.72038E-02,-0.28397E-02,
     &-0.21224E-02, 0.82403E-02,-0.22986E-01, 0.17940E-01,-0.16770E-01,
     & 0.12441E-01,-0.12692E-01, 0.58232E-02, 0.55223E-02,-0.12511E-01,
     & 0.81680E-02, 0.29955E-02,-0.13487E-01, 0.14026E-01,-0.10665E-02,
     &-0.15729E-01, 0.23088E-01,-0.22812E-01, 0.22395E-01,-0.22945E-01,
     & 0.18081E-01,-0.77049E-02, 0.90506E-03
     & /
       real p68(0:37)
       data p68/
     & 0.43188E+02,-0.61213E+02, 0.25296E+02,-0.76257E+01, 0.51743E+00,
     &-0.52285E+00,-0.62463E-01, 0.62852E-01, 0.11516E+00, 0.80829E-01,
     & 0.11993E+00, 0.14628E-01, 0.46722E-01, 0.67543E-02,-0.31869E-02,
     &-0.23238E-02, 0.85834E-02,-0.23820E-01, 0.18704E-01,-0.17429E-01,
     & 0.12987E-01,-0.13176E-01, 0.60489E-02, 0.57237E-02,-0.12966E-01,
     & 0.84695E-02, 0.31166E-02,-0.13988E-01, 0.14528E-01,-0.10877E-02,
     &-0.16322E-01, 0.23999E-01,-0.23750E-01, 0.23323E-01,-0.23855E-01,
     & 0.18793E-01,-0.80388E-02, 0.10040E-02
     & /
       real p69(0:37)
       data p69/
     & 0.44673E+02,-0.63487E+02, 0.26358E+02,-0.79585E+01, 0.57788E+00,
     &-0.53317E+00,-0.58807E-01, 0.65655E-01, 0.11761E+00, 0.81076E-01,
     & 0.12193E+00, 0.13237E-01, 0.47319E-01, 0.62936E-02,-0.35364E-02,
     &-0.25276E-02, 0.89370E-02,-0.24671E-01, 0.19486E-01,-0.18102E-01,
     & 0.13546E-01,-0.13670E-01, 0.62794E-02, 0.59290E-02,-0.13431E-01,
     & 0.87769E-02, 0.32403E-02,-0.14498E-01, 0.15039E-01,-0.11086E-02,
     &-0.16927E-01, 0.24929E-01,-0.24711E-01, 0.24272E-01,-0.24786E-01,
     & 0.19520E-01,-0.83814E-02, 0.11070E-02
     & /
       real p70(0:37)
       data p70/
     & 0.46185E+02,-0.65806E+02, 0.27446E+02,-0.83005E+01, 0.64074E+00,
     &-0.54383E+00,-0.55046E-01, 0.68464E-01, 0.12005E+00, 0.81283E-01,
     & 0.12394E+00, 0.11802E-01, 0.47926E-01, 0.58221E-02,-0.38878E-02,
     &-0.27336E-02, 0.93014E-02,-0.25537E-01, 0.20287E-01,-0.18791E-01,
     & 0.14119E-01,-0.14175E-01, 0.65146E-02, 0.61383E-02,-0.13905E-01,
     & 0.90902E-02, 0.33669E-02,-0.15019E-01, 0.15559E-01,-0.11293E-02,
     &-0.17545E-01, 0.25880E-01,-0.25694E-01, 0.25244E-01,-0.25738E-01,
     & 0.20264E-01,-0.87327E-02, 0.12143E-02
     & /
       real p71(0:37)
       data p71/
     & 0.47724E+02,-0.68169E+02, 0.28558E+02,-0.86518E+01, 0.70605E+00,
     &-0.55484E+00,-0.51180E-01, 0.71278E-01, 0.12249E+00, 0.81450E-01,
     & 0.12596E+00, 0.10322E-01, 0.48542E-01, 0.53401E-02,-0.42408E-02,
     &-0.29418E-02, 0.96766E-02,-0.26419E-01, 0.21107E-01,-0.19496E-01,
     & 0.14706E-01,-0.14690E-01, 0.67546E-02, 0.63516E-02,-0.14387E-01,
     & 0.94094E-02, 0.34962E-02,-0.15549E-01, 0.16089E-01,-0.11498E-02,
     &-0.18175E-01, 0.26851E-01,-0.26699E-01, 0.26239E-01,-0.26710E-01,
     & 0.21023E-01,-0.90930E-02, 0.13259E-02
     & /
       real p72(0:37)
       data p72/
     & 0.49289E+02,-0.70579E+02, 0.29696E+02,-0.90124E+01, 0.77385E+00,
     &-0.56622E+00,-0.47211E-01, 0.74094E-01, 0.12493E+00, 0.81576E-01,
     & 0.12800E+00, 0.87981E-02, 0.49170E-01, 0.48479E-02,-0.45951E-02,
     &-0.31520E-02, 0.10063E-01,-0.27317E-01, 0.21946E-01,-0.20215E-01,
     & 0.15307E-01,-0.15216E-01, 0.69994E-02, 0.65689E-02,-0.14878E-01,
     & 0.97346E-02, 0.36283E-02,-0.16089E-01, 0.16628E-01,-0.11701E-02,
     &-0.18817E-01, 0.27843E-01,-0.27727E-01, 0.27256E-01,-0.27704E-01,
     & 0.21799E-01,-0.94622E-02, 0.14418E-02
     & /
       real p73(0:37)
       data p73/
     & 0.50883E+02,-0.73033E+02, 0.30860E+02,-0.93825E+01, 0.84417E+00,
     &-0.57797E+00,-0.43143E-01, 0.76911E-01, 0.12737E+00, 0.81660E-01,
     & 0.13005E+00, 0.72302E-02, 0.49809E-01, 0.43457E-02,-0.49503E-02,
     &-0.33641E-02, 0.10460E-01,-0.28231E-01, 0.22804E-01,-0.20951E-01,
     & 0.15922E-01,-0.15753E-01, 0.72490E-02, 0.67903E-02,-0.15378E-01,
     & 0.10066E-01, 0.37632E-02,-0.16640E-01, 0.17176E-01,-0.11900E-02,
     &-0.19473E-01, 0.28855E-01,-0.28778E-01, 0.28296E-01,-0.28719E-01,
     & 0.22592E-01,-0.98406E-02, 0.15622E-02
     & /
       real p74(0:37)
       data p74/
     & 0.52503E+02,-0.75533E+02, 0.32049E+02,-0.97622E+01, 0.91705E+00,
     &-0.59010E+00,-0.38975E-01, 0.79725E-01, 0.12981E+00, 0.81703E-01,
     & 0.13212E+00, 0.56187E-02, 0.50461E-01, 0.38339E-02,-0.53061E-02,
     &-0.35779E-02, 0.10869E-01,-0.29161E-01, 0.23681E-01,-0.21702E-01,
     & 0.16552E-01,-0.16300E-01, 0.75034E-02, 0.70157E-02,-0.15888E-01,
     & 0.10403E-01, 0.39010E-02,-0.17201E-01, 0.17734E-01,-0.12097E-02,
     &-0.20141E-01, 0.29888E-01,-0.29852E-01, 0.29358E-01,-0.29755E-01,
     & 0.23401E-01,-0.10228E-01, 0.16871E-02
     & /
       real p75(0:37)
       data p75/
     & 0.54151E+02,-0.78079E+02, 0.33264E+02,-0.10152E+02, 0.99252E+00,
     &-0.60264E+00,-0.34709E-01, 0.82534E-01, 0.13224E+00, 0.81703E-01,
     & 0.13421E+00, 0.39638E-02, 0.51125E-01, 0.33129E-02,-0.56621E-02,
     &-0.37933E-02, 0.11290E-01,-0.30107E-01, 0.24578E-01,-0.22469E-01,
     & 0.17195E-01,-0.16859E-01, 0.77628E-02, 0.72452E-02,-0.16406E-01,
     & 0.10746E-01, 0.40417E-02,-0.17771E-01, 0.18302E-01,-0.12291E-02,
     &-0.20821E-01, 0.30941E-01,-0.30949E-01, 0.30445E-01,-0.30813E-01,
     & 0.24226E-01,-0.10625E-01, 0.18166E-02
     & /
       real p76(0:37)
       data p76/
     & 0.55826E+02,-0.80671E+02, 0.34505E+02,-0.10551E+02, 0.10706E+01,
     &-0.61559E+00,-0.30349E-01, 0.85337E-01, 0.13467E+00, 0.81661E-01,
     & 0.13631E+00, 0.22657E-02, 0.51803E-01, 0.27828E-02,-0.60181E-02,
     &-0.40102E-02, 0.11722E-01,-0.31070E-01, 0.25494E-01,-0.23253E-01,
     & 0.17854E-01,-0.17428E-01, 0.80270E-02, 0.74787E-02,-0.16933E-01,
     & 0.11095E-01, 0.41852E-02,-0.18352E-01, 0.18879E-01,-0.12482E-02,
     &-0.21515E-01, 0.32016E-01,-0.32070E-01, 0.31554E-01,-0.31893E-01,
     & 0.25068E-01,-0.11031E-01, 0.19507E-02
     & /
       real p77(0:37)
       data p77/
     & 0.57529E+02,-0.83309E+02, 0.35772E+02,-0.10960E+02, 0.11514E+01,
     &-0.62898E+00,-0.25904E-01, 0.88125E-01, 0.13709E+00, 0.81575E-01,
     & 0.13844E+00, 0.52509E-03, 0.52497E-01, 0.22450E-02,-0.63728E-02,
     &-0.42278E-02, 0.12167E-01,-0.32049E-01, 0.26430E-01,-0.24052E-01,
     & 0.18527E-01,-0.18008E-01, 0.82961E-02, 0.77166E-02,-0.17469E-01,
     & 0.11451E-01, 0.43317E-02,-0.18944E-01, 0.19466E-01,-0.12671E-02,
     &-0.22221E-01, 0.33112E-01,-0.33214E-01, 0.32688E-01,-0.32994E-01,
     & 0.25927E-01,-0.11447E-01, 0.20896E-02
     & /
       real p78(0:38)
       data p78/
     & 0.59268E+02,-0.86009E+02, 0.37078E+02,-0.11384E+02, 0.12355E+01,
     &-0.64306E+00,-0.21617E-01, 0.90745E-01, 0.13941E+00, 0.81396E-01,
     & 0.14059E+00,-0.12488E-02, 0.53240E-01, 0.17246E-02,-0.67060E-02,
     &-0.44307E-02, 0.12637E-01,-0.33044E-01, 0.27397E-01,-0.24873E-01,
     & 0.19222E-01,-0.18603E-01, 0.85704E-02, 0.79628E-02,-0.18020E-01,
     & 0.11816E-01, 0.44839E-02,-0.19551E-01, 0.20067E-01,-0.12869E-02,
     &-0.22944E-01, 0.34237E-01,-0.34392E-01, 0.33855E-01,-0.34127E-01,
     & 0.26809E-01,-0.11875E-01, 0.22347E-02,-0.62082E-02
     & /
       real p79(0:38)
       data p79/
     & 0.61034E+02,-0.88753E+02, 0.38408E+02,-0.11818E+02, 0.13222E+01,
     &-0.65756E+00,-0.17214E-01, 0.93368E-01, 0.14174E+00, 0.81179E-01,
     & 0.14275E+00,-0.30661E-02, 0.53994E-01, 0.11935E-02,-0.70402E-02,
     &-0.46364E-02, 0.13119E-01,-0.34055E-01, 0.28383E-01,-0.25711E-01,
     & 0.19931E-01,-0.19208E-01, 0.88495E-02, 0.82128E-02,-0.18579E-01,
     & 0.12186E-01, 0.46387E-02,-0.20168E-01, 0.20677E-01,-0.13062E-02,
     &-0.23680E-01, 0.35382E-01,-0.35593E-01, 0.35045E-01,-0.35282E-01,
     & 0.27707E-01,-0.12313E-01, 0.23844E-02,-0.64220E-02
     & /
       real p80(0:38)
       data p80/
     & 0.62826E+02,-0.91542E+02, 0.39765E+02,-0.12261E+02, 0.14116E+01,
     &-0.67249E+00,-0.12695E-01, 0.95993E-01, 0.14407E+00, 0.80923E-01,
     & 0.14494E+00,-0.49265E-02, 0.54761E-01, 0.65180E-03,-0.73752E-02,
     &-0.48447E-02, 0.13611E-01,-0.35083E-01, 0.29388E-01,-0.26564E-01,
     & 0.20654E-01,-0.19824E-01, 0.91337E-02, 0.84664E-02,-0.19147E-01,
     & 0.12562E-01, 0.47961E-02,-0.20795E-01, 0.21296E-01,-0.13250E-02,
     &-0.24428E-01, 0.36548E-01,-0.36817E-01, 0.36258E-01,-0.36457E-01,
     & 0.28622E-01,-0.12761E-01, 0.25390E-02,-0.66400E-02
     & /
       real p81(0:38)
       data p81/
     & 0.64646E+02,-0.94377E+02, 0.41147E+02,-0.12714E+02, 0.15038E+01,
     &-0.68788E+00,-0.80603E-02, 0.98617E-01, 0.14639E+00, 0.80629E-01,
     & 0.14714E+00,-0.68299E-02, 0.55541E-01, 0.99693E-04,-0.77109E-02,
     &-0.50557E-02, 0.14114E-01,-0.36127E-01, 0.30413E-01,-0.27433E-01,
     & 0.21391E-01,-0.20451E-01, 0.94229E-02, 0.87238E-02,-0.19724E-01,
     & 0.12945E-01, 0.49563E-02,-0.21432E-01, 0.21924E-01,-0.13433E-02,
     &-0.25189E-01, 0.37735E-01,-0.38064E-01, 0.37495E-01,-0.37654E-01,
     & 0.29554E-01,-0.13218E-01, 0.26983E-02,-0.68624E-02
     & /
       real p82(0:38)
       data p82/
     & 0.66493E+02,-0.97257E+02, 0.42555E+02,-0.13178E+02, 0.15988E+01,
     &-0.70372E+00,-0.33107E-02, 0.10124E+00, 0.14872E+00, 0.80295E-01,
     & 0.14936E+00,-0.87760E-02, 0.56334E-01,-0.46264E-03,-0.80470E-02,
     &-0.52692E-02, 0.14629E-01,-0.37188E-01, 0.31456E-01,-0.28318E-01,
     & 0.22143E-01,-0.21089E-01, 0.97171E-02, 0.89848E-02,-0.20309E-01,
     & 0.13332E-01, 0.51191E-02,-0.22078E-01, 0.22562E-01,-0.13610E-02,
     &-0.25963E-01, 0.38942E-01,-0.39334E-01, 0.38755E-01,-0.38873E-01,
     & 0.30502E-01,-0.13684E-01, 0.28626E-02,-0.70892E-02
     & /
       real p83(0:38)
       data p83/
     & 0.68367E+02,-0.10018E+03, 0.43989E+02,-0.13651E+02, 0.16966E+01,
     &-0.72003E+00, 0.15537E-02, 0.10386E+00, 0.15106E+00, 0.79922E-01,
     & 0.15160E+00,-0.10765E-01, 0.57140E-01,-0.10350E-02,-0.83832E-02,
     &-0.54853E-02, 0.15155E-01,-0.38265E-01, 0.32519E-01,-0.29220E-01,
     & 0.22909E-01,-0.21739E-01, 0.10016E-01, 0.92495E-02,-0.20903E-01,
     & 0.13726E-01, 0.52847E-02,-0.22735E-01, 0.23208E-01,-0.13782E-02,
     &-0.26750E-01, 0.40171E-01,-0.40629E-01, 0.40038E-01,-0.40114E-01,
     & 0.31468E-01,-0.14160E-01, 0.30319E-02,-0.73204E-02
     & /
       real p84(0:38)
       data p84/
     & 0.70268E+02,-0.10315E+03, 0.45450E+02,-0.14135E+02, 0.17972E+01,
     &-0.73683E+00, 0.65323E-02, 0.10647E+00, 0.15339E+00, 0.79510E-01,
     & 0.15386E+00,-0.12796E-01, 0.57960E-01,-0.16173E-02,-0.87194E-02,
     &-0.57039E-02, 0.15693E-01,-0.39359E-01, 0.33601E-01,-0.30138E-01,
     & 0.23690E-01,-0.22399E-01, 0.10321E-01, 0.95179E-02,-0.21505E-01,
     & 0.14126E-01, 0.54529E-02,-0.23401E-01, 0.23864E-01,-0.13947E-02,
     &-0.27550E-01, 0.41422E-01,-0.41947E-01, 0.41345E-01,-0.41377E-01,
     & 0.32450E-01,-0.14646E-01, 0.32061E-02,-0.75559E-02
     & /
       real p85(0:38)
       data p85/
     & 0.72196E+02,-0.10617E+03, 0.46936E+02,-0.14629E+02, 0.19007E+01,
     &-0.75411E+00, 0.11625E-01, 0.10908E+00, 0.15572E+00, 0.79059E-01,
     & 0.15614E+00,-0.14869E-01, 0.58796E-01,-0.22094E-02,-0.90554E-02,
     &-0.59248E-02, 0.16242E-01,-0.40470E-01, 0.34703E-01,-0.31072E-01,
     & 0.24486E-01,-0.23071E-01, 0.10630E-01, 0.97900E-02,-0.22116E-01,
     & 0.14531E-01, 0.56238E-02,-0.24077E-01, 0.24529E-01,-0.14105E-02,
     &-0.28364E-01, 0.42693E-01,-0.43289E-01, 0.42676E-01,-0.42661E-01,
     & 0.33449E-01,-0.15141E-01, 0.33855E-02,-0.77960E-02
     & /
       real p86(0:38)
       data p86/
     & 0.74152E+02,-0.10923E+03, 0.48450E+02,-0.15133E+02, 0.20072E+01,
     &-0.77190E+00, 0.16831E-01, 0.11168E+00, 0.15805E+00, 0.78568E-01,
     & 0.15844E+00,-0.16984E-01, 0.59646E-01,-0.28109E-02,-0.93908E-02,
     &-0.61482E-02, 0.16803E-01,-0.41598E-01, 0.35824E-01,-0.32024E-01,
     & 0.25297E-01,-0.23754E-01, 0.10945E-01, 0.10066E-01,-0.22736E-01,
     & 0.14943E-01, 0.57975E-02,-0.24763E-01, 0.25203E-01,-0.14258E-02,
     &-0.29190E-01, 0.43987E-01,-0.44655E-01, 0.44031E-01,-0.43968E-01,
     & 0.34465E-01,-0.15647E-01, 0.35700E-02,-0.80405E-02
     & /
       real p87(0:38)
       data p87/
     & 0.76134E+02,-0.11234E+03, 0.49990E+02,-0.15648E+02, 0.21166E+01,
     &-0.79020E+00, 0.22150E-01, 0.11428E+00, 0.16038E+00, 0.78038E-01,
     & 0.16076E+00,-0.19141E-01, 0.60511E-01,-0.34219E-02,-0.97255E-02,
     &-0.63739E-02, 0.17375E-01,-0.42742E-01, 0.36965E-01,-0.32991E-01,
     & 0.26122E-01,-0.24449E-01, 0.11264E-01, 0.10345E-01,-0.23365E-01,
     & 0.15360E-01, 0.59738E-02,-0.25459E-01, 0.25886E-01,-0.14403E-02,
     &-0.30030E-01, 0.45301E-01,-0.46045E-01, 0.45410E-01,-0.45297E-01,
     & 0.35498E-01,-0.16162E-01, 0.37597E-02,-0.82896E-02
     & /
       real p88(0:38)
       data p88/
     & 0.78145E+02,-0.11550E+03, 0.51557E+02,-0.16173E+02, 0.22289E+01,
     &-0.80903E+00, 0.27582E-01, 0.11686E+00, 0.16270E+00, 0.77468E-01,
     & 0.16310E+00,-0.21339E-01, 0.61392E-01,-0.40420E-02,-0.10059E-01,
     &-0.66019E-02, 0.17960E-01,-0.43903E-01, 0.38126E-01,-0.33976E-01,
     & 0.26962E-01,-0.25155E-01, 0.11589E-01, 0.10628E-01,-0.24002E-01,
     & 0.15783E-01, 0.61529E-02,-0.26164E-01, 0.26578E-01,-0.14542E-02,
     &-0.30883E-01, 0.46638E-01,-0.47459E-01, 0.46813E-01,-0.46649E-01,
     & 0.36549E-01,-0.16688E-01, 0.39546E-02,-0.85432E-02
     & /
       real p89(0:38)
       data p89/
     & 0.80182E+02,-0.11870E+03, 0.53151E+02,-0.16709E+02, 0.23443E+01,
     &-0.82839E+00, 0.33126E-01, 0.11943E+00, 0.16503E+00, 0.76858E-01,
     & 0.16546E+00,-0.23579E-01, 0.62290E-01,-0.46712E-02,-0.10392E-01,
     &-0.68321E-02, 0.18556E-01,-0.45081E-01, 0.39307E-01,-0.34978E-01,
     & 0.27817E-01,-0.25872E-01, 0.11919E-01, 0.10915E-01,-0.24648E-01,
     & 0.16212E-01, 0.63347E-02,-0.26880E-01, 0.27279E-01,-0.14673E-02,
     &-0.31749E-01, 0.47996E-01,-0.48898E-01, 0.48241E-01,-0.48023E-01,
     & 0.37617E-01,-0.17223E-01, 0.41550E-02,-0.88014E-02
     & /
       real p90(0:38)
       data p90/
     & 0.82248E+02,-0.12195E+03, 0.54771E+02,-0.17256E+02, 0.24628E+01,
     &-0.84830E+00, 0.38783E-01, 0.12198E+00, 0.16735E+00, 0.76208E-01,
     & 0.16784E+00,-0.25859E-01, 0.63204E-01,-0.53093E-02,-0.10723E-01,
     &-0.70645E-02, 0.19165E-01,-0.46277E-01, 0.40509E-01,-0.35996E-01,
     & 0.28688E-01,-0.26601E-01, 0.12255E-01, 0.11205E-01,-0.25302E-01,
     & 0.16647E-01, 0.65192E-02,-0.27606E-01, 0.27990E-01,-0.14797E-02,
     &-0.32629E-01, 0.49376E-01,-0.50362E-01, 0.49693E-01,-0.49419E-01,
     & 0.38703E-01,-0.17769E-01, 0.43607E-02,-0.90642E-02
     & /
       real p91(0:38)
       data p91/
     & 0.84340E+02,-0.12524E+03, 0.56420E+02,-0.17814E+02, 0.25843E+01,
     &-0.86877E+00, 0.44550E-01, 0.12453E+00, 0.16968E+00, 0.75517E-01,
     & 0.17024E+00,-0.28181E-01, 0.64136E-01,-0.59561E-02,-0.11053E-01,
     &-0.72991E-02, 0.19786E-01,-0.47489E-01, 0.41730E-01,-0.37032E-01,
     & 0.29573E-01,-0.27342E-01, 0.12595E-01, 0.11500E-01,-0.25966E-01,
     & 0.17087E-01, 0.67065E-02,-0.28341E-01, 0.28709E-01,-0.14913E-02,
     &-0.33523E-01, 0.50778E-01,-0.51850E-01, 0.51170E-01,-0.50839E-01,
     & 0.39806E-01,-0.18325E-01, 0.45719E-02,-0.93317E-02
     & /
       real p92(0:38)
       data p92/
     & 0.86461E+02,-0.12858E+03, 0.58095E+02,-0.18383E+02, 0.27089E+01,
     &-0.88982E+00, 0.50429E-01, 0.12705E+00, 0.17200E+00, 0.74787E-01,
     & 0.17267E+00,-0.30543E-01, 0.65086E-01,-0.66114E-02,-0.11380E-01,
     &-0.75357E-02, 0.20419E-01,-0.48718E-01, 0.42971E-01,-0.38085E-01,
     & 0.30474E-01,-0.28094E-01, 0.12941E-01, 0.11797E-01,-0.26638E-01,
     & 0.17534E-01, 0.68965E-02,-0.29087E-01, 0.29438E-01,-0.15021E-02,
     &-0.34430E-01, 0.52202E-01,-0.53363E-01, 0.52671E-01,-0.52281E-01,
     & 0.40927E-01,-0.18892E-01, 0.47886E-02,-0.96038E-02
     & /
       real p93(0:38)
       data p93/
     & 0.88609E+02,-0.13197E+03, 0.59798E+02,-0.18963E+02, 0.28367E+01,
     &-0.91144E+00, 0.56419E-01, 0.12956E+00, 0.17431E+00, 0.74016E-01,
     & 0.17512E+00,-0.32946E-01, 0.66053E-01,-0.72750E-02,-0.11706E-01,
     &-0.77744E-02, 0.21065E-01,-0.49965E-01, 0.44233E-01,-0.39155E-01,
     & 0.31390E-01,-0.28858E-01, 0.13292E-01, 0.12099E-01,-0.27319E-01,
     & 0.17986E-01, 0.70893E-02,-0.29842E-01, 0.30176E-01,-0.15121E-02,
     &-0.35350E-01, 0.53648E-01,-0.54901E-01, 0.54198E-01,-0.53746E-01,
     & 0.42065E-01,-0.19469E-01, 0.50108E-02,-0.98807E-02
     & /
       real p94(0:38)
       data p94/
     & 0.90785E+02,-0.13540E+03, 0.61529E+02,-0.19554E+02, 0.29678E+01,
     &-0.93367E+00, 0.62508E-01, 0.13205E+00, 0.17662E+00, 0.73204E-01,
     & 0.17759E+00,-0.35389E-01, 0.67041E-01,-0.79457E-02,-0.12028E-01,
     &-0.80146E-02, 0.21724E-01,-0.51228E-01, 0.45516E-01,-0.40243E-01,
     & 0.32322E-01,-0.29635E-01, 0.13649E-01, 0.12404E-01,-0.28008E-01,
     & 0.18445E-01, 0.72849E-02,-0.30608E-01, 0.30923E-01,-0.15212E-02,
     &-0.36284E-01, 0.55117E-01,-0.56465E-01, 0.55750E-01,-0.55235E-01,
     & 0.43222E-01,-0.20056E-01, 0.52390E-02,-0.10162E-01
     & /
       real p95(0:38)
       data p95/
     & 0.92997E+02,-0.13890E+03, 0.63301E+02,-0.20162E+02, 0.31032E+01,
     &-0.95685E+00, 0.68493E-01, 0.13438E+00, 0.17885E+00, 0.72319E-01,
     & 0.18011E+00,-0.37856E-01, 0.68086E-01,-0.86009E-02,-0.12327E-01,
     &-0.82455E-02, 0.22408E-01,-0.52511E-01, 0.46828E-01,-0.41352E-01,
     & 0.33275E-01,-0.30428E-01, 0.14015E-01, 0.12710E-01,-0.28706E-01,
     & 0.18910E-01, 0.74832E-02,-0.31385E-01, 0.31680E-01,-0.15271E-02,
     &-0.37239E-01, 0.56616E-01,-0.58064E-01, 0.57336E-01,-0.56755E-01,
     & 0.44403E-01,-0.20661E-01, 0.54772E-02,-0.10452E-01
     & /
       real p96(0:38)
       data p96/
     & 0.95236E+02,-0.14245E+03, 0.65100E+02,-0.20781E+02, 0.32417E+01,
     &-0.98062E+00, 0.74606E-01, 0.13669E+00, 0.18109E+00, 0.71396E-01,
     & 0.18265E+00,-0.40365E-01, 0.69147E-01,-0.92661E-02,-0.12626E-01,
     &-0.84793E-02, 0.23103E-01,-0.53811E-01, 0.48160E-01,-0.42479E-01,
     & 0.34243E-01,-0.31232E-01, 0.14386E-01, 0.13021E-01,-0.29413E-01,
     & 0.19381E-01, 0.76843E-02,-0.32171E-01, 0.32446E-01,-0.15323E-02,
     &-0.38206E-01, 0.58138E-01,-0.59687E-01, 0.58946E-01,-0.58297E-01,
     & 0.45602E-01,-0.21275E-01, 0.57208E-02,-0.10745E-01
     & /
       real p97(0:38)
       data p97/
     & 0.97503E+02,-0.14603E+03, 0.66926E+02,-0.21411E+02, 0.33834E+01,
     &-0.10050E+01, 0.80848E-01, 0.13900E+00, 0.18333E+00, 0.70435E-01,
     & 0.18521E+00,-0.42914E-01, 0.70224E-01,-0.99411E-02,-0.12923E-01,
     &-0.87159E-02, 0.23811E-01,-0.55128E-01, 0.49512E-01,-0.43623E-01,
     & 0.35226E-01,-0.32048E-01, 0.14762E-01, 0.13335E-01,-0.30129E-01,
     & 0.19858E-01, 0.78881E-02,-0.32968E-01, 0.33221E-01,-0.15369E-02,
     &-0.39187E-01, 0.59681E-01,-0.61334E-01, 0.60581E-01,-0.59862E-01,
     & 0.46818E-01,-0.21900E-01, 0.59698E-02,-0.11043E-01
     & /
       real p98(0:38)
       data p98/
     & 0.99796E+02,-0.14967E+03, 0.68778E+02,-0.22052E+02, 0.35283E+01,
     &-0.10299E+01, 0.87220E-01, 0.14130E+00, 0.18557E+00, 0.69436E-01,
     & 0.18780E+00,-0.45505E-01, 0.71319E-01,-0.10626E-01,-0.13219E-01,
     &-0.89555E-02, 0.24530E-01,-0.56463E-01, 0.50883E-01,-0.44784E-01,
     & 0.36225E-01,-0.32876E-01, 0.15144E-01, 0.13654E-01,-0.30853E-01,
     & 0.20341E-01, 0.80948E-02,-0.33775E-01, 0.34005E-01,-0.15407E-02,
     &-0.40181E-01, 0.61246E-01,-0.63007E-01, 0.62241E-01,-0.61449E-01,
     & 0.48051E-01,-0.22534E-01, 0.62243E-02,-0.11346E-01
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.22) param(i,15) = p15(i)
             if (i.le.22) param(i,16) = p16(i)
             if (i.le.22) param(i,17) = p17(i)
             if (i.le.22) param(i,18) = p18(i)
             if (i.le.22) param(i,19) = p19(i)
             if (i.le.22) param(i,20) = p20(i)
             if (i.le.22) param(i,21) = p21(i)
             if (i.le.22) param(i,22) = p22(i)
             if (i.le.22) param(i,23) = p23(i)
             if (i.le.22) param(i,24) = p24(i)
             if (i.le.22) param(i,25) = p25(i)
             if (i.le.22) param(i,26) = p26(i)
             if (i.le.22) param(i,27) = p27(i)
             if (i.le.22) param(i,28) = p28(i)
             if (i.le.22) param(i,29) = p29(i)
             if (i.le.22) param(i,30) = p30(i)
             if (i.le.22) param(i,31) = p31(i)
             if (i.le.22) param(i,32) = p32(i)
             if (i.le.22) param(i,33) = p33(i)
             if (i.le.22) param(i,34) = p34(i)
             if (i.le.22) param(i,35) = p35(i)
             if (i.le.22) param(i,36) = p36(i)
             if (i.le.22) param(i,37) = p37(i)
             if (i.le.22) param(i,38) = p38(i)
             if (i.le.22) param(i,39) = p39(i)
             if (i.le.22) param(i,40) = p40(i)
             if (i.le.22) param(i,41) = p41(i)
             if (i.le.22) param(i,42) = p42(i)
             if (i.le.22) param(i,43) = p43(i)
             if (i.le.37) param(i,44) = p44(i)
             if (i.le.37) param(i,45) = p45(i)
             if (i.le.37) param(i,46) = p46(i)
             if (i.le.37) param(i,47) = p47(i)
             if (i.le.37) param(i,48) = p48(i)
             if (i.le.37) param(i,49) = p49(i)
             if (i.le.37) param(i,50) = p50(i)
             if (i.le.37) param(i,51) = p51(i)
             if (i.le.37) param(i,52) = p52(i)
             if (i.le.37) param(i,53) = p53(i)
             if (i.le.37) param(i,54) = p54(i)
             if (i.le.37) param(i,55) = p55(i)
             if (i.le.37) param(i,56) = p56(i)
             if (i.le.37) param(i,57) = p57(i)
             if (i.le.37) param(i,58) = p58(i)
             if (i.le.37) param(i,59) = p59(i)
             if (i.le.37) param(i,60) = p60(i)
             if (i.le.37) param(i,61) = p61(i)
             if (i.le.37) param(i,62) = p62(i)
             if (i.le.37) param(i,63) = p63(i)
             if (i.le.37) param(i,64) = p64(i)
             if (i.le.37) param(i,65) = p65(i)
             if (i.le.37) param(i,66) = p66(i)
             if (i.le.37) param(i,67) = p67(i)
             if (i.le.37) param(i,68) = p68(i)
             if (i.le.37) param(i,69) = p69(i)
             if (i.le.37) param(i,70) = p70(i)
             if (i.le.37) param(i,71) = p71(i)
             if (i.le.37) param(i,72) = p72(i)
             if (i.le.37) param(i,73) = p73(i)
             if (i.le.37) param(i,74) = p74(i)
             if (i.le.37) param(i,75) = p75(i)
             if (i.le.37) param(i,76) = p76(i)
             if (i.le.37) param(i,77) = p77(i)
             if (i.le.38) param(i,78) = p78(i)
             if (i.le.38) param(i,79) = p79(i)
             if (i.le.38) param(i,80) = p80(i)
             if (i.le.38) param(i,81) = p81(i)
             if (i.le.38) param(i,82) = p82(i)
             if (i.le.38) param(i,83) = p83(i)
             if (i.le.38) param(i,84) = p84(i)
             if (i.le.38) param(i,85) = p85(i)
             if (i.le.38) param(i,86) = p86(i)
             if (i.le.38) param(i,87) = p87(i)
             if (i.le.38) param(i,88) = p88(i)
             if (i.le.38) param(i,89) = p89(i)
             if (i.le.38) param(i,90) = p90(i)
             if (i.le.38) param(i,91) = p91(i)
             if (i.le.38) param(i,92) = p92(i)
             if (i.le.38) param(i,93) = p93(i)
             if (i.le.38) param(i,94) = p94(i)
             if (i.le.38) param(i,95) = p95(i)
             if (i.le.38) param(i,96) = p96(i)
             if (i.le.38) param(i,97) = p97(i)
             if (i.le.38) param(i,98) = p98(i)
          enddo
       endif
            
       w2cect5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       w2cect5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w2cect5d00=0.0
       if (q2.lt.q2min) w2cect5d00=0.0
       if ( x.gt. xmax) w2cect5d00=0.0
       if ( x.lt. xmin) w2cect5d00=0.0
       return
       end
       real function  w3cect5d00(xin,q2in)
***********************************************************
c  parametrization of w3cect5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0:37)
       data p15/
     & 0.12566E+00, 0.54531E+00, 0.41098E-01,-0.16012E+00,-0.23450E+00,
     &-0.20445E+00,-0.13465E+00,-0.63823E-01,-0.11426E-01, 0.17888E-01,
     & 0.27883E-01, 0.26168E-01, 0.18800E-01, 0.10956E-01, 0.50327E-02,
     & 0.17093E-02, 0.59785E-03, 0.79700E-03, 0.11024E-02, 0.12972E-02,
     & 0.97018E-03, 0.51355E-03,-0.30138E-05,-0.25237E-03,-0.20283E-03,
     &-0.11648E-03, 0.73900E-04, 0.21883E-03, 0.13176E-03, 0.10217E-03,
     & 0.39798E-04,-0.12470E-03,-0.48378E-04,-0.11396E-03, 0.57663E-05,
     &-0.72564E-04,-0.20296E-04,-0.31549E-04
     & /
       real p16(0:37)
       data p16/
     & 0.12953E+00, 0.56429E+00, 0.39958E-01,-0.16787E+00,-0.24338E+00,
     &-0.21085E+00,-0.13786E+00,-0.64475E-01,-0.10584E-01, 0.19276E-01,
     & 0.29188E-01, 0.27119E-01, 0.19342E-01, 0.11184E-01, 0.50756E-02,
     & 0.16789E-02, 0.56526E-03, 0.79215E-03, 0.11137E-02, 0.13153E-02,
     & 0.97684E-03, 0.50895E-03,-0.18339E-04,-0.26826E-03,-0.21114E-03,
     &-0.12010E-03, 0.76290E-04, 0.22461E-03, 0.13278E-03, 0.10223E-03,
     & 0.39013E-04,-0.13015E-03,-0.49160E-04,-0.11684E-03, 0.75839E-05,
     &-0.74239E-04,-0.20285E-04,-0.31856E-04
     & /
       real p17(0:37)
       data p17/
     & 0.13712E+00, 0.60180E+00, 0.37226E-01,-0.18357E+00,-0.26100E+00,
     &-0.22331E+00,-0.14390E+00,-0.65478E-01,-0.87143E-02, 0.22127E-01,
     & 0.31800E-01, 0.28983E-01, 0.20378E-01, 0.11598E-01, 0.51336E-02,
     & 0.16022E-02, 0.49170E-03, 0.77714E-03, 0.11315E-02, 0.13467E-02,
     & 0.98561E-03, 0.49645E-03,-0.50681E-04,-0.30038E-03,-0.22745E-03,
     &-0.12702E-03, 0.80989E-04, 0.23569E-03, 0.13421E-03, 0.10182E-03,
     & 0.37189E-04,-0.14098E-03,-0.50519E-04,-0.12235E-03, 0.11425E-04,
     &-0.77481E-04,-0.20195E-04,-0.32391E-04
     & /
       real p18(0:37)
       data p18/
     & 0.14457E+00, 0.63886E+00, 0.34167E-01,-0.19930E+00,-0.27834E+00,
     &-0.23536E+00,-0.14958E+00,-0.66256E-01,-0.67639E-02, 0.24956E-01,
     & 0.34334E-01, 0.30758E-01, 0.21340E-01, 0.11962E-01, 0.51631E-02,
     & 0.15124E-02, 0.41258E-03, 0.75870E-03, 0.11463E-02, 0.13750E-02,
     & 0.99214E-03, 0.48295E-03,-0.82555E-04,-0.33130E-03,-0.24271E-03,
     &-0.13332E-03, 0.85583E-04, 0.24636E-03, 0.13528E-03, 0.10115E-03,
     & 0.35491E-04,-0.15140E-03,-0.51706E-04,-0.12769E-03, 0.15305E-04,
     &-0.80893E-04,-0.20234E-04,-0.33137E-04
     & /
       real p19(0:37)
       data p19/
     & 0.15185E+00, 0.67536E+00, 0.30685E-01,-0.21511E+00,-0.29543E+00,
     &-0.24699E+00,-0.15485E+00,-0.66748E-01,-0.46744E-02, 0.27806E-01,
     & 0.36821E-01, 0.32461E-01, 0.22234E-01, 0.12277E-01, 0.51627E-02,
     & 0.14075E-02, 0.32644E-03, 0.73586E-03, 0.11570E-02, 0.13991E-02,
     & 0.99506E-03, 0.46721E-03,-0.11498E-03,-0.36165E-03,-0.25719E-03,
     &-0.13909E-03, 0.90086E-04, 0.25653E-03, 0.13584E-03, 0.10007E-03,
     & 0.33723E-04,-0.16156E-03,-0.52676E-04,-0.13280E-03, 0.19306E-04,
     &-0.84314E-04,-0.20295E-04,-0.33921E-04
     & /
       real p20(0:37)
       data p20/
     & 0.15890E+00, 0.71119E+00, 0.26687E-01,-0.23108E+00,-0.31228E+00,
     &-0.25818E+00,-0.15966E+00,-0.66892E-01,-0.23888E-02, 0.30721E-01,
     & 0.39289E-01, 0.34107E-01, 0.23066E-01, 0.12542E-01, 0.51309E-02,
     & 0.12856E-02, 0.23183E-03, 0.70763E-03, 0.11625E-02, 0.14176E-02,
     & 0.99303E-03, 0.44801E-03,-0.14898E-03,-0.39211E-03,-0.27112E-03,
     &-0.14442E-03, 0.94512E-04, 0.26615E-03, 0.13570E-03, 0.98409E-04,
     & 0.31691E-04,-0.17164E-03,-0.53384E-04,-0.13760E-03, 0.23507E-04,
     &-0.87586E-04,-0.20274E-04,-0.34569E-04
     & /
       real p21(0:37)
       data p21/
     & 0.16574E+00, 0.74639E+00, 0.22216E-01,-0.24717E+00,-0.32889E+00,
     &-0.26893E+00,-0.16404E+00,-0.66720E-01, 0.68838E-04, 0.33688E-01,
     & 0.41732E-01, 0.35695E-01, 0.23839E-01, 0.12761E-01, 0.50702E-02,
     & 0.11487E-02, 0.12987E-03, 0.67480E-03, 0.11635E-02, 0.14314E-02,
     & 0.98666E-03, 0.42587E-03,-0.18420E-03,-0.42250E-03,-0.28446E-03,
     &-0.14932E-03, 0.98880E-04, 0.27528E-03, 0.13494E-03, 0.96256E-04,
     & 0.29445E-04,-0.18163E-03,-0.53844E-04,-0.14213E-03, 0.27877E-04,
     &-0.90731E-04,-0.20185E-04,-0.35093E-04
     & /
       real p22(0:37)
       data p22/
     & 0.17239E+00, 0.78102E+00, 0.17314E-01,-0.26337E+00,-0.34527E+00,
     &-0.27928E+00,-0.16802E+00,-0.66263E-01, 0.26747E-02, 0.36691E-01,
     & 0.44144E-01, 0.37225E-01, 0.24554E-01, 0.12938E-01, 0.49832E-02,
     & 0.99835E-03, 0.21712E-04, 0.63813E-03, 0.11606E-02, 0.14409E-02,
     & 0.97658E-03, 0.40128E-03,-0.22032E-03,-0.45268E-03,-0.29717E-03,
     &-0.15378E-03, 0.10321E-03, 0.28396E-03, 0.13364E-03, 0.93691E-04,
     & 0.27034E-04,-0.19151E-03,-0.54068E-04,-0.14641E-03, 0.32383E-04,
     &-0.93772E-04,-0.20045E-04,-0.35503E-04
     & /
       real p23(0:37)
       data p23/
     & 0.17888E+00, 0.81514E+00, 0.12023E-01,-0.27965E+00,-0.36141E+00,
     &-0.28925E+00,-0.17164E+00,-0.65552E-01, 0.54046E-02, 0.39716E-01,
     & 0.46518E-01, 0.38696E-01, 0.25214E-01, 0.13074E-01, 0.48726E-02,
     & 0.83648E-03,-0.91522E-04, 0.59839E-03, 0.11545E-02, 0.14469E-02,
     & 0.96341E-03, 0.37477E-03,-0.25699E-03,-0.48247E-03,-0.30918E-03,
     &-0.15780E-03, 0.10751E-03, 0.29226E-03, 0.13187E-03, 0.90797E-04,
     & 0.24510E-04,-0.20128E-03,-0.54069E-04,-0.15047E-03, 0.36993E-04,
     &-0.96732E-04,-0.19870E-04,-0.35810E-04
     & /
       real p24(0:37)
       data p24/
     & 0.18536E+00, 0.84911E+00, 0.66630E-02,-0.29584E+00,-0.37733E+00,
     &-0.29899E+00,-0.17512E+00,-0.64820E-01, 0.80701E-02, 0.42636E-01,
     & 0.48788E-01, 0.40086E-01, 0.25822E-01, 0.13185E-01, 0.47544E-02,
     & 0.67510E-03,-0.20154E-03, 0.56158E-03, 0.11498E-02, 0.14544E-02,
     & 0.95191E-03, 0.35051E-03,-0.29132E-03,-0.51040E-03,-0.31985E-03,
     &-0.16128E-03, 0.11203E-03, 0.30066E-03, 0.13023E-03, 0.88239E-04,
     & 0.22308E-04,-0.21097E-03,-0.53981E-04,-0.15457E-03, 0.41384E-04,
     &-0.99823E-04,-0.19851E-04,-0.36002E-04
     & /
       real p25(0:37)
       data p25/
     & 0.19170E+00, 0.88259E+00, 0.94237E-03,-0.31209E+00,-0.39303E+00,
     &-0.30837E+00,-0.17827E+00,-0.63856E-01, 0.10846E-01, 0.45573E-01,
     & 0.51020E-01, 0.41419E-01, 0.26379E-01, 0.13259E-01, 0.46148E-02,
     & 0.50367E-03,-0.31583E-03, 0.52218E-03, 0.11423E-02, 0.14587E-02,
     & 0.93772E-03, 0.32460E-03,-0.32605E-03,-0.53791E-03,-0.32986E-03,
     &-0.16435E-03, 0.11652E-03, 0.30870E-03, 0.12818E-03, 0.85398E-04,
     & 0.20013E-04,-0.22052E-03,-0.53670E-04,-0.15846E-03, 0.45874E-04,
     &-0.10284E-03,-0.19792E-04,-0.36117E-04
     & /
       real p26(0:37)
       data p26/
     & 0.19788E+00, 0.91559E+00,-0.51380E-02,-0.32843E+00,-0.40851E+00,
     &-0.31740E+00,-0.18108E+00,-0.62663E-01, 0.13732E-01, 0.48527E-01,
     & 0.53216E-01, 0.42699E-01, 0.26886E-01, 0.13298E-01, 0.44545E-02,
     & 0.32242E-03,-0.43433E-03, 0.48017E-03, 0.11320E-02, 0.14599E-02,
     & 0.92083E-03, 0.29700E-03,-0.36121E-03,-0.56503E-03,-0.33926E-03,
     &-0.16701E-03, 0.12096E-03, 0.31638E-03, 0.12570E-03, 0.82269E-04,
     & 0.17618E-04,-0.22992E-03,-0.53132E-04,-0.16216E-03, 0.50474E-04,
     &-0.10578E-03,-0.19683E-04,-0.36165E-04
     & /
       real p27(0:37)
       data p27/
     & 0.20392E+00, 0.94814E+00,-0.11551E-01,-0.34482E+00,-0.42378E+00,
     &-0.32610E+00,-0.18358E+00,-0.61261E-01, 0.16714E-01, 0.51491E-01,
     & 0.55373E-01, 0.43925E-01, 0.27345E-01, 0.13303E-01, 0.42753E-02,
     & 0.13258E-03,-0.55633E-03, 0.43605E-03, 0.11194E-02, 0.14583E-02,
     & 0.90163E-03, 0.26802E-03,-0.39662E-03,-0.59167E-03,-0.34804E-03,
     &-0.16928E-03, 0.12537E-03, 0.32374E-03, 0.12285E-03, 0.78901E-04,
     & 0.15150E-04,-0.23915E-03,-0.52373E-04,-0.16567E-03, 0.55168E-04,
     &-0.10864E-03,-0.19531E-04,-0.36160E-04
     & /
       real p28(0:37)
       data p28/
     & 0.20983E+00, 0.98028E+00,-0.18271E-01,-0.36126E+00,-0.43885E+00,
     &-0.33448E+00,-0.18579E+00,-0.59670E-01, 0.19777E-01, 0.54456E-01,
     & 0.57490E-01, 0.45098E-01, 0.27759E-01, 0.13277E-01, 0.40789E-02,
     &-0.64639E-04,-0.68109E-03, 0.39028E-03, 0.11049E-02, 0.14544E-02,
     & 0.88051E-03, 0.23797E-03,-0.43207E-03,-0.61775E-03,-0.35618E-03,
     &-0.17117E-03, 0.12975E-03, 0.33080E-03, 0.11968E-03, 0.75344E-04,
     & 0.12638E-04,-0.24821E-03,-0.51398E-04,-0.16902E-03, 0.59940E-04,
     &-0.11146E-03,-0.19342E-04,-0.36113E-04
     & /
       real p29(0:29)
       data p29/
     & 0.21558E+00, 0.10122E+01,-0.25329E-01,-0.37775E+00,-0.45376E+00,
     &-0.34270E+00,-0.18768E+00,-0.58107E-01, 0.22982E-01, 0.57276E-01,
     & 0.59598E-01, 0.46170E-01, 0.28065E-01, 0.13264E-01, 0.37467E-02,
     &-0.15558E-03,-0.92834E-03, 0.42455E-03, 0.99740E-03, 0.14977E-02,
     & 0.78564E-03, 0.12895E-03,-0.50222E-03,-0.72143E-03,-0.46690E-03,
     &-0.32047E-03, 0.68045E-04, 0.30158E-03, 0.97108E-04,-0.42576E-04
     & /
       real p30(0:29)
       data p30/
     & 0.22137E+00, 0.10438E+01,-0.32400E-01,-0.39414E+00,-0.46843E+00,
     &-0.35059E+00,-0.18951E+00,-0.56337E-01, 0.26061E-01, 0.60145E-01,
     & 0.61590E-01, 0.47226E-01, 0.28396E-01, 0.13196E-01, 0.35281E-02,
     &-0.35014E-03,-0.10539E-02, 0.38502E-03, 0.98119E-03, 0.14960E-02,
     & 0.76355E-03, 0.99151E-04,-0.53421E-03,-0.74510E-03,-0.47383E-03,
     &-0.32372E-03, 0.72337E-04, 0.30840E-03, 0.93968E-04,-0.48791E-04
     & /
       real p31(0:29)
       data p31/
     & 0.22718E+00, 0.10753E+01,-0.39471E-01,-0.41042E+00,-0.48291E+00,
     &-0.35833E+00,-0.19128E+00,-0.54604E-01, 0.29045E-01, 0.62902E-01,
     & 0.63487E-01, 0.48217E-01, 0.28692E-01, 0.13114E-01, 0.33092E-02,
     &-0.53921E-03,-0.11743E-02, 0.34907E-03, 0.96806E-03, 0.14964E-02,
     & 0.74426E-03, 0.72048E-04,-0.56342E-03,-0.76687E-03,-0.47989E-03,
     &-0.32652E-03, 0.76544E-04, 0.31521E-03, 0.91032E-04,-0.54645E-04
     & /
       real p32(0:29)
       data p32/
     & 0.22969E+00, 0.10891E+01,-0.42662E-01,-0.41756E+00,-0.48920E+00,
     &-0.36163E+00,-0.19197E+00,-0.53790E-01, 0.30377E-01, 0.64112E-01,
     & 0.64307E-01, 0.48637E-01, 0.28809E-01, 0.13070E-01, 0.32086E-02,
     &-0.62404E-03,-0.12278E-02, 0.33291E-03, 0.96177E-03, 0.14960E-02,
     & 0.73523E-03, 0.59865E-04,-0.57624E-03,-0.77624E-03,-0.48233E-03,
     &-0.32760E-03, 0.78422E-04, 0.31812E-03, 0.89662E-04,-0.57252E-04
     & /
       real p33(0:29)
       data p33/
     & 0.23288E+00, 0.11065E+01,-0.46828E-01,-0.42673E+00,-0.49720E+00,
     &-0.36577E+00,-0.19279E+00,-0.52700E-01, 0.32102E-01, 0.65662E-01,
     & 0.65347E-01, 0.49161E-01, 0.28949E-01, 0.13006E-01, 0.30760E-02,
     &-0.73432E-03,-0.12968E-02, 0.31188E-03, 0.95325E-03, 0.14948E-02,
     & 0.72319E-03, 0.44013E-04,-0.59268E-03,-0.78807E-03,-0.48527E-03,
     &-0.32886E-03, 0.80860E-04, 0.32179E-03, 0.87835E-04,-0.60627E-04
     & /
       real p34(0:29)
       data p34/
     & 0.23846E+00, 0.11373E+01,-0.54455E-01,-0.44309E+00,-0.51130E+00,
     &-0.37294E+00,-0.19405E+00,-0.50636E-01, 0.35225E-01, 0.68419E-01,
     & 0.67171E-01, 0.50061E-01, 0.29167E-01, 0.12872E-01, 0.28296E-02,
     &-0.93474E-03,-0.14209E-02, 0.27372E-03, 0.93696E-03, 0.14914E-02,
     & 0.70052E-03, 0.15186E-04,-0.62191E-03,-0.80870E-03,-0.49001E-03,
     &-0.33076E-03, 0.85286E-04, 0.32816E-03, 0.84400E-04,-0.66721E-04
     & /
       real p35(0:29)
       data p35/
     & 0.24394E+00, 0.11678E+01,-0.62339E-01,-0.45948E+00,-0.52522E+00,
     &-0.37984E+00,-0.19507E+00,-0.48424E-01, 0.38406E-01, 0.71170E-01,
     & 0.68957E-01, 0.50916E-01, 0.29350E-01, 0.12715E-01, 0.25714E-02,
     &-0.11398E-02,-0.15463E-02, 0.23482E-03, 0.91939E-03, 0.14863E-02,
     & 0.67644E-03,-0.14296E-04,-0.65107E-03,-0.82873E-03,-0.49411E-03,
     &-0.33226E-03, 0.89820E-04, 0.33433E-03, 0.80749E-04,-0.72908E-04
     & /
       real p36(0:29)
       data p36/
     & 0.24933E+00, 0.11979E+01,-0.70464E-01,-0.47589E+00,-0.53896E+00,
     &-0.38647E+00,-0.19587E+00,-0.46076E-01, 0.41637E-01, 0.73913E-01,
     & 0.70706E-01, 0.51729E-01, 0.29498E-01, 0.12537E-01, 0.23024E-02,
     &-0.13487E-02,-0.16726E-02, 0.19545E-03, 0.90075E-03, 0.14797E-02,
     & 0.65112E-03,-0.44297E-04,-0.68008E-03,-0.84816E-03,-0.49759E-03,
     &-0.33337E-03, 0.94465E-04, 0.34032E-03, 0.76903E-04,-0.79173E-04
     & /
       real p37(0:29)
       data p37/
     & 0.25462E+00, 0.12277E+01,-0.78816E-01,-0.49232E+00,-0.55252E+00,
     &-0.39286E+00,-0.19646E+00,-0.43602E-01, 0.44911E-01, 0.76642E-01,
     & 0.72416E-01, 0.52500E-01, 0.29614E-01, 0.12338E-01, 0.20239E-02,
     &-0.15609E-02,-0.17993E-02, 0.15587E-03, 0.88123E-03, 0.14720E-02,
     & 0.62474E-03,-0.74679E-04,-0.70887E-03,-0.86697E-03,-0.50048E-03,
     &-0.33411E-03, 0.99219E-04, 0.34613E-03, 0.72885E-04,-0.85497E-04
     & /
       real p38(0:29)
       data p38/
     & 0.25984E+00, 0.12572E+01,-0.87380E-01,-0.50876E+00,-0.56591E+00,
     &-0.39902E+00,-0.19685E+00,-0.41015E-01, 0.48221E-01, 0.79355E-01,
     & 0.74086E-01, 0.53230E-01, 0.29699E-01, 0.12120E-01, 0.17369E-02,
     &-0.17755E-02,-0.19261E-02, 0.11632E-03, 0.86105E-03, 0.14632E-02,
     & 0.59748E-03,-0.10530E-03,-0.73739E-03,-0.88516E-03,-0.50279E-03,
     &-0.33451E-03, 0.10408E-03, 0.35178E-03, 0.68716E-04,-0.91864E-04
     & /
       real p39(0:29)
       data p39/
     & 0.26497E+00, 0.12864E+01,-0.96141E-01,-0.52520E+00,-0.57913E+00,
     &-0.40495E+00,-0.19706E+00,-0.38325E-01, 0.51558E-01, 0.82047E-01,
     & 0.75717E-01, 0.53921E-01, 0.29755E-01, 0.11885E-01, 0.14428E-02,
     &-0.19919E-02,-0.20526E-02, 0.77067E-04, 0.84042E-03, 0.14536E-02,
     & 0.56952E-03,-0.13603E-03,-0.76557E-03,-0.90271E-03,-0.50454E-03,
     &-0.33459E-03, 0.10906E-03, 0.35728E-03, 0.64418E-04,-0.98257E-04
     & /
       real p40(0:29)
       data p40/
     & 0.27010E+00, 0.13155E+01,-0.10496E+00,-0.54158E+00,-0.59220E+00,
     &-0.41075E+00,-0.19721E+00,-0.35647E-01, 0.54840E-01, 0.84675E-01,
     & 0.77294E-01, 0.54579E-01, 0.29796E-01, 0.11649E-01, 0.11539E-02,
     &-0.22024E-02,-0.21738E-02, 0.41387E-04, 0.82181E-03, 0.14457E-02,
     & 0.54277E-03,-0.16507E-03,-0.79265E-03,-0.91926E-03,-0.50589E-03,
     &-0.33464E-03, 0.11447E-03, 0.36261E-03, 0.60213E-04,-0.10435E-03
     & /
       real p41(0:29)
       data p41/
     & 0.27524E+00, 0.13445E+01,-0.11380E+00,-0.55788E+00,-0.60514E+00,
     &-0.41645E+00,-0.19734E+00,-0.33011E-01, 0.58046E-01, 0.87226E-01,
     & 0.78814E-01, 0.55204E-01, 0.29826E-01, 0.11414E-01, 0.87365E-03,
     &-0.24048E-02,-0.22886E-02, 0.10095E-04, 0.80585E-03, 0.14400E-02,
     & 0.51772E-03,-0.19196E-03,-0.81845E-03,-0.93472E-03,-0.50688E-03,
     &-0.33473E-03, 0.12037E-03, 0.36778E-03, 0.56158E-04,-0.11008E-03
     & /
       real p42(0:29)
       data p42/
     & 0.28030E+00, 0.13732E+01,-0.12284E+00,-0.57419E+00,-0.61792E+00,
     &-0.42192E+00,-0.19727E+00,-0.30266E-01, 0.61287E-01, 0.89763E-01,
     & 0.80297E-01, 0.55792E-01, 0.29828E-01, 0.11162E-01, 0.58528E-03,
     &-0.26097E-02,-0.24037E-02,-0.21322E-04, 0.78915E-03, 0.14333E-02,
     & 0.49184E-03,-0.21919E-03,-0.84398E-03,-0.94965E-03,-0.50732E-03,
     &-0.33447E-03, 0.12626E-03, 0.37285E-03, 0.51963E-04,-0.11589E-03
     & /
       real p43(0:29)
       data p43/
     & 0.28529E+00, 0.14017E+01,-0.13207E+00,-0.59050E+00,-0.63053E+00,
     &-0.42717E+00,-0.19703E+00,-0.27421E-01, 0.64557E-01, 0.92283E-01,
     & 0.81744E-01, 0.56344E-01, 0.29802E-01, 0.10893E-01, 0.28956E-03,
     &-0.28165E-02,-0.25187E-02,-0.52731E-04, 0.77183E-03, 0.14257E-02,
     & 0.46523E-03,-0.24670E-03,-0.86922E-03,-0.96405E-03,-0.50722E-03,
     &-0.33388E-03, 0.13212E-03, 0.37784E-03, 0.47642E-04,-0.12180E-03
     & /
       real p44(0:29)
       data p44/
     & 0.29021E+00, 0.14299E+01,-0.14149E+00,-0.60682E+00,-0.64298E+00,
     &-0.43222E+00,-0.19662E+00,-0.24482E-01, 0.67851E-01, 0.94784E-01,
     & 0.83155E-01, 0.56859E-01, 0.29749E-01, 0.10610E-01,-0.12794E-04,
     &-0.30250E-02,-0.26335E-02,-0.84002E-04, 0.75400E-03, 0.14172E-02,
     & 0.43801E-03,-0.27441E-03,-0.89411E-03,-0.97792E-03,-0.50659E-03,
     &-0.33296E-03, 0.13794E-03, 0.38277E-03, 0.43209E-04,-0.12779E-03
     & /
       real p45(0:29)
       data p45/
     & 0.29506E+00, 0.14578E+01,-0.15108E+00,-0.62314E+00,-0.65528E+00,
     &-0.43707E+00,-0.19605E+00,-0.21457E-01, 0.71167E-01, 0.97265E-01,
     & 0.84530E-01, 0.57339E-01, 0.29671E-01, 0.10312E-01,-0.32106E-03,
     &-0.32345E-02,-0.27479E-02,-0.11500E-03, 0.73576E-03, 0.14079E-02,
     & 0.41028E-03,-0.30226E-03,-0.91863E-03,-0.99127E-03,-0.50546E-03,
     &-0.33173E-03, 0.14370E-03, 0.38765E-03, 0.38678E-04,-0.13386E-03
     & /
       real p46(0:29)
       data p46/
     & 0.29985E+00, 0.14855E+01,-0.16084E+00,-0.63946E+00,-0.66743E+00,
     &-0.44172E+00,-0.19533E+00,-0.18352E-01, 0.74498E-01, 0.99723E-01,
     & 0.85869E-01, 0.57786E-01, 0.29570E-01, 0.10001E-01,-0.63453E-03,
     &-0.34448E-02,-0.28617E-02,-0.14560E-03, 0.71724E-03, 0.13981E-02,
     & 0.38216E-03,-0.33018E-03,-0.94275E-03,-0.10041E-02,-0.50383E-03,
     &-0.33019E-03, 0.14939E-03, 0.39250E-03, 0.34064E-04,-0.14001E-03
     & /
       real p47(0:29)
       data p47/
     & 0.30458E+00, 0.15130E+01,-0.17075E+00,-0.65576E+00,-0.67943E+00,
     &-0.44618E+00,-0.19446E+00,-0.15175E-01, 0.77840E-01, 0.10216E+00,
     & 0.87171E-01, 0.58199E-01, 0.29445E-01, 0.96774E-02,-0.95246E-03,
     &-0.36555E-02,-0.29746E-02,-0.17566E-03, 0.69853E-03, 0.13878E-02,
     & 0.35375E-03,-0.35808E-03,-0.96641E-03,-0.10164E-02,-0.50172E-03,
     &-0.32838E-03, 0.15500E-03, 0.39732E-03, 0.29379E-04,-0.14622E-03
     & /
       real p48(0:29)
       data p48/
     & 0.30926E+00, 0.15403E+01,-0.18081E+00,-0.67206E+00,-0.69128E+00,
     &-0.45047E+00,-0.19346E+00,-0.11934E-01, 0.81189E-01, 0.10456E+00,
     & 0.88437E-01, 0.58581E-01, 0.29299E-01, 0.93432E-02,-0.12741E-02,
     &-0.38660E-02,-0.30864E-02,-0.20505E-03, 0.67976E-03, 0.13771E-02,
     & 0.32517E-03,-0.38592E-03,-0.98960E-03,-0.10282E-02,-0.49914E-03,
     &-0.32629E-03, 0.16051E-03, 0.40214E-03, 0.24638E-04,-0.15251E-03
     & /
       real p49(0:37)
       data p49/
     & 0.31397E+00, 0.15671E+01,-0.19092E+00,-0.68834E+00,-0.70295E+00,
     &-0.45440E+00,-0.19248E+00,-0.83383E-02, 0.84389E-01, 0.10716E+00,
     & 0.89583E-01, 0.58985E-01, 0.29206E-01, 0.88981E-02,-0.14238E-02,
     &-0.43063E-02,-0.30327E-02,-0.40617E-03, 0.79171E-03, 0.12709E-02,
     & 0.39632E-03,-0.32025E-03,-0.10039E-02,-0.96909E-03,-0.39441E-03,
     &-0.14859E-03, 0.22185E-03, 0.43892E-03, 0.35146E-04, 0.61675E-05,
     &-0.21700E-04,-0.39161E-03,-0.15963E-05,-0.21854E-03, 0.15948E-03,
     &-0.16501E-03,-0.15291E-04,-0.31957E-04
     & /
       real p50(0:37)
       data p50/
     & 0.31856E+00, 0.15939E+01,-0.20124E+00,-0.70461E+00,-0.71453E+00,
     &-0.45836E+00,-0.19124E+00,-0.49845E-02, 0.87734E-01, 0.10951E+00,
     & 0.90773E-01, 0.59305E-01, 0.29021E-01, 0.85420E-02,-0.17481E-02,
     &-0.45214E-02,-0.31395E-02,-0.43888E-03, 0.77526E-03, 0.12577E-02,
     & 0.36900E-03,-0.34686E-03,-0.10276E-02,-0.98059E-03,-0.39162E-03,
     &-0.14542E-03, 0.22612E-03, 0.44317E-03, 0.30158E-04, 0.23040E-05,
     &-0.22475E-04,-0.39766E-03, 0.18747E-05,-0.22022E-03, 0.16457E-03,
     &-0.16755E-03,-0.15113E-04,-0.31362E-04
     & /
       real p51(0:37)
       data p51/
     & 0.32324E+00, 0.16209E+01,-0.21141E+00,-0.72071E+00,-0.72601E+00,
     &-0.46233E+00,-0.19013E+00,-0.18030E-02, 0.90916E-01, 0.11175E+00,
     & 0.91901E-01, 0.59606E-01, 0.28844E-01, 0.82063E-02,-0.20525E-02,
     &-0.47201E-02,-0.32362E-02,-0.46491E-03, 0.76359E-03, 0.12488E-02,
     & 0.34596E-03,-0.37013E-03,-0.10485E-02,-0.99139E-03,-0.38797E-03,
     &-0.14197E-03, 0.22937E-03, 0.44857E-03, 0.25738E-04,-0.15880E-05,
     &-0.22400E-04,-0.40378E-03, 0.54522E-05,-0.22197E-03, 0.16937E-03,
     &-0.17034E-03,-0.14967E-04,-0.30639E-04
     & /
       real p52(0:37)
       data p52/
     & 0.32788E+00, 0.16478E+01,-0.22168E+00,-0.73679E+00,-0.73735E+00,
     &-0.46616E+00,-0.18893E+00, 0.14147E-02, 0.94088E-01, 0.11395E+00,
     & 0.92991E-01, 0.59879E-01, 0.28651E-01, 0.78639E-02,-0.23579E-02,
     &-0.49170E-02,-0.33309E-02,-0.48977E-03, 0.75237E-03, 0.12400E-02,
     & 0.32315E-03,-0.39300E-03,-0.10688E-02,-0.10017E-02,-0.38395E-03,
     &-0.13836E-03, 0.23247E-03, 0.45400E-03, 0.21316E-04,-0.55138E-05,
     &-0.22178E-04,-0.40983E-03, 0.91066E-05,-0.22367E-03, 0.17412E-03,
     &-0.17314E-03,-0.14819E-04,-0.29895E-04
     & /
       real p53(0:37)
       data p53/
     & 0.33248E+00, 0.16744E+01,-0.23210E+00,-0.75286E+00,-0.74856E+00,
     &-0.46982E+00,-0.18759E+00, 0.46965E-02, 0.97269E-01, 0.11613E+00,
     & 0.94050E-01, 0.60123E-01, 0.28437E-01, 0.75110E-02,-0.26670E-02,
     &-0.51142E-02,-0.34249E-02,-0.51427E-03, 0.74097E-03, 0.12307E-02,
     & 0.29998E-03,-0.41587E-03,-0.10888E-02,-0.10116E-02,-0.37962E-03,
     &-0.13462E-03, 0.23555E-03, 0.45928E-03, 0.16811E-04,-0.94670E-05,
     &-0.21913E-04,-0.41578E-03, 0.12829E-04,-0.22530E-03, 0.17888E-03,
     &-0.17591E-03,-0.14667E-04,-0.29149E-04
     & /
       real p54(0:37)
       data p54/
     & 0.33702E+00, 0.17008E+01,-0.24265E+00,-0.76892E+00,-0.75964E+00,
     &-0.47332E+00,-0.18613E+00, 0.80382E-02, 0.10046E+00, 0.11829E+00,
     & 0.95077E-01, 0.60339E-01, 0.28205E-01, 0.71484E-02,-0.29793E-02,
     &-0.53113E-02,-0.35180E-02,-0.53835E-03, 0.72946E-03, 0.12209E-02,
     & 0.27652E-03,-0.43870E-03,-0.11085E-02,-0.10210E-02,-0.37501E-03,
     &-0.13075E-03, 0.23862E-03, 0.46443E-03, 0.12230E-04,-0.13439E-04,
     &-0.21606E-04,-0.42164E-03, 0.16615E-04,-0.22688E-03, 0.18364E-03,
     &-0.17867E-03,-0.14510E-04,-0.28405E-04
     & /
       real p55(0:37)
       data p55/
     & 0.34152E+00, 0.17270E+01,-0.25334E+00,-0.78496E+00,-0.77058E+00,
     &-0.47666E+00,-0.18455E+00, 0.11435E-01, 0.10365E+00, 0.12042E+00,
     & 0.96073E-01, 0.60527E-01, 0.27955E-01, 0.67769E-02,-0.32945E-02,
     &-0.55082E-02,-0.36101E-02,-0.56193E-03, 0.71791E-03, 0.12108E-02,
     & 0.25283E-03,-0.46146E-03,-0.11279E-02,-0.10300E-02,-0.37014E-03,
     &-0.12677E-03, 0.24169E-03, 0.46944E-03, 0.75817E-05,-0.17422E-04,
     &-0.21256E-04,-0.42740E-03, 0.20460E-04,-0.22840E-03, 0.18839E-03,
     &-0.18140E-03,-0.14350E-04,-0.27666E-04
     & /
       real p56(0:37)
       data p56/
     & 0.34597E+00, 0.17530E+01,-0.26415E+00,-0.80099E+00,-0.78140E+00,
     &-0.47984E+00,-0.18286E+00, 0.14883E-01, 0.10685E+00, 0.12253E+00,
     & 0.97037E-01, 0.60690E-01, 0.27688E-01, 0.63970E-02,-0.36120E-02,
     &-0.57046E-02,-0.37011E-02,-0.58496E-03, 0.70636E-03, 0.12003E-02,
     & 0.22896E-03,-0.48410E-03,-0.11469E-02,-0.10385E-02,-0.36500E-03,
     &-0.12269E-03, 0.24476E-03, 0.47432E-03, 0.28736E-05,-0.21407E-04,
     &-0.20862E-04,-0.43307E-03, 0.24357E-04,-0.22987E-03, 0.19314E-03,
     &-0.18410E-03,-0.14188E-04,-0.26935E-04
     & /
       real p57(0:37)
       data p57/
     & 0.35038E+00, 0.17789E+01,-0.27508E+00,-0.81701E+00,-0.79208E+00,
     &-0.48288E+00,-0.18107E+00, 0.18376E-01, 0.11004E+00, 0.12461E+00,
     & 0.97971E-01, 0.60827E-01, 0.27404E-01, 0.60096E-02,-0.39314E-02,
     &-0.59003E-02,-0.37908E-02,-0.60738E-03, 0.69489E-03, 0.11896E-02,
     & 0.20497E-03,-0.50659E-03,-0.11657E-02,-0.10466E-02,-0.35963E-03,
     &-0.11851E-03, 0.24782E-03, 0.47906E-03,-0.18864E-05,-0.25386E-04,
     &-0.20423E-04,-0.43864E-03, 0.28303E-04,-0.23130E-03, 0.19789E-03,
     &-0.18679E-03,-0.14025E-04,-0.26216E-04
     & /
       real p58(0:37)
       data p58/
     & 0.35476E+00, 0.18045E+01,-0.28612E+00,-0.83300E+00,-0.80265E+00,
     &-0.48578E+00,-0.17917E+00, 0.21912E-01, 0.11323E+00, 0.12667E+00,
     & 0.98874E-01, 0.60940E-01, 0.27106E-01, 0.56153E-02,-0.42524E-02,
     &-0.60950E-02,-0.38792E-02,-0.62913E-03, 0.68356E-03, 0.11787E-02,
     & 0.18092E-03,-0.52889E-03,-0.11841E-02,-0.10542E-02,-0.35402E-03,
     &-0.11424E-03, 0.25089E-03, 0.48368E-03,-0.66907E-05,-0.29350E-04,
     &-0.19939E-04,-0.44412E-03, 0.32293E-04,-0.23268E-03, 0.20262E-03,
     &-0.18946E-03,-0.13861E-04,-0.25513E-04
     & /
       real p59(0:37)
       data p59/
     & 0.35910E+00, 0.18300E+01,-0.29727E+00,-0.84898E+00,-0.81309E+00,
     &-0.48854E+00,-0.17719E+00, 0.25485E-01, 0.11642E+00, 0.12870E+00,
     & 0.99746E-01, 0.61029E-01, 0.26793E-01, 0.52149E-02,-0.45743E-02,
     &-0.62886E-02,-0.39662E-02,-0.65015E-03, 0.67242E-03, 0.11676E-02,
     & 0.15687E-03,-0.55096E-03,-0.12022E-02,-0.10614E-02,-0.34820E-03,
     &-0.10989E-03, 0.25398E-03, 0.48816E-03,-0.11531E-04,-0.33291E-04,
     &-0.19408E-04,-0.44951E-03, 0.36320E-04,-0.23402E-03, 0.20733E-03,
     &-0.19210E-03,-0.13697E-04,-0.24829E-04
     & /
       real p60(0:37)
       data p60/
     & 0.36340E+00, 0.18554E+01,-0.30852E+00,-0.86493E+00,-0.82341E+00,
     &-0.49116E+00,-0.17511E+00, 0.29091E-01, 0.11960E+00, 0.13071E+00,
     & 0.10059E+00, 0.61094E-01, 0.26466E-01, 0.48089E-02,-0.48968E-02,
     &-0.64808E-02,-0.40516E-02,-0.67037E-03, 0.66154E-03, 0.11565E-02,
     & 0.13286E-03,-0.57276E-03,-0.12199E-02,-0.10682E-02,-0.34218E-03,
     &-0.10547E-03, 0.25707E-03, 0.49253E-03,-0.16400E-04,-0.37201E-04,
     &-0.18831E-04,-0.45480E-03, 0.40382E-04,-0.23533E-03, 0.21204E-03,
     &-0.19473E-03,-0.13535E-04,-0.24168E-04
     & /
       real p61(0:37)
       data p61/
     & 0.36767E+00, 0.18806E+01,-0.31986E+00,-0.88085E+00,-0.83361E+00,
     &-0.49366E+00,-0.17295E+00, 0.32724E-01, 0.12277E+00, 0.13268E+00,
     & 0.10140E+00, 0.61138E-01, 0.26127E-01, 0.43983E-02,-0.52195E-02,
     &-0.66713E-02,-0.41353E-02,-0.68973E-03, 0.65097E-03, 0.11454E-02,
     & 0.10896E-03,-0.59426E-03,-0.12372E-02,-0.10745E-02,-0.33598E-03,
     &-0.10099E-03, 0.26018E-03, 0.49677E-03,-0.21290E-04,-0.41071E-04,
     &-0.18205E-04,-0.46001E-03, 0.44471E-04,-0.23661E-03, 0.21672E-03,
     &-0.19734E-03,-0.13375E-04,-0.23533E-04
     & /
       real p62(0:37)
       data p62/
     & 0.37192E+00, 0.19056E+01,-0.33130E+00,-0.89675E+00,-0.84371E+00,
     &-0.49604E+00,-0.17071E+00, 0.36382E-01, 0.12592E+00, 0.13463E+00,
     & 0.10219E+00, 0.61161E-01, 0.25777E-01, 0.39835E-02,-0.55418E-02,
     &-0.68600E-02,-0.42172E-02,-0.70817E-03, 0.64079E-03, 0.11343E-02,
     & 0.85229E-04,-0.61540E-03,-0.12542E-02,-0.10803E-02,-0.32959E-03,
     &-0.96464E-04, 0.26331E-03, 0.50089E-03,-0.26193E-04,-0.44892E-04,
     &-0.17531E-04,-0.46513E-03, 0.48585E-04,-0.23787E-03, 0.22138E-03,
     &-0.19993E-03,-0.13218E-04,-0.22928E-04
     & /
       real p63(0:37)
       data p63/
     & 0.37621E+00, 0.19307E+01,-0.34266E+00,-0.91255E+00,-0.85373E+00,
     &-0.49842E+00,-0.16854E+00, 0.39935E-01, 0.12898E+00, 0.13651E+00,
     & 0.10294E+00, 0.61176E-01, 0.25434E-01, 0.35835E-02,-0.58502E-02,
     &-0.70386E-02,-0.42926E-02,-0.72321E-03, 0.63367E-03, 0.11252E-02,
     & 0.63831E-04,-0.63458E-03,-0.12702E-02,-0.10852E-02,-0.32357E-03,
     &-0.91981E-04, 0.26663E-03, 0.50488E-03,-0.30793E-04,-0.48551E-04,
     &-0.16400E-04,-0.47029E-03, 0.52517E-04,-0.23907E-03, 0.22569E-03,
     &-0.20229E-03,-0.13138E-04,-0.22634E-04
     & /
       real p64(0:37)
       data p64/
     & 0.38054E+00, 0.19558E+01,-0.35399E+00,-0.92827E+00,-0.86366E+00,
     &-0.50078E+00,-0.16642E+00, 0.43408E-01, 0.13195E+00, 0.13833E+00,
     & 0.10365E+00, 0.61181E-01, 0.25097E-01, 0.31945E-02,-0.61476E-02,
     &-0.72088E-02,-0.43624E-02,-0.73537E-03, 0.62903E-03, 0.11179E-02,
     & 0.44310E-04,-0.65212E-03,-0.12854E-02,-0.10892E-02,-0.31778E-03,
     &-0.87531E-04, 0.27010E-03, 0.50876E-03,-0.35155E-04,-0.52064E-04,
     &-0.14909E-04,-0.47546E-03, 0.56313E-04,-0.24022E-03, 0.22973E-03,
     &-0.20445E-03,-0.13117E-04,-0.22587E-04
     & /
       real p65(0:37)
       data p65/
     & 0.38483E+00, 0.19808E+01,-0.36542E+00,-0.94396E+00,-0.87349E+00,
     &-0.50301E+00,-0.16420E+00, 0.46919E-01, 0.13493E+00, 0.14012E+00,
     & 0.10434E+00, 0.61164E-01, 0.24746E-01, 0.27995E-02,-0.64461E-02,
     &-0.73783E-02,-0.44312E-02,-0.74698E-03, 0.62437E-03, 0.11103E-02,
     & 0.24649E-04,-0.66956E-03,-0.13004E-02,-0.10929E-02,-0.31175E-03,
     &-0.83038E-04, 0.27356E-03, 0.51252E-03,-0.39577E-04,-0.55528E-04,
     &-0.13459E-04,-0.48052E-03, 0.60162E-04,-0.24137E-03, 0.23381E-03,
     &-0.20666E-03,-0.13085E-04,-0.22518E-04
     & /
       real p66(0:37)
       data p66/
     & 0.38909E+00, 0.20056E+01,-0.37695E+00,-0.95964E+00,-0.88320E+00,
     &-0.50511E+00,-0.16190E+00, 0.50467E-01, 0.13790E+00, 0.14189E+00,
     & 0.10500E+00, 0.61127E-01, 0.24382E-01, 0.23990E-02,-0.67458E-02,
     &-0.75468E-02,-0.44988E-02,-0.75801E-03, 0.61970E-03, 0.11026E-02,
     & 0.48740E-05,-0.68689E-03,-0.13150E-02,-0.10964E-02,-0.30547E-03,
     &-0.78509E-04, 0.27703E-03, 0.51618E-03,-0.44056E-04,-0.58934E-04,
     &-0.12057E-04,-0.48546E-03, 0.64062E-04,-0.24252E-03, 0.23794E-03,
     &-0.20890E-03,-0.13043E-04,-0.22425E-04
     & /
       real p67(0:37)
       data p67/
     & 0.39331E+00, 0.20302E+01,-0.38858E+00,-0.97530E+00,-0.89280E+00,
     &-0.50709E+00,-0.15951E+00, 0.54047E-01, 0.14086E+00, 0.14364E+00,
     & 0.10563E+00, 0.61069E-01, 0.24006E-01, 0.19933E-02,-0.70461E-02,
     &-0.77143E-02,-0.45652E-02,-0.76842E-03, 0.61505E-03, 0.10947E-02,
     &-0.14986E-04,-0.70407E-03,-0.13293E-02,-0.10995E-02,-0.29896E-03,
     &-0.73951E-04, 0.28049E-03, 0.51972E-03,-0.48586E-04,-0.62278E-04,
     &-0.10705E-04,-0.49027E-03, 0.68012E-04,-0.24367E-03, 0.24212E-03,
     &-0.21118E-03,-0.12990E-04,-0.22310E-04
     & /
       real p68(0:37)
       data p68/
     & 0.39751E+00, 0.20547E+01,-0.40030E+00,-0.99094E+00,-0.90229E+00,
     &-0.50894E+00,-0.15704E+00, 0.57657E-01, 0.14382E+00, 0.14536E+00,
     & 0.10624E+00, 0.60992E-01, 0.23619E-01, 0.15829E-02,-0.73470E-02,
     &-0.78807E-02,-0.46304E-02,-0.77820E-03, 0.61044E-03, 0.10866E-02,
     &-0.34905E-04,-0.72111E-03,-0.13433E-02,-0.11023E-02,-0.29222E-03,
     &-0.69373E-04, 0.28395E-03, 0.52316E-03,-0.53166E-04,-0.65551E-04,
     &-0.94107E-05,-0.49497E-03, 0.72008E-04,-0.24483E-03, 0.24634E-03,
     &-0.21351E-03,-0.12927E-04,-0.22171E-04
     & /
       real p69(0:37)
       data p69/
     & 0.40167E+00, 0.20790E+01,-0.41211E+00,-0.10066E+01,-0.91168E+00,
     &-0.51069E+00,-0.15450E+00, 0.61295E-01, 0.14677E+00, 0.14706E+00,
     & 0.10683E+00, 0.60895E-01, 0.23221E-01, 0.11684E-02,-0.76481E-02,
     &-0.80457E-02,-0.46944E-02,-0.78732E-03, 0.60591E-03, 0.10785E-02,
     &-0.54854E-04,-0.73798E-03,-0.13570E-02,-0.11048E-02,-0.28526E-03,
     &-0.64783E-04, 0.28742E-03, 0.52650E-03,-0.57792E-04,-0.68747E-04,
     &-0.81776E-05,-0.49955E-03, 0.76050E-04,-0.24601E-03, 0.25061E-03,
     &-0.21589E-03,-0.12853E-04,-0.22007E-04
     & /
       real p70(0:37)
       data p70/
     & 0.40581E+00, 0.21033E+01,-0.42401E+00,-0.10221E+01,-0.92096E+00,
     &-0.51231E+00,-0.15188E+00, 0.64957E-01, 0.14972E+00, 0.14874E+00,
     & 0.10739E+00, 0.60781E-01, 0.22813E-01, 0.75009E-03,-0.79491E-02,
     &-0.82094E-02,-0.47570E-02,-0.79575E-03, 0.60146E-03, 0.10703E-02,
     &-0.74807E-04,-0.75467E-03,-0.13703E-02,-0.11071E-02,-0.27808E-03,
     &-0.60189E-04, 0.29089E-03, 0.52973E-03,-0.62460E-04,-0.71859E-04,
     &-0.70109E-05,-0.50401E-03, 0.80134E-04,-0.24720E-03, 0.25494E-03,
     &-0.21833E-03,-0.12767E-04,-0.21819E-04
     & /
       real p71(0:37)
       data p71/
     & 0.40992E+00, 0.21273E+01,-0.43599E+00,-0.10377E+01,-0.93013E+00,
     &-0.51384E+00,-0.14919E+00, 0.68642E-01, 0.15265E+00, 0.15039E+00,
     & 0.10792E+00, 0.60649E-01, 0.22395E-01, 0.32849E-03,-0.82499E-02,
     &-0.83716E-02,-0.48182E-02,-0.80346E-03, 0.59714E-03, 0.10622E-02,
     &-0.94736E-04,-0.77115E-03,-0.13834E-02,-0.11091E-02,-0.27069E-03,
     &-0.55597E-04, 0.29437E-03, 0.53286E-03,-0.67166E-04,-0.74880E-04,
     &-0.59158E-05,-0.50834E-03, 0.84259E-04,-0.24841E-03, 0.25931E-03,
     &-0.22082E-03,-0.12671E-04,-0.21607E-04
     & /
       real p72(0:37)
       data p72/
     & 0.41400E+00, 0.21513E+01,-0.44806E+00,-0.10533E+01,-0.93921E+00,
     &-0.51525E+00,-0.14644E+00, 0.72345E-01, 0.15557E+00, 0.15202E+00,
     & 0.10844E+00, 0.60500E-01, 0.21968E-01,-0.95974E-04,-0.85500E-02,
     &-0.85321E-02,-0.48780E-02,-0.81043E-03, 0.59296E-03, 0.10540E-02,
     &-0.11461E-03,-0.78742E-03,-0.13961E-02,-0.11108E-02,-0.26310E-03,
     &-0.51017E-04, 0.29786E-03, 0.53590E-03,-0.71908E-04,-0.77802E-04,
     &-0.48973E-05,-0.51254E-03, 0.88422E-04,-0.24964E-03, 0.26375E-03,
     &-0.22338E-03,-0.12564E-04,-0.21369E-04
     & /
       real p73(0:37)
       data p73/
     & 0.41807E+00, 0.21751E+01,-0.46019E+00,-0.10688E+01,-0.94819E+00,
     &-0.51657E+00,-0.14363E+00, 0.76066E-01, 0.15847E+00, 0.15363E+00,
     & 0.10892E+00, 0.60335E-01, 0.21532E-01,-0.52284E-03,-0.88494E-02,
     &-0.86909E-02,-0.49363E-02,-0.81662E-03, 0.58894E-03, 0.10459E-02,
     &-0.13441E-03,-0.80346E-03,-0.14085E-02,-0.11123E-02,-0.25532E-03,
     &-0.46456E-04, 0.30135E-03, 0.53885E-03,-0.76682E-04,-0.80620E-04,
     &-0.39603E-05,-0.51663E-03, 0.92621E-04,-0.25091E-03, 0.26824E-03,
     &-0.22600E-03,-0.12445E-04,-0.21105E-04
     & /
       real p74(0:37)
       data p74/
     & 0.42211E+00, 0.21988E+01,-0.47240E+00,-0.10843E+01,-0.95707E+00,
     &-0.51779E+00,-0.14076E+00, 0.79799E-01, 0.16137E+00, 0.15520E+00,
     & 0.10939E+00, 0.60154E-01, 0.21089E-01,-0.95165E-03,-0.91476E-02,
     &-0.88478E-02,-0.49930E-02,-0.82202E-03, 0.58511E-03, 0.10378E-02,
     &-0.15411E-03,-0.81925E-03,-0.14205E-02,-0.11135E-02,-0.24734E-03,
     &-0.41921E-04, 0.30486E-03, 0.54170E-03,-0.81484E-04,-0.83326E-04,
     &-0.31099E-05,-0.52058E-03, 0.96855E-04,-0.25222E-03, 0.27278E-03,
     &-0.22869E-03,-0.12315E-04,-0.20816E-04
     & /
       real p75(0:37)
       data p75/
     & 0.42613E+00, 0.22224E+01,-0.48467E+00,-0.10997E+01,-0.96585E+00,
     &-0.51891E+00,-0.13784E+00, 0.83544E-01, 0.16424E+00, 0.15676E+00,
     & 0.10983E+00, 0.59958E-01, 0.20639E-01,-0.13820E-02,-0.94445E-02,
     &-0.90027E-02,-0.50483E-02,-0.82658E-03, 0.58150E-03, 0.10299E-02,
     &-0.17367E-03,-0.83477E-03,-0.14322E-02,-0.11146E-02,-0.23918E-03,
     &-0.37421E-04, 0.30838E-03, 0.54446E-03,-0.86312E-04,-0.85913E-04,
     &-0.23510E-05,-0.52441E-03, 0.10112E-03,-0.25356E-03, 0.27739E-03,
     &-0.23146E-03,-0.12174E-04,-0.20500E-04
     & /
       real p76(0:37)
       data p76/
     & 0.43014E+00, 0.22459E+01,-0.49701E+00,-0.11152E+01,-0.97455E+00,
     &-0.51994E+00,-0.13487E+00, 0.87297E-01, 0.16710E+00, 0.15828E+00,
     & 0.11025E+00, 0.59748E-01, 0.20182E-01,-0.18133E-02,-0.97397E-02,
     &-0.91554E-02,-0.51019E-02,-0.83030E-03, 0.57813E-03, 0.10221E-02,
     &-0.19307E-03,-0.85001E-03,-0.14436E-02,-0.11153E-02,-0.23085E-03,
     &-0.32964E-04, 0.31192E-03, 0.54713E-03,-0.91161E-04,-0.88374E-04,
     &-0.16887E-05,-0.52811E-03, 0.10541E-03,-0.25495E-03, 0.28206E-03,
     &-0.23430E-03,-0.12021E-04,-0.20157E-04
     & /
       real p77(0:37)
       data p77/
     & 0.43413E+00, 0.22693E+01,-0.50940E+00,-0.11306E+01,-0.98315E+00,
     &-0.52090E+00,-0.13186E+00, 0.91049E-01, 0.16994E+00, 0.15978E+00,
     & 0.11065E+00, 0.59526E-01, 0.19721E-01,-0.22441E-02,-0.10032E-01,
     &-0.93055E-02,-0.51536E-02,-0.83297E-03, 0.57508E-03, 0.10147E-02,
     &-0.21220E-03,-0.86490E-03,-0.14545E-02,-0.11160E-02,-0.22231E-03,
     &-0.28601E-04, 0.31549E-03, 0.54973E-03,-0.96046E-04,-0.90629E-04,
     &-0.11985E-05,-0.53164E-03, 0.10974E-03,-0.25643E-03, 0.28685E-03,
     &-0.23726E-03,-0.11858E-04,-0.19769E-04
     & /
       real p78(0:37)
       data p78/
     & 0.43823E+00, 0.22929E+01,-0.52158E+00,-0.11458E+01,-0.99176E+00,
     &-0.52199E+00,-0.12907E+00, 0.94598E-01, 0.17262E+00, 0.16121E+00,
     & 0.11103E+00, 0.59323E-01, 0.19293E-01,-0.26425E-02,-0.10300E-01,
     &-0.94415E-02,-0.51972E-02,-0.83030E-03, 0.57403E-03, 0.10114E-02,
     &-0.22874E-03,-0.87785E-03,-0.14633E-02,-0.11176E-02,-0.21288E-03,
     &-0.25481E-04, 0.31971E-03, 0.55240E-03,-0.10144E-03,-0.90742E-04,
     &-0.27327E-05,-0.53398E-03, 0.11417E-03,-0.25918E-03, 0.29292E-03,
     &-0.24139E-03,-0.11735E-04,-0.18849E-04
     & /
       real p79(0:37)
       data p79/
     & 0.44231E+00, 0.23164E+01,-0.53384E+00,-0.11611E+01,-0.10003E+01,
     &-0.52299E+00,-0.12620E+00, 0.98169E-01, 0.17530E+00, 0.16261E+00,
     & 0.11139E+00, 0.59105E-01, 0.18857E-01,-0.30440E-02,-0.10567E-01,
     &-0.95762E-02,-0.52397E-02,-0.82715E-03, 0.57312E-03, 0.10080E-02,
     &-0.24528E-03,-0.89064E-03,-0.14720E-02,-0.11190E-02,-0.20337E-03,
     &-0.22303E-04, 0.32389E-03, 0.55497E-03,-0.10680E-03,-0.90917E-04,
     &-0.41794E-05,-0.53631E-03, 0.11862E-03,-0.26187E-03, 0.29894E-03,
     &-0.24551E-03,-0.11595E-04,-0.17954E-04
     & /
       real p80(0:37)
       data p80/
     & 0.44636E+00, 0.23397E+01,-0.54617E+00,-0.11763E+01,-0.10087E+01,
     &-0.52388E+00,-0.12328E+00, 0.10176E+00, 0.17797E+00, 0.16399E+00,
     & 0.11173E+00, 0.58871E-01, 0.18412E-01,-0.34483E-02,-0.10834E-01,
     &-0.97096E-02,-0.52811E-02,-0.82353E-03, 0.57236E-03, 0.10044E-02,
     &-0.26181E-03,-0.90325E-03,-0.14805E-02,-0.11200E-02,-0.19378E-03,
     &-0.19071E-04, 0.32802E-03, 0.55745E-03,-0.11211E-03,-0.91156E-04,
     &-0.55336E-05,-0.53862E-03, 0.12308E-03,-0.26448E-03, 0.30489E-03,
     &-0.24959E-03,-0.11437E-04,-0.17085E-04
     & /
       real p81(0:37)
       data p81/
     & 0.45039E+00, 0.23630E+01,-0.55858E+00,-0.11915E+01,-0.10170E+01,
     &-0.52468E+00,-0.12029E+00, 0.10537E+00, 0.18063E+00, 0.16535E+00,
     & 0.11204E+00, 0.58623E-01, 0.17959E-01,-0.38551E-02,-0.11101E-01,
     &-0.98415E-02,-0.53213E-02,-0.81942E-03, 0.57176E-03, 0.10007E-02,
     &-0.27832E-03,-0.91570E-03,-0.14888E-02,-0.11207E-02,-0.18414E-03,
     &-0.15784E-04, 0.33210E-03, 0.55983E-03,-0.11737E-03,-0.91465E-04,
     &-0.67899E-05,-0.54091E-03, 0.12754E-03,-0.26703E-03, 0.31077E-03,
     &-0.25365E-03,-0.11261E-04,-0.16245E-04
     & /
       real p82(0:37)
       data p82/
     & 0.45440E+00, 0.23861E+01,-0.57106E+00,-0.12066E+01,-0.10252E+01,
     &-0.52538E+00,-0.11725E+00, 0.10899E+00, 0.18328E+00, 0.16669E+00,
     & 0.11234E+00, 0.58360E-01, 0.17499E-01,-0.42642E-02,-0.11368E-01,
     &-0.99720E-02,-0.53604E-02,-0.81483E-03, 0.57134E-03, 0.99686E-03,
     &-0.29478E-03,-0.92795E-03,-0.14970E-02,-0.11211E-02,-0.17445E-03,
     &-0.12446E-04, 0.33613E-03, 0.56212E-03,-0.12256E-03,-0.91845E-04,
     &-0.79433E-05,-0.54319E-03, 0.13202E-03,-0.26950E-03, 0.31658E-03,
     &-0.25768E-03,-0.11066E-04,-0.15436E-04
     & /
       real p83(0:37)
       data p83/
     & 0.45839E+00, 0.24091E+01,-0.58361E+00,-0.12218E+01,-0.10334E+01,
     &-0.52599E+00,-0.11416E+00, 0.11263E+00, 0.18592E+00, 0.16801E+00,
     & 0.11262E+00, 0.58084E-01, 0.17032E-01,-0.46752E-02,-0.11633E-01,
     &-0.10101E-01,-0.53984E-02,-0.80974E-03, 0.57112E-03, 0.99290E-03,
     &-0.31119E-03,-0.94002E-03,-0.15050E-02,-0.11211E-02,-0.16472E-03,
     &-0.90566E-05, 0.34010E-03, 0.56432E-03,-0.12770E-03,-0.92302E-04,
     &-0.89886E-05,-0.54547E-03, 0.13650E-03,-0.27189E-03, 0.32231E-03,
     &-0.26167E-03,-0.10853E-04,-0.14660E-04
     & /
       real p84(0:37)
       data p84/
     & 0.46236E+00, 0.24320E+01,-0.59623E+00,-0.12369E+01,-0.10414E+01,
     &-0.52652E+00,-0.11101E+00, 0.11628E+00, 0.18855E+00, 0.16930E+00,
     & 0.11288E+00, 0.57794E-01, 0.16558E-01,-0.50878E-02,-0.11898E-01,
     &-0.10228E-01,-0.54352E-02,-0.80417E-03, 0.57110E-03, 0.98884E-03,
     &-0.32753E-03,-0.95188E-03,-0.15129E-02,-0.11209E-02,-0.15496E-03,
     &-0.56183E-05, 0.34403E-03, 0.56643E-03,-0.13276E-03,-0.92839E-04,
     &-0.99205E-05,-0.54775E-03, 0.14098E-03,-0.27421E-03, 0.32796E-03,
     &-0.26564E-03,-0.10621E-04,-0.13920E-04
     & /
       real p85(0:37)
       data p85/
     & 0.46630E+00, 0.24548E+01,-0.60891E+00,-0.12520E+01,-0.10494E+01,
     &-0.52696E+00,-0.10781E+00, 0.11995E+00, 0.19116E+00, 0.17058E+00,
     & 0.11312E+00, 0.57492E-01, 0.16079E-01,-0.55019E-02,-0.12162E-01,
     &-0.10354E-01,-0.54707E-02,-0.79810E-03, 0.57131E-03, 0.98469E-03,
     &-0.34379E-03,-0.96354E-03,-0.15206E-02,-0.11203E-02,-0.14518E-03,
     &-0.21325E-05, 0.34789E-03, 0.56845E-03,-0.13775E-03,-0.93459E-04,
     &-0.10734E-04,-0.55003E-03, 0.14546E-03,-0.27645E-03, 0.33352E-03,
     &-0.26957E-03,-0.10369E-04,-0.13218E-04
     & /
       real p86(0:37)
       data p86/
     & 0.47024E+00, 0.24775E+01,-0.62165E+00,-0.12671E+01,-0.10573E+01,
     &-0.52731E+00,-0.10457E+00, 0.12362E+00, 0.19376E+00, 0.17183E+00,
     & 0.11334E+00, 0.57178E-01, 0.15594E-01,-0.59170E-02,-0.12425E-01,
     &-0.10478E-01,-0.55051E-02,-0.79153E-03, 0.57177E-03, 0.98046E-03,
     &-0.35994E-03,-0.97498E-03,-0.15282E-02,-0.11194E-02,-0.13539E-03,
     & 0.13994E-05, 0.35170E-03, 0.57038E-03,-0.14265E-03,-0.94166E-04,
     &-0.11424E-04,-0.55233E-03, 0.14994E-03,-0.27860E-03, 0.33898E-03,
     &-0.27346E-03,-0.10098E-04,-0.12556E-04
     & /
       real p87(0:37)
       data p87/
     & 0.47415E+00, 0.25001E+01,-0.63445E+00,-0.12821E+01,-0.10651E+01,
     &-0.52759E+00,-0.10128E+00, 0.12730E+00, 0.19635E+00, 0.17307E+00,
     & 0.11354E+00, 0.56852E-01, 0.15103E-01,-0.63330E-02,-0.12687E-01,
     &-0.10601E-01,-0.55383E-02,-0.78446E-03, 0.57248E-03, 0.97617E-03,
     &-0.37598E-03,-0.98620E-03,-0.15356E-02,-0.11182E-02,-0.12561E-03,
     & 0.49756E-05, 0.35545E-03, 0.57223E-03,-0.14747E-03,-0.94964E-04,
     &-0.11985E-04,-0.55463E-03, 0.15441E-03,-0.28067E-03, 0.34435E-03,
     &-0.27732E-03,-0.98059E-05,-0.11937E-04
     & /
       real p88(0:37)
       data p88/
     & 0.47805E+00, 0.25225E+01,-0.64731E+00,-0.12971E+01,-0.10728E+01,
     &-0.52779E+00,-0.97953E-01, 0.13099E+00, 0.19892E+00, 0.17428E+00,
     & 0.11372E+00, 0.56514E-01, 0.14608E-01,-0.67496E-02,-0.12948E-01,
     &-0.10721E-01,-0.55702E-02,-0.77688E-03, 0.57346E-03, 0.97182E-03,
     &-0.39189E-03,-0.99719E-03,-0.15430E-02,-0.11167E-02,-0.11583E-03,
     & 0.85948E-05, 0.35913E-03, 0.57399E-03,-0.15219E-03,-0.95857E-04,
     &-0.12411E-04,-0.55696E-03, 0.15887E-03,-0.28266E-03, 0.34961E-03,
     &-0.28113E-03,-0.94934E-05,-0.11363E-04
     & /
       real p89(0:37)
       data p89/
     & 0.48193E+00, 0.25449E+01,-0.66022E+00,-0.13121E+01,-0.10804E+01,
     &-0.52791E+00,-0.94585E-01, 0.13468E+00, 0.20147E+00, 0.17547E+00,
     & 0.11389E+00, 0.56166E-01, 0.14108E-01,-0.71664E-02,-0.13207E-01,
     &-0.10840E-01,-0.56009E-02,-0.76879E-03, 0.57472E-03, 0.96743E-03,
     &-0.40766E-03,-0.10079E-02,-0.15502E-02,-0.11148E-02,-0.10609E-03,
     & 0.12255E-04, 0.36276E-03, 0.57567E-03,-0.15681E-03,-0.96848E-04,
     &-0.12699E-04,-0.55931E-03, 0.16332E-03,-0.28456E-03, 0.35477E-03,
     &-0.28490E-03,-0.91600E-05,-0.10835E-04
     & /
       real p90(0:37)
       data p90/
     & 0.48580E+00, 0.25672E+01,-0.67318E+00,-0.13271E+01,-0.10880E+01,
     &-0.52797E+00,-0.91179E-01, 0.13838E+00, 0.20401E+00, 0.17664E+00,
     & 0.11403E+00, 0.55807E-01, 0.13604E-01,-0.75833E-02,-0.13464E-01,
     &-0.10956E-01,-0.56304E-02,-0.76019E-03, 0.57629E-03, 0.96301E-03,
     &-0.42327E-03,-0.10185E-02,-0.15573E-02,-0.11127E-02,-0.96373E-04,
     & 0.15956E-04, 0.36632E-03, 0.57727E-03,-0.16133E-03,-0.97940E-04,
     &-0.12842E-04,-0.56168E-03, 0.16776E-03,-0.28637E-03, 0.35982E-03,
     &-0.28863E-03,-0.88051E-05,-0.10357E-04
     & /
       real p91(0:37)
       data p91/
     & 0.48966E+00, 0.25894E+01,-0.68619E+00,-0.13420E+01,-0.10955E+01,
     &-0.52795E+00,-0.87739E-01, 0.14207E+00, 0.20653E+00, 0.17779E+00,
     & 0.11417E+00, 0.55439E-01, 0.13096E-01,-0.79998E-02,-0.13720E-01,
     &-0.11071E-01,-0.56585E-02,-0.75106E-03, 0.57817E-03, 0.95858E-03,
     &-0.43871E-03,-0.10287E-02,-0.15643E-02,-0.11102E-02,-0.86704E-04,
     & 0.19694E-04, 0.36981E-03, 0.57880E-03,-0.16573E-03,-0.99139E-04,
     &-0.12836E-04,-0.56408E-03, 0.17218E-03,-0.28808E-03, 0.36475E-03,
     &-0.29231E-03,-0.84285E-05,-0.99303E-05
     & /
       real p92(0:37)
       data p92/
     & 0.49351E+00, 0.26116E+01,-0.69925E+00,-0.13569E+01,-0.11029E+01,
     &-0.52786E+00,-0.84267E-01, 0.14577E+00, 0.20904E+00, 0.17892E+00,
     & 0.11428E+00, 0.55061E-01, 0.12586E-01,-0.84158E-02,-0.13974E-01,
     &-0.11184E-01,-0.56854E-02,-0.74142E-03, 0.58039E-03, 0.95414E-03,
     &-0.45395E-03,-0.10387E-02,-0.15712E-02,-0.11075E-02,-0.77089E-04,
     & 0.23469E-04, 0.37323E-03, 0.58024E-03,-0.17001E-03,-0.10045E-03,
     &-0.12675E-04,-0.56653E-03, 0.17658E-03,-0.28971E-03, 0.36955E-03,
     &-0.29595E-03,-0.80298E-05,-0.95576E-05
     & /
       real p93(0:37)
       data p93/
     & 0.49735E+00, 0.26336E+01,-0.71235E+00,-0.13718E+01,-0.11102E+01,
     &-0.52771E+00,-0.80765E-01, 0.14946E+00, 0.21152E+00, 0.18002E+00,
     & 0.11438E+00, 0.54675E-01, 0.12072E-01,-0.88310E-02,-0.14226E-01,
     &-0.11294E-01,-0.57110E-02,-0.73125E-03, 0.58295E-03, 0.94971E-03,
     &-0.46900E-03,-0.10484E-02,-0.15780E-02,-0.11044E-02,-0.67539E-04,
     & 0.27279E-04, 0.37659E-03, 0.58160E-03,-0.17416E-03,-0.10187E-03,
     &-0.12354E-04,-0.56901E-03, 0.18096E-03,-0.29124E-03, 0.37424E-03,
     &-0.29953E-03,-0.76085E-05,-0.92411E-05
     & /
       real p94(0:37)
       data p94/
     & 0.50118E+00, 0.26556E+01,-0.72548E+00,-0.13866E+01,-0.11175E+01,
     &-0.52751E+00,-0.77248E-01, 0.15314E+00, 0.21398E+00, 0.18111E+00,
     & 0.11447E+00, 0.54282E-01, 0.11559E-01,-0.92435E-02,-0.14474E-01,
     &-0.11402E-01,-0.57350E-02,-0.72053E-03, 0.58610E-03, 0.94533E-03,
     &-0.48370E-03,-0.10577E-02,-0.15849E-02,-0.11009E-02,-0.58201E-04,
     & 0.31134E-04, 0.37989E-03, 0.58282E-03,-0.17805E-03,-0.10351E-03,
     &-0.11778E-04,-0.57158E-03, 0.18527E-03,-0.29259E-03, 0.37869E-03,
     &-0.30303E-03,-0.71263E-05,-0.90487E-05
     & /
       real p95(0:37)
       data p95/
     & 0.50511E+00, 0.26778E+01,-0.73841E+00,-0.14013E+01,-0.11248E+01,
     &-0.52747E+00,-0.73945E-01, 0.15664E+00, 0.21632E+00, 0.18214E+00,
     & 0.11455E+00, 0.53920E-01, 0.11083E-01,-0.96228E-02,-0.14703E-01,
     &-0.11496E-01,-0.57534E-02,-0.70884E-03, 0.59419E-03, 0.94155E-03,
     &-0.49580E-03,-0.10641E-02,-0.15942E-02,-0.10942E-02,-0.51716E-04,
     & 0.35247E-04, 0.38356E-03, 0.58239E-03,-0.17893E-03,-0.10736E-03,
     &-0.92032E-05,-0.57499E-03, 0.18857E-03,-0.29219E-03, 0.38107E-03,
     &-0.30587E-03,-0.58459E-05,-0.10258E-04
     & /
       real p96(0:37)
       data p96/
     & 0.50903E+00, 0.26999E+01,-0.75140E+00,-0.14160E+01,-0.11320E+01,
     &-0.52735E+00,-0.70598E-01, 0.16014E+00, 0.21865E+00, 0.18315E+00,
     & 0.11462E+00, 0.53547E-01, 0.10601E-01,-0.10003E-01,-0.14932E-01,
     &-0.11589E-01,-0.57708E-02,-0.69664E-03, 0.60226E-03, 0.93776E-03,
     &-0.50786E-03,-0.10703E-02,-0.16033E-02,-0.10875E-02,-0.45081E-04,
     & 0.39371E-04, 0.38712E-03, 0.58204E-03,-0.17993E-03,-0.11114E-03,
     &-0.66163E-05,-0.57839E-03, 0.19192E-03,-0.29184E-03, 0.38347E-03,
     &-0.30872E-03,-0.46111E-05,-0.11411E-04
     & /
       real p97(0:37)
       data p97/
     & 0.51293E+00, 0.27219E+01,-0.76445E+00,-0.14307E+01,-0.11391E+01,
     &-0.52715E+00,-0.67209E-01, 0.16365E+00, 0.22097E+00, 0.18415E+00,
     & 0.11468E+00, 0.53164E-01, 0.10116E-01,-0.10385E-01,-0.15159E-01,
     &-0.11681E-01,-0.57873E-02,-0.68395E-03, 0.61032E-03, 0.93398E-03,
     &-0.51987E-03,-0.10766E-02,-0.16120E-02,-0.10807E-02,-0.38294E-04,
     & 0.43502E-04, 0.39056E-03, 0.58175E-03,-0.18105E-03,-0.11486E-03,
     &-0.40190E-05,-0.58177E-03, 0.19534E-03,-0.29154E-03, 0.38592E-03,
     &-0.31156E-03,-0.34244E-05,-0.12504E-04
     & /
       real p98(0:37)
       data p98/
     & 0.51681E+00, 0.27439E+01,-0.77755E+00,-0.14454E+01,-0.11462E+01,
     &-0.52689E+00,-0.63780E-01, 0.16717E+00, 0.22327E+00, 0.18512E+00,
     & 0.11472E+00, 0.52770E-01, 0.96253E-02,-0.10767E-01,-0.15385E-01,
     &-0.11772E-01,-0.58028E-02,-0.67076E-03, 0.61835E-03, 0.93021E-03,
     &-0.53185E-03,-0.10828E-02,-0.16204E-02,-0.10740E-02,-0.31357E-04,
     & 0.47638E-04, 0.39388E-03, 0.58155E-03,-0.18229E-03,-0.11851E-03,
     &-0.14129E-05,-0.58514E-03, 0.19881E-03,-0.29129E-03, 0.38840E-03,
     &-0.31440E-03,-0.22883E-05,-0.13534E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  29,  29,  29
     &,  29,  29,  29,  29,  29,  29,  29,  29,  29,  29
     &,  29,  29,  29,  29,  29,  29,  29,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.37) param(i,15) = p15(i)
             if (i.le.37) param(i,16) = p16(i)
             if (i.le.37) param(i,17) = p17(i)
             if (i.le.37) param(i,18) = p18(i)
             if (i.le.37) param(i,19) = p19(i)
             if (i.le.37) param(i,20) = p20(i)
             if (i.le.37) param(i,21) = p21(i)
             if (i.le.37) param(i,22) = p22(i)
             if (i.le.37) param(i,23) = p23(i)
             if (i.le.37) param(i,24) = p24(i)
             if (i.le.37) param(i,25) = p25(i)
             if (i.le.37) param(i,26) = p26(i)
             if (i.le.37) param(i,27) = p27(i)
             if (i.le.37) param(i,28) = p28(i)
             if (i.le.29) param(i,29) = p29(i)
             if (i.le.29) param(i,30) = p30(i)
             if (i.le.29) param(i,31) = p31(i)
             if (i.le.29) param(i,32) = p32(i)
             if (i.le.29) param(i,33) = p33(i)
             if (i.le.29) param(i,34) = p34(i)
             if (i.le.29) param(i,35) = p35(i)
             if (i.le.29) param(i,36) = p36(i)
             if (i.le.29) param(i,37) = p37(i)
             if (i.le.29) param(i,38) = p38(i)
             if (i.le.29) param(i,39) = p39(i)
             if (i.le.29) param(i,40) = p40(i)
             if (i.le.29) param(i,41) = p41(i)
             if (i.le.29) param(i,42) = p42(i)
             if (i.le.29) param(i,43) = p43(i)
             if (i.le.29) param(i,44) = p44(i)
             if (i.le.29) param(i,45) = p45(i)
             if (i.le.29) param(i,46) = p46(i)
             if (i.le.29) param(i,47) = p47(i)
             if (i.le.29) param(i,48) = p48(i)
             if (i.le.37) param(i,49) = p49(i)
             if (i.le.37) param(i,50) = p50(i)
             if (i.le.37) param(i,51) = p51(i)
             if (i.le.37) param(i,52) = p52(i)
             if (i.le.37) param(i,53) = p53(i)
             if (i.le.37) param(i,54) = p54(i)
             if (i.le.37) param(i,55) = p55(i)
             if (i.le.37) param(i,56) = p56(i)
             if (i.le.37) param(i,57) = p57(i)
             if (i.le.37) param(i,58) = p58(i)
             if (i.le.37) param(i,59) = p59(i)
             if (i.le.37) param(i,60) = p60(i)
             if (i.le.37) param(i,61) = p61(i)
             if (i.le.37) param(i,62) = p62(i)
             if (i.le.37) param(i,63) = p63(i)
             if (i.le.37) param(i,64) = p64(i)
             if (i.le.37) param(i,65) = p65(i)
             if (i.le.37) param(i,66) = p66(i)
             if (i.le.37) param(i,67) = p67(i)
             if (i.le.37) param(i,68) = p68(i)
             if (i.le.37) param(i,69) = p69(i)
             if (i.le.37) param(i,70) = p70(i)
             if (i.le.37) param(i,71) = p71(i)
             if (i.le.37) param(i,72) = p72(i)
             if (i.le.37) param(i,73) = p73(i)
             if (i.le.37) param(i,74) = p74(i)
             if (i.le.37) param(i,75) = p75(i)
             if (i.le.37) param(i,76) = p76(i)
             if (i.le.37) param(i,77) = p77(i)
             if (i.le.37) param(i,78) = p78(i)
             if (i.le.37) param(i,79) = p79(i)
             if (i.le.37) param(i,80) = p80(i)
             if (i.le.37) param(i,81) = p81(i)
             if (i.le.37) param(i,82) = p82(i)
             if (i.le.37) param(i,83) = p83(i)
             if (i.le.37) param(i,84) = p84(i)
             if (i.le.37) param(i,85) = p85(i)
             if (i.le.37) param(i,86) = p86(i)
             if (i.le.37) param(i,87) = p87(i)
             if (i.le.37) param(i,88) = p88(i)
             if (i.le.37) param(i,89) = p89(i)
             if (i.le.37) param(i,90) = p90(i)
             if (i.le.37) param(i,91) = p91(i)
             if (i.le.37) param(i,92) = p92(i)
             if (i.le.37) param(i,93) = p93(i)
             if (i.le.37) param(i,94) = p94(i)
             if (i.le.37) param(i,95) = p95(i)
             if (i.le.37) param(i,96) = p96(i)
             if (i.le.37) param(i,97) = p97(i)
             if (i.le.37) param(i,98) = p98(i)
          enddo
       endif
            
       w3cect5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       w3cect5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w3cect5d00=0.0
       if (q2.lt.q2min) w3cect5d00=0.0
       if ( x.gt. xmax) w3cect5d00=0.0
       if ( x.lt. xmin) w3cect5d00=0.0
       return
       end
       real function  w2cpct5d00(xin,q2in)
***********************************************************
c  parametrization of w2cpct5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0:21)
       data p15/
     & 0.14643E+01,-0.14593E+01, 0.23601E+00,-0.16948E+00,-0.94156E-01,
     &-0.46537E-01,-0.43410E-02, 0.17943E-01, 0.21004E-01, 0.17948E-01,
     & 0.12606E-01, 0.58801E-02, 0.32356E-02, 0.75583E-05,-0.54044E-03,
     &-0.16362E-02,-0.17179E-03,-0.17172E-02, 0.20564E-03,-0.10381E-02,
     & 0.21671E-03,-0.22180E-03
     & /
       real p16(0:21)
       data p16/
     & 0.15720E+01,-0.15874E+01, 0.26578E+00,-0.17895E+00,-0.96331E-01,
     &-0.47227E-01,-0.37455E-02, 0.19007E-01, 0.21786E-01, 0.18476E-01,
     & 0.12919E-01, 0.59051E-02, 0.32681E-02,-0.81777E-04,-0.58237E-03,
     &-0.17371E-02,-0.13580E-03,-0.18181E-02, 0.26095E-03,-0.11017E-02,
     & 0.25154E-03,-0.23443E-03
     & /
       real p17(0:21)
       data p17/
     & 0.18014E+01,-0.18644E+01, 0.33260E+00,-0.19915E+00,-0.10027E+00,
     &-0.48427E-01,-0.24521E-02, 0.21175E-01, 0.23321E-01, 0.19491E-01,
     & 0.13515E-01, 0.59167E-02, 0.33232E-02,-0.27575E-03,-0.66496E-03,
     &-0.19474E-02,-0.50363E-04,-0.20311E-02, 0.38502E-03,-0.12371E-02,
     & 0.32853E-03,-0.26177E-03
     & /
       real p18(0:22)
       data p18/
     & 0.20499E+01,-0.21700E+01, 0.41021E+00,-0.22103E+00,-0.10373E+00,
     &-0.49474E-01,-0.11293E-02, 0.23323E-01, 0.24784E-01, 0.20452E-01,
     & 0.14082E-01, 0.58918E-02, 0.33792E-02,-0.48091E-03,-0.73980E-03,
     &-0.21669E-02, 0.54223E-04,-0.22603E-02, 0.52680E-03,-0.13846E-02,
     & 0.41511E-03,-0.29240E-03,-0.63276E-05
     & /
       real p19(0:22)
       data p19/
     & 0.23172E+01,-0.25041E+01, 0.49870E+00,-0.24481E+00,-0.10664E+00,
     &-0.50349E-01, 0.26042E-03, 0.25478E-01, 0.26189E-01, 0.21359E-01,
     & 0.14618E-01, 0.58255E-02, 0.34319E-02,-0.70054E-03,-0.80829E-03,
     &-0.23965E-02, 0.17818E-03,-0.25055E-02, 0.68701E-03,-0.15442E-02,
     & 0.51162E-03,-0.32639E-03, 0.20439E-05
     & /
       real p20(0:22)
       data p20/
     & 0.26033E+01,-0.28665E+01, 0.59815E+00,-0.27074E+00,-0.10893E+00,
     &-0.51032E-01, 0.17539E-02, 0.27666E-01, 0.27548E-01, 0.22216E-01,
     & 0.15118E-01, 0.57130E-02, 0.34772E-02,-0.93794E-03,-0.87182E-03,
     &-0.26372E-02, 0.32173E-03,-0.27667E-02, 0.86639E-03,-0.17158E-02,
     & 0.61836E-03,-0.36385E-03, 0.11515E-04
     & /
       real p21(0:22)
       data p21/
     & 0.29087E+01,-0.32581E+01, 0.70913E+00,-0.29900E+00,-0.11057E+00,
     &-0.51545E-01, 0.33359E-02, 0.29881E-01, 0.28859E-01, 0.23024E-01,
     & 0.15587E-01, 0.55571E-02, 0.35179E-02,-0.11920E-02,-0.92908E-03,
     &-0.28892E-02, 0.48563E-03,-0.30446E-02, 0.10655E-02,-0.19001E-02,
     & 0.73560E-03,-0.40507E-03, 0.22080E-04
     & /
       real p22(0:22)
       data p22/
     & 0.32337E+01,-0.36797E+01, 0.83223E+00,-0.32979E+00,-0.11157E+00,
     &-0.51915E-01, 0.49909E-02, 0.32115E-01, 0.30121E-01, 0.23785E-01,
     & 0.16028E-01, 0.53603E-02, 0.35568E-02,-0.14615E-02,-0.97876E-03,
     &-0.31525E-02, 0.67062E-03,-0.33402E-02, 0.12850E-02,-0.20978E-02,
     & 0.86362E-03,-0.45035E-03, 0.33733E-04
     & /
       real p23(0:22)
       data p23/
     & 0.35788E+01,-0.41321E+01, 0.96803E+00,-0.36327E+00,-0.11189E+00,
     &-0.52163E-01, 0.67037E-02, 0.34362E-01, 0.31333E-01, 0.24503E-01,
     & 0.16445E-01, 0.51253E-02, 0.35969E-02,-0.17454E-02,-0.10196E-02,
     &-0.34273E-02, 0.87746E-03,-0.36541E-02, 0.15254E-02,-0.23095E-02,
     & 0.10027E-02,-0.50001E-03, 0.46468E-04
     & /
       real p24(0:22)
       data p24/
     & 0.39463E+01,-0.46191E+01, 0.11188E+01,-0.39977E+00,-0.11168E+00,
     &-0.52420E-01, 0.83418E-02, 0.36552E-01, 0.32469E-01, 0.25185E-01,
     & 0.16861E-01, 0.48718E-02, 0.36578E-02,-0.20318E-02,-0.10423E-02,
     &-0.37107E-02, 0.11101E-02,-0.39885E-02, 0.17889E-02,-0.25379E-02,
     & 0.11535E-02,-0.55502E-03, 0.59766E-04
     & /
       real p25(0:22)
       data p25/
     & 0.43344E+01,-0.51380E+01, 0.12832E+01,-0.43933E+00,-0.11075E+00,
     &-0.52582E-01, 0.10031E-01, 0.38753E-01, 0.33557E-01, 0.25827E-01,
     & 0.17256E-01, 0.45819E-02, 0.37220E-02,-0.23325E-02,-0.10552E-02,
     &-0.40064E-02, 0.13655E-02,-0.43426E-02, 0.20741E-02,-0.27812E-02,
     & 0.13158E-02,-0.61487E-03, 0.74238E-04
     & /
       real p26(0:22)
       data p26/
     & 0.47433E+01,-0.56891E+01, 0.14613E+01,-0.48212E+00,-0.10905E+00,
     &-0.52658E-01, 0.11773E-01, 0.40969E-01, 0.34599E-01, 0.26430E-01,
     & 0.17631E-01, 0.42554E-02, 0.37899E-02,-0.26479E-02,-0.10580E-02,
     &-0.43151E-02, 0.16438E-02,-0.47170E-02, 0.23815E-02,-0.30399E-02,
     & 0.14898E-02,-0.67974E-03, 0.89957E-04
     & /
       real p27(0:22)
       data p27/
     & 0.51735E+01,-0.62731E+01, 0.16538E+01,-0.52832E+00,-0.10656E+00,
     &-0.52665E-01, 0.13559E-01, 0.43197E-01, 0.35595E-01, 0.26996E-01,
     & 0.17990E-01, 0.38942E-02, 0.38633E-02,-0.29777E-02,-0.10499E-02,
     &-0.46370E-02, 0.19456E-02,-0.51125E-02, 0.27114E-02,-0.33146E-02,
     & 0.16758E-02,-0.74992E-03, 0.10695E-03
     & /
       real p28(0:22)
       data p28/
     & 0.56252E+01,-0.68907E+01, 0.18610E+01,-0.57811E+00,-0.10326E+00,
     &-0.52622E-01, 0.15381E-01, 0.45434E-01, 0.36544E-01, 0.27527E-01,
     & 0.18335E-01, 0.34997E-02, 0.39441E-02,-0.33211E-02,-0.10300E-02,
     &-0.49725E-02, 0.22715E-02,-0.55297E-02, 0.30644E-02,-0.36057E-02,
     & 0.18739E-02,-0.82565E-03, 0.12523E-03
     & /
       real p29(0:22)
       data p29/
     & 0.60988E+01,-0.75424E+01, 0.20835E+01,-0.63168E+00,-0.99134E-01,
     &-0.52546E-01, 0.17230E-01, 0.47675E-01, 0.37447E-01, 0.28026E-01,
     & 0.18668E-01, 0.30737E-02, 0.40343E-02,-0.36778E-02,-0.99750E-03,
     &-0.53218E-02, 0.26220E-02,-0.59693E-02, 0.34410E-02,-0.39139E-02,
     & 0.20845E-02,-0.90720E-03, 0.14482E-03
     & /
       real p30(0:22)
       data p30/
     & 0.65957E+01,-0.82307E+01, 0.23228E+01,-0.68925E+00,-0.94296E-01,
     &-0.52516E-01, 0.19029E-01, 0.49890E-01, 0.38299E-01, 0.28505E-01,
     & 0.19010E-01, 0.26322E-02, 0.41479E-02,-0.40400E-02,-0.94632E-03,
     &-0.56838E-02, 0.29994E-02,-0.64338E-02, 0.38423E-02,-0.42410E-02,
     & 0.23076E-02,-0.99570E-03, 0.16574E-03
     & /
       real p31(0:22)
       data p31/
     & 0.71165E+01,-0.89566E+01, 0.25795E+01,-0.75100E+00,-0.88762E-01,
     &-0.52564E-01, 0.20754E-01, 0.52065E-01, 0.39101E-01, 0.28970E-01,
     & 0.19366E-01, 0.21805E-02, 0.42898E-02,-0.44053E-02,-0.87436E-03,
     &-0.60586E-02, 0.34048E-02,-0.69240E-02, 0.42687E-02,-0.45878E-02,
     & 0.25434E-02,-0.10916E-02, 0.18799E-03
     & /
       real p32(0:22)
       data p32/
     & 0.73519E+01,-0.92860E+01, 0.26971E+01,-0.77941E+00,-0.86032E-01,
     &-0.52582E-01, 0.21521E-01, 0.53022E-01, 0.39438E-01, 0.29163E-01,
     & 0.19518E-01, 0.19720E-02, 0.43549E-02,-0.45702E-02,-0.83880E-03,
     &-0.62277E-02, 0.35905E-02,-0.71465E-02, 0.44635E-02,-0.47455E-02,
     & 0.26509E-02,-0.11356E-02, 0.19818E-03
     & /
       real p33(0:22)
       data p33/
     & 0.76598E+01,-0.97179E+01, 0.28524E+01,-0.81705E+00,-0.82257E-01,
     &-0.52605E-01, 0.22512E-01, 0.54251E-01, 0.39858E-01, 0.29402E-01,
     & 0.19710E-01, 0.16954E-02, 0.44410E-02,-0.47857E-02,-0.78958E-03,
     &-0.64487E-02, 0.38357E-02,-0.74382E-02, 0.47200E-02,-0.49527E-02,
     & 0.27924E-02,-0.11938E-02, 0.21163E-03
     & /
       real p34(0:22)
       data p34/
     & 0.82258E+01,-0.10515E+02, 0.31420E+01,-0.88758E+00,-0.74748E-01,
     &-0.52653E-01, 0.24298E-01, 0.56445E-01, 0.40569E-01, 0.29804E-01,
     & 0.20045E-01, 0.11775E-02, 0.46023E-02,-0.51811E-02,-0.69148E-03,
     &-0.68546E-02, 0.42925E-02,-0.79770E-02, 0.51966E-02,-0.53363E-02,
     & 0.30550E-02,-0.13023E-02, 0.23670E-03
     & /
       real p35(0:22)
       data p35/
     & 0.88148E+01,-0.11349E+02, 0.34488E+01,-0.96277E+00,-0.66203E-01,
     &-0.52721E-01, 0.26107E-01, 0.58647E-01, 0.41236E-01, 0.30176E-01,
     & 0.20372E-01, 0.62743E-03, 0.47749E-02,-0.55915E-02,-0.57953E-03,
     &-0.72767E-02, 0.47757E-02,-0.85409E-02, 0.56988E-02,-0.57390E-02,
     & 0.33314E-02,-0.14175E-02, 0.26320E-03
     & /
       real p36(0:22)
       data p36/
     & 0.94271E+01,-0.12219E+02, 0.37730E+01,-0.10428E+01,-0.56588E-01,
     &-0.52824E-01, 0.27937E-01, 0.60854E-01, 0.41859E-01, 0.30520E-01,
     & 0.20692E-01, 0.45970E-04, 0.49599E-02,-0.60167E-02,-0.45319E-03,
     &-0.77153E-02, 0.52858E-02,-0.91305E-02, 0.62272E-02,-0.61613E-02,
     & 0.36219E-02,-0.15394E-02, 0.29118E-03
     & /
       real p37(0:22)
       data p37/
     & 0.10063E+02,-0.13127E+02, 0.41152E+01,-0.11278E+01,-0.45871E-01,
     &-0.52975E-01, 0.29781E-01, 0.63067E-01, 0.42437E-01, 0.30838E-01,
     & 0.21007E-01,-0.56623E-03, 0.51583E-02,-0.64569E-02,-0.31195E-03,
     &-0.81710E-02, 0.58232E-02,-0.97466E-02, 0.67822E-02,-0.66036E-02,
     & 0.39267E-02,-0.16684E-02, 0.32064E-03
     & /
       real p38(0:22)
       data p38/
     & 0.10723E+02,-0.14073E+02, 0.44756E+01,-0.12181E+01,-0.34019E-01,
     &-0.53189E-01, 0.31637E-01, 0.65282E-01, 0.42971E-01, 0.31130E-01,
     & 0.21319E-01,-0.12085E-02, 0.53712E-02,-0.69118E-02,-0.15528E-03,
     &-0.86440E-02, 0.63882E-02,-0.10390E-01, 0.73643E-02,-0.70665E-02,
     & 0.42461E-02,-0.18047E-02, 0.35162E-03
     & /
       real p39(0:22)
       data p39/
     & 0.11407E+02,-0.15057E+02, 0.48549E+01,-0.13137E+01,-0.21000E-01,
     &-0.53479E-01, 0.33500E-01, 0.67501E-01, 0.43460E-01, 0.31397E-01,
     & 0.21629E-01,-0.18801E-02, 0.55996E-02,-0.73814E-02, 0.17338E-04,
     &-0.91347E-02, 0.69815E-02,-0.11061E-01, 0.79740E-02,-0.75505E-02,
     & 0.45804E-02,-0.19483E-02, 0.38414E-03
     & /
       real p40(0:22)
       data p40/
     & 0.12117E+02,-0.16084E+02, 0.52554E+01,-0.14153E+01,-0.68767E-02,
     &-0.53904E-01, 0.35306E-01, 0.69699E-01, 0.43901E-01, 0.31650E-01,
     & 0.21949E-01,-0.25731E-02, 0.58523E-02,-0.78627E-02, 0.20927E-03,
     &-0.96443E-02, 0.76055E-02,-0.11763E-01, 0.86136E-02,-0.80583E-02,
     & 0.49308E-02,-0.21004E-02, 0.41793E-03
     & /
       real p41(0:22)
       data p41/
     & 0.12854E+02,-0.17155E+02, 0.56780E+01,-0.15232E+01, 0.83656E-02,
     &-0.54488E-01, 0.37039E-01, 0.71873E-01, 0.44292E-01, 0.31889E-01,
     & 0.22283E-01,-0.32856E-02, 0.61317E-02,-0.83551E-02, 0.42157E-03,
     &-0.10173E-01, 0.82610E-02,-0.12497E-01, 0.92840E-02,-0.85909E-02,
     & 0.52975E-02,-0.22611E-02, 0.45295E-03
     & /
       real p42(0:22)
       data p42/
     & 0.13616E+02,-0.18264E+02, 0.61198E+01,-0.16368E+01, 0.24911E-01,
     &-0.55172E-01, 0.38790E-01, 0.74053E-01, 0.44641E-01, 0.32106E-01,
     & 0.22616E-01,-0.40282E-02, 0.64270E-02,-0.88632E-02, 0.65028E-03,
     &-0.10721E-01, 0.89453E-02,-0.13260E-01, 0.99826E-02,-0.91450E-02,
     & 0.56796E-02,-0.24297E-02, 0.48970E-03
     & /
       real p43(0:22)
       data p43/
     & 0.14402E+02,-0.19413E+02, 0.65811E+01,-0.17563E+01, 0.42797E-01,
     &-0.55969E-01, 0.40557E-01, 0.76240E-01, 0.44949E-01, 0.32300E-01,
     & 0.22948E-01,-0.48006E-02, 0.67388E-02,-0.93873E-02, 0.89583E-03,
     &-0.11287E-01, 0.96586E-02,-0.14052E-01, 0.10710E-01,-0.97211E-02,
     & 0.60772E-02,-0.26061E-02, 0.52822E-03
     & /
       real p44(0:22)
       data p44/
     & 0.15212E+02,-0.20601E+02, 0.70622E+01,-0.18818E+01, 0.62060E-01,
     &-0.56891E-01, 0.42336E-01, 0.78432E-01, 0.45216E-01, 0.32472E-01,
     & 0.23281E-01,-0.56024E-02, 0.70679E-02,-0.99273E-02, 0.11586E-02,
     &-0.11873E-01, 0.10401E-01,-0.14873E-01, 0.11466E-01,-0.10319E-01,
     & 0.64906E-02,-0.27907E-02, 0.56854E-03
     & /
       real p45(0:22)
       data p45/
     & 0.16048E+02,-0.21830E+02, 0.75636E+01,-0.20136E+01, 0.82736E-01,
     &-0.57949E-01, 0.44128E-01, 0.80630E-01, 0.45443E-01, 0.32624E-01,
     & 0.23616E-01,-0.64331E-02, 0.74151E-02,-0.10483E-01, 0.14391E-02,
     &-0.12479E-01, 0.11174E-01,-0.15724E-01, 0.12251E-01,-0.10941E-01,
     & 0.69199E-02,-0.29836E-02, 0.61070E-03
     & /
       real p46(0:22)
       data p46/
     & 0.16908E+02,-0.23099E+02, 0.80855E+01,-0.21518E+01, 0.10486E+00,
     &-0.59156E-01, 0.45929E-01, 0.82834E-01, 0.45629E-01, 0.32757E-01,
     & 0.23954E-01,-0.72924E-02, 0.77811E-02,-0.11056E-01, 0.17376E-02,
     &-0.13105E-01, 0.11977E-01,-0.16606E-01, 0.13066E-01,-0.11585E-01,
     & 0.73655E-02,-0.31850E-02, 0.65474E-03
     & /
       real p47(0:22)
       data p47/
     & 0.17794E+02,-0.24408E+02, 0.86283E+01,-0.22965E+01, 0.12848E+00,
     &-0.60524E-01, 0.47738E-01, 0.85042E-01, 0.45776E-01, 0.32871E-01,
     & 0.24295E-01,-0.81799E-02, 0.81667E-02,-0.11644E-01, 0.20545E-02,
     &-0.13751E-01, 0.12810E-01,-0.17518E-01, 0.13910E-01,-0.12252E-01,
     & 0.78275E-02,-0.33951E-02, 0.70069E-03
     & /
       real p48(0:22)
       data p48/
     & 0.18705E+02,-0.25759E+02, 0.91923E+01,-0.24479E+01, 0.15361E+00,
     &-0.62065E-01, 0.49553E-01, 0.87254E-01, 0.45883E-01, 0.32968E-01,
     & 0.24642E-01,-0.90952E-02, 0.85728E-02,-0.12249E-01, 0.23904E-02,
     &-0.14419E-01, 0.13674E-01,-0.18461E-01, 0.14785E-01,-0.12944E-01,
     & 0.83061E-02,-0.36139E-02, 0.74858E-03
     & /
       real p49(0:22)
       data p49/
     & 0.19642E+02,-0.27152E+02, 0.97778E+01,-0.26062E+01, 0.18031E+00,
     &-0.63792E-01, 0.51372E-01, 0.89471E-01, 0.45951E-01, 0.33048E-01,
     & 0.24995E-01,-0.10038E-01, 0.89999E-02,-0.12870E-01, 0.27455E-02,
     &-0.15107E-01, 0.14570E-01,-0.19436E-01, 0.15691E-01,-0.13660E-01,
     & 0.88016E-02,-0.38418E-02, 0.79847E-03
     & /
       real p50(0:22)
       data p50/
     & 0.20605E+02,-0.28586E+02, 0.10385E+02,-0.27715E+01, 0.20860E+00,
     &-0.65716E-01, 0.53193E-01, 0.91690E-01, 0.45980E-01, 0.33113E-01,
     & 0.25356E-01,-0.11008E-01, 0.94489E-02,-0.13508E-01, 0.31203E-02,
     &-0.15817E-01, 0.15497E-01,-0.20444E-01, 0.16628E-01,-0.14400E-01,
     & 0.93143E-02,-0.40788E-02, 0.85037E-03
     & /
       real p51(0:37)
       data p51/
     & 0.21591E+02,-0.30061E+02, 0.11014E+02,-0.29426E+01, 0.24027E+00,
     &-0.75723E-01, 0.67699E-01, 0.78483E-01, 0.60392E-01, 0.22135E-01,
     & 0.33240E-01,-0.14310E-01, 0.60883E-02,-0.61121E-02,-0.73402E-02,
     &-0.31593E-02, 0.32557E-02,-0.11332E-01, 0.90393E-02,-0.74343E-02,
     & 0.61715E-02,-0.58889E-02, 0.31720E-02, 0.30057E-02,-0.62921E-02,
     & 0.42341E-02, 0.14838E-02,-0.67716E-02, 0.73226E-02,-0.64312E-03,
     &-0.78523E-02, 0.11281E-01,-0.10721E-01, 0.10546E-01,-0.11088E-01,
     & 0.88845E-02,-0.34254E-02,-0.52990E-04
     & /
       real p52(0:37)
       data p52/
     & 0.22611E+02,-0.31589E+02, 0.11671E+02,-0.31239E+01, 0.27185E+00,
     &-0.78581E-01, 0.70089E-01, 0.79855E-01, 0.61129E-01, 0.21578E-01,
     & 0.34052E-01,-0.15438E-01, 0.64047E-02,-0.63416E-02,-0.75174E-02,
     &-0.31949E-02, 0.35453E-02,-0.11842E-01, 0.95693E-02,-0.78316E-02,
     & 0.65289E-02,-0.62000E-02, 0.33285E-02, 0.31493E-02,-0.66072E-02,
     & 0.44428E-02, 0.15641E-02,-0.71150E-02, 0.76753E-02,-0.66503E-03,
     &-0.82511E-02, 0.11880E-01,-0.11320E-01, 0.11136E-01,-0.11681E-01,
     & 0.93514E-02,-0.36282E-02,-0.13670E-04
     & /
       real p53(0:37)
       data p53/
     & 0.23656E+02,-0.33159E+02, 0.12351E+02,-0.33125E+01, 0.30517E+00,
     &-0.81673E-01, 0.72517E-01, 0.81209E-01, 0.61853E-01, 0.20985E-01,
     & 0.34883E-01,-0.16597E-01, 0.67360E-02,-0.65750E-02,-0.76942E-02,
     &-0.32305E-02, 0.38450E-02,-0.12367E-01, 0.10116E-01,-0.82421E-02,
     & 0.68978E-02,-0.65206E-02, 0.34893E-02, 0.32965E-02,-0.69306E-02,
     & 0.46571E-02, 0.16468E-02,-0.74677E-02, 0.80368E-02,-0.68700E-03,
     &-0.86612E-02, 0.12497E-01,-0.11938E-01, 0.11745E-01,-0.12293E-01,
     & 0.98324E-02,-0.38383E-02, 0.28713E-04
     & /
       real p54(0:37)
       data p54/
     & 0.24727E+02,-0.34771E+02, 0.13052E+02,-0.35084E+01, 0.34026E+00,
     &-0.85009E-01, 0.74983E-01, 0.82544E-01, 0.62564E-01, 0.20356E-01,
     & 0.35733E-01,-0.17789E-01, 0.70826E-02,-0.68122E-02,-0.78705E-02,
     &-0.32659E-02, 0.41548E-02,-0.12906E-01, 0.10678E-01,-0.86659E-02,
     & 0.72785E-02,-0.68507E-02, 0.36544E-02, 0.34473E-02,-0.72625E-02,
     & 0.48770E-02, 0.17319E-02,-0.78298E-02, 0.84074E-02,-0.70904E-03,
     &-0.90826E-02, 0.13133E-01,-0.12576E-01, 0.12374E-01,-0.12922E-01,
     & 0.10328E-01,-0.40558E-02, 0.74245E-04
     & /
       real p55(0:37)
       data p55/
     & 0.25824E+02,-0.36425E+02, 0.13776E+02,-0.37118E+01, 0.37715E+00,
     &-0.88600E-01, 0.77486E-01, 0.83861E-01, 0.63264E-01, 0.19692E-01,
     & 0.36603E-01,-0.19012E-01, 0.74450E-02,-0.70534E-02,-0.80464E-02,
     &-0.33014E-02, 0.44748E-02,-0.13459E-01, 0.11258E-01,-0.91033E-02,
     & 0.76709E-02,-0.71906E-02, 0.38238E-02, 0.36017E-02,-0.76029E-02,
     & 0.51024E-02, 0.18195E-02,-0.82013E-02, 0.87869E-02,-0.73111E-03,
     &-0.95156E-02, 0.13787E-01,-0.13233E-01, 0.13022E-01,-0.13570E-01,
     & 0.10837E-01,-0.42809E-02, 0.12301E-03
     & /
       real p56(0:37)
       data p56/
     & 0.26947E+02,-0.38122E+02, 0.14523E+02,-0.39229E+01, 0.41589E+00,
     &-0.92458E-01, 0.80026E-01, 0.85157E-01, 0.63952E-01, 0.18994E-01,
     & 0.37494E-01,-0.20267E-01, 0.78236E-02,-0.72984E-02,-0.82217E-02,
     &-0.33369E-02, 0.48051E-02,-0.14026E-01, 0.11854E-01,-0.95544E-02,
     & 0.80754E-02,-0.75403E-02, 0.39975E-02, 0.37597E-02,-0.79518E-02,
     & 0.53335E-02, 0.19095E-02,-0.85823E-02, 0.91756E-02,-0.75321E-03,
     &-0.99601E-02, 0.14459E-01,-0.13911E-01, 0.13690E-01,-0.14237E-01,
     & 0.11361E-01,-0.45136E-02, 0.17509E-03
     & /
       real p57(0:37)
       data p57/
     & 0.28096E+02,-0.39862E+02, 0.15292E+02,-0.41419E+01, 0.45651E+00,
     &-0.96593E-01, 0.82603E-01, 0.86434E-01, 0.64630E-01, 0.18261E-01,
     & 0.38407E-01,-0.21553E-01, 0.82189E-02,-0.75472E-02,-0.83963E-02,
     &-0.33726E-02, 0.51456E-02,-0.14609E-01, 0.12467E-01,-0.10020E-01,
     & 0.84919E-02,-0.78998E-02, 0.41755E-02, 0.39215E-02,-0.83092E-02,
     & 0.55703E-02, 0.20020E-02,-0.89729E-02, 0.95733E-02,-0.77532E-03,
     &-0.10416E-01, 0.15150E-01,-0.14609E-01, 0.14378E-01,-0.14923E-01,
     & 0.11900E-01,-0.47540E-02, 0.23057E-03
     & /
       real p58(0:37)
       data p58/
     & 0.29272E+02,-0.41645E+02, 0.16085E+02,-0.43687E+01, 0.49905E+00,
     &-0.10102E+00, 0.85217E-01, 0.87691E-01, 0.65298E-01, 0.17495E-01,
     & 0.39342E-01,-0.22871E-01, 0.86312E-02,-0.77998E-02,-0.85702E-02,
     &-0.34086E-02, 0.54966E-02,-0.15207E-01, 0.13096E-01,-0.10499E-01,
     & 0.89207E-02,-0.82695E-02, 0.43580E-02, 0.40869E-02,-0.86753E-02,
     & 0.58127E-02, 0.20971E-02,-0.93731E-02, 0.99802E-02,-0.79741E-03,
     &-0.10884E-01, 0.15860E-01,-0.15327E-01, 0.15087E-01,-0.15629E-01,
     & 0.12454E-01,-0.50023E-02, 0.28953E-03
     & /
       real p59(0:37)
       data p59/
     & 0.30474E+02,-0.43471E+02, 0.16901E+02,-0.46037E+01, 0.54355E+00,
     &-0.10574E+00, 0.87867E-01, 0.88928E-01, 0.65956E-01, 0.16695E-01,
     & 0.40301E-01,-0.24219E-01, 0.90611E-02,-0.80563E-02,-0.87432E-02,
     &-0.34448E-02, 0.58580E-02,-0.15819E-01, 0.13743E-01,-0.10992E-01,
     & 0.93618E-02,-0.86492E-02, 0.45449E-02, 0.42560E-02,-0.90500E-02,
     & 0.60609E-02, 0.21947E-02,-0.97830E-02, 0.10396E-01,-0.81948E-03,
     &-0.11364E-01, 0.16588E-01,-0.16066E-01, 0.15816E-01,-0.16353E-01,
     & 0.13022E-01,-0.52586E-02, 0.35207E-03
     & /
       real p60(0:37)
       data p60/
     & 0.31703E+02,-0.45342E+02, 0.17741E+02,-0.48468E+01, 0.59005E+00,
     &-0.11078E+00, 0.90555E-01, 0.90144E-01, 0.66606E-01, 0.15863E-01,
     & 0.41284E-01,-0.25599E-01, 0.95089E-02,-0.83166E-02,-0.89154E-02,
     &-0.34815E-02, 0.62298E-02,-0.16448E-01, 0.14408E-01,-0.11501E-01,
     & 0.98154E-02,-0.90392E-02, 0.47363E-02, 0.44288E-02,-0.94335E-02,
     & 0.63149E-02, 0.22949E-02,-0.10203E-01, 0.10822E-01,-0.84151E-03,
     &-0.11856E-01, 0.17336E-01,-0.16826E-01, 0.16565E-01,-0.17098E-01,
     & 0.13606E-01,-0.55230E-02, 0.41825E-03
     & /
       real p61(0:37)
       data p61/
     & 0.32958E+02,-0.47257E+02, 0.18605E+02,-0.50984E+01, 0.63859E+00,
     &-0.11614E+00, 0.93279E-01, 0.91339E-01, 0.67247E-01, 0.14998E-01,
     & 0.42292E-01,-0.27010E-01, 0.99751E-02,-0.85806E-02,-0.90867E-02,
     &-0.35186E-02, 0.66122E-02,-0.17091E-01, 0.15089E-01,-0.12023E-01,
     & 0.10282E-01,-0.94395E-02, 0.49322E-02, 0.46053E-02,-0.98257E-02,
     & 0.65747E-02, 0.23976E-02,-0.10632E-01, 0.11256E-01,-0.86348E-03,
     &-0.12359E-01, 0.18104E-01,-0.17607E-01, 0.17336E-01,-0.17862E-01,
     & 0.14205E-01,-0.57957E-02, 0.48818E-03
     & /
       real p62(0:37)
       data p62/
     & 0.34241E+02,-0.49216E+02, 0.19494E+02,-0.53584E+01, 0.68920E+00,
     &-0.12183E+00, 0.96040E-01, 0.92512E-01, 0.67881E-01, 0.14101E-01,
     & 0.43326E-01,-0.28451E-01, 0.10460E-01,-0.88485E-02,-0.92569E-02,
     &-0.35562E-02, 0.70051E-02,-0.17751E-01, 0.15789E-01,-0.12561E-01,
     & 0.10761E-01,-0.98502E-02, 0.51326E-02, 0.47856E-02,-0.10227E-01,
     & 0.68403E-02, 0.25029E-02,-0.11071E-01, 0.11700E-01,-0.88538E-03,
     &-0.12875E-01, 0.18891E-01,-0.18409E-01, 0.18128E-01,-0.18646E-01,
     & 0.14819E-01,-0.60766E-02, 0.56192E-03
     & /
       real p63(0:37)
       data p63/
     & 0.35554E+02,-0.51226E+02, 0.20411E+02,-0.56288E+01, 0.74201E+00,
     &-0.12792E+00, 0.98777E-01, 0.93653E-01, 0.68517E-01, 0.13185E-01,
     & 0.44407E-01,-0.29914E-01, 0.10975E-01,-0.91158E-02,-0.94246E-02,
     &-0.35943E-02, 0.74094E-02,-0.18429E-01, 0.16507E-01,-0.13117E-01,
     & 0.11254E-01,-0.10273E-01, 0.53382E-02, 0.49698E-02,-0.10638E-01,
     & 0.71128E-02, 0.26113E-02,-0.11522E-01, 0.12155E-01,-0.90710E-03,
     &-0.13405E-01, 0.19700E-01,-0.19237E-01, 0.18945E-01,-0.19453E-01,
     & 0.15451E-01,-0.63677E-02, 0.64058E-03
     & /
       real p64(0:37)
       data p64/
     & 0.36897E+02,-0.53286E+02, 0.21357E+02,-0.59091E+01, 0.79702E+00,
     &-0.13441E+00, 0.10151E+00, 0.94762E-01, 0.69152E-01, 0.12248E-01,
     & 0.45530E-01,-0.31402E-01, 0.11516E-01,-0.93838E-02,-0.95900E-02,
     &-0.36330E-02, 0.78249E-02,-0.19125E-01, 0.17245E-01,-0.13691E-01,
     & 0.11761E-01,-0.10709E-01, 0.55490E-02, 0.51580E-02,-0.11059E-01,
     & 0.73919E-02, 0.27225E-02,-0.11984E-01, 0.12620E-01,-0.92867E-03,
     &-0.13949E-01, 0.20531E-01,-0.20088E-01, 0.19786E-01,-0.20282E-01,
     & 0.16101E-01,-0.66684E-02, 0.72400E-03
     & /
       real p65(0:37)
       data p65/
     & 0.38267E+02,-0.55391E+02, 0.22326E+02,-0.61981E+01, 0.85420E+00,
     &-0.14126E+00, 0.10428E+00, 0.95852E-01, 0.69780E-01, 0.11277E-01,
     & 0.46678E-01,-0.32921E-01, 0.12076E-01,-0.96564E-02,-0.97546E-02,
     &-0.36725E-02, 0.82510E-02,-0.19837E-01, 0.18000E-01,-0.14279E-01,
     & 0.12281E-01,-0.11155E-01, 0.57642E-02, 0.53499E-02,-0.11488E-01,
     & 0.76768E-02, 0.28363E-02,-0.12455E-01, 0.13094E-01,-0.95012E-03,
     &-0.14504E-01, 0.21382E-01,-0.20961E-01, 0.20648E-01,-0.21132E-01,
     & 0.16766E-01,-0.69776E-02, 0.81126E-03
     & /
       real p66(0:37)
       data p66/
     & 0.39663E+02,-0.57539E+02, 0.23320E+02,-0.64957E+01, 0.91359E+00,
     &-0.14847E+00, 0.10711E+00, 0.96921E-01, 0.70401E-01, 0.10273E-01,
     & 0.47851E-01,-0.34473E-01, 0.12654E-01,-0.99337E-02,-0.99181E-02,
     &-0.37128E-02, 0.86876E-02,-0.20565E-01, 0.18773E-01,-0.14882E-01,
     & 0.12814E-01,-0.11611E-01, 0.59839E-02, 0.55455E-02,-0.11926E-01,
     & 0.79674E-02, 0.29527E-02,-0.12936E-01, 0.13577E-01,-0.97146E-03,
     &-0.15072E-01, 0.22253E-01,-0.21855E-01, 0.21531E-01,-0.22001E-01,
     & 0.17447E-01,-0.72951E-02, 0.90244E-03
     & /
       real p67(0:37)
       data p67/
     & 0.41086E+02,-0.59731E+02, 0.24339E+02,-0.68020E+01, 0.97523E+00,
     &-0.15605E+00, 0.10999E+00, 0.97971E-01, 0.71016E-01, 0.92366E-02,
     & 0.49049E-01,-0.36057E-01, 0.13250E-01,-0.10216E-01,-0.10081E-01,
     &-0.37541E-02, 0.91350E-02,-0.21309E-01, 0.19563E-01,-0.15501E-01,
     & 0.13361E-01,-0.12077E-01, 0.62081E-02, 0.57450E-02,-0.12374E-01,
     & 0.82638E-02, 0.30718E-02,-0.13427E-01, 0.14070E-01,-0.99265E-03,
     &-0.15652E-01, 0.23143E-01,-0.22772E-01, 0.22436E-01,-0.22891E-01,
     & 0.18143E-01,-0.76211E-02, 0.99760E-03
     & /
       real p68(0:37)
       data p68/
     & 0.42536E+02,-0.61968E+02, 0.25381E+02,-0.71174E+01, 0.10392E+01,
     &-0.16403E+00, 0.11292E+00, 0.99001E-01, 0.71626E-01, 0.81674E-02,
     & 0.50273E-01,-0.37672E-01, 0.13865E-01,-0.10503E-01,-0.10242E-01,
     &-0.37964E-02, 0.95931E-02,-0.22069E-01, 0.20372E-01,-0.16135E-01,
     & 0.13920E-01,-0.12554E-01, 0.64369E-02, 0.59482E-02,-0.12829E-01,
     & 0.85660E-02, 0.31935E-02,-0.13928E-01, 0.14571E-01,-0.10137E-02,
     &-0.16244E-01, 0.24053E-01,-0.23710E-01, 0.23363E-01,-0.23802E-01,
     & 0.18855E-01,-0.79557E-02, 0.10968E-02
     & /
       real p69(0:37)
       data p69/
     & 0.44012E+02,-0.64249E+02, 0.26449E+02,-0.74417E+01, 0.11054E+01,
     &-0.17239E+00, 0.11591E+00, 0.10001E+00, 0.72229E-01, 0.70660E-02,
     & 0.51524E-01,-0.39320E-01, 0.14499E-01,-0.10795E-01,-0.10402E-01,
     &-0.38398E-02, 0.10062E-01,-0.22844E-01, 0.21198E-01,-0.16784E-01,
     & 0.14492E-01,-0.13042E-01, 0.66703E-02, 0.61552E-02,-0.13294E-01,
     & 0.88740E-02, 0.33179E-02,-0.14439E-01, 0.15083E-01,-0.10346E-02,
     &-0.16849E-01, 0.24984E-01,-0.24670E-01, 0.24312E-01,-0.24733E-01,
     & 0.19582E-01,-0.82990E-02, 0.12002E-02
     & /
       real p70(0:37)
       data p70/
     & 0.45516E+02,-0.66575E+02, 0.27542E+02,-0.77752E+01, 0.11740E+01,
     &-0.18117E+00, 0.11894E+00, 0.10100E+00, 0.72829E-01, 0.59326E-02,
     & 0.52802E-01,-0.41000E-01, 0.15153E-01,-0.11091E-01,-0.10561E-01,
     &-0.38843E-02, 0.10541E-01,-0.23636E-01, 0.22043E-01,-0.17449E-01,
     & 0.15078E-01,-0.13541E-01, 0.69082E-02, 0.63661E-02,-0.13768E-01,
     & 0.91879E-02, 0.34450E-02,-0.14960E-01, 0.15603E-01,-0.10552E-02,
     &-0.17466E-01, 0.25934E-01,-0.25653E-01, 0.25284E-01,-0.25685E-01,
     & 0.20326E-01,-0.86511E-02, 0.13077E-02
     & /
       real p71(0:37)
       data p71/
     & 0.47047E+02,-0.68946E+02, 0.28659E+02,-0.81179E+01, 0.12450E+01,
     &-0.19036E+00, 0.12203E+00, 0.10197E+00, 0.73424E-01, 0.47675E-02,
     & 0.54108E-01,-0.42711E-01, 0.15826E-01,-0.11393E-01,-0.10719E-01,
     &-0.39301E-02, 0.11032E-01,-0.24445E-01, 0.22906E-01,-0.18130E-01,
     & 0.15678E-01,-0.14050E-01, 0.71508E-02, 0.65808E-02,-0.14250E-01,
     & 0.95077E-02, 0.35748E-02,-0.15490E-01, 0.16133E-01,-0.10757E-02,
     &-0.18095E-01, 0.26905E-01,-0.26659E-01, 0.26277E-01,-0.26658E-01,
     & 0.21086E-01,-0.90121E-02, 0.14195E-02
     & /
       real p72(0:37)
       data p72/
     & 0.48605E+02,-0.71362E+02, 0.29802E+02,-0.84701E+01, 0.13184E+01,
     &-0.19998E+00, 0.12518E+00, 0.10291E+00, 0.74015E-01, 0.35710E-02,
     & 0.55442E-01,-0.44454E-01, 0.16519E-01,-0.11699E-01,-0.10876E-01,
     &-0.39772E-02, 0.11533E-01,-0.25269E-01, 0.23787E-01,-0.18826E-01,
     & 0.16291E-01,-0.14570E-01, 0.73980E-02, 0.67993E-02,-0.14741E-01,
     & 0.98333E-02, 0.37073E-02,-0.16031E-01, 0.16672E-01,-0.10960E-02,
     &-0.18738E-01, 0.27896E-01,-0.27687E-01, 0.27294E-01,-0.27652E-01,
     & 0.21862E-01,-0.93820E-02, 0.15356E-02
     & /
       real p73(0:37)
       data p73/
     & 0.50190E+02,-0.73823E+02, 0.30971E+02,-0.88317E+01, 0.13943E+01,
     &-0.21003E+00, 0.12838E+00, 0.10384E+00, 0.74603E-01, 0.23434E-02,
     & 0.56805E-01,-0.46230E-01, 0.17232E-01,-0.12011E-01,-0.11031E-01,
     &-0.40257E-02, 0.12045E-01,-0.26111E-01, 0.24687E-01,-0.19539E-01,
     & 0.16918E-01,-0.15102E-01, 0.76499E-02, 0.70218E-02,-0.15242E-01,
     & 0.10165E-01, 0.38426E-02,-0.16582E-01, 0.17221E-01,-0.11160E-02,
     &-0.19392E-01, 0.28908E-01,-0.28738E-01, 0.28333E-01,-0.28667E-01,
     & 0.22654E-01,-0.97610E-02, 0.16562E-02
     & /
       real p74(0:37)
       data p74/
     & 0.51802E+02,-0.76330E+02, 0.32165E+02,-0.92030E+01, 0.14727E+01,
     &-0.22054E+00, 0.13164E+00, 0.10475E+00, 0.75188E-01, 0.10849E-02,
     & 0.58198E-01,-0.48037E-01, 0.17966E-01,-0.12328E-01,-0.11185E-01,
     &-0.40757E-02, 0.12569E-01,-0.26969E-01, 0.25605E-01,-0.20268E-01,
     & 0.17558E-01,-0.15644E-01, 0.79065E-02, 0.72481E-02,-0.15751E-01,
     & 0.10502E-01, 0.39806E-02,-0.17143E-01, 0.17779E-01,-0.11358E-02,
     &-0.20060E-01, 0.29941E-01,-0.29812E-01, 0.29395E-01,-0.29703E-01,
     & 0.23463E-01,-0.10149E-01, 0.17812E-02
     & /
       real p75(0:37)
       data p75/
     & 0.53442E+02,-0.78883E+02, 0.33385E+02,-0.95840E+01, 0.15537E+01,
     &-0.23150E+00, 0.13495E+00, 0.10563E+00, 0.75772E-01,-0.20413E-03,
     & 0.59621E-01,-0.49876E-01, 0.18720E-01,-0.12650E-01,-0.11337E-01,
     &-0.41272E-02, 0.13103E-01,-0.27844E-01, 0.26543E-01,-0.21014E-01,
     & 0.18212E-01,-0.16197E-01, 0.81677E-02, 0.74782E-02,-0.16270E-01,
     & 0.10846E-01, 0.41215E-02,-0.17714E-01, 0.18346E-01,-0.11554E-02,
     &-0.20740E-01, 0.30994E-01,-0.30909E-01, 0.30481E-01,-0.30762E-01,
     & 0.24288E-01,-0.10547E-01, 0.19108E-02
     & /
       real p76(0:37)
       data p76/
     & 0.55109E+02,-0.81481E+02, 0.34632E+02,-0.99748E+01, 0.16372E+01,
     &-0.24293E+00, 0.13832E+00, 0.10649E+00, 0.76354E-01,-0.15234E-02,
     & 0.61075E-01,-0.51746E-01, 0.19496E-01,-0.12977E-01,-0.11488E-01,
     &-0.41803E-02, 0.13648E-01,-0.28737E-01, 0.27499E-01,-0.21776E-01,
     & 0.18881E-01,-0.16762E-01, 0.84337E-02, 0.77123E-02,-0.16797E-01,
     & 0.11195E-01, 0.42651E-02,-0.18295E-01, 0.18923E-01,-0.11746E-02,
     &-0.21433E-01, 0.32069E-01,-0.32030E-01, 0.31590E-01,-0.31841E-01,
     & 0.25130E-01,-0.10953E-01, 0.20449E-02
     & /
       real p77(0:38)
       data p77/
     & 0.56805E+02,-0.84126E+02, 0.35905E+02,-0.10376E+02, 0.17233E+01,
     &-0.25484E+00, 0.14175E+00, 0.10733E+00, 0.76935E-01,-0.28721E-02,
     & 0.62562E-01,-0.53648E-01, 0.20294E-01,-0.13309E-01,-0.11637E-01,
     &-0.42352E-02, 0.14205E-01,-0.29646E-01, 0.28474E-01,-0.22555E-01,
     & 0.19564E-01,-0.17338E-01, 0.87045E-02, 0.79504E-02,-0.17334E-01,
     & 0.11551E-01, 0.44116E-02,-0.18887E-01, 0.19510E-01,-0.11936E-02,
     &-0.22139E-01, 0.33165E-01,-0.33175E-01, 0.32723E-01,-0.32944E-01,
     & 0.25989E-01,-0.11370E-01, 0.21839E-02,-0.59352E-02
     & /
       real p78(0:38)
       data p78/
     & 0.58535E+02,-0.86832E+02, 0.37215E+02,-0.10791E+02, 0.18127E+01,
     &-0.26738E+00, 0.14514E+00, 0.10815E+00, 0.77539E-01,-0.42319E-02,
     & 0.64121E-01,-0.55575E-01, 0.21132E-01,-0.13642E-01,-0.11783E-01,
     &-0.42931E-02, 0.14774E-01,-0.30582E-01, 0.29474E-01,-0.23359E-01,
     & 0.20265E-01,-0.17929E-01, 0.89798E-02, 0.81953E-02,-0.17884E-01,
     & 0.11915E-01, 0.45627E-02,-0.19494E-01, 0.20111E-01,-0.12138E-02,
     &-0.22862E-01, 0.34289E-01,-0.34354E-01, 0.33890E-01,-0.34076E-01,
     & 0.26871E-01,-0.11798E-01, 0.23289E-02,-0.61456E-02
     & /
       real p79(0:38)
       data p79/
     & 0.60293E+02,-0.89583E+02, 0.38551E+02,-0.11217E+02, 0.19047E+01,
     &-0.28041E+00, 0.14860E+00, 0.10894E+00, 0.78140E-01,-0.56231E-02,
     & 0.65708E-01,-0.57534E-01, 0.21991E-01,-0.13981E-01,-0.11928E-01,
     &-0.43528E-02, 0.15355E-01,-0.31533E-01, 0.30492E-01,-0.24178E-01,
     & 0.20980E-01,-0.18530E-01, 0.92599E-02, 0.84438E-02,-0.18443E-01,
     & 0.12285E-01, 0.47164E-02,-0.20111E-01, 0.20721E-01,-0.12335E-02,
     &-0.23597E-01, 0.35435E-01,-0.35556E-01, 0.35079E-01,-0.35230E-01,
     & 0.27769E-01,-0.12236E-01, 0.24785E-02,-0.63601E-02
     & /
       real p80(0:38)
       data p80/
     & 0.62078E+02,-0.92379E+02, 0.39913E+02,-0.11652E+02, 0.19994E+01,
     &-0.29393E+00, 0.15214E+00, 0.10971E+00, 0.78739E-01,-0.70455E-02,
     & 0.67325E-01,-0.59525E-01, 0.22870E-01,-0.14325E-01,-0.12071E-01,
     &-0.44142E-02, 0.15947E-01,-0.32502E-01, 0.31529E-01,-0.25015E-01,
     & 0.21709E-01,-0.19143E-01, 0.95449E-02, 0.86960E-02,-0.19011E-01,
     & 0.12661E-01, 0.48729E-02,-0.20738E-01, 0.21340E-01,-0.12527E-02,
     &-0.24344E-01, 0.36601E-01,-0.36781E-01, 0.36292E-01,-0.36406E-01,
     & 0.28683E-01,-0.12683E-01, 0.26330E-02,-0.65791E-02
     & /
       real p81(0:38)
       data p81/
     & 0.63889E+02,-0.95220E+02, 0.41300E+02,-0.12097E+02, 0.20968E+01,
     &-0.30795E+00, 0.15574E+00, 0.11046E+00, 0.79337E-01,-0.84989E-02,
     & 0.68970E-01,-0.61548E-01, 0.23769E-01,-0.14676E-01,-0.12212E-01,
     &-0.44775E-02, 0.16549E-01,-0.33487E-01, 0.32585E-01,-0.25867E-01,
     & 0.22452E-01,-0.19768E-01, 0.98347E-02, 0.89519E-02,-0.19587E-01,
     & 0.13042E-01, 0.50320E-02,-0.21374E-01, 0.21969E-01,-0.12713E-02,
     &-0.25105E-01, 0.37788E-01,-0.38029E-01, 0.37528E-01,-0.37603E-01,
     & 0.29614E-01,-0.13140E-01, 0.27922E-02,-0.68023E-02
     & /
       real p82(0:38)
       data p82/
     & 0.65728E+02,-0.98107E+02, 0.42714E+02,-0.12552E+02, 0.21969E+01,
     &-0.32249E+00, 0.15942E+00, 0.11119E+00, 0.79934E-01,-0.99831E-02,
     & 0.70645E-01,-0.63604E-01, 0.24689E-01,-0.15033E-01,-0.12352E-01,
     &-0.45428E-02, 0.17163E-01,-0.34490E-01, 0.33659E-01,-0.26737E-01,
     & 0.23210E-01,-0.20403E-01, 0.10129E-01, 0.92113E-02,-0.20172E-01,
     & 0.13429E-01, 0.51939E-02,-0.22021E-01, 0.22606E-01,-0.12895E-02,
     &-0.25879E-01, 0.38996E-01,-0.39301E-01, 0.38787E-01,-0.38822E-01,
     & 0.30562E-01,-0.13606E-01, 0.29563E-02,-0.70300E-02
     & /
       real p83(0:38)
       data p83/
     & 0.67594E+02,-0.10104E+03, 0.44154E+02,-0.13017E+02, 0.22998E+01,
     &-0.33756E+00, 0.16317E+00, 0.11189E+00, 0.80530E-01,-0.11498E-01,
     & 0.72350E-01,-0.65693E-01, 0.25630E-01,-0.15395E-01,-0.12490E-01,
     &-0.46100E-02, 0.17788E-01,-0.35509E-01, 0.34753E-01,-0.27623E-01,
     & 0.23981E-01,-0.21050E-01, 0.10429E-01, 0.94745E-02,-0.20766E-01,
     & 0.13823E-01, 0.53584E-02,-0.22677E-01, 0.23253E-01,-0.13070E-02,
     &-0.26666E-01, 0.40226E-01,-0.40597E-01, 0.40070E-01,-0.40062E-01,
     & 0.31527E-01,-0.14082E-01, 0.31254E-02,-0.72620E-02
     & /
       real p84(0:38)
       data p84/
     & 0.69487E+02,-0.10402E+03, 0.45619E+02,-0.13492E+02, 0.24055E+01,
     &-0.35316E+00, 0.16700E+00, 0.11258E+00, 0.81125E-01,-0.13043E-01,
     & 0.74086E-01,-0.67814E-01, 0.26591E-01,-0.15764E-01,-0.12627E-01,
     &-0.46793E-02, 0.18424E-01,-0.36545E-01, 0.35866E-01,-0.28525E-01,
     & 0.24768E-01,-0.21708E-01, 0.10734E-01, 0.97413E-02,-0.21369E-01,
     & 0.14222E-01, 0.55257E-02,-0.23343E-01, 0.23908E-01,-0.13240E-02,
     &-0.27465E-01, 0.41476E-01,-0.41916E-01, 0.41377E-01,-0.41325E-01,
     & 0.32508E-01,-0.14568E-01, 0.32995E-02,-0.74985E-02
     & /
       real p85(0:38)
       data p85/
     & 0.71408E+02,-0.10704E+03, 0.47112E+02,-0.13978E+02, 0.25141E+01,
     &-0.36930E+00, 0.17090E+00, 0.11324E+00, 0.81721E-01,-0.14619E-01,
     & 0.75851E-01,-0.69967E-01, 0.27574E-01,-0.16138E-01,-0.12761E-01,
     &-0.47507E-02, 0.19071E-01,-0.37598E-01, 0.36997E-01,-0.29445E-01,
     & 0.25568E-01,-0.22378E-01, 0.11043E-01, 0.10012E-01,-0.21981E-01,
     & 0.14626E-01, 0.56956E-02,-0.24019E-01, 0.24573E-01,-0.13403E-02,
     &-0.28278E-01, 0.42748E-01,-0.43259E-01, 0.42708E-01,-0.42610E-01,
     & 0.33507E-01,-0.15063E-01, 0.34786E-02,-0.77394E-02
     & /
       real p86(0:38)
       data p86/
     & 0.73355E+02,-0.11011E+03, 0.48631E+02,-0.14474E+02, 0.26255E+01,
     &-0.38600E+00, 0.17488E+00, 0.11388E+00, 0.82317E-01,-0.16224E-01,
     & 0.77649E-01,-0.72153E-01, 0.28578E-01,-0.16519E-01,-0.12894E-01,
     &-0.48243E-02, 0.19729E-01,-0.38669E-01, 0.38148E-01,-0.30382E-01,
     & 0.26383E-01,-0.23059E-01, 0.11358E-01, 0.10286E-01,-0.22601E-01,
     & 0.15037E-01, 0.58683E-02,-0.24705E-01, 0.25247E-01,-0.13560E-02,
     &-0.29104E-01, 0.44041E-01,-0.44626E-01, 0.44062E-01,-0.43916E-01,
     & 0.34522E-01,-0.15569E-01, 0.36628E-02,-0.79849E-02
     & /
       real p87(0:38)
       data p87/
     & 0.75331E+02,-0.11322E+03, 0.50177E+02,-0.14981E+02, 0.27398E+01,
     &-0.40326E+00, 0.17895E+00, 0.11449E+00, 0.82914E-01,-0.17860E-01,
     & 0.79477E-01,-0.74371E-01, 0.29603E-01,-0.16907E-01,-0.13025E-01,
     &-0.49002E-02, 0.20399E-01,-0.39757E-01, 0.39318E-01,-0.31336E-01,
     & 0.27213E-01,-0.23752E-01, 0.11678E-01, 0.10564E-01,-0.23230E-01,
     & 0.15453E-01, 0.60438E-02,-0.25401E-01, 0.25929E-01,-0.13711E-02,
     &-0.29944E-01, 0.45356E-01,-0.46018E-01, 0.45441E-01,-0.45246E-01,
     & 0.35555E-01,-0.16084E-01, 0.38523E-02,-0.82349E-02
     & /
       real p88(0:38)
       data p88/
     & 0.77333E+02,-0.11639E+03, 0.51749E+02,-0.15498E+02, 0.28570E+01,
     &-0.42110E+00, 0.18309E+00, 0.11509E+00, 0.83512E-01,-0.19525E-01,
     & 0.81337E-01,-0.76622E-01, 0.30651E-01,-0.17300E-01,-0.13154E-01,
     &-0.49785E-02, 0.21080E-01,-0.40862E-01, 0.40507E-01,-0.32307E-01,
     & 0.28057E-01,-0.24457E-01, 0.12002E-01, 0.10845E-01,-0.23868E-01,
     & 0.15876E-01, 0.62219E-02,-0.26107E-01, 0.26621E-01,-0.13855E-02,
     &-0.30796E-01, 0.46692E-01,-0.47433E-01, 0.46844E-01,-0.46597E-01,
     & 0.36606E-01,-0.16609E-01, 0.40470E-02,-0.84895E-02
     & /
       real p89(0:38)
       data p89/
     & 0.79363E+02,-0.11959E+03, 0.53348E+02,-0.16026E+02, 0.29772E+01,
     &-0.43952E+00, 0.18731E+00, 0.11566E+00, 0.84112E-01,-0.21220E-01,
     & 0.83230E-01,-0.78905E-01, 0.31720E-01,-0.17700E-01,-0.13281E-01,
     &-0.50592E-02, 0.21772E-01,-0.41985E-01, 0.41716E-01,-0.33296E-01,
     & 0.28917E-01,-0.25173E-01, 0.12332E-01, 0.11130E-01,-0.24514E-01,
     & 0.16304E-01, 0.64029E-02,-0.26822E-01, 0.27322E-01,-0.13991E-02,
     &-0.31662E-01, 0.48050E-01,-0.48873E-01, 0.48271E-01,-0.47971E-01,
     & 0.37673E-01,-0.17145E-01, 0.42470E-02,-0.87486E-02
     & /
       real p90(0:38)
       data p90/
     & 0.81421E+02,-0.12285E+03, 0.54975E+02,-0.16564E+02, 0.31004E+01,
     &-0.45853E+00, 0.19162E+00, 0.11621E+00, 0.84714E-01,-0.22944E-01,
     & 0.85155E-01,-0.81221E-01, 0.32811E-01,-0.18106E-01,-0.13406E-01,
     &-0.51423E-02, 0.22475E-01,-0.43126E-01, 0.42944E-01,-0.34302E-01,
     & 0.29791E-01,-0.25901E-01, 0.12667E-01, 0.11419E-01,-0.25169E-01,
     & 0.16738E-01, 0.65866E-02,-0.27548E-01, 0.28032E-01,-0.14120E-02,
     &-0.32541E-01, 0.49430E-01,-0.50338E-01, 0.49723E-01,-0.49368E-01,
     & 0.38758E-01,-0.17690E-01, 0.44524E-02,-0.90124E-02
     & /
       real p91(0:38)
       data p91/
     & 0.83506E+02,-0.12615E+03, 0.56629E+02,-0.17114E+02, 0.32267E+01,
     &-0.47815E+00, 0.19601E+00, 0.11673E+00, 0.85319E-01,-0.24698E-01,
     & 0.87113E-01,-0.83569E-01, 0.33925E-01,-0.18519E-01,-0.13529E-01,
     &-0.52280E-02, 0.23190E-01,-0.44284E-01, 0.44192E-01,-0.35326E-01,
     & 0.30680E-01,-0.26641E-01, 0.13007E-01, 0.11711E-01,-0.25834E-01,
     & 0.17178E-01, 0.67731E-02,-0.28284E-01, 0.28752E-01,-0.14242E-02,
     &-0.33434E-01, 0.50832E-01,-0.51827E-01, 0.51199E-01,-0.50788E-01,
     & 0.39861E-01,-0.18246E-01, 0.46632E-02,-0.92809E-02
     & /
       real p92(0:38)
       data p92/
     & 0.85618E+02,-0.12949E+03, 0.58310E+02,-0.17675E+02, 0.33561E+01,
     &-0.49837E+00, 0.20049E+00, 0.11723E+00, 0.85926E-01,-0.26480E-01,
     & 0.89105E-01,-0.85950E-01, 0.35061E-01,-0.18939E-01,-0.13650E-01,
     &-0.53163E-02, 0.23916E-01,-0.45460E-01, 0.45459E-01,-0.36367E-01,
     & 0.31584E-01,-0.27393E-01, 0.13352E-01, 0.12007E-01,-0.26507E-01,
     & 0.17624E-01, 0.69623E-02,-0.29030E-01, 0.29480E-01,-0.14356E-02,
     &-0.34341E-01, 0.52256E-01,-0.53342E-01, 0.52700E-01,-0.52230E-01,
     & 0.40981E-01,-0.18813E-01, 0.48796E-02,-0.95540E-02
     & /
       real p93(0:38)
       data p93/
     & 0.87758E+02,-0.13289E+03, 0.60019E+02,-0.18246E+02, 0.34885E+01,
     &-0.51922E+00, 0.20505E+00, 0.11771E+00, 0.86537E-01,-0.28291E-01,
     & 0.91130E-01,-0.88363E-01, 0.36219E-01,-0.19365E-01,-0.13768E-01,
     &-0.54074E-02, 0.24653E-01,-0.46654E-01, 0.46746E-01,-0.37427E-01,
     & 0.32504E-01,-0.28157E-01, 0.13702E-01, 0.12306E-01,-0.27189E-01,
     & 0.18075E-01, 0.71544E-02,-0.29786E-01, 0.30217E-01,-0.14462E-02,
     &-0.35261E-01, 0.53702E-01,-0.54881E-01, 0.54227E-01,-0.53696E-01,
     & 0.42119E-01,-0.19389E-01, 0.51015E-02,-0.98319E-02
     & /
       real p94(0:38)
       data p94/
     & 0.89927E+02,-0.13633E+03, 0.61756E+02,-0.18829E+02, 0.36241E+01,
     &-0.54071E+00, 0.20970E+00, 0.11817E+00, 0.87153E-01,-0.30130E-01,
     & 0.93191E-01,-0.90808E-01, 0.37402E-01,-0.19798E-01,-0.13885E-01,
     &-0.55012E-02, 0.25402E-01,-0.47866E-01, 0.48053E-01,-0.38504E-01,
     & 0.33439E-01,-0.28933E-01, 0.14058E-01, 0.12610E-01,-0.27879E-01,
     & 0.18533E-01, 0.73493E-02,-0.30552E-01, 0.30964E-01,-0.14558E-02,
     &-0.36194E-01, 0.55170E-01,-0.56446E-01, 0.55779E-01,-0.55185E-01,
     & 0.43275E-01,-0.19977E-01, 0.53292E-02,-0.10115E-01
     & /
       real p95(0:38)
       data p95/
     & 0.92131E+02,-0.13983E+03, 0.63534E+02,-0.19430E+02, 0.37642E+01,
     &-0.56307E+00, 0.21437E+00, 0.11860E+00, 0.87799E-01,-0.31976E-01,
     & 0.95322E-01,-0.93280E-01, 0.38626E-01,-0.20238E-01,-0.13997E-01,
     &-0.55996E-02, 0.26162E-01,-0.49103E-01, 0.49384E-01,-0.39608E-01,
     & 0.34395E-01,-0.29727E-01, 0.14422E-01, 0.12916E-01,-0.28580E-01,
     & 0.18998E-01, 0.75478E-02,-0.31330E-01, 0.31720E-01,-0.14627E-02,
     &-0.37147E-01, 0.56669E-01,-0.58045E-01, 0.57365E-01,-0.56705E-01,
     & 0.44456E-01,-0.20580E-01, 0.55662E-02,-0.10404E-01
     & /
       real p96(0:38)
       data p96/
     & 0.94363E+02,-0.14338E+03, 0.65338E+02,-0.20041E+02, 0.39073E+01,
     &-0.58606E+00, 0.21914E+00, 0.11902E+00, 0.88447E-01,-0.33853E-01,
     & 0.97485E-01,-0.95786E-01, 0.39871E-01,-0.20685E-01,-0.14107E-01,
     &-0.57008E-02, 0.26934E-01,-0.50356E-01, 0.50735E-01,-0.40729E-01,
     & 0.35366E-01,-0.30533E-01, 0.14791E-01, 0.13225E-01,-0.29290E-01,
     & 0.19468E-01, 0.77491E-02,-0.32118E-01, 0.32486E-01,-0.14689E-02,
     &-0.38113E-01, 0.58190E-01,-0.59669E-01, 0.58976E-01,-0.58249E-01,
     & 0.45655E-01,-0.21193E-01, 0.58087E-02,-0.10698E-01
     & /
       real p97(0:38)
       data p97/
     & 0.96622E+02,-0.14698E+03, 0.67170E+02,-0.20663E+02, 0.40535E+01,
     &-0.60969E+00, 0.22401E+00, 0.11940E+00, 0.89097E-01,-0.35759E-01,
     & 0.99680E-01,-0.98324E-01, 0.41139E-01,-0.21139E-01,-0.14215E-01,
     &-0.58048E-02, 0.27717E-01,-0.51628E-01, 0.52106E-01,-0.41867E-01,
     & 0.36352E-01,-0.31350E-01, 0.15165E-01, 0.13539E-01,-0.30008E-01,
     & 0.19945E-01, 0.79532E-02,-0.32916E-01, 0.33261E-01,-0.14744E-02,
     &-0.39093E-01, 0.59733E-01,-0.61318E-01, 0.60612E-01,-0.59815E-01,
     & 0.46870E-01,-0.21817E-01, 0.60567E-02,-0.10997E-01
     & /
       real p98(0:38)
       data p98/
     & 0.98908E+02,-0.15062E+03, 0.69028E+02,-0.21296E+02, 0.42030E+01,
     &-0.63397E+00, 0.22898E+00, 0.11977E+00, 0.89751E-01,-0.37696E-01,
     & 0.10191E+00,-0.10090E+00, 0.42428E-01,-0.21600E-01,-0.14321E-01,
     &-0.59116E-02, 0.28512E-01,-0.52917E-01, 0.53496E-01,-0.43023E-01,
     & 0.37353E-01,-0.32180E-01, 0.15545E-01, 0.13856E-01,-0.30735E-01,
     & 0.20427E-01, 0.81600E-02,-0.33723E-01, 0.34044E-01,-0.14791E-02,
     &-0.40085E-01, 0.61297E-01,-0.62992E-01, 0.62272E-01,-0.61404E-01,
     & 0.48104E-01,-0.22450E-01, 0.63102E-02,-0.11301E-01
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  21,  21,  21,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  38,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38,  38,  38,  38
     &,  38,  38,  38,  38,  38,  38,  38
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.21) param(i,15) = p15(i)
             if (i.le.21) param(i,16) = p16(i)
             if (i.le.21) param(i,17) = p17(i)
             if (i.le.22) param(i,18) = p18(i)
             if (i.le.22) param(i,19) = p19(i)
             if (i.le.22) param(i,20) = p20(i)
             if (i.le.22) param(i,21) = p21(i)
             if (i.le.22) param(i,22) = p22(i)
             if (i.le.22) param(i,23) = p23(i)
             if (i.le.22) param(i,24) = p24(i)
             if (i.le.22) param(i,25) = p25(i)
             if (i.le.22) param(i,26) = p26(i)
             if (i.le.22) param(i,27) = p27(i)
             if (i.le.22) param(i,28) = p28(i)
             if (i.le.22) param(i,29) = p29(i)
             if (i.le.22) param(i,30) = p30(i)
             if (i.le.22) param(i,31) = p31(i)
             if (i.le.22) param(i,32) = p32(i)
             if (i.le.22) param(i,33) = p33(i)
             if (i.le.22) param(i,34) = p34(i)
             if (i.le.22) param(i,35) = p35(i)
             if (i.le.22) param(i,36) = p36(i)
             if (i.le.22) param(i,37) = p37(i)
             if (i.le.22) param(i,38) = p38(i)
             if (i.le.22) param(i,39) = p39(i)
             if (i.le.22) param(i,40) = p40(i)
             if (i.le.22) param(i,41) = p41(i)
             if (i.le.22) param(i,42) = p42(i)
             if (i.le.22) param(i,43) = p43(i)
             if (i.le.22) param(i,44) = p44(i)
             if (i.le.22) param(i,45) = p45(i)
             if (i.le.22) param(i,46) = p46(i)
             if (i.le.22) param(i,47) = p47(i)
             if (i.le.22) param(i,48) = p48(i)
             if (i.le.22) param(i,49) = p49(i)
             if (i.le.22) param(i,50) = p50(i)
             if (i.le.37) param(i,51) = p51(i)
             if (i.le.37) param(i,52) = p52(i)
             if (i.le.37) param(i,53) = p53(i)
             if (i.le.37) param(i,54) = p54(i)
             if (i.le.37) param(i,55) = p55(i)
             if (i.le.37) param(i,56) = p56(i)
             if (i.le.37) param(i,57) = p57(i)
             if (i.le.37) param(i,58) = p58(i)
             if (i.le.37) param(i,59) = p59(i)
             if (i.le.37) param(i,60) = p60(i)
             if (i.le.37) param(i,61) = p61(i)
             if (i.le.37) param(i,62) = p62(i)
             if (i.le.37) param(i,63) = p63(i)
             if (i.le.37) param(i,64) = p64(i)
             if (i.le.37) param(i,65) = p65(i)
             if (i.le.37) param(i,66) = p66(i)
             if (i.le.37) param(i,67) = p67(i)
             if (i.le.37) param(i,68) = p68(i)
             if (i.le.37) param(i,69) = p69(i)
             if (i.le.37) param(i,70) = p70(i)
             if (i.le.37) param(i,71) = p71(i)
             if (i.le.37) param(i,72) = p72(i)
             if (i.le.37) param(i,73) = p73(i)
             if (i.le.37) param(i,74) = p74(i)
             if (i.le.37) param(i,75) = p75(i)
             if (i.le.37) param(i,76) = p76(i)
             if (i.le.38) param(i,77) = p77(i)
             if (i.le.38) param(i,78) = p78(i)
             if (i.le.38) param(i,79) = p79(i)
             if (i.le.38) param(i,80) = p80(i)
             if (i.le.38) param(i,81) = p81(i)
             if (i.le.38) param(i,82) = p82(i)
             if (i.le.38) param(i,83) = p83(i)
             if (i.le.38) param(i,84) = p84(i)
             if (i.le.38) param(i,85) = p85(i)
             if (i.le.38) param(i,86) = p86(i)
             if (i.le.38) param(i,87) = p87(i)
             if (i.le.38) param(i,88) = p88(i)
             if (i.le.38) param(i,89) = p89(i)
             if (i.le.38) param(i,90) = p90(i)
             if (i.le.38) param(i,91) = p91(i)
             if (i.le.38) param(i,92) = p92(i)
             if (i.le.38) param(i,93) = p93(i)
             if (i.le.38) param(i,94) = p94(i)
             if (i.le.38) param(i,95) = p95(i)
             if (i.le.38) param(i,96) = p96(i)
             if (i.le.38) param(i,97) = p97(i)
             if (i.le.38) param(i,98) = p98(i)
          enddo
       endif
            
       w2cpct5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       w2cpct5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w2cpct5d00=0.0
       if (q2.lt.q2min) w2cpct5d00=0.0
       if ( x.gt. xmax) w2cpct5d00=0.0
       if ( x.lt. xmin) w2cpct5d00=0.0
       return
       end
       real function  w3cpct5d00(xin,q2in)
***********************************************************
c  parametrization of w3cpct5d00 from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=       4.000
c*         
c  warning : for q2 or x outside limits, the closest limit 
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  output : f2p 
c  library : cernlib (mathlib) for tchebytchev poly. routine
c  comments, etc... to c. pascaud or f. zomer
***********************************************************
       real x,q2,q2min,q2max,xin,q2in
       double precision xmax,xmin,coef(0:100),f(2)
       parameter(nq= 98,xmax= 0.970000,xmin= 0.000011)
       parameter(q2min=      4.000,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.066,     1.196,     1.341,     1.505,     1.688,     1.894
     &,     2.125,     2.250,     2.384,     2.674,     3.000,     3.366
     &,     3.776,     4.000,     4.236,     4.752,     5.331,     5.981
     &,     6.710,     7.527,     8.445,     9.474,    10.628,    11.924
     &,    13.377,    15.007,    16.836,    18.887,    21.189,    23.771
     &,    25.000,    26.668,    29.918,    33.564,    37.654,    42.242
     &,    47.390,    53.165,    59.644,    66.913,    75.067,    84.215
     &,    94.478,   105.991,   118.908,   133.398,   149.655,   167.892
     &,   188.352,   211.305,   237.056,   265.945,   298.354,   334.712
     &,   375.501,   421.261,   472.598,   530.191,   594.802,   667.286
     &,   748.604,   839.832,   942.177,  1056.995,  1185.804,  1330.311
     &,  1492.428,  1674.301,  1878.337,  2107.239,  2364.035,  2652.125
     &,  2975.324,  3337.908,  3744.678,  4201.019,  4712.972,  5287.312
     &,  5931.645,  6654.498,  7465.440,  8375.208,  9395.843, 10540.856
     &, 11825.405, 13266.495, 14883.201, 16696.925, 18731.676, 21014.390
     &, 23575.285, 26448.260, 29671.346, 33287.211, 37343.718, 41894.567
     &, 47000.000
     & /
       save param
       real p15(0:34)
       data p15/
     & 0.28614E+00,-0.19438E-01,-0.19794E-01,-0.12913E+00,-0.11666E+00,
     &-0.65762E-01,-0.14541E-01, 0.16582E-01, 0.26040E-01, 0.21541E-01,
     & 0.12521E-01, 0.46819E-02, 0.82667E-03,-0.17506E-03, 0.12700E-03,
     & 0.43400E-03, 0.16906E-03,-0.54714E-03,-0.98761E-03,-0.11926E-02,
     &-0.85484E-03,-0.39059E-03, 0.13147E-03, 0.37875E-03, 0.31379E-03,
     & 0.20479E-03,-0.13125E-04,-0.18090E-03,-0.11209E-03,-0.10851E-03,
     &-0.63708E-04, 0.10178E-03, 0.26962E-04, 0.84544E-04,-0.48957E-04
     & /
       real p16(0:34)
       data p16/
     & 0.29720E+00,-0.21203E-01,-0.21412E-01,-0.13434E+00,-0.12059E+00,
     &-0.67381E-01,-0.14314E-01, 0.17642E-01, 0.27112E-01, 0.22231E-01,
     & 0.12808E-01, 0.47015E-02, 0.75872E-03,-0.23601E-03, 0.99223E-04,
     & 0.42494E-03, 0.15495E-03,-0.57937E-03,-0.10236E-02,-0.12259E-02,
     &-0.87064E-03,-0.39150E-03, 0.14380E-03, 0.39325E-03, 0.32138E-03,
     & 0.20779E-03,-0.16300E-04,-0.18750E-03,-0.11392E-03,-0.10990E-03,
     &-0.64504E-04, 0.10619E-03, 0.27199E-04, 0.86866E-04,-0.51582E-04
     & /
       real p17(0:34)
       data p17/
     & 0.31927E+00,-0.24903E-01,-0.24788E-01,-0.14475E+00,-0.12832E+00,
     &-0.70442E-01,-0.13730E-01, 0.19815E-01, 0.29246E-01, 0.23574E-01,
     & 0.13341E-01, 0.47131E-02, 0.60822E-03,-0.36447E-03, 0.40182E-04,
     & 0.40401E-03, 0.12461E-03,-0.64437E-03,-0.10943E-02,-0.12897E-02,
     &-0.89916E-03,-0.39114E-03, 0.16928E-03, 0.42188E-03, 0.33562E-03,
     & 0.21298E-03,-0.22972E-04,-0.20052E-03,-0.11715E-03,-0.11222E-03,
     &-0.65900E-04, 0.11500E-03, 0.27508E-04, 0.91332E-04,-0.56912E-04
     & /
       real p18(0:34)
       data p18/
     & 0.34122E+00,-0.28735E-01,-0.28267E-01,-0.15510E+00,-0.13587E+00,
     &-0.73330E-01,-0.13053E-01, 0.21995E-01, 0.31336E-01, 0.24859E-01,
     & 0.13830E-01, 0.47012E-02, 0.45043E-03,-0.49317E-03,-0.17337E-04,
     & 0.38426E-03, 0.95629E-04,-0.70690E-03,-0.11614E-02,-0.13497E-02,
     &-0.92481E-03,-0.38957E-03, 0.19462E-03, 0.44957E-03, 0.34877E-03,
     & 0.21758E-03,-0.29641E-04,-0.21321E-03,-0.11999E-03,-0.11426E-03,
     &-0.67368E-04, 0.12362E-03, 0.27612E-04, 0.95594E-04,-0.62203E-04
     & /
       real p19(0:34)
       data p19/
     & 0.36302E+00,-0.32726E-01,-0.31871E-01,-0.16539E+00,-0.14324E+00,
     &-0.76022E-01,-0.12256E-01, 0.24203E-01, 0.33390E-01, 0.26089E-01,
     & 0.14273E-01, 0.46620E-02, 0.28132E-03,-0.62507E-03,-0.75715E-04,
     & 0.36371E-03, 0.66299E-04,-0.76826E-03,-0.12256E-02,-0.14060E-02,
     &-0.94721E-03,-0.38619E-03, 0.22025E-03, 0.47647E-03, 0.36081E-03,
     & 0.22142E-03,-0.36463E-04,-0.22558E-03,-0.12235E-03,-0.11590E-03,
     &-0.68758E-04, 0.13210E-03, 0.27519E-04, 0.99651E-04,-0.67511E-04
     & /
       real p20(0:34)
       data p20/
     & 0.38468E+00,-0.36902E-01,-0.35625E-01,-0.17563E+00,-0.15041E+00,
     &-0.78493E-01,-0.11312E-01, 0.26457E-01, 0.35421E-01, 0.27267E-01,
     & 0.14667E-01, 0.45913E-02, 0.96877E-04,-0.76314E-03,-0.13731E-03,
     & 0.34038E-03, 0.34913E-04,-0.82977E-03,-0.12877E-02,-0.14587E-02,
     &-0.96598E-03,-0.38041E-03, 0.24657E-03, 0.50271E-03, 0.37171E-03,
     & 0.22433E-03,-0.43594E-04,-0.23764E-03,-0.12419E-03,-0.11705E-03,
     &-0.69923E-04, 0.14052E-03, 0.27234E-04, 0.10350E-03,-0.72890E-04
     & /
       real p21(0:34)
       data p21/
     & 0.40619E+00,-0.41250E-01,-0.39516E-01,-0.18582E+00,-0.15739E+00,
     &-0.80758E-01,-0.10236E-01, 0.28752E-01, 0.37426E-01, 0.28394E-01,
     & 0.15016E-01, 0.44920E-02,-0.10102E-03,-0.90619E-03,-0.20137E-03,
     & 0.31486E-03, 0.19345E-05,-0.89116E-03,-0.13476E-02,-0.15080E-02,
     &-0.98142E-03,-0.37250E-03, 0.27343E-03, 0.52829E-03, 0.38155E-03,
     & 0.22642E-03,-0.50978E-04,-0.24939E-03,-0.12553E-03,-0.11775E-03,
     &-0.70900E-04, 0.14884E-03, 0.26772E-04, 0.10717E-03,-0.78331E-04
     & /
       real p22(0:34)
       data p22/
     & 0.42756E+00,-0.45756E-01,-0.43534E-01,-0.19596E+00,-0.16419E+00,
     &-0.82832E-01,-0.90400E-02, 0.31078E-01, 0.39403E-01, 0.29471E-01,
     & 0.15322E-01, 0.43669E-02,-0.31050E-03,-0.10531E-02,-0.26715E-03,
     & 0.28774E-03,-0.32173E-04,-0.95216E-03,-0.14053E-02,-0.15541E-02,
     &-0.99384E-03,-0.36272E-03, 0.30065E-03, 0.55316E-03, 0.39040E-03,
     & 0.22776E-03,-0.58559E-04,-0.26083E-03,-0.12642E-03,-0.11808E-03,
     &-0.71722E-04, 0.15707E-03, 0.26142E-04, 0.11068E-03,-0.83821E-04
     & /
       real p23(0:34)
       data p23/
     & 0.44881E+00,-0.50407E-01,-0.47665E-01,-0.20604E+00,-0.17082E+00,
     &-0.84730E-01,-0.77372E-02, 0.33429E-01, 0.41350E-01, 0.30502E-01,
     & 0.15588E-01, 0.42186E-02,-0.52966E-03,-0.12026E-02,-0.33390E-03,
     & 0.25960E-03,-0.66944E-04,-0.10125E-02,-0.14607E-02,-0.15972E-02,
     &-0.10035E-02,-0.35134E-03, 0.32809E-03, 0.57731E-03, 0.39833E-03,
     & 0.22846E-03,-0.66283E-04,-0.27194E-03,-0.12689E-03,-0.11807E-03,
     &-0.72423E-04, 0.16519E-03, 0.25359E-04, 0.11405E-03,-0.89349E-04
     & /
       real p24(0:36)
       data p24/
     & 0.47001E+00,-0.55106E-01,-0.51825E-01,-0.21605E+00,-0.17734E+00,
     &-0.86553E-01,-0.64229E-02, 0.35743E-01, 0.43243E-01, 0.31490E-01,
     & 0.15832E-01, 0.40664E-02,-0.74447E-03,-0.13449E-02,-0.39515E-03,
     & 0.23591E-03,-0.98243E-04,-0.10694E-02,-0.15128E-02,-0.16385E-02,
     &-0.10125E-02,-0.34030E-03, 0.35429E-03, 0.60027E-03, 0.40581E-03,
     & 0.22924E-03,-0.73689E-04,-0.28262E-03,-0.12721E-03,-0.11817E-03,
     &-0.73315E-04, 0.17304E-03, 0.24511E-04, 0.11742E-03,-0.94799E-04,
     & 0.33800E-04,-0.68512E-04
     & /
       real p25(0:36)
       data p25/
     & 0.49109E+00,-0.59941E-01,-0.56092E-01,-0.22602E+00,-0.18370E+00,
     &-0.88210E-01,-0.50110E-02, 0.38076E-01, 0.45107E-01, 0.32433E-01,
     & 0.16039E-01, 0.38933E-02,-0.96768E-03,-0.14893E-02,-0.45703E-03,
     & 0.21139E-03,-0.13003E-03,-0.11256E-02,-0.15628E-02,-0.16769E-02,
     &-0.10190E-02,-0.32785E-03, 0.38064E-03, 0.62254E-03, 0.41243E-03,
     & 0.22942E-03,-0.81209E-04,-0.29300E-03,-0.12715E-03,-0.11797E-03,
     &-0.74100E-04, 0.18079E-03, 0.23516E-04, 0.12068E-03,-0.10029E-03,
     & 0.35803E-04,-0.70291E-04
     & /
       real p26(0:36)
       data p26/
     & 0.51205E+00,-0.64909E-01,-0.60464E-01,-0.23593E+00,-0.18990E+00,
     &-0.89706E-01,-0.35022E-02, 0.40430E-01, 0.46943E-01, 0.33332E-01,
     & 0.16210E-01, 0.36994E-02,-0.11993E-02,-0.16359E-02,-0.51967E-03,
     & 0.18590E-03,-0.16239E-03,-0.11812E-02,-0.16108E-02,-0.17126E-02,
     &-0.10231E-02,-0.31401E-03, 0.40718E-03, 0.64418E-03, 0.41821E-03,
     & 0.22901E-03,-0.88847E-04,-0.30310E-03,-0.12672E-03,-0.11748E-03,
     &-0.74772E-04, 0.18843E-03, 0.22374E-04, 0.12381E-03,-0.10582E-03,
     & 0.37839E-04,-0.71968E-04
     & /
       real p27(0:36)
       data p27/
     & 0.53290E+00,-0.70003E-01,-0.64933E-01,-0.24580E+00,-0.19596E+00,
     &-0.91048E-01,-0.19050E-02, 0.42800E-01, 0.48748E-01, 0.34189E-01,
     & 0.16348E-01, 0.34867E-02,-0.14380E-02,-0.17842E-02,-0.58263E-03,
     & 0.15976E-03,-0.19508E-03,-0.12361E-02,-0.16569E-02,-0.17457E-02,
     &-0.10250E-02,-0.29896E-03, 0.43382E-03, 0.66518E-03, 0.42320E-03,
     & 0.22806E-03,-0.96572E-04,-0.31292E-03,-0.12595E-03,-0.11672E-03,
     &-0.75351E-04, 0.19597E-03, 0.21093E-04, 0.12683E-03,-0.11139E-03,
     & 0.39908E-04,-0.73548E-04
     & /
       real p28(0:36)
       data p28/
     & 0.55365E+00,-0.75214E-01,-0.69494E-01,-0.25561E+00,-0.20187E+00,
     &-0.92249E-01,-0.22758E-03, 0.45182E-01, 0.50524E-01, 0.35006E-01,
     & 0.16453E-01, 0.32569E-02,-0.16827E-02,-0.19333E-02,-0.64549E-03,
     & 0.13329E-03,-0.22782E-03,-0.12901E-02,-0.17011E-02,-0.17763E-02,
     &-0.10248E-02,-0.28286E-03, 0.46047E-03, 0.68555E-03, 0.42745E-03,
     & 0.22663E-03,-0.10435E-03,-0.32246E-03,-0.12485E-03,-0.11573E-03,
     &-0.75856E-04, 0.20338E-03, 0.19680E-04, 0.12977E-03,-0.11699E-03,
     & 0.42010E-04,-0.75037E-04
     & /
       real p29(0:36)
       data p29/
     & 0.57431E+00,-0.80533E-01,-0.74136E-01,-0.26537E+00,-0.20764E+00,
     &-0.93316E-01, 0.15215E-02, 0.47570E-01, 0.52268E-01, 0.35782E-01,
     & 0.16529E-01, 0.30120E-02,-0.19322E-02,-0.20827E-02,-0.70782E-03,
     & 0.10679E-03,-0.26038E-03,-0.13432E-02,-0.17434E-02,-0.18047E-02,
     &-0.10229E-02,-0.26590E-03, 0.48705E-03, 0.70528E-03, 0.43101E-03,
     & 0.22477E-03,-0.11215E-03,-0.33173E-03,-0.12346E-03,-0.11455E-03,
     &-0.76306E-04, 0.21068E-03, 0.18142E-04, 0.13263E-03,-0.12262E-03,
     & 0.44144E-04,-0.76441E-04
     & /
       real p30(0:36)
       data p30/
     & 0.59491E+00,-0.85894E-01,-0.78806E-01,-0.27507E+00,-0.21332E+00,
     &-0.94320E-01, 0.32793E-02, 0.49927E-01, 0.53969E-01, 0.36525E-01,
     & 0.16589E-01, 0.27646E-02,-0.21770E-02,-0.22262E-02,-0.76534E-03,
     & 0.83392E-04,-0.28989E-03,-0.13937E-02,-0.17835E-02,-0.18313E-02,
     &-0.10206E-02,-0.24952E-03, 0.51274E-03, 0.72427E-03, 0.43411E-03,
     & 0.22295E-03,-0.11969E-03,-0.34065E-03,-0.12202E-03,-0.11344E-03,
     &-0.76826E-04, 0.21768E-03, 0.16537E-04, 0.13556E-03,-0.12830E-03,
     & 0.46349E-04,-0.77758E-04
     & /
       real p31(0:36)
       data p31/
     & 0.61548E+00,-0.91275E-01,-0.83482E-01,-0.28471E+00,-0.21892E+00,
     &-0.95285E-01, 0.50240E-02, 0.52238E-01, 0.55621E-01, 0.37236E-01,
     & 0.16636E-01, 0.25194E-02,-0.24139E-02,-0.23620E-02,-0.81670E-03,
     & 0.64082E-04,-0.31545E-03,-0.14412E-02,-0.18212E-02,-0.18567E-02,
     &-0.10184E-02,-0.23418E-03, 0.53729E-03, 0.74249E-03, 0.43687E-03,
     & 0.22130E-03,-0.12689E-03,-0.34920E-03,-0.12059E-03,-0.11250E-03,
     &-0.77461E-04, 0.22436E-03, 0.14884E-04, 0.13862E-03,-0.13403E-03,
     & 0.48631E-04,-0.78993E-04
     & /
       real p32(0:36)
       data p32/
     & 0.62447E+00,-0.93669E-01,-0.85559E-01,-0.28892E+00,-0.22134E+00,
     &-0.95666E-01, 0.58120E-02, 0.53255E-01, 0.56337E-01, 0.37535E-01,
     & 0.16648E-01, 0.24071E-02,-0.25195E-02,-0.24217E-02,-0.83922E-03,
     & 0.55481E-04,-0.32675E-03,-0.14618E-02,-0.18373E-02,-0.18671E-02,
     &-0.10169E-02,-0.22716E-03, 0.54806E-03, 0.75029E-03, 0.43788E-03,
     & 0.22044E-03,-0.13006E-03,-0.35288E-03,-0.11986E-03,-0.11202E-03,
     &-0.77724E-04, 0.22727E-03, 0.14120E-04, 0.13993E-03,-0.13654E-03,
     & 0.49637E-04,-0.79513E-04
     & /
       real p33(0:36)
       data p33/
     & 0.63596E+00,-0.96766E-01,-0.88242E-01,-0.29430E+00,-0.22439E+00,
     &-0.96119E-01, 0.68412E-02, 0.54559E-01, 0.57246E-01, 0.37909E-01,
     & 0.16655E-01, 0.22591E-02,-0.26560E-02,-0.24985E-02,-0.86807E-03,
     & 0.44366E-04,-0.34129E-03,-0.14880E-02,-0.18574E-02,-0.18799E-02,
     &-0.10145E-02,-0.21790E-03, 0.56185E-03, 0.76013E-03, 0.43900E-03,
     & 0.21921E-03,-0.13412E-03,-0.35753E-03,-0.11885E-03,-0.11135E-03,
     &-0.78049E-04, 0.23097E-03, 0.13106E-04, 0.14158E-03,-0.13976E-03,
     & 0.50929E-04,-0.80163E-04
     & /
       real p34(0:36)
       data p34/
     & 0.65635E+00,-0.10236E+00,-0.93082E-01,-0.30385E+00,-0.22973E+00,
     &-0.96827E-01, 0.87263E-02, 0.56888E-01, 0.58842E-01, 0.38547E-01,
     & 0.16647E-01, 0.19850E-02,-0.29025E-02,-0.26354E-02,-0.91930E-03,
     & 0.24374E-04,-0.36732E-03,-0.15340E-02,-0.18920E-02,-0.19011E-02,
     &-0.10089E-02,-0.20076E-03, 0.58636E-03, 0.77719E-03, 0.44053E-03,
     & 0.21671E-03,-0.14138E-03,-0.36565E-03,-0.11682E-03,-0.11001E-03,
     &-0.78602E-04, 0.23753E-03, 0.11205E-04, 0.14445E-03,-0.14549E-03,
     & 0.53240E-04,-0.81273E-04
     & /
       real p35(0:36)
       data p35/
     & 0.67664E+00,-0.10805E+00,-0.97996E-01,-0.31334E+00,-0.23494E+00,
     &-0.97416E-01, 0.10674E-01, 0.59222E-01, 0.60411E-01, 0.39151E-01,
     & 0.16614E-01, 0.16982E-02,-0.31528E-02,-0.27725E-02,-0.97020E-03,
     & 0.42340E-05,-0.39346E-03,-0.15793E-02,-0.19251E-02,-0.19203E-02,
     &-0.10018E-02,-0.18285E-03, 0.61080E-03, 0.79369E-03, 0.44150E-03,
     & 0.21382E-03,-0.14864E-03,-0.37357E-03,-0.11451E-03,-0.10851E-03,
     &-0.79134E-04, 0.24403E-03, 0.91873E-05, 0.14722E-03,-0.15120E-03,
     & 0.55560E-04,-0.82329E-04
     & /
       real p36(0:36)
       data p36/
     & 0.69686E+00,-0.11384E+00,-0.10298E+00,-0.32279E+00,-0.24004E+00,
     &-0.97893E-01, 0.12681E-01, 0.61558E-01, 0.61952E-01, 0.39721E-01,
     & 0.16557E-01, 0.13996E-02,-0.34063E-02,-0.29094E-02,-0.10206E-02,
     &-0.15926E-04,-0.41962E-03,-0.16237E-02,-0.19568E-02,-0.19377E-02,
     &-0.99338E-03,-0.16425E-03, 0.63512E-03, 0.80964E-03, 0.44195E-03,
     & 0.21057E-03,-0.15589E-03,-0.38130E-03,-0.11194E-03,-0.10685E-03,
     &-0.79654E-04, 0.25048E-03, 0.70557E-05, 0.14991E-03,-0.15688E-03,
     & 0.57888E-04,-0.83339E-04
     & /
       real p37(0:36)
       data p37/
     & 0.71699E+00,-0.11972E+00,-0.10803E+00,-0.33219E+00,-0.24501E+00,
     &-0.98262E-01, 0.14740E-01, 0.63896E-01, 0.63464E-01, 0.40260E-01,
     & 0.16478E-01, 0.10904E-02,-0.36623E-02,-0.30459E-02,-0.10704E-02,
     &-0.35977E-04,-0.44573E-03,-0.16673E-02,-0.19871E-02,-0.19534E-02,
     &-0.98365E-03,-0.14507E-03, 0.65928E-03, 0.82504E-03, 0.44191E-03,
     & 0.20701E-03,-0.16311E-03,-0.38885E-03,-0.10912E-03,-0.10507E-03,
     &-0.80178E-04, 0.25689E-03, 0.48149E-05, 0.15252E-03,-0.16254E-03,
     & 0.60220E-04,-0.84306E-04
     & /
       real p38(0:36)
       data p38/
     & 0.73704E+00,-0.12567E+00,-0.11315E+00,-0.34154E+00,-0.24988E+00,
     &-0.98529E-01, 0.16849E-01, 0.66231E-01, 0.64949E-01, 0.40767E-01,
     & 0.16377E-01, 0.77174E-03,-0.39202E-02,-0.31815E-02,-0.11193E-02,
     &-0.55790E-04,-0.47171E-03,-0.17101E-02,-0.20160E-02,-0.19674E-02,
     &-0.97279E-03,-0.12538E-03, 0.68324E-03, 0.83990E-03, 0.44143E-03,
     & 0.20314E-03,-0.17029E-03,-0.39622E-03,-0.10605E-03,-0.10317E-03,
     &-0.80715E-04, 0.26326E-03, 0.24688E-05, 0.15505E-03,-0.16817E-03,
     & 0.62555E-04,-0.85239E-04
     & /
       real p39(0:36)
       data p39/
     & 0.75702E+00,-0.13171E+00,-0.11832E+00,-0.35085E+00,-0.25464E+00,
     &-0.98702E-01, 0.19002E-01, 0.68563E-01, 0.66405E-01, 0.41244E-01,
     & 0.16257E-01, 0.44465E-03,-0.41793E-02,-0.33159E-02,-0.11672E-02,
     &-0.75237E-04,-0.49746E-03,-0.17518E-02,-0.20437E-02,-0.19800E-02,
     &-0.96091E-03,-0.10527E-03, 0.70697E-03, 0.85422E-03, 0.44053E-03,
     & 0.19901E-03,-0.17741E-03,-0.40343E-03,-0.10277E-03,-0.10117E-03,
     &-0.81279E-04, 0.26959E-03, 0.21589E-07, 0.15751E-03,-0.17375E-03,
     & 0.64890E-04,-0.86142E-04
     & /
       real p40(0:36)
       data p40/
     & 0.77697E+00,-0.13779E+00,-0.12351E+00,-0.36011E+00,-0.25932E+00,
     &-0.98833E-01, 0.21151E-01, 0.70865E-01, 0.67829E-01, 0.41701E-01,
     & 0.16131E-01, 0.11977E-03,-0.44322E-02,-0.34456E-02,-0.12118E-02,
     &-0.92632E-04,-0.52216E-03,-0.17917E-02,-0.20710E-02,-0.19917E-02,
     &-0.94944E-03,-0.85629E-04, 0.72998E-03, 0.86779E-03, 0.43983E-03,
     & 0.19476E-03,-0.18423E-03,-0.41059E-03,-0.99292E-04,-0.99298E-04,
     &-0.82134E-04, 0.27614E-03,-0.26417E-05, 0.15993E-03,-0.17907E-03,
     & 0.67063E-04,-0.87032E-04
     & /
       real p41(0:36)
       data p41/
     & 0.79689E+00,-0.14388E+00,-0.12870E+00,-0.36932E+00,-0.26395E+00,
     &-0.98938E-01, 0.23286E-01, 0.73132E-01, 0.69218E-01, 0.42139E-01,
     & 0.16002E-01,-0.20004E-03,-0.46770E-02,-0.35694E-02,-0.12524E-02,
     &-0.10756E-03,-0.54559E-03,-0.18293E-02,-0.20980E-02,-0.20029E-02,
     &-0.93876E-03,-0.66683E-04, 0.75216E-03, 0.88056E-03, 0.43947E-03,
     & 0.19043E-03,-0.19067E-03,-0.41772E-03,-0.95648E-04,-0.97608E-04,
     &-0.83338E-04, 0.28296E-03,-0.55389E-05, 0.16232E-03,-0.18409E-03,
     & 0.69041E-04,-0.87916E-04
     & /
       real p42(0:36)
       data p42/
     & 0.81673E+00,-0.15005E+00,-0.13396E+00,-0.37848E+00,-0.26847E+00,
     &-0.98946E-01, 0.25466E-01, 0.75397E-01, 0.70582E-01, 0.42547E-01,
     & 0.15853E-01,-0.52871E-03,-0.49238E-02,-0.36925E-02,-0.12924E-02,
     &-0.12234E-03,-0.56884E-03,-0.18663E-02,-0.21235E-02,-0.20126E-02,
     &-0.92692E-03,-0.47282E-04, 0.77415E-03, 0.89292E-03, 0.43859E-03,
     & 0.18589E-03,-0.19710E-03,-0.42469E-03,-0.91813E-04,-0.95799E-04,
     &-0.84508E-04, 0.28966E-03,-0.84782E-05, 0.16465E-03,-0.18913E-03,
     & 0.71074E-04,-0.88785E-04
     & /
       real p43(0:36)
       data p43/
     & 0.83650E+00,-0.15630E+00,-0.13927E+00,-0.38760E+00,-0.27289E+00,
     &-0.98862E-01, 0.27690E-01, 0.77658E-01, 0.71919E-01, 0.42928E-01,
     & 0.15685E-01,-0.86555E-03,-0.51721E-02,-0.38147E-02,-0.13316E-02,
     &-0.13692E-03,-0.59186E-03,-0.19026E-02,-0.21478E-02,-0.20210E-02,
     &-0.91402E-03,-0.27481E-04, 0.79593E-03, 0.90487E-03, 0.43720E-03,
     & 0.18115E-03,-0.20350E-03,-0.43148E-03,-0.87798E-04,-0.93879E-04,
     &-0.85645E-04, 0.29624E-03,-0.11451E-04, 0.16691E-03,-0.19418E-03,
     & 0.73166E-04,-0.89644E-04
     & /
       real p44(0:36)
       data p44/
     & 0.85621E+00,-0.16263E+00,-0.14464E+00,-0.39667E+00,-0.27720E+00,
     &-0.98691E-01, 0.29954E-01, 0.79916E-01, 0.73230E-01, 0.43281E-01,
     & 0.15499E-01,-0.12098E-02,-0.54217E-02,-0.39358E-02,-0.13701E-02,
     &-0.15122E-03,-0.61459E-03,-0.19383E-02,-0.21707E-02,-0.20281E-02,
     &-0.90010E-03,-0.73392E-05, 0.81748E-03, 0.91645E-03, 0.43532E-03,
     & 0.17624E-03,-0.20986E-03,-0.43811E-03,-0.83618E-04,-0.91859E-04,
     &-0.86751E-04, 0.30269E-03,-0.14448E-04, 0.16912E-03,-0.19926E-03,
     & 0.75320E-04,-0.90500E-04
     & /
       real p45(0:36)
       data p45/
     & 0.87584E+00,-0.16902E+00,-0.15005E+00,-0.40570E+00,-0.28142E+00,
     &-0.98435E-01, 0.32255E-01, 0.82168E-01, 0.74516E-01, 0.43608E-01,
     & 0.15296E-01,-0.15609E-02,-0.56721E-02,-0.40556E-02,-0.14076E-02,
     &-0.16518E-03,-0.63699E-03,-0.19734E-02,-0.21922E-02,-0.20341E-02,
     &-0.88526E-03, 0.13088E-04, 0.83878E-03, 0.92767E-03, 0.43296E-03,
     & 0.17120E-03,-0.21619E-03,-0.44457E-03,-0.79285E-04,-0.89750E-04,
     &-0.87829E-04, 0.30901E-03,-0.17460E-04, 0.17127E-03,-0.20437E-03,
     & 0.77541E-04,-0.91358E-04
     & /
       real p46(0:36)
       data p46/
     & 0.89542E+00,-0.17548E+00,-0.15552E+00,-0.41468E+00,-0.28555E+00,
     &-0.98099E-01, 0.34591E-01, 0.84414E-01, 0.75775E-01, 0.43910E-01,
     & 0.15077E-01,-0.19180E-02,-0.59229E-02,-0.41739E-02,-0.14442E-02,
     &-0.17873E-03,-0.65900E-03,-0.20079E-02,-0.22125E-02,-0.20390E-02,
     &-0.86956E-03, 0.33743E-04, 0.85981E-03, 0.93854E-03, 0.43013E-03,
     & 0.16603E-03,-0.22247E-03,-0.45089E-03,-0.74812E-04,-0.87561E-04,
     &-0.88881E-04, 0.31520E-03,-0.20478E-04, 0.17338E-03,-0.20949E-03,
     & 0.79833E-04,-0.92223E-04
     & /
       real p47(0:36)
       data p47/
     & 0.91493E+00,-0.18201E+00,-0.16103E+00,-0.42362E+00,-0.28958E+00,
     &-0.97687E-01, 0.36957E-01, 0.86651E-01, 0.77009E-01, 0.44187E-01,
     & 0.14843E-01,-0.22804E-02,-0.61738E-02,-0.42906E-02,-0.14797E-02,
     &-0.19181E-03,-0.68057E-03,-0.20418E-02,-0.22315E-02,-0.20428E-02,
     &-0.85307E-03, 0.54569E-04, 0.88054E-03, 0.94908E-03, 0.42686E-03,
     & 0.16078E-03,-0.22869E-03,-0.45705E-03,-0.70211E-04,-0.85302E-04,
     &-0.89909E-04, 0.32125E-03,-0.23494E-04, 0.17544E-03,-0.21465E-03,
     & 0.82199E-04,-0.93102E-04
     & /
       real p48(0:36)
       data p48/
     & 0.93439E+00,-0.18859E+00,-0.16658E+00,-0.43252E+00,-0.29353E+00,
     &-0.97203E-01, 0.39352E-01, 0.88878E-01, 0.78217E-01, 0.44440E-01,
     & 0.14595E-01,-0.26475E-02,-0.64245E-02,-0.44055E-02,-0.15141E-02,
     &-0.20435E-03,-0.70165E-03,-0.20750E-02,-0.22493E-02,-0.20458E-02,
     &-0.83587E-03, 0.75509E-04, 0.90096E-03, 0.95931E-03, 0.42315E-03,
     & 0.15546E-03,-0.23485E-03,-0.46307E-03,-0.65496E-04,-0.82984E-04,
     &-0.90914E-04, 0.32715E-03,-0.26498E-04, 0.17746E-03,-0.21983E-03,
     & 0.84643E-04,-0.93999E-04
     & /
       real p49(0:36)
       data p49/
     & 0.95379E+00,-0.19523E+00,-0.17218E+00,-0.44137E+00,-0.29739E+00,
     &-0.96651E-01, 0.41772E-01, 0.91095E-01, 0.79401E-01, 0.44671E-01,
     & 0.14333E-01,-0.30186E-02,-0.66745E-02,-0.45185E-02,-0.15473E-02,
     &-0.21630E-03,-0.72218E-03,-0.21077E-02,-0.22659E-02,-0.20479E-02,
     &-0.81802E-03, 0.96506E-04, 0.92103E-03, 0.96925E-03, 0.41902E-03,
     & 0.15010E-03,-0.24095E-03,-0.46895E-03,-0.60679E-04,-0.80616E-04,
     &-0.91900E-04, 0.33290E-03,-0.29482E-04, 0.17945E-03,-0.22505E-03,
     & 0.87170E-04,-0.94922E-04
     & /
       real p50(0:36)
       data p50/
     & 0.97314E+00,-0.20193E+00,-0.17781E+00,-0.45018E+00,-0.30117E+00,
     &-0.96035E-01, 0.44214E-01, 0.93300E-01, 0.80559E-01, 0.44879E-01,
     & 0.14060E-01,-0.33928E-02,-0.69234E-02,-0.46292E-02,-0.15792E-02,
     &-0.22757E-03,-0.74211E-03,-0.21397E-02,-0.22812E-02,-0.20493E-02,
     &-0.79960E-03, 0.11750E-03, 0.94075E-03, 0.97892E-03, 0.41448E-03,
     & 0.14472E-03,-0.24696E-03,-0.47470E-03,-0.55774E-04,-0.78208E-04,
     &-0.92867E-04, 0.33850E-03,-0.32436E-04, 0.18140E-03,-0.23029E-03,
     & 0.89784E-04,-0.95874E-04
     & /
       real p51(0:36)
       data p51/
     & 0.99251E+00,-0.20858E+00,-0.18340E+00,-0.45895E+00,-0.30495E+00,
     &-0.95463E-01, 0.46588E-01, 0.95441E-01, 0.81684E-01, 0.45084E-01,
     & 0.13798E-01,-0.37479E-02,-0.71589E-02,-0.47295E-02,-0.16062E-02,
     &-0.23484E-03,-0.75820E-03,-0.21719E-02,-0.22941E-02,-0.20531E-02,
     &-0.78237E-03, 0.13661E-03, 0.95841E-03, 0.98961E-03, 0.40897E-03,
     & 0.14056E-03,-0.25259E-03,-0.48049E-03,-0.51170E-04,-0.76261E-04,
     &-0.93381E-04, 0.34302E-03,-0.34647E-04, 0.18355E-03,-0.23614E-03,
     & 0.93163E-04,-0.97357E-04
     & /
       real p52(0:36)
       data p52/
     & 0.10118E+01,-0.21528E+00,-0.18902E+00,-0.46767E+00,-0.30865E+00,
     &-0.94835E-01, 0.48978E-01, 0.97567E-01, 0.82784E-01, 0.45269E-01,
     & 0.13525E-01,-0.41048E-02,-0.73927E-02,-0.48272E-02,-0.16318E-02,
     &-0.24132E-03,-0.77359E-03,-0.22036E-02,-0.23057E-02,-0.20563E-02,
     &-0.76471E-03, 0.15561E-03, 0.97568E-03, 0.10001E-02, 0.40309E-03,
     & 0.13643E-03,-0.25812E-03,-0.48616E-03,-0.46502E-04,-0.74294E-04,
     &-0.93883E-04, 0.34738E-03,-0.36812E-04, 0.18567E-03,-0.24202E-03,
     & 0.96635E-04,-0.98881E-04
     & /
       real p53(0:36)
       data p53/
     & 0.10311E+01,-0.22204E+00,-0.19468E+00,-0.47635E+00,-0.31226E+00,
     &-0.94137E-01, 0.51395E-01, 0.99685E-01, 0.83862E-01, 0.45431E-01,
     & 0.13240E-01,-0.44664E-02,-0.76263E-02,-0.49236E-02,-0.16564E-02,
     &-0.24748E-03,-0.78875E-03,-0.22345E-02,-0.23165E-02,-0.20585E-02,
     &-0.74641E-03, 0.17475E-03, 0.99280E-03, 0.10101E-02, 0.39694E-03,
     & 0.13216E-03,-0.26360E-03,-0.49168E-03,-0.41721E-04,-0.72235E-04,
     &-0.94445E-04, 0.35172E-03,-0.39038E-04, 0.18773E-03,-0.24784E-03,
     & 0.10009E-03,-0.10037E-03
     & /
       real p54(0:36)
       data p54/
     & 0.10503E+01,-0.22886E+00,-0.20039E+00,-0.48499E+00,-0.31579E+00,
     &-0.93373E-01, 0.53838E-01, 0.10180E+00, 0.84916E-01, 0.45573E-01,
     & 0.12942E-01,-0.48324E-02,-0.78596E-02,-0.50187E-02,-0.16800E-02,
     &-0.25330E-03,-0.80368E-03,-0.22647E-02,-0.23265E-02,-0.20597E-02,
     &-0.72752E-03, 0.19398E-03, 0.10098E-02, 0.10197E-02, 0.39054E-03,
     & 0.12776E-03,-0.26904E-03,-0.49705E-03,-0.36835E-04,-0.70088E-04,
     &-0.95076E-04, 0.35605E-03,-0.41324E-04, 0.18974E-03,-0.25360E-03,
     & 0.10353E-03,-0.10182E-03
     & /
       real p55(0:36)
       data p55/
     & 0.10695E+01,-0.23573E+00,-0.20613E+00,-0.49360E+00,-0.31925E+00,
     &-0.92545E-01, 0.56305E-01, 0.10390E+00, 0.85947E-01, 0.45693E-01,
     & 0.12632E-01,-0.52023E-02,-0.80923E-02,-0.51122E-02,-0.17027E-02,
     &-0.25875E-03,-0.81836E-03,-0.22941E-02,-0.23357E-02,-0.20599E-02,
     &-0.70810E-03, 0.21328E-03, 0.10266E-02, 0.10288E-02, 0.38391E-03,
     & 0.12325E-03,-0.27443E-03,-0.50229E-03,-0.31851E-04,-0.67858E-04,
     &-0.95783E-04, 0.36038E-03,-0.43672E-04, 0.19170E-03,-0.25929E-03,
     & 0.10695E-03,-0.10324E-03
     & /
       real p56(0:36)
       data p56/
     & 0.10886E+01,-0.24266E+00,-0.21191E+00,-0.50216E+00,-0.32263E+00,
     &-0.91656E-01, 0.58794E-01, 0.10599E+00, 0.86955E-01, 0.45794E-01,
     & 0.12311E-01,-0.55756E-02,-0.83243E-02,-0.52042E-02,-0.17243E-02,
     &-0.26381E-03,-0.83278E-03,-0.23229E-02,-0.23441E-02,-0.20593E-02,
     &-0.68818E-03, 0.23262E-03, 0.10432E-02, 0.10375E-02, 0.37707E-03,
     & 0.11863E-03,-0.27976E-03,-0.50739E-03,-0.26778E-04,-0.65547E-04,
     &-0.96575E-04, 0.36470E-03,-0.46081E-04, 0.19360E-03,-0.26491E-03,
     & 0.11033E-03,-0.10461E-03
     & /
       real p57(0:36)
       data p57/
     & 0.11076E+01,-0.24963E+00,-0.21772E+00,-0.51068E+00,-0.32593E+00,
     &-0.90708E-01, 0.61302E-01, 0.10807E+00, 0.87942E-01, 0.45875E-01,
     & 0.11979E-01,-0.59520E-02,-0.85554E-02,-0.52946E-02,-0.17448E-02,
     &-0.26846E-03,-0.84694E-03,-0.23509E-02,-0.23518E-02,-0.20578E-02,
     &-0.66783E-03, 0.25196E-03, 0.10597E-02, 0.10458E-02, 0.37006E-03,
     & 0.11391E-03,-0.28504E-03,-0.51236E-03,-0.21623E-04,-0.63160E-04,
     &-0.97458E-04, 0.36903E-03,-0.48551E-04, 0.19545E-03,-0.27044E-03,
     & 0.11369E-03,-0.10595E-03
     & /
       real p58(0:36)
       data p58/
     & 0.11266E+01,-0.25666E+00,-0.22356E+00,-0.51916E+00,-0.32916E+00,
     &-0.89704E-01, 0.63828E-01, 0.11014E+00, 0.88906E-01, 0.45938E-01,
     & 0.11638E-01,-0.63309E-02,-0.87852E-02,-0.53833E-02,-0.17643E-02,
     &-0.27268E-03,-0.86081E-03,-0.23781E-02,-0.23589E-02,-0.20554E-02,
     &-0.64710E-03, 0.27126E-03, 0.10761E-02, 0.10537E-02, 0.36287E-03,
     & 0.10910E-03,-0.29025E-03,-0.51720E-03,-0.16395E-04,-0.60700E-04,
     &-0.98441E-04, 0.37337E-03,-0.51083E-04, 0.19725E-03,-0.27589E-03,
     & 0.11701E-03,-0.10726E-03
     & /
       real p59(0:36)
       data p59/
     & 0.11456E+01,-0.26373E+00,-0.22944E+00,-0.52761E+00,-0.33232E+00,
     &-0.88647E-01, 0.66371E-01, 0.11220E+00, 0.89849E-01, 0.45982E-01,
     & 0.11287E-01,-0.67121E-02,-0.90136E-02,-0.54702E-02,-0.17826E-02,
     &-0.27643E-03,-0.87439E-03,-0.24046E-02,-0.23654E-02,-0.20523E-02,
     &-0.62602E-03, 0.29050E-03, 0.10923E-02, 0.10611E-02, 0.35555E-03,
     & 0.10421E-03,-0.29540E-03,-0.52191E-03,-0.11102E-04,-0.58170E-04,
     &-0.99531E-04, 0.37774E-03,-0.53675E-04, 0.19899E-03,-0.28125E-03,
     & 0.12028E-03,-0.10852E-03
     & /
       real p60(0:36)
       data p60/
     & 0.11645E+01,-0.27084E+00,-0.23534E+00,-0.53601E+00,-0.33541E+00,
     &-0.87539E-01, 0.68927E-01, 0.11424E+00, 0.90770E-01, 0.46009E-01,
     & 0.10928E-01,-0.70951E-02,-0.92404E-02,-0.55553E-02,-0.17997E-02,
     &-0.27971E-03,-0.88766E-03,-0.24304E-02,-0.23713E-02,-0.20484E-02,
     &-0.60466E-03, 0.30964E-03, 0.11083E-02, 0.10681E-02, 0.34811E-03,
     & 0.99256E-04,-0.30049E-03,-0.52650E-03,-0.57514E-05,-0.55576E-04,
     &-0.10074E-03, 0.38213E-03,-0.56329E-04, 0.20070E-03,-0.28651E-03,
     & 0.12351E-03,-0.10974E-03
     & /
       real p61(0:36)
       data p61/
     & 0.11834E+01,-0.27800E+00,-0.24127E+00,-0.54438E+00,-0.33843E+00,
     &-0.86383E-01, 0.71495E-01, 0.11628E+00, 0.91670E-01, 0.46020E-01,
     & 0.10561E-01,-0.74793E-02,-0.94654E-02,-0.56385E-02,-0.18156E-02,
     &-0.28247E-03,-0.90061E-03,-0.24554E-02,-0.23766E-02,-0.20439E-02,
     &-0.58307E-03, 0.32865E-03, 0.11242E-02, 0.10747E-02, 0.34057E-03,
     & 0.94243E-04,-0.30551E-03,-0.53096E-03,-0.35125E-06,-0.52920E-04,
     &-0.10206E-03, 0.38655E-03,-0.59045E-04, 0.20235E-03,-0.29166E-03,
     & 0.12668E-03,-0.11092E-03
     & /
       real p62(0:36)
       data p62/
     & 0.12022E+01,-0.28519E+00,-0.24723E+00,-0.55271E+00,-0.34140E+00,
     &-0.85182E-01, 0.74074E-01, 0.11829E+00, 0.92549E-01, 0.46015E-01,
     & 0.10187E-01,-0.78645E-02,-0.96883E-02,-0.57197E-02,-0.18303E-02,
     &-0.28471E-03,-0.91324E-03,-0.24796E-02,-0.23815E-02,-0.20387E-02,
     &-0.56128E-03, 0.34749E-03, 0.11399E-02, 0.10808E-02, 0.33295E-03,
     & 0.89182E-04,-0.31045E-03,-0.53531E-03, 0.50904E-05,-0.50205E-04,
     &-0.10352E-03, 0.39101E-03,-0.61822E-04, 0.20396E-03,-0.29671E-03,
     & 0.12980E-03,-0.11205E-03
     & /
       real p63(0:36)
       data p63/
     & 0.12211E+01,-0.29237E+00,-0.25316E+00,-0.56101E+00,-0.34434E+00,
     &-0.84001E-01, 0.76608E-01, 0.12028E+00, 0.93405E-01, 0.46007E-01,
     & 0.98226E-02,-0.82388E-02,-0.99013E-02,-0.57958E-02,-0.18416E-02,
     &-0.28516E-03,-0.92520E-03,-0.25015E-02,-0.23877E-02,-0.20334E-02,
     &-0.54072E-03, 0.36461E-03, 0.11559E-02, 0.10860E-02, 0.32607E-03,
     & 0.84366E-04,-0.31517E-03,-0.53963E-03, 0.10321E-04,-0.47308E-04,
     &-0.10585E-03, 0.39612E-03,-0.64819E-04, 0.20532E-03,-0.30100E-03,
     & 0.13247E-03,-0.11311E-03
     & /
       real p64(0:36)
       data p64/
     & 0.12399E+01,-0.29955E+00,-0.25908E+00,-0.56927E+00,-0.34727E+00,
     &-0.82827E-01, 0.79109E-01, 0.12222E+00, 0.94240E-01, 0.45993E-01,
     & 0.94646E-02,-0.86044E-02,-0.10106E-01,-0.58674E-02,-0.18498E-02,
     &-0.28409E-03,-0.93657E-03,-0.25216E-02,-0.23949E-02,-0.20280E-02,
     &-0.52109E-03, 0.38034E-03, 0.11719E-02, 0.10902E-02, 0.31975E-03,
     & 0.79737E-04,-0.31970E-03,-0.54390E-03, 0.15394E-04,-0.44262E-04,
     &-0.10887E-03, 0.40172E-03,-0.67997E-04, 0.20648E-03,-0.30470E-03,
     & 0.13479E-03,-0.11409E-03
     & /
       real p65(0:36)
       data p65/
     & 0.12587E+01,-0.30678E+00,-0.26503E+00,-0.57750E+00,-0.35012E+00,
     &-0.81601E-01, 0.81626E-01, 0.12416E+00, 0.95055E-01, 0.45963E-01,
     & 0.90978E-02,-0.89722E-02,-0.10310E-01,-0.59375E-02,-0.18573E-02,
     &-0.28271E-03,-0.94764E-03,-0.25412E-02,-0.24013E-02,-0.20219E-02,
     &-0.50112E-03, 0.39616E-03, 0.11878E-02, 0.10941E-02, 0.31324E-03,
     & 0.75025E-04,-0.32419E-03,-0.54804E-03, 0.20538E-04,-0.41198E-04,
     &-0.11188E-03, 0.40725E-03,-0.71201E-04, 0.20765E-03,-0.30841E-03,
     & 0.13712E-03,-0.11504E-03
     & /
       real p66(0:36)
       data p66/
     & 0.12774E+01,-0.31405E+00,-0.27101E+00,-0.58569E+00,-0.35291E+00,
     &-0.80326E-01, 0.84159E-01, 0.12609E+00, 0.95851E-01, 0.45916E-01,
     & 0.87225E-02,-0.93421E-02,-0.10512E-01,-0.60061E-02,-0.18639E-02,
     &-0.28099E-03,-0.95842E-03,-0.25604E-02,-0.24069E-02,-0.20152E-02,
     &-0.48084E-03, 0.41203E-03, 0.12033E-02, 0.10977E-02, 0.30655E-03,
     & 0.70238E-04,-0.32862E-03,-0.55206E-03, 0.25751E-04,-0.38122E-04,
     &-0.11488E-03, 0.41270E-03,-0.74429E-04, 0.20883E-03,-0.31214E-03,
     & 0.13947E-03,-0.11595E-03
     & /
       real p67(0:36)
       data p67/
     & 0.12961E+01,-0.32136E+00,-0.27701E+00,-0.59384E+00,-0.35564E+00,
     &-0.79004E-01, 0.86705E-01, 0.12800E+00, 0.96627E-01, 0.45854E-01,
     & 0.83393E-02,-0.97136E-02,-0.10714E-01,-0.60731E-02,-0.18696E-02,
     &-0.27895E-03,-0.96890E-03,-0.25791E-02,-0.24119E-02,-0.20080E-02,
     &-0.46028E-03, 0.42796E-03, 0.12187E-02, 0.11011E-02, 0.29969E-03,
     & 0.65381E-04,-0.33301E-03,-0.55595E-03, 0.31027E-04,-0.35040E-04,
     &-0.11786E-03, 0.41808E-03,-0.77679E-04, 0.21002E-03,-0.31590E-03,
     & 0.14183E-03,-0.11683E-03
     & /
       real p68(0:36)
       data p68/
     & 0.13148E+01,-0.32871E+00,-0.28305E+00,-0.60196E+00,-0.35830E+00,
     &-0.77635E-01, 0.89265E-01, 0.12991E+00, 0.97384E-01, 0.45777E-01,
     & 0.79485E-02,-0.10087E-01,-0.10914E-01,-0.61386E-02,-0.18744E-02,
     &-0.27657E-03,-0.97906E-03,-0.25975E-02,-0.24161E-02,-0.20001E-02,
     &-0.43947E-03, 0.44393E-03, 0.12337E-02, 0.11043E-02, 0.29267E-03,
     & 0.60460E-04,-0.33734E-03,-0.55973E-03, 0.36362E-04,-0.31957E-04,
     &-0.12083E-03, 0.42337E-03,-0.80948E-04, 0.21122E-03,-0.31968E-03,
     & 0.14422E-03,-0.11767E-03
     & /
       real p69(0:36)
       data p69/
     & 0.13334E+01,-0.33610E+00,-0.28911E+00,-0.61005E+00,-0.36090E+00,
     &-0.76223E-01, 0.91836E-01, 0.13180E+00, 0.98122E-01, 0.45684E-01,
     & 0.75507E-02,-0.10461E-01,-0.11113E-01,-0.62024E-02,-0.18784E-02,
     &-0.27384E-03,-0.98891E-03,-0.26155E-02,-0.24197E-02,-0.19918E-02,
     &-0.41844E-03, 0.45993E-03, 0.12485E-02, 0.11072E-02, 0.28550E-03,
     & 0.55481E-04,-0.34162E-03,-0.56338E-03, 0.41752E-04,-0.28878E-04,
     &-0.12377E-03, 0.42859E-03,-0.84235E-04, 0.21244E-03,-0.32350E-03,
     & 0.14662E-03,-0.11848E-03
     & /
       real p70(0:36)
       data p70/
     & 0.13520E+01,-0.34352E+00,-0.29519E+00,-0.61809E+00,-0.36344E+00,
     &-0.74768E-01, 0.94418E-01, 0.13368E+00, 0.98842E-01, 0.45578E-01,
     & 0.71461E-02,-0.10836E-01,-0.11310E-01,-0.62646E-02,-0.18815E-02,
     &-0.27076E-03,-0.99844E-03,-0.26331E-02,-0.24226E-02,-0.19830E-02,
     &-0.39723E-03, 0.47595E-03, 0.12630E-02, 0.11099E-02, 0.27819E-03,
     & 0.50451E-04,-0.34584E-03,-0.56692E-03, 0.47191E-04,-0.25810E-04,
     &-0.12668E-03, 0.43372E-03,-0.87536E-04, 0.21369E-03,-0.32735E-03,
     & 0.14905E-03,-0.11925E-03
     & /
       real p71(0:36)
       data p71/
     & 0.13706E+01,-0.35099E+00,-0.30130E+00,-0.62611E+00,-0.36593E+00,
     &-0.73273E-01, 0.97009E-01, 0.13555E+00, 0.99544E-01, 0.45458E-01,
     & 0.67353E-02,-0.11211E-01,-0.11506E-01,-0.63251E-02,-0.18837E-02,
     &-0.26733E-03,-0.10076E-02,-0.26504E-02,-0.24249E-02,-0.19737E-02,
     &-0.37587E-03, 0.49197E-03, 0.12772E-02, 0.11124E-02, 0.27074E-03,
     & 0.45374E-04,-0.35001E-03,-0.57033E-03, 0.52676E-04,-0.22757E-04,
     &-0.12957E-03, 0.43877E-03,-0.90851E-04, 0.21496E-03,-0.33123E-03,
     & 0.15149E-03,-0.11998E-03
     & /
       real p72(0:36)
       data p72/
     & 0.13891E+01,-0.35849E+00,-0.30743E+00,-0.63409E+00,-0.36836E+00,
     &-0.71739E-01, 0.99609E-01, 0.13740E+00, 0.10023E+00, 0.45325E-01,
     & 0.63187E-02,-0.11587E-01,-0.11700E-01,-0.63840E-02,-0.18851E-02,
     &-0.26353E-03,-0.10165E-02,-0.26674E-02,-0.24265E-02,-0.19641E-02,
     &-0.35438E-03, 0.50799E-03, 0.12912E-02, 0.11146E-02, 0.26318E-03,
     & 0.40258E-04,-0.35413E-03,-0.57364E-03, 0.58201E-04,-0.19725E-04,
     &-0.13242E-03, 0.44374E-03,-0.94177E-04, 0.21627E-03,-0.33516E-03,
     & 0.15396E-03,-0.12068E-03
     & /
       real p73(0:36)
       data p73/
     & 0.14076E+01,-0.36602E+00,-0.31358E+00,-0.64203E+00,-0.37073E+00,
     &-0.70169E-01, 0.10222E+00, 0.13925E+00, 0.10089E+00, 0.45179E-01,
     & 0.58968E-02,-0.11964E-01,-0.11892E-01,-0.64411E-02,-0.18855E-02,
     &-0.25936E-03,-0.10250E-02,-0.26840E-02,-0.24276E-02,-0.19540E-02,
     &-0.33280E-03, 0.52399E-03, 0.13048E-02, 0.11167E-02, 0.25551E-03,
     & 0.35109E-04,-0.35818E-03,-0.57683E-03, 0.63763E-04,-0.16720E-04,
     &-0.13525E-03, 0.44861E-03,-0.97511E-04, 0.21761E-03,-0.33913E-03,
     & 0.15646E-03,-0.12134E-03
     & /
       real p74(0:36)
       data p74/
     & 0.14260E+01,-0.37359E+00,-0.31975E+00,-0.64995E+00,-0.37306E+00,
     &-0.68563E-01, 0.10483E+00, 0.14108E+00, 0.10154E+00, 0.45021E-01,
     & 0.54699E-02,-0.12340E-01,-0.12082E-01,-0.64964E-02,-0.18851E-02,
     &-0.25482E-03,-0.10332E-02,-0.27003E-02,-0.24281E-02,-0.19436E-02,
     &-0.31116E-03, 0.53995E-03, 0.13182E-02, 0.11186E-02, 0.24774E-03,
     & 0.29932E-04,-0.36218E-03,-0.57992E-03, 0.69356E-04,-0.13747E-04,
     &-0.13803E-03, 0.45340E-03,-0.10085E-03, 0.21899E-03,-0.34315E-03,
     & 0.15897E-03,-0.12197E-03
     & /
       real p75(0:36)
       data p75/
     & 0.14444E+01,-0.38118E+00,-0.32594E+00,-0.65783E+00,-0.37533E+00,
     &-0.66925E-01, 0.10745E+00, 0.14289E+00, 0.10218E+00, 0.44851E-01,
     & 0.50385E-02,-0.12715E-01,-0.12271E-01,-0.65500E-02,-0.18837E-02,
     &-0.24990E-03,-0.10410E-02,-0.27163E-02,-0.24280E-02,-0.19330E-02,
     &-0.28949E-03, 0.55588E-03, 0.13313E-02, 0.11203E-02, 0.23988E-03,
     & 0.24733E-04,-0.36612E-03,-0.58289E-03, 0.74977E-04,-0.10812E-04,
     &-0.14078E-03, 0.45810E-03,-0.10420E-03, 0.22042E-03,-0.34721E-03,
     & 0.16151E-03,-0.12256E-03
     & /
       real p76(0:36)
       data p76/
     & 0.14628E+01,-0.38881E+00,-0.33215E+00,-0.66567E+00,-0.37755E+00,
     &-0.65255E-01, 0.11007E+00, 0.14469E+00, 0.10279E+00, 0.44670E-01,
     & 0.46031E-02,-0.13090E-01,-0.12457E-01,-0.66017E-02,-0.18815E-02,
     &-0.24460E-03,-0.10484E-02,-0.27321E-02,-0.24273E-02,-0.19220E-02,
     &-0.26781E-03, 0.57174E-03, 0.13440E-02, 0.11218E-02, 0.23194E-03,
     & 0.19519E-04,-0.37000E-03,-0.58576E-03, 0.80620E-04,-0.79206E-05,
     &-0.14349E-03, 0.46270E-03,-0.10755E-03, 0.22190E-03,-0.35133E-03,
     & 0.16408E-03,-0.12311E-03
     & /
       real p77(0:36)
       data p77/
     & 0.14812E+01,-0.39646E+00,-0.33837E+00,-0.67349E+00,-0.37972E+00,
     &-0.63559E-01, 0.11269E+00, 0.14648E+00, 0.10339E+00, 0.44479E-01,
     & 0.41651E-02,-0.13463E-01,-0.12640E-01,-0.66514E-02,-0.18783E-02,
     &-0.23883E-03,-0.10554E-02,-0.27477E-02,-0.24262E-02,-0.19109E-02,
     &-0.24628E-03, 0.58754E-03, 0.13564E-02, 0.11232E-02, 0.22396E-03,
     & 0.14301E-04,-0.37381E-03,-0.58852E-03, 0.86266E-04,-0.51065E-05,
     &-0.14613E-03, 0.46718E-03,-0.11089E-03, 0.22346E-03,-0.35555E-03,
     & 0.16667E-03,-0.12361E-03
     & /
       real p78(0:36)
       data p78/
     & 0.14996E+01,-0.40404E+00,-0.34453E+00,-0.68128E+00,-0.38194E+00,
     &-0.61949E-01, 0.11523E+00, 0.14821E+00, 0.10398E+00, 0.44304E-01,
     & 0.37525E-02,-0.13814E-01,-0.12811E-01,-0.66938E-02,-0.18730E-02,
     &-0.23096E-03,-0.10602E-02,-0.27652E-02,-0.24239E-02,-0.19024E-02,
     &-0.22777E-03, 0.60308E-03, 0.13667E-02, 0.11253E-02, 0.21672E-03,
     & 0.92547E-05,-0.37739E-03,-0.59095E-03, 0.91537E-04,-0.31297E-05,
     &-0.14791E-03, 0.47080E-03,-0.11403E-03, 0.22598E-03,-0.36081E-03,
     & 0.16948E-03,-0.12354E-03
     & /
       real p79(0:36)
       data p79/
     & 0.15180E+01,-0.41166E+00,-0.35071E+00,-0.68904E+00,-0.38410E+00,
     &-0.60302E-01, 0.11777E+00, 0.14993E+00, 0.10455E+00, 0.44117E-01,
     & 0.33342E-02,-0.14166E-01,-0.12981E-01,-0.67349E-02,-0.18669E-02,
     &-0.22286E-03,-0.10648E-02,-0.27822E-02,-0.24213E-02,-0.18934E-02,
     &-0.20903E-03, 0.61855E-03, 0.13769E-02, 0.11273E-02, 0.20936E-03,
     & 0.41927E-05,-0.38092E-03,-0.59330E-03, 0.96856E-04,-0.11315E-05,
     &-0.14972E-03, 0.47441E-03,-0.11718E-03, 0.22847E-03,-0.36603E-03,
     & 0.17229E-03,-0.12348E-03
     & /
       real p80(0:36)
       data p80/
     & 0.15363E+01,-0.41932E+00,-0.35691E+00,-0.69676E+00,-0.38622E+00,
     &-0.58618E-01, 0.12033E+00, 0.15164E+00, 0.10511E+00, 0.43918E-01,
     & 0.29104E-02,-0.14518E-01,-0.13149E-01,-0.67746E-02,-0.18600E-02,
     &-0.21454E-03,-0.10692E-02,-0.27988E-02,-0.24182E-02,-0.18840E-02,
     &-0.19011E-03, 0.63393E-03, 0.13870E-02, 0.11290E-02, 0.20186E-03,
     &-0.87970E-06,-0.38441E-03,-0.59558E-03, 0.10222E-03, 0.88651E-06,
     &-0.15157E-03, 0.47800E-03,-0.12035E-03, 0.23092E-03,-0.37120E-03,
     & 0.17511E-03,-0.12345E-03
     & /
       real p81(0:36)
       data p81/
     & 0.15546E+01,-0.42700E+00,-0.36314E+00,-0.70446E+00,-0.38827E+00,
     &-0.56898E-01, 0.12289E+00, 0.15334E+00, 0.10565E+00, 0.43707E-01,
     & 0.24815E-02,-0.14871E-01,-0.13316E-01,-0.68130E-02,-0.18523E-02,
     &-0.20600E-03,-0.10734E-02,-0.28149E-02,-0.24147E-02,-0.18741E-02,
     &-0.17100E-03, 0.64922E-03, 0.13969E-02, 0.11304E-02, 0.19425E-03,
     &-0.59573E-05,-0.38786E-03,-0.59779E-03, 0.10763E-03, 0.29231E-05,
     &-0.15346E-03, 0.48158E-03,-0.12354E-03, 0.23334E-03,-0.37634E-03,
     & 0.17794E-03,-0.12344E-03
     & /
       real p82(0:36)
       data p82/
     & 0.15728E+01,-0.43472E+00,-0.36938E+00,-0.71212E+00,-0.39028E+00,
     &-0.55145E-01, 0.12546E+00, 0.15503E+00, 0.10617E+00, 0.43485E-01,
     & 0.20478E-02,-0.15224E-01,-0.13481E-01,-0.68501E-02,-0.18439E-02,
     &-0.19724E-03,-0.10774E-02,-0.28307E-02,-0.24109E-02,-0.18639E-02,
     &-0.15173E-03, 0.66441E-03, 0.14066E-02, 0.11317E-02, 0.18653E-03,
     &-0.11035E-04,-0.39125E-03,-0.59993E-03, 0.11309E-03, 0.49768E-05,
     &-0.15539E-03, 0.48514E-03,-0.12674E-03, 0.23573E-03,-0.38143E-03,
     & 0.18077E-03,-0.12345E-03
     & /
       real p83(0:36)
       data p83/
     & 0.15911E+01,-0.44247E+00,-0.37564E+00,-0.71975E+00,-0.39224E+00,
     &-0.53358E-01, 0.12803E+00, 0.15670E+00, 0.10668E+00, 0.43251E-01,
     & 0.16095E-02,-0.15577E-01,-0.13644E-01,-0.68858E-02,-0.18347E-02,
     &-0.18826E-03,-0.10812E-02,-0.28460E-02,-0.24067E-02,-0.18533E-02,
     &-0.13231E-03, 0.67948E-03, 0.14163E-02, 0.11328E-02, 0.17870E-03,
     &-0.16108E-04,-0.39460E-03,-0.60200E-03, 0.11858E-03, 0.70462E-05,
     &-0.15736E-03, 0.48869E-03,-0.12995E-03, 0.23807E-03,-0.38648E-03,
     & 0.18362E-03,-0.12350E-03
     & /
       real p84(0:36)
       data p84/
     & 0.16093E+01,-0.45025E+00,-0.38192E+00,-0.72736E+00,-0.39415E+00,
     &-0.51540E-01, 0.13061E+00, 0.15837E+00, 0.10717E+00, 0.43007E-01,
     & 0.11669E-02,-0.15930E-01,-0.13806E-01,-0.69202E-02,-0.18247E-02,
     &-0.17907E-03,-0.10849E-02,-0.28609E-02,-0.24022E-02,-0.18423E-02,
     &-0.11275E-03, 0.69441E-03, 0.14257E-02, 0.11336E-02, 0.17077E-03,
     &-0.21171E-04,-0.39791E-03,-0.60401E-03, 0.12411E-03, 0.91301E-05,
     &-0.15938E-03, 0.49224E-03,-0.13317E-03, 0.24038E-03,-0.39147E-03,
     & 0.18647E-03,-0.12358E-03
     & /
       real p85(0:36)
       data p85/
     & 0.16275E+01,-0.45806E+00,-0.38822E+00,-0.73493E+00,-0.39602E+00,
     &-0.49691E-01, 0.13320E+00, 0.16002E+00, 0.10765E+00, 0.42753E-01,
     & 0.72025E-03,-0.16282E-01,-0.13966E-01,-0.69532E-02,-0.18139E-02,
     &-0.16968E-03,-0.10884E-02,-0.28753E-02,-0.23974E-02,-0.18310E-02,
     &-0.93073E-04, 0.70921E-03, 0.14351E-02, 0.11343E-02, 0.16274E-03,
     &-0.26218E-04,-0.40117E-03,-0.60597E-03, 0.12967E-03, 0.11227E-04,
     &-0.16144E-03, 0.49577E-03,-0.13640E-03, 0.24265E-03,-0.39642E-03,
     & 0.18933E-03,-0.12369E-03
     & /
       real p86(0:36)
       data p86/
     & 0.16456E+01,-0.46590E+00,-0.39454E+00,-0.74247E+00,-0.39783E+00,
     &-0.47813E-01, 0.13579E+00, 0.16166E+00, 0.10811E+00, 0.42490E-01,
     & 0.26992E-03,-0.16635E-01,-0.14124E-01,-0.69849E-02,-0.18024E-02,
     &-0.16007E-03,-0.10917E-02,-0.28894E-02,-0.23923E-02,-0.18193E-02,
     &-0.73294E-04, 0.72386E-03, 0.14443E-02, 0.11347E-02, 0.15462E-03,
     &-0.31245E-04,-0.40438E-03,-0.60787E-03, 0.13527E-03, 0.13335E-04,
     &-0.16355E-03, 0.49931E-03,-0.13964E-03, 0.24488E-03,-0.40131E-03,
     & 0.19220E-03,-0.12384E-03
     & /
       real p87(0:36)
       data p87/
     & 0.16637E+01,-0.47376E+00,-0.40087E+00,-0.74998E+00,-0.39960E+00,
     &-0.45906E-01, 0.13838E+00, 0.16329E+00, 0.10856E+00, 0.42216E-01,
     &-0.18384E-03,-0.16987E-01,-0.14281E-01,-0.70153E-02,-0.17901E-02,
     &-0.15027E-03,-0.10948E-02,-0.29031E-02,-0.23869E-02,-0.18074E-02,
     &-0.53426E-04, 0.73835E-03, 0.14534E-02, 0.11350E-02, 0.14643E-03,
     &-0.36247E-04,-0.40754E-03,-0.60971E-03, 0.14089E-03, 0.15454E-04,
     &-0.16571E-03, 0.50284E-03,-0.14289E-03, 0.24708E-03,-0.40615E-03,
     & 0.19508E-03,-0.12403E-03
     & /
       real p88(0:36)
       data p88/
     & 0.16818E+01,-0.48165E+00,-0.40721E+00,-0.75746E+00,-0.40133E+00,
     &-0.43973E-01, 0.14097E+00, 0.16491E+00, 0.10900E+00, 0.41934E-01,
     &-0.64076E-03,-0.17338E-01,-0.14435E-01,-0.70444E-02,-0.17771E-02,
     &-0.14026E-03,-0.10977E-02,-0.29163E-02,-0.23813E-02,-0.17952E-02,
     &-0.33486E-04, 0.75267E-03, 0.14623E-02, 0.11351E-02, 0.13815E-03,
     &-0.41218E-04,-0.41066E-03,-0.61151E-03, 0.14654E-03, 0.17581E-04,
     &-0.16792E-03, 0.50638E-03,-0.14614E-03, 0.24923E-03,-0.41093E-03,
     & 0.19796E-03,-0.12426E-03
     & /
       real p89(0:36)
       data p89/
     & 0.16999E+01,-0.48957E+00,-0.41357E+00,-0.76492E+00,-0.40302E+00,
     &-0.42014E-01, 0.14357E+00, 0.16651E+00, 0.10942E+00, 0.41643E-01,
     &-0.11005E-02,-0.17688E-01,-0.14588E-01,-0.70721E-02,-0.17633E-02,
     &-0.13006E-03,-0.11005E-02,-0.29292E-02,-0.23755E-02,-0.17827E-02,
     &-0.13489E-04, 0.76680E-03, 0.14711E-02, 0.11350E-02, 0.12981E-03,
     &-0.46154E-04,-0.41374E-03,-0.61326E-03, 0.15222E-03, 0.19716E-04,
     &-0.17018E-03, 0.50992E-03,-0.14940E-03, 0.25134E-03,-0.41566E-03,
     & 0.20085E-03,-0.12453E-03
     & /
       real p90(0:36)
       data p90/
     & 0.17179E+01,-0.49751E+00,-0.41995E+00,-0.77234E+00,-0.40466E+00,
     &-0.40030E-01, 0.14617E+00, 0.16810E+00, 0.10982E+00, 0.41343E-01,
     &-0.15629E-02,-0.18038E-01,-0.14738E-01,-0.70985E-02,-0.17488E-02,
     &-0.11967E-03,-0.11031E-02,-0.29417E-02,-0.23695E-02,-0.17700E-02,
     & 0.65506E-05, 0.78074E-03, 0.14798E-02, 0.11348E-02, 0.12140E-03,
     &-0.51049E-04,-0.41676E-03,-0.61497E-03, 0.15792E-03, 0.21857E-04,
     &-0.17250E-03, 0.51346E-03,-0.15266E-03, 0.25340E-03,-0.42032E-03,
     & 0.20375E-03,-0.12486E-03
     & /
       real p91(0:36)
       data p91/
     & 0.17359E+01,-0.50548E+00,-0.42633E+00,-0.77974E+00,-0.40627E+00,
     &-0.38023E-01, 0.14876E+00, 0.16968E+00, 0.11021E+00, 0.41035E-01,
     &-0.20275E-02,-0.18386E-01,-0.14887E-01,-0.71236E-02,-0.17335E-02,
     &-0.10908E-03,-0.11056E-02,-0.29538E-02,-0.23633E-02,-0.17570E-02,
     & 0.26616E-04, 0.79447E-03, 0.14884E-02, 0.11344E-02, 0.11293E-03,
     &-0.55897E-04,-0.41974E-03,-0.61663E-03, 0.16364E-03, 0.24003E-04,
     &-0.17487E-03, 0.51701E-03,-0.15593E-03, 0.25543E-03,-0.42492E-03,
     & 0.20665E-03,-0.12523E-03
     & /
       real p92(0:36)
       data p92/
     & 0.17539E+01,-0.51346E+00,-0.43273E+00,-0.78711E+00,-0.40783E+00,
     &-0.35994E-01, 0.15136E+00, 0.17125E+00, 0.11059E+00, 0.40720E-01,
     &-0.24942E-02,-0.18733E-01,-0.15033E-01,-0.71473E-02,-0.17174E-02,
     &-0.98309E-04,-0.11079E-02,-0.29655E-02,-0.23569E-02,-0.17439E-02,
     & 0.46692E-04, 0.80799E-03, 0.14969E-02, 0.11338E-02, 0.10441E-03,
     &-0.60695E-04,-0.42267E-03,-0.61826E-03, 0.16937E-03, 0.26152E-04,
     &-0.17730E-03, 0.52058E-03,-0.15920E-03, 0.25741E-03,-0.42946E-03,
     & 0.20956E-03,-0.12566E-03
     & /
       real p93(0:36)
       data p93/
     & 0.17718E+01,-0.52147E+00,-0.43914E+00,-0.79445E+00,-0.40935E+00,
     &-0.33944E-01, 0.15395E+00, 0.17280E+00, 0.11096E+00, 0.40397E-01,
     &-0.29626E-02,-0.19079E-01,-0.15177E-01,-0.71698E-02,-0.17007E-02,
     &-0.87352E-04,-0.11100E-02,-0.29768E-02,-0.23505E-02,-0.17306E-02,
     & 0.66764E-04, 0.82127E-03, 0.15052E-02, 0.11331E-02, 0.95846E-04,
     &-0.65437E-04,-0.42556E-03,-0.61986E-03, 0.17512E-03, 0.28303E-04,
     &-0.17979E-03, 0.52415E-03,-0.16247E-03, 0.25935E-03,-0.43393E-03,
     & 0.21248E-03,-0.12614E-03
     & /
       real p94(0:36)
       data p94/
     & 0.17898E+01,-0.52950E+00,-0.44556E+00,-0.80176E+00,-0.41085E+00,
     &-0.31880E-01, 0.15654E+00, 0.17434E+00, 0.11131E+00, 0.40069E-01,
     &-0.34311E-02,-0.19422E-01,-0.15318E-01,-0.71908E-02,-0.16830E-02,
     &-0.76226E-04,-0.11120E-02,-0.29877E-02,-0.23441E-02,-0.17171E-02,
     & 0.86740E-04, 0.83419E-03, 0.15135E-02, 0.11322E-02, 0.87259E-04,
     &-0.70066E-04,-0.42840E-03,-0.62144E-03, 0.18087E-03, 0.30461E-04,
     &-0.18237E-03, 0.52777E-03,-0.16573E-03, 0.26120E-03,-0.43828E-03,
     & 0.21540E-03,-0.12674E-03
     & /
       real p95(0:36)
       data p95/
     & 0.18078E+01,-0.53746E+00,-0.45191E+00,-0.80907E+00,-0.41239E+00,
     &-0.29907E-01, 0.15905E+00, 0.17584E+00, 0.11166E+00, 0.39765E-01,
     &-0.38733E-02,-0.19746E-01,-0.15447E-01,-0.72099E-02,-0.16619E-02,
     &-0.65163E-04,-0.11141E-02,-0.29967E-02,-0.23413E-02,-0.17047E-02,
     & 0.10515E-03, 0.84425E-03, 0.15229E-02, 0.11310E-02, 0.79039E-04,
     &-0.73566E-04,-0.43124E-03,-0.62334E-03, 0.18626E-03, 0.32765E-04,
     &-0.18569E-03, 0.53194E-03,-0.16873E-03, 0.26227E-03,-0.44159E-03,
     & 0.21821E-03,-0.12844E-03
     & /
       real p96(0:36)
       data p96/
     & 0.18257E+01,-0.54545E+00,-0.45828E+00,-0.81634E+00,-0.41389E+00,
     &-0.27907E-01, 0.16157E+00, 0.17733E+00, 0.11200E+00, 0.39451E-01,
     &-0.43189E-02,-0.20070E-01,-0.15574E-01,-0.72278E-02,-0.16403E-02,
     &-0.53903E-04,-0.11161E-02,-0.30055E-02,-0.23381E-02,-0.16921E-02,
     & 0.12365E-03, 0.85429E-03, 0.15321E-02, 0.11297E-02, 0.70754E-04,
     &-0.77090E-04,-0.43402E-03,-0.62518E-03, 0.19169E-03, 0.35054E-04,
     &-0.18901E-03, 0.53607E-03,-0.17176E-03, 0.26336E-03,-0.44491E-03,
     & 0.22104E-03,-0.13010E-03
     & /
       real p97(0:36)
       data p97/
     & 0.18437E+01,-0.55347E+00,-0.46466E+00,-0.82359E+00,-0.41535E+00,
     &-0.25881E-01, 0.16408E+00, 0.17880E+00, 0.11233E+00, 0.39130E-01,
     &-0.47676E-02,-0.20393E-01,-0.15700E-01,-0.72444E-02,-0.16182E-02,
     &-0.42449E-04,-0.11178E-02,-0.30140E-02,-0.23345E-02,-0.16793E-02,
     & 0.14223E-03, 0.86429E-03, 0.15410E-02, 0.11283E-02, 0.62411E-04,
     &-0.80637E-04,-0.43675E-03,-0.62697E-03, 0.19716E-03, 0.37326E-04,
     &-0.19233E-03, 0.54018E-03,-0.17481E-03, 0.26446E-03,-0.44825E-03,
     & 0.22388E-03,-0.13174E-03
     & /
       real p98(0:36)
       data p98/
     & 0.18616E+01,-0.56151E+00,-0.47106E+00,-0.83082E+00,-0.41677E+00,
     &-0.23829E-01, 0.16660E+00, 0.18027E+00, 0.11264E+00, 0.38799E-01,
     &-0.52193E-02,-0.20716E-01,-0.15824E-01,-0.72597E-02,-0.15956E-02,
     &-0.30803E-04,-0.11194E-02,-0.30223E-02,-0.23305E-02,-0.16662E-02,
     & 0.16087E-03, 0.87426E-03, 0.15498E-02, 0.11268E-02, 0.54012E-04,
     &-0.84204E-04,-0.43944E-03,-0.62871E-03, 0.20267E-03, 0.39578E-04,
     &-0.19566E-03, 0.54427E-03,-0.17787E-03, 0.26560E-03,-0.45161E-03,
     & 0.22675E-03,-0.13335E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  34,  34,  34,  34,  34,  34,  34
     &,  34,  34,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36,  36,  36,  36
     &,  36,  36,  36,  36,  36,  36,  36
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.34) param(i,15) = p15(i)
             if (i.le.34) param(i,16) = p16(i)
             if (i.le.34) param(i,17) = p17(i)
             if (i.le.34) param(i,18) = p18(i)
             if (i.le.34) param(i,19) = p19(i)
             if (i.le.34) param(i,20) = p20(i)
             if (i.le.34) param(i,21) = p21(i)
             if (i.le.34) param(i,22) = p22(i)
             if (i.le.34) param(i,23) = p23(i)
             if (i.le.36) param(i,24) = p24(i)
             if (i.le.36) param(i,25) = p25(i)
             if (i.le.36) param(i,26) = p26(i)
             if (i.le.36) param(i,27) = p27(i)
             if (i.le.36) param(i,28) = p28(i)
             if (i.le.36) param(i,29) = p29(i)
             if (i.le.36) param(i,30) = p30(i)
             if (i.le.36) param(i,31) = p31(i)
             if (i.le.36) param(i,32) = p32(i)
             if (i.le.36) param(i,33) = p33(i)
             if (i.le.36) param(i,34) = p34(i)
             if (i.le.36) param(i,35) = p35(i)
             if (i.le.36) param(i,36) = p36(i)
             if (i.le.36) param(i,37) = p37(i)
             if (i.le.36) param(i,38) = p38(i)
             if (i.le.36) param(i,39) = p39(i)
             if (i.le.36) param(i,40) = p40(i)
             if (i.le.36) param(i,41) = p41(i)
             if (i.le.36) param(i,42) = p42(i)
             if (i.le.36) param(i,43) = p43(i)
             if (i.le.36) param(i,44) = p44(i)
             if (i.le.36) param(i,45) = p45(i)
             if (i.le.36) param(i,46) = p46(i)
             if (i.le.36) param(i,47) = p47(i)
             if (i.le.36) param(i,48) = p48(i)
             if (i.le.36) param(i,49) = p49(i)
             if (i.le.36) param(i,50) = p50(i)
             if (i.le.36) param(i,51) = p51(i)
             if (i.le.36) param(i,52) = p52(i)
             if (i.le.36) param(i,53) = p53(i)
             if (i.le.36) param(i,54) = p54(i)
             if (i.le.36) param(i,55) = p55(i)
             if (i.le.36) param(i,56) = p56(i)
             if (i.le.36) param(i,57) = p57(i)
             if (i.le.36) param(i,58) = p58(i)
             if (i.le.36) param(i,59) = p59(i)
             if (i.le.36) param(i,60) = p60(i)
             if (i.le.36) param(i,61) = p61(i)
             if (i.le.36) param(i,62) = p62(i)
             if (i.le.36) param(i,63) = p63(i)
             if (i.le.36) param(i,64) = p64(i)
             if (i.le.36) param(i,65) = p65(i)
             if (i.le.36) param(i,66) = p66(i)
             if (i.le.36) param(i,67) = p67(i)
             if (i.le.36) param(i,68) = p68(i)
             if (i.le.36) param(i,69) = p69(i)
             if (i.le.36) param(i,70) = p70(i)
             if (i.le.36) param(i,71) = p71(i)
             if (i.le.36) param(i,72) = p72(i)
             if (i.le.36) param(i,73) = p73(i)
             if (i.le.36) param(i,74) = p74(i)
             if (i.le.36) param(i,75) = p75(i)
             if (i.le.36) param(i,76) = p76(i)
             if (i.le.36) param(i,77) = p77(i)
             if (i.le.36) param(i,78) = p78(i)
             if (i.le.36) param(i,79) = p79(i)
             if (i.le.36) param(i,80) = p80(i)
             if (i.le.36) param(i,81) = p81(i)
             if (i.le.36) param(i,82) = p82(i)
             if (i.le.36) param(i,83) = p83(i)
             if (i.le.36) param(i,84) = p84(i)
             if (i.le.36) param(i,85) = p85(i)
             if (i.le.36) param(i,86) = p86(i)
             if (i.le.36) param(i,87) = p87(i)
             if (i.le.36) param(i,88) = p88(i)
             if (i.le.36) param(i,89) = p89(i)
             if (i.le.36) param(i,90) = p90(i)
             if (i.le.36) param(i,91) = p91(i)
             if (i.le.36) param(i,92) = p92(i)
             if (i.le.36) param(i,93) = p93(i)
             if (i.le.36) param(i,94) = p94(i)
             if (i.le.36) param(i,95) = p95(i)
             if (i.le.36) param(i,96) = p96(i)
             if (i.le.36) param(i,97) = p97(i)
             if (i.le.36) param(i,98) = p98(i)
          enddo
       endif
            
       w3cpct5d00=0.
       x=xin
       q2=q2in
       if(x.GT.xmax) return
       if(x.LE.xmin) return
       if(q2.GT.q2max) return
       if(q2.LE.q2min) return
       do i = 1,nq-1
         if(q2.GT.qbin(i).and.q2.LE.qbin(i+1))goto 1
       enddo
       return
1      t=(2*log10(x)-log10(xmin)-log10(xmax))/(log10(xmax)-log10(xmin))
       do 3 k=0,1  
         do 2 j=0,nqbin(i+k)  
           coef(j)=param(j,i+k)
2        continue
         f(k+1) = dchsum(1,coef,nqbin(i+k),t)
         if (f(k+1).GT.0.) then
           f(k+1)=log(f(k+1))
         elseif (f(k+1).GT.0.) then
           f(k+1)=-70.-log(-f(k+1))
         else
           f(k+1)=-35.
         endif
3      continue
       a=(f(2)-f(1))/log(qbin(i+1)/qbin(i))
       b=f(2)-a*log(qbin(i+1))
       a=a*log(q2)+b
       if(a.LT.-35.) then
         a=-a-70.
         a=-exp(a)
       else
         a=exp(a)
       endif
       w3cpct5d00=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w3cpct5d00=0.0
       if (q2.lt.q2min) w3cpct5d00=0.0
       if ( x.gt. xmax) w3cpct5d00=0.0
       if ( x.lt. xmin) w3cpct5d00=0.0
       return
       end
