**************************************************************************
**************************************************************************
*  
* 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 
*
*
*
**************************************************************************
**************************************************************************
       subroutine pdf_ct5d_lo(x,q2,uv,dv,us,ds,ss,cs,bs,gl)
  
       real x,q2,uv,dv,us,ds,ss,cs,bs,gl
  
       uv=uvalct5dlo(x,q2)
       dv=dvalct5dlo(x,q2)
       us=ubarct5dlo(x,q2)
       ds=dbarct5dlo(x,q2)
       ss=sbarct5dlo(x,q2)
       cs=cbarct5dlo(x,q2)
       bs=bbarct5dlo(x,q2)
       gl=glu0ct5dlo(x,q2)
  
       return
       end
       real function  uvalct5dlo(xin,q2in)
***********************************************************
c  parametrization of uvalct5dlo 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:25)
       data p15/
     & 0.14539E+00, 0.19190E+00, 0.21292E-01,-0.89407E-01,-0.11930E+00,
     &-0.99721E-01,-0.62684E-01,-0.27933E-01,-0.40038E-02, 0.82760E-02,
     & 0.11968E-01, 0.10938E-01, 0.81827E-02, 0.53992E-02, 0.32622E-02,
     & 0.18574E-02, 0.10233E-02, 0.55648E-03, 0.30682E-03, 0.17629E-03,
     & 0.11020E-03, 0.73356E-04, 0.47861E-04, 0.30773E-04, 0.20170E-04,
     & 0.10079E-04
     & /
       real p16(0:24)
       data p16/
     & 0.15060E+00, 0.19811E+00, 0.20761E-01,-0.93602E-01,-0.12376E+00,
     &-0.10279E+00,-0.64111E-01,-0.28138E-01,-0.35560E-02, 0.89200E-02,
     & 0.12544E-01, 0.11350E-01, 0.84316E-02, 0.55278E-02, 0.33172E-02,
     & 0.18739E-02, 0.10231E-02, 0.55044E-03, 0.29986E-03, 0.17021E-03,
     & 0.10556E-03, 0.69984E-04, 0.45334E-04, 0.28884E-04, 0.18863E-04
     & /
       real p17(0:24)
       data p17/
     & 0.16091E+00, 0.21030E+00, 0.19475E-01,-0.10208E+00,-0.13259E+00,
     &-0.10874E+00,-0.66780E-01,-0.28405E-01,-0.25748E-02, 0.10243E-01,
     & 0.13698E-01, 0.12157E-01, 0.89096E-02, 0.57673E-02, 0.34133E-02,
     & 0.18974E-02, 0.10164E-02, 0.53426E-03, 0.28332E-03, 0.15638E-03,
     & 0.95195E-04, 0.62496E-04, 0.39781E-04, 0.24773E-04, 0.16018E-04
     & /
       real p18(0:24)
       data p18/
     & 0.17114E+00, 0.22227E+00, 0.18028E-01,-0.11055E+00,-0.14128E+00,
     &-0.11450E+00,-0.69277E-01,-0.28568E-01,-0.15592E-02, 0.11552E-01,
     & 0.14817E-01, 0.12926E-01, 0.93544E-02, 0.59826E-02, 0.34940E-02,
     & 0.19117E-02, 0.10047E-02, 0.51556E-03, 0.26574E-03, 0.14208E-03,
     & 0.84808E-04, 0.55014E-04, 0.34335E-04, 0.20818E-04, 0.13200E-04
     & /
       real p19(0:23)
       data p19/
     & 0.18124E+00, 0.23397E+00, 0.16372E-01,-0.11906E+00,-0.14982E+00,
     &-0.12003E+00,-0.71573E-01,-0.28598E-01,-0.48131E-03, 0.12871E-01,
     & 0.15914E-01, 0.13663E-01, 0.97698E-02, 0.61750E-02, 0.35588E-02,
     & 0.19161E-02, 0.98714E-03, 0.49346E-03, 0.24631E-03, 0.12672E-03,
     & 0.73865E-04, 0.47175E-04, 0.28698E-04, 0.16774E-04
     & /
       real p20(0:23)
       data p20/
     & 0.19119E+00, 0.24535E+00, 0.14461E-01,-0.12763E+00,-0.15824E+00,
     &-0.12534E+00,-0.73643E-01,-0.28462E-01, 0.68631E-03, 0.14218E-01,
     & 0.17005E-01, 0.14376E-01, 0.10159E-01, 0.63456E-02, 0.36076E-02,
     & 0.19096E-02, 0.96267E-03, 0.46707E-03, 0.22421E-03, 0.10969E-03,
     & 0.61840E-04, 0.38618E-04, 0.22571E-04, 0.12399E-04
     & /
       real p21(0:22)
       data p21/
     & 0.20101E+00, 0.25644E+00, 0.12316E-01,-0.13624E+00,-0.16652E+00,
     &-0.13043E+00,-0.75503E-01,-0.28178E-01, 0.19323E-02, 0.15589E-01,
     & 0.18085E-01, 0.15066E-01, 0.10524E-01, 0.64955E-02, 0.36414E-02,
     & 0.18933E-02, 0.93205E-03, 0.43697E-03, 0.19983E-03, 0.91266E-04,
     & 0.48924E-04, 0.29483E-04, 0.16051E-04
     & /
       real p22(0:21)
       data p22/
     & 0.21071E+00, 0.26725E+00, 0.99582E-02,-0.14490E+00,-0.17467E+00,
     &-0.13531E+00,-0.77170E-01,-0.27759E-01, 0.32454E-02, 0.16975E-01,
     & 0.19151E-01, 0.15732E-01, 0.10864E-01, 0.66259E-02, 0.36616E-02,
     & 0.18682E-02, 0.89607E-03, 0.40372E-03, 0.17357E-03, 0.71737E-04,
     & 0.35314E-04, 0.19910E-04
     & /
       real p23(0:21)
       data p23/
     & 0.22030E+00, 0.27781E+00, 0.74086E-02,-0.15358E+00,-0.18270E+00,
     &-0.14000E+00,-0.78659E-01,-0.27222E-01, 0.46142E-02, 0.18370E-01,
     & 0.20201E-01, 0.16372E-01, 0.11180E-01, 0.67380E-02, 0.36691E-02,
     & 0.18352E-02, 0.85547E-03, 0.36788E-03, 0.14582E-03, 0.51382E-04,
     & 0.21203E-04, 0.10040E-04
     & /
       real p24(0:20)
       data p24/
     & 0.22987E+00, 0.28831E+00, 0.48268E-02,-0.16221E+00,-0.19061E+00,
     &-0.14458E+00,-0.80084E-01,-0.26678E-01, 0.59489E-02, 0.19714E-01,
     & 0.21202E-01, 0.16975E-01, 0.11472E-01, 0.68368E-02, 0.36708E-02,
     & 0.18011E-02, 0.81572E-03, 0.33385E-03, 0.11955E-03, 0.32513E-04,
     & 0.81435E-05
     & /
       real p25(0:20)
       data p25/
     & 0.23934E+00, 0.29858E+00, 0.20673E-02,-0.17087E+00,-0.19840E+00,
     &-0.14897E+00,-0.81344E-01,-0.26027E-01, 0.73327E-02, 0.21064E-01,
     & 0.22185E-01, 0.17554E-01, 0.11741E-01, 0.69188E-02, 0.36612E-02,
     & 0.17599E-02, 0.77194E-03, 0.29758E-03, 0.92059E-04, 0.12969E-04,
     &-0.53056E-05
     & /
       real p26(0:20)
       data p26/
     & 0.24870E+00, 0.30862E+00,-0.86950E-03,-0.17954E+00,-0.20607E+00,
     &-0.15319E+00,-0.82442E-01,-0.25268E-01, 0.87660E-02, 0.22421E-01,
     & 0.23154E-01, 0.18109E-01, 0.11989E-01, 0.69844E-02, 0.36405E-02,
     & 0.17119E-02, 0.72419E-03, 0.25905E-03, 0.63346E-04,-0.72727E-05,
     &-0.19154E-04
     & /
       real p27(0:19)
       data p27/
     & 0.25797E+00, 0.31845E+00,-0.39703E-02,-0.18824E+00,-0.21362E+00,
     &-0.15724E+00,-0.83389E-01,-0.24412E-01, 0.10242E-01, 0.23782E-01,
     & 0.24105E-01, 0.18642E-01, 0.12216E-01, 0.70346E-02, 0.36096E-02,
     & 0.16578E-02, 0.67297E-03, 0.21862E-03, 0.33661E-04,-0.28045E-04
     & /
       real p28(0:19)
       data p28/
     & 0.26715E+00, 0.32808E+00,-0.72217E-02,-0.19695E+00,-0.22107E+00,
     &-0.16113E+00,-0.84197E-01,-0.23467E-01, 0.11753E-01, 0.25142E-01,
     & 0.25037E-01, 0.19152E-01, 0.12423E-01, 0.70702E-02, 0.35694E-02,
     & 0.15981E-02, 0.61878E-03, 0.17663E-03, 0.32508E-05,-0.49181E-04
     & /
       real p29(0:22)
       data p29/
     & 0.27625E+00, 0.33752E+00,-0.10610E-01,-0.20567E+00,-0.22840E+00,
     &-0.16486E+00,-0.84875E-01,-0.22445E-01, 0.13293E-01, 0.26497E-01,
     & 0.25950E-01, 0.19639E-01, 0.12611E-01, 0.70923E-02, 0.35207E-02,
     & 0.15337E-02, 0.56212E-03, 0.13343E-03,-0.27634E-04,-0.70511E-04,
     &-0.61917E-04,-0.46686E-04,-0.37978E-04
     & /
       real p30(0:22)
       data p30/
     & 0.28534E+00, 0.34691E+00,-0.14032E-01,-0.21434E+00,-0.23564E+00,
     &-0.16850E+00,-0.85501E-01,-0.21418E-01, 0.14804E-01, 0.27811E-01,
     & 0.26823E-01, 0.20097E-01, 0.12781E-01, 0.71049E-02, 0.34686E-02,
     & 0.14691E-02, 0.50676E-03, 0.91700E-04,-0.56780E-04,-0.90539E-04,
     &-0.75176E-04,-0.55480E-04,-0.44085E-04
     & /
       real p31(0:23)
       data p31/
     & 0.29442E+00, 0.35627E+00,-0.17451E-01,-0.22295E+00,-0.24278E+00,
     &-0.17207E+00,-0.86103E-01,-0.20413E-01, 0.16267E-01, 0.29072E-01,
     & 0.27652E-01, 0.20523E-01, 0.12934E-01, 0.71098E-02, 0.34148E-02,
     & 0.14059E-02, 0.45398E-03, 0.52345E-04,-0.83459E-04,-0.10877E-03,
     &-0.86990E-04,-0.63137E-04,-0.49313E-04,-0.38245E-04
     & /
       real p32(0:23)
       data p32/
     & 0.29837E+00, 0.36032E+00,-0.18995E-01,-0.22672E+00,-0.24587E+00,
     &-0.17358E+00,-0.86326E-01,-0.19947E-01, 0.16919E-01, 0.29624E-01,
     & 0.28010E-01, 0.20704E-01, 0.12995E-01, 0.71081E-02, 0.33887E-02,
     & 0.13768E-02, 0.43004E-03, 0.34682E-04,-0.95371E-04,-0.11687E-03,
     &-0.92226E-04,-0.66523E-04,-0.51623E-04,-0.39836E-04
     & /
       real p33(0:23)
       data p33/
     & 0.30342E+00, 0.36545E+00,-0.21011E-01,-0.23156E+00,-0.24981E+00,
     &-0.17548E+00,-0.86577E-01,-0.19329E-01, 0.17762E-01, 0.30332E-01,
     & 0.28464E-01, 0.20930E-01, 0.13069E-01, 0.71024E-02, 0.33531E-02,
     & 0.13382E-02, 0.39870E-03, 0.11722E-04,-0.11080E-03,-0.12733E-03,
     &-0.98976E-04,-0.70880E-04,-0.54594E-04,-0.41879E-04
     & /
       real p34(0:23)
       data p34/
     & 0.31234E+00, 0.37446E+00,-0.24703E-01,-0.24019E+00,-0.25675E+00,
     &-0.17876E+00,-0.86930E-01,-0.18171E-01, 0.19286E-01, 0.31590E-01,
     & 0.29260E-01, 0.21318E-01, 0.13188E-01, 0.70832E-02, 0.32842E-02,
     & 0.12662E-02, 0.34119E-03,-0.29977E-04,-0.13869E-03,-0.14613E-03,
     &-0.11108E-03,-0.78676E-04,-0.59905E-04,-0.45520E-04
     & /
       real p35(0:24)
       data p35/
     & 0.32120E+00, 0.38330E+00,-0.28521E-01,-0.24882E+00,-0.26358E+00,
     &-0.18190E+00,-0.87168E-01,-0.16944E-01, 0.20834E-01, 0.32845E-01,
     & 0.30039E-01, 0.21686E-01, 0.13292E-01, 0.70532E-02, 0.32084E-02,
     & 0.11904E-02, 0.28175E-03,-0.72558E-04,-0.16701E-03,-0.16510E-03,
     &-0.12326E-03,-0.86492E-04,-0.65225E-04,-0.49150E-04,-0.32474E-04
     & /
       real p36(0:24)
       data p36/
     & 0.32998E+00, 0.39197E+00,-0.32458E-01,-0.25746E+00,-0.27032E+00,
     &-0.18491E+00,-0.87299E-01,-0.15655E-01, 0.22404E-01, 0.34094E-01,
     & 0.30801E-01, 0.22036E-01, 0.13380E-01, 0.70128E-02, 0.31265E-02,
     & 0.11113E-02, 0.22066E-03,-0.11583E-03,-0.19564E-03,-0.18415E-03,
     &-0.13546E-03,-0.94294E-04,-0.70532E-04,-0.52755E-04,-0.34680E-04
     & /
       real p37(0:24)
       data p37/
     & 0.33870E+00, 0.40050E+00,-0.36506E-01,-0.26610E+00,-0.27696E+00,
     &-0.18779E+00,-0.87329E-01,-0.14308E-01, 0.23991E-01, 0.35336E-01,
     & 0.31546E-01, 0.22369E-01, 0.13454E-01, 0.69629E-02, 0.30390E-02,
     & 0.10292E-02, 0.15820E-03,-0.15959E-03,-0.22446E-03,-0.20321E-03,
     &-0.14764E-03,-0.10205E-03,-0.75804E-04,-0.56320E-04,-0.36838E-04
     & /
       real p38(0:24)
       data p38/
     & 0.34736E+00, 0.40889E+00,-0.40658E-01,-0.27473E+00,-0.28351E+00,
     &-0.19055E+00,-0.87263E-01,-0.12909E-01, 0.25593E-01, 0.36570E-01,
     & 0.32273E-01, 0.22683E-01, 0.13515E-01, 0.69042E-02, 0.29466E-02,
     & 0.94454E-03, 0.94657E-04,-0.20366E-03,-0.25336E-03,-0.22220E-03,
     &-0.15973E-03,-0.10972E-03,-0.81021E-04,-0.59829E-04,-0.38937E-04
     & /
       real p39(0:24)
       data p39/
     & 0.35596E+00, 0.41714E+00,-0.44906E-01,-0.28336E+00,-0.28997E+00,
     &-0.19321E+00,-0.87110E-01,-0.11463E-01, 0.27206E-01, 0.37793E-01,
     & 0.32982E-01, 0.22980E-01, 0.13563E-01, 0.68373E-02, 0.28496E-02,
     & 0.85779E-03, 0.30320E-04,-0.24784E-03,-0.28222E-03,-0.24103E-03,
     &-0.17169E-03,-0.11728E-03,-0.86159E-04,-0.63267E-04,-0.40965E-04
     & /
       real p40(0:24)
       data p40/
     & 0.36455E+00, 0.42535E+00,-0.49181E-01,-0.29195E+00,-0.29635E+00,
     &-0.19580E+00,-0.86930E-01,-0.10026E-01, 0.28791E-01, 0.38984E-01,
     & 0.33666E-01, 0.23262E-01, 0.13603E-01, 0.67687E-02, 0.27542E-02,
     & 0.77331E-03,-0.31603E-04,-0.28965E-03,-0.30967E-03,-0.25867E-03,
     &-0.18289E-03,-0.12425E-03,-0.90950E-04,-0.66433E-04,-0.42724E-04
     & /
       real p41(0:24)
       data p41/
     & 0.37313E+00, 0.43352E+00,-0.53463E-01,-0.30049E+00,-0.30267E+00,
     &-0.19833E+00,-0.86740E-01,-0.86128E-02, 0.30339E-01, 0.40139E-01,
     & 0.34324E-01, 0.23528E-01, 0.13639E-01, 0.67002E-02, 0.26619E-02,
     & 0.69227E-03,-0.90287E-04,-0.32848E-03,-0.33536E-03,-0.27486E-03,
     &-0.19317E-03,-0.13051E-03,-0.95327E-04,-0.69279E-04,-0.44170E-04
     & /
       real p42(0:24)
       data p42/
     & 0.38165E+00, 0.44156E+00,-0.57845E-01,-0.30903E+00,-0.30889E+00,
     &-0.20076E+00,-0.86459E-01,-0.71497E-02, 0.31900E-01, 0.41286E-01,
     & 0.34966E-01, 0.23778E-01, 0.13661E-01, 0.66234E-02, 0.25647E-02,
     & 0.60881E-03,-0.15006E-03,-0.36772E-03,-0.36114E-03,-0.29104E-03,
     &-0.20339E-03,-0.13672E-03,-0.99657E-04,-0.72079E-04,-0.45584E-04
     & /
       real p43(0:24)
       data p43/
     & 0.39012E+00, 0.44947E+00,-0.62321E-01,-0.31757E+00,-0.31504E+00,
     &-0.20308E+00,-0.86094E-01,-0.56408E-02, 0.33472E-01, 0.42425E-01,
     & 0.35591E-01, 0.24013E-01, 0.13672E-01, 0.65388E-02, 0.24631E-02,
     & 0.52318E-03,-0.21074E-03,-0.40729E-03,-0.38696E-03,-0.30716E-03,
     &-0.21354E-03,-0.14289E-03,-0.10393E-03,-0.74826E-04,-0.46963E-04
     & /
       real p44(0:24)
       data p44/
     & 0.39854E+00, 0.45726E+00,-0.66887E-01,-0.32610E+00,-0.32109E+00,
     &-0.20529E+00,-0.85647E-01,-0.40893E-02, 0.35055E-01, 0.43553E-01,
     & 0.36200E-01, 0.24231E-01, 0.13670E-01, 0.64469E-02, 0.23574E-02,
     & 0.43565E-03,-0.27218E-03,-0.44709E-03,-0.41273E-03,-0.32320E-03,
     &-0.22358E-03,-0.14898E-03,-0.10813E-03,-0.77512E-04,-0.48304E-04
     & /
       real p45(0:24)
       data p45/
     & 0.40690E+00, 0.46493E+00,-0.71538E-01,-0.33462E+00,-0.32706E+00,
     &-0.20740E+00,-0.85123E-01,-0.24989E-02, 0.36645E-01, 0.44672E-01,
     & 0.36792E-01, 0.24435E-01, 0.13658E-01, 0.63481E-02, 0.22480E-02,
     & 0.34646E-03,-0.33421E-03,-0.48700E-03,-0.43840E-03,-0.33910E-03,
     &-0.23348E-03,-0.15498E-03,-0.11225E-03,-0.80128E-04,-0.49602E-04
     & /
       real p46(0:24)
       data p46/
     & 0.41523E+00, 0.47248E+00,-0.76269E-01,-0.34314E+00,-0.33296E+00,
     &-0.20941E+00,-0.84527E-01,-0.87298E-03, 0.38241E-01, 0.45779E-01,
     & 0.37368E-01, 0.24624E-01, 0.13635E-01, 0.62429E-02, 0.21352E-02,
     & 0.25588E-03,-0.39666E-03,-0.52693E-03,-0.46391E-03,-0.35483E-03,
     &-0.24322E-03,-0.16089E-03,-0.11628E-03,-0.82668E-04,-0.50855E-04
     & /
       real p47(0:25)
       data p47/
     & 0.42350E+00, 0.47993E+00,-0.81076E-01,-0.35164E+00,-0.33877E+00,
     &-0.21133E+00,-0.83863E-01, 0.78504E-03, 0.39840E-01, 0.46874E-01,
     & 0.37927E-01, 0.24798E-01, 0.13602E-01, 0.61319E-02, 0.20195E-02,
     & 0.16417E-03,-0.45936E-03,-0.56678E-03,-0.48917E-03,-0.37035E-03,
     &-0.25278E-03,-0.16668E-03,-0.12021E-03,-0.85122E-04,-0.52059E-04,
     &-0.35176E-04
     & /
       real p48(0:25)
       data p48/
     & 0.43174E+00, 0.48728E+00,-0.85953E-01,-0.36013E+00,-0.34451E+00,
     &-0.21316E+00,-0.83135E-01, 0.24717E-02, 0.41440E-01, 0.47956E-01,
     & 0.38470E-01, 0.24958E-01, 0.13559E-01, 0.60153E-02, 0.19010E-02,
     & 0.71567E-04,-0.52216E-03,-0.60645E-03,-0.51414E-03,-0.38562E-03,
     &-0.26212E-03,-0.17233E-03,-0.12401E-03,-0.87484E-04,-0.53211E-04,
     &-0.35660E-04
     & /
       real p49(0:25)
       data p49/
     & 0.43993E+00, 0.49453E+00,-0.90896E-01,-0.36861E+00,-0.35017E+00,
     &-0.21491E+00,-0.82347E-01, 0.41834E-02, 0.43040E-01, 0.49024E-01,
     & 0.38996E-01, 0.25105E-01, 0.13508E-01, 0.58938E-02, 0.17803E-02,
     &-0.21659E-04,-0.58487E-03,-0.64584E-03,-0.53873E-03,-0.40059E-03,
     &-0.27122E-03,-0.17784E-03,-0.12769E-03,-0.89745E-04,-0.54305E-04,
     &-0.36058E-04
     & /
       real p50(0:25)
       data p50/
     & 0.44809E+00, 0.50169E+00,-0.95901E-01,-0.37707E+00,-0.35576E+00,
     &-0.21658E+00,-0.81505E-01, 0.59168E-02, 0.44636E-01, 0.50078E-01,
     & 0.39505E-01, 0.25238E-01, 0.13447E-01, 0.57678E-02, 0.16576E-02,
     &-0.11526E-03,-0.64734E-03,-0.68485E-03,-0.56289E-03,-0.41524E-03,
     &-0.28005E-03,-0.18319E-03,-0.13123E-03,-0.91898E-04,-0.55341E-04,
     &-0.36364E-04
     & /
       real p51(0:25)
       data p51/
     & 0.45630E+00, 0.50893E+00,-0.10083E+00,-0.38545E+00,-0.36130E+00,
     &-0.21826E+00,-0.80727E-01, 0.75641E-02, 0.46154E-01, 0.51076E-01,
     & 0.39984E-01, 0.25362E-01, 0.13389E-01, 0.56500E-02, 0.15433E-02,
     &-0.20046E-03,-0.70354E-03,-0.71979E-03,-0.58364E-03,-0.42777E-03,
     &-0.28725E-03,-0.18769E-03,-0.13405E-03,-0.93349E-04,-0.56161E-04,
     &-0.36202E-04
     & /
       real p52(0:25)
       data p52/
     & 0.46447E+00, 0.51609E+00,-0.10580E+00,-0.39381E+00,-0.36677E+00,
     &-0.21987E+00,-0.79903E-01, 0.92263E-02, 0.47665E-01, 0.52057E-01,
     & 0.40446E-01, 0.25473E-01, 0.13322E-01, 0.55285E-02, 0.14277E-02,
     &-0.28555E-03,-0.75917E-03,-0.75415E-03,-0.60382E-03,-0.43990E-03,
     &-0.29412E-03,-0.19201E-03,-0.13671E-03,-0.94677E-04,-0.56915E-04,
     &-0.35940E-04
     & /
       real p53(0:25)
       data p53/
     & 0.47260E+00, 0.52315E+00,-0.11085E+00,-0.40216E+00,-0.37217E+00,
     &-0.22139E+00,-0.79017E-01, 0.10917E-01, 0.49179E-01, 0.53028E-01,
     & 0.40894E-01, 0.25571E-01, 0.13247E-01, 0.54019E-02, 0.13097E-02,
     &-0.37165E-03,-0.81503E-03,-0.78842E-03,-0.62386E-03,-0.45187E-03,
     &-0.30087E-03,-0.19622E-03,-0.13928E-03,-0.95970E-04,-0.57624E-04,
     &-0.35635E-04
     & /
       real p54(0:25)
       data p54/
     & 0.48070E+00, 0.53012E+00,-0.11597E+00,-0.41051E+00,-0.37750E+00,
     &-0.22283E+00,-0.78073E-01, 0.12635E-01, 0.50695E-01, 0.53987E-01,
     & 0.41327E-01, 0.25657E-01, 0.13164E-01, 0.52705E-02, 0.11893E-02,
     &-0.45863E-03,-0.87105E-03,-0.82256E-03,-0.64371E-03,-0.46366E-03,
     &-0.30749E-03,-0.20033E-03,-0.14178E-03,-0.97228E-04,-0.58285E-04,
     &-0.35287E-04
     & /
       real p55(0:25)
       data p55/
     & 0.48876E+00, 0.53699E+00,-0.12114E+00,-0.41883E+00,-0.38276E+00,
     &-0.22419E+00,-0.77073E-01, 0.14376E-01, 0.52211E-01, 0.54935E-01,
     & 0.41746E-01, 0.25731E-01, 0.13073E-01, 0.51347E-02, 0.10669E-02,
     &-0.54633E-03,-0.92712E-03,-0.85650E-03,-0.66335E-03,-0.47525E-03,
     &-0.31396E-03,-0.20433E-03,-0.14418E-03,-0.98451E-04,-0.58898E-04,
     &-0.34896E-04
     & /
       real p56(0:25)
       data p56/
     & 0.49678E+00, 0.54378E+00,-0.12638E+00,-0.42715E+00,-0.38796E+00,
     &-0.22548E+00,-0.76020E-01, 0.16140E-01, 0.53727E-01, 0.55872E-01,
     & 0.42151E-01, 0.25794E-01, 0.12974E-01, 0.49947E-02, 0.94268E-03,
     &-0.63461E-03,-0.98315E-03,-0.89020E-03,-0.68275E-03,-0.48663E-03,
     &-0.32028E-03,-0.20822E-03,-0.14650E-03,-0.99637E-04,-0.59460E-04,
     &-0.34461E-04
     & /
       real p57(0:24)
       data p57/
     & 0.50476E+00, 0.55048E+00,-0.13168E+00,-0.43545E+00,-0.39308E+00,
     &-0.22669E+00,-0.74917E-01, 0.17925E-01, 0.55241E-01, 0.56795E-01,
     & 0.42542E-01, 0.25846E-01, 0.12868E-01, 0.48508E-02, 0.81686E-03,
     &-0.72331E-03,-0.10391E-02,-0.92360E-03,-0.70189E-03,-0.49778E-03,
     &-0.32645E-03,-0.21198E-03,-0.14871E-03,-0.10079E-03,-0.59971E-04
     & /
       real p58(0:24)
       data p58/
     & 0.51272E+00, 0.55710E+00,-0.13703E+00,-0.44374E+00,-0.39814E+00,
     &-0.22783E+00,-0.73766E-01, 0.19727E-01, 0.56752E-01, 0.57706E-01,
     & 0.42919E-01, 0.25886E-01, 0.12755E-01, 0.47034E-02, 0.68969E-03,
     &-0.81231E-03,-0.10948E-02,-0.95664E-03,-0.72072E-03,-0.50868E-03,
     &-0.33244E-03,-0.21561E-03,-0.15083E-03,-0.10190E-03,-0.60428E-04
     & /
       real p59(0:24)
       data p59/
     & 0.52065E+00, 0.56365E+00,-0.14243E+00,-0.45201E+00,-0.40313E+00,
     &-0.22890E+00,-0.72572E-01, 0.21545E-01, 0.58258E-01, 0.58605E-01,
     & 0.43283E-01, 0.25917E-01, 0.12636E-01, 0.45528E-02, 0.56138E-03,
     &-0.90143E-03,-0.11501E-02,-0.98927E-03,-0.73922E-03,-0.51932E-03,
     &-0.33825E-03,-0.21910E-03,-0.15284E-03,-0.10298E-03,-0.60830E-04
     & /
       real p60(0:24)
       data p60/
     & 0.52854E+00, 0.57012E+00,-0.14788E+00,-0.46026E+00,-0.40807E+00,
     &-0.22991E+00,-0.71336E-01, 0.23377E-01, 0.59760E-01, 0.59489E-01,
     & 0.43633E-01, 0.25937E-01, 0.12511E-01, 0.43992E-02, 0.43218E-03,
     &-0.99055E-03,-0.12051E-02,-0.10214E-02,-0.75737E-03,-0.52966E-03,
     &-0.34387E-03,-0.22245E-03,-0.15473E-03,-0.10401E-03,-0.61175E-04
     & /
       real p61(0:24)
       data p61/
     & 0.53641E+00, 0.57652E+00,-0.15338E+00,-0.46850E+00,-0.41294E+00,
     &-0.23085E+00,-0.70061E-01, 0.25220E-01, 0.61255E-01, 0.60360E-01,
     & 0.43970E-01, 0.25947E-01, 0.12380E-01, 0.42431E-02, 0.30231E-03,
     &-0.10795E-02,-0.12596E-02,-0.10531E-02,-0.77513E-03,-0.53971E-03,
     &-0.34929E-03,-0.22566E-03,-0.15652E-03,-0.10502E-03,-0.61461E-04
     & /
       real p62(0:24)
       data p62/
     & 0.54426E+00, 0.58285E+00,-0.15892E+00,-0.47671E+00,-0.41775E+00,
     &-0.23174E+00,-0.68750E-01, 0.27073E-01, 0.62742E-01, 0.61217E-01,
     & 0.44293E-01, 0.25948E-01, 0.12244E-01, 0.40848E-02, 0.17201E-03,
     &-0.11682E-02,-0.13136E-02,-0.10842E-02,-0.79247E-03,-0.54944E-03,
     &-0.35451E-03,-0.22870E-03,-0.15819E-03,-0.10598E-03,-0.61688E-04
     & /
       real p63(0:24)
       data p63/
     & 0.55212E+00, 0.58922E+00,-0.16442E+00,-0.48488E+00,-0.42252E+00,
     &-0.23262E+00,-0.67478E-01, 0.28875E-01, 0.64181E-01, 0.62041E-01,
     & 0.44600E-01, 0.25945E-01, 0.12112E-01, 0.39321E-02, 0.48151E-04,
     &-0.12519E-02,-0.13637E-02,-0.11124E-02,-0.80822E-03,-0.55793E-03,
     &-0.35905E-03,-0.23124E-03,-0.15937E-03,-0.10697E-03,-0.61720E-04
     & /
       real p64(0:24)
       data p64/
     & 0.56000E+00, 0.59560E+00,-0.16990E+00,-0.49300E+00,-0.42726E+00,
     &-0.23350E+00,-0.66228E-01, 0.30637E-01, 0.65581E-01, 0.62836E-01,
     & 0.44892E-01, 0.25936E-01, 0.11981E-01, 0.37837E-02,-0.70652E-04,
     &-0.13318E-02,-0.14107E-02,-0.11383E-02,-0.82262E-03,-0.56538E-03,
     &-0.36301E-03,-0.23336E-03,-0.16014E-03,-0.10797E-03,-0.61588E-04
     & /
       real p65(0:24)
       data p65/
     & 0.56784E+00, 0.60190E+00,-0.17543E+00,-0.50111E+00,-0.43194E+00,
     &-0.23431E+00,-0.64936E-01, 0.32415E-01, 0.66979E-01, 0.63620E-01,
     & 0.45171E-01, 0.25918E-01, 0.11843E-01, 0.36321E-02,-0.19070E-03,
     &-0.14119E-02,-0.14575E-02,-0.11639E-02,-0.83678E-03,-0.57267E-03,
     &-0.36684E-03,-0.23537E-03,-0.16087E-03,-0.10892E-03,-0.61421E-04
     & /
       real p66(0:24)
       data p66/
     & 0.57566E+00, 0.60813E+00,-0.18101E+00,-0.50921E+00,-0.43655E+00,
     &-0.23506E+00,-0.63602E-01, 0.34208E-01, 0.68373E-01, 0.64393E-01,
     & 0.45439E-01, 0.25890E-01, 0.11701E-01, 0.34778E-02,-0.31185E-03,
     &-0.14921E-02,-0.15042E-02,-0.11893E-02,-0.85068E-03,-0.57978E-03,
     &-0.37054E-03,-0.23728E-03,-0.16155E-03,-0.10981E-03,-0.61220E-04
     & /
       real p67(0:24)
       data p67/
     & 0.58345E+00, 0.61428E+00,-0.18664E+00,-0.51729E+00,-0.44111E+00,
     &-0.23575E+00,-0.62228E-01, 0.36016E-01, 0.69764E-01, 0.65154E-01,
     & 0.45694E-01, 0.25854E-01, 0.11553E-01, 0.33207E-02,-0.43397E-03,
     &-0.15725E-02,-0.15506E-02,-0.12144E-02,-0.86431E-03,-0.58671E-03,
     &-0.37409E-03,-0.23909E-03,-0.16218E-03,-0.11065E-03,-0.60984E-04
     & /
       real p68(0:24)
       data p68/
     & 0.59122E+00, 0.62037E+00,-0.19231E+00,-0.52535E+00,-0.44561E+00,
     &-0.23638E+00,-0.60817E-01, 0.37836E-01, 0.71151E-01, 0.65904E-01,
     & 0.45939E-01, 0.25810E-01, 0.11399E-01, 0.31613E-02,-0.55692E-03,
     &-0.16528E-02,-0.15967E-02,-0.12393E-02,-0.87765E-03,-0.59346E-03,
     &-0.37751E-03,-0.24079E-03,-0.16277E-03,-0.11142E-03,-0.60714E-04
     & /
       real p69(0:24)
       data p69/
     & 0.59895E+00, 0.62640E+00,-0.19802E+00,-0.53340E+00,-0.45006E+00,
     &-0.23695E+00,-0.59370E-01, 0.39667E-01, 0.72532E-01, 0.66643E-01,
     & 0.46172E-01, 0.25757E-01, 0.11241E-01, 0.29996E-02,-0.68056E-03,
     &-0.17331E-02,-0.16425E-02,-0.12637E-02,-0.89070E-03,-0.60003E-03,
     &-0.38078E-03,-0.24239E-03,-0.16330E-03,-0.11214E-03,-0.60410E-04
     & /
       real p70(0:24)
       data p70/
     & 0.60667E+00, 0.63236E+00,-0.20378E+00,-0.54143E+00,-0.45445E+00,
     &-0.23746E+00,-0.57889E-01, 0.41508E-01, 0.73909E-01, 0.67370E-01,
     & 0.46393E-01, 0.25696E-01, 0.11078E-01, 0.28358E-02,-0.80476E-03,
     &-0.18131E-02,-0.16880E-02,-0.12878E-02,-0.90344E-03,-0.60640E-03,
     &-0.38390E-03,-0.24387E-03,-0.16380E-03,-0.11279E-03,-0.60071E-04
     & /
       real p71(0:24)
       data p71/
     & 0.61436E+00, 0.63825E+00,-0.20958E+00,-0.54945E+00,-0.45878E+00,
     &-0.23792E+00,-0.56376E-01, 0.43358E-01, 0.75278E-01, 0.68085E-01,
     & 0.46604E-01, 0.25627E-01, 0.10911E-01, 0.26703E-02,-0.92938E-03,
     &-0.18930E-02,-0.17330E-02,-0.13116E-02,-0.91586E-03,-0.61257E-03,
     &-0.38687E-03,-0.24524E-03,-0.16425E-03,-0.11338E-03,-0.59700E-04
     & /
       real p72(0:24)
       data p72/
     & 0.62202E+00, 0.64409E+00,-0.21541E+00,-0.55744E+00,-0.46307E+00,
     &-0.23833E+00,-0.54833E-01, 0.45216E-01, 0.76642E-01, 0.68789E-01,
     & 0.46804E-01, 0.25551E-01, 0.10740E-01, 0.25031E-02,-0.10543E-02,
     &-0.19725E-02,-0.17775E-02,-0.13349E-02,-0.92794E-03,-0.61854E-03,
     &-0.38969E-03,-0.24649E-03,-0.16465E-03,-0.11391E-03,-0.59295E-04
     & /
       real p73(0:24)
       data p73/
     & 0.62967E+00, 0.64988E+00,-0.22128E+00,-0.56543E+00,-0.46730E+00,
     &-0.23869E+00,-0.53262E-01, 0.47079E-01, 0.77997E-01, 0.69481E-01,
     & 0.46993E-01, 0.25468E-01, 0.10565E-01, 0.23345E-02,-0.11793E-02,
     &-0.20515E-02,-0.18216E-02,-0.13579E-02,-0.93967E-03,-0.62431E-03,
     &-0.39235E-03,-0.24763E-03,-0.16501E-03,-0.11437E-03,-0.58857E-04
     & /
       real p74(0:24)
       data p74/
     & 0.63730E+00, 0.65560E+00,-0.22719E+00,-0.57339E+00,-0.47148E+00,
     &-0.23900E+00,-0.51664E-01, 0.48947E-01, 0.79345E-01, 0.70160E-01,
     & 0.47172E-01, 0.25378E-01, 0.10387E-01, 0.21648E-02,-0.13044E-02,
     &-0.21301E-02,-0.18650E-02,-0.13803E-02,-0.95104E-03,-0.62986E-03,
     &-0.39485E-03,-0.24866E-03,-0.16533E-03,-0.11477E-03,-0.58386E-04
     & /
       real p75(0:24)
       data p75/
     & 0.64490E+00, 0.66128E+00,-0.23312E+00,-0.58134E+00,-0.47561E+00,
     &-0.23927E+00,-0.50041E-01, 0.50819E-01, 0.80684E-01, 0.70828E-01,
     & 0.47340E-01, 0.25282E-01, 0.10205E-01, 0.19940E-02,-0.14293E-02,
     &-0.22081E-02,-0.19079E-02,-0.14023E-02,-0.96204E-03,-0.63519E-03,
     &-0.39718E-03,-0.24956E-03,-0.16561E-03,-0.11509E-03,-0.57883E-04
     & /
       real p76(0:24)
       data p76/
     & 0.65249E+00, 0.66691E+00,-0.23909E+00,-0.58926E+00,-0.47969E+00,
     &-0.23949E+00,-0.48396E-01, 0.52693E-01, 0.82013E-01, 0.71483E-01,
     & 0.47498E-01, 0.25179E-01, 0.10021E-01, 0.18224E-02,-0.15539E-02,
     &-0.22853E-02,-0.19501E-02,-0.14238E-02,-0.97264E-03,-0.64030E-03,
     &-0.39935E-03,-0.25033E-03,-0.16584E-03,-0.11535E-03,-0.57347E-04
     & /
       real p77(0:24)
       data p77/
     & 0.66007E+00, 0.67250E+00,-0.24508E+00,-0.59717E+00,-0.48373E+00,
     &-0.23967E+00,-0.46734E-01, 0.54564E-01, 0.83331E-01, 0.72125E-01,
     & 0.47647E-01, 0.25071E-01, 0.98342E-02, 0.16508E-02,-0.16778E-02,
     &-0.23616E-02,-0.19914E-02,-0.14447E-02,-0.98278E-03,-0.64516E-03,
     &-0.40133E-03,-0.25097E-03,-0.16604E-03,-0.11552E-03,-0.56774E-04
     & /
       real p78(0:24)
       data p78/
     & 0.66770E+00, 0.67819E+00,-0.25096E+00,-0.60501E+00,-0.48777E+00,
     &-0.23993E+00,-0.45175E-01, 0.56337E-01, 0.84579E-01, 0.72733E-01,
     & 0.47786E-01, 0.24971E-01, 0.96613E-02, 0.14935E-02,-0.17903E-02,
     &-0.24291E-02,-0.20275E-02,-0.14625E-02,-0.99063E-03,-0.64912E-03,
     &-0.40247E-03,-0.25093E-03,-0.16623E-03,-0.11528E-03,-0.56040E-04
     & /
       real p79(0:24)
       data p79/
     & 0.67531E+00, 0.68383E+00,-0.25689E+00,-0.61283E+00,-0.49177E+00,
     &-0.24013E+00,-0.43587E-01, 0.58118E-01, 0.85823E-01, 0.73329E-01,
     & 0.47916E-01, 0.24864E-01, 0.94845E-02, 0.13344E-02,-0.19033E-02,
     &-0.24965E-02,-0.20631E-02,-0.14799E-02,-0.99825E-03,-0.65290E-03,
     &-0.40351E-03,-0.25082E-03,-0.16637E-03,-0.11500E-03,-0.55288E-04
     & /
       real p80(0:24)
       data p80/
     & 0.68290E+00, 0.68942E+00,-0.26285E+00,-0.62064E+00,-0.49571E+00,
     &-0.24029E+00,-0.41970E-01, 0.59906E-01, 0.87061E-01, 0.73916E-01,
     & 0.48037E-01, 0.24750E-01, 0.93041E-02, 0.11738E-02,-0.20167E-02,
     &-0.25637E-02,-0.20985E-02,-0.14970E-02,-0.10056E-02,-0.65652E-03,
     &-0.40444E-03,-0.25065E-03,-0.16647E-03,-0.11468E-03,-0.54518E-04
     & /
       real p81(0:24)
       data p81/
     & 0.69047E+00, 0.69495E+00,-0.26884E+00,-0.62844E+00,-0.49961E+00,
     &-0.24040E+00,-0.40325E-01, 0.61702E-01, 0.88293E-01, 0.74493E-01,
     & 0.48148E-01, 0.24630E-01, 0.91202E-02, 0.10118E-02,-0.21303E-02,
     &-0.26307E-02,-0.21335E-02,-0.15138E-02,-0.10128E-02,-0.65997E-03,
     &-0.40527E-03,-0.25040E-03,-0.16654E-03,-0.11432E-03,-0.53732E-04
     & /
       real p82(0:24)
       data p82/
     & 0.69802E+00, 0.70042E+00,-0.27487E+00,-0.63621E+00,-0.50345E+00,
     &-0.24046E+00,-0.38654E-01, 0.63504E-01, 0.89519E-01, 0.75059E-01,
     & 0.48250E-01, 0.24504E-01, 0.89330E-02, 0.84850E-03,-0.22441E-02,
     &-0.26975E-02,-0.21681E-02,-0.15304E-02,-0.10197E-02,-0.66325E-03,
     &-0.40599E-03,-0.25008E-03,-0.16656E-03,-0.11393E-03,-0.52931E-04
     & /
       real p83(0:24)
       data p83/
     & 0.70555E+00, 0.70584E+00,-0.28094E+00,-0.64398E+00,-0.50725E+00,
     &-0.24048E+00,-0.36958E-01, 0.65312E-01, 0.90739E-01, 0.75616E-01,
     & 0.48343E-01, 0.24372E-01, 0.87426E-02, 0.68402E-03,-0.23580E-02,
     &-0.27640E-02,-0.22023E-02,-0.15465E-02,-0.10263E-02,-0.66635E-03,
     &-0.40661E-03,-0.24970E-03,-0.16655E-03,-0.11350E-03,-0.52115E-04
     & /
       real p84(0:24)
       data p84/
     & 0.71305E+00, 0.71121E+00,-0.28703E+00,-0.65172E+00,-0.51101E+00,
     &-0.24046E+00,-0.35238E-01, 0.67124E-01, 0.91952E-01, 0.76162E-01,
     & 0.48428E-01, 0.24234E-01, 0.85494E-02, 0.51850E-03,-0.24720E-02,
     &-0.28302E-02,-0.22360E-02,-0.15624E-02,-0.10327E-02,-0.66929E-03,
     &-0.40713E-03,-0.24925E-03,-0.16650E-03,-0.11304E-03,-0.51285E-04
     & /
       real p85(0:24)
       data p85/
     & 0.72055E+00, 0.71654E+00,-0.29315E+00,-0.65945E+00,-0.51472E+00,
     &-0.24039E+00,-0.33495E-01, 0.68940E-01, 0.93158E-01, 0.76698E-01,
     & 0.48503E-01, 0.24091E-01, 0.83533E-02, 0.35207E-03,-0.25859E-02,
     &-0.28960E-02,-0.22693E-02,-0.15779E-02,-0.10389E-02,-0.67205E-03,
     &-0.40754E-03,-0.24873E-03,-0.16641E-03,-0.11254E-03,-0.50443E-04
     & /
       real p86(0:24)
       data p86/
     & 0.72802E+00, 0.72181E+00,-0.29931E+00,-0.66716E+00,-0.51838E+00,
     &-0.24028E+00,-0.31731E-01, 0.70759E-01, 0.94356E-01, 0.77224E-01,
     & 0.48571E-01, 0.23942E-01, 0.81547E-02, 0.18486E-03,-0.26997E-02,
     &-0.29613E-02,-0.23022E-02,-0.15931E-02,-0.10448E-02,-0.67463E-03,
     &-0.40785E-03,-0.24815E-03,-0.16628E-03,-0.11201E-03,-0.49589E-04
     & /
       real p87(0:24)
       data p87/
     & 0.73548E+00, 0.72704E+00,-0.30549E+00,-0.67486E+00,-0.52200E+00,
     &-0.24013E+00,-0.29946E-01, 0.72581E-01, 0.95547E-01, 0.77739E-01,
     & 0.48630E-01, 0.23788E-01, 0.79537E-02, 0.16993E-04,-0.28132E-02,
     &-0.30263E-02,-0.23345E-02,-0.16079E-02,-0.10504E-02,-0.67704E-03,
     &-0.40806E-03,-0.24750E-03,-0.16612E-03,-0.11145E-03,-0.48725E-04
     & /
       real p88(0:24)
       data p88/
     & 0.74292E+00, 0.73223E+00,-0.31170E+00,-0.68254E+00,-0.52558E+00,
     &-0.23995E+00,-0.28142E-01, 0.74404E-01, 0.96731E-01, 0.78245E-01,
     & 0.48681E-01, 0.23629E-01, 0.77505E-02,-0.15139E-03,-0.29265E-02,
     &-0.30907E-02,-0.23663E-02,-0.16223E-02,-0.10558E-02,-0.67928E-03,
     &-0.40817E-03,-0.24679E-03,-0.16592E-03,-0.11085E-03,-0.47850E-04
     & /
       real p89(0:24)
       data p89/
     & 0.75034E+00, 0.73737E+00,-0.31793E+00,-0.69020E+00,-0.52912E+00,
     &-0.23972E+00,-0.26321E-01, 0.76228E-01, 0.97905E-01, 0.78741E-01,
     & 0.48724E-01, 0.23466E-01, 0.75452E-02,-0.32017E-03,-0.30394E-02,
     &-0.31546E-02,-0.23976E-02,-0.16364E-02,-0.10609E-02,-0.68133E-03,
     &-0.40817E-03,-0.24602E-03,-0.16569E-03,-0.11022E-03,-0.46967E-04
     & /
       real p90(0:24)
       data p90/
     & 0.75776E+00, 0.74247E+00,-0.32419E+00,-0.69785E+00,-0.53262E+00,
     &-0.23947E+00,-0.24483E-01, 0.78052E-01, 0.99072E-01, 0.79226E-01,
     & 0.48759E-01, 0.23298E-01, 0.73381E-02,-0.48921E-03,-0.31519E-02,
     &-0.32179E-02,-0.24283E-02,-0.16500E-02,-0.10657E-02,-0.68320E-03,
     &-0.40808E-03,-0.24519E-03,-0.16543E-03,-0.10956E-03,-0.46076E-04
     & /
       real p91(0:24)
       data p91/
     & 0.76515E+00, 0.74753E+00,-0.33047E+00,-0.70547E+00,-0.53607E+00,
     &-0.23917E+00,-0.22629E-01, 0.79876E-01, 0.10023E+00, 0.79702E-01,
     & 0.48787E-01, 0.23126E-01, 0.71294E-02,-0.65839E-03,-0.32638E-02,
     &-0.32805E-02,-0.24585E-02,-0.16633E-02,-0.10703E-02,-0.68489E-03,
     &-0.40789E-03,-0.24430E-03,-0.16513E-03,-0.10886E-03,-0.45177E-04
     & /
       real p92(0:24)
       data p92/
     & 0.77254E+00, 0.75256E+00,-0.33677E+00,-0.71308E+00,-0.53949E+00,
     &-0.23885E+00,-0.20761E-01, 0.81698E-01, 0.10138E+00, 0.80167E-01,
     & 0.48807E-01, 0.22950E-01, 0.69191E-02,-0.82757E-03,-0.33751E-02,
     &-0.33425E-02,-0.24880E-02,-0.16761E-02,-0.10746E-02,-0.68640E-03,
     &-0.40759E-03,-0.24335E-03,-0.16479E-03,-0.10814E-03,-0.44273E-04
     & /
       real p93(0:24)
       data p93/
     & 0.77991E+00, 0.75754E+00,-0.34309E+00,-0.72067E+00,-0.54287E+00,
     &-0.23849E+00,-0.18880E-01, 0.83517E-01, 0.10252E+00, 0.80622E-01,
     & 0.48820E-01, 0.22770E-01, 0.67076E-02,-0.99663E-03,-0.34857E-02,
     &-0.34038E-02,-0.25169E-02,-0.16886E-02,-0.10786E-02,-0.68772E-03,
     &-0.40720E-03,-0.24235E-03,-0.16443E-03,-0.10738E-03,-0.43363E-04
     & /
       real p94(0:24)
       data p94/
     & 0.78727E+00, 0.76250E+00,-0.34943E+00,-0.72824E+00,-0.54621E+00,
     &-0.23811E+00,-0.16993E-01, 0.85330E-01, 0.10364E+00, 0.81067E-01,
     & 0.48827E-01, 0.22587E-01, 0.64958E-02,-0.11647E-02,-0.35951E-02,
     &-0.34640E-02,-0.25449E-02,-0.17005E-02,-0.10823E-02,-0.68882E-03,
     &-0.40671E-03,-0.24128E-03,-0.16404E-03,-0.10658E-03,-0.42460E-04
     & /
       real p95(0:24)
       data p95/
     & 0.79469E+00, 0.76757E+00,-0.35567E+00,-0.73576E+00,-0.54958E+00,
     &-0.23781E+00,-0.15212E-01, 0.87052E-01, 0.10471E+00, 0.81488E-01,
     & 0.48835E-01, 0.22417E-01, 0.62999E-02,-0.13183E-02,-0.36936E-02,
     &-0.35178E-02,-0.25683E-02,-0.17103E-02,-0.10846E-02,-0.68893E-03,
     &-0.40596E-03,-0.24010E-03,-0.16374E-03,-0.10544E-03,-0.41796E-04
     & /
       real p96(0:24)
       data p96/
     & 0.80209E+00, 0.77260E+00,-0.36193E+00,-0.74327E+00,-0.55291E+00,
     &-0.23748E+00,-0.13412E-01, 0.88777E-01, 0.10578E+00, 0.81901E-01,
     & 0.48835E-01, 0.22243E-01, 0.61017E-02,-0.14727E-02,-0.37921E-02,
     &-0.35713E-02,-0.25912E-02,-0.17199E-02,-0.10867E-02,-0.68893E-03,
     &-0.40514E-03,-0.23886E-03,-0.16341E-03,-0.10430E-03,-0.41108E-04
     & /
       real p97(0:24)
       data p97/
     & 0.80948E+00, 0.77758E+00,-0.36822E+00,-0.75076E+00,-0.55619E+00,
     &-0.23710E+00,-0.11592E-01, 0.90505E-01, 0.10683E+00, 0.82304E-01,
     & 0.48829E-01, 0.22065E-01, 0.59015E-02,-0.16277E-02,-0.38905E-02,
     &-0.36244E-02,-0.26139E-02,-0.17291E-02,-0.10886E-02,-0.68881E-03,
     &-0.40423E-03,-0.23758E-03,-0.16303E-03,-0.10316E-03,-0.40396E-04
     & /
       real p98(0:23)
       data p98/
     & 0.81685E+00, 0.78252E+00,-0.37453E+00,-0.75823E+00,-0.55944E+00,
     &-0.23669E+00,-0.97540E-02, 0.92235E-01, 0.10788E+00, 0.82699E-01,
     & 0.48815E-01, 0.21882E-01, 0.56992E-02,-0.17833E-02,-0.39888E-02,
     &-0.36771E-02,-0.26362E-02,-0.17380E-02,-0.10904E-02,-0.68858E-03,
     &-0.40324E-03,-0.23625E-03,-0.16261E-03,-0.10202E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  25,  24,  24,  24,  23,  23,  22
     &,  21,  21,  20,  20,  20,  19,  19,  22,  22,  23
     &,  23,  23,  23,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  25,  25,  25,  25,  25
     &,  25,  25,  25,  25,  25,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  23
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.25) param(i,15) = p15(i)
             if (i.le.24) param(i,16) = p16(i)
             if (i.le.24) param(i,17) = p17(i)
             if (i.le.24) param(i,18) = p18(i)
             if (i.le.23) param(i,19) = p19(i)
             if (i.le.23) param(i,20) = p20(i)
             if (i.le.22) param(i,21) = p21(i)
             if (i.le.21) param(i,22) = p22(i)
             if (i.le.21) param(i,23) = p23(i)
             if (i.le.20) param(i,24) = p24(i)
             if (i.le.20) param(i,25) = p25(i)
             if (i.le.20) param(i,26) = p26(i)
             if (i.le.19) param(i,27) = p27(i)
             if (i.le.19) 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.23) param(i,31) = p31(i)
             if (i.le.23) param(i,32) = p32(i)
             if (i.le.23) param(i,33) = p33(i)
             if (i.le.23) param(i,34) = p34(i)
             if (i.le.24) param(i,35) = p35(i)
             if (i.le.24) param(i,36) = p36(i)
             if (i.le.24) param(i,37) = p37(i)
             if (i.le.24) param(i,38) = p38(i)
             if (i.le.24) param(i,39) = p39(i)
             if (i.le.24) param(i,40) = p40(i)
             if (i.le.24) param(i,41) = p41(i)
             if (i.le.24) param(i,42) = p42(i)
             if (i.le.24) param(i,43) = p43(i)
             if (i.le.24) param(i,44) = p44(i)
             if (i.le.24) param(i,45) = p45(i)
             if (i.le.24) param(i,46) = p46(i)
             if (i.le.25) param(i,47) = p47(i)
             if (i.le.25) param(i,48) = p48(i)
             if (i.le.25) param(i,49) = p49(i)
             if (i.le.25) param(i,50) = p50(i)
             if (i.le.25) param(i,51) = p51(i)
             if (i.le.25) param(i,52) = p52(i)
             if (i.le.25) param(i,53) = p53(i)
             if (i.le.25) param(i,54) = p54(i)
             if (i.le.25) param(i,55) = p55(i)
             if (i.le.25) param(i,56) = p56(i)
             if (i.le.24) param(i,57) = p57(i)
             if (i.le.24) param(i,58) = p58(i)
             if (i.le.24) param(i,59) = p59(i)
             if (i.le.24) param(i,60) = p60(i)
             if (i.le.24) param(i,61) = p61(i)
             if (i.le.24) param(i,62) = p62(i)
             if (i.le.24) param(i,63) = p63(i)
             if (i.le.24) param(i,64) = p64(i)
             if (i.le.24) param(i,65) = p65(i)
             if (i.le.24) param(i,66) = p66(i)
             if (i.le.24) param(i,67) = p67(i)
             if (i.le.24) param(i,68) = p68(i)
             if (i.le.24) param(i,69) = p69(i)
             if (i.le.24) param(i,70) = p70(i)
             if (i.le.24) param(i,71) = p71(i)
             if (i.le.24) param(i,72) = p72(i)
             if (i.le.24) param(i,73) = p73(i)
             if (i.le.24) param(i,74) = p74(i)
             if (i.le.24) param(i,75) = p75(i)
             if (i.le.24) param(i,76) = p76(i)
             if (i.le.24) param(i,77) = p77(i)
             if (i.le.24) param(i,78) = p78(i)
             if (i.le.24) param(i,79) = p79(i)
             if (i.le.24) param(i,80) = p80(i)
             if (i.le.24) param(i,81) = p81(i)
             if (i.le.24) param(i,82) = p82(i)
             if (i.le.24) param(i,83) = p83(i)
             if (i.le.24) param(i,84) = p84(i)
             if (i.le.24) param(i,85) = p85(i)
             if (i.le.24) param(i,86) = p86(i)
             if (i.le.24) param(i,87) = p87(i)
             if (i.le.24) param(i,88) = p88(i)
             if (i.le.24) param(i,89) = p89(i)
             if (i.le.24) param(i,90) = p90(i)
             if (i.le.24) param(i,91) = p91(i)
             if (i.le.24) param(i,92) = p92(i)
             if (i.le.24) param(i,93) = p93(i)
             if (i.le.24) param(i,94) = p94(i)
             if (i.le.24) param(i,95) = p95(i)
             if (i.le.24) param(i,96) = p96(i)
             if (i.le.24) param(i,97) = p97(i)
             if (i.le.23) param(i,98) = p98(i)
          enddo
       endif
            
       uvalct5dlo=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
       uvalct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) uvalct5dlo=0.0
       if (q2.lt.q2min) uvalct5dlo=0.0
       if ( x.gt. xmax) uvalct5dlo=0.0
       if ( x.lt. xmin) uvalct5dlo=0.0
       return
       end
       real function  dvalct5dlo(xin,q2in)
***********************************************************
c  parametrization of dvalct5dlo 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:20)
       data p15/
     & 0.60512E-01, 0.71039E-01,-0.10651E-01,-0.55239E-01,-0.56307E-01,
     &-0.35413E-01,-0.11940E-01, 0.42880E-02, 0.11286E-01, 0.11414E-01,
     & 0.82147E-02, 0.44728E-02, 0.16157E-02,-0.27807E-04,-0.70088E-03,
     &-0.79662E-03,-0.64204E-03,-0.43677E-03,-0.26514E-03,-0.14772E-03,
     &-0.74867E-04
     & /
       real p16(0:20)
       data p16/
     & 0.62778E-01, 0.73437E-01,-0.11499E-01,-0.57525E-01,-0.58257E-01,
     &-0.36356E-01,-0.12003E-01, 0.46970E-02, 0.11795E-01, 0.11809E-01,
     & 0.84340E-02, 0.45468E-02, 0.16041E-02,-0.73231E-04,-0.74831E-03,
     &-0.83257E-03,-0.66445E-03,-0.44871E-03,-0.27053E-03,-0.14961E-03,
     &-0.75075E-04
     & /
       real p17(0:20)
       data p17/
     & 0.67288E-01, 0.78159E-01,-0.13266E-01,-0.62107E-01,-0.62097E-01,
     &-0.38160E-01,-0.12062E-01, 0.55487E-02, 0.12815E-01, 0.12582E-01,
     & 0.88517E-02, 0.46770E-02, 0.15691E-02,-0.16984E-03,-0.84491E-03,
     &-0.90404E-03,-0.70805E-03,-0.47131E-03,-0.28029E-03,-0.15267E-03,
     &-0.75044E-04
     & /
       real p18(0:20)
       data p18/
     & 0.71767E-01, 0.82803E-01,-0.15088E-01,-0.66669E-01,-0.65861E-01,
     &-0.39881E-01,-0.12068E-01, 0.64124E-02, 0.13819E-01, 0.13329E-01,
     & 0.92446E-02, 0.47908E-02, 0.15267E-02,-0.26763E-03,-0.93952E-03,
     &-0.97241E-03,-0.74895E-03,-0.49189E-03,-0.28882E-03,-0.15496E-03,
     &-0.74630E-04
     & /
       real p19(0:20)
       data p19/
     & 0.76208E-01, 0.87354E-01,-0.16975E-01,-0.71216E-01,-0.69543E-01,
     &-0.41506E-01,-0.12009E-01, 0.72988E-02, 0.14812E-01, 0.14050E-01,
     & 0.96118E-02, 0.48860E-02, 0.14743E-02,-0.36886E-03,-0.10337E-02,
     &-0.10387E-02,-0.78762E-03,-0.51064E-03,-0.29613E-03,-0.15647E-03,
     &-0.73782E-04
     & /
       real p20(0:20)
       data p20/
     & 0.80605E-01, 0.91798E-01,-0.18939E-01,-0.75752E-01,-0.73138E-01,
     &-0.43026E-01,-0.11873E-01, 0.82185E-02, 0.15802E-01, 0.14748E-01,
     & 0.99525E-02, 0.49602E-02, 0.14091E-02,-0.47579E-03,-0.11291E-02,
     &-0.11040E-02,-0.82455E-03,-0.52780E-03,-0.30222E-03,-0.15719E-03,
     &-0.72449E-04
     & /
       real p21(0:20)
       data p21/
     & 0.84960E-01, 0.96144E-01,-0.20975E-01,-0.80277E-01,-0.76652E-01,
     &-0.44446E-01,-0.11665E-01, 0.91670E-02, 0.16787E-01, 0.15424E-01,
     & 0.10268E-01, 0.50151E-02, 0.13325E-02,-0.58753E-03,-0.12252E-02,
     &-0.11680E-02,-0.85970E-03,-0.54342E-03,-0.30715E-03,-0.15720E-03,
     &-0.70681E-04
     & /
       real p22(0:20)
       data p22/
     & 0.89277E-01, 0.10040E+00,-0.23076E-01,-0.84788E-01,-0.80087E-01,
     &-0.45776E-01,-0.11392E-01, 0.10140E-01, 0.17764E-01, 0.16077E-01,
     & 0.10560E-01, 0.50524E-02, 0.12458E-02,-0.70316E-03,-0.13215E-02,
     &-0.12306E-02,-0.89307E-03,-0.55755E-03,-0.31099E-03,-0.15656E-03,
     &-0.68530E-04
     & /
       real p23(0:20)
       data p23/
     & 0.93560E-01, 0.10457E+00,-0.25237E-01,-0.89286E-01,-0.83448E-01,
     &-0.47019E-01,-0.11062E-01, 0.11134E-01, 0.18734E-01, 0.16709E-01,
     & 0.10830E-01, 0.50738E-02, 0.11504E-02,-0.82180E-03,-0.14175E-02,
     &-0.12916E-02,-0.92462E-03,-0.57027E-03,-0.31382E-03,-0.15533E-03,
     &-0.66048E-04
     & /
       real p24(0:20)
       data p24/
     & 0.97832E-01, 0.10870E+00,-0.27415E-01,-0.93759E-01,-0.86760E-01,
     &-0.48225E-01,-0.10721E-01, 0.12113E-01, 0.19678E-01, 0.17319E-01,
     & 0.11086E-01, 0.50905E-02, 0.10563E-02,-0.93609E-03,-0.15088E-02,
     &-0.13491E-02,-0.95363E-03,-0.58177E-03,-0.31585E-03,-0.15403E-03,
     &-0.63605E-04
     & /
       real p25(0:20)
       data p25/
     & 0.10207E+00, 0.11276E+00,-0.29649E-01,-0.98217E-01,-0.90002E-01,
     &-0.49350E-01,-0.10327E-01, 0.13110E-01, 0.20613E-01, 0.17908E-01,
     & 0.11322E-01, 0.50926E-02, 0.95448E-03,-0.10529E-02,-0.15997E-02,
     &-0.14050E-02,-0.98094E-03,-0.59194E-03,-0.31698E-03,-0.15220E-03,
     &-0.60868E-04
     & /
       real p26(0:20)
       data p26/
     & 0.10628E+00, 0.11674E+00,-0.31937E-01,-0.10266E+00,-0.93175E-01,
     &-0.50398E-01,-0.98800E-02, 0.14124E-01, 0.21540E-01, 0.18477E-01,
     & 0.11537E-01, 0.50802E-02, 0.84494E-03,-0.11723E-02,-0.16903E-02,
     &-0.14594E-02,-0.10066E-02,-0.60082E-03,-0.31725E-03,-0.14985E-03,
     &-0.57840E-04
     & /
       real p27(0:20)
       data p27/
     & 0.11046E+00, 0.12064E+00,-0.34278E-01,-0.10709E+00,-0.96281E-01,
     &-0.51371E-01,-0.93845E-02, 0.15154E-01, 0.22457E-01, 0.19026E-01,
     & 0.11733E-01, 0.50546E-02, 0.72858E-03,-0.12938E-02,-0.17803E-02,
     &-0.15122E-02,-0.10307E-02,-0.60846E-03,-0.31672E-03,-0.14703E-03,
     &-0.54552E-04
     & /
       real p28(0:20)
       data p28/
     & 0.11461E+00, 0.12448E+00,-0.36666E-01,-0.11151E+00,-0.99324E-01,
     &-0.52275E-01,-0.88447E-02, 0.16196E-01, 0.23365E-01, 0.19556E-01,
     & 0.11912E-01, 0.50168E-02, 0.60627E-03,-0.14169E-02,-0.18695E-02,
     &-0.15634E-02,-0.10533E-02,-0.61492E-03,-0.31545E-03,-0.14377E-03,
     &-0.51040E-04
     & /
       real p29(0:20)
       data p29/
     & 0.11874E+00, 0.12825E+00,-0.39097E-01,-0.11591E+00,-0.10231E+00,
     &-0.53114E-01,-0.82649E-02, 0.17248E-01, 0.24261E-01, 0.20067E-01,
     & 0.12073E-01, 0.49679E-02, 0.47887E-03,-0.15409E-02,-0.19576E-02,
     &-0.16129E-02,-0.10743E-02,-0.62024E-03,-0.31351E-03,-0.14013E-03,
     &-0.47334E-04
     & /
       real p30(0:20)
       data p30/
     & 0.12285E+00, 0.13199E+00,-0.41545E-01,-0.12029E+00,-0.10525E+00,
     &-0.53921E-01,-0.76768E-02, 0.18288E-01, 0.25138E-01, 0.20560E-01,
     & 0.12223E-01, 0.49155E-02, 0.35310E-03,-0.16613E-02,-0.20419E-02,
     &-0.16593E-02,-0.10934E-02,-0.62455E-03,-0.31122E-03,-0.13641E-03,
     &-0.43630E-04
     & /
       real p31(0:20)
       data p31/
     & 0.12696E+00, 0.13572E+00,-0.43999E-01,-0.12464E+00,-0.10815E+00,
     &-0.54706E-01,-0.70913E-02, 0.19307E-01, 0.25991E-01, 0.21035E-01,
     & 0.12365E-01, 0.48623E-02, 0.23124E-03,-0.17766E-02,-0.21217E-02,
     &-0.17024E-02,-0.11106E-02,-0.62790E-03,-0.30871E-03,-0.13271E-03,
     &-0.39997E-04
     & /
       real p32(0:20)
       data p32/
     & 0.12876E+00, 0.13733E+00,-0.45089E-01,-0.12654E+00,-0.10940E+00,
     &-0.55030E-01,-0.68218E-02, 0.19758E-01, 0.26362E-01, 0.21238E-01,
     & 0.12422E-01, 0.48355E-02, 0.17613E-03,-0.18275E-02,-0.21565E-02,
     &-0.17208E-02,-0.11178E-02,-0.62905E-03,-0.30741E-03,-0.13098E-03,
     &-0.38350E-04
     & /
       real p33(0:20)
       data p33/
     & 0.13105E+00, 0.13938E+00,-0.46497E-01,-0.12898E+00,-0.11100E+00,
     &-0.55427E-01,-0.64656E-02, 0.20338E-01, 0.26834E-01, 0.21493E-01,
     & 0.12491E-01, 0.47983E-02, 0.10413E-03,-0.18932E-02,-0.22008E-02,
     &-0.17440E-02,-0.11265E-02,-0.63024E-03,-0.30558E-03,-0.12865E-03,
     &-0.36196E-04
     & /
       real p34(0:22)
       data p34/
     & 0.13511E+00, 0.14298E+00,-0.49037E-01,-0.13330E+00,-0.11378E+00,
     &-0.56088E-01,-0.58020E-02, 0.21379E-01, 0.27668E-01, 0.21933E-01,
     & 0.12602E-01, 0.47241E-02,-0.27756E-04,-0.20109E-02,-0.22790E-02,
     &-0.17843E-02,-0.11411E-02,-0.63163E-03,-0.30187E-03,-0.12425E-03,
     &-0.32249E-04, 0.37471E-05, 0.14781E-04
     & /
       real p35(0:22)
       data p35/
     & 0.13915E+00, 0.14652E+00,-0.51617E-01,-0.13761E+00,-0.11652E+00,
     &-0.56690E-01,-0.51031E-02, 0.22427E-01, 0.28492E-01, 0.22358E-01,
     & 0.12698E-01, 0.46406E-02,-0.16393E-03,-0.21294E-02,-0.23563E-02,
     &-0.18232E-02,-0.11545E-02,-0.63210E-03,-0.29764E-03,-0.11953E-03,
     &-0.28178E-04, 0.63470E-05, 0.16722E-04
     & /
       real p36(0:21)
       data p36/
     & 0.14317E+00, 0.15000E+00,-0.54234E-01,-0.14191E+00,-0.11919E+00,
     &-0.57237E-01,-0.43713E-02, 0.23483E-01, 0.29306E-01, 0.22766E-01,
     & 0.12780E-01, 0.45483E-02,-0.30391E-03,-0.22485E-02,-0.24326E-02,
     &-0.18607E-02,-0.11666E-02,-0.63171E-03,-0.29292E-03,-0.11452E-03,
     &-0.24006E-04, 0.90211E-05
     & /
       real p37(0:21)
       data p37/
     & 0.14717E+00, 0.15343E+00,-0.56887E-01,-0.14619E+00,-0.12182E+00,
     &-0.57731E-01,-0.36090E-02, 0.24544E-01, 0.30109E-01, 0.23159E-01,
     & 0.12848E-01, 0.44479E-02,-0.44723E-03,-0.23679E-02,-0.25077E-02,
     &-0.18968E-02,-0.11776E-02,-0.63051E-03,-0.28776E-03,-0.10925E-03,
     &-0.19757E-04, 0.11761E-04
     & /
       real p38(0:21)
       data p38/
     & 0.15114E+00, 0.15681E+00,-0.59574E-01,-0.15045E+00,-0.12440E+00,
     &-0.58175E-01,-0.28186E-02, 0.25610E-01, 0.30901E-01, 0.23537E-01,
     & 0.12905E-01, 0.43402E-02,-0.59340E-03,-0.24874E-02,-0.25816E-02,
     &-0.19314E-02,-0.11875E-02,-0.62854E-03,-0.28219E-03,-0.10376E-03,
     &-0.15451E-04, 0.14558E-04
     & /
       real p39(0:21)
       data p39/
     & 0.15510E+00, 0.16014E+00,-0.62291E-01,-0.15470E+00,-0.12693E+00,
     &-0.58573E-01,-0.20025E-02, 0.26678E-01, 0.31682E-01, 0.23900E-01,
     & 0.12950E-01, 0.42258E-02,-0.74195E-03,-0.26067E-02,-0.26542E-02,
     &-0.19647E-02,-0.11962E-02,-0.62585E-03,-0.27628E-03,-0.98063E-04,
     &-0.11112E-04, 0.17405E-04
     & /
       real p40(0:21)
       data p40/
     & 0.15905E+00, 0.16344E+00,-0.65020E-01,-0.15893E+00,-0.12943E+00,
     &-0.58949E-01,-0.11847E-02, 0.27734E-01, 0.32448E-01, 0.24252E-01,
     & 0.12989E-01, 0.41113E-02,-0.88774E-03,-0.27227E-02,-0.27239E-02,
     &-0.19964E-02,-0.12042E-02,-0.62276E-03,-0.27055E-03,-0.92345E-04,
     &-0.71042E-05, 0.20327E-04
     & /
       real p41(0:21)
       data p41/
     & 0.16300E+00, 0.16673E+00,-0.67753E-01,-0.16314E+00,-0.13189E+00,
     &-0.59309E-01,-0.37132E-03, 0.28774E-01, 0.33196E-01, 0.24593E-01,
     & 0.13025E-01, 0.39985E-02,-0.10294E-02,-0.28349E-02,-0.27904E-02,
     &-0.20264E-02,-0.12115E-02,-0.61937E-03,-0.26514E-03,-0.86662E-04,
     &-0.35140E-05, 0.23323E-04
     & /
       real p42(0:21)
       data p42/
     & 0.16693E+00, 0.16997E+00,-0.70519E-01,-0.16733E+00,-0.13432E+00,
     &-0.59623E-01, 0.46866E-03, 0.29818E-01, 0.33934E-01, 0.24920E-01,
     & 0.13049E-01, 0.38787E-02,-0.11739E-02,-0.29471E-02,-0.28559E-02,
     &-0.20551E-02,-0.12178E-02,-0.61529E-03,-0.25932E-03,-0.80802E-04,
     & 0.17568E-06, 0.26329E-04
     & /
       real p43(0:21)
       data p43/
     & 0.17085E+00, 0.17317E+00,-0.73315E-01,-0.17152E+00,-0.13669E+00,
     &-0.59891E-01, 0.13337E-02, 0.30866E-01, 0.34663E-01, 0.25233E-01,
     & 0.13062E-01, 0.37524E-02,-0.13208E-02,-0.30592E-02,-0.29202E-02,
     &-0.20824E-02,-0.12230E-02,-0.61058E-03,-0.25310E-03,-0.74789E-04,
     & 0.39562E-05, 0.29336E-04
     & /
       real p44(0:21)
       data p44/
     & 0.17474E+00, 0.17632E+00,-0.76140E-01,-0.17568E+00,-0.13902E+00,
     &-0.60115E-01, 0.22222E-02, 0.31915E-01, 0.35380E-01, 0.25533E-01,
     & 0.13065E-01, 0.36201E-02,-0.14699E-02,-0.31711E-02,-0.29834E-02,
     &-0.21086E-02,-0.12272E-02,-0.60525E-03,-0.24651E-03,-0.68644E-04,
     & 0.78188E-05, 0.32334E-04
     & /
       real p45(0:21)
       data p45/
     & 0.17862E+00, 0.17942E+00,-0.78993E-01,-0.17983E+00,-0.14131E+00,
     &-0.60298E-01, 0.31325E-02, 0.32967E-01, 0.36088E-01, 0.25819E-01,
     & 0.13057E-01, 0.34821E-02,-0.16208E-02,-0.32826E-02,-0.30454E-02,
     &-0.21335E-02,-0.12305E-02,-0.59936E-03,-0.23957E-03,-0.62390E-04,
     & 0.11755E-04, 0.35313E-04
     & /
       real p46(0:23)
       data p46/
     & 0.18248E+00, 0.18249E+00,-0.81872E-01,-0.18397E+00,-0.14355E+00,
     &-0.60442E-01, 0.40632E-02, 0.34018E-01, 0.36785E-01, 0.26093E-01,
     & 0.13039E-01, 0.33389E-02,-0.17734E-02,-0.33936E-02,-0.31061E-02,
     &-0.21571E-02,-0.12329E-02,-0.59294E-03,-0.23230E-03,-0.56049E-04,
     & 0.15756E-04, 0.38264E-04, 0.33387E-04, 0.27958E-04
     & /
       real p47(0:23)
       data p47/
     & 0.18633E+00, 0.18551E+00,-0.84777E-01,-0.18809E+00,-0.14575E+00,
     &-0.60547E-01, 0.50127E-02, 0.35070E-01, 0.37472E-01, 0.26355E-01,
     & 0.13012E-01, 0.31910E-02,-0.19273E-02,-0.35039E-02,-0.31656E-02,
     &-0.21795E-02,-0.12343E-02,-0.58603E-03,-0.22472E-03,-0.49642E-04,
     & 0.19814E-04, 0.41176E-04, 0.34665E-04, 0.28822E-04
     & /
       real p48(0:23)
       data p48/
     & 0.19017E+00, 0.18850E+00,-0.87704E-01,-0.19219E+00,-0.14792E+00,
     &-0.60617E-01, 0.59793E-02, 0.36121E-01, 0.38148E-01, 0.26604E-01,
     & 0.12977E-01, 0.30388E-02,-0.20821E-02,-0.36134E-02,-0.32237E-02,
     &-0.22006E-02,-0.12349E-02,-0.57865E-03,-0.21687E-03,-0.43193E-04,
     & 0.23919E-04, 0.44039E-04, 0.35944E-04, 0.29670E-04
     & /
       real p49(0:23)
       data p49/
     & 0.19399E+00, 0.19145E+00,-0.90654E-01,-0.19629E+00,-0.15005E+00,
     &-0.60652E-01, 0.69615E-02, 0.37169E-01, 0.38813E-01, 0.26842E-01,
     & 0.12934E-01, 0.28827E-02,-0.22377E-02,-0.37219E-02,-0.32805E-02,
     &-0.22206E-02,-0.12347E-02,-0.57086E-03,-0.20876E-03,-0.36723E-04,
     & 0.28063E-04, 0.46845E-04, 0.37222E-04, 0.30499E-04
     & /
       real p50(0:23)
       data p50/
     & 0.19780E+00, 0.19437E+00,-0.93624E-01,-0.20036E+00,-0.15213E+00,
     &-0.60655E-01, 0.79577E-02, 0.38215E-01, 0.39468E-01, 0.27069E-01,
     & 0.12882E-01, 0.27232E-02,-0.23938E-02,-0.38293E-02,-0.33359E-02,
     &-0.22393E-02,-0.12337E-02,-0.56268E-03,-0.20042E-03,-0.30254E-04,
     & 0.32238E-04, 0.49584E-04, 0.38497E-04, 0.31307E-04
     & /
       real p51(0:23)
       data p51/
     & 0.20162E+00, 0.19730E+00,-0.96576E-01,-0.20441E+00,-0.15422E+00,
     &-0.60676E-01, 0.89215E-02, 0.39230E-01, 0.40103E-01, 0.27290E-01,
     & 0.12836E-01, 0.25733E-02,-0.25407E-02,-0.39294E-02,-0.33874E-02,
     &-0.22563E-02,-0.12321E-02,-0.55525E-03,-0.19216E-03,-0.24788E-04,
     & 0.36354E-04, 0.51673E-04, 0.39828E-04, 0.32031E-04
     & /
       real p52(0:24)
       data p52/
     & 0.20543E+00, 0.20021E+00,-0.99546E-01,-0.20845E+00,-0.15627E+00,
     &-0.60669E-01, 0.98963E-02, 0.40240E-01, 0.40727E-01, 0.27500E-01,
     & 0.12783E-01, 0.24208E-02,-0.26876E-02,-0.40281E-02,-0.34374E-02,
     &-0.22721E-02,-0.12298E-02,-0.54751E-03,-0.18371E-03,-0.19365E-04,
     & 0.40483E-04, 0.53677E-04, 0.41155E-04, 0.32731E-04, 0.34570E-04
     & /
       real p53(0:24)
       data p53/
     & 0.20922E+00, 0.20307E+00,-0.10254E+00,-0.21248E+00,-0.15828E+00,
     &-0.60627E-01, 0.10888E-01, 0.41249E-01, 0.41342E-01, 0.27699E-01,
     & 0.12722E-01, 0.22641E-02,-0.28355E-02,-0.41262E-02,-0.34863E-02,
     &-0.22868E-02,-0.12268E-02,-0.53932E-03,-0.17505E-03,-0.13847E-04,
     & 0.44631E-04, 0.55678E-04, 0.42464E-04, 0.33415E-04, 0.34902E-04
     & /
       real p54(0:24)
       data p54/
     & 0.21301E+00, 0.20590E+00,-0.10555E+00,-0.21649E+00,-0.16025E+00,
     &-0.60552E-01, 0.11895E-01, 0.42258E-01, 0.41947E-01, 0.27888E-01,
     & 0.12653E-01, 0.21036E-02,-0.29843E-02,-0.42237E-02,-0.35340E-02,
     &-0.23005E-02,-0.12231E-02,-0.53069E-03,-0.16620E-03,-0.82431E-05,
     & 0.48788E-04, 0.57676E-04, 0.43753E-04, 0.34082E-04, 0.35224E-04
     & /
       real p55(0:24)
       data p55/
     & 0.21678E+00, 0.20870E+00,-0.10859E+00,-0.22048E+00,-0.16219E+00,
     &-0.60445E-01, 0.12917E-01, 0.43265E-01, 0.42542E-01, 0.28066E-01,
     & 0.12577E-01, 0.19394E-02,-0.31339E-02,-0.43205E-02,-0.35807E-02,
     &-0.23132E-02,-0.12186E-02,-0.52166E-03,-0.15718E-03,-0.25633E-05,
     & 0.52949E-04, 0.59667E-04, 0.45021E-04, 0.34731E-04, 0.35537E-04
     & /
       real p56(0:24)
       data p56/
     & 0.22054E+00, 0.21146E+00,-0.11164E+00,-0.22446E+00,-0.16410E+00,
     &-0.60307E-01, 0.13953E-01, 0.44271E-01, 0.43128E-01, 0.28234E-01,
     & 0.12493E-01, 0.17719E-02,-0.32841E-02,-0.44164E-02,-0.36262E-02,
     &-0.23248E-02,-0.12135E-02,-0.51225E-03,-0.14800E-03, 0.31829E-05,
     & 0.57105E-04, 0.61648E-04, 0.46265E-04, 0.35361E-04, 0.35839E-04
     & /
       real p57(0:24)
       data p57/
     & 0.22428E+00, 0.21420E+00,-0.11472E+00,-0.22843E+00,-0.16597E+00,
     &-0.60140E-01, 0.15002E-01, 0.45275E-01, 0.43705E-01, 0.28392E-01,
     & 0.12403E-01, 0.16013E-02,-0.34347E-02,-0.45115E-02,-0.36705E-02,
     &-0.23354E-02,-0.12078E-02,-0.50247E-03,-0.13870E-03, 0.89859E-05,
     & 0.61249E-04, 0.63618E-04, 0.47483E-04, 0.35971E-04, 0.36133E-04
     & /
       real p58(0:24)
       data p58/
     & 0.22802E+00, 0.21690E+00,-0.11781E+00,-0.23239E+00,-0.16781E+00,
     &-0.59944E-01, 0.16062E-01, 0.46276E-01, 0.44272E-01, 0.28540E-01,
     & 0.12306E-01, 0.14279E-02,-0.35856E-02,-0.46056E-02,-0.37136E-02,
     &-0.23451E-02,-0.12015E-02,-0.49236E-03,-0.12928E-03, 0.14836E-04,
     & 0.65373E-04, 0.65575E-04, 0.48673E-04, 0.36561E-04, 0.36417E-04
     & /
       real p59(0:24)
       data p59/
     & 0.23175E+00, 0.21957E+00,-0.12092E+00,-0.23632E+00,-0.16961E+00,
     &-0.59722E-01, 0.17133E-01, 0.47273E-01, 0.44829E-01, 0.28679E-01,
     & 0.12204E-01, 0.12520E-02,-0.37365E-02,-0.46988E-02,-0.37556E-02,
     &-0.23538E-02,-0.11946E-02,-0.48193E-03,-0.11976E-03, 0.20724E-04,
     & 0.69469E-04, 0.67514E-04, 0.49831E-04, 0.37128E-04, 0.36693E-04
     & /
       real p60(0:24)
       data p60/
     & 0.23546E+00, 0.22221E+00,-0.12405E+00,-0.24025E+00,-0.17139E+00,
     &-0.59475E-01, 0.18214E-01, 0.48268E-01, 0.45377E-01, 0.28809E-01,
     & 0.12095E-01, 0.10739E-02,-0.38873E-02,-0.47908E-02,-0.37964E-02,
     &-0.23616E-02,-0.11872E-02,-0.47121E-03,-0.11018E-03, 0.26640E-04,
     & 0.73531E-04, 0.69435E-04, 0.50957E-04, 0.37672E-04, 0.36961E-04
     & /
       real p61(0:24)
       data p61/
     & 0.23917E+00, 0.22483E+00,-0.12719E+00,-0.24416E+00,-0.17313E+00,
     &-0.59203E-01, 0.19304E-01, 0.49258E-01, 0.45916E-01, 0.28931E-01,
     & 0.11981E-01, 0.89393E-03,-0.40378E-02,-0.48817E-02,-0.38360E-02,
     &-0.23684E-02,-0.11792E-02,-0.46022E-03,-0.10054E-03, 0.32575E-04,
     & 0.77550E-04, 0.71335E-04, 0.52047E-04, 0.38192E-04, 0.37221E-04
     & /
       real p62(0:24)
       data p62/
     & 0.24287E+00, 0.22742E+00,-0.13034E+00,-0.24806E+00,-0.17485E+00,
     &-0.58907E-01, 0.20401E-01, 0.50244E-01, 0.46446E-01, 0.29044E-01,
     & 0.11863E-01, 0.71226E-03,-0.41879E-02,-0.49714E-02,-0.38744E-02,
     &-0.23744E-02,-0.11708E-02,-0.44899E-03,-0.90864E-04, 0.38518E-04,
     & 0.81519E-04, 0.73210E-04, 0.53100E-04, 0.38687E-04, 0.37473E-04
     & /
       real p63(0:24)
       data p63/
     & 0.24657E+00, 0.23001E+00,-0.13349E+00,-0.25194E+00,-0.17655E+00,
     &-0.58620E-01, 0.21479E-01, 0.51209E-01, 0.46962E-01, 0.29154E-01,
     & 0.11747E-01, 0.53662E-03,-0.43319E-02,-0.50568E-02,-0.39107E-02,
     &-0.23793E-02,-0.11625E-02,-0.43799E-03,-0.81773E-04, 0.44221E-04,
     & 0.85149E-04, 0.74970E-04, 0.54009E-04, 0.39118E-04, 0.37709E-04
     & /
       real p64(0:24)
       data p64/
     & 0.25028E+00, 0.23261E+00,-0.13663E+00,-0.25581E+00,-0.17825E+00,
     &-0.58335E-01, 0.22543E-01, 0.52158E-01, 0.47468E-01, 0.29259E-01,
     & 0.11633E-01, 0.36549E-03,-0.44710E-02,-0.51387E-02,-0.39451E-02,
     &-0.23832E-02,-0.11542E-02,-0.42713E-03,-0.73139E-04, 0.49731E-04,
     & 0.88503E-04, 0.76633E-04, 0.54798E-04, 0.39494E-04, 0.37929E-04
     & /
       real p65(0:24)
       data p65/
     & 0.25397E+00, 0.23517E+00,-0.13979E+00,-0.25966E+00,-0.17991E+00,
     &-0.58023E-01, 0.23618E-01, 0.53104E-01, 0.47964E-01, 0.29357E-01,
     & 0.11514E-01, 0.19188E-03,-0.46104E-02,-0.52199E-02,-0.39784E-02,
     &-0.23864E-02,-0.11454E-02,-0.41600E-03,-0.64395E-04, 0.55277E-04,
     & 0.91847E-04, 0.78285E-04, 0.55566E-04, 0.39851E-04, 0.38146E-04
     & /
       real p66(0:24)
       data p66/
     & 0.25766E+00, 0.23771E+00,-0.14297E+00,-0.26351E+00,-0.18155E+00,
     &-0.57687E-01, 0.24702E-01, 0.54048E-01, 0.48452E-01, 0.29445E-01,
     & 0.11388E-01, 0.15966E-04,-0.47500E-02,-0.53001E-02,-0.40108E-02,
     &-0.23887E-02,-0.11360E-02,-0.40460E-03,-0.55552E-04, 0.60850E-04,
     & 0.95177E-04, 0.79925E-04, 0.56312E-04, 0.40187E-04, 0.38359E-04
     & /
       real p67(0:24)
       data p67/
     & 0.26134E+00, 0.24021E+00,-0.14616E+00,-0.26733E+00,-0.18315E+00,
     &-0.57326E-01, 0.25796E-01, 0.54989E-01, 0.48932E-01, 0.29526E-01,
     & 0.11258E-01,-0.16208E-03,-0.48896E-02,-0.53796E-02,-0.40421E-02,
     &-0.23903E-02,-0.11262E-02,-0.39296E-03,-0.46622E-04, 0.66445E-04,
     & 0.98491E-04, 0.81552E-04, 0.57036E-04, 0.40502E-04, 0.38569E-04
     & /
       real p68(0:24)
       data p68/
     & 0.26500E+00, 0.24270E+00,-0.14936E+00,-0.27115E+00,-0.18473E+00,
     &-0.56942E-01, 0.26899E-01, 0.55926E-01, 0.49403E-01, 0.29598E-01,
     & 0.11123E-01,-0.34208E-03,-0.50292E-02,-0.54581E-02,-0.40723E-02,
     &-0.23911E-02,-0.11159E-02,-0.38109E-03,-0.37615E-04, 0.72056E-04,
     & 0.10178E-03, 0.83165E-04, 0.57735E-04, 0.40797E-04, 0.38776E-04
     & /
       real p69(0:24)
       data p69/
     & 0.26866E+00, 0.24515E+00,-0.15259E+00,-0.27495E+00,-0.18628E+00,
     &-0.56536E-01, 0.28010E-01, 0.56860E-01, 0.49866E-01, 0.29663E-01,
     & 0.10983E-01,-0.52385E-03,-0.51687E-02,-0.55357E-02,-0.41016E-02,
     &-0.23912E-02,-0.11051E-02,-0.36901E-03,-0.28544E-04, 0.77676E-04,
     & 0.10505E-03, 0.84763E-04, 0.58411E-04, 0.41070E-04, 0.38982E-04
     & /
       real p70(0:24)
       data p70/
     & 0.27231E+00, 0.24759E+00,-0.15582E+00,-0.27874E+00,-0.18780E+00,
     &-0.56108E-01, 0.29129E-01, 0.57791E-01, 0.50320E-01, 0.29721E-01,
     & 0.10838E-01,-0.70722E-03,-0.53079E-02,-0.56123E-02,-0.41298E-02,
     &-0.23907E-02,-0.10939E-02,-0.35674E-03,-0.19419E-04, 0.83299E-04,
     & 0.10829E-03, 0.86344E-04, 0.59061E-04, 0.41321E-04, 0.39186E-04
     & /
       real p71(0:24)
       data p71/
     & 0.27596E+00, 0.24999E+00,-0.15907E+00,-0.28252E+00,-0.18929E+00,
     &-0.55660E-01, 0.30255E-01, 0.58718E-01, 0.50767E-01, 0.29771E-01,
     & 0.10689E-01,-0.89201E-03,-0.54469E-02,-0.56880E-02,-0.41571E-02,
     &-0.23894E-02,-0.10823E-02,-0.34429E-03,-0.10251E-04, 0.88919E-04,
     & 0.11150E-03, 0.87907E-04, 0.59685E-04, 0.41549E-04, 0.39388E-04
     & /
       real p72(0:24)
       data p72/
     & 0.27959E+00, 0.25238E+00,-0.16233E+00,-0.28628E+00,-0.19076E+00,
     &-0.55191E-01, 0.31387E-01, 0.59640E-01, 0.51205E-01, 0.29814E-01,
     & 0.10536E-01,-0.10780E-02,-0.55854E-02,-0.57626E-02,-0.41833E-02,
     &-0.23875E-02,-0.10703E-02,-0.33167E-03,-0.10528E-05, 0.94530E-04,
     & 0.11468E-03, 0.89452E-04, 0.60282E-04, 0.41754E-04, 0.39591E-04
     & /
       real p73(0:24)
       data p73/
     & 0.28322E+00, 0.25474E+00,-0.16560E+00,-0.29003E+00,-0.19221E+00,
     &-0.54704E-01, 0.32524E-01, 0.60559E-01, 0.51635E-01, 0.29850E-01,
     & 0.10380E-01,-0.12652E-02,-0.57234E-02,-0.58362E-02,-0.42085E-02,
     &-0.23850E-02,-0.10579E-02,-0.31892E-03, 0.81659E-05, 0.10013E-03,
     & 0.11781E-03, 0.90976E-04, 0.60852E-04, 0.41936E-04, 0.39793E-04
     & /
       real p74(0:24)
       data p74/
     & 0.28684E+00, 0.25708E+00,-0.16889E+00,-0.29377E+00,-0.19363E+00,
     &-0.54199E-01, 0.33667E-01, 0.61472E-01, 0.52058E-01, 0.29879E-01,
     & 0.10220E-01,-0.14531E-02,-0.58608E-02,-0.59088E-02,-0.42327E-02,
     &-0.23818E-02,-0.10452E-02,-0.30603E-03, 0.17393E-04, 0.10570E-03,
     & 0.12091E-03, 0.92480E-04, 0.61393E-04, 0.42094E-04, 0.39995E-04
     & /
       real p75(0:24)
       data p75/
     & 0.29045E+00, 0.25940E+00,-0.17218E+00,-0.29749E+00,-0.19502E+00,
     &-0.53676E-01, 0.34814E-01, 0.62381E-01, 0.52472E-01, 0.29903E-01,
     & 0.10056E-01,-0.16419E-02,-0.59976E-02,-0.59801E-02,-0.42559E-02,
     &-0.23780E-02,-0.10321E-02,-0.29303E-03, 0.26618E-04, 0.11125E-03,
     & 0.12396E-03, 0.93961E-04, 0.61904E-04, 0.42227E-04, 0.40199E-04
     & /
       real p76(0:24)
       data p76/
     & 0.29406E+00, 0.26171E+00,-0.17549E+00,-0.30121E+00,-0.19640E+00,
     &-0.53137E-01, 0.35965E-01, 0.63285E-01, 0.52879E-01, 0.29920E-01,
     & 0.98896E-02,-0.18311E-02,-0.61335E-02,-0.60504E-02,-0.42781E-02,
     &-0.23737E-02,-0.10188E-02,-0.27994E-03, 0.35829E-04, 0.11676E-03,
     & 0.12695E-03, 0.95418E-04, 0.62386E-04, 0.42335E-04, 0.40404E-04
     & /
       real p77(0:24)
       data p77/
     & 0.29766E+00, 0.26399E+00,-0.17880E+00,-0.30491E+00,-0.19775E+00,
     &-0.52584E-01, 0.37118E-01, 0.64182E-01, 0.53277E-01, 0.29931E-01,
     & 0.97208E-02,-0.20202E-02,-0.62682E-02,-0.61193E-02,-0.42992E-02,
     &-0.23689E-02,-0.10051E-02,-0.26682E-03, 0.44981E-04, 0.12222E-03,
     & 0.12988E-03, 0.96852E-04, 0.62833E-04, 0.42404E-04, 0.40625E-04
     & /
       real p78(0:24)
       data p78/
     & 0.30128E+00, 0.26631E+00,-0.18209E+00,-0.30860E+00,-0.19912E+00,
     &-0.52070E-01, 0.38228E-01, 0.65051E-01, 0.53666E-01, 0.29947E-01,
     & 0.95647E-02,-0.21964E-02,-0.63939E-02,-0.61830E-02,-0.43179E-02,
     &-0.23647E-02,-0.99199E-03,-0.25491E-03, 0.53175E-04, 0.12733E-03,
     & 0.13215E-03, 0.98291E-04, 0.63147E-04, 0.42094E-04, 0.41225E-04
     & /
       real p79(0:24)
       data p79/
     & 0.30489E+00, 0.26860E+00,-0.18539E+00,-0.31227E+00,-0.20046E+00,
     &-0.51536E-01, 0.39346E-01, 0.65917E-01, 0.54048E-01, 0.29957E-01,
     & 0.94047E-02,-0.23740E-02,-0.65194E-02,-0.62458E-02,-0.43358E-02,
     &-0.23599E-02,-0.97851E-03,-0.24282E-03, 0.61416E-04, 0.13241E-03,
     & 0.13443E-03, 0.99700E-04, 0.63440E-04, 0.41793E-04, 0.41789E-04
     & /
       real p80(0:24)
       data p80/
     & 0.30849E+00, 0.27087E+00,-0.18870E+00,-0.31593E+00,-0.20178E+00,
     &-0.50984E-01, 0.40469E-01, 0.66779E-01, 0.54422E-01, 0.29961E-01,
     & 0.92410E-02,-0.25528E-02,-0.66446E-02,-0.63078E-02,-0.43529E-02,
     &-0.23545E-02,-0.96472E-03,-0.23057E-03, 0.69699E-04, 0.13748E-03,
     & 0.13671E-03, 0.10108E-03, 0.63709E-04, 0.41505E-04, 0.42315E-04
     & /
       real p81(0:24)
       data p81/
     & 0.31209E+00, 0.27312E+00,-0.19202E+00,-0.31958E+00,-0.20308E+00,
     &-0.50414E-01, 0.41598E-01, 0.67638E-01, 0.54789E-01, 0.29958E-01,
     & 0.90736E-02,-0.27328E-02,-0.67694E-02,-0.63690E-02,-0.43691E-02,
     &-0.23485E-02,-0.95064E-03,-0.21816E-03, 0.78018E-04, 0.14251E-03,
     & 0.13899E-03, 0.10242E-03, 0.63957E-04, 0.41229E-04, 0.42802E-04
     & /
       real p82(0:24)
       data p82/
     & 0.31568E+00, 0.27535E+00,-0.19535E+00,-0.32322E+00,-0.20435E+00,
     &-0.49825E-01, 0.42732E-01, 0.68492E-01, 0.55149E-01, 0.29949E-01,
     & 0.89028E-02,-0.29139E-02,-0.68938E-02,-0.64293E-02,-0.43845E-02,
     &-0.23419E-02,-0.93627E-03,-0.20561E-03, 0.86367E-04, 0.14750E-03,
     & 0.14126E-03, 0.10373E-03, 0.64181E-04, 0.40968E-04, 0.43249E-04
     & /
       real p83(0:24)
       data p83/
     & 0.31926E+00, 0.27756E+00,-0.19869E+00,-0.32685E+00,-0.20560E+00,
     &-0.49220E-01, 0.43872E-01, 0.69343E-01, 0.55501E-01, 0.29934E-01,
     & 0.87287E-02,-0.30958E-02,-0.70178E-02,-0.64887E-02,-0.43991E-02,
     &-0.23348E-02,-0.92164E-03,-0.19292E-03, 0.94738E-04, 0.15246E-03,
     & 0.14354E-03, 0.10501E-03, 0.64381E-04, 0.40723E-04, 0.43654E-04
     & /
       real p84(0:23)
       data p84/
     & 0.32284E+00, 0.27974E+00,-0.20205E+00,-0.33047E+00,-0.20683E+00,
     &-0.48599E-01, 0.45016E-01, 0.70189E-01, 0.55847E-01, 0.29913E-01,
     & 0.85515E-02,-0.32786E-02,-0.71412E-02,-0.65473E-02,-0.44130E-02,
     &-0.23271E-02,-0.90676E-03,-0.18010E-03, 0.10313E-03, 0.15737E-03,
     & 0.14581E-03, 0.10625E-03, 0.64558E-04, 0.40495E-04
     & /
       real p85(0:23)
       data p85/
     & 0.32641E+00, 0.28191E+00,-0.20541E+00,-0.33407E+00,-0.20803E+00,
     &-0.47961E-01, 0.46164E-01, 0.71032E-01, 0.56186E-01, 0.29887E-01,
     & 0.83713E-02,-0.34621E-02,-0.72641E-02,-0.66049E-02,-0.44260E-02,
     &-0.23188E-02,-0.89165E-03,-0.16717E-03, 0.11152E-03, 0.16224E-03,
     & 0.14808E-03, 0.10745E-03, 0.64711E-04, 0.40286E-04
     & /
       real p86(0:23)
       data p86/
     & 0.32997E+00, 0.28406E+00,-0.20879E+00,-0.33767E+00,-0.20922E+00,
     &-0.47309E-01, 0.47316E-01, 0.71870E-01, 0.56518E-01, 0.29855E-01,
     & 0.81883E-02,-0.36462E-02,-0.73863E-02,-0.66617E-02,-0.44383E-02,
     &-0.23100E-02,-0.87632E-03,-0.15414E-03, 0.11992E-03, 0.16705E-03,
     & 0.15035E-03, 0.10861E-03, 0.64840E-04, 0.40096E-04
     & /
       real p87(0:23)
       data p87/
     & 0.33353E+00, 0.28619E+00,-0.21217E+00,-0.34125E+00,-0.21038E+00,
     &-0.46641E-01, 0.48471E-01, 0.72704E-01, 0.56843E-01, 0.29818E-01,
     & 0.80027E-02,-0.38308E-02,-0.75079E-02,-0.67176E-02,-0.44498E-02,
     &-0.23007E-02,-0.86079E-03,-0.14100E-03, 0.12832E-03, 0.17180E-03,
     & 0.15261E-03, 0.10972E-03, 0.64944E-04, 0.39929E-04
     & /
       real p88(0:23)
       data p88/
     & 0.33708E+00, 0.28831E+00,-0.21557E+00,-0.34482E+00,-0.21153E+00,
     &-0.45960E-01, 0.49630E-01, 0.73533E-01, 0.57162E-01, 0.29777E-01,
     & 0.78146E-02,-0.40158E-02,-0.76288E-02,-0.67726E-02,-0.44605E-02,
     &-0.22909E-02,-0.84508E-03,-0.12778E-03, 0.13671E-03, 0.17649E-03,
     & 0.15487E-03, 0.11080E-03, 0.65024E-04, 0.39784E-04
     & /
       real p89(0:23)
       data p89/
     & 0.34063E+00, 0.29040E+00,-0.21897E+00,-0.34838E+00,-0.21265E+00,
     &-0.45264E-01, 0.50791E-01, 0.74358E-01, 0.57474E-01, 0.29730E-01,
     & 0.76242E-02,-0.42011E-02,-0.77488E-02,-0.68266E-02,-0.44705E-02,
     &-0.22807E-02,-0.82920E-03,-0.11449E-03, 0.14509E-03, 0.18112E-03,
     & 0.15713E-03, 0.11183E-03, 0.65078E-04, 0.39663E-04
     & /
       real p90(0:23)
       data p90/
     & 0.34417E+00, 0.29248E+00,-0.22238E+00,-0.35193E+00,-0.21376E+00,
     &-0.44556E-01, 0.51954E-01, 0.75177E-01, 0.57779E-01, 0.29678E-01,
     & 0.74315E-02,-0.43866E-02,-0.78680E-02,-0.68797E-02,-0.44798E-02,
     &-0.22699E-02,-0.81318E-03,-0.10113E-03, 0.15344E-03, 0.18567E-03,
     & 0.15938E-03, 0.11282E-03, 0.65107E-04, 0.39568E-04
     & /
       real p91(0:23)
       data p91/
     & 0.34770E+00, 0.29455E+00,-0.22580E+00,-0.35546E+00,-0.21484E+00,
     &-0.43836E-01, 0.53119E-01, 0.75992E-01, 0.58078E-01, 0.29622E-01,
     & 0.72369E-02,-0.45722E-02,-0.79864E-02,-0.69319E-02,-0.44884E-02,
     &-0.22587E-02,-0.79701E-03,-0.87715E-04, 0.16177E-03, 0.19015E-03,
     & 0.16162E-03, 0.11376E-03, 0.65110E-04, 0.39499E-04
     & /
       real p92(0:23)
       data p92/
     & 0.35123E+00, 0.29660E+00,-0.22922E+00,-0.35899E+00,-0.21591E+00,
     &-0.43103E-01, 0.54286E-01, 0.76802E-01, 0.58371E-01, 0.29562E-01,
     & 0.70405E-02,-0.47577E-02,-0.81038E-02,-0.69831E-02,-0.44962E-02,
     &-0.22471E-02,-0.78073E-03,-0.74254E-04, 0.17006E-03, 0.19454E-03,
     & 0.16386E-03, 0.11466E-03, 0.65087E-04, 0.39460E-04
     & /
       real p93(0:23)
       data p93/
     & 0.35476E+00, 0.29863E+00,-0.23266E+00,-0.36251E+00,-0.21696E+00,
     &-0.42360E-01, 0.55454E-01, 0.77607E-01, 0.58657E-01, 0.29497E-01,
     & 0.68423E-02,-0.49431E-02,-0.82202E-02,-0.70333E-02,-0.45034E-02,
     &-0.22351E-02,-0.76435E-03,-0.60757E-04, 0.17831E-03, 0.19885E-03,
     & 0.16610E-03, 0.11551E-03, 0.65038E-04, 0.39450E-04
     & /
       real p94(0:23)
       data p94/
     & 0.35829E+00, 0.30065E+00,-0.23609E+00,-0.36601E+00,-0.21799E+00,
     &-0.41608E-01, 0.56620E-01, 0.78406E-01, 0.58937E-01, 0.29429E-01,
     & 0.66433E-02,-0.51277E-02,-0.83352E-02,-0.70824E-02,-0.45098E-02,
     &-0.22227E-02,-0.74799E-03,-0.47256E-04, 0.18648E-03, 0.20301E-03,
     & 0.16835E-03, 0.11628E-03, 0.64941E-04, 0.39521E-04
     & /
       real p95(0:23)
       data p95/
     & 0.36183E+00, 0.30270E+00,-0.23950E+00,-0.36951E+00,-0.21905E+00,
     &-0.40898E-01, 0.57746E-01, 0.79181E-01, 0.59212E-01, 0.29370E-01,
     & 0.64577E-02,-0.53005E-02,-0.84412E-02,-0.71284E-02,-0.45156E-02,
     &-0.22102E-02,-0.73380E-03,-0.34171E-04, 0.19388E-03, 0.20585E-03,
     & 0.17110E-03, 0.11655E-03, 0.64371E-04, 0.40661E-04
     & /
       real p96(0:23)
       data p96/
     & 0.36536E+00, 0.30474E+00,-0.24292E+00,-0.37299E+00,-0.22008E+00,
     &-0.40174E-01, 0.58875E-01, 0.79952E-01, 0.59481E-01, 0.29306E-01,
     & 0.62696E-02,-0.54740E-02,-0.85468E-02,-0.71735E-02,-0.45206E-02,
     &-0.21973E-02,-0.71935E-03,-0.21043E-04, 0.20128E-03, 0.20869E-03,
     & 0.17380E-03, 0.11681E-03, 0.63814E-04, 0.41741E-04
     & /
       real p97(0:23)
       data p97/
     & 0.36889E+00, 0.30676E+00,-0.24634E+00,-0.37647E+00,-0.22110E+00,
     &-0.39437E-01, 0.60007E-01, 0.80720E-01, 0.59744E-01, 0.29238E-01,
     & 0.60790E-02,-0.56479E-02,-0.86519E-02,-0.72178E-02,-0.45250E-02,
     &-0.21840E-02,-0.70466E-03,-0.78777E-05, 0.20868E-03, 0.21155E-03,
     & 0.17644E-03, 0.11706E-03, 0.63272E-04, 0.42761E-04
     & /
       real p98(0:23)
       data p98/
     & 0.37242E+00, 0.30876E+00,-0.24978E+00,-0.37993E+00,-0.22210E+00,
     &-0.38686E-01, 0.61143E-01, 0.81483E-01, 0.60001E-01, 0.29165E-01,
     & 0.58861E-02,-0.58223E-02,-0.87565E-02,-0.72614E-02,-0.45288E-02,
     &-0.21703E-02,-0.68973E-03, 0.53149E-05, 0.21608E-03, 0.21442E-03,
     & 0.17903E-03, 0.11729E-03, 0.62744E-04, 0.43717E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  20,  20,  20,  20,  20,  20,  20
     &,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20
     &,  20,  20,  22,  22,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  23,  23,  23,  23,  23,  23
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  24,  24,  24,  24,  24,  24,  24,  24
     &,  24,  24,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  23,  23,  23,  23,  23
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.20) param(i,15) = p15(i)
             if (i.le.20) param(i,16) = p16(i)
             if (i.le.20) param(i,17) = p17(i)
             if (i.le.20) param(i,18) = p18(i)
             if (i.le.20) param(i,19) = p19(i)
             if (i.le.20) param(i,20) = p20(i)
             if (i.le.20) param(i,21) = p21(i)
             if (i.le.20) param(i,22) = p22(i)
             if (i.le.20) param(i,23) = p23(i)
             if (i.le.20) param(i,24) = p24(i)
             if (i.le.20) param(i,25) = p25(i)
             if (i.le.20) param(i,26) = p26(i)
             if (i.le.20) param(i,27) = p27(i)
             if (i.le.20) param(i,28) = p28(i)
             if (i.le.20) param(i,29) = p29(i)
             if (i.le.20) param(i,30) = p30(i)
             if (i.le.20) param(i,31) = p31(i)
             if (i.le.20) param(i,32) = p32(i)
             if (i.le.20) 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.21) param(i,36) = p36(i)
             if (i.le.21) param(i,37) = p37(i)
             if (i.le.21) param(i,38) = p38(i)
             if (i.le.21) param(i,39) = p39(i)
             if (i.le.21) param(i,40) = p40(i)
             if (i.le.21) param(i,41) = p41(i)
             if (i.le.21) param(i,42) = p42(i)
             if (i.le.21) param(i,43) = p43(i)
             if (i.le.21) param(i,44) = p44(i)
             if (i.le.21) param(i,45) = p45(i)
             if (i.le.23) param(i,46) = p46(i)
             if (i.le.23) param(i,47) = p47(i)
             if (i.le.23) param(i,48) = p48(i)
             if (i.le.23) param(i,49) = p49(i)
             if (i.le.23) param(i,50) = p50(i)
             if (i.le.23) param(i,51) = p51(i)
             if (i.le.24) param(i,52) = p52(i)
             if (i.le.24) param(i,53) = p53(i)
             if (i.le.24) param(i,54) = p54(i)
             if (i.le.24) param(i,55) = p55(i)
             if (i.le.24) param(i,56) = p56(i)
             if (i.le.24) param(i,57) = p57(i)
             if (i.le.24) param(i,58) = p58(i)
             if (i.le.24) param(i,59) = p59(i)
             if (i.le.24) param(i,60) = p60(i)
             if (i.le.24) param(i,61) = p61(i)
             if (i.le.24) param(i,62) = p62(i)
             if (i.le.24) param(i,63) = p63(i)
             if (i.le.24) param(i,64) = p64(i)
             if (i.le.24) param(i,65) = p65(i)
             if (i.le.24) param(i,66) = p66(i)
             if (i.le.24) param(i,67) = p67(i)
             if (i.le.24) param(i,68) = p68(i)
             if (i.le.24) param(i,69) = p69(i)
             if (i.le.24) param(i,70) = p70(i)
             if (i.le.24) param(i,71) = p71(i)
             if (i.le.24) param(i,72) = p72(i)
             if (i.le.24) param(i,73) = p73(i)
             if (i.le.24) param(i,74) = p74(i)
             if (i.le.24) param(i,75) = p75(i)
             if (i.le.24) param(i,76) = p76(i)
             if (i.le.24) param(i,77) = p77(i)
             if (i.le.24) param(i,78) = p78(i)
             if (i.le.24) param(i,79) = p79(i)
             if (i.le.24) param(i,80) = p80(i)
             if (i.le.24) param(i,81) = p81(i)
             if (i.le.24) param(i,82) = p82(i)
             if (i.le.24) 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.23) param(i,90) = p90(i)
             if (i.le.23) param(i,91) = p91(i)
             if (i.le.23) param(i,92) = p92(i)
             if (i.le.23) param(i,93) = p93(i)
             if (i.le.23) param(i,94) = p94(i)
             if (i.le.23) param(i,95) = p95(i)
             if (i.le.23) param(i,96) = p96(i)
             if (i.le.23) param(i,97) = p97(i)
             if (i.le.23) param(i,98) = p98(i)
          enddo
       endif
            
       dvalct5dlo=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
       dvalct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dvalct5dlo=0.0
       if (q2.lt.q2min) dvalct5dlo=0.0
       if ( x.gt. xmax) dvalct5dlo=0.0
       if ( x.lt. xmin) dvalct5dlo=0.0
       return
       end
       real function  ubarct5dlo(xin,q2in)
***********************************************************
c  parametrization of ubarct5dlo 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:26)
       data p15/
     & 0.21574E+00,-0.25620E+00, 0.37755E-01,-0.72511E-02, 0.46344E-02,
     & 0.43351E-02, 0.23102E-02, 0.19715E-03,-0.11407E-02,-0.81874E-03,
     & 0.49307E-04, 0.36596E-03, 0.56178E-03, 0.74160E-04,-0.19916E-03,
     &-0.47159E-03,-0.16369E-03,-0.22715E-03, 0.23902E-03, 0.97611E-04,
     & 0.23651E-03, 0.47808E-04,-0.34545E-04,-0.79748E-04,-0.14503E-03,
     & 0.32655E-04, 0.59515E-05
     & /
       real p16(0:26)
       data p16/
     & 0.23053E+00,-0.27508E+00, 0.41935E-01,-0.78372E-02, 0.49458E-02,
     & 0.45269E-02, 0.23859E-02, 0.18956E-03,-0.11990E-02,-0.85079E-03,
     & 0.56767E-04, 0.37463E-03, 0.58170E-03, 0.69807E-04,-0.20622E-03,
     &-0.48991E-03,-0.15950E-03,-0.23676E-03, 0.25475E-03, 0.96158E-04,
     & 0.24544E-03, 0.46123E-04,-0.36868E-04,-0.81766E-04,-0.15141E-03,
     & 0.37484E-04, 0.65639E-05
     & /
       real p17(0:26)
       data p17/
     & 0.26184E+00,-0.31538E+00, 0.51228E-01,-0.91611E-02, 0.56055E-02,
     & 0.49103E-02, 0.25318E-02, 0.17111E-03,-0.13183E-02,-0.91441E-03,
     & 0.73282E-04, 0.39051E-03, 0.62161E-03, 0.59574E-04,-0.21979E-03,
     &-0.52692E-03,-0.14872E-03,-0.25699E-03, 0.28776E-03, 0.91698E-04,
     & 0.26356E-03, 0.42034E-04,-0.41548E-04,-0.85427E-04,-0.16451E-03,
     & 0.47999E-04, 0.78174E-05
     & /
       real p18(0:37)
       data p18/
     & 0.29545E+00,-0.35912E+00, 0.61830E-01,-0.10662E-01, 0.63184E-02,
     & 0.52104E-02, 0.27964E-02,-0.10131E-04,-0.12983E-02,-0.10752E-02,
     & 0.16754E-03, 0.37654E-03, 0.61685E-03, 0.12737E-03,-0.33044E-03,
     &-0.42779E-03,-0.27185E-03,-0.19082E-03, 0.24307E-03, 0.17183E-03,
     & 0.23708E-03, 0.18532E-05,-0.94927E-05,-0.66348E-04,-0.17100E-03,
     & 0.83143E-05, 0.27382E-04,-0.33454E-04, 0.14281E-03, 0.14004E-04,
     &-0.93230E-04, 0.10146E-03,-0.11570E-03, 0.81441E-04,-0.11705E-03,
     & 0.10301E-03,-0.17467E-04,-0.18914E-04
     & /
       real p19(0:37)
       data p19/
     & 0.33148E+00,-0.40648E+00, 0.73861E-01,-0.12431E-01, 0.70683E-02,
     & 0.55738E-02, 0.29399E-02,-0.59221E-04,-0.14037E-02,-0.11510E-02,
     & 0.19889E-03, 0.38501E-03, 0.65181E-03, 0.12474E-03,-0.35631E-03,
     &-0.44755E-03,-0.27403E-03,-0.20194E-03, 0.26840E-03, 0.17449E-03,
     & 0.25070E-03,-0.75495E-05,-0.96542E-05,-0.67159E-04,-0.18423E-03,
     & 0.14809E-04, 0.31355E-04,-0.41412E-04, 0.15657E-03, 0.12813E-04,
     &-0.10607E-03, 0.11645E-03,-0.13029E-03, 0.94867E-04,-0.13245E-03,
     & 0.11647E-03,-0.21054E-04,-0.20935E-04
     & /
       real p20(0:37)
       data p20/
     & 0.36985E+00,-0.45733E+00, 0.87283E-01,-0.14466E-01, 0.78743E-02,
     & 0.59313E-02, 0.30766E-02,-0.11359E-03,-0.15102E-02,-0.12271E-02,
     & 0.23327E-03, 0.39112E-03, 0.68665E-03, 0.12110E-03,-0.38240E-03,
     &-0.46638E-03,-0.27445E-03,-0.21348E-03, 0.29488E-03, 0.17584E-03,
     & 0.26442E-03,-0.18058E-04,-0.95627E-05,-0.67442E-04,-0.19789E-03,
     & 0.22006E-04, 0.35565E-04,-0.50235E-04, 0.17100E-03, 0.11426E-04,
     &-0.11985E-03, 0.13276E-03,-0.14607E-03, 0.10957E-03,-0.14909E-03,
     & 0.13093E-03,-0.25052E-04,-0.22960E-04
     & /
       real p21(0:37)
       data p21/
     & 0.41061E+00,-0.51180E+00, 0.10217E+00,-0.16791E-01, 0.87392E-02,
     & 0.62817E-02, 0.32064E-02,-0.17307E-03,-0.16175E-02,-0.13034E-02,
     & 0.27077E-03, 0.39484E-03, 0.72153E-03, 0.11651E-03,-0.40867E-03,
     &-0.48430E-03,-0.27316E-03,-0.22558E-03, 0.32252E-03, 0.17586E-03,
     & 0.27832E-03,-0.29651E-04,-0.91836E-05,-0.67189E-04,-0.21204E-03,
     & 0.29895E-04, 0.40007E-04,-0.59946E-04, 0.18615E-03, 0.98575E-05,
     &-0.13459E-03, 0.15044E-03,-0.16310E-03, 0.12559E-03,-0.16702E-03,
     & 0.14644E-03,-0.29479E-04,-0.24974E-04
     & /
       real p22(0:37)
       data p22/
     & 0.45381E+00,-0.56997E+00, 0.11859E+00,-0.19431E-01, 0.96659E-02,
     & 0.66238E-02, 0.33292E-02,-0.23749E-03,-0.17256E-02,-0.13800E-02,
     & 0.31148E-03, 0.39617E-03, 0.75660E-03, 0.11108E-03,-0.43509E-03,
     &-0.50139E-03,-0.27024E-03,-0.23836E-03, 0.35134E-03, 0.17453E-03,
     & 0.29249E-03,-0.42307E-04,-0.84825E-05,-0.66391E-04,-0.22671E-03,
     & 0.38465E-04, 0.44674E-04,-0.70570E-04, 0.20204E-03, 0.81222E-05,
     &-0.15029E-03, 0.16955E-03,-0.18143E-03, 0.14299E-03,-0.18629E-03,
     & 0.16302E-03,-0.34356E-04,-0.26958E-04
     & /
       real p23(0:22)
       data p23/
     & 0.49966E+00,-0.63216E+00, 0.13672E+00,-0.22468E-01, 0.10631E-01,
     & 0.70987E-02, 0.32111E-02,-0.21974E-04,-0.20923E-02,-0.12733E-02,
     & 0.21945E-03, 0.44310E-03, 0.87061E-03,-0.39395E-04,-0.27933E-03,
     &-0.76451E-03,-0.21245E-04,-0.41841E-03, 0.52715E-03, 0.18103E-04,
     & 0.38460E-03, 0.32872E-06,-0.67025E-04
     & /
       real p24(0:22)
       data p24/
     & 0.54817E+00,-0.69848E+00, 0.15663E+00,-0.25832E-01, 0.11673E-01,
     & 0.74337E-02, 0.32902E-02,-0.64915E-04,-0.22299E-02,-0.13288E-02,
     & 0.25211E-03, 0.44454E-03, 0.91548E-03,-0.61799E-04,-0.28434E-03,
     &-0.80753E-03, 0.11048E-04,-0.45329E-03, 0.57490E-03,-0.23915E-05,
     & 0.40778E-03,-0.95096E-05,-0.70740E-04
     & /
       real p25(0:22)
       data p25/
     & 0.59926E+00,-0.76875E+00, 0.17826E+00,-0.29578E-01, 0.12788E-01,
     & 0.77585E-02, 0.33611E-02,-0.11011E-03,-0.23696E-02,-0.13831E-02,
     & 0.28716E-03, 0.44379E-03, 0.96132E-03,-0.86033E-04,-0.28794E-03,
     &-0.85162E-03, 0.46621E-04,-0.49051E-03, 0.62505E-03,-0.25304E-04,
     & 0.43187E-03,-0.20255E-04,-0.74323E-04
     & /
       real p26(0:22)
       data p26/
     & 0.65294E+00,-0.84302E+00, 0.20162E+00,-0.33729E-01, 0.13980E-01,
     & 0.80722E-02, 0.34241E-02,-0.15727E-03,-0.25112E-02,-0.14361E-02,
     & 0.32463E-03, 0.44083E-03, 0.10082E-02,-0.11213E-03,-0.29013E-03,
     &-0.89685E-03, 0.85505E-04,-0.53012E-03, 0.67767E-03,-0.50666E-04,
     & 0.45689E-03,-0.31926E-04,-0.77772E-04
     & /
       real p27(0:22)
       data p27/
     & 0.70926E+00,-0.92136E+00, 0.22680E+00,-0.38306E-01, 0.15253E-01,
     & 0.83738E-02, 0.34794E-02,-0.20613E-03,-0.26548E-02,-0.14877E-02,
     & 0.36456E-03, 0.43566E-03, 0.10561E-02,-0.14008E-03,-0.29084E-03,
     &-0.94329E-03, 0.12771E-03,-0.57224E-03, 0.73281E-03,-0.78522E-04,
     & 0.48292E-03,-0.44519E-04,-0.81066E-04
     & /
       real p28(0:22)
       data p28/
     & 0.76827E+00,-0.10039E+01, 0.25383E+00,-0.43334E-01, 0.16610E-01,
     & 0.86625E-02, 0.35270E-02,-0.25644E-03,-0.28001E-02,-0.15379E-02,
     & 0.40698E-03, 0.42823E-03, 0.11053E-02,-0.16986E-03,-0.29000E-03,
     &-0.99106E-03, 0.17324E-03,-0.61702E-03, 0.79053E-03,-0.10892E-03,
     & 0.51002E-03,-0.58031E-04,-0.84187E-04
     & /
       real p29(0:22)
       data p29/
     & 0.83001E+00,-0.10906E+01, 0.28279E+00,-0.48835E-01, 0.18056E-01,
     & 0.89370E-02, 0.35669E-02,-0.30794E-03,-0.29471E-02,-0.15867E-02,
     & 0.45194E-03, 0.41855E-03, 0.11558E-02,-0.20146E-03,-0.28757E-03,
     &-0.10402E-02, 0.22210E-03,-0.66458E-03, 0.85088E-03,-0.14189E-03,
     & 0.53828E-03,-0.72458E-04,-0.87115E-04
     & /
       real p30(0:22)
       data p30/
     & 0.89465E+00,-0.11819E+01, 0.31385E+00,-0.54839E-01, 0.19580E-01,
     & 0.91962E-02, 0.35982E-02,-0.35930E-03,-0.30944E-02,-0.16331E-02,
     & 0.50008E-03, 0.40706E-03, 0.12085E-02,-0.23438E-03,-0.28326E-03,
     &-0.10911E-02, 0.27399E-03,-0.71554E-03, 0.91380E-03,-0.17755E-03,
     & 0.56798E-03,-0.87640E-04,-0.89693E-04
     & /
       real p31(0:22)
       data p31/
     & 0.96227E+00,-0.12779E+01, 0.34709E+00,-0.61372E-01, 0.21180E-01,
     & 0.94387E-02, 0.36209E-02,-0.40998E-03,-0.32414E-02,-0.16771E-02,
     & 0.55159E-03, 0.39385E-03, 0.12636E-02,-0.26850E-03,-0.27696E-03,
     &-0.11438E-02, 0.32883E-03,-0.77016E-03, 0.97930E-03,-0.21593E-03,
     & 0.59924E-03,-0.10354E-03,-0.91868E-04
     & /
       real p32(0:22)
       data p32/
     & 0.99280E+00,-0.13214E+01, 0.36230E+00,-0.64405E-01, 0.21915E-01,
     & 0.95398E-02, 0.36286E-02,-0.43250E-03,-0.33065E-02,-0.16960E-02,
     & 0.57492E-03, 0.38726E-03, 0.12881E-02,-0.28409E-03,-0.27367E-03,
     &-0.11675E-02, 0.35398E-03,-0.79503E-03, 0.10089E-02,-0.23361E-03,
     & 0.61333E-03,-0.11081E-03,-0.92763E-04
     & /
       real p33(0:22)
       data p33/
     & 0.10327E+01,-0.13783E+01, 0.38237E+00,-0.68444E-01, 0.22886E-01,
     & 0.96644E-02, 0.36365E-02,-0.46160E-03,-0.33904E-02,-0.17198E-02,
     & 0.60547E-03, 0.37810E-03, 0.13200E-02,-0.30463E-03,-0.26897E-03,
     &-0.11982E-02, 0.38719E-03,-0.82772E-03, 0.10477E-02,-0.25701E-03,
     & 0.63176E-03,-0.12041E-03,-0.93855E-04
     & /
       real p34(0:22)
       data p34/
     & 0.11060E+01,-0.14832E+01, 0.41975E+00,-0.76076E-01, 0.24703E-01,
     & 0.98722E-02, 0.36452E-02,-0.51396E-03,-0.35412E-02,-0.17613E-02,
     & 0.66172E-03, 0.35978E-03, 0.13779E-02,-0.34277E-03,-0.25924E-03,
     &-0.12541E-02, 0.44908E-03,-0.88831E-03, 0.11189E-02,-0.30082E-03,
     & 0.66560E-03,-0.13827E-03,-0.95646E-04
     & /
       real p35(0:22)
       data p35/
     & 0.11821E+01,-0.15926E+01, 0.45929E+00,-0.84293E-01, 0.26635E-01,
     & 0.10061E-01, 0.36472E-02,-0.56688E-03,-0.36939E-02,-0.18016E-02,
     & 0.72033E-03, 0.33882E-03, 0.14373E-02,-0.38297E-03,-0.24773E-03,
     &-0.13118E-02, 0.51454E-03,-0.95203E-03, 0.11932E-02,-0.34741E-03,
     & 0.70084E-03,-0.15712E-03,-0.97229E-04
     & /
       real p36(0:22)
       data p36/
     & 0.12611E+01,-0.17066E+01, 0.50102E+00,-0.93115E-01, 0.28686E-01,
     & 0.10230E-01, 0.36425E-02,-0.62018E-03,-0.38484E-02,-0.18407E-02,
     & 0.78132E-03, 0.31520E-03, 0.14984E-02,-0.42522E-03,-0.23439E-03,
     &-0.13713E-02, 0.58360E-03,-0.10190E-02, 0.12704E-02,-0.39681E-03,
     & 0.73751E-03,-0.17696E-03,-0.98594E-04
     & /
       real p37(0:22)
       data p37/
     & 0.13431E+01,-0.18252E+01, 0.54500E+00,-0.10257E+00, 0.30862E-01,
     & 0.10378E-01, 0.36313E-02,-0.67367E-03,-0.40046E-02,-0.18787E-02,
     & 0.84467E-03, 0.28884E-03, 0.15611E-02,-0.46954E-03,-0.21916E-03,
     &-0.14327E-02, 0.65630E-03,-0.10892E-02, 0.13508E-02,-0.44907E-03,
     & 0.77568E-03,-0.19782E-03,-0.99730E-04
     & /
       real p38(0:22)
       data p38/
     & 0.14281E+01,-0.19486E+01, 0.59129E+00,-0.11267E+00, 0.33166E-01,
     & 0.10505E-01, 0.36138E-02,-0.72717E-03,-0.41626E-02,-0.19154E-02,
     & 0.91039E-03, 0.25972E-03, 0.16255E-02,-0.51597E-03,-0.20201E-03,
     &-0.14961E-02, 0.73265E-03,-0.11629E-02, 0.14344E-02,-0.50423E-03,
     & 0.81540E-03,-0.21968E-03,-0.10063E-03
     & /
       real p39(0:22)
       data p39/
     & 0.15160E+01,-0.20767E+01, 0.63993E+00,-0.12344E+00, 0.35604E-01,
     & 0.10608E-01, 0.35899E-02,-0.78049E-03,-0.43223E-02,-0.19509E-02,
     & 0.97848E-03, 0.22778E-03, 0.16918E-02,-0.56451E-03,-0.18287E-03,
     &-0.15615E-02, 0.81268E-03,-0.12401E-02, 0.15211E-02,-0.56233E-03,
     & 0.85674E-03,-0.24256E-03,-0.10127E-03
     & /
       real p40(0:22)
       data p40/
     & 0.16073E+01,-0.22102E+01, 0.69124E+00,-0.13497E+00, 0.38170E-01,
     & 0.10689E-01, 0.35581E-02,-0.83258E-03,-0.44837E-02,-0.19854E-02,
     & 0.10487E-02, 0.19263E-03, 0.17603E-02,-0.61508E-03,-0.16160E-03,
     &-0.16293E-02, 0.89647E-03,-0.13216E-02, 0.16115E-02,-0.62359E-03,
     & 0.90009E-03,-0.26638E-03,-0.10159E-03
     & /
       real p41(0:22)
       data p41/
     & 0.17019E+01,-0.23491E+01, 0.74530E+00,-0.14729E+00, 0.40868E-01,
     & 0.10744E-01, 0.35182E-02,-0.88311E-03,-0.46467E-02,-0.20188E-02,
     & 0.11211E-02, 0.15418E-03, 0.18310E-02,-0.66768E-03,-0.13810E-03,
     &-0.16998E-02, 0.98405E-03,-0.14077E-02, 0.17056E-02,-0.68808E-03,
     & 0.94556E-03,-0.29114E-03,-0.10154E-03
     & /
       real p42(0:22)
       data p42/
     & 0.17995E+01,-0.24928E+01, 0.80177E+00,-0.16032E+00, 0.43717E-01,
     & 0.10774E-01, 0.34731E-02,-0.93324E-03,-0.48112E-02,-0.20510E-02,
     & 0.11960E-02, 0.11290E-03, 0.19037E-02,-0.72249E-03,-0.11253E-03,
     &-0.17724E-02, 0.10754E-02,-0.14972E-02, 0.18030E-02,-0.75556E-03,
     & 0.99269E-03,-0.31696E-03,-0.10124E-03
     & /
       real p43(0:22)
       data p43/
     & 0.19002E+01,-0.26414E+01, 0.86070E+00,-0.17409E+00, 0.46721E-01,
     & 0.10777E-01, 0.34230E-02,-0.98282E-03,-0.49774E-02,-0.20820E-02,
     & 0.12733E-02, 0.68739E-04, 0.19784E-02,-0.77953E-03,-0.84841E-04,
     &-0.18472E-02, 0.11705E-02,-0.15904E-02, 0.19038E-02,-0.82607E-03,
     & 0.10415E-02,-0.34387E-03,-0.10068E-03
     & /
       real p44(0:22)
       data p44/
     & 0.20040E+01,-0.27950E+01, 0.92212E+00,-0.18863E+00, 0.49885E-01,
     & 0.10752E-01, 0.33680E-02,-0.10317E-02,-0.51452E-02,-0.21119E-02,
     & 0.13530E-02, 0.21675E-04, 0.20551E-02,-0.83882E-03,-0.54994E-04,
     &-0.19243E-02, 0.12695E-02,-0.16873E-02, 0.20079E-02,-0.89965E-03,
     & 0.10921E-02,-0.37186E-03,-0.99851E-04
     & /
       real p45(0:22)
       data p45/
     & 0.21109E+01,-0.29535E+01, 0.98607E+00,-0.20394E+00, 0.53214E-01,
     & 0.10699E-01, 0.33085E-02,-0.10797E-02,-0.53144E-02,-0.21405E-02,
     & 0.14352E-02,-0.28330E-04, 0.21340E-02,-0.90038E-03,-0.22946E-04,
     &-0.20036E-02, 0.13723E-02,-0.17879E-02, 0.21154E-02,-0.97632E-03,
     & 0.11445E-02,-0.40096E-03,-0.98753E-04
     & /
       real p46(0:22)
       data p46/
     & 0.22209E+01,-0.31171E+01, 0.10526E+01,-0.22005E+00, 0.56713E-01,
     & 0.10615E-01, 0.32445E-02,-0.11267E-02,-0.54852E-02,-0.21679E-02,
     & 0.15199E-02,-0.81311E-04, 0.22149E-02,-0.96423E-03, 0.11348E-04,
     &-0.20854E-02, 0.14789E-02,-0.18923E-02, 0.22264E-02,-0.10561E-02,
     & 0.11987E-02,-0.43117E-03,-0.97375E-04
     & /
       real p47(0:22)
       data p47/
     & 0.23340E+01,-0.32857E+01, 0.11217E+01,-0.23699E+00, 0.60387E-01,
     & 0.10500E-01, 0.31763E-02,-0.11726E-02,-0.56575E-02,-0.21942E-02,
     & 0.16071E-02,-0.13730E-03, 0.22982E-02,-0.10304E-02, 0.47931E-04,
     &-0.21696E-02, 0.15895E-02,-0.20007E-02, 0.23410E-02,-0.11391E-02,
     & 0.12548E-02,-0.46250E-03,-0.95709E-04
     & /
       real p48(0:37)
       data p48/
     & 0.24495E+01,-0.34583E+01, 0.11928E+01,-0.25442E+00, 0.64441E-01,
     & 0.94853E-02, 0.45260E-02,-0.29310E-02,-0.42353E-02,-0.34360E-02,
     & 0.25290E-02,-0.46026E-03, 0.19489E-02,-0.20631E-03,-0.11092E-02,
     &-0.76167E-03, 0.23842E-03,-0.99393E-03, 0.15151E-02,-0.35913E-03,
     & 0.89442E-03,-0.69546E-03, 0.17012E-03, 0.13254E-03,-0.84420E-03,
     & 0.46842E-03, 0.23140E-03,-0.67895E-03, 0.89987E-03,-0.63721E-04,
     &-0.91276E-03, 0.12245E-02,-0.12049E-02, 0.11494E-02,-0.12280E-02,
     & 0.10116E-02,-0.35508E-03,-0.29399E-04
     & /
       real p49(0:37)
       data p49/
     & 0.25690E+01,-0.36372E+01, 0.12673E+01,-0.27304E+00, 0.68492E-01,
     & 0.92575E-02, 0.45288E-02,-0.30689E-02,-0.43209E-02,-0.35301E-02,
     & 0.26675E-02,-0.53630E-03, 0.20137E-02,-0.22719E-03,-0.11365E-02,
     &-0.76815E-03, 0.27593E-03,-0.10453E-02, 0.15827E-02,-0.40241E-03,
     & 0.93218E-03,-0.73605E-03, 0.18434E-03, 0.14764E-03,-0.88059E-03,
     & 0.49460E-03, 0.24216E-03,-0.71813E-03, 0.94112E-03,-0.67328E-04,
     &-0.95981E-03, 0.12931E-02,-0.12729E-02, 0.12169E-02,-0.12959E-02,
     & 0.10657E-02,-0.37777E-03,-0.26212E-04
     & /
       real p50(0:37)
       data p50/
     & 0.26917E+01,-0.38214E+01, 0.13445E+01,-0.29254E+00, 0.72733E-01,
     & 0.89941E-02, 0.45306E-02,-0.32082E-02,-0.44048E-02,-0.36254E-02,
     & 0.28101E-02,-0.61591E-03, 0.20801E-02,-0.24878E-03,-0.11637E-02,
     &-0.77450E-03, 0.31472E-03,-0.10984E-02, 0.16521E-02,-0.44750E-03,
     & 0.97123E-03,-0.77784E-03, 0.19916E-03, 0.16327E-03,-0.91796E-03,
     & 0.52148E-03, 0.25321E-03,-0.75854E-03, 0.98349E-03,-0.70953E-04,
     &-0.10083E-02, 0.13638E-02,-0.13433E-02, 0.12866E-02,-0.13660E-02,
     & 0.11215E-02,-0.40134E-03,-0.22683E-04
     & /
       real p51(0:37)
       data p51/
     & 0.28183E+01,-0.40119E+01, 0.14252E+01,-0.31314E+00, 0.77161E-01,
     & 0.86962E-02, 0.45296E-02,-0.33459E-02,-0.44850E-02,-0.37220E-02,
     & 0.29575E-02,-0.69980E-03, 0.21496E-02,-0.27097E-03,-0.11904E-02,
     &-0.78124E-03, 0.35417E-03,-0.11540E-02, 0.17232E-02,-0.49437E-03,
     & 0.10121E-02,-0.82069E-03, 0.21488E-03, 0.17931E-03,-0.95652E-03,
     & 0.54887E-03, 0.26469E-03,-0.80051E-03, 0.10273E-02,-0.74447E-04,
     &-0.10585E-02, 0.14376E-02,-0.14169E-02, 0.13594E-02,-0.14388E-02,
     & 0.11792E-02,-0.42571E-03,-0.18877E-04
     & /
       real p52(0:37)
       data p52/
     & 0.29481E+01,-0.42078E+01, 0.15087E+01,-0.33466E+00, 0.81790E-01,
     & 0.83607E-02, 0.45280E-02,-0.34849E-02,-0.45634E-02,-0.38201E-02,
     & 0.31090E-02,-0.78733E-03, 0.22208E-02,-0.29385E-03,-0.12171E-02,
     &-0.78788E-03, 0.39488E-03,-0.12114E-02, 0.17961E-02,-0.54310E-03,
     & 0.10543E-02,-0.86474E-03, 0.23121E-03, 0.19587E-03,-0.99608E-03,
     & 0.57696E-03, 0.27647E-03,-0.84372E-03, 0.10722E-02,-0.77949E-04,
     &-0.11102E-02, 0.15137E-02,-0.14930E-02, 0.14346E-02,-0.15139E-02,
     & 0.12386E-02,-0.45098E-03,-0.14707E-04
     & /
       real p53(0:37)
       data p53/
     & 0.30812E+01,-0.44089E+01, 0.15949E+01,-0.35709E+00, 0.86625E-01,
     & 0.79862E-02, 0.45265E-02,-0.36257E-02,-0.46402E-02,-0.39194E-02,
     & 0.32646E-02,-0.87843E-03, 0.22936E-02,-0.31745E-03,-0.12438E-02,
     &-0.79437E-03, 0.43694E-03,-0.12707E-02, 0.18709E-02,-0.59370E-03,
     & 0.10978E-02,-0.91002E-03, 0.24812E-03, 0.21299E-03,-0.10366E-02,
     & 0.60577E-03, 0.28853E-03,-0.88813E-03, 0.11183E-02,-0.81478E-04,
     &-0.11633E-02, 0.15921E-02,-0.15714E-02, 0.15121E-02,-0.15913E-02,
     & 0.12998E-02,-0.47718E-03,-0.10147E-04
     & /
       real p54(0:37)
       data p54/
     & 0.32174E+01,-0.46153E+01, 0.16839E+01,-0.38044E+00, 0.91671E-01,
     & 0.75718E-02, 0.45252E-02,-0.37681E-02,-0.47154E-02,-0.40202E-02,
     & 0.34242E-02,-0.97314E-03, 0.23682E-02,-0.34176E-03,-0.12704E-02,
     &-0.80073E-03, 0.48036E-03,-0.13318E-02, 0.19476E-02,-0.64618E-03,
     & 0.11427E-02,-0.95654E-03, 0.26562E-03, 0.23064E-03,-0.10782E-02,
     & 0.63532E-03, 0.30087E-03,-0.93374E-03, 0.11654E-02,-0.85032E-04,
     &-0.12178E-02, 0.16727E-02,-0.16523E-02, 0.15921E-02,-0.16709E-02,
     & 0.13628E-02,-0.50432E-03,-0.51847E-05
     & /
       real p55(0:37)
       data p55/
     & 0.33569E+01,-0.48269E+01, 0.17758E+01,-0.40474E+00, 0.96933E-01,
     & 0.71163E-02, 0.45245E-02,-0.39121E-02,-0.47890E-02,-0.41225E-02,
     & 0.35878E-02,-0.10715E-02, 0.24444E-02,-0.36679E-03,-0.12971E-02,
     &-0.80697E-03, 0.52513E-03,-0.13948E-02, 0.20263E-02,-0.70058E-03,
     & 0.11889E-02,-0.10043E-02, 0.28370E-03, 0.24884E-03,-0.11207E-02,
     & 0.66560E-03, 0.31349E-03,-0.98056E-03, 0.12136E-02,-0.88606E-04,
     &-0.12737E-02, 0.17556E-02,-0.17356E-02, 0.16746E-02,-0.17529E-02,
     & 0.14276E-02,-0.53242E-03, 0.19131E-06
     & /
       real p56(0:37)
       data p56/
     & 0.34997E+01,-0.50439E+01, 0.18704E+01,-0.43000E+00, 0.10242E+00,
     & 0.66186E-02, 0.45245E-02,-0.40577E-02,-0.48609E-02,-0.42262E-02,
     & 0.37556E-02,-0.11735E-02, 0.25224E-02,-0.39253E-03,-0.13238E-02,
     &-0.81311E-03, 0.57126E-03,-0.14597E-02, 0.21068E-02,-0.75690E-03,
     & 0.12365E-02,-0.10533E-02, 0.30237E-03, 0.26759E-03,-0.11643E-02,
     & 0.69661E-03, 0.32639E-03,-0.10286E-02, 0.12629E-02,-0.92199E-04,
     &-0.13310E-02, 0.18408E-02,-0.18215E-02, 0.17595E-02,-0.18373E-02,
     & 0.14942E-02,-0.56148E-03, 0.59935E-05
     & /
       real p57(0:37)
       data p57/
     & 0.36457E+01,-0.52662E+01, 0.19680E+01,-0.45623E+00, 0.10813E+00,
     & 0.60779E-02, 0.45257E-02,-0.42046E-02,-0.49311E-02,-0.43315E-02,
     & 0.39274E-02,-0.12792E-02, 0.26021E-02,-0.41898E-03,-0.13504E-02,
     &-0.81916E-03, 0.61873E-03,-0.15265E-02, 0.21894E-02,-0.81516E-03,
     & 0.12856E-02,-0.11036E-02, 0.32164E-03, 0.28688E-03,-0.12089E-02,
     & 0.72836E-03, 0.33957E-03,-0.10778E-02, 0.13133E-02,-0.95805E-04,
     &-0.13898E-02, 0.19284E-02,-0.19098E-02, 0.18470E-02,-0.19240E-02,
     & 0.15626E-02,-0.59154E-03, 0.12234E-04
     & /
       real p58(0:37)
       data p58/
     & 0.37950E+01,-0.54939E+01, 0.20685E+01,-0.48346E+00, 0.11407E+00,
     & 0.54929E-02, 0.45281E-02,-0.43530E-02,-0.49994E-02,-0.44384E-02,
     & 0.41034E-02,-0.13887E-02, 0.26837E-02,-0.44615E-03,-0.13770E-02,
     &-0.82515E-03, 0.66754E-03,-0.15953E-02, 0.22739E-02,-0.87538E-03,
     & 0.13361E-02,-0.11552E-02, 0.34151E-03, 0.30672E-03,-0.12545E-02,
     & 0.76085E-03, 0.35304E-03,-0.11283E-02, 0.13649E-02,-0.99423E-04,
     &-0.14500E-02, 0.20183E-02,-0.20006E-02, 0.19370E-02,-0.20131E-02,
     & 0.16328E-02,-0.62260E-03, 0.18925E-04
     & /
       real p59(0:37)
       data p59/
     & 0.39476E+01,-0.57270E+01, 0.21719E+01,-0.51170E+00, 0.12024E+00,
     & 0.48626E-02, 0.45322E-02,-0.45027E-02,-0.50659E-02,-0.45468E-02,
     & 0.42835E-02,-0.15019E-02, 0.27671E-02,-0.47402E-03,-0.14036E-02,
     &-0.83109E-03, 0.71771E-03,-0.16660E-02, 0.23604E-02,-0.93757E-03,
     & 0.13880E-02,-0.12080E-02, 0.36199E-03, 0.32711E-03,-0.13012E-02,
     & 0.79409E-03, 0.36680E-03,-0.11800E-02, 0.14175E-02,-0.10305E-03,
     &-0.15117E-02, 0.21106E-02,-0.20940E-02, 0.20295E-02,-0.21047E-02,
     & 0.17050E-02,-0.65467E-03, 0.26079E-04
     & /
       real p60(0:37)
       data p60/
     & 0.41036E+01,-0.59656E+01, 0.22782E+01,-0.54098E+00, 0.12666E+00,
     & 0.41861E-02, 0.45381E-02,-0.46537E-02,-0.51305E-02,-0.46569E-02,
     & 0.44678E-02,-0.16190E-02, 0.28525E-02,-0.50262E-03,-0.14301E-02,
     &-0.83699E-03, 0.76921E-03,-0.17388E-02, 0.24490E-02,-0.10018E-02,
     & 0.14415E-02,-0.12621E-02, 0.38308E-03, 0.34804E-03,-0.13489E-02,
     & 0.82807E-03, 0.38084E-03,-0.12330E-02, 0.14714E-02,-0.10668E-03,
     &-0.15748E-02, 0.22052E-02,-0.21900E-02, 0.21246E-02,-0.21987E-02,
     & 0.17790E-02,-0.68778E-03, 0.33708E-04
     & /
       real p61(0:37)
       data p61/
     & 0.42629E+01,-0.62096E+01, 0.23876E+01,-0.57130E+00, 0.13333E+00,
     & 0.34622E-02, 0.45460E-02,-0.48058E-02,-0.51931E-02,-0.47687E-02,
     & 0.46563E-02,-0.17398E-02, 0.29397E-02,-0.53192E-03,-0.14567E-02,
     &-0.84288E-03, 0.82205E-03,-0.18137E-02, 0.25396E-02,-0.10680E-02,
     & 0.14964E-02,-0.13175E-02, 0.40479E-03, 0.36953E-03,-0.13977E-02,
     & 0.86279E-03, 0.39518E-03,-0.12872E-02, 0.15263E-02,-0.11031E-03,
     &-0.16395E-02, 0.23023E-02,-0.22887E-02, 0.22224E-02,-0.22951E-02,
     & 0.18550E-02,-0.72194E-03, 0.41823E-04
     & /
       real p62(0:37)
       data p62/
     & 0.44255E+01,-0.64593E+01, 0.25000E+01,-0.60269E+00, 0.14024E+00,
     & 0.26899E-02, 0.45564E-02,-0.49591E-02,-0.52538E-02,-0.48822E-02,
     & 0.48490E-02,-0.18646E-02, 0.30289E-02,-0.56194E-03,-0.14832E-02,
     &-0.84877E-03, 0.87623E-03,-0.18906E-02, 0.26323E-02,-0.11362E-02,
     & 0.15530E-02,-0.13742E-02, 0.42712E-03, 0.39156E-03,-0.14477E-02,
     & 0.89827E-03, 0.40981E-03,-0.13427E-02, 0.15824E-02,-0.11394E-03,
     &-0.17056E-02, 0.24019E-02,-0.23900E-02, 0.23228E-02,-0.23941E-02,
     & 0.19329E-02,-0.75716E-03, 0.50438E-04
     & /
       real p63(0:37)
       data p63/
     & 0.45920E+01,-0.67153E+01, 0.26161E+01,-0.63536E+00, 0.14743E+00,
     & 0.18691E-02, 0.45691E-02,-0.51113E-02,-0.53110E-02,-0.49978E-02,
     & 0.50463E-02,-0.19936E-02, 0.31206E-02,-0.59216E-03,-0.15099E-02,
     &-0.85479E-03, 0.93158E-03,-0.19703E-02, 0.27276E-02,-0.12068E-02,
     & 0.16117E-02,-0.14323E-02, 0.45019E-03, 0.41425E-03,-0.14990E-02,
     & 0.93464E-03, 0.42468E-03,-0.13995E-02, 0.16399E-02,-0.11754E-03,
     &-0.17733E-02, 0.25041E-02,-0.24943E-02, 0.24263E-02,-0.24960E-02,
     & 0.20130E-02,-0.79374E-03, 0.59804E-04
     & /
       real p64(0:37)
       data p64/
     & 0.47623E+01,-0.69776E+01, 0.27357E+01,-0.66930E+00, 0.15489E+00,
     & 0.99860E-03, 0.45844E-02,-0.52629E-02,-0.53650E-02,-0.51154E-02,
     & 0.52481E-02,-0.21269E-02, 0.32147E-02,-0.62272E-03,-0.15369E-02,
     &-0.86093E-03, 0.98814E-03,-0.20527E-02, 0.28253E-02,-0.12797E-02,
     & 0.16724E-02,-0.14917E-02, 0.47398E-03, 0.43756E-03,-0.15518E-02,
     & 0.97185E-03, 0.43981E-03,-0.14577E-02, 0.16987E-02,-0.12110E-03,
     &-0.18427E-02, 0.26090E-02,-0.26015E-02, 0.25327E-02,-0.26008E-02,
     & 0.20954E-02,-0.83163E-03, 0.69874E-04
     & /
       real p65(0:37)
       data p65/
     & 0.49358E+01,-0.72454E+01, 0.28583E+01,-0.70431E+00, 0.16261E+00,
     & 0.76285E-04, 0.46030E-02,-0.54159E-02,-0.54171E-02,-0.52347E-02,
     & 0.54542E-02,-0.22641E-02, 0.33107E-02,-0.65410E-03,-0.15637E-02,
     &-0.86710E-03, 0.10461E-02,-0.21372E-02, 0.29251E-02,-0.13546E-02,
     & 0.17347E-02,-0.15524E-02, 0.49838E-03, 0.46141E-03,-0.16056E-02,
     & 0.10098E-02, 0.45525E-03,-0.15172E-02, 0.17586E-02,-0.12466E-03,
     &-0.19136E-02, 0.27164E-02,-0.27115E-02, 0.26418E-02,-0.27081E-02,
     & 0.21797E-02,-0.87056E-03, 0.80427E-04
     & /
       real p66(0:37)
       data p66/
     & 0.51127E+01,-0.75186E+01, 0.29839E+01,-0.74040E+00, 0.17060E+00,
     &-0.89886E-03, 0.46250E-02,-0.55703E-02,-0.54674E-02,-0.53559E-02,
     & 0.56644E-02,-0.24052E-02, 0.34087E-02,-0.68631E-03,-0.15904E-02,
     &-0.87331E-03, 0.11054E-02,-0.22236E-02, 0.30269E-02,-0.14315E-02,
     & 0.17985E-02,-0.16145E-02, 0.52340E-03, 0.48578E-03,-0.16604E-02,
     & 0.10485E-02, 0.47100E-03,-0.15779E-02, 0.18196E-02,-0.12821E-03,
     &-0.19859E-02, 0.28262E-02,-0.28241E-02, 0.27535E-02,-0.28178E-02,
     & 0.22659E-02,-0.91055E-03, 0.91469E-04
     & /
       real p67(0:37)
       data p67/
     & 0.52929E+01,-0.77974E+01, 0.31126E+01,-0.77759E+00, 0.17887E+00,
     &-0.19279E-02, 0.46507E-02,-0.57260E-02,-0.55159E-02,-0.54789E-02,
     & 0.58788E-02,-0.25502E-02, 0.35088E-02,-0.71936E-03,-0.16170E-02,
     &-0.87957E-03, 0.11660E-02,-0.23120E-02, 0.31308E-02,-0.15105E-02,
     & 0.18638E-02,-0.16778E-02, 0.54904E-03, 0.51067E-03,-0.17163E-02,
     & 0.10879E-02, 0.48706E-03,-0.16399E-02, 0.18818E-02,-0.13175E-03,
     &-0.20598E-02, 0.29385E-02,-0.29395E-02, 0.28680E-02,-0.29301E-02,
     & 0.23541E-02,-0.95161E-03, 0.10301E-03
     & /
       real p68(0:37)
       data p68/
     & 0.54764E+01,-0.80816E+01, 0.32443E+01,-0.81591E+00, 0.18741E+00,
     &-0.30119E-02, 0.46804E-02,-0.58829E-02,-0.55624E-02,-0.56037E-02,
     & 0.60974E-02,-0.26992E-02, 0.36109E-02,-0.75326E-03,-0.16434E-02,
     &-0.88591E-03, 0.12280E-02,-0.24025E-02, 0.32368E-02,-0.15915E-02,
     & 0.19307E-02,-0.17425E-02, 0.57530E-03, 0.53609E-03,-0.17733E-02,
     & 0.11280E-02, 0.50342E-03,-0.17031E-02, 0.19451E-02,-0.13528E-03,
     &-0.21352E-02, 0.30534E-02,-0.30575E-02, 0.29852E-02,-0.30450E-02,
     & 0.24443E-02,-0.99375E-03, 0.11506E-03
     & /
       real p69(0:37)
       data p69/
     & 0.56633E+01,-0.83715E+01, 0.33792E+01,-0.85535E+00, 0.19623E+00,
     &-0.41520E-02, 0.47144E-02,-0.60411E-02,-0.56070E-02,-0.57305E-02,
     & 0.63203E-02,-0.28521E-02, 0.37151E-02,-0.78801E-03,-0.16697E-02,
     &-0.89234E-03, 0.12914E-02,-0.24950E-02, 0.33449E-02,-0.16745E-02,
     & 0.19992E-02,-0.18086E-02, 0.60220E-03, 0.56203E-03,-0.18313E-02,
     & 0.11689E-02, 0.52010E-03,-0.17676E-02, 0.20096E-02,-0.13879E-03,
     &-0.22122E-02, 0.31707E-02,-0.31784E-02, 0.31051E-02,-0.31624E-02,
     & 0.25364E-02,-0.10370E-02, 0.12763E-03
     & /
       real p70(0:37)
       data p70/
     & 0.58536E+01,-0.86669E+01, 0.35172E+01,-0.89594E+00, 0.20534E+00,
     &-0.53491E-02, 0.47528E-02,-0.62005E-02,-0.56497E-02,-0.58592E-02,
     & 0.65475E-02,-0.30090E-02, 0.38214E-02,-0.82362E-03,-0.16959E-02,
     &-0.89887E-03, 0.13562E-02,-0.25896E-02, 0.34551E-02,-0.17596E-02,
     & 0.20693E-02,-0.18759E-02, 0.62972E-03, 0.58850E-03,-0.18903E-02,
     & 0.12105E-02, 0.53710E-03,-0.18333E-02, 0.20752E-02,-0.14229E-03,
     &-0.22907E-02, 0.32905E-02,-0.33020E-02, 0.32278E-02,-0.32825E-02,
     & 0.26305E-02,-0.10813E-02, 0.14072E-03
     & /
       real p71(0:37)
       data p71/
     & 0.60472E+01,-0.89679E+01, 0.36583E+01,-0.93769E+00, 0.21474E+00,
     &-0.66044E-02, 0.47960E-02,-0.63611E-02,-0.56903E-02,-0.59899E-02,
     & 0.67789E-02,-0.31700E-02, 0.39298E-02,-0.86010E-03,-0.17219E-02,
     &-0.90552E-03, 0.14223E-02,-0.26863E-02, 0.35675E-02,-0.18468E-02,
     & 0.21410E-02,-0.19446E-02, 0.65788E-03, 0.61549E-03,-0.19505E-02,
     & 0.12528E-02, 0.55441E-03,-0.19003E-02, 0.21419E-02,-0.14576E-03,
     &-0.23707E-02, 0.34129E-02,-0.34284E-02, 0.33534E-02,-0.34051E-02,
     & 0.27266E-02,-0.11268E-02, 0.15435E-03
     & /
       real p72(0:37)
       data p72/
     & 0.62442E+01,-0.92745E+01, 0.38026E+01,-0.98061E+00, 0.22444E+00,
     &-0.79189E-02, 0.48443E-02,-0.65228E-02,-0.57289E-02,-0.61226E-02,
     & 0.70146E-02,-0.33349E-02, 0.40404E-02,-0.89746E-03,-0.17478E-02,
     &-0.91230E-03, 0.14899E-02,-0.27851E-02, 0.36820E-02,-0.19360E-02,
     & 0.22143E-02,-0.20147E-02, 0.68668E-03, 0.64300E-03,-0.20117E-02,
     & 0.12959E-02, 0.57204E-03,-0.19686E-02, 0.22099E-02,-0.14920E-03,
     &-0.24523E-02, 0.35379E-02,-0.35577E-02, 0.34817E-02,-0.35304E-02,
     & 0.28248E-02,-0.11734E-02, 0.16852E-03
     & /
       real p73(0:37)
       data p73/
     & 0.64447E+01,-0.95868E+01, 0.39501E+01,-0.10247E+01, 0.23445E+00,
     &-0.92937E-02, 0.48978E-02,-0.66855E-02,-0.57655E-02,-0.62574E-02,
     & 0.72546E-02,-0.35040E-02, 0.41532E-02,-0.93569E-03,-0.17735E-02,
     &-0.91923E-03, 0.15587E-02,-0.28860E-02, 0.37987E-02,-0.20273E-02,
     & 0.22894E-02,-0.20861E-02, 0.71613E-03, 0.67103E-03,-0.20740E-02,
     & 0.13397E-02, 0.58999E-03,-0.20381E-02, 0.22789E-02,-0.15262E-03,
     &-0.25355E-02, 0.36655E-02,-0.36899E-02, 0.36129E-02,-0.36583E-02,
     & 0.29250E-02,-0.12211E-02, 0.18325E-03
     & /
       real p74(0:37)
       data p74/
     & 0.66485E+01,-0.99048E+01, 0.41008E+01,-0.10700E+01, 0.24475E+00,
     &-0.10730E-01, 0.49568E-02,-0.68494E-02,-0.58000E-02,-0.63942E-02,
     & 0.74990E-02,-0.36772E-02, 0.42682E-02,-0.97481E-03,-0.17990E-02,
     &-0.92633E-03, 0.16290E-02,-0.29891E-02, 0.39175E-02,-0.21208E-02,
     & 0.23661E-02,-0.21589E-02, 0.74622E-03, 0.69958E-03,-0.21374E-02,
     & 0.13842E-02, 0.60826E-03,-0.21089E-02, 0.23492E-02,-0.15601E-03,
     &-0.26203E-02, 0.37957E-02,-0.38249E-02, 0.37470E-02,-0.37889E-02,
     & 0.30272E-02,-0.12699E-02, 0.19853E-03
     & /
       real p75(0:37)
       data p75/
     & 0.68558E+01,-0.10229E+02, 0.42548E+01,-0.11166E+01, 0.25537E+00,
     &-0.12228E-01, 0.50217E-02,-0.70142E-02,-0.58324E-02,-0.65331E-02,
     & 0.77476E-02,-0.38545E-02, 0.43855E-02,-0.10148E-02,-0.18243E-02,
     &-0.93361E-03, 0.17006E-02,-0.30943E-02, 0.40386E-02,-0.22163E-02,
     & 0.24445E-02,-0.22330E-02, 0.77696E-03, 0.72865E-03,-0.22018E-02,
     & 0.14295E-02, 0.62686E-03,-0.21810E-02, 0.24206E-02,-0.15936E-03,
     &-0.27067E-02, 0.39285E-02,-0.39628E-02, 0.38839E-02,-0.39222E-02,
     & 0.31315E-02,-0.13200E-02, 0.21439E-03
     & /
       real p76(0:37)
       data p76/
     & 0.70665E+01,-0.10558E+02, 0.44120E+01,-0.11644E+01, 0.26631E+00,
     &-0.13790E-01, 0.50926E-02,-0.71800E-02,-0.58626E-02,-0.66742E-02,
     & 0.80006E-02,-0.40359E-02, 0.45051E-02,-0.10557E-02,-0.18494E-02,
     &-0.94109E-03, 0.17736E-02,-0.32016E-02, 0.41619E-02,-0.23140E-02,
     & 0.25246E-02,-0.23085E-02, 0.80835E-03, 0.75823E-03,-0.22674E-02,
     & 0.14755E-02, 0.64579E-03,-0.22544E-02, 0.24932E-02,-0.16268E-03,
     &-0.27946E-02, 0.40639E-02,-0.41037E-02, 0.40238E-02,-0.40582E-02,
     & 0.32379E-02,-0.13712E-02, 0.23082E-03
     & /
       real p77(0:37)
       data p77/
     & 0.72807E+01,-0.10893E+02, 0.45726E+01,-0.12134E+01, 0.27757E+00,
     &-0.15417E-01, 0.51699E-02,-0.73466E-02,-0.58906E-02,-0.68175E-02,
     & 0.82581E-02,-0.42216E-02, 0.46271E-02,-0.10976E-02,-0.18743E-02,
     &-0.94881E-03, 0.18479E-02,-0.33112E-02, 0.42875E-02,-0.24138E-02,
     & 0.26065E-02,-0.23854E-02, 0.84041E-03, 0.78834E-03,-0.23341E-02,
     & 0.15223E-02, 0.66505E-03,-0.23291E-02, 0.25670E-02,-0.16596E-03,
     &-0.28842E-02, 0.42020E-02,-0.42475E-02, 0.41667E-02,-0.41970E-02,
     & 0.33464E-02,-0.14236E-02, 0.24785E-03
     & /
       real p78(0:37)
       data p78/
     & 0.74993E+01,-0.11236E+02, 0.47378E+01,-0.12643E+01, 0.28923E+00,
     &-0.17112E-01, 0.52540E-02,-0.75085E-02,-0.59146E-02,-0.69641E-02,
     & 0.85209E-02,-0.44131E-02, 0.47530E-02,-0.11406E-02,-0.18985E-02,
     &-0.95769E-03, 0.19235E-02,-0.34240E-02, 0.44158E-02,-0.25161E-02,
     & 0.26910E-02,-0.24638E-02, 0.87334E-03, 0.81906E-03,-0.24025E-02,
     & 0.15700E-02, 0.68471E-03,-0.24055E-02, 0.26426E-02,-0.16937E-03,
     &-0.29758E-02, 0.43438E-02,-0.43957E-02, 0.43137E-02,-0.43395E-02,
     & 0.34578E-02,-0.14775E-02, 0.26570E-03
     & /
       real p79(0:37)
       data p79/
     & 0.77213E+01,-0.11584E+02, 0.49062E+01,-0.13163E+01, 0.30122E+00,
     &-0.18873E-01, 0.53449E-02,-0.76719E-02,-0.59366E-02,-0.71128E-02,
     & 0.87880E-02,-0.46086E-02, 0.48811E-02,-0.11845E-02,-0.19225E-02,
     &-0.96671E-03, 0.20004E-02,-0.35389E-02, 0.45463E-02,-0.26205E-02,
     & 0.27772E-02,-0.25437E-02, 0.90691E-03, 0.85028E-03,-0.24720E-02,
     & 0.16184E-02, 0.70469E-03,-0.24832E-02, 0.27194E-02,-0.17272E-03,
     &-0.30690E-02, 0.44882E-02,-0.45467E-02, 0.44635E-02,-0.44847E-02,
     & 0.35712E-02,-0.15327E-02, 0.28414E-03
     & /
       real p80(0:37)
       data p80/
     & 0.79466E+01,-0.11939E+02, 0.50779E+01,-0.13697E+01, 0.31354E+00,
     &-0.20702E-01, 0.54429E-02,-0.78367E-02,-0.59565E-02,-0.72637E-02,
     & 0.90594E-02,-0.48082E-02, 0.50115E-02,-0.12293E-02,-0.19463E-02,
     &-0.97589E-03, 0.20787E-02,-0.36560E-02, 0.46791E-02,-0.27271E-02,
     & 0.28652E-02,-0.26249E-02, 0.94113E-03, 0.88201E-03,-0.25426E-02,
     & 0.16675E-02, 0.72500E-03,-0.25622E-02, 0.27973E-02,-0.17599E-03,
     &-0.31637E-02, 0.46351E-02,-0.47006E-02, 0.46162E-02,-0.46326E-02,
     & 0.36866E-02,-0.15890E-02, 0.30316E-03
     & /
       real p81(0:38)
       data p81/
     & 0.81753E+01,-0.12298E+02, 0.52528E+01,-0.14242E+01, 0.32619E+00,
     &-0.22599E-01, 0.55483E-02,-0.80029E-02,-0.59743E-02,-0.74168E-02,
     & 0.93350E-02,-0.50120E-02, 0.51441E-02,-0.12751E-02,-0.19700E-02,
     &-0.98523E-03, 0.21584E-02,-0.37752E-02, 0.48141E-02,-0.28358E-02,
     & 0.29548E-02,-0.27075E-02, 0.97600E-03, 0.91424E-03,-0.26142E-02,
     & 0.17173E-02, 0.74564E-03,-0.26424E-02, 0.28763E-02,-0.17920E-03,
     &-0.32601E-02, 0.47847E-02,-0.48574E-02, 0.47719E-02,-0.47832E-02,
     & 0.38042E-02,-0.16465E-02, 0.32279E-03,-0.87491E-03
     & /
       real p82(0:38)
       data p82/
     & 0.84075E+01,-0.12664E+02, 0.54309E+01,-0.14800E+01, 0.33917E+00,
     &-0.24565E-01, 0.56613E-02,-0.81706E-02,-0.59900E-02,-0.75721E-02,
     & 0.96151E-02,-0.52198E-02, 0.52790E-02,-0.13217E-02,-0.19935E-02,
     &-0.99476E-03, 0.22395E-02,-0.38965E-02, 0.49513E-02,-0.29467E-02,
     & 0.30462E-02,-0.27914E-02, 0.10115E-02, 0.94697E-03,-0.26868E-02,
     & 0.17679E-02, 0.76661E-03,-0.27238E-02, 0.29564E-02,-0.18234E-03,
     &-0.33581E-02, 0.49370E-02,-0.50171E-02, 0.49304E-02,-0.49365E-02,
     & 0.39238E-02,-0.17052E-02, 0.34301E-03,-0.90375E-03
     & /
       real p83(0:38)
       data p83/
     & 0.86430E+01,-0.13035E+02, 0.56123E+01,-0.15371E+01, 0.35249E+00,
     &-0.26603E-01, 0.57822E-02,-0.83396E-02,-0.60036E-02,-0.77297E-02,
     & 0.98994E-02,-0.54318E-02, 0.54162E-02,-0.13692E-02,-0.20168E-02,
     &-0.10045E-02, 0.23220E-02,-0.40200E-02, 0.50909E-02,-0.30597E-02,
     & 0.31393E-02,-0.28768E-02, 0.10477E-02, 0.98020E-03,-0.27606E-02,
     & 0.18192E-02, 0.78791E-03,-0.28065E-02, 0.30377E-02,-0.18540E-03,
     &-0.34577E-02, 0.50918E-02,-0.51798E-02, 0.50920E-02,-0.50926E-02,
     & 0.40456E-02,-0.17651E-02, 0.36385E-03,-0.93313E-03
     & /
       real p84(0:38)
       data p84/
     & 0.88819E+01,-0.13411E+02, 0.57970E+01,-0.15955E+01, 0.36615E+00,
     &-0.28712E-01, 0.59112E-02,-0.85100E-02,-0.60151E-02,-0.78895E-02,
     & 0.10188E-01,-0.56480E-02, 0.55557E-02,-0.14177E-02,-0.20399E-02,
     &-0.10144E-02, 0.24059E-02,-0.41457E-02, 0.52327E-02,-0.31750E-02,
     & 0.32342E-02,-0.29636E-02, 0.10845E-02, 0.10139E-02,-0.28354E-02,
     & 0.18712E-02, 0.80955E-03,-0.28905E-02, 0.31201E-02,-0.18838E-03,
     &-0.35589E-02, 0.52493E-02,-0.53454E-02, 0.52564E-02,-0.52514E-02,
     & 0.41694E-02,-0.18262E-02, 0.38531E-03,-0.96307E-03
     & /
       real p85(0:38)
       data p85/
     & 0.91242E+01,-0.13794E+02, 0.59850E+01,-0.16551E+01, 0.38017E+00,
     &-0.30893E-01, 0.60486E-02,-0.86818E-02,-0.60245E-02,-0.80517E-02,
     & 0.10481E-01,-0.58684E-02, 0.56975E-02,-0.14671E-02,-0.20629E-02,
     &-0.10245E-02, 0.24912E-02,-0.42736E-02, 0.53768E-02,-0.32924E-02,
     & 0.33309E-02,-0.30518E-02, 0.11220E-02, 0.10482E-02,-0.29113E-02,
     & 0.19239E-02, 0.83153E-03,-0.29757E-02, 0.32036E-02,-0.19128E-03,
     &-0.36618E-02, 0.54095E-02,-0.55140E-02, 0.54239E-02,-0.54129E-02,
     & 0.42954E-02,-0.18886E-02, 0.40739E-03,-0.99355E-03
     & /
       real p86(0:38)
       data p86/
     & 0.93699E+01,-0.14182E+02, 0.61764E+01,-0.17161E+01, 0.39454E+00,
     &-0.33149E-01, 0.61947E-02,-0.88549E-02,-0.60316E-02,-0.82162E-02,
     & 0.10778E-01,-0.60929E-02, 0.58416E-02,-0.15174E-02,-0.20857E-02,
     &-0.10348E-02, 0.25778E-02,-0.44037E-02, 0.55232E-02,-0.34120E-02,
     & 0.34293E-02,-0.31415E-02, 0.11601E-02, 0.10829E-02,-0.29882E-02,
     & 0.19773E-02, 0.85384E-03,-0.30622E-02, 0.32882E-02,-0.19409E-03,
     &-0.37663E-02, 0.55724E-02,-0.56856E-02, 0.55943E-02,-0.55772E-02,
     & 0.44235E-02,-0.19521E-02, 0.43011E-03,-0.10246E-02
     & /
       real p87(0:38)
       data p87/
     & 0.96190E+01,-0.14576E+02, 0.63710E+01,-0.17784E+01, 0.40926E+00,
     &-0.35479E-01, 0.63498E-02,-0.90294E-02,-0.60366E-02,-0.83831E-02,
     & 0.11080E-01,-0.63217E-02, 0.59882E-02,-0.15687E-02,-0.21083E-02,
     &-0.10454E-02, 0.26659E-02,-0.45360E-02, 0.56719E-02,-0.35339E-02,
     & 0.35296E-02,-0.32325E-02, 0.11990E-02, 0.11181E-02,-0.30663E-02,
     & 0.20315E-02, 0.87649E-03,-0.31500E-02, 0.33740E-02,-0.19681E-03,
     &-0.38725E-02, 0.57379E-02,-0.58602E-02, 0.57678E-02,-0.57444E-02,
     & 0.45537E-02,-0.20169E-02, 0.45347E-03,-0.10562E-02
     & /
       real p88(0:38)
       data p88/
     & 0.98716E+01,-0.14976E+02, 0.65691E+01,-0.18420E+01, 0.42435E+00,
     &-0.37885E-01, 0.65140E-02,-0.92053E-02,-0.60394E-02,-0.85523E-02,
     & 0.11386E-01,-0.65547E-02, 0.61371E-02,-0.16209E-02,-0.21307E-02,
     &-0.10562E-02, 0.27554E-02,-0.46705E-02, 0.58229E-02,-0.36580E-02,
     & 0.36316E-02,-0.33250E-02, 0.12384E-02, 0.11538E-02,-0.31454E-02,
     & 0.20864E-02, 0.89948E-03,-0.32390E-02, 0.34608E-02,-0.19943E-03,
     &-0.39803E-02, 0.59062E-02,-0.60379E-02, 0.59443E-02,-0.59143E-02,
     & 0.46861E-02,-0.20830E-02, 0.47748E-03,-0.10884E-02
     & /
       real p89(0:38)
       data p89/
     & 0.10128E+02,-0.15381E+02, 0.67705E+01,-0.19069E+01, 0.43980E+00,
     &-0.40368E-01, 0.66877E-02,-0.93825E-02,-0.60399E-02,-0.87240E-02,
     & 0.11697E-01,-0.67919E-02, 0.62884E-02,-0.16740E-02,-0.21529E-02,
     &-0.10673E-02, 0.28462E-02,-0.48073E-02, 0.59763E-02,-0.37843E-02,
     & 0.37355E-02,-0.34189E-02, 0.12786E-02, 0.11900E-02,-0.32256E-02,
     & 0.21420E-02, 0.92281E-03,-0.33293E-02, 0.35489E-02,-0.20195E-03,
     &-0.40898E-02, 0.60772E-02,-0.62186E-02, 0.61238E-02,-0.60870E-02,
     & 0.48207E-02,-0.21503E-02, 0.50215E-03,-0.11211E-02
     & /
       real p90(0:38)
       data p90/
     & 0.10387E+02,-0.15792E+02, 0.69753E+01,-0.19732E+01, 0.45562E+00,
     &-0.42929E-01, 0.68711E-02,-0.95611E-02,-0.60382E-02,-0.88981E-02,
     & 0.12012E-01,-0.70335E-02, 0.64422E-02,-0.17282E-02,-0.21749E-02,
     &-0.10786E-02, 0.29385E-02,-0.49463E-02, 0.61321E-02,-0.39129E-02,
     & 0.38413E-02,-0.35143E-02, 0.13194E-02, 0.12267E-02,-0.33069E-02,
     & 0.21983E-02, 0.94649E-03,-0.34209E-02, 0.36380E-02,-0.20437E-03,
     &-0.42009E-02, 0.62509E-02,-0.64024E-02, 0.63065E-02,-0.62626E-02,
     & 0.49574E-02,-0.22189E-02, 0.52748E-03,-0.11544E-02
     & /
       real p91(0:38)
       data p91/
     & 0.10650E+02,-0.16209E+02, 0.71835E+01,-0.20408E+01, 0.47182E+00,
     &-0.45569E-01, 0.70644E-02,-0.97409E-02,-0.60343E-02,-0.90748E-02,
     & 0.12331E-01,-0.72793E-02, 0.65984E-02,-0.17832E-02,-0.21966E-02,
     &-0.10902E-02, 0.30322E-02,-0.50876E-02, 0.62902E-02,-0.40437E-02,
     & 0.39489E-02,-0.36111E-02, 0.13609E-02, 0.12638E-02,-0.33893E-02,
     & 0.22554E-02, 0.97051E-03,-0.35137E-02, 0.37283E-02,-0.20669E-03,
     &-0.43137E-02, 0.64274E-02,-0.65892E-02, 0.64922E-02,-0.64411E-02,
     & 0.50964E-02,-0.22888E-02, 0.55349E-03,-0.11883E-02
     & /
       real p92(0:38)
       data p92/
     & 0.10916E+02,-0.16632E+02, 0.73951E+01,-0.21099E+01, 0.48840E+00,
     &-0.48289E-01, 0.72680E-02,-0.99221E-02,-0.60280E-02,-0.92539E-02,
     & 0.12655E-01,-0.75294E-02, 0.67571E-02,-0.18393E-02,-0.22182E-02,
     &-0.11021E-02, 0.31273E-02,-0.52312E-02, 0.64507E-02,-0.41768E-02,
     & 0.40584E-02,-0.37093E-02, 0.14030E-02, 0.13015E-02,-0.34727E-02,
     & 0.23132E-02, 0.99488E-03,-0.36078E-02, 0.38197E-02,-0.20889E-03,
     &-0.44283E-02, 0.66066E-02,-0.67792E-02, 0.66810E-02,-0.66224E-02,
     & 0.52375E-02,-0.23599E-02, 0.58018E-03,-0.12227E-02
     & /
       real p93(0:38)
       data p93/
     & 0.11186E+02,-0.17061E+02, 0.76102E+01,-0.21803E+01, 0.50536E+00,
     &-0.51090E-01, 0.74821E-02,-0.10105E-01,-0.60195E-02,-0.94356E-02,
     & 0.12983E-01,-0.77838E-02, 0.69183E-02,-0.18963E-02,-0.22396E-02,
     &-0.11142E-02, 0.32237E-02,-0.53770E-02, 0.66137E-02,-0.43121E-02,
     & 0.41698E-02,-0.38090E-02, 0.14459E-02, 0.13396E-02,-0.35573E-02,
     & 0.23716E-02, 0.10196E-02,-0.37032E-02, 0.39122E-02,-0.21099E-03,
     &-0.45445E-02, 0.67885E-02,-0.69723E-02, 0.68729E-02,-0.68065E-02,
     & 0.53809E-02,-0.24323E-02, 0.60755E-03,-0.12578E-02
     & /
       real p94(0:38)
       data p94/
     & 0.11459E+02,-0.17495E+02, 0.78288E+01,-0.22521E+01, 0.52271E+00,
     &-0.53974E-01, 0.77071E-02,-0.10288E-01,-0.60085E-02,-0.96199E-02,
     & 0.13315E-01,-0.80427E-02, 0.70820E-02,-0.19542E-02,-0.22607E-02,
     &-0.11267E-02, 0.33216E-02,-0.55252E-02, 0.67790E-02,-0.44498E-02,
     & 0.42832E-02,-0.39102E-02, 0.14894E-02, 0.13782E-02,-0.36430E-02,
     & 0.24309E-02, 0.10447E-02,-0.37998E-02, 0.40059E-02,-0.21294E-03,
     &-0.46624E-02, 0.69733E-02,-0.71686E-02, 0.70680E-02,-0.69937E-02,
     & 0.55265E-02,-0.25061E-02, 0.63563E-03,-0.12934E-02
     & /
       real p95(0:38)
       data p95/
     & 0.11737E+02,-0.17938E+02, 0.80525E+01,-0.23261E+01, 0.54062E+00,
     &-0.56955E-01, 0.79462E-02,-0.10468E-01,-0.59932E-02,-0.98082E-02,
     & 0.13653E-01,-0.83073E-02, 0.72498E-02,-0.20130E-02,-0.22819E-02,
     &-0.11398E-02, 0.34203E-02,-0.56765E-02, 0.69476E-02,-0.45904E-02,
     & 0.43996E-02,-0.40134E-02, 0.15341E-02, 0.14171E-02,-0.37301E-02,
     & 0.24907E-02, 0.10704E-02,-0.38981E-02, 0.41008E-02,-0.21431E-03,
     &-0.47828E-02, 0.71619E-02,-0.73692E-02, 0.72675E-02,-0.71849E-02,
     & 0.56752E-02,-0.25817E-02, 0.66469E-03,-0.13297E-02
     & /
       real p96(0:38)
       data p96/
     & 0.12018E+02,-0.18386E+02, 0.82796E+01,-0.24015E+01, 0.55891E+00,
     &-0.60019E-01, 0.81963E-02,-0.10650E-01,-0.59757E-02,-0.99991E-02,
     & 0.13995E-01,-0.85762E-02, 0.74199E-02,-0.20728E-02,-0.23028E-02,
     &-0.11531E-02, 0.35204E-02,-0.58300E-02, 0.71185E-02,-0.47333E-02,
     & 0.45179E-02,-0.41179E-02, 0.15795E-02, 0.14564E-02,-0.38182E-02,
     & 0.25514E-02, 0.10964E-02,-0.39977E-02, 0.41969E-02,-0.21560E-03,
     &-0.49048E-02, 0.73532E-02,-0.75728E-02, 0.74700E-02,-0.73789E-02,
     & 0.58260E-02,-0.26585E-02, 0.69444E-03,-0.13666E-02
     & /
       real p97(0:38)
       data p97/
     & 0.12303E+02,-0.18840E+02, 0.85100E+01,-0.24782E+01, 0.57758E+00,
     &-0.63167E-01, 0.84577E-02,-0.10834E-01,-0.59560E-02,-0.10193E-01,
     & 0.14341E-01,-0.88494E-02, 0.75925E-02,-0.21336E-02,-0.23235E-02,
     &-0.11667E-02, 0.36221E-02,-0.59858E-02, 0.72918E-02,-0.48784E-02,
     & 0.46380E-02,-0.42239E-02, 0.16255E-02, 0.14963E-02,-0.39075E-02,
     & 0.26127E-02, 0.11227E-02,-0.40985E-02, 0.42941E-02,-0.21680E-03,
     &-0.50285E-02, 0.75472E-02,-0.77796E-02, 0.76756E-02,-0.75757E-02,
     & 0.59791E-02,-0.27367E-02, 0.72488E-03,-0.14041E-02
     & /
       real p98(0:38)
       data p98/
     & 0.12591E+02,-0.19299E+02, 0.87438E+01,-0.25563E+01, 0.59665E+00,
     &-0.66400E-01, 0.87306E-02,-0.11019E-01,-0.59342E-02,-0.10388E-01,
     & 0.14692E-01,-0.91269E-02, 0.77675E-02,-0.21954E-02,-0.23439E-02,
     &-0.11807E-02, 0.37251E-02,-0.61438E-02, 0.74674E-02,-0.50258E-02,
     & 0.47599E-02,-0.43313E-02, 0.16721E-02, 0.15366E-02,-0.39978E-02,
     & 0.26748E-02, 0.11494E-02,-0.42005E-02, 0.43924E-02,-0.21791E-03,
     &-0.51539E-02, 0.77439E-02,-0.79894E-02, 0.78843E-02,-0.77754E-02,
     & 0.61343E-02,-0.28161E-02, 0.75601E-03,-0.14422E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  26,  26,  26,  37,  37,  37,  37
     &,  37,  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,  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.26) param(i,15) = p15(i)
             if (i.le.26) param(i,16) = p16(i)
             if (i.le.26) 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.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.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.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.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
            
       ubarct5dlo=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
       ubarct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) ubarct5dlo=0.0
       if (q2.lt.q2min) ubarct5dlo=0.0
       if ( x.gt. xmax) ubarct5dlo=0.0
       if ( x.lt. xmin) ubarct5dlo=0.0
       return
       end
       real function  dbarct5dlo(xin,q2in)
***********************************************************
c  parametrization of dbarct5dlo 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.22168E+00,-0.25275E+00, 0.32480E-01,-0.13573E-01, 0.14684E-02,
     & 0.49057E-02, 0.54212E-02, 0.33437E-02, 0.73382E-03,-0.11342E-02,
     &-0.15480E-02,-0.15509E-02,-0.64254E-03, 0.37707E-04, 0.46016E-03,
     & 0.60053E-03, 0.44297E-03, 0.27312E-04,-0.61014E-04,-0.27187E-03,
     &-0.15570E-03,-0.12365E-03, 0.60361E-04, 0.11755E-03, 0.30692E-04,
     & 0.79895E-04, 0.47814E-05,-0.91412E-04, 0.31075E-04,-0.32209E-04,
     &-0.69668E-04, 0.96722E-04,-0.49032E-04, 0.76808E-04,-0.79707E-04,
     & 0.63296E-04,-0.25900E-04,-0.25379E-04
     & /
       real p16(0:37)
       data p16/
     & 0.23670E+00,-0.27151E+00, 0.36429E-01,-0.14394E-01, 0.16912E-02,
     & 0.51468E-02, 0.56254E-02, 0.34330E-02, 0.72103E-03,-0.12032E-02,
     &-0.16026E-02,-0.16017E-02,-0.64838E-03, 0.50237E-04, 0.47962E-03,
     & 0.61986E-03, 0.45475E-03, 0.20007E-04,-0.62827E-04,-0.28286E-03,
     &-0.15712E-03,-0.12728E-03, 0.64859E-04, 0.12256E-03, 0.28582E-04,
     & 0.82766E-04, 0.44972E-05,-0.96977E-04, 0.35019E-04,-0.33091E-04,
     &-0.74224E-04, 0.10362E-03,-0.53838E-04, 0.82212E-04,-0.85916E-04,
     & 0.68236E-04,-0.27514E-04,-0.26471E-04
     & /
       real p17(0:37)
       data p17/
     & 0.26849E+00,-0.31158E+00, 0.45257E-01,-0.16185E-01, 0.21808E-02,
     & 0.56328E-02, 0.60288E-02, 0.36025E-02, 0.68828E-03,-0.13449E-02,
     &-0.17091E-02,-0.17015E-02,-0.65639E-03, 0.76771E-04, 0.51824E-03,
     & 0.65744E-03, 0.47746E-03, 0.36905E-05,-0.65870E-04,-0.30506E-03,
     &-0.15892E-03,-0.13458E-03, 0.74243E-04, 0.13269E-03, 0.23593E-04,
     & 0.88654E-04, 0.39743E-05,-0.10863E-03, 0.43633E-04,-0.34809E-04,
     &-0.83928E-04, 0.11832E-03,-0.64355E-04, 0.93808E-04,-0.99257E-04,
     & 0.78838E-04,-0.30986E-04,-0.28657E-04
     & /
       real p18(0:37)
       data p18/
     & 0.30265E+00,-0.35520E+00, 0.55448E-01,-0.18181E-01, 0.27178E-02,
     & 0.61170E-02, 0.64207E-02, 0.37598E-02, 0.64901E-03,-0.14883E-02,
     &-0.18103E-02,-0.17994E-02,-0.66093E-03, 0.10367E-03, 0.55543E-03,
     & 0.69330E-03, 0.49933E-03,-0.14441E-04,-0.67752E-04,-0.32757E-03,
     &-0.15953E-03,-0.14226E-03, 0.83930E-04, 0.14299E-03, 0.17733E-04,
     & 0.94978E-04, 0.37471E-05,-0.12088E-03, 0.53236E-04,-0.36500E-04,
     &-0.94518E-04, 0.13423E-03,-0.76150E-04, 0.10649E-03,-0.11390E-03,
     & 0.90411E-04,-0.34850E-04,-0.30875E-04
     & /
       real p19(0:37)
       data p19/
     & 0.33916E+00,-0.40235E+00, 0.67016E-01,-0.20410E-01, 0.33110E-02,
     & 0.65998E-02, 0.68025E-02, 0.39051E-02, 0.60252E-03,-0.16345E-02,
     &-0.19067E-02,-0.18953E-02,-0.66144E-03, 0.13149E-03, 0.59160E-03,
     & 0.72760E-03, 0.52033E-03,-0.34523E-04,-0.68552E-04,-0.35040E-03,
     &-0.15885E-03,-0.15023E-03, 0.93998E-04, 0.15343E-03, 0.10920E-04,
     & 0.10164E-03, 0.37130E-05,-0.13380E-03, 0.63815E-04,-0.38157E-04,
     &-0.10597E-03, 0.15139E-03,-0.89232E-04, 0.12030E-03,-0.12983E-03,
     & 0.10298E-03,-0.39093E-04,-0.33085E-04
     & /
       real p20(0:37)
       data p20/
     & 0.37800E+00,-0.45300E+00, 0.79974E-01,-0.22900E-01, 0.39692E-02,
     & 0.70818E-02, 0.71760E-02, 0.40387E-02, 0.54810E-03,-0.17843E-02,
     &-0.19987E-02,-0.19890E-02,-0.65739E-03, 0.16079E-03, 0.62716E-03,
     & 0.76050E-03, 0.54040E-03,-0.56686E-04,-0.68346E-04,-0.37355E-03,
     &-0.15676E-03,-0.15839E-03, 0.10452E-03, 0.16401E-03, 0.30731E-05,
     & 0.10855E-03, 0.37705E-05,-0.14743E-03, 0.75356E-04,-0.39777E-04,
     &-0.11825E-03, 0.16981E-03,-0.10361E-03, 0.13528E-03,-0.14705E-03,
     & 0.11657E-03,-0.43700E-04,-0.35252E-04
     & /
       real p21(0:37)
       data p21/
     & 0.41924E+00,-0.50727E+00, 0.94393E-01,-0.25673E-01, 0.46946E-02,
     & 0.75613E-02, 0.75409E-02, 0.41609E-02, 0.48645E-03,-0.19373E-02,
     &-0.20861E-02,-0.20809E-02,-0.64898E-03, 0.19136E-03, 0.66205E-03,
     & 0.79207E-03, 0.55969E-03,-0.80863E-04,-0.67042E-04,-0.39707E-03,
     &-0.15329E-03,-0.16684E-03, 0.11548E-03, 0.17475E-03,-0.58088E-05,
     & 0.11575E-03, 0.39428E-05,-0.16181E-03, 0.87874E-04,-0.41372E-04,
     &-0.13140E-03, 0.18957E-03,-0.11934E-03, 0.15148E-03,-0.16561E-03,
     & 0.13122E-03,-0.48695E-04,-0.37366E-04
     & /
       real p22(0:37)
       data p22/
     & 0.46292E+00,-0.56525E+00, 0.11034E+00,-0.28756E-01, 0.54895E-02,
     & 0.80367E-02, 0.78971E-02, 0.42724E-02, 0.41824E-03,-0.20931E-02,
     &-0.21687E-02,-0.21711E-02,-0.63645E-03, 0.22298E-03, 0.69620E-03,
     & 0.82235E-03, 0.57834E-03,-0.10699E-03,-0.64548E-04,-0.42102E-03,
     &-0.14844E-03,-0.17564E-03, 0.12685E-03, 0.18565E-03,-0.15726E-04,
     & 0.12327E-03, 0.42535E-05,-0.17695E-03, 0.10138E-03,-0.42955E-04,
     &-0.14545E-03, 0.21069E-03,-0.13646E-03, 0.16897E-03,-0.18555E-03,
     & 0.14697E-03,-0.54100E-04,-0.39416E-04
     & /
       real p23(0:37)
       data p23/
     & 0.50911E+00,-0.62705E+00, 0.12790E+00,-0.32171E-01, 0.63562E-02,
     & 0.85063E-02, 0.82445E-02, 0.43736E-02, 0.34418E-03,-0.22515E-02,
     &-0.22465E-02,-0.22600E-02,-0.62001E-03, 0.25544E-03, 0.72955E-03,
     & 0.85141E-03, 0.59649E-03,-0.13499E-03,-0.60771E-04,-0.44544E-03,
     &-0.14225E-03,-0.18488E-03, 0.13863E-03, 0.19673E-03,-0.26678E-04,
     & 0.13116E-03, 0.47258E-05,-0.19287E-03, 0.11589E-03,-0.44540E-04,
     &-0.16044E-03, 0.23323E-03,-0.15504E-03, 0.18780E-03,-0.20691E-03,
     & 0.16385E-03,-0.59939E-04,-0.41392E-04
     & /
       real p24(0:37)
       data p24/
     & 0.55808E+00,-0.69317E+00, 0.14733E+00,-0.35963E-01, 0.72806E-02,
     & 0.89632E-02, 0.85788E-02, 0.44662E-02, 0.26817E-03,-0.24095E-02,
     &-0.23181E-02,-0.23489E-02,-0.60124E-03, 0.28718E-03, 0.76139E-03,
     & 0.87964E-03, 0.61504E-03,-0.16418E-03,-0.55095E-04,-0.47043E-03,
     &-0.13493E-03,-0.19505E-03, 0.15059E-03, 0.20806E-03,-0.38665E-04,
     & 0.13971E-03, 0.55250E-05,-0.20967E-03, 0.13151E-03,-0.46272E-04,
     &-0.17652E-03, 0.25733E-03,-0.17522E-03, 0.20819E-03,-0.22983E-03,
     & 0.18201E-03,-0.66289E-04,-0.43281E-04
     & /
       real p25(0:37)
       data p25/
     & 0.60962E+00,-0.76324E+00, 0.16847E+00,-0.40133E-01, 0.82847E-02,
     & 0.94122E-02, 0.89049E-02, 0.45492E-02, 0.18701E-03,-0.25698E-02,
     &-0.23848E-02,-0.24368E-02,-0.57872E-03, 0.31960E-03, 0.79243E-03,
     & 0.90670E-03, 0.63323E-03,-0.19524E-03,-0.48059E-04,-0.49598E-03,
     &-0.12625E-03,-0.20573E-03, 0.16297E-03, 0.21958E-03,-0.51688E-04,
     & 0.14865E-03, 0.65036E-05,-0.22728E-03, 0.14813E-03,-0.48004E-04,
     &-0.19358E-03, 0.28291E-03,-0.19693E-03, 0.23001E-03,-0.25426E-03,
     & 0.20136E-03,-0.73108E-04,-0.45078E-04
     & /
       real p26(0:37)
       data p26/
     & 0.66376E+00,-0.83730E+00, 0.19135E+00,-0.44701E-01, 0.93734E-02,
     & 0.98526E-02, 0.92230E-02, 0.46231E-02, 0.10091E-03,-0.27323E-02,
     &-0.24465E-02,-0.25236E-02,-0.55246E-03, 0.35269E-03, 0.82270E-03,
     & 0.93259E-03, 0.65107E-03,-0.22821E-03,-0.39648E-04,-0.52215E-03,
     &-0.11620E-03,-0.21693E-03, 0.17575E-03, 0.23129E-03,-0.65747E-04,
     & 0.15800E-03, 0.76637E-05,-0.24573E-03, 0.16577E-03,-0.49728E-04,
     &-0.21165E-03, 0.31002E-03,-0.22022E-03, 0.25331E-03,-0.28020E-03,
     & 0.22191E-03,-0.80409E-04,-0.46772E-04
     & /
       real p27(0:37)
       data p27/
     & 0.72054E+00,-0.91545E+00, 0.21603E+00,-0.49691E-01, 0.10550E-01,
     & 0.10283E-01, 0.95335E-02, 0.46882E-02, 0.10353E-04,-0.28968E-02,
     &-0.25032E-02,-0.26097E-02,-0.52259E-03, 0.38633E-03, 0.85219E-03,
     & 0.95734E-03, 0.66868E-03,-0.26303E-03,-0.29801E-04,-0.54897E-03,
     &-0.10479E-03,-0.22871E-03, 0.18894E-03, 0.24320E-03,-0.80844E-04,
     & 0.16778E-03, 0.90206E-05,-0.26503E-03, 0.18442E-03,-0.51451E-04,
     &-0.23075E-03, 0.33869E-03,-0.24513E-03, 0.27813E-03,-0.30772E-03,
     & 0.24370E-03,-0.88214E-04,-0.48355E-04
     & /
       real p28(0:37)
       data p28/
     & 0.78000E+00,-0.99777E+00, 0.24258E+00,-0.55127E-01, 0.11817E-01,
     & 0.10702E-01, 0.98363E-02, 0.47451E-02,-0.84141E-04,-0.30630E-02,
     &-0.25547E-02,-0.26952E-02,-0.48926E-03, 0.42035E-03, 0.88085E-03,
     & 0.98101E-03, 0.68615E-03,-0.29969E-03,-0.18454E-04,-0.57650E-03,
     &-0.92015E-04,-0.24112E-03, 0.20253E-03, 0.25533E-03,-0.96977E-04,
     & 0.17801E-03, 0.10590E-04,-0.28519E-03, 0.20410E-03,-0.53177E-04,
     &-0.25091E-03, 0.36897E-03,-0.27170E-03, 0.30453E-03,-0.33683E-03,
     & 0.26674E-03,-0.96542E-04,-0.49815E-04
     & /
       real p29(0:37)
       data p29/
     & 0.84218E+00,-0.10843E+01, 0.27104E+00,-0.61031E-01, 0.13179E-01,
     & 0.11109E-01, 0.10131E-01, 0.47942E-02,-0.18207E-03,-0.32308E-02,
     &-0.26010E-02,-0.27803E-02,-0.45261E-03, 0.45464E-03, 0.90867E-03,
     & 0.10036E-02, 0.70358E-03,-0.33815E-03,-0.55447E-05,-0.60478E-03,
     &-0.77892E-04,-0.25422E-03, 0.21651E-03, 0.26767E-03,-0.11415E-03,
     & 0.18872E-03, 0.12387E-04,-0.30624E-03, 0.22482E-03,-0.54913E-04,
     &-0.27217E-03, 0.40089E-03,-0.29999E-03, 0.33256E-03,-0.36760E-03,
     & 0.29108E-03,-0.10541E-03,-0.51144E-04
     & /
       real p30(0:21)
       data p30/
     & 0.90753E+00,-0.11758E+01, 0.30182E+00,-0.67550E-01, 0.14567E-01,
     & 0.11777E-01, 0.99666E-02, 0.53908E-02,-0.78066E-03,-0.30290E-02,
     &-0.29049E-02,-0.27766E-02,-0.26761E-03, 0.20583E-03, 0.12992E-02,
     & 0.54984E-03, 0.11944E-02,-0.71274E-03, 0.29462E-03,-0.93125E-03,
     & 0.73421E-04,-0.18056E-03
     & /
       real p31(0:21)
       data p31/
     & 0.97563E+00,-0.12717E+01, 0.33458E+00,-0.74489E-01, 0.16083E-01,
     & 0.12173E-01, 0.10205E-01, 0.54780E-02,-0.92034E-03,-0.31603E-02,
     &-0.29611E-02,-0.28550E-02,-0.21480E-03, 0.21383E-03, 0.13574E-02,
     & 0.52968E-03, 0.12535E-02,-0.78456E-03, 0.33740E-03,-0.98527E-03,
     & 0.10100E-03,-0.19019E-03
     & /
       real p32(0:21)
       data p32/
     & 0.10064E+01,-0.13151E+01, 0.34958E+00,-0.77697E-01, 0.16783E-01,
     & 0.12343E-01, 0.10307E-01, 0.55145E-02,-0.98341E-03,-0.32179E-02,
     &-0.29845E-02,-0.28893E-02,-0.19042E-03, 0.21702E-03, 0.13833E-02,
     & 0.51987E-03, 0.12801E-02,-0.81717E-03, 0.35711E-03,-0.10096E-02,
     & 0.11371E-03,-0.19460E-03
     & /
       real p33(0:21)
       data p33/
     & 0.10465E+01,-0.13720E+01, 0.36939E+00,-0.81962E-01, 0.17712E-01,
     & 0.12556E-01, 0.10434E-01, 0.55599E-02,-0.10658E-02,-0.32918E-02,
     &-0.30134E-02,-0.29331E-02,-0.15811E-03, 0.22079E-03, 0.14167E-02,
     & 0.50641E-03, 0.13147E-02,-0.85996E-03, 0.38322E-03,-0.10413E-02,
     & 0.13056E-03,-0.20043E-03
     & /
       real p34(0:21)
       data p34/
     & 0.11202E+01,-0.14767E+01, 0.40629E+00,-0.89992E-01, 0.19456E-01,
     & 0.12923E-01, 0.10655E-01, 0.56369E-02,-0.12168E-02,-0.34232E-02,
     &-0.30620E-02,-0.30110E-02,-0.97609E-04, 0.22658E-03, 0.14770E-02,
     & 0.48000E-03, 0.13781E-02,-0.93897E-03, 0.43216E-03,-0.10994E-02,
     & 0.16212E-03,-0.21132E-03
     & /
       real p35(0:21)
       data p35/
     & 0.11968E+01,-0.15859E+01, 0.44534E+00,-0.98601E-01, 0.21320E-01,
     & 0.13273E-01, 0.10868E-01, 0.57094E-02,-0.13731E-02,-0.35546E-02,
     &-0.31067E-02,-0.30888E-02,-0.33372E-04, 0.23110E-03, 0.15383E-02,
     & 0.45045E-03, 0.14438E-02,-0.10216E-02, 0.48429E-03,-0.11596E-02,
     & 0.19570E-03,-0.22291E-03
     & /
       real p36(0:21)
       data p36/
     & 0.12763E+01,-0.16997E+01, 0.48660E+00,-0.10781E+00, 0.23309E-01,
     & 0.13605E-01, 0.11072E-01, 0.57777E-02,-0.15346E-02,-0.36858E-02,
     &-0.31477E-02,-0.31668E-02, 0.34531E-04, 0.23423E-03, 0.16008E-02,
     & 0.41774E-03, 0.15119E-02,-0.11080E-02, 0.53968E-03,-0.12221E-02,
     & 0.23133E-03,-0.23523E-03
     & /
       real p37(0:21)
       data p37/
     & 0.13588E+01,-0.18182E+01, 0.53010E+00,-0.11765E+00, 0.25427E-01,
     & 0.13919E-01, 0.11268E-01, 0.58420E-02,-0.17008E-02,-0.38166E-02,
     &-0.31848E-02,-0.32451E-02, 0.10603E-03, 0.23586E-03, 0.16644E-02,
     & 0.38184E-03, 0.15825E-02,-0.11981E-02, 0.59843E-03,-0.12868E-02,
     & 0.26901E-03,-0.24834E-03
     & /
       real p38(0:37)
       data p38/
     & 0.14438E+01,-0.19408E+01, 0.57552E+00,-0.12795E+00, 0.27779E-01,
     & 0.13742E-01, 0.12224E-01, 0.49681E-02,-0.10143E-02,-0.45896E-02,
     &-0.27682E-02,-0.34717E-02,-0.60507E-04, 0.71808E-03, 0.10961E-02,
     & 0.11519E-02, 0.85572E-03,-0.70517E-03, 0.16267E-03,-0.86421E-03,
     & 0.82173E-04,-0.39149E-03, 0.34097E-03, 0.37521E-03,-0.28869E-03,
     & 0.29552E-03, 0.37300E-04,-0.50911E-03, 0.42881E-03,-0.70019E-04,
     &-0.48541E-03, 0.72079E-03,-0.59389E-03, 0.62200E-03,-0.67781E-03,
     & 0.53616E-03,-0.19839E-03,-0.55987E-04
     & /
       real p39(0:37)
       data p39/
     & 0.15322E+01,-0.20688E+01, 0.62366E+00,-0.13909E+00, 0.30175E-01,
     & 0.13981E-01, 0.12458E-01, 0.49606E-02,-0.11286E-02,-0.47665E-02,
     &-0.27660E-02,-0.35609E-02, 0.18292E-05, 0.75052E-03, 0.11158E-02,
     & 0.11664E-02, 0.87607E-03,-0.75932E-03, 0.19181E-03,-0.90130E-03,
     & 0.10868E-03,-0.41259E-03, 0.35847E-03, 0.38995E-03,-0.31534E-03,
     & 0.31145E-03, 0.41554E-04,-0.53886E-03, 0.45916E-03,-0.71943E-04,
     &-0.51752E-03, 0.76914E-03,-0.63946E-03, 0.66673E-03,-0.72503E-03,
     & 0.57337E-03,-0.21300E-03,-0.55624E-04
     & /
       real p40(0:37)
       data p40/
     & 0.16239E+01,-0.22020E+01, 0.67445E+00,-0.15098E+00, 0.32704E-01,
     & 0.14196E-01, 0.12685E-01, 0.49491E-02,-0.12424E-02,-0.49440E-02,
     &-0.27585E-02,-0.36525E-02, 0.65859E-04, 0.78193E-03, 0.11344E-02,
     & 0.11804E-02, 0.89749E-03,-0.81517E-03, 0.22333E-03,-0.93988E-03,
     & 0.13668E-03,-0.43497E-03, 0.37639E-03, 0.40509E-03,-0.34309E-03,
     & 0.32820E-03, 0.46078E-04,-0.56966E-03, 0.49064E-03,-0.73912E-04,
     &-0.55101E-03, 0.81958E-03,-0.68727E-03, 0.71370E-03,-0.77442E-03,
     & 0.61225E-03,-0.22836E-03,-0.54996E-04
     & /
       real p41(0:37)
       data p41/
     & 0.17189E+01,-0.23407E+01, 0.72799E+00,-0.16365E+00, 0.35366E-01,
     & 0.14384E-01, 0.12905E-01, 0.49341E-02,-0.13551E-02,-0.51219E-02,
     &-0.27458E-02,-0.37469E-02, 0.13131E-03, 0.81213E-03, 0.11517E-02,
     & 0.11940E-02, 0.92014E-03,-0.87270E-03, 0.25734E-03,-0.98003E-03,
     & 0.16618E-03,-0.45871E-03, 0.39474E-03, 0.42065E-03,-0.37196E-03,
     & 0.34583E-03, 0.50880E-04,-0.60154E-03, 0.52325E-03,-0.75933E-04,
     &-0.58593E-03, 0.87217E-03,-0.73737E-03, 0.76299E-03,-0.82604E-03,
     & 0.65284E-03,-0.24451E-03,-0.54088E-04
     & /
       real p42(0:37)
       data p42/
     & 0.18170E+01,-0.24843E+01, 0.78395E+00,-0.17704E+00, 0.38184E-01,
     & 0.14546E-01, 0.13120E-01, 0.49134E-02,-0.14695E-02,-0.53013E-02,
     &-0.27278E-02,-0.38423E-02, 0.19972E-03, 0.84207E-03, 0.11684E-02,
     & 0.12068E-02, 0.94320E-03,-0.93209E-03, 0.29322E-03,-0.10213E-02,
     & 0.19717E-03,-0.48340E-03, 0.41354E-03, 0.43652E-03,-0.40192E-03,
     & 0.36404E-03, 0.55972E-04,-0.63446E-03, 0.55697E-03,-0.77956E-04,
     &-0.62212E-03, 0.92674E-03,-0.78959E-03, 0.81434E-03,-0.87966E-03,
     & 0.69499E-03,-0.26140E-03,-0.52907E-04
     & /
       real p43(0:37)
       data p43/
     & 0.19181E+01,-0.26327E+01, 0.84236E+00,-0.19117E+00, 0.41162E-01,
     & 0.14682E-01, 0.13331E-01, 0.48871E-02,-0.15853E-02,-0.54824E-02,
     &-0.27047E-02,-0.39389E-02, 0.27103E-03, 0.87169E-03, 0.11843E-02,
     & 0.12187E-02, 0.96671E-03,-0.99335E-03, 0.33100E-03,-0.10638E-02,
     & 0.22965E-03,-0.50906E-03, 0.43279E-03, 0.45272E-03,-0.43296E-03,
     & 0.38286E-03, 0.61363E-04,-0.66843E-03, 0.59181E-03,-0.79981E-04,
     &-0.65962E-03, 0.98335E-03,-0.84397E-03, 0.86777E-03,-0.93531E-03,
     & 0.73872E-03,-0.27906E-03,-0.51439E-04
     & /
       real p44(0:37)
       data p44/
     & 0.20223E+01,-0.27861E+01, 0.90326E+00,-0.20605E+00, 0.44304E-01,
     & 0.14789E-01, 0.13537E-01, 0.48555E-02,-0.17024E-02,-0.56650E-02,
     &-0.26763E-02,-0.40367E-02, 0.34522E-03, 0.90093E-03, 0.11995E-02,
     & 0.12298E-02, 0.99073E-03,-0.10565E-02, 0.37069E-03,-0.11075E-02,
     & 0.26363E-03,-0.53573E-03, 0.45250E-03, 0.46924E-03,-0.46510E-03,
     & 0.40228E-03, 0.67062E-04,-0.70348E-03, 0.62777E-03,-0.82008E-04,
     &-0.69844E-03, 0.10420E-02,-0.90055E-03, 0.92334E-03,-0.99302E-03,
     & 0.78407E-03,-0.29751E-03,-0.49675E-04
     & /
       real p45(0:37)
       data p45/
     & 0.21296E+01,-0.29445E+01, 0.96669E+00,-0.22171E+00, 0.47615E-01,
     & 0.14868E-01, 0.13740E-01, 0.48188E-02,-0.18206E-02,-0.58492E-02,
     &-0.26428E-02,-0.41360E-02, 0.42224E-03, 0.92975E-03, 0.12141E-02,
     & 0.12402E-02, 0.10153E-02,-0.11214E-02, 0.41234E-03,-0.11525E-02,
     & 0.29911E-03,-0.56343E-03, 0.47268E-03, 0.48610E-03,-0.49833E-03,
     & 0.42233E-03, 0.73075E-04,-0.73962E-03, 0.66486E-03,-0.84038E-04,
     &-0.73860E-03, 0.11027E-02,-0.95936E-03, 0.98108E-03,-0.10528E-02,
     & 0.83104E-03,-0.31675E-03,-0.47604E-04
     & /
       real p46(0:37)
       data p46/
     & 0.22400E+01,-0.31079E+01, 0.10327E+01,-0.23816E+00, 0.51101E-01,
     & 0.14917E-01, 0.13940E-01, 0.47772E-02,-0.19396E-02,-0.60348E-02,
     &-0.26039E-02,-0.42367E-02, 0.50205E-03, 0.95808E-03, 0.12279E-02,
     & 0.12498E-02, 0.10405E-02,-0.11883E-02, 0.45597E-03,-0.11987E-02,
     & 0.33609E-03,-0.59217E-03, 0.49332E-03, 0.50330E-03,-0.53266E-03,
     & 0.44300E-03, 0.79412E-04,-0.77686E-03, 0.70309E-03,-0.86071E-04,
     &-0.78011E-03, 0.11656E-02,-0.10204E-02, 0.10410E-02,-0.11147E-02,
     & 0.87966E-03,-0.33682E-03,-0.45213E-04
     & /
       real p47(0:37)
       data p47/
     & 0.23536E+01,-0.32764E+01, 0.11013E+01,-0.25543E+00, 0.54765E-01,
     & 0.14934E-01, 0.14136E-01, 0.47310E-02,-0.20593E-02,-0.62218E-02,
     &-0.25598E-02,-0.43392E-02, 0.58460E-03, 0.98587E-03, 0.12411E-02,
     & 0.12586E-02, 0.10662E-02,-0.12569E-02, 0.50161E-03,-0.12463E-02,
     & 0.37460E-03,-0.62200E-03, 0.51442E-03, 0.52085E-03,-0.56809E-03,
     & 0.46432E-03, 0.86079E-04,-0.81521E-03, 0.74247E-03,-0.88108E-04,
     &-0.82300E-03, 0.12306E-02,-0.10838E-02, 0.11032E-02,-0.11788E-02,
     & 0.92996E-03,-0.35771E-03,-0.42492E-04
     & /
       real p48(0:37)
       data p48/
     & 0.24703E+01,-0.34500E+01, 0.11726E+01,-0.27354E+00, 0.58614E-01,
     & 0.14919E-01, 0.14329E-01, 0.46802E-02,-0.21794E-02,-0.64102E-02,
     &-0.25105E-02,-0.44434E-02, 0.66985E-03, 0.10131E-02, 0.12536E-02,
     & 0.12667E-02, 0.10927E-02,-0.13274E-02, 0.54928E-03,-0.12951E-02,
     & 0.41462E-03,-0.65293E-03, 0.53599E-03, 0.53876E-03,-0.60461E-03,
     & 0.48628E-03, 0.93085E-04,-0.85469E-03, 0.78299E-03,-0.90148E-04,
     &-0.86727E-03, 0.12977E-02,-0.11495E-02, 0.11676E-02,-0.12450E-02,
     & 0.98196E-03,-0.37946E-03,-0.39429E-04
     & /
       real p49(0:22)
       data p49/
     & 0.25911E+01,-0.36302E+01, 0.12473E+01,-0.29286E+00, 0.62439E-01,
     & 0.15789E-01, 0.13021E-01, 0.64382E-02,-0.39838E-02,-0.53133E-02,
     &-0.33342E-02,-0.42708E-02, 0.12150E-02, 0.95091E-04, 0.25287E-02,
     &-0.30236E-03, 0.26715E-02,-0.25812E-02, 0.15944E-02,-0.22657E-02,
     & 0.88900E-03,-0.48304E-03, 0.27906E-03
     & /
       real p50(0:22)
       data p50/
     & 0.27143E+01,-0.38143E+01, 0.13241E+01,-0.31272E+00, 0.66656E-01,
     & 0.15756E-01, 0.13127E-01, 0.64770E-02,-0.41968E-02,-0.54318E-02,
     &-0.33221E-02,-0.43645E-02, 0.13294E-02, 0.69210E-04, 0.26107E-02,
     &-0.38122E-03, 0.27833E-02,-0.27226E-02, 0.17022E-02,-0.23650E-02,
     & 0.95501E-03,-0.50927E-03, 0.28912E-03
     & /
       real p51(0:22)
       data p51/
     & 0.28413E+01,-0.40048E+01, 0.14043E+01,-0.33368E+00, 0.71060E-01,
     & 0.15688E-01, 0.13225E-01, 0.65212E-02,-0.44079E-02,-0.55461E-02,
     &-0.33056E-02,-0.44623E-02, 0.14459E-02, 0.38789E-04, 0.26947E-02,
     &-0.46346E-03, 0.28999E-02,-0.28679E-02, 0.18149E-02,-0.24676E-02,
     & 0.10232E-02,-0.53713E-03, 0.29925E-03
     & /
       real p52(0:22)
       data p52/
     & 0.29717E+01,-0.42007E+01, 0.14874E+01,-0.35557E+00, 0.75665E-01,
     & 0.15585E-01, 0.13319E-01, 0.65651E-02,-0.46216E-02,-0.56590E-02,
     &-0.32854E-02,-0.45618E-02, 0.15656E-02, 0.58154E-05, 0.27804E-02,
     &-0.54917E-03, 0.30202E-02,-0.30175E-02, 0.19316E-02,-0.25732E-02,
     & 0.10936E-02,-0.56614E-03, 0.30956E-03
     & /
       real p53(0:22)
       data p53/
     & 0.31052E+01,-0.44018E+01, 0.15732E+01,-0.37835E+00, 0.80480E-01,
     & 0.15446E-01, 0.13408E-01, 0.66077E-02,-0.48388E-02,-0.57711E-02,
     &-0.32616E-02,-0.46629E-02, 0.16888E-02,-0.29451E-04, 0.28679E-02,
     &-0.63839E-03, 0.31440E-02,-0.31713E-02, 0.20523E-02,-0.26818E-02,
     & 0.11664E-02,-0.59626E-03, 0.32009E-03
     & /
       real p54(0:22)
       data p54/
     & 0.32420E+01,-0.46081E+01, 0.16618E+01,-0.40207E+00, 0.85509E-01,
     & 0.15269E-01, 0.13494E-01, 0.66495E-02,-0.50593E-02,-0.58823E-02,
     &-0.32341E-02,-0.47655E-02, 0.18155E-02,-0.67063E-04, 0.29573E-02,
     &-0.73114E-03, 0.32712E-02,-0.33294E-02, 0.21771E-02,-0.27933E-02,
     & 0.12415E-02,-0.62752E-03, 0.33083E-03
     & /
       real p55(0:22)
       data p55/
     & 0.33820E+01,-0.48198E+01, 0.17532E+01,-0.42672E+00, 0.90756E-01,
     & 0.15054E-01, 0.13576E-01, 0.66904E-02,-0.52830E-02,-0.59926E-02,
     &-0.32029E-02,-0.48698E-02, 0.19455E-02,-0.10708E-03, 0.30485E-02,
     &-0.82744E-03, 0.34021E-02,-0.34918E-02, 0.23061E-02,-0.29078E-02,
     & 0.13190E-02,-0.65993E-03, 0.34180E-03
     & /
       real p56(0:22)
       data p56/
     & 0.35253E+01,-0.50367E+01, 0.18474E+01,-0.45233E+00, 0.96228E-01,
     & 0.14799E-01, 0.13655E-01, 0.67308E-02,-0.55098E-02,-0.61019E-02,
     &-0.31682E-02,-0.49759E-02, 0.20790E-02,-0.14954E-03, 0.31416E-02,
     &-0.92730E-03, 0.35367E-02,-0.36586E-02, 0.24392E-02,-0.30254E-02,
     & 0.13989E-02,-0.69353E-03, 0.35299E-03
     & /
       real p57(0:22)
       data p57/
     & 0.36718E+01,-0.52590E+01, 0.19445E+01,-0.47891E+00, 0.10193E+00,
     & 0.14504E-01, 0.13730E-01, 0.67707E-02,-0.57396E-02,-0.62102E-02,
     &-0.31299E-02,-0.50837E-02, 0.22159E-02,-0.19452E-03, 0.32367E-02,
     &-0.10308E-02, 0.36750E-02,-0.38298E-02, 0.25765E-02,-0.31461E-02,
     & 0.14811E-02,-0.72832E-03, 0.36440E-03
     & /
       real p58(0:37)
       data p58/
     & 0.38203E+01,-0.54846E+01, 0.20433E+01,-0.50594E+00, 0.10820E+00,
     & 0.12737E-01, 0.16136E-01, 0.39961E-02,-0.33382E-02,-0.83524E-02,
     &-0.17177E-02,-0.56188E-02, 0.16560E-02, 0.12325E-02, 0.13419E-02,
     & 0.13148E-02, 0.14079E-02,-0.21310E-02, 0.11452E-02,-0.18656E-02,
     & 0.89904E-03,-0.10310E-02, 0.77796E-03, 0.73945E-03,-0.10313E-02,
     & 0.74485E-03, 0.18509E-03,-0.13165E-02, 0.12538E-02,-0.11107E-03,
     &-0.13922E-02, 0.20977E-02,-0.19449E-02, 0.19470E-02,-0.20349E-02,
     & 0.16015E-02,-0.64862E-03, 0.12772E-04
     & /
       real p59(0:37)
       data p59/
     & 0.39734E+01,-0.57177E+01, 0.21462E+01,-0.53451E+00, 0.11439E+00,
     & 0.12292E-01, 0.16312E-01, 0.39080E-02,-0.34522E-02,-0.85546E-02,
     &-0.16094E-02,-0.57492E-02, 0.17689E-02, 0.12501E-02, 0.13475E-02,
     & 0.13159E-02, 0.14444E-02,-0.22220E-02, 0.12170E-02,-0.19313E-02,
     & 0.95633E-03,-0.10755E-02, 0.80484E-03, 0.76169E-03,-0.10801E-02,
     & 0.77456E-03, 0.19618E-03,-0.13692E-02, 0.13073E-02,-0.11315E-03,
     &-0.14527E-02, 0.21904E-02,-0.20385E-02, 0.20387E-02,-0.21269E-02,
     & 0.16736E-02,-0.68078E-03, 0.20292E-04
     & /
       real p60(0:37)
       data p60/
     & 0.41298E+01,-0.59562E+01, 0.22521E+01,-0.56410E+00, 0.12083E+00,
     & 0.11801E-01, 0.16489E-01, 0.38166E-02,-0.35655E-02,-0.87583E-02,
     &-0.14959E-02,-0.58822E-02, 0.18843E-02, 0.12669E-02, 0.13527E-02,
     & 0.13164E-02, 0.14819E-02,-0.23150E-02, 0.12910E-02,-0.19987E-02,
     & 0.10153E-02,-0.11212E-02, 0.83222E-03, 0.78434E-03,-0.11301E-02,
     & 0.80500E-03, 0.20760E-03,-0.14230E-02, 0.13620E-02,-0.11523E-03,
     &-0.15148E-02, 0.22856E-02,-0.21346E-02, 0.21331E-02,-0.22213E-02,
     & 0.17475E-02,-0.71394E-03, 0.28267E-04
     & /
       real p61(0:37)
       data p61/
     & 0.42896E+01,-0.62002E+01, 0.23610E+01,-0.59474E+00, 0.12751E+00,
     & 0.11263E-01, 0.16667E-01, 0.37220E-02,-0.36782E-02,-0.89636E-02,
     &-0.13771E-02,-0.60179E-02, 0.20023E-02, 0.12828E-02, 0.13573E-02,
     & 0.13163E-02, 0.15205E-02,-0.24101E-02, 0.13675E-02,-0.20678E-02,
     & 0.10759E-02,-0.11682E-02, 0.86009E-03, 0.80741E-03,-0.11811E-02,
     & 0.83617E-03, 0.21936E-03,-0.14780E-02, 0.14179E-02,-0.11731E-03,
     &-0.15783E-02, 0.23831E-02,-0.22334E-02, 0.22301E-02,-0.23183E-02,
     & 0.18233E-02,-0.74812E-03, 0.36706E-04
     & /
       real p62(0:37)
       data p62/
     & 0.44527E+01,-0.64497E+01, 0.24729E+01,-0.62645E+00, 0.13444E+00,
     & 0.10677E-01, 0.16845E-01, 0.36245E-02,-0.37900E-02,-0.91704E-02,
     &-0.12530E-02,-0.61563E-02, 0.21227E-02, 0.12977E-02, 0.13614E-02,
     & 0.13156E-02, 0.15601E-02,-0.25071E-02, 0.14462E-02,-0.21386E-02,
     & 0.11382E-02,-0.12166E-02, 0.88847E-03, 0.83090E-03,-0.12334E-02,
     & 0.86807E-03, 0.23146E-03,-0.15342E-02, 0.14749E-02,-0.11937E-03,
     &-0.16434E-02, 0.24831E-02,-0.23350E-02, 0.23297E-02,-0.24177E-02,
     & 0.19010E-02,-0.78332E-03, 0.45619E-04
     & /
       real p63(0:37)
       data p63/
     & 0.46196E+01,-0.67057E+01, 0.25885E+01,-0.65944E+00, 0.14165E+00,
     & 0.10042E-01, 0.17024E-01, 0.35281E-02,-0.38974E-02,-0.93774E-02,
     &-0.11235E-02,-0.62991E-02, 0.22447E-02, 0.13109E-02, 0.13650E-02,
     & 0.13145E-02, 0.16016E-02,-0.26062E-02, 0.15280E-02,-0.22118E-02,
     & 0.12022E-02,-0.12665E-02, 0.91729E-03, 0.85496E-03,-0.12867E-02,
     & 0.90093E-03, 0.24395E-03,-0.15918E-02, 0.15333E-02,-0.12149E-03,
     &-0.17103E-02, 0.25858E-02,-0.24396E-02, 0.24326E-02,-0.25201E-02,
     & 0.19810E-02,-0.81967E-03, 0.55077E-04
     & /
       real p64(0:37)
       data p64/
     & 0.47903E+01,-0.69679E+01, 0.27076E+01,-0.69369E+00, 0.14913E+00,
     & 0.93553E-02, 0.17205E-01, 0.34319E-02,-0.40013E-02,-0.95850E-02,
     &-0.98846E-03,-0.64460E-02, 0.23684E-02, 0.13225E-02, 0.13681E-02,
     & 0.13129E-02, 0.16448E-02,-0.27074E-02, 0.16126E-02,-0.22871E-02,
     & 0.12679E-02,-0.13180E-02, 0.94657E-03, 0.87955E-03,-0.13413E-02,
     & 0.93471E-03, 0.25681E-03,-0.16507E-02, 0.15930E-02,-0.12365E-03,
     &-0.17788E-02, 0.26913E-02,-0.25474E-02, 0.25386E-02,-0.26253E-02,
     & 0.20630E-02,-0.85717E-03, 0.65073E-04
     & /
       real p65(0:37)
       data p65/
     & 0.49643E+01,-0.72356E+01, 0.28297E+01,-0.72901E+00, 0.15687E+00,
     & 0.86177E-02, 0.17387E-01, 0.33324E-02,-0.41046E-02,-0.97944E-02,
     &-0.84825E-03,-0.65956E-02, 0.24947E-02, 0.13333E-02, 0.13708E-02,
     & 0.13108E-02, 0.16891E-02,-0.28106E-02, 0.16996E-02,-0.23642E-02,
     & 0.13353E-02,-0.13708E-02, 0.97637E-03, 0.90455E-03,-0.13970E-02,
     & 0.96920E-03, 0.27001E-03,-0.17109E-02, 0.16538E-02,-0.12578E-03,
     &-0.18488E-02, 0.27992E-02,-0.26578E-02, 0.26473E-02,-0.27330E-02,
     & 0.21470E-02,-0.89571E-03, 0.75561E-04
     & /
       real p66(0:37)
       data p66/
     & 0.51416E+01,-0.75088E+01, 0.29549E+01,-0.76541E+00, 0.16489E+00,
     & 0.78278E-02, 0.17572E-01, 0.32294E-02,-0.42073E-02,-0.10006E-01,
     &-0.70282E-03,-0.67479E-02, 0.26237E-02, 0.13432E-02, 0.13730E-02,
     & 0.13080E-02, 0.17343E-02,-0.29159E-02, 0.17888E-02,-0.24429E-02,
     & 0.14045E-02,-0.14248E-02, 0.10067E-02, 0.92996E-03,-0.14538E-02,
     & 0.10044E-02, 0.28356E-03,-0.17722E-02, 0.17159E-02,-0.12790E-03,
     &-0.19204E-02, 0.29096E-02,-0.27710E-02, 0.27587E-02,-0.28433E-02,
     & 0.22329E-02,-0.93531E-03, 0.86550E-04
     & /
       real p67(0:37)
       data p67/
     & 0.53223E+01,-0.77875E+01, 0.30830E+01,-0.80291E+00, 0.17318E+00,
     & 0.69847E-02, 0.17759E-01, 0.31232E-02,-0.43093E-02,-0.10219E-01,
     &-0.55216E-03,-0.69030E-02, 0.27554E-02, 0.13522E-02, 0.13747E-02,
     & 0.13045E-02, 0.17806E-02,-0.30232E-02, 0.18803E-02,-0.25235E-02,
     & 0.14753E-02,-0.14802E-02, 0.10376E-02, 0.95579E-03,-0.15118E-02,
     & 0.10403E-02, 0.29745E-03,-0.18347E-02, 0.17790E-02,-0.12999E-03,
     &-0.19935E-02, 0.30224E-02,-0.28868E-02, 0.28727E-02,-0.29560E-02,
     & 0.23208E-02,-0.97598E-03, 0.98049E-04
     & /
       real p68(0:37)
       data p68/
     & 0.55063E+01,-0.80717E+01, 0.32143E+01,-0.84153E+00, 0.18175E+00,
     & 0.60871E-02, 0.17949E-01, 0.30138E-02,-0.44105E-02,-0.10433E-01,
     &-0.39628E-03,-0.70609E-02, 0.28897E-02, 0.13604E-02, 0.13761E-02,
     & 0.13005E-02, 0.18279E-02,-0.31325E-02, 0.19742E-02,-0.26058E-02,
     & 0.15479E-02,-0.15369E-02, 0.10689E-02, 0.98203E-03,-0.15709E-02,
     & 0.10770E-02, 0.31169E-03,-0.18984E-02, 0.18434E-02,-0.13206E-03,
     &-0.20681E-02, 0.31376E-02,-0.30054E-02, 0.29895E-02,-0.30713E-02,
     & 0.24107E-02,-0.10177E-02, 0.11007E-03
     & /
       real p69(0:37)
       data p69/
     & 0.56936E+01,-0.83615E+01, 0.33487E+01,-0.88127E+00, 0.19061E+00,
     & 0.51341E-02, 0.18141E-01, 0.29013E-02,-0.45109E-02,-0.10650E-01,
     &-0.23517E-03,-0.72218E-02, 0.30267E-02, 0.13676E-02, 0.13770E-02,
     & 0.12958E-02, 0.18762E-02,-0.32438E-02, 0.20704E-02,-0.26899E-02,
     & 0.16222E-02,-0.15948E-02, 0.11009E-02, 0.10087E-02,-0.16311E-02,
     & 0.11144E-02, 0.32627E-03,-0.19633E-02, 0.19089E-02,-0.13410E-03,
     &-0.21443E-02, 0.32554E-02,-0.31268E-02, 0.31090E-02,-0.31892E-02,
     & 0.25026E-02,-0.10606E-02, 0.12262E-03
     & /
       real p70(0:37)
       data p70/
     & 0.58843E+01,-0.86568E+01, 0.34862E+01,-0.92216E+00, 0.19975E+00,
     & 0.41243E-02, 0.18337E-01, 0.27858E-02,-0.46103E-02,-0.10869E-01,
     &-0.68838E-04,-0.73856E-02, 0.31663E-02, 0.13739E-02, 0.13775E-02,
     & 0.12905E-02, 0.19257E-02,-0.33572E-02, 0.21689E-02,-0.27759E-02,
     & 0.16983E-02,-0.16542E-02, 0.11333E-02, 0.10358E-02,-0.16925E-02,
     & 0.11525E-02, 0.34121E-03,-0.20295E-02, 0.19756E-02,-0.13612E-03,
     &-0.22220E-02, 0.33756E-02,-0.32509E-02, 0.32313E-02,-0.33097E-02,
     & 0.25964E-02,-0.11045E-02, 0.13570E-03
     & /
       real p71(0:37)
       data p71/
     & 0.60784E+01,-0.89578E+01, 0.36268E+01,-0.96421E+00, 0.20919E+00,
     & 0.30569E-02, 0.18536E-01, 0.26673E-02,-0.47086E-02,-0.11089E-01,
     & 0.10273E-03,-0.75525E-02, 0.33085E-02, 0.13792E-02, 0.13776E-02,
     & 0.12847E-02, 0.19763E-02,-0.34727E-02, 0.22699E-02,-0.28637E-02,
     & 0.17761E-02,-0.17149E-02, 0.11664E-02, 0.10633E-02,-0.17550E-02,
     & 0.11913E-02, 0.35651E-03,-0.20968E-02, 0.20434E-02,-0.13811E-03,
     &-0.23013E-02, 0.34984E-02,-0.33779E-02, 0.33564E-02,-0.34328E-02,
     & 0.26923E-02,-0.11496E-02, 0.14934E-03
     & /
       real p72(0:37)
       data p72/
     & 0.62759E+01,-0.92644E+01, 0.37706E+01,-0.10074E+01, 0.21893E+00,
     & 0.19306E-02, 0.18740E-01, 0.25461E-02,-0.48058E-02,-0.11311E-01,
     & 0.27953E-03,-0.77225E-02, 0.34533E-02, 0.13835E-02, 0.13773E-02,
     & 0.12782E-02, 0.20280E-02,-0.35902E-02, 0.23732E-02,-0.29534E-02,
     & 0.18557E-02,-0.17769E-02, 0.11999E-02, 0.10913E-02,-0.18186E-02,
     & 0.12309E-02, 0.37216E-03,-0.21654E-02, 0.21125E-02,-0.14008E-03,
     &-0.23821E-02, 0.36237E-02,-0.35077E-02, 0.34843E-02,-0.35585E-02,
     & 0.27903E-02,-0.11958E-02, 0.16353E-03
     & /
       real p73(0:37)
       data p73/
     & 0.64768E+01,-0.95766E+01, 0.39176E+01,-0.10518E+01, 0.22897E+00,
     & 0.74433E-03, 0.18947E-01, 0.24221E-02,-0.49018E-02,-0.11535E-01,
     & 0.46156E-03,-0.78957E-02, 0.36008E-02, 0.13868E-02, 0.13766E-02,
     & 0.12712E-02, 0.20808E-02,-0.37098E-02, 0.24789E-02,-0.30449E-02,
     & 0.19371E-02,-0.18404E-02, 0.12340E-02, 0.11196E-02,-0.18834E-02,
     & 0.12713E-02, 0.38818E-03,-0.22352E-02, 0.21827E-02,-0.14202E-03,
     &-0.24645E-02, 0.37516E-02,-0.36403E-02, 0.36151E-02,-0.36869E-02,
     & 0.28902E-02,-0.12431E-02, 0.17828E-03
     & /
       real p74(0:37)
       data p74/
     & 0.66811E+01,-0.98945E+01, 0.40678E+01,-0.10975E+01, 0.23932E+00,
     &-0.50297E-03, 0.19159E-01, 0.22955E-02,-0.49964E-02,-0.11761E-01,
     & 0.64883E-03,-0.80721E-02, 0.37508E-02, 0.13891E-02, 0.13756E-02,
     & 0.12636E-02, 0.21348E-02,-0.38315E-02, 0.25871E-02,-0.31384E-02,
     & 0.20203E-02,-0.19052E-02, 0.12687E-02, 0.11485E-02,-0.19494E-02,
     & 0.13124E-02, 0.40455E-03,-0.23063E-02, 0.22541E-02,-0.14392E-03,
     &-0.25486E-02, 0.38820E-02,-0.37759E-02, 0.37487E-02,-0.38179E-02,
     & 0.29923E-02,-0.12917E-02, 0.19361E-03
     & /
       real p75(0:37)
       data p75/
     & 0.68888E+01,-0.10218E+02, 0.42213E+01,-0.11443E+01, 0.24998E+00,
     &-0.18124E-02, 0.19375E-01, 0.21663E-02,-0.50897E-02,-0.11989E-01,
     & 0.84133E-03,-0.82519E-02, 0.39034E-02, 0.13903E-02, 0.13742E-02,
     & 0.12554E-02, 0.21901E-02,-0.39552E-02, 0.26977E-02,-0.32338E-02,
     & 0.21053E-02,-0.19714E-02, 0.13039E-02, 0.11777E-02,-0.20164E-02,
     & 0.13542E-02, 0.42129E-03,-0.23786E-02, 0.23267E-02,-0.14580E-03,
     &-0.26342E-02, 0.40150E-02,-0.39143E-02, 0.38852E-02,-0.39516E-02,
     & 0.30964E-02,-0.13413E-02, 0.20953E-03
     & /
       real p76(0:37)
       data p76/
     & 0.71000E+01,-0.10548E+02, 0.43781E+01,-0.11923E+01, 0.26096E+00,
     &-0.31851E-02, 0.19596E-01, 0.20347E-02,-0.51815E-02,-0.12219E-01,
     & 0.10391E-02,-0.84351E-02, 0.40586E-02, 0.13905E-02, 0.13725E-02,
     & 0.12467E-02, 0.22465E-02,-0.40810E-02, 0.28107E-02,-0.33312E-02,
     & 0.21921E-02,-0.20391E-02, 0.13397E-02, 0.12074E-02,-0.20847E-02,
     & 0.13968E-02, 0.43840E-03,-0.24521E-02, 0.24004E-02,-0.14764E-03,
     &-0.27214E-02, 0.41507E-02,-0.40557E-02, 0.40246E-02,-0.40880E-02,
     & 0.32026E-02,-0.13922E-02, 0.22604E-03
     & /
       real p77(0:37)
       data p77/
     & 0.73146E+01,-0.10883E+02, 0.45381E+01,-0.12417E+01, 0.27227E+00,
     &-0.46224E-02, 0.19822E-01, 0.19010E-02,-0.52714E-02,-0.12450E-01,
     & 0.12421E-02,-0.86218E-02, 0.42164E-02, 0.13894E-02, 0.13704E-02,
     & 0.12375E-02, 0.23043E-02,-0.42089E-02, 0.29263E-02,-0.34306E-02,
     & 0.22807E-02,-0.21082E-02, 0.13760E-02, 0.12376E-02,-0.21541E-02,
     & 0.14402E-02, 0.45589E-03,-0.25270E-02, 0.24754E-02,-0.14947E-03,
     &-0.28102E-02, 0.42890E-02,-0.42000E-02, 0.41669E-02,-0.42272E-02,
     & 0.33110E-02,-0.14443E-02, 0.24317E-03
     & /
       real p78(0:37)
       data p78/
     & 0.75337E+01,-0.11226E+02, 0.47029E+01,-0.12928E+01, 0.28398E+00,
     &-0.61301E-02, 0.20055E-01, 0.17728E-02,-0.53535E-02,-0.12683E-01,
     & 0.14513E-02,-0.88161E-02, 0.43756E-02, 0.13859E-02, 0.13677E-02,
     & 0.12286E-02, 0.23645E-02,-0.43389E-02, 0.30452E-02,-0.35331E-02,
     & 0.23715E-02,-0.21795E-02, 0.14128E-02, 0.12688E-02,-0.22251E-02,
     & 0.14849E-02, 0.47404E-03,-0.26037E-02, 0.25520E-02,-0.15156E-03,
     &-0.29010E-02, 0.44307E-02,-0.43484E-02, 0.43134E-02,-0.43702E-02,
     & 0.34223E-02,-0.14981E-02, 0.26126E-03
     & /
       real p79(0:38)
       data p79/
     & 0.77561E+01,-0.11574E+02, 0.48708E+01,-0.13452E+01, 0.29602E+00,
     &-0.77039E-02, 0.20293E-01, 0.16416E-02,-0.54345E-02,-0.12918E-01,
     & 0.16657E-02,-0.90135E-02, 0.45375E-02, 0.13814E-02, 0.13648E-02,
     & 0.12192E-02, 0.24259E-02,-0.44710E-02, 0.31665E-02,-0.36375E-02,
     & 0.24640E-02,-0.22522E-02, 0.14502E-02, 0.13004E-02,-0.22972E-02,
     & 0.15303E-02, 0.49253E-03,-0.26816E-02, 0.26297E-02,-0.15359E-03,
     &-0.29933E-02, 0.45750E-02,-0.44996E-02, 0.44627E-02,-0.45158E-02,
     & 0.35356E-02,-0.15531E-02, 0.27993E-03,-0.80472E-03
     & /
       real p80(0:38)
       data p80/
     & 0.79819E+01,-0.11928E+02, 0.50420E+01,-0.13988E+01, 0.30838E+00,
     &-0.93448E-02, 0.20537E-01, 0.15074E-02,-0.55143E-02,-0.13155E-01,
     & 0.18853E-02,-0.92142E-02, 0.47020E-02, 0.13758E-02, 0.13615E-02,
     & 0.12091E-02, 0.24885E-02,-0.46052E-02, 0.32902E-02,-0.37439E-02,
     & 0.25584E-02,-0.23262E-02, 0.14882E-02, 0.13323E-02,-0.23704E-02,
     & 0.15764E-02, 0.51136E-03,-0.27608E-02, 0.27086E-02,-0.15554E-03,
     &-0.30873E-02, 0.47220E-02,-0.46538E-02, 0.46149E-02,-0.46641E-02,
     & 0.36510E-02,-0.16092E-02, 0.29920E-03,-0.83247E-03
     & /
       real p81(0:38)
       data p81/
     & 0.82111E+01,-0.12288E+02, 0.52164E+01,-0.14536E+01, 0.32108E+00,
     &-0.11054E-01, 0.20787E-01, 0.13704E-02,-0.55928E-02,-0.13394E-01,
     & 0.21099E-02,-0.94181E-02, 0.48692E-02, 0.13692E-02, 0.13580E-02,
     & 0.11983E-02, 0.25523E-02,-0.47415E-02, 0.34164E-02,-0.38522E-02,
     & 0.26546E-02,-0.24017E-02, 0.15268E-02, 0.13647E-02,-0.24448E-02,
     & 0.16233E-02, 0.53055E-03,-0.28411E-02, 0.27886E-02,-0.15743E-03,
     &-0.31829E-02, 0.48715E-02,-0.48108E-02, 0.47701E-02,-0.48150E-02,
     & 0.37685E-02,-0.16666E-02, 0.31907E-03,-0.86076E-03
     & /
       real p82(0:38)
       data p82/
     & 0.84436E+01,-0.12653E+02, 0.53940E+01,-0.15097E+01, 0.33411E+00,
     &-0.12832E-01, 0.21044E-01, 0.12304E-02,-0.56702E-02,-0.13635E-01,
     & 0.23397E-02,-0.96253E-02, 0.50390E-02, 0.13616E-02, 0.13543E-02,
     & 0.11870E-02, 0.26173E-02,-0.48800E-02, 0.35450E-02,-0.39624E-02,
     & 0.27526E-02,-0.24786E-02, 0.15659E-02, 0.13975E-02,-0.25202E-02,
     & 0.16709E-02, 0.55008E-03,-0.29227E-02, 0.28698E-02,-0.15924E-03,
     &-0.32801E-02, 0.50236E-02,-0.49708E-02, 0.49281E-02,-0.49687E-02,
     & 0.38881E-02,-0.17251E-02, 0.33955E-03,-0.88959E-03
     & /
       real p83(0:38)
       data p83/
     & 0.86796E+01,-0.13024E+02, 0.55749E+01,-0.15671E+01, 0.34748E+00,
     &-0.14681E-01, 0.21307E-01, 0.10876E-02,-0.57462E-02,-0.13878E-01,
     & 0.25747E-02,-0.98358E-02, 0.52115E-02, 0.13529E-02, 0.13503E-02,
     & 0.11751E-02, 0.26835E-02,-0.50205E-02, 0.36760E-02,-0.40747E-02,
     & 0.28524E-02,-0.25569E-02, 0.16057E-02, 0.14306E-02,-0.25968E-02,
     & 0.17192E-02, 0.56996E-03,-0.30054E-02, 0.29521E-02,-0.16097E-03,
     &-0.33790E-02, 0.51784E-02,-0.51338E-02, 0.50891E-02,-0.51251E-02,
     & 0.40098E-02,-0.17849E-02, 0.36064E-03,-0.91896E-03
     & /
       real p84(0:38)
       data p84/
     & 0.89189E+01,-0.13401E+02, 0.57591E+01,-0.16257E+01, 0.36121E+00,
     &-0.16601E-01, 0.21578E-01, 0.94210E-03,-0.58208E-02,-0.14123E-01,
     & 0.28147E-02,-0.10050E-01, 0.53866E-02, 0.13431E-02, 0.13461E-02,
     & 0.11625E-02, 0.27509E-02,-0.51632E-02, 0.38095E-02,-0.41889E-02,
     & 0.29541E-02,-0.26366E-02, 0.16460E-02, 0.14642E-02,-0.26744E-02,
     & 0.17682E-02, 0.59018E-03,-0.30894E-02, 0.30356E-02,-0.16262E-03,
     &-0.34795E-02, 0.53358E-02,-0.52997E-02, 0.52530E-02,-0.52843E-02,
     & 0.41336E-02,-0.18458E-02, 0.38236E-03,-0.94888E-03
     & /
       real p85(0:38)
       data p85/
     & 0.91617E+01,-0.13783E+02, 0.59466E+01,-0.16856E+01, 0.37528E+00,
     &-0.18594E-01, 0.21855E-01, 0.79383E-03,-0.58939E-02,-0.14370E-01,
     & 0.30599E-02,-0.10267E-01, 0.55644E-02, 0.13322E-02, 0.13417E-02,
     & 0.11494E-02, 0.28196E-02,-0.53080E-02, 0.39455E-02,-0.43051E-02,
     & 0.30577E-02,-0.27178E-02, 0.16870E-02, 0.14982E-02,-0.27531E-02,
     & 0.18180E-02, 0.61076E-03,-0.31746E-02, 0.31201E-02,-0.16419E-03,
     &-0.35816E-02, 0.54959E-02,-0.54686E-02, 0.54199E-02,-0.54462E-02,
     & 0.42596E-02,-0.19080E-02, 0.40470E-03,-0.97935E-03
     & /
       real p86(0:38)
       data p86/
     & 0.94079E+01,-0.14171E+02, 0.61375E+01,-0.17469E+01, 0.38970E+00,
     &-0.20660E-01, 0.22141E-01, 0.64288E-03,-0.59656E-02,-0.14619E-01,
     & 0.33102E-02,-0.10488E-01, 0.57448E-02, 0.13202E-02, 0.13371E-02,
     & 0.11356E-02, 0.28895E-02,-0.54550E-02, 0.40840E-02,-0.44234E-02,
     & 0.31631E-02,-0.28004E-02, 0.17285E-02, 0.15326E-02,-0.28330E-02,
     & 0.18685E-02, 0.63169E-03,-0.32610E-02, 0.32059E-02,-0.16567E-03,
     &-0.36855E-02, 0.56586E-02,-0.56405E-02, 0.55898E-02,-0.56109E-02,
     & 0.43877E-02,-0.19714E-02, 0.42768E-03,-0.10104E-02
     & /
       real p87(0:38)
       data p87/
     & 0.96574E+01,-0.14565E+02, 0.63317E+01,-0.18094E+01, 0.40449E+00,
     &-0.22801E-01, 0.22434E-01, 0.48930E-03,-0.60358E-02,-0.14870E-01,
     & 0.35657E-02,-0.10712E-01, 0.59278E-02, 0.13070E-02, 0.13323E-02,
     & 0.11213E-02, 0.29607E-02,-0.56041E-02, 0.42250E-02,-0.45438E-02,
     & 0.32703E-02,-0.28845E-02, 0.17706E-02, 0.15674E-02,-0.29139E-02,
     & 0.19197E-02, 0.65297E-03,-0.33486E-02, 0.32927E-02,-0.16706E-03,
     &-0.37909E-02, 0.58240E-02,-0.58154E-02, 0.57628E-02,-0.57784E-02,
     & 0.45179E-02,-0.20361E-02, 0.45131E-03,-0.10419E-02
     & /
       real p88(0:38)
       data p88/
     & 0.99104E+01,-0.14965E+02, 0.65292E+01,-0.18733E+01, 0.41964E+00,
     &-0.25018E-01, 0.22736E-01, 0.33314E-03,-0.61043E-02,-0.15123E-01,
     & 0.38262E-02,-0.10940E-01, 0.61135E-02, 0.12928E-02, 0.13274E-02,
     & 0.11063E-02, 0.30332E-02,-0.57553E-02, 0.43684E-02,-0.46662E-02,
     & 0.33795E-02,-0.29700E-02, 0.18134E-02, 0.16027E-02,-0.29960E-02,
     & 0.19717E-02, 0.67460E-03,-0.34375E-02, 0.33807E-02,-0.16836E-03,
     &-0.38981E-02, 0.59922E-02,-0.59934E-02, 0.59387E-02,-0.59486E-02,
     & 0.46503E-02,-0.21020E-02, 0.47559E-03,-0.10741E-02
     & /
       real p89(0:38)
       data p89/
     & 0.10167E+02,-0.15370E+02, 0.67301E+01,-0.19385E+01, 0.43515E+00,
     &-0.27312E-01, 0.23045E-01, 0.17444E-03,-0.61712E-02,-0.15379E-01,
     & 0.40919E-02,-0.11172E-01, 0.63018E-02, 0.12773E-02, 0.13222E-02,
     & 0.10908E-02, 0.31071E-02,-0.59087E-02, 0.45144E-02,-0.47906E-02,
     & 0.34905E-02,-0.30571E-02, 0.18568E-02, 0.16383E-02,-0.30791E-02,
     & 0.20244E-02, 0.69659E-03,-0.35275E-02, 0.34698E-02,-0.16957E-03,
     &-0.40069E-02, 0.61630E-02,-0.61744E-02, 0.61177E-02,-0.61217E-02,
     & 0.47849E-02,-0.21692E-02, 0.50053E-03,-0.11068E-02
     & /
       real p90(0:38)
       data p90/
     & 0.10427E+02,-0.15781E+02, 0.69344E+01,-0.20050E+01, 0.45104E+00,
     &-0.29683E-01, 0.23364E-01, 0.13254E-04,-0.62364E-02,-0.15637E-01,
     & 0.43627E-02,-0.11407E-01, 0.64927E-02, 0.12607E-02, 0.13170E-02,
     & 0.10747E-02, 0.31822E-02,-0.60642E-02, 0.46629E-02,-0.49172E-02,
     & 0.36034E-02,-0.31456E-02, 0.19008E-02, 0.16743E-02,-0.31633E-02,
     & 0.20779E-02, 0.71893E-03,-0.36188E-02, 0.35601E-02,-0.17068E-03,
     &-0.41174E-02, 0.63365E-02,-0.63585E-02, 0.62998E-02,-0.62976E-02,
     & 0.49217E-02,-0.22376E-02, 0.52613E-03,-0.11401E-02
     & /
       real p91(0:38)
       data p91/
     & 0.10690E+02,-0.16198E+02, 0.71422E+01,-0.20729E+01, 0.46730E+00,
     &-0.32134E-01, 0.23691E-01,-0.15037E-03,-0.62998E-02,-0.15896E-01,
     & 0.46386E-02,-0.11646E-01, 0.66863E-02, 0.12428E-02, 0.13115E-02,
     & 0.10580E-02, 0.32587E-02,-0.62220E-02, 0.48140E-02,-0.50459E-02,
     & 0.37182E-02,-0.32356E-02, 0.19454E-02, 0.17108E-02,-0.32487E-02,
     & 0.21321E-02, 0.74162E-03,-0.37114E-02, 0.36515E-02,-0.17169E-03,
     &-0.42296E-02, 0.65128E-02,-0.65457E-02, 0.64849E-02,-0.64764E-02,
     & 0.50606E-02,-0.23074E-02, 0.55241E-03,-0.11739E-02
     & /
       real p92(0:38)
       data p92/
     & 0.10957E+02,-0.16621E+02, 0.73533E+01,-0.21422E+01, 0.48395E+00,
     &-0.34664E-01, 0.24028E-01,-0.31640E-03,-0.63615E-02,-0.16158E-01,
     & 0.49196E-02,-0.11889E-01, 0.68824E-02, 0.12238E-02, 0.13060E-02,
     & 0.10407E-02, 0.33365E-02,-0.63818E-02, 0.49676E-02,-0.51767E-02,
     & 0.38349E-02,-0.33271E-02, 0.19906E-02, 0.17476E-02,-0.33351E-02,
     & 0.21870E-02, 0.76467E-03,-0.38051E-02, 0.37440E-02,-0.17260E-03,
     &-0.43435E-02, 0.66919E-02,-0.67360E-02, 0.66732E-02,-0.66580E-02,
     & 0.52018E-02,-0.23784E-02, 0.57937E-03,-0.12083E-02
     & /
       real p93(0:38)
       data p93/
     & 0.11227E+02,-0.17050E+02, 0.75679E+01,-0.22129E+01, 0.50098E+00,
     &-0.37276E-01, 0.24374E-01,-0.48476E-03,-0.64212E-02,-0.16423E-01,
     & 0.52057E-02,-0.12135E-01, 0.70812E-02, 0.12036E-02, 0.13003E-02,
     & 0.10228E-02, 0.34157E-02,-0.65439E-02, 0.51238E-02,-0.53097E-02,
     & 0.39535E-02,-0.34201E-02, 0.20365E-02, 0.17849E-02,-0.34227E-02,
     & 0.22427E-02, 0.78808E-03,-0.39001E-02, 0.38377E-02,-0.17340E-03,
     &-0.44592E-02, 0.68737E-02,-0.69294E-02, 0.68645E-02,-0.68425E-02,
     & 0.53452E-02,-0.24507E-02, 0.60702E-03,-0.12433E-02
     & /
       real p94(0:38)
       data p94/
     & 0.11501E+02,-0.17484E+02, 0.77860E+01,-0.22850E+01, 0.51840E+00,
     &-0.39971E-01, 0.24730E-01,-0.65504E-03,-0.64787E-02,-0.16689E-01,
     & 0.54969E-02,-0.12385E-01, 0.72825E-02, 0.11820E-02, 0.12946E-02,
     & 0.10044E-02, 0.34963E-02,-0.67081E-02, 0.52825E-02,-0.54448E-02,
     & 0.40740E-02,-0.35147E-02, 0.20830E-02, 0.18226E-02,-0.35113E-02,
     & 0.22992E-02, 0.81185E-03,-0.39964E-02, 0.39325E-02,-0.17407E-03,
     &-0.45766E-02, 0.70583E-02,-0.71260E-02, 0.70591E-02,-0.70299E-02,
     & 0.54909E-02,-0.25244E-02, 0.63539E-03,-0.12789E-02
     & /
       real p95(0:38)
       data p95/
     & 0.11779E+02,-0.17927E+02, 0.80092E+01,-0.23593E+01, 0.53638E+00,
     &-0.42766E-01, 0.25100E-01,-0.81956E-03,-0.65289E-02,-0.16957E-01,
     & 0.57934E-02,-0.12643E-01, 0.74852E-02, 0.11580E-02, 0.12891E-02,
     & 0.98598E-03, 0.35796E-02,-0.68746E-02, 0.54446E-02,-0.55831E-02,
     & 0.41968E-02,-0.36120E-02, 0.21310E-02, 0.18603E-02,-0.36007E-02,
     & 0.23566E-02, 0.83589E-03,-0.40939E-02, 0.40283E-02,-0.17425E-03,
     &-0.46965E-02, 0.72467E-02,-0.73268E-02, 0.72579E-02,-0.72211E-02,
     & 0.56397E-02,-0.26001E-02, 0.66497E-03,-0.13152E-02
     & /
       real p96(0:38)
       data p96/
     & 0.12061E+02,-0.18375E+02, 0.82358E+01,-0.24349E+01, 0.55474E+00,
     &-0.45644E-01, 0.25480E-01,-0.98699E-03,-0.65775E-02,-0.17228E-01,
     & 0.60950E-02,-0.12905E-01, 0.76905E-02, 0.11328E-02, 0.12836E-02,
     & 0.96696E-03, 0.36642E-02,-0.70433E-02, 0.56091E-02,-0.57235E-02,
     & 0.43216E-02,-0.37108E-02, 0.21795E-02, 0.18985E-02,-0.36913E-02,
     & 0.24148E-02, 0.86031E-03,-0.41927E-02, 0.41252E-02,-0.17435E-03,
     &-0.48181E-02, 0.74379E-02,-0.75307E-02, 0.74597E-02,-0.74152E-02,
     & 0.57906E-02,-0.26772E-02, 0.69521E-03,-0.13521E-02
     & /
       real p97(0:38)
       data p97/
     & 0.12346E+02,-0.18829E+02, 0.84657E+01,-0.25119E+01, 0.57348E+00,
     &-0.48605E-01, 0.25870E-01,-0.11573E-02,-0.66245E-02,-0.17501E-01,
     & 0.64017E-02,-0.13170E-01, 0.78986E-02, 0.11065E-02, 0.12779E-02,
     & 0.94733E-03, 0.37501E-02,-0.72142E-02, 0.57762E-02,-0.58660E-02,
     & 0.44482E-02,-0.38109E-02, 0.22286E-02, 0.19371E-02,-0.37830E-02,
     & 0.24738E-02, 0.88509E-03,-0.42927E-02, 0.42233E-02,-0.17437E-03,
     &-0.49414E-02, 0.76317E-02,-0.77376E-02, 0.76646E-02,-0.76122E-02,
     & 0.59438E-02,-0.27554E-02, 0.72613E-03,-0.13896E-02
     & /
       real p98(0:38)
       data p98/
     & 0.12634E+02,-0.19288E+02, 0.86990E+01,-0.25902E+01, 0.59262E+00,
     &-0.51652E-01, 0.26270E-01,-0.13306E-02,-0.66699E-02,-0.17776E-01,
     & 0.67135E-02,-0.13439E-01, 0.81094E-02, 0.10789E-02, 0.12721E-02,
     & 0.92707E-03, 0.38374E-02,-0.73873E-02, 0.59459E-02,-0.60107E-02,
     & 0.45767E-02,-0.39125E-02, 0.22782E-02, 0.19762E-02,-0.38758E-02,
     & 0.25334E-02, 0.91025E-03,-0.43940E-02, 0.43225E-02,-0.17431E-03,
     &-0.50664E-02, 0.78283E-02,-0.79477E-02, 0.78727E-02,-0.78120E-02,
     & 0.60991E-02,-0.28350E-02, 0.75772E-03,-0.14277E-02
     & /
       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,  37,  21,  21
     &,  21,  21,  21,  21,  21,  21,  37,  37,  37,  37
     &,  37,  37,  37,  37,  37,  37,  37,  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,  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.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.37) param(i,29) = p29(i)
             if (i.le.21) param(i,30) = p30(i)
             if (i.le.21) param(i,31) = p31(i)
             if (i.le.21) param(i,32) = p32(i)
             if (i.le.21) param(i,33) = p33(i)
             if (i.le.21) param(i,34) = p34(i)
             if (i.le.21) param(i,35) = p35(i)
             if (i.le.21) param(i,36) = p36(i)
             if (i.le.21) param(i,37) = p37(i)
             if (i.le.37) param(i,38) = p38(i)
             if (i.le.37) param(i,39) = p39(i)
             if (i.le.37) param(i,40) = p40(i)
             if (i.le.37) param(i,41) = p41(i)
             if (i.le.37) param(i,42) = p42(i)
             if (i.le.37) 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.22) param(i,49) = p49(i)
             if (i.le.22) param(i,50) = p50(i)
             if (i.le.22) param(i,51) = p51(i)
             if (i.le.22) param(i,52) = p52(i)
             if (i.le.22) param(i,53) = p53(i)
             if (i.le.22) param(i,54) = p54(i)
             if (i.le.22) param(i,55) = p55(i)
             if (i.le.22) param(i,56) = p56(i)
             if (i.le.22) 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.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
            
       dbarct5dlo=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
       dbarct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dbarct5dlo=0.0
       if (q2.lt.q2min) dbarct5dlo=0.0
       if ( x.gt. xmax) dbarct5dlo=0.0
       if ( x.lt. xmin) dbarct5dlo=0.0
       return
       end
       real function  sbarct5dlo(xin,q2in)
***********************************************************
c  parametrization of sbarct5dlo 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.15538E+00,-0.18789E+00, 0.32195E-01,-0.58206E-02, 0.21410E-02,
     & 0.23831E-02, 0.18725E-02, 0.90345E-03,-0.17744E-03,-0.46754E-03,
     &-0.34130E-03,-0.29785E-03, 0.15766E-04,-0.45512E-05, 0.80181E-04,
     &-0.21834E-04, 0.12033E-03,-0.10205E-03, 0.85598E-04,-0.85474E-04,
     & 0.44911E-04,-0.16355E-04, 0.20853E-05
     & /
       real p16(0:22)
       data p16/
     & 0.16778E+00,-0.20402E+00, 0.36127E-01,-0.63807E-02, 0.23410E-02,
     & 0.25046E-02, 0.19432E-02, 0.92830E-03,-0.20300E-03,-0.49384E-03,
     &-0.35247E-03,-0.31119E-03, 0.22323E-04,-0.53151E-05, 0.85721E-04,
     &-0.25908E-04, 0.12994E-03,-0.11140E-03, 0.93700E-04,-0.92623E-04,
     & 0.49262E-04,-0.17962E-04, 0.22728E-05
     & /
       real p17(0:22)
       data p17/
     & 0.19434E+00,-0.23882E+00, 0.44922E-01,-0.76582E-02, 0.27760E-02,
     & 0.27490E-02, 0.20813E-02, 0.97534E-03,-0.25793E-03,-0.54741E-03,
     &-0.37361E-03,-0.33846E-03, 0.36961E-04,-0.73765E-05, 0.97417E-04,
     &-0.35185E-04, 0.15058E-03,-0.13177E-03, 0.11135E-03,-0.10812E-03,
     & 0.58770E-04,-0.21507E-04, 0.27178E-05
     & /
       real p18(0:22)
       data p18/
     & 0.22329E+00,-0.27719E+00, 0.55079E-01,-0.91524E-02, 0.32505E-02,
     & 0.29916E-02, 0.22109E-02, 0.10177E-02,-0.31732E-03,-0.60115E-03,
     &-0.39239E-03,-0.36652E-03, 0.53508E-04,-0.10592E-04, 0.10966E-03,
     &-0.46310E-04, 0.17295E-03,-0.15462E-03, 0.13090E-03,-0.12538E-03,
     & 0.69417E-04,-0.25505E-04, 0.33229E-05
     & /
       real p19(0:22)
       data p19/
     & 0.25462E+00,-0.31910E+00, 0.66611E-01,-0.10892E-01, 0.37722E-02,
     & 0.32322E-02, 0.23335E-02, 0.10563E-02,-0.38111E-03,-0.65533E-03,
     &-0.40904E-03,-0.39540E-03, 0.72047E-04,-0.14800E-04, 0.12265E-03,
     &-0.59152E-04, 0.19722E-03,-0.17990E-03, 0.15246E-03,-0.14436E-03,
     & 0.81209E-04,-0.29982E-04, 0.40563E-05
     & /
       real p20(0:22)
       data p20/
     & 0.28831E+00,-0.36452E+00, 0.79532E-01,-0.12904E-01, 0.43486E-02,
     & 0.34704E-02, 0.24507E-02, 0.10917E-02,-0.44924E-03,-0.71017E-03,
     &-0.42376E-03,-0.42510E-03, 0.92661E-04,-0.19842E-04, 0.13659E-03,
     &-0.73581E-04, 0.22354E-03,-0.20755E-03, 0.17612E-03,-0.16504E-03,
     & 0.94153E-04,-0.34967E-04, 0.48861E-05
     & /
       real p21(0:22)
       data p21/
     & 0.32442E+00,-0.41357E+00, 0.93912E-01,-0.15214E-01, 0.49828E-02,
     & 0.37051E-02, 0.25621E-02, 0.11241E-02,-0.52153E-03,-0.76550E-03,
     &-0.43643E-03,-0.45569E-03, 0.11538E-03,-0.25788E-04, 0.15151E-03,
     &-0.89660E-04, 0.25202E-03,-0.23765E-03, 0.20197E-03,-0.18749E-03,
     & 0.10829E-03,-0.40489E-04, 0.58182E-05
     & /
       real p22(0:22)
       data p22/
     & 0.36301E+00,-0.46635E+00, 0.10982E+00,-0.17844E-01, 0.56775E-02,
     & 0.39349E-02, 0.26675E-02, 0.11538E-02,-0.59778E-03,-0.82115E-03,
     &-0.44696E-03,-0.48723E-03, 0.14023E-03,-0.32709E-04, 0.16746E-03,
     &-0.10745E-03, 0.28273E-03,-0.27030E-03, 0.23011E-03,-0.21178E-03,
     & 0.12368E-03,-0.46577E-04, 0.68582E-05
     & /
       real p23(0:22)
       data p23/
     & 0.40412E+00,-0.52296E+00, 0.12734E+00,-0.20818E-01, 0.64359E-02,
     & 0.41586E-02, 0.27664E-02, 0.11809E-02,-0.67780E-03,-0.87693E-03,
     &-0.45522E-03,-0.51980E-03, 0.16725E-03,-0.40674E-04, 0.18448E-03,
     &-0.12702E-03, 0.31575E-03,-0.30558E-03, 0.26061E-03,-0.23796E-03,
     & 0.14035E-03,-0.53259E-04, 0.80119E-05
     & /
       real p24(0:22)
       data p24/
     & 0.44802E+00,-0.58389E+00, 0.14673E+00,-0.24176E-01, 0.72484E-02,
     & 0.43720E-02, 0.28541E-02, 0.12046E-02,-0.76098E-03,-0.93183E-03,
     &-0.46047E-03,-0.55354E-03, 0.19643E-03,-0.49862E-04, 0.20257E-03,
     &-0.14846E-03, 0.35136E-03,-0.34371E-03, 0.29378E-03,-0.26623E-03,
     & 0.15844E-03,-0.60590E-04, 0.92662E-05
     & /
       real p25(0:22)
       data p25/
     & 0.49452E+00,-0.64879E+00, 0.16783E+00,-0.27922E-01, 0.81329E-02,
     & 0.45774E-02, 0.29358E-02, 0.12263E-02,-0.84763E-03,-0.98669E-03,
     &-0.46338E-03,-0.58840E-03, 0.22784E-03,-0.60212E-04, 0.22183E-03,
     &-0.17179E-03, 0.38941E-03,-0.38463E-03, 0.32945E-03,-0.29650E-03,
     & 0.17789E-03,-0.68566E-04, 0.10650E-04
     & /
       real p26(0:22)
       data p26/
     & 0.54364E+00,-0.71769E+00, 0.19066E+00,-0.32078E-01, 0.90945E-02,
     & 0.47741E-02, 0.30117E-02, 0.12461E-02,-0.93763E-03,-0.10414E-02,
     &-0.46392E-03,-0.62445E-03, 0.26151E-03,-0.71778E-04, 0.24231E-03,
     &-0.19707E-03, 0.42997E-03,-0.42839E-03, 0.36768E-03,-0.32884E-03,
     & 0.19873E-03,-0.77214E-04, 0.12170E-04
     & /
       real p27(0:22)
       data p27/
     & 0.59542E+00,-0.79069E+00, 0.21530E+00,-0.36665E-01, 0.10137E-01,
     & 0.49611E-02, 0.30818E-02, 0.12644E-02,-0.10308E-02,-0.10959E-02,
     &-0.46203E-03,-0.66173E-03, 0.29748E-03,-0.84623E-04, 0.26406E-03,
     &-0.22436E-03, 0.47312E-03,-0.47509E-03, 0.40854E-03,-0.36329E-03,
     & 0.22101E-03,-0.86560E-04, 0.13835E-04
     & /
       real p28(0:22)
       data p28/
     & 0.64991E+00,-0.86787E+00, 0.24180E+00,-0.41708E-01, 0.11263E-01,
     & 0.51372E-02, 0.31461E-02, 0.12813E-02,-0.11270E-02,-0.11501E-02,
     &-0.45764E-03,-0.70032E-03, 0.33578E-03,-0.98812E-04, 0.28712E-03,
     &-0.25373E-03, 0.51892E-03,-0.52481E-03, 0.45212E-03,-0.39992E-03,
     & 0.24475E-03,-0.96631E-04, 0.15651E-04
     & /
       real p29(0:22)
       data p29/
     & 0.70714E+00,-0.94930E+00, 0.27022E+00,-0.47228E-01, 0.12477E-01,
     & 0.53014E-02, 0.32044E-02, 0.12971E-02,-0.12261E-02,-0.12037E-02,
     &-0.45067E-03,-0.74026E-03, 0.37643E-03,-0.11441E-03, 0.31155E-03,
     &-0.28522E-03, 0.56746E-03,-0.57762E-03, 0.49848E-03,-0.43878E-03,
     & 0.27000E-03,-0.10745E-03, 0.17625E-04
     & /
       real p30(0:22)
       data p30/
     & 0.76729E+00,-0.10353E+01, 0.30073E+00,-0.53255E-01, 0.13770E-01,
     & 0.54520E-02, 0.32551E-02, 0.13128E-02,-0.13263E-02,-0.12554E-02,
     &-0.44022E-03,-0.78134E-03, 0.41964E-03,-0.13159E-03, 0.33747E-03,
     &-0.31907E-03, 0.61896E-03,-0.63383E-03, 0.54787E-03,-0.48005E-03,
     & 0.29683E-03,-0.11913E-03, 0.19798E-04
     & /
       real p31(0:22)
       data p31/
     & 0.83043E+00,-0.11260E+01, 0.33343E+00,-0.59811E-01, 0.15139E-01,
     & 0.55879E-02, 0.32977E-02, 0.13290E-02,-0.14273E-02,-0.13045E-02,
     &-0.42601E-03,-0.82356E-03, 0.46548E-03,-0.15044E-03, 0.36495E-03,
     &-0.35536E-03, 0.67355E-03,-0.69360E-03, 0.60039E-03,-0.52381E-03,
     & 0.32528E-03,-0.13170E-03, 0.22184E-04
     & /
       real p32(0:22)
       data p32/
     & 0.85899E+00,-0.11672E+01, 0.34840E+00,-0.62855E-01, 0.15773E-01,
     & 0.56429E-02, 0.33147E-02, 0.13358E-02,-0.14726E-02,-0.13260E-02,
     &-0.41903E-03,-0.84258E-03, 0.48632E-03,-0.15919E-03, 0.37746E-03,
     &-0.37197E-03, 0.69839E-03,-0.72081E-03, 0.62434E-03,-0.54374E-03,
     & 0.33826E-03,-0.13746E-03, 0.23281E-04
     & /
       real p33(0:22)
       data p33/
     & 0.89638E+00,-0.12211E+01, 0.36817E+00,-0.66911E-01, 0.16615E-01,
     & 0.57090E-02, 0.33350E-02, 0.13442E-02,-0.15314E-02,-0.13535E-02,
     &-0.40941E-03,-0.86744E-03, 0.51369E-03,-0.17084E-03, 0.39390E-03,
     &-0.39389E-03, 0.73102E-03,-0.75659E-03, 0.65586E-03,-0.56994E-03,
     & 0.35535E-03,-0.14507E-03, 0.24732E-04
     & /
       real p34(0:22)
       data p34/
     & 0.96519E+00,-0.13207E+01, 0.40500E+00,-0.74576E-01, 0.18201E-01,
     & 0.58141E-02, 0.33671E-02, 0.13587E-02,-0.16384E-02,-0.14021E-02,
     &-0.39037E-03,-0.91306E-03, 0.56429E-03,-0.19285E-03, 0.42433E-03,
     &-0.43471E-03, 0.79144E-03,-0.82287E-03, 0.71433E-03,-0.61848E-03,
     & 0.38707E-03,-0.15926E-03, 0.27447E-04
     & /
       real p35(0:22)
       data p35/
     & 0.10369E+01,-0.14248E+01, 0.44398E+00,-0.82829E-01, 0.19902E-01,
     & 0.59024E-02, 0.33940E-02, 0.13726E-02,-0.17483E-02,-0.14504E-02,
     &-0.36891E-03,-0.96050E-03, 0.61732E-03,-0.21651E-03, 0.45631E-03,
     &-0.47787E-03, 0.85486E-03,-0.89250E-03, 0.77588E-03,-0.66949E-03,
     & 0.42049E-03,-0.17430E-03, 0.30333E-04
     & /
       real p36(0:22)
       data p36/
     & 0.11115E+01,-0.15335E+01, 0.48516E+00,-0.91692E-01, 0.21722E-01,
     & 0.59726E-02, 0.34158E-02, 0.13861E-02,-0.18610E-02,-0.14984E-02,
     &-0.34498E-03,-0.10098E-02, 0.67278E-03,-0.24188E-03, 0.48986E-03,
     &-0.52342E-03, 0.92135E-03,-0.96556E-03, 0.84057E-03,-0.72301E-03,
     & 0.45563E-03,-0.19021E-03, 0.33394E-04
     & /
       real p37(0:22)
       data p37/
     & 0.11891E+01,-0.16469E+01, 0.52858E+00,-0.10119E+00, 0.23666E-01,
     & 0.60239E-02, 0.34325E-02, 0.13993E-02,-0.19765E-02,-0.15459E-02,
     &-0.31858E-03,-0.10611E-02, 0.73069E-03,-0.26903E-03, 0.52502E-03,
     &-0.57140E-03, 0.99097E-03,-0.10421E-02, 0.90847E-03,-0.77911E-03,
     & 0.49254E-03,-0.20700E-03, 0.36635E-04
     & /
       real p38(0:22)
       data p38/
     & 0.12696E+01,-0.17650E+01, 0.57431E+00,-0.11134E+00, 0.25739E-01,
     & 0.60551E-02, 0.34443E-02, 0.14124E-02,-0.20946E-02,-0.15930E-02,
     &-0.28969E-03,-0.11145E-02, 0.79109E-03,-0.29801E-03, 0.56185E-03,
     &-0.62187E-03, 0.10638E-02,-0.11222E-02, 0.97963E-03,-0.83783E-03,
     & 0.53125E-03,-0.22471E-03, 0.40061E-04
     & /
       real p39(0:22)
       data p39/
     & 0.13532E+01,-0.18880E+01, 0.62239E+00,-0.12216E+00, 0.27945E-01,
     & 0.60653E-02, 0.34511E-02, 0.14255E-02,-0.22154E-02,-0.16396E-02,
     &-0.25829E-03,-0.11700E-02, 0.85398E-03,-0.32887E-03, 0.60036E-03,
     &-0.67487E-03, 0.11399E-02,-0.12059E-02, 0.10541E-02,-0.89923E-03,
     & 0.57181E-03,-0.24336E-03, 0.43676E-04
     & /
       real p40(0:22)
       data p40/
     & 0.14401E+01,-0.20162E+01, 0.67313E+00,-0.13375E+00, 0.30281E-01,
     & 0.60534E-02, 0.34508E-02, 0.14393E-02,-0.23384E-02,-0.16855E-02,
     &-0.22433E-03,-0.12282E-02, 0.91927E-03,-0.36195E-03, 0.64063E-03,
     &-0.73062E-03, 0.12195E-02,-0.12935E-02, 0.11323E-02,-0.96358E-03,
     & 0.61443E-03,-0.26303E-03, 0.47469E-04
     & /
       real p41(0:22)
       data p41/
     & 0.15304E+01,-0.21499E+01, 0.72663E+00,-0.14612E+00, 0.32749E-01,
     & 0.60185E-02, 0.34431E-02, 0.14541E-02,-0.24633E-02,-0.17305E-02,
     &-0.18779E-03,-0.12893E-02, 0.98694E-03,-0.39736E-03, 0.68270E-03,
     &-0.78917E-03, 0.13029E-02,-0.13851E-02, 0.12143E-02,-0.10310E-02,
     & 0.65920E-03,-0.28376E-03, 0.51442E-04
     & /
       real p42(0:22)
       data p42/
     & 0.16237E+01,-0.22884E+01, 0.78253E+00,-0.15921E+00, 0.35368E-01,
     & 0.59593E-02, 0.34314E-02, 0.14693E-02,-0.25908E-02,-0.17750E-02,
     &-0.14869E-03,-0.13526E-02, 0.10572E-02,-0.43472E-03, 0.72658E-03,
     &-0.85036E-03, 0.13896E-02,-0.14805E-02, 0.12997E-02,-0.11011E-02,
     & 0.70584E-03,-0.30546E-03, 0.55624E-04
     & /
       real p43(0:22)
       data p43/
     & 0.17200E+01,-0.24319E+01, 0.84088E+00,-0.17304E+00, 0.38142E-01,
     & 0.58750E-02, 0.34160E-02, 0.14849E-02,-0.27209E-02,-0.18189E-02,
     &-0.10704E-03,-0.14181E-02, 0.11301E-02,-0.47406E-03, 0.77230E-03,
     &-0.91421E-03, 0.14797E-02,-0.15796E-02, 0.13886E-02,-0.11741E-02,
     & 0.75440E-03,-0.32817E-03, 0.60020E-04
     & /
       real p44(0:22)
       data p44/
     & 0.18195E+01,-0.25802E+01, 0.90173E+00,-0.18764E+00, 0.41077E-01,
     & 0.57644E-02, 0.33970E-02, 0.15010E-02,-0.28533E-02,-0.18623E-02,
     &-0.62792E-04,-0.14859E-02, 0.12057E-02,-0.51544E-03, 0.81992E-03,
     &-0.98079E-03, 0.15732E-02,-0.16826E-02, 0.14811E-02,-0.12498E-02,
     & 0.80491E-03,-0.35188E-03, 0.64634E-04
     & /
       real p45(0:22)
       data p45/
     & 0.19220E+01,-0.27336E+01, 0.96511E+00,-0.20302E+00, 0.44176E-01,
     & 0.56265E-02, 0.33745E-02, 0.15179E-02,-0.29881E-02,-0.19051E-02,
     &-0.15948E-04,-0.15559E-02, 0.12840E-02,-0.55890E-03, 0.86947E-03,
     &-0.10501E-02, 0.16703E-02,-0.17894E-02, 0.15771E-02,-0.13285E-02,
     & 0.85739E-03,-0.37663E-03, 0.69472E-04
     & /
       real p46(0:22)
       data p46/
     & 0.20277E+01,-0.28920E+01, 0.10311E+01,-0.21920E+00, 0.47446E-01,
     & 0.54603E-02, 0.33487E-02, 0.15356E-02,-0.31253E-02,-0.19472E-02,
     & 0.33512E-04,-0.16284E-02, 0.13650E-02,-0.60448E-03, 0.92099E-03,
     &-0.11223E-02, 0.17710E-02,-0.19002E-02, 0.16768E-02,-0.14100E-02,
     & 0.91187E-03,-0.40243E-03, 0.74538E-04
     & /
       real p47(0:37)
       data p47/
     & 0.21359E+01,-0.30544E+01, 0.10990E+01,-0.23591E+00, 0.51069E-01,
     & 0.44921E-02, 0.45882E-02, 0.25831E-04,-0.18405E-02,-0.30810E-02,
     & 0.82480E-03,-0.19324E-02, 0.10663E-02, 0.14309E-03,-0.97705E-04,
     & 0.13279E-03, 0.57231E-03,-0.10118E-02, 0.93591E-03,-0.72631E-03,
     & 0.59942E-03,-0.59414E-03, 0.30845E-03, 0.29507E-03,-0.63684E-03,
     & 0.42313E-03, 0.14529E-03,-0.67882E-03, 0.73830E-03,-0.68085E-04,
     &-0.78222E-03, 0.11205E-02,-0.10579E-02, 0.10368E-02,-0.10999E-02,
     & 0.88426E-03,-0.33182E-03,-0.17009E-04
     & /
       real p48(0:37)
       data p48/
     & 0.22479E+01,-0.32230E+01, 0.11701E+01,-0.25374E+00, 0.54706E-01,
     & 0.42206E-02, 0.46309E-02,-0.43846E-04,-0.18975E-02,-0.31882E-02,
     & 0.92330E-03,-0.20228E-02, 0.11311E-02, 0.14034E-03,-0.10703E-03,
     & 0.13313E-03, 0.60383E-03,-0.10692E-02, 0.99179E-03,-0.77039E-03,
     & 0.63707E-03,-0.62843E-03, 0.32526E-03, 0.31077E-03,-0.67168E-03,
     & 0.44616E-03, 0.15386E-03,-0.71650E-03, 0.77732E-03,-0.70856E-04,
     &-0.82575E-03, 0.11856E-02,-0.11224E-02, 0.11003E-02,-0.11643E-02,
     & 0.93519E-03,-0.35337E-03,-0.13531E-04
     & /
       real p49(0:37)
       data p49/
     & 0.23631E+01,-0.33968E+01, 0.12440E+01,-0.27244E+00, 0.58528E-01,
     & 0.39160E-02, 0.46732E-02,-0.11536E-03,-0.19537E-02,-0.32971E-02,
     & 0.10260E-02,-0.21162E-02, 0.11979E-02, 0.13699E-03,-0.11660E-03,
     & 0.13326E-03, 0.63642E-03,-0.11284E-02, 0.10496E-02,-0.81609E-03,
     & 0.67610E-03,-0.66387E-03, 0.34258E-03, 0.32695E-03,-0.70757E-03,
     & 0.46987E-03, 0.16276E-03,-0.75536E-03, 0.81746E-03,-0.73633E-04,
     &-0.87069E-03, 0.12530E-02,-0.11893E-02, 0.11661E-02,-0.12308E-02,
     & 0.98784E-03,-0.37580E-03,-0.96978E-05
     & /
       real p50(0:37)
       data p50/
     & 0.24816E+01,-0.35759E+01, 0.13206E+01,-0.29202E+00, 0.62541E-01,
     & 0.35774E-02, 0.47154E-02,-0.18862E-03,-0.20090E-02,-0.34076E-02,
     & 0.11329E-02,-0.22126E-02, 0.12669E-02, 0.13301E-03,-0.12640E-03,
     & 0.13316E-03, 0.67010E-03,-0.11895E-02, 0.11095E-02,-0.86344E-03,
     & 0.71653E-03,-0.70048E-03, 0.36042E-03, 0.34361E-03,-0.74453E-03,
     & 0.49428E-03, 0.17199E-03,-0.79542E-03, 0.85874E-03,-0.76415E-04,
     &-0.91704E-03, 0.13225E-02,-0.12585E-02, 0.12343E-02,-0.12997E-02,
     & 0.10422E-02,-0.39912E-03,-0.54979E-05
     & /
       real p51(0:37)
       data p51/
     & 0.26039E+01,-0.37613E+01, 0.14007E+01,-0.31270E+00, 0.66742E-01,
     & 0.32051E-02, 0.47546E-02,-0.26110E-03,-0.20607E-02,-0.35188E-02,
     & 0.12450E-02,-0.23130E-02, 0.13380E-02, 0.12797E-03,-0.13648E-03,
     & 0.13273E-03, 0.70527E-03,-0.12530E-02, 0.11719E-02,-0.91285E-03,
     & 0.75859E-03,-0.73840E-03, 0.37867E-03, 0.36110E-03,-0.78293E-03,
     & 0.51949E-03, 0.18183E-03,-0.83715E-03, 0.90147E-03,-0.79145E-04,
     &-0.96511E-03, 0.13947E-02,-0.13307E-02, 0.13054E-02,-0.13712E-02,
     & 0.10986E-02,-0.42351E-03,-0.82361E-06
     & /
       real p52(0:37)
       data p52/
     & 0.27295E+01,-0.39521E+01, 0.14836E+01,-0.33430E+00, 0.71144E-01,
     & 0.27966E-02, 0.47940E-02,-0.33514E-03,-0.21114E-02,-0.36316E-02,
     & 0.13613E-02,-0.24165E-02, 0.14113E-02, 0.12226E-03,-0.14678E-03,
     & 0.13207E-03, 0.74157E-03,-0.13185E-02, 0.12364E-02,-0.96397E-03,
     & 0.80209E-03,-0.77751E-03, 0.39746E-03, 0.37908E-03,-0.82242E-03,
     & 0.54540E-03, 0.19201E-03,-0.88010E-03, 0.94536E-03,-0.81873E-04,
     &-0.10146E-02, 0.14693E-02,-0.14054E-02, 0.13790E-02,-0.14451E-02,
     & 0.11569E-02,-0.44882E-03, 0.42409E-05
     & /
       real p53(0:37)
       data p53/
     & 0.28584E+01,-0.41481E+01, 0.15693E+01,-0.35682E+00, 0.75752E-01,
     & 0.23506E-02, 0.48344E-02,-0.41105E-03,-0.21612E-02,-0.37463E-02,
     & 0.14819E-02,-0.25231E-02, 0.14867E-02, 0.11593E-03,-0.15730E-03,
     & 0.13119E-03, 0.77894E-03,-0.13859E-02, 0.13028E-02,-0.10167E-02,
     & 0.84704E-03,-0.81781E-03, 0.41679E-03, 0.39749E-03,-0.86294E-03,
     & 0.57201E-03, 0.20249E-03,-0.92421E-03, 0.99035E-03,-0.84605E-04,
     &-0.10656E-02, 0.15460E-02,-0.14824E-02, 0.14550E-02,-0.15213E-02,
     & 0.12168E-02,-0.47505E-03, 0.96920E-05
     & /
       real p54(0:37)
       data p54/
     & 0.29904E+01,-0.43493E+01, 0.16577E+01,-0.38026E+00, 0.80571E-01,
     & 0.18660E-02, 0.48760E-02,-0.48876E-03,-0.22101E-02,-0.38628E-02,
     & 0.16067E-02,-0.26328E-02, 0.15643E-02, 0.10895E-03,-0.16801E-03,
     & 0.13008E-03, 0.81738E-03,-0.14551E-02, 0.13713E-02,-0.10712E-02,
     & 0.89343E-03,-0.85932E-03, 0.43667E-03, 0.41634E-03,-0.90450E-03,
     & 0.59931E-03, 0.21326E-03,-0.96948E-03, 0.10365E-02,-0.87336E-04,
     &-0.11179E-02, 0.16251E-02,-0.15620E-02, 0.15334E-02,-0.15997E-02,
     & 0.12786E-02,-0.50220E-03, 0.15540E-04
     & /
       real p55(0:37)
       data p55/
     & 0.31257E+01,-0.45559E+01, 0.17490E+01,-0.40465E+00, 0.85607E-01,
     & 0.13418E-02, 0.49190E-02,-0.56823E-03,-0.22581E-02,-0.39813E-02,
     & 0.17357E-02,-0.27457E-02, 0.16440E-02, 0.10132E-03,-0.17892E-03,
     & 0.12874E-03, 0.85692E-03,-0.15262E-02, 0.14417E-02,-0.11274E-02,
     & 0.94130E-03,-0.90205E-03, 0.45712E-03, 0.43562E-03,-0.94709E-03,
     & 0.62732E-03, 0.22434E-03,-0.10159E-02, 0.10837E-02,-0.90066E-04,
     &-0.11717E-02, 0.17064E-02,-0.16439E-02, 0.16142E-02,-0.16805E-02,
     & 0.13421E-02,-0.53029E-03, 0.21796E-04
     & /
       real p56(0:37)
       data p56/
     & 0.32643E+01,-0.47677E+01, 0.18430E+01,-0.43000E+00, 0.90865E-01,
     & 0.77689E-03, 0.49636E-02,-0.64937E-03,-0.23051E-02,-0.41016E-02,
     & 0.18691E-02,-0.28617E-02, 0.17260E-02, 0.93007E-04,-0.19002E-03,
     & 0.12717E-03, 0.89757E-03,-0.15992E-02, 0.15142E-02,-0.11852E-02,
     & 0.99067E-03,-0.94602E-03, 0.47813E-03, 0.45534E-03,-0.99074E-03,
     & 0.65603E-03, 0.23571E-03,-0.10635E-02, 0.11320E-02,-0.92792E-04,
     &-0.12270E-02, 0.17900E-02,-0.17284E-02, 0.16975E-02,-0.17636E-02,
     & 0.14074E-02,-0.55933E-03, 0.28470E-04
     & /
       real p57(0:37)
       data p57/
     & 0.34061E+01,-0.49850E+01, 0.19400E+01,-0.45633E+00, 0.96349E-01,
     & 0.17019E-03, 0.50101E-02,-0.73214E-03,-0.23510E-02,-0.42239E-02,
     & 0.20067E-02,-0.29811E-02, 0.18101E-02, 0.84004E-04,-0.20130E-03,
     & 0.12535E-03, 0.93933E-03,-0.16741E-02, 0.15887E-02,-0.12449E-02,
     & 0.10415E-02,-0.99123E-03, 0.49972E-03, 0.47549E-03,-0.10354E-02,
     & 0.68545E-03, 0.24740E-03,-0.11123E-02, 0.11815E-02,-0.95510E-04,
     &-0.12837E-02, 0.18760E-02,-0.18154E-02, 0.17833E-02,-0.18491E-02,
     & 0.14746E-02,-0.58934E-03, 0.35574E-04
     & /
       real p58(0:37)
       data p58/
     & 0.35513E+01,-0.52076E+01, 0.20399E+01,-0.48365E+00, 0.10206E+00,
     &-0.47938E-03, 0.50586E-02,-0.81646E-03,-0.23958E-02,-0.43482E-02,
     & 0.21486E-02,-0.31037E-02, 0.18964E-02, 0.74291E-04,-0.21276E-03,
     & 0.12330E-03, 0.98221E-03,-0.17509E-02, 0.16652E-02,-0.13063E-02,
     & 0.10939E-02,-0.10377E-02, 0.52189E-03, 0.49608E-03,-0.10812E-02,
     & 0.71558E-03, 0.25939E-03,-0.11623E-02, 0.12321E-02,-0.98219E-04,
     &-0.13419E-02, 0.19643E-02,-0.19050E-02, 0.18717E-02,-0.19369E-02,
     & 0.15436E-02,-0.62033E-03, 0.43117E-04
     & /
       real p59(0:37)
       data p59/
     & 0.36997E+01,-0.54357E+01, 0.21427E+01,-0.51200E+00, 0.10802E+00,
     &-0.11729E-02, 0.51094E-02,-0.90228E-03,-0.24394E-02,-0.44744E-02,
     & 0.22950E-02,-0.32297E-02, 0.19849E-02, 0.63853E-04,-0.22438E-03,
     & 0.12099E-03, 0.10262E-02,-0.18297E-02, 0.17439E-02,-0.13695E-02,
     & 0.11479E-02,-0.10854E-02, 0.54465E-03, 0.51711E-03,-0.11280E-02,
     & 0.74643E-03, 0.27169E-03,-0.12135E-02, 0.12838E-02,-0.10092E-03,
     &-0.14016E-02, 0.20551E-02,-0.19971E-02, 0.19625E-02,-0.20272E-02,
     & 0.16145E-02,-0.65232E-03, 0.51111E-04
     & /
       real p60(0:37)
       data p60/
     & 0.38515E+01,-0.56692E+01, 0.22484E+01,-0.54137E+00, 0.11421E+00,
     &-0.19114E-02, 0.51627E-02,-0.98954E-03,-0.24817E-02,-0.46025E-02,
     & 0.24457E-02,-0.33591E-02, 0.20757E-02, 0.52672E-04,-0.23617E-03,
     & 0.11844E-03, 0.10714E-02,-0.19104E-02, 0.18246E-02,-0.14345E-02,
     & 0.12034E-02,-0.11345E-02, 0.56800E-03, 0.53857E-03,-0.11759E-02,
     & 0.77801E-03, 0.28429E-03,-0.12659E-02, 0.13367E-02,-0.10360E-03,
     &-0.14627E-02, 0.21482E-02,-0.20919E-02, 0.20560E-02,-0.21199E-02,
     & 0.16872E-02,-0.68532E-03, 0.59566E-04
     & /
       real p61(0:37)
       data p61/
     & 0.40067E+01,-0.59082E+01, 0.23572E+01,-0.57180E+00, 0.12065E+00,
     &-0.26961E-02, 0.52187E-02,-0.10782E-02,-0.25226E-02,-0.47327E-02,
     & 0.26008E-02,-0.34920E-02, 0.21687E-02, 0.40732E-04,-0.24812E-03,
     & 0.11562E-03, 0.11177E-02,-0.19931E-02, 0.19075E-02,-0.15013E-02,
     & 0.12605E-02,-0.11848E-02, 0.59195E-03, 0.56047E-03,-0.12248E-02,
     & 0.81031E-03, 0.29722E-03,-0.13194E-02, 0.13907E-02,-0.10627E-03,
     &-0.15254E-02, 0.22438E-02,-0.21893E-02, 0.21521E-02,-0.22151E-02,
     & 0.17619E-02,-0.71934E-03, 0.68493E-04
     & /
       real p62(0:37)
       data p62/
     & 0.41652E+01,-0.61528E+01, 0.24690E+01,-0.60329E+00, 0.12734E+00,
     &-0.35279E-02, 0.52777E-02,-0.11681E-02,-0.25621E-02,-0.48649E-02,
     & 0.27603E-02,-0.36284E-02, 0.22641E-02, 0.28016E-04,-0.26022E-03,
     & 0.11255E-03, 0.11652E-02,-0.20777E-02, 0.19925E-02,-0.15699E-02,
     & 0.13192E-02,-0.12364E-02, 0.61650E-03, 0.58280E-03,-0.12749E-02,
     & 0.84334E-03, 0.31045E-03,-0.13742E-02, 0.14459E-02,-0.10891E-03,
     &-0.15897E-02, 0.23418E-02,-0.22894E-02, 0.22509E-02,-0.23128E-02,
     & 0.18385E-02,-0.75440E-03, 0.77902E-04
     & /
       real p63(0:37)
       data p63/
     & 0.43275E+01,-0.64039E+01, 0.25845E+01,-0.63607E+00, 0.13431E+00,
     &-0.44072E-02, 0.53385E-02,-0.12570E-02,-0.25986E-02,-0.49990E-02,
     & 0.29251E-02,-0.37693E-02, 0.23619E-02, 0.14233E-04,-0.27252E-03,
     & 0.10926E-03, 0.12139E-02,-0.21644E-02, 0.20798E-02,-0.16406E-02,
     & 0.13797E-02,-0.12897E-02, 0.64197E-03, 0.60536E-03,-0.13259E-02,
     & 0.87719E-03, 0.32399E-03,-0.14303E-02, 0.15023E-02,-0.11143E-03,
     &-0.16557E-02, 0.24427E-02,-0.23925E-02, 0.23525E-02,-0.24132E-02,
     & 0.19172E-02,-0.79070E-03, 0.87991E-04
     & /
       real p64(0:37)
       data p64/
     & 0.44937E+01,-0.66611E+01, 0.27034E+01,-0.67011E+00, 0.14155E+00,
     &-0.53353E-02, 0.54016E-02,-0.13454E-02,-0.26323E-02,-0.51349E-02,
     & 0.30950E-02,-0.39145E-02, 0.24621E-02,-0.56536E-06,-0.28500E-03,
     & 0.10575E-03, 0.12639E-02,-0.22530E-02, 0.21692E-02,-0.17133E-02,
     & 0.14420E-02,-0.13445E-02, 0.66828E-03, 0.62820E-03,-0.13781E-02,
     & 0.91184E-03, 0.33783E-03,-0.14877E-02, 0.15599E-02,-0.11385E-03,
     &-0.17236E-02, 0.25464E-02,-0.24986E-02, 0.24571E-02,-0.25163E-02,
     & 0.19980E-02,-0.82821E-03, 0.98725E-04
     & /
       real p65(0:37)
       data p65/
     & 0.46631E+01,-0.69239E+01, 0.28254E+01,-0.70523E+00, 0.14905E+00,
     &-0.63140E-02, 0.54687E-02,-0.14355E-02,-0.26648E-02,-0.52730E-02,
     & 0.32692E-02,-0.40631E-02, 0.25646E-02,-0.16128E-04,-0.29760E-03,
     & 0.10195E-03, 0.13150E-02,-0.23437E-02, 0.22609E-02,-0.17879E-02,
     & 0.15060E-02,-0.14006E-02, 0.69514E-03, 0.65153E-03,-0.14313E-02,
     & 0.94722E-03, 0.35199E-03,-0.15463E-02, 0.16186E-02,-0.11626E-03,
     &-0.17930E-02, 0.26526E-02,-0.26075E-02, 0.25643E-02,-0.26219E-02,
     & 0.20808E-02,-0.86676E-03, 0.10993E-03
     & /
       real p66(0:37)
       data p66/
     & 0.48358E+01,-0.71921E+01, 0.29504E+01,-0.74143E+00, 0.15682E+00,
     &-0.73444E-02, 0.55399E-02,-0.15271E-02,-0.26960E-02,-0.54132E-02,
     & 0.34477E-02,-0.42152E-02, 0.26695E-02,-0.32468E-04,-0.31031E-03,
     & 0.97855E-04, 0.13673E-02,-0.24364E-02, 0.23547E-02,-0.18643E-02,
     & 0.15715E-02,-0.14580E-02, 0.72257E-03, 0.67535E-03,-0.14857E-02,
     & 0.98332E-03, 0.36649E-03,-0.16061E-02, 0.16785E-02,-0.11867E-03,
     &-0.18638E-02, 0.27612E-02,-0.27190E-02, 0.26743E-02,-0.27301E-02,
     & 0.21655E-02,-0.90635E-03, 0.12162E-03
     & /
       real p67(0:37)
       data p67/
     & 0.50119E+01,-0.74658E+01, 0.30785E+01,-0.77874E+00, 0.16486E+00,
     &-0.84275E-02, 0.56155E-02,-0.16203E-02,-0.27258E-02,-0.55556E-02,
     & 0.36306E-02,-0.43709E-02, 0.27766E-02,-0.49598E-04,-0.32313E-03,
     & 0.93462E-04, 0.14208E-02,-0.25312E-02, 0.24508E-02,-0.19427E-02,
     & 0.16387E-02,-0.15167E-02, 0.75055E-03, 0.69965E-03,-0.15411E-02,
     & 0.10202E-02, 0.38131E-03,-0.16671E-02, 0.17396E-02,-0.12108E-03,
     &-0.19362E-02, 0.28722E-02,-0.28332E-02, 0.27869E-02,-0.28408E-02,
     & 0.22521E-02,-0.94701E-03, 0.13379E-03
     & /
       real p68(0:37)
       data p68/
     & 0.51914E+01,-0.77451E+01, 0.32097E+01,-0.81717E+00, 0.17318E+00,
     &-0.95643E-02, 0.56958E-02,-0.17151E-02,-0.27543E-02,-0.57001E-02,
     & 0.38180E-02,-0.45301E-02, 0.28860E-02,-0.67530E-04,-0.33604E-03,
     & 0.88766E-04, 0.14756E-02,-0.26280E-02, 0.25491E-02,-0.20230E-02,
     & 0.17075E-02,-0.15768E-02, 0.77910E-03, 0.72446E-03,-0.15977E-02,
     & 0.10577E-02, 0.39646E-03,-0.17294E-02, 0.18018E-02,-0.12347E-03,
     &-0.20101E-02, 0.29858E-02,-0.29502E-02, 0.29023E-02,-0.29541E-02,
     & 0.23408E-02,-0.98874E-03, 0.14647E-03
     & /
       real p69(0:37)
       data p69/
     & 0.53742E+01,-0.80300E+01, 0.33439E+01,-0.85672E+00, 0.18178E+00,
     &-0.10756E-01, 0.57810E-02,-0.18113E-02,-0.27813E-02,-0.58469E-02,
     & 0.40097E-02,-0.46928E-02, 0.29978E-02,-0.86278E-04,-0.34905E-03,
     & 0.83759E-04, 0.15316E-02,-0.27270E-02, 0.26497E-02,-0.21053E-02,
     & 0.17781E-02,-0.16381E-02, 0.80821E-03, 0.74976E-03,-0.16553E-02,
     & 0.10961E-02, 0.41195E-03,-0.17929E-02, 0.18652E-02,-0.12587E-03,
     &-0.20855E-02, 0.31018E-02,-0.30700E-02, 0.30205E-02,-0.30699E-02,
     & 0.24314E-02,-0.10316E-02, 0.15964E-03
     & /
       real p70(0:37)
       data p70/
     & 0.55604E+01,-0.83204E+01, 0.34813E+01,-0.89743E+00, 0.19067E+00,
     &-0.12004E-01, 0.58714E-02,-0.19091E-02,-0.28068E-02,-0.59958E-02,
     & 0.42059E-02,-0.48592E-02, 0.31119E-02,-0.10585E-03,-0.36214E-03,
     & 0.78439E-04, 0.15889E-02,-0.28280E-02, 0.27525E-02,-0.21895E-02,
     & 0.18502E-02,-0.17008E-02, 0.83789E-03, 0.77556E-03,-0.17141E-02,
     & 0.11351E-02, 0.42778E-03,-0.18576E-02, 0.19298E-02,-0.12825E-03,
     &-0.21625E-02, 0.32204E-02,-0.31926E-02, 0.31415E-02,-0.31884E-02,
     & 0.25241E-02,-0.10755E-02, 0.17333E-03
     & /
       real p71(0:37)
       data p71/
     & 0.57500E+01,-0.86164E+01, 0.36218E+01,-0.93930E+00, 0.19986E+00,
     &-0.13309E-01, 0.59671E-02,-0.20083E-02,-0.28309E-02,-0.61470E-02,
     & 0.44065E-02,-0.50292E-02, 0.32284E-02,-0.12627E-03,-0.37531E-03,
     & 0.72798E-04, 0.16474E-02,-0.29311E-02, 0.28576E-02,-0.22758E-02,
     & 0.19241E-02,-0.17648E-02, 0.86814E-03, 0.80186E-03,-0.17741E-02,
     & 0.11749E-02, 0.44394E-03,-0.19236E-02, 0.19955E-02,-0.13062E-03,
     &-0.22410E-02, 0.33415E-02,-0.33180E-02, 0.32653E-02,-0.33096E-02,
     & 0.26187E-02,-0.11205E-02, 0.18754E-03
     & /
       real p72(0:37)
       data p72/
     & 0.59430E+01,-0.89181E+01, 0.37654E+01,-0.98234E+00, 0.20934E+00,
     &-0.14672E-01, 0.60684E-02,-0.21089E-02,-0.28533E-02,-0.63004E-02,
     & 0.46116E-02,-0.52030E-02, 0.33472E-02,-0.14754E-03,-0.38855E-03,
     & 0.66832E-04, 0.17073E-02,-0.30364E-02, 0.29651E-02,-0.23640E-02,
     & 0.19997E-02,-0.18302E-02, 0.89896E-03, 0.82868E-03,-0.18351E-02,
     & 0.12155E-02, 0.46044E-03,-0.19909E-02, 0.20624E-02,-0.13299E-03,
     &-0.23210E-02, 0.34651E-02,-0.34462E-02, 0.33920E-02,-0.34334E-02,
     & 0.27154E-02,-0.11666E-02, 0.20228E-03
     & /
       real p73(0:37)
       data p73/
     & 0.61393E+01,-0.92254E+01, 0.39123E+01,-0.10266E+01, 0.21912E+00,
     &-0.16094E-01, 0.61756E-02,-0.22109E-02,-0.28742E-02,-0.64561E-02,
     & 0.48211E-02,-0.53804E-02, 0.34685E-02,-0.16968E-03,-0.40185E-03,
     & 0.60536E-04, 0.17684E-02,-0.31438E-02, 0.30748E-02,-0.24543E-02,
     & 0.20771E-02,-0.18969E-02, 0.93035E-03, 0.85600E-03,-0.18974E-02,
     & 0.12568E-02, 0.47729E-03,-0.20595E-02, 0.21306E-02,-0.13534E-03,
     &-0.24026E-02, 0.35913E-02,-0.35773E-02, 0.35215E-02,-0.35599E-02,
     & 0.28142E-02,-0.12139E-02, 0.21755E-03
     & /
       real p74(0:37)
       data p74/
     & 0.63391E+01,-0.95384E+01, 0.40624E+01,-0.10720E+01, 0.22921E+00,
     &-0.17576E-01, 0.62889E-02,-0.23142E-02,-0.28934E-02,-0.66140E-02,
     & 0.50352E-02,-0.55617E-02, 0.35921E-02,-0.19270E-03,-0.41520E-03,
     & 0.53903E-04, 0.18308E-02,-0.32533E-02, 0.31869E-02,-0.25466E-02,
     & 0.21562E-02,-0.19650E-02, 0.96231E-03, 0.88384E-03,-0.19607E-02,
     & 0.12989E-02, 0.49449E-03,-0.21293E-02, 0.21999E-02,-0.13768E-03,
     &-0.24858E-02, 0.37200E-02,-0.37113E-02, 0.36540E-02,-0.36890E-02,
     & 0.29150E-02,-0.12623E-02, 0.23337E-03
     & /
       real p75(0:38)
       data p75/
     & 0.65424E+01,-0.98572E+01, 0.42158E+01,-0.11187E+01, 0.23961E+00,
     &-0.19120E-01, 0.64086E-02,-0.24189E-02,-0.29109E-02,-0.67743E-02,
     & 0.52537E-02,-0.57467E-02, 0.37181E-02,-0.21661E-03,-0.42861E-03,
     & 0.46929E-04, 0.18945E-02,-0.33650E-02, 0.33014E-02,-0.26410E-02,
     & 0.22370E-02,-0.20345E-02, 0.99485E-03, 0.91220E-03,-0.20252E-02,
     & 0.13417E-02, 0.51203E-03,-0.22004E-02, 0.22704E-02,-0.14001E-03,
     &-0.25706E-02, 0.38514E-02,-0.38482E-02, 0.37894E-02,-0.38210E-02,
     & 0.30179E-02,-0.13119E-02, 0.24975E-03,-0.69348E-03
     & /
       real p76(0:38)
       data p76/
     & 0.67490E+01,-0.10182E+02, 0.43724E+01,-0.11666E+01, 0.25033E+00,
     &-0.20727E-01, 0.65348E-02,-0.25249E-02,-0.29267E-02,-0.69370E-02,
     & 0.54768E-02,-0.59356E-02, 0.38466E-02,-0.24142E-03,-0.44206E-03,
     & 0.39609E-04, 0.19595E-02,-0.34790E-02, 0.34183E-02,-0.27375E-02,
     & 0.23196E-02,-0.21054E-02, 0.10280E-02, 0.94108E-03,-0.20909E-02,
     & 0.13853E-02, 0.52992E-03,-0.22727E-02, 0.23421E-02,-0.14232E-03,
     &-0.26569E-02, 0.39854E-02,-0.39881E-02, 0.39277E-02,-0.39556E-02,
     & 0.31230E-02,-0.13626E-02, 0.26668E-03,-0.71866E-03
     & /
       real p77(0:38)
       data p77/
     & 0.69592E+01,-0.10512E+02, 0.45323E+01,-0.12158E+01, 0.26137E+00,
     &-0.22397E-01, 0.66679E-02,-0.26320E-02,-0.29405E-02,-0.71020E-02,
     & 0.57045E-02,-0.61284E-02, 0.39775E-02,-0.26717E-03,-0.45555E-03,
     & 0.31942E-04, 0.20259E-02,-0.35951E-02, 0.35376E-02,-0.28361E-02,
     & 0.24040E-02,-0.21777E-02, 0.10617E-02, 0.97051E-03,-0.21577E-02,
     & 0.14297E-02, 0.54817E-03,-0.23464E-02, 0.24150E-02,-0.14464E-03,
     &-0.27448E-02, 0.41220E-02,-0.41310E-02, 0.40691E-02,-0.40931E-02,
     & 0.32301E-02,-0.14145E-02, 0.28418E-03,-0.74436E-03
     & /
       real p78(0:38)
       data p78/
     & 0.71738E+01,-0.10850E+02, 0.46969E+01,-0.12667E+01, 0.27282E+00,
     &-0.24135E-01, 0.68074E-02,-0.27360E-02,-0.29494E-02,-0.72697E-02,
     & 0.59379E-02,-0.63269E-02, 0.41110E-02,-0.29413E-03,-0.46930E-03,
     & 0.24055E-04, 0.20941E-02,-0.37145E-02, 0.36607E-02,-0.29381E-02,
     & 0.24911E-02,-0.22517E-02, 0.10956E-02, 0.10013E-02,-0.22267E-02,
     & 0.14754E-02, 0.56700E-03,-0.24222E-02, 0.24900E-02,-0.14748E-03,
     &-0.28344E-02, 0.42620E-02,-0.42782E-02, 0.42151E-02,-0.42349E-02,
     & 0.33404E-02,-0.14679E-02, 0.30212E-03,-0.77046E-03
     & /
       real p79(0:38)
       data p79/
     & 0.73918E+01,-0.11193E+02, 0.48647E+01,-0.13190E+01, 0.28460E+00,
     &-0.25939E-01, 0.69542E-02,-0.28418E-02,-0.29568E-02,-0.74397E-02,
     & 0.61757E-02,-0.65291E-02, 0.42469E-02,-0.32200E-03,-0.48304E-03,
     & 0.15790E-04, 0.21636E-02,-0.38360E-02, 0.37861E-02,-0.30421E-02,
     & 0.25799E-02,-0.23271E-02, 0.11302E-02, 0.10326E-02,-0.22968E-02,
     & 0.15218E-02, 0.58617E-03,-0.24992E-02, 0.25662E-02,-0.15024E-03,
     &-0.29255E-02, 0.44045E-02,-0.44282E-02, 0.43640E-02,-0.43793E-02,
     & 0.34526E-02,-0.15224E-02, 0.32066E-03,-0.79711E-03
     & /
       real p80(0:38)
       data p80/
     & 0.76131E+01,-0.11543E+02, 0.50357E+01,-0.13724E+01, 0.29670E+00,
     &-0.27809E-01, 0.71087E-02,-0.29491E-02,-0.29625E-02,-0.76122E-02,
     & 0.64180E-02,-0.67352E-02, 0.43854E-02,-0.35080E-03,-0.49677E-03,
     & 0.71435E-05, 0.22345E-02,-0.39596E-02, 0.39138E-02,-0.31481E-02,
     & 0.26705E-02,-0.24039E-02, 0.11653E-02, 0.10643E-02,-0.23679E-02,
     & 0.15689E-02, 0.60567E-03,-0.25774E-02, 0.26434E-02,-0.15293E-03,
     &-0.30182E-02, 0.45496E-02,-0.45811E-02, 0.45157E-02,-0.45265E-02,
     & 0.35670E-02,-0.15781E-02, 0.33981E-03,-0.82430E-03
     & /
       real p81(0:38)
       data p81/
     & 0.78378E+01,-0.11897E+02, 0.52100E+01,-0.14271E+01, 0.30913E+00,
     &-0.29747E-01, 0.72711E-02,-0.30581E-02,-0.29667E-02,-0.77870E-02,
     & 0.66648E-02,-0.69450E-02, 0.45263E-02,-0.38053E-03,-0.51048E-03,
     &-0.18923E-05, 0.23066E-02,-0.40854E-02, 0.40438E-02,-0.32562E-02,
     & 0.27628E-02,-0.24821E-02, 0.12011E-02, 0.10964E-02,-0.24401E-02,
     & 0.16168E-02, 0.62550E-03,-0.26568E-02, 0.27218E-02,-0.15553E-03,
     &-0.31126E-02, 0.46974E-02,-0.47370E-02, 0.46704E-02,-0.46763E-02,
     & 0.36834E-02,-0.16350E-02, 0.35957E-03,-0.85204E-03
     & /
       real p82(0:38)
       data p82/
     & 0.80659E+01,-0.12258E+02, 0.53875E+01,-0.14830E+01, 0.32190E+00,
     &-0.31753E-01, 0.74415E-02,-0.31688E-02,-0.29692E-02,-0.79643E-02,
     & 0.69160E-02,-0.71587E-02, 0.46696E-02,-0.41122E-03,-0.52417E-03,
     &-0.11323E-04, 0.23801E-02,-0.42133E-02, 0.41762E-02,-0.33663E-02,
     & 0.28569E-02,-0.25617E-02, 0.12376E-02, 0.11290E-02,-0.25134E-02,
     & 0.16654E-02, 0.64567E-03,-0.27374E-02, 0.28013E-02,-0.15806E-03,
     &-0.32086E-02, 0.48478E-02,-0.48958E-02, 0.48279E-02,-0.48287E-02,
     & 0.38019E-02,-0.16931E-02, 0.37996E-03,-0.88033E-03
     & /
       real p83(0:38)
       data p83/
     & 0.82975E+01,-0.12624E+02, 0.55682E+01,-0.15402E+01, 0.33500E+00,
     &-0.33829E-01, 0.76203E-02,-0.32810E-02,-0.29701E-02,-0.81440E-02,
     & 0.71717E-02,-0.73763E-02, 0.48155E-02,-0.44286E-03,-0.53782E-03,
     &-0.21155E-04, 0.24549E-02,-0.43433E-02, 0.43109E-02,-0.34785E-02,
     & 0.29527E-02,-0.26428E-02, 0.12747E-02, 0.11620E-02,-0.25877E-02,
     & 0.17146E-02, 0.66618E-03,-0.28193E-02, 0.28819E-02,-0.16049E-03,
     &-0.33063E-02, 0.50009E-02,-0.50575E-02, 0.49884E-02,-0.49839E-02,
     & 0.39225E-02,-0.17524E-02, 0.40099E-03,-0.90919E-03
     & /
       real p84(0:38)
       data p84/
     & 0.85324E+01,-0.12996E+02, 0.57523E+01,-0.15987E+01, 0.34846E+00,
     &-0.35976E-01, 0.78078E-02,-0.33948E-02,-0.29693E-02,-0.83261E-02,
     & 0.74320E-02,-0.75977E-02, 0.49639E-02,-0.47548E-03,-0.55142E-03,
     &-0.31393E-04, 0.25310E-02,-0.44756E-02, 0.44479E-02,-0.35928E-02,
     & 0.30504E-02,-0.27252E-02, 0.13124E-02, 0.11955E-02,-0.26632E-02,
     & 0.17646E-02, 0.68703E-03,-0.29024E-02, 0.29636E-02,-0.16284E-03,
     &-0.34056E-02, 0.51566E-02,-0.52223E-02, 0.51518E-02,-0.51419E-02,
     & 0.40452E-02,-0.18130E-02, 0.42265E-03,-0.93861E-03
     & /
       real p85(0:38)
       data p85/
     & 0.87707E+01,-0.13373E+02, 0.59397E+01,-0.16585E+01, 0.36226E+00,
     &-0.38194E-01, 0.80040E-02,-0.35103E-02,-0.29667E-02,-0.85107E-02,
     & 0.76967E-02,-0.78231E-02, 0.51148E-02,-0.50907E-03,-0.56497E-03,
     &-0.42045E-04, 0.26085E-02,-0.46100E-02, 0.45873E-02,-0.37091E-02,
     & 0.31498E-02,-0.28091E-02, 0.13507E-02, 0.12293E-02,-0.27396E-02,
     & 0.18154E-02, 0.70822E-03,-0.29868E-02, 0.30465E-02,-0.16508E-03,
     &-0.35066E-02, 0.53150E-02,-0.53900E-02, 0.53182E-02,-0.53025E-02,
     & 0.41700E-02,-0.18747E-02, 0.44497E-03,-0.96860E-03
     & /
       real p86(0:38)
       data p86/
     & 0.90125E+01,-0.13757E+02, 0.61304E+01,-0.17196E+01, 0.37641E+00,
     &-0.40485E-01, 0.82094E-02,-0.36273E-02,-0.29625E-02,-0.86978E-02,
     & 0.79660E-02,-0.80524E-02, 0.52682E-02,-0.54366E-03,-0.57846E-03,
     &-0.53115E-04, 0.26874E-02,-0.47465E-02, 0.47291E-02,-0.38276E-02,
     & 0.32510E-02,-0.28944E-02, 0.13897E-02, 0.12637E-02,-0.28172E-02,
     & 0.18668E-02, 0.72975E-03,-0.30723E-02, 0.31305E-02,-0.16723E-03,
     &-0.36092E-02, 0.54761E-02,-0.55607E-02, 0.54875E-02,-0.54659E-02,
     & 0.42970E-02,-0.19378E-02, 0.46795E-03,-0.99916E-03
     & /
       real p87(0:38)
       data p87/
     & 0.92576E+01,-0.14146E+02, 0.63244E+01,-0.17820E+01, 0.39092E+00,
     &-0.42851E-01, 0.84241E-02,-0.37459E-02,-0.29564E-02,-0.88874E-02,
     & 0.82398E-02,-0.82857E-02, 0.54241E-02,-0.57926E-03,-0.59188E-03,
     &-0.64611E-04, 0.27676E-02,-0.48853E-02, 0.48732E-02,-0.39481E-02,
     & 0.33541E-02,-0.29811E-02, 0.14294E-02, 0.12984E-02,-0.28958E-02,
     & 0.19190E-02, 0.75163E-03,-0.31591E-02, 0.32156E-02,-0.16928E-03,
     &-0.37135E-02, 0.56399E-02,-0.57344E-02, 0.56599E-02,-0.56321E-02,
     & 0.44261E-02,-0.20020E-02, 0.49159E-03,-0.10303E-02
     & /
       real p88(0:38)
       data p88/
     & 0.95062E+01,-0.14540E+02, 0.65218E+01,-0.18458E+01, 0.40580E+00,
     &-0.45291E-01, 0.86483E-02,-0.38661E-02,-0.29486E-02,-0.90795E-02,
     & 0.85182E-02,-0.85230E-02, 0.55827E-02,-0.61587E-03,-0.60522E-03,
     &-0.76538E-04, 0.28493E-02,-0.50263E-02, 0.50198E-02,-0.40708E-02,
     & 0.34590E-02,-0.30693E-02, 0.14697E-02, 0.13336E-02,-0.29755E-02,
     & 0.19719E-02, 0.77384E-03,-0.32471E-02, 0.33018E-02,-0.17121E-03,
     &-0.38196E-02, 0.58065E-02,-0.59112E-02, 0.58352E-02,-0.58010E-02,
     & 0.45573E-02,-0.20676E-02, 0.51591E-03,-0.10620E-02
     & /
       real p89(0:38)
       data p89/
     & 0.97583E+01,-0.14941E+02, 0.67226E+01,-0.19109E+01, 0.42104E+00,
     &-0.47807E-01, 0.88824E-02,-0.39878E-02,-0.29389E-02,-0.92742E-02,
     & 0.88011E-02,-0.87643E-02, 0.57437E-02,-0.65351E-03,-0.61847E-03,
     &-0.88902E-04, 0.29322E-02,-0.51695E-02, 0.51687E-02,-0.41956E-02,
     & 0.35657E-02,-0.31590E-02, 0.15106E-02, 0.13692E-02,-0.30563E-02,
     & 0.20255E-02, 0.79640E-03,-0.33364E-02, 0.33891E-02,-0.17304E-03,
     &-0.39273E-02, 0.59758E-02,-0.60910E-02, 0.60136E-02,-0.59727E-02,
     & 0.46907E-02,-0.21344E-02, 0.54092E-03,-0.10943E-02
     & /
       real p90(0:38)
       data p90/
     & 0.10014E+02,-0.15347E+02, 0.69267E+01,-0.19773E+01, 0.43665E+00,
     &-0.50401E-01, 0.91266E-02,-0.41111E-02,-0.29274E-02,-0.94714E-02,
     & 0.90886E-02,-0.90096E-02, 0.59074E-02,-0.69219E-03,-0.63164E-03,
     &-0.10171E-03, 0.30166E-02,-0.53149E-02, 0.53201E-02,-0.43226E-02,
     & 0.36743E-02,-0.32501E-02, 0.15522E-02, 0.14052E-02,-0.31381E-02,
     & 0.20798E-02, 0.81931E-03,-0.34269E-02, 0.34776E-02,-0.17475E-03,
     &-0.40367E-02, 0.61478E-02,-0.62739E-02, 0.61950E-02,-0.61472E-02,
     & 0.48262E-02,-0.22025E-02, 0.56663E-03,-0.11272E-02
     & /
       real p91(0:38)
       data p91/
     & 0.10273E+02,-0.15759E+02, 0.71343E+01,-0.20451E+01, 0.45264E+00,
     &-0.53073E-01, 0.93811E-02,-0.42360E-02,-0.29140E-02,-0.96712E-02,
     & 0.93806E-02,-0.92591E-02, 0.60737E-02,-0.73191E-03,-0.64469E-03,
     &-0.11497E-03, 0.31024E-02,-0.54625E-02, 0.54739E-02,-0.44517E-02,
     & 0.37848E-02,-0.33427E-02, 0.15945E-02, 0.14417E-02,-0.32211E-02,
     & 0.21348E-02, 0.84256E-03,-0.35186E-02, 0.35672E-02,-0.17635E-03,
     &-0.41478E-02, 0.63226E-02,-0.64599E-02, 0.63795E-02,-0.63245E-02,
     & 0.49640E-02,-0.22719E-02, 0.59304E-03,-0.11607E-02
     & /
       real p92(0:38)
       data p92/
     & 0.10535E+02,-0.16177E+02, 0.73453E+01,-0.21142E+01, 0.46901E+00,
     &-0.55824E-01, 0.96461E-02,-0.43624E-02,-0.28987E-02,-0.98736E-02,
     & 0.96772E-02,-0.95126E-02, 0.62425E-02,-0.77270E-03,-0.65764E-03,
     &-0.12868E-03, 0.31896E-02,-0.56123E-02, 0.56302E-02,-0.45830E-02,
     & 0.38971E-02,-0.34368E-02, 0.16375E-02, 0.14785E-02,-0.33050E-02,
     & 0.21906E-02, 0.86616E-03,-0.36116E-02, 0.36579E-02,-0.17782E-03,
     &-0.42607E-02, 0.65002E-02,-0.66489E-02, 0.65671E-02,-0.65047E-02,
     & 0.51039E-02,-0.23426E-02, 0.62016E-03,-0.11948E-02
     & /
       real p93(0:38)
       data p93/
     & 0.10801E+02,-0.16601E+02, 0.75597E+01,-0.21848E+01, 0.48576E+00,
     &-0.58655E-01, 0.99219E-02,-0.44903E-02,-0.28814E-02,-0.10079E-01,
     & 0.99784E-02,-0.97702E-02, 0.64140E-02,-0.81457E-03,-0.67047E-03,
     &-0.14285E-03, 0.32782E-02,-0.57644E-02, 0.57888E-02,-0.47165E-02,
     & 0.40113E-02,-0.35324E-02, 0.16811E-02, 0.15158E-02,-0.33901E-02,
     & 0.22471E-02, 0.89010E-03,-0.37058E-02, 0.37497E-02,-0.17916E-03,
     &-0.43752E-02, 0.66805E-02,-0.68412E-02, 0.67577E-02,-0.66877E-02,
     & 0.52460E-02,-0.24146E-02, 0.64800E-03,-0.12295E-02
     & /
       real p94(0:38)
       data p94/
     & 0.11070E+02,-0.17031E+02, 0.77777E+01,-0.22568E+01, 0.50291E+00,
     &-0.61569E-01, 0.10209E-01,-0.46195E-02,-0.28621E-02,-0.10286E-01,
     & 0.10284E-01,-0.10032E-01, 0.65882E-02,-0.85756E-03,-0.68314E-03,
     &-0.15752E-03, 0.33683E-02,-0.59188E-02, 0.59500E-02,-0.48522E-02,
     & 0.41274E-02,-0.36295E-02, 0.17254E-02, 0.15535E-02,-0.34762E-02,
     & 0.23043E-02, 0.91440E-03,-0.38012E-02, 0.38427E-02,-0.18034E-03,
     &-0.44916E-02, 0.68638E-02,-0.70366E-02, 0.69515E-02,-0.68736E-02,
     & 0.53904E-02,-0.24880E-02, 0.67662E-03,-0.12649E-02
     & /
       real p95(0:38)
       data p95/
     & 0.11344E+02,-0.17468E+02, 0.80007E+01,-0.23309E+01, 0.52061E+00,
     &-0.64580E-01, 0.10509E-01,-0.47460E-02,-0.28380E-02,-0.10497E-01,
     & 0.10596E-01,-0.10300E-01, 0.67657E-02,-0.90252E-03,-0.69512E-03,
     &-0.17326E-03, 0.34606E-02,-0.60759E-02, 0.61139E-02,-0.49903E-02,
     & 0.42458E-02,-0.37289E-02, 0.17714E-02, 0.15908E-02,-0.35629E-02,
     & 0.23621E-02, 0.93901E-03,-0.38978E-02, 0.39364E-02,-0.18068E-03,
     &-0.46108E-02, 0.70511E-02,-0.72362E-02, 0.71491E-02,-0.70628E-02,
     & 0.55376E-02,-0.25636E-02, 0.70690E-03,-0.13013E-02
     & /
       real p96(0:38)
       data p96/
     & 0.11621E+02,-0.17912E+02, 0.82271E+01,-0.24064E+01, 0.53869E+00,
     &-0.67674E-01, 0.10821E-01,-0.48744E-02,-0.28122E-02,-0.10711E-01,
     & 0.10912E-01,-0.10573E-01, 0.69459E-02,-0.94852E-03,-0.70701E-03,
     &-0.18942E-03, 0.35543E-02,-0.62353E-02, 0.62803E-02,-0.51306E-02,
     & 0.43662E-02,-0.38297E-02, 0.18179E-02, 0.16286E-02,-0.36507E-02,
     & 0.24206E-02, 0.96398E-03,-0.39957E-02, 0.40313E-02,-0.18095E-03,
     &-0.47317E-02, 0.72412E-02,-0.74390E-02, 0.73497E-02,-0.72548E-02,
     & 0.56870E-02,-0.26405E-02, 0.73784E-03,-0.13383E-02
     & /
       real p97(0:38)
       data p97/
     & 0.11902E+02,-0.18361E+02, 0.84569E+01,-0.24833E+01, 0.55716E+00,
     &-0.70851E-01, 0.11145E-01,-0.50047E-02,-0.27846E-02,-0.10927E-01,
     & 0.11232E-01,-0.10849E-01, 0.71286E-02,-0.99555E-03,-0.71879E-03,
     &-0.20602E-03, 0.36494E-02,-0.63969E-02, 0.64491E-02,-0.52732E-02,
     & 0.44884E-02,-0.39319E-02, 0.18650E-02, 0.16669E-02,-0.37396E-02,
     & 0.24798E-02, 0.98930E-03,-0.40947E-02, 0.41273E-02,-0.18114E-03,
     &-0.48543E-02, 0.74340E-02,-0.76448E-02, 0.75535E-02,-0.74497E-02,
     & 0.58385E-02,-0.27186E-02, 0.76945E-03,-0.13758E-02
     & /
       real p98(0:38)
       data p98/
     & 0.12186E+02,-0.18815E+02, 0.86900E+01,-0.25616E+01, 0.57602E+00,
     &-0.74112E-01, 0.11480E-01,-0.51368E-02,-0.27552E-02,-0.11146E-01,
     & 0.11557E-01,-0.11130E-01, 0.73139E-02,-0.10436E-02,-0.73047E-03,
     &-0.22304E-03, 0.37458E-02,-0.65608E-02, 0.66204E-02,-0.54179E-02,
     & 0.46125E-02,-0.40357E-02, 0.19128E-02, 0.17057E-02,-0.38297E-02,
     & 0.25398E-02, 0.10150E-02,-0.41951E-02, 0.42244E-02,-0.18125E-03,
     &-0.49785E-02, 0.76295E-02,-0.78537E-02, 0.77604E-02,-0.76475E-02,
     & 0.59923E-02,-0.27980E-02, 0.80174E-03,-0.14140E-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,  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,  38,  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.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.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.38) 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
            
       sbarct5dlo=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
       sbarct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) sbarct5dlo=0.0
       if (q2.lt.q2min) sbarct5dlo=0.0
       if ( x.gt. xmax) sbarct5dlo=0.0
       if ( x.lt. xmin) sbarct5dlo=0.0
       return
       end
       real function  cbarct5dlo(xin,q2in)
***********************************************************
c  parametrization of cbarct5dlo 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.78787E-01,-0.10374E+00, 0.26191E-01,-0.28310E-02, 0.99390E-03,
     & 0.46382E-03, 0.25547E-03, 0.12561E-03,-0.10100E-03,-0.87794E-04,
     &-0.18070E-04,-0.69559E-04, 0.35070E-04,-0.19082E-04, 0.21508E-04,
     &-0.32969E-04, 0.58663E-04,-0.58608E-04, 0.51962E-04,-0.44747E-04,
     & 0.28843E-04,-0.96213E-05, 0.88580E-06
     & /
       real p16(0:22)
       data p16/
     & 0.88166E-01,-0.11648E+00, 0.29856E-01,-0.33099E-02, 0.11222E-02,
     & 0.50390E-03, 0.27246E-03, 0.13367E-03,-0.11446E-03,-0.96790E-04,
     &-0.18444E-04,-0.77068E-04, 0.40029E-04,-0.21438E-04, 0.24599E-04,
     &-0.37084E-04, 0.66185E-04,-0.65914E-04, 0.58740E-04,-0.50324E-04,
     & 0.32496E-04,-0.11014E-04, 0.95777E-06
     & /
       real p17(0:22)
       data p17/
     & 0.10868E+00,-0.14449E+00, 0.38112E-01,-0.44320E-02, 0.14095E-02,
     & 0.58515E-03, 0.30529E-03, 0.14967E-03,-0.14375E-03,-0.11557E-03,
     &-0.18483E-04,-0.93263E-04, 0.51080E-04,-0.26806E-04, 0.31413E-04,
     &-0.46361E-04, 0.82718E-04,-0.82177E-04, 0.73737E-04,-0.62681E-04,
     & 0.40588E-04,-0.14140E-04, 0.11671E-05
     & /
       real p18(0:22)
       data p18/
     & 0.13162E+00,-0.17608E+00, 0.47725E-01,-0.57785E-02, 0.17332E-02,
     & 0.66571E-03, 0.33272E-03, 0.16359E-03,-0.17659E-03,-0.13489E-03,
     &-0.16973E-04,-0.11086E-03, 0.63686E-04,-0.33290E-04, 0.38861E-04,
     &-0.57387E-04, 0.10112E-03,-0.10098E-03, 0.90665E-04,-0.76771E-04,
     & 0.49764E-04,-0.17728E-04, 0.15575E-05
     & /
       real p19(0:22)
       data p19/
     & 0.15697E+00,-0.21123E+00, 0.58709E-01,-0.73784E-02, 0.21002E-02,
     & 0.74494E-03, 0.35632E-03, 0.17646E-03,-0.21261E-03,-0.15481E-03,
     &-0.14079E-04,-0.12994E-03, 0.77902E-04,-0.40813E-04, 0.47127E-04,
     &-0.70032E-04, 0.12153E-03,-0.12222E-03, 0.10961E-03,-0.92590E-04,
     & 0.60053E-04,-0.21806E-04, 0.20825E-05
     & /
       real p20(0:22)
       data p20/
     & 0.18471E+00,-0.24992E+00, 0.71077E-01,-0.92606E-02, 0.25174E-02,
     & 0.82221E-03, 0.37764E-03, 0.18936E-03,-0.25148E-03,-0.17541E-03,
     &-0.99667E-05,-0.15061E-03, 0.93785E-04,-0.49297E-04, 0.56394E-04,
     &-0.84166E-04, 0.14410E-03,-0.14579E-03, 0.13067E-03,-0.11013E-03,
     & 0.71488E-04,-0.26403E-04, 0.26962E-05
     & /
       real p21(0:22)
       data p21/
     & 0.21489E+00,-0.29225E+00, 0.84901E-01,-0.11448E-01, 0.29883E-02,
     & 0.89636E-03, 0.39624E-03, 0.20223E-03,-0.29316E-03,-0.19656E-03,
     &-0.45091E-05,-0.17288E-03, 0.11141E-03,-0.58795E-04, 0.66712E-04,
     &-0.99857E-04, 0.16891E-03,-0.17180E-03, 0.15392E-03,-0.12947E-03,
     & 0.84116E-04,-0.31547E-04, 0.34046E-05
     & /
       real p22(0:22)
       data p22/
     & 0.24758E+00,-0.33833E+00, 0.10025E+00,-0.13964E-01, 0.35161E-02,
     & 0.96628E-03, 0.41170E-03, 0.21504E-03,-0.33760E-03,-0.21813E-03,
     & 0.24200E-05,-0.19677E-03, 0.13084E-03,-0.69359E-04, 0.78133E-04,
     &-0.11717E-03, 0.19603E-03,-0.20032E-03, 0.17944E-03,-0.15067E-03,
     & 0.97984E-04,-0.37265E-04, 0.42143E-05
     & /
       real p23(0:22)
       data p23/
     & 0.28282E+00,-0.38825E+00, 0.11720E+00,-0.16832E-01, 0.41042E-02,
     & 0.10308E-02, 0.42358E-03, 0.22776E-03,-0.38477E-03,-0.23999E-03,
     & 0.10947E-04,-0.22231E-03, 0.15215E-03,-0.81042E-04, 0.90708E-04,
     &-0.13618E-03, 0.22555E-03,-0.23145E-03, 0.20734E-03,-0.17379E-03,
     & 0.11314E-03,-0.43584E-04, 0.51314E-05
     & /
       real p24(0:22)
       data p24/
     & 0.32087E+00,-0.44251E+00, 0.13602E+00,-0.20089E-01, 0.47457E-02,
     & 0.10865E-02, 0.42654E-03, 0.23830E-03,-0.43518E-03,-0.26158E-03,
     & 0.21838E-04,-0.24940E-03, 0.17570E-03,-0.93925E-04, 0.10455E-03,
     &-0.15702E-03, 0.25768E-03,-0.26540E-03, 0.23784E-03,-0.19903E-03,
     & 0.12976E-03,-0.50548E-04, 0.61438E-05
     & /
       real p25(0:22)
       data p25/
     & 0.36155E+00,-0.50076E+00, 0.15655E+00,-0.23740E-01, 0.54562E-02,
     & 0.11350E-02, 0.42607E-03, 0.24909E-03,-0.48812E-03,-0.28330E-03,
     & 0.34449E-04,-0.27820E-03, 0.20122E-03,-0.10803E-03, 0.11963E-03,
     &-0.17967E-03, 0.29233E-03,-0.30212E-03, 0.27084E-03,-0.22630E-03,
     & 0.14773E-03,-0.58165E-04, 0.72801E-05
     & /
       real p26(0:22)
       data p26/
     & 0.40486E+00,-0.56303E+00, 0.17881E+00,-0.27808E-01, 0.62406E-02,
     & 0.11755E-02, 0.42247E-03, 0.26042E-03,-0.54346E-03,-0.30510E-03,
     & 0.48809E-04,-0.30874E-03, 0.22874E-03,-0.12339E-03, 0.13599E-03,
     &-0.20419E-03, 0.32956E-03,-0.34167E-03, 0.30642E-03,-0.25566E-03,
     & 0.16709E-03,-0.66459E-04, 0.85494E-05
     & /
       real p27(0:22)
       data p27/
     & 0.45086E+00,-0.62940E+00, 0.20287E+00,-0.32315E-01, 0.71028E-02,
     & 0.12070E-02, 0.41560E-03, 0.27236E-03,-0.60114E-03,-0.32688E-03,
     & 0.65008E-04,-0.34105E-03, 0.25832E-03,-0.14007E-03, 0.15369E-03,
     &-0.23063E-03, 0.36943E-03,-0.38415E-03, 0.34463E-03,-0.28716E-03,
     & 0.18788E-03,-0.75458E-04, 0.99590E-05
     & /
       real p28(0:22)
       data p28/
     & 0.49959E+00,-0.69997E+00, 0.22878E+00,-0.37282E-01, 0.80466E-02,
     & 0.12286E-02, 0.40529E-03, 0.28498E-03,-0.66109E-03,-0.34854E-03,
     & 0.83137E-04,-0.37517E-03, 0.29002E-03,-0.15812E-03, 0.17277E-03,
     &-0.25906E-03, 0.41201E-03,-0.42964E-03, 0.38557E-03,-0.32086E-03,
     & 0.21013E-03,-0.85187E-04, 0.11516E-04
     & /
       real p29(0:22)
       data p29/
     & 0.55109E+00,-0.77481E+00, 0.25661E+00,-0.42734E-01, 0.90761E-02,
     & 0.12392E-02, 0.39139E-03, 0.29838E-03,-0.72322E-03,-0.36998E-03,
     & 0.10328E-03,-0.41111E-03, 0.32389E-03,-0.17758E-03, 0.19328E-03,
     &-0.28954E-03, 0.45737E-03,-0.47822E-03, 0.42930E-03,-0.35683E-03,
     & 0.23389E-03,-0.95673E-04, 0.13229E-04
     & /
       real p30(0:22)
       data p30/
     & 0.60552E+00,-0.85423E+00, 0.28654E+00,-0.48695E-01, 0.10182E-01,
     & 0.12379E-02, 0.37154E-03, 0.31278E-03,-0.78663E-03,-0.39003E-03,
     & 0.12645E-03,-0.44849E-03, 0.36032E-03,-0.19851E-03, 0.21537E-03,
     &-0.32228E-03, 0.50571E-03,-0.53023E-03, 0.47606E-03,-0.39523E-03,
     & 0.25921E-03,-0.10700E-03, 0.15124E-04
     & /
       real p31(0:22)
       data p31/
     & 0.66295E+00,-0.93837E+00, 0.31864E+00,-0.55188E-01, 0.11366E-01,
     & 0.12237E-02, 0.34506E-03, 0.32830E-03,-0.85104E-03,-0.40834E-03,
     & 0.15295E-03,-0.48726E-03, 0.39945E-03,-0.22097E-03, 0.23912E-03,
     &-0.35738E-03, 0.55712E-03,-0.58580E-03, 0.52598E-03,-0.43616E-03,
     & 0.28616E-03,-0.11919E-03, 0.17214E-04
     & /
       real p32(0:22)
       data p32/
     & 0.68902E+00,-0.97664E+00, 0.33335E+00,-0.58207E-01, 0.11918E-01,
     & 0.12131E-02, 0.33250E-03, 0.33540E-03,-0.88002E-03,-0.41637E-03,
     & 0.16515E-03,-0.50491E-03, 0.41730E-03,-0.23131E-03, 0.25000E-03,
     &-0.37345E-03, 0.58057E-03,-0.61118E-03, 0.54879E-03,-0.45485E-03,
     & 0.29848E-03,-0.12480E-03, 0.18183E-04
     & /
       real p33(0:22)
       data p33/
     & 0.72322E+00,-0.10269E+01, 0.35278E+00,-0.62231E-01, 0.12654E-01,
     & 0.11954E-02, 0.31557E-03, 0.34476E-03,-0.91782E-03,-0.42664E-03,
     & 0.18130E-03,-0.52812E-03, 0.44077E-03,-0.24500E-03, 0.26438E-03,
     &-0.39465E-03, 0.61146E-03,-0.64460E-03, 0.57885E-03,-0.47947E-03,
     & 0.31472E-03,-0.13220E-03, 0.19472E-04
     & /
       real p34(0:22)
       data p34/
     & 0.78637E+00,-0.11199E+01, 0.38901E+00,-0.69845E-01, 0.14049E-01,
     & 0.11521E-02, 0.28308E-03, 0.36223E-03,-0.98697E-03,-0.44489E-03,
     & 0.21155E-03,-0.57114E-03, 0.48431E-03,-0.27064E-03, 0.29121E-03,
     &-0.43414E-03, 0.66879E-03,-0.70669E-03, 0.63474E-03,-0.52522E-03,
     & 0.34493E-03,-0.14605E-03, 0.21903E-04
     & /
       real p35(0:22)
       data p35/
     & 0.85242E+00,-0.12175E+01, 0.42739E+00,-0.78052E-01, 0.15557E-01,
     & 0.10928E-02, 0.24758E-03, 0.38079E-03,-0.10585E-02,-0.46306E-03,
     & 0.24371E-03,-0.61636E-03, 0.53009E-03,-0.29795E-03, 0.31964E-03,
     &-0.47590E-03, 0.72918E-03,-0.77215E-03, 0.69370E-03,-0.57346E-03,
     & 0.37684E-03,-0.16075E-03, 0.24514E-04
     & /
       real p36(0:22)
       data p36/
     & 0.92141E+00,-0.13197E+01, 0.46796E+00,-0.86874E-01, 0.17183E-01,
     & 0.10164E-02, 0.20906E-03, 0.40049E-03,-0.11323E-02,-0.48112E-03,
     & 0.27781E-03,-0.66384E-03, 0.57817E-03,-0.32697E-03, 0.34971E-03,
     &-0.51999E-03, 0.79269E-03,-0.84102E-03, 0.75582E-03,-0.62424E-03,
     & 0.41047E-03,-0.17633E-03, 0.27310E-04
     & /
       real p37(0:22)
       data p37/
     & 0.99337E+00,-0.14266E+01, 0.51078E+00,-0.96334E-01, 0.18931E-01,
     & 0.92189E-03, 0.16752E-03, 0.42142E-03,-0.12084E-02,-0.49904E-03,
     & 0.31389E-03,-0.71363E-03, 0.62856E-03,-0.35776E-03, 0.38147E-03,
     &-0.56645E-03, 0.85937E-03,-0.91339E-03, 0.82115E-03,-0.67761E-03,
     & 0.44588E-03,-0.19282E-03, 0.30297E-04
     & /
       real p38(0:22)
       data p38/
     & 0.10683E+01,-0.15382E+01, 0.55589E+00,-0.10645E+00, 0.20806E-01,
     & 0.80832E-03, 0.12294E-03, 0.44364E-03,-0.12868E-02,-0.51680E-03,
     & 0.35198E-03,-0.76580E-03, 0.68131E-03,-0.39037E-03, 0.41495E-03,
     &-0.61535E-03, 0.92929E-03,-0.98933E-03, 0.88976E-03,-0.73363E-03,
     & 0.48309E-03,-0.21023E-03, 0.33482E-04
     & /
       real p39(0:22)
       data p39/
     & 0.11464E+01,-0.16547E+01, 0.60336E+00,-0.11725E+00, 0.22813E-01,
     & 0.67466E-03, 0.75334E-04, 0.46723E-03,-0.13675E-02,-0.53436E-03,
     & 0.39210E-03,-0.82038E-03, 0.73645E-03,-0.42484E-03, 0.45019E-03,
     &-0.66672E-03, 0.10025E-02,-0.10689E-02, 0.96172E-03,-0.79234E-03,
     & 0.52215E-03,-0.22859E-03, 0.36870E-04
     & /
       real p40(0:37)
       data p40/
     & 0.12273E+01,-0.17758E+01, 0.65310E+00,-0.12864E+00, 0.25050E-01,
     & 0.75581E-04, 0.75825E-03,-0.39410E-03,-0.62635E-03,-0.11835E-02,
     & 0.85757E-03,-0.10064E-02, 0.57412E-03,-0.45916E-05,-0.13314E-03,
     & 0.47009E-04, 0.32867E-03,-0.57293E-03, 0.55023E-03,-0.41036E-03,
     & 0.34916E-03,-0.34177E-03, 0.17267E-03, 0.16948E-03,-0.37241E-03,
     & 0.24444E-03, 0.83427E-04,-0.39788E-03, 0.43001E-03,-0.41368E-04,
     &-0.44974E-03, 0.64875E-03,-0.61057E-03, 0.59796E-03,-0.63354E-03,
     & 0.51239E-03,-0.19044E-03,-0.91043E-05
     & /
       real p41(0:37)
       data p41/
     & 0.13120E+01,-0.19030E+01, 0.70594E+00,-0.14097E+00, 0.27328E-01,
     &-0.13440E-03, 0.75446E-03,-0.43453E-03,-0.64923E-03,-0.12493E-02,
     & 0.93407E-03,-0.10761E-02, 0.61781E-03,-0.84571E-05,-0.14210E-03,
     & 0.47958E-04, 0.35275E-03,-0.61537E-03, 0.59203E-03,-0.44283E-03,
     & 0.37695E-03,-0.36749E-03, 0.18517E-03, 0.18143E-03,-0.39890E-03,
     & 0.26201E-03, 0.89805E-04,-0.42630E-03, 0.45963E-03,-0.43586E-04,
     &-0.48226E-03, 0.69711E-03,-0.65798E-03, 0.64459E-03,-0.68128E-03,
     & 0.55028E-03,-0.20599E-03,-0.72650E-05
     & /
       real p42(0:37)
       data p42/
     & 0.13997E+01,-0.20350E+01, 0.76119E+00,-0.15404E+00, 0.29755E-01,
     &-0.36905E-03, 0.75093E-03,-0.47610E-03,-0.67160E-03,-0.13170E-02,
     & 0.10141E-02,-0.11486E-02, 0.66337E-03,-0.12762E-04,-0.15127E-03,
     & 0.48796E-04, 0.37781E-03,-0.65951E-03, 0.63558E-03,-0.47675E-03,
     & 0.40597E-03,-0.39426E-03, 0.19816E-03, 0.19381E-03,-0.42636E-03,
     & 0.28024E-03, 0.96457E-04,-0.45580E-03, 0.49032E-03,-0.45838E-04,
     &-0.51606E-03, 0.74748E-03,-0.70750E-03, 0.69329E-03,-0.73103E-03,
     & 0.58973E-03,-0.22230E-03,-0.51520E-05
     & /
       real p43(0:37)
       data p43/
     & 0.14905E+01,-0.21720E+01, 0.81889E+00,-0.16784E+00, 0.32336E-01,
     &-0.62943E-03, 0.74781E-03,-0.51876E-03,-0.69340E-03,-0.13867E-02,
     & 0.10977E-02,-0.12242E-02, 0.71081E-03,-0.17525E-04,-0.16066E-03,
     & 0.49514E-04, 0.40386E-03,-0.70535E-03, 0.68089E-03,-0.51213E-03,
     & 0.43625E-03,-0.42212E-03, 0.21166E-03, 0.20661E-03,-0.45480E-03,
     & 0.29912E-03, 0.10339E-03,-0.48640E-03, 0.52209E-03,-0.48121E-04,
     &-0.55117E-03, 0.79989E-03,-0.75916E-03, 0.74411E-03,-0.78282E-03,
     & 0.63076E-03,-0.23938E-03,-0.27526E-05
     & /
       real p44(0:37)
       data p44/
     & 0.15844E+01,-0.23138E+01, 0.87907E+00,-0.18242E+00, 0.35076E-01,
     &-0.91657E-03, 0.74521E-03,-0.56248E-03,-0.71456E-03,-0.14583E-02,
     & 0.11849E-02,-0.13027E-02, 0.76016E-03,-0.22765E-04,-0.17027E-03,
     & 0.50106E-04, 0.43090E-03,-0.75292E-03, 0.72800E-03,-0.54900E-03,
     & 0.46781E-03,-0.45106E-03, 0.22565E-03, 0.21985E-03,-0.48423E-03,
     & 0.31866E-03, 0.11060E-03,-0.51811E-03, 0.55493E-03,-0.50434E-04,
     &-0.58759E-03, 0.85438E-03,-0.81301E-03, 0.79707E-03,-0.83668E-03,
     & 0.67339E-03,-0.25727E-03,-0.54074E-07
     & /
       real p45(0:37)
       data p45/
     & 0.16815E+01,-0.24607E+01, 0.94178E+00,-0.19778E+00, 0.37981E-01,
     &-0.12315E-02, 0.74327E-03,-0.60722E-03,-0.73502E-03,-0.15319E-02,
     & 0.12758E-02,-0.13842E-02, 0.81146E-03,-0.28500E-04,-0.18008E-03,
     & 0.50565E-04, 0.45896E-03,-0.80224E-03, 0.77692E-03,-0.58739E-03,
     & 0.50066E-03,-0.48111E-03, 0.24016E-03, 0.23352E-03,-0.51466E-03,
     & 0.33886E-03, 0.11810E-03,-0.55093E-03, 0.58887E-03,-0.52773E-04,
     &-0.62535E-03, 0.91097E-03,-0.86907E-03, 0.85221E-03,-0.89263E-03,
     & 0.71764E-03,-0.27596E-03, 0.29562E-05
     & /
       real p46(0:37)
       data p46/
     & 0.17817E+01,-0.26127E+01, 0.10071E+01,-0.21395E+00, 0.41056E-01,
     &-0.15753E-02, 0.74212E-03,-0.65294E-03,-0.75472E-03,-0.16075E-02,
     & 0.13705E-02,-0.14688E-02, 0.86473E-03,-0.34750E-04,-0.19009E-03,
     & 0.50883E-04, 0.48804E-03,-0.85332E-03, 0.82769E-03,-0.62731E-03,
     & 0.53483E-03,-0.51228E-03, 0.25519E-03, 0.24762E-03,-0.54610E-03,
     & 0.35974E-03, 0.12589E-03,-0.58489E-03, 0.62391E-03,-0.55139E-04,
     &-0.66447E-03, 0.96968E-03,-0.92739E-03, 0.90957E-03,-0.95070E-03,
     & 0.76354E-03,-0.29548E-03, 0.62910E-05
     & /
       real p47(0:37)
       data p47/
     & 0.18851E+01,-0.27697E+01, 0.10750E+01,-0.23094E+00, 0.44305E-01,
     &-0.19490E-02, 0.74190E-03,-0.69961E-03,-0.77359E-03,-0.16851E-02,
     & 0.14689E-02,-0.15565E-02, 0.91999E-03,-0.41533E-04,-0.20029E-03,
     & 0.51054E-04, 0.51816E-03,-0.90619E-03, 0.88032E-03,-0.66879E-03,
     & 0.57034E-03,-0.54458E-03, 0.27074E-03, 0.26216E-03,-0.57855E-03,
     & 0.38130E-03, 0.13397E-03,-0.61999E-03, 0.66006E-03,-0.57528E-04,
     &-0.70495E-03, 0.10306E-02,-0.98799E-03, 0.96919E-03,-0.10109E-02,
     & 0.81110E-03,-0.31585E-03, 0.99629E-05
     & /
       real p48(0:37)
       data p48/
     & 0.19916E+01,-0.29320E+01, 0.11455E+01,-0.24878E+00, 0.47733E-01,
     &-0.23537E-02, 0.74273E-03,-0.74719E-03,-0.79156E-03,-0.17646E-02,
     & 0.15711E-02,-0.16474E-02, 0.97728E-03,-0.48868E-04,-0.21069E-03,
     & 0.51068E-04, 0.54934E-03,-0.96087E-03, 0.93484E-03,-0.71185E-03,
     & 0.60721E-03,-0.57803E-03, 0.28681E-03, 0.27715E-03,-0.61202E-03,
     & 0.40353E-03, 0.14235E-03,-0.65624E-03, 0.69733E-03,-0.59938E-04,
     &-0.74681E-03, 0.10936E-02,-0.10509E-02, 0.10311E-02,-0.10733E-02,
     & 0.86036E-03,-0.33708E-03, 0.13985E-04
     & /
       real p49(0:37)
       data p49/
     & 0.21014E+01,-0.30994E+01, 0.12187E+01,-0.26749E+00, 0.51346E-01,
     &-0.27903E-02, 0.74474E-03,-0.79564E-03,-0.80859E-03,-0.18462E-02,
     & 0.16773E-02,-0.17416E-02, 0.10366E-02,-0.56774E-04,-0.22127E-03,
     & 0.50921E-04, 0.58157E-03,-0.10174E-02, 0.99127E-03,-0.75653E-03,
     & 0.64546E-03,-0.61264E-03, 0.30343E-03, 0.29258E-03,-0.64651E-03,
     & 0.42646E-03, 0.15104E-03,-0.69365E-03, 0.73572E-03,-0.62368E-04,
     &-0.79007E-03, 0.11589E-02,-0.11162E-02, 0.10953E-02,-0.11380E-02,
     & 0.91132E-03,-0.35919E-03, 0.18369E-04
     & /
       real p50(0:37)
       data p50/
     & 0.22145E+01,-0.32721E+01, 0.12947E+01,-0.28708E+00, 0.55149E-01,
     &-0.32600E-02, 0.74806E-03,-0.84492E-03,-0.82459E-03,-0.19299E-02,
     & 0.17873E-02,-0.18390E-02, 0.10980E-02,-0.65270E-04,-0.23203E-03,
     & 0.50603E-04, 0.61489E-03,-0.10757E-02, 0.10496E-02,-0.80283E-03,
     & 0.68511E-03,-0.64844E-03, 0.32058E-03, 0.30845E-03,-0.68205E-03,
     & 0.45008E-03, 0.16003E-03,-0.73224E-03, 0.77525E-03,-0.64816E-04,
     &-0.83475E-03, 0.12264E-02,-0.11839E-02, 0.11619E-02,-0.12048E-02,
     & 0.96401E-03,-0.38219E-03, 0.23129E-04
     & /
       real p51(0:37)
       data p51/
     & 0.23314E+01,-0.34511E+01, 0.13741E+01,-0.30778E+00, 0.59142E-01,
     &-0.37611E-02, 0.74818E-03,-0.89356E-03,-0.83813E-03,-0.20152E-02,
     & 0.19030E-02,-0.19407E-02, 0.11622E-02,-0.74692E-04,-0.24308E-03,
     & 0.50133E-04, 0.64931E-03,-0.11361E-02, 0.11101E-02,-0.85094E-03,
     & 0.72637E-03,-0.68570E-03, 0.33852E-03, 0.32471E-03,-0.71874E-03,
     & 0.47451E-03, 0.16940E-03,-0.77227E-03, 0.81615E-03,-0.67268E-04,
     &-0.88120E-03, 0.12968E-02,-0.12546E-02, 0.12313E-02,-0.12742E-02,
     & 0.10187E-02,-0.40631E-03, 0.28524E-04
     & /
       real p52(0:37)
       data p52/
     & 0.24516E+01,-0.36356E+01, 0.14564E+01,-0.32940E+00, 0.63335E-01,
     &-0.42974E-02, 0.74989E-03,-0.94296E-03,-0.85052E-03,-0.21027E-02,
     & 0.20228E-02,-0.20459E-02, 0.12286E-02,-0.84740E-04,-0.25430E-03,
     & 0.49479E-04, 0.68484E-03,-0.11983E-02, 0.11726E-02,-0.90073E-03,
     & 0.76908E-03,-0.72417E-03, 0.35700E-03, 0.34143E-03,-0.75648E-03,
     & 0.49964E-03, 0.17907E-03,-0.81349E-03, 0.85820E-03,-0.69734E-04,
     &-0.92910E-03, 0.13694E-02,-0.13277E-02, 0.13031E-02,-0.13459E-02,
     & 0.10751E-02,-0.43135E-03, 0.34318E-04
     & /
       real p53(0:37)
       data p53/
     & 0.25751E+01,-0.38252E+01, 0.15414E+01,-0.35194E+00, 0.67733E-01,
     &-0.48702E-02, 0.75408E-03,-0.99332E-03,-0.86193E-03,-0.21922E-02,
     & 0.21463E-02,-0.21543E-02, 0.12969E-02,-0.95381E-04,-0.26567E-03,
     & 0.48628E-04, 0.72148E-03,-0.12624E-02, 0.12371E-02,-0.95220E-03,
     & 0.81321E-03,-0.76381E-03, 0.37601E-03, 0.35861E-03,-0.79527E-03,
     & 0.52547E-03, 0.18906E-03,-0.85588E-03, 0.90138E-03,-0.72214E-04,
     &-0.97840E-03, 0.14443E-02,-0.14033E-02, 0.13773E-02,-0.14199E-02,
     & 0.11333E-02,-0.45731E-03, 0.40485E-04
     & /
       real p54(0:37)
       data p54/
     & 0.27018E+01,-0.40201E+01, 0.16292E+01,-0.37541E+00, 0.72342E-01,
     &-0.54807E-02, 0.76094E-03,-0.10446E-02,-0.87232E-03,-0.22839E-02,
     & 0.22738E-02,-0.22659E-02, 0.13674E-02,-0.10663E-03,-0.27718E-03,
     & 0.47574E-04, 0.75925E-03,-0.13284E-02, 0.13036E-02,-0.10054E-02,
     & 0.85879E-03,-0.80464E-03, 0.39554E-03, 0.37626E-03,-0.83510E-03,
     & 0.55198E-03, 0.19937E-03,-0.89944E-03, 0.94568E-03,-0.74705E-04,
     &-0.10291E-02, 0.15215E-02,-0.14813E-02, 0.14539E-02,-0.14962E-02,
     & 0.11932E-02,-0.48418E-03, 0.47034E-04
     & /
       real p55(0:37)
       data p55/
     & 0.28317E+01,-0.42204E+01, 0.17198E+01,-0.39982E+00, 0.77166E-01,
     &-0.61300E-02, 0.77067E-03,-0.10968E-02,-0.88164E-03,-0.23777E-02,
     & 0.24051E-02,-0.23810E-02, 0.14400E-02,-0.11850E-03,-0.28882E-03,
     & 0.46309E-04, 0.79815E-03,-0.13964E-02, 0.13721E-02,-0.10603E-02,
     & 0.90583E-03,-0.84666E-03, 0.41560E-03, 0.39438E-03,-0.87599E-03,
     & 0.57920E-03, 0.20999E-03,-0.94420E-03, 0.99112E-03,-0.77207E-04,
     &-0.10813E-02, 0.16010E-02,-0.15617E-02, 0.15330E-02,-0.15749E-02,
     & 0.12550E-02,-0.51199E-03, 0.53975E-04
     & /
       real p56(0:37)
       data p56/
     & 0.29649E+01,-0.44259E+01, 0.18132E+01,-0.42520E+00, 0.82211E-01,
     &-0.68192E-02, 0.78346E-03,-0.11500E-02,-0.88984E-03,-0.24737E-02,
     & 0.25403E-02,-0.24993E-02, 0.15146E-02,-0.13101E-03,-0.30059E-03,
     & 0.44826E-04, 0.83820E-03,-0.14662E-02, 0.14426E-02,-0.11169E-02,
     & 0.95434E-03,-0.88989E-03, 0.43619E-03, 0.41297E-03,-0.91793E-03,
     & 0.60711E-03, 0.22093E-03,-0.99015E-03, 0.10377E-02,-0.79717E-04,
     &-0.11349E-02, 0.16827E-02,-0.16447E-02, 0.16146E-02,-0.16559E-02,
     & 0.13186E-02,-0.54075E-03, 0.61316E-04
     & /
       real p57(0:37)
       data p57/
     & 0.31014E+01,-0.46368E+01, 0.19095E+01,-0.45157E+00, 0.87482E-01,
     &-0.75492E-02, 0.79949E-03,-0.12040E-02,-0.89688E-03,-0.25719E-02,
     & 0.26795E-02,-0.26211E-02, 0.15914E-02,-0.14417E-03,-0.31247E-03,
     & 0.43116E-04, 0.87942E-03,-0.15381E-02, 0.15152E-02,-0.11753E-02,
     & 0.10044E-02,-0.93434E-03, 0.45731E-03, 0.43203E-03,-0.96095E-03,
     & 0.63573E-03, 0.23220E-03,-0.10373E-02, 0.10854E-02,-0.82234E-04,
     &-0.11899E-02, 0.17668E-02,-0.17303E-02, 0.16987E-02,-0.17393E-02,
     & 0.13840E-02,-0.57047E-03, 0.69068E-04
     & /
       real p58(0:37)
       data p58/
     & 0.32413E+01,-0.48532E+01, 0.20087E+01,-0.47893E+00, 0.92985E-01,
     &-0.83213E-02, 0.81896E-03,-0.12588E-02,-0.90271E-03,-0.26723E-02,
     & 0.28227E-02,-0.27463E-02, 0.16704E-02,-0.15799E-03,-0.32447E-03,
     & 0.41172E-04, 0.92181E-03,-0.16119E-02, 0.15900E-02,-0.12355E-02,
     & 0.10559E-02,-0.98002E-03, 0.47897E-03, 0.45158E-03,-0.10050E-02,
     & 0.66505E-03, 0.24380E-03,-0.10857E-02, 0.11343E-02,-0.84755E-04,
     &-0.12464E-02, 0.18533E-02,-0.18183E-02, 0.17854E-02,-0.18251E-02,
     & 0.14513E-02,-0.60117E-03, 0.77239E-04
     & /
       real p59(0:37)
       data p59/
     & 0.33844E+01,-0.50750E+01, 0.21108E+01,-0.50731E+00, 0.98723E-01,
     &-0.91364E-02, 0.84205E-03,-0.13145E-02,-0.90729E-03,-0.27749E-02,
     & 0.29698E-02,-0.28749E-02, 0.17515E-02,-0.17250E-03,-0.33658E-03,
     & 0.38987E-04, 0.96538E-03,-0.16877E-02, 0.16668E-02,-0.12974E-02,
     & 0.11089E-02,-0.10269E-02, 0.50117E-03, 0.47161E-03,-0.10502E-02,
     & 0.69509E-03, 0.25573E-03,-0.11352E-02, 0.11843E-02,-0.87280E-04,
     &-0.13044E-02, 0.19421E-02,-0.19090E-02, 0.18747E-02,-0.19134E-02,
     & 0.15205E-02,-0.63286E-03, 0.85841E-04
     & /
       real p60(0:37)
       data p60/
     & 0.35309E+01,-0.53022E+01, 0.22159E+01,-0.53673E+00, 0.10470E+00,
     &-0.99957E-02, 0.86897E-03,-0.13711E-02,-0.91056E-03,-0.28798E-02,
     & 0.31211E-02,-0.30071E-02, 0.18349E-02,-0.18770E-03,-0.34879E-03,
     & 0.36553E-04, 0.10102E-02,-0.17655E-02, 0.17458E-02,-0.13613E-02,
     & 0.11635E-02,-0.10751E-02, 0.52392E-03, 0.49212E-03,-0.10965E-02,
     & 0.72585E-03, 0.26799E-03,-0.11860E-02, 0.12355E-02,-0.89805E-04,
     &-0.13639E-02, 0.20333E-02,-0.20023E-02, 0.19666E-02,-0.20041E-02,
     & 0.15916E-02,-0.66554E-03, 0.94881E-04
     & /
       real p61(0:37)
       data p61/
     & 0.36808E+01,-0.55350E+01, 0.23240E+01,-0.56720E+00, 0.11093E+00,
     &-0.10900E-01, 0.89989E-03,-0.14284E-02,-0.91249E-03,-0.29869E-02,
     & 0.32764E-02,-0.31428E-02, 0.19204E-02,-0.20361E-03,-0.36110E-03,
     & 0.33862E-04, 0.10561E-02,-0.18453E-02, 0.18269E-02,-0.14269E-02,
     & 0.12197E-02,-0.11245E-02, 0.54721E-03, 0.51313E-03,-0.11438E-02,
     & 0.75732E-03, 0.28060E-03,-0.12381E-02, 0.12879E-02,-0.92330E-04,
     &-0.14249E-02, 0.21269E-02,-0.20983E-02, 0.20611E-02,-0.20973E-02,
     & 0.16646E-02,-0.69925E-03, 0.10437E-03
     & /
       real p62(0:37)
       data p62/
     & 0.38341E+01,-0.57733E+01, 0.24352E+01,-0.59874E+00, 0.11740E+00,
     &-0.11851E-01, 0.93502E-03,-0.14865E-02,-0.91303E-03,-0.30962E-02,
     & 0.34358E-02,-0.32820E-02, 0.20082E-02,-0.22025E-03,-0.37349E-03,
     & 0.30907E-04, 0.11034E-02,-0.19272E-02, 0.19102E-02,-0.14945E-02,
     & 0.12775E-02,-0.11752E-02, 0.57105E-03, 0.53462E-03,-0.11923E-02,
     & 0.78952E-03, 0.29354E-03,-0.12914E-02, 0.13414E-02,-0.94853E-04,
     &-0.14874E-02, 0.22230E-02,-0.21969E-02, 0.21583E-02,-0.21931E-02,
     & 0.17395E-02,-0.73398E-03, 0.11432E-03
     & /
       real p63(0:37)
       data p63/
     & 0.39912E+01,-0.60181E+01, 0.25500E+01,-0.63158E+00, 0.12416E+00,
     &-0.12849E-01, 0.97309E-03,-0.15445E-02,-0.91115E-03,-0.32076E-02,
     & 0.35998E-02,-0.34253E-02, 0.20984E-02,-0.23785E-03,-0.38585E-03,
     & 0.27510E-04, 0.11521E-02,-0.20115E-02, 0.19962E-02,-0.15642E-02,
     & 0.13370E-02,-0.12273E-02, 0.59540E-03, 0.55672E-03,-0.12419E-02,
     & 0.82248E-03, 0.30693E-03,-0.13461E-02, 0.13962E-02,-0.97414E-04,
     &-0.15515E-02, 0.23218E-02,-0.22987E-02, 0.22586E-02,-0.22919E-02,
     & 0.18167E-02,-0.76989E-03, 0.12476E-03
     & /
       real p64(0:37)
       data p64/
     & 0.41520E+01,-0.62691E+01, 0.26683E+01,-0.66567E+00, 0.13118E+00,
     &-0.13895E-01, 0.10146E-02,-0.16024E-02,-0.90704E-03,-0.33209E-02,
     & 0.37683E-02,-0.35724E-02, 0.21909E-02,-0.25638E-03,-0.39820E-03,
     & 0.23705E-04, 0.12022E-02,-0.20982E-02, 0.20846E-02,-0.16360E-02,
     & 0.13981E-02,-0.12806E-02, 0.62028E-03, 0.57939E-03,-0.12928E-02,
     & 0.85620E-03, 0.32073E-03,-0.14022E-02, 0.14524E-02,-0.10000E-03,
     &-0.16173E-02, 0.24234E-02,-0.24035E-02, 0.23621E-02,-0.23936E-02,
     & 0.18962E-02,-0.80696E-03, 0.13570E-03
     & /
       real p65(0:37)
       data p65/
     & 0.43162E+01,-0.65256E+01, 0.27896E+01,-0.70083E+00, 0.13847E+00,
     &-0.14990E-01, 0.10613E-02,-0.16613E-02,-0.90162E-03,-0.34367E-02,
     & 0.39410E-02,-0.37231E-02, 0.22858E-02,-0.27562E-03,-0.41064E-03,
     & 0.19652E-04, 0.12536E-02,-0.21869E-02, 0.21752E-02,-0.17096E-02,
     & 0.14609E-02,-0.13352E-02, 0.64572E-03, 0.60254E-03,-0.13448E-02,
     & 0.89064E-03, 0.33487E-03,-0.14595E-02, 0.15097E-02,-0.10257E-03,
     &-0.16846E-02, 0.25274E-02,-0.25110E-02, 0.24682E-02,-0.24978E-02,
     & 0.19776E-02,-0.84507E-03, 0.14711E-03
     & /
       real p66(0:37)
       data p66/
     & 0.44837E+01,-0.67876E+01, 0.29139E+01,-0.73709E+00, 0.14602E+00,
     &-0.16136E-01, 0.11133E-02,-0.17211E-02,-0.89486E-03,-0.35549E-02,
     & 0.41177E-02,-0.38775E-02, 0.23829E-02,-0.29560E-03,-0.42317E-03,
     & 0.15344E-04, 0.13062E-02,-0.22776E-02, 0.22680E-02,-0.17852E-02,
     & 0.15254E-02,-0.13912E-02, 0.67174E-03, 0.62617E-03,-0.13978E-02,
     & 0.92582E-03, 0.34934E-03,-0.15181E-02, 0.15682E-02,-0.10512E-03,
     &-0.17534E-02, 0.26338E-02,-0.26211E-02, 0.25771E-02,-0.26045E-02,
     & 0.20609E-02,-0.88423E-03, 0.15902E-03
     & /
       real p67(0:37)
       data p67/
     & 0.46546E+01,-0.70551E+01, 0.30413E+01,-0.77446E+00, 0.15385E+00,
     &-0.17335E-01, 0.11708E-02,-0.17819E-02,-0.88673E-03,-0.36755E-02,
     & 0.42986E-02,-0.40355E-02, 0.24823E-02,-0.31631E-03,-0.43578E-03,
     & 0.10778E-04, 0.13600E-02,-0.23704E-02, 0.23630E-02,-0.18627E-02,
     & 0.15914E-02,-0.14484E-02, 0.69833E-03, 0.65028E-03,-0.14520E-02,
     & 0.96173E-03, 0.36415E-03,-0.15779E-02, 0.16279E-02,-0.10765E-03,
     &-0.18237E-02, 0.27427E-02,-0.27341E-02, 0.26886E-02,-0.27138E-02,
     & 0.21461E-02,-0.92446E-03, 0.17143E-03
     & /
       real p68(0:37)
       data p68/
     & 0.48288E+01,-0.73281E+01, 0.31718E+01,-0.81294E+00, 0.16196E+00,
     &-0.18586E-01, 0.12340E-02,-0.18436E-02,-0.87720E-03,-0.37986E-02,
     & 0.44837E-02,-0.41973E-02, 0.25840E-02,-0.33778E-03,-0.44848E-03,
     & 0.59468E-05, 0.14150E-02,-0.24653E-02, 0.24602E-02,-0.19421E-02,
     & 0.16591E-02,-0.15070E-02, 0.72549E-03, 0.67488E-03,-0.15072E-02,
     & 0.99837E-03, 0.37929E-03,-0.16390E-02, 0.16887E-02,-0.11015E-03,
     &-0.18956E-02, 0.28541E-02,-0.28497E-02, 0.28028E-02,-0.28256E-02,
     & 0.22334E-02,-0.96576E-03, 0.18435E-03
     & /
       real p69(0:38)
       data p69/
     & 0.50065E+01,-0.76068E+01, 0.33053E+01,-0.85256E+00, 0.17034E+00,
     &-0.19891E-01, 0.13032E-02,-0.19062E-02,-0.86623E-03,-0.39241E-02,
     & 0.46730E-02,-0.43627E-02, 0.26880E-02,-0.36001E-03,-0.46124E-03,
     & 0.84631E-06, 0.14713E-02,-0.25622E-02, 0.25596E-02,-0.20235E-02,
     & 0.17285E-02,-0.15670E-02, 0.75324E-03, 0.69997E-03,-0.15636E-02,
     & 0.10358E-02, 0.39478E-03,-0.17013E-02, 0.17506E-02,-0.11263E-03,
     &-0.19691E-02, 0.29681E-02,-0.29682E-02, 0.29199E-02,-0.29399E-02,
     & 0.23226E-02,-0.10082E-02, 0.19778E-03,-0.53474E-03
     & /
       real p70(0:38)
       data p70/
     & 0.51875E+01,-0.78910E+01, 0.34420E+01,-0.89333E+00, 0.17902E+00,
     &-0.21251E-01, 0.13785E-02,-0.19697E-02,-0.85379E-03,-0.40522E-02,
     & 0.48664E-02,-0.45320E-02, 0.27944E-02,-0.38302E-03,-0.47408E-03,
     &-0.45290E-05, 0.15288E-02,-0.26612E-02, 0.26613E-02,-0.21069E-02,
     & 0.17996E-02,-0.16283E-02, 0.78158E-03, 0.72555E-03,-0.16211E-02,
     & 0.10739E-02, 0.41062E-03,-0.17648E-02, 0.18138E-02,-0.11507E-03,
     &-0.20441E-02, 0.30845E-02,-0.30894E-02, 0.30397E-02,-0.30569E-02,
     & 0.24138E-02,-0.10516E-02, 0.21174E-03,-0.55649E-03
     & /
       real p71(0:38)
       data p71/
     & 0.53718E+01,-0.81808E+01, 0.35818E+01,-0.93527E+00, 0.18799E+00,
     &-0.22667E-01, 0.14602E-02,-0.20342E-02,-0.83985E-03,-0.41827E-02,
     & 0.50642E-02,-0.47050E-02, 0.29031E-02,-0.40681E-03,-0.48698E-03,
     &-0.10184E-04, 0.15875E-02,-0.27622E-02, 0.27652E-02,-0.21922E-02,
     & 0.18724E-02,-0.16909E-02, 0.81050E-03, 0.75162E-03,-0.16797E-02,
     & 0.11127E-02, 0.42680E-03,-0.18297E-02, 0.18781E-02,-0.11749E-03,
     &-0.21207E-02, 0.32036E-02,-0.32135E-02, 0.31623E-02,-0.31765E-02,
     & 0.25070E-02,-0.10963E-02, 0.22624E-03,-0.57875E-03
     & /
       real p72(0:38)
       data p72/
     & 0.55596E+01,-0.84763E+01, 0.37248E+01,-0.97838E+00, 0.19725E+00,
     &-0.24140E-01, 0.15484E-02,-0.20995E-02,-0.82438E-03,-0.43158E-02,
     & 0.52662E-02,-0.48818E-02, 0.30143E-02,-0.43140E-03,-0.49993E-03,
     &-0.16125E-04, 0.16476E-02,-0.28654E-02, 0.28715E-02,-0.22796E-02,
     & 0.19470E-02,-0.17549E-02, 0.84002E-03, 0.77818E-03,-0.17395E-02,
     & 0.11524E-02, 0.44333E-03,-0.18958E-02, 0.19436E-02,-0.11987E-03,
     &-0.21989E-02, 0.33252E-02,-0.33404E-02, 0.32877E-02,-0.32987E-02,
     & 0.26022E-02,-0.11420E-02, 0.24128E-03,-0.60151E-03
     & /
       real p73(0:38)
       data p73/
     & 0.57509E+01,-0.87775E+01, 0.38710E+01,-0.10227E+01, 0.20682E+00,
     &-0.25672E-01, 0.16435E-02,-0.21658E-02,-0.80734E-03,-0.44515E-02,
     & 0.54725E-02,-0.50625E-02, 0.31278E-02,-0.45680E-03,-0.51294E-03,
     &-0.22356E-04, 0.17089E-02,-0.29707E-02, 0.29800E-02,-0.23690E-02,
     & 0.20232E-02,-0.18203E-02, 0.87013E-03, 0.80524E-03,-0.18004E-02,
     & 0.11927E-02, 0.46021E-03,-0.19632E-02, 0.20103E-02,-0.12221E-03,
     &-0.22787E-02, 0.34493E-02,-0.34702E-02, 0.34160E-02,-0.34236E-02,
     & 0.26995E-02,-0.11888E-02, 0.25688E-03,-0.62479E-03
     & /
       real p74(0:38)
       data p74/
     & 0.59455E+01,-0.90843E+01, 0.40204E+01,-0.10682E+01, 0.21669E+00,
     &-0.27263E-01, 0.17455E-02,-0.22329E-02,-0.78871E-03,-0.45898E-02,
     & 0.56831E-02,-0.52471E-02, 0.32438E-02,-0.48303E-03,-0.52600E-03,
     &-0.28882E-04, 0.17715E-02,-0.30782E-02, 0.30909E-02,-0.24604E-02,
     & 0.21012E-02,-0.18871E-02, 0.90085E-03, 0.83279E-03,-0.18624E-02,
     & 0.12339E-02, 0.47744E-03,-0.20318E-02, 0.20782E-02,-0.12451E-03,
     &-0.23601E-02, 0.35761E-02,-0.36029E-02, 0.35471E-02,-0.35511E-02,
     & 0.27988E-02,-0.12369E-02, 0.27304E-03,-0.64859E-03
     & /
       real p75(0:38)
       data p75/
     & 0.61436E+01,-0.93969E+01, 0.41731E+01,-0.11149E+01, 0.22687E+00,
     &-0.28915E-01, 0.18548E-02,-0.23009E-02,-0.76845E-03,-0.47306E-02,
     & 0.58980E-02,-0.54357E-02, 0.33622E-02,-0.51008E-03,-0.53910E-03,
     &-0.35709E-04, 0.18354E-02,-0.31877E-02, 0.32040E-02,-0.25539E-02,
     & 0.21810E-02,-0.19553E-02, 0.93216E-03, 0.86085E-03,-0.19255E-02,
     & 0.12757E-02, 0.49503E-03,-0.21017E-02, 0.21472E-02,-0.12677E-03,
     &-0.24431E-02, 0.37055E-02,-0.37385E-02, 0.36812E-02,-0.36814E-02,
     & 0.29002E-02,-0.12860E-02, 0.28978E-03,-0.67291E-03
     & /
       real p76(0:38)
       data p76/
     & 0.63451E+01,-0.97152E+01, 0.43290E+01,-0.11629E+01, 0.23737E+00,
     &-0.30628E-01, 0.19715E-02,-0.23698E-02,-0.74652E-03,-0.48741E-02,
     & 0.61174E-02,-0.56281E-02, 0.34830E-02,-0.53798E-03,-0.55225E-03,
     &-0.42843E-04, 0.19006E-02,-0.32995E-02, 0.33196E-02,-0.26495E-02,
     & 0.22626E-02,-0.20249E-02, 0.96408E-03, 0.88940E-03,-0.19898E-02,
     & 0.13184E-02, 0.51298E-03,-0.21730E-02, 0.22175E-02,-0.12899E-03,
     &-0.25278E-02, 0.38376E-02,-0.38770E-02, 0.38182E-02,-0.38143E-02,
     & 0.30037E-02,-0.13364E-02, 0.30709E-03,-0.69775E-03
     & /
       real p77(0:38)
       data p77/
     & 0.65502E+01,-0.10039E+02, 0.44882E+01,-0.12122E+01, 0.24820E+00,
     &-0.32404E-01, 0.20957E-02,-0.24395E-02,-0.72283E-03,-0.50203E-02,
     & 0.63411E-02,-0.58247E-02, 0.36064E-02,-0.56674E-03,-0.56544E-03,
     &-0.50281E-04, 0.19671E-02,-0.34134E-02, 0.34375E-02,-0.27472E-02,
     & 0.23460E-02,-0.20960E-02, 0.99662E-03, 0.91847E-03,-0.20553E-02,
     & 0.13618E-02, 0.53130E-03,-0.22455E-02, 0.22890E-02,-0.13116E-03,
     &-0.26141E-02, 0.39724E-02,-0.40186E-02, 0.39582E-02,-0.39500E-02,
     & 0.31092E-02,-0.13879E-02, 0.32501E-03,-0.72312E-03
     & /
       real p78(0:38)
       data p78/
     & 0.67596E+01,-0.10371E+02, 0.46521E+01,-0.12632E+01, 0.25943E+00,
     &-0.34246E-01, 0.22251E-02,-0.25072E-02,-0.69516E-03,-0.51699E-02,
     & 0.65713E-02,-0.60270E-02, 0.37329E-02,-0.59641E-03,-0.57915E-03,
     &-0.57857E-04, 0.20352E-02,-0.35301E-02, 0.35586E-02,-0.28480E-02,
     & 0.24321E-02,-0.21691E-02, 0.10299E-02, 0.94843E-03,-0.21227E-02,
     & 0.14064E-02, 0.55031E-03,-0.23203E-02, 0.23623E-02,-0.13329E-03,
     &-0.27026E-02, 0.41108E-02,-0.41644E-02, 0.41022E-02,-0.40893E-02,
     & 0.32175E-02,-0.14411E-02, 0.34379E-03,-0.74902E-03
     & /
       real p79(0:38)
       data p79/
     & 0.69725E+01,-0.10708E+02, 0.48192E+01,-0.13155E+01, 0.27099E+00,
     &-0.36153E-01, 0.23628E-02,-0.25760E-02,-0.66598E-03,-0.53222E-02,
     & 0.68056E-02,-0.62333E-02, 0.38619E-02,-0.62696E-03,-0.59283E-03,
     &-0.65773E-04, 0.21046E-02,-0.36489E-02, 0.36820E-02,-0.29508E-02,
     & 0.25200E-02,-0.22436E-02, 0.10638E-02, 0.97886E-03,-0.21911E-02,
     & 0.14518E-02, 0.56965E-03,-0.23962E-02, 0.24367E-02,-0.13537E-03,
     &-0.27927E-02, 0.42519E-02,-0.43130E-02, 0.42492E-02,-0.42313E-02,
     & 0.33279E-02,-0.14954E-02, 0.36315E-03,-0.77545E-03
     & /
       real p80(0:38)
       data p80/
     & 0.71887E+01,-0.11051E+02, 0.49895E+01,-0.13690E+01, 0.28287E+00,
     &-0.38125E-01, 0.25091E-02,-0.26460E-02,-0.63524E-03,-0.54771E-02,
     & 0.70442E-02,-0.64434E-02, 0.39933E-02,-0.65839E-03,-0.60648E-03,
     &-0.74036E-04, 0.21753E-02,-0.37698E-02, 0.38077E-02,-0.30556E-02,
     & 0.26096E-02,-0.23195E-02, 0.10983E-02, 0.10098E-02,-0.22606E-02,
     & 0.14979E-02, 0.58933E-03,-0.24733E-02, 0.25123E-02,-0.13740E-03,
     &-0.28845E-02, 0.43956E-02,-0.44646E-02, 0.43990E-02,-0.43760E-02,
     & 0.34403E-02,-0.15509E-02, 0.38311E-03,-0.80243E-03
     & /
       real p81(0:38)
       data p81/
     & 0.74083E+01,-0.11400E+02, 0.51631E+01,-0.14238E+01, 0.29509E+00,
     &-0.40164E-01, 0.26641E-02,-0.27171E-02,-0.60295E-03,-0.56346E-02,
     & 0.72871E-02,-0.66574E-02, 0.41271E-02,-0.69072E-03,-0.62008E-03,
     &-0.82651E-04, 0.22473E-02,-0.38929E-02, 0.39358E-02,-0.31625E-02,
     & 0.27010E-02,-0.23968E-02, 0.11335E-02, 0.10411E-02,-0.23312E-02,
     & 0.15447E-02, 0.60933E-03,-0.25517E-02, 0.25890E-02,-0.13936E-03,
     &-0.29778E-02, 0.45419E-02,-0.46191E-02, 0.45518E-02,-0.45234E-02,
     & 0.35548E-02,-0.16076E-02, 0.40366E-03,-0.82996E-03
     & /
       real p82(0:38)
       data p82/
     & 0.76313E+01,-0.11754E+02, 0.53399E+01,-0.14799E+01, 0.30764E+00,
     &-0.42271E-01, 0.28282E-02,-0.27895E-02,-0.56906E-03,-0.57948E-02,
     & 0.75343E-02,-0.68753E-02, 0.42635E-02,-0.72396E-03,-0.63364E-03,
     &-0.91625E-04, 0.23206E-02,-0.40182E-02, 0.40662E-02,-0.32715E-02,
     & 0.27942E-02,-0.24754E-02, 0.11692E-02, 0.10729E-02,-0.24029E-02,
     & 0.15922E-02, 0.62967E-03,-0.26313E-02, 0.26668E-02,-0.14127E-03,
     &-0.30728E-02, 0.46908E-02,-0.47766E-02, 0.47075E-02,-0.46735E-02,
     & 0.36715E-02,-0.16655E-02, 0.42481E-03,-0.85804E-03
     & /
       real p83(0:38)
       data p83/
     & 0.78578E+01,-0.12114E+02, 0.55200E+01,-0.15372E+01, 0.32053E+00,
     &-0.44447E-01, 0.30015E-02,-0.28631E-02,-0.53357E-03,-0.59576E-02,
     & 0.77858E-02,-0.70972E-02, 0.44023E-02,-0.75811E-03,-0.64714E-03,
     &-0.10096E-03, 0.23953E-02,-0.41457E-02, 0.41991E-02,-0.33826E-02,
     & 0.28891E-02,-0.25555E-02, 0.12055E-02, 0.11052E-02,-0.24757E-02,
     & 0.16405E-02, 0.65034E-03,-0.27122E-02, 0.27458E-02,-0.14312E-03,
     &-0.31694E-02, 0.48424E-02,-0.49369E-02, 0.48661E-02,-0.48264E-02,
     & 0.37902E-02,-0.17245E-02, 0.44658E-03,-0.88667E-03
     & /
       real p84(0:38)
       data p84/
     & 0.80876E+01,-0.12480E+02, 0.57033E+01,-0.15957E+01, 0.33377E+00,
     &-0.46693E-01, 0.31843E-02,-0.29379E-02,-0.49646E-03,-0.61231E-02,
     & 0.80416E-02,-0.73230E-02, 0.45437E-02,-0.79319E-03,-0.66057E-03,
     &-0.11067E-03, 0.24713E-02,-0.42753E-02, 0.43343E-02,-0.34958E-02,
     & 0.29859E-02,-0.26370E-02, 0.12425E-02, 0.11380E-02,-0.25496E-02,
     & 0.16895E-02, 0.67134E-03,-0.27942E-02, 0.28259E-02,-0.14490E-03,
     &-0.32676E-02, 0.49966E-02,-0.51003E-02, 0.50278E-02,-0.49820E-02,
     & 0.39110E-02,-0.17848E-02, 0.46897E-03,-0.91587E-03
     & /
       real p85(0:38)
       data p85/
     & 0.83209E+01,-0.12852E+02, 0.58900E+01,-0.16556E+01, 0.34735E+00,
     &-0.49010E-01, 0.33767E-02,-0.30139E-02,-0.45770E-03,-0.62914E-02,
     & 0.83017E-02,-0.75528E-02, 0.46876E-02,-0.82921E-03,-0.67394E-03,
     &-0.12076E-03, 0.25487E-02,-0.44072E-02, 0.44719E-02,-0.36111E-02,
     & 0.30844E-02,-0.27200E-02, 0.12801E-02, 0.11712E-02,-0.26245E-02,
     & 0.17392E-02, 0.69267E-03,-0.28775E-02, 0.29072E-02,-0.14661E-03,
     &-0.33674E-02, 0.51535E-02,-0.52667E-02, 0.51924E-02,-0.51404E-02,
     & 0.40340E-02,-0.18463E-02, 0.49200E-03,-0.94564E-03
     & /
       real p86(0:38)
       data p86/
     & 0.85576E+01,-0.13229E+02, 0.60800E+01,-0.17168E+01, 0.36129E+00,
     &-0.51398E-01, 0.35790E-02,-0.30911E-02,-0.41728E-03,-0.64623E-02,
     & 0.85662E-02,-0.77866E-02, 0.48339E-02,-0.86619E-03,-0.68722E-03,
     &-0.13123E-03, 0.26274E-02,-0.45412E-02, 0.46119E-02,-0.37286E-02,
     & 0.31848E-02,-0.28043E-02, 0.13183E-02, 0.12049E-02,-0.27006E-02,
     & 0.17897E-02, 0.71434E-03,-0.29620E-02, 0.29896E-02,-0.14826E-03,
     &-0.34689E-02, 0.53130E-02,-0.54360E-02, 0.53600E-02,-0.53015E-02,
     & 0.41591E-02,-0.19091E-02, 0.51565E-03,-0.97597E-03
     & /
       real p87(0:38)
       data p87/
     & 0.87977E+01,-0.13612E+02, 0.62733E+01,-0.17793E+01, 0.37558E+00,
     &-0.53860E-01, 0.37915E-02,-0.31696E-02,-0.37516E-03,-0.66360E-02,
     & 0.88351E-02,-0.80245E-02, 0.49829E-02,-0.90412E-03,-0.70042E-03,
     &-0.14209E-03, 0.27075E-02,-0.46775E-02, 0.47543E-02,-0.38482E-02,
     & 0.32870E-02,-0.28901E-02, 0.13571E-02, 0.12390E-02,-0.27778E-02,
     & 0.18409E-02, 0.73634E-03,-0.30478E-02, 0.30732E-02,-0.14983E-03,
     &-0.35720E-02, 0.54753E-02,-0.56084E-02, 0.55306E-02,-0.54655E-02,
     & 0.42864E-02,-0.19730E-02, 0.53995E-03,-0.10069E-02
     & /
       real p88(0:38)
       data p88/
     & 0.90413E+01,-0.14000E+02, 0.64700E+01,-0.18431E+01, 0.39024E+00,
     &-0.56397E-01, 0.40144E-02,-0.32493E-02,-0.33134E-03,-0.68124E-02,
     & 0.91083E-02,-0.82663E-02, 0.51344E-02,-0.94304E-03,-0.71352E-03,
     &-0.15334E-03, 0.27890E-02,-0.48160E-02, 0.48992E-02,-0.39700E-02,
     & 0.33911E-02,-0.29773E-02, 0.13966E-02, 0.12737E-02,-0.28560E-02,
     & 0.18928E-02, 0.75867E-03,-0.31348E-02, 0.31578E-02,-0.15133E-03,
     &-0.36768E-02, 0.56402E-02,-0.57839E-02, 0.57043E-02,-0.56323E-02,
     & 0.44158E-02,-0.20383E-02, 0.56491E-03,-0.10384E-02
     & /
       real p89(0:38)
       data p89/
     & 0.92882E+01,-0.14395E+02, 0.66700E+01,-0.19083E+01, 0.40526E+00,
     &-0.59008E-01, 0.42478E-02,-0.33303E-02,-0.28580E-03,-0.69917E-02,
     & 0.93859E-02,-0.85123E-02, 0.52885E-02,-0.98293E-03,-0.72652E-03,
     &-0.16500E-03, 0.28718E-02,-0.49567E-02, 0.50465E-02,-0.40940E-02,
     & 0.34970E-02,-0.30660E-02, 0.14366E-02, 0.13087E-02,-0.29354E-02,
     & 0.19455E-02, 0.78134E-03,-0.32230E-02, 0.32437E-02,-0.15275E-03,
     &-0.37832E-02, 0.58079E-02,-0.59624E-02, 0.58810E-02,-0.58019E-02,
     & 0.45474E-02,-0.21047E-02, 0.59052E-03,-0.10704E-02
     & /
       real p90(0:38)
       data p90/
     & 0.95387E+01,-0.14795E+02, 0.68735E+01,-0.19749E+01, 0.42066E+00,
     &-0.61696E-01, 0.44920E-02,-0.34126E-02,-0.23851E-03,-0.71737E-02,
     & 0.96679E-02,-0.87623E-02, 0.54451E-02,-0.10238E-02,-0.73942E-03,
     &-0.17706E-03, 0.29560E-02,-0.50997E-02, 0.51962E-02,-0.42201E-02,
     & 0.36048E-02,-0.31562E-02, 0.14774E-02, 0.13443E-02,-0.30158E-02,
     & 0.19989E-02, 0.80435E-03,-0.33125E-02, 0.33306E-02,-0.15410E-03,
     &-0.38913E-02, 0.59782E-02,-0.61440E-02, 0.60608E-02,-0.59743E-02,
     & 0.46812E-02,-0.21725E-02, 0.61681E-03,-0.11031E-02
     & /
       real p91(0:38)
       data p91/
     & 0.97926E+01,-0.15201E+02, 0.70803E+01,-0.20427E+01, 0.43643E+00,
     &-0.64462E-01, 0.47473E-02,-0.34961E-02,-0.18945E-03,-0.73585E-02,
     & 0.99543E-02,-0.90165E-02, 0.56044E-02,-0.10657E-02,-0.75219E-03,
     &-0.18954E-03, 0.30416E-02,-0.52450E-02, 0.53485E-02,-0.43485E-02,
     & 0.37145E-02,-0.32478E-02, 0.15187E-02, 0.13803E-02,-0.30974E-02,
     & 0.20530E-02, 0.82769E-03,-0.34032E-02, 0.34187E-02,-0.15536E-03,
     &-0.40011E-02, 0.61514E-02,-0.63286E-02, 0.62438E-02,-0.61496E-02,
     & 0.48172E-02,-0.22415E-02, 0.64377E-03,-0.11363E-02
     & /
       real p92(0:38)
       data p92/
     & 0.10050E+02,-0.15613E+02, 0.72906E+01,-0.21120E+01, 0.45257E+00,
     &-0.67306E-01, 0.50138E-02,-0.35810E-02,-0.13860E-03,-0.75461E-02,
     & 0.10245E-01,-0.92747E-02, 0.57663E-02,-0.11086E-02,-0.76484E-03,
     &-0.20244E-03, 0.31286E-02,-0.53925E-02, 0.55032E-02,-0.44791E-02,
     & 0.38260E-02,-0.33408E-02, 0.15607E-02, 0.14168E-02,-0.31801E-02,
     & 0.21079E-02, 0.85136E-03,-0.34951E-02, 0.35080E-02,-0.15654E-03,
     &-0.41126E-02, 0.63272E-02,-0.65164E-02, 0.64298E-02,-0.63278E-02,
     & 0.49554E-02,-0.23118E-02, 0.67141E-03,-0.11702E-02
     & /
       real p93(0:38)
       data p93/
     & 0.10311E+02,-0.16031E+02, 0.75043E+01,-0.21827E+01, 0.46911E+00,
     &-0.70229E-01, 0.52918E-02,-0.36671E-02,-0.85951E-04,-0.77365E-02,
     & 0.10540E-01,-0.95371E-02, 0.59308E-02,-0.11526E-02,-0.77736E-03,
     &-0.21577E-03, 0.32170E-02,-0.55423E-02, 0.56605E-02,-0.46119E-02,
     & 0.39395E-02,-0.34354E-02, 0.16033E-02, 0.14537E-02,-0.32638E-02,
     & 0.21635E-02, 0.87538E-03,-0.35883E-02, 0.35983E-02,-0.15763E-03,
     &-0.42257E-02, 0.65059E-02,-0.67073E-02, 0.66189E-02,-0.65089E-02,
     & 0.50958E-02,-0.23834E-02, 0.69974E-03,-0.12046E-02
     & /
       real p94(0:38)
       data p94/
     & 0.10575E+02,-0.16454E+02, 0.77215E+01,-0.22548E+01, 0.48604E+00,
     &-0.73234E-01, 0.55815E-02,-0.37544E-02,-0.31378E-04,-0.79299E-02,
     & 0.10840E-01,-0.98038E-02, 0.60979E-02,-0.11976E-02,-0.78973E-03,
     &-0.22953E-03, 0.33069E-02,-0.56944E-02, 0.58203E-02,-0.47470E-02,
     & 0.40549E-02,-0.35315E-02, 0.16466E-02, 0.14911E-02,-0.33487E-02,
     & 0.22199E-02, 0.89973E-03,-0.36827E-02, 0.36899E-02,-0.15864E-03,
     &-0.43406E-02, 0.66873E-02,-0.69014E-02, 0.68113E-02,-0.66929E-02,
     & 0.52385E-02,-0.24564E-02, 0.72880E-03,-0.12397E-02
     & /
       real p95(0:38)
       data p95/
     & 0.10844E+02,-0.16886E+02, 0.79439E+01,-0.23290E+01, 0.50352E+00,
     &-0.76336E-01, 0.58837E-02,-0.38403E-02, 0.26937E-04,-0.81270E-02,
     & 0.11146E-01,-0.10076E-01, 0.62684E-02,-0.12441E-02,-0.80190E-03,
     &-0.24386E-03, 0.33988E-02,-0.58500E-02, 0.59839E-02,-0.48853E-02,
     & 0.41729E-02,-0.36294E-02, 0.16907E-02, 0.15291E-02,-0.34348E-02,
     & 0.22771E-02, 0.92440E-03,-0.37784E-02, 0.37827E-02,-0.15956E-03,
     &-0.44576E-02, 0.68725E-02,-0.71000E-02, 0.70082E-02,-0.68811E-02,
     & 0.53843E-02,-0.25312E-02, 0.75893E-03,-0.12758E-02
     & /
       real p96(0:38)
       data p96/
     & 0.11116E+02,-0.17323E+02, 0.81695E+01,-0.24046E+01, 0.52139E+00,
     &-0.79519E-01, 0.61979E-02,-0.39277E-02, 0.86950E-04,-0.83270E-02,
     & 0.11456E-01,-0.10353E-01, 0.64415E-02,-0.12916E-02,-0.81392E-03,
     &-0.25863E-03, 0.34920E-02,-0.60077E-02, 0.61499E-02,-0.50259E-02,
     & 0.42927E-02,-0.37289E-02, 0.17353E-02, 0.15675E-02,-0.35219E-02,
     & 0.23350E-02, 0.94942E-03,-0.38754E-02, 0.38767E-02,-0.16039E-03,
     &-0.45762E-02, 0.70604E-02,-0.73016E-02, 0.72082E-02,-0.70721E-02,
     & 0.55323E-02,-0.26072E-02, 0.78975E-03,-0.13124E-02
     & /
       real p97(0:38)
       data p97/
     & 0.11392E+02,-0.17766E+02, 0.83986E+01,-0.24816E+01, 0.53964E+00,
     &-0.82785E-01, 0.65245E-02,-0.40167E-02, 0.14868E-03,-0.85297E-02,
     & 0.11771E-01,-0.10633E-01, 0.66172E-02,-0.13402E-02,-0.82578E-03,
     &-0.27383E-03, 0.35867E-02,-0.61677E-02, 0.63183E-02,-0.51686E-02,
     & 0.44145E-02,-0.38298E-02, 0.17807E-02, 0.16063E-02,-0.36102E-02,
     & 0.23936E-02, 0.97478E-03,-0.39737E-02, 0.39717E-02,-0.16113E-03,
     &-0.46965E-02, 0.72510E-02,-0.75062E-02, 0.74112E-02,-0.72659E-02,
     & 0.56825E-02,-0.26845E-02, 0.82125E-03,-0.13496E-02
     & /
       real p98(0:38)
       data p98/
     & 0.11671E+02,-0.18215E+02, 0.86310E+01,-0.25600E+01, 0.55829E+00,
     &-0.86134E-01, 0.68637E-02,-0.41074E-02, 0.21213E-03,-0.87353E-02,
     & 0.12089E-01,-0.10918E-01, 0.67955E-02,-0.13898E-02,-0.83748E-03,
     &-0.28948E-03, 0.36827E-02,-0.63299E-02, 0.64892E-02,-0.53135E-02,
     & 0.45381E-02,-0.39321E-02, 0.18266E-02, 0.16457E-02,-0.36996E-02,
     & 0.24530E-02, 0.10005E-02,-0.40731E-02, 0.40679E-02,-0.16176E-03,
     &-0.48185E-02, 0.74443E-02,-0.77140E-02, 0.76174E-02,-0.74626E-02,
     & 0.58349E-02,-0.27632E-02, 0.85345E-03,-0.13874E-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,  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
     &,  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.37) param(i,40) = p40(i)
             if (i.le.37) param(i,41) = p41(i)
             if (i.le.37) param(i,42) = p42(i)
             if (i.le.37) 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.38) param(i,69) = p69(i)
             if (i.le.38) param(i,70) = p70(i)
             if (i.le.38) param(i,71) = p71(i)
             if (i.le.38) param(i,72) = p72(i)
             if (i.le.38) param(i,73) = p73(i)
             if (i.le.38) param(i,74) = p74(i)
             if (i.le.38) 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
            
       cbarct5dlo=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
       cbarct5dlo=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) cbarct5dlo=0.0
       if (q2.lt.q2min) cbarct5dlo=0.0
       if ( x.gt. xmax) cbarct5dlo=0.0
       if ( x.lt. xmin) cbarct5dlo=0.0
       return
       end
       real function  bbarct5dlo(xin,q2in)
***********************************************************
c  parametrization of bbarct5dlo from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    47000.000 >= q2 >=      26.668
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=     26.668,q2max=  47000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /     26.668
     &,     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 p33(0:37)
       data p33/
     & 0.90974E+01,-0.13540E+02, 0.54622E+01,-0.12070E+01, 0.20717E+00,
     &-0.13373E-01, 0.17529E-02,-0.25062E-02,-0.19632E-02,-0.71065E-02,
     & 0.76928E-02,-0.77386E-02, 0.43874E-02,-0.46839E-03,-0.11706E-02,
     & 0.80424E-04, 0.24706E-02,-0.44246E-02, 0.43002E-02,-0.32545E-02,
     & 0.28781E-02,-0.25641E-02, 0.13192E-02, 0.13512E-02,-0.27860E-02,
     & 0.18637E-02, 0.66782E-03,-0.30907E-02, 0.32193E-02,-0.34929E-03,
     &-0.34395E-02, 0.50361E-02,-0.49239E-02, 0.48033E-02,-0.49838E-02,
     & 0.40211E-02,-0.15863E-02, 0.15179E-03
     & /
       real p34(0:37)
       data p34/
     & 0.13400E+02,-0.19974E+02, 0.80997E+01,-0.18076E+01, 0.31193E+00,
     &-0.21412E-01, 0.25405E-02,-0.37014E-02,-0.27812E-02,-0.10428E-01,
     & 0.11413E-01,-0.11422E-01, 0.65016E-02,-0.70783E-03,-0.17042E-02,
     & 0.10951E-03, 0.36549E-02,-0.65388E-02, 0.63603E-02,-0.48311E-02,
     & 0.42613E-02,-0.37992E-02, 0.19453E-02, 0.19877E-02,-0.41080E-02,
     & 0.27504E-02, 0.99013E-03,-0.45543E-02, 0.47431E-02,-0.50553E-03,
     &-0.50767E-02, 0.74468E-02,-0.72953E-02, 0.71162E-02,-0.73742E-02,
     & 0.59408E-02,-0.23597E-02, 0.24296E-03
     & /
       real p35(0:37)
       data p35/
     & 0.18004E+02,-0.26875E+02, 0.10954E+02,-0.24682E+01, 0.42813E+00,
     &-0.31053E-01, 0.33581E-02,-0.49860E-02,-0.35895E-02,-0.13957E-01,
     & 0.15444E-01,-0.15376E-01, 0.87874E-02,-0.97487E-03,-0.22628E-02,
     & 0.13521E-03, 0.49314E-02,-0.88139E-02, 0.85805E-02,-0.65405E-02,
     & 0.57547E-02,-0.51343E-02, 0.26166E-02, 0.26671E-02,-0.55250E-02,
     & 0.37023E-02, 0.13389E-02,-0.61213E-02, 0.63740E-02,-0.66726E-03,
     &-0.68348E-02, 0.10044E-01,-0.98584E-02, 0.96157E-02,-0.99519E-02,
     & 0.80057E-02,-0.32011E-02, 0.35227E-03
     & /
       real p36(0:37)
       data p36/
     & 0.22911E+02,-0.34250E+02, 0.14031E+02,-0.31910E+01, 0.55625E+00,
     &-0.42403E-01, 0.42037E-02,-0.63616E-02,-0.43820E-02,-0.17695E-01,
     & 0.19791E-01,-0.19606E-01, 0.11249E-01,-0.12707E-02,-0.28457E-02,
     & 0.15700E-03, 0.63020E-02,-0.11253E-01, 0.10964E-01,-0.83861E-02,
     & 0.73603E-02,-0.65714E-02, 0.33336E-02, 0.33898E-02,-0.70384E-02,
     & 0.47203E-02, 0.17147E-02,-0.77928E-02, 0.81133E-02,-0.83406E-03,
     &-0.87156E-02, 0.12830E-01,-0.12617E-01, 0.12306E-01,-0.12721E-01,
     & 0.10218E-01,-0.41125E-02, 0.48092E-03
     & /
       real p37(0:37)
       data p37/
     & 0.28125E+02,-0.42105E+02, 0.17336E+02,-0.39782E+01, 0.69675E+00,
     &-0.55569E-01, 0.50755E-02,-0.78296E-02,-0.51528E-02,-0.21641E-01,
     & 0.24464E-01,-0.24116E-01, 0.13889E-01,-0.15967E-02,-0.34521E-02,
     & 0.17437E-03, 0.77684E-02,-0.13858E-01, 0.13513E-01,-0.10371E-01,
     & 0.90807E-02,-0.81129E-02, 0.40969E-02, 0.41560E-02,-0.86491E-02,
     & 0.58053E-02, 0.21182E-02,-0.95701E-02, 0.99620E-02,-0.10055E-02,
     &-0.10721E-01, 0.15809E-01,-0.15576E-01, 0.15191E-01,-0.15684E-01,
     & 0.12580E-01,-0.50958E-02, 0.63013E-03
     & /
       real p38(0:37)
       data p38/
     & 0.33649E+02,-0.50447E+02, 0.20872E+02,-0.48320E+01, 0.85012E+00,
     &-0.70658E-01, 0.59715E-02,-0.93913E-02,-0.58959E-02,-0.25795E-01,
     & 0.29469E-01,-0.28908E-01, 0.16712E-01,-0.19539E-02,-0.40811E-02,
     & 0.18683E-03, 0.93325E-02,-0.16632E-01, 0.16231E-01,-0.12499E-01,
     & 0.10918E-01,-0.97608E-02, 0.49070E-02, 0.49660E-02,-0.10359E-01,
     & 0.69584E-02, 0.25500E-02,-0.11454E-01, 0.11921E-01,-0.11812E-02,
     &-0.12852E-01, 0.18984E-01,-0.18740E-01, 0.18275E-01,-0.18845E-01,
     & 0.15095E-01,-0.61530E-02, 0.80111E-03
     & /
       real p39(0:37)
       data p39/
     & 0.39486E+02,-0.59282E+02, 0.24646E+02,-0.57545E+01, 0.10168E+01,
     &-0.87777E-01, 0.68899E-02,-0.11048E-01,-0.66054E-02,-0.30157E-01,
     & 0.34814E-01,-0.33989E-01, 0.19722E-01,-0.23437E-02,-0.47320E-02,
     & 0.19385E-03, 0.10996E-01,-0.19579E-01, 0.19121E-01,-0.14773E-01,
     & 0.12874E-01,-0.11518E-01, 0.57645E-02, 0.58201E-02,-0.12168E-01,
     & 0.81804E-02, 0.30106E-02,-0.13446E-01, 0.13993E-01,-0.13607E-02,
     &-0.15112E-01, 0.22359E-01,-0.22112E-01, 0.21562E-01,-0.22209E-01,
     & 0.17764E-01,-0.72859E-02, 0.99506E-03
     & /
       real p40(0:37)
       data p40/
     & 0.45660E+02,-0.68656E+02, 0.28688E+02,-0.67531E+01, 0.11966E+01,
     &-0.10704E+00, 0.75389E-02,-0.12870E-01,-0.72717E-02,-0.34715E-01,
     & 0.40557E-01,-0.39362E-01, 0.22953E-01,-0.27504E-02,-0.53884E-02,
     & 0.21041E-03, 0.12781E-01,-0.22709E-01, 0.22204E-01,-0.17215E-01,
     & 0.14955E-01,-0.13408E-01, 0.66641E-02, 0.67089E-02,-0.14096E-01,
     & 0.94748E-02, 0.34997E-02,-0.15552E-01, 0.16188E-01,-0.15346E-02,
     &-0.17500E-01, 0.25960E-01,-0.25704E-01, 0.25076E-01,-0.25789E-01,
     & 0.20601E-01,-0.85066E-02, 0.12106E-02
     & /
       real p41(0:37)
       data p41/
     & 0.52177E+02,-0.78582E+02, 0.33006E+02,-0.78309E+01, 0.13899E+01,
     &-0.12855E+00, 0.78616E-02,-0.14873E-01,-0.78903E-02,-0.39470E-01,
     & 0.46714E-01,-0.45033E-01, 0.26413E-01,-0.31714E-02,-0.60451E-02,
     & 0.24086E-03, 0.14696E-01,-0.26027E-01, 0.25486E-01,-0.19831E-01,
     & 0.17161E-01,-0.15439E-01, 0.76036E-02, 0.76290E-02,-0.16149E-01,
     & 0.10841E-01, 0.40159E-02,-0.17773E-01, 0.18510E-01,-0.17002E-02,
     &-0.20019E-01, 0.29799E-01,-0.29521E-01, 0.28828E-01,-0.29591E-01,
     & 0.23609E-01,-0.98189E-02, 0.14475E-02
     & /
       real p42(0:37)
       data p42/
     & 0.59009E+02,-0.89004E+02, 0.37567E+02,-0.89820E+01, 0.15981E+01,
     &-0.15241E+00, 0.83110E-02,-0.16953E-01,-0.84634E-02,-0.44442E-01,
     & 0.53209E-01,-0.51005E-01, 0.30061E-01,-0.36335E-02,-0.67241E-02,
     & 0.26247E-03, 0.16712E-01,-0.29516E-01, 0.28945E-01,-0.22594E-01,
     & 0.19493E-01,-0.17579E-01, 0.85915E-02, 0.85937E-02,-0.18304E-01,
     & 0.12274E-01, 0.45602E-02,-0.20106E-01, 0.20943E-01,-0.18700E-02,
     &-0.22668E-01, 0.33842E-01,-0.33551E-01, 0.32792E-01,-0.33598E-01,
     & 0.26778E-01,-0.11209E-01, 0.17104E-02
     & /
       real p43(0:37)
       data p43/
     & 0.66157E+02,-0.99928E+02, 0.42375E+02,-0.10208E+02, 0.18220E+01,
     &-0.17873E+00, 0.88968E-02,-0.19109E-01,-0.89856E-02,-0.49632E-01,
     & 0.60050E-01,-0.57282E-01, 0.33897E-01,-0.41383E-02,-0.74250E-02,
     & 0.27444E-03, 0.18831E-01,-0.33181E-01, 0.32585E-01,-0.25507E-01,
     & 0.21953E-01,-0.19828E-01, 0.96282E-02, 0.96035E-02,-0.20560E-01,
     & 0.13774E-01, 0.51328E-02,-0.22551E-01, 0.23488E-01,-0.20440E-02,
     &-0.25449E-01, 0.38093E-01,-0.37799E-01, 0.36970E-01,-0.37814E-01,
     & 0.30109E-01,-0.12677E-01, 0.20004E-02
     & /
       real p44(0:37)
       data p44/
     & 0.73623E+02,-0.11136E+03, 0.47435E+02,-0.11512E+02, 0.20619E+01,
     &-0.20762E+00, 0.96286E-02,-0.21340E-01,-0.94514E-02,-0.55040E-01,
     & 0.67240E-01,-0.63866E-01, 0.37925E-01,-0.46877E-02,-0.81473E-02,
     & 0.27594E-03, 0.21053E-01,-0.37022E-01, 0.36408E-01,-0.28571E-01,
     & 0.24542E-01,-0.22188E-01, 0.10714E-01, 0.10659E-01,-0.22919E-01,
     & 0.15341E-01, 0.57342E-02,-0.25110E-01, 0.26145E-01,-0.22219E-02,
     &-0.28363E-01, 0.42554E-01,-0.42267E-01, 0.41366E-01,-0.42240E-01,
     & 0.33604E-01,-0.14227E-01, 0.23186E-02
     & /
       real p45(0:37)
       data p45/
     & 0.81410E+02,-0.12330E+03, 0.52750E+02,-0.12895E+02, 0.23183E+01,
     &-0.23918E+00, 0.10515E-01,-0.23646E-01,-0.98570E-02,-0.60669E-01,
     & 0.74784E-01,-0.70765E-01, 0.42146E-01,-0.52839E-02,-0.88905E-02,
     & 0.26690E-03, 0.23381E-01,-0.41040E-01, 0.40418E-01,-0.31789E-01,
     & 0.27264E-01,-0.24659E-01, 0.11851E-01, 0.11759E-01,-0.25382E-01,
     & 0.16976E-01, 0.63634E-02,-0.27786E-01, 0.28913E-01,-0.24051E-02,
     &-0.31413E-01, 0.47228E-01,-0.46958E-01, 0.45985E-01,-0.46880E-01,
     & 0.37266E-01,-0.15856E-01, 0.26680E-02
     & /
       real p46(0:37)
       data p46/
     & 0.89520E+02,-0.13575E+03, 0.58324E+02,-0.14359E+02, 0.25919E+01,
     &-0.27351E+00, 0.11567E-01,-0.26026E-01,-0.10196E-01,-0.66519E-01,
     & 0.82687E-01,-0.77981E-01, 0.46564E-01,-0.59285E-02,-0.96542E-02,
     & 0.24624E-03, 0.25816E-01,-0.45238E-01, 0.44618E-01,-0.35162E-01,
     & 0.30121E-01,-0.27244E-01, 0.13039E-01, 0.12906E-01,-0.27950E-01,
     & 0.18679E-01, 0.70212E-02,-0.30579E-01, 0.31795E-01,-0.25927E-02,
     &-0.34600E-01, 0.52117E-01,-0.51878E-01, 0.50831E-01,-0.51736E-01,
     & 0.41099E-01,-0.17569E-01, 0.30491E-02
     & /
       real p47(0:37)
       data p47/
     & 0.97956E+02,-0.14873E+03, 0.64161E+02,-0.15906E+02, 0.28830E+01,
     &-0.31073E+00, 0.12793E-01,-0.28478E-01,-0.10464E-01,-0.72591E-01,
     & 0.90955E-01,-0.85518E-01, 0.51181E-01,-0.66233E-02,-0.10438E-01,
     & 0.21306E-03, 0.28360E-01,-0.49618E-01, 0.49008E-01,-0.38694E-01,
     & 0.33114E-01,-0.29943E-01, 0.14278E-01, 0.14100E-01,-0.30623E-01,
     & 0.20450E-01, 0.77082E-02,-0.33490E-01, 0.34789E-01,-0.27845E-02,
     &-0.37926E-01, 0.57225E-01,-0.57029E-01, 0.55905E-01,-0.56811E-01,
     & 0.45102E-01,-0.19365E-01, 0.34630E-02
     & /
       real p48(0:37)
       data p48/
     & 0.10672E+03,-0.16223E+03, 0.70266E+02,-0.17538E+02, 0.31921E+01,
     &-0.35095E+00, 0.14203E-01,-0.31002E-01,-0.10654E-01,-0.78886E-01,
     & 0.99592E-01,-0.93381E-01, 0.56000E-01,-0.73699E-02,-0.11241E-01,
     & 0.16658E-03, 0.31013E-01,-0.54182E-01, 0.53593E-01,-0.42386E-01,
     & 0.36247E-01,-0.32758E-01, 0.15569E-01, 0.15340E-01,-0.33403E-01,
     & 0.22290E-01, 0.84248E-02,-0.36521E-01, 0.37898E-01,-0.29804E-02,
     &-0.41392E-01, 0.62553E-01,-0.62414E-01, 0.61212E-01,-0.62109E-01,
     & 0.49279E-01,-0.21247E-01, 0.39108E-02
     & /
       real p49(0:38)
       data p49/
     & 0.11581E+03,-0.17626E+03, 0.76642E+02,-0.19258E+02, 0.35199E+01,
     &-0.39426E+00, 0.15806E-01,-0.33597E-01,-0.10761E-01,-0.85404E-01,
     & 0.10860E+00,-0.10157E+00, 0.61023E-01,-0.81702E-02,-0.12064E-01,
     & 0.10601E-03, 0.33777E-01,-0.58932E-01, 0.58375E-01,-0.46242E-01,
     & 0.39521E-01,-0.35691E-01, 0.16913E-01, 0.16627E-01,-0.36290E-01,
     & 0.24200E-01, 0.91713E-02,-0.39671E-01, 0.41122E-01,-0.31801E-02,
     &-0.45000E-01, 0.68105E-01,-0.68037E-01, 0.66756E-01,-0.67632E-01,
     & 0.53633E-01,-0.23216E-01, 0.43938E-02,-0.12485E-01
     & /
       real p50(0:38)
       data p50/
     & 0.12524E+03,-0.19083E+03, 0.83294E+02,-0.21066E+02, 0.38667E+01,
     &-0.44078E+00, 0.17613E-01,-0.36261E-01,-0.10782E-01,-0.92148E-01,
     & 0.11800E+00,-0.11010E+00, 0.66252E-01,-0.90263E-02,-0.12905E-01,
     & 0.30945E-04, 0.36653E-01,-0.63869E-01, 0.63357E-01,-0.50263E-01,
     & 0.42940E-01,-0.38741E-01, 0.18310E-01, 0.17962E-01,-0.39286E-01,
     & 0.26180E-01, 0.99474E-02,-0.42944E-01, 0.44461E-01,-0.33843E-02,
     &-0.48752E-01, 0.73883E-01,-0.73903E-01, 0.72541E-01,-0.73383E-01,
     & 0.58165E-01,-0.25272E-01, 0.49142E-02,-0.13556E-01
     & /
       real p51(0:38)
       data p51/
     & 0.13505E+03,-0.20603E+03, 0.90293E+02,-0.22985E+02, 0.42328E+01,
     &-0.49041E+00, 0.19124E-01,-0.38951E-01,-0.10628E-01,-0.99068E-01,
     & 0.12786E+00,-0.11902E+00, 0.71702E-01,-0.99793E-02,-0.13787E-01,
     &-0.81203E-04, 0.39660E-01,-0.69033E-01, 0.68585E-01,-0.54469E-01,
     & 0.46536E-01,-0.41914E-01, 0.19770E-01, 0.19371E-01,-0.42409E-01,
     & 0.28241E-01, 0.10765E-01,-0.46379E-01, 0.47938E-01,-0.36091E-02,
     &-0.52679E-01, 0.79929E-01,-0.80070E-01, 0.78618E-01,-0.79409E-01,
     & 0.62907E-01,-0.27425E-01, 0.54833E-02,-0.14671E-01
     & /
       real p52(0:38)
       data p52/
     & 0.14519E+03,-0.22178E+03, 0.97577E+02,-0.24997E+02, 0.46190E+01,
     &-0.54346E+00, 0.20860E-01,-0.41708E-01,-0.10377E-01,-0.10622E+00,
     & 0.13812E+00,-0.12829E+00, 0.77360E-01,-0.10994E-01,-0.14690E-01,
     &-0.21211E-03, 0.42781E-01,-0.74390E-01, 0.74017E-01,-0.58844E-01,
     & 0.50282E-01,-0.45206E-01, 0.21285E-01, 0.20829E-01,-0.45641E-01,
     & 0.30374E-01, 0.11615E-01,-0.49936E-01, 0.51531E-01,-0.38377E-02,
     &-0.56754E-01, 0.86205E-01,-0.86487E-01, 0.84941E-01,-0.85671E-01,
     & 0.67831E-01,-0.29671E-01, 0.60910E-02,-0.15830E-01
     & /
       real p53(0:38)
       data p53/
     & 0.15567E+03,-0.23806E+03, 0.10514E+03,-0.27100E+02, 0.50259E+01,
     &-0.60007E+00, 0.22915E-01,-0.44539E-01,-0.10036E-01,-0.11360E+00,
     & 0.14875E+00,-0.13790E+00, 0.83228E-01,-0.12067E-01,-0.15609E-01,
     &-0.35933E-03, 0.46012E-01,-0.79936E-01, 0.79649E-01,-0.63390E-01,
     & 0.54173E-01,-0.48620E-01, 0.22856E-01, 0.22333E-01,-0.48979E-01,
     & 0.32579E-01, 0.12495E-01,-0.53612E-01, 0.55239E-01,-0.40670E-02,
     &-0.60972E-01, 0.92709E-01,-0.93149E-01, 0.91506E-01,-0.92163E-01,
     & 0.72933E-01,-0.32009E-01, 0.67365E-02,-0.17034E-01
     & /
       real p54(0:38)
       data p54/
     & 0.16648E+03,-0.25488E+03, 0.11298E+03,-0.29297E+02, 0.54539E+01,
     &-0.66034E+00, 0.25303E-01,-0.47444E-01,-0.96006E-02,-0.12123E+00,
     & 0.15976E+00,-0.14785E+00, 0.89307E-01,-0.13199E-01,-0.16545E-01,
     &-0.52354E-03, 0.49356E-01,-0.85674E-01, 0.85482E-01,-0.68107E-01,
     & 0.58212E-01,-0.52157E-01, 0.24482E-01, 0.23884E-01,-0.52422E-01,
     & 0.34855E-01, 0.13406E-01,-0.57406E-01, 0.59061E-01,-0.42968E-02,
     &-0.65335E-01, 0.99442E-01,-0.10006E+00, 0.98316E-01,-0.98888E-01,
     & 0.78216E-01,-0.34440E-01, 0.74211E-02,-0.18281E-01
     & /
       real p55(0:38)
       data p55/
     & 0.17762E+03,-0.27224E+03, 0.12110E+03,-0.31590E+02, 0.59036E+01,
     &-0.72440E+00, 0.28042E-01,-0.50422E-01,-0.90674E-02,-0.12909E+00,
     & 0.17116E+00,-0.15815E+00, 0.95599E-01,-0.14392E-01,-0.17497E-01,
     &-0.70541E-03, 0.52813E-01,-0.91604E-01, 0.91520E-01,-0.72998E-01,
     & 0.62400E-01,-0.55817E-01, 0.26164E-01, 0.25481E-01,-0.55973E-01,
     & 0.37202E-01, 0.14348E-01,-0.61320E-01, 0.62998E-01,-0.45266E-02,
     &-0.69845E-01, 0.10641E+00,-0.10721E+00, 0.10537E+00,-0.10585E+00,
     & 0.83682E-01,-0.36967E-01, 0.81457E-02,-0.19574E-01
     & /
       real p56(0:38)
       data p56/
     & 0.18910E+03,-0.29013E+03, 0.12951E+03,-0.33979E+02, 0.63755E+01,
     &-0.79234E+00, 0.31148E-01,-0.53472E-01,-0.84317E-02,-0.13720E+00,
     & 0.18295E+00,-0.16880E+00, 0.10211E+00,-0.15647E-01,-0.18464E-01,
     &-0.90561E-03, 0.56384E-01,-0.97728E-01, 0.97763E-01,-0.78066E-01,
     & 0.66740E-01,-0.59603E-01, 0.27904E-01, 0.27124E-01,-0.59631E-01,
     & 0.39622E-01, 0.15321E-01,-0.65354E-01, 0.67049E-01,-0.47562E-02,
     &-0.74501E-01, 0.11361E+00,-0.11462E+00, 0.11268E+00,-0.11305E+00,
     & 0.89331E-01,-0.39590E-01, 0.89114E-02,-0.20913E-01
     & /
       real p57(0:38)
       data p57/
     & 0.20091E+03,-0.30857E+03, 0.13820E+03,-0.36467E+02, 0.68701E+01,
     &-0.86427E+00, 0.34636E-01,-0.56595E-01,-0.76892E-02,-0.14555E+00,
     & 0.19513E+00,-0.17980E+00, 0.10883E+00,-0.16966E-01,-0.19446E-01,
     &-0.11248E-02, 0.60071E-01,-0.10405E+00, 0.10421E+00,-0.83311E-01,
     & 0.71233E-01,-0.63515E-01, 0.29700E-01, 0.28814E-01,-0.63397E-01,
     & 0.42115E-01, 0.16326E-01,-0.69508E-01, 0.71216E-01,-0.49852E-02,
     &-0.79306E-01, 0.12104E+00,-0.12229E+00, 0.12024E+00,-0.12049E+00,
     & 0.95166E-01,-0.42311E-01, 0.97194E-02,-0.22298E-01
     & /
       real p58(0:38)
       data p58/
     & 0.21306E+03,-0.32756E+03, 0.14719E+03,-0.39056E+02, 0.73879E+01,
     &-0.94032E+00, 0.38524E-01,-0.59790E-01,-0.68356E-02,-0.15414E+00,
     & 0.20770E+00,-0.19115E+00, 0.11578E+00,-0.18349E-01,-0.20442E-01,
     &-0.13637E-02, 0.63873E-01,-0.11056E+00, 0.11087E+00,-0.88737E-01,
     & 0.75881E-01,-0.67555E-01, 0.31555E-01, 0.30551E-01,-0.67272E-01,
     & 0.44681E-01, 0.17364E-01,-0.73784E-01, 0.75499E-01,-0.52133E-02,
     &-0.84262E-01, 0.12872E+00,-0.13021E+00, 0.12805E+00,-0.12817E+00,
     & 0.10119E+00,-0.45132E-01, 0.10571E-01,-0.23729E-01
     & /
       real p59(0:38)
       data p59/
     & 0.22554E+03,-0.34711E+03, 0.15648E+03,-0.41746E+02, 0.79295E+01,
     &-0.10206E+01, 0.42827E-01,-0.63056E-01,-0.58666E-02,-0.16299E+00,
     & 0.22068E+00,-0.20287E+00, 0.12295E+00,-0.19800E-01,-0.21452E-01,
     &-0.16229E-02, 0.67793E-01,-0.11728E+00, 0.11775E+00,-0.94346E-01,
     & 0.80686E-01,-0.71724E-01, 0.33469E-01, 0.32335E-01,-0.71255E-01,
     & 0.47320E-01, 0.18433E-01,-0.78181E-01, 0.79898E-01,-0.54400E-02,
     &-0.89368E-01, 0.13663E+00,-0.13840E+00, 0.13613E+00,-0.13609E+00,
     & 0.10740E+00,-0.48053E-01, 0.11466E-01,-0.25208E-01
     & /
       real p60(0:38)
       data p60/
     & 0.23837E+03,-0.36720E+03, 0.16606E+03,-0.44541E+02, 0.84952E+01,
     &-0.11052E+01, 0.47562E-01,-0.66393E-01,-0.47780E-02,-0.17208E+00,
     & 0.23406E+00,-0.21495E+00, 0.13034E+00,-0.21319E-01,-0.22476E-01,
     &-0.19032E-02, 0.71831E-01,-0.12420E+00, 0.12483E+00,-0.10014E+00,
     & 0.85649E-01,-0.76024E-01, 0.35441E-01, 0.34166E-01,-0.75348E-01,
     & 0.50033E-01, 0.19535E-01,-0.82701E-01, 0.84414E-01,-0.56651E-02,
     &-0.94626E-01, 0.14479E+00,-0.14685E+00, 0.14446E+00,-0.14427E+00,
     & 0.11380E+00,-0.51077E-01, 0.12407E-01,-0.26735E-01
     & /
       real p61(0:38)
       data p61/
     & 0.25154E+03,-0.38786E+03, 0.17594E+03,-0.47441E+02, 0.90857E+01,
     &-0.11942E+01, 0.52744E-01,-0.69801E-01,-0.35654E-02,-0.18142E+00,
     & 0.24786E+00,-0.22740E+00, 0.13796E+00,-0.22907E-01,-0.23512E-01,
     &-0.22052E-02, 0.75988E-01,-0.13132E+00, 0.13214E+00,-0.10612E+00,
     & 0.90774E-01,-0.80454E-01, 0.37474E-01, 0.36044E-01,-0.79551E-01,
     & 0.52821E-01, 0.20670E-01,-0.87344E-01, 0.89046E-01,-0.58883E-02,
     &-0.10004E+00, 0.15320E+00,-0.15557E+00, 0.15306E+00,-0.15269E+00,
     & 0.12040E+00,-0.54204E-01, 0.13395E-01,-0.28310E-01
     & /
       real p62(0:38)
       data p62/
     & 0.26506E+03,-0.40908E+03, 0.18613E+03,-0.50449E+02, 0.97015E+01,
     &-0.12877E+01, 0.58390E-01,-0.73279E-01,-0.22245E-02,-0.19101E+00,
     & 0.26206E+00,-0.24021E+00, 0.14581E+00,-0.24566E-01,-0.24560E-01,
     &-0.25295E-02, 0.80265E-01,-0.13864E+00, 0.13966E+00,-0.11229E+00,
     & 0.96061E-01,-0.85018E-01, 0.39566E-01, 0.37969E-01,-0.83864E-01,
     & 0.55683E-01, 0.21838E-01,-0.92111E-01, 0.93796E-01,-0.61091E-02,
     &-0.10561E+00, 0.16185E+00,-0.16455E+00, 0.16193E+00,-0.16137E+00,
     & 0.12719E+00,-0.57436E-01, 0.14430E-01,-0.29934E-01
     & /
       real p63(0:38)
       data p63/
     & 0.27896E+03,-0.43094E+03, 0.19669E+03,-0.53586E+02, 0.10345E+02,
     &-0.13859E+01, 0.64279E-01,-0.76767E-01,-0.64165E-03,-0.20088E+00,
     & 0.27679E+00,-0.25348E+00, 0.15393E+00,-0.26313E-01,-0.25640E-01,
     &-0.28652E-02, 0.84658E-01,-0.14619E+00, 0.14742E+00,-0.11868E+00,
     & 0.10154E+00,-0.89748E-01, 0.41744E-01, 0.39940E-01,-0.88298E-01,
     & 0.58635E-01, 0.23043E-01,-0.97013E-01, 0.98672E-01,-0.63184E-02,
     &-0.11135E+00, 0.17078E+00,-0.17385E+00, 0.17111E+00,-0.17033E+00,
     & 0.13420E+00,-0.60795E-01, 0.15527E-01,-0.31614E-01
     & /
       real p64(0:38)
       data p64/
     & 0.29323E+03,-0.45344E+03, 0.20760E+03,-0.56848E+02, 0.11015E+02,
     &-0.14887E+01, 0.70485E-01,-0.80279E-01, 0.11607E-02,-0.21101E+00,
     & 0.29202E+00,-0.26718E+00, 0.16231E+00,-0.28144E-01,-0.26748E-01,
     &-0.32159E-02, 0.89169E-01,-0.15395E+00, 0.15543E+00,-0.12528E+00,
     & 0.10722E+00,-0.94637E-01, 0.44001E-01, 0.41956E-01,-0.92853E-01,
     & 0.61675E-01, 0.24284E-01,-0.10205E+00, 0.10367E+00,-0.65180E-02,
     &-0.11727E+00, 0.18000E+00,-0.18345E+00, 0.18058E+00,-0.17958E+00,
     & 0.14142E+00,-0.64276E-01, 0.16685E-01,-0.33350E-01
     & /
       real p65(0:38)
       data p65/
     & 0.30785E+03,-0.47649E+03, 0.21881E+03,-0.60219E+02, 0.11712E+02,
     &-0.15965E+01, 0.77258E-01,-0.83873E-01, 0.30795E-02,-0.22139E+00,
     & 0.30765E+00,-0.28124E+00, 0.17092E+00,-0.30047E-01,-0.27862E-01,
     &-0.35935E-02, 0.93805E-01,-0.16193E+00, 0.16365E+00,-0.13208E+00,
     & 0.11305E+00,-0.99655E-01, 0.46315E-01, 0.44021E-01,-0.97517E-01,
     & 0.64787E-01, 0.25559E-01,-0.10721E+00, 0.10879E+00,-0.67163E-02,
     &-0.12335E+00, 0.18946E+00,-0.19332E+00, 0.19032E+00,-0.18908E+00,
     & 0.14884E+00,-0.67862E-01, 0.17890E-01,-0.35134E-01
     & /
       real p66(0:38)
       data p66/
     & 0.32281E+03,-0.50009E+03, 0.23032E+03,-0.63699E+02, 0.12436E+02,
     &-0.17092E+01, 0.84616E-01,-0.87550E-01, 0.51175E-02,-0.23203E+00,
     & 0.32368E+00,-0.29567E+00, 0.17975E+00,-0.32025E-01,-0.28980E-01,
     &-0.39990E-02, 0.98566E-01,-0.17010E+00, 0.17210E+00,-0.13906E+00,
     & 0.11905E+00,-0.10480E+00, 0.48685E-01, 0.46134E-01,-0.10229E+00,
     & 0.67972E-01, 0.26867E-01,-0.11249E+00, 0.11402E+00,-0.69129E-02,
     &-0.12958E+00, 0.19916E+00,-0.20346E+00, 0.20033E+00,-0.19883E+00,
     & 0.15646E+00,-0.71553E-01, 0.19144E-01,-0.36968E-01
     & /
       real p67(0:38)
       data p67/
     & 0.33810E+03,-0.52426E+03, 0.24214E+03,-0.67291E+02, 0.13188E+02,
     &-0.18271E+01, 0.92579E-01,-0.91311E-01, 0.72774E-02,-0.24292E+00,
     & 0.34012E+00,-0.31047E+00, 0.18882E+00,-0.34077E-01,-0.30103E-01,
     &-0.44332E-02, 0.10345E+00,-0.17849E+00, 0.18077E+00,-0.14624E+00,
     & 0.12521E+00,-0.11008E+00, 0.51113E-01, 0.48296E-01,-0.10717E+00,
     & 0.71229E-01, 0.28209E-01,-0.11790E+00, 0.11937E+00,-0.71078E-02,
     &-0.13596E+00, 0.20912E+00,-0.21388E+00, 0.21062E+00,-0.20884E+00,
     & 0.16427E+00,-0.75352E-01, 0.20447E-01,-0.38852E-01
     & /
       real p68(0:38)
       data p68/
     & 0.35374E+03,-0.54898E+03, 0.25428E+03,-0.70994E+02, 0.13967E+02,
     &-0.19501E+01, 0.10117E+00,-0.95155E-01, 0.95621E-02,-0.25407E+00,
     & 0.35696E+00,-0.32565E+00, 0.19812E+00,-0.36205E-01,-0.31229E-01,
     &-0.48969E-02, 0.10847E+00,-0.18708E+00, 0.18966E+00,-0.15361E+00,
     & 0.13154E+00,-0.11550E+00, 0.53598E-01, 0.50507E-01,-0.11217E+00,
     & 0.74561E-01, 0.29584E-01,-0.12343E+00, 0.12484E+00,-0.73007E-02,
     &-0.14250E+00, 0.21933E+00,-0.22457E+00, 0.22118E+00,-0.21911E+00,
     & 0.17229E+00,-0.79259E-01, 0.21801E-01,-0.40785E-01
     & /
       real p69(0:38)
       data p69/
     & 0.36972E+03,-0.57427E+03, 0.26672E+03,-0.74812E+02, 0.14775E+02,
     &-0.20785E+01, 0.11040E+00,-0.99084E-01, 0.11974E-01,-0.26548E+00,
     & 0.37421E+00,-0.34119E+00, 0.20765E+00,-0.38411E-01,-0.32358E-01,
     &-0.53910E-02, 0.11361E+00,-0.19589E+00, 0.19878E+00,-0.16118E+00,
     & 0.13803E+00,-0.12104E+00, 0.56141E-01, 0.52767E-01,-0.11727E+00,
     & 0.77965E-01, 0.30994E-01,-0.12909E+00, 0.13042E+00,-0.74913E-02,
     &-0.14919E+00, 0.22979E+00,-0.23555E+00, 0.23201E+00,-0.22963E+00,
     & 0.18050E+00,-0.83275E-01, 0.23205E-01,-0.42770E-01
     & /
       real p70(0:38)
       data p70/
     & 0.38605E+03,-0.60013E+03, 0.27947E+03,-0.78745E+02, 0.15611E+02,
     &-0.22124E+01, 0.12030E+00,-0.10310E+00, 0.14516E-01,-0.27715E+00,
     & 0.39187E+00,-0.35711E+00, 0.21742E+00,-0.40696E-01,-0.33488E-01,
     &-0.59162E-02, 0.11888E+00,-0.20491E+00, 0.20812E+00,-0.16894E+00,
     & 0.14469E+00,-0.12672E+00, 0.58741E-01, 0.55076E-01,-0.12249E+00,
     & 0.81444E-01, 0.32437E-01,-0.13487E+00, 0.13613E+00,-0.76794E-02,
     &-0.15605E+00, 0.24051E+00,-0.24680E+00, 0.24313E+00,-0.24042E+00,
     & 0.18891E+00,-0.87402E-01, 0.24662E-01,-0.44805E-01
     & /
       real p71(0:38)
       data p71/
     & 0.40272E+03,-0.62655E+03, 0.29254E+03,-0.82794E+02, 0.16477E+02,
     &-0.23517E+01, 0.13088E+00,-0.10719E+00, 0.17192E-01,-0.28908E+00,
     & 0.40994E+00,-0.37342E+00, 0.22743E+00,-0.43061E-01,-0.34620E-01,
     &-0.64735E-02, 0.12428E+00,-0.21414E+00, 0.21769E+00,-0.17690E+00,
     & 0.15152E+00,-0.13253E+00, 0.61399E-01, 0.57434E-01,-0.12782E+00,
     & 0.84996E-01, 0.33915E-01,-0.14078E+00, 0.14195E+00,-0.78649E-02,
     &-0.16306E+00, 0.25148E+00,-0.25834E+00, 0.25453E+00,-0.25147E+00,
     & 0.19753E+00,-0.91640E-01, 0.26171E-01,-0.46892E-01
     & /
       real p72(0:38)
       data p72/
     & 0.41973E+03,-0.65355E+03, 0.30593E+03,-0.86962E+02, 0.17372E+02,
     &-0.24968E+01, 0.14216E+00,-0.11138E+00, 0.20003E-01,-0.30128E+00,
     & 0.42843E+00,-0.39010E+00, 0.23767E+00,-0.45507E-01,-0.35751E-01,
     &-0.70637E-02, 0.12982E+00,-0.22358E+00, 0.22750E+00,-0.18507E+00,
     & 0.15853E+00,-0.13848E+00, 0.64116E-01, 0.59842E-01,-0.13326E+00,
     & 0.88622E-01, 0.35428E-01,-0.14681E+00, 0.14789E+00,-0.80475E-02,
     &-0.17023E+00, 0.26272E+00,-0.27016E+00, 0.26622E+00,-0.26279E+00,
     & 0.20635E+00,-0.95990E-01, 0.27734E-01,-0.49031E-01
     & /
       real p73(0:38)
       data p73/
     & 0.43710E+03,-0.68111E+03, 0.31964E+03,-0.91250E+02, 0.18298E+02,
     &-0.26476E+01, 0.15416E+00,-0.11565E+00, 0.22952E-01,-0.31373E+00,
     & 0.44733E+00,-0.40717E+00, 0.24816E+00,-0.48036E-01,-0.36882E-01,
     &-0.76876E-02, 0.13548E+00,-0.23324E+00, 0.23754E+00,-0.19344E+00,
     & 0.16570E+00,-0.14457E+00, 0.66891E-01, 0.62299E-01,-0.13881E+00,
     & 0.92323E-01, 0.36975E-01,-0.15297E+00, 0.15395E+00,-0.82269E-02,
     &-0.17756E+00, 0.27421E+00,-0.28228E+00, 0.27819E+00,-0.27438E+00,
     & 0.21538E+00,-0.10045E+00, 0.29352E-01,-0.51223E-01
     & /
       real p74(0:38)
       data p74/
     & 0.45480E+03,-0.70926E+03, 0.33368E+03,-0.95658E+02, 0.19254E+02,
     &-0.28043E+01, 0.16691E+00,-0.12000E+00, 0.26043E-01,-0.32646E+00,
     & 0.46666E+00,-0.42462E+00, 0.25888E+00,-0.50649E-01,-0.38010E-01,
     &-0.83460E-02, 0.14128E+00,-0.24312E+00, 0.24781E+00,-0.20201E+00,
     & 0.17305E+00,-0.15079E+00, 0.69725E-01, 0.64806E-01,-0.14448E+00,
     & 0.96098E-01, 0.38557E-01,-0.15926E+00, 0.16013E+00,-0.84031E-02,
     &-0.18506E+00, 0.28596E+00,-0.29468E+00, 0.29045E+00,-0.28623E+00,
     & 0.22461E+00,-0.10503E+00, 0.31025E-01,-0.53467E-01
     & /
       real p75(0:38)
       data p75/
     & 0.47286E+03,-0.73798E+03, 0.34804E+03,-0.10019E+03, 0.20242E+02,
     &-0.29669E+01, 0.18042E+00,-0.12445E+00, 0.29277E-01,-0.33944E+00,
     & 0.48640E+00,-0.44246E+00, 0.26986E+00,-0.53347E-01,-0.39137E-01,
     &-0.90398E-02, 0.14722E+00,-0.25322E+00, 0.25832E+00,-0.21079E+00,
     & 0.18057E+00,-0.15715E+00, 0.72618E-01, 0.67364E-01,-0.15026E+00,
     & 0.99948E-01, 0.40175E-01,-0.16568E+00, 0.16642E+00,-0.85756E-02,
     &-0.19271E+00, 0.29798E+00,-0.30738E+00, 0.30300E+00,-0.29836E+00,
     & 0.23405E+00,-0.10973E+00, 0.32755E-01,-0.55764E-01
     & /
       real p76(0:38)
       data p76/
     & 0.49127E+03,-0.76728E+03, 0.36273E+03,-0.10484E+03, 0.21262E+02,
     &-0.31357E+01, 0.19471E+00,-0.12898E+00, 0.32658E-01,-0.35270E+00,
     & 0.50657E+00,-0.46070E+00, 0.28107E+00,-0.56132E-01,-0.40260E-01,
     &-0.97698E-02, 0.15329E+00,-0.26353E+00, 0.26906E+00,-0.21978E+00,
     & 0.18827E+00,-0.16365E+00, 0.75570E-01, 0.69971E-01,-0.15615E+00,
     & 0.10387E+00, 0.41828E-01,-0.17222E+00, 0.17284E+00,-0.87444E-02,
     &-0.20053E+00, 0.31026E+00,-0.32037E+00, 0.31585E+00,-0.31076E+00,
     & 0.24371E+00,-0.11454E+00, 0.34542E-01,-0.58115E-01
     & /
       real p77(0:38)
       data p77/
     & 0.51003E+03,-0.79717E+03, 0.37775E+03,-0.10963E+03, 0.22314E+02,
     &-0.33107E+01, 0.20979E+00,-0.13359E+00, 0.36194E-01,-0.36623E+00,
     & 0.52717E+00,-0.47932E+00, 0.29254E+00,-0.59006E-01,-0.41378E-01,
     &-0.10539E-01, 0.15950E+00,-0.27408E+00, 0.28005E+00,-0.22898E+00,
     & 0.19615E+00,-0.17029E+00, 0.78581E-01, 0.72630E-01,-0.16216E+00,
     & 0.10787E+00, 0.43518E-01,-0.17890E+00, 0.17938E+00,-0.89093E-02,
     &-0.20852E+00, 0.32282E+00,-0.33366E+00, 0.32900E+00,-0.32344E+00,
     & 0.25357E+00,-0.11947E+00, 0.36388E-01,-0.60521E-01
     & /
       real p78(0:38)
       data p78/
     & 0.52923E+03,-0.82781E+03, 0.39323E+03,-0.11459E+03, 0.23407E+02,
     &-0.34924E+01, 0.22541E+00,-0.13808E+00, 0.40020E-01,-0.37999E+00,
     & 0.54828E+00,-0.49841E+00, 0.30429E+00,-0.62013E-01,-0.42450E-01,
     &-0.11412E-01, 0.16593E+00,-0.28495E+00, 0.29139E+00,-0.23849E+00,
     & 0.20426E+00,-0.17709E+00, 0.81637E-01, 0.75374E-01,-0.16832E+00,
     & 0.11197E+00, 0.45263E-01,-0.18575E+00, 0.18607E+00,-0.90729E-02,
     &-0.21671E+00, 0.33572E+00,-0.34737E+00, 0.34256E+00,-0.33650E+00,
     & 0.26372E+00,-0.12456E+00, 0.38315E-01,-0.62998E-01
     & /
       real p79(0:38)
       data p79/
     & 0.54877E+03,-0.85903E+03, 0.40904E+03,-0.11968E+03, 0.24533E+02,
     &-0.36805E+01, 0.24189E+00,-0.14268E+00, 0.43987E-01,-0.39402E+00,
     & 0.56982E+00,-0.51789E+00, 0.31629E+00,-0.65106E-01,-0.43521E-01,
     &-0.12317E-01, 0.17249E+00,-0.29603E+00, 0.30296E+00,-0.24820E+00,
     & 0.21255E+00,-0.18402E+00, 0.84755E-01, 0.78164E-01,-0.17459E+00,
     & 0.11614E+00, 0.47042E-01,-0.19273E+00, 0.19288E+00,-0.92317E-02,
     &-0.22506E+00, 0.34889E+00,-0.36136E+00, 0.35641E+00,-0.34982E+00,
     & 0.27407E+00,-0.12976E+00, 0.40299E-01,-0.65528E-01
     & /
       real p80(0:38)
       data p80/
     & 0.56866E+03,-0.89081E+03, 0.42517E+03,-0.12489E+03, 0.25691E+02,
     &-0.38751E+01, 0.25926E+00,-0.14739E+00, 0.48097E-01,-0.40834E+00,
     & 0.59178E+00,-0.53777E+00, 0.32854E+00,-0.68285E-01,-0.44589E-01,
     &-0.13254E-01, 0.17918E+00,-0.30732E+00, 0.31476E+00,-0.25811E+00,
     & 0.22102E+00,-0.19110E+00, 0.87935E-01, 0.81002E-01,-0.18097E+00,
     & 0.12039E+00, 0.48855E-01,-0.19983E+00, 0.19981E+00,-0.93856E-02,
     &-0.23357E+00, 0.36232E+00,-0.37564E+00, 0.37055E+00,-0.36341E+00,
     & 0.28463E+00,-0.13508E+00, 0.42342E-01,-0.68112E-01
     & /
       real p81(0:38)
       data p81/
     & 0.58889E+03,-0.92317E+03, 0.44163E+03,-0.13022E+03, 0.26883E+02,
     &-0.40763E+01, 0.27755E+00,-0.15222E+00, 0.52351E-01,-0.42293E+00,
     & 0.61416E+00,-0.55804E+00, 0.34103E+00,-0.71553E-01,-0.45655E-01,
     &-0.14224E-01, 0.18601E+00,-0.31884E+00, 0.32680E+00,-0.26824E+00,
     & 0.22966E+00,-0.19832E+00, 0.91176E-01, 0.83887E-01,-0.18746E+00,
     & 0.12470E+00, 0.50703E-01,-0.20705E+00, 0.20686E+00,-0.95342E-02,
     &-0.24225E+00, 0.37602E+00,-0.39023E+00, 0.38498E+00,-0.37728E+00,
     & 0.29540E+00,-0.14052E+00, 0.44444E-01,-0.70750E-01
     & /
       real p82(0:38)
       data p82/
     & 0.60947E+03,-0.95610E+03, 0.45841E+03,-0.13569E+03, 0.28108E+02,
     &-0.42843E+01, 0.29677E+00,-0.15716E+00, 0.56751E-01,-0.43780E+00,
     & 0.63697E+00,-0.57871E+00, 0.35378E+00,-0.74909E-01,-0.46718E-01,
     &-0.15228E-01, 0.19296E+00,-0.33056E+00, 0.33907E+00,-0.27856E+00,
     & 0.23848E+00,-0.20568E+00, 0.94480E-01, 0.86819E-01,-0.19407E+00,
     & 0.12909E+00, 0.52585E-01,-0.21441E+00, 0.21402E+00,-0.96774E-02,
     &-0.25109E+00, 0.38998E+00,-0.40510E+00, 0.39971E+00,-0.39142E+00,
     & 0.30638E+00,-0.14608E+00, 0.46605E-01,-0.73442E-01
     & /
       real p83(0:38)
       data p83/
     & 0.63039E+03,-0.98960E+03, 0.47552E+03,-0.14127E+03, 0.29368E+02,
     &-0.44990E+01, 0.31694E+00,-0.16222E+00, 0.61301E-01,-0.45296E+00,
     & 0.66022E+00,-0.59978E+00, 0.36678E+00,-0.78356E-01,-0.47776E-01,
     &-0.16265E-01, 0.20005E+00,-0.34251E+00, 0.35158E+00,-0.28910E+00,
     & 0.24748E+00,-0.21318E+00, 0.97846E-01, 0.89799E-01,-0.20078E+00,
     & 0.13356E+00, 0.54502E-01,-0.22189E+00, 0.22130E+00,-0.98149E-02,
     &-0.26010E+00, 0.40420E+00,-0.42028E+00, 0.41474E+00,-0.40583E+00,
     & 0.31757E+00,-0.15176E+00, 0.48828E-01,-0.76189E-01
     & /
       real p84(0:38)
       data p84/
     & 0.65166E+03,-0.10237E+04, 0.49297E+03,-0.14699E+03, 0.30662E+02,
     &-0.47207E+01, 0.33809E+00,-0.16739E+00, 0.66001E-01,-0.46840E+00,
     & 0.68389E+00,-0.62125E+00, 0.38004E+00,-0.81894E-01,-0.48830E-01,
     &-0.17337E-01, 0.20727E+00,-0.35467E+00, 0.36433E+00,-0.29985E+00,
     & 0.25666E+00,-0.22083E+00, 0.10128E+00, 0.92825E-01,-0.20761E+00,
     & 0.13810E+00, 0.56454E-01,-0.22949E+00, 0.22869E+00,-0.99466E-02,
     &-0.26927E+00, 0.41870E+00,-0.43576E+00, 0.43006E+00,-0.42053E+00,
     & 0.32898E+00,-0.15756E+00, 0.51111E-01,-0.78991E-01
     & /
       real p85(0:38)
       data p85/
     & 0.67327E+03,-0.10583E+04, 0.51074E+03,-0.15284E+03, 0.31990E+02,
     &-0.49494E+01, 0.36023E+00,-0.17268E+00, 0.70854E-01,-0.48412E+00,
     & 0.70800E+00,-0.64313E+00, 0.39355E+00,-0.85524E-01,-0.49879E-01,
     &-0.18444E-01, 0.21463E+00,-0.36705E+00, 0.37731E+00,-0.31081E+00,
     & 0.26602E+00,-0.22862E+00, 0.10477E+00, 0.95899E-01,-0.21454E+00,
     & 0.14271E+00, 0.58441E-01,-0.23722E+00, 0.23620E+00,-0.10072E-01,
     &-0.27860E+00, 0.43347E+00,-0.45153E+00, 0.44569E+00,-0.43550E+00,
     & 0.34060E+00,-0.16349E+00, 0.53457E-01,-0.81848E-01
     & /
       real p86(0:38)
       data p86/
     & 0.69523E+03,-0.10936E+04, 0.52884E+03,-0.15882E+03, 0.33355E+02,
     &-0.51852E+01, 0.38339E+00,-0.17810E+00, 0.75862E-01,-0.50014E+00,
     & 0.73254E+00,-0.66542E+00, 0.40732E+00,-0.89248E-01,-0.50922E-01,
     &-0.19586E-01, 0.22212E+00,-0.37966E+00, 0.39053E+00,-0.32198E+00,
     & 0.27557E+00,-0.23655E+00, 0.10832E+00, 0.99020E-01,-0.22159E+00,
     & 0.14740E+00, 0.60463E-01,-0.24508E+00, 0.24383E+00,-0.10191E-01,
     &-0.28810E+00, 0.44850E+00,-0.46762E+00, 0.46162E+00,-0.45075E+00,
     & 0.35243E+00,-0.16953E+00, 0.55866E-01,-0.84761E-01
     & /
       real p87(0:38)
       data p87/
     & 0.71753E+03,-0.11294E+04, 0.54729E+03,-0.16493E+03, 0.34755E+02,
     &-0.54283E+01, 0.40759E+00,-0.18363E+00, 0.81026E-01,-0.51644E+00,
     & 0.75753E+00,-0.68811E+00, 0.42135E+00,-0.93066E-01,-0.51959E-01,
     &-0.20764E-01, 0.22974E+00,-0.39248E+00, 0.40400E+00,-0.33337E+00,
     & 0.28530E+00,-0.24463E+00, 0.11194E+00, 0.10219E+00,-0.22875E+00,
     & 0.15216E+00, 0.62521E-01,-0.25307E+00, 0.25158E+00,-0.10304E-01,
     &-0.29777E+00, 0.46381E+00,-0.48400E+00, 0.47785E+00,-0.46628E+00,
     & 0.36448E+00,-0.17571E+00, 0.58339E-01,-0.87729E-01
     & /
       real p88(0:38)
       data p88/
     & 0.74019E+03,-0.11658E+04, 0.56606E+03,-0.17117E+03, 0.36191E+02,
     &-0.56788E+01, 0.43285E+00,-0.18929E+00, 0.86350E-01,-0.53303E+00,
     & 0.78295E+00,-0.71122E+00, 0.43564E+00,-0.96979E-01,-0.52988E-01,
     &-0.21978E-01, 0.23750E+00,-0.40552E+00, 0.41770E+00,-0.34497E+00,
     & 0.29521E+00,-0.25286E+00, 0.11563E+00, 0.10540E+00,-0.23602E+00,
     & 0.15699E+00, 0.64614E-01,-0.26118E+00, 0.25944E+00,-0.10409E-01,
     &-0.30761E+00, 0.47939E+00,-0.50070E+00, 0.49439E+00,-0.48209E+00,
     & 0.37675E+00,-0.18200E+00, 0.60876E-01,-0.90755E-01
     & /
       real p89(0:38)
       data p89/
     & 0.76319E+03,-0.12028E+04, 0.58518E+03,-0.17755E+03, 0.37664E+02,
     &-0.59367E+01, 0.45919E+00,-0.19507E+00, 0.91834E-01,-0.54991E+00,
     & 0.80881E+00,-0.73474E+00, 0.45019E+00,-0.10099E+00,-0.54010E-01,
     &-0.23229E-01, 0.24539E+00,-0.41879E+00, 0.43165E+00,-0.35679E+00,
     & 0.30531E+00,-0.26123E+00, 0.11938E+00, 0.10866E+00,-0.24340E+00,
     & 0.16190E+00, 0.66742E-01,-0.26942E+00, 0.26742E+00,-0.10508E-01,
     &-0.31761E+00, 0.49525E+00,-0.51770E+00, 0.51124E+00,-0.49819E+00,
     & 0.38924E+00,-0.18843E+00, 0.63478E-01,-0.93837E-01
     & /
       real p90(0:38)
       data p90/
     & 0.78654E+03,-0.12403E+04, 0.60464E+03,-0.18406E+03, 0.39175E+02,
     &-0.62023E+01, 0.48664E+00,-0.20098E+00, 0.97481E-01,-0.56709E+00,
     & 0.83511E+00,-0.75868E+00, 0.46501E+00,-0.10510E+00,-0.55024E-01,
     &-0.24517E-01, 0.25343E+00,-0.43227E+00, 0.44584E+00,-0.36883E+00,
     & 0.31560E+00,-0.26975E+00, 0.12319E+00, 0.11197E+00,-0.25090E+00,
     & 0.16689E+00, 0.68906E-01,-0.27779E+00, 0.27552E+00,-0.10599E-01,
     &-0.32778E+00, 0.51139E+00,-0.53502E+00, 0.52839E+00,-0.51457E+00,
     & 0.40195E+00,-0.19498E+00, 0.66146E-01,-0.96976E-01
     & /
       real p91(0:38)
       data p91/
     & 0.81024E+03,-0.12785E+04, 0.62444E+03,-0.19071E+03, 0.40722E+02,
     &-0.64755E+01, 0.51520E+00,-0.20702E+00, 0.10329E+00,-0.58456E+00,
     & 0.86186E+00,-0.78303E+00, 0.48009E+00,-0.10930E+00,-0.56029E-01,
     &-0.25843E-01, 0.26159E+00,-0.44598E+00, 0.46027E+00,-0.38109E+00,
     & 0.32608E+00,-0.27842E+00, 0.12707E+00, 0.11533E+00,-0.25851E+00,
     & 0.17195E+00, 0.71106E-01,-0.28629E+00, 0.28374E+00,-0.10683E-01,
     &-0.33812E+00, 0.52780E+00,-0.55264E+00, 0.54586E+00,-0.53124E+00,
     & 0.41488E+00,-0.20166E+00, 0.68880E-01,-0.10017E+00
     & /
       real p92(0:38)
       data p92/
     & 0.83429E+03,-0.13172E+04, 0.64458E+03,-0.19750E+03, 0.42308E+02,
     &-0.67564E+01, 0.54491E+00,-0.21318E+00, 0.10927E+00,-0.60233E+00,
     & 0.88906E+00,-0.80781E+00, 0.49543E+00,-0.11361E+00,-0.57024E-01,
     &-0.27207E-01, 0.26990E+00,-0.45992E+00, 0.47496E+00,-0.39356E+00,
     & 0.33674E+00,-0.28724E+00, 0.13101E+00, 0.11873E+00,-0.26622E+00,
     & 0.17708E+00, 0.73342E-01,-0.29491E+00, 0.29207E+00,-0.10759E-01,
     &-0.34864E+00, 0.54449E+00,-0.57059E+00, 0.56364E+00,-0.54820E+00,
     & 0.42803E+00,-0.20847E+00, 0.71683E-01,-0.10343E+00
     & /
       real p93(0:38)
       data p93/
     & 0.85868E+03,-0.13565E+04, 0.66507E+03,-0.20443E+03, 0.43933E+02,
     &-0.70453E+01, 0.57579E+00,-0.21948E+00, 0.11542E+00,-0.62040E+00,
     & 0.91670E+00,-0.83300E+00, 0.51105E+00,-0.11801E+00,-0.58010E-01,
     &-0.28610E-01, 0.27835E+00,-0.47408E+00, 0.48989E+00,-0.40626E+00,
     & 0.34760E+00,-0.29620E+00, 0.13502E+00, 0.12218E+00,-0.27406E+00,
     & 0.18229E+00, 0.75613E-01,-0.30366E+00, 0.30052E+00,-0.10826E-01,
     &-0.35932E+00, 0.56146E+00,-0.58884E+00, 0.58174E+00,-0.56545E+00,
     & 0.44141E+00,-0.21540E+00, 0.74553E-01,-0.10674E+00
     & /
       real p94(0:38)
       data p94/
     & 0.88344E+03,-0.13964E+04, 0.68591E+03,-0.21150E+03, 0.45597E+02,
     &-0.73423E+01, 0.60784E+00,-0.22590E+00, 0.12174E+00,-0.63877E+00,
     & 0.94481E+00,-0.85863E+00, 0.52694E+00,-0.12253E+00,-0.58985E-01,
     &-0.30052E-01, 0.28693E+00,-0.48847E+00, 0.50507E+00,-0.41918E+00,
     & 0.35865E+00,-0.30533E+00, 0.13910E+00, 0.12568E+00,-0.28200E+00,
     & 0.18757E+00, 0.77922E-01,-0.31255E+00, 0.30909E+00,-0.10886E-01,
     &-0.37018E+00, 0.57871E+00,-0.60743E+00, 0.60015E+00,-0.58300E+00,
     & 0.45501E+00,-0.22248E+00, 0.77494E-01,-0.11011E+00
     & /
       real p95(0:38)
       data p95/
     & 0.90864E+03,-0.14371E+04, 0.70726E+03,-0.21879E+03, 0.47317E+02,
     &-0.76488E+01, 0.64088E+00,-0.23211E+00, 0.12835E+00,-0.65751E+00,
     & 0.97356E+00,-0.88490E+00, 0.54322E+00,-0.12720E+00,-0.59953E-01,
     &-0.31527E-01, 0.29568E+00,-0.50315E+00, 0.52057E+00,-0.43241E+00,
     & 0.36997E+00,-0.31467E+00, 0.14329E+00, 0.12923E+00,-0.29010E+00,
     & 0.19296E+00, 0.80277E-01,-0.32161E+00, 0.31783E+00,-0.10943E-01,
     &-0.38127E+00, 0.59637E+00,-0.62647E+00, 0.61903E+00,-0.60094E+00,
     & 0.46892E+00,-0.22973E+00, 0.80536E-01,-0.11355E+00
     & /
       real p96(0:38)
       data p96/
     & 0.93419E+03,-0.14784E+04, 0.72894E+03,-0.22621E+03, 0.49075E+02,
     &-0.79634E+01, 0.67517E+00,-0.23850E+00, 0.13512E+00,-0.67654E+00,
     & 0.10028E+01,-0.91157E+00, 0.55976E+00,-0.13197E+00,-0.60910E-01,
     &-0.33042E-01, 0.30456E+00,-0.51804E+00, 0.53632E+00,-0.44585E+00,
     & 0.38148E+00,-0.32417E+00, 0.14754E+00, 0.13282E+00,-0.29830E+00,
     & 0.19843E+00, 0.82667E-01,-0.33080E+00, 0.32668E+00,-0.10991E-01,
     &-0.39252E+00, 0.61430E+00,-0.64583E+00, 0.63821E+00,-0.61917E+00,
     & 0.48305E+00,-0.23712E+00, 0.83645E-01,-0.11704E+00
     & /
       real p97(0:38)
       data p97/
     & 0.96008E+03,-0.15203E+04, 0.75097E+03,-0.23377E+03, 0.50871E+02,
     &-0.82863E+01, 0.71074E+00,-0.24505E+00, 0.14205E+00,-0.69588E+00,
     & 0.10324E+01,-0.93866E+00, 0.57656E+00,-0.13684E+00,-0.61853E-01,
     &-0.34598E-01, 0.31359E+00,-0.53316E+00, 0.55231E+00,-0.45950E+00,
     & 0.39317E+00,-0.33381E+00, 0.15185E+00, 0.13646E+00,-0.30661E+00,
     & 0.20396E+00, 0.85093E-01,-0.34011E+00, 0.33564E+00,-0.11030E-01,
     &-0.40395E+00, 0.63251E+00,-0.66549E+00, 0.65770E+00,-0.63769E+00,
     & 0.49740E+00,-0.24464E+00, 0.86823E-01,-0.12060E+00
     & /
       real p98(0:38)
       data p98/
     & 0.98631E+03,-0.15627E+04, 0.77333E+03,-0.24146E+03, 0.52707E+02,
     &-0.86174E+01, 0.74759E+00,-0.25177E+00, 0.14916E+00,-0.71551E+00,
     & 0.10625E+01,-0.96615E+00, 0.59363E+00,-0.14181E+00,-0.62783E-01,
     &-0.36197E-01, 0.32275E+00,-0.54851E+00, 0.56855E+00,-0.47339E+00,
     & 0.40506E+00,-0.34359E+00, 0.15623E+00, 0.14015E+00,-0.31503E+00,
     & 0.20957E+00, 0.87555E-01,-0.34954E+00, 0.34471E+00,-0.11058E-01,
     &-0.41554E+00, 0.65099E+00,-0.68547E+00, 0.67750E+00,-0.65649E+00,
     & 0.51196E+00,-0.25228E+00, 0.90070E-01,-0.12421E+00
     & /
       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,  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
     &,  38,  38,  38,  38,  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.37) param(i,33) = p33(i)
             if (i.le.37) param(i,34) = p34(i)
             if (i.le.37) param(i,35) = p35(i)
             if (i.le.37) param(i,36) = p36(i)
             if (i.le.37) param(i,37) = p37(i)
             if (i.le.37) param(i,38) = p38(i)
             if (i.le.37) param(i,39) = p39(i)
             if (i.le.37) param(i,40) = p40(i)
             if (i.le.37) param(i,41) = p41(i)
             if (i.le.37) param(i,42) = p42(i)
             if (i.le.37) 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.38) param(i,49) = p49(i)
             if (i.le.38) param(i,50) = p50(i)
             if (i.le.38) param(i,51) = p51(i)
             if (i.le.38) param(i,52) = p52(i)
             if (i.le.38) param(i,53) = p53(i)
             if (i.le.38) param(i,54) = p54(i)
             if (i.le.38) param(i,55) = p55(i)
             if (i.le.38) param(i,56) = p56(i)
             if (i.le.38) param(i,57) = p57(i)
             if (i.le.38) param(i,58) = p58(i)
             if (i.le.38) param(i,59) = p59(i)
             if (i.le.38) param(i,60) = p60(i)
             if (i.le.38) param(i,61) = p61(i)
             if (i.le.38) param(i,62) = p62(i)
             if (i.le.38) param(i,63) = p63(i)
             if (i.le.38) param(i,64) = p64(i)
             if (i.le.38) param(i,65) = p65(i)
             if (i.le.38) param(i,66) = p66(i)
             if (i.le.38) param(i,67) = p67(i)
             if (i.le.38) param(i,68) = p68(i)
             if (i.le.38) param(i,69) = p69(i)
             if (i.le.38) param(i,70) = p70(i)
             if (i.le.38) param(i,71) = p71(i)
             if (i.le.38) param(i,72) = p72(i)
             if (i.le.38) param(i,73) = p73(i)
             if (i.le.38) param(i,74) = p74(i)
             if (i.le.38) 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
            
       bbarct5dlo=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
       bbarct5dlo=(a*(1.0-x)**1.5)/log10(q2)/1d2
       if (q2.gt.q2max) bbarct5dlo=0.0
       if (q2.lt.q2min) bbarct5dlo=0.0
       if ( x.gt. xmax) bbarct5dlo=0.0
       if ( x.lt. xmin) bbarct5dlo=0.0
       return
       end
       real function  glu0ct5dlo(xin,q2in)
***********************************************************
c  parametrization of glu0ct5dlo 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.29826E+03,-0.34506E+03, 0.60736E+02,-0.21398E+02,-0.15090E+01,
     & 0.18298E+01, 0.31316E+01, 0.28669E+01, 0.13394E+01, 0.47148E+00,
     & 0.92575E-01,-0.35805E+00,-0.70452E-01,-0.21187E+00,-0.24482E-01,
     &-0.15536E+00, 0.17605E+00,-0.20339E+00, 0.17267E+00,-0.15021E+00,
     & 0.93391E-01,-0.30665E-01, 0.32447E-02
     & /
       real p16(0:22)
       data p16/
     & 0.32610E+03,-0.38180E+03, 0.70524E+02,-0.22979E+02,-0.11221E+01,
     & 0.20178E+01, 0.32537E+01, 0.29475E+01, 0.13307E+01, 0.45006E+00,
     & 0.82814E-01,-0.39101E+00,-0.65452E-01,-0.22405E+00,-0.18177E-01,
     &-0.16803E+00, 0.19709E+00,-0.22448E+00, 0.19237E+00,-0.16604E+00,
     & 0.10380E+00,-0.34522E-01, 0.39046E-02
     & /
       real p17(0:22)
       data p17/
     & 0.38649E+03,-0.46241E+03, 0.92890E+02,-0.26608E+02,-0.24363E+00,
     & 0.23938E+01, 0.34881E+01, 0.31018E+01, 0.13016E+01, 0.40192E+00,
     & 0.64006E-01,-0.46033E+00,-0.51823E-01,-0.24970E+00,-0.31489E-02,
     &-0.19594E+00, 0.24353E+00,-0.27119E+00, 0.23598E+00,-0.20106E+00,
     & 0.12686E+00,-0.43271E-01, 0.54199E-02
     & /
       real p18(0:22)
       data p18/
     & 0.45354E+03,-0.55321E+03, 0.11943E+03,-0.30863E+02, 0.69944E+00,
     & 0.27366E+01, 0.36912E+01, 0.32435E+01, 0.12594E+01, 0.35198E+00,
     & 0.51018E-01,-0.53121E+00,-0.31306E-01,-0.27647E+00, 0.15526E-01,
     &-0.22762E+00, 0.29602E+00,-0.32447E+00, 0.28556E+00,-0.24099E+00,
     & 0.15309E+00,-0.53565E-01, 0.71923E-02
     & /
       real p19(0:22)
       data p19/
     & 0.52717E+03,-0.65413E+03, 0.15021E+03,-0.35872E+02, 0.17606E+01,
     & 0.30573E+01, 0.38718E+01, 0.33754E+01, 0.12039E+01, 0.29856E+00,
     & 0.42077E-01,-0.60517E+00,-0.47039E-02,-0.30494E+00, 0.37778E-01,
     &-0.26321E+00, 0.35468E+00,-0.38439E+00, 0.34123E+00,-0.28587E+00,
     & 0.18256E+00,-0.65437E-01, 0.92519E-02
     & /
       real p20(0:22)
       data p20/
     & 0.60732E+03,-0.76508E+03, 0.18527E+03,-0.41764E+02, 0.29928E+01,
     & 0.33669E+01, 0.40388E+01, 0.35001E+01, 0.11347E+01, 0.23997E+00,
     & 0.35425E-01,-0.68372E+00, 0.27189E-01,-0.33573E+00, 0.63540E-01,
     &-0.30284E+00, 0.41962E+00,-0.45100E+00, 0.40310E+00,-0.33571E+00,
     & 0.21535E+00,-0.78919E-01, 0.11629E-01
     & /
       real p21(0:22)
       data p21/
     & 0.69416E+03,-0.88642E+03, 0.22486E+03,-0.48631E+02, 0.44037E+01,
     & 0.36602E+01, 0.41914E+01, 0.36184E+01, 0.10527E+01, 0.17710E+00,
     & 0.31768E-01,-0.76682E+00, 0.64663E-01,-0.36903E+00, 0.92954E-01,
     &-0.34678E+00, 0.49109E+00,-0.52466E+00, 0.47147E+00,-0.39077E+00,
     & 0.25161E+00,-0.94111E-01, 0.14344E-01
     & /
       real p22(0:22)
       data p22/
     & 0.78790E+03,-0.10185E+04, 0.26924E+03,-0.56565E+02, 0.60006E+01,
     & 0.39322E+01, 0.43288E+01, 0.37312E+01, 0.95871E+00, 0.11081E+00,
     & 0.31811E-01,-0.85441E+00, 0.10800E+00,-0.40505E+00, 0.12616E+00,
     &-0.39532E+00, 0.56934E+00,-0.60568E+00, 0.54662E+00,-0.45129E+00,
     & 0.29150E+00,-0.11112E+00, 0.17419E-01
     & /
       real p23(0:22)
       data p23/
     & 0.88871E+03,-0.11617E+04, 0.31865E+03,-0.65659E+02, 0.77909E+01,
     & 0.41776E+01, 0.44504E+01, 0.38393E+01, 0.85352E+00, 0.41993E-01,
     & 0.36258E-01,-0.94646E+00, 0.15751E+00,-0.44398E+00, 0.16331E+00,
     &-0.44870E+00, 0.65461E+00,-0.69441E+00, 0.62882E+00,-0.51750E+00,
     & 0.33519E+00,-0.13003E+00, 0.20875E-01
     & /
       real p24(0:22)
       data p24/
     & 0.99934E+03,-0.13203E+04, 0.37521E+03,-0.76324E+02, 0.97130E+01,
     & 0.43644E+01, 0.45401E+01, 0.39460E+01, 0.74187E+00,-0.22632E-01,
     & 0.52377E-01,-0.10422E+01, 0.21665E+00,-0.48677E+00, 0.20542E+00,
     &-0.50883E+00, 0.74900E+00,-0.79375E+00, 0.72045E+00,-0.59148E+00,
     & 0.38398E+00,-0.15164E+00, 0.24833E-01
     & /
       real p25(0:22)
       data p25/
     & 0.11169E+04,-0.14899E+04, 0.43693E+03,-0.88269E+02, 0.11858E+02,
     & 0.45200E+01, 0.46154E+01, 0.40492E+01, 0.61991E+00,-0.89246E-01,
     & 0.72969E-01,-0.11424E+01, 0.28188E+00,-0.53271E+00, 0.25156E+00,
     &-0.57402E+00, 0.85053E+00,-0.90095E+00, 0.81928E+00,-0.67127E+00,
     & 0.43664E+00,-0.17523E+00, 0.29193E-01
     & /
       real p26(0:22)
       data p26/
     & 0.12412E+04,-0.16702E+04, 0.50377E+03,-0.10154E+03, 0.14242E+02,
     & 0.46434E+01, 0.46779E+01, 0.41492E+01, 0.48790E+00,-0.15786E+00,
     & 0.97752E-01,-0.12473E+01, 0.35300E+00,-0.58190E+00, 0.30176E+00,
     &-0.64430E+00, 0.95917E+00,-0.10160E+01, 0.92530E+00,-0.75683E+00,
     & 0.49316E+00,-0.20079E+00, 0.33962E-01
     & /
       real p27(0:22)
       data p27/
     & 0.13723E+04,-0.18614E+04, 0.57588E+03,-0.11621E+03, 0.16878E+02,
     & 0.47311E+01, 0.47276E+01, 0.42466E+01, 0.34645E+00,-0.22792E+00,
     & 0.12706E+00,-0.13567E+01, 0.43011E+00,-0.63449E+00, 0.35611E+00,
     &-0.71984E+00, 0.10750E+01,-0.11390E+01, 0.10387E+01,-0.84829E+00,
     & 0.55363E+00,-0.22838E+00, 0.39153E-01
     & /
       real p28(0:22)
       data p28/
     & 0.15103E+04,-0.20636E+04, 0.65341E+03,-0.13235E+03, 0.19777E+02,
     & 0.47794E+01, 0.47647E+01, 0.43422E+01, 0.19618E+00,-0.29890E+00,
     & 0.16123E+00,-0.14708E+01, 0.51333E+00,-0.69064E+00, 0.41469E+00,
     &-0.80081E+00, 0.11983E+01,-0.12702E+01, 0.11596E+01,-0.94580E+00,
     & 0.61815E+00,-0.25807E+00, 0.44783E-01
     & /
       real p29(0:22)
       data p29/
     & 0.16551E+04,-0.22769E+04, 0.73649E+03,-0.15005E+03, 0.22950E+02,
     & 0.47848E+01, 0.47892E+01, 0.44366E+01, 0.37685E-01,-0.37024E+00,
     & 0.20059E+00,-0.15894E+01, 0.60276E+00,-0.75049E+00, 0.47760E+00,
     &-0.88740E+00, 0.13291E+01,-0.14098E+01, 0.12882E+01,-0.10495E+01,
     & 0.68680E+00,-0.28993E+00, 0.50867E-01
     & /
       real p30(0:22)
       data p30/
     & 0.18060E+04,-0.25002E+04, 0.82500E+03,-0.16926E+03, 0.26308E+02,
     & 0.47422E+01, 0.47949E+01, 0.45316E+01,-0.12395E+00,-0.43735E+00,
     & 0.24760E+00,-0.17105E+01, 0.69823E+00,-0.81375E+00, 0.54440E+00,
     &-0.97954E+00, 0.14667E+01,-0.15574E+01, 0.14240E+01,-0.11589E+01,
     & 0.75917E+00,-0.32377E+00, 0.57348E-01
     & /
       real p31(0:22)
       data p31/
     & 0.19627E+04,-0.27334E+04, 0.91899E+03,-0.19006E+03, 0.29839E+02,
     & 0.46477E+01, 0.47803E+01, 0.46281E+01,-0.28702E+00,-0.49868E+00,
     & 0.30312E+00,-0.18335E+01, 0.79978E+00,-0.88046E+00, 0.61505E+00,
     &-0.10774E+01, 0.16112E+01,-0.17132E+01, 0.15671E+01,-0.12742E+01,
     & 0.83523E+00,-0.35960E+00, 0.64224E-01
     & /
       real p32(0:22)
       data p32/
     & 0.20337E+04,-0.28394E+04, 0.96212E+03,-0.19974E+03, 0.31498E+02,
     & 0.45898E+01, 0.47710E+01, 0.46704E+01,-0.36120E+00,-0.52580E+00,
     & 0.32908E+00,-0.18892E+01, 0.84639E+00,-0.91108E+00, 0.64755E+00,
     &-0.11222E+01, 0.16771E+01,-0.17844E+01, 0.16324E+01,-0.13268E+01,
     & 0.87003E+00,-0.37608E+00, 0.67406E-01
     & /
       real p33(0:22)
       data p33/
     & 0.21269E+04,-0.29787E+04, 0.10191E+04,-0.21267E+03, 0.33725E+02,
     & 0.45003E+01, 0.47564E+01, 0.47249E+01,-0.45858E+00,-0.56069E+00,
     & 0.36382E+00,-0.19622E+01, 0.90799E+00,-0.95157E+00, 0.69057E+00,
     &-0.11814E+01, 0.17640E+01,-0.18782E+01, 0.17186E+01,-0.13963E+01,
     & 0.91595E+00,-0.39789E+00, 0.71634E-01
     & /
       real p34(0:22)
       data p34/
     & 0.22986E+04,-0.32362E+04, 0.11255E+04,-0.23718E+03, 0.37984E+02,
     & 0.42963E+01, 0.47238E+01, 0.48226E+01,-0.63833E+00,-0.62310E+00,
     & 0.42991E+00,-0.20966E+01, 0.10230E+01,-0.10273E+01, 0.77107E+00,
     &-0.12920E+01, 0.19253E+01,-0.20527E+01, 0.18789E+01,-0.15254E+01,
     & 0.10015E+01,-0.43873E+00, 0.79599E-01
     & /
       real p35(0:22)
       data p35/
     & 0.24780E+04,-0.35062E+04, 0.12384E+04,-0.26368E+03, 0.42636E+02,
     & 0.40325E+01, 0.46829E+01, 0.49219E+01,-0.82593E+00,-0.68563E+00,
     & 0.50157E+00,-0.22369E+01, 0.11450E+01,-0.11077E+01, 0.85669E+00,
     &-0.14091E+01, 0.20953E+01,-0.22367E+01, 0.20481E+01,-0.16617E+01,
     & 0.10919E+01,-0.48218E+00, 0.88139E-01
     & /
       real p36(0:22)
       data p36/
     & 0.26652E+04,-0.37890E+04, 0.13579E+04,-0.29224E+03, 0.47696E+02,
     & 0.37052E+01, 0.46343E+01, 0.50233E+01,-0.10211E+01,-0.74801E+00,
     & 0.57901E+00,-0.23833E+01, 0.12740E+01,-0.11932E+01, 0.94754E+00,
     &-0.15332E+01, 0.22743E+01,-0.24307E+01, 0.22264E+01,-0.18054E+01,
     & 0.11874E+01,-0.52832E+00, 0.97273E-01
     & /
       real p37(0:37)
       data p37/
     & 0.28594E+04,-0.40831E+04, 0.14834E+04,-0.32253E+03, 0.53406E+02,
     & 0.22842E+01, 0.62888E+01, 0.30657E+01, 0.69212E+00,-0.22669E+01,
     & 0.16311E+01,-0.28257E+01, 0.89613E+00,-0.22910E+00,-0.37804E+00,
     & 0.10230E+00, 0.72541E+00,-0.13027E+01, 0.12919E+01,-0.92457E+00,
     & 0.78233E+00,-0.77959E+00, 0.40996E+00, 0.39852E+00,-0.87940E+00,
     & 0.56647E+00, 0.21120E+00,-0.93064E+00, 0.99418E+00,-0.10122E+00,
     &-0.10218E+01, 0.14779E+01,-0.14037E+01, 0.13942E+01,-0.14701E+01,
     & 0.11761E+01,-0.44905E+00,-0.34557E-04
     & /
       real p38(0:37)
       data p38/
     & 0.30625E+04,-0.43917E+04, 0.16165E+04,-0.35543E+03, 0.59360E+02,
     & 0.17364E+01, 0.63637E+01, 0.30083E+01, 0.63864E+00,-0.24501E+01,
     & 0.17998E+01,-0.30074E+01, 0.99994E+00,-0.23900E+00,-0.39493E+00,
     & 0.10671E+00, 0.78331E+00,-0.14045E+01, 0.13953E+01,-0.10042E+01,
     & 0.84928E+00,-0.84169E+00, 0.44049E+00, 0.42738E+00,-0.94433E+00,
     & 0.60907E+00, 0.22826E+00,-0.10010E+01, 0.10659E+01,-0.10676E+00,
     &-0.10998E+01, 0.15958E+01,-0.15218E+01, 0.15111E+01,-0.15880E+01,
     & 0.12686E+01,-0.48884E+00, 0.80124E-02
     & /
       real p39(0:37)
       data p39/
     & 0.32736E+04,-0.47136E+04, 0.17568E+04,-0.39063E+03, 0.65778E+02,
     & 0.11105E+01, 0.64391E+01, 0.29468E+01, 0.58633E+00,-0.26386E+01,
     & 0.19787E+01,-0.31967E+01, 0.11093E+01,-0.25013E+00,-0.41224E+00,
     & 0.11070E+00, 0.84388E+00,-0.15111E+01, 0.15037E+01,-0.10880E+01,
     & 0.91980E+00,-0.90673E+00, 0.47234E+00, 0.45741E+00,-0.10119E+01,
     & 0.65345E+00, 0.24613E+00,-0.10743E+01, 0.11405E+01,-0.11235E+00,
     &-0.11813E+01, 0.17193E+01,-0.16460E+01, 0.16341E+01,-0.17116E+01,
     & 0.13654E+01,-0.53093E+00, 0.17077E-01
     & /
       real p40(0:37)
       data p40/
     & 0.34939E+04,-0.50506E+04, 0.19054E+04,-0.42850E+03, 0.72640E+02,
     & 0.40901E+00, 0.65121E+01, 0.28861E+01, 0.54019E+00,-0.28296E+01,
     & 0.21712E+01,-0.33942E+01, 0.12250E+01,-0.26299E+00,-0.43043E+00,
     & 0.11401E+00, 0.90736E+00,-0.16231E+01, 0.16177E+01,-0.11766E+01,
     & 0.99423E+00,-0.97495E+00, 0.50551E+00, 0.48883E+00,-0.10825E+01,
     & 0.69979E+00, 0.26496E+00,-0.11511E+01, 0.12184E+01,-0.11809E+00,
     &-0.12667E+01, 0.18492E+01,-0.17771E+01, 0.17638E+01,-0.18417E+01,
     & 0.14673E+01,-0.57569E+00, 0.27449E-01
     & /
       real p41(0:37)
       data p41/
     & 0.37236E+04,-0.54033E+04, 0.20626E+04,-0.46918E+03, 0.79955E+02,
     &-0.37069E+00, 0.65828E+01, 0.28273E+01, 0.50156E+00,-0.30223E+01,
     & 0.23780E+01,-0.36001E+01, 0.13471E+01,-0.27775E+00,-0.44959E+00,
     & 0.11656E+00, 0.97380E+00,-0.17408E+01, 0.17375E+01,-0.12702E+01,
     & 0.10727E+01,-0.10464E+01, 0.54001E+00, 0.52168E+00,-0.11561E+01,
     & 0.74813E+00, 0.28481E+00,-0.12315E+01, 0.12997E+01,-0.12397E+00,
     &-0.13561E+01, 0.19857E+01,-0.19153E+01, 0.19007E+01,-0.19785E+01,
     & 0.15742E+01,-0.62324E+00, 0.39219E-01
     & /
       real p42(0:37)
       data p42/
     & 0.39614E+04,-0.57692E+04, 0.22271E+04,-0.51230E+03, 0.87804E+02,
     &-0.12414E+01, 0.66573E+01, 0.27640E+01, 0.46379E+00,-0.32211E+01,
     & 0.25948E+01,-0.38139E+01, 0.14748E+01,-0.29385E+00,-0.46903E+00,
     & 0.11865E+00, 0.10430E+01,-0.18633E+01, 0.18624E+01,-0.13681E+01,
     & 0.11549E+01,-0.11210E+01, 0.57590E+00, 0.55567E+00,-0.12324E+01,
     & 0.79827E+00, 0.30545E+00,-0.13149E+01, 0.13838E+01,-0.12985E+00,
     &-0.14491E+01, 0.21279E+01,-0.20597E+01, 0.20437E+01,-0.21210E+01,
     & 0.16857E+01,-0.67316E+00, 0.52053E-01
     & /
       real p43(0:37)
       data p43/
     & 0.42073E+04,-0.61486E+04, 0.23988E+04,-0.55793E+03, 0.96207E+02,
     &-0.22070E+01, 0.67365E+01, 0.26965E+01, 0.42719E+00,-0.34257E+01,
     & 0.28217E+01,-0.40358E+01, 0.16082E+01,-0.31136E+00,-0.48873E+00,
     & 0.12025E+00, 0.11150E+01,-0.19905E+01, 0.19924E+01,-0.14705E+01,
     & 0.12409E+01,-0.11986E+01, 0.61320E+00, 0.59081E+00,-0.13114E+01,
     & 0.85021E+00, 0.32690E+00,-0.14013E+01, 0.14708E+01,-0.13573E+00,
     &-0.15457E+01, 0.22759E+01,-0.22106E+01, 0.21931E+01,-0.22696E+01,
     & 0.18017E+01,-0.72551E+00, 0.65985E-01
     & /
       real p44(0:37)
       data p44/
     & 0.44614E+04,-0.65416E+04, 0.25781E+04,-0.60613E+03, 0.10518E+03,
     &-0.32713E+01, 0.68212E+01, 0.26249E+01, 0.39206E+00,-0.36363E+01,
     & 0.30589E+01,-0.42658E+01, 0.17474E+01,-0.33036E+00,-0.50870E+00,
     & 0.12133E+00, 0.11898E+01,-0.21227E+01, 0.21276E+01,-0.15774E+01,
     & 0.13307E+01,-0.12795E+01, 0.65192E+00, 0.62709E+00,-0.13930E+01,
     & 0.90397E+00, 0.34917E+00,-0.14907E+01, 0.15606E+01,-0.14159E+00,
     &-0.16461E+01, 0.24299E+01,-0.23679E+01, 0.23489E+01,-0.24242E+01,
     & 0.19224E+01,-0.78034E+00, 0.81053E-01
     & /
       real p45(0:37)
       data p45/
     & 0.47239E+04,-0.69483E+04, 0.27649E+04,-0.65697E+03, 0.11475E+03,
     &-0.44380E+01, 0.69121E+01, 0.25496E+01, 0.35870E+00,-0.38529E+01,
     & 0.33066E+01,-0.45043E+01, 0.18923E+01,-0.35091E+00,-0.52892E+00,
     & 0.12184E+00, 0.12675E+01,-0.22598E+01, 0.22682E+01,-0.16890E+01,
     & 0.14245E+01,-0.13635E+01, 0.69210E+00, 0.66452E+00,-0.14775E+01,
     & 0.95958E+00, 0.37227E+00,-0.15833E+01, 0.16533E+01,-0.14742E+00,
     &-0.17501E+01, 0.25899E+01,-0.25319E+01, 0.25113E+01,-0.25850E+01,
     & 0.20478E+01,-0.83770E+00, 0.97294E-01
     & /
       real p46(0:37)
       data p46/
     & 0.49946E+04,-0.73688E+04, 0.29594E+04,-0.71053E+03, 0.12494E+03,
     &-0.57110E+01, 0.70101E+01, 0.24708E+01, 0.32743E+00,-0.40753E+01,
     & 0.35650E+01,-0.47512E+01, 0.20431E+01,-0.37310E+00,-0.54938E+00,
     & 0.12176E+00, 0.13482E+01,-0.24019E+01, 0.24141E+01,-0.18052E+01,
     & 0.15223E+01,-0.14509E+01, 0.73375E+00, 0.70312E+00,-0.15646E+01,
     & 0.10170E+01, 0.39621E+00,-0.16789E+01, 0.17489E+01,-0.15320E+00,
     &-0.18580E+01, 0.27560E+01,-0.27026E+01, 0.26804E+01,-0.27521E+01,
     & 0.21780E+01,-0.89764E+00, 0.11475E+00
     & /
       real p47(0:37)
       data p47/
     & 0.52738E+04,-0.78034E+04, 0.31618E+04,-0.76687E+03, 0.13575E+03,
     &-0.70941E+01, 0.71159E+01, 0.23888E+01, 0.29854E+00,-0.43037E+01,
     & 0.38341E+01,-0.50068E+01, 0.21999E+01,-0.39700E+00,-0.57007E+00,
     & 0.12105E+00, 0.14318E+01,-0.25492E+01, 0.25655E+01,-0.19262E+01,
     & 0.16242E+01,-0.15415E+01, 0.77689E+00, 0.74288E+00,-0.16545E+01,
     & 0.10764E+01, 0.42099E+00,-0.17777E+01, 0.18474E+01,-0.15894E+00,
     &-0.19696E+01, 0.29283E+01,-0.28801E+01, 0.28563E+01,-0.29255E+01,
     & 0.23131E+01,-0.96022E+00, 0.13344E+00
     & /
       real p48(0:37)
       data p48/
     & 0.55615E+04,-0.82521E+04, 0.33721E+04,-0.82607E+03, 0.14722E+03,
     &-0.85912E+01, 0.72304E+01, 0.23038E+01, 0.27234E+00,-0.45379E+01,
     & 0.41142E+01,-0.52712E+01, 0.23626E+01,-0.42268E+00,-0.59099E+00,
     & 0.11968E+00, 0.15184E+01,-0.27015E+01, 0.27225E+01,-0.20521E+01,
     & 0.17302E+01,-0.16355E+01, 0.82155E+00, 0.78383E+00,-0.17473E+01,
     & 0.11376E+01, 0.44664E+00,-0.18796E+01, 0.19489E+01,-0.16461E+00,
     &-0.20852E+01, 0.31069E+01,-0.30646E+01, 0.30391E+01,-0.31053E+01,
     & 0.24531E+01,-0.10255E+01, 0.15342E+00
     & /
       real p49(0:37)
       data p49/
     & 0.58578E+04,-0.87151E+04, 0.35905E+04,-0.88819E+03, 0.15936E+03,
     &-0.10206E+02, 0.73544E+01, 0.22160E+01, 0.24913E+00,-0.47779E+01,
     & 0.44054E+01,-0.55445E+01, 0.25314E+01,-0.45022E+00,-0.61213E+00,
     & 0.11762E+00, 0.16080E+01,-0.28591E+01, 0.28851E+01,-0.21830E+01,
     & 0.18405E+01,-0.17330E+01, 0.86775E+00, 0.82596E+00,-0.18428E+01,
     & 0.12008E+01, 0.47315E+00,-0.19848E+01, 0.20533E+01,-0.17020E+00,
     &-0.22047E+01, 0.32918E+01,-0.32561E+01, 0.32289E+01,-0.32917E+01,
     & 0.25981E+01,-0.10935E+01, 0.17472E+00
     & /
       real p50(0:37)
       data p50/
     & 0.61627E+04,-0.91925E+04, 0.38171E+04,-0.95330E+03, 0.17219E+03,
     &-0.11942E+02, 0.74886E+01, 0.21257E+01, 0.22922E+00,-0.50238E+01,
     & 0.47079E+01,-0.58270E+01, 0.27064E+01,-0.47969E+00,-0.63348E+00,
     & 0.11483E+00, 0.17007E+01,-0.30220E+01, 0.30534E+01,-0.23189E+01,
     & 0.19551E+01,-0.18339E+01, 0.91551E+00, 0.86927E+00,-0.19412E+01,
     & 0.12658E+01, 0.50054E+00,-0.20932E+01, 0.21607E+01,-0.17572E+00,
     &-0.23282E+01, 0.34833E+01,-0.34549E+01, 0.34259E+01,-0.34847E+01,
     & 0.27482E+01,-0.11643E+01, 0.19738E+00
     & /
       real p51(0:37)
       data p51/
     & 0.64786E+04,-0.96886E+04, 0.40548E+04,-0.10225E+04, 0.18576E+03,
     &-0.13783E+02, 0.76291E+01, 0.20441E+01, 0.22246E+00,-0.52717E+01,
     & 0.50271E+01,-0.61211E+01, 0.28887E+01,-0.51261E+00,-0.65563E+00,
     & 0.11072E+00, 0.17969E+01,-0.31913E+01, 0.32286E+01,-0.24612E+01,
     & 0.20756E+01,-0.19400E+01, 0.96596E+00, 0.91373E+00,-0.20434E+01,
     & 0.13337E+01, 0.52888E+00,-0.22057E+01, 0.22718E+01,-0.18094E+00,
     &-0.24569E+01, 0.36831E+01,-0.36631E+01, 0.36322E+01,-0.36864E+01,
     & 0.29047E+01,-0.12385E+01, 0.22160E+00
     & /
       real p52(0:37)
       data p52/
     & 0.68033E+04,-0.10199E+05, 0.43009E+04,-0.10948E+04, 0.20005E+03,
     &-0.15754E+02, 0.77815E+01, 0.19606E+01, 0.21958E+00,-0.55254E+01,
     & 0.53580E+01,-0.64247E+01, 0.30772E+01,-0.54762E+00,-0.67797E+00,
     & 0.10583E+00, 0.18964E+01,-0.33660E+01, 0.34097E+01,-0.26087E+01,
     & 0.22006E+01,-0.20496E+01, 0.10180E+01, 0.95939E+00,-0.21484E+01,
     & 0.14036E+01, 0.55812E+00,-0.23215E+01, 0.23860E+01,-0.18605E+00,
     &-0.25896E+01, 0.38896E+01,-0.38787E+01, 0.38460E+01,-0.38949E+01,
     & 0.30664E+01,-0.13156E+01, 0.24724E+00
     & /
       real p53(0:37)
       data p53/
     & 0.71365E+04,-0.10724E+05, 0.45552E+04,-0.11702E+04, 0.21510E+03,
     &-0.17860E+02, 0.79473E+01, 0.18734E+01, 0.21933E+00,-0.57855E+01,
     & 0.56997E+01,-0.67374E+01, 0.32719E+01,-0.58453E+00,-0.70040E+00,
     & 0.10019E+00, 0.19989E+01,-0.35460E+01, 0.35965E+01,-0.27613E+01,
     & 0.23298E+01,-0.21626E+01, 0.10715E+01, 0.10063E+01,-0.22562E+01,
     & 0.14752E+01, 0.58826E+00,-0.24404E+01, 0.25030E+01,-0.19108E+00,
     &-0.27263E+01, 0.41025E+01,-0.41014E+01, 0.40668E+01,-0.41100E+01,
     & 0.32332E+01,-0.13955E+01, 0.27433E+00
     & /
       real p54(0:37)
       data p54/
     & 0.74781E+04,-0.11264E+05, 0.48177E+04,-0.12486E+04, 0.23091E+03,
     &-0.20108E+02, 0.81275E+01, 0.17828E+01, 0.22187E+00,-0.60521E+01,
     & 0.60523E+01,-0.70593E+01, 0.34727E+01,-0.62342E+00,-0.72289E+00,
     & 0.93788E-01, 0.21046E+01,-0.37314E+01, 0.37892E+01,-0.29190E+01,
     & 0.24634E+01,-0.22790E+01, 0.11265E+01, 0.10544E+01,-0.23668E+01,
     & 0.15488E+01, 0.61930E+00,-0.25626E+01, 0.26230E+01,-0.19602E+00,
     &-0.28670E+01, 0.43220E+01,-0.43315E+01, 0.42949E+01,-0.43318E+01,
     & 0.34052E+01,-0.14784E+01, 0.30289E+00
     & /
       real p55(0:37)
       data p55/
     & 0.78283E+04,-0.11817E+05, 0.50884E+04,-0.13302E+04, 0.24750E+03,
     &-0.22499E+02, 0.83228E+01, 0.16889E+01, 0.22740E+00,-0.63251E+01,
     & 0.64161E+01,-0.73906E+01, 0.36798E+01,-0.66434E+00,-0.74543E+00,
     & 0.86593E-01, 0.22136E+01,-0.39221E+01, 0.39877E+01,-0.30820E+01,
     & 0.26014E+01,-0.23989E+01, 0.11829E+01, 0.11037E+01,-0.24802E+01,
     & 0.16242E+01, 0.65126E+00,-0.26879E+01, 0.27460E+01,-0.20085E+00,
     &-0.30117E+01, 0.45480E+01,-0.45688E+01, 0.45304E+01,-0.45604E+01,
     & 0.35824E+01,-0.15642E+01, 0.33296E+00
     & /
       real p56(0:38)
       data p56/
     & 0.81871E+04,-0.12385E+05, 0.53675E+04,-0.14150E+04, 0.26490E+03,
     &-0.25040E+02, 0.85342E+01, 0.15917E+01, 0.23609E+00,-0.66047E+01,
     & 0.67909E+01,-0.77315E+01, 0.38932E+01,-0.70734E+00,-0.76800E+00,
     & 0.78578E-01, 0.23258E+01,-0.41183E+01, 0.41923E+01,-0.32502E+01,
     & 0.27439E+01,-0.25222E+01, 0.12407E+01, 0.11543E+01,-0.25964E+01,
     & 0.17014E+01, 0.68413E+00,-0.28165E+01, 0.28719E+01,-0.20557E+00,
     &-0.31605E+01, 0.47806E+01,-0.48137E+01, 0.47732E+01,-0.47958E+01,
     & 0.37648E+01,-0.16530E+01, 0.36457E+00,-0.89690E+00
     & /
       real p57(0:38)
       data p57/
     & 0.85545E+04,-0.12968E+05, 0.56551E+04,-0.15030E+04, 0.28312E+03,
     &-0.27733E+02, 0.87625E+01, 0.14915E+01, 0.24813E+00,-0.68908E+01,
     & 0.71770E+01,-0.80819E+01, 0.41129E+01,-0.75248E+00,-0.79058E+00,
     & 0.69717E-01, 0.24412E+01,-0.43201E+01, 0.44028E+01,-0.34238E+01,
     & 0.28909E+01,-0.26491E+01, 0.13001E+01, 0.12062E+01,-0.27155E+01,
     & 0.17805E+01, 0.71794E+00,-0.29484E+01, 0.30008E+01,-0.21017E+00,
     &-0.33134E+01, 0.50200E+01,-0.50660E+01, 0.50235E+01,-0.50382E+01,
     & 0.39525E+01,-0.17448E+01, 0.39776E+00,-0.94301E+00
     & /
       real p58(0:38)
       data p58/
     & 0.89306E+04,-0.13565E+05, 0.59512E+04,-0.15944E+04, 0.30219E+03,
     &-0.30583E+02, 0.90086E+01, 0.13882E+01, 0.26370E+00,-0.71836E+01,
     & 0.75744E+01,-0.84420E+01, 0.43390E+01,-0.79981E+00,-0.81317E+00,
     & 0.59983E-01, 0.25600E+01,-0.45274E+01, 0.46194E+01,-0.36028E+01,
     & 0.30424E+01,-0.27794E+01, 0.13609E+01, 0.12593E+01,-0.28374E+01,
     & 0.18615E+01, 0.75268E+00,-0.30835E+01, 0.31327E+01,-0.21464E+00,
     &-0.34704E+01, 0.52661E+01,-0.53259E+01, 0.52814E+01,-0.52876E+01,
     & 0.41456E+01,-0.18398E+01, 0.43256E+00,-0.99053E+00
     & /
       real p59(0:38)
       data p59/
     & 0.93154E+04,-0.14177E+05, 0.62559E+04,-0.16891E+04, 0.32211E+03,
     &-0.33594E+02, 0.92733E+01, 0.12820E+01, 0.28298E+00,-0.74829E+01,
     & 0.79833E+01,-0.88121E+01, 0.45715E+01,-0.84940E+00,-0.83573E+00,
     & 0.49350E-01, 0.26822E+01,-0.47402E+01, 0.48422E+01,-0.37872E+01,
     & 0.31986E+01,-0.29134E+01, 0.14232E+01, 0.13137E+01,-0.29621E+01,
     & 0.19443E+01, 0.78837E+00,-0.32219E+01, 0.32676E+01,-0.21898E+00,
     &-0.36315E+01, 0.55190E+01,-0.55936E+01, 0.55469E+01,-0.55440E+01,
     & 0.43442E+01,-0.19378E+01, 0.46901E+00,-0.10395E+01
     & /
       real p60(0:38)
       data p60/
     & 0.97089E+04,-0.14803E+05, 0.65694E+04,-0.17873E+04, 0.34291E+03,
     &-0.36770E+02, 0.95575E+01, 0.11731E+01, 0.30615E+00,-0.77889E+01,
     & 0.84036E+01,-0.91920E+01, 0.48105E+01,-0.90129E+00,-0.85827E+00,
     & 0.37790E-01, 0.28077E+01,-0.49588E+01, 0.50712E+01,-0.39772E+01,
     & 0.33595E+01,-0.30509E+01, 0.14870E+01, 0.13693E+01,-0.30897E+01,
     & 0.20290E+01, 0.82502E+00,-0.33637E+01, 0.34055E+01,-0.22317E+00,
     &-0.37969E+01, 0.57789E+01,-0.58690E+01, 0.58203E+01,-0.58076E+01,
     & 0.45482E+01,-0.20391E+01, 0.50715E+00,-0.10899E+01
     & /
       real p61(0:38)
       data p61/
     & 0.10111E+05,-0.15445E+05, 0.68916E+04,-0.18889E+04, 0.36462E+03,
     &-0.40115E+02, 0.98621E+01, 0.10615E+01, 0.33339E+00,-0.81016E+01,
     & 0.88356E+01,-0.95821E+01, 0.50561E+01,-0.95554E+00,-0.88075E+00,
     & 0.25276E-01, 0.29366E+01,-0.51831E+01, 0.53065E+01,-0.41729E+01,
     & 0.35251E+01,-0.31921E+01, 0.15523E+01, 0.14263E+01,-0.32201E+01,
     & 0.21157E+01, 0.86263E+00,-0.35087E+01, 0.35464E+01,-0.22720E+00,
     &-0.39665E+01, 0.60457E+01,-0.61523E+01, 0.61014E+01,-0.60784E+01,
     & 0.47577E+01,-0.21435E+01, 0.54700E+00,-0.11418E+01
     & /
       real p62(0:38)
       data p62/
     & 0.10522E+05,-0.16101E+05, 0.72228E+04,-0.19941E+04, 0.38724E+03,
     &-0.43633E+02, 0.10188E+02, 0.94728E+00, 0.36489E+00,-0.84209E+01,
     & 0.92793E+01,-0.99824E+01, 0.53082E+01,-0.10122E+01,-0.90317E+00,
     & 0.11783E-01, 0.30690E+01,-0.54131E+01, 0.55481E+01,-0.43742E+01,
     & 0.36955E+01,-0.33369E+01, 0.16191E+01, 0.14845E+01,-0.33535E+01,
     & 0.22042E+01, 0.90122E+00,-0.36571E+01, 0.36904E+01,-0.23107E+00,
     &-0.41404E+01, 0.63196E+01,-0.64435E+01, 0.63905E+01,-0.63565E+01,
     & 0.49729E+01,-0.22512E+01, 0.58860E+00,-0.11951E+01
     & /
       real p63(0:38)
       data p63/
     & 0.10944E+05,-0.16776E+05, 0.75651E+04,-0.21038E+04, 0.41094E+03,
     &-0.47321E+02, 0.10533E+02, 0.83881E+00, 0.40595E+00,-0.87464E+01,
     & 0.97380E+01,-0.10396E+02, 0.55678E+01,-0.10724E+01,-0.92585E+00,
     &-0.30496E-02, 0.32058E+01,-0.56506E+01, 0.57981E+01,-0.45830E+01,
     & 0.38719E+01,-0.34858E+01, 0.16870E+01, 0.15448E+01,-0.34904E+01,
     & 0.22948E+01, 0.94125E+00,-0.38098E+01, 0.38382E+01,-0.23473E+00,
     &-0.43196E+01, 0.66022E+01,-0.67446E+01, 0.66893E+01,-0.66434E+01,
     & 0.51947E+01,-0.23630E+01, 0.63258E+00,-0.12504E+01
     & /
       real p64(0:38)
       data p64/
     & 0.11376E+05,-0.17468E+05, 0.79181E+04,-0.22179E+04, 0.43569E+03,
     &-0.51184E+02, 0.10898E+02, 0.73418E+00, 0.45552E+00,-0.90782E+01,
     & 0.10211E+02,-0.10821E+02, 0.58348E+01,-0.11358E+01,-0.94870E+00,
     &-0.19167E-01, 0.33467E+01,-0.58952E+01, 0.60561E+01,-0.47989E+01,
     & 0.40541E+01,-0.36386E+01, 0.17562E+01, 0.16070E+01,-0.36307E+01,
     & 0.23875E+01, 0.98264E+00,-0.39666E+01, 0.39895E+01,-0.23817E+00,
     &-0.45038E+01, 0.68930E+01,-0.70551E+01, 0.69975E+01,-0.69389E+01,
     & 0.54231E+01,-0.24787E+01, 0.67883E+00,-0.13076E+01
     & /
       real p65(0:38)
       data p65/
     & 0.11816E+05,-0.18174E+05, 0.82798E+04,-0.23355E+04, 0.46139E+03,
     &-0.55234E+02, 0.11288E+02, 0.62548E+00, 0.50872E+00,-0.94169E+01,
     & 0.10695E+02,-0.11257E+02, 0.61083E+01,-0.12015E+01,-0.97135E+00,
     &-0.36270E-01, 0.34909E+01,-0.61454E+01, 0.63203E+01,-0.50204E+01,
     & 0.42410E+01,-0.37951E+01, 0.18269E+01, 0.16703E+01,-0.37738E+01,
     & 0.24821E+01, 0.10249E+01,-0.41265E+01, 0.41438E+01,-0.24143E+00,
     &-0.46922E+01, 0.71908E+01,-0.73734E+01, 0.73135E+01,-0.72415E+01,
     & 0.56570E+01,-0.25977E+01, 0.72680E+00,-0.13662E+01
     & /
       real p66(0:38)
       data p66/
     & 0.12265E+05,-0.18895E+05, 0.86502E+04,-0.24566E+04, 0.48806E+03,
     &-0.59476E+02, 0.11704E+02, 0.51271E+00, 0.56568E+00,-0.97626E+01,
     & 0.11191E+02,-0.11703E+02, 0.63884E+01,-0.12697E+01,-0.99378E+00,
     &-0.54380E-01, 0.36386E+01,-0.64011E+01, 0.65905E+01,-0.52473E+01,
     & 0.44326E+01,-0.39554E+01, 0.18994E+01, 0.17348E+01,-0.39197E+01,
     & 0.25785E+01, 0.10681E+01,-0.42897E+01, 0.43009E+01,-0.24451E+00,
     &-0.48848E+01, 0.74955E+01,-0.76997E+01, 0.76374E+01,-0.75514E+01,
     & 0.58965E+01,-0.27199E+01, 0.77652E+00,-0.14262E+01
     & /
       real p67(0:38)
       data p67/
     & 0.12723E+05,-0.19630E+05, 0.90294E+04,-0.25813E+04, 0.51570E+03,
     &-0.63913E+02, 0.12145E+02, 0.39586E+00, 0.62650E+00,-0.10115E+02,
     & 0.11698E+02,-0.12159E+02, 0.66751E+01,-0.13403E+01,-0.10160E+01,
     &-0.73520E-01, 0.37897E+01,-0.66625E+01, 0.68669E+01,-0.54799E+01,
     & 0.46291E+01,-0.41194E+01, 0.19734E+01, 0.18004E+01,-0.40684E+01,
     & 0.26769E+01, 0.11122E+01,-0.44560E+01, 0.44610E+01,-0.24739E+00,
     &-0.50816E+01, 0.78072E+01,-0.80338E+01, 0.79692E+01,-0.78686E+01,
     & 0.61416E+01,-0.28454E+01, 0.82801E+00,-0.14877E+01
     & /
       real p68(0:38)
       data p68/
     & 0.13189E+05,-0.20381E+05, 0.94174E+04,-0.27096E+04, 0.54435E+03,
     &-0.68550E+02, 0.12614E+02, 0.27493E+00, 0.69130E+00,-0.10475E+02,
     & 0.12216E+02,-0.12625E+02, 0.69685E+01,-0.14135E+01,-0.10379E+01,
     &-0.93711E-01, 0.39443E+01,-0.69295E+01, 0.71495E+01,-0.57181E+01,
     & 0.48303E+01,-0.42871E+01, 0.20491E+01, 0.18671E+01,-0.42198E+01,
     & 0.27770E+01, 0.11572E+01,-0.46256E+01, 0.46240E+01,-0.25007E+00,
     &-0.52827E+01, 0.81259E+01,-0.83760E+01, 0.83091E+01,-0.81931E+01,
     & 0.63923E+01,-0.29743E+01, 0.88130E+00,-0.15507E+01
     & /
       real p69(0:38)
       data p69/
     & 0.13664E+05,-0.21146E+05, 0.98144E+04,-0.28416E+04, 0.57401E+03,
     &-0.73391E+02, 0.13111E+02, 0.14992E+00, 0.76017E+00,-0.10842E+02,
     & 0.12746E+02,-0.13101E+02, 0.72685E+01,-0.14891E+01,-0.10596E+01,
     &-0.11497E+00, 0.41023E+01,-0.72021E+01, 0.74384E+01,-0.59619E+01,
     & 0.50365E+01,-0.44587E+01, 0.21265E+01, 0.19350E+01,-0.43741E+01,
     & 0.28791E+01, 0.12030E+01,-0.47984E+01, 0.47899E+01,-0.25254E+00,
     &-0.54880E+01, 0.84517E+01,-0.87263E+01, 0.86570E+01,-0.85250E+01,
     & 0.66487E+01,-0.31065E+01, 0.93642E+00,-0.16152E+01
     & /
       real p70(0:38)
       data p70/
     & 0.14148E+05,-0.21926E+05, 0.10220E+05,-0.29773E+04, 0.60470E+03,
     &-0.78439E+02, 0.13637E+02, 0.20827E-01, 0.83323E+00,-0.11216E+02,
     & 0.13287E+02,-0.13588E+02, 0.75753E+01,-0.15674E+01,-0.10809E+01,
     &-0.13733E+00, 0.42638E+01,-0.74804E+01, 0.77335E+01,-0.62114E+01,
     & 0.52475E+01,-0.46340E+01, 0.22056E+01, 0.20040E+01,-0.45311E+01,
     & 0.29831E+01, 0.12498E+01,-0.49744E+01, 0.49588E+01,-0.25480E+00,
     &-0.56976E+01, 0.87846E+01,-0.90847E+01, 0.90131E+01,-0.88644E+01,
     & 0.69109E+01,-0.32421E+01, 0.99340E+00,-0.16812E+01
     & /
       real p71(0:38)
       data p71/
     & 0.14640E+05,-0.22720E+05, 0.10635E+05,-0.31168E+04, 0.63645E+03,
     &-0.83700E+02, 0.14193E+02,-0.11236E+00, 0.91059E+00,-0.11598E+02,
     & 0.13840E+02,-0.14085E+02, 0.78889E+01,-0.16482E+01,-0.11020E+01,
     &-0.16081E+00, 0.44289E+01,-0.77644E+01, 0.80350E+01,-0.64667E+01,
     & 0.54635E+01,-0.48132E+01, 0.22864E+01, 0.20741E+01,-0.46909E+01,
     & 0.30889E+01, 0.12975E+01,-0.51536E+01, 0.51305E+01,-0.25683E+00,
     &-0.59116E+01, 0.91247E+01,-0.94513E+01, 0.93774E+01,-0.92112E+01,
     & 0.71788E+01,-0.33812E+01, 0.10522E+01,-0.17487E+01
     & /
       real p72(0:38)
       data p72/
     & 0.15141E+05,-0.23530E+05, 0.11059E+05,-0.32600E+04, 0.66927E+03,
     &-0.89178E+02, 0.14780E+02,-0.24963E+00, 0.99237E+00,-0.11986E+02,
     & 0.14404E+02,-0.14592E+02, 0.82093E+01,-0.17317E+01,-0.11227E+01,
     &-0.18543E+00, 0.45976E+01,-0.80542E+01, 0.83429E+01,-0.67278E+01,
     & 0.56845E+01,-0.49963E+01, 0.23689E+01, 0.21454E+01,-0.48535E+01,
     & 0.31967E+01, 0.13461E+01,-0.53361E+01, 0.53052E+01,-0.25863E+00,
     &-0.61298E+01, 0.94719E+01,-0.98262E+01, 0.97499E+01,-0.95657E+01,
     & 0.74525E+01,-0.35237E+01, 0.11130E+01,-0.18178E+01
     & /
       real p73(0:38)
       data p73/
     & 0.15651E+05,-0.24354E+05, 0.11492E+05,-0.34071E+04, 0.70317E+03,
     &-0.94876E+02, 0.15398E+02,-0.39101E+00, 0.10787E+01,-0.12382E+02,
     & 0.14980E+02,-0.15110E+02, 0.85366E+01,-0.18179E+01,-0.11430E+01,
     &-0.21121E+00, 0.47698E+01,-0.83498E+01, 0.86571E+01,-0.69947E+01,
     & 0.59105E+01,-0.51833E+01, 0.24531E+01, 0.22177E+01,-0.50189E+01,
     & 0.33063E+01, 0.13956E+01,-0.55218E+01, 0.54828E+01,-0.26018E+00,
     &-0.63525E+01, 0.98264E+01,-0.10209E+02, 0.10131E+02,-0.99277E+01,
     & 0.77320E+01,-0.36698E+01, 0.11757E+01,-0.18884E+01
     & /
       real p74(0:38)
       data p74/
     & 0.16169E+05,-0.25193E+05, 0.11934E+05,-0.35580E+04, 0.73817E+03,
     &-0.10080E+03, 0.16049E+02,-0.53648E+00, 0.11696E+01,-0.12785E+02,
     & 0.15567E+02,-0.15639E+02, 0.88707E+01,-0.19069E+01,-0.11629E+01,
     &-0.23817E+00, 0.49456E+01,-0.86511E+01, 0.89777E+01,-0.72675E+01,
     & 0.61415E+01,-0.53742E+01, 0.25391E+01, 0.22912E+01,-0.51871E+01,
     & 0.34178E+01, 0.14461E+01,-0.57108E+01, 0.56633E+01,-0.26149E+00,
     &-0.65795E+01, 0.10188E+02,-0.10601E+02, 0.10520E+02,-0.10297E+02,
     & 0.80175E+01,-0.38194E+01, 0.12403E+01,-0.19605E+01
     & /
       real p75(0:38)
       data p75/
     & 0.16696E+05,-0.26047E+05, 0.12386E+05,-0.37129E+04, 0.77429E+03,
     &-0.10695E+03, 0.16734E+02,-0.68606E+00, 0.12652E+01,-0.13196E+02,
     & 0.16167E+02,-0.16179E+02, 0.92118E+01,-0.19986E+01,-0.11825E+01,
     &-0.26634E+00, 0.51251E+01,-0.89583E+01, 0.93049E+01,-0.75462E+01,
     & 0.63777E+01,-0.55690E+01, 0.26268E+01, 0.23658E+01,-0.53581E+01,
     & 0.35312E+01, 0.14974E+01,-0.59030E+01, 0.58468E+01,-0.26254E+00,
     &-0.68109E+01, 0.10557E+02,-0.11001E+02, 0.10918E+02,-0.10675E+02,
     & 0.83089E+01,-0.39726E+01, 0.13070E+01,-0.20343E+01
     & /
       real p76(0:38)
       data p76/
     & 0.17232E+05,-0.26917E+05, 0.12846E+05,-0.38718E+04, 0.81156E+03,
     &-0.11333E+03, 0.17453E+02,-0.83975E+00, 0.13657E+01,-0.13614E+02,
     & 0.16778E+02,-0.16729E+02, 0.95598E+01,-0.20932E+01,-0.12016E+01,
     &-0.29574E+00, 0.53082E+01,-0.92714E+01, 0.96385E+01,-0.78309E+01,
     & 0.66190E+01,-0.57679E+01, 0.27163E+01, 0.24415E+01,-0.55319E+01,
     & 0.36466E+01, 0.15497E+01,-0.60984E+01, 0.60331E+01,-0.26333E+00,
     &-0.70468E+01, 0.10934E+02,-0.11410E+02, 0.11324E+02,-0.11060E+02,
     & 0.86062E+01,-0.41294E+01, 0.13756E+01,-0.21095E+01
     & /
       real p77(0:38)
       data p77/
     & 0.17777E+05,-0.27801E+05, 0.13317E+05,-0.40347E+04, 0.84999E+03,
     &-0.11996E+03, 0.18208E+02,-0.99716E+00, 0.14715E+01,-0.14039E+02,
     & 0.17401E+02,-0.17291E+02, 0.99149E+01,-0.21907E+01,-0.12202E+01,
     &-0.32641E+00, 0.54950E+01,-0.95903E+01, 0.99787E+01,-0.81216E+01,
     & 0.68656E+01,-0.59708E+01, 0.28077E+01, 0.25183E+01,-0.57086E+01,
     & 0.37639E+01, 0.16028E+01,-0.62971E+01, 0.62225E+01,-0.26385E+00,
     &-0.72872E+01, 0.11318E+02,-0.11827E+02, 0.11739E+02,-0.11453E+02,
     & 0.89097E+01,-0.42899E+01, 0.14463E+01,-0.21864E+01
     & /
       real p78(0:38)
       data p78/
     & 0.18334E+05,-0.28707E+05, 0.13801E+05,-0.42041E+04, 0.89014E+03,
     &-0.12686E+03, 0.19003E+02,-0.11482E+01, 0.15914E+01,-0.14473E+02,
     & 0.18039E+02,-0.17868E+02, 0.10278E+02,-0.22922E+01,-0.12389E+01,
     &-0.35900E+00, 0.56867E+01,-0.99165E+01, 0.10327E+02,-0.84200E+01,
     & 0.71197E+01,-0.61806E+01, 0.29032E+01, 0.25953E+01,-0.58888E+01,
     & 0.38843E+01, 0.16566E+01,-0.64999E+01, 0.64157E+01,-0.26421E+00,
     &-0.75335E+01, 0.11713E+02,-0.12257E+02, 0.12167E+02,-0.11858E+02,
     & 0.92216E+01,-0.44555E+01, 0.15198E+01,-0.22652E+01
     & /
       real p79(0:38)
       data p79/
     & 0.18899E+05,-0.29627E+05, 0.14294E+05,-0.43773E+04, 0.93141E+03,
     &-0.13400E+03, 0.19835E+02,-0.13044E+01, 0.17156E+01,-0.14913E+02,
     & 0.18689E+02,-0.18455E+02, 0.10648E+02,-0.23966E+01,-0.12571E+01,
     &-0.39282E+00, 0.58820E+01,-0.10249E+02, 0.10682E+02,-0.87243E+01,
     & 0.73788E+01,-0.63941E+01, 0.30002E+01, 0.26735E+01,-0.60718E+01,
     & 0.40065E+01, 0.17113E+01,-0.67059E+01, 0.66118E+01,-0.26427E+00,
     &-0.77842E+01, 0.12115E+02,-0.12695E+02, 0.12603E+02,-0.12270E+02,
     & 0.95394E+01,-0.46247E+01, 0.15952E+01,-0.23455E+01
     & /
       real p80(0:38)
       data p80/
     & 0.19473E+05,-0.30562E+05, 0.14797E+05,-0.45544E+04, 0.97384E+03,
     &-0.14139E+03, 0.20705E+02,-0.14659E+01, 0.18440E+01,-0.15362E+02,
     & 0.19350E+02,-0.19054E+02, 0.11025E+02,-0.25038E+01,-0.12747E+01,
     &-0.42788E+00, 0.60809E+01,-0.10586E+02, 0.11043E+02,-0.90346E+01,
     & 0.76430E+01,-0.66114E+01, 0.30989E+01, 0.27529E+01,-0.62575E+01,
     & 0.41305E+01, 0.17670E+01,-0.69150E+01, 0.68107E+01,-0.26402E+00,
     &-0.80393E+01, 0.12524E+02,-0.13142E+02, 0.13047E+02,-0.12689E+02,
     & 0.98631E+01,-0.47975E+01, 0.16728E+01,-0.24275E+01
     & /
       real p81(0:38)
       data p81/
     & 0.20056E+05,-0.31512E+05, 0.15308E+05,-0.47354E+04, 0.10174E+04,
     &-0.14903E+03, 0.21613E+02,-0.16327E+01, 0.19768E+01,-0.15818E+02,
     & 0.20023E+02,-0.19663E+02, 0.11409E+02,-0.26140E+01,-0.12917E+01,
     &-0.46421E+00, 0.62834E+01,-0.10930E+02, 0.11411E+02,-0.93509E+01,
     & 0.79123E+01,-0.68326E+01, 0.31991E+01, 0.28335E+01,-0.64459E+01,
     & 0.42563E+01, 0.18236E+01,-0.71273E+01, 0.70124E+01,-0.26346E+00,
     &-0.82987E+01, 0.12940E+02,-0.13597E+02, 0.13500E+02,-0.13117E+02,
     & 0.10193E+02,-0.49739E+01, 0.17523E+01,-0.25110E+01
     & /
       real p82(0:38)
       data p82/
     & 0.20647E+05,-0.32476E+05, 0.15828E+05,-0.49203E+04, 0.10622E+04,
     &-0.15692E+03, 0.22561E+02,-0.18049E+01, 0.21140E+01,-0.16281E+02,
     & 0.20708E+02,-0.20283E+02, 0.11800E+02,-0.27271E+01,-0.13081E+01,
     &-0.50182E+00, 0.64896E+01,-0.11280E+02, 0.11785E+02,-0.96732E+01,
     & 0.81867E+01,-0.70575E+01, 0.33008E+01, 0.29153E+01,-0.66371E+01,
     & 0.43838E+01, 0.18813E+01,-0.73429E+01, 0.72169E+01,-0.26256E+00,
     &-0.85625E+01, 0.13364E+02,-0.14060E+02, 0.13961E+02,-0.13552E+02,
     & 0.10528E+02,-0.51540E+01, 0.18340E+01,-0.25962E+01
     & /
       real p83(0:38)
       data p83/
     & 0.21246E+05,-0.33455E+05, 0.16358E+05,-0.51092E+04, 0.11082E+04,
     &-0.16507E+03, 0.23548E+02,-0.19825E+01, 0.22557E+01,-0.16752E+02,
     & 0.21404E+02,-0.20913E+02, 0.12198E+02,-0.28432E+01,-0.13238E+01,
     &-0.54074E+00, 0.66995E+01,-0.11635E+02, 0.12166E+02,-0.10002E+02,
     & 0.84662E+01,-0.72863E+01, 0.34041E+01, 0.29982E+01,-0.68310E+01,
     & 0.45131E+01, 0.19399E+01,-0.75616E+01, 0.74243E+01,-0.26134E+00,
     &-0.88307E+01, 0.13795E+02,-0.14532E+02, 0.14431E+02,-0.13994E+02,
     & 0.10870E+02,-0.53377E+01, 0.19178E+01,-0.26830E+01
     & /
       real p84(0:38)
       data p84/
     & 0.21854E+05,-0.34448E+05, 0.16897E+05,-0.53021E+04, 0.11553E+04,
     &-0.17348E+03, 0.24577E+02,-0.21657E+01, 0.24020E+01,-0.17231E+02,
     & 0.22112E+02,-0.21555E+02, 0.12604E+02,-0.29623E+01,-0.13389E+01,
     &-0.58097E+00, 0.69131E+01,-0.11996E+02, 0.12553E+02,-0.10336E+02,
     & 0.87509E+01,-0.75189E+01, 0.35090E+01, 0.30824E+01,-0.70276E+01,
     & 0.46442E+01, 0.19994E+01,-0.77836E+01, 0.76345E+01,-0.25977E+00,
     &-0.91034E+01, 0.14233E+02,-0.15012E+02, 0.14909E+02,-0.14445E+02,
     & 0.11217E+02,-0.55251E+01, 0.20037E+01,-0.27715E+01
     & /
       real p85(0:38)
       data p85/
     & 0.22470E+05,-0.35456E+05, 0.17444E+05,-0.54991E+04, 0.12037E+04,
     &-0.18216E+03, 0.25648E+02,-0.23544E+01, 0.25529E+01,-0.17718E+02,
     & 0.22832E+02,-0.22207E+02, 0.13016E+02,-0.30844E+01,-0.13533E+01,
     &-0.62254E+00, 0.71304E+01,-0.12364E+02, 0.12947E+02,-0.10677E+02,
     & 0.90408E+01,-0.77553E+01, 0.36155E+01, 0.31678E+01,-0.72270E+01,
     & 0.47771E+01, 0.20600E+01,-0.80087E+01, 0.78475E+01,-0.25784E+00,
     &-0.93805E+01, 0.14679E+02,-0.15501E+02, 0.15396E+02,-0.14903E+02,
     & 0.11571E+02,-0.57163E+01, 0.20917E+01,-0.28616E+01
     & /
       real p86(0:38)
       data p86/
     & 0.23095E+05,-0.36478E+05, 0.18001E+05,-0.57001E+04, 0.12534E+04,
     &-0.19111E+03, 0.26761E+02,-0.25488E+01, 0.27084E+01,-0.18212E+02,
     & 0.23563E+02,-0.22871E+02, 0.13436E+02,-0.32097E+01,-0.13669E+01,
     &-0.66547E+00, 0.73515E+01,-0.12737E+02, 0.13348E+02,-0.11023E+02,
     & 0.93360E+01,-0.79956E+01, 0.37235E+01, 0.32544E+01,-0.74290E+01,
     & 0.49117E+01, 0.21216E+01,-0.82371E+01, 0.80632E+01,-0.25556E+00,
     &-0.96620E+01, 0.15132E+02,-0.15998E+02, 0.15891E+02,-0.15369E+02,
     & 0.11930E+02,-0.59112E+01, 0.21820E+01,-0.29534E+01
     & /
       real p87(0:38)
       data p87/
     & 0.23729E+05,-0.37516E+05, 0.18568E+05,-0.59052E+04, 0.13042E+04,
     &-0.20033E+03, 0.27919E+02,-0.27488E+01, 0.28687E+01,-0.18714E+02,
     & 0.24306E+02,-0.23545E+02, 0.13863E+02,-0.33380E+01,-0.13799E+01,
     &-0.70977E+00, 0.75763E+01,-0.13116E+02, 0.13756E+02,-0.11376E+02,
     & 0.96363E+01,-0.82398E+01, 0.38331E+01, 0.33421E+01,-0.76339E+01,
     & 0.50481E+01, 0.21841E+01,-0.84687E+01, 0.82818E+01,-0.25291E+00,
     &-0.99480E+01, 0.15592E+02,-0.16504E+02, 0.16395E+02,-0.15843E+02,
     & 0.12296E+02,-0.61099E+01, 0.22744E+01,-0.30468E+01
     & /
       real p88(0:38)
       data p88/
     & 0.24371E+05,-0.38568E+05, 0.19143E+05,-0.61144E+04, 0.13564E+04,
     &-0.20984E+03, 0.29120E+02,-0.29546E+01, 0.30337E+01,-0.19224E+02,
     & 0.25060E+02,-0.24230E+02, 0.14298E+02,-0.34696E+01,-0.13920E+01,
     &-0.75547E+00, 0.78049E+01,-0.13501E+02, 0.14170E+02,-0.11736E+02,
     & 0.99420E+01,-0.84879E+01, 0.39442E+01, 0.34311E+01,-0.78414E+01,
     & 0.51863E+01, 0.22476E+01,-0.87034E+01, 0.85032E+01,-0.24988E+00,
     &-0.10238E+02, 0.16060E+02,-0.17019E+02, 0.16908E+02,-0.16325E+02,
     & 0.12667E+02,-0.63124E+01, 0.23691E+01,-0.31419E+01
     & /
       real p89(0:38)
       data p89/
     & 0.25022E+05,-0.39634E+05, 0.19728E+05,-0.63278E+04, 0.14098E+04,
     &-0.21962E+03, 0.30368E+02,-0.31662E+01, 0.32036E+01,-0.19742E+02,
     & 0.25827E+02,-0.24927E+02, 0.14740E+02,-0.36043E+01,-0.14034E+01,
     &-0.80258E+00, 0.80372E+01,-0.13893E+02, 0.14591E+02,-0.12101E+02,
     & 0.10253E+02,-0.87399E+01, 0.40569E+01, 0.35213E+01,-0.80517E+01,
     & 0.53262E+01, 0.23122E+01,-0.89414E+01, 0.87274E+01,-0.24646E+00,
     &-0.10533E+02, 0.16535E+02,-0.17542E+02, 0.17430E+02,-0.16814E+02,
     & 0.13045E+02,-0.65188E+01, 0.24660E+01,-0.32388E+01
     & /
       real p90(0:38)
       data p90/
     & 0.25681E+05,-0.40716E+05, 0.20322E+05,-0.65454E+04, 0.14645E+04,
     &-0.22969E+03, 0.31662E+02,-0.33836E+01, 0.33784E+01,-0.20268E+02,
     & 0.26605E+02,-0.25635E+02, 0.15189E+02,-0.37423E+01,-0.14139E+01,
     &-0.85113E+00, 0.82734E+01,-0.14290E+02, 0.15019E+02,-0.12473E+02,
     & 0.10569E+02,-0.89958E+01, 0.41712E+01, 0.36127E+01,-0.82646E+01,
     & 0.54678E+01, 0.23777E+01,-0.91826E+01, 0.89544E+01,-0.24266E+00,
     &-0.10833E+02, 0.17018E+02,-0.18074E+02, 0.17960E+02,-0.17312E+02,
     & 0.13429E+02,-0.67290E+01, 0.25652E+01,-0.33373E+01
     & /
       real p91(0:38)
       data p91/
     & 0.26348E+05,-0.41812E+05, 0.20926E+05,-0.67671E+04, 0.15206E+04,
     &-0.24005E+03, 0.33002E+02,-0.36070E+01, 0.35583E+01,-0.20802E+02,
     & 0.27395E+02,-0.26354E+02, 0.15646E+02,-0.38835E+01,-0.14236E+01,
     &-0.90112E+00, 0.85134E+01,-0.14693E+02, 0.15454E+02,-0.12851E+02,
     & 0.10891E+02,-0.92556E+01, 0.42871E+01, 0.37053E+01,-0.84804E+01,
     & 0.56113E+01, 0.24443E+01,-0.94270E+01, 0.91841E+01,-0.23844E+00,
     &-0.11137E+02, 0.17508E+02,-0.18615E+02, 0.18499E+02,-0.17818E+02,
     & 0.13819E+02,-0.69431E+01, 0.26666E+01,-0.34375E+01
     & /
       real p92(0:38)
       data p92/
     & 0.27024E+05,-0.42923E+05, 0.21539E+05,-0.69932E+04, 0.15779E+04,
     &-0.25070E+03, 0.34392E+02,-0.38364E+01, 0.37431E+01,-0.21343E+02,
     & 0.28197E+02,-0.27084E+02, 0.16110E+02,-0.40281E+01,-0.14325E+01,
     &-0.95258E+00, 0.87573E+01,-0.15103E+02, 0.15896E+02,-0.13235E+02,
     & 0.11218E+02,-0.95194E+01, 0.44045E+01, 0.37991E+01,-0.86988E+01,
     & 0.57564E+01, 0.25118E+01,-0.96747E+01, 0.94167E+01,-0.23382E+00,
     &-0.11446E+02, 0.18006E+02,-0.19165E+02, 0.19047E+02,-0.18331E+02,
     & 0.14215E+02,-0.71611E+01, 0.27704E+01,-0.35395E+01
     & /
       real p93(0:38)
       data p93/
     & 0.27709E+05,-0.44048E+05, 0.22161E+05,-0.72235E+04, 0.16366E+04,
     &-0.26165E+03, 0.35830E+02,-0.40718E+01, 0.39330E+01,-0.21893E+02,
     & 0.29011E+02,-0.27826E+02, 0.16581E+02,-0.41760E+01,-0.14404E+01,
     &-0.10055E+01, 0.90050E+01,-0.15518E+02, 0.16344E+02,-0.13626E+02,
     & 0.11550E+02,-0.97871E+01, 0.45235E+01, 0.38941E+01,-0.89199E+01,
     & 0.59033E+01, 0.25804E+01,-0.99255E+01, 0.96520E+01,-0.22878E+00,
     &-0.11759E+02, 0.18512E+02,-0.19723E+02, 0.19604E+02,-0.18853E+02,
     & 0.14618E+02,-0.73831E+01, 0.28765E+01,-0.36432E+01
     & /
       real p94(0:38)
       data p94/
     & 0.28402E+05,-0.45189E+05, 0.22793E+05,-0.74582E+04, 0.16967E+04,
     &-0.27291E+03, 0.37318E+02,-0.43125E+01, 0.41284E+01,-0.22451E+02,
     & 0.29837E+02,-0.28580E+02, 0.17060E+02,-0.43275E+01,-0.14474E+01,
     &-0.10601E+01, 0.92567E+01,-0.15940E+02, 0.16800E+02,-0.14024E+02,
     & 0.11888E+02,-0.10059E+02, 0.46440E+01, 0.39904E+01,-0.91439E+01,
     & 0.60519E+01, 0.26501E+01,-0.10180E+02, 0.98902E+01,-0.22327E+00,
     &-0.12077E+02, 0.19025E+02,-0.20291E+02, 0.20170E+02,-0.19383E+02,
     & 0.15027E+02,-0.76092E+01, 0.29851E+01,-0.37488E+01
     & /
       real p95(0:38)
       data p95/
     & 0.29107E+05,-0.46351E+05, 0.23439E+05,-0.77003E+04, 0.17590E+04,
     &-0.28458E+03, 0.38863E+02,-0.45446E+01, 0.43333E+01,-0.23020E+02,
     & 0.30681E+02,-0.29354E+02, 0.17553E+02,-0.44875E+01,-0.14510E+01,
     &-0.11182E+01, 0.95152E+01,-0.16372E+02, 0.17267E+02,-0.14431E+02,
     & 0.12234E+02,-0.10335E+02, 0.47645E+01, 0.40900E+01,-0.93718E+01,
     & 0.62019E+01, 0.27229E+01,-0.10440E+02, 0.10132E+02,-0.21664E+00,
     &-0.12402E+02, 0.19550E+02,-0.20872E+02, 0.20749E+02,-0.19925E+02,
     & 0.15445E+02,-0.78421E+01, 0.30985E+01,-0.38573E+01
     & /
       real p96(0:38)
       data p96/
     & 0.29820E+05,-0.47526E+05, 0.24095E+05,-0.79464E+04, 0.18226E+04,
     &-0.29655E+03, 0.40459E+02,-0.47842E+01, 0.45431E+01,-0.23597E+02,
     & 0.31536E+02,-0.30139E+02, 0.18053E+02,-0.46505E+01,-0.14539E+01,
     &-0.11776E+01, 0.97773E+01,-0.16809E+02, 0.17740E+02,-0.14845E+02,
     & 0.12585E+02,-0.10614E+02, 0.48867E+01, 0.41906E+01,-0.96023E+01,
     & 0.63537E+01, 0.27965E+01,-0.10703E+02, 0.10377E+02,-0.20963E+00,
     &-0.12731E+02, 0.20082E+02,-0.21462E+02, 0.21337E+02,-0.20475E+02,
     & 0.15870E+02,-0.80788E+01, 0.32140E+01,-0.39675E+01
     & /
       real p97(0:38)
       data p97/
     & 0.30542E+05,-0.48716E+05, 0.24760E+05,-0.81966E+04, 0.18876E+04,
     &-0.30882E+03, 0.42107E+02,-0.50314E+01, 0.47578E+01,-0.24182E+02,
     & 0.32403E+02,-0.30935E+02, 0.18559E+02,-0.48165E+01,-0.14561E+01,
     &-0.12385E+01, 0.10043E+02,-0.17253E+02, 0.18220E+02,-0.15265E+02,
     & 0.12942E+02,-0.10898E+02, 0.50106E+01, 0.42923E+01,-0.98355E+01,
     & 0.65073E+01, 0.28709E+01,-0.10969E+02, 0.10625E+02,-0.20222E+00,
     &-0.13065E+02, 0.20622E+02,-0.22060E+02, 0.21934E+02,-0.21033E+02,
     & 0.16300E+02,-0.83193E+01, 0.33318E+01,-0.40794E+01
     & /
       real p98(0:38)
       data p98/
     & 0.31271E+05,-0.49921E+05, 0.25434E+05,-0.84510E+04, 0.19538E+04,
     &-0.32140E+03, 0.43807E+02,-0.52865E+01, 0.49776E+01,-0.24775E+02,
     & 0.33281E+02,-0.31741E+02, 0.19073E+02,-0.49856E+01,-0.14574E+01,
     &-0.13007E+01, 0.10313E+02,-0.17702E+02, 0.18707E+02,-0.15692E+02,
     & 0.13303E+02,-0.11186E+02, 0.51363E+01, 0.43949E+01,-0.10071E+02,
     & 0.66626E+01, 0.29462E+01,-0.11238E+02, 0.10875E+02,-0.19442E+00,
     &-0.13403E+02, 0.21168E+02,-0.22667E+02, 0.22539E+02,-0.21599E+02,
     & 0.16737E+02,-0.85636E+01, 0.34517E+01,-0.41929E+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,  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,  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.37) param(i,37) = p37(i)
             if (i.le.37) param(i,38) = p38(i)
             if (i.le.37) param(i,39) = p39(i)
             if (i.le.37) param(i,40) = p40(i)
             if (i.le.37) param(i,41) = p41(i)
             if (i.le.37) param(i,42) = p42(i)
             if (i.le.37) 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.38) param(i,56) = p56(i)
             if (i.le.38) param(i,57) = p57(i)
             if (i.le.38) param(i,58) = p58(i)
             if (i.le.38) param(i,59) = p59(i)
             if (i.le.38) param(i,60) = p60(i)
             if (i.le.38) param(i,61) = p61(i)
             if (i.le.38) param(i,62) = p62(i)
             if (i.le.38) param(i,63) = p63(i)
             if (i.le.38) param(i,64) = p64(i)
             if (i.le.38) param(i,65) = p65(i)
             if (i.le.38) param(i,66) = p66(i)
             if (i.le.38) param(i,67) = p67(i)
             if (i.le.38) param(i,68) = p68(i)
             if (i.le.38) param(i,69) = p69(i)
             if (i.le.38) param(i,70) = p70(i)
             if (i.le.38) param(i,71) = p71(i)
             if (i.le.38) param(i,72) = p72(i)
             if (i.le.38) param(i,73) = p73(i)
             if (i.le.38) param(i,74) = p74(i)
             if (i.le.38) 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
            
       glu0ct5dlo=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
       glu0ct5dlo=(a*(1.0-x)**1.5)/log10(q2)/1d2
       if (q2.gt.q2max) glu0ct5dlo=0.0
       if (q2.lt.q2min) glu0ct5dlo=0.0
       if ( x.gt. xmax) glu0ct5dlo=0.0
       if ( x.lt. xmin) glu0ct5dlo=0.0
       return
       end
