**************************************************************************
**************************************************************************
*  
* 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 0530.1849.07
*
*
*
**************************************************************************
**************************************************************************
       subroutine pdf_hiq2_ms(x,q2,uv,dv,us,ds,ss,cs,bs,gl)
  
       real x,q2,uv,dv,us,ds,ss,cs,bs,gl
  
       uv=uvalhiq2ms(x,q2)
       dv=dvalhiq2ms(x,q2)
       us=ubarhiq2ms(x,q2)
       ds=dbarhiq2ms(x,q2)
       ss=sbarhiq2ms(x,q2)
       cs=cbarhiq2ms(x,q2)
       bs=bbarhiq2ms(x,q2)
       gl=glu0hiq2ms(x,q2)
  
       return
       end
       subroutine pdf_hiq2_ds(x,q2,uv,dv,us,ds,ss,cs,bs,gl)
  
       real x,q2,uv,dv,us,ds,ss,cs,bs,gl
  
       uv=uvalhiq2ds(x,q2)
       dv=dvalhiq2ds(x,q2)
       us=ubarhiq2ds(x,q2)
       ds=dbarhiq2ds(x,q2)
       ss=sbarhiq2ds(x,q2)
       cs=cbarhiq2ds(x,q2)
       bs=bbarhiq2ds(x,q2)
       gl=glu0hiq2ds(x,q2)
  
       return
       end
       real function  uvalhiq2ms(xin,q2in)
***********************************************************
c  parametrization of uvalhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:24)
       data p15/
     & 0.13957E+00, 0.18663E+00, 0.93942E-02,-0.10996E+00,-0.13191E+00,
     &-0.95213E-01,-0.46654E-01,-0.10551E-01, 0.84539E-02, 0.14645E-01,
     & 0.13848E-01, 0.10422E-01, 0.67919E-02, 0.39442E-02, 0.20523E-02,
     & 0.94338E-03, 0.36270E-03, 0.91742E-04,-0.18375E-04,-0.53357E-04,
     &-0.56154E-04,-0.47295E-04,-0.36240E-04,-0.26585E-04,-0.20216E-04
     & /
       real p16(0:25)
       data p16/
     & 0.14971E+00, 0.19906E+00, 0.77437E-02,-0.11961E+00,-0.14141E+00,
     &-0.10073E+00,-0.48296E-01,-0.99104E-02, 0.99063E-02, 0.16049E-01,
     & 0.14873E-01, 0.11041E-01, 0.71032E-02, 0.40631E-02, 0.20704E-02,
     & 0.91924E-03, 0.32779E-03, 0.59755E-04,-0.43433E-04,-0.71648E-04,
     &-0.69034E-04,-0.56207E-04,-0.42372E-04,-0.30751E-04,-0.23008E-04,
     &-0.20146E-04
     & /
       real p17(0:25)
       data p17/
     & 0.16015E+00, 0.21172E+00, 0.57671E-02,-0.12972E+00,-0.15114E+00,
     &-0.10622E+00,-0.49773E-01,-0.91005E-02, 0.11474E-01, 0.17510E-01,
     & 0.15911E-01, 0.11651E-01, 0.73964E-02, 0.41641E-02, 0.20742E-02,
     & 0.88510E-03, 0.28649E-03, 0.23931E-04,-0.70682E-04,-0.91155E-04,
     &-0.82579E-04,-0.65483E-04,-0.48704E-04,-0.35018E-04,-0.25828E-04,
     &-0.22058E-04
     & /
       real p18(0:25)
       data p18/
     & 0.17046E+00, 0.22407E+00, 0.35505E-02,-0.13985E+00,-0.16068E+00,
     &-0.11143E+00,-0.51027E-01,-0.81605E-02, 0.13087E-01, 0.18961E-01,
     & 0.16916E-01, 0.12224E-01, 0.76589E-02, 0.42432E-02, 0.20641E-02,
     & 0.84293E-03, 0.24095E-03,-0.13889E-04,-0.98735E-04,-0.11089E-03,
     &-0.96107E-04,-0.74656E-04,-0.54918E-04,-0.39171E-04,-0.28534E-04,
     &-0.23848E-04
     & /
       real p19(0:25)
       data p19/
     & 0.18064E+00, 0.23614E+00, 0.11106E-02,-0.14999E+00,-0.17004E+00,
     &-0.11640E+00,-0.52072E-01,-0.71030E-02, 0.14737E-01, 0.20399E-01,
     & 0.17887E-01, 0.12761E-01, 0.78926E-02, 0.43022E-02, 0.20415E-02,
     & 0.79368E-03, 0.19183E-03,-0.53283E-04,-0.12733E-03,-0.13069E-03,
     &-0.10952E-03,-0.83664E-04,-0.60976E-04,-0.43185E-04,-0.31112E-04,
     &-0.25510E-04
     & /
       real p20(0:25)
       data p20/
     & 0.19070E+00, 0.24795E+00,-0.15372E-02,-0.16015E+00,-0.17922E+00,
     &-0.12112E+00,-0.52924E-01,-0.59391E-02, 0.16417E-01, 0.21822E-01,
     & 0.18826E-01, 0.13265E-01, 0.80992E-02, 0.43425E-02, 0.20075E-02,
     & 0.73824E-03, 0.13973E-03,-0.93882E-04,-0.15624E-03,-0.15043E-03,
     &-0.12273E-03,-0.92460E-04,-0.66847E-04,-0.47043E-04,-0.33552E-04,
     &-0.27041E-04
     & /
       real p21(0:25)
       data p21/
     & 0.20065E+00, 0.25951E+00,-0.43791E-02,-0.17031E+00,-0.18823E+00,
     &-0.12562E+00,-0.53596E-01,-0.46788E-02, 0.18122E-01, 0.23228E-01,
     & 0.19731E-01, 0.13736E-01, 0.82801E-02, 0.43657E-02, 0.19632E-02,
     & 0.67736E-03, 0.85130E-04,-0.13537E-03,-0.18527E-03,-0.16999E-03,
     &-0.13569E-03,-0.10101E-03,-0.72511E-04,-0.50732E-04,-0.35848E-04,
     &-0.28437E-04
     & /
       real p22(0:25)
       data p22/
     & 0.21050E+00, 0.27083E+00,-0.74029E-02,-0.18048E+00,-0.19708E+00,
     &-0.12990E+00,-0.54099E-01,-0.33311E-02, 0.19846E-01, 0.24614E-01,
     & 0.20603E-01, 0.14175E-01, 0.84370E-02, 0.43730E-02, 0.19097E-02,
     & 0.61175E-03, 0.28497E-04,-0.17747E-03,-0.21427E-03,-0.18927E-03,
     &-0.14833E-03,-0.10927E-03,-0.77951E-04,-0.54245E-04,-0.37996E-04,
     &-0.29701E-04
     & /
       real p23(0:25)
       data p23/
     & 0.22025E+00, 0.28194E+00,-0.10597E-01,-0.19064E+00,-0.20577E+00,
     &-0.13397E+00,-0.54445E-01,-0.19042E-02, 0.21586E-01, 0.25981E-01,
     & 0.21444E-01, 0.14584E-01, 0.85711E-02, 0.43656E-02, 0.18479E-02,
     & 0.54204E-03,-0.29780E-04,-0.21995E-03,-0.24310E-03,-0.20821E-03,
     &-0.16061E-03,-0.11724E-03,-0.83157E-04,-0.57575E-04,-0.39995E-04,
     &-0.30834E-04
     & /
       real p24(0:25)
       data p24/
     & 0.22991E+00, 0.29283E+00,-0.13952E-01,-0.20080E+00,-0.21431E+00,
     &-0.13785E+00,-0.54643E-01,-0.40528E-03, 0.23337E-01, 0.27326E-01,
     & 0.22252E-01, 0.14964E-01, 0.86840E-02, 0.43447E-02, 0.17786E-02,
     & 0.46876E-03,-0.89353E-04,-0.26261E-03,-0.27164E-03,-0.22675E-03,
     &-0.17252E-03,-0.12490E-03,-0.88121E-04,-0.60720E-04,-0.41846E-04,
     &-0.31837E-04
     & /
       real p25(0:25)
       data p25/
     & 0.23949E+00, 0.30353E+00,-0.17457E-01,-0.21095E+00,-0.22270E+00,
     &-0.14155E+00,-0.54703E-01, 0.11590E-02, 0.25096E-01, 0.28648E-01,
     & 0.23030E-01, 0.15316E-01, 0.87767E-02, 0.43112E-02, 0.17025E-02,
     & 0.39244E-03,-0.14992E-03,-0.30526E-03,-0.29980E-03,-0.24482E-03,
     &-0.18402E-03,-0.13223E-03,-0.92839E-04,-0.63679E-04,-0.43549E-04,
     &-0.32715E-04
     & /
       real p26(0:25)
       data p26/
     & 0.24899E+00, 0.31404E+00,-0.21105E-01,-0.22110E+00,-0.23094E+00,
     &-0.14507E+00,-0.54633E-01, 0.27826E-02, 0.26860E-01, 0.29948E-01,
     & 0.23777E-01, 0.15642E-01, 0.88506E-02, 0.42663E-02, 0.16204E-02,
     & 0.31350E-03,-0.21120E-03,-0.34775E-03,-0.32750E-03,-0.26241E-03,
     &-0.19509E-03,-0.13923E-03,-0.97310E-04,-0.66454E-04,-0.45107E-04,
     &-0.33472E-04
     & /
       real p27(0:25)
       data p27/
     & 0.25841E+00, 0.32437E+00,-0.24887E-01,-0.23123E+00,-0.23905E+00,
     &-0.14841E+00,-0.54441E-01, 0.44602E-02, 0.28627E-01, 0.31223E-01,
     & 0.24494E-01, 0.15942E-01, 0.89066E-02, 0.42107E-02, 0.15328E-02,
     & 0.23237E-03,-0.27296E-03,-0.38997E-03,-0.35468E-03,-0.27947E-03,
     &-0.20572E-03,-0.14589E-03,-0.10153E-03,-0.69046E-04,-0.46524E-04,
     &-0.34112E-04
     & /
       real p28(0:25)
       data p28/
     & 0.26775E+00, 0.33453E+00,-0.28796E-01,-0.24135E+00,-0.24701E+00,
     &-0.15160E+00,-0.54135E-01, 0.61868E-02, 0.30393E-01, 0.32475E-01,
     & 0.25182E-01, 0.16218E-01, 0.89459E-02, 0.41452E-02, 0.14404E-02,
     & 0.14939E-03,-0.33500E-03,-0.43178E-03,-0.38127E-03,-0.29598E-03,
     &-0.21592E-03,-0.15222E-03,-0.10551E-03,-0.71459E-04,-0.47804E-04,
     &-0.34639E-04
     & /
       real p29(0:25)
       data p29/
     & 0.27703E+00, 0.34453E+00,-0.32826E-01,-0.25145E+00,-0.25485E+00,
     &-0.15463E+00,-0.53720E-01, 0.79578E-02, 0.32158E-01, 0.33703E-01,
     & 0.25842E-01, 0.16470E-01, 0.89694E-02, 0.40707E-02, 0.13436E-02,
     & 0.64888E-04,-0.39712E-03,-0.47311E-03,-0.40724E-03,-0.31193E-03,
     &-0.22566E-03,-0.15821E-03,-0.10925E-03,-0.73697E-04,-0.48951E-04,
     &-0.35058E-04
     & /
       real p30(0:25)
       data p30/
     & 0.28625E+00, 0.35438E+00,-0.36971E-01,-0.26154E+00,-0.26256E+00,
     &-0.15751E+00,-0.53204E-01, 0.97692E-02, 0.33918E-01, 0.34906E-01,
     & 0.26474E-01, 0.16700E-01, 0.89780E-02, 0.39879E-02, 0.12430E-02,
     &-0.20837E-04,-0.45917E-03,-0.51386E-03,-0.43255E-03,-0.32730E-03,
     &-0.23496E-03,-0.16387E-03,-0.11275E-03,-0.75765E-04,-0.49970E-04,
     &-0.35373E-04
     & /
       real p31(0:25)
       data p31/
     & 0.28986E+00, 0.35822E+00,-0.38622E-01,-0.26549E+00,-0.26556E+00,
     &-0.15862E+00,-0.52982E-01, 0.10487E-01, 0.34607E-01, 0.35372E-01,
     & 0.26716E-01, 0.16786E-01, 0.89785E-02, 0.39539E-02, 0.12030E-02,
     &-0.54519E-04,-0.48335E-03,-0.52962E-03,-0.44227E-03,-0.33317E-03,
     &-0.23848E-03,-0.16601E-03,-0.11407E-03,-0.76534E-04,-0.50338E-04,
     &-0.35473E-04
     & /
       real p32(0:25)
       data p32/
     & 0.29542E+00, 0.36412E+00,-0.41194E-01,-0.27160E+00,-0.27016E+00,
     &-0.16029E+00,-0.52621E-01, 0.11599E-01, 0.35666E-01, 0.36085E-01,
     & 0.27083E-01, 0.16913E-01, 0.89765E-02, 0.39002E-02, 0.11408E-02,
     &-0.10644E-03,-0.52041E-03,-0.55367E-03,-0.45704E-03,-0.34204E-03,
     &-0.24379E-03,-0.16921E-03,-0.11603E-03,-0.77676E-04,-0.50875E-04,
     &-0.35603E-04
     & /
       real p33(0:25)
       data p33/
     & 0.30453E+00, 0.37372E+00,-0.45518E-01,-0.28164E+00,-0.27765E+00,
     &-0.16293E+00,-0.51950E-01, 0.13461E-01, 0.37407E-01, 0.37240E-01,
     & 0.27666E-01, 0.17106E-01, 0.89623E-02, 0.38056E-02, 0.10357E-02,
     &-0.19271E-03,-0.58130E-03,-0.59279E-03,-0.48083E-03,-0.35621E-03,
     &-0.25220E-03,-0.17424E-03,-0.11909E-03,-0.79432E-04,-0.51665E-04,
     &-0.35742E-04
     & /
       real p34(0:25)
       data p34/
     & 0.31359E+00, 0.38318E+00,-0.49946E-01,-0.29166E+00,-0.28501E+00,
     &-0.16543E+00,-0.51189E-01, 0.15355E-01, 0.39141E-01, 0.38370E-01,
     & 0.28224E-01, 0.17279E-01, 0.89350E-02, 0.37040E-02, 0.92761E-03,
     &-0.27970E-03,-0.64185E-03,-0.63123E-03,-0.50394E-03,-0.36981E-03,
     &-0.26018E-03,-0.17897E-03,-0.12194E-03,-0.81035E-04,-0.52342E-04,
     &-0.35791E-04
     & /
       real p35(0:25)
       data p35/
     & 0.32259E+00, 0.39251E+00,-0.54473E-01,-0.30166E+00,-0.29226E+00,
     &-0.16780E+00,-0.50342E-01, 0.17279E-01, 0.40867E-01, 0.39477E-01,
     & 0.28756E-01, 0.17433E-01, 0.88955E-02, 0.35960E-02, 0.81693E-03,
     &-0.36719E-03,-0.70195E-03,-0.66894E-03,-0.52633E-03,-0.38283E-03,
     &-0.26773E-03,-0.18339E-03,-0.12457E-03,-0.82490E-04,-0.52910E-04,
     &-0.35756E-04
     & /
       real p36(0:25)
       data p36/
     & 0.33153E+00, 0.40170E+00,-0.59096E-01,-0.31164E+00,-0.29939E+00,
     &-0.17005E+00,-0.49413E-01, 0.19231E-01, 0.42583E-01, 0.40559E-01,
     & 0.29263E-01, 0.17567E-01, 0.88444E-02, 0.34821E-02, 0.70394E-03,
     &-0.45501E-03,-0.76153E-03,-0.70587E-03,-0.54801E-03,-0.39529E-03,
     &-0.27486E-03,-0.18751E-03,-0.12700E-03,-0.83803E-04,-0.53373E-04,
     &-0.35639E-04
     & /
       real p37(0:25)
       data p37/
     & 0.34042E+00, 0.41077E+00,-0.63809E-01,-0.32160E+00,-0.30641E+00,
     &-0.17217E+00,-0.48407E-01, 0.21207E-01, 0.44289E-01, 0.41616E-01,
     & 0.29746E-01, 0.17684E-01, 0.87823E-02, 0.33627E-02, 0.58896E-03,
     &-0.54298E-03,-0.82048E-03,-0.74200E-03,-0.56896E-03,-0.40718E-03,
     &-0.28159E-03,-0.19135E-03,-0.12923E-03,-0.84977E-04,-0.53737E-04,
     &-0.35445E-04
     & /
       real p38(0:25)
       data p38/
     & 0.34927E+00, 0.41972E+00,-0.68609E-01,-0.33153E+00,-0.31332E+00,
     &-0.17418E+00,-0.47328E-01, 0.23205E-01, 0.45984E-01, 0.42650E-01,
     & 0.30206E-01, 0.17784E-01, 0.87100E-02, 0.32382E-02, 0.47225E-03,
     &-0.63096E-03,-0.87874E-03,-0.77729E-03,-0.58918E-03,-0.41851E-03,
     &-0.28791E-03,-0.19491E-03,-0.13127E-03,-0.86020E-04,-0.54006E-04,
     &-0.35178E-04
     & /
       real p39(0:25)
       data p39/
     & 0.35807E+00, 0.42855E+00,-0.73493E-01,-0.34144E+00,-0.32012E+00,
     &-0.17607E+00,-0.46180E-01, 0.25222E-01, 0.47666E-01, 0.43660E-01,
     & 0.30644E-01, 0.17867E-01, 0.86278E-02, 0.31091E-02, 0.35406E-03,
     &-0.71880E-03,-0.93624E-03,-0.81173E-03,-0.60866E-03,-0.42928E-03,
     &-0.29383E-03,-0.19819E-03,-0.13313E-03,-0.86935E-04,-0.54183E-04,
     &-0.34842E-04
     & /
       real p40(0:25)
       data p40/
     & 0.36682E+00, 0.43727E+00,-0.78457E-01,-0.35133E+00,-0.32682E+00,
     &-0.17785E+00,-0.44965E-01, 0.27258E-01, 0.49336E-01, 0.44646E-01,
     & 0.31058E-01, 0.17935E-01, 0.85365E-02, 0.29758E-02, 0.23463E-03,
     &-0.80638E-03,-0.99293E-03,-0.84529E-03,-0.62741E-03,-0.43950E-03,
     &-0.29937E-03,-0.20122E-03,-0.13480E-03,-0.87729E-04,-0.54275E-04,
     &-0.34440E-04
     & /
       real p41(0:25)
       data p41/
     & 0.37552E+00, 0.44589E+00,-0.83498E-01,-0.36119E+00,-0.33342E+00,
     &-0.17953E+00,-0.43687E-01, 0.29309E-01, 0.50992E-01, 0.45609E-01,
     & 0.31452E-01, 0.17987E-01, 0.84365E-02, 0.28386E-02, 0.11418E-03,
     &-0.89359E-03,-0.10488E-02,-0.87796E-03,-0.64542E-03,-0.44918E-03,
     &-0.30453E-03,-0.20398E-03,-0.13631E-03,-0.88407E-04,-0.54283E-04,
     &-0.33978E-04
     & /
       real p42(0:25)
       data p42/
     & 0.38419E+00, 0.45439E+00,-0.88613E-01,-0.37103E+00,-0.33991E+00,
     &-0.18110E+00,-0.42349E-01, 0.31375E-01, 0.52635E-01, 0.46549E-01,
     & 0.31824E-01, 0.18025E-01, 0.83283E-02, 0.26978E-02,-0.70988E-05,
     &-0.98033E-03,-0.11037E-02,-0.90974E-03,-0.66271E-03,-0.45833E-03,
     &-0.30933E-03,-0.20650E-03,-0.13765E-03,-0.88973E-04,-0.54214E-04,
     &-0.33457E-04
     & /
       real p43(0:25)
       data p43/
     & 0.39282E+00, 0.46280E+00,-0.93800E-01,-0.38084E+00,-0.34631E+00,
     &-0.18257E+00,-0.40953E-01, 0.33452E-01, 0.54263E-01, 0.47466E-01,
     & 0.32176E-01, 0.18049E-01, 0.82124E-02, 0.25537E-02,-0.12903E-03,
     &-0.10665E-02,-0.11577E-02,-0.94061E-03,-0.67928E-03,-0.46697E-03,
     &-0.31377E-03,-0.20878E-03,-0.13883E-03,-0.89433E-04,-0.54071E-04,
     &-0.32882E-04
     & /
       real p44(0:25)
       data p44/
     & 0.40140E+00, 0.47111E+00,-0.99055E-01,-0.39063E+00,-0.35261E+00,
     &-0.18395E+00,-0.39504E-01, 0.35541E-01, 0.55876E-01, 0.48360E-01,
     & 0.32508E-01, 0.18059E-01, 0.80892E-02, 0.24067E-02,-0.25143E-03,
     &-0.11520E-02,-0.12107E-02,-0.97056E-03,-0.69513E-03,-0.47509E-03,
     &-0.31786E-03,-0.21082E-03,-0.13986E-03,-0.89792E-04,-0.53857E-04,
     &-0.32255E-04
     & /
       real p45(0:25)
       data p45/
     & 0.40995E+00, 0.47932E+00,-0.10438E+00,-0.40039E+00,-0.35882E+00,
     &-0.18524E+00,-0.38003E-01, 0.37639E-01, 0.57474E-01, 0.49232E-01,
     & 0.32821E-01, 0.18056E-01, 0.79591E-02, 0.22571E-02,-0.37416E-03,
     &-0.12368E-02,-0.12627E-02,-0.99961E-03,-0.71028E-03,-0.48271E-03,
     &-0.32161E-03,-0.21265E-03,-0.14075E-03,-0.90054E-04,-0.53577E-04,
     &-0.31581E-04
     & /
       real p46(0:25)
       data p46/
     & 0.41846E+00, 0.48744E+00,-0.10976E+00,-0.41012E+00,-0.36494E+00,
     &-0.18643E+00,-0.36453E-01, 0.39745E-01, 0.59057E-01, 0.50082E-01,
     & 0.33115E-01, 0.18041E-01, 0.78226E-02, 0.21050E-02,-0.49706E-03,
     &-0.13209E-02,-0.13137E-02,-0.10278E-02,-0.72473E-03,-0.48984E-03,
     &-0.32504E-03,-0.21426E-03,-0.14149E-03,-0.90224E-04,-0.53234E-04,
     &-0.30861E-04
     & /
       real p47(0:25)
       data p47/
     & 0.42694E+00, 0.49548E+00,-0.11521E+00,-0.41983E+00,-0.37097E+00,
     &-0.18754E+00,-0.34855E-01, 0.41859E-01, 0.60624E-01, 0.50910E-01,
     & 0.33391E-01, 0.18015E-01, 0.76800E-02, 0.19507E-02,-0.62002E-03,
     &-0.14041E-02,-0.13637E-02,-0.10550E-02,-0.73850E-03,-0.49650E-03,
     &-0.32815E-03,-0.21566E-03,-0.14211E-03,-0.90308E-04,-0.52833E-04,
     &-0.30099E-04
     & /
       real p48(0:25)
       data p48/
     & 0.43539E+00, 0.50342E+00,-0.12071E+00,-0.42951E+00,-0.37691E+00,
     &-0.18856E+00,-0.33213E-01, 0.43977E-01, 0.62174E-01, 0.51716E-01,
     & 0.33649E-01, 0.17977E-01, 0.75317E-02, 0.17945E-02,-0.74289E-03,
     &-0.14863E-02,-0.14126E-02,-0.10813E-02,-0.75159E-03,-0.50270E-03,
     &-0.33095E-03,-0.21687E-03,-0.14259E-03,-0.90308E-04,-0.52375E-04,
     &-0.29298E-04
     & /
       real p49(0:25)
       data p49/
     & 0.44380E+00, 0.51129E+00,-0.12628E+00,-0.43916E+00,-0.38277E+00,
     &-0.18950E+00,-0.31528E-01, 0.46101E-01, 0.63709E-01, 0.52502E-01,
     & 0.33890E-01, 0.17928E-01, 0.73780E-02, 0.16365E-02,-0.86559E-03,
     &-0.15677E-02,-0.14605E-02,-0.11068E-02,-0.76403E-03,-0.50844E-03,
     &-0.33346E-03,-0.21789E-03,-0.14296E-03,-0.90230E-04,-0.51864E-04,
     &-0.28459E-04
     & /
       real p50(0:24)
       data p50/
     & 0.45218E+00, 0.51907E+00,-0.13190E+00,-0.44879E+00,-0.38854E+00,
     &-0.19037E+00,-0.29802E-01, 0.48228E-01, 0.65227E-01, 0.53267E-01,
     & 0.34114E-01, 0.17868E-01, 0.72192E-02, 0.14770E-02,-0.98799E-03,
     &-0.16480E-02,-0.15073E-02,-0.11313E-02,-0.77581E-03,-0.51375E-03,
     &-0.33569E-03,-0.21872E-03,-0.14320E-03,-0.90077E-04,-0.51304E-04
     & /
       real p51(0:24)
       data p51/
     & 0.46053E+00, 0.52677E+00,-0.13757E+00,-0.45839E+00,-0.39423E+00,
     &-0.19115E+00,-0.28037E-01, 0.50357E-01, 0.66729E-01, 0.54011E-01,
     & 0.34321E-01, 0.17799E-01, 0.70557E-02, 0.13162E-02,-0.11100E-02,
     &-0.17274E-02,-0.15530E-02,-0.11550E-02,-0.78696E-03,-0.51863E-03,
     &-0.33764E-03,-0.21938E-03,-0.14334E-03,-0.89854E-04,-0.50698E-04
     & /
       real p52(0:24)
       data p52/
     & 0.46885E+00, 0.53440E+00,-0.14329E+00,-0.46797E+00,-0.39984E+00,
     &-0.19186E+00,-0.26236E-01, 0.52489E-01, 0.68214E-01, 0.54736E-01,
     & 0.34513E-01, 0.17720E-01, 0.68877E-02, 0.11542E-02,-0.12316E-02,
     &-0.18057E-02,-0.15976E-02,-0.11778E-02,-0.79749E-03,-0.52309E-03,
     &-0.33932E-03,-0.21987E-03,-0.14337E-03,-0.89564E-04,-0.50048E-04
     & /
       real p53(0:24)
       data p53/
     & 0.47714E+00, 0.54195E+00,-0.14907E+00,-0.47751E+00,-0.40537E+00,
     &-0.19250E+00,-0.24398E-01, 0.54621E-01, 0.69682E-01, 0.55440E-01,
     & 0.34690E-01, 0.17631E-01, 0.67155E-02, 0.99110E-03,-0.13526E-02,
     &-0.18829E-02,-0.16412E-02,-0.11997E-02,-0.80740E-03,-0.52715E-03,
     &-0.34075E-03,-0.22020E-03,-0.14330E-03,-0.89211E-04,-0.49357E-04
     & /
       real p54(0:24)
       data p54/
     & 0.48541E+00, 0.54943E+00,-0.15489E+00,-0.48703E+00,-0.41082E+00,
     &-0.19306E+00,-0.22527E-01, 0.56754E-01, 0.71134E-01, 0.56125E-01,
     & 0.34851E-01, 0.17534E-01, 0.65394E-02, 0.82718E-03,-0.14729E-02,
     &-0.19590E-02,-0.16837E-02,-0.12208E-02,-0.81673E-03,-0.53082E-03,
     &-0.34193E-03,-0.22038E-03,-0.14314E-03,-0.88799E-04,-0.48628E-04
     & /
       real p55(0:24)
       data p55/
     & 0.49365E+00, 0.55683E+00,-0.16076E+00,-0.49653E+00,-0.41620E+00,
     &-0.19356E+00,-0.20624E-01, 0.58886E-01, 0.72569E-01, 0.56791E-01,
     & 0.34998E-01, 0.17428E-01, 0.63597E-02, 0.66254E-03,-0.15926E-02,
     &-0.20339E-02,-0.17252E-02,-0.12411E-02,-0.82546E-03,-0.53412E-03,
     &-0.34287E-03,-0.22040E-03,-0.14289E-03,-0.88330E-04,-0.47863E-04
     & /
       real p56(0:24)
       data p56/
     & 0.50186E+00, 0.56417E+00,-0.16668E+00,-0.50599E+00,-0.42150E+00,
     &-0.19399E+00,-0.18690E-01, 0.61017E-01, 0.73987E-01, 0.57438E-01,
     & 0.35131E-01, 0.17314E-01, 0.61764E-02, 0.49732E-03,-0.17116E-02,
     &-0.21078E-02,-0.17655E-02,-0.12605E-02,-0.83364E-03,-0.53704E-03,
     &-0.34359E-03,-0.22029E-03,-0.14255E-03,-0.87809E-04,-0.47065E-04
     & /
       real p57(0:24)
       data p57/
     & 0.51005E+00, 0.57144E+00,-0.17264E+00,-0.51543E+00,-0.42673E+00,
     &-0.19436E+00,-0.16726E-01, 0.63146E-01, 0.75388E-01, 0.58067E-01,
     & 0.35250E-01, 0.17193E-01, 0.59900E-02, 0.33164E-03,-0.18297E-02,
     &-0.21804E-02,-0.18049E-02,-0.12792E-02,-0.84125E-03,-0.53961E-03,
     &-0.34408E-03,-0.22005E-03,-0.14213E-03,-0.87238E-04,-0.46235E-04
     & /
       real p58(0:24)
       data p58/
     & 0.51821E+00, 0.57865E+00,-0.17864E+00,-0.52485E+00,-0.43189E+00,
     &-0.19466E+00,-0.14735E-01, 0.65273E-01, 0.76773E-01, 0.58677E-01,
     & 0.35356E-01, 0.17063E-01, 0.58006E-02, 0.16562E-03,-0.19470E-02,
     &-0.22519E-02,-0.18431E-02,-0.12970E-02,-0.84833E-03,-0.54184E-03,
     &-0.34437E-03,-0.21967E-03,-0.14163E-03,-0.86619E-04,-0.45377E-04
     & /
       real p59(0:24)
       data p59/
     & 0.52635E+00, 0.58579E+00,-0.18468E+00,-0.53423E+00,-0.43697E+00,
     &-0.19490E+00,-0.12716E-01, 0.67397E-01, 0.78140E-01, 0.59270E-01,
     & 0.35449E-01, 0.16927E-01, 0.56083E-02,-0.63457E-06,-0.20633E-02,
     &-0.23222E-02,-0.18803E-02,-0.13141E-02,-0.85487E-03,-0.54373E-03,
     &-0.34445E-03,-0.21918E-03,-0.14106E-03,-0.85957E-04,-0.44491E-04
     & /
       real p60(0:24)
       data p60/
     & 0.53446E+00, 0.59287E+00,-0.19077E+00,-0.54359E+00,-0.44199E+00,
     &-0.19508E+00,-0.10672E-01, 0.69518E-01, 0.79491E-01, 0.59845E-01,
     & 0.35529E-01, 0.16784E-01, 0.54135E-02,-0.16701E-03,-0.21787E-02,
     &-0.23914E-02,-0.19165E-02,-0.13304E-02,-0.86091E-03,-0.54530E-03,
     &-0.34433E-03,-0.21856E-03,-0.14042E-03,-0.85254E-04,-0.43581E-04
     & /
       real p61(0:24)
       data p61/
     & 0.54256E+00, 0.59988E+00,-0.19689E+00,-0.55292E+00,-0.44694E+00,
     &-0.19520E+00,-0.86033E-02, 0.71634E-01, 0.80825E-01, 0.60403E-01,
     & 0.35597E-01, 0.16634E-01, 0.52162E-02,-0.33341E-03,-0.22931E-02,
     &-0.24593E-02,-0.19517E-02,-0.13459E-02,-0.86644E-03,-0.54656E-03,
     &-0.34403E-03,-0.21784E-03,-0.13971E-03,-0.84512E-04,-0.42648E-04
     & /
       real p62(0:24)
       data p62/
     & 0.55063E+00, 0.60684E+00,-0.20306E+00,-0.56223E+00,-0.45183E+00,
     &-0.19527E+00,-0.65111E-02, 0.73747E-01, 0.82143E-01, 0.60944E-01,
     & 0.35653E-01, 0.16478E-01, 0.50167E-02,-0.49975E-03,-0.24065E-02,
     &-0.25261E-02,-0.19858E-02,-0.13607E-02,-0.87148E-03,-0.54752E-03,
     &-0.34355E-03,-0.21701E-03,-0.13894E-03,-0.83734E-04,-0.41693E-04
     & /
       real p63(0:24)
       data p63/
     & 0.55868E+00, 0.61374E+00,-0.20926E+00,-0.57151E+00,-0.45665E+00,
     &-0.19528E+00,-0.43966E-02, 0.75854E-01, 0.83444E-01, 0.61468E-01,
     & 0.35697E-01, 0.16315E-01, 0.48151E-02,-0.66594E-03,-0.25189E-02,
     &-0.25916E-02,-0.20190E-02,-0.13748E-02,-0.87606E-03,-0.54819E-03,
     &-0.34290E-03,-0.21608E-03,-0.13812E-03,-0.82922E-04,-0.40719E-04
     & /
       real p64(0:24)
       data p64/
     & 0.56671E+00, 0.62058E+00,-0.21549E+00,-0.58076E+00,-0.46140E+00,
     &-0.19524E+00,-0.22607E-02, 0.77957E-01, 0.84729E-01, 0.61976E-01,
     & 0.35730E-01, 0.16147E-01, 0.46116E-02,-0.83190E-03,-0.26301E-02,
     &-0.26560E-02,-0.20511E-02,-0.13881E-02,-0.88016E-03,-0.54858E-03,
     &-0.34208E-03,-0.21505E-03,-0.13724E-03,-0.82078E-04,-0.39727E-04
     & /
       real p65(0:24)
       data p65/
     & 0.57472E+00, 0.62737E+00,-0.22176E+00,-0.58999E+00,-0.46609E+00,
     &-0.19514E+00,-0.10446E-03, 0.80054E-01, 0.85997E-01, 0.62468E-01,
     & 0.35752E-01, 0.15973E-01, 0.44064E-02,-0.99755E-03,-0.27403E-02,
     &-0.27191E-02,-0.20823E-02,-0.14008E-02,-0.88382E-03,-0.54869E-03,
     &-0.34110E-03,-0.21394E-03,-0.13631E-03,-0.81206E-04,-0.38718E-04
     & /
       real p66(0:24)
       data p66/
     & 0.58271E+00, 0.63410E+00,-0.22807E+00,-0.59919E+00,-0.47072E+00,
     &-0.19500E+00, 0.20713E-02, 0.82145E-01, 0.87249E-01, 0.62944E-01,
     & 0.35764E-01, 0.15794E-01, 0.41995E-02,-0.11628E-02,-0.28493E-02,
     &-0.27811E-02,-0.21125E-02,-0.14128E-02,-0.88705E-03,-0.54855E-03,
     &-0.33998E-03,-0.21273E-03,-0.13532E-03,-0.80306E-04,-0.37695E-04
     & /
       real p67(0:24)
       data p67/
     & 0.59068E+00, 0.64078E+00,-0.23441E+00,-0.60837E+00,-0.47529E+00,
     &-0.19480E+00, 0.42657E-02, 0.84230E-01, 0.88485E-01, 0.63405E-01,
     & 0.35765E-01, 0.15610E-01, 0.39911E-02,-0.13277E-02,-0.29572E-02,
     &-0.28418E-02,-0.21417E-02,-0.14241E-02,-0.88985E-03,-0.54815E-03,
     &-0.33870E-03,-0.21145E-03,-0.13430E-03,-0.79380E-04,-0.36658E-04
     & /
       real p68(0:24)
       data p68/
     & 0.59864E+00, 0.64741E+00,-0.24078E+00,-0.61752E+00,-0.47980E+00,
     &-0.19456E+00, 0.64778E-02, 0.86308E-01, 0.89704E-01, 0.63851E-01,
     & 0.35756E-01, 0.15421E-01, 0.37813E-02,-0.14920E-02,-0.30639E-02,
     &-0.29014E-02,-0.21700E-02,-0.14348E-02,-0.89223E-03,-0.54751E-03,
     &-0.33729E-03,-0.21009E-03,-0.13323E-03,-0.78432E-04,-0.35609E-04
     & /
       real p69(0:24)
       data p69/
     & 0.60657E+00, 0.65398E+00,-0.24718E+00,-0.62664E+00,-0.48425E+00,
     &-0.19426E+00, 0.87070E-02, 0.88380E-01, 0.90908E-01, 0.64281E-01,
     & 0.35737E-01, 0.15227E-01, 0.35704E-02,-0.16557E-02,-0.31694E-02,
     &-0.29598E-02,-0.21974E-02,-0.14448E-02,-0.89422E-03,-0.54663E-03,
     &-0.33575E-03,-0.20865E-03,-0.13212E-03,-0.77461E-04,-0.34548E-04
     & /
       real p70(0:24)
       data p70/
     & 0.61449E+00, 0.66051E+00,-0.25362E+00,-0.63574E+00,-0.48864E+00,
     &-0.19392E+00, 0.10952E-01, 0.90445E-01, 0.92096E-01, 0.64697E-01,
     & 0.35709E-01, 0.15029E-01, 0.33583E-02,-0.18189E-02,-0.32737E-02,
     &-0.30171E-02,-0.22238E-02,-0.14542E-02,-0.89582E-03,-0.54553E-03,
     &-0.33408E-03,-0.20714E-03,-0.13097E-03,-0.76471E-04,-0.33478E-04
     & /
       real p71(0:24)
       data p71/
     & 0.62239E+00, 0.66698E+00,-0.26008E+00,-0.64481E+00,-0.49298E+00,
     &-0.19354E+00, 0.13213E-01, 0.92502E-01, 0.93268E-01, 0.65099E-01,
     & 0.35672E-01, 0.14826E-01, 0.31452E-02,-0.19814E-02,-0.33768E-02,
     &-0.30731E-02,-0.22494E-02,-0.14630E-02,-0.89704E-03,-0.54421E-03,
     &-0.33229E-03,-0.20557E-03,-0.12979E-03,-0.75463E-04,-0.32399E-04
     & /
       real p72(0:24)
       data p72/
     & 0.63027E+00, 0.67341E+00,-0.26657E+00,-0.65386E+00,-0.49726E+00,
     &-0.19311E+00, 0.15489E-01, 0.94552E-01, 0.94425E-01, 0.65486E-01,
     & 0.35625E-01, 0.14619E-01, 0.29312E-02,-0.21432E-02,-0.34787E-02,
     &-0.31280E-02,-0.22740E-02,-0.14712E-02,-0.89789E-03,-0.54268E-03,
     &-0.33039E-03,-0.20393E-03,-0.12857E-03,-0.74438E-04,-0.31312E-04
     & /
       real p73(0:23)
       data p73/
     & 0.63814E+00, 0.67980E+00,-0.27310E+00,-0.66288E+00,-0.50148E+00,
     &-0.19264E+00, 0.17778E-01, 0.96595E-01, 0.95566E-01, 0.65860E-01,
     & 0.35570E-01, 0.14408E-01, 0.27164E-02,-0.23042E-02,-0.35793E-02,
     &-0.31818E-02,-0.22978E-02,-0.14788E-02,-0.89838E-03,-0.54095E-03,
     &-0.32837E-03,-0.20224E-03,-0.12733E-03,-0.73398E-04
     & /
       real p74(0:23)
       data p74/
     & 0.64599E+00, 0.68613E+00,-0.27965E+00,-0.67187E+00,-0.50565E+00,
     &-0.19213E+00, 0.20081E-01, 0.98629E-01, 0.96691E-01, 0.66220E-01,
     & 0.35506E-01, 0.14194E-01, 0.25009E-02,-0.24644E-02,-0.36787E-02,
     &-0.32344E-02,-0.23208E-02,-0.14859E-02,-0.89854E-03,-0.53903E-03,
     &-0.32625E-03,-0.20049E-03,-0.12605E-03,-0.72344E-04
     & /
       real p75(0:23)
       data p75/
     & 0.65382E+00, 0.69242E+00,-0.28622E+00,-0.68085E+00,-0.50977E+00,
     &-0.19157E+00, 0.22397E-01, 0.10066E+00, 0.97802E-01, 0.66567E-01,
     & 0.35434E-01, 0.13976E-01, 0.22848E-02,-0.26238E-02,-0.37769E-02,
     &-0.32858E-02,-0.23429E-02,-0.14923E-02,-0.89835E-03,-0.53691E-03,
     &-0.32403E-03,-0.19869E-03,-0.12475E-03,-0.71277E-04
     & /
       real p76(0:23)
       data p76/
     & 0.66164E+00, 0.69867E+00,-0.29283E+00,-0.68979E+00,-0.51383E+00,
     &-0.19098E+00, 0.24725E-01, 0.10267E+00, 0.98897E-01, 0.66900E-01,
     & 0.35354E-01, 0.13754E-01, 0.20682E-02,-0.27823E-02,-0.38738E-02,
     &-0.33362E-02,-0.23641E-02,-0.14983E-02,-0.89784E-03,-0.53462E-03,
     &-0.32172E-03,-0.19684E-03,-0.12343E-03,-0.70199E-04
     & /
       real p77(0:23)
       data p77/
     & 0.66945E+00, 0.70487E+00,-0.29946E+00,-0.69871E+00,-0.51784E+00,
     &-0.19035E+00, 0.27065E-01, 0.10468E+00, 0.99977E-01, 0.67221E-01,
     & 0.35266E-01, 0.13529E-01, 0.18511E-02,-0.29399E-02,-0.39694E-02,
     &-0.33854E-02,-0.23846E-02,-0.15037E-02,-0.89702E-03,-0.53216E-03,
     &-0.31932E-03,-0.19494E-03,-0.12208E-03,-0.69112E-04
     & /
       real p78(0:23)
       data p78/
     & 0.67724E+00, 0.71103E+00,-0.30611E+00,-0.70761E+00,-0.52180E+00,
     &-0.18967E+00, 0.29415E-01, 0.10669E+00, 0.10104E+00, 0.67529E-01,
     & 0.35170E-01, 0.13301E-01, 0.16338E-02,-0.30966E-02,-0.40639E-02,
     &-0.34335E-02,-0.24042E-02,-0.15086E-02,-0.89589E-03,-0.52952E-03,
     &-0.31683E-03,-0.19300E-03,-0.12071E-03,-0.68015E-04
     & /
       real p79(0:23)
       data p79/
     & 0.68502E+00, 0.71714E+00,-0.31279E+00,-0.71648E+00,-0.52571E+00,
     &-0.18896E+00, 0.31777E-01, 0.10868E+00, 0.10209E+00, 0.67824E-01,
     & 0.35067E-01, 0.13070E-01, 0.14161E-02,-0.32523E-02,-0.41570E-02,
     &-0.34806E-02,-0.24230E-02,-0.15130E-02,-0.89447E-03,-0.52673E-03,
     &-0.31425E-03,-0.19102E-03,-0.11932E-03,-0.66911E-04
     & /
       real p80(0:23)
       data p80/
     & 0.69278E+00, 0.72322E+00,-0.31950E+00,-0.72533E+00,-0.52957E+00,
     &-0.18822E+00, 0.34148E-01, 0.11066E+00, 0.10313E+00, 0.68108E-01,
     & 0.34957E-01, 0.12836E-01, 0.11982E-02,-0.34070E-02,-0.42489E-02,
     &-0.35265E-02,-0.24411E-02,-0.15168E-02,-0.89276E-03,-0.52379E-03,
     &-0.31160E-03,-0.18901E-03,-0.11792E-03,-0.65800E-04
     & /
       real p81(0:23)
       data p81/
     & 0.70053E+00, 0.72925E+00,-0.32623E+00,-0.73416E+00,-0.53339E+00,
     &-0.18744E+00, 0.36529E-01, 0.11264E+00, 0.10415E+00, 0.68379E-01,
     & 0.34840E-01, 0.12599E-01, 0.98019E-03,-0.35607E-02,-0.43396E-02,
     &-0.35714E-02,-0.24584E-02,-0.15202E-02,-0.89077E-03,-0.52070E-03,
     &-0.30888E-03,-0.18695E-03,-0.11650E-03,-0.64683E-04
     & /
       real p82(0:23)
       data p82/
     & 0.70826E+00, 0.73525E+00,-0.33298E+00,-0.74296E+00,-0.53715E+00,
     &-0.18662E+00, 0.38918E-01, 0.11461E+00, 0.10516E+00, 0.68639E-01,
     & 0.34716E-01, 0.12360E-01, 0.76210E-03,-0.37134E-02,-0.44290E-02,
     &-0.36153E-02,-0.24750E-02,-0.15232E-02,-0.88851E-03,-0.51747E-03,
     &-0.30609E-03,-0.18487E-03,-0.11506E-03,-0.63562E-04
     & /
       real p83(0:23)
       data p83/
     & 0.71599E+00, 0.74121E+00,-0.33975E+00,-0.75173E+00,-0.54087E+00,
     &-0.18577E+00, 0.41317E-01, 0.11656E+00, 0.10615E+00, 0.68887E-01,
     & 0.34585E-01, 0.12118E-01, 0.54401E-03,-0.38650E-02,-0.45171E-02,
     &-0.36581E-02,-0.24908E-02,-0.15256E-02,-0.88600E-03,-0.51410E-03,
     &-0.30323E-03,-0.18275E-03,-0.11362E-03,-0.62437E-04
     & /
       real p84(0:23)
       data p84/
     & 0.72369E+00, 0.74712E+00,-0.34655E+00,-0.76049E+00,-0.54454E+00,
     &-0.18488E+00, 0.43723E-01, 0.11851E+00, 0.10713E+00, 0.69123E-01,
     & 0.34448E-01, 0.11874E-01, 0.32598E-03,-0.40155E-02,-0.46040E-02,
     &-0.36998E-02,-0.25059E-02,-0.15277E-02,-0.88323E-03,-0.51060E-03,
     &-0.30031E-03,-0.18060E-03,-0.11216E-03,-0.61309E-04
     & /
       real p85(0:23)
       data p85/
     & 0.73139E+00, 0.75300E+00,-0.35337E+00,-0.76922E+00,-0.54816E+00,
     &-0.18396E+00, 0.46138E-01, 0.12045E+00, 0.10810E+00, 0.69349E-01,
     & 0.34304E-01, 0.11628E-01, 0.10805E-03,-0.41650E-02,-0.46897E-02,
     &-0.37406E-02,-0.25203E-02,-0.15293E-02,-0.88021E-03,-0.50698E-03,
     &-0.29733E-03,-0.17843E-03,-0.11069E-03,-0.60178E-04
     & /
       real p86(0:23)
       data p86/
     & 0.73908E+00, 0.75885E+00,-0.36021E+00,-0.77792E+00,-0.55174E+00,
     &-0.18301E+00, 0.48559E-01, 0.12238E+00, 0.10905E+00, 0.69563E-01,
     & 0.34155E-01, 0.11379E-01,-0.10971E-03,-0.43133E-02,-0.47741E-02,
     &-0.37803E-02,-0.25340E-02,-0.15304E-02,-0.87696E-03,-0.50324E-03,
     &-0.29430E-03,-0.17624E-03,-0.10921E-03,-0.59046E-04
     & /
       real p87(0:23)
       data p87/
     & 0.74675E+00, 0.76465E+00,-0.36707E+00,-0.78661E+00,-0.55527E+00,
     &-0.18203E+00, 0.50988E-01, 0.12430E+00, 0.10999E+00, 0.69767E-01,
     & 0.33999E-01, 0.11128E-01,-0.32726E-03,-0.44605E-02,-0.48573E-02,
     &-0.38191E-02,-0.25470E-02,-0.15312E-02,-0.87348E-03,-0.49939E-03,
     &-0.29121E-03,-0.17402E-03,-0.10773E-03,-0.57914E-04
     & /
       real p88(0:23)
       data p88/
     & 0.75441E+00, 0.77042E+00,-0.37395E+00,-0.79527E+00,-0.55876E+00,
     &-0.18102E+00, 0.53423E-01, 0.12621E+00, 0.11091E+00, 0.69960E-01,
     & 0.33838E-01, 0.10876E-01,-0.54454E-03,-0.46066E-02,-0.49393E-02,
     &-0.38568E-02,-0.25593E-02,-0.15315E-02,-0.86979E-03,-0.49543E-03,
     &-0.28807E-03,-0.17178E-03,-0.10624E-03,-0.56781E-04
     & /
       real p89(0:23)
       data p89/
     & 0.76206E+00, 0.77616E+00,-0.38085E+00,-0.80390E+00,-0.56221E+00,
     &-0.17998E+00, 0.55864E-01, 0.12812E+00, 0.11182E+00, 0.70143E-01,
     & 0.33671E-01, 0.10621E-01,-0.76151E-03,-0.47515E-02,-0.50200E-02,
     &-0.38936E-02,-0.25710E-02,-0.15315E-02,-0.86587E-03,-0.49136E-03,
     &-0.28489E-03,-0.16952E-03,-0.10474E-03,-0.55649E-04
     & /
       real p90(0:23)
       data p90/
     & 0.76970E+00, 0.78185E+00,-0.38777E+00,-0.81252E+00,-0.56562E+00,
     &-0.17890E+00, 0.58311E-01, 0.13001E+00, 0.11272E+00, 0.70316E-01,
     & 0.33498E-01, 0.10365E-01,-0.97813E-03,-0.48953E-02,-0.50996E-02,
     &-0.39294E-02,-0.25821E-02,-0.15310E-02,-0.86175E-03,-0.48719E-03,
     &-0.28167E-03,-0.16725E-03,-0.10324E-03,-0.54518E-04
     & /
       real p91(0:23)
       data p91/
     & 0.77732E+00, 0.78752E+00,-0.39471E+00,-0.82111E+00,-0.56898E+00,
     &-0.17780E+00, 0.60764E-01, 0.13189E+00, 0.11360E+00, 0.70479E-01,
     & 0.33321E-01, 0.10107E-01,-0.11943E-02,-0.50379E-02,-0.51779E-02,
     &-0.39643E-02,-0.25925E-02,-0.15302E-02,-0.85743E-03,-0.48293E-03,
     &-0.27840E-03,-0.16496E-03,-0.10173E-03,-0.53389E-04
     & /
       real p92(0:23)
       data p92/
     & 0.78494E+00, 0.79315E+00,-0.40166E+00,-0.82968E+00,-0.57230E+00,
     &-0.17667E+00, 0.63222E-01, 0.13376E+00, 0.11448E+00, 0.70631E-01,
     & 0.33138E-01, 0.98478E-02,-0.14101E-02,-0.51793E-02,-0.52550E-02,
     &-0.39983E-02,-0.26023E-02,-0.15290E-02,-0.85292E-03,-0.47858E-03,
     &-0.27510E-03,-0.16266E-03,-0.10023E-03,-0.52263E-04
     & /
       real p93(0:23)
       data p93/
     & 0.79255E+00, 0.79875E+00,-0.40864E+00,-0.83822E+00,-0.57557E+00,
     &-0.17552E+00, 0.65685E-01, 0.13563E+00, 0.11533E+00, 0.70774E-01,
     & 0.32949E-01, 0.95868E-02,-0.16255E-02,-0.53196E-02,-0.53310E-02,
     &-0.40313E-02,-0.26114E-02,-0.15275E-02,-0.84822E-03,-0.47414E-03,
     &-0.27175E-03,-0.16034E-03,-0.98718E-04,-0.51138E-04
     & /
       real p94(0:22)
       data p94/
     & 0.80014E+00, 0.80431E+00,-0.41564E+00,-0.84674E+00,-0.57881E+00,
     &-0.17433E+00, 0.68154E-01, 0.13748E+00, 0.11618E+00, 0.70907E-01,
     & 0.32756E-01, 0.93241E-02,-0.18405E-02,-0.54587E-02,-0.54057E-02,
     &-0.40634E-02,-0.26200E-02,-0.15256E-02,-0.84332E-03,-0.46961E-03,
     &-0.26838E-03,-0.15801E-03,-0.97206E-04
     & /
       real p95(0:22)
       data p95/
     & 0.80772E+00, 0.80983E+00,-0.42265E+00,-0.85524E+00,-0.58200E+00,
     &-0.17311E+00, 0.70629E-01, 0.13933E+00, 0.11701E+00, 0.71030E-01,
     & 0.32557E-01, 0.90598E-02,-0.20551E-02,-0.55967E-02,-0.54793E-02,
     &-0.40946E-02,-0.26280E-02,-0.15233E-02,-0.83824E-03,-0.46499E-03,
     &-0.26496E-03,-0.15567E-03,-0.95692E-04
     & /
       real p96(0:22)
       data p96/
     & 0.81529E+00, 0.81532E+00,-0.42969E+00,-0.86372E+00,-0.58515E+00,
     &-0.17186E+00, 0.73109E-01, 0.14116E+00, 0.11783E+00, 0.71144E-01,
     & 0.32353E-01, 0.87940E-02,-0.22692E-02,-0.57335E-02,-0.55517E-02,
     &-0.41249E-02,-0.26353E-02,-0.15207E-02,-0.83298E-03,-0.46029E-03,
     &-0.26151E-03,-0.15332E-03,-0.94177E-04
     & /
       real p97(0:22)
       data p97/
     & 0.82285E+00, 0.82078E+00,-0.43674E+00,-0.87218E+00,-0.58826E+00,
     &-0.17059E+00, 0.75594E-01, 0.14299E+00, 0.11864E+00, 0.71248E-01,
     & 0.32144E-01, 0.85268E-02,-0.24829E-02,-0.58692E-02,-0.56230E-02,
     &-0.41543E-02,-0.26421E-02,-0.15178E-02,-0.82755E-03,-0.45552E-03,
     &-0.25804E-03,-0.15096E-03,-0.92661E-04
     & /
       real p98(0:22)
       data p98/
     & 0.83040E+00, 0.82620E+00,-0.44382E+00,-0.88061E+00,-0.59132E+00,
     &-0.16929E+00, 0.78084E-01, 0.14481E+00, 0.11943E+00, 0.71342E-01,
     & 0.31931E-01, 0.82582E-02,-0.26961E-02,-0.60037E-02,-0.56931E-02,
     &-0.41829E-02,-0.26483E-02,-0.15145E-02,-0.82195E-03,-0.45066E-03,
     &-0.25453E-03,-0.14859E-03,-0.91146E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  24,  25,  25,  25,  25,  25,  25
     &,  25,  25,  25,  25,  25,  25,  25,  25,  25,  25
     &,  25,  25,  25,  25,  25,  25,  25,  25,  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,  23,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  22,  22,  22,  22,  22
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.24) param(i,15) = p15(i)
             if (i.le.25) param(i,16) = p16(i)
             if (i.le.25) param(i,17) = p17(i)
             if (i.le.25) param(i,18) = p18(i)
             if (i.le.25) param(i,19) = p19(i)
             if (i.le.25) param(i,20) = p20(i)
             if (i.le.25) param(i,21) = p21(i)
             if (i.le.25) param(i,22) = p22(i)
             if (i.le.25) param(i,23) = p23(i)
             if (i.le.25) param(i,24) = p24(i)
             if (i.le.25) param(i,25) = p25(i)
             if (i.le.25) param(i,26) = p26(i)
             if (i.le.25) param(i,27) = p27(i)
             if (i.le.25) param(i,28) = p28(i)
             if (i.le.25) param(i,29) = p29(i)
             if (i.le.25) param(i,30) = p30(i)
             if (i.le.25) param(i,31) = p31(i)
             if (i.le.25) param(i,32) = p32(i)
             if (i.le.25) param(i,33) = p33(i)
             if (i.le.25) param(i,34) = p34(i)
             if (i.le.25) param(i,35) = p35(i)
             if (i.le.25) param(i,36) = p36(i)
             if (i.le.25) param(i,37) = p37(i)
             if (i.le.25) param(i,38) = p38(i)
             if (i.le.25) param(i,39) = p39(i)
             if (i.le.25) param(i,40) = p40(i)
             if (i.le.25) param(i,41) = p41(i)
             if (i.le.25) param(i,42) = p42(i)
             if (i.le.25) param(i,43) = p43(i)
             if (i.le.25) param(i,44) = p44(i)
             if (i.le.25) param(i,45) = p45(i)
             if (i.le.25) 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.24) param(i,50) = p50(i)
             if (i.le.24) 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.23) param(i,73) = p73(i)
             if (i.le.23) param(i,74) = p74(i)
             if (i.le.23) param(i,75) = p75(i)
             if (i.le.23) param(i,76) = p76(i)
             if (i.le.23) param(i,77) = p77(i)
             if (i.le.23) param(i,78) = p78(i)
             if (i.le.23) param(i,79) = p79(i)
             if (i.le.23) param(i,80) = p80(i)
             if (i.le.23) param(i,81) = p81(i)
             if (i.le.23) param(i,82) = p82(i)
             if (i.le.23) param(i,83) = p83(i)
             if (i.le.23) param(i,84) = p84(i)
             if (i.le.23) param(i,85) = p85(i)
             if (i.le.23) param(i,86) = p86(i)
             if (i.le.23) param(i,87) = p87(i)
             if (i.le.23) param(i,88) = p88(i)
             if (i.le.23) param(i,89) = p89(i)
             if (i.le.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.22) param(i,94) = p94(i)
             if (i.le.22) param(i,95) = p95(i)
             if (i.le.22) param(i,96) = p96(i)
             if (i.le.22) param(i,97) = p97(i)
             if (i.le.22) param(i,98) = p98(i)
          enddo
       endif
            
       uvalhiq2ms=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
       uvalhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) uvalhiq2ms=0.0
       if (q2.lt.q2min) uvalhiq2ms=0.0
       if ( x.gt. xmax) uvalhiq2ms=0.0
       if ( x.lt. xmin) uvalhiq2ms=0.0
       return
       end
       real function  dvalhiq2ms(xin,q2in)
***********************************************************
c  parametrization of dvalhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:20)
       data p15/
     & 0.60915E-01, 0.75490E-01,-0.10915E-01,-0.62063E-01,-0.60529E-01,
     &-0.32668E-01,-0.60982E-02, 0.81160E-02, 0.11416E-01, 0.91256E-02,
     & 0.54903E-02, 0.25541E-02, 0.78684E-03,-0.44695E-04,-0.31874E-03,
     &-0.33078E-03,-0.25448E-03,-0.17135E-03,-0.10894E-03,-0.68905E-04,
     &-0.44248E-04
     & /
       real p16(0:21)
       data p16/
     & 0.65471E-01, 0.80649E-01,-0.12651E-01,-0.67162E-01,-0.64687E-01,
     &-0.34298E-01,-0.58219E-02, 0.91206E-02, 0.12354E-01, 0.97138E-02,
     & 0.57529E-02, 0.26140E-02, 0.75495E-03,-0.10079E-03,-0.36861E-03,
     &-0.36586E-03,-0.27598E-03,-0.18336E-03,-0.11533E-03,-0.72330E-04,
     &-0.46172E-04,-0.29577E-04
     & /
       real p17(0:21)
       data p17/
     & 0.70177E-01, 0.85917E-01,-0.14553E-01,-0.72471E-01,-0.68921E-01,
     &-0.35877E-01,-0.54548E-02, 0.10194E-01, 0.13321E-01, 0.10303E-01,
     & 0.60034E-02, 0.26602E-02, 0.71265E-03,-0.16323E-03,-0.42167E-03,
     &-0.40219E-03,-0.29774E-03,-0.19521E-03,-0.12145E-03,-0.75522E-04,
     &-0.47921E-04,-0.30578E-04
     & /
       real p18(0:21)
       data p18/
     & 0.74835E-01, 0.91071E-01,-0.16541E-01,-0.77764E-01,-0.73051E-01,
     &-0.37340E-01,-0.50139E-02, 0.11287E-01, 0.14275E-01, 0.10866E-01,
     & 0.62311E-02, 0.26910E-02, 0.66210E-03,-0.22903E-03,-0.47542E-03,
     &-0.43808E-03,-0.31873E-03,-0.20635E-03,-0.12704E-03,-0.78335E-04,
     &-0.49417E-04,-0.31416E-04
     & /
       real p19(0:21)
       data p19/
     & 0.79448E-01, 0.96118E-01,-0.18609E-01,-0.83040E-01,-0.77082E-01,
     &-0.38693E-01,-0.45051E-02, 0.12399E-01, 0.15215E-01, 0.11406E-01,
     & 0.64372E-02, 0.27076E-02, 0.60416E-03,-0.29767E-03,-0.52959E-03,
     &-0.47338E-03,-0.33892E-03,-0.21678E-03,-0.13209E-03,-0.80787E-04,
     &-0.50676E-04,-0.32102E-04
     & /
       real p20(0:21)
       data p20/
     & 0.84020E-01, 0.10107E+00,-0.20752E-01,-0.88298E-01,-0.81018E-01,
     &-0.39942E-01,-0.39340E-02, 0.13525E-01, 0.16140E-01, 0.11922E-01,
     & 0.66230E-02, 0.27111E-02, 0.53961E-03,-0.36867E-03,-0.58393E-03,
     &-0.50802E-03,-0.35829E-03,-0.22652E-03,-0.13664E-03,-0.82895E-04,
     &-0.51713E-04,-0.32646E-04
     & /
       real p21(0:21)
       data p21/
     & 0.88553E-01, 0.10592E+00,-0.22964E-01,-0.93538E-01,-0.84863E-01,
     &-0.41094E-01,-0.33053E-02, 0.14664E-01, 0.17050E-01, 0.12414E-01,
     & 0.67896E-02, 0.27025E-02, 0.46914E-03,-0.44163E-03,-0.63824E-03,
     &-0.54189E-03,-0.37680E-03,-0.23555E-03,-0.14069E-03,-0.84676E-04,
     &-0.52540E-04,-0.33060E-04
     & /
       real p22(0:21)
       data p22/
     & 0.93049E-01, 0.11068E+00,-0.25242E-01,-0.98759E-01,-0.88621E-01,
     &-0.42153E-01,-0.26235E-02, 0.15812E-01, 0.17945E-01, 0.12885E-01,
     & 0.69380E-02, 0.26827E-02, 0.39337E-03,-0.51618E-03,-0.69235E-03,
     &-0.57495E-03,-0.39447E-03,-0.24391E-03,-0.14426E-03,-0.86147E-04,
     &-0.53172E-04,-0.33352E-04
     & /
       real p23(0:21)
       data p23/
     & 0.97511E-01, 0.11536E+00,-0.27583E-01,-0.10396E+00,-0.92294E-01,
     &-0.43125E-01,-0.18925E-02, 0.16969E-01, 0.18824E-01, 0.13334E-01,
     & 0.70691E-02, 0.26525E-02, 0.31288E-03,-0.59201E-03,-0.74611E-03,
     &-0.60714E-03,-0.41128E-03,-0.25161E-03,-0.14738E-03,-0.87325E-04,
     &-0.53623E-04,-0.33534E-04
     & /
       real p24(0:21)
       data p24/
     & 0.10194E+00, 0.11996E+00,-0.29981E-01,-0.10914E+00,-0.95887E-01,
     &-0.44014E-01,-0.11162E-02, 0.18131E-01, 0.19687E-01, 0.13763E-01,
     & 0.71839E-02, 0.26126E-02, 0.22817E-03,-0.66883E-03,-0.79939E-03,
     &-0.63842E-03,-0.42723E-03,-0.25866E-03,-0.15006E-03,-0.88228E-04,
     &-0.53904E-04,-0.33612E-04
     & /
       real p25(0:21)
       data p25/
     & 0.10634E+00, 0.12448E+00,-0.32434E-01,-0.11431E+00,-0.99401E-01,
     &-0.44824E-01,-0.29765E-03, 0.19298E-01, 0.20534E-01, 0.14171E-01,
     & 0.72833E-02, 0.25639E-02, 0.13971E-03,-0.74639E-03,-0.85208E-03,
     &-0.66877E-03,-0.44233E-03,-0.26508E-03,-0.15233E-03,-0.88871E-04,
     &-0.54028E-04,-0.33596E-04
     & /
       real p26(0:21)
       data p26/
     & 0.11071E+00, 0.12893E+00,-0.34940E-01,-0.11945E+00,-0.10284E+00,
     &-0.45560E-01, 0.55994E-03, 0.20469E-01, 0.21365E-01, 0.14561E-01,
     & 0.73680E-02, 0.25069E-02, 0.47923E-04,-0.82447E-03,-0.90409E-03,
     &-0.69815E-03,-0.45660E-03,-0.27089E-03,-0.15419E-03,-0.89270E-04,
     &-0.54006E-04,-0.33494E-04
     & /
       real p27(0:21)
       data p27/
     & 0.11505E+00, 0.13331E+00,-0.37495E-01,-0.12457E+00,-0.10621E+00,
     &-0.46225E-01, 0.14538E-02, 0.21641E-01, 0.22180E-01, 0.14931E-01,
     & 0.74389E-02, 0.24423E-02,-0.46816E-04,-0.90288E-03,-0.95534E-03,
     &-0.72657E-03,-0.47005E-03,-0.27612E-03,-0.15568E-03,-0.89441E-04,
     &-0.53849E-04,-0.33313E-04
     & /
       real p28(0:21)
       data p28/
     & 0.11936E+00, 0.13762E+00,-0.40097E-01,-0.12968E+00,-0.10951E+00,
     &-0.46822E-01, 0.23814E-02, 0.22814E-01, 0.22979E-01, 0.15283E-01,
     & 0.74966E-02, 0.23706E-02,-0.14416E-03,-0.98143E-03,-0.10058E-02,
     &-0.75400E-03,-0.48269E-03,-0.28078E-03,-0.15682E-03,-0.89397E-04,
     &-0.53567E-04,-0.33060E-04
     & /
       real p29(0:21)
       data p29/
     & 0.12366E+00, 0.14187E+00,-0.42744E-01,-0.13476E+00,-0.11274E+00,
     &-0.47355E-01, 0.33404E-02, 0.23987E-01, 0.23763E-01, 0.15618E-01,
     & 0.75418E-02, 0.22924E-02,-0.24379E-03,-0.10600E-02,-0.10553E-02,
     &-0.78046E-03,-0.49454E-03,-0.28490E-03,-0.15761E-03,-0.89152E-04,
     &-0.53170E-04,-0.32741E-04
     & /
       real p30(0:21)
       data p30/
     & 0.12792E+00, 0.14606E+00,-0.45432E-01,-0.13982E+00,-0.11590E+00,
     &-0.47826E-01, 0.43286E-02, 0.25158E-01, 0.24530E-01, 0.15936E-01,
     & 0.75751E-02, 0.22080E-02,-0.34542E-03,-0.11384E-02,-0.11040E-02,
     &-0.80594E-03,-0.50562E-03,-0.28850E-03,-0.15807E-03,-0.88720E-04,
     &-0.52668E-04,-0.32362E-04
     & /
       real p31(0:21)
       data p31/
     & 0.12959E+00, 0.14770E+00,-0.46497E-01,-0.14181E+00,-0.11713E+00,
     &-0.47999E-01, 0.47218E-02, 0.25617E-01, 0.24828E-01, 0.16057E-01,
     & 0.75858E-02, 0.21738E-02,-0.38555E-03,-0.11690E-02,-0.11228E-02,
     &-0.81569E-03,-0.50978E-03,-0.28979E-03,-0.15819E-03,-0.88514E-04,
     &-0.52451E-04,-0.32203E-04
     & /
       real p32(0:21)
       data p32/
     & 0.13217E+00, 0.15021E+00,-0.48151E-01,-0.14487E+00,-0.11901E+00,
     &-0.48253E-01, 0.53338E-02, 0.26325E-01, 0.25284E-01, 0.16241E-01,
     & 0.76001E-02, 0.21200E-02,-0.44767E-03,-0.12160E-02,-0.11515E-02,
     &-0.83047E-03,-0.51603E-03,-0.29167E-03,-0.15830E-03,-0.88159E-04,
     &-0.52098E-04,-0.31949E-04
     & /
       real p33(0:21)
       data p33/
     & 0.13640E+00, 0.15430E+00,-0.50907E-01,-0.14989E+00,-0.12207E+00,
     &-0.48626E-01, 0.63634E-02, 0.27489E-01, 0.26022E-01, 0.16530E-01,
     & 0.76147E-02, 0.20270E-02,-0.55135E-03,-0.12933E-02,-0.11981E-02,
     &-0.85406E-03,-0.52572E-03,-0.29438E-03,-0.15825E-03,-0.87441E-04,
     &-0.51443E-04,-0.31490E-04
     & /
       real p34(0:21)
       data p34/
     & 0.14061E+00, 0.15833E+00,-0.53702E-01,-0.15489E+00,-0.12506E+00,
     &-0.48942E-01, 0.74182E-02, 0.28650E-01, 0.26745E-01, 0.16803E-01,
     & 0.76187E-02, 0.19288E-02,-0.65650E-03,-0.13702E-02,-0.12437E-02,
     &-0.87669E-03,-0.53470E-03,-0.29662E-03,-0.15791E-03,-0.86565E-04,
     &-0.50701E-04,-0.30983E-04
     & /
       real p35(0:21)
       data p35/
     & 0.14480E+00, 0.16231E+00,-0.56533E-01,-0.15988E+00,-0.12799E+00,
     &-0.49205E-01, 0.84965E-02, 0.29808E-01, 0.27452E-01, 0.17061E-01,
     & 0.76126E-02, 0.18257E-02,-0.76291E-03,-0.14466E-02,-0.12884E-02,
     &-0.89838E-03,-0.54298E-03,-0.29840E-03,-0.15731E-03,-0.85540E-04,
     &-0.49879E-04,-0.30433E-04
     & /
       real p36(0:21)
       data p36/
     & 0.14897E+00, 0.16624E+00,-0.59400E-01,-0.16484E+00,-0.13086E+00,
     &-0.49415E-01, 0.95969E-02, 0.30962E-01, 0.28145E-01, 0.17305E-01,
     & 0.75968E-02, 0.17183E-02,-0.87039E-03,-0.15225E-02,-0.13320E-02,
     &-0.91914E-03,-0.55057E-03,-0.29975E-03,-0.15645E-03,-0.84378E-04,
     &-0.48985E-04,-0.29846E-04
     & /
       real p37(0:21)
       data p37/
     & 0.15312E+00, 0.17012E+00,-0.62301E-01,-0.16979E+00,-0.13368E+00,
     &-0.49576E-01, 0.10718E-01, 0.32111E-01, 0.28822E-01, 0.17534E-01,
     & 0.75719E-02, 0.16066E-02,-0.97876E-03,-0.15978E-02,-0.13745E-02,
     &-0.93898E-03,-0.55751E-03,-0.30068E-03,-0.15536E-03,-0.83088E-04,
     &-0.48024E-04,-0.29224E-04
     & /
       real p38(0:21)
       data p38/
     & 0.15725E+00, 0.17395E+00,-0.65235E-01,-0.17471E+00,-0.13645E+00,
     &-0.49689E-01, 0.11858E-01, 0.33256E-01, 0.29485E-01, 0.17749E-01,
     & 0.75382E-02, 0.14912E-02,-0.10879E-02,-0.16724E-02,-0.14161E-02,
     &-0.95790E-03,-0.56380E-03,-0.30121E-03,-0.15404E-03,-0.81679E-04,
     &-0.47003E-04,-0.28571E-04
     & /
       real p39(0:21)
       data p39/
     & 0.16136E+00, 0.17774E+00,-0.68200E-01,-0.17961E+00,-0.13916E+00,
     &-0.49755E-01, 0.13017E-01, 0.34396E-01, 0.30134E-01, 0.17951E-01,
     & 0.74962E-02, 0.13721E-02,-0.11975E-02,-0.17462E-02,-0.14565E-02,
     &-0.97593E-03,-0.56947E-03,-0.30136E-03,-0.15250E-03,-0.80158E-04,
     &-0.45926E-04,-0.27890E-04
     & /
       real p40(0:21)
       data p40/
     & 0.16546E+00, 0.18147E+00,-0.71195E-01,-0.18450E+00,-0.14181E+00,
     &-0.49778E-01, 0.14192E-01, 0.35530E-01, 0.30768E-01, 0.18140E-01,
     & 0.74462E-02, 0.12498E-02,-0.13076E-02,-0.18192E-02,-0.14960E-02,
     &-0.99309E-03,-0.57453E-03,-0.30114E-03,-0.15076E-03,-0.78535E-04,
     &-0.44800E-04,-0.27186E-04
     & /
       real p41(0:21)
       data p41/
     & 0.16954E+00, 0.18517E+00,-0.74219E-01,-0.18936E+00,-0.14442E+00,
     &-0.49758E-01, 0.15383E-01, 0.36658E-01, 0.31387E-01, 0.18316E-01,
     & 0.73886E-02, 0.11244E-02,-0.14181E-02,-0.18914E-02,-0.15344E-02,
     &-0.10094E-02,-0.57901E-03,-0.30057E-03,-0.14884E-03,-0.76818E-04,
     &-0.43628E-04,-0.26461E-04
     & /
       real p42(0:21)
       data p42/
     & 0.17360E+00, 0.18882E+00,-0.77271E-01,-0.19421E+00,-0.14698E+00,
     &-0.49696E-01, 0.16589E-01, 0.37780E-01, 0.31993E-01, 0.18480E-01,
     & 0.73237E-02, 0.99617E-03,-0.15287E-02,-0.19627E-02,-0.15717E-02,
     &-0.10248E-02,-0.58292E-03,-0.29966E-03,-0.14673E-03,-0.75012E-04,
     &-0.42416E-04,-0.25717E-04
     & /
       real p43(0:21)
       data p43/
     & 0.17765E+00, 0.19243E+00,-0.80350E-01,-0.19904E+00,-0.14949E+00,
     &-0.49595E-01, 0.17808E-01, 0.38895E-01, 0.32585E-01, 0.18632E-01,
     & 0.72519E-02, 0.86533E-03,-0.16394E-02,-0.20331E-02,-0.16079E-02,
     &-0.10394E-02,-0.58628E-03,-0.29844E-03,-0.14445E-03,-0.73126E-04,
     &-0.41168E-04,-0.24958E-04
     & /
       real p44(0:21)
       data p44/
     & 0.18169E+00, 0.19600E+00,-0.83455E-01,-0.20384E+00,-0.15195E+00,
     &-0.49456E-01, 0.19041E-01, 0.40004E-01, 0.33164E-01, 0.18773E-01,
     & 0.71735E-02, 0.73210E-03,-0.17501E-02,-0.21025E-02,-0.16432E-02,
     &-0.10532E-02,-0.58911E-03,-0.29690E-03,-0.14202E-03,-0.71166E-04,
     &-0.39887E-04,-0.24185E-04
     & /
       real p45(0:21)
       data p45/
     & 0.18571E+00, 0.19953E+00,-0.86585E-01,-0.20863E+00,-0.15437E+00,
     &-0.49279E-01, 0.20285E-01, 0.41105E-01, 0.33729E-01, 0.18902E-01,
     & 0.70888E-02, 0.59665E-03,-0.18607E-02,-0.21710E-02,-0.16774E-02,
     &-0.10662E-02,-0.59143E-03,-0.29508E-03,-0.13944E-03,-0.69138E-04,
     &-0.38578E-04,-0.23401E-04
     & /
       real p46(0:21)
       data p46/
     & 0.18971E+00, 0.20303E+00,-0.89739E-01,-0.21340E+00,-0.15674E+00,
     &-0.49067E-01, 0.21541E-01, 0.42200E-01, 0.34281E-01, 0.19021E-01,
     & 0.69981E-02, 0.45916E-03,-0.19711E-02,-0.22384E-02,-0.17105E-02,
     &-0.10784E-02,-0.59325E-03,-0.29298E-03,-0.13672E-03,-0.67048E-04,
     &-0.37244E-04,-0.22608E-04
     & /
       real p47(0:21)
       data p47/
     & 0.19371E+00, 0.20649E+00,-0.92917E-01,-0.21815E+00,-0.15907E+00,
     &-0.48820E-01, 0.22807E-01, 0.43287E-01, 0.34820E-01, 0.19129E-01,
     & 0.69017E-02, 0.31982E-03,-0.20812E-02,-0.23049E-02,-0.17426E-02,
     &-0.10899E-02,-0.59459E-03,-0.29061E-03,-0.13386E-03,-0.64901E-04,
     &-0.35888E-04,-0.21808E-04
     & /
       real p48(0:21)
       data p48/
     & 0.19769E+00, 0.20991E+00,-0.96117E-01,-0.22288E+00,-0.16135E+00,
     &-0.48540E-01, 0.24083E-01, 0.44367E-01, 0.35346E-01, 0.19227E-01,
     & 0.67997E-02, 0.17877E-03,-0.21910E-02,-0.23703E-02,-0.17738E-02,
     &-0.11006E-02,-0.59547E-03,-0.28799E-03,-0.13089E-03,-0.62703E-04,
     &-0.34514E-04,-0.21003E-04
     & /
       real p49(0:21)
       data p49/
     & 0.20166E+00, 0.21330E+00,-0.99339E-01,-0.22760E+00,-0.16359E+00,
     &-0.48228E-01, 0.25368E-01, 0.45439E-01, 0.35860E-01, 0.19315E-01,
     & 0.66926E-02, 0.36177E-04,-0.23004E-02,-0.24347E-02,-0.18039E-02,
     &-0.11106E-02,-0.59590E-03,-0.28512E-03,-0.12780E-03,-0.60458E-04,
     &-0.33124E-04,-0.20194E-04
     & /
       real p50(0:21)
       data p50/
     & 0.20562E+00, 0.21665E+00,-0.10258E+00,-0.23229E+00,-0.16580E+00,
     &-0.47885E-01, 0.26662E-01, 0.46504E-01, 0.36362E-01, 0.19393E-01,
     & 0.65804E-02,-0.10783E-03,-0.24094E-02,-0.24980E-02,-0.18330E-02,
     &-0.11199E-02,-0.59590E-03,-0.28203E-03,-0.12460E-03,-0.58171E-04,
     &-0.31721E-04,-0.19383E-04
     & /
       real p51(0:21)
       data p51/
     & 0.20956E+00, 0.21997E+00,-0.10585E+00,-0.23697E+00,-0.16796E+00,
     &-0.47511E-01, 0.27963E-01, 0.47561E-01, 0.36851E-01, 0.19462E-01,
     & 0.64635E-02,-0.25312E-03,-0.25178E-02,-0.25602E-02,-0.18612E-02,
     &-0.11285E-02,-0.59549E-03,-0.27872E-03,-0.12130E-03,-0.55847E-04,
     &-0.30308E-04,-0.18571E-04
     & /
       real p52(0:21)
       data p52/
     & 0.21350E+00, 0.22326E+00,-0.10913E+00,-0.24163E+00,-0.17008E+00,
     &-0.47109E-01, 0.29272E-01, 0.48609E-01, 0.37329E-01, 0.19522E-01,
     & 0.63420E-02,-0.39955E-03,-0.26256E-02,-0.26214E-02,-0.18883E-02,
     &-0.11364E-02,-0.59468E-03,-0.27520E-03,-0.11791E-03,-0.53490E-04,
     &-0.28887E-04,-0.17759E-04
     & /
       real p53(0:21)
       data p53/
     & 0.21742E+00, 0.22652E+00,-0.11243E+00,-0.24627E+00,-0.17217E+00,
     &-0.46677E-01, 0.30588E-01, 0.49650E-01, 0.37795E-01, 0.19573E-01,
     & 0.62162E-02,-0.54702E-03,-0.27328E-02,-0.26815E-02,-0.19146E-02,
     &-0.11436E-02,-0.59348E-03,-0.27149E-03,-0.11444E-03,-0.51103E-04,
     &-0.27460E-04,-0.16949E-04
     & /
       real p54(0:21)
       data p54/
     & 0.22134E+00, 0.22975E+00,-0.11575E+00,-0.25090E+00,-0.17422E+00,
     &-0.46219E-01, 0.31910E-01, 0.50683E-01, 0.38249E-01, 0.19615E-01,
     & 0.60862E-02,-0.69541E-03,-0.28394E-02,-0.27405E-02,-0.19399E-02,
     &-0.11503E-02,-0.59191E-03,-0.26758E-03,-0.11088E-03,-0.48691E-04,
     &-0.26029E-04,-0.16142E-04
     & /
       real p55(0:21)
       data p55/
     & 0.22524E+00, 0.23295E+00,-0.11909E+00,-0.25550E+00,-0.17623E+00,
     &-0.45734E-01, 0.33237E-01, 0.51708E-01, 0.38692E-01, 0.19650E-01,
     & 0.59523E-02,-0.84461E-03,-0.29453E-02,-0.27985E-02,-0.19642E-02,
     &-0.11563E-02,-0.58998E-03,-0.26350E-03,-0.10725E-03,-0.46257E-04,
     &-0.24596E-04,-0.15339E-04
     & /
       real p56(0:20)
       data p56/
     & 0.22914E+00, 0.23612E+00,-0.12245E+00,-0.26009E+00,-0.17821E+00,
     &-0.45223E-01, 0.34570E-01, 0.52724E-01, 0.39124E-01, 0.19676E-01,
     & 0.58146E-02,-0.99453E-03,-0.30504E-02,-0.28553E-02,-0.19877E-02,
     &-0.11617E-02,-0.58771E-03,-0.25925E-03,-0.10356E-03,-0.43803E-04,
     &-0.23163E-04
     & /
       real p57(0:20)
       data p57/
     & 0.23302E+00, 0.23926E+00,-0.12582E+00,-0.26467E+00,-0.18015E+00,
     &-0.44688E-01, 0.35908E-01, 0.53733E-01, 0.39545E-01, 0.19694E-01,
     & 0.56733E-02,-0.11451E-02,-0.31548E-02,-0.29111E-02,-0.20103E-02,
     &-0.11665E-02,-0.58510E-03,-0.25484E-03,-0.99799E-04,-0.41334E-04,
     &-0.21732E-04
     & /
       real p58(0:20)
       data p58/
     & 0.23690E+00, 0.24237E+00,-0.12921E+00,-0.26922E+00,-0.18205E+00,
     &-0.44128E-01, 0.37251E-01, 0.54733E-01, 0.39955E-01, 0.19705E-01,
     & 0.55286E-02,-0.12961E-02,-0.32584E-02,-0.29658E-02,-0.20320E-02,
     &-0.11707E-02,-0.58218E-03,-0.25028E-03,-0.95982E-04,-0.38851E-04,
     &-0.20304E-04
     & /
       real p59(0:20)
       data p59/
     & 0.24076E+00, 0.24546E+00,-0.13262E+00,-0.27376E+00,-0.18393E+00,
     &-0.43544E-01, 0.38598E-01, 0.55725E-01, 0.40354E-01, 0.19708E-01,
     & 0.53806E-02,-0.14477E-02,-0.33611E-02,-0.30195E-02,-0.20528E-02,
     &-0.11744E-02,-0.57895E-03,-0.24557E-03,-0.92112E-04,-0.36359E-04,
     &-0.18880E-04
     & /
       real p60(0:20)
       data p60/
     & 0.24462E+00, 0.24852E+00,-0.13604E+00,-0.27828E+00,-0.18577E+00,
     &-0.42938E-01, 0.39948E-01, 0.56709E-01, 0.40743E-01, 0.19704E-01,
     & 0.52295E-02,-0.15996E-02,-0.34630E-02,-0.30720E-02,-0.20728E-02,
     &-0.11775E-02,-0.57542E-03,-0.24073E-03,-0.88194E-04,-0.33858E-04,
     &-0.17462E-04
     & /
       real p61(0:20)
       data p61/
     & 0.24847E+00, 0.25155E+00,-0.13948E+00,-0.28279E+00,-0.18757E+00,
     &-0.42309E-01, 0.41302E-01, 0.57684E-01, 0.41122E-01, 0.19694E-01,
     & 0.50754E-02,-0.17518E-02,-0.35640E-02,-0.31236E-02,-0.20919E-02,
     &-0.11801E-02,-0.57161E-03,-0.23576E-03,-0.84233E-04,-0.31353E-04,
     &-0.16051E-04
     & /
       real p62(0:20)
       data p62/
     & 0.25231E+00, 0.25456E+00,-0.14293E+00,-0.28728E+00,-0.18935E+00,
     &-0.41659E-01, 0.42659E-01, 0.58652E-01, 0.41491E-01, 0.19676E-01,
     & 0.49184E-02,-0.19042E-02,-0.36642E-02,-0.31740E-02,-0.21103E-02,
     &-0.11822E-02,-0.56752E-03,-0.23068E-03,-0.80233E-04,-0.28845E-04,
     &-0.14649E-04
     & /
       real p63(0:20)
       data p63/
     & 0.25614E+00, 0.25755E+00,-0.14640E+00,-0.29175E+00,-0.19110E+00,
     &-0.40989E-01, 0.44018E-01, 0.59611E-01, 0.41850E-01, 0.19652E-01,
     & 0.47588E-02,-0.20568E-02,-0.37634E-02,-0.32234E-02,-0.21278E-02,
     &-0.11838E-02,-0.56318E-03,-0.22547E-03,-0.76197E-04,-0.26335E-04,
     &-0.13256E-04
     & /
       real p64(0:20)
       data p64/
     & 0.25997E+00, 0.26051E+00,-0.14988E+00,-0.29620E+00,-0.19281E+00,
     &-0.40298E-01, 0.45380E-01, 0.60562E-01, 0.42199E-01, 0.19621E-01,
     & 0.45966E-02,-0.22095E-02,-0.38617E-02,-0.32718E-02,-0.21445E-02,
     &-0.11849E-02,-0.55858E-03,-0.22016E-03,-0.72130E-04,-0.23827E-04,
     &-0.11873E-04
     & /
       real p65(0:20)
       data p65/
     & 0.26378E+00, 0.26344E+00,-0.15337E+00,-0.30065E+00,-0.19449E+00,
     &-0.39587E-01, 0.46745E-01, 0.61504E-01, 0.42539E-01, 0.19584E-01,
     & 0.44319E-02,-0.23622E-02,-0.39591E-02,-0.33191E-02,-0.21605E-02,
     &-0.11855E-02,-0.55373E-03,-0.21475E-03,-0.68034E-04,-0.21322E-04,
     &-0.10501E-04
     & /
       real p66(0:20)
       data p66/
     & 0.26759E+00, 0.26636E+00,-0.15688E+00,-0.30507E+00,-0.19615E+00,
     &-0.38857E-01, 0.48111E-01, 0.62439E-01, 0.42870E-01, 0.19541E-01,
     & 0.42649E-02,-0.25149E-02,-0.40555E-02,-0.33654E-02,-0.21757E-02,
     &-0.11857E-02,-0.54866E-03,-0.20924E-03,-0.63915E-04,-0.18822E-04,
     &-0.91417E-05
     & /
       real p67(0:20)
       data p67/
     & 0.27140E+00, 0.26925E+00,-0.16040E+00,-0.30948E+00,-0.19777E+00,
     &-0.38108E-01, 0.49479E-01, 0.63365E-01, 0.43191E-01, 0.19493E-01,
     & 0.40956E-02,-0.26675E-02,-0.41510E-02,-0.34107E-02,-0.21901E-02,
     &-0.11854E-02,-0.54336E-03,-0.20364E-03,-0.59774E-04,-0.16329E-04,
     &-0.77949E-05
     & /
       real p68(0:20)
       data p68/
     & 0.27519E+00, 0.27212E+00,-0.16393E+00,-0.31387E+00,-0.19937E+00,
     &-0.37341E-01, 0.50849E-01, 0.64283E-01, 0.43503E-01, 0.19438E-01,
     & 0.39242E-02,-0.28200E-02,-0.42455E-02,-0.34550E-02,-0.22038E-02,
     &-0.11847E-02,-0.53785E-03,-0.19796E-03,-0.55615E-04,-0.13843E-04,
     &-0.64616E-05
     & /
       real p69(0:19)
       data p69/
     & 0.27898E+00, 0.27496E+00,-0.16747E+00,-0.31825E+00,-0.20094E+00,
     &-0.36556E-01, 0.52219E-01, 0.65193E-01, 0.43806E-01, 0.19378E-01,
     & 0.37509E-02,-0.29724E-02,-0.43390E-02,-0.34983E-02,-0.22168E-02,
     &-0.11835E-02,-0.53213E-03,-0.19221E-03,-0.51441E-04,-0.11367E-04
     & /
       real p70(0:19)
       data p70/
     & 0.28276E+00, 0.27779E+00,-0.17103E+00,-0.32261E+00,-0.20248E+00,
     &-0.35755E-01, 0.53591E-01, 0.66095E-01, 0.44100E-01, 0.19313E-01,
     & 0.35756E-02,-0.31245E-02,-0.44315E-02,-0.35406E-02,-0.22291E-02,
     &-0.11820E-02,-0.52622E-03,-0.18637E-03,-0.47255E-04,-0.89022E-05
     & /
       real p71(0:19)
       data p71/
     & 0.28654E+00, 0.28059E+00,-0.17460E+00,-0.32696E+00,-0.20400E+00,
     &-0.34936E-01, 0.54964E-01, 0.66989E-01, 0.44386E-01, 0.19242E-01,
     & 0.33985E-02,-0.32764E-02,-0.45230E-02,-0.35820E-02,-0.22408E-02,
     &-0.11801E-02,-0.52012E-03,-0.18047E-03,-0.43059E-04,-0.64493E-05
     & /
       real p72(0:19)
       data p72/
     & 0.29030E+00, 0.28338E+00,-0.17818E+00,-0.33129E+00,-0.20549E+00,
     &-0.34102E-01, 0.56337E-01, 0.67875E-01, 0.44664E-01, 0.19166E-01,
     & 0.32196E-02,-0.34280E-02,-0.46136E-02,-0.36224E-02,-0.22517E-02,
     &-0.11777E-02,-0.51383E-03,-0.17451E-03,-0.38856E-04,-0.40098E-05
     & /
       real p73(0:19)
       data p73/
     & 0.29407E+00, 0.28614E+00,-0.18177E+00,-0.33561E+00,-0.20695E+00,
     &-0.33251E-01, 0.57710E-01, 0.68753E-01, 0.44933E-01, 0.19085E-01,
     & 0.30391E-02,-0.35793E-02,-0.47031E-02,-0.36618E-02,-0.22620E-02,
     &-0.11750E-02,-0.50737E-03,-0.16849E-03,-0.34649E-04,-0.15847E-05
     & /
       real p74(0:19)
       data p74/
     & 0.29782E+00, 0.28888E+00,-0.18537E+00,-0.33992E+00,-0.20839E+00,
     &-0.32385E-01, 0.59084E-01, 0.69623E-01, 0.45193E-01, 0.18999E-01,
     & 0.28571E-02,-0.37302E-02,-0.47916E-02,-0.37002E-02,-0.22716E-02,
     &-0.11720E-02,-0.50075E-03,-0.16241E-03,-0.30438E-04, 0.82473E-06
     & /
       real p75(0:19)
       data p75/
     & 0.30157E+00, 0.29161E+00,-0.18898E+00,-0.34420E+00,-0.20980E+00,
     &-0.31504E-01, 0.60458E-01, 0.70485E-01, 0.45446E-01, 0.18909E-01,
     & 0.26736E-02,-0.38807E-02,-0.48791E-02,-0.37378E-02,-0.22806E-02,
     &-0.11686E-02,-0.49397E-03,-0.15628E-03,-0.26228E-04, 0.32177E-05
     & /
       real p76(0:19)
       data p76/
     & 0.30532E+00, 0.29431E+00,-0.19260E+00,-0.34848E+00,-0.21118E+00,
     &-0.30608E-01, 0.61831E-01, 0.71340E-01, 0.45691E-01, 0.18814E-01,
     & 0.24887E-02,-0.40308E-02,-0.49656E-02,-0.37744E-02,-0.22889E-02,
     &-0.11648E-02,-0.48703E-03,-0.15011E-03,-0.22019E-04, 0.55932E-05
     & /
       real p77(0:19)
       data p77/
     & 0.30905E+00, 0.29700E+00,-0.19624E+00,-0.35274E+00,-0.21255E+00,
     &-0.29698E-01, 0.63205E-01, 0.72186E-01, 0.45928E-01, 0.18714E-01,
     & 0.23025E-02,-0.41804E-02,-0.50511E-02,-0.38101E-02,-0.22967E-02,
     &-0.11607E-02,-0.47995E-03,-0.14389E-03,-0.17814E-04, 0.79505E-05
     & /
       real p78(0:19)
       data p78/
     & 0.31279E+00, 0.29966E+00,-0.19988E+00,-0.35698E+00,-0.21389E+00,
     &-0.28774E-01, 0.64578E-01, 0.73025E-01, 0.46158E-01, 0.18610E-01,
     & 0.21151E-02,-0.43296E-02,-0.51356E-02,-0.38449E-02,-0.23039E-02,
     &-0.11563E-02,-0.47273E-03,-0.13764E-03,-0.13614E-04, 0.10289E-04
     & /
       real p79(0:19)
       data p79/
     & 0.31651E+00, 0.30231E+00,-0.20353E+00,-0.36121E+00,-0.21520E+00,
     &-0.27837E-01, 0.65950E-01, 0.73856E-01, 0.46379E-01, 0.18502E-01,
     & 0.19264E-02,-0.44782E-02,-0.52191E-02,-0.38788E-02,-0.23104E-02,
     &-0.11516E-02,-0.46538E-03,-0.13135E-03,-0.94216E-05, 0.12607E-04
     & /
       real p80(0:19)
       data p80/
     & 0.32024E+00, 0.30494E+00,-0.20719E+00,-0.36543E+00,-0.21649E+00,
     &-0.26886E-01, 0.67322E-01, 0.74679E-01, 0.46594E-01, 0.18390E-01,
     & 0.17367E-02,-0.46263E-02,-0.53015E-02,-0.39118E-02,-0.23164E-02,
     &-0.11466E-02,-0.45790E-03,-0.12502E-03,-0.52381E-05, 0.14905E-04
     & /
       real p81(0:19)
       data p81/
     & 0.32395E+00, 0.30756E+00,-0.21086E+00,-0.36964E+00,-0.21776E+00,
     &-0.25922E-01, 0.68693E-01, 0.75495E-01, 0.46801E-01, 0.18274E-01,
     & 0.15459E-02,-0.47739E-02,-0.53830E-02,-0.39440E-02,-0.23219E-02,
     &-0.11412E-02,-0.45030E-03,-0.11867E-03,-0.10649E-05, 0.17182E-04
     & /
       real p82(0:19)
       data p82/
     & 0.32766E+00, 0.31015E+00,-0.21454E+00,-0.37383E+00,-0.21901E+00,
     &-0.24946E-01, 0.70063E-01, 0.76304E-01, 0.47001E-01, 0.18154E-01,
     & 0.13541E-02,-0.49208E-02,-0.54634E-02,-0.39753E-02,-0.23268E-02,
     &-0.11356E-02,-0.44259E-03,-0.11230E-03, 0.30963E-05, 0.19437E-04
     & /
       real p83(0:19)
       data p83/
     & 0.33137E+00, 0.31273E+00,-0.21823E+00,-0.37800E+00,-0.22023E+00,
     &-0.23957E-01, 0.71432E-01, 0.77104E-01, 0.47194E-01, 0.18030E-01,
     & 0.11614E-02,-0.50672E-02,-0.55429E-02,-0.40058E-02,-0.23311E-02,
     &-0.11298E-02,-0.43476E-03,-0.10590E-03, 0.72443E-05, 0.21671E-04
     & /
       real p84(0:19)
       data p84/
     & 0.33507E+00, 0.31530E+00,-0.22193E+00,-0.38216E+00,-0.22144E+00,
     &-0.22957E-01, 0.72800E-01, 0.77898E-01, 0.47380E-01, 0.17902E-01,
     & 0.96788E-03,-0.52129E-02,-0.56213E-02,-0.40354E-02,-0.23350E-02,
     &-0.11236E-02,-0.42683E-03,-0.99475E-04, 0.11378E-04, 0.23881E-04
     & /
       real p85(0:19)
       data p85/
     & 0.33877E+00, 0.31784E+00,-0.22563E+00,-0.38631E+00,-0.22262E+00,
     &-0.21945E-01, 0.74166E-01, 0.78683E-01, 0.47559E-01, 0.17770E-01,
     & 0.77352E-03,-0.53581E-02,-0.56987E-02,-0.40642E-02,-0.23383E-02,
     &-0.11172E-02,-0.41880E-03,-0.93037E-04, 0.15495E-04, 0.26068E-04
     & /
       real p86(0:19)
       data p86/
     & 0.34246E+00, 0.32037E+00,-0.22935E+00,-0.39045E+00,-0.22378E+00,
     &-0.20921E-01, 0.75531E-01, 0.79462E-01, 0.47732E-01, 0.17636E-01,
     & 0.57839E-03,-0.55025E-02,-0.57752E-02,-0.40922E-02,-0.23411E-02,
     &-0.11105E-02,-0.41068E-03,-0.86585E-04, 0.19596E-04, 0.28232E-04
     & /
       real p87(0:19)
       data p87/
     & 0.34614E+00, 0.32288E+00,-0.23307E+00,-0.39457E+00,-0.22492E+00,
     &-0.19886E-01, 0.76895E-01, 0.80233E-01, 0.47898E-01, 0.17497E-01,
     & 0.38256E-03,-0.56463E-02,-0.58507E-02,-0.41194E-02,-0.23434E-02,
     &-0.11036E-02,-0.40247E-03,-0.80121E-04, 0.23678E-04, 0.30372E-04
     & /
       real p88(0:19)
       data p88/
     & 0.34983E+00, 0.32538E+00,-0.23680E+00,-0.39868E+00,-0.22604E+00,
     &-0.18841E-01, 0.78257E-01, 0.80997E-01, 0.48057E-01, 0.17356E-01,
     & 0.18608E-03,-0.57894E-02,-0.59251E-02,-0.41458E-02,-0.23452E-02,
     &-0.10965E-02,-0.39417E-03,-0.73647E-04, 0.27741E-04, 0.32488E-04
     & /
       real p89(0:19)
       data p89/
     & 0.35350E+00, 0.32786E+00,-0.24054E+00,-0.40278E+00,-0.22714E+00,
     &-0.17784E-01, 0.79618E-01, 0.81754E-01, 0.48210E-01, 0.17211E-01,
     &-0.11016E-04,-0.59318E-02,-0.59986E-02,-0.41714E-02,-0.23466E-02,
     &-0.10891E-02,-0.38579E-03,-0.67165E-04, 0.31784E-04, 0.34579E-04
     & /
       real p90(0:19)
       data p90/
     & 0.35718E+00, 0.33033E+00,-0.24428E+00,-0.40686E+00,-0.22821E+00,
     &-0.16718E-01, 0.80977E-01, 0.82503E-01, 0.48357E-01, 0.17063E-01,
     &-0.20867E-03,-0.60735E-02,-0.60712E-02,-0.41963E-02,-0.23475E-02,
     &-0.10815E-02,-0.37733E-03,-0.60678E-04, 0.35806E-04, 0.36645E-04
     & /
       real p91(0:19)
       data p91/
     & 0.36085E+00, 0.33278E+00,-0.24803E+00,-0.41094E+00,-0.22927E+00,
     &-0.15641E-01, 0.82334E-01, 0.83246E-01, 0.48497E-01, 0.16912E-01,
     &-0.40685E-03,-0.62144E-02,-0.61427E-02,-0.42204E-02,-0.23479E-02,
     &-0.10737E-02,-0.36880E-03,-0.54188E-04, 0.39805E-04, 0.38686E-04
     & /
       real p92(0:19)
       data p92/
     & 0.36451E+00, 0.33522E+00,-0.25179E+00,-0.41499E+00,-0.23031E+00,
     &-0.14554E-01, 0.83689E-01, 0.83981E-01, 0.48632E-01, 0.16758E-01,
     &-0.60550E-03,-0.63547E-02,-0.62133E-02,-0.42438E-02,-0.23479E-02,
     &-0.10657E-02,-0.36021E-03,-0.47697E-04, 0.43783E-04, 0.40702E-04
     & /
       real p93(0:19)
       data p93/
     & 0.36817E+00, 0.33764E+00,-0.25556E+00,-0.41904E+00,-0.23133E+00,
     &-0.13458E-01, 0.85042E-01, 0.84710E-01, 0.48760E-01, 0.16600E-01,
     &-0.80466E-03,-0.64942E-02,-0.62829E-02,-0.42664E-02,-0.23475E-02,
     &-0.10575E-02,-0.35154E-03,-0.41204E-04, 0.47737E-04, 0.42693E-04
     & /
       real p94(0:19)
       data p94/
     & 0.37183E+00, 0.34005E+00,-0.25934E+00,-0.42307E+00,-0.23233E+00,
     &-0.12351E-01, 0.86393E-01, 0.85431E-01, 0.48882E-01, 0.16440E-01,
     &-0.10043E-02,-0.66330E-02,-0.63516E-02,-0.42883E-02,-0.23466E-02,
     &-0.10491E-02,-0.34280E-03,-0.34709E-04, 0.51670E-04, 0.44660E-04
     & /
       real p95(0:19)
       data p95/
     & 0.37548E+00, 0.34244E+00,-0.26312E+00,-0.42709E+00,-0.23331E+00,
     &-0.11233E-01, 0.87743E-01, 0.86145E-01, 0.48998E-01, 0.16277E-01,
     &-0.12045E-02,-0.67710E-02,-0.64193E-02,-0.43094E-02,-0.23453E-02,
     &-0.10404E-02,-0.33400E-03,-0.28213E-04, 0.55580E-04, 0.46601E-04
     & /
       real p96(0:19)
       data p96/
     & 0.37913E+00, 0.34481E+00,-0.26691E+00,-0.43110E+00,-0.23427E+00,
     &-0.10106E-01, 0.89091E-01, 0.86853E-01, 0.49108E-01, 0.16110E-01,
     &-0.14052E-02,-0.69084E-02,-0.64861E-02,-0.43298E-02,-0.23435E-02,
     &-0.10316E-02,-0.32513E-03,-0.21718E-04, 0.59467E-04, 0.48518E-04
     & /
       real p97(0:19)
       data p97/
     & 0.38277E+00, 0.34717E+00,-0.27071E+00,-0.43510E+00,-0.23522E+00,
     &-0.89690E-02, 0.90437E-01, 0.87553E-01, 0.49211E-01, 0.15941E-01,
     &-0.16063E-02,-0.70450E-02,-0.65519E-02,-0.43495E-02,-0.23413E-02,
     &-0.10225E-02,-0.31621E-03,-0.15225E-04, 0.63330E-04, 0.50410E-04
     & /
       real p98(0:19)
       data p98/
     & 0.38641E+00, 0.34952E+00,-0.27451E+00,-0.43908E+00,-0.23614E+00,
     &-0.78224E-02, 0.91781E-01, 0.88246E-01, 0.49309E-01, 0.15769E-01,
     &-0.18077E-02,-0.71808E-02,-0.66168E-02,-0.43684E-02,-0.23388E-02,
     &-0.10133E-02,-0.30722E-03,-0.87377E-05, 0.67168E-04, 0.52276E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  20,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  20,  20,  20,  20,  20,  20
     &,  20,  20,  20,  20,  20,  20,  20,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.20) param(i,15) = p15(i)
             if (i.le.21) param(i,16) = p16(i)
             if (i.le.21) param(i,17) = p17(i)
             if (i.le.21) param(i,18) = p18(i)
             if (i.le.21) param(i,19) = p19(i)
             if (i.le.21) param(i,20) = p20(i)
             if (i.le.21) 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.21) param(i,24) = p24(i)
             if (i.le.21) param(i,25) = p25(i)
             if (i.le.21) param(i,26) = p26(i)
             if (i.le.21) param(i,27) = p27(i)
             if (i.le.21) param(i,28) = p28(i)
             if (i.le.21) 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.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.21) param(i,46) = p46(i)
             if (i.le.21) param(i,47) = p47(i)
             if (i.le.21) param(i,48) = p48(i)
             if (i.le.21) param(i,49) = p49(i)
             if (i.le.21) param(i,50) = p50(i)
             if (i.le.21) param(i,51) = p51(i)
             if (i.le.21) param(i,52) = p52(i)
             if (i.le.21) param(i,53) = p53(i)
             if (i.le.21) param(i,54) = p54(i)
             if (i.le.21) param(i,55) = p55(i)
             if (i.le.20) param(i,56) = p56(i)
             if (i.le.20) param(i,57) = p57(i)
             if (i.le.20) param(i,58) = p58(i)
             if (i.le.20) param(i,59) = p59(i)
             if (i.le.20) param(i,60) = p60(i)
             if (i.le.20) param(i,61) = p61(i)
             if (i.le.20) param(i,62) = p62(i)
             if (i.le.20) param(i,63) = p63(i)
             if (i.le.20) param(i,64) = p64(i)
             if (i.le.20) param(i,65) = p65(i)
             if (i.le.20) param(i,66) = p66(i)
             if (i.le.20) param(i,67) = p67(i)
             if (i.le.20) param(i,68) = p68(i)
             if (i.le.19) param(i,69) = p69(i)
             if (i.le.19) param(i,70) = p70(i)
             if (i.le.19) param(i,71) = p71(i)
             if (i.le.19) param(i,72) = p72(i)
             if (i.le.19) param(i,73) = p73(i)
             if (i.le.19) param(i,74) = p74(i)
             if (i.le.19) param(i,75) = p75(i)
             if (i.le.19) param(i,76) = p76(i)
             if (i.le.19) param(i,77) = p77(i)
             if (i.le.19) param(i,78) = p78(i)
             if (i.le.19) param(i,79) = p79(i)
             if (i.le.19) param(i,80) = p80(i)
             if (i.le.19) param(i,81) = p81(i)
             if (i.le.19) param(i,82) = p82(i)
             if (i.le.19) param(i,83) = p83(i)
             if (i.le.19) param(i,84) = p84(i)
             if (i.le.19) param(i,85) = p85(i)
             if (i.le.19) param(i,86) = p86(i)
             if (i.le.19) param(i,87) = p87(i)
             if (i.le.19) param(i,88) = p88(i)
             if (i.le.19) param(i,89) = p89(i)
             if (i.le.19) param(i,90) = p90(i)
             if (i.le.19) param(i,91) = p91(i)
             if (i.le.19) param(i,92) = p92(i)
             if (i.le.19) param(i,93) = p93(i)
             if (i.le.19) param(i,94) = p94(i)
             if (i.le.19) param(i,95) = p95(i)
             if (i.le.19) param(i,96) = p96(i)
             if (i.le.19) param(i,97) = p97(i)
             if (i.le.19) param(i,98) = p98(i)
          enddo
       endif
            
       dvalhiq2ms=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
       dvalhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dvalhiq2ms=0.0
       if (q2.lt.q2min) dvalhiq2ms=0.0
       if ( x.gt. xmax) dvalhiq2ms=0.0
       if ( x.lt. xmin) dvalhiq2ms=0.0
       return
       end
       real function  ubarhiq2ms(xin,q2in)
***********************************************************
c  parametrization of ubarhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:19)
       data p15/
     & 0.27545E+00,-0.33072E+00, 0.52249E-01,-0.10917E-01, 0.97665E-02,
     & 0.51906E-02, 0.85508E-03,-0.13320E-02,-0.11538E-02,-0.14637E-03,
     & 0.50124E-03, 0.53797E-03, 0.25039E-03,-0.63710E-04,-0.20912E-03,
     &-0.21044E-03,-0.12891E-03,-0.37897E-04, 0.14032E-04, 0.45101E-04
     & /
       real p16(0:19)
       data p16/
     & 0.30892E+00,-0.37285E+00, 0.60270E-01,-0.11479E-01, 0.10813E-01,
     & 0.55912E-02, 0.82619E-03,-0.15029E-02,-0.12576E-02,-0.14740E-03,
     & 0.54610E-03, 0.57450E-03, 0.26095E-03,-0.74516E-04,-0.22517E-03,
     &-0.22283E-03,-0.13408E-03,-0.37159E-04, 0.16588E-04, 0.48944E-04
     & /
       real p17(0:19)
       data p17/
     & 0.34609E+00,-0.42010E+00, 0.69757E-01,-0.12138E-01, 0.11930E-01,
     & 0.59961E-02, 0.78065E-03,-0.16873E-02,-0.13648E-02,-0.14596E-03,
     & 0.59352E-03, 0.61153E-03, 0.27079E-03,-0.86358E-04,-0.24163E-03,
     &-0.23514E-03,-0.13889E-03,-0.36018E-04, 0.19293E-04, 0.52938E-04
     & /
       real p18(0:19)
       data p18/
     & 0.38563E+00,-0.47083E+00, 0.80482E-01,-0.12905E-01, 0.13073E-01,
     & 0.63862E-02, 0.71995E-03,-0.18771E-02,-0.14705E-02,-0.14193E-03,
     & 0.64152E-03, 0.64747E-03, 0.27950E-03,-0.98726E-04,-0.25779E-03,
     &-0.24686E-03,-0.14316E-03,-0.34533E-04, 0.22010E-04, 0.56914E-04
     & /
       real p19(0:19)
       data p19/
     & 0.42762E+00,-0.52521E+00, 0.92540E-01,-0.13811E-01, 0.14242E-01,
     & 0.67609E-02, 0.64467E-03,-0.20718E-02,-0.15745E-02,-0.13535E-03,
     & 0.69003E-03, 0.68231E-03, 0.28715E-03,-0.11157E-03,-0.27364E-03,
     &-0.25800E-03,-0.14691E-03,-0.32733E-04, 0.24718E-04, 0.60872E-04
     & /
       real p20(0:19)
       data p20/
     & 0.47213E+00,-0.58336E+00, 0.10603E+00,-0.14888E-01, 0.15439E-01,
     & 0.71193E-02, 0.55541E-03,-0.22706E-02,-0.16766E-02,-0.12623E-03,
     & 0.73900E-03, 0.71609E-03, 0.29379E-03,-0.12487E-03,-0.28916E-03,
     &-0.26861E-03,-0.15020E-03,-0.30644E-04, 0.27398E-04, 0.64813E-04
     & /
       real p21(0:19)
       data p21/
     & 0.51925E+00,-0.64542E+00, 0.12103E+00,-0.16170E-01, 0.16666E-01,
     & 0.74608E-02, 0.45278E-03,-0.24731E-02,-0.17765E-02,-0.11461E-03,
     & 0.78838E-03, 0.74880E-03, 0.29950E-03,-0.13856E-03,-0.30435E-03,
     &-0.27870E-03,-0.15305E-03,-0.28290E-04, 0.30031E-04, 0.68739E-04
     & /
       real p22(0:19)
       data p22/
     & 0.56902E+00,-0.71152E+00, 0.13763E+00,-0.17690E-01, 0.17925E-01,
     & 0.77848E-02, 0.33738E-03,-0.26788E-02,-0.18743E-02,-0.10055E-03,
     & 0.83813E-03, 0.78046E-03, 0.30433E-03,-0.15264E-03,-0.31921E-03,
     &-0.28830E-03,-0.15549E-03,-0.25689E-04, 0.32602E-04, 0.72653E-04
     & /
       real p23(0:19)
       data p23/
     & 0.62152E+00,-0.78176E+00, 0.15592E+00,-0.19478E-01, 0.19219E-01,
     & 0.80909E-02, 0.20983E-03,-0.28871E-02,-0.19697E-02,-0.84104E-04,
     & 0.88819E-03, 0.81108E-03, 0.30833E-03,-0.16705E-03,-0.33373E-03,
     &-0.29743E-03,-0.15755E-03,-0.22862E-04, 0.35098E-04, 0.76557E-04
     & /
       real p24(0:19)
       data p24/
     & 0.67682E+00,-0.85627E+00, 0.17598E+00,-0.21568E-01, 0.20551E-01,
     & 0.83784E-02, 0.70724E-04,-0.30976E-02,-0.20626E-02,-0.65329E-04,
     & 0.93851E-03, 0.84068E-03, 0.31155E-03,-0.18179E-03,-0.34790E-03,
     &-0.30613E-03,-0.15926E-03,-0.19822E-04, 0.37505E-04, 0.80454E-04
     & /
       real p25(0:19)
       data p25/
     & 0.73495E+00,-0.93515E+00, 0.19788E+00,-0.23991E-01, 0.21925E-01,
     & 0.86470E-02,-0.79344E-04,-0.33100E-02,-0.21531E-02,-0.44292E-04,
     & 0.98905E-03, 0.86927E-03, 0.31404E-03,-0.19682E-03,-0.36173E-03,
     &-0.31440E-03,-0.16065E-03,-0.16585E-04, 0.39813E-04, 0.84348E-04
     & /
       real p26(0:19)
       data p26/
     & 0.79599E+00,-0.10185E+01, 0.22170E+00,-0.26778E-01, 0.23344E-01,
     & 0.88961E-02,-0.23980E-03,-0.35239E-02,-0.22410E-02,-0.21058E-04,
     & 0.10398E-02, 0.89686E-03, 0.31584E-03,-0.21213E-03,-0.37522E-03,
     &-0.32227E-03,-0.16174E-03,-0.13163E-04, 0.42010E-04, 0.88243E-04
     & /
       real p27(0:18)
       data p27/
     & 0.85997E+00,-0.11064E+01, 0.24752E+00,-0.29960E-01, 0.24814E-01,
     & 0.91254E-02,-0.41006E-03,-0.37389E-02,-0.23263E-02, 0.43042E-05,
     & 0.10906E-02, 0.92345E-03, 0.31700E-03,-0.22769E-03,-0.38835E-03,
     &-0.32975E-03,-0.16255E-03,-0.95673E-05, 0.44089E-04
     & /
       real p28(0:18)
       data p28/
     & 0.92695E+00,-0.11990E+01, 0.27539E+00,-0.33568E-01, 0.26338E-01,
     & 0.93343E-02,-0.58959E-03,-0.39547E-02,-0.24089E-02, 0.31727E-04,
     & 0.11416E-02, 0.94907E-03, 0.31756E-03,-0.24349E-03,-0.40114E-03,
     &-0.33688E-03,-0.16309E-03,-0.58077E-05, 0.46039E-04
     & /
       real p29(0:18)
       data p29/
     & 0.99698E+00,-0.12963E+01, 0.30539E+00,-0.37633E-01, 0.27922E-01,
     & 0.95225E-02,-0.77784E-03,-0.41711E-02,-0.24890E-02, 0.61141E-04,
     & 0.11926E-02, 0.97373E-03, 0.31756E-03,-0.25951E-03,-0.41358E-03,
     &-0.34365E-03,-0.16339E-03,-0.18930E-05, 0.47853E-04
     & /
       real p30(0:18)
       data p30/
     & 0.10701E+01,-0.13985E+01, 0.33758E+00,-0.42183E-01, 0.29570E-01,
     & 0.96894E-02,-0.97428E-03,-0.43878E-02,-0.25663E-02, 0.92480E-04,
     & 0.12436E-02, 0.99743E-03, 0.31702E-03,-0.27574E-03,-0.42566E-03,
     &-0.35009E-03,-0.16347E-03, 0.21690E-05, 0.49524E-04
     & /
       real p31(0:18)
       data p31/
     & 0.11016E+01,-0.14427E+01, 0.35190E+00,-0.44296E-01, 0.30266E-01,
     & 0.97459E-02,-0.10565E-02,-0.44752E-02,-0.25968E-02, 0.10552E-03,
     & 0.12640E-02, 0.10067E-02, 0.31686E-03,-0.28219E-03,-0.43031E-03,
     &-0.35259E-03,-0.16349E-03, 0.38130E-05, 0.50082E-04
     & /
       real p32(0:18)
       data p32/
     & 0.11483E+01,-0.15084E+01, 0.37309E+00,-0.47438E-01, 0.31318E-01,
     & 0.98324E-02,-0.11806E-02,-0.46067E-02,-0.26421E-02, 0.12569E-03,
     & 0.12950E-02, 0.10206E-02, 0.31631E-03,-0.29214E-03,-0.43742E-03,
     &-0.35634E-03,-0.16344E-03, 0.63472E-05, 0.50977E-04
     & /
       real p33(0:18)
       data p33/
     & 0.12278E+01,-0.16205E+01, 0.40987E+00,-0.53050E-01, 0.33110E-01,
     & 0.99569E-02,-0.13907E-02,-0.48233E-02,-0.27147E-02, 0.16039E-03,
     & 0.13460E-02, 0.10426E-02, 0.31503E-03,-0.30867E-03,-0.44886E-03,
     &-0.36226E-03,-0.16320E-03, 0.10636E-04, 0.52330E-04
     & /
       real p34(0:18)
       data p34/
     & 0.13104E+01,-0.17377E+01, 0.44900E+00,-0.59229E-01, 0.34982E-01,
     & 0.10059E-01,-0.16079E-02,-0.50396E-02,-0.27846E-02, 0.19684E-03,
     & 0.13969E-02, 0.10637E-02, 0.31329E-03,-0.32538E-03,-0.45994E-03,
     &-0.36788E-03,-0.16276E-03, 0.15060E-04, 0.53526E-04
     & /
       real p35(0:18)
       data p35/
     & 0.13963E+01,-0.18600E+01, 0.49056E+00,-0.66003E-01, 0.36939E-01,
     & 0.10137E-01,-0.18314E-02,-0.52555E-02,-0.28520E-02, 0.23501E-03,
     & 0.14478E-02, 0.10839E-02, 0.31112E-03,-0.34227E-03,-0.47067E-03,
     &-0.37322E-03,-0.16214E-03, 0.19616E-04, 0.54557E-04
     & /
       real p36(0:18)
       data p36/
     & 0.14855E+01,-0.19875E+01, 0.53460E+00,-0.73402E-01, 0.38988E-01,
     & 0.10191E-01,-0.20610E-02,-0.54708E-02,-0.29167E-02, 0.27482E-03,
     & 0.14985E-02, 0.11032E-02, 0.30856E-03,-0.35932E-03,-0.48104E-03,
     &-0.37828E-03,-0.16136E-03, 0.24299E-04, 0.55420E-04
     & /
       real p37(0:18)
       data p37/
     & 0.15780E+01,-0.21203E+01, 0.58117E+00,-0.81452E-01, 0.41134E-01,
     & 0.10221E-01,-0.22961E-02,-0.56854E-02,-0.29788E-02, 0.31622E-03,
     & 0.15491E-02, 0.11215E-02, 0.30562E-03,-0.37653E-03,-0.49107E-03,
     &-0.38308E-03,-0.16042E-03, 0.29104E-04, 0.56109E-04
     & /
       real p38(0:18)
       data p38/
     & 0.16738E+01,-0.22584E+01, 0.63033E+00,-0.90182E-01, 0.43383E-01,
     & 0.10225E-01,-0.25363E-02,-0.58991E-02,-0.30384E-02, 0.35915E-03,
     & 0.15995E-02, 0.11390E-02, 0.30235E-03,-0.39389E-03,-0.50075E-03,
     &-0.38763E-03,-0.15933E-03, 0.34029E-04, 0.56619E-04
     & /
       real p39(0:18)
       data p39/
     & 0.17730E+01,-0.24018E+01, 0.68213E+00,-0.99618E-01, 0.45743E-01,
     & 0.10204E-01,-0.27813E-02,-0.61117E-02,-0.30955E-02, 0.40355E-03,
     & 0.16498E-02, 0.11556E-02, 0.29876E-03,-0.41139E-03,-0.51008E-03,
     &-0.39195E-03,-0.15811E-03, 0.39070E-04, 0.56947E-04
     & /
       real p40(0:18)
       data p40/
     & 0.18756E+01,-0.25508E+01, 0.73662E+00,-0.10979E+00, 0.48218E-01,
     & 0.10156E-01,-0.30305E-02,-0.63232E-02,-0.31501E-02, 0.44938E-03,
     & 0.16998E-02, 0.11712E-02, 0.29488E-03,-0.42903E-03,-0.51906E-03,
     &-0.39604E-03,-0.15677E-03, 0.44225E-04, 0.57089E-04
     & /
       real p41(0:18)
       data p41/
     & 0.19817E+01,-0.27052E+01, 0.79386E+00,-0.12071E+00, 0.50815E-01,
     & 0.10081E-01,-0.32836E-02,-0.65335E-02,-0.32022E-02, 0.49657E-03,
     & 0.17496E-02, 0.11861E-02, 0.29073E-03,-0.44679E-03,-0.52769E-03,
     &-0.39991E-03,-0.15531E-03, 0.49491E-04, 0.57040E-04
     & /
       real p42(0:17)
       data p42/
     & 0.20911E+01,-0.28652E+01, 0.85387E+00,-0.13242E+00, 0.53541E-01,
     & 0.99777E-02,-0.35402E-02,-0.67425E-02,-0.32520E-02, 0.54507E-03,
     & 0.17992E-02, 0.12000E-02, 0.28633E-03,-0.46468E-03,-0.53597E-03,
     &-0.40357E-03,-0.15375E-03, 0.54866E-04
     & /
       real p43(0:17)
       data p43/
     & 0.22041E+01,-0.30308E+01, 0.91672E+00,-0.14494E+00, 0.56402E-01,
     & 0.98457E-02,-0.37999E-02,-0.69501E-02,-0.32993E-02, 0.59484E-03,
     & 0.18485E-02, 0.12132E-02, 0.28171E-03,-0.48269E-03,-0.54391E-03,
     &-0.40704E-03,-0.15209E-03, 0.60349E-04
     & /
       real p44(0:17)
       data p44/
     & 0.23206E+01,-0.32020E+01, 0.98245E+00,-0.15830E+00, 0.59405E-01,
     & 0.96841E-02,-0.40623E-02,-0.71561E-02,-0.33444E-02, 0.64583E-03,
     & 0.18975E-02, 0.12255E-02, 0.27689E-03,-0.50082E-03,-0.55151E-03,
     &-0.41031E-03,-0.15034E-03, 0.65938E-04
     & /
       real p45(0:17)
       data p45/
     & 0.24406E+01,-0.33790E+01, 0.10511E+01,-0.17251E+00, 0.62556E-01,
     & 0.94921E-02,-0.43270E-02,-0.73607E-02,-0.33872E-02, 0.69800E-03,
     & 0.19462E-02, 0.12369E-02, 0.27189E-03,-0.51906E-03,-0.55876E-03,
     &-0.41341E-03,-0.14850E-03, 0.71632E-04
     & /
       real p46(0:13)
       data p46/
     & 0.25641E+01,-0.35617E+01, 0.11227E+01,-0.18761E+00, 0.65815E-01,
     & 0.93293E-02,-0.46287E-02,-0.75802E-02,-0.34159E-02, 0.68911E-03,
     & 0.20811E-02, 0.11993E-02, 0.34821E-03,-0.37029E-03
     & /
       real p47(0:13)
       data p47/
     & 0.26913E+01,-0.37503E+01, 0.11974E+01,-0.20361E+00, 0.69279E-01,
     & 0.90779E-02,-0.48991E-02,-0.77818E-02,-0.34527E-02, 0.73955E-03,
     & 0.21340E-02, 0.12039E-02, 0.34377E-03,-0.38412E-03
     & /
       real p48(0:13)
       data p48/
     & 0.28220E+01,-0.39447E+01, 0.12750E+01,-0.22054E+00, 0.72911E-01,
     & 0.87937E-02,-0.51708E-02,-0.79818E-02,-0.34873E-02, 0.79088E-03,
     & 0.21869E-02, 0.12076E-02, 0.33921E-03,-0.39799E-03
     & /
       real p49(0:13)
       data p49/
     & 0.29564E+01,-0.41450E+01, 0.13558E+01,-0.23842E+00, 0.76718E-01,
     & 0.84757E-02,-0.54435E-02,-0.81800E-02,-0.35197E-02, 0.84304E-03,
     & 0.22397E-02, 0.12102E-02, 0.33453E-03,-0.41189E-03
     & /
       real p50(0:13)
       data p50/
     & 0.30943E+01,-0.43512E+01, 0.14396E+01,-0.25728E+00, 0.80706E-01,
     & 0.81231E-02,-0.57169E-02,-0.83764E-02,-0.35500E-02, 0.89600E-03,
     & 0.22924E-02, 0.12119E-02, 0.32977E-03,-0.42582E-03
     & /
       real p51(0:13)
       data p51/
     & 0.32360E+01,-0.45634E+01, 0.15266E+01,-0.27713E+00, 0.84882E-01,
     & 0.77349E-02,-0.59906E-02,-0.85710E-02,-0.35781E-02, 0.94972E-03,
     & 0.23450E-02, 0.12126E-02, 0.32493E-03,-0.43977E-03
     & /
       real p52(0:13)
       data p52/
     & 0.33813E+01,-0.47815E+01, 0.16168E+01,-0.29800E+00, 0.89253E-01,
     & 0.73102E-02,-0.62644E-02,-0.87639E-02,-0.36042E-02, 0.10042E-02,
     & 0.23974E-02, 0.12124E-02, 0.32005E-03,-0.45375E-03
     & /
       real p53(0:13)
       data p53/
     & 0.35303E+01,-0.50058E+01, 0.17103E+01,-0.31991E+00, 0.93825E-01,
     & 0.68479E-02,-0.65379E-02,-0.89548E-02,-0.36282E-02, 0.10593E-02,
     & 0.24497E-02, 0.12112E-02, 0.31512E-03,-0.46774E-03
     & /
       real p54(0:13)
       data p54/
     & 0.36830E+01,-0.52361E+01, 0.18069E+01,-0.34288E+00, 0.98605E-01,
     & 0.63470E-02,-0.68107E-02,-0.91440E-02,-0.36502E-02, 0.11150E-02,
     & 0.25019E-02, 0.12090E-02, 0.31017E-03,-0.48174E-03
     & /
       real p55(0:13)
       data p55/
     & 0.38394E+01,-0.54725E+01, 0.19069E+01,-0.36692E+00, 0.10360E+00,
     & 0.58065E-02,-0.70827E-02,-0.93313E-02,-0.36704E-02, 0.11714E-02,
     & 0.25540E-02, 0.12059E-02, 0.30522E-03,-0.49576E-03
     & /
       real p56(0:13)
       data p56/
     & 0.39996E+01,-0.57150E+01, 0.20102E+01,-0.39206E+00, 0.10881E+00,
     & 0.52255E-02,-0.73534E-02,-0.95167E-02,-0.36886E-02, 0.12284E-02,
     & 0.26060E-02, 0.12019E-02, 0.30029E-03,-0.50979E-03
     & /
       real p57(0:13)
       data p57/
     & 0.41635E+01,-0.59637E+01, 0.21168E+01,-0.41833E+00, 0.11426E+00,
     & 0.46027E-02,-0.76225E-02,-0.97002E-02,-0.37049E-02, 0.12859E-02,
     & 0.26579E-02, 0.11970E-02, 0.29537E-03,-0.52383E-03
     & /
       real p58(0:13)
       data p58/
     & 0.43312E+01,-0.62186E+01, 0.22268E+01,-0.44572E+00, 0.11993E+00,
     & 0.39372E-02,-0.78898E-02,-0.98819E-02,-0.37194E-02, 0.13439E-02,
     & 0.27096E-02, 0.11911E-02, 0.29050E-03,-0.53787E-03
     & /
       real p59(0:13)
       data p59/
     & 0.45026E+01,-0.64797E+01, 0.23402E+01,-0.47428E+00, 0.12585E+00,
     & 0.32278E-02,-0.81550E-02,-0.10062E-01,-0.37322E-02, 0.14024E-02,
     & 0.27612E-02, 0.11844E-02, 0.28568E-03,-0.55191E-03
     & /
       real p60(0:13)
       data p60/
     & 0.46778E+01,-0.67471E+01, 0.24571E+01,-0.50400E+00, 0.13201E+00,
     & 0.24735E-02,-0.84177E-02,-0.10240E-01,-0.37432E-02, 0.14613E-02,
     & 0.28127E-02, 0.11767E-02, 0.28093E-03,-0.56596E-03
     & /
       real p61(0:13)
       data p61/
     & 0.48568E+01,-0.70207E+01, 0.25774E+01,-0.53492E+00, 0.13843E+00,
     & 0.16732E-02,-0.86776E-02,-0.10416E-01,-0.37525E-02, 0.15207E-02,
     & 0.28640E-02, 0.11682E-02, 0.27625E-03,-0.58001E-03
     & /
       real p62(0:13)
       data p62/
     & 0.50396E+01,-0.73006E+01, 0.27011E+01,-0.56705E+00, 0.14511E+00,
     & 0.82560E-03,-0.89346E-02,-0.10590E-01,-0.37602E-02, 0.15805E-02,
     & 0.29153E-02, 0.11587E-02, 0.27167E-03,-0.59406E-03
     & /
       real p63(0:13)
       data p63/
     & 0.52262E+01,-0.75869E+01, 0.28284E+01,-0.60041E+00, 0.15205E+00,
     &-0.70265E-04,-0.91882E-02,-0.10763E-01,-0.37662E-02, 0.16406E-02,
     & 0.29664E-02, 0.11484E-02, 0.26720E-03,-0.60812E-03
     & /
       real p64(0:13)
       data p64/
     & 0.54166E+01,-0.78794E+01, 0.29592E+01,-0.63500E+00, 0.15926E+00,
     &-0.10156E-02,-0.94382E-02,-0.10934E-01,-0.37706E-02, 0.17011E-02,
     & 0.30174E-02, 0.11372E-02, 0.26284E-03,-0.62217E-03
     & /
       real p65(0:13)
       data p65/
     & 0.56108E+01,-0.81783E+01, 0.30936E+01,-0.67086E+00, 0.16675E+00,
     &-0.20116E-02,-0.96844E-02,-0.11103E-01,-0.37735E-02, 0.17619E-02,
     & 0.30683E-02, 0.11251E-02, 0.25860E-03,-0.63622E-03
     & /
       real p66(0:12)
       data p66/
     & 0.58089E+01,-0.84836E+01, 0.32315E+01,-0.70799E+00, 0.17453E+00,
     &-0.30593E-02,-0.99263E-02,-0.11270E-01,-0.37748E-02, 0.18230E-02,
     & 0.31191E-02, 0.11122E-02, 0.25451E-03
     & /
       real p67(0:12)
       data p67/
     & 0.60108E+01,-0.87953E+01, 0.33730E+01,-0.74642E+00, 0.18260E+00,
     &-0.41600E-02,-0.10164E-01,-0.11436E-01,-0.37747E-02, 0.18844E-02,
     & 0.31697E-02, 0.10984E-02, 0.25056E-03
     & /
       real p68(0:12)
       data p68/
     & 0.62166E+01,-0.91133E+01, 0.35182E+01,-0.78615E+00, 0.19096E+00,
     &-0.53149E-02,-0.10397E-01,-0.11599E-01,-0.37731E-02, 0.19460E-02,
     & 0.32203E-02, 0.10838E-02, 0.24677E-03
     & /
       real p69(0:12)
       data p69/
     & 0.64262E+01,-0.94378E+01, 0.36670E+01,-0.82720E+00, 0.19963E+00,
     &-0.65251E-02,-0.10624E-01,-0.11762E-01,-0.37701E-02, 0.20079E-02,
     & 0.32708E-02, 0.10684E-02, 0.24314E-03
     & /
       real p70(0:12)
       data p70/
     & 0.66396E+01,-0.97687E+01, 0.38194E+01,-0.86959E+00, 0.20861E+00,
     &-0.77919E-02,-0.10847E-01,-0.11922E-01,-0.37657E-02, 0.20700E-02,
     & 0.33211E-02, 0.10521E-02, 0.23970E-03
     & /
       real p71(0:12)
       data p71/
     & 0.68570E+01,-0.10106E+02, 0.39755E+01,-0.91333E+00, 0.21790E+00,
     &-0.91164E-02,-0.11064E-01,-0.12081E-01,-0.37599E-02, 0.21323E-02,
     & 0.33714E-02, 0.10349E-02, 0.23644E-03
     & /
       real p72(0:12)
       data p72/
     & 0.70782E+01,-0.10450E+02, 0.41353E+01,-0.95844E+00, 0.22751E+00,
     &-0.10500E-01,-0.11275E-01,-0.12239E-01,-0.37528E-02, 0.21947E-02,
     & 0.34215E-02, 0.10170E-02, 0.23338E-03
     & /
       real p73(0:12)
       data p73/
     & 0.73032E+01,-0.10800E+02, 0.42988E+01,-0.10049E+01, 0.23744E+00,
     &-0.11943E-01,-0.11480E-01,-0.12395E-01,-0.37445E-02, 0.22574E-02,
     & 0.34716E-02, 0.99823E-03, 0.23052E-03
     & /
       real p74(0:12)
       data p74/
     & 0.75322E+01,-0.11157E+02, 0.44661E+01,-0.10528E+01, 0.24771E+00,
     &-0.13448E-01,-0.11678E-01,-0.12549E-01,-0.37348E-02, 0.23201E-02,
     & 0.35216E-02, 0.97865E-03, 0.22787E-03
     & /
       real p75(0:12)
       data p75/
     & 0.77650E+01,-0.11520E+02, 0.46370E+01,-0.11021E+01, 0.25832E+00,
     &-0.15016E-01,-0.11870E-01,-0.12702E-01,-0.37239E-02, 0.23830E-02,
     & 0.35715E-02, 0.95826E-03, 0.22544E-03
     & /
       real p76(0:12)
       data p76/
     & 0.80017E+01,-0.11890E+02, 0.48118E+01,-0.11528E+01, 0.26927E+00,
     &-0.16647E-01,-0.12055E-01,-0.12853E-01,-0.37118E-02, 0.24460E-02,
     & 0.36213E-02, 0.93707E-03, 0.22324E-03
     & /
       real p77(0:12)
       data p77/
     & 0.82423E+01,-0.12267E+02, 0.49903E+01,-0.12049E+01, 0.28056E+00,
     &-0.18344E-01,-0.12233E-01,-0.13003E-01,-0.36985E-02, 0.25091E-02,
     & 0.36710E-02, 0.91509E-03, 0.22128E-03
     & /
       real p78(0:12)
       data p78/
     & 0.84868E+01,-0.12649E+02, 0.51726E+01,-0.12585E+01, 0.29221E+00,
     &-0.20106E-01,-0.12403E-01,-0.13152E-01,-0.36841E-02, 0.25723E-02,
     & 0.37207E-02, 0.89231E-03, 0.21956E-03
     & /
       real p79(0:12)
       data p79/
     & 0.87351E+01,-0.13039E+02, 0.53587E+01,-0.13135E+01, 0.30422E+00,
     &-0.21936E-01,-0.12566E-01,-0.13300E-01,-0.36685E-02, 0.26355E-02,
     & 0.37703E-02, 0.86875E-03, 0.21809E-03
     & /
       real p80(0:12)
       data p80/
     & 0.89874E+01,-0.13435E+02, 0.55486E+01,-0.13700E+01, 0.31660E+00,
     &-0.23835E-01,-0.12721E-01,-0.13446E-01,-0.36518E-02, 0.26988E-02,
     & 0.38198E-02, 0.84441E-03, 0.21687E-03
     & /
       real p81(0:12)
       data p81/
     & 0.92435E+01,-0.13837E+02, 0.57423E+01,-0.14280E+01, 0.32935E+00,
     &-0.25804E-01,-0.12867E-01,-0.13591E-01,-0.36340E-02, 0.27621E-02,
     & 0.38693E-02, 0.81929E-03, 0.21592E-03
     & /
       real p82(0:12)
       data p82/
     & 0.95036E+01,-0.14246E+02, 0.59399E+01,-0.14875E+01, 0.34247E+00,
     &-0.27844E-01,-0.13005E-01,-0.13734E-01,-0.36152E-02, 0.28255E-02,
     & 0.39187E-02, 0.79339E-03, 0.21523E-03
     & /
       real p83(0:12)
       data p83/
     & 0.97675E+01,-0.14662E+02, 0.61413E+01,-0.15485E+01, 0.35597E+00,
     &-0.29957E-01,-0.13134E-01,-0.13877E-01,-0.35953E-02, 0.28888E-02,
     & 0.39680E-02, 0.76673E-03, 0.21482E-03
     & /
       real p84(0:12)
       data p84/
     & 0.10035E+02,-0.15084E+02, 0.63466E+01,-0.16110E+01, 0.36986E+00,
     &-0.32143E-01,-0.13254E-01,-0.14018E-01,-0.35744E-02, 0.29522E-02,
     & 0.40174E-02, 0.73931E-03, 0.21469E-03
     & /
       real p85(0:12)
       data p85/
     & 0.10307E+02,-0.15513E+02, 0.65558E+01,-0.16750E+01, 0.38413E+00,
     &-0.34403E-01,-0.13365E-01,-0.14159E-01,-0.35525E-02, 0.30156E-02,
     & 0.40666E-02, 0.71112E-03, 0.21485E-03
     & /
       real p86(0:12)
       data p86/
     & 0.10583E+02,-0.15948E+02, 0.67689E+01,-0.17405E+01, 0.39881E+00,
     &-0.36740E-01,-0.13466E-01,-0.14298E-01,-0.35296E-02, 0.30789E-02,
     & 0.41158E-02, 0.68219E-03, 0.21530E-03
     & /
       real p87(0:12)
       data p87/
     & 0.10862E+02,-0.16390E+02, 0.69858E+01,-0.18076E+01, 0.41388E+00,
     &-0.39155E-01,-0.13557E-01,-0.14436E-01,-0.35058E-02, 0.31422E-02,
     & 0.41650E-02, 0.65250E-03, 0.21605E-03
     & /
       real p88(0:12)
       data p88/
     & 0.11146E+02,-0.16838E+02, 0.72067E+01,-0.18763E+01, 0.42936E+00,
     &-0.41648E-01,-0.13638E-01,-0.14574E-01,-0.34810E-02, 0.32054E-02,
     & 0.42142E-02, 0.62206E-03, 0.21710E-03
     & /
       real p89(0:12)
       data p89/
     & 0.11433E+02,-0.17294E+02, 0.74314E+01,-0.19465E+01, 0.44525E+00,
     &-0.44220E-01,-0.13709E-01,-0.14710E-01,-0.34553E-02, 0.32687E-02,
     & 0.42633E-02, 0.59089E-03, 0.21846E-03
     & /
       real p90(0:12)
       data p90/
     & 0.11724E+02,-0.17755E+02, 0.76601E+01,-0.20183E+01, 0.46155E+00,
     &-0.46874E-01,-0.13770E-01,-0.14846E-01,-0.34287E-02, 0.33318E-02,
     & 0.43124E-02, 0.55897E-03, 0.22014E-03
     & /
       real p91(0:12)
       data p91/
     & 0.12019E+02,-0.18223E+02, 0.78928E+01,-0.20916E+01, 0.47828E+00,
     &-0.49610E-01,-0.13819E-01,-0.14981E-01,-0.34013E-02, 0.33949E-02,
     & 0.43615E-02, 0.52632E-03, 0.22213E-03
     & /
       real p92(0:12)
       data p92/
     & 0.12318E+02,-0.18698E+02, 0.81293E+01,-0.21666E+01, 0.49543E+00,
     &-0.52429E-01,-0.13857E-01,-0.15115E-01,-0.33730E-02, 0.34579E-02,
     & 0.44105E-02, 0.49294E-03, 0.22444E-03
     & /
       real p93(0:12)
       data p93/
     & 0.12621E+02,-0.19180E+02, 0.83699E+01,-0.22432E+01, 0.51301E+00,
     &-0.55333E-01,-0.13884E-01,-0.15248E-01,-0.33438E-02, 0.35208E-02,
     & 0.44596E-02, 0.45882E-03, 0.22708E-03
     & /
       real p94(0:12)
       data p94/
     & 0.12928E+02,-0.19668E+02, 0.86146E+01,-0.23214E+01, 0.53104E+00,
     &-0.58326E-01,-0.13899E-01,-0.15381E-01,-0.33137E-02, 0.35836E-02,
     & 0.45086E-02, 0.42394E-03, 0.23005E-03
     & /
       real p95(0:12)
       data p95/
     & 0.13239E+02,-0.20163E+02, 0.88634E+01,-0.24014E+01, 0.54952E+00,
     &-0.61409E-01,-0.13902E-01,-0.15513E-01,-0.32827E-02, 0.36464E-02,
     & 0.45576E-02, 0.38830E-03, 0.23337E-03
     & /
       real p96(0:12)
       data p96/
     & 0.13554E+02,-0.20666E+02, 0.91163E+01,-0.24830E+01, 0.56845E+00,
     &-0.64582E-01,-0.13892E-01,-0.15645E-01,-0.32510E-02, 0.37090E-02,
     & 0.46067E-02, 0.35191E-03, 0.23703E-03
     & /
       real p97(0:12)
       data p97/
     & 0.13873E+02,-0.21175E+02, 0.93733E+01,-0.25662E+01, 0.58785E+00,
     &-0.67848E-01,-0.13870E-01,-0.15776E-01,-0.32183E-02, 0.37716E-02,
     & 0.46557E-02, 0.31477E-03, 0.24103E-03
     & /
       real p98(0:12)
       data p98/
     & 0.14196E+02,-0.21690E+02, 0.96345E+01,-0.26513E+01, 0.60772E+00,
     &-0.71207E-01,-0.13834E-01,-0.15906E-01,-0.31849E-02, 0.38340E-02,
     & 0.47048E-02, 0.27689E-03, 0.24539E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  18,  18,  18,  18,  18
     &,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18
     &,  17,  17,  17,  17,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.19) param(i,15) = p15(i)
             if (i.le.19) param(i,16) = p16(i)
             if (i.le.19) param(i,17) = p17(i)
             if (i.le.19) param(i,18) = p18(i)
             if (i.le.19) param(i,19) = p19(i)
             if (i.le.19) param(i,20) = p20(i)
             if (i.le.19) param(i,21) = p21(i)
             if (i.le.19) param(i,22) = p22(i)
             if (i.le.19) param(i,23) = p23(i)
             if (i.le.19) param(i,24) = p24(i)
             if (i.le.19) param(i,25) = p25(i)
             if (i.le.19) param(i,26) = p26(i)
             if (i.le.18) param(i,27) = p27(i)
             if (i.le.18) param(i,28) = p28(i)
             if (i.le.18) param(i,29) = p29(i)
             if (i.le.18) param(i,30) = p30(i)
             if (i.le.18) param(i,31) = p31(i)
             if (i.le.18) param(i,32) = p32(i)
             if (i.le.18) param(i,33) = p33(i)
             if (i.le.18) param(i,34) = p34(i)
             if (i.le.18) param(i,35) = p35(i)
             if (i.le.18) param(i,36) = p36(i)
             if (i.le.18) param(i,37) = p37(i)
             if (i.le.18) param(i,38) = p38(i)
             if (i.le.18) param(i,39) = p39(i)
             if (i.le.18) param(i,40) = p40(i)
             if (i.le.18) param(i,41) = p41(i)
             if (i.le.17) param(i,42) = p42(i)
             if (i.le.17) param(i,43) = p43(i)
             if (i.le.17) param(i,44) = p44(i)
             if (i.le.17) param(i,45) = p45(i)
             if (i.le.13) param(i,46) = p46(i)
             if (i.le.13) param(i,47) = p47(i)
             if (i.le.13) param(i,48) = p48(i)
             if (i.le.13) param(i,49) = p49(i)
             if (i.le.13) param(i,50) = p50(i)
             if (i.le.13) param(i,51) = p51(i)
             if (i.le.13) param(i,52) = p52(i)
             if (i.le.13) param(i,53) = p53(i)
             if (i.le.13) param(i,54) = p54(i)
             if (i.le.13) param(i,55) = p55(i)
             if (i.le.13) param(i,56) = p56(i)
             if (i.le.13) param(i,57) = p57(i)
             if (i.le.13) param(i,58) = p58(i)
             if (i.le.13) param(i,59) = p59(i)
             if (i.le.13) param(i,60) = p60(i)
             if (i.le.13) param(i,61) = p61(i)
             if (i.le.13) param(i,62) = p62(i)
             if (i.le.13) param(i,63) = p63(i)
             if (i.le.13) param(i,64) = p64(i)
             if (i.le.13) param(i,65) = p65(i)
             if (i.le.12) param(i,66) = p66(i)
             if (i.le.12) param(i,67) = p67(i)
             if (i.le.12) param(i,68) = p68(i)
             if (i.le.12) param(i,69) = p69(i)
             if (i.le.12) param(i,70) = p70(i)
             if (i.le.12) param(i,71) = p71(i)
             if (i.le.12) param(i,72) = p72(i)
             if (i.le.12) param(i,73) = p73(i)
             if (i.le.12) param(i,74) = p74(i)
             if (i.le.12) param(i,75) = p75(i)
             if (i.le.12) param(i,76) = p76(i)
             if (i.le.12) param(i,77) = p77(i)
             if (i.le.12) param(i,78) = p78(i)
             if (i.le.12) param(i,79) = p79(i)
             if (i.le.12) param(i,80) = p80(i)
             if (i.le.12) param(i,81) = p81(i)
             if (i.le.12) param(i,82) = p82(i)
             if (i.le.12) param(i,83) = p83(i)
             if (i.le.12) param(i,84) = p84(i)
             if (i.le.12) param(i,85) = p85(i)
             if (i.le.12) param(i,86) = p86(i)
             if (i.le.12) param(i,87) = p87(i)
             if (i.le.12) param(i,88) = p88(i)
             if (i.le.12) param(i,89) = p89(i)
             if (i.le.12) param(i,90) = p90(i)
             if (i.le.12) param(i,91) = p91(i)
             if (i.le.12) param(i,92) = p92(i)
             if (i.le.12) param(i,93) = p93(i)
             if (i.le.12) param(i,94) = p94(i)
             if (i.le.12) param(i,95) = p95(i)
             if (i.le.12) param(i,96) = p96(i)
             if (i.le.12) param(i,97) = p97(i)
             if (i.le.12) param(i,98) = p98(i)
          enddo
       endif
            
       ubarhiq2ms=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
       ubarhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) ubarhiq2ms=0.0
       if (q2.lt.q2min) ubarhiq2ms=0.0
       if ( x.gt. xmax) ubarhiq2ms=0.0
       if ( x.lt. xmin) ubarhiq2ms=0.0
       return
       end
       real function  dbarhiq2ms(xin,q2in)
***********************************************************
c  parametrization of dbarhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:19)
       data p15/
     & 0.28002E+00,-0.32596E+00, 0.48619E-01,-0.18648E-01, 0.49035E-02,
     & 0.60896E-02, 0.52676E-02, 0.26848E-02, 0.24757E-03,-0.11448E-02,
     &-0.14285E-02,-0.10039E-02,-0.37435E-03, 0.78711E-04, 0.28014E-03,
     & 0.26613E-03, 0.16331E-03, 0.59326E-04,-0.15734E-04,-0.34456E-04
     & /
       real p16(0:19)
       data p16/
     & 0.31385E+00,-0.36774E+00, 0.56306E-01,-0.19804E-01, 0.56520E-02,
     & 0.66365E-02, 0.55857E-02, 0.27636E-02, 0.17929E-03,-0.12601E-02,
     &-0.15241E-02,-0.10518E-02,-0.37737E-03, 0.98103E-04, 0.30396E-03,
     & 0.28216E-03, 0.16981E-03, 0.59281E-04,-0.19552E-04,-0.37366E-04
     & /
       real p17(0:19)
       data p17/
     & 0.35140E+00,-0.41463E+00, 0.65440E-01,-0.21078E-01, 0.64709E-02,
     & 0.72017E-02, 0.58993E-02, 0.28299E-02, 0.10059E-03,-0.13804E-02,
     &-0.16201E-02,-0.10977E-02,-0.37782E-03, 0.11919E-03, 0.32851E-03,
     & 0.29805E-03, 0.17580E-03, 0.58797E-04,-0.23741E-04,-0.40301E-04
     & /
       real p18(0:19)
       data p18/
     & 0.39132E+00,-0.46502E+00, 0.75808E-01,-0.22453E-01, 0.73274E-02,
     & 0.77594E-02, 0.61943E-02, 0.28811E-02, 0.15216E-04,-0.15001E-02,
     &-0.17124E-02,-0.11399E-02,-0.37576E-03, 0.14098E-03, 0.35270E-03,
     & 0.31310E-03, 0.18105E-03, 0.57917E-04,-0.28116E-04,-0.43119E-04
     & /
       real p19(0:19)
       data p19/
     & 0.43368E+00,-0.51905E+00, 0.87506E-01,-0.23962E-01, 0.82217E-02,
     & 0.83082E-02, 0.64714E-02, 0.29182E-02,-0.75994E-04,-0.16191E-02,
     &-0.18010E-02,-0.11785E-02,-0.37142E-03, 0.16334E-03, 0.37650E-03,
     & 0.32734E-03, 0.18561E-03, 0.56689E-04,-0.32658E-04,-0.45811E-04
     & /
       real p20(0:19)
       data p20/
     & 0.47857E+00,-0.57686E+00, 0.10063E+00,-0.25638E-01, 0.91545E-02,
     & 0.88469E-02, 0.67312E-02, 0.29424E-02,-0.17231E-03,-0.17371E-02,
     &-0.18861E-02,-0.12137E-02,-0.36501E-03, 0.18616E-03, 0.39990E-03,
     & 0.34080E-03, 0.18952E-03, 0.55153E-04,-0.37351E-04,-0.48368E-04
     & /
       real p21(0:19)
       data p21/
     & 0.52605E+00,-0.63859E+00, 0.11526E+00,-0.27513E-01, 0.10127E-01,
     & 0.93745E-02, 0.69743E-02, 0.29546E-02,-0.27309E-03,-0.18538E-02,
     &-0.19679E-02,-0.12459E-02,-0.35669E-03, 0.20933E-03, 0.42289E-03,
     & 0.35352E-03, 0.19284E-03, 0.53349E-04,-0.42182E-04,-0.50783E-04
     & /
       real p22(0:19)
       data p22/
     & 0.57620E+00,-0.70435E+00, 0.13150E+00,-0.29620E-01, 0.11142E-01,
     & 0.98900E-02, 0.72014E-02, 0.29558E-02,-0.37775E-03,-0.19691E-02,
     &-0.20463E-02,-0.12751E-02,-0.34663E-03, 0.23276E-03, 0.44546E-03,
     & 0.36553E-03, 0.19559E-03, 0.51309E-04,-0.47139E-04,-0.53051E-04
     & /
       real p23(0:19)
       data p23/
     & 0.62907E+00,-0.77427E+00, 0.14941E+00,-0.31991E-01, 0.12201E-01,
     & 0.10392E-01, 0.74130E-02, 0.29466E-02,-0.48579E-03,-0.20829E-02,
     &-0.21215E-02,-0.13017E-02,-0.33498E-03, 0.25639E-03, 0.46760E-03,
     & 0.37684E-03, 0.19782E-03, 0.49066E-04,-0.52213E-04,-0.55166E-04
     & /
       real p24(0:19)
       data p24/
     & 0.68473E+00,-0.84846E+00, 0.16910E+00,-0.34659E-01, 0.13307E-01,
     & 0.10881E-01, 0.76098E-02, 0.29279E-02,-0.59675E-03,-0.21951E-02,
     &-0.21936E-02,-0.13257E-02,-0.32187E-03, 0.28012E-03, 0.48931E-03,
     & 0.38750E-03, 0.19956E-03, 0.46647E-04,-0.57397E-04,-0.57124E-04
     & /
       real p25(0:19)
       data p25/
     & 0.74323E+00,-0.92702E+00, 0.19062E+00,-0.37656E-01, 0.14464E-01,
     & 0.11355E-01, 0.77924E-02, 0.29004E-02,-0.71023E-03,-0.23055E-02,
     &-0.22628E-02,-0.13474E-02,-0.30742E-03, 0.30392E-03, 0.51061E-03,
     & 0.39753E-03, 0.20084E-03, 0.44079E-04,-0.62685E-04,-0.58922E-04
     & /
       real p26(0:19)
       data p26/
     & 0.80463E+00,-0.10101E+01, 0.21406E+00,-0.41012E-01, 0.15674E-01,
     & 0.11814E-01, 0.79614E-02, 0.28648E-02,-0.82586E-03,-0.24142E-02,
     &-0.23291E-02,-0.13669E-02,-0.29173E-03, 0.32772E-03, 0.53148E-03,
     & 0.40695E-03, 0.20169E-03, 0.41384E-04,-0.68071E-04,-0.60556E-04
     & /
       real p27(0:19)
       data p27/
     & 0.86898E+00,-0.10977E+01, 0.23949E+00,-0.44760E-01, 0.16943E-01,
     & 0.12256E-01, 0.81175E-02, 0.28216E-02,-0.94332E-03,-0.25209E-02,
     &-0.23926E-02,-0.13843E-02,-0.27490E-03, 0.35147E-03, 0.55194E-03,
     & 0.41579E-03, 0.20214E-03, 0.38585E-04,-0.73552E-04,-0.62024E-04
     & /
       real p28(0:19)
       data p28/
     & 0.93633E+00,-0.11899E+01, 0.26697E+00,-0.48929E-01, 0.18274E-01,
     & 0.12682E-01, 0.82612E-02, 0.27715E-02,-0.10623E-02,-0.26258E-02,
     &-0.24535E-02,-0.13998E-02,-0.25703E-03, 0.37513E-03, 0.57199E-03,
     & 0.42407E-03, 0.20222E-03, 0.35701E-04,-0.79126E-04,-0.63324E-04
     & /
       real p29(0:19)
       data p29/
     & 0.10067E+01,-0.12870E+01, 0.29658E+00,-0.53551E-01, 0.19671E-01,
     & 0.13090E-01, 0.83931E-02, 0.27148E-02,-0.11826E-02,-0.27288E-02,
     &-0.25118E-02,-0.14134E-02,-0.23818E-03, 0.39867E-03, 0.59164E-03,
     & 0.43181E-03, 0.20193E-03, 0.32751E-04,-0.84789E-04,-0.64454E-04
     & /
       real p30(0:18)
       data p30/
     & 0.10802E+01,-0.13888E+01, 0.32839E+00,-0.58654E-01, 0.21140E-01,
     & 0.13481E-01, 0.85137E-02, 0.26522E-02,-0.13040E-02,-0.28298E-02,
     &-0.25677E-02,-0.14254E-02,-0.21842E-03, 0.42204E-03, 0.61090E-03,
     & 0.43903E-03, 0.20131E-03, 0.29750E-04,-0.90540E-04
     & /
       real p31(0:18)
       data p31/
     & 0.11118E+01,-0.14330E+01, 0.34255E+00,-0.60983E-01, 0.21767E-01,
     & 0.13625E-01, 0.85553E-02, 0.26242E-02,-0.13524E-02,-0.28687E-02,
     &-0.25887E-02,-0.14296E-02,-0.21037E-03, 0.43111E-03, 0.61838E-03,
     & 0.44172E-03, 0.20098E-03, 0.28596E-04,-0.92874E-04
     & /
       real p32(0:18)
       data p32/
     & 0.11587E+01,-0.14984E+01, 0.36351E+00,-0.64459E-01, 0.22713E-01,
     & 0.13849E-01, 0.86218E-02, 0.25831E-02,-0.14262E-02,-0.29285E-02,
     &-0.26211E-02,-0.14361E-02,-0.19800E-03, 0.44508E-03, 0.62982E-03,
     & 0.44582E-03, 0.20044E-03, 0.26791E-04,-0.96416E-04
     & /
       real p33(0:18)
       data p33/
     & 0.12386E+01,-0.16103E+01, 0.39989E+00,-0.70616E-01, 0.24338E-01,
     & 0.14201E-01, 0.87230E-02, 0.25112E-02,-0.15483E-02,-0.30256E-02,
     &-0.26726E-02,-0.14454E-02,-0.17697E-03, 0.46793E-03, 0.64837E-03,
     & 0.45217E-03, 0.19931E-03, 0.23794E-04,-0.10232E-03
     & /
       real p34(0:18)
       data p34/
     & 0.13216E+01,-0.17272E+01, 0.43863E+00,-0.77337E-01, 0.26049E-01,
     & 0.14534E-01, 0.88144E-02, 0.24342E-02,-0.16711E-02,-0.31207E-02,
     &-0.27219E-02,-0.14534E-02,-0.15517E-03, 0.49057E-03, 0.66655E-03,
     & 0.45805E-03, 0.19789E-03, 0.20781E-04,-0.10832E-03
     & /
       real p35(0:18)
       data p35/
     & 0.14079E+01,-0.18492E+01, 0.47979E+00,-0.84651E-01, 0.27852E-01,
     & 0.14845E-01, 0.88963E-02, 0.23526E-02,-0.17944E-02,-0.32139E-02,
     &-0.27690E-02,-0.14599E-02,-0.13264E-03, 0.51297E-03, 0.68438E-03,
     & 0.46347E-03, 0.19618E-03, 0.17763E-04,-0.11441E-03
     & /
       real p36(0:18)
       data p36/
     & 0.14974E+01,-0.19764E+01, 0.52343E+00,-0.92584E-01, 0.29752E-01,
     & 0.15136E-01, 0.89693E-02, 0.22666E-02,-0.19180E-02,-0.33051E-02,
     &-0.28140E-02,-0.14651E-02,-0.10945E-03, 0.53510E-03, 0.70186E-03,
     & 0.46845E-03, 0.19421E-03, 0.14753E-04,-0.12059E-03
     & /
       real p37(0:18)
       data p37/
     & 0.15903E+01,-0.21089E+01, 0.56960E+00,-0.10117E+00, 0.31755E-01,
     & 0.15404E-01, 0.90339E-02, 0.21766E-02,-0.20418E-02,-0.33943E-02,
     &-0.28569E-02,-0.14692E-02,-0.85627E-04, 0.55695E-03, 0.71901E-03,
     & 0.47300E-03, 0.19199E-03, 0.11761E-04,-0.12686E-03
     & /
       real p38(0:18)
       data p38/
     & 0.16864E+01,-0.22467E+01, 0.61836E+00,-0.11042E+00, 0.33868E-01,
     & 0.15648E-01, 0.90905E-02, 0.20828E-02,-0.21658E-02,-0.34817E-02,
     &-0.28978E-02,-0.14720E-02,-0.61216E-04, 0.57850E-03, 0.73583E-03,
     & 0.47713E-03, 0.18954E-03, 0.87990E-05,-0.13322E-03
     & /
       real p39(0:18)
       data p39/
     & 0.17860E+01,-0.23899E+01, 0.66976E+00,-0.12038E+00, 0.36096E-01,
     & 0.15870E-01, 0.91395E-02, 0.19856E-02,-0.22898E-02,-0.35671E-02,
     &-0.29369E-02,-0.14739E-02,-0.36254E-04, 0.59973E-03, 0.75233E-03,
     & 0.48087E-03, 0.18686E-03, 0.58756E-05,-0.13967E-03
     & /
       real p40(0:18)
       data p40/
     & 0.18890E+01,-0.25385E+01, 0.72384E+00,-0.13107E+00, 0.38445E-01,
     & 0.16066E-01, 0.91815E-02, 0.18852E-02,-0.24136E-02,-0.36507E-02,
     &-0.29741E-02,-0.14747E-02,-0.10774E-04, 0.62064E-03, 0.76853E-03,
     & 0.48422E-03, 0.18397E-03, 0.30001E-05,-0.14622E-03
     & /
       real p41(0:18)
       data p41/
     & 0.19953E+01,-0.26927E+01, 0.78067E+00,-0.14252E+00, 0.40922E-01,
     & 0.16237E-01, 0.92169E-02, 0.17818E-02,-0.25374E-02,-0.37323E-02,
     &-0.30095E-02,-0.14745E-02, 0.15193E-04, 0.64121E-03, 0.78443E-03,
     & 0.48720E-03, 0.18087E-03, 0.18117E-06,-0.15287E-03
     & /
       real p42(0:18)
       data p42/
     & 0.21052E+01,-0.28524E+01, 0.84027E+00,-0.15474E+00, 0.43532E-01,
     & 0.16382E-01, 0.92461E-02, 0.16757E-02,-0.26608E-02,-0.38121E-02,
     &-0.30432E-02,-0.14735E-02, 0.41619E-04, 0.66142E-03, 0.80005E-03,
     & 0.48982E-03, 0.17758E-03,-0.25732E-05,-0.15961E-03
     & /
       real p43(0:18)
       data p43/
     & 0.22185E+01,-0.30177E+01, 0.90272E+00,-0.16778E+00, 0.46283E-01,
     & 0.16500E-01, 0.92695E-02, 0.15670E-02,-0.27840E-02,-0.38901E-02,
     &-0.30753E-02,-0.14717E-02, 0.68478E-04, 0.68127E-03, 0.81539E-03,
     & 0.49208E-03, 0.17411E-03,-0.52556E-05,-0.16645E-03
     & /
       real p44(0:18)
       data p44/
     & 0.23353E+01,-0.31888E+01, 0.96803E+00,-0.18164E+00, 0.49180E-01,
     & 0.16590E-01, 0.92876E-02, 0.14560E-02,-0.29068E-02,-0.39663E-02,
     &-0.31057E-02,-0.14691E-02, 0.95745E-04, 0.70075E-03, 0.83047E-03,
     & 0.49401E-03, 0.17046E-03,-0.78588E-05,-0.17340E-03
     & /
       real p45(0:18)
       data p45/
     & 0.24557E+01,-0.33655E+01, 0.10363E+01,-0.19636E+00, 0.52230E-01,
     & 0.16650E-01, 0.93006E-02, 0.13427E-02,-0.30292E-02,-0.40406E-02,
     &-0.31346E-02,-0.14657E-02, 0.12340E-03, 0.71986E-03, 0.84529E-03,
     & 0.49561E-03, 0.16665E-03,-0.10376E-04,-0.18045E-03
     & /
       real p46(0:17)
       data p46/
     & 0.25796E+01,-0.35480E+01, 0.11075E+01,-0.21196E+00, 0.55439E-01,
     & 0.16682E-01, 0.93092E-02, 0.12275E-02,-0.31511E-02,-0.41132E-02,
     &-0.31620E-02,-0.14617E-02, 0.15142E-03, 0.73857E-03, 0.85987E-03,
     & 0.49689E-03, 0.16268E-03,-0.12802E-04
     & /
       real p47(0:17)
       data p47/
     & 0.27071E+01,-0.37363E+01, 0.11817E+01,-0.22846E+00, 0.58814E-01,
     & 0.16682E-01, 0.93135E-02, 0.11103E-02,-0.32726E-02,-0.41841E-02,
     &-0.31880E-02,-0.14571E-02, 0.17979E-03, 0.75689E-03, 0.87422E-03,
     & 0.49786E-03, 0.15856E-03,-0.15129E-04
     & /
       real p48(0:17)
       data p48/
     & 0.28382E+01,-0.39304E+01, 0.12589E+01,-0.24588E+00, 0.62362E-01,
     & 0.16651E-01, 0.93141E-02, 0.99146E-03,-0.33934E-02,-0.42532E-02,
     &-0.32126E-02,-0.14518E-02, 0.20849E-03, 0.77482E-03, 0.88834E-03,
     & 0.49853E-03, 0.15429E-03,-0.17353E-04
     & /
       real p49(0:17)
       data p49/
     & 0.29729E+01,-0.41304E+01, 0.13392E+01,-0.26426E+00, 0.66089E-01,
     & 0.16587E-01, 0.93112E-02, 0.87100E-03,-0.35137E-02,-0.43206E-02,
     &-0.32358E-02,-0.14460E-02, 0.23750E-03, 0.79234E-03, 0.90224E-03,
     & 0.49891E-03, 0.14988E-03,-0.19468E-04
     & /
       real p50(0:17)
       data p50/
     & 0.31113E+01,-0.43364E+01, 0.14227E+01,-0.28361E+00, 0.70001E-01,
     & 0.16489E-01, 0.93053E-02, 0.74907E-03,-0.36334E-02,-0.43864E-02,
     &-0.32577E-02,-0.14397E-02, 0.26682E-03, 0.80945E-03, 0.91594E-03,
     & 0.49901E-03, 0.14534E-03,-0.21469E-04
     & /
       real p51(0:17)
       data p51/
     & 0.32533E+01,-0.45484E+01, 0.15093E+01,-0.30395E+00, 0.74105E-01,
     & 0.16357E-01, 0.92968E-02, 0.62577E-03,-0.37525E-02,-0.44505E-02,
     &-0.32783E-02,-0.14329E-02, 0.29642E-03, 0.82614E-03, 0.92945E-03,
     & 0.49883E-03, 0.14068E-03,-0.23351E-04
     & /
       real p52(0:17)
       data p52/
     & 0.33989E+01,-0.47663E+01, 0.15990E+01,-0.32530E+00, 0.78408E-01,
     & 0.16188E-01, 0.92859E-02, 0.50122E-03,-0.38709E-02,-0.45130E-02,
     &-0.32977E-02,-0.14257E-02, 0.32630E-03, 0.84242E-03, 0.94276E-03,
     & 0.49838E-03, 0.13589E-03,-0.25111E-04
     & /
       real p53(0:17)
       data p53/
     & 0.35483E+01,-0.49903E+01, 0.16920E+01,-0.34770E+00, 0.82915E-01,
     & 0.15984E-01, 0.92730E-02, 0.37550E-03,-0.39887E-02,-0.45740E-02,
     &-0.33159E-02,-0.14180E-02, 0.35644E-03, 0.85828E-03, 0.95590E-03,
     & 0.49768E-03, 0.13099E-03,-0.26743E-04
     & /
       real p54(0:15)
       data p54/
     & 0.37013E+01,-0.52203E+01, 0.17883E+01,-0.37114E+00, 0.87561E-01,
     & 0.15841E-01, 0.92170E-02, 0.24987E-03,-0.40508E-02,-0.47045E-02,
     &-0.31969E-02,-0.15575E-02, 0.33197E-03, 0.83502E-03, 0.71993E-03,
     & 0.46847E-03
     & /
       real p55(0:15)
       data p55/
     & 0.38580E+01,-0.54565E+01, 0.18879E+01,-0.39567E+00, 0.92495E-01,
     & 0.15564E-01, 0.91985E-02, 0.12180E-03,-0.41645E-02,-0.47668E-02,
     &-0.32049E-02,-0.15549E-02, 0.36373E-03, 0.85334E-03, 0.72452E-03,
     & 0.46590E-03
     & /
       real p56(0:15)
       data p56/
     & 0.40185E+01,-0.56988E+01, 0.19907E+01,-0.42129E+00, 0.97653E-01,
     & 0.15248E-01, 0.91789E-02,-0.71888E-05,-0.42775E-02,-0.48278E-02,
     &-0.32116E-02,-0.15522E-02, 0.39580E-03, 0.87141E-03, 0.72883E-03,
     & 0.46323E-03
     & /
       real p57(0:15)
       data p57/
     & 0.41828E+01,-0.59472E+01, 0.20969E+01,-0.44802E+00, 0.10304E+00,
     & 0.14891E-01, 0.91587E-02,-0.13703E-03,-0.43896E-02,-0.48875E-02,
     &-0.32171E-02,-0.15494E-02, 0.42816E-03, 0.88922E-03, 0.73287E-03,
     & 0.46047E-03
     & /
       real p58(0:15)
       data p58/
     & 0.43508E+01,-0.62019E+01, 0.22065E+01,-0.47589E+00, 0.10867E+00,
     & 0.14491E-01, 0.91381E-02,-0.26766E-03,-0.45009E-02,-0.49459E-02,
     &-0.32212E-02,-0.15465E-02, 0.46081E-03, 0.90678E-03, 0.73663E-03,
     & 0.45762E-03
     & /
       real p59(0:15)
       data p59/
     & 0.45226E+01,-0.64628E+01, 0.23195E+01,-0.50491E+00, 0.11454E+00,
     & 0.14049E-01, 0.91175E-02,-0.39902E-03,-0.46114E-02,-0.50031E-02,
     &-0.32242E-02,-0.15435E-02, 0.49374E-03, 0.92409E-03, 0.74013E-03,
     & 0.45470E-03
     & /
       real p60(0:15)
       data p60/
     & 0.46981E+01,-0.67299E+01, 0.24359E+01,-0.53510E+00, 0.12066E+00,
     & 0.13562E-01, 0.90971E-02,-0.53106E-03,-0.47211E-02,-0.50591E-02,
     &-0.32259E-02,-0.15405E-02, 0.52694E-03, 0.94113E-03, 0.74337E-03,
     & 0.45172E-03
     & /
       real p61(0:13)
       data p61/
     & 0.48774E+01,-0.70033E+01, 0.25558E+01,-0.56649E+00, 0.12704E+00,
     & 0.13030E-01, 0.90774E-02,-0.66372E-03,-0.48299E-02,-0.51139E-02,
     &-0.32264E-02,-0.15376E-02, 0.56042E-03, 0.95792E-03
     & /
       real p62(0:13)
       data p62/
     & 0.50606E+01,-0.72830E+01, 0.26791E+01,-0.59907E+00, 0.13368E+00,
     & 0.12451E-01, 0.90585E-02,-0.79697E-03,-0.49379E-02,-0.51675E-02,
     &-0.32257E-02,-0.15347E-02, 0.59415E-03, 0.97445E-03
     & /
       real p63(0:13)
       data p63/
     & 0.52475E+01,-0.75690E+01, 0.28060E+01,-0.63289E+00, 0.14058E+00,
     & 0.11824E-01, 0.90409E-02,-0.93075E-03,-0.50450E-02,-0.52200E-02,
     &-0.32240E-02,-0.15318E-02, 0.62814E-03, 0.99072E-03
     & /
       real p64(0:13)
       data p64/
     & 0.54383E+01,-0.78613E+01, 0.29363E+01,-0.66794E+00, 0.14777E+00,
     & 0.11149E-01, 0.90249E-02,-0.10650E-02,-0.51514E-02,-0.52714E-02,
     &-0.32211E-02,-0.15290E-02, 0.66238E-03, 0.10067E-02
     & /
       real p65(0:13)
       data p65/
     & 0.56329E+01,-0.81600E+01, 0.30703E+01,-0.70425E+00, 0.15523E+00,
     & 0.10423E-01, 0.90107E-02,-0.11998E-02,-0.52568E-02,-0.53217E-02,
     &-0.32171E-02,-0.15263E-02, 0.69688E-03, 0.10225E-02
     & /
       real p66(0:13)
       data p66/
     & 0.58313E+01,-0.84651E+01, 0.32078E+01,-0.74184E+00, 0.16298E+00,
     & 0.96457E-02, 0.89987E-02,-0.13350E-02,-0.53614E-02,-0.53709E-02,
     &-0.32120E-02,-0.15237E-02, 0.73161E-03, 0.10380E-02
     & /
       real p67(0:13)
       data p67/
     & 0.60335E+01,-0.87765E+01, 0.33489E+01,-0.78071E+00, 0.17103E+00,
     & 0.88160E-02, 0.89892E-02,-0.14707E-02,-0.54652E-02,-0.54190E-02,
     &-0.32059E-02,-0.15212E-02, 0.76660E-03, 0.10532E-02
     & /
       real p68(0:13)
       data p68/
     & 0.62396E+01,-0.90943E+01, 0.34936E+01,-0.82089E+00, 0.17937E+00,
     & 0.79325E-02, 0.89824E-02,-0.16067E-02,-0.55682E-02,-0.54662E-02,
     &-0.31987E-02,-0.15189E-02, 0.80182E-03, 0.10681E-02
     & /
       real p69(0:13)
       data p69/
     & 0.64496E+01,-0.94186E+01, 0.36419E+01,-0.86239E+00, 0.18803E+00,
     & 0.69941E-02, 0.89787E-02,-0.17431E-02,-0.56703E-02,-0.55123E-02,
     &-0.31906E-02,-0.15168E-02, 0.83728E-03, 0.10828E-02
     & /
       real p70(0:13)
       data p70/
     & 0.66634E+01,-0.97493E+01, 0.37939E+01,-0.90522E+00, 0.19699E+00,
     & 0.59994E-02, 0.89784E-02,-0.18799E-02,-0.57716E-02,-0.55575E-02,
     &-0.31814E-02,-0.15148E-02, 0.87297E-03, 0.10972E-02
     & /
       real p71(0:13)
       data p71/
     & 0.68811E+01,-0.10087E+02, 0.39496E+01,-0.94940E+00, 0.20627E+00,
     & 0.49473E-02, 0.89818E-02,-0.20170E-02,-0.58720E-02,-0.56017E-02,
     &-0.31713E-02,-0.15130E-02, 0.90890E-03, 0.11114E-02
     & /
       real p72(0:13)
       data p72/
     & 0.71026E+01,-0.10430E+02, 0.41090E+01,-0.99495E+00, 0.21587E+00,
     & 0.38366E-02, 0.89891E-02,-0.21545E-02,-0.59717E-02,-0.56450E-02,
     &-0.31602E-02,-0.15115E-02, 0.94506E-03, 0.11253E-02
     & /
       real p73(0:13)
       data p73/
     & 0.73280E+01,-0.10780E+02, 0.42720E+01,-0.10419E+01, 0.22580E+00,
     & 0.26659E-02, 0.90008E-02,-0.22923E-02,-0.60705E-02,-0.56874E-02,
     &-0.31482E-02,-0.15102E-02, 0.98146E-03, 0.11389E-02
     & /
       real p74(0:12)
       data p74/
     & 0.75573E+01,-0.11137E+02, 0.44388E+01,-0.10902E+01, 0.23606E+00,
     & 0.14341E-02, 0.90169E-02,-0.24304E-02,-0.61685E-02,-0.57289E-02,
     &-0.31352E-02,-0.15091E-02, 0.10181E-02
     & /
       real p75(0:12)
       data p75/
     & 0.77905E+01,-0.11500E+02, 0.46094E+01,-0.11399E+01, 0.24666E+00,
     & 0.13992E-03, 0.90379E-02,-0.25689E-02,-0.62656E-02,-0.57695E-02,
     &-0.31214E-02,-0.15083E-02, 0.10549E-02
     & /
       real p76(0:12)
       data p76/
     & 0.80275E+01,-0.11870E+02, 0.47837E+01,-0.11910E+01, 0.25761E+00,
     &-0.12179E-02, 0.90641E-02,-0.27077E-02,-0.63620E-02,-0.58092E-02,
     &-0.31066E-02,-0.15077E-02, 0.10920E-02
     & /
       real p77(0:12)
       data p77/
     & 0.82684E+01,-0.12246E+02, 0.49617E+01,-0.12436E+01, 0.26891E+00,
     &-0.26405E-02, 0.90957E-02,-0.28468E-02,-0.64576E-02,-0.58481E-02,
     &-0.30910E-02,-0.15074E-02, 0.11293E-02
     & /
       real p78(0:12)
       data p78/
     & 0.85132E+01,-0.12628E+02, 0.51436E+01,-0.12976E+01, 0.28057E+00,
     &-0.41293E-02, 0.91330E-02,-0.29862E-02,-0.65524E-02,-0.58862E-02,
     &-0.30744E-02,-0.15074E-02, 0.11668E-02
     & /
       real p79(0:12)
       data p79/
     & 0.87619E+01,-0.13017E+02, 0.53292E+01,-0.13531E+01, 0.29259E+00,
     &-0.56854E-02, 0.91763E-02,-0.31260E-02,-0.66463E-02,-0.59235E-02,
     &-0.30571E-02,-0.15077E-02, 0.12046E-02
     & /
       real p80(0:12)
       data p80/
     & 0.90145E+01,-0.13413E+02, 0.55187E+01,-0.14100E+01, 0.30498E+00,
     &-0.73101E-02, 0.92260E-02,-0.32661E-02,-0.67395E-02,-0.59600E-02,
     &-0.30389E-02,-0.15084E-02, 0.12426E-02
     & /
       real p81(0:12)
       data p81/
     & 0.92710E+01,-0.13816E+02, 0.57120E+01,-0.14684E+01, 0.31773E+00,
     &-0.90046E-02, 0.92822E-02,-0.34065E-02,-0.68320E-02,-0.59957E-02,
     &-0.30198E-02,-0.15093E-02, 0.12808E-02
     & /
       real p82(0:12)
       data p82/
     & 0.95314E+01,-0.14224E+02, 0.59091E+01,-0.15283E+01, 0.33087E+00,
     &-0.10770E-01, 0.93452E-02,-0.35473E-02,-0.69236E-02,-0.60307E-02,
     &-0.30000E-02,-0.15106E-02, 0.13192E-02
     & /
       real p83(0:12)
       data p83/
     & 0.97957E+01,-0.14640E+02, 0.61101E+01,-0.15897E+01, 0.34439E+00,
     &-0.12608E-01, 0.94154E-02,-0.36885E-02,-0.70145E-02,-0.60649E-02,
     &-0.29793E-02,-0.15122E-02, 0.13579E-02
     & /
       real p84(0:12)
       data p84/
     & 0.10064E+02,-0.15062E+02, 0.63150E+01,-0.16526E+01, 0.35829E+00,
     &-0.14520E-01, 0.94930E-02,-0.38300E-02,-0.71046E-02,-0.60985E-02,
     &-0.29579E-02,-0.15142E-02, 0.13968E-02
     & /
       real p85(0:12)
       data p85/
     & 0.10336E+02,-0.15490E+02, 0.65237E+01,-0.17170E+01, 0.37259E+00,
     &-0.16506E-01, 0.95783E-02,-0.39720E-02,-0.71939E-02,-0.61313E-02,
     &-0.29356E-02,-0.15166E-02, 0.14359E-02
     & /
       real p86(0:12)
       data p86/
     & 0.10612E+02,-0.15925E+02, 0.67363E+01,-0.17830E+01, 0.38729E+00,
     &-0.18568E-01, 0.96717E-02,-0.41143E-02,-0.72825E-02,-0.61634E-02,
     &-0.29126E-02,-0.15193E-02, 0.14752E-02
     & /
       real p87(0:12)
       data p87/
     & 0.10892E+02,-0.16367E+02, 0.69528E+01,-0.18505E+01, 0.40238E+00,
     &-0.20708E-01, 0.97732E-02,-0.42571E-02,-0.73704E-02,-0.61949E-02,
     &-0.28888E-02,-0.15224E-02, 0.15148E-02
     & /
       real p88(0:12)
       data p88/
     & 0.11175E+02,-0.16815E+02, 0.71732E+01,-0.19196E+01, 0.41789E+00,
     &-0.22926E-01, 0.98833E-02,-0.44003E-02,-0.74575E-02,-0.62257E-02,
     &-0.28643E-02,-0.15258E-02, 0.15546E-02
     & /
       real p89(0:12)
       data p89/
     & 0.11463E+02,-0.17270E+02, 0.73976E+01,-0.19902E+01, 0.43381E+00,
     &-0.25224E-01, 0.10002E-01,-0.45439E-02,-0.75439E-02,-0.62559E-02,
     &-0.28390E-02,-0.15297E-02, 0.15946E-02
     & /
       real p90(0:12)
       data p90/
     & 0.11755E+02,-0.17732E+02, 0.76258E+01,-0.20624E+01, 0.45014E+00,
     &-0.27603E-01, 0.10130E-01,-0.46881E-02,-0.76295E-02,-0.62854E-02,
     &-0.28130E-02,-0.15340E-02, 0.16349E-02
     & /
       real p91(0:12)
       data p91/
     & 0.12050E+02,-0.18200E+02, 0.78580E+01,-0.21361E+01, 0.46690E+00,
     &-0.30064E-01, 0.10268E-01,-0.48327E-02,-0.77144E-02,-0.63143E-02,
     &-0.27863E-02,-0.15386E-02, 0.16754E-02
     & /
       real p92(0:12)
       data p92/
     & 0.12349E+02,-0.18674E+02, 0.80941E+01,-0.22115E+01, 0.48408E+00,
     &-0.32609E-01, 0.10415E-01,-0.49778E-02,-0.77986E-02,-0.63427E-02,
     &-0.27589E-02,-0.15437E-02, 0.17161E-02
     & /
       real p93(0:12)
       data p93/
     & 0.12653E+02,-0.19156E+02, 0.83343E+01,-0.22885E+01, 0.50170E+00,
     &-0.35239E-01, 0.10572E-01,-0.51236E-02,-0.78821E-02,-0.63704E-02,
     &-0.27307E-02,-0.15492E-02, 0.17570E-02
     & /
       real p94(0:12)
       data p94/
     & 0.12960E+02,-0.19644E+02, 0.85785E+01,-0.23671E+01, 0.51976E+00,
     &-0.37957E-01, 0.10739E-01,-0.52699E-02,-0.79649E-02,-0.63975E-02,
     &-0.27017E-02,-0.15552E-02, 0.17983E-02
     & /
       real p95(0:12)
       data p95/
     & 0.13271E+02,-0.20139E+02, 0.88268E+01,-0.24475E+01, 0.53828E+00,
     &-0.40765E-01, 0.10917E-01,-0.54170E-02,-0.80469E-02,-0.64240E-02,
     &-0.26721E-02,-0.15615E-02, 0.18397E-02
     & /
       real p96(0:11)
       data p96/
     & 0.13587E+02,-0.20641E+02, 0.90793E+01,-0.25295E+01, 0.55726E+00,
     &-0.43664E-01, 0.11106E-01,-0.55647E-02,-0.81283E-02,-0.64499E-02,
     &-0.26416E-02,-0.15683E-02
     & /
       real p97(0:11)
       data p97/
     & 0.13906E+02,-0.21150E+02, 0.93359E+01,-0.26131E+01, 0.57670E+00,
     &-0.46656E-01, 0.11306E-01,-0.57131E-02,-0.82089E-02,-0.64752E-02,
     &-0.26105E-02,-0.15755E-02
     & /
       real p98(0:11)
       data p98/
     & 0.14230E+02,-0.21666E+02, 0.95966E+01,-0.26985E+01, 0.59661E+00,
     &-0.49741E-01, 0.11517E-01,-0.58623E-02,-0.82888E-02,-0.65000E-02,
     &-0.25786E-02,-0.15832E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19,  19,  18,  18
     &,  18,  18,  18,  18,  18,  18,  18,  18,  18,  18
     &,  18,  18,  18,  18,  17,  17,  17,  17,  17,  17
     &,  17,  17,  15,  15,  15,  15,  15,  15,  15,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  11,  11,  11
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.19) param(i,15) = p15(i)
             if (i.le.19) param(i,16) = p16(i)
             if (i.le.19) param(i,17) = p17(i)
             if (i.le.19) param(i,18) = p18(i)
             if (i.le.19) param(i,19) = p19(i)
             if (i.le.19) param(i,20) = p20(i)
             if (i.le.19) param(i,21) = p21(i)
             if (i.le.19) param(i,22) = p22(i)
             if (i.le.19) param(i,23) = p23(i)
             if (i.le.19) param(i,24) = p24(i)
             if (i.le.19) param(i,25) = p25(i)
             if (i.le.19) 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.19) param(i,29) = p29(i)
             if (i.le.18) param(i,30) = p30(i)
             if (i.le.18) param(i,31) = p31(i)
             if (i.le.18) param(i,32) = p32(i)
             if (i.le.18) param(i,33) = p33(i)
             if (i.le.18) param(i,34) = p34(i)
             if (i.le.18) param(i,35) = p35(i)
             if (i.le.18) param(i,36) = p36(i)
             if (i.le.18) param(i,37) = p37(i)
             if (i.le.18) param(i,38) = p38(i)
             if (i.le.18) param(i,39) = p39(i)
             if (i.le.18) param(i,40) = p40(i)
             if (i.le.18) param(i,41) = p41(i)
             if (i.le.18) param(i,42) = p42(i)
             if (i.le.18) param(i,43) = p43(i)
             if (i.le.18) param(i,44) = p44(i)
             if (i.le.18) param(i,45) = p45(i)
             if (i.le.17) param(i,46) = p46(i)
             if (i.le.17) param(i,47) = p47(i)
             if (i.le.17) param(i,48) = p48(i)
             if (i.le.17) param(i,49) = p49(i)
             if (i.le.17) param(i,50) = p50(i)
             if (i.le.17) param(i,51) = p51(i)
             if (i.le.17) param(i,52) = p52(i)
             if (i.le.17) param(i,53) = p53(i)
             if (i.le.15) param(i,54) = p54(i)
             if (i.le.15) param(i,55) = p55(i)
             if (i.le.15) param(i,56) = p56(i)
             if (i.le.15) param(i,57) = p57(i)
             if (i.le.15) param(i,58) = p58(i)
             if (i.le.15) param(i,59) = p59(i)
             if (i.le.15) param(i,60) = p60(i)
             if (i.le.13) param(i,61) = p61(i)
             if (i.le.13) param(i,62) = p62(i)
             if (i.le.13) param(i,63) = p63(i)
             if (i.le.13) param(i,64) = p64(i)
             if (i.le.13) param(i,65) = p65(i)
             if (i.le.13) param(i,66) = p66(i)
             if (i.le.13) param(i,67) = p67(i)
             if (i.le.13) param(i,68) = p68(i)
             if (i.le.13) param(i,69) = p69(i)
             if (i.le.13) param(i,70) = p70(i)
             if (i.le.13) param(i,71) = p71(i)
             if (i.le.13) param(i,72) = p72(i)
             if (i.le.13) param(i,73) = p73(i)
             if (i.le.12) param(i,74) = p74(i)
             if (i.le.12) param(i,75) = p75(i)
             if (i.le.12) param(i,76) = p76(i)
             if (i.le.12) param(i,77) = p77(i)
             if (i.le.12) param(i,78) = p78(i)
             if (i.le.12) param(i,79) = p79(i)
             if (i.le.12) param(i,80) = p80(i)
             if (i.le.12) param(i,81) = p81(i)
             if (i.le.12) param(i,82) = p82(i)
             if (i.le.12) param(i,83) = p83(i)
             if (i.le.12) param(i,84) = p84(i)
             if (i.le.12) param(i,85) = p85(i)
             if (i.le.12) param(i,86) = p86(i)
             if (i.le.12) param(i,87) = p87(i)
             if (i.le.12) param(i,88) = p88(i)
             if (i.le.12) param(i,89) = p89(i)
             if (i.le.12) param(i,90) = p90(i)
             if (i.le.12) param(i,91) = p91(i)
             if (i.le.12) param(i,92) = p92(i)
             if (i.le.12) param(i,93) = p93(i)
             if (i.le.12) param(i,94) = p94(i)
             if (i.le.12) param(i,95) = p95(i)
             if (i.le.11) param(i,96) = p96(i)
             if (i.le.11) param(i,97) = p97(i)
             if (i.le.11) param(i,98) = p98(i)
          enddo
       endif
            
       dbarhiq2ms=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
       dbarhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dbarhiq2ms=0.0
       if (q2.lt.q2min) dbarhiq2ms=0.0
       if ( x.gt. xmax) dbarhiq2ms=0.0
       if ( x.lt. xmin) dbarhiq2ms=0.0
       return
       end
       real function  sbarhiq2ms(xin,q2in)
***********************************************************
c  parametrization of sbarhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:11)
       data p15/
     & 0.13887E+00,-0.16417E+00, 0.25218E-01,-0.73913E-02, 0.36662E-02,
     & 0.28227E-02, 0.15299E-02, 0.33785E-03,-0.22602E-03,-0.32470E-03,
     &-0.22915E-03,-0.11937E-03
     & /
       real p16(0:11)
       data p16/
     & 0.16163E+00,-0.19305E+00, 0.31006E-01,-0.77817E-02, 0.42123E-02,
     & 0.30774E-02, 0.15849E-02, 0.29289E-03,-0.28059E-03,-0.35574E-03,
     &-0.23901E-03,-0.12033E-03
     & /
       real p17(0:11)
       data p17/
     & 0.18770E+00,-0.22654E+00, 0.38161E-01,-0.82767E-02, 0.48088E-02,
     & 0.33365E-02, 0.16300E-02, 0.23817E-03,-0.33959E-03,-0.38708E-03,
     &-0.24769E-03,-0.12048E-03
     & /
       real p18(0:11)
       data p18/
     & 0.21620E+00,-0.26358E+00, 0.46553E-01,-0.88921E-02, 0.54325E-02,
     & 0.35872E-02, 0.16629E-02, 0.17625E-03,-0.40015E-03,-0.41721E-03,
     &-0.25477E-03,-0.11987E-03
     & /
       real p19(0:11)
       data p19/
     & 0.24722E+00,-0.30431E+00, 0.56277E-01,-0.96597E-02, 0.60843E-02,
     & 0.38285E-02, 0.16839E-02, 0.10781E-03,-0.46188E-03,-0.44600E-03,
     &-0.26030E-03,-0.11859E-03
     & /
       real p20(0:11)
       data p20/
     & 0.28082E+00,-0.34888E+00, 0.67427E-01,-0.10611E-01, 0.67656E-02,
     & 0.40594E-02, 0.16936E-02, 0.33482E-04,-0.52438E-03,-0.47338E-03,
     &-0.26434E-03,-0.11674E-03
     & /
       real p21(0:11)
       data p21/
     & 0.31708E+00,-0.39741E+00, 0.80093E-01,-0.11779E-01, 0.74784E-02,
     & 0.42791E-02, 0.16922E-02,-0.46132E-04,-0.58736E-03,-0.49931E-03,
     &-0.26695E-03,-0.11440E-03
     & /
       real p22(0:11)
       data p22/
     & 0.35606E+00,-0.45002E+00, 0.94361E-01,-0.13195E-01, 0.82251E-02,
     & 0.44867E-02, 0.16803E-02,-0.13049E-03,-0.65052E-03,-0.52374E-03,
     &-0.26819E-03,-0.11165E-03
     & /
       real p23(0:11)
       data p23/
     & 0.39782E+00,-0.50684E+00, 0.11031E+00,-0.14890E-01, 0.90086E-02,
     & 0.46817E-02, 0.16584E-02,-0.21909E-03,-0.71364E-03,-0.54664E-03,
     &-0.26810E-03,-0.10856E-03
     & /
       real p24(0:12)
       data p24/
     & 0.44243E+00,-0.56797E+00, 0.12803E+00,-0.16896E-01, 0.98322E-02,
     & 0.48632E-02, 0.16268E-02,-0.31147E-03,-0.77650E-03,-0.56802E-03,
     &-0.26676E-03,-0.10521E-03, 0.14723E-04
     & /
       real p25(0:12)
       data p25/
     & 0.48992E+00,-0.63351E+00, 0.14760E+00,-0.19245E-01, 0.10700E-01,
     & 0.50306E-02, 0.15861E-02,-0.40720E-03,-0.83893E-03,-0.58788E-03,
     &-0.26422E-03,-0.10164E-03, 0.20982E-04
     & /
       real p26(0:12)
       data p26/
     & 0.54037E+00,-0.70357E+00, 0.16908E+00,-0.21967E-01, 0.11615E-01,
     & 0.51834E-02, 0.15368E-02,-0.50588E-03,-0.90076E-03,-0.60621E-03,
     &-0.26052E-03,-0.97924E-04, 0.27388E-04
     & /
       real p27(0:12)
       data p27/
     & 0.59381E+00,-0.77824E+00, 0.19255E+00,-0.25094E-01, 0.12582E-01,
     & 0.53208E-02, 0.14792E-02,-0.60716E-03,-0.96189E-03,-0.62305E-03,
     &-0.25573E-03,-0.94106E-04, 0.33929E-04
     & /
       real p28(0:12)
       data p28/
     & 0.65030E+00,-0.85761E+00, 0.21808E+00,-0.28654E-01, 0.13606E-01,
     & 0.54425E-02, 0.14139E-02,-0.71071E-03,-0.10222E-02,-0.63841E-03,
     &-0.24989E-03,-0.90238E-04, 0.40591E-04
     & /
       real p29(0:12)
       data p29/
     & 0.70987E+00,-0.94178E+00, 0.24573E+00,-0.32678E-01, 0.14691E-01,
     & 0.55476E-02, 0.13413E-02,-0.81621E-03,-0.10815E-02,-0.65231E-03,
     &-0.24304E-03,-0.86363E-04, 0.47364E-04
     & /
       real p30(0:12)
       data p30/
     & 0.77257E+00,-0.10308E+01, 0.27558E+00,-0.37196E-01, 0.15843E-01,
     & 0.56357E-02, 0.12618E-02,-0.92339E-03,-0.11399E-02,-0.66480E-03,
     &-0.23525E-03,-0.82523E-04, 0.54242E-04
     & /
       real p31(0:12)
       data p31/
     & 0.79996E+00,-0.10699E+01, 0.28897E+00,-0.39298E-01, 0.16344E-01,
     & 0.56623E-02, 0.12258E-02,-0.96801E-03,-0.11632E-02,-0.66910E-03,
     &-0.23151E-03,-0.80945E-04, 0.57116E-04
     & /
       real p32(0:12)
       data p32/
     & 0.84037E+00,-0.11276E+01, 0.30875E+00,-0.42424E-01, 0.17096E-01,
     & 0.57033E-02, 0.11733E-02,-0.10339E-02,-0.11978E-02,-0.67573E-03,
     &-0.22617E-03,-0.78708E-04, 0.61345E-04
     & /
       real p33(0:12)
       data p33/
     & 0.90951E+00,-0.12267E+01, 0.34317E+00,-0.48016E-01, 0.18395E-01,
     & 0.57562E-02, 0.10820E-02,-0.11434E-02,-0.12539E-02,-0.68555E-03,
     &-0.21667E-03,-0.75099E-04, 0.68393E-04
     & /
       real p34(0:12)
       data p34/
     & 0.98188E+00,-0.13309E+01, 0.37996E+00,-0.54182E-01, 0.19777E-01,
     & 0.57903E-02, 0.98497E-03,-0.12540E-02,-0.13090E-02,-0.69404E-03,
     &-0.20632E-03,-0.71614E-04, 0.75535E-04
     & /
       real p35(0:11)
       data p35/
     & 0.10575E+01,-0.14402E+01, 0.41917E+00,-0.60950E-01, 0.21246E-01,
     & 0.58049E-02, 0.88256E-03,-0.13655E-02,-0.13628E-02,-0.70123E-03,
     &-0.19515E-03,-0.68286E-04
     & /
       real p36(0:11)
       data p36/
     & 0.11365E+01,-0.15547E+01, 0.46086E+00,-0.68349E-01, 0.22809E-01,
     & 0.57993E-02, 0.77517E-03,-0.14776E-02,-0.14154E-02,-0.70716E-03,
     &-0.18320E-03,-0.65144E-04
     & /
       real p37(0:11)
       data p37/
     & 0.12188E+01,-0.16746E+01, 0.50508E+00,-0.76406E-01, 0.24471E-01,
     & 0.57728E-02, 0.66320E-03,-0.15903E-02,-0.14667E-02,-0.71185E-03,
     &-0.17051E-03,-0.62216E-04
     & /
       real p38(0:11)
       data p38/
     & 0.13045E+01,-0.17998E+01, 0.55189E+00,-0.85148E-01, 0.26238E-01,
     & 0.57247E-02, 0.54702E-03,-0.17034E-02,-0.15167E-02,-0.71535E-03,
     &-0.15709E-03,-0.59526E-04
     & /
       real p39(0:11)
       data p39/
     & 0.13935E+01,-0.19304E+01, 0.60134E+00,-0.94602E-01, 0.28117E-01,
     & 0.56542E-02, 0.42699E-03,-0.18166E-02,-0.15655E-02,-0.71770E-03,
     &-0.14299E-03,-0.57099E-04
     & /
       real p40(0:11)
       data p40/
     & 0.14861E+01,-0.20665E+01, 0.65348E+00,-0.10479E+00, 0.30114E-01,
     & 0.55606E-02, 0.30349E-03,-0.19299E-02,-0.16129E-02,-0.71892E-03,
     &-0.12824E-03,-0.54956E-04
     & /
       real p41(0:11)
       data p41/
     & 0.15820E+01,-0.22082E+01, 0.70836E+00,-0.11575E+00, 0.32235E-01,
     & 0.54430E-02, 0.17687E-03,-0.20432E-02,-0.16591E-02,-0.71906E-03,
     &-0.11285E-03,-0.53119E-04
     & /
       real p42(0:11)
       data p42/
     & 0.16815E+01,-0.23554E+01, 0.76602E+00,-0.12750E+00, 0.34487E-01,
     & 0.53007E-02, 0.47473E-04,-0.21563E-02,-0.17039E-02,-0.71815E-03,
     &-0.96852E-04,-0.51606E-04
     & /
       real p43(0:11)
       data p43/
     & 0.17845E+01,-0.25083E+01, 0.82652E+00,-0.14006E+00, 0.36876E-01,
     & 0.51329E-02,-0.84353E-04,-0.22691E-02,-0.17474E-02,-0.71623E-03,
     &-0.80273E-04,-0.50435E-04
     & /
       real p44(0:11)
       data p44/
     & 0.18910E+01,-0.26668E+01, 0.88989E+00,-0.15346E+00, 0.39409E-01,
     & 0.49386E-02,-0.21827E-03,-0.23816E-02,-0.17896E-02,-0.71333E-03,
     &-0.63134E-04,-0.49623E-04
     & /
       real p45(0:11)
       data p45/
     & 0.20011E+01,-0.28312E+01, 0.95618E+00,-0.16772E+00, 0.42092E-01,
     & 0.47171E-02,-0.35395E-03,-0.24937E-02,-0.18304E-02,-0.70948E-03,
     &-0.45455E-04,-0.49185E-04
     & /
       real p46(0:11)
       data p46/
     & 0.21148E+01,-0.30013E+01, 0.10254E+01,-0.18287E+00, 0.44932E-01,
     & 0.44673E-02,-0.49106E-03,-0.26053E-02,-0.18700E-02,-0.70473E-03,
     &-0.27256E-04,-0.49136E-04
     & /
       real p47(0:11)
       data p47/
     & 0.22320E+01,-0.31772E+01, 0.10977E+01,-0.19893E+00, 0.47935E-01,
     & 0.41883E-02,-0.62929E-03,-0.27163E-02,-0.19083E-02,-0.69910E-03,
     &-0.85556E-05,-0.49490E-04
     & /
       real p48(0:11)
       data p48/
     & 0.23529E+01,-0.33590E+01, 0.11730E+01,-0.21593E+00, 0.51109E-01,
     & 0.38793E-02,-0.76831E-03,-0.28266E-02,-0.19453E-02,-0.69262E-03,
     & 0.10628E-04,-0.50258E-04
     & /
       real p49(0:11)
       data p49/
     & 0.24775E+01,-0.35468E+01, 0.12514E+01,-0.23388E+00, 0.54459E-01,
     & 0.35393E-02,-0.90782E-03,-0.29363E-02,-0.19810E-02,-0.68533E-03,
     & 0.30280E-04,-0.51453E-04
     & /
       real p50(0:11)
       data p50/
     & 0.26057E+01,-0.37405E+01, 0.13329E+01,-0.25281E+00, 0.57992E-01,
     & 0.31672E-02,-0.10475E-02,-0.30452E-02,-0.20155E-02,-0.67727E-03,
     & 0.50383E-04,-0.53086E-04
     & /
       real p51(0:11)
       data p51/
     & 0.27376E+01,-0.39401E+01, 0.14175E+01,-0.27274E+00, 0.61715E-01,
     & 0.27621E-02,-0.11871E-02,-0.31533E-02,-0.20487E-02,-0.66845E-03,
     & 0.70924E-04,-0.55167E-04
     & /
       real p52(0:11)
       data p52/
     & 0.28732E+01,-0.41459E+01, 0.15054E+01,-0.29368E+00, 0.65635E-01,
     & 0.23229E-02,-0.13262E-02,-0.32607E-02,-0.20807E-02,-0.65891E-03,
     & 0.91889E-04,-0.57705E-04
     & /
       real p53(0:11)
       data p53/
     & 0.30125E+01,-0.43576E+01, 0.15964E+01,-0.31568E+00, 0.69758E-01,
     & 0.18487E-02,-0.14646E-02,-0.33672E-02,-0.21115E-02,-0.64867E-03,
     & 0.11327E-03,-0.60710E-04
     & /
       real p54(0:11)
       data p54/
     & 0.31555E+01,-0.45755E+01, 0.16907E+01,-0.33873E+00, 0.74091E-01,
     & 0.13382E-02,-0.16020E-02,-0.34728E-02,-0.21412E-02,-0.63778E-03,
     & 0.13504E-03,-0.64189E-04
     & /
       real p55(0:11)
       data p55/
     & 0.33023E+01,-0.47995E+01, 0.17883E+01,-0.36287E+00, 0.78640E-01,
     & 0.79056E-03,-0.17381E-02,-0.35775E-02,-0.21696E-02,-0.62624E-03,
     & 0.15720E-03,-0.68151E-04
     & /
       real p56(0:11)
       data p56/
     & 0.34528E+01,-0.50297E+01, 0.18892E+01,-0.38810E+00, 0.83412E-01,
     & 0.20459E-03,-0.18726E-02,-0.36813E-02,-0.21970E-02,-0.61410E-03,
     & 0.17975E-03,-0.72603E-04
     & /
       real p57(0:11)
       data p57/
     & 0.36071E+01,-0.52660E+01, 0.19935E+01,-0.41446E+00, 0.88413E-01,
     &-0.42081E-03,-0.20052E-02,-0.37842E-02,-0.22232E-02,-0.60136E-03,
     & 0.20266E-03,-0.77552E-04
     & /
       real p58(0:11)
       data p58/
     & 0.37652E+01,-0.55086E+01, 0.21011E+01,-0.44196E+00, 0.93650E-01,
     &-0.10868E-02,-0.21357E-02,-0.38862E-02,-0.22482E-02,-0.58807E-03,
     & 0.22592E-03,-0.83004E-04
     & /
       real p59(0:11)
       data p59/
     & 0.39271E+01,-0.57574E+01, 0.22122E+01,-0.47062E+00, 0.99130E-01,
     &-0.17944E-02,-0.22637E-02,-0.39872E-02,-0.22722E-02,-0.57424E-03,
     & 0.24954E-03,-0.88964E-04
     & /
       real p60(0:11)
       data p60/
     & 0.40927E+01,-0.60124E+01, 0.23266E+01,-0.50046E+00, 0.10486E+00,
     &-0.25448E-02,-0.23890E-02,-0.40873E-02,-0.22952E-02,-0.55990E-03,
     & 0.27351E-03,-0.95439E-04
     & /
       real p61(0:11)
       data p61/
     & 0.42622E+01,-0.62738E+01, 0.24446E+01,-0.53149E+00, 0.11084E+00,
     &-0.33392E-02,-0.25113E-02,-0.41865E-02,-0.23171E-02,-0.54507E-03,
     & 0.29780E-03,-0.10243E-03
     & /
       real p62(0:11)
       data p62/
     & 0.44355E+01,-0.65415E+01, 0.25660E+01,-0.56373E+00, 0.11709E+00,
     &-0.41787E-02,-0.26304E-02,-0.42847E-02,-0.23380E-02,-0.52977E-03,
     & 0.32243E-03,-0.10995E-03
     & /
       real p63(0:11)
       data p63/
     & 0.46126E+01,-0.68155E+01, 0.26909E+01,-0.59720E+00, 0.12360E+00,
     &-0.50645E-02,-0.27459E-02,-0.43819E-02,-0.23578E-02,-0.51402E-03,
     & 0.34738E-03,-0.11800E-03
     & /
       real p64(0:11)
       data p64/
     & 0.47936E+01,-0.70958E+01, 0.28193E+01,-0.63192E+00, 0.13039E+00,
     &-0.59979E-02,-0.28575E-02,-0.44782E-02,-0.23767E-02,-0.49784E-03,
     & 0.37264E-03,-0.12658E-03
     & /
       real p65(0:11)
       data p65/
     & 0.49784E+01,-0.73825E+01, 0.29513E+01,-0.66790E+00, 0.13745E+00,
     &-0.69799E-02,-0.29651E-02,-0.45737E-02,-0.23946E-02,-0.48126E-03,
     & 0.39821E-03,-0.13570E-03
     & /
       real p66(0:11)
       data p66/
     & 0.51671E+01,-0.76756E+01, 0.30868E+01,-0.70516E+00, 0.14481E+00,
     &-0.80118E-02,-0.30684E-02,-0.46682E-02,-0.24116E-02,-0.46429E-03,
     & 0.42409E-03,-0.14536E-03
     & /
       real p67(0:11)
       data p67/
     & 0.53596E+01,-0.79752E+01, 0.32260E+01,-0.74371E+00, 0.15245E+00,
     &-0.90948E-02,-0.31670E-02,-0.47618E-02,-0.24276E-02,-0.44695E-03,
     & 0.45027E-03,-0.15557E-03
     & /
       real p68(0:11)
       data p68/
     & 0.55560E+01,-0.82811E+01, 0.33688E+01,-0.78357E+00, 0.16040E+00,
     &-0.10230E-01,-0.32608E-02,-0.48545E-02,-0.24428E-02,-0.42926E-03,
     & 0.47675E-03,-0.16632E-03
     & /
       real p69(0:11)
       data p69/
     & 0.57562E+01,-0.85935E+01, 0.35152E+01,-0.82476E+00, 0.16865E+00,
     &-0.11419E-01,-0.33493E-02,-0.49464E-02,-0.24570E-02,-0.41123E-03,
     & 0.50352E-03,-0.17762E-03
     & /
       real p70(0:11)
       data p70/
     & 0.59604E+01,-0.89123E+01, 0.36652E+01,-0.86728E+00, 0.17720E+00,
     &-0.12663E-01,-0.34325E-02,-0.50374E-02,-0.24704E-02,-0.39289E-03,
     & 0.53058E-03,-0.18948E-03
     & /
       real p71(0:11)
       data p71/
     & 0.61684E+01,-0.92376E+01, 0.38190E+01,-0.91116E+00, 0.18608E+00,
     &-0.13962E-01,-0.35100E-02,-0.51276E-02,-0.24829E-02,-0.37425E-03,
     & 0.55792E-03,-0.20189E-03
     & /
       real p72(0:11)
       data p72/
     & 0.63803E+01,-0.95694E+01, 0.39764E+01,-0.95641E+00, 0.19528E+00,
     &-0.15319E-01,-0.35816E-02,-0.52170E-02,-0.24946E-02,-0.35532E-03,
     & 0.58555E-03,-0.21486E-03
     & /
       real p73(0:11)
       data p73/
     & 0.65961E+01,-0.99077E+01, 0.41375E+01,-0.10030E+01, 0.20480E+00,
     &-0.16734E-01,-0.36469E-02,-0.53056E-02,-0.25055E-02,-0.33613E-03,
     & 0.61346E-03,-0.22839E-03
     & /
       real p74(0:11)
       data p74/
     & 0.68157E+01,-0.10252E+02, 0.43024E+01,-0.10511E+01, 0.21466E+00,
     &-0.18209E-01,-0.37058E-02,-0.53935E-02,-0.25155E-02,-0.31668E-03,
     & 0.64164E-03,-0.24249E-03
     & /
       real p75(0:11)
       data p75/
     & 0.70393E+01,-0.10604E+02, 0.44710E+01,-0.11005E+01, 0.22486E+00,
     &-0.19745E-01,-0.37580E-02,-0.54806E-02,-0.25248E-02,-0.29699E-03,
     & 0.67010E-03,-0.25714E-03
     & /
       real p76(0:11)
       data p76/
     & 0.72668E+01,-0.10962E+02, 0.46433E+01,-0.11513E+01, 0.23540E+00,
     &-0.21344E-01,-0.38032E-02,-0.55671E-02,-0.25333E-02,-0.27707E-03,
     & 0.69883E-03,-0.27237E-03
     & /
       real p77(0:11)
       data p77/
     & 0.74982E+01,-0.11326E+02, 0.48194E+01,-0.12036E+01, 0.24630E+00,
     &-0.23005E-01,-0.38411E-02,-0.56529E-02,-0.25411E-02,-0.25694E-03,
     & 0.72783E-03,-0.28816E-03
     & /
       real p78(0:11)
       data p78/
     & 0.77335E+01,-0.11697E+02, 0.49994E+01,-0.12574E+01, 0.25754E+00,
     &-0.24732E-01,-0.38715E-02,-0.57380E-02,-0.25481E-02,-0.23661E-03,
     & 0.75710E-03,-0.30453E-03
     & /
       real p79(0:11)
       data p79/
     & 0.79727E+01,-0.12074E+02, 0.51831E+01,-0.13126E+01, 0.26915E+00,
     &-0.26524E-01,-0.38942E-02,-0.58225E-02,-0.25545E-02,-0.21610E-03,
     & 0.78664E-03,-0.32146E-03
     & /
       real p80(0:11)
       data p80/
     & 0.82158E+01,-0.12458E+02, 0.53706E+01,-0.13692E+01, 0.28113E+00,
     &-0.28384E-01,-0.39088E-02,-0.59065E-02,-0.25601E-02,-0.19541E-03,
     & 0.81644E-03,-0.33897E-03
     & /
       real p81(0:11)
       data p81/
     & 0.84628E+01,-0.12849E+02, 0.55619E+01,-0.14274E+01, 0.29348E+00,
     &-0.30312E-01,-0.39152E-02,-0.59899E-02,-0.25650E-02,-0.17455E-03,
     & 0.84651E-03,-0.35705E-03
     & /
       real p82(0:11)
       data p82/
     & 0.87137E+01,-0.13246E+02, 0.57571E+01,-0.14870E+01, 0.30620E+00,
     &-0.32310E-01,-0.39130E-02,-0.60728E-02,-0.25693E-02,-0.15355E-03,
     & 0.87684E-03,-0.37570E-03
     & /
       real p83(0:11)
       data p83/
     & 0.89685E+01,-0.13650E+02, 0.59562E+01,-0.15481E+01, 0.31931E+00,
     &-0.34379E-01,-0.39021E-02,-0.61552E-02,-0.25728E-02,-0.13240E-03,
     & 0.90744E-03,-0.39493E-03
     & /
       real p84(0:11)
       data p84/
     & 0.92272E+01,-0.14060E+02, 0.61591E+01,-0.16108E+01, 0.33280E+00,
     &-0.36520E-01,-0.38821E-02,-0.62371E-02,-0.25758E-02,-0.11112E-03,
     & 0.93829E-03,-0.41474E-03
     & /
       real p85(0:11)
       data p85/
     & 0.94899E+01,-0.14477E+02, 0.63659E+01,-0.16750E+01, 0.34669E+00,
     &-0.38734E-01,-0.38528E-02,-0.63187E-02,-0.25781E-02,-0.89729E-04,
     & 0.96941E-03,-0.43513E-03
     & /
       real p86(0:11)
       data p86/
     & 0.97564E+01,-0.14901E+02, 0.65765E+01,-0.17407E+01, 0.36097E+00,
     &-0.41023E-01,-0.38139E-02,-0.63998E-02,-0.25798E-02,-0.68223E-04,
     & 0.10008E-02,-0.45609E-03
     & /
       real p87(0:11)
       data p87/
     & 0.10027E+02,-0.15331E+02, 0.67911E+01,-0.18080E+01, 0.37566E+00,
     &-0.43389E-01,-0.37652E-02,-0.64807E-02,-0.25808E-02,-0.46617E-04,
     & 0.10324E-02,-0.47764E-03
     & /
       real p88(0:11)
       data p88/
     & 0.10301E+02,-0.15767E+02, 0.70096E+01,-0.18768E+01, 0.39075E+00,
     &-0.45831E-01,-0.37065E-02,-0.65612E-02,-0.25813E-02,-0.24920E-04,
     & 0.10643E-02,-0.49976E-03
     & /
       real p89(0:11)
       data p89/
     & 0.10580E+02,-0.16211E+02, 0.72320E+01,-0.19472E+01, 0.40626E+00,
     &-0.48352E-01,-0.36374E-02,-0.66415E-02,-0.25812E-02,-0.31416E-05,
     & 0.10965E-02,-0.52246E-03
     & /
       real p90(0:11)
       data p90/
     & 0.10862E+02,-0.16661E+02, 0.74583E+01,-0.20191E+01, 0.42218E+00,
     &-0.50952E-01,-0.35577E-02,-0.67215E-02,-0.25805E-02, 0.18710E-04,
     & 0.11289E-02,-0.54575E-03
     & /
       real p91(0:11)
       data p91/
     & 0.11148E+02,-0.17117E+02, 0.76885E+01,-0.20927E+01, 0.43852E+00,
     &-0.53634E-01,-0.34673E-02,-0.68014E-02,-0.25793E-02, 0.40625E-04,
     & 0.11616E-02,-0.56961E-03
     & /
       real p92(0:11)
       data p92/
     & 0.11438E+02,-0.17580E+02, 0.79227E+01,-0.21678E+01, 0.45529E+00,
     &-0.56398E-01,-0.33657E-02,-0.68811E-02,-0.25775E-02, 0.62596E-04,
     & 0.11945E-02,-0.59406E-03
     & /
       real p93(0:11)
       data p93/
     & 0.11732E+02,-0.18050E+02, 0.81609E+01,-0.22446E+01, 0.47250E+00,
     &-0.59246E-01,-0.32527E-02,-0.69606E-02,-0.25751E-02, 0.84623E-04,
     & 0.12278E-02,-0.61910E-03
     & /
       real p94(0:11)
       data p94/
     & 0.12030E+02,-0.18527E+02, 0.84031E+01,-0.23230E+01, 0.49015E+00,
     &-0.62180E-01,-0.31279E-02,-0.70402E-02,-0.25722E-02, 0.10671E-03,
     & 0.12612E-02,-0.64474E-03
     & /
       real p95(0:11)
       data p95/
     & 0.12332E+02,-0.19010E+02, 0.86495E+01,-0.24031E+01, 0.50825E+00,
     &-0.65204E-01,-0.29911E-02,-0.71197E-02,-0.25687E-02, 0.12884E-03,
     & 0.12950E-02,-0.67098E-03
     & /
       real p96(0:11)
       data p96/
     & 0.12638E+02,-0.19501E+02, 0.89001E+01,-0.24849E+01, 0.52681E+00,
     &-0.68317E-01,-0.28419E-02,-0.71992E-02,-0.25647E-02, 0.15101E-03,
     & 0.13291E-02,-0.69782E-03
     & /
       real p97(0:10)
       data p97/
     & 0.12948E+02,-0.19998E+02, 0.91547E+01,-0.25684E+01, 0.54584E+00,
     &-0.71521E-01,-0.26800E-02,-0.72788E-02,-0.25602E-02, 0.17322E-03,
     & 0.13634E-02
     & /
       real p98(0:10)
       data p98/
     & 0.13263E+02,-0.20502E+02, 0.94135E+01,-0.26536E+01, 0.56533E+00,
     &-0.74817E-01,-0.25053E-02,-0.73584E-02,-0.25551E-02, 0.19545E-03,
     & 0.13980E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  10,  10
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.11) param(i,15) = p15(i)
             if (i.le.11) param(i,16) = p16(i)
             if (i.le.11) param(i,17) = p17(i)
             if (i.le.11) param(i,18) = p18(i)
             if (i.le.11) param(i,19) = p19(i)
             if (i.le.11) param(i,20) = p20(i)
             if (i.le.11) param(i,21) = p21(i)
             if (i.le.11) param(i,22) = p22(i)
             if (i.le.11) param(i,23) = p23(i)
             if (i.le.12) param(i,24) = p24(i)
             if (i.le.12) param(i,25) = p25(i)
             if (i.le.12) param(i,26) = p26(i)
             if (i.le.12) param(i,27) = p27(i)
             if (i.le.12) param(i,28) = p28(i)
             if (i.le.12) param(i,29) = p29(i)
             if (i.le.12) param(i,30) = p30(i)
             if (i.le.12) param(i,31) = p31(i)
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.11) param(i,35) = p35(i)
             if (i.le.11) param(i,36) = p36(i)
             if (i.le.11) param(i,37) = p37(i)
             if (i.le.11) param(i,38) = p38(i)
             if (i.le.11) param(i,39) = p39(i)
             if (i.le.11) param(i,40) = p40(i)
             if (i.le.11) param(i,41) = p41(i)
             if (i.le.11) param(i,42) = p42(i)
             if (i.le.11) param(i,43) = p43(i)
             if (i.le.11) param(i,44) = p44(i)
             if (i.le.11) param(i,45) = p45(i)
             if (i.le.11) param(i,46) = p46(i)
             if (i.le.11) param(i,47) = p47(i)
             if (i.le.11) param(i,48) = p48(i)
             if (i.le.11) param(i,49) = p49(i)
             if (i.le.11) param(i,50) = p50(i)
             if (i.le.11) param(i,51) = p51(i)
             if (i.le.11) param(i,52) = p52(i)
             if (i.le.11) param(i,53) = p53(i)
             if (i.le.11) param(i,54) = p54(i)
             if (i.le.11) param(i,55) = p55(i)
             if (i.le.11) param(i,56) = p56(i)
             if (i.le.11) param(i,57) = p57(i)
             if (i.le.11) param(i,58) = p58(i)
             if (i.le.11) param(i,59) = p59(i)
             if (i.le.11) param(i,60) = p60(i)
             if (i.le.11) param(i,61) = p61(i)
             if (i.le.11) param(i,62) = p62(i)
             if (i.le.11) param(i,63) = p63(i)
             if (i.le.11) param(i,64) = p64(i)
             if (i.le.11) param(i,65) = p65(i)
             if (i.le.11) param(i,66) = p66(i)
             if (i.le.11) param(i,67) = p67(i)
             if (i.le.11) param(i,68) = p68(i)
             if (i.le.11) param(i,69) = p69(i)
             if (i.le.11) param(i,70) = p70(i)
             if (i.le.11) param(i,71) = p71(i)
             if (i.le.11) param(i,72) = p72(i)
             if (i.le.11) param(i,73) = p73(i)
             if (i.le.11) param(i,74) = p74(i)
             if (i.le.11) param(i,75) = p75(i)
             if (i.le.11) param(i,76) = p76(i)
             if (i.le.11) param(i,77) = p77(i)
             if (i.le.11) param(i,78) = p78(i)
             if (i.le.11) param(i,79) = p79(i)
             if (i.le.11) param(i,80) = p80(i)
             if (i.le.11) param(i,81) = p81(i)
             if (i.le.11) param(i,82) = p82(i)
             if (i.le.11) param(i,83) = p83(i)
             if (i.le.11) param(i,84) = p84(i)
             if (i.le.11) param(i,85) = p85(i)
             if (i.le.11) param(i,86) = p86(i)
             if (i.le.11) param(i,87) = p87(i)
             if (i.le.11) param(i,88) = p88(i)
             if (i.le.11) param(i,89) = p89(i)
             if (i.le.11) param(i,90) = p90(i)
             if (i.le.11) param(i,91) = p91(i)
             if (i.le.11) param(i,92) = p92(i)
             if (i.le.11) param(i,93) = p93(i)
             if (i.le.11) param(i,94) = p94(i)
             if (i.le.11) param(i,95) = p95(i)
             if (i.le.11) param(i,96) = p96(i)
             if (i.le.10) param(i,97) = p97(i)
             if (i.le.10) param(i,98) = p98(i)
          enddo
       endif
            
       sbarhiq2ms=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
       sbarhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) sbarhiq2ms=0.0
       if (q2.lt.q2min) sbarhiq2ms=0.0
       if ( x.gt. xmax) sbarhiq2ms=0.0
       if ( x.lt. xmin) sbarhiq2ms=0.0
       return
       end
       real function  cbarhiq2ms(xin,q2in)
***********************************************************
c  parametrization of cbarhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0: 8)
       data p15/
     & 0.14170E-01,-0.16752E-01, 0.25733E-02,-0.75421E-03, 0.37410E-03,
     & 0.28803E-03, 0.15612E-03, 0.34475E-04,-0.23063E-04
     & /
       real p16(0: 8)
       data p16/
     & 0.27157E-01,-0.33900E-01, 0.65083E-02,-0.72459E-03, 0.60379E-03,
     & 0.34554E-03, 0.13115E-03,-0.93067E-05,-0.49618E-04
     & /
       real p17(0: 8)
       data p17/
     & 0.43082E-01,-0.55187E-01, 0.11731E-01,-0.79643E-03, 0.86571E-03,
     & 0.40099E-03, 0.97119E-04,-0.59863E-04,-0.78375E-04
     & /
       real p18(0: 8)
       data p18/
     & 0.61505E-01,-0.80080E-01, 0.18190E-01,-0.10034E-02, 0.11508E-02,
     & 0.45054E-03, 0.55083E-04,-0.11484E-03,-0.10782E-03
     & /
       real p19(0: 8)
       data p19/
     & 0.82499E-01,-0.10872E+00, 0.25984E-01,-0.13767E-02, 0.14603E-02,
     & 0.49313E-03, 0.52405E-05,-0.17374E-03,-0.13764E-03
     & /
       real p20(0: 8)
       data p20/
     & 0.10614E+00,-0.14124E+00, 0.35204E-01,-0.19473E-02, 0.17960E-02,
     & 0.52779E-03,-0.52164E-04,-0.23608E-03,-0.16755E-03
     & /
       real p21(0: 9)
       data p21/
     & 0.13248E+00,-0.17777E+00, 0.45941E-01,-0.27467E-02, 0.21601E-02,
     & 0.55367E-03,-0.11685E-03,-0.30143E-03,-0.19733E-03,-0.58129E-04
     & /
       real p22(0: 9)
       data p22/
     & 0.16160E+00,-0.21843E+00, 0.58280E-01,-0.38061E-02, 0.25553E-02,
     & 0.56998E-03,-0.18852E-03,-0.36939E-03,-0.22676E-03,-0.58469E-04
     & /
       real p23(0:10)
       data p23/
     & 0.19355E+00,-0.26333E+00, 0.72305E-01,-0.51567E-02, 0.29849E-02,
     & 0.57597E-03,-0.26685E-03,-0.43958E-03,-0.25568E-03,-0.57628E-04,
     & 0.32519E-04
     & /
       real p24(0:10)
       data p24/
     & 0.22838E+00,-0.31258E+00, 0.88097E-01,-0.68296E-02, 0.34522E-02,
     & 0.57097E-03,-0.35149E-03,-0.51167E-03,-0.28393E-03,-0.55606E-04,
     & 0.43488E-04
     & /
       real p25(0:10)
       data p25/
     & 0.26616E+00,-0.36629E+00, 0.10573E+00,-0.88555E-02, 0.39613E-02,
     & 0.55432E-03,-0.44212E-03,-0.58533E-03,-0.31140E-03,-0.52411E-04,
     & 0.55197E-04
     & /
       real p26(0:11)
       data p26/
     & 0.30693E+00,-0.42456E+00, 0.12529E+00,-0.11265E-01, 0.45162E-02,
     & 0.52537E-03,-0.53838E-03,-0.66028E-03,-0.33799E-03,-0.48060E-04,
     & 0.67606E-04, 0.42451E-04
     & /
       real p27(0:11)
       data p27/
     & 0.35074E+00,-0.48747E+00, 0.14683E+00,-0.14088E-01, 0.51215E-02,
     & 0.48350E-03,-0.63992E-03,-0.73625E-03,-0.36360E-03,-0.42574E-04,
     & 0.80678E-04, 0.47234E-04
     & /
       real p28(0:11)
       data p28/
     & 0.39763E+00,-0.55512E+00, 0.17043E+00,-0.17355E-01, 0.57818E-02,
     & 0.42810E-03,-0.74639E-03,-0.81299E-03,-0.38816E-03,-0.35978E-04,
     & 0.94374E-04, 0.51795E-04
     & /
       real p29(0:11)
       data p29/
     & 0.44765E+00,-0.62760E+00, 0.19616E+00,-0.21094E-01, 0.65021E-02,
     & 0.35854E-03,-0.85744E-03,-0.89029E-03,-0.41162E-03,-0.28299E-04,
     & 0.10866E-03, 0.56106E-04
     & /
       real p30(0:11)
       data p30/
     & 0.50083E+00,-0.70498E+00, 0.22408E+00,-0.25336E-01, 0.72875E-02,
     & 0.27420E-03,-0.97274E-03,-0.96795E-03,-0.43393E-03,-0.19568E-04,
     & 0.12350E-03, 0.60136E-04
     & /
       real p31(0:11)
       data p31/
     & 0.52449E+00,-0.73952E+00, 0.23672E+00,-0.27331E-01, 0.76449E-02,
     & 0.23362E-03,-0.10223E-02,-0.10007E-02,-0.44305E-03,-0.15633E-04,
     & 0.12993E-03, 0.61739E-04
     & /
       real p32(0:11)
       data p32/
     & 0.55915E+00,-0.79017E+00, 0.25533E+00,-0.30294E-01, 0.81736E-02,
     & 0.17146E-03,-0.10951E-02,-0.10480E-02,-0.45580E-03,-0.96310E-05,
     & 0.13932E-03, 0.63967E-04
     & /
       real p33(0:12)
       data p33/
     & 0.61884E+00,-0.87765E+00, 0.28783E+00,-0.35624E-01, 0.91055E-02,
     & 0.56219E-04,-0.12178E-02,-0.11260E-02,-0.47585E-03, 0.10484E-05,
     & 0.15518E-03, 0.67378E-04, 0.64876E-04
     & /
       real p34(0:12)
       data p34/
     & 0.68180E+00,-0.97026E+00, 0.32269E+00,-0.41536E-01, 0.10118E-01,
     &-0.75616E-04,-0.13438E-02,-0.12039E-02,-0.49466E-03, 0.12690E-04,
     & 0.17153E-03, 0.70445E-04, 0.69139E-04
     & /
       real p35(0:12)
       data p35/
     & 0.74807E+00,-0.10680E+01, 0.35997E+00,-0.48059E-01, 0.11218E-01,
     &-0.22473E-03,-0.14728E-02,-0.12815E-02,-0.51224E-03, 0.25260E-04,
     & 0.18833E-03, 0.73144E-04, 0.73422E-04
     & /
       real p36(0:12)
       data p36/
     & 0.81768E+00,-0.11711E+01, 0.39974E+00,-0.55219E-01, 0.12410E-01,
     &-0.39184E-03,-0.16044E-02,-0.13588E-02,-0.52855E-03, 0.38726E-04,
     & 0.20556E-03, 0.75458E-04, 0.77728E-04
     & /
       real p37(0:12)
       data p37/
     & 0.89067E+00,-0.12795E+01, 0.44203E+00,-0.63045E-01, 0.13700E-01,
     &-0.57767E-03,-0.17385E-02,-0.14355E-02,-0.54360E-03, 0.53054E-04,
     & 0.22320E-03, 0.77367E-04, 0.82062E-04
     & /
       real p38(0:12)
       data p38/
     & 0.96707E+00,-0.13932E+01, 0.48691E+00,-0.71563E-01, 0.15096E-01,
     &-0.78296E-03,-0.18745E-02,-0.15117E-02,-0.55738E-03, 0.68209E-04,
     & 0.24122E-03, 0.78854E-04, 0.86428E-04
     & /
       real p39(0:12)
       data p39/
     & 0.10469E+01,-0.15124E+01, 0.53444E+00,-0.80800E-01, 0.16602E-01,
     &-0.10085E-02,-0.20123E-02,-0.15872E-02,-0.56988E-03, 0.84157E-04,
     & 0.25961E-03, 0.79905E-04, 0.90832E-04
     & /
       real p40(0:12)
       data p40/
     & 0.11302E+01,-0.16372E+01, 0.58465E+00,-0.90782E-01, 0.18226E-01,
     &-0.12550E-02,-0.21515E-02,-0.16618E-02,-0.58112E-03, 0.10086E-03,
     & 0.27833E-03, 0.80505E-04, 0.95280E-04
     & /
       real p41(0:12)
       data p41/
     & 0.12170E+01,-0.17674E+01, 0.63760E+00,-0.10153E+00, 0.19974E-01,
     &-0.15235E-02,-0.22919E-02,-0.17356E-02,-0.59111E-03, 0.11830E-03,
     & 0.29739E-03, 0.80641E-04, 0.99777E-04
     & /
       real p42(0:12)
       data p42/
     & 0.13073E+01,-0.19033E+01, 0.69334E+00,-0.11308E+00, 0.21852E-01,
     &-0.18145E-02,-0.24331E-02,-0.18085E-02,-0.59984E-03, 0.13643E-03,
     & 0.31675E-03, 0.80301E-04, 0.10433E-03
     & /
       real p43(0:12)
       data p43/
     & 0.14012E+01,-0.20449E+01, 0.75190E+00,-0.12545E+00, 0.23867E-01,
     &-0.21292E-02,-0.25748E-02,-0.18803E-02,-0.60734E-03, 0.15522E-03,
     & 0.33641E-03, 0.79475E-04, 0.10894E-03
     & /
       real p44(0:12)
       data p44/
     & 0.14986E+01,-0.21922E+01, 0.81335E+00,-0.13867E+00, 0.26025E-01,
     &-0.24682E-02,-0.27168E-02,-0.19511E-02,-0.61362E-03, 0.17463E-03,
     & 0.35634E-03, 0.78151E-04, 0.11363E-03
     & /
       real p45(0:12)
       data p45/
     & 0.15996E+01,-0.23453E+01, 0.87771E+00,-0.15275E+00, 0.28333E-01,
     &-0.28326E-02,-0.28588E-02,-0.20208E-02,-0.61870E-03, 0.19465E-03,
     & 0.37655E-03, 0.76320E-04, 0.11839E-03
     & /
       real p46(0:12)
       data p46/
     & 0.17042E+01,-0.25041E+01, 0.94504E+00,-0.16772E+00, 0.30798E-01,
     &-0.32233E-02,-0.30005E-02,-0.20893E-02,-0.62259E-03, 0.21523E-03,
     & 0.39700E-03, 0.73975E-04, 0.12323E-03
     & /
       real p47(0:12)
       data p47/
     & 0.18125E+01,-0.26689E+01, 0.10154E+01,-0.18362E+00, 0.33426E-01,
     &-0.36411E-02,-0.31416E-02,-0.21567E-02,-0.62532E-03, 0.23636E-03,
     & 0.41770E-03, 0.71107E-04, 0.12816E-03
     & /
       real p48(0:12)
       data p48/
     & 0.19244E+01,-0.28395E+01, 0.10887E+01,-0.20045E+00, 0.36224E-01,
     &-0.40871E-02,-0.32819E-02,-0.22228E-02,-0.62690E-03, 0.25799E-03,
     & 0.43864E-03, 0.67708E-04, 0.13318E-03
     & /
       real p49(0:12)
       data p49/
     & 0.20399E+01,-0.30161E+01, 0.11652E+01,-0.21824E+00, 0.39199E-01,
     &-0.45623E-02,-0.34211E-02,-0.22877E-02,-0.62736E-03, 0.28010E-03,
     & 0.45979E-03, 0.63773E-04, 0.13831E-03
     & /
       real p50(0:12)
       data p50/
     & 0.21592E+01,-0.31986E+01, 0.12448E+01,-0.23702E+00, 0.42357E-01,
     &-0.50677E-02,-0.35588E-02,-0.23513E-02,-0.62672E-03, 0.30267E-03,
     & 0.48116E-03, 0.59296E-04, 0.14355E-03
     & /
       real p51(0:12)
       data p51/
     & 0.22822E+01,-0.33872E+01, 0.13275E+01,-0.25680E+00, 0.45705E-01,
     &-0.56042E-02,-0.36950E-02,-0.24137E-02,-0.62500E-03, 0.32567E-03,
     & 0.50273E-03, 0.54270E-04, 0.14890E-03
     & /
       real p52(0:12)
       data p52/
     & 0.24089E+01,-0.35818E+01, 0.14134E+01,-0.27760E+00, 0.49249E-01,
     &-0.61731E-02,-0.38292E-02,-0.24747E-02,-0.62222E-03, 0.34906E-03,
     & 0.52451E-03, 0.48692E-04, 0.15437E-03
     & /
       real p53(0:12)
       data p53/
     & 0.25393E+01,-0.37825E+01, 0.15025E+01,-0.29945E+00, 0.52997E-01,
     &-0.67752E-02,-0.39613E-02,-0.25345E-02,-0.61841E-03, 0.37284E-03,
     & 0.54647E-03, 0.42555E-04, 0.15998E-03
     & /
       real p54(0:12)
       data p54/
     & 0.26735E+01,-0.39893E+01, 0.15949E+01,-0.32237E+00, 0.56955E-01,
     &-0.74117E-02,-0.40909E-02,-0.25929E-02,-0.61360E-03, 0.39697E-03,
     & 0.56862E-03, 0.35856E-04, 0.16572E-03
     & /
       real p55(0:12)
       data p55/
     & 0.28114E+01,-0.42023E+01, 0.16906E+01,-0.34638E+00, 0.61129E-01,
     &-0.80837E-02,-0.42179E-02,-0.26501E-02,-0.60780E-03, 0.42143E-03,
     & 0.59095E-03, 0.28592E-04, 0.17161E-03
     & /
       real p56(0:12)
       data p56/
     & 0.29531E+01,-0.44214E+01, 0.17896E+01,-0.37149E+00, 0.65527E-01,
     &-0.87923E-02,-0.43419E-02,-0.27060E-02,-0.60104E-03, 0.44620E-03,
     & 0.61346E-03, 0.20758E-04, 0.17764E-03
     & /
       real p57(0:12)
       data p57/
     & 0.30986E+01,-0.46468E+01, 0.18919E+01,-0.39773E+00, 0.70154E-01,
     &-0.95386E-02,-0.44628E-02,-0.27605E-02,-0.59334E-03, 0.47126E-03,
     & 0.63613E-03, 0.12352E-04, 0.18384E-03
     & /
       real p58(0:12)
       data p58/
     & 0.32480E+01,-0.48784E+01, 0.19976E+01,-0.42511E+00, 0.75017E-01,
     &-0.10324E-01,-0.45802E-02,-0.28138E-02,-0.58473E-03, 0.49658E-03,
     & 0.65898E-03, 0.33699E-05, 0.19019E-03
     & /
       real p59(0:12)
       data p59/
     & 0.34011E+01,-0.51162E+01, 0.21067E+01,-0.45366E+00, 0.80122E-01,
     &-0.11149E-01,-0.46939E-02,-0.28658E-02,-0.57522E-03, 0.52215E-03,
     & 0.68199E-03,-0.61898E-05, 0.19671E-03
     & /
       real p60(0:10)
       data p60/
     & 0.35580E+01,-0.53604E+01, 0.22192E+01,-0.48338E+00, 0.85477E-01,
     &-0.12015E-01,-0.48037E-02,-0.29166E-02,-0.56486E-03, 0.54795E-03,
     & 0.70515E-03
     & /
       real p61(0:10)
       data p61/
     & 0.37188E+01,-0.56108E+01, 0.23352E+01,-0.51431E+00, 0.91087E-01,
     &-0.12924E-01,-0.49093E-02,-0.29661E-02,-0.55364E-03, 0.57395E-03,
     & 0.72848E-03
     & /
       real p62(0:10)
       data p62/
     & 0.38834E+01,-0.58676E+01, 0.24547E+01,-0.54645E+00, 0.96959E-01,
     &-0.13876E-01,-0.50105E-02,-0.30143E-02,-0.54161E-03, 0.60015E-03,
     & 0.75196E-03
     & /
       real p63(0:10)
       data p63/
     & 0.40519E+01,-0.61307E+01, 0.25777E+01,-0.57982E+00, 0.10310E+00,
     &-0.14873E-01,-0.51070E-02,-0.30614E-02,-0.52878E-03, 0.62651E-03,
     & 0.77560E-03
     & /
       real p64(0:10)
       data p64/
     & 0.42242E+01,-0.64001E+01, 0.27042E+01,-0.61445E+00, 0.10951E+00,
     &-0.15916E-01,-0.51986E-02,-0.31073E-02,-0.51517E-03, 0.65303E-03,
     & 0.79939E-03
     & /
       real p65(0:10)
       data p65/
     & 0.44003E+01,-0.66760E+01, 0.28342E+01,-0.65034E+00, 0.11621E+00,
     &-0.17006E-01,-0.52850E-02,-0.31520E-02,-0.50080E-03, 0.67969E-03,
     & 0.82332E-03
     & /
       real p66(0:10)
       data p66/
     & 0.45804E+01,-0.69583E+01, 0.29678E+01,-0.68751E+00, 0.12319E+00,
     &-0.18144E-01,-0.53660E-02,-0.31956E-02,-0.48570E-03, 0.70648E-03,
     & 0.84741E-03
     & /
       real p67(0:10)
       data p67/
     & 0.47643E+01,-0.72470E+01, 0.31051E+01,-0.72598E+00, 0.13046E+00,
     &-0.19332E-01,-0.54414E-02,-0.32380E-02,-0.46989E-03, 0.73337E-03,
     & 0.87165E-03
     & /
       real p68(0:10)
       data p68/
     & 0.49521E+01,-0.75421E+01, 0.32459E+01,-0.76576E+00, 0.13804E+00,
     &-0.20571E-01,-0.55108E-02,-0.32794E-02,-0.45338E-03, 0.76036E-03,
     & 0.89604E-03
     & /
       real p69(0:10)
       data p69/
     & 0.51438E+01,-0.78437E+01, 0.33904E+01,-0.80687E+00, 0.14592E+00,
     &-0.21862E-01,-0.55741E-02,-0.33197E-02,-0.43620E-03, 0.78743E-03,
     & 0.92057E-03
     & /
       real p70(0:10)
       data p70/
     & 0.53394E+01,-0.81518E+01, 0.35385E+01,-0.84932E+00, 0.15411E+00,
     &-0.23206E-01,-0.56311E-02,-0.33590E-02,-0.41837E-03, 0.81457E-03,
     & 0.94526E-03
     & /
       real p71(0:10)
       data p71/
     & 0.55389E+01,-0.84664E+01, 0.36903E+01,-0.89313E+00, 0.16261E+00,
     &-0.24605E-01,-0.56814E-02,-0.33973E-02,-0.39990E-03, 0.84176E-03,
     & 0.97009E-03
     & /
       real p72(0:10)
       data p72/
     & 0.57423E+01,-0.87874E+01, 0.38458E+01,-0.93831E+00, 0.17144E+00,
     &-0.26060E-01,-0.57248E-02,-0.34347E-02,-0.38082E-03, 0.86899E-03,
     & 0.99507E-03
     & /
       real p73(0:10)
       data p73/
     & 0.59496E+01,-0.91150E+01, 0.40050E+01,-0.98487E+00, 0.18060E+00,
     &-0.27571E-01,-0.57611E-02,-0.34711E-02,-0.36113E-03, 0.89625E-03,
     & 0.10202E-02
     & /
       real p74(0:10)
       data p74/
     & 0.61608E+01,-0.94491E+01, 0.41679E+01,-0.10328E+01, 0.19009E+00,
     &-0.29141E-01,-0.57901E-02,-0.35066E-02,-0.34087E-03, 0.92354E-03,
     & 0.10455E-02
     & /
       real p75(0:10)
       data p75/
     & 0.63759E+01,-0.97897E+01, 0.43346E+01,-0.10822E+01, 0.19992E+00,
     &-0.30771E-01,-0.58114E-02,-0.35412E-02,-0.32004E-03, 0.95082E-03,
     & 0.10709E-02
     & /
       real p76(0:10)
       data p76/
     & 0.65950E+01,-0.10137E+02, 0.45050E+01,-0.11330E+01, 0.21009E+00,
     &-0.32461E-01,-0.58249E-02,-0.35751E-02,-0.29867E-03, 0.97811E-03,
     & 0.10965E-02
     & /
       real p77(0:10)
       data p77/
     & 0.68179E+01,-0.10491E+02, 0.46792E+01,-0.11852E+01, 0.22062E+00,
     &-0.34214E-01,-0.58304E-02,-0.36081E-02,-0.27676E-03, 0.10054E-02,
     & 0.11222E-02
     & /
       real p78(0:10)
       data p78/
     & 0.70448E+01,-0.10851E+02, 0.48571E+01,-0.12389E+01, 0.23150E+00,
     &-0.36030E-01,-0.58275E-02,-0.36404E-02,-0.25434E-03, 0.10326E-02,
     & 0.11481E-02
     & /
       real p79(0:10)
       data p79/
     & 0.72756E+01,-0.11218E+02, 0.50389E+01,-0.12941E+01, 0.24274E+00,
     &-0.37910E-01,-0.58160E-02,-0.36720E-02,-0.23142E-03, 0.10599E-02,
     & 0.11742E-02
     & /
       real p80(0:10)
       data p80/
     & 0.75103E+01,-0.11591E+02, 0.52245E+01,-0.13507E+01, 0.25435E+00,
     &-0.39857E-01,-0.57958E-02,-0.37029E-02,-0.20802E-03, 0.10870E-02,
     & 0.12004E-02
     & /
       real p81(0:10)
       data p81/
     & 0.77490E+01,-0.11971E+02, 0.54139E+01,-0.14088E+01, 0.26634E+00,
     &-0.41870E-01,-0.57665E-02,-0.37331E-02,-0.18414E-03, 0.11142E-02,
     & 0.12268E-02
     & /
       real p82(0:10)
       data p82/
     & 0.79915E+01,-0.12358E+02, 0.56072E+01,-0.14684E+01, 0.27870E+00,
     &-0.43953E-01,-0.57279E-02,-0.37628E-02,-0.15981E-03, 0.11412E-02,
     & 0.12533E-02
     & /
       real p83(0:10)
       data p83/
     & 0.82380E+01,-0.12751E+02, 0.58043E+01,-0.15295E+01, 0.29144E+00,
     &-0.46105E-01,-0.56798E-02,-0.37919E-02,-0.13503E-03, 0.11682E-02,
     & 0.12800E-02
     & /
       real p84(0:10)
       data p84/
     & 0.84884E+01,-0.13151E+02, 0.60053E+01,-0.15921E+01, 0.30457E+00,
     &-0.48327E-01,-0.56219E-02,-0.38205E-02,-0.10983E-03, 0.11951E-02,
     & 0.13068E-02
     & /
       real p85(0:10)
       data p85/
     & 0.87428E+01,-0.13557E+02, 0.62101E+01,-0.16563E+01, 0.31810E+00,
     &-0.50623E-01,-0.55540E-02,-0.38487E-02,-0.84207E-04, 0.12220E-02,
     & 0.13338E-02
     & /
       real p86(0:10)
       data p86/
     & 0.90010E+01,-0.13970E+02, 0.64188E+01,-0.17220E+01, 0.33202E+00,
     &-0.52991E-01,-0.54758E-02,-0.38764E-02,-0.58180E-04, 0.12487E-02,
     & 0.13610E-02
     & /
       real p87(0:10)
       data p87/
     & 0.92632E+01,-0.14389E+02, 0.66315E+01,-0.17892E+01, 0.34634E+00,
     &-0.55435E-01,-0.53871E-02,-0.39037E-02,-0.31759E-04, 0.12754E-02,
     & 0.13884E-02
     & /
       real p88(0:10)
       data p88/
     & 0.95293E+01,-0.14816E+02, 0.68480E+01,-0.18580E+01, 0.36108E+00,
     &-0.57954E-01,-0.52877E-02,-0.39306E-02,-0.49567E-05, 0.13020E-02,
     & 0.14159E-02
     & /
       real p89(0:10)
       data p89/
     & 0.97993E+01,-0.15248E+02, 0.70684E+01,-0.19284E+01, 0.37622E+00,
     &-0.60551E-01,-0.51774E-02,-0.39573E-02, 0.22216E-04, 0.13284E-02,
     & 0.14436E-02
     & /
       real p90(0:10)
       data p90/
     & 0.10073E+02,-0.15688E+02, 0.72928E+01,-0.20003E+01, 0.39178E+00,
     &-0.63226E-01,-0.50557E-02,-0.39837E-02, 0.49750E-04, 0.13547E-02,
     & 0.14715E-02
     & /
       real p91(0:10)
       data p91/
     & 0.10351E+02,-0.16134E+02, 0.75211E+01,-0.20738E+01, 0.40777E+00,
     &-0.65981E-01,-0.49227E-02,-0.40099E-02, 0.77633E-04, 0.13809E-02,
     & 0.14995E-02
     & /
       real p92(0:10)
       data p92/
     & 0.10633E+02,-0.16586E+02, 0.77533E+01,-0.21490E+01, 0.42418E+00,
     &-0.68817E-01,-0.47779E-02,-0.40359E-02, 0.10586E-03, 0.14070E-02,
     & 0.15277E-02
     & /
       real p93(0:10)
       data p93/
     & 0.10919E+02,-0.17046E+02, 0.79896E+01,-0.22257E+01, 0.44102E+00,
     &-0.71737E-01,-0.46210E-02,-0.40618E-02, 0.13442E-03, 0.14330E-02,
     & 0.15562E-02
     & /
       real p94(0:10)
       data p94/
     & 0.11209E+02,-0.17512E+02, 0.82299E+01,-0.23041E+01, 0.45832E+00,
     &-0.74742E-01,-0.44518E-02,-0.40876E-02, 0.16333E-03, 0.14588E-02,
     & 0.15848E-02
     & /
       real p95(0:10)
       data p95/
     & 0.11502E+02,-0.17985E+02, 0.84744E+01,-0.23842E+01, 0.47606E+00,
     &-0.77834E-01,-0.42698E-02,-0.41133E-02, 0.19257E-03, 0.14845E-02,
     & 0.16136E-02
     & /
       real p96(0:10)
       data p96/
     & 0.11800E+02,-0.18465E+02, 0.87229E+01,-0.24660E+01, 0.49427E+00,
     &-0.81014E-01,-0.40749E-02,-0.41390E-02, 0.22214E-03, 0.15100E-02,
     & 0.16426E-02
     & /
       real p97(0:10)
       data p97/
     & 0.12102E+02,-0.18952E+02, 0.89757E+01,-0.25495E+01, 0.51294E+00,
     &-0.84285E-01,-0.38667E-02,-0.41648E-02, 0.25202E-03, 0.15354E-02,
     & 0.16718E-02
     & /
       real p98(0:10)
       data p98/
     & 0.12409E+02,-0.19446E+02, 0.92325E+01,-0.26347E+01, 0.53208E+00,
     &-0.87647E-01,-0.36449E-02,-0.41907E-02, 0.28222E-03, 0.15607E-02,
     & 0.17012E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,   8,   8,   8,   8,   8,   8,   9
     &,   9,  10,  10,  10,  11,  11,  11,  11,  11,  11
     &,  11,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le. 8) param(i,15) = p15(i)
             if (i.le. 8) param(i,16) = p16(i)
             if (i.le. 8) param(i,17) = p17(i)
             if (i.le. 8) param(i,18) = p18(i)
             if (i.le. 8) param(i,19) = p19(i)
             if (i.le. 8) param(i,20) = p20(i)
             if (i.le. 9) param(i,21) = p21(i)
             if (i.le. 9) param(i,22) = p22(i)
             if (i.le.10) param(i,23) = p23(i)
             if (i.le.10) param(i,24) = p24(i)
             if (i.le.10) param(i,25) = p25(i)
             if (i.le.11) param(i,26) = p26(i)
             if (i.le.11) param(i,27) = p27(i)
             if (i.le.11) param(i,28) = p28(i)
             if (i.le.11) param(i,29) = p29(i)
             if (i.le.11) param(i,30) = p30(i)
             if (i.le.11) param(i,31) = p31(i)
             if (i.le.11) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.12) param(i,35) = p35(i)
             if (i.le.12) param(i,36) = p36(i)
             if (i.le.12) param(i,37) = p37(i)
             if (i.le.12) param(i,38) = p38(i)
             if (i.le.12) param(i,39) = p39(i)
             if (i.le.12) param(i,40) = p40(i)
             if (i.le.12) param(i,41) = p41(i)
             if (i.le.12) param(i,42) = p42(i)
             if (i.le.12) param(i,43) = p43(i)
             if (i.le.12) param(i,44) = p44(i)
             if (i.le.12) param(i,45) = p45(i)
             if (i.le.12) param(i,46) = p46(i)
             if (i.le.12) param(i,47) = p47(i)
             if (i.le.12) param(i,48) = p48(i)
             if (i.le.12) param(i,49) = p49(i)
             if (i.le.12) param(i,50) = p50(i)
             if (i.le.12) param(i,51) = p51(i)
             if (i.le.12) param(i,52) = p52(i)
             if (i.le.12) param(i,53) = p53(i)
             if (i.le.12) param(i,54) = p54(i)
             if (i.le.12) param(i,55) = p55(i)
             if (i.le.12) param(i,56) = p56(i)
             if (i.le.12) param(i,57) = p57(i)
             if (i.le.12) param(i,58) = p58(i)
             if (i.le.12) param(i,59) = p59(i)
             if (i.le.10) param(i,60) = p60(i)
             if (i.le.10) param(i,61) = p61(i)
             if (i.le.10) param(i,62) = p62(i)
             if (i.le.10) param(i,63) = p63(i)
             if (i.le.10) param(i,64) = p64(i)
             if (i.le.10) param(i,65) = p65(i)
             if (i.le.10) param(i,66) = p66(i)
             if (i.le.10) param(i,67) = p67(i)
             if (i.le.10) param(i,68) = p68(i)
             if (i.le.10) param(i,69) = p69(i)
             if (i.le.10) param(i,70) = p70(i)
             if (i.le.10) param(i,71) = p71(i)
             if (i.le.10) param(i,72) = p72(i)
             if (i.le.10) param(i,73) = p73(i)
             if (i.le.10) param(i,74) = p74(i)
             if (i.le.10) param(i,75) = p75(i)
             if (i.le.10) param(i,76) = p76(i)
             if (i.le.10) param(i,77) = p77(i)
             if (i.le.10) param(i,78) = p78(i)
             if (i.le.10) param(i,79) = p79(i)
             if (i.le.10) param(i,80) = p80(i)
             if (i.le.10) param(i,81) = p81(i)
             if (i.le.10) param(i,82) = p82(i)
             if (i.le.10) param(i,83) = p83(i)
             if (i.le.10) param(i,84) = p84(i)
             if (i.le.10) param(i,85) = p85(i)
             if (i.le.10) param(i,86) = p86(i)
             if (i.le.10) param(i,87) = p87(i)
             if (i.le.10) param(i,88) = p88(i)
             if (i.le.10) param(i,89) = p89(i)
             if (i.le.10) param(i,90) = p90(i)
             if (i.le.10) param(i,91) = p91(i)
             if (i.le.10) param(i,92) = p92(i)
             if (i.le.10) param(i,93) = p93(i)
             if (i.le.10) param(i,94) = p94(i)
             if (i.le.10) param(i,95) = p95(i)
             if (i.le.10) param(i,96) = p96(i)
             if (i.le.10) param(i,97) = p97(i)
             if (i.le.10) param(i,98) = p98(i)
          enddo
       endif
            
       cbarhiq2ms=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
       cbarhiq2ms=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) cbarhiq2ms=0.0
       if (q2.lt.q2min) cbarhiq2ms=0.0
       if ( x.gt. xmax) cbarhiq2ms=0.0
       if ( x.lt. xmin) cbarhiq2ms=0.0
       return
       end
       real function  bbarhiq2ms(xin,q2in)
***********************************************************
c  parametrization of bbarhiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.000 >= q2 >=      26.879
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.879,q2max=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /     26.879
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p32(0:12)
       data p32/
     & 0.23882E+01,-0.35276E+01, 0.13511E+01,-0.23913E+00, 0.38417E-01,
     &-0.44146E-02,-0.40753E-02,-0.27349E-02,-0.81653E-03, 0.30634E-03,
     & 0.56744E-03, 0.12105E-03, 0.18866E-03
     & /
       real p33(0:12)
       data p33/
     & 0.65892E+01,-0.97526E+01, 0.37638E+01,-0.67808E+00, 0.10802E+00,
     &-0.12826E-01,-0.11041E-01,-0.72762E-02,-0.21034E-02, 0.87294E-03,
     & 0.15419E-02, 0.29897E-03, 0.50493E-03
     & /
       real p34(0:12)
       data p34/
     & 0.11126E+02,-0.16500E+02, 0.64147E+01,-0.11755E+01, 0.18598E+00,
     &-0.22720E-01,-0.18295E-01,-0.11848E-01,-0.33135E-02, 0.15153E-02,
     & 0.25639E-02, 0.44800E-03, 0.82802E-03
     & /
       real p35(0:12)
       data p35/
     & 0.16001E+02,-0.23776E+02, 0.93097E+01,-0.17343E+01, 0.27285E+00,
     &-0.34174E-01,-0.25810E-01,-0.16436E-01,-0.44434E-02, 0.22311E-02,
     & 0.36311E-02, 0.56597E-03, 0.11581E-02
     & /
       real p36(0:12)
       data p36/
     & 0.21219E+02,-0.31587E+02, 0.12454E+02,-0.23571E+01, 0.36923E+00,
     &-0.47262E-01,-0.33556E-01,-0.21026E-01,-0.54907E-02, 0.30180E-02,
     & 0.47413E-02, 0.65084E-03, 0.14953E-02
     & /
       real p37(0:12)
       data p37/
     & 0.26782E+02,-0.39941E+02, 0.15854E+02,-0.30468E+01, 0.47572E+00,
     &-0.62063E-01,-0.41504E-01,-0.25607E-01,-0.64531E-02, 0.38735E-02,
     & 0.58927E-02, 0.70076E-03, 0.18400E-02
     & /
       real p38(0:12)
       data p38/
     & 0.32693E+02,-0.48843E+02, 0.19515E+02,-0.38058E+01, 0.59293E+00,
     &-0.78657E-01,-0.49627E-01,-0.30167E-01,-0.73292E-02, 0.47951E-02,
     & 0.70832E-02, 0.71401E-03, 0.21925E-02
     & /
       real p39(0:12)
       data p39/
     & 0.38955E+02,-0.58298E+02, 0.23441E+02,-0.46370E+01, 0.72148E+00,
     &-0.97127E-01,-0.57895E-01,-0.34696E-01,-0.81179E-02, 0.57802E-02,
     & 0.83110E-02, 0.68898E-03, 0.25531E-02
     & /
       real p40(0:12)
       data p40/
     & 0.45571E+02,-0.68314E+02, 0.27637E+02,-0.55429E+01, 0.86200E+00,
     &-0.11756E+00,-0.66281E-01,-0.39186E-01,-0.88187E-02, 0.68262E-02,
     & 0.95746E-02, 0.62420E-03, 0.29224E-02
     & /
       real p41(0:12)
       data p41/
     & 0.52543E+02,-0.78895E+02, 0.32110E+02,-0.65260E+01, 0.10151E+01,
     &-0.14003E+00,-0.74758E-01,-0.43628E-01,-0.94311E-02, 0.79305E-02,
     & 0.10872E-01, 0.51832E-03, 0.33008E-02
     & /
       real p42(0:12)
       data p42/
     & 0.59873E+02,-0.90046E+02, 0.36862E+02,-0.75890E+01, 0.11815E+01,
     &-0.16464E+00,-0.83297E-01,-0.48014E-01,-0.99552E-02, 0.90906E-02,
     & 0.12203E-01, 0.37007E-03, 0.36887E-02
     & /
       real p43(0:12)
       data p43/
     & 0.67565E+02,-0.10177E+03, 0.41900E+02,-0.87342E+01, 0.13618E+01,
     &-0.19147E+00,-0.91873E-01,-0.52339E-01,-0.10391E-01, 0.10304E-01,
     & 0.13565E-01, 0.17829E-03, 0.40867E-02
     & /
       real p44(0:10)
       data p44/
     & 0.75620E+02,-0.11408E+03, 0.47226E+02,-0.99641E+01, 0.15566E+01,
     &-0.22061E+00,-0.10046E+00,-0.56596E-01,-0.10740E-01, 0.11568E-01,
     & 0.14957E-01
     & /
       real p45(0:10)
       data p45/
     & 0.84040E+02,-0.12697E+03, 0.52846E+02,-0.11281E+02, 0.17667E+01,
     &-0.25217E+00,-0.10903E+00,-0.60781E-01,-0.11003E-01, 0.12880E-01,
     & 0.16377E-01
     & /
       real p46(0:10)
       data p46/
     & 0.92827E+02,-0.14045E+03, 0.58764E+02,-0.12688E+02, 0.19926E+01,
     &-0.28623E+00,-0.11755E+00,-0.64888E-01,-0.11179E-01, 0.14238E-01,
     & 0.17826E-01
     & /
       real p47(0:10)
       data p47/
     & 0.10198E+03,-0.15452E+03, 0.64984E+02,-0.14186E+02, 0.22351E+01,
     &-0.32290E+00,-0.12600E+00,-0.68914E-01,-0.11271E-01, 0.15639E-01,
     & 0.19302E-01
     & /
       real p48(0:10)
       data p48/
     & 0.11151E+03,-0.16920E+03, 0.71509E+02,-0.15778E+02, 0.24947E+01,
     &-0.36227E+00,-0.13436E+00,-0.72856E-01,-0.11280E-01, 0.17081E-01,
     & 0.20803E-01
     & /
       real p49(0:10)
       data p49/
     & 0.12141E+03,-0.18447E+03, 0.78344E+02,-0.17467E+02, 0.27722E+01,
     &-0.40445E+00,-0.14260E+00,-0.76711E-01,-0.11207E-01, 0.18561E-01,
     & 0.22329E-01
     & /
       real p50(0:10)
       data p50/
     & 0.13169E+03,-0.20035E+03, 0.85491E+02,-0.19254E+02, 0.30683E+01,
     &-0.44954E+00,-0.15069E+00,-0.80476E-01,-0.11053E-01, 0.20078E-01,
     & 0.23880E-01
     & /
       real p51(0:10)
       data p51/
     & 0.14234E+03,-0.21683E+03, 0.92956E+02,-0.21141E+02, 0.33835E+01,
     &-0.49765E+00,-0.15861E+00,-0.84149E-01,-0.10820E-01, 0.21629E-01,
     & 0.25455E-01
     & /
       real p52(0:10)
       data p52/
     & 0.15337E+03,-0.23393E+03, 0.10074E+03,-0.23132E+02, 0.37186E+01,
     &-0.54888E+00,-0.16634E+00,-0.87730E-01,-0.10510E-01, 0.23212E-01,
     & 0.27052E-01
     & /
       real p53(0:10)
       data p53/
     & 0.16477E+03,-0.25164E+03, 0.10885E+03,-0.25227E+02, 0.40742E+01,
     &-0.60334E+00,-0.17384E+00,-0.91217E-01,-0.10125E-01, 0.24826E-01,
     & 0.28672E-01
     & /
       real p54(0:10)
       data p54/
     & 0.17656E+03,-0.26997E+03, 0.11728E+03,-0.27429E+02, 0.44510E+01,
     &-0.66115E+00,-0.18110E+00,-0.94608E-01,-0.96649E-02, 0.26467E-01,
     & 0.30314E-01
     & /
       real p55(0:10)
       data p55/
     & 0.18873E+03,-0.28893E+03, 0.12605E+03,-0.29739E+02, 0.48495E+01,
     &-0.72242E+00,-0.18809E+00,-0.97905E-01,-0.91328E-02, 0.28134E-01,
     & 0.31977E-01
     & /
       real p56(0:10)
       data p56/
     & 0.20128E+03,-0.30850E+03, 0.13514E+03,-0.32161E+02, 0.52706E+01,
     &-0.78725E+00,-0.19478E+00,-0.10111E+00,-0.85302E-02, 0.29826E-01,
     & 0.33661E-01
     & /
       real p57(0:10)
       data p57/
     & 0.21422E+03,-0.32871E+03, 0.14458E+03,-0.34695E+02, 0.57148E+01,
     &-0.85577E+00,-0.20115E+00,-0.10421E+00,-0.78589E-02, 0.31540E-01,
     & 0.35365E-01
     & /
       real p58(0:10)
       data p58/
     & 0.22754E+03,-0.34954E+03, 0.15435E+03,-0.37344E+02, 0.61828E+01,
     &-0.92809E+00,-0.20718E+00,-0.10722E+00,-0.71204E-02, 0.33275E-01,
     & 0.37090E-01
     & /
       real p59(0:10)
       data p59/
     & 0.24124E+03,-0.37101E+03, 0.16446E+03,-0.40109E+02, 0.66753E+01,
     &-0.10043E+01,-0.21284E+00,-0.11014E+00,-0.63168E-02, 0.35028E-01,
     & 0.38835E-01
     & /
       real p60(0:10)
       data p60/
     & 0.25534E+03,-0.39311E+03, 0.17492E+03,-0.42992E+02, 0.71928E+01,
     &-0.10846E+01,-0.21810E+00,-0.11297E+00,-0.54496E-02, 0.36799E-01,
     & 0.40599E-01
     & /
       real p61(0:10)
       data p61/
     & 0.26982E+03,-0.41584E+03, 0.18572E+03,-0.45996E+02, 0.77360E+01,
     &-0.11690E+01,-0.22296E+00,-0.11570E+00,-0.45207E-02, 0.38586E-01,
     & 0.42383E-01
     & /
       real p62(0:10)
       data p62/
     & 0.28469E+03,-0.43922E+03, 0.19688E+03,-0.49121E+02, 0.83055E+01,
     &-0.12577E+01,-0.22737E+00,-0.11834E+00,-0.35319E-02, 0.40387E-01,
     & 0.44186E-01
     & /
       real p63(0:10)
       data p63/
     & 0.29995E+03,-0.46323E+03, 0.20838E+03,-0.52369E+02, 0.89020E+01,
     &-0.13508E+01,-0.23131E+00,-0.12090E+00,-0.24847E-02, 0.42200E-01,
     & 0.46008E-01
     & /
       real p64(0:10)
       data p64/
     & 0.31560E+03,-0.48789E+03, 0.22024E+03,-0.55743E+02, 0.95261E+01,
     &-0.14484E+01,-0.23477E+00,-0.12336E+00,-0.13810E-02, 0.44025E-01,
     & 0.47849E-01
     & /
       real p65(0:10)
       data p65/
     & 0.33163E+03,-0.51319E+03, 0.23245E+03,-0.59243E+02, 0.10178E+02,
     &-0.15507E+01,-0.23772E+00,-0.12574E+00,-0.22238E-03, 0.45860E-01,
     & 0.49709E-01
     & /
       real p66(0:10)
       data p66/
     & 0.34806E+03,-0.53914E+03, 0.24503E+03,-0.62871E+02, 0.10860E+02,
     &-0.16577E+01,-0.24013E+00,-0.12804E+00, 0.98946E-03, 0.47704E-01,
     & 0.51588E-01
     & /
       real p67(0:10)
       data p67/
     & 0.36489E+03,-0.56574E+03, 0.25796E+03,-0.66629E+02, 0.11570E+02,
     &-0.17697E+01,-0.24198E+00,-0.13026E+00, 0.22529E-02, 0.49554E-01,
     & 0.53486E-01
     & /
       real p68(0:10)
       data p68/
     & 0.38210E+03,-0.59298E+03, 0.27126E+03,-0.70519E+02, 0.12311E+02,
     &-0.18866E+01,-0.24325E+00,-0.13240E+00, 0.35664E-02, 0.51411E-01,
     & 0.55402E-01
     & /
       real p69(0:10)
       data p69/
     & 0.39971E+03,-0.62088E+03, 0.28492E+03,-0.74541E+02, 0.13082E+02,
     &-0.20087E+01,-0.24391E+00,-0.13447E+00, 0.49283E-02, 0.53273E-01,
     & 0.57337E-01
     & /
       real p70(0:10)
       data p70/
     & 0.41771E+03,-0.64943E+03, 0.29894E+03,-0.78698E+02, 0.13884E+02,
     &-0.21360E+01,-0.24393E+00,-0.13646E+00, 0.63372E-02, 0.55138E-01,
     & 0.59290E-01
     & /
       real p71(0:10)
       data p71/
     & 0.43611E+03,-0.67863E+03, 0.31334E+03,-0.82991E+02, 0.14719E+02,
     &-0.22688E+01,-0.24331E+00,-0.13839E+00, 0.77914E-02, 0.57007E-01,
     & 0.61263E-01
     & /
       real p72(0:10)
       data p72/
     & 0.45489E+03,-0.70849E+03, 0.32810E+03,-0.87420E+02, 0.15585E+02,
     &-0.24070E+01,-0.24200E+00,-0.14024E+00, 0.92897E-02, 0.58877E-01,
     & 0.63254E-01
     & /
       real p73(0:10)
       data p73/
     & 0.47408E+03,-0.73900E+03, 0.34324E+03,-0.91989E+02, 0.16485E+02,
     &-0.25510E+01,-0.23999E+00,-0.14203E+00, 0.10830E-01, 0.60747E-01,
     & 0.65264E-01
     & /
       real p74(0:10)
       data p74/
     & 0.49365E+03,-0.77017E+03, 0.35875E+03,-0.96697E+02, 0.17418E+02,
     &-0.27006E+01,-0.23725E+00,-0.14377E+00, 0.12412E-01, 0.62617E-01,
     & 0.67292E-01
     & /
       real p75(0:10)
       data p75/
     & 0.51363E+03,-0.80199E+03, 0.37464E+03,-0.10155E+03, 0.18385E+02,
     &-0.28562E+01,-0.23377E+00,-0.14544E+00, 0.14034E-01, 0.64486E-01,
     & 0.69340E-01
     & /
       real p76(0:10)
       data p76/
     & 0.53400E+03,-0.83448E+03, 0.39090E+03,-0.10654E+03, 0.19387E+02,
     &-0.30179E+01,-0.22950E+00,-0.14706E+00, 0.15694E-01, 0.66353E-01,
     & 0.71407E-01
     & /
       real p77(0:10)
       data p77/
     & 0.55476E+03,-0.86762E+03, 0.40754E+03,-0.11167E+03, 0.20425E+02,
     &-0.31856E+01,-0.22444E+00,-0.14863E+00, 0.17392E-01, 0.68216E-01,
     & 0.73492E-01
     & /
       real p78(0:10)
       data p78/
     & 0.57592E+03,-0.90143E+03, 0.42456E+03,-0.11695E+03, 0.21497E+02,
     &-0.33597E+01,-0.21856E+00,-0.15015E+00, 0.19125E-01, 0.70076E-01,
     & 0.75598E-01
     & /
       real p79(0:10)
       data p79/
     & 0.59747E+03,-0.93590E+03, 0.44196E+03,-0.12238E+03, 0.22607E+02,
     &-0.35402E+01,-0.21183E+00,-0.15162E+00, 0.20893E-01, 0.71931E-01,
     & 0.77722E-01
     & /
       real p80(0:10)
       data p80/
     & 0.61942E+03,-0.97102E+03, 0.45974E+03,-0.12795E+03, 0.23753E+02,
     &-0.37272E+01,-0.20423E+00,-0.15306E+00, 0.22695E-01, 0.73780E-01,
     & 0.79866E-01
     & /
       real p81(0: 7)
       data p81/
     & 0.64176E+03,-0.10068E+04, 0.47790E+03,-0.13369E+03, 0.24968E+02,
     &-0.39662E+01,-0.11371E+00,-0.78835E-01
     & /
       real p82(0: 7)
       data p82/
     & 0.66450E+03,-0.10433E+04, 0.49645E+03,-0.13956E+03, 0.26191E+02,
     &-0.41689E+01,-0.10211E+00,-0.78365E-01
     & /
       real p83(0: 7)
       data p83/
     & 0.68764E+03,-0.10804E+04, 0.51539E+03,-0.14558E+03, 0.27452E+02,
     &-0.43787E+01,-0.89554E-01,-0.77873E-01
     & /
       real p84(0: 7)
       data p84/
     & 0.71117E+03,-0.11182E+04, 0.53471E+03,-0.15176E+03, 0.28751E+02,
     &-0.45956E+01,-0.76010E-01,-0.77364E-01
     & /
       real p85(0: 7)
       data p85/
     & 0.73510E+03,-0.11566E+04, 0.55442E+03,-0.15808E+03, 0.30091E+02,
     &-0.48197E+01,-0.61456E-01,-0.76842E-01
     & /
       real p86(0: 7)
       data p86/
     & 0.75942E+03,-0.11957E+04, 0.57453E+03,-0.16457E+03, 0.31470E+02,
     &-0.50511E+01,-0.45868E-01,-0.76312E-01
     & /
       real p87(0: 7)
       data p87/
     & 0.78414E+03,-0.12355E+04, 0.59502E+03,-0.17120E+03, 0.32889E+02,
     &-0.52901E+01,-0.29221E-01,-0.75778E-01
     & /
       real p88(0: 7)
       data p88/
     & 0.80925E+03,-0.12759E+04, 0.61590E+03,-0.17800E+03, 0.34350E+02,
     &-0.55366E+01,-0.11491E-01,-0.75246E-01
     & /
       real p89(0: 7)
       data p89/
     & 0.83476E+03,-0.13170E+04, 0.63718E+03,-0.18495E+03, 0.35852E+02,
     &-0.57909E+01, 0.73453E-02,-0.74718E-01
     & /
       real p90(0: 7)
       data p90/
     & 0.86067E+03,-0.13588E+04, 0.65884E+03,-0.19205E+03, 0.37395E+02,
     &-0.60531E+01, 0.27313E-01,-0.74201E-01
     & /
       real p91(0: 7)
       data p91/
     & 0.88697E+03,-0.14012E+04, 0.68091E+03,-0.19932E+03, 0.38981E+02,
     &-0.63233E+01, 0.48436E-01,-0.73698E-01
     & /
       real p92(0: 7)
       data p92/
     & 0.91366E+03,-0.14443E+04, 0.70336E+03,-0.20675E+03, 0.40610E+02,
     &-0.66016E+01, 0.70739E-01,-0.73214E-01
     & /
       real p93(0: 7)
       data p93/
     & 0.94076E+03,-0.14881E+04, 0.72622E+03,-0.21433E+03, 0.42283E+02,
     &-0.68882E+01, 0.94257E-01,-0.72755E-01
     & /
       real p94(0: 7)
       data p94/
     & 0.96826E+03,-0.15326E+04, 0.74949E+03,-0.22209E+03, 0.44000E+02,
     &-0.71835E+01, 0.11903E+00,-0.72323E-01
     & /
       real p95(0: 7)
       data p95/
     & 0.99617E+03,-0.15777E+04, 0.77317E+03,-0.23001E+03, 0.45763E+02,
     &-0.74874E+01, 0.14508E+00,-0.71924E-01
     & /
       real p96(0: 7)
       data p96/
     & 0.10245E+04,-0.16236E+04, 0.79727E+03,-0.23810E+03, 0.47573E+02,
     &-0.78003E+01, 0.17244E+00,-0.71563E-01
     & /
       real p97(0: 7)
       data p97/
     & 0.10532E+04,-0.16701E+04, 0.82178E+03,-0.24637E+03, 0.49428E+02,
     &-0.81221E+01, 0.20114E+00,-0.71244E-01
     & /
       real p98(0: 9)
       data p98/
     & 0.10824E+04,-0.17174E+04, 0.84672E+03,-0.25478E+03, 0.51273E+02,
     &-0.83615E+01, 0.10918E+00,-0.17638E+00, 0.59776E-01, 0.10541E+00
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,   8,   8,   8,   8,   8,   8,   9
     &,   9,  10,  10,  10,  11,  11,  11,  11,  11,  11
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,   7
     &,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7
     &,   7,   7,   7,   7,   7,   7,   9
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.12) param(i,35) = p35(i)
             if (i.le.12) param(i,36) = p36(i)
             if (i.le.12) param(i,37) = p37(i)
             if (i.le.12) param(i,38) = p38(i)
             if (i.le.12) param(i,39) = p39(i)
             if (i.le.12) param(i,40) = p40(i)
             if (i.le.12) param(i,41) = p41(i)
             if (i.le.12) param(i,42) = p42(i)
             if (i.le.12) param(i,43) = p43(i)
             if (i.le.10) param(i,44) = p44(i)
             if (i.le.10) param(i,45) = p45(i)
             if (i.le.10) param(i,46) = p46(i)
             if (i.le.10) param(i,47) = p47(i)
             if (i.le.10) param(i,48) = p48(i)
             if (i.le.10) param(i,49) = p49(i)
             if (i.le.10) param(i,50) = p50(i)
             if (i.le.10) param(i,51) = p51(i)
             if (i.le.10) param(i,52) = p52(i)
             if (i.le.10) param(i,53) = p53(i)
             if (i.le.10) param(i,54) = p54(i)
             if (i.le.10) param(i,55) = p55(i)
             if (i.le.10) param(i,56) = p56(i)
             if (i.le.10) param(i,57) = p57(i)
             if (i.le.10) param(i,58) = p58(i)
             if (i.le.10) param(i,59) = p59(i)
             if (i.le.10) param(i,60) = p60(i)
             if (i.le.10) param(i,61) = p61(i)
             if (i.le.10) param(i,62) = p62(i)
             if (i.le.10) param(i,63) = p63(i)
             if (i.le.10) param(i,64) = p64(i)
             if (i.le.10) param(i,65) = p65(i)
             if (i.le.10) param(i,66) = p66(i)
             if (i.le.10) param(i,67) = p67(i)
             if (i.le.10) param(i,68) = p68(i)
             if (i.le.10) param(i,69) = p69(i)
             if (i.le.10) param(i,70) = p70(i)
             if (i.le.10) param(i,71) = p71(i)
             if (i.le.10) param(i,72) = p72(i)
             if (i.le.10) param(i,73) = p73(i)
             if (i.le.10) param(i,74) = p74(i)
             if (i.le.10) param(i,75) = p75(i)
             if (i.le.10) param(i,76) = p76(i)
             if (i.le.10) param(i,77) = p77(i)
             if (i.le.10) param(i,78) = p78(i)
             if (i.le.10) param(i,79) = p79(i)
             if (i.le.10) param(i,80) = p80(i)
             if (i.le. 7) param(i,81) = p81(i)
             if (i.le. 7) param(i,82) = p82(i)
             if (i.le. 7) param(i,83) = p83(i)
             if (i.le. 7) param(i,84) = p84(i)
             if (i.le. 7) param(i,85) = p85(i)
             if (i.le. 7) param(i,86) = p86(i)
             if (i.le. 7) param(i,87) = p87(i)
             if (i.le. 7) param(i,88) = p88(i)
             if (i.le. 7) param(i,89) = p89(i)
             if (i.le. 7) param(i,90) = p90(i)
             if (i.le. 7) param(i,91) = p91(i)
             if (i.le. 7) param(i,92) = p92(i)
             if (i.le. 7) param(i,93) = p93(i)
             if (i.le. 7) param(i,94) = p94(i)
             if (i.le. 7) param(i,95) = p95(i)
             if (i.le. 7) param(i,96) = p96(i)
             if (i.le. 7) param(i,97) = p97(i)
             if (i.le. 9) param(i,98) = p98(i)
          enddo
       endif
            
       bbarhiq2ms=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
       bbarhiq2ms=(a*(1.0-x)**1.5)/log10(q2)/1d2
       if (q2.gt.q2max) bbarhiq2ms=0.0
       if (q2.lt.q2min) bbarhiq2ms=0.0
       if ( x.gt. xmax) bbarhiq2ms=0.0
       if ( x.lt. xmin) bbarhiq2ms=0.0
       return
       end
       real function  glu0hiq2ms(xin,q2in)
***********************************************************
c  parametrization of glu0hiq2ms from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:18)
       data p15/
     & 0.24296E+03,-0.23797E+03,-0.21347E+02,-0.75139E+01, 0.10819E+02,
     & 0.11018E+02, 0.53769E+01, 0.56377E+00,-0.15042E+01,-0.15827E+01,
     &-0.92977E+00,-0.31100E+00, 0.38483E-01, 0.14581E+00, 0.13327E+00,
     & 0.79731E-01, 0.33609E-01, 0.68817E-02,-0.65443E-02
     & /
       real p16(0:18)
       data p16/
     & 0.29678E+03,-0.30561E+03,-0.95250E+01,-0.70719E+01, 0.12202E+02,
     & 0.11557E+02, 0.54085E+01, 0.38954E+00,-0.16744E+01,-0.16694E+01,
     &-0.94636E+00,-0.29487E+00, 0.61652E-01, 0.16065E+00, 0.14059E+00,
     & 0.80702E-01, 0.32043E-01, 0.52401E-02,-0.87620E-02
     & /
       real p17(0:18)
       data p17/
     & 0.35995E+03,-0.38673E+03, 0.67682E+01,-0.69348E+01, 0.13640E+02,
     & 0.12049E+02, 0.54005E+01, 0.19516E+00,-0.18486E+01,-0.17513E+01,
     &-0.95695E+00,-0.27512E+00, 0.86447E-01, 0.17521E+00, 0.14740E+00,
     & 0.80999E-01, 0.30040E-01, 0.35066E-02,-0.11245E-01
     & /
       real p18(0:17)
       data p18/
     & 0.43051E+03,-0.47906E+03, 0.27449E+02,-0.72607E+01, 0.15074E+02,
     & 0.12473E+02, 0.53554E+01,-0.91592E-02,-0.20183E+01,-0.18246E+01,
     &-0.96127E+00,-0.25295E+00, 0.11160E+00, 0.18872E+00, 0.15340E+00,
     & 0.80627E-01, 0.27716E-01, 0.18016E-02
     & /
       real p19(0:17)
       data p19/
     & 0.50872E+03,-0.58309E+03, 0.52860E+02,-0.81849E+01, 0.16509E+02,
     & 0.12830E+02, 0.52775E+01,-0.22093E+00,-0.21828E+01,-0.18895E+01,
     &-0.95993E+00,-0.22885E+00, 0.13689E+00, 0.20113E+00, 0.15864E+00,
     & 0.79645E-01, 0.25121E-01, 0.16821E-03
     & /
       real p20(0:17)
       data p20/
     & 0.59481E+03,-0.69926E+03, 0.83332E+02,-0.98434E+01, 0.17953E+02,
     & 0.13122E+02, 0.51707E+01,-0.43802E+00,-0.23418E+01,-0.19463E+01,
     &-0.95346E+00,-0.20325E+00, 0.16216E+00, 0.21238E+00, 0.16318E+00,
     & 0.78111E-01, 0.22300E-01,-0.13550E-02
     & /
       real p21(0:17)
       data p21/
     & 0.68901E+03,-0.82800E+03, 0.11918E+03,-0.12372E+02, 0.19418E+02,
     & 0.13353E+02, 0.50387E+01,-0.65863E+00,-0.24948E+01,-0.19955E+01,
     &-0.94237E+00,-0.17652E+00, 0.18727E+00, 0.22244E+00, 0.16709E+00,
     & 0.76079E-01, 0.19290E-01,-0.27342E-02
     & /
       real p22(0:15)
       data p22/
     & 0.79152E+03,-0.96968E+03, 0.16072E+03,-0.15907E+02, 0.20909E+02,
     & 0.13538E+02, 0.48804E+01,-0.88321E+00,-0.26382E+01,-0.20458E+01,
     &-0.91234E+00,-0.16758E+00, 0.20772E+00, 0.23252E+00, 0.14406E+00,
     & 0.69657E-01
     & /
       real p23(0:15)
       data p23/
     & 0.90254E+03,-0.11247E+04, 0.20823E+03,-0.20581E+02, 0.22459E+02,
     & 0.13654E+02, 0.47062E+01,-0.11067E+01,-0.27778E+01,-0.20824E+01,
     &-0.88990E+00,-0.14261E+00, 0.23262E+00, 0.24222E+00, 0.14326E+00,
     & 0.65766E-01
     & /
       real p24(0:15)
       data p24/
     & 0.10223E+04,-0.12934E+04, 0.26199E+03,-0.26527E+02, 0.24080E+02,
     & 0.13713E+02, 0.45156E+01,-0.13297E+01,-0.29108E+01,-0.21126E+01,
     &-0.86371E+00,-0.11776E+00, 0.25721E+00, 0.25105E+00, 0.14178E+00,
     & 0.61735E-01
     & /
       real p25(0:15)
       data p25/
     & 0.11508E+04,-0.14761E+04, 0.32227E+03,-0.33876E+02, 0.25793E+02,
     & 0.13719E+02, 0.43111E+01,-0.15512E+01,-0.30374E+01,-0.21369E+01,
     &-0.83413E+00,-0.93259E-01, 0.28144E+00, 0.25901E+00, 0.13967E+00,
     & 0.57623E-01
     & /
       real p26(0:15)
       data p26/
     & 0.12884E+04,-0.16732E+04, 0.38933E+03,-0.42757E+02, 0.27621E+02,
     & 0.13671E+02, 0.40949E+01,-0.17705E+01,-0.31575E+01,-0.21556E+01,
     &-0.80146E+00,-0.69326E-01, 0.30530E+00, 0.26613E+00, 0.13698E+00,
     & 0.53482E-01
     & /
       real p27(0:14)
       data p27/
     & 0.14352E+04,-0.18849E+04, 0.46341E+03,-0.53295E+02, 0.29589E+02,
     & 0.13571E+02, 0.38691E+01,-0.19869E+01,-0.32713E+01,-0.21690E+01,
     &-0.76601E+00,-0.46152E-01, 0.32875E+00, 0.27243E+00, 0.13375E+00
     & /
       real p28(0:14)
       data p28/
     & 0.15913E+04,-0.21115E+04, 0.54475E+03,-0.65614E+02, 0.31721E+02,
     & 0.13418E+02, 0.36356E+01,-0.21998E+01,-0.33788E+01,-0.21774E+01,
     &-0.72802E+00,-0.23904E-01, 0.35182E+00, 0.27793E+00, 0.13002E+00
     & /
       real p29(0:14)
       data p29/
     & 0.17568E+04,-0.23532E+04, 0.63357E+03,-0.79835E+02, 0.34044E+02,
     & 0.13213E+02, 0.33962E+01,-0.24087E+01,-0.34802E+01,-0.21813E+01,
     &-0.68773E+00,-0.27288E-02, 0.37449E+00, 0.28266E+00, 0.12582E+00
     & /
       real p30(0:14)
       data p30/
     & 0.19318E+04,-0.26103E+04, 0.73007E+03,-0.96076E+02, 0.36586E+02,
     & 0.12956E+02, 0.31525E+01,-0.26132E+01,-0.35756E+01,-0.21809E+01,
     &-0.64537E+00, 0.17243E-01, 0.39679E+00, 0.28664E+00, 0.12118E+00
     & /
       real p31(0:14)
       data p31/
     & 0.20017E+04,-0.27134E+04, 0.76929E+03,-0.10288E+03, 0.37628E+02,
     & 0.12841E+02, 0.30566E+01,-0.26912E+01,-0.36107E+01,-0.21793E+01,
     &-0.62829E+00, 0.24712E-01, 0.40530E+00, 0.28796E+00, 0.11925E+00
     & /
       real p32(0:12)
       data p32/
     & 0.21102E+04,-0.28738E+04, 0.83087E+03,-0.11379E+03, 0.39280E+02,
     & 0.12651E+02, 0.29087E+01,-0.28088E+01,-0.36620E+01,-0.21753E+01,
     &-0.60152E+00, 0.35823E-01, 0.41809E+00
     & /
       real p33(0:12)
       data p33/
     & 0.22963E+04,-0.31499E+04, 0.93849E+03,-0.13347E+03, 0.42210E+02,
     & 0.12294E+02, 0.26636E+01,-0.29985E+01,-0.37419E+01,-0.21657E+01,
     &-0.55605E+00, 0.53030E-01, 0.43887E+00
     & /
       real p34(0:12)
       data p34/
     & 0.24917E+04,-0.34413E+04, 0.10540E+04,-0.15539E+03, 0.45425E+02,
     & 0.11882E+02, 0.24179E+01,-0.31830E+01,-0.38163E+01,-0.21526E+01,
     &-0.50905E+00, 0.68785E-01, 0.45932E+00
     & /
       real p35(0:11)
       data p35/
     & 0.26966E+04,-0.37480E+04, 0.11775E+04,-0.17965E+03, 0.48954E+02,
     & 0.11414E+02, 0.21729E+01,-0.33622E+01,-0.38854E+01,-0.21362E+01,
     &-0.46066E+00, 0.83005E-01
     & /
       real p36(0:11)
       data p36/
     & 0.29109E+04,-0.40704E+04, 0.13092E+04,-0.20636E+03, 0.52825E+02,
     & 0.10888E+02, 0.19298E+01,-0.35360E+01,-0.39493E+01,-0.21168E+01,
     &-0.41102E+00, 0.95619E-01
     & /
       real p37(0:11)
       data p37/
     & 0.31349E+04,-0.44084E+04, 0.14493E+04,-0.23560E+03, 0.57067E+02,
     & 0.10302E+02, 0.16896E+01,-0.37042E+01,-0.40083E+01,-0.20946E+01,
     &-0.36026E+00, 0.10656E+00
     & /
       real p38(0:11)
       data p38/
     & 0.33685E+04,-0.47624E+04, 0.15979E+04,-0.26749E+03, 0.61711E+02,
     & 0.96527E+01, 0.14534E+01,-0.38668E+01,-0.40626E+01,-0.20698E+01,
     &-0.30849E+00, 0.11579E+00
     & /
       real p39(0:11)
       data p39/
     & 0.36119E+04,-0.51325E+04, 0.17551E+04,-0.30211E+03, 0.66786E+02,
     & 0.89387E+01, 0.12223E+01,-0.40239E+01,-0.41123E+01,-0.20427E+01,
     &-0.25581E+00, 0.12324E+00
     & /
       real p40(0:11)
       data p40/
     & 0.38651E+04,-0.55187E+04, 0.19212E+04,-0.33956E+03, 0.72322E+02,
     & 0.81566E+01, 0.99718E+00,-0.41753E+01,-0.41576E+01,-0.20135E+01,
     &-0.20231E+00, 0.12889E+00
     & /
       real p41(0:11)
       data p41/
     & 0.41282E+04,-0.59214E+04, 0.20963E+04,-0.37993E+03, 0.78347E+02,
     & 0.73032E+01, 0.77897E+00,-0.43211E+01,-0.41988E+01,-0.19822E+01,
     &-0.14807E+00, 0.13270E+00
     & /
       real p42(0:11)
       data p42/
     & 0.44012E+04,-0.63405E+04, 0.22805E+04,-0.42331E+03, 0.84893E+02,
     & 0.63751E+01, 0.56858E+00,-0.44615E+01,-0.42360E+01,-0.19492E+01,
     &-0.93158E-01, 0.13463E+00
     & /
       real p43(0:11)
       data p43/
     & 0.46842E+04,-0.67763E+04, 0.24739E+04,-0.46979E+03, 0.91989E+02,
     & 0.53689E+01, 0.36688E+00,-0.45964E+01,-0.42695E+01,-0.19146E+01,
     &-0.37644E-01, 0.13467E+00
     & /
       real p44(0:11)
       data p44/
     & 0.49773E+04,-0.72287E+04, 0.26766E+04,-0.51945E+03, 0.99665E+02,
     & 0.42807E+01, 0.17471E+00,-0.47259E+01,-0.42993E+01,-0.18785E+01,
     & 0.18417E-01, 0.13279E+00
     & /
       real p45(0:11)
       data p45/
     & 0.52805E+04,-0.76981E+04, 0.28887E+04,-0.57236E+03, 0.10795E+03,
     & 0.31065E+01,-0.70812E-02,-0.48502E+01,-0.43258E+01,-0.18411E+01,
     & 0.74975E-01, 0.12898E+00
     & /
       real p46(0:11)
       data p46/
     & 0.55938E+04,-0.81843E+04, 0.31105E+04,-0.62862E+03, 0.11687E+03,
     & 0.18423E+01,-0.17769E+00,-0.49694E+01,-0.43489E+01,-0.18025E+01,
     & 0.13198E+00, 0.12322E+00
     & /
       real p47(0:11)
       data p47/
     & 0.59173E+04,-0.86875E+04, 0.33419E+04,-0.68828E+03, 0.12646E+03,
     & 0.48370E+00,-0.33630E+00,-0.50836E+01,-0.43691E+01,-0.17628E+01,
     & 0.18941E+00, 0.11551E+00
     & /
       real p48(0:11)
       data p48/
     & 0.62510E+04,-0.92079E+04, 0.35830E+04,-0.75144E+03, 0.13675E+03,
     &-0.97371E+00,-0.48213E+00,-0.51930E+01,-0.43862E+01,-0.17222E+01,
     & 0.24721E+00, 0.10583E+00
     & /
       real p49(0:11)
       data p49/
     & 0.65950E+04,-0.97454E+04, 0.38341E+04,-0.81816E+03, 0.14776E+03,
     &-0.25345E+01,-0.61437E+00,-0.52976E+01,-0.44007E+01,-0.16809E+01,
     & 0.30536E+00, 0.94194E-01
     & /
       real p50(0:11)
       data p50/
     & 0.69492E+04,-0.10300E+05, 0.40950E+04,-0.88851E+03, 0.15953E+03,
     &-0.42034E+01,-0.73225E+00,-0.53977E+01,-0.44125E+01,-0.16388E+01,
     & 0.36384E+00, 0.80582E-01
     & /
       real p51(0:11)
       data p51/
     & 0.73137E+04,-0.10872E+05, 0.43660E+04,-0.96256E+03, 0.17208E+03,
     &-0.59852E+01,-0.83497E+00,-0.54934E+01,-0.44218E+01,-0.15961E+01,
     & 0.42263E+00, 0.64998E-01
     & /
       real p52(0:11)
       data p52/
     & 0.76885E+04,-0.11462E+05, 0.46471E+04,-0.10404E+04, 0.18543E+03,
     &-0.78849E+01,-0.92174E+00,-0.55849E+01,-0.44289E+01,-0.15529E+01,
     & 0.48170E+00, 0.47443E-01
     & /
       real p53(0:11)
       data p53/
     & 0.80737E+04,-0.12069E+05, 0.49384E+04,-0.11220E+04, 0.19963E+03,
     &-0.99075E+01,-0.99179E+00,-0.56723E+01,-0.44337E+01,-0.15093E+01,
     & 0.54105E+00, 0.27919E-01
     & /
       real p54(0:11)
       data p54/
     & 0.84692E+04,-0.12693E+05, 0.52400E+04,-0.12075E+04, 0.21468E+03,
     &-0.12058E+02,-0.10443E+01,-0.57558E+01,-0.44364E+01,-0.14654E+01,
     & 0.60066E+00, 0.64289E-02
     & /
       real p55(0:11)
       data p55/
     & 0.88750E+04,-0.13335E+05, 0.55519E+04,-0.12970E+04, 0.23063E+03,
     &-0.14342E+02,-0.10785E+01,-0.58357E+01,-0.44372E+01,-0.14213E+01,
     & 0.66052E+00,-0.17023E-01
     & /
       real p56(0:11)
       data p56/
     & 0.92913E+04,-0.13994E+05, 0.58741E+04,-0.13905E+04, 0.24749E+03,
     &-0.16764E+02,-0.10937E+01,-0.59120E+01,-0.44362E+01,-0.13770E+01,
     & 0.72063E+00,-0.42432E-01
     & /
       real p57(0:11)
       data p57/
     & 0.97179E+04,-0.14672E+05, 0.62069E+04,-0.14880E+04, 0.26530E+03,
     &-0.19330E+02,-0.10889E+01,-0.59850E+01,-0.44335E+01,-0.13325E+01,
     & 0.78099E+00,-0.69791E-01
     & /
       real p58(0:11)
       data p58/
     & 0.10155E+05,-0.15366E+05, 0.65501E+04,-0.15897E+04, 0.28407E+03,
     &-0.22045E+02,-0.10634E+01,-0.60549E+01,-0.44292E+01,-0.12881E+01,
     & 0.84158E+00,-0.99094E-01
     & /
       real p59(0:11)
       data p59/
     & 0.10602E+05,-0.16078E+05, 0.69039E+04,-0.16955E+04, 0.30384E+03,
     &-0.24915E+02,-0.10163E+01,-0.61218E+01,-0.44233E+01,-0.12436E+01,
     & 0.90242E+00,-0.13033E+00
     & /
       real p60(0:11)
       data p60/
     & 0.11060E+05,-0.16808E+05, 0.72683E+04,-0.18056E+04, 0.32462E+03,
     &-0.27945E+02,-0.94694E+00,-0.61860E+01,-0.44160E+01,-0.11993E+01,
     & 0.96350E+00,-0.16350E+00
     & /
       real p61(0:11)
       data p61/
     & 0.11528E+05,-0.17556E+05, 0.76433E+04,-0.19199E+04, 0.34645E+03,
     &-0.31140E+02,-0.85438E+00,-0.62476E+01,-0.44075E+01,-0.11551E+01,
     & 0.10248E+01,-0.19859E+00
     & /
       real p62(0:11)
       data p62/
     & 0.12007E+05,-0.18321E+05, 0.80291E+04,-0.20385E+04, 0.36934E+03,
     &-0.34506E+02,-0.73781E+00,-0.63069E+01,-0.43977E+01,-0.11111E+01,
     & 0.10864E+01,-0.23559E+00
     & /
       real p63(0:11)
       data p63/
     & 0.12496E+05,-0.19105E+05, 0.84256E+04,-0.21615E+04, 0.39332E+03,
     &-0.38049E+02,-0.59639E+00,-0.63640E+01,-0.43867E+01,-0.10673E+01,
     & 0.11482E+01,-0.27449E+00
     & /
       real p64(0:11)
       data p64/
     & 0.12995E+05,-0.19905E+05, 0.88329E+04,-0.22888E+04, 0.41841E+03,
     &-0.41775E+02,-0.42928E+00,-0.64192E+01,-0.43747E+01,-0.10238E+01,
     & 0.12103E+01,-0.31528E+00
     & /
       real p65(0:11)
       data p65/
     & 0.13505E+05,-0.20724E+05, 0.92510E+04,-0.24207E+04, 0.44463E+03,
     &-0.45688E+02,-0.23561E+00,-0.64725E+01,-0.43617E+01,-0.98060E+00,
     & 0.12727E+01,-0.35795E+00
     & /
       real p66(0:11)
       data p66/
     & 0.14025E+05,-0.21560E+05, 0.96799E+04,-0.25570E+04, 0.47201E+03,
     &-0.49794E+02,-0.14522E-01,-0.65243E+01,-0.43478E+01,-0.93778E+00,
     & 0.13353E+01,-0.40250E+00
     & /
       real p67(0:11)
       data p67/
     & 0.14555E+05,-0.22414E+05, 0.10120E+05,-0.26978E+04, 0.50057E+03,
     &-0.54100E+02, 0.23485E+00,-0.65748E+01,-0.43330E+01,-0.89535E+00,
     & 0.13982E+01,-0.44891E+00
     & /
       real p68(0:11)
       data p68/
     & 0.15096E+05,-0.23286E+05, 0.10571E+05,-0.28432E+04, 0.53033E+03,
     &-0.58610E+02, 0.51337E+00,-0.66241E+01,-0.43175E+01,-0.85336E+00,
     & 0.14614E+01,-0.49717E+00
     & /
       real p69(0:11)
       data p69/
     & 0.15647E+05,-0.24175E+05, 0.11032E+05,-0.29931E+04, 0.56132E+03,
     &-0.63330E+02, 0.82194E+00,-0.66724E+01,-0.43012E+01,-0.81183E+00,
     & 0.15249E+01,-0.54727E+00
     & /
       real p70(0:11)
       data p70/
     & 0.16208E+05,-0.25082E+05, 0.11505E+05,-0.31478E+04, 0.59354E+03,
     &-0.68266E+02, 0.11614E+01,-0.67199E+01,-0.42843E+01,-0.77078E+00,
     & 0.15888E+01,-0.59921E+00
     & /
       real p71(0:11)
       data p71/
     & 0.16780E+05,-0.26007E+05, 0.11988E+05,-0.33070E+04, 0.62702E+03,
     &-0.73423E+02, 0.15328E+01,-0.67669E+01,-0.42667E+01,-0.73025E+00,
     & 0.16529E+01,-0.65297E+00
     & /
       real p72(0:11)
       data p72/
     & 0.17362E+05,-0.26949E+05, 0.12483E+05,-0.34710E+04, 0.66178E+03,
     &-0.78807E+02, 0.19368E+01,-0.68135E+01,-0.42486E+01,-0.69027E+00,
     & 0.17174E+01,-0.70854E+00
     & /
       real p73(0:11)
       data p73/
     & 0.17954E+05,-0.27909E+05, 0.12989E+05,-0.36397E+04, 0.69785E+03,
     &-0.84423E+02, 0.23745E+01,-0.68600E+01,-0.42300E+01,-0.65085E+00,
     & 0.17823E+01,-0.76591E+00
     & /
       real p74(0:11)
       data p74/
     & 0.18556E+05,-0.28887E+05, 0.13505E+05,-0.38132E+04, 0.73523E+03,
     &-0.90277E+02, 0.28468E+01,-0.69065E+01,-0.42108E+01,-0.61202E+00,
     & 0.18475E+01,-0.82507E+00
     & /
       real p75(0:11)
       data p75/
     & 0.19169E+05,-0.29882E+05, 0.14033E+05,-0.39914E+04, 0.77395E+03,
     &-0.96375E+02, 0.33545E+01,-0.69532E+01,-0.41913E+01,-0.57379E+00,
     & 0.19130E+01,-0.88601E+00
     & /
       real p76(0:11)
       data p76/
     & 0.19792E+05,-0.30895E+05, 0.14572E+05,-0.41745E+04, 0.81402E+03,
     &-0.10272E+03, 0.38985E+01,-0.70004E+01,-0.41714E+01,-0.53619E+00,
     & 0.19790E+01,-0.94873E+00
     & /
       real p77(0:11)
       data p77/
     & 0.20425E+05,-0.31926E+05, 0.15122E+05,-0.43624E+04, 0.85547E+03,
     &-0.10932E+03, 0.44800E+01,-0.70482E+01,-0.41511E+01,-0.49923E+00,
     & 0.20453E+01,-0.10132E+01
     & /
       real p78(0:10)
       data p78/
     & 0.21068E+05,-0.32974E+05, 0.15683E+05,-0.45551E+04, 0.89831E+03,
     &-0.11618E+03, 0.50996E+01,-0.70968E+01,-0.41305E+01,-0.46294E+00,
     & 0.21121E+01
     & /
       real p79(0:10)
       data p79/
     & 0.21722E+05,-0.34039E+05, 0.16255E+05,-0.47528E+04, 0.94256E+03,
     &-0.12331E+03, 0.57585E+01,-0.71465E+01,-0.41096E+01,-0.42731E+00,
     & 0.21793E+01
     & /
       real p80(0:10)
       data p80/
     & 0.22385E+05,-0.35122E+05, 0.16838E+05,-0.49554E+04, 0.98823E+03,
     &-0.13070E+03, 0.64574E+01,-0.71975E+01,-0.40884E+01,-0.39238E+00,
     & 0.22469E+01
     & /
       real p81(0:10)
       data p81/
     & 0.23058E+05,-0.36222E+05, 0.17432E+05,-0.51629E+04, 0.10353E+04,
     &-0.13837E+03, 0.71974E+01,-0.72499E+01,-0.40670E+01,-0.35814E+00,
     & 0.23149E+01
     & /
       real p82(0:10)
       data p82/
     & 0.23742E+05,-0.37340E+05, 0.18037E+05,-0.53753E+04, 0.10839E+04,
     &-0.14632E+03, 0.79795E+01,-0.73039E+01,-0.40454E+01,-0.32462E+00,
     & 0.23834E+01
     & /
       real p83(0:10)
       data p83/
     & 0.24436E+05,-0.38475E+05, 0.18654E+05,-0.55927E+04, 0.11339E+04,
     &-0.15456E+03, 0.88045E+01,-0.73598E+01,-0.40236E+01,-0.29181E+00,
     & 0.24524E+01
     & /
       real p84(0:10)
       data p84/
     & 0.25139E+05,-0.39628E+05, 0.19281E+05,-0.58152E+04, 0.11855E+04,
     &-0.16309E+03, 0.96734E+01,-0.74177E+01,-0.40017E+01,-0.25974E+00,
     & 0.25219E+01
     & /
       real p85(0:10)
       data p85/
     & 0.25853E+05,-0.40798E+05, 0.19920E+05,-0.60426E+04, 0.12385E+04,
     &-0.17191E+03, 0.10587E+02,-0.74778E+01,-0.39796E+01,-0.22841E+00,
     & 0.25918E+01
     & /
       real p86(0:10)
       data p86/
     & 0.26576E+05,-0.41985E+05, 0.20569E+05,-0.62751E+04, 0.12930E+04,
     &-0.18103E+03, 0.11547E+02,-0.75404E+01,-0.39573E+01,-0.19783E+00,
     & 0.26623E+01
     & /
       real p87(0:10)
       data p87/
     & 0.27310E+05,-0.43189E+05, 0.21230E+05,-0.65126E+04, 0.13491E+04,
     &-0.19046E+03, 0.12553E+02,-0.76056E+01,-0.39350E+01,-0.16800E+00,
     & 0.27333E+01
     & /
       real p88(0:10)
       data p88/
     & 0.28053E+05,-0.44411E+05, 0.21902E+05,-0.67552E+04, 0.14067E+04,
     &-0.20021E+03, 0.13607E+02,-0.76737E+01,-0.39125E+01,-0.13894E+00,
     & 0.28048E+01
     & /
       real p89(0:10)
       data p89/
     & 0.28807E+05,-0.45650E+05, 0.22585E+05,-0.70029E+04, 0.14659E+04,
     &-0.21026E+03, 0.14710E+02,-0.77448E+01,-0.38899E+01,-0.11064E+00,
     & 0.28768E+01
     & /
       real p90(0:10)
       data p90/
     & 0.29570E+05,-0.46906E+05, 0.23279E+05,-0.72556E+04, 0.15266E+04,
     &-0.22064E+03, 0.15862E+02,-0.78191E+01,-0.38673E+01,-0.83114E-01,
     & 0.29494E+01
     & /
       real p91(0:10)
       data p91/
     & 0.30343E+05,-0.48178E+05, 0.23984E+05,-0.75135E+04, 0.15890E+04,
     &-0.23135E+03, 0.17065E+02,-0.78968E+01,-0.38446E+01,-0.56368E-01,
     & 0.30226E+01
     & /
       real p92(0:10)
       data p92/
     & 0.31125E+05,-0.49468E+05, 0.24700E+05,-0.77765E+04, 0.16529E+04,
     &-0.24238E+03, 0.18320E+02,-0.79782E+01,-0.38218E+01,-0.30405E-01,
     & 0.30963E+01
     & /
       real p93(0:10)
       data p93/
     & 0.31918E+05,-0.50776E+05, 0.25428E+05,-0.80446E+04, 0.17184E+04,
     &-0.25375E+03, 0.19627E+02,-0.80633E+01,-0.37989E+01,-0.52195E-02,
     & 0.31707E+01
     & /
       real p94(0:10)
       data p94/
     & 0.32720E+05,-0.52100E+05, 0.26166E+05,-0.83181E+04, 0.17856E+04,
     &-0.26547E+03, 0.20989E+02,-0.81525E+01,-0.37759E+01, 0.19194E-01,
     & 0.32456E+01
     & /
       real p95(0:10)
       data p95/
     & 0.33533E+05,-0.53442E+05, 0.26916E+05,-0.85968E+04, 0.18545E+04,
     &-0.27754E+03, 0.22406E+02,-0.82458E+01,-0.37528E+01, 0.42831E-01,
     & 0.33213E+01
     & /
       real p96(0:10)
       data p96/
     & 0.34355E+05,-0.54802E+05, 0.27678E+05,-0.88808E+04, 0.19251E+04,
     &-0.28997E+03, 0.23880E+02,-0.83436E+01,-0.37296E+01, 0.65688E-01,
     & 0.33975E+01
     & /
       real p97(0:10)
       data p97/
     & 0.35188E+05,-0.56179E+05, 0.28450E+05,-0.91702E+04, 0.19973E+04,
     &-0.30276E+03, 0.25411E+02,-0.84460E+01,-0.37063E+01, 0.87759E-01,
     & 0.34744E+01
     & /
       real p98(0:10)
       data p98/
     & 0.36031E+05,-0.57573E+05, 0.29235E+05,-0.94649E+04, 0.20713E+04,
     &-0.31591E+03, 0.27000E+02,-0.85532E+01,-0.36829E+01, 0.10904E+00,
     & 0.35520E+01
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  18,  18,  18,  17,  17,  17,  17
     &,  15,  15,  15,  15,  15,  14,  14,  14,  14,  14
     &,  12,  12,  12,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.18) param(i,15) = p15(i)
             if (i.le.18) param(i,16) = p16(i)
             if (i.le.18) param(i,17) = p17(i)
             if (i.le.17) param(i,18) = p18(i)
             if (i.le.17) param(i,19) = p19(i)
             if (i.le.17) param(i,20) = p20(i)
             if (i.le.17) param(i,21) = p21(i)
             if (i.le.15) param(i,22) = p22(i)
             if (i.le.15) param(i,23) = p23(i)
             if (i.le.15) param(i,24) = p24(i)
             if (i.le.15) param(i,25) = p25(i)
             if (i.le.15) param(i,26) = p26(i)
             if (i.le.14) param(i,27) = p27(i)
             if (i.le.14) param(i,28) = p28(i)
             if (i.le.14) param(i,29) = p29(i)
             if (i.le.14) param(i,30) = p30(i)
             if (i.le.14) param(i,31) = p31(i)
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.11) param(i,35) = p35(i)
             if (i.le.11) param(i,36) = p36(i)
             if (i.le.11) param(i,37) = p37(i)
             if (i.le.11) param(i,38) = p38(i)
             if (i.le.11) param(i,39) = p39(i)
             if (i.le.11) param(i,40) = p40(i)
             if (i.le.11) param(i,41) = p41(i)
             if (i.le.11) param(i,42) = p42(i)
             if (i.le.11) param(i,43) = p43(i)
             if (i.le.11) param(i,44) = p44(i)
             if (i.le.11) param(i,45) = p45(i)
             if (i.le.11) param(i,46) = p46(i)
             if (i.le.11) param(i,47) = p47(i)
             if (i.le.11) param(i,48) = p48(i)
             if (i.le.11) param(i,49) = p49(i)
             if (i.le.11) param(i,50) = p50(i)
             if (i.le.11) param(i,51) = p51(i)
             if (i.le.11) param(i,52) = p52(i)
             if (i.le.11) param(i,53) = p53(i)
             if (i.le.11) param(i,54) = p54(i)
             if (i.le.11) param(i,55) = p55(i)
             if (i.le.11) param(i,56) = p56(i)
             if (i.le.11) param(i,57) = p57(i)
             if (i.le.11) param(i,58) = p58(i)
             if (i.le.11) param(i,59) = p59(i)
             if (i.le.11) param(i,60) = p60(i)
             if (i.le.11) param(i,61) = p61(i)
             if (i.le.11) param(i,62) = p62(i)
             if (i.le.11) param(i,63) = p63(i)
             if (i.le.11) param(i,64) = p64(i)
             if (i.le.11) param(i,65) = p65(i)
             if (i.le.11) param(i,66) = p66(i)
             if (i.le.11) param(i,67) = p67(i)
             if (i.le.11) param(i,68) = p68(i)
             if (i.le.11) param(i,69) = p69(i)
             if (i.le.11) param(i,70) = p70(i)
             if (i.le.11) param(i,71) = p71(i)
             if (i.le.11) param(i,72) = p72(i)
             if (i.le.11) param(i,73) = p73(i)
             if (i.le.11) param(i,74) = p74(i)
             if (i.le.11) param(i,75) = p75(i)
             if (i.le.11) param(i,76) = p76(i)
             if (i.le.11) param(i,77) = p77(i)
             if (i.le.10) param(i,78) = p78(i)
             if (i.le.10) param(i,79) = p79(i)
             if (i.le.10) param(i,80) = p80(i)
             if (i.le.10) param(i,81) = p81(i)
             if (i.le.10) param(i,82) = p82(i)
             if (i.le.10) param(i,83) = p83(i)
             if (i.le.10) param(i,84) = p84(i)
             if (i.le.10) param(i,85) = p85(i)
             if (i.le.10) param(i,86) = p86(i)
             if (i.le.10) param(i,87) = p87(i)
             if (i.le.10) param(i,88) = p88(i)
             if (i.le.10) param(i,89) = p89(i)
             if (i.le.10) param(i,90) = p90(i)
             if (i.le.10) param(i,91) = p91(i)
             if (i.le.10) param(i,92) = p92(i)
             if (i.le.10) param(i,93) = p93(i)
             if (i.le.10) param(i,94) = p94(i)
             if (i.le.10) param(i,95) = p95(i)
             if (i.le.10) param(i,96) = p96(i)
             if (i.le.10) param(i,97) = p97(i)
             if (i.le.10) param(i,98) = p98(i)
          enddo
       endif
            
       glu0hiq2ms=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
       glu0hiq2ms=(a*(1.0-x)**1.5)/log10(q2)/1d2
       if (q2.gt.q2max) glu0hiq2ms=0.0
       if (q2.lt.q2min) glu0hiq2ms=0.0
       if ( x.gt. xmax) glu0hiq2ms=0.0
       if ( x.lt. xmin) glu0hiq2ms=0.0
       return
       end
       real function  uvalhiq2ds(xin,q2in)
***********************************************************
c  parametrization of uvalhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:46)
       data p15/
     & 0.14740E+00, 0.19927E+00, 0.23055E-01,-0.92297E-01,-0.11869E+00,
     &-0.95254E-01,-0.59550E-01,-0.29210E-01,-0.87947E-02, 0.25589E-02,
     & 0.73700E-02, 0.82300E-02, 0.71631E-02, 0.54734E-02, 0.38508E-02,
     & 0.25677E-02, 0.16623E-02, 0.10694E-02, 0.69892E-03, 0.47209E-03,
     & 0.33437E-03, 0.25323E-03, 0.20889E-03, 0.18403E-03, 0.15937E-03,
     & 0.12368E-03, 0.81371E-04, 0.44555E-04, 0.20360E-04, 0.82662E-05,
     & 0.35460E-05,-0.55107E-06,-0.12160E-04,-0.34586E-04,-0.59813E-04,
     &-0.76147E-04,-0.79875E-04,-0.76270E-04,-0.72209E-04,-0.70458E-04,
     &-0.67974E-04,-0.62020E-04,-0.54657E-04,-0.48295E-04,-0.40041E-04,
     &-0.24254E-04,-0.69084E-06
     & /
       real p16(0:46)
       data p16/
     & 0.15772E+00, 0.21189E+00, 0.21709E-01,-0.10140E+00,-0.12788E+00,
     &-0.10106E+00,-0.61910E-01,-0.29312E-01,-0.78318E-02, 0.37852E-02,
     & 0.84457E-02, 0.90125E-02, 0.76592E-02, 0.57497E-02, 0.39826E-02,
     & 0.26161E-02, 0.16687E-02, 0.10585E-02, 0.68325E-03, 0.45699E-03,
     & 0.32153E-03, 0.24303E-03, 0.20150E-03, 0.17941E-03, 0.15670E-03,
     & 0.12164E-03, 0.79059E-04, 0.41911E-04, 0.17728E-04, 0.59277E-05,
     & 0.16579E-05,-0.19499E-05,-0.13390E-04,-0.36227E-04,-0.61985E-04,
     &-0.78293E-04,-0.81406E-04,-0.77157E-04,-0.72916E-04,-0.71482E-04,
     &-0.69335E-04,-0.63380E-04,-0.55856E-04,-0.49457E-04,-0.41108E-04,
     &-0.24658E-04, 0.27090E-06
     & /
       real p17(0:46)
       data p17/
     & 0.16831E+00, 0.22469E+00, 0.19997E-01,-0.11099E+00,-0.13734E+00,
     &-0.10685E+00,-0.64092E-01,-0.29204E-01,-0.66989E-02, 0.51172E-02,
     & 0.95703E-02, 0.98055E-02, 0.81450E-02, 0.60079E-02, 0.40957E-02,
     & 0.26487E-02, 0.16631E-02, 0.10390E-02, 0.66172E-03, 0.43789E-03,
     & 0.30591E-03, 0.23082E-03, 0.19261E-03, 0.17366E-03, 0.15322E-03,
     & 0.11901E-03, 0.76322E-04, 0.38983E-04, 0.14917E-04, 0.34652E-05,
     &-0.32713E-06,-0.34093E-05,-0.14621E-04,-0.37800E-04,-0.64009E-04,
     &-0.80206E-04,-0.82631E-04,-0.77707E-04,-0.73308E-04,-0.72247E-04,
     &-0.70495E-04,-0.64571E-04,-0.56909E-04,-0.50510E-04,-0.42116E-04,
     &-0.25044E-04, 0.12436E-05
     & /
       real p18(0:46)
       data p18/
     & 0.17874E+00, 0.23714E+00, 0.17999E-01,-0.12067E+00,-0.14665E+00,
     &-0.11238E+00,-0.66009E-01,-0.28897E-01,-0.54532E-02, 0.64904E-02,
     & 0.10690E-01, 0.10572E-01, 0.85981E-02, 0.62364E-02, 0.41857E-02,
     & 0.26647E-02, 0.16466E-02, 0.10125E-02, 0.63575E-03, 0.41602E-03,
     & 0.28851E-03, 0.21740E-03, 0.18282E-03, 0.16721E-03, 0.14919E-03,
     & 0.11599E-03, 0.73356E-04, 0.35957E-04, 0.12089E-04, 0.10158E-05,
     &-0.23017E-05,-0.48524E-05,-0.15793E-04,-0.39237E-04,-0.65812E-04,
     &-0.81823E-04,-0.83523E-04,-0.77926E-04,-0.73396E-04,-0.72749E-04,
     &-0.71427E-04,-0.65564E-04,-0.57790E-04,-0.51425E-04,-0.43037E-04,
     &-0.25405E-04, 0.21751E-05
     & /
       real p19(0:46)
       data p19/
     & 0.18902E+00, 0.24927E+00, 0.15738E-01,-0.13041E+00,-0.15583E+00,
     &-0.11766E+00,-0.67677E-01,-0.28410E-01,-0.41100E-02, 0.78946E-02,
     & 0.11800E-01, 0.11309E-01, 0.90189E-02, 0.64367E-02, 0.42542E-02,
     & 0.26659E-02, 0.16202E-02, 0.97994E-03, 0.60613E-03, 0.39195E-03,
     & 0.26974E-03, 0.20306E-03, 0.17236E-03, 0.16024E-03, 0.14475E-03,
     & 0.11270E-03, 0.70242E-04, 0.32889E-04, 0.92843E-05,-0.13938E-05,
     &-0.42469E-05,-0.62675E-05,-0.16905E-04,-0.40551E-04,-0.67415E-04,
     &-0.83181E-04,-0.84124E-04,-0.77859E-04,-0.73226E-04,-0.73026E-04,
     &-0.72166E-04,-0.66388E-04,-0.58525E-04,-0.52224E-04,-0.43887E-04,
     &-0.25754E-04, 0.30590E-05
     & /
       real p20(0:46)
       data p20/
     & 0.19917E+00, 0.26110E+00, 0.13234E-01,-0.14021E+00,-0.16486E+00,
     &-0.12270E+00,-0.69115E-01,-0.27760E-01,-0.26829E-02, 0.93210E-02,
     & 0.12895E-01, 0.12016E-01, 0.94080E-02, 0.66104E-02, 0.43029E-02,
     & 0.26536E-02, 0.15854E-02, 0.94223E-03, 0.57350E-03, 0.36614E-03,
     & 0.24995E-03, 0.18808E-03, 0.16144E-03, 0.15291E-03, 0.14005E-03,
     & 0.10923E-03, 0.67045E-04, 0.29822E-04, 0.65313E-05,-0.37434E-05,
     &-0.61485E-05,-0.76464E-05,-0.17956E-04,-0.41749E-04,-0.68839E-04,
     &-0.84309E-04,-0.84473E-04,-0.77545E-04,-0.72834E-04,-0.73114E-04,
     &-0.72741E-04,-0.67068E-04,-0.59133E-04,-0.52924E-04,-0.44678E-04,
     &-0.26097E-04, 0.38914E-05
     & /
       real p21(0:46)
       data p21/
     & 0.20918E+00, 0.27265E+00, 0.10508E-01,-0.15006E+00,-0.17376E+00,
     &-0.12751E+00,-0.70338E-01,-0.26963E-01,-0.11836E-02, 0.10762E-01,
     & 0.13973E-01, 0.12693E-01, 0.97664E-02, 0.67588E-02, 0.43334E-02,
     & 0.26292E-02, 0.15431E-02, 0.90018E-03, 0.53846E-03, 0.33903E-03,
     & 0.22944E-03, 0.17266E-03, 0.15021E-03, 0.14533E-03, 0.13515E-03,
     & 0.10564E-03, 0.63815E-04, 0.26792E-04, 0.38526E-05,-0.60183E-05,
     &-0.79962E-05,-0.89831E-05,-0.18946E-04,-0.42841E-04,-0.70103E-04,
     &-0.85232E-04,-0.84599E-04,-0.77017E-04,-0.72252E-04,-0.73039E-04,
     &-0.73177E-04,-0.67625E-04,-0.59634E-04,-0.53538E-04,-0.45421E-04,
     &-0.26442E-04, 0.46702E-05
     & /
       real p22(0:46)
       data p22/
     & 0.21908E+00, 0.28394E+00, 0.75744E-02,-0.15994E+00,-0.18252E+00,
     &-0.13211E+00,-0.71360E-01,-0.26032E-01, 0.37764E-03, 0.12213E-01,
     & 0.15030E-01, 0.13339E-01, 0.10095E-01, 0.68834E-02, 0.43470E-02,
     & 0.25941E-02, 0.14944E-02, 0.85449E-03, 0.50149E-03, 0.31094E-03,
     & 0.20845E-03, 0.15699E-03, 0.13881E-03, 0.13762E-03, 0.13016E-03,
     & 0.10201E-03, 0.60596E-04, 0.23826E-04, 0.12647E-05,-0.82079E-05,
     &-0.97828E-05,-0.10273E-04,-0.19876E-04,-0.43835E-04,-0.71222E-04,
     &-0.85975E-04,-0.84532E-04,-0.76305E-04,-0.71508E-04,-0.72826E-04,
     &-0.73494E-04,-0.68076E-04,-0.60042E-04,-0.54080E-04,-0.46125E-04,
     &-0.26793E-04, 0.53942E-05
     & /
       real p23(0:46)
       data p23/
     & 0.22887E+00, 0.29499E+00, 0.44486E-02,-0.16985E+00,-0.19114E+00,
     &-0.13649E+00,-0.72194E-01,-0.24979E-01, 0.19917E-02, 0.13666E-01,
     & 0.16064E-01, 0.13955E-01, 0.10395E-01, 0.69857E-02, 0.43453E-02,
     & 0.25492E-02, 0.14400E-02, 0.80579E-03, 0.46304E-03, 0.28219E-03,
     & 0.18720E-03, 0.14122E-03, 0.12736E-03, 0.12987E-03, 0.12513E-03,
     & 0.98367E-04, 0.57418E-04, 0.20942E-04,-0.12207E-05,-0.10305E-04,
     &-0.11503E-04,-0.11515E-04,-0.20748E-04,-0.44738E-04,-0.72211E-04,
     &-0.86558E-04,-0.84296E-04,-0.75434E-04,-0.70625E-04,-0.72495E-04,
     &-0.73710E-04,-0.68437E-04,-0.60369E-04,-0.54559E-04,-0.46796E-04,
     &-0.27152E-04, 0.60635E-05
     & /
       real p24(0:25)
       data p24/
     & 0.23857E+00, 0.30584E+00, 0.11446E-02,-0.17981E+00,-0.19970E+00,
     &-0.14077E+00,-0.72950E-01,-0.23901E-01, 0.35824E-02, 0.15063E-01,
     & 0.17029E-01, 0.14506E-01, 0.10650E-01, 0.70736E-02, 0.43639E-02,
     & 0.25532E-02, 0.14430E-02, 0.79692E-03, 0.43014E-03, 0.22550E-03,
     & 0.11841E-03, 0.70481E-04, 0.55310E-04, 0.53407E-04, 0.46279E-04,
     & 0.22695E-04
     & /
       real p25(0:23)
       data p25/
     & 0.24817E+00, 0.31646E+00,-0.23254E-02,-0.18976E+00,-0.20805E+00,
     &-0.14477E+00,-0.73444E-01,-0.22638E-01, 0.52784E-02, 0.16510E-01,
     & 0.18013E-01, 0.15060E-01, 0.10897E-01, 0.71367E-02, 0.43372E-02,
     & 0.24946E-02, 0.13822E-02, 0.74552E-03, 0.39034E-03, 0.19575E-03,
     & 0.96489E-04, 0.54467E-04, 0.43798E-04, 0.45527E-04
     & /
       real p26(0:22)
       data p26/
     & 0.25767E+00, 0.32687E+00,-0.59518E-02,-0.19972E+00,-0.21628E+00,
     &-0.14859E+00,-0.73783E-01,-0.21283E-01, 0.70059E-02, 0.17950E-01,
     & 0.18971E-01, 0.15585E-01, 0.11118E-01, 0.71813E-02, 0.42985E-02,
     & 0.24291E-02, 0.13178E-02, 0.69247E-03, 0.34996E-03, 0.16596E-03,
     & 0.74756E-04, 0.38697E-04, 0.32505E-04
     & /
       real p27(0:21)
       data p27/
     & 0.26709E+00, 0.33710E+00,-0.97251E-02,-0.20968E+00,-0.22439E+00,
     &-0.15223E+00,-0.73977E-01,-0.19845E-01, 0.87595E-02, 0.19378E-01,
     & 0.19902E-01, 0.16080E-01, 0.11315E-01, 0.72087E-02, 0.42490E-02,
     & 0.23573E-02, 0.12503E-02, 0.63814E-03, 0.30927E-03, 0.13629E-03,
     & 0.53305E-04, 0.23230E-04
     & /
       real p28(0:21)
       data p28/
     & 0.27643E+00, 0.34715E+00,-0.13636E-01,-0.21965E+00,-0.23236E+00,
     &-0.15570E+00,-0.74034E-01,-0.18331E-01, 0.10534E-01, 0.20793E-01,
     & 0.20805E-01, 0.16547E-01, 0.11488E-01, 0.72200E-02, 0.41896E-02,
     & 0.22802E-02, 0.11801E-02, 0.58286E-03, 0.26845E-03, 0.10687E-03,
     & 0.32217E-04, 0.81172E-05
     & /
       real p29(0:21)
       data p29/
     & 0.28570E+00, 0.35703E+00,-0.17677E-01,-0.22962E+00,-0.24022E+00,
     &-0.15901E+00,-0.73963E-01,-0.16748E-01, 0.12326E-01, 0.22193E-01,
     & 0.21681E-01, 0.16986E-01, 0.11640E-01, 0.72163E-02, 0.41211E-02,
     & 0.21982E-02, 0.11079E-02, 0.52692E-03, 0.22769E-03, 0.77803E-04,
     & 0.11556E-04,-0.66035E-05
     & /
       real p30(0:20)
       data p30/
     & 0.29490E+00, 0.36675E+00,-0.21841E-01,-0.23959E+00,-0.24796E+00,
     &-0.16217E+00,-0.73770E-01,-0.15102E-01, 0.14131E-01, 0.23576E-01,
     & 0.22528E-01, 0.17398E-01, 0.11770E-01, 0.71985E-02, 0.40443E-02,
     & 0.21121E-02, 0.10339E-02, 0.47056E-03, 0.18714E-03, 0.49180E-04,
     &-0.86276E-05
     & /
       real p31(0:20)
       data p31/
     & 0.29850E+00, 0.37054E+00,-0.23500E-01,-0.24350E+00,-0.25098E+00,
     &-0.16338E+00,-0.73670E-01,-0.14444E-01, 0.14840E-01, 0.24114E-01,
     & 0.22854E-01, 0.17553E-01, 0.11817E-01, 0.71885E-02, 0.40126E-02,
     & 0.20776E-02, 0.10047E-02, 0.44853E-03, 0.17142E-03, 0.38148E-04,
     &-0.16367E-04
     & /
       real p32(0:20)
       data p32/
     & 0.30406E+00, 0.37637E+00,-0.26070E-01,-0.24952E+00,-0.25559E+00,
     &-0.16521E+00,-0.73515E-01,-0.13446E-01, 0.15912E-01, 0.24926E-01,
     & 0.23345E-01, 0.17787E-01, 0.11887E-01, 0.71738E-02, 0.39652E-02,
     & 0.20260E-02, 0.96115E-03, 0.41574E-03, 0.14803E-03, 0.21753E-04,
     &-0.27869E-04
     & /
       real p33(0:20)
       data p33/
     & 0.31316E+00, 0.38586E+00,-0.30397E-01,-0.25942E+00,-0.26309E+00,
     &-0.16812E+00,-0.73169E-01,-0.11755E-01, 0.17688E-01, 0.26249E-01,
     & 0.24132E-01, 0.18152E-01, 0.11987E-01, 0.71394E-02, 0.38813E-02,
     & 0.19383E-02, 0.88829E-03, 0.36151E-03, 0.10973E-03,-0.49014E-05,
     &-0.46456E-04
     & /
       real p34(0:22)
       data p34/
     & 0.32221E+00, 0.39520E+00,-0.34834E-01,-0.26932E+00,-0.27048E+00,
     &-0.17089E+00,-0.72716E-01,-0.10012E-01, 0.19471E-01, 0.27555E-01,
     & 0.24893E-01, 0.18493E-01, 0.12069E-01, 0.70933E-02, 0.37908E-02,
     & 0.18474E-02, 0.81429E-03, 0.30719E-03, 0.71785E-04,-0.31060E-04,
     &-0.64563E-04,-0.60193E-04,-0.37320E-04
     & /
       real p35(0:23)
       data p35/
     & 0.33119E+00, 0.40440E+00,-0.39377E-01,-0.27921E+00,-0.27777E+00,
     &-0.17352E+00,-0.72161E-01,-0.82213E-02, 0.21258E-01, 0.28842E-01,
     & 0.25628E-01, 0.18810E-01, 0.12134E-01, 0.70361E-02, 0.36943E-02,
     & 0.17537E-02, 0.73943E-03, 0.25296E-03, 0.34299E-04,-0.56671E-04,
     &-0.82164E-04,-0.72430E-04,-0.45843E-04,-0.14667E-04
     & /
       real p36(0:23)
       data p36/
     & 0.34011E+00, 0.41346E+00,-0.44021E-01,-0.28908E+00,-0.28494E+00,
     &-0.17602E+00,-0.71510E-01,-0.63863E-02, 0.23048E-01, 0.30109E-01,
     & 0.26337E-01, 0.19105E-01, 0.12182E-01, 0.69686E-02, 0.35923E-02,
     & 0.16576E-02, 0.66395E-03, 0.19894E-03,-0.26488E-05,-0.81693E-04,
     &-0.99236E-04,-0.84241E-04,-0.54043E-04,-0.20046E-04
     & /
       real p37(0:23)
       data p37/
     & 0.34898E+00, 0.42240E+00,-0.48760E-01,-0.29895E+00,-0.29200E+00,
     &-0.17840E+00,-0.70767E-01,-0.45111E-02, 0.24839E-01, 0.31356E-01,
     & 0.27021E-01, 0.19377E-01, 0.12214E-01, 0.68915E-02, 0.34853E-02,
     & 0.15596E-02, 0.58807E-03, 0.14527E-03,-0.38991E-04,-0.10609E-03,
     &-0.11576E-03,-0.95618E-04,-0.61920E-04,-0.25192E-04
     & /
       real p38(0:23)
       data p38/
     & 0.35780E+00, 0.43122E+00,-0.53590E-01,-0.30879E+00,-0.29897E+00,
     &-0.18065E+00,-0.69937E-01,-0.25992E-02, 0.26628E-01, 0.32582E-01,
     & 0.27679E-01, 0.19627E-01, 0.12231E-01, 0.68054E-02, 0.33737E-02,
     & 0.14598E-02, 0.51198E-03, 0.92062E-04,-0.74668E-04,-0.12984E-03,
     &-0.13174E-03,-0.10656E-03,-0.69472E-04,-0.30105E-04
     & /
       real p39(0:24)
       data p39/
     & 0.36657E+00, 0.43991E+00,-0.58508E-01,-0.31863E+00,-0.30583E+00,
     &-0.18278E+00,-0.69025E-01,-0.65394E-03, 0.28414E-01, 0.33786E-01,
     & 0.28312E-01, 0.19856E-01, 0.12234E-01, 0.67109E-02, 0.32581E-02,
     & 0.13586E-02, 0.43585E-03, 0.39409E-04,-0.10963E-03,-0.15291E-03,
     &-0.14715E-03,-0.11706E-03,-0.76701E-04,-0.34789E-04,-0.65784E-05
     & /
       real p40(0:24)
       data p40/
     & 0.37529E+00, 0.44849E+00,-0.63509E-01,-0.32844E+00,-0.31258E+00,
     &-0.18480E+00,-0.68034E-01, 0.13218E-02, 0.30194E-01, 0.34969E-01,
     & 0.28920E-01, 0.20066E-01, 0.12223E-01, 0.66086E-02, 0.31389E-02,
     & 0.12563E-02, 0.35986E-03,-0.12602E-04,-0.14384E-03,-0.17530E-03,
     &-0.16200E-03,-0.12713E-03,-0.83611E-04,-0.39245E-04,-0.89803E-05
     & /
       real p41(0:24)
       data p41/
     & 0.38397E+00, 0.45696E+00,-0.68590E-01,-0.33824E+00,-0.31925E+00,
     &-0.18670E+00,-0.66969E-01, 0.33252E-02, 0.31969E-01, 0.36130E-01,
     & 0.29505E-01, 0.20255E-01, 0.12199E-01, 0.64990E-02, 0.30164E-02,
     & 0.11530E-02, 0.28412E-03,-0.63898E-04,-0.17726E-03,-0.19698E-03,
     &-0.17628E-03,-0.13676E-03,-0.90206E-04,-0.43479E-04,-0.11224E-04
     & /
       real p42(0:24)
       data p42/
     & 0.39260E+00, 0.46533E+00,-0.73748E-01,-0.34802E+00,-0.32581E+00,
     &-0.18850E+00,-0.65832E-01, 0.53536E-02, 0.33736E-01, 0.37268E-01,
     & 0.30065E-01, 0.20426E-01, 0.12162E-01, 0.63827E-02, 0.28910E-02,
     & 0.10491E-02, 0.20879E-03,-0.11441E-03,-0.20987E-03,-0.21796E-03,
     &-0.19000E-03,-0.14597E-03,-0.96491E-04,-0.47494E-04,-0.13314E-04
     & /
       real p43(0:24)
       data p43/
     & 0.40119E+00, 0.47359E+00,-0.78979E-01,-0.35778E+00,-0.33228E+00,
     &-0.19019E+00,-0.64628E-01, 0.74047E-02, 0.35494E-01, 0.38384E-01,
     & 0.30603E-01, 0.20579E-01, 0.12114E-01, 0.62601E-02, 0.27630E-02,
     & 0.94467E-03, 0.13396E-03,-0.16410E-03,-0.24164E-03,-0.23823E-03,
     &-0.20315E-03,-0.15475E-03,-0.10247E-03,-0.51297E-04,-0.15254E-04
     & /
       real p44(0:24)
       data p44/
     & 0.40974E+00, 0.48175E+00,-0.84280E-01,-0.36752E+00,-0.33866E+00,
     &-0.19179E+00,-0.63360E-01, 0.94762E-02, 0.37243E-01, 0.39478E-01,
     & 0.31117E-01, 0.20714E-01, 0.12055E-01, 0.61317E-02, 0.26327E-02,
     & 0.83997E-03, 0.59732E-04,-0.21290E-03,-0.27255E-03,-0.25778E-03,
     &-0.21575E-03,-0.16312E-03,-0.10815E-03,-0.54892E-04,-0.17050E-04
     & /
       real p45(0:24)
       data p45/
     & 0.41825E+00, 0.48982E+00,-0.89650E-01,-0.37723E+00,-0.34494E+00,
     &-0.19328E+00,-0.62031E-01, 0.11566E-01, 0.38981E-01, 0.40550E-01,
     & 0.31609E-01, 0.20832E-01, 0.11985E-01, 0.59979E-02, 0.25005E-02,
     & 0.73514E-03,-0.13794E-04,-0.26077E-03,-0.30260E-03,-0.27662E-03,
     &-0.22780E-03,-0.17109E-03,-0.11355E-03,-0.58285E-04,-0.18707E-04
     & /
       real p46(0:24)
       data p46/
     & 0.42673E+00, 0.49780E+00,-0.95084E-01,-0.38693E+00,-0.35114E+00,
     &-0.19469E+00,-0.60643E-01, 0.13672E-01, 0.40708E-01, 0.41599E-01,
     & 0.32079E-01, 0.20934E-01, 0.11906E-01, 0.58591E-02, 0.23665E-02,
     & 0.63035E-03,-0.86545E-04,-0.30770E-03,-0.33178E-03,-0.29475E-03,
     &-0.23931E-03,-0.17865E-03,-0.11865E-03,-0.61483E-04,-0.20229E-04
     & /
       real p47(0:24)
       data p47/
     & 0.43517E+00, 0.50569E+00,-0.10058E+00,-0.39660E+00,-0.35725E+00,
     &-0.19600E+00,-0.59199E-01, 0.15793E-01, 0.42422E-01, 0.42625E-01,
     & 0.32527E-01, 0.21020E-01, 0.11816E-01, 0.57157E-02, 0.22311E-02,
     & 0.52573E-03,-0.15845E-03,-0.35364E-03,-0.36008E-03,-0.31218E-03,
     &-0.25029E-03,-0.18583E-03,-0.12349E-03,-0.64491E-04,-0.21622E-04
     & /
       real p48(0:24)
       data p48/
     & 0.44357E+00, 0.51349E+00,-0.10614E+00,-0.40625E+00,-0.36327E+00,
     &-0.19722E+00,-0.57703E-01, 0.17927E-01, 0.44124E-01, 0.43630E-01,
     & 0.32955E-01, 0.21091E-01, 0.11718E-01, 0.55681E-02, 0.20944E-02,
     & 0.42141E-03,-0.22944E-03,-0.39858E-03,-0.38750E-03,-0.32891E-03,
     &-0.26075E-03,-0.19262E-03,-0.12806E-03,-0.67316E-04,-0.22890E-04
     & /
       real p49(0:24)
       data p49/
     & 0.45194E+00, 0.52121E+00,-0.11175E+00,-0.41588E+00,-0.36921E+00,
     &-0.19835E+00,-0.56156E-01, 0.20072E-01, 0.45812E-01, 0.44612E-01,
     & 0.33362E-01, 0.21147E-01, 0.11611E-01, 0.54166E-02, 0.19566E-02,
     & 0.31751E-03,-0.29948E-03,-0.44249E-03,-0.41403E-03,-0.34496E-03,
     &-0.27069E-03,-0.19905E-03,-0.13236E-03,-0.69964E-04,-0.24039E-04
     & /
       real p50(0:24)
       data p50/
     & 0.46028E+00, 0.52885E+00,-0.11743E+00,-0.42549E+00,-0.37507E+00,
     &-0.19940E+00,-0.54560E-01, 0.22227E-01, 0.47486E-01, 0.45572E-01,
     & 0.33749E-01, 0.21189E-01, 0.11496E-01, 0.52615E-02, 0.18181E-02,
     & 0.21414E-03,-0.36850E-03,-0.48537E-03,-0.43969E-03,-0.36033E-03,
     &-0.28014E-03,-0.20512E-03,-0.13642E-03,-0.72442E-04,-0.25074E-04
     & /
       real p51(0:24)
       data p51/
     & 0.46859E+00, 0.53641E+00,-0.12315E+00,-0.43507E+00,-0.38085E+00,
     &-0.20037E+00,-0.52919E-01, 0.24391E-01, 0.49146E-01, 0.46511E-01,
     & 0.34116E-01, 0.21217E-01, 0.11374E-01, 0.51031E-02, 0.16789E-02,
     & 0.11139E-03,-0.43647E-03,-0.52720E-03,-0.46448E-03,-0.37504E-03,
     &-0.28910E-03,-0.21084E-03,-0.14023E-03,-0.74754E-04,-0.25999E-04
     & /
       real p52(0:24)
       data p52/
     & 0.47687E+00, 0.54389E+00,-0.12893E+00,-0.44462E+00,-0.38654E+00,
     &-0.20126E+00,-0.51234E-01, 0.26562E-01, 0.50792E-01, 0.47428E-01,
     & 0.34464E-01, 0.21232E-01, 0.11244E-01, 0.49417E-02, 0.15392E-02,
     & 0.93543E-05,-0.50336E-03,-0.56798E-03,-0.48841E-03,-0.38909E-03,
     &-0.29758E-03,-0.21622E-03,-0.14381E-03,-0.76909E-04,-0.26819E-04
     & /
       real p53(0:24)
       data p53/
     & 0.48512E+00, 0.55130E+00,-0.13476E+00,-0.45416E+00,-0.39216E+00,
     &-0.20208E+00,-0.49506E-01, 0.28739E-01, 0.52422E-01, 0.48323E-01,
     & 0.34794E-01, 0.21235E-01, 0.11107E-01, 0.47775E-02, 0.13992E-02,
     &-0.91896E-04,-0.56913E-03,-0.60770E-03,-0.51148E-03,-0.40250E-03,
     &-0.30560E-03,-0.22128E-03,-0.14716E-03,-0.78911E-04,-0.27539E-04
     & /
       real p54(0:24)
       data p54/
     & 0.49335E+00, 0.55864E+00,-0.14063E+00,-0.46366E+00,-0.39770E+00,
     &-0.20282E+00,-0.47739E-01, 0.30921E-01, 0.54037E-01, 0.49197E-01,
     & 0.35106E-01, 0.21225E-01, 0.10964E-01, 0.46109E-02, 0.12590E-02,
     &-0.19229E-03,-0.63376E-03,-0.64637E-03,-0.53370E-03,-0.41528E-03,
     &-0.31317E-03,-0.22601E-03,-0.15030E-03,-0.80768E-04,-0.28163E-04
     & /
       real p55(0:24)
       data p55/
     & 0.50154E+00, 0.56591E+00,-0.14656E+00,-0.47315E+00,-0.40317E+00,
     &-0.20348E+00,-0.45934E-01, 0.33107E-01, 0.55636E-01, 0.50051E-01,
     & 0.35399E-01, 0.21204E-01, 0.10814E-01, 0.44421E-02, 0.11187E-02,
     &-0.29175E-03,-0.69722E-03,-0.68398E-03,-0.55509E-03,-0.42744E-03,
     &-0.32030E-03,-0.23044E-03,-0.15322E-03,-0.82483E-04,-0.28696E-04
     & /
       real p56(0:24)
       data p56/
     & 0.50971E+00, 0.57311E+00,-0.15253E+00,-0.48261E+00,-0.40856E+00,
     &-0.20408E+00,-0.44092E-01, 0.35296E-01, 0.57219E-01, 0.50884E-01,
     & 0.35676E-01, 0.21172E-01, 0.10659E-01, 0.42712E-02, 0.97856E-03,
     &-0.39023E-03,-0.75951E-03,-0.72053E-03,-0.57566E-03,-0.43900E-03,
     &-0.32700E-03,-0.23457E-03,-0.15594E-03,-0.84065E-04,-0.29142E-04
     & /
       real p57(0:24)
       data p57/
     & 0.51786E+00, 0.58024E+00,-0.15854E+00,-0.49204E+00,-0.41388E+00,
     &-0.20461E+00,-0.42215E-01, 0.37487E-01, 0.58786E-01, 0.51696E-01,
     & 0.35935E-01, 0.21128E-01, 0.10498E-01, 0.40985E-02, 0.83860E-03,
     &-0.48769E-03,-0.82060E-03,-0.75604E-03,-0.59541E-03,-0.44998E-03,
     &-0.33329E-03,-0.23842E-03,-0.15847E-03,-0.85517E-04,-0.29506E-04
     & /
       real p58(0:24)
       data p58/
     & 0.52598E+00, 0.58731E+00,-0.16460E+00,-0.50145E+00,-0.41913E+00,
     &-0.20507E+00,-0.40305E-01, 0.39679E-01, 0.60337E-01, 0.52488E-01,
     & 0.36178E-01, 0.21074E-01, 0.10333E-01, 0.39242E-02, 0.69895E-03,
     &-0.58406E-03,-0.88049E-03,-0.79051E-03,-0.61437E-03,-0.46038E-03,
     &-0.33918E-03,-0.24198E-03,-0.16081E-03,-0.86845E-04,-0.29790E-04
     & /
       real p59(0:24)
       data p59/
     & 0.53408E+00, 0.59431E+00,-0.17070E+00,-0.51083E+00,-0.42431E+00,
     &-0.20547E+00,-0.38363E-01, 0.41872E-01, 0.61872E-01, 0.53260E-01,
     & 0.36405E-01, 0.21010E-01, 0.10162E-01, 0.37485E-02, 0.55971E-03,
     &-0.67931E-03,-0.93916E-03,-0.82395E-03,-0.63254E-03,-0.47022E-03,
     &-0.34467E-03,-0.24528E-03,-0.16296E-03,-0.88055E-04,-0.30000E-04
     & /
       real p60(0:24)
       data p60/
     & 0.54215E+00, 0.60126E+00,-0.17684E+00,-0.52019E+00,-0.42942E+00,
     &-0.20580E+00,-0.36391E-01, 0.44064E-01, 0.63390E-01, 0.54013E-01,
     & 0.36617E-01, 0.20937E-01, 0.99865E-02, 0.35715E-02, 0.42096E-03,
     &-0.77340E-03,-0.99662E-03,-0.85637E-03,-0.64994E-03,-0.47952E-03,
     &-0.34980E-03,-0.24833E-03,-0.16495E-03,-0.89152E-04,-0.30138E-04
     & /
       real p61(0:24)
       data p61/
     & 0.55020E+00, 0.60814E+00,-0.18301E+00,-0.52952E+00,-0.43447E+00,
     &-0.20608E+00,-0.34390E-01, 0.46256E-01, 0.64891E-01, 0.54746E-01,
     & 0.36813E-01, 0.20854E-01, 0.98069E-02, 0.33934E-02, 0.28279E-03,
     &-0.86631E-03,-0.10529E-02,-0.88777E-03,-0.66659E-03,-0.48828E-03,
     &-0.35455E-03,-0.25112E-03,-0.16677E-03,-0.90141E-04,-0.30210E-04
     & /
       real p62(0:24)
       data p62/
     & 0.55823E+00, 0.61497E+00,-0.18923E+00,-0.53883E+00,-0.43944E+00,
     &-0.20629E+00,-0.32361E-01, 0.48446E-01, 0.66376E-01, 0.55460E-01,
     & 0.36994E-01, 0.20762E-01, 0.96232E-02, 0.32144E-02, 0.14528E-03,
     &-0.95800E-03,-0.11079E-02,-0.91817E-03,-0.68250E-03,-0.49653E-03,
     &-0.35896E-03,-0.25368E-03,-0.16843E-03,-0.91027E-04,-0.30216E-04
     & /
       real p63(0:24)
       data p63/
     & 0.56624E+00, 0.62174E+00,-0.19548E+00,-0.54812E+00,-0.44435E+00,
     &-0.20644E+00,-0.30305E-01, 0.50633E-01, 0.67844E-01, 0.56156E-01,
     & 0.37161E-01, 0.20661E-01, 0.94356E-02, 0.30346E-02, 0.85045E-05,
     &-0.10484E-02,-0.11617E-02,-0.94759E-03,-0.69768E-03,-0.50427E-03,
     &-0.36302E-03,-0.25600E-03,-0.16993E-03,-0.91813E-04,-0.30163E-04
     & /
       real p64(0:24)
       data p64/
     & 0.57423E+00, 0.62845E+00,-0.20177E+00,-0.55737E+00,-0.44920E+00,
     &-0.20654E+00,-0.28224E-01, 0.52818E-01, 0.69295E-01, 0.56833E-01,
     & 0.37314E-01, 0.20552E-01, 0.92445E-02, 0.28542E-02,-0.12747E-03,
     &-0.11376E-02,-0.12143E-02,-0.97603E-03,-0.71216E-03,-0.51153E-03,
     &-0.36675E-03,-0.25810E-03,-0.17129E-03,-0.92506E-04,-0.30051E-04
     & /
       real p65(0:24)
       data p65/
     & 0.58220E+00, 0.63511E+00,-0.20809E+00,-0.56661E+00,-0.45398E+00,
     &-0.20658E+00,-0.26119E-01, 0.55000E-01, 0.70729E-01, 0.57491E-01,
     & 0.37453E-01, 0.20435E-01, 0.90500E-02, 0.26733E-02,-0.26260E-03,
     &-0.12255E-02,-0.12657E-02,-0.10035E-02,-0.72594E-03,-0.51831E-03,
     &-0.37017E-03,-0.25999E-03,-0.17251E-03,-0.93108E-04,-0.29886E-04
     & /
       real p66(0:24)
       data p66/
     & 0.59015E+00, 0.64172E+00,-0.21445E+00,-0.57581E+00,-0.45870E+00,
     &-0.20657E+00,-0.23991E-01, 0.57178E-01, 0.72147E-01, 0.58132E-01,
     & 0.37578E-01, 0.20311E-01, 0.88523E-02, 0.24919E-02,-0.39680E-03,
     &-0.13122E-02,-0.13158E-02,-0.10300E-02,-0.73904E-03,-0.52463E-03,
     &-0.37327E-03,-0.26168E-03,-0.17359E-03,-0.93625E-04,-0.29669E-04
     & /
       real p67(0:24)
       data p67/
     & 0.59808E+00, 0.64827E+00,-0.22084E+00,-0.58500E+00,-0.46336E+00,
     &-0.20651E+00,-0.21840E-01, 0.59351E-01, 0.73548E-01, 0.58755E-01,
     & 0.37691E-01, 0.20179E-01, 0.86517E-02, 0.23103E-02,-0.53004E-03,
     &-0.13975E-02,-0.13648E-02,-0.10556E-02,-0.75148E-03,-0.53050E-03,
     &-0.37608E-03,-0.26317E-03,-0.17455E-03,-0.94060E-04,-0.29403E-04
     & /
       real p68(0:24)
       data p68/
     & 0.60599E+00, 0.65478E+00,-0.22726E+00,-0.59416E+00,-0.46796E+00,
     &-0.20639E+00,-0.19669E-01, 0.61520E-01, 0.74933E-01, 0.59361E-01,
     & 0.37791E-01, 0.20040E-01, 0.84484E-02, 0.21285E-02,-0.66227E-03,
     &-0.14815E-02,-0.14126E-02,-0.10803E-02,-0.76328E-03,-0.53594E-03,
     &-0.37860E-03,-0.26447E-03,-0.17538E-03,-0.94417E-04,-0.29091E-04
     & /
       real p69(0:24)
       data p69/
     & 0.61389E+00, 0.66123E+00,-0.23371E+00,-0.60329E+00,-0.47250E+00,
     &-0.20622E+00,-0.17477E-01, 0.63684E-01, 0.76300E-01, 0.59949E-01,
     & 0.37879E-01, 0.19894E-01, 0.82424E-02, 0.19467E-02,-0.79345E-03,
     &-0.15641E-02,-0.14592E-02,-0.11041E-02,-0.77444E-03,-0.54096E-03,
     &-0.38085E-03,-0.26559E-03,-0.17610E-03,-0.94701E-04,-0.28736E-04
     & /
       real p70(0:24)
       data p70/
     & 0.62177E+00, 0.66763E+00,-0.24020E+00,-0.61240E+00,-0.47698E+00,
     &-0.20601E+00,-0.15266E-01, 0.65842E-01, 0.77651E-01, 0.60521E-01,
     & 0.37954E-01, 0.19742E-01, 0.80341E-02, 0.17649E-02,-0.92353E-03,
     &-0.16455E-02,-0.15046E-02,-0.11270E-02,-0.78498E-03,-0.54556E-03,
     &-0.38283E-03,-0.26653E-03,-0.17670E-03,-0.94914E-04,-0.28340E-04
     & /
       real p71(0:24)
       data p71/
     & 0.62963E+00, 0.67399E+00,-0.24671E+00,-0.62148E+00,-0.48141E+00,
     &-0.20575E+00,-0.13037E-01, 0.67994E-01, 0.78986E-01, 0.61076E-01,
     & 0.38018E-01, 0.19583E-01, 0.78235E-02, 0.15832E-02,-0.10525E-02,
     &-0.17255E-02,-0.15489E-02,-0.11490E-02,-0.79492E-03,-0.54977E-03,
     &-0.38455E-03,-0.26731E-03,-0.17719E-03,-0.95059E-04,-0.27906E-04
     & /
       real p72(0:24)
       data p72/
     & 0.63747E+00, 0.68030E+00,-0.25325E+00,-0.63054E+00,-0.48578E+00,
     &-0.20544E+00,-0.10790E-01, 0.70140E-01, 0.80304E-01, 0.61615E-01,
     & 0.38070E-01, 0.19419E-01, 0.76109E-02, 0.14017E-02,-0.11803E-02,
     &-0.18042E-02,-0.15921E-02,-0.11702E-02,-0.80428E-03,-0.55360E-03,
     &-0.38603E-03,-0.26792E-03,-0.17758E-03,-0.95142E-04,-0.27435E-04
     & /
       real p73(0:24)
       data p73/
     & 0.64530E+00, 0.68657E+00,-0.25982E+00,-0.63957E+00,-0.49009E+00,
     &-0.20508E+00,-0.85258E-02, 0.72280E-01, 0.81606E-01, 0.62138E-01,
     & 0.38112E-01, 0.19248E-01, 0.73963E-02, 0.12205E-02,-0.13069E-02,
     &-0.18815E-02,-0.16341E-02,-0.11905E-02,-0.81306E-03,-0.55706E-03,
     &-0.38726E-03,-0.26839E-03,-0.17788E-03,-0.95163E-04,-0.26931E-04
     & /
       real p74(0:24)
       data p74/
     & 0.65311E+00, 0.69279E+00,-0.26642E+00,-0.64858E+00,-0.49435E+00,
     &-0.20469E+00,-0.62459E-02, 0.74413E-01, 0.82892E-01, 0.62645E-01,
     & 0.38142E-01, 0.19072E-01, 0.71800E-02, 0.10396E-02,-0.14323E-02,
     &-0.19575E-02,-0.16749E-02,-0.12100E-02,-0.82129E-03,-0.56015E-03,
     &-0.38827E-03,-0.26870E-03,-0.17808E-03,-0.95128E-04,-0.26395E-04
     & /
       real p75(0:24)
       data p75/
     & 0.66091E+00, 0.69896E+00,-0.27304E+00,-0.65757E+00,-0.49855E+00,
     &-0.20424E+00,-0.39508E-02, 0.76539E-01, 0.84161E-01, 0.63137E-01,
     & 0.38162E-01, 0.18891E-01, 0.69620E-02, 0.85919E-03,-0.15564E-02,
     &-0.20322E-02,-0.17147E-02,-0.12287E-02,-0.82897E-03,-0.56290E-03,
     &-0.38905E-03,-0.26888E-03,-0.17819E-03,-0.95038E-04,-0.25829E-04
     & /
       real p76(0:24)
       data p76/
     & 0.66869E+00, 0.70510E+00,-0.27969E+00,-0.66653E+00,-0.50270E+00,
     &-0.20376E+00,-0.16410E-02, 0.78658E-01, 0.85414E-01, 0.63613E-01,
     & 0.38172E-01, 0.18704E-01, 0.67426E-02, 0.67926E-03,-0.16793E-02,
     &-0.21056E-02,-0.17534E-02,-0.12466E-02,-0.83613E-03,-0.56530E-03,
     &-0.38963E-03,-0.26892E-03,-0.17821E-03,-0.94896E-04,-0.25234E-04
     & /
       real p77(0:24)
       data p77/
     & 0.67646E+00, 0.71119E+00,-0.28637E+00,-0.67547E+00,-0.50680E+00,
     &-0.20323E+00, 0.68266E-03, 0.80769E-01, 0.86651E-01, 0.64075E-01,
     & 0.38171E-01, 0.18513E-01, 0.65218E-02, 0.49988E-03,-0.18009E-02,
     &-0.21776E-02,-0.17910E-02,-0.12638E-02,-0.84277E-03,-0.56738E-03,
     &-0.38999E-03,-0.26883E-03,-0.17815E-03,-0.94705E-04,-0.24614E-04
     & /
       real p78(0:24)
       data p78/
     & 0.68422E+00, 0.71724E+00,-0.29307E+00,-0.68438E+00,-0.51085E+00,
     &-0.20267E+00, 0.30196E-02, 0.82872E-01, 0.87872E-01, 0.64521E-01,
     & 0.38161E-01, 0.18316E-01, 0.62997E-02, 0.32112E-03,-0.19212E-02,
     &-0.22483E-02,-0.18276E-02,-0.12802E-02,-0.84890E-03,-0.56915E-03,
     &-0.39017E-03,-0.26862E-03,-0.17802E-03,-0.94469E-04,-0.23969E-04
     & /
       real p79(0:24)
       data p79/
     & 0.69195E+00, 0.72324E+00,-0.29979E+00,-0.69327E+00,-0.51485E+00,
     &-0.20206E+00, 0.53693E-02, 0.84968E-01, 0.89078E-01, 0.64953E-01,
     & 0.38142E-01, 0.18116E-01, 0.60765E-02, 0.14303E-03,-0.20402E-02,
     &-0.23177E-02,-0.18630E-02,-0.12958E-02,-0.85455E-03,-0.57061E-03,
     &-0.39015E-03,-0.26829E-03,-0.17782E-03,-0.94188E-04,-0.23302E-04
     & /
       real p80(0:24)
       data p80/
     & 0.69968E+00, 0.72921E+00,-0.30654E+00,-0.70213E+00,-0.51880E+00,
     &-0.20142E+00, 0.77310E-02, 0.87055E-01, 0.90268E-01, 0.65372E-01,
     & 0.38113E-01, 0.17910E-01, 0.58523E-02,-0.34349E-04,-0.21579E-02,
     &-0.23858E-02,-0.18975E-02,-0.13107E-02,-0.85973E-03,-0.57178E-03,
     &-0.38995E-03,-0.26784E-03,-0.17754E-03,-0.93866E-04,-0.22613E-04
     & /
       real p81(0:24)
       data p81/
     & 0.70739E+00, 0.73514E+00,-0.31331E+00,-0.71098E+00,-0.52269E+00,
     &-0.20073E+00, 0.10104E-01, 0.89134E-01, 0.91442E-01, 0.65776E-01,
     & 0.38075E-01, 0.17701E-01, 0.56272E-02,-0.21096E-03,-0.22743E-02,
     &-0.24527E-02,-0.19309E-02,-0.13249E-02,-0.86444E-03,-0.57266E-03,
     &-0.38958E-03,-0.26729E-03,-0.17720E-03,-0.93504E-04,-0.21904E-04
     & /
       real p82(0:24)
       data p82/
     & 0.71509E+00, 0.74103E+00,-0.32010E+00,-0.71979E+00,-0.52654E+00,
     &-0.20002E+00, 0.12488E-01, 0.91205E-01, 0.92601E-01, 0.66166E-01,
     & 0.38028E-01, 0.17488E-01, 0.54013E-02,-0.38676E-03,-0.23893E-02,
     &-0.25182E-02,-0.19634E-02,-0.13384E-02,-0.86871E-03,-0.57326E-03,
     &-0.38904E-03,-0.26664E-03,-0.17679E-03,-0.93106E-04,-0.21178E-04
     & /
       real p83(0:24)
       data p83/
     & 0.72278E+00, 0.74688E+00,-0.32692E+00,-0.72859E+00,-0.53034E+00,
     &-0.19926E+00, 0.14883E-01, 0.93267E-01, 0.93744E-01, 0.66543E-01,
     & 0.37973E-01, 0.17271E-01, 0.51746E-02,-0.56170E-03,-0.25030E-02,
     &-0.25824E-02,-0.19948E-02,-0.13512E-02,-0.87253E-03,-0.57360E-03,
     &-0.38833E-03,-0.26588E-03,-0.17632E-03,-0.92673E-04,-0.20434E-04
     & /
       real p84(0:24)
       data p84/
     & 0.73046E+00, 0.75270E+00,-0.33376E+00,-0.73736E+00,-0.53410E+00,
     &-0.19847E+00, 0.17288E-01, 0.95320E-01, 0.94872E-01, 0.66906E-01,
     & 0.37910E-01, 0.17050E-01, 0.49473E-02,-0.73575E-03,-0.26153E-02,
     &-0.26454E-02,-0.20253E-02,-0.13633E-02,-0.87594E-03,-0.57368E-03,
     &-0.38748E-03,-0.26504E-03,-0.17580E-03,-0.92207E-04,-0.19675E-04
     & /
       real p85(0:24)
       data p85/
     & 0.73812E+00, 0.75848E+00,-0.34062E+00,-0.74611E+00,-0.53781E+00,
     &-0.19764E+00, 0.19702E-01, 0.97364E-01, 0.95986E-01, 0.67257E-01,
     & 0.37838E-01, 0.16825E-01, 0.47195E-02,-0.90888E-03,-0.27262E-02,
     &-0.27071E-02,-0.20548E-02,-0.13748E-02,-0.87893E-03,-0.57351E-03,
     &-0.38647E-03,-0.26410E-03,-0.17522E-03,-0.91711E-04,-0.18901E-04
     & /
       real p86(0:24)
       data p86/
     & 0.74577E+00, 0.76422E+00,-0.34750E+00,-0.75483E+00,-0.54147E+00,
     &-0.19678E+00, 0.22124E-01, 0.99400E-01, 0.97084E-01, 0.67594E-01,
     & 0.37759E-01, 0.16598E-01, 0.44913E-02,-0.10810E-02,-0.28358E-02,
     &-0.27676E-02,-0.20834E-02,-0.13856E-02,-0.88152E-03,-0.57310E-03,
     &-0.38533E-03,-0.26308E-03,-0.17459E-03,-0.91185E-04,-0.18114E-04
     & /
       real p87(0:24)
       data p87/
     & 0.75341E+00, 0.76992E+00,-0.35440E+00,-0.76353E+00,-0.54508E+00,
     &-0.19589E+00, 0.24556E-01, 0.10143E+00, 0.98167E-01, 0.67919E-01,
     & 0.37672E-01, 0.16367E-01, 0.42626E-02,-0.12522E-02,-0.29440E-02,
     &-0.28269E-02,-0.21110E-02,-0.13959E-02,-0.88372E-03,-0.57246E-03,
     &-0.38405E-03,-0.26198E-03,-0.17392E-03,-0.90632E-04,-0.17315E-04
     & /
       real p88(0:24)
       data p88/
     & 0.76104E+00, 0.77560E+00,-0.36131E+00,-0.77221E+00,-0.54866E+00,
     &-0.19497E+00, 0.26995E-01, 0.10344E+00, 0.99236E-01, 0.68232E-01,
     & 0.37577E-01, 0.16132E-01, 0.40337E-02,-0.14224E-02,-0.30509E-02,
     &-0.28849E-02,-0.21377E-02,-0.14055E-02,-0.88554E-03,-0.57160E-03,
     &-0.38264E-03,-0.26080E-03,-0.17319E-03,-0.90053E-04,-0.16505E-04
     & /
       real p89(0:24)
       data p89/
     & 0.76865E+00, 0.78123E+00,-0.36825E+00,-0.78087E+00,-0.55218E+00,
     &-0.19401E+00, 0.29442E-01, 0.10545E+00, 0.10029E+00, 0.68532E-01,
     & 0.37475E-01, 0.15895E-01, 0.38045E-02,-0.15915E-02,-0.31564E-02,
     &-0.29417E-02,-0.21636E-02,-0.14145E-02,-0.88699E-03,-0.57052E-03,
     &-0.38110E-03,-0.25955E-03,-0.17243E-03,-0.89451E-04,-0.15686E-04
     & /
       real p90(0:24)
       data p90/
     & 0.77626E+00, 0.78684E+00,-0.37521E+00,-0.78950E+00,-0.55567E+00,
     &-0.19302E+00, 0.31897E-01, 0.10745E+00, 0.10133E+00, 0.68821E-01,
     & 0.37366E-01, 0.15655E-01, 0.35752E-02,-0.17595E-02,-0.32605E-02,
     &-0.29974E-02,-0.21885E-02,-0.14229E-02,-0.88809E-03,-0.56924E-03,
     &-0.37945E-03,-0.25822E-03,-0.17162E-03,-0.88826E-04,-0.14857E-04
     & /
       real p91(0:24)
       data p91/
     & 0.78385E+00, 0.79241E+00,-0.38219E+00,-0.79811E+00,-0.55911E+00,
     &-0.19200E+00, 0.34358E-01, 0.10944E+00, 0.10236E+00, 0.69098E-01,
     & 0.37251E-01, 0.15413E-01, 0.33459E-02,-0.19264E-02,-0.33633E-02,
     &-0.30518E-02,-0.22126E-02,-0.14308E-02,-0.88884E-03,-0.56775E-03,
     &-0.37768E-03,-0.25683E-03,-0.17078E-03,-0.88180E-04,-0.14020E-04
     & /
       real p92(0:24)
       data p92/
     & 0.79144E+00, 0.79794E+00,-0.38918E+00,-0.80670E+00,-0.56251E+00,
     &-0.19095E+00, 0.36826E-01, 0.11142E+00, 0.10337E+00, 0.69363E-01,
     & 0.37128E-01, 0.15168E-01, 0.31165E-02,-0.20922E-02,-0.34647E-02,
     &-0.31051E-02,-0.22358E-02,-0.14381E-02,-0.88926E-03,-0.56607E-03,
     &-0.37580E-03,-0.25538E-03,-0.16989E-03,-0.87514E-04,-0.13176E-04
     & /
       real p93(0:24)
       data p93/
     & 0.79901E+00, 0.80345E+00,-0.39619E+00,-0.81525E+00,-0.56586E+00,
     &-0.18988E+00, 0.39283E-01, 0.11337E+00, 0.10436E+00, 0.69616E-01,
     & 0.37001E-01, 0.14923E-01, 0.28900E-02,-0.22549E-02,-0.35636E-02,
     &-0.31567E-02,-0.22580E-02,-0.14448E-02,-0.88937E-03,-0.56427E-03,
     &-0.37388E-03,-0.25393E-03,-0.16902E-03,-0.86853E-04,-0.12328E-04
     & /
       real p94(0:24)
       data p94/
     & 0.80658E+00, 0.80892E+00,-0.40321E+00,-0.82378E+00,-0.56917E+00,
     &-0.18879E+00, 0.41744E-01, 0.11532E+00, 0.10533E+00, 0.69857E-01,
     & 0.36868E-01, 0.14677E-01, 0.26639E-02,-0.24162E-02,-0.36610E-02,
     &-0.32070E-02,-0.22793E-02,-0.14510E-02,-0.88917E-03,-0.56229E-03,
     &-0.37187E-03,-0.25243E-03,-0.16813E-03,-0.86179E-04,-0.11475E-04
     & /
       real p95(0:24)
       data p95/
     & 0.81414E+00, 0.81436E+00,-0.41025E+00,-0.83228E+00,-0.57243E+00,
     &-0.18766E+00, 0.44213E-01, 0.11725E+00, 0.10629E+00, 0.70087E-01,
     & 0.36729E-01, 0.14428E-01, 0.24377E-02,-0.25765E-02,-0.37572E-02,
     &-0.32562E-02,-0.22998E-02,-0.14566E-02,-0.88866E-03,-0.56014E-03,
     &-0.36977E-03,-0.25087E-03,-0.16720E-03,-0.85488E-04,-0.10616E-04
     & /
       real p96(0:24)
       data p96/
     & 0.82168E+00, 0.81977E+00,-0.41732E+00,-0.84076E+00,-0.57565E+00,
     &-0.18650E+00, 0.46688E-01, 0.11918E+00, 0.10724E+00, 0.70306E-01,
     & 0.36583E-01, 0.14177E-01, 0.22115E-02,-0.27358E-02,-0.38521E-02,
     &-0.33044E-02,-0.23196E-02,-0.14618E-02,-0.88785E-03,-0.55781E-03,
     &-0.36757E-03,-0.24926E-03,-0.16624E-03,-0.84782E-04,-0.97526E-05
     & /
       real p97(0:23)
       data p97/
     & 0.82921E+00, 0.82514E+00,-0.42440E+00,-0.84922E+00,-0.57883E+00,
     &-0.18531E+00, 0.49169E-01, 0.12109E+00, 0.10818E+00, 0.70514E-01,
     & 0.36431E-01, 0.13923E-01, 0.19853E-02,-0.28940E-02,-0.39457E-02,
     &-0.33515E-02,-0.23385E-02,-0.14664E-02,-0.88674E-03,-0.55532E-03,
     &-0.36527E-03,-0.24760E-03,-0.16525E-03,-0.84062E-04
     & /
       real p98(0:23)
       data p98/
     & 0.83674E+00, 0.83048E+00,-0.43150E+00,-0.85766E+00,-0.58196E+00,
     &-0.18409E+00, 0.51657E-01, 0.12300E+00, 0.10910E+00, 0.70711E-01,
     & 0.36272E-01, 0.13668E-01, 0.17592E-02,-0.30511E-02,-0.40381E-02,
     &-0.33976E-02,-0.23567E-02,-0.14706E-02,-0.88535E-03,-0.55268E-03,
     &-0.36289E-03,-0.24589E-03,-0.16423E-03,-0.83328E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  46,  46,  46,  46,  46,  46,  46
     &,  46,  46,  25,  23,  22,  21,  21,  21,  20,  20
     &,  20,  20,  22,  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,  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
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.46) param(i,15) = p15(i)
             if (i.le.46) param(i,16) = p16(i)
             if (i.le.46) param(i,17) = p17(i)
             if (i.le.46) param(i,18) = p18(i)
             if (i.le.46) param(i,19) = p19(i)
             if (i.le.46) param(i,20) = p20(i)
             if (i.le.46) param(i,21) = p21(i)
             if (i.le.46) param(i,22) = p22(i)
             if (i.le.46) param(i,23) = p23(i)
             if (i.le.25) param(i,24) = p24(i)
             if (i.le.23) param(i,25) = p25(i)
             if (i.le.22) param(i,26) = p26(i)
             if (i.le.21) param(i,27) = p27(i)
             if (i.le.21) param(i,28) = p28(i)
             if (i.le.21) 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.23) param(i,35) = p35(i)
             if (i.le.23) param(i,36) = p36(i)
             if (i.le.23) param(i,37) = p37(i)
             if (i.le.23) 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.24) param(i,47) = p47(i)
             if (i.le.24) param(i,48) = p48(i)
             if (i.le.24) param(i,49) = p49(i)
             if (i.le.24) param(i,50) = p50(i)
             if (i.le.24) 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.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.23) param(i,97) = p97(i)
             if (i.le.23) param(i,98) = p98(i)
          enddo
       endif
            
       uvalhiq2ds=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
       uvalhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) uvalhiq2ds=0.0
       if (q2.lt.q2min) uvalhiq2ds=0.0
       if ( x.gt. xmax) uvalhiq2ds=0.0
       if ( x.lt. xmin) uvalhiq2ds=0.0
       return
       end
       real function  dvalhiq2ds(xin,q2in)
***********************************************************
c  parametrization of dvalhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:24)
       data p15/
     & 0.63074E-01, 0.78333E-01,-0.72333E-02,-0.56038E-01,-0.56617E-01,
     &-0.34784E-01,-0.12960E-01, 0.59424E-03, 0.62689E-02, 0.70433E-02,
     & 0.56329E-02, 0.37362E-02, 0.21422E-02, 0.10656E-02, 0.44666E-03,
     & 0.14153E-03, 0.14569E-04,-0.29043E-04,-0.41207E-04,-0.43110E-04,
     &-0.39540E-04,-0.30781E-04,-0.18053E-04,-0.45740E-05, 0.45439E-05
     & /
       real p16(0:24)
       data p16/
     & 0.67688E-01, 0.83525E-01,-0.88667E-02,-0.60906E-01,-0.60671E-01,
     &-0.36588E-01,-0.13005E-01, 0.13398E-02, 0.71071E-02, 0.76651E-02,
     & 0.59890E-02, 0.38902E-02, 0.21776E-02, 0.10470E-02, 0.41232E-03,
     & 0.10948E-03,-0.94977E-05,-0.45366E-04,-0.51954E-04,-0.50372E-04,
     &-0.44649E-04,-0.34405E-04,-0.20466E-04,-0.58730E-05, 0.41683E-05
     & /
       real p17(0:24)
       data p17/
     & 0.72445E-01, 0.88813E-01,-0.10676E-01,-0.65995E-01,-0.64812E-01,
     &-0.38345E-01,-0.12949E-01, 0.21731E-02, 0.79940E-02, 0.83006E-02,
     & 0.63385E-02, 0.40302E-02, 0.21994E-02, 0.10181E-02, 0.37142E-03,
     & 0.73699E-04,-0.35444E-04,-0.62516E-04,-0.62992E-04,-0.57688E-04,
     &-0.49726E-04,-0.37986E-04,-0.22856E-04,-0.71656E-05, 0.38051E-05
     & /
       real p18(0:24)
       data p18/
     & 0.77147E-01, 0.93977E-01,-0.12582E-01,-0.71086E-01,-0.68864E-01,
     &-0.39980E-01,-0.12796E-01, 0.30556E-02, 0.88890E-02, 0.89210E-02,
     & 0.66657E-02, 0.41502E-02, 0.22070E-02, 0.98076E-03, 0.32616E-03,
     & 0.36092E-04,-0.61904E-04,-0.79591E-04,-0.73745E-04,-0.64679E-04,
     &-0.54515E-04,-0.41346E-04,-0.25104E-04,-0.83841E-05, 0.34779E-05
     & /
       real p19(0:24)
       data p19/
     & 0.81798E-01, 0.99024E-01,-0.14579E-01,-0.76177E-01,-0.72830E-01,
     &-0.41501E-01,-0.12554E-01, 0.39809E-02, 0.97884E-02, 0.95249E-02,
     & 0.69709E-02, 0.42514E-02, 0.22017E-02, 0.93594E-03, 0.27729E-03,
     &-0.28819E-05,-0.88603E-04,-0.96439E-04,-0.84133E-04,-0.71309E-04,
     &-0.58998E-04,-0.44478E-04,-0.27204E-04,-0.95233E-05, 0.31903E-05
     & /
       real p20(0:24)
       data p20/
     & 0.86402E-01, 0.10396E+00,-0.16660E-01,-0.81266E-01,-0.76712E-01,
     &-0.42913E-01,-0.12231E-01, 0.49434E-02, 0.10689E-01, 0.10112E-01,
     & 0.72549E-02, 0.43349E-02, 0.21847E-02, 0.88457E-03, 0.22542E-03,
     &-0.42830E-04,-0.11532E-03,-0.11294E-03,-0.94098E-04,-0.77553E-04,
     &-0.63167E-04,-0.47377E-04,-0.29155E-04,-0.10580E-04, 0.29444E-05
     & /
       real p21(0:24)
       data p21/
     & 0.90961E-01, 0.10880E+00,-0.18819E-01,-0.86350E-01,-0.80512E-01,
     &-0.44223E-01,-0.11832E-01, 0.59384E-02, 0.11589E-01, 0.10681E-01,
     & 0.75182E-02, 0.44018E-02, 0.21569E-02, 0.82747E-03, 0.17111E-03,
     &-0.83417E-04,-0.14186E-03,-0.12900E-03,-0.10360E-03,-0.83396E-04,
     &-0.67019E-04,-0.50046E-04,-0.30956E-04,-0.11555E-04, 0.27408E-05
     & /
       real p22(0:24)
       data p22/
     & 0.95480E-01, 0.11354E+00,-0.21051E-01,-0.91428E-01,-0.84234E-01,
     &-0.45437E-01,-0.11364E-01, 0.69615E-02, 0.12485E-01, 0.11232E-01,
     & 0.77616E-02, 0.44532E-02, 0.21194E-02, 0.76537E-03, 0.11484E-03,
     &-0.12436E-03,-0.16808E-03,-0.14455E-03,-0.11261E-03,-0.88830E-04,
     &-0.70556E-04,-0.52489E-04,-0.32612E-04,-0.12448E-04, 0.25791E-05
     & /
       real p23(0:24)
       data p23/
     & 0.99960E-01, 0.11819E+00,-0.23350E-01,-0.96497E-01,-0.87879E-01,
     &-0.46558E-01,-0.10832E-01, 0.80089E-02, 0.13377E-01, 0.11765E-01,
     & 0.79857E-02, 0.44900E-02, 0.20731E-02, 0.69893E-03, 0.57023E-04,
     &-0.16542E-03,-0.19385E-03,-0.15953E-03,-0.12110E-03,-0.93854E-04,
     &-0.73785E-04,-0.54712E-04,-0.34126E-04,-0.13261E-04, 0.24581E-05
     & /
       real p24(0:24)
       data p24/
     & 0.10440E+00, 0.12276E+00,-0.25714E-01,-0.10156E+00,-0.91450E-01,
     &-0.47592E-01,-0.10241E-01, 0.90772E-02, 0.14262E-01, 0.12280E-01,
     & 0.81913E-02, 0.45132E-02, 0.20186E-02, 0.62871E-03,-0.19687E-05,
     &-0.20640E-03,-0.21908E-03,-0.17390E-03,-0.12907E-03,-0.98472E-04,
     &-0.76711E-04,-0.56722E-04,-0.35503E-04,-0.13997E-04, 0.23762E-05
     & /
       real p25(0:24)
       data p25/
     & 0.10881E+00, 0.12725E+00,-0.28137E-01,-0.10661E+00,-0.94949E-01,
     &-0.48543E-01,-0.95955E-02, 0.10163E-01, 0.15139E-01, 0.12776E-01,
     & 0.83790E-02, 0.45236E-02, 0.19569E-02, 0.55526E-03,-0.61818E-04,
     &-0.24711E-03,-0.24368E-03,-0.18763E-03,-0.13651E-03,-0.10269E-03,
     &-0.79346E-04,-0.58528E-04,-0.36749E-04,-0.14659E-04, 0.23315E-05
     & /
       real p26(0:24)
       data p26/
     & 0.11319E+00, 0.13166E+00,-0.30616E-01,-0.11164E+00,-0.98379E-01,
     &-0.49416E-01,-0.88986E-02, 0.11265E-01, 0.16007E-01, 0.13255E-01,
     & 0.85497E-02, 0.45220E-02, 0.18886E-02, 0.47904E-03,-0.12225E-03,
     &-0.28743E-03,-0.26759E-03,-0.20070E-03,-0.14343E-03,-0.10652E-03,
     &-0.81699E-04,-0.60140E-04,-0.37871E-04,-0.15250E-04, 0.23218E-05
     & /
       real p27(0:24)
       data p27/
     & 0.11754E+00, 0.13600E+00,-0.33149E-01,-0.11667E+00,-0.10174E+00,
     &-0.50213E-01,-0.81546E-02, 0.12380E-01, 0.16865E-01, 0.13715E-01,
     & 0.87039E-02, 0.45093E-02, 0.18143E-02, 0.40046E-03,-0.18301E-03,
     &-0.32721E-03,-0.29077E-03,-0.21311E-03,-0.14983E-03,-0.10996E-03,
     &-0.83784E-04,-0.61566E-04,-0.38875E-04,-0.15776E-04, 0.23449E-05
     & /
       real p28(0:24)
       data p28/
     & 0.12186E+00, 0.14027E+00,-0.35732E-01,-0.12168E+00,-0.10504E+00,
     &-0.50938E-01,-0.73666E-02, 0.13505E-01, 0.17713E-01, 0.14158E-01,
     & 0.88424E-02, 0.44861E-02, 0.17345E-02, 0.31990E-03,-0.24390E-03,
     &-0.36638E-03,-0.31317E-03,-0.22484E-03,-0.15571E-03,-0.11304E-03,
     &-0.85611E-04,-0.62817E-04,-0.39767E-04,-0.16238E-04, 0.23983E-05
     & /
       real p29(0:24)
       data p29/
     & 0.12616E+00, 0.14448E+00,-0.38362E-01,-0.12668E+00,-0.10827E+00,
     &-0.51595E-01,-0.65378E-02, 0.14639E-01, 0.18550E-01, 0.14583E-01,
     & 0.89657E-02, 0.44531E-02, 0.16499E-02, 0.23770E-03,-0.30473E-03,
     &-0.40483E-03,-0.33476E-03,-0.23589E-03,-0.16109E-03,-0.11577E-03,
     &-0.87194E-04,-0.63902E-04,-0.40554E-04,-0.16642E-04, 0.24799E-05
     & /
       real p30(0:24)
       data p30/
     & 0.13043E+00, 0.14863E+00,-0.41037E-01,-0.13167E+00,-0.11144E+00,
     &-0.52187E-01,-0.56710E-02, 0.15780E-01, 0.19374E-01, 0.14991E-01,
     & 0.90746E-02, 0.44109E-02, 0.15608E-02, 0.15417E-03,-0.36534E-03,
     &-0.44251E-03,-0.35554E-03,-0.24628E-03,-0.16599E-03,-0.11816E-03,
     &-0.88545E-04,-0.64831E-04,-0.41243E-04,-0.16991E-04, 0.25872E-05
     & /
       real p31(0:24)
       data p31/
     & 0.13210E+00, 0.15024E+00,-0.42097E-01,-0.13362E+00,-0.11267E+00,
     &-0.52406E-01,-0.53233E-02, 0.16229E-01, 0.19695E-01, 0.15148E-01,
     & 0.91142E-02, 0.43925E-02, 0.15251E-02, 0.12125E-03,-0.38895E-03,
     &-0.45704E-03,-0.36346E-03,-0.25018E-03,-0.16778E-03,-0.11901E-03,
     &-0.89019E-04,-0.65158E-04,-0.41490E-04,-0.17114E-04, 0.26356E-05
     & /
       real p32(0:24)
       data p32/
     & 0.13468E+00, 0.15273E+00,-0.43738E-01,-0.13663E+00,-0.11456E+00,
     &-0.52736E-01,-0.47904E-02, 0.16912E-01, 0.20181E-01, 0.15384E-01,
     & 0.91737E-02, 0.43646E-02, 0.14712E-02, 0.71743E-04,-0.42439E-03,
     &-0.47879E-03,-0.37527E-03,-0.25596E-03,-0.17043E-03,-0.12027E-03,
     &-0.89732E-04,-0.65660E-04,-0.41870E-04,-0.17300E-04, 0.27204E-05
     & /
       real p33(0:24)
       data p33/
     & 0.13891E+00, 0.15678E+00,-0.46476E-01,-0.14157E+00,-0.11761E+00,
     &-0.53229E-01,-0.38845E-02, 0.18042E-01, 0.20973E-01, 0.15760E-01,
     & 0.92610E-02, 0.43120E-02, 0.13793E-02,-0.10662E-04,-0.48253E-03,
     &-0.51401E-03,-0.39411E-03,-0.26499E-03,-0.17445E-03,-0.12211E-03,
     &-0.90745E-04,-0.66380E-04,-0.42429E-04,-0.17569E-04, 0.28760E-05
     & /
       real p34(0:24)
       data p34/
     & 0.14313E+00, 0.16077E+00,-0.49255E-01,-0.14649E+00,-0.12061E+00,
     &-0.53663E-01,-0.29458E-02, 0.19176E-01, 0.21753E-01, 0.16120E-01,
     & 0.93354E-02, 0.42515E-02, 0.12839E-02,-0.93930E-04,-0.54025E-03,
     &-0.54842E-03,-0.41217E-03,-0.27342E-03,-0.17804E-03,-0.12367E-03,
     &-0.91564E-04,-0.66971E-04,-0.42909E-04,-0.17795E-04, 0.30500E-05
     & /
       real p35(0:24)
       data p35/
     & 0.14731E+00, 0.16471E+00,-0.52073E-01,-0.15140E+00,-0.12355E+00,
     &-0.54040E-01,-0.19764E-02, 0.20314E-01, 0.22521E-01, 0.16464E-01,
     & 0.93975E-02, 0.41838E-02, 0.11853E-02,-0.17786E-03,-0.59747E-03,
     &-0.58199E-03,-0.42944E-03,-0.28125E-03,-0.18121E-03,-0.12494E-03,
     &-0.92201E-04,-0.67442E-04,-0.43315E-04,-0.17982E-04, 0.32407E-05
     & /
       real p36(0:24)
       data p36/
     & 0.15148E+00, 0.16859E+00,-0.54928E-01,-0.15629E+00,-0.12644E+00,
     &-0.54362E-01,-0.97817E-03, 0.21454E-01, 0.23276E-01, 0.16793E-01,
     & 0.94477E-02, 0.41092E-02, 0.10839E-02,-0.26225E-03,-0.65409E-03,
     &-0.61468E-03,-0.44594E-03,-0.28849E-03,-0.18399E-03,-0.12595E-03,
     &-0.92665E-04,-0.67801E-04,-0.43651E-04,-0.18131E-04, 0.34465E-05
     & /
       real p37(0:24)
       data p37/
     & 0.15563E+00, 0.17242E+00,-0.57819E-01,-0.16117E+00,-0.12927E+00,
     &-0.54632E-01, 0.46995E-04, 0.22595E-01, 0.24018E-01, 0.17107E-01,
     & 0.94865E-02, 0.40281E-02, 0.97989E-03,-0.34694E-03,-0.71003E-03,
     &-0.64648E-03,-0.46165E-03,-0.29516E-03,-0.18637E-03,-0.12672E-03,
     &-0.92966E-04,-0.68053E-04,-0.43923E-04,-0.18246E-04, 0.36657E-05
     & /
       real p38(0:24)
       data p38/
     & 0.15976E+00, 0.17620E+00,-0.60743E-01,-0.16603E+00,-0.13205E+00,
     &-0.54850E-01, 0.10974E-02, 0.23736E-01, 0.24748E-01, 0.17406E-01,
     & 0.95143E-02, 0.39410E-02, 0.87360E-03,-0.43177E-03,-0.76522E-03,
     &-0.67736E-03,-0.47659E-03,-0.30127E-03,-0.18839E-03,-0.12724E-03,
     &-0.93113E-04,-0.68206E-04,-0.44134E-04,-0.18329E-04, 0.38970E-05
     & /
       real p39(0:24)
       data p39/
     & 0.16387E+00, 0.17994E+00,-0.63701E-01,-0.17088E+00,-0.13478E+00,
     &-0.55020E-01, 0.21715E-02, 0.24877E-01, 0.25465E-01, 0.17691E-01,
     & 0.95317E-02, 0.38482E-02, 0.76529E-03,-0.51661E-03,-0.81960E-03,
     &-0.70731E-03,-0.49076E-03,-0.30683E-03,-0.19004E-03,-0.12754E-03,
     &-0.93116E-04,-0.68267E-04,-0.44288E-04,-0.18383E-04, 0.41390E-05
     & /
       real p40(0:24)
       data p40/
     & 0.16796E+00, 0.18363E+00,-0.66690E-01,-0.17571E+00,-0.13746E+00,
     &-0.55143E-01, 0.32679E-02, 0.26016E-01, 0.26169E-01, 0.17962E-01,
     & 0.95390E-02, 0.37502E-02, 0.65518E-03,-0.60132E-03,-0.87313E-03,
     &-0.73632E-03,-0.50417E-03,-0.31186E-03,-0.19136E-03,-0.12762E-03,
     &-0.92983E-04,-0.68242E-04,-0.44391E-04,-0.18410E-04, 0.43903E-05
     & /
       real p41(0:24)
       data p41/
     & 0.17204E+00, 0.18728E+00,-0.69708E-01,-0.18052E+00,-0.14008E+00,
     &-0.55220E-01, 0.43850E-02, 0.27154E-01, 0.26860E-01, 0.18219E-01,
     & 0.95367E-02, 0.36472E-02, 0.54351E-03,-0.68580E-03,-0.92576E-03,
     &-0.76438E-03,-0.51683E-03,-0.31638E-03,-0.19234E-03,-0.12749E-03,
     &-0.92723E-04,-0.68136E-04,-0.44445E-04,-0.18412E-04, 0.46496E-05
     & /
       real p42(0:24)
       data p42/
     & 0.17610E+00, 0.19088E+00,-0.72756E-01,-0.18532E+00,-0.14266E+00,
     &-0.55254E-01, 0.55217E-02, 0.28289E-01, 0.27539E-01, 0.18463E-01,
     & 0.95251E-02, 0.35395E-02, 0.43046E-03,-0.76993E-03,-0.97745E-03,
     &-0.79150E-03,-0.52875E-03,-0.32039E-03,-0.19301E-03,-0.12718E-03,
     &-0.92345E-04,-0.67955E-04,-0.44455E-04,-0.18391E-04, 0.49160E-05
     & /
       real p43(0:24)
       data p43/
     & 0.18014E+00, 0.19444E+00,-0.75832E-01,-0.19009E+00,-0.14520E+00,
     &-0.55245E-01, 0.66766E-02, 0.29421E-01, 0.28204E-01, 0.18694E-01,
     & 0.95047E-02, 0.34275E-02, 0.31625E-03,-0.85362E-03,-0.10282E-02,
     &-0.81768E-03,-0.53995E-03,-0.32392E-03,-0.19337E-03,-0.12668E-03,
     &-0.91855E-04,-0.67705E-04,-0.44423E-04,-0.18350E-04, 0.51882E-05
     & /
       real p44(0:24)
       data p44/
     & 0.18417E+00, 0.19797E+00,-0.78934E-01,-0.19486E+00,-0.14769E+00,
     &-0.55196E-01, 0.78487E-02, 0.30550E-01, 0.28857E-01, 0.18911E-01,
     & 0.94757E-02, 0.33115E-02, 0.20103E-03,-0.93680E-03,-0.10779E-02,
     &-0.84291E-03,-0.55044E-03,-0.32697E-03,-0.19345E-03,-0.12601E-03,
     &-0.91261E-04,-0.67391E-04,-0.44353E-04,-0.18290E-04, 0.54653E-05
     & /
       real p45(0:24)
       data p45/
     & 0.18819E+00, 0.20145E+00,-0.82062E-01,-0.19960E+00,-0.15013E+00,
     &-0.55108E-01, 0.90369E-02, 0.31674E-01, 0.29497E-01, 0.19117E-01,
     & 0.94386E-02, 0.31917E-02, 0.84967E-04,-0.10194E-02,-0.11266E-02,
     &-0.86720E-03,-0.56024E-03,-0.32958E-03,-0.19325E-03,-0.12518E-03,
     &-0.90571E-04,-0.67017E-04,-0.44248E-04,-0.18212E-04, 0.57463E-05
     & /
       real p46(0:24)
       data p46/
     & 0.19219E+00, 0.20490E+00,-0.85215E-01,-0.20433E+00,-0.15253E+00,
     &-0.54981E-01, 0.10240E-01, 0.32794E-01, 0.30124E-01, 0.19311E-01,
     & 0.93937E-02, 0.30683E-02,-0.31778E-04,-0.11013E-02,-0.11743E-02,
     &-0.89056E-03,-0.56936E-03,-0.33174E-03,-0.19278E-03,-0.12419E-03,
     &-0.89791E-04,-0.66589E-04,-0.44111E-04,-0.18119E-04, 0.60305E-05
     & /
       real p47(0:24)
       data p47/
     & 0.19618E+00, 0.20831E+00,-0.88391E-01,-0.20905E+00,-0.15488E+00,
     &-0.54818E-01, 0.11457E-01, 0.33910E-01, 0.30738E-01, 0.19492E-01,
     & 0.93413E-02, 0.29417E-02,-0.14907E-03,-0.11825E-02,-0.12209E-02,
     &-0.91301E-03,-0.57782E-03,-0.33349E-03,-0.19207E-03,-0.12307E-03,
     &-0.88928E-04,-0.66111E-04,-0.43945E-04,-0.18013E-04, 0.63169E-05
     & /
       real p48(0:24)
       data p48/
     & 0.20015E+00, 0.21168E+00,-0.91591E-01,-0.21374E+00,-0.15720E+00,
     &-0.54620E-01, 0.12688E-01, 0.35020E-01, 0.31340E-01, 0.19662E-01,
     & 0.92817E-02, 0.28121E-02,-0.26678E-03,-0.12629E-02,-0.12665E-02,
     &-0.93454E-03,-0.58564E-03,-0.33482E-03,-0.19112E-03,-0.12180E-03,
     &-0.87988E-04,-0.65586E-04,-0.43752E-04,-0.17894E-04, 0.66049E-05
     & /
       real p49(0:24)
       data p49/
     & 0.20412E+00, 0.21502E+00,-0.94813E-01,-0.21842E+00,-0.15947E+00,
     &-0.54387E-01, 0.13931E-01, 0.36124E-01, 0.31930E-01, 0.19821E-01,
     & 0.92152E-02, 0.26796E-02,-0.38478E-03,-0.13425E-02,-0.13110E-02,
     &-0.95518E-03,-0.59282E-03,-0.33577E-03,-0.18994E-03,-0.12042E-03,
     &-0.86976E-04,-0.65018E-04,-0.43534E-04,-0.17763E-04, 0.68938E-05
     & /
       real p50(0:24)
       data p50/
     & 0.20807E+00, 0.21833E+00,-0.98057E-01,-0.22309E+00,-0.16170E+00,
     &-0.54121E-01, 0.15185E-01, 0.37223E-01, 0.32507E-01, 0.19969E-01,
     & 0.91421E-02, 0.25444E-02,-0.50297E-03,-0.14212E-02,-0.13544E-02,
     &-0.97493E-03,-0.59940E-03,-0.33633E-03,-0.18855E-03,-0.11891E-03,
     &-0.85899E-04,-0.64413E-04,-0.43294E-04,-0.17623E-04, 0.71830E-05
     & /
       real p51(0:24)
       data p51/
     & 0.21200E+00, 0.22160E+00,-0.10132E+00,-0.22773E+00,-0.16390E+00,
     &-0.53823E-01, 0.16451E-01, 0.38316E-01, 0.33072E-01, 0.20107E-01,
     & 0.90627E-02, 0.24069E-02,-0.62125E-03,-0.14990E-02,-0.13968E-02,
     &-0.99381E-03,-0.60537E-03,-0.33654E-03,-0.18695E-03,-0.11730E-03,
     &-0.84762E-04,-0.63771E-04,-0.43035E-04,-0.17474E-04, 0.74718E-05
     & /
       real p52(0:23)
       data p52/
     & 0.21593E+00, 0.22485E+00,-0.10461E+00,-0.23236E+00,-0.16605E+00,
     &-0.53494E-01, 0.17726E-01, 0.39402E-01, 0.33625E-01, 0.20234E-01,
     & 0.89773E-02, 0.22670E-02,-0.73950E-03,-0.15759E-02,-0.14381E-02,
     &-0.10118E-02,-0.61077E-03,-0.33639E-03,-0.18516E-03,-0.11558E-03,
     &-0.83568E-04,-0.63098E-04,-0.42757E-04,-0.17318E-04
     & /
       real p53(0:23)
       data p53/
     & 0.21985E+00, 0.22806E+00,-0.10791E+00,-0.23698E+00,-0.16817E+00,
     &-0.53134E-01, 0.19011E-01, 0.40483E-01, 0.34166E-01, 0.20351E-01,
     & 0.88860E-02, 0.21251E-02,-0.85766E-03,-0.16518E-02,-0.14783E-02,
     &-0.10290E-02,-0.61561E-03,-0.33591E-03,-0.18319E-03,-0.11377E-03,
     &-0.82324E-04,-0.62396E-04,-0.42463E-04,-0.17154E-04
     & /
       real p54(0:23)
       data p54/
     & 0.22375E+00, 0.23124E+00,-0.11123E+00,-0.24158E+00,-0.17025E+00,
     &-0.52746E-01, 0.20304E-01, 0.41556E-01, 0.34695E-01, 0.20458E-01,
     & 0.87892E-02, 0.19813E-02,-0.97562E-03,-0.17267E-02,-0.15175E-02,
     &-0.10454E-02,-0.61990E-03,-0.33511E-03,-0.18104E-03,-0.11187E-03,
     &-0.81034E-04,-0.61667E-04,-0.42154E-04,-0.16986E-04
     & /
       real p55(0:23)
       data p55/
     & 0.22765E+00, 0.23439E+00,-0.11457E+00,-0.24616E+00,-0.17229E+00,
     &-0.52329E-01, 0.21606E-01, 0.42623E-01, 0.35213E-01, 0.20555E-01,
     & 0.86871E-02, 0.18357E-02,-0.10933E-02,-0.18006E-02,-0.15556E-02,
     &-0.10609E-02,-0.62366E-03,-0.33400E-03,-0.17873E-03,-0.10988E-03,
     &-0.79701E-04,-0.60915E-04,-0.41833E-04,-0.16812E-04
     & /
       real p56(0:23)
       data p56/
     & 0.23154E+00, 0.23751E+00,-0.11793E+00,-0.25072E+00,-0.17430E+00,
     &-0.51885E-01, 0.22915E-01, 0.43682E-01, 0.35719E-01, 0.20643E-01,
     & 0.85798E-02, 0.16885E-02,-0.12107E-02,-0.18734E-02,-0.15927E-02,
     &-0.10757E-02,-0.62691E-03,-0.33259E-03,-0.17626E-03,-0.10782E-03,
     &-0.78331E-04,-0.60143E-04,-0.41501E-04,-0.16634E-04
     & /
       real p57(0:23)
       data p57/
     & 0.23541E+00, 0.24061E+00,-0.12131E+00,-0.25527E+00,-0.17628E+00,
     &-0.51414E-01, 0.24232E-01, 0.44735E-01, 0.36214E-01, 0.20722E-01,
     & 0.84677E-02, 0.15398E-02,-0.13277E-02,-0.19452E-02,-0.16287E-02,
     &-0.10896E-02,-0.62966E-03,-0.33090E-03,-0.17365E-03,-0.10569E-03,
     &-0.76926E-04,-0.59351E-04,-0.41158E-04,-0.16454E-04
     & /
       real p58(0:23)
       data p58/
     & 0.23928E+00, 0.24368E+00,-0.12470E+00,-0.25981E+00,-0.17822E+00,
     &-0.50918E-01, 0.25555E-01, 0.45780E-01, 0.36697E-01, 0.20793E-01,
     & 0.83509E-02, 0.13897E-02,-0.14442E-02,-0.20159E-02,-0.16637E-02,
     &-0.11028E-02,-0.63192E-03,-0.32895E-03,-0.17090E-03,-0.10349E-03,
     &-0.75490E-04,-0.58544E-04,-0.40807E-04,-0.16270E-04
     & /
       real p59(0:23)
       data p59/
     & 0.24314E+00, 0.24672E+00,-0.12811E+00,-0.26433E+00,-0.18012E+00,
     &-0.50396E-01, 0.26884E-01, 0.46819E-01, 0.37170E-01, 0.20854E-01,
     & 0.82296E-02, 0.12384E-02,-0.15602E-02,-0.20856E-02,-0.16977E-02,
     &-0.11153E-02,-0.63372E-03,-0.32673E-03,-0.16802E-03,-0.10124E-03,
     &-0.74026E-04,-0.57722E-04,-0.40449E-04,-0.16085E-04
     & /
       real p60(0:23)
       data p60/
     & 0.24698E+00, 0.24974E+00,-0.13154E+00,-0.26883E+00,-0.18199E+00,
     &-0.49851E-01, 0.28219E-01, 0.47849E-01, 0.37632E-01, 0.20907E-01,
     & 0.81040E-02, 0.10861E-02,-0.16756E-02,-0.21541E-02,-0.17306E-02,
     &-0.11270E-02,-0.63507E-03,-0.32426E-03,-0.16502E-03,-0.98925E-04,
     &-0.72538E-04,-0.56888E-04,-0.40085E-04,-0.15898E-04
     & /
       real p61(0:23)
       data p61/
     & 0.25082E+00, 0.25273E+00,-0.13498E+00,-0.27332E+00,-0.18384E+00,
     &-0.49281E-01, 0.29559E-01, 0.48872E-01, 0.38082E-01, 0.20952E-01,
     & 0.79743E-02, 0.93267E-03,-0.17905E-02,-0.22216E-02,-0.17626E-02,
     &-0.11380E-02,-0.63598E-03,-0.32155E-03,-0.16190E-03,-0.96564E-04,
     &-0.71029E-04,-0.56044E-04,-0.39715E-04,-0.15711E-04
     & /
       real p62(0:23)
       data p62/
     & 0.25466E+00, 0.25570E+00,-0.13843E+00,-0.27779E+00,-0.18565E+00,
     &-0.48689E-01, 0.30904E-01, 0.49888E-01, 0.38523E-01, 0.20990E-01,
     & 0.78407E-02, 0.77839E-03,-0.19046E-02,-0.22879E-02,-0.17935E-02,
     &-0.11483E-02,-0.63646E-03,-0.31862E-03,-0.15867E-03,-0.94157E-04,
     &-0.69501E-04,-0.55190E-04,-0.39341E-04,-0.15523E-04
     & /
       real p63(0:23)
       data p63/
     & 0.25848E+00, 0.25864E+00,-0.14190E+00,-0.28225E+00,-0.18742E+00,
     &-0.48074E-01, 0.32253E-01, 0.50896E-01, 0.38952E-01, 0.21019E-01,
     & 0.77033E-02, 0.62331E-03,-0.20181E-02,-0.23531E-02,-0.18235E-02,
     &-0.11579E-02,-0.63654E-03,-0.31548E-03,-0.15535E-03,-0.91709E-04,
     &-0.67957E-04,-0.54330E-04,-0.38965E-04,-0.15336E-04
     & /
       real p64(0:23)
       data p64/
     & 0.26230E+00, 0.26156E+00,-0.14538E+00,-0.28669E+00,-0.18917E+00,
     &-0.47438E-01, 0.33606E-01, 0.51896E-01, 0.39372E-01, 0.21041E-01,
     & 0.75623E-02, 0.46753E-03,-0.21309E-02,-0.24173E-02,-0.18525E-02,
     &-0.11669E-02,-0.63622E-03,-0.31212E-03,-0.15193E-03,-0.89224E-04,
     &-0.66400E-04,-0.53464E-04,-0.38586E-04,-0.15149E-04
     & /
       real p65(0:22)
       data p65/
     & 0.26610E+00, 0.26445E+00,-0.14888E+00,-0.29111E+00,-0.19089E+00,
     &-0.46781E-01, 0.34963E-01, 0.52889E-01, 0.39781E-01, 0.21055E-01,
     & 0.74179E-02, 0.31115E-03,-0.22428E-02,-0.24803E-02,-0.18806E-02,
     &-0.11752E-02,-0.63552E-03,-0.30857E-03,-0.14842E-03,-0.86705E-04,
     &-0.64831E-04,-0.52594E-04,-0.38205E-04
     & /
       real p66(0:22)
       data p66/
     & 0.26990E+00, 0.26732E+00,-0.15239E+00,-0.29552E+00,-0.19258E+00,
     &-0.46104E-01, 0.36323E-01, 0.53874E-01, 0.40180E-01, 0.21063E-01,
     & 0.72701E-02, 0.15423E-03,-0.23540E-02,-0.25422E-02,-0.19077E-02,
     &-0.11829E-02,-0.63445E-03,-0.30483E-03,-0.14483E-03,-0.84157E-04,
     &-0.63253E-04,-0.51721E-04,-0.37823E-04
     & /
       real p67(0:22)
       data p67/
     & 0.27370E+00, 0.27017E+00,-0.15591E+00,-0.29992E+00,-0.19424E+00,
     &-0.45406E-01, 0.37687E-01, 0.54851E-01, 0.40570E-01, 0.21063E-01,
     & 0.71193E-02,-0.31270E-05,-0.24644E-02,-0.26030E-02,-0.19339E-02,
     &-0.11899E-02,-0.63302E-03,-0.30091E-03,-0.14116E-03,-0.81582E-04,
     &-0.61669E-04,-0.50847E-04,-0.37442E-04
     & /
       real p68(0:22)
       data p68/
     & 0.27748E+00, 0.27300E+00,-0.15945E+00,-0.30430E+00,-0.19587E+00,
     &-0.44689E-01, 0.39053E-01, 0.55820E-01, 0.40950E-01, 0.21057E-01,
     & 0.69654E-02,-0.16086E-03,-0.25739E-02,-0.26627E-02,-0.19593E-02,
     &-0.11964E-02,-0.63124E-03,-0.29682E-03,-0.13742E-03,-0.78984E-04,
     &-0.60080E-04,-0.49972E-04,-0.37061E-04
     & /
       real p69(0:22)
       data p69/
     & 0.28126E+00, 0.27581E+00,-0.16300E+00,-0.30867E+00,-0.19747E+00,
     &-0.43954E-01, 0.40421E-01, 0.56782E-01, 0.41320E-01, 0.21043E-01,
     & 0.68086E-02,-0.31889E-03,-0.26825E-02,-0.27212E-02,-0.19837E-02,
     &-0.12023E-02,-0.62914E-03,-0.29257E-03,-0.13362E-03,-0.76366E-04,
     &-0.58487E-04,-0.49097E-04,-0.36681E-04
     & /
       real p70(0:21)
       data p70/
     & 0.28504E+00, 0.27859E+00,-0.16656E+00,-0.31302E+00,-0.19905E+00,
     &-0.43200E-01, 0.41792E-01, 0.57736E-01, 0.41680E-01, 0.21024E-01,
     & 0.66491E-02,-0.47715E-03,-0.27902E-02,-0.27787E-02,-0.20072E-02,
     &-0.12075E-02,-0.62671E-03,-0.28817E-03,-0.12975E-03,-0.73732E-04,
     &-0.56893E-04,-0.48224E-04
     & /
       real p71(0:21)
       data p71/
     & 0.28880E+00, 0.28136E+00,-0.17013E+00,-0.31736E+00,-0.20060E+00,
     &-0.42428E-01, 0.43164E-01, 0.58682E-01, 0.42032E-01, 0.20998E-01,
     & 0.64869E-02,-0.63557E-03,-0.28970E-02,-0.28351E-02,-0.20298E-02,
     &-0.12123E-02,-0.62397E-03,-0.28361E-03,-0.12583E-03,-0.71082E-04,
     &-0.55299E-04,-0.47353E-04
     & /
       real p72(0:21)
       data p72/
     & 0.29256E+00, 0.28410E+00,-0.17371E+00,-0.32168E+00,-0.20212E+00,
     &-0.41639E-01, 0.44538E-01, 0.59620E-01, 0.42374E-01, 0.20966E-01,
     & 0.63223E-02,-0.79410E-03,-0.30029E-02,-0.28905E-02,-0.20516E-02,
     &-0.12165E-02,-0.62093E-03,-0.27892E-03,-0.12185E-03,-0.68422E-04,
     &-0.53707E-04,-0.46486E-04
     & /
       real p73(0:21)
       data p73/
     & 0.29631E+00, 0.28683E+00,-0.17730E+00,-0.32599E+00,-0.20362E+00,
     &-0.40833E-01, 0.45914E-01, 0.60550E-01, 0.42707E-01, 0.20929E-01,
     & 0.61552E-02,-0.95268E-03,-0.31078E-02,-0.29447E-02,-0.20726E-02,
     &-0.12201E-02,-0.61761E-03,-0.27410E-03,-0.11783E-03,-0.65752E-04,
     &-0.52118E-04,-0.45623E-04
     & /
       real p74(0:21)
       data p74/
     & 0.30006E+00, 0.28953E+00,-0.18091E+00,-0.33028E+00,-0.20509E+00,
     &-0.40011E-01, 0.47291E-01, 0.61472E-01, 0.43032E-01, 0.20885E-01,
     & 0.59859E-02,-0.11113E-02,-0.32118E-02,-0.29979E-02,-0.20928E-02,
     &-0.12232E-02,-0.61401E-03,-0.26915E-03,-0.11377E-03,-0.63076E-04,
     &-0.50533E-04,-0.44764E-04
     & /
       real p75(0:20)
       data p75/
     & 0.30380E+00, 0.29222E+00,-0.18452E+00,-0.33456E+00,-0.20653E+00,
     &-0.39173E-01, 0.48669E-01, 0.62387E-01, 0.43347E-01, 0.20836E-01,
     & 0.58143E-02,-0.12698E-02,-0.33148E-02,-0.30500E-02,-0.21121E-02,
     &-0.12259E-02,-0.61014E-03,-0.26408E-03,-0.10966E-03,-0.60394E-04,
     &-0.48954E-04
     & /
       real p76(0:20)
       data p76/
     & 0.30754E+00, 0.29489E+00,-0.18815E+00,-0.33883E+00,-0.20795E+00,
     &-0.38319E-01, 0.50047E-01, 0.63294E-01, 0.43655E-01, 0.20781E-01,
     & 0.56407E-02,-0.14282E-02,-0.34168E-02,-0.31010E-02,-0.21306E-02,
     &-0.12280E-02,-0.60601E-03,-0.25890E-03,-0.10552E-03,-0.57711E-04,
     &-0.47382E-04
     & /
       real p77(0:20)
       data p77/
     & 0.31127E+00, 0.29754E+00,-0.19179E+00,-0.34308E+00,-0.20935E+00,
     &-0.37450E-01, 0.51426E-01, 0.64193E-01, 0.43953E-01, 0.20721E-01,
     & 0.54652E-02,-0.15864E-02,-0.35178E-02,-0.31510E-02,-0.21484E-02,
     &-0.12297E-02,-0.60163E-03,-0.25361E-03,-0.10135E-03,-0.55027E-04,
     &-0.45817E-04
     & /
       real p78(0:20)
       data p78/
     & 0.31499E+00, 0.30017E+00,-0.19543E+00,-0.34732E+00,-0.21072E+00,
     &-0.36566E-01, 0.52806E-01, 0.65084E-01, 0.44243E-01, 0.20655E-01,
     & 0.52877E-02,-0.17445E-02,-0.36178E-02,-0.32000E-02,-0.21654E-02,
     &-0.12309E-02,-0.59702E-03,-0.24823E-03,-0.97152E-04,-0.52345E-04,
     &-0.44261E-04
     & /
       real p79(0:20)
       data p79/
     & 0.31871E+00, 0.30278E+00,-0.19909E+00,-0.35155E+00,-0.21207E+00,
     &-0.35667E-01, 0.54186E-01, 0.65968E-01, 0.44525E-01, 0.20585E-01,
     & 0.51084E-02,-0.19023E-02,-0.37168E-02,-0.32479E-02,-0.21816E-02,
     &-0.12316E-02,-0.59217E-03,-0.24274E-03,-0.92927E-04,-0.49665E-04,
     &-0.42715E-04
     & /
       real p80(0:20)
       data p80/
     & 0.32242E+00, 0.30538E+00,-0.20275E+00,-0.35576E+00,-0.21340E+00,
     &-0.34755E-01, 0.55565E-01, 0.66844E-01, 0.44799E-01, 0.20509E-01,
     & 0.49275E-02,-0.20598E-02,-0.38147E-02,-0.32948E-02,-0.21971E-02,
     &-0.12319E-02,-0.58711E-03,-0.23717E-03,-0.88679E-04,-0.46991E-04,
     &-0.41180E-04
     & /
       real p81(0:20)
       data p81/
     & 0.32613E+00, 0.30795E+00,-0.20642E+00,-0.35996E+00,-0.21470E+00,
     &-0.33829E-01, 0.56945E-01, 0.67712E-01, 0.45065E-01, 0.20429E-01,
     & 0.47449E-02,-0.22170E-02,-0.39117E-02,-0.33407E-02,-0.22119E-02,
     &-0.12318E-02,-0.58183E-03,-0.23152E-03,-0.84412E-04,-0.44323E-04,
     &-0.39655E-04
     & /
       real p82(0:20)
       data p82/
     & 0.32983E+00, 0.31052E+00,-0.21011E+00,-0.36414E+00,-0.21598E+00,
     &-0.32889E-01, 0.58325E-01, 0.68573E-01, 0.45324E-01, 0.20344E-01,
     & 0.45607E-02,-0.23739E-02,-0.40076E-02,-0.33856E-02,-0.22260E-02,
     &-0.12312E-02,-0.57634E-03,-0.22579E-03,-0.80129E-04,-0.41663E-04,
     &-0.38144E-04
     & /
       real p83(0:20)
       data p83/
     & 0.33353E+00, 0.31306E+00,-0.21380E+00,-0.36831E+00,-0.21723E+00,
     &-0.31936E-01, 0.59704E-01, 0.69426E-01, 0.45574E-01, 0.20254E-01,
     & 0.43751E-02,-0.25303E-02,-0.41024E-02,-0.34295E-02,-0.22393E-02,
     &-0.12303E-02,-0.57066E-03,-0.21998E-03,-0.75832E-04,-0.39012E-04,
     &-0.36644E-04
     & /
       real p84(0:20)
       data p84/
     & 0.33723E+00, 0.31559E+00,-0.21750E+00,-0.37247E+00,-0.21847E+00,
     &-0.30971E-01, 0.61082E-01, 0.70272E-01, 0.45817E-01, 0.20160E-01,
     & 0.41881E-02,-0.26864E-02,-0.41963E-02,-0.34724E-02,-0.22520E-02,
     &-0.12289E-02,-0.56479E-03,-0.21410E-03,-0.71524E-04,-0.36371E-04,
     &-0.35159E-04
     & /
       real p85(0:19)
       data p85/
     & 0.34091E+00, 0.31810E+00,-0.22121E+00,-0.37662E+00,-0.21968E+00,
     &-0.29993E-01, 0.62460E-01, 0.71110E-01, 0.46052E-01, 0.20062E-01,
     & 0.39998E-02,-0.28420E-02,-0.42891E-02,-0.35144E-02,-0.22640E-02,
     &-0.12272E-02,-0.55874E-03,-0.20816E-03,-0.67207E-04,-0.33743E-04
     & /
       real p86(0:19)
       data p86/
     & 0.34460E+00, 0.32060E+00,-0.22492E+00,-0.38075E+00,-0.22088E+00,
     &-0.29003E-01, 0.63837E-01, 0.71940E-01, 0.46280E-01, 0.19959E-01,
     & 0.38102E-02,-0.29971E-02,-0.43808E-02,-0.35554E-02,-0.22754E-02,
     &-0.12251E-02,-0.55251E-03,-0.20215E-03,-0.62884E-04,-0.31128E-04
     & /
       real p87(0:19)
       data p87/
     & 0.34828E+00, 0.32308E+00,-0.22865E+00,-0.38487E+00,-0.22205E+00,
     &-0.28001E-01, 0.65213E-01, 0.72764E-01, 0.46501E-01, 0.19852E-01,
     & 0.36194E-02,-0.31518E-02,-0.44716E-02,-0.35955E-02,-0.22861E-02,
     &-0.12226E-02,-0.54612E-03,-0.19610E-03,-0.58557E-04,-0.28526E-04
     & /
       real p88(0:19)
       data p88/
     & 0.35195E+00, 0.32554E+00,-0.23238E+00,-0.38898E+00,-0.22320E+00,
     &-0.26988E-01, 0.66588E-01, 0.73579E-01, 0.46715E-01, 0.19742E-01,
     & 0.34276E-02,-0.33059E-02,-0.45612E-02,-0.36346E-02,-0.22961E-02,
     &-0.12198E-02,-0.53956E-03,-0.18998E-03,-0.54228E-04,-0.25940E-04
     & /
       real p89(0:19)
       data p89/
     & 0.35562E+00, 0.32799E+00,-0.23612E+00,-0.39307E+00,-0.22433E+00,
     &-0.25963E-01, 0.67962E-01, 0.74388E-01, 0.46921E-01, 0.19627E-01,
     & 0.32346E-02,-0.34594E-02,-0.46499E-02,-0.36728E-02,-0.23056E-02,
     &-0.12166E-02,-0.53285E-03,-0.18382E-03,-0.49899E-04,-0.23370E-04
     & /
       real p90(0:19)
       data p90/
     & 0.35929E+00, 0.33043E+00,-0.23987E+00,-0.39715E+00,-0.22544E+00,
     &-0.24927E-01, 0.69335E-01, 0.75189E-01, 0.47121E-01, 0.19508E-01,
     & 0.30407E-02,-0.36124E-02,-0.47375E-02,-0.37101E-02,-0.23144E-02,
     &-0.12131E-02,-0.52599E-03,-0.17762E-03,-0.45571E-04,-0.20817E-04
     & /
       real p91(0:19)
       data p91/
     & 0.36295E+00, 0.33285E+00,-0.24362E+00,-0.40122E+00,-0.22653E+00,
     &-0.23881E-01, 0.70706E-01, 0.75983E-01, 0.47314E-01, 0.19386E-01,
     & 0.28458E-02,-0.37648E-02,-0.48240E-02,-0.37465E-02,-0.23227E-02,
     &-0.12093E-02,-0.51899E-03,-0.17137E-03,-0.41248E-04,-0.18281E-04
     & /
       real p92(0:19)
       data p92/
     & 0.36660E+00, 0.33525E+00,-0.24738E+00,-0.40528E+00,-0.22760E+00,
     &-0.22824E-01, 0.72076E-01, 0.76769E-01, 0.47500E-01, 0.19260E-01,
     & 0.26501E-02,-0.39165E-02,-0.49096E-02,-0.37820E-02,-0.23303E-02,
     &-0.12051E-02,-0.51186E-03,-0.16509E-03,-0.36930E-04,-0.15764E-04
     & /
       real p93(0:19)
       data p93/
     & 0.37026E+00, 0.33765E+00,-0.25115E+00,-0.40932E+00,-0.22865E+00,
     &-0.21761E-01, 0.73437E-01, 0.77544E-01, 0.47678E-01, 0.19132E-01,
     & 0.24556E-02,-0.40661E-02,-0.49932E-02,-0.38163E-02,-0.23374E-02,
     &-0.12008E-02,-0.50469E-03,-0.15884E-03,-0.32670E-04,-0.13302E-04
     & /
       real p94(0:19)
       data p94/
     & 0.37391E+00, 0.34002E+00,-0.25492E+00,-0.41334E+00,-0.22968E+00,
     &-0.20689E-01, 0.74795E-01, 0.78311E-01, 0.47850E-01, 0.19000E-01,
     & 0.22605E-02,-0.42148E-02,-0.50758E-02,-0.38497E-02,-0.23439E-02,
     &-0.11961E-02,-0.49741E-03,-0.15257E-03,-0.28425E-04,-0.10865E-04
     & /
       real p95(0:19)
       data p95/
     & 0.37755E+00, 0.34238E+00,-0.25871E+00,-0.41735E+00,-0.23069E+00,
     &-0.19606E-01, 0.76152E-01, 0.79070E-01, 0.48015E-01, 0.18865E-01,
     & 0.20646E-02,-0.43630E-02,-0.51573E-02,-0.38823E-02,-0.23498E-02,
     &-0.11912E-02,-0.48999E-03,-0.14627E-03,-0.24185E-04,-0.84443E-05
     & /
       real p96(0:19)
       data p96/
     & 0.38119E+00, 0.34473E+00,-0.26249E+00,-0.42135E+00,-0.23168E+00,
     &-0.18512E-01, 0.77508E-01, 0.79823E-01, 0.48174E-01, 0.18726E-01,
     & 0.18677E-02,-0.45106E-02,-0.52379E-02,-0.39140E-02,-0.23552E-02,
     &-0.11859E-02,-0.48246E-03,-0.13993E-03,-0.19952E-04,-0.60423E-05
     & /
       real p97(0:19)
       data p97/
     & 0.38483E+00, 0.34706E+00,-0.26629E+00,-0.42534E+00,-0.23265E+00,
     &-0.17408E-01, 0.78862E-01, 0.80569E-01, 0.48326E-01, 0.18584E-01,
     & 0.16701E-02,-0.46576E-02,-0.53175E-02,-0.39449E-02,-0.23601E-02,
     &-0.11804E-02,-0.47481E-03,-0.13357E-03,-0.15728E-04,-0.36592E-05
     & /
       real p98(0:19)
       data p98/
     & 0.38846E+00, 0.34937E+00,-0.27009E+00,-0.42931E+00,-0.23360E+00,
     &-0.16293E-01, 0.80215E-01, 0.81307E-01, 0.48472E-01, 0.18439E-01,
     & 0.14717E-02,-0.48040E-02,-0.53961E-02,-0.39750E-02,-0.23644E-02,
     &-0.11746E-02,-0.46704E-03,-0.12717E-03,-0.11514E-04,-0.12957E-05
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  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,  23,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  23,  22,  22,  22,  22,  22,  21,  21
     &,  21,  21,  21,  20,  20,  20,  20,  20,  20,  20
     &,  20,  20,  20,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.24) 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.24) param(i,19) = p19(i)
             if (i.le.24) param(i,20) = p20(i)
             if (i.le.24) param(i,21) = p21(i)
             if (i.le.24) param(i,22) = p22(i)
             if (i.le.24) param(i,23) = p23(i)
             if (i.le.24) param(i,24) = p24(i)
             if (i.le.24) param(i,25) = p25(i)
             if (i.le.24) param(i,26) = p26(i)
             if (i.le.24) param(i,27) = p27(i)
             if (i.le.24) param(i,28) = p28(i)
             if (i.le.24) param(i,29) = p29(i)
             if (i.le.24) param(i,30) = p30(i)
             if (i.le.24) param(i,31) = p31(i)
             if (i.le.24) param(i,32) = p32(i)
             if (i.le.24) param(i,33) = p33(i)
             if (i.le.24) 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.24) param(i,47) = p47(i)
             if (i.le.24) param(i,48) = p48(i)
             if (i.le.24) param(i,49) = p49(i)
             if (i.le.24) param(i,50) = p50(i)
             if (i.le.24) param(i,51) = p51(i)
             if (i.le.23) param(i,52) = p52(i)
             if (i.le.23) param(i,53) = p53(i)
             if (i.le.23) param(i,54) = p54(i)
             if (i.le.23) param(i,55) = p55(i)
             if (i.le.23) param(i,56) = p56(i)
             if (i.le.23) param(i,57) = p57(i)
             if (i.le.23) param(i,58) = p58(i)
             if (i.le.23) param(i,59) = p59(i)
             if (i.le.23) param(i,60) = p60(i)
             if (i.le.23) param(i,61) = p61(i)
             if (i.le.23) param(i,62) = p62(i)
             if (i.le.23) param(i,63) = p63(i)
             if (i.le.23) param(i,64) = p64(i)
             if (i.le.22) param(i,65) = p65(i)
             if (i.le.22) param(i,66) = p66(i)
             if (i.le.22) param(i,67) = p67(i)
             if (i.le.22) param(i,68) = p68(i)
             if (i.le.22) param(i,69) = p69(i)
             if (i.le.21) param(i,70) = p70(i)
             if (i.le.21) param(i,71) = p71(i)
             if (i.le.21) param(i,72) = p72(i)
             if (i.le.21) param(i,73) = p73(i)
             if (i.le.21) param(i,74) = p74(i)
             if (i.le.20) param(i,75) = p75(i)
             if (i.le.20) param(i,76) = p76(i)
             if (i.le.20) param(i,77) = p77(i)
             if (i.le.20) param(i,78) = p78(i)
             if (i.le.20) param(i,79) = p79(i)
             if (i.le.20) param(i,80) = p80(i)
             if (i.le.20) param(i,81) = p81(i)
             if (i.le.20) param(i,82) = p82(i)
             if (i.le.20) param(i,83) = p83(i)
             if (i.le.20) param(i,84) = p84(i)
             if (i.le.19) param(i,85) = p85(i)
             if (i.le.19) param(i,86) = p86(i)
             if (i.le.19) param(i,87) = p87(i)
             if (i.le.19) param(i,88) = p88(i)
             if (i.le.19) param(i,89) = p89(i)
             if (i.le.19) param(i,90) = p90(i)
             if (i.le.19) param(i,91) = p91(i)
             if (i.le.19) param(i,92) = p92(i)
             if (i.le.19) param(i,93) = p93(i)
             if (i.le.19) param(i,94) = p94(i)
             if (i.le.19) param(i,95) = p95(i)
             if (i.le.19) param(i,96) = p96(i)
             if (i.le.19) param(i,97) = p97(i)
             if (i.le.19) param(i,98) = p98(i)
          enddo
       endif
            
       dvalhiq2ds=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
       dvalhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dvalhiq2ds=0.0
       if (q2.lt.q2min) dvalhiq2ds=0.0
       if ( x.gt. xmax) dvalhiq2ds=0.0
       if ( x.lt. xmin) dvalhiq2ds=0.0
       return
       end
       real function  ubarhiq2ds(xin,q2in)
***********************************************************
c  parametrization of ubarhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:19)
       data p15/
     & 0.27904E+00,-0.34046E+00, 0.56963E-01,-0.63332E-02, 0.94884E-02,
     & 0.28523E-02,-0.53508E-03,-0.14193E-02,-0.77636E-03, 0.14471E-03,
     & 0.61666E-03, 0.60831E-03, 0.34207E-03, 0.22046E-04,-0.15888E-03,
     &-0.21371E-03,-0.18915E-03,-0.81947E-04,-0.38885E-04, 0.27734E-04
     & /
       real p16(0:19)
       data p16/
     & 0.31280E+00,-0.38366E+00, 0.66041E-01,-0.68767E-02, 0.10308E-01,
     & 0.31041E-02,-0.56183E-03,-0.15331E-02,-0.84350E-03, 0.15015E-03,
     & 0.65379E-03, 0.63937E-03, 0.35283E-03, 0.13111E-04,-0.17366E-03,
     &-0.22668E-03,-0.19771E-03,-0.81740E-04,-0.38041E-04, 0.32047E-04
     & /
       real p17(0:19)
       data p17/
     & 0.35022E+00,-0.43197E+00, 0.76676E-01,-0.75792E-02, 0.11184E-01,
     & 0.33671E-02,-0.59448E-03,-0.16562E-02,-0.91489E-03, 0.15603E-03,
     & 0.69205E-03, 0.67044E-03, 0.36277E-03, 0.30131E-05,-0.18896E-03,
     &-0.23957E-03,-0.20599E-03,-0.80830E-04,-0.36997E-04, 0.36659E-04
     & /
       real p18(0:19)
       data p18/
     & 0.38994E+00,-0.48369E+00, 0.88580E-01,-0.84487E-02, 0.12084E-01,
     & 0.36293E-02,-0.63280E-03,-0.17836E-02,-0.98742E-03, 0.16233E-03,
     & 0.72999E-03, 0.70029E-03, 0.37154E-03,-0.77871E-05,-0.20407E-03,
     &-0.25181E-03,-0.21368E-03,-0.79263E-04,-0.35843E-04, 0.41368E-04
     & /
       real p19(0:19)
       data p19/
     & 0.43202E+00,-0.53896E+00, 0.10184E+00,-0.95144E-02, 0.13012E-01,
     & 0.38893E-02,-0.67746E-03,-0.19154E-02,-0.10609E-02, 0.16926E-03,
     & 0.76775E-03, 0.72904E-03, 0.37926E-03,-0.19219E-04,-0.21897E-03,
     &-0.26343E-03,-0.22084E-03,-0.77085E-04,-0.34630E-04, 0.46159E-04
     & /
       real p20(0:19)
       data p20/
     & 0.47655E+00,-0.59789E+00, 0.11653E+00,-0.10805E-01, 0.13972E-01,
     & 0.41458E-02,-0.72901E-03,-0.20516E-02,-0.11350E-02, 0.17699E-03,
     & 0.80542E-03, 0.75678E-03, 0.38604E-03,-0.31222E-04,-0.23366E-03,
     &-0.27446E-03,-0.22752E-03,-0.74334E-04,-0.33401E-04, 0.51024E-04
     & /
       real p21(0:19)
       data p21/
     & 0.52359E+00,-0.66061E+00, 0.13274E+00,-0.12351E-01, 0.14968E-01,
     & 0.43976E-02,-0.78783E-03,-0.21921E-02,-0.12097E-02, 0.18567E-03,
     & 0.84312E-03, 0.78359E-03, 0.39196E-03,-0.43747E-04,-0.24810E-03,
     &-0.28492E-03,-0.23377E-03,-0.71046E-04,-0.32195E-04, 0.55956E-04
     & /
       real p22(0:19)
       data p22/
     & 0.57320E+00,-0.72724E+00, 0.15054E+00,-0.14178E-01, 0.16004E-01,
     & 0.46435E-02,-0.85423E-03,-0.23366E-02,-0.12847E-02, 0.19544E-03,
     & 0.88089E-03, 0.80953E-03, 0.39709E-03,-0.56751E-04,-0.26230E-03,
     &-0.29483E-03,-0.23963E-03,-0.67249E-04,-0.31046E-04, 0.60950E-04
     & /
       real p23(0:19)
       data p23/
     & 0.62543E+00,-0.79787E+00, 0.17001E+00,-0.16318E-01, 0.17084E-01,
     & 0.48821E-02,-0.92839E-03,-0.24851E-02,-0.13598E-02, 0.20639E-03,
     & 0.91879E-03, 0.83467E-03, 0.40151E-03,-0.70197E-04,-0.27623E-03,
     &-0.30421E-03,-0.24515E-03,-0.62970E-04,-0.29982E-04, 0.66001E-04
     & /
       real p24(0:19)
       data p24/
     & 0.68036E+00,-0.87262E+00, 0.19122E+00,-0.18796E-01, 0.18213E-01,
     & 0.51124E-02,-0.10104E-02,-0.26373E-02,-0.14347E-02, 0.21862E-03,
     & 0.95687E-03, 0.85903E-03, 0.40527E-03,-0.84053E-04,-0.28989E-03,
     &-0.31309E-03,-0.25036E-03,-0.58234E-04,-0.29031E-04, 0.71110E-04
     & /
       real p25(0:19)
       data p25/
     & 0.73802E+00,-0.95158E+00, 0.21423E+00,-0.21642E-01, 0.19396E-01,
     & 0.53330E-02,-0.11004E-02,-0.27930E-02,-0.15095E-02, 0.23220E-03,
     & 0.99514E-03, 0.88265E-03, 0.40842E-03,-0.98293E-04,-0.30328E-03,
     &-0.32148E-03,-0.25530E-03,-0.53061E-04,-0.28216E-04, 0.76273E-04
     & /
       real p26(0:19)
       data p26/
     & 0.79847E+00,-0.10349E+01, 0.23912E+00,-0.24882E-01, 0.20637E-01,
     & 0.55428E-02,-0.11982E-02,-0.29519E-02,-0.15838E-02, 0.24719E-03,
     & 0.10336E-02, 0.90556E-03, 0.41100E-03,-0.11289E-03,-0.31639E-03,
     &-0.32939E-03,-0.26000E-03,-0.47470E-04,-0.27557E-04, 0.81492E-04
     & /
       real p27(0:19)
       data p27/
     & 0.86176E+00,-0.11225E+01, 0.26595E+00,-0.28544E-01, 0.21940E-01,
     & 0.57408E-02,-0.13039E-02,-0.31139E-02,-0.16575E-02, 0.26364E-03,
     & 0.10723E-02, 0.92777E-03, 0.41307E-03,-0.12783E-03,-0.32922E-03,
     &-0.33686E-03,-0.26449E-03,-0.41477E-04,-0.27073E-04, 0.86767E-04
     & /
       real p28(0:19)
       data p28/
     & 0.92794E+00,-0.12147E+01, 0.29479E+00,-0.32656E-01, 0.23312E-01,
     & 0.59258E-02,-0.14173E-02,-0.32786E-02,-0.17305E-02, 0.28158E-03,
     & 0.11113E-02, 0.94931E-03, 0.41465E-03,-0.14308E-03,-0.34175E-03,
     &-0.34388E-03,-0.26878E-03,-0.35098E-04,-0.26781E-04, 0.92099E-04
     & /
       real p29(0:19)
       data p29/
     & 0.99705E+00,-0.13114E+01, 0.32569E+00,-0.37243E-01, 0.24756E-01,
     & 0.60967E-02,-0.15381E-02,-0.34459E-02,-0.18027E-02, 0.30104E-03,
     & 0.11504E-02, 0.97018E-03, 0.41577E-03,-0.15863E-03,-0.35399E-03,
     &-0.35049E-03,-0.27291E-03,-0.28346E-04,-0.26695E-04, 0.97490E-04
     & /
       real p30(0:19)
       data p30/
     & 0.10691E+01,-0.14128E+01, 0.35871E+00,-0.42333E-01, 0.26278E-01,
     & 0.62525E-02,-0.16664E-02,-0.36154E-02,-0.18740E-02, 0.32204E-03,
     & 0.11898E-02, 0.99039E-03, 0.41648E-03,-0.17448E-03,-0.36594E-03,
     &-0.35669E-03,-0.27689E-03,-0.21233E-04,-0.26829E-04, 0.10294E-03
     & /
       real p31(0:19)
       data p31/
     & 0.11001E+01,-0.14567E+01, 0.37332E+00,-0.44657E-01, 0.26928E-01,
     & 0.63068E-02,-0.17210E-02,-0.36846E-02,-0.19027E-02, 0.33078E-03,
     & 0.12055E-02, 0.99835E-03, 0.41689E-03,-0.18079E-03,-0.37051E-03,
     &-0.35901E-03,-0.27857E-03,-0.18221E-04,-0.27097E-04, 0.10518E-03
     & /
       real p32(0:19)
       data p32/
     & 0.11461E+01,-0.15217E+01, 0.39496E+00,-0.48123E-01, 0.27910E-01,
     & 0.63880E-02,-0.18040E-02,-0.37885E-02,-0.19451E-02, 0.34454E-03,
     & 0.12295E-02, 0.10103E-02, 0.41736E-03,-0.19040E-03,-0.37748E-03,
     &-0.36256E-03,-0.28109E-03,-0.13721E-04,-0.27454E-04, 0.10854E-03
     & /
       real p33(0:19)
       data p33/
     & 0.12244E+01,-0.16327E+01, 0.43241E+00,-0.54277E-01, 0.29598E-01,
     & 0.65079E-02,-0.19461E-02,-0.39610E-02,-0.20140E-02, 0.36841E-03,
     & 0.12692E-02, 0.10295E-02, 0.41780E-03,-0.20646E-03,-0.38872E-03,
     &-0.36808E-03,-0.28514E-03,-0.60204E-05,-0.28232E-04, 0.11413E-03
     & /
       real p34(0:19)
       data p34/
     & 0.13057E+01,-0.17486E+01, 0.47214E+00,-0.61007E-01, 0.31378E-01,
     & 0.66098E-02,-0.20947E-02,-0.41351E-02,-0.20817E-02, 0.39382E-03,
     & 0.13089E-02, 0.10480E-02, 0.41787E-03,-0.22279E-03,-0.39967E-03,
     &-0.37323E-03,-0.28909E-03, 0.20331E-05,-0.29256E-04, 0.11978E-03
     & /
       real p35(0:19)
       data p35/
     & 0.13901E+01,-0.18694E+01, 0.51422E+00,-0.68339E-01, 0.33257E-01,
     & 0.66926E-02,-0.22495E-02,-0.43106E-02,-0.21481E-02, 0.42075E-03,
     & 0.13489E-02, 0.10659E-02, 0.41759E-03,-0.23938E-03,-0.41033E-03,
     &-0.37801E-03,-0.29296E-03, 0.10431E-04,-0.30536E-04, 0.12552E-03
     & /
       real p36(0:19)
       data p36/
     & 0.14777E+01,-0.19952E+01, 0.55870E+00,-0.76299E-01, 0.35238E-01,
     & 0.67554E-02,-0.24103E-02,-0.44874E-02,-0.22133E-02, 0.44920E-03,
     & 0.13889E-02, 0.10831E-02, 0.41699E-03,-0.25623E-03,-0.42069E-03,
     &-0.38244E-03,-0.29676E-03, 0.19167E-04,-0.32082E-04, 0.13134E-03
     & /
       real p37(0:18)
       data p37/
     & 0.15685E+01,-0.21261E+01, 0.60562E+00,-0.84910E-01, 0.37329E-01,
     & 0.67970E-02,-0.25768E-02,-0.46652E-02,-0.22770E-02, 0.47916E-03,
     & 0.14290E-02, 0.10996E-02, 0.41608E-03,-0.27332E-03,-0.43076E-03,
     &-0.38652E-03,-0.30051E-03, 0.28233E-04,-0.33903E-04
     & /
       real p38(0:18)
       data p38/
     & 0.16625E+01,-0.22621E+01, 0.65505E+00,-0.94199E-01, 0.39535E-01,
     & 0.68166E-02,-0.27488E-02,-0.48439E-02,-0.23394E-02, 0.51061E-03,
     & 0.14693E-02, 0.11155E-02, 0.41490E-03,-0.29064E-03,-0.44052E-03,
     &-0.39028E-03,-0.30422E-03, 0.37623E-04,-0.36004E-04
     & /
       real p39(0:18)
       data p39/
     & 0.17597E+01,-0.24033E+01, 0.70702E+00,-0.10419E+00, 0.41861E-01,
     & 0.68130E-02,-0.29258E-02,-0.50233E-02,-0.24003E-02, 0.54353E-03,
     & 0.15096E-02, 0.11307E-02, 0.41346E-03,-0.30820E-03,-0.44998E-03,
     &-0.39370E-03,-0.30790E-03, 0.47333E-04,-0.38395E-04
     & /
       real p40(0:18)
       data p40/
     & 0.18602E+01,-0.25497E+01, 0.76160E+00,-0.11491E+00, 0.44314E-01,
     & 0.67852E-02,-0.31077E-02,-0.52033E-02,-0.24596E-02, 0.57792E-03,
     & 0.15499E-02, 0.11453E-02, 0.41178E-03,-0.32597E-03,-0.45914E-03,
     &-0.39682E-03,-0.31157E-03, 0.57356E-04,-0.41080E-04
     & /
       real p41(0:18)
       data p41/
     & 0.19641E+01,-0.27015E+01, 0.81882E+00,-0.12637E+00, 0.46900E-01,
     & 0.67323E-02,-0.32941E-02,-0.53837E-02,-0.25175E-02, 0.61373E-03,
     & 0.15903E-02, 0.11593E-02, 0.40987E-03,-0.34396E-03,-0.46800E-03,
     &-0.39962E-03,-0.31523E-03, 0.67688E-04,-0.44067E-04
     & /
       real p42(0:17)
       data p42/
     & 0.20713E+01,-0.28586E+01, 0.87873E+00,-0.13862E+00, 0.49624E-01,
     & 0.66532E-02,-0.34847E-02,-0.55644E-02,-0.25738E-02, 0.65097E-03,
     & 0.16307E-02, 0.11725E-02, 0.40777E-03,-0.36216E-03,-0.47655E-03,
     &-0.40214E-03,-0.31890E-03, 0.78325E-04
     & /
       real p43(0:17)
       data p43/
     & 0.21818E+01,-0.30212E+01, 0.94137E+00,-0.15165E+00, 0.52492E-01,
     & 0.65469E-02,-0.36792E-02,-0.57452E-02,-0.26286E-02, 0.68959E-03,
     & 0.16712E-02, 0.11852E-02, 0.40547E-03,-0.38056E-03,-0.48480E-03,
     &-0.40436E-03,-0.32258E-03, 0.89263E-04
     & /
       real p44(0:17)
       data p44/
     & 0.22958E+01,-0.31892E+01, 0.10068E+01,-0.16551E+00, 0.55511E-01,
     & 0.64123E-02,-0.38772E-02,-0.59261E-02,-0.26817E-02, 0.72958E-03,
     & 0.17116E-02, 0.11972E-02, 0.40301E-03,-0.39915E-03,-0.49275E-03,
     &-0.40631E-03,-0.32629E-03, 0.10050E-03
     & /
       real p45(0:17)
       data p45/
     & 0.24132E+01,-0.33628E+01, 0.10750E+01,-0.18021E+00, 0.58687E-01,
     & 0.62484E-02,-0.40784E-02,-0.61069E-02,-0.27333E-02, 0.77090E-03,
     & 0.17519E-02, 0.12085E-02, 0.40039E-03,-0.41794E-03,-0.50040E-03,
     &-0.40799E-03,-0.33003E-03, 0.11203E-03
     & /
       real p46(0:17)
       data p46/
     & 0.25340E+01,-0.35419E+01, 0.11461E+01,-0.19578E+00, 0.62025E-01,
     & 0.60542E-02,-0.42826E-02,-0.62875E-02,-0.27833E-02, 0.81353E-03,
     & 0.17922E-02, 0.12192E-02, 0.39764E-03,-0.43692E-03,-0.50774E-03,
     &-0.40940E-03,-0.33380E-03, 0.12384E-03
     & /
       real p47(0:17)
       data p47/
     & 0.26583E+01,-0.37267E+01, 0.12201E+01,-0.21223E+00, 0.65532E-01,
     & 0.58286E-02,-0.44894E-02,-0.64679E-02,-0.28317E-02, 0.85744E-03,
     & 0.18325E-02, 0.12293E-02, 0.39476E-03,-0.45608E-03,-0.51477E-03,
     &-0.41056E-03,-0.33763E-03, 0.13595E-03
     & /
       real p48(0:17)
       data p48/
     & 0.27860E+01,-0.39171E+01, 0.12971E+01,-0.22959E+00, 0.69214E-01,
     & 0.55706E-02,-0.46984E-02,-0.66478E-02,-0.28784E-02, 0.90261E-03,
     & 0.18726E-02, 0.12387E-02, 0.39178E-03,-0.47543E-03,-0.52150E-03,
     &-0.41148E-03,-0.34150E-03, 0.14834E-03
     & /
       real p49(0:17)
       data p49/
     & 0.29173E+01,-0.41132E+01, 0.13770E+01,-0.24788E+00, 0.73077E-01,
     & 0.52791E-02,-0.49093E-02,-0.68274E-02,-0.29236E-02, 0.94900E-03,
     & 0.19127E-02, 0.12475E-02, 0.38871E-03,-0.49495E-03,-0.52793E-03,
     &-0.41215E-03,-0.34544E-03, 0.16101E-03
     & /
       real p50(0:17)
       data p50/
     & 0.30521E+01,-0.43151E+01, 0.14599E+01,-0.26712E+00, 0.77127E-01,
     & 0.49530E-02,-0.51219E-02,-0.70063E-02,-0.29672E-02, 0.99659E-03,
     & 0.19527E-02, 0.12557E-02, 0.38555E-03,-0.51464E-03,-0.53406E-03,
     &-0.41259E-03,-0.34944E-03, 0.17396E-03
     & /
       real p51(0:13)
       data p51/
     & 0.31903E+01,-0.45226E+01, 0.15460E+01,-0.28731E+00, 0.81287E-01,
     & 0.46891E-02,-0.53814E-02,-0.71948E-02,-0.30076E-02, 0.93333E-03,
     & 0.21869E-02, 0.11452E-02, 0.50411E-03,-0.30454E-03
     & /
       real p52(0:13)
       data p52/
     & 0.33322E+01,-0.47360E+01, 0.16350E+01,-0.30851E+00, 0.85725E-01,
     & 0.42958E-02,-0.55988E-02,-0.73724E-02,-0.30466E-02, 0.97694E-03,
     & 0.22355E-02, 0.11433E-02, 0.50279E-03,-0.31712E-03
     & /
       real p53(0:13)
       data p53/
     & 0.34777E+01,-0.49554E+01, 0.17272E+01,-0.33072E+00, 0.90368E-01,
     & 0.38649E-02,-0.58169E-02,-0.75492E-02,-0.30839E-02, 0.10215E-02,
     & 0.22842E-02, 0.11404E-02, 0.50145E-03,-0.32974E-03
     & /
       real p54(0:13)
       data p54/
     & 0.36268E+01,-0.51806E+01, 0.18225E+01,-0.35397E+00, 0.95223E-01,
     & 0.33952E-02,-0.60354E-02,-0.77253E-02,-0.31195E-02, 0.10669E-02,
     & 0.23331E-02, 0.11367E-02, 0.50009E-03,-0.34239E-03
     & /
       real p55(0:13)
       data p55/
     & 0.37795E+01,-0.54117E+01, 0.19210E+01,-0.37826E+00, 0.10030E+00,
     & 0.28857E-02,-0.62541E-02,-0.79005E-02,-0.31535E-02, 0.11131E-02,
     & 0.23821E-02, 0.11320E-02, 0.49873E-03,-0.35508E-03
     & /
       real p56(0:13)
       data p56/
     & 0.39358E+01,-0.56488E+01, 0.20228E+01,-0.40362E+00, 0.10559E+00,
     & 0.23352E-02,-0.64725E-02,-0.80749E-02,-0.31858E-02, 0.11601E-02,
     & 0.24312E-02, 0.11265E-02, 0.49738E-03,-0.36780E-03
     & /
       real p57(0:13)
       data p57/
     & 0.40958E+01,-0.58919E+01, 0.21277E+01,-0.43007E+00, 0.11112E+00,
     & 0.17426E-02,-0.66904E-02,-0.82483E-02,-0.32166E-02, 0.12080E-02,
     & 0.24805E-02, 0.11201E-02, 0.49606E-03,-0.38054E-03
     & /
       real p58(0:13)
       data p58/
     & 0.42595E+01,-0.61410E+01, 0.22360E+01,-0.45762E+00, 0.11688E+00,
     & 0.11068E-02,-0.69075E-02,-0.84207E-02,-0.32457E-02, 0.12565E-02,
     & 0.25298E-02, 0.11128E-02, 0.49478E-03,-0.39331E-03
     & /
       real p59(0:13)
       data p59/
     & 0.44268E+01,-0.63962E+01, 0.23475E+01,-0.48630E+00, 0.12288E+00,
     & 0.42672E-03,-0.71234E-02,-0.85922E-02,-0.32733E-02, 0.13059E-02,
     & 0.25793E-02, 0.11045E-02, 0.49354E-03,-0.40610E-03
     & /
       real p60(0:13)
       data p60/
     & 0.45978E+01,-0.66574E+01, 0.24624E+01,-0.51612E+00, 0.12913E+00,
     &-0.29885E-03,-0.73379E-02,-0.87626E-02,-0.32992E-02, 0.13559E-02,
     & 0.26289E-02, 0.10955E-02, 0.49236E-03,-0.41890E-03
     & /
       real p61(0:13)
       data p61/
     & 0.47725E+01,-0.69248E+01, 0.25806E+01,-0.54709E+00, 0.13564E+00,
     &-0.10710E-02,-0.75505E-02,-0.89320E-02,-0.33237E-02, 0.14065E-02,
     & 0.26785E-02, 0.10855E-02, 0.49126E-03,-0.43172E-03
     & /
       real p62(0:13)
       data p62/
     & 0.49509E+01,-0.71982E+01, 0.27022E+01,-0.57924E+00, 0.14240E+00,
     &-0.18910E-02,-0.77611E-02,-0.91003E-02,-0.33466E-02, 0.14578E-02,
     & 0.27283E-02, 0.10746E-02, 0.49025E-03,-0.44454E-03
     & /
       real p63(0:13)
       data p63/
     & 0.51330E+01,-0.74779E+01, 0.28272E+01,-0.61259E+00, 0.14943E+00,
     &-0.27598E-02,-0.79693E-02,-0.92676E-02,-0.33680E-02, 0.15098E-02,
     & 0.27781E-02, 0.10629E-02, 0.48933E-03,-0.45738E-03
     & /
       real p64(0:12)
       data p64/
     & 0.53189E+01,-0.77637E+01, 0.29556E+01,-0.64714E+00, 0.15673E+00,
     &-0.36788E-02,-0.81749E-02,-0.94337E-02,-0.33879E-02, 0.15623E-02,
     & 0.28280E-02, 0.10503E-02, 0.48852E-03
     & /
       real p65(0:12)
       data p65/
     & 0.55085E+01,-0.80556E+01, 0.30875E+01,-0.68291E+00, 0.16431E+00,
     &-0.46489E-02,-0.83774E-02,-0.95988E-02,-0.34064E-02, 0.16154E-02,
     & 0.28780E-02, 0.10369E-02, 0.48782E-03
     & /
       real p66(0:12)
       data p66/
     & 0.57018E+01,-0.83538E+01, 0.32228E+01,-0.71992E+00, 0.17217E+00,
     &-0.56715E-02,-0.85767E-02,-0.97627E-02,-0.34234E-02, 0.16690E-02,
     & 0.29280E-02, 0.10226E-02, 0.48725E-03
     & /
       real p67(0:12)
       data p67/
     & 0.58989E+01,-0.86583E+01, 0.33617E+01,-0.75819E+00, 0.18032E+00,
     &-0.67476E-02,-0.87724E-02,-0.99256E-02,-0.34390E-02, 0.17231E-02,
     & 0.29781E-02, 0.10074E-02, 0.48682E-03
     & /
       real p68(0:12)
       data p68/
     & 0.60998E+01,-0.89690E+01, 0.35040E+01,-0.79773E+00, 0.18876E+00,
     &-0.78785E-02,-0.89641E-02,-0.10087E-01,-0.34531E-02, 0.17778E-02,
     & 0.30283E-02, 0.99135E-03, 0.48654E-03
     & /
       real p69(0:12)
       data p69/
     & 0.63044E+01,-0.92859E+01, 0.36499E+01,-0.83856E+00, 0.19751E+00,
     &-0.90653E-02,-0.91517E-02,-0.10248E-01,-0.34659E-02, 0.18328E-02,
     & 0.30785E-02, 0.97446E-03, 0.48641E-03
     & /
       real p70(0:12)
       data p70/
     & 0.65128E+01,-0.96092E+01, 0.37994E+01,-0.88068E+00, 0.20656E+00,
     &-0.10309E-01,-0.93349E-02,-0.10407E-01,-0.34774E-02, 0.18884E-02,
     & 0.31288E-02, 0.95673E-03, 0.48645E-03
     & /
       real p71(0:12)
       data p71/
     & 0.67250E+01,-0.99388E+01, 0.39524E+01,-0.92412E+00, 0.21592E+00,
     &-0.11611E-01,-0.95133E-02,-0.10566E-01,-0.34875E-02, 0.19443E-02,
     & 0.31792E-02, 0.93815E-03, 0.48666E-03
     & /
       real p72(0:12)
       data p72/
     & 0.69409E+01,-0.10275E+02, 0.41090E+01,-0.96888E+00, 0.22559E+00,
     &-0.12973E-01,-0.96866E-02,-0.10723E-01,-0.34962E-02, 0.20007E-02,
     & 0.32296E-02, 0.91873E-03, 0.48705E-03
     & /
       real p73(0:12)
       data p73/
     & 0.71607E+01,-0.10617E+02, 0.42693E+01,-0.10150E+01, 0.23559E+00,
     &-0.14395E-01,-0.98545E-02,-0.10880E-01,-0.35037E-02, 0.20574E-02,
     & 0.32800E-02, 0.89847E-03, 0.48764E-03
     & /
       real p74(0:12)
       data p74/
     & 0.73843E+01,-0.10965E+02, 0.44332E+01,-0.10625E+01, 0.24592E+00,
     &-0.15879E-01,-0.10017E-01,-0.11035E-01,-0.35099E-02, 0.21145E-02,
     & 0.33305E-02, 0.87737E-03, 0.48842E-03
     & /
       real p75(0:12)
       data p75/
     & 0.76116E+01,-0.11320E+02, 0.46007E+01,-0.11113E+01, 0.25658E+00,
     &-0.17427E-01,-0.10173E-01,-0.11189E-01,-0.35148E-02, 0.21719E-02,
     & 0.33811E-02, 0.85545E-03, 0.48941E-03
     & /
       real p76(0:12)
       data p76/
     & 0.78428E+01,-0.11682E+02, 0.47719E+01,-0.11615E+01, 0.26758E+00,
     &-0.19038E-01,-0.10323E-01,-0.11342E-01,-0.35185E-02, 0.22297E-02,
     & 0.34317E-02, 0.83270E-03, 0.49062E-03
     & /
       real p77(0:12)
       data p77/
     & 0.80778E+01,-0.12049E+02, 0.49467E+01,-0.12131E+01, 0.27892E+00,
     &-0.20715E-01,-0.10467E-01,-0.11494E-01,-0.35210E-02, 0.22877E-02,
     & 0.34823E-02, 0.80913E-03, 0.49204E-03
     & /
       real p78(0:12)
       data p78/
     & 0.83166E+01,-0.12424E+02, 0.51253E+01,-0.12661E+01, 0.29061E+00,
     &-0.22458E-01,-0.10604E-01,-0.11645E-01,-0.35223E-02, 0.23461E-02,
     & 0.35330E-02, 0.78474E-03, 0.49370E-03
     & /
       real p79(0:12)
       data p79/
     & 0.85593E+01,-0.12804E+02, 0.53076E+01,-0.13205E+01, 0.30266E+00,
     &-0.24270E-01,-0.10734E-01,-0.11795E-01,-0.35224E-02, 0.24047E-02,
     & 0.35837E-02, 0.75953E-03, 0.49559E-03
     & /
       real p80(0:12)
       data p80/
     & 0.88057E+01,-0.13191E+02, 0.54936E+01,-0.13764E+01, 0.31506E+00,
     &-0.26150E-01,-0.10857E-01,-0.11945E-01,-0.35213E-02, 0.24635E-02,
     & 0.36345E-02, 0.73351E-03, 0.49772E-03
     & /
       real p81(0:12)
       data p81/
     & 0.90560E+01,-0.13584E+02, 0.56833E+01,-0.14337E+01, 0.32783E+00,
     &-0.28101E-01,-0.10971E-01,-0.12093E-01,-0.35191E-02, 0.25226E-02,
     & 0.36853E-02, 0.70668E-03, 0.50010E-03
     & /
       real p82(0:12)
       data p82/
     & 0.93101E+01,-0.13984E+02, 0.58768E+01,-0.14925E+01, 0.34096E+00,
     &-0.30122E-01,-0.11078E-01,-0.12240E-01,-0.35158E-02, 0.25819E-02,
     & 0.37362E-02, 0.67905E-03, 0.50274E-03
     & /
       real p83(0:12)
       data p83/
     & 0.95681E+01,-0.14390E+02, 0.60741E+01,-0.15527E+01, 0.35448E+00,
     &-0.32217E-01,-0.11177E-01,-0.12387E-01,-0.35114E-02, 0.26414E-02,
     & 0.37871E-02, 0.65062E-03, 0.50564E-03
     & /
       real p84(0:12)
       data p84/
     & 0.98298E+01,-0.14803E+02, 0.62752E+01,-0.16144E+01, 0.36837E+00,
     &-0.34385E-01,-0.11268E-01,-0.12533E-01,-0.35059E-02, 0.27011E-02,
     & 0.38380E-02, 0.62140E-03, 0.50880E-03
     & /
       real p85(0:12)
       data p85/
     & 0.10095E+02,-0.15222E+02, 0.64800E+01,-0.16775E+01, 0.38264E+00,
     &-0.36628E-01,-0.11349E-01,-0.12678E-01,-0.34993E-02, 0.27609E-02,
     & 0.38890E-02, 0.59137E-03, 0.51224E-03
     & /
       real p86(0:12)
       data p86/
     & 0.10365E+02,-0.15648E+02, 0.66887E+01,-0.17422E+01, 0.39730E+00,
     &-0.38948E-01,-0.11422E-01,-0.12822E-01,-0.34917E-02, 0.28209E-02,
     & 0.39401E-02, 0.56057E-03, 0.51596E-03
     & /
       real p87(0:12)
       data p87/
     & 0.10638E+02,-0.16080E+02, 0.69011E+01,-0.18084E+01, 0.41236E+00,
     &-0.41344E-01,-0.11486E-01,-0.12965E-01,-0.34831E-02, 0.28811E-02,
     & 0.39912E-02, 0.52897E-03, 0.51997E-03
     & /
       real p88(0:12)
       data p88/
     & 0.10915E+02,-0.16519E+02, 0.71174E+01,-0.18761E+01, 0.42781E+00,
     &-0.43819E-01,-0.11539E-01,-0.13108E-01,-0.34734E-02, 0.29414E-02,
     & 0.40423E-02, 0.49659E-03, 0.52426E-03
     & /
       real p89(0:12)
       data p89/
     & 0.11196E+02,-0.16964E+02, 0.73375E+01,-0.19453E+01, 0.44367E+00,
     &-0.46374E-01,-0.11583E-01,-0.13250E-01,-0.34628E-02, 0.30018E-02,
     & 0.40935E-02, 0.46344E-03, 0.52885E-03
     & /
       real p90(0:12)
       data p90/
     & 0.11481E+02,-0.17415E+02, 0.75615E+01,-0.20161E+01, 0.45994E+00,
     &-0.49010E-01,-0.11617E-01,-0.13391E-01,-0.34512E-02, 0.30622E-02,
     & 0.41448E-02, 0.42951E-03, 0.53374E-03
     & /
       real p91(0:12)
       data p91/
     & 0.11770E+02,-0.17873E+02, 0.77893E+01,-0.20884E+01, 0.47661E+00,
     &-0.51728E-01,-0.11641E-01,-0.13532E-01,-0.34386E-02, 0.31228E-02,
     & 0.41961E-02, 0.39481E-03, 0.53893E-03
     & /
       real p92(0:12)
       data p92/
     & 0.12062E+02,-0.18338E+02, 0.80210E+01,-0.21623E+01, 0.49371E+00,
     &-0.54529E-01,-0.11654E-01,-0.13672E-01,-0.34251E-02, 0.31835E-02,
     & 0.42475E-02, 0.35934E-03, 0.54443E-03
     & /
       real p93(0:12)
       data p93/
     & 0.12358E+02,-0.18809E+02, 0.82565E+01,-0.22377E+01, 0.51122E+00,
     &-0.57417E-01,-0.11654E-01,-0.13811E-01,-0.34106E-02, 0.32440E-02,
     & 0.42988E-02, 0.32300E-03, 0.55047E-03
     & /
       real p94(0:12)
       data p94/
     & 0.12658E+02,-0.19286E+02, 0.84961E+01,-0.23148E+01, 0.52918E+00,
     &-0.60392E-01,-0.11643E-01,-0.13949E-01,-0.33953E-02, 0.33046E-02,
     & 0.43501E-02, 0.28584E-03, 0.55686E-03
     & /
       real p95(0:12)
       data p95/
     & 0.12963E+02,-0.19770E+02, 0.87397E+01,-0.23935E+01, 0.54758E+00,
     &-0.63457E-01,-0.11621E-01,-0.14086E-01,-0.33790E-02, 0.33652E-02,
     & 0.44015E-02, 0.24789E-03, 0.56359E-03
     & /
       real p96(0:12)
       data p96/
     & 0.13271E+02,-0.20261E+02, 0.89873E+01,-0.24738E+01, 0.56642E+00,
     &-0.66613E-01,-0.11586E-01,-0.14223E-01,-0.33618E-02, 0.34259E-02,
     & 0.44530E-02, 0.20915E-03, 0.57065E-03
     & /
       real p97(0:12)
       data p97/
     & 0.13583E+02,-0.20759E+02, 0.92390E+01,-0.25558E+01, 0.58572E+00,
     &-0.69860E-01,-0.11539E-01,-0.14360E-01,-0.33437E-02, 0.34866E-02,
     & 0.45046E-02, 0.16961E-03, 0.57805E-03
     & /
       real p98(0:12)
       data p98/
     & 0.13899E+02,-0.21264E+02, 0.94947E+01,-0.26395E+01, 0.60548E+00,
     &-0.73201E-01,-0.11480E-01,-0.14496E-01,-0.33247E-02, 0.35474E-02,
     & 0.45562E-02, 0.12928E-03, 0.58579E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  18,  18,  18,  18,  18
     &,  17,  17,  17,  17,  17,  17,  17,  17,  17,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.19) param(i,15) = p15(i)
             if (i.le.19) param(i,16) = p16(i)
             if (i.le.19) param(i,17) = p17(i)
             if (i.le.19) param(i,18) = p18(i)
             if (i.le.19) param(i,19) = p19(i)
             if (i.le.19) param(i,20) = p20(i)
             if (i.le.19) param(i,21) = p21(i)
             if (i.le.19) param(i,22) = p22(i)
             if (i.le.19) param(i,23) = p23(i)
             if (i.le.19) param(i,24) = p24(i)
             if (i.le.19) param(i,25) = p25(i)
             if (i.le.19) 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.19) param(i,29) = p29(i)
             if (i.le.19) param(i,30) = p30(i)
             if (i.le.19) param(i,31) = p31(i)
             if (i.le.19) param(i,32) = p32(i)
             if (i.le.19) param(i,33) = p33(i)
             if (i.le.19) param(i,34) = p34(i)
             if (i.le.19) param(i,35) = p35(i)
             if (i.le.19) param(i,36) = p36(i)
             if (i.le.18) param(i,37) = p37(i)
             if (i.le.18) param(i,38) = p38(i)
             if (i.le.18) param(i,39) = p39(i)
             if (i.le.18) param(i,40) = p40(i)
             if (i.le.18) param(i,41) = p41(i)
             if (i.le.17) param(i,42) = p42(i)
             if (i.le.17) param(i,43) = p43(i)
             if (i.le.17) param(i,44) = p44(i)
             if (i.le.17) param(i,45) = p45(i)
             if (i.le.17) param(i,46) = p46(i)
             if (i.le.17) param(i,47) = p47(i)
             if (i.le.17) param(i,48) = p48(i)
             if (i.le.17) param(i,49) = p49(i)
             if (i.le.17) param(i,50) = p50(i)
             if (i.le.13) param(i,51) = p51(i)
             if (i.le.13) param(i,52) = p52(i)
             if (i.le.13) param(i,53) = p53(i)
             if (i.le.13) param(i,54) = p54(i)
             if (i.le.13) param(i,55) = p55(i)
             if (i.le.13) param(i,56) = p56(i)
             if (i.le.13) param(i,57) = p57(i)
             if (i.le.13) param(i,58) = p58(i)
             if (i.le.13) param(i,59) = p59(i)
             if (i.le.13) param(i,60) = p60(i)
             if (i.le.13) param(i,61) = p61(i)
             if (i.le.13) param(i,62) = p62(i)
             if (i.le.13) param(i,63) = p63(i)
             if (i.le.12) param(i,64) = p64(i)
             if (i.le.12) param(i,65) = p65(i)
             if (i.le.12) param(i,66) = p66(i)
             if (i.le.12) param(i,67) = p67(i)
             if (i.le.12) param(i,68) = p68(i)
             if (i.le.12) param(i,69) = p69(i)
             if (i.le.12) param(i,70) = p70(i)
             if (i.le.12) param(i,71) = p71(i)
             if (i.le.12) param(i,72) = p72(i)
             if (i.le.12) param(i,73) = p73(i)
             if (i.le.12) param(i,74) = p74(i)
             if (i.le.12) param(i,75) = p75(i)
             if (i.le.12) param(i,76) = p76(i)
             if (i.le.12) param(i,77) = p77(i)
             if (i.le.12) param(i,78) = p78(i)
             if (i.le.12) param(i,79) = p79(i)
             if (i.le.12) param(i,80) = p80(i)
             if (i.le.12) param(i,81) = p81(i)
             if (i.le.12) param(i,82) = p82(i)
             if (i.le.12) param(i,83) = p83(i)
             if (i.le.12) param(i,84) = p84(i)
             if (i.le.12) param(i,85) = p85(i)
             if (i.le.12) param(i,86) = p86(i)
             if (i.le.12) param(i,87) = p87(i)
             if (i.le.12) param(i,88) = p88(i)
             if (i.le.12) param(i,89) = p89(i)
             if (i.le.12) param(i,90) = p90(i)
             if (i.le.12) param(i,91) = p91(i)
             if (i.le.12) param(i,92) = p92(i)
             if (i.le.12) param(i,93) = p93(i)
             if (i.le.12) param(i,94) = p94(i)
             if (i.le.12) param(i,95) = p95(i)
             if (i.le.12) param(i,96) = p96(i)
             if (i.le.12) param(i,97) = p97(i)
             if (i.le.12) param(i,98) = p98(i)
          enddo
       endif
            
       ubarhiq2ds=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
       ubarhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) ubarhiq2ds=0.0
       if (q2.lt.q2min) ubarhiq2ds=0.0
       if ( x.gt. xmax) ubarhiq2ds=0.0
       if ( x.lt. xmin) ubarhiq2ds=0.0
       return
       end
       real function  dbarhiq2ds(xin,q2in)
***********************************************************
c  parametrization of dbarhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:19)
       data p15/
     & 0.28363E+00,-0.33580E+00, 0.53352E-01,-0.13715E-01, 0.47682E-02,
     & 0.32852E-02, 0.32250E-02, 0.24346E-02, 0.10981E-02,-0.16351E-03,
     &-0.89634E-03,-0.96756E-03,-0.61904E-03,-0.21175E-03, 0.97784E-04,
     & 0.21547E-03, 0.18273E-03, 0.13662E-03, 0.31906E-04, 0.30102E-05
     & /
       real p16(0:19)
       data p16/
     & 0.31775E+00,-0.37866E+00, 0.62098E-01,-0.14834E-01, 0.52939E-02,
     & 0.36578E-02, 0.35193E-02, 0.25726E-02, 0.10930E-02,-0.24635E-03,
     &-0.99258E-03,-0.10322E-02,-0.63930E-03,-0.20270E-03, 0.11993E-03,
     & 0.23489E-03, 0.19209E-03, 0.14104E-03, 0.28778E-04, 0.74718E-06
     & /
       real p17(0:19)
       data p17/
     & 0.35555E+00,-0.42662E+00, 0.72382E-01,-0.16132E-01, 0.58744E-02,
     & 0.40560E-02, 0.38210E-02, 0.27037E-02, 0.10765E-02,-0.33779E-03,
     &-0.10924E-02,-0.10961E-02,-0.65660E-03,-0.19097E-03, 0.14373E-03,
     & 0.25469E-03, 0.20085E-03, 0.14499E-03, 0.24952E-04,-0.16689E-05
     & /
       real p18(0:19)
       data p18/
     & 0.39564E+00,-0.47800E+00, 0.83932E-01,-0.17593E-01, 0.64903E-02,
     & 0.44618E-02, 0.41160E-02, 0.28216E-02, 0.10492E-02,-0.43344E-03,
     &-0.11912E-02,-0.11564E-02,-0.67025E-03,-0.17722E-03, 0.16806E-03,
     & 0.27396E-03, 0.20863E-03, 0.14836E-03, 0.20601E-04,-0.40987E-05
     & /
       real p19(0:19)
       data p19/
     & 0.43810E+00,-0.53293E+00, 0.96833E-01,-0.19245E-01, 0.71449E-02,
     & 0.48733E-02, 0.44034E-02, 0.29266E-02, 0.10121E-02,-0.53252E-03,
     &-0.12885E-02,-0.12132E-02,-0.68048E-03,-0.16170E-03, 0.19276E-03,
     & 0.29267E-03, 0.21544E-03, 0.15122E-03, 0.15767E-04,-0.65065E-05
     & /
       real p20(0:19)
       data p20/
     & 0.48301E+00,-0.59153E+00, 0.11117E+00,-0.21119E-01, 0.78416E-02,
     & 0.52886E-02, 0.46825E-02, 0.30192E-02, 0.96605E-03,-0.63437E-03,
     &-0.13843E-02,-0.12666E-02,-0.68754E-03,-0.14465E-03, 0.21771E-03,
     & 0.31079E-03, 0.22132E-03, 0.15362E-03, 0.10488E-04,-0.88616E-05
     & /
       real p21(0:19)
       data p21/
     & 0.53042E+00,-0.65392E+00, 0.12701E+00,-0.23242E-01, 0.85841E-02,
     & 0.57060E-02, 0.49526E-02, 0.30997E-02, 0.91176E-03,-0.73840E-03,
     &-0.14782E-02,-0.13167E-02,-0.69166E-03,-0.12627E-03, 0.24280E-03,
     & 0.32830E-03, 0.22631E-03, 0.15565E-03, 0.47965E-05,-0.11137E-04
     & /
       real p22(0:19)
       data p22/
     & 0.58039E+00,-0.72022E+00, 0.14444E+00,-0.25643E-01, 0.93761E-02,
     & 0.61237E-02, 0.52135E-02, 0.31687E-02, 0.84996E-03,-0.84409E-03,
     &-0.15701E-02,-0.13635E-02,-0.69303E-03,-0.10677E-03, 0.26793E-03,
     & 0.34521E-03, 0.23045E-03, 0.15735E-03,-0.12798E-05,-0.13311E-04
     & /
       real p23(0:19)
       data p23/
     & 0.63300E+00,-0.79053E+00, 0.16354E+00,-0.28352E-01, 0.10222E-01,
     & 0.65401E-02, 0.54647E-02, 0.32265E-02, 0.78130E-03,-0.95097E-03,
     &-0.16598E-02,-0.14072E-02,-0.69185E-03,-0.86311E-04, 0.29303E-03,
     & 0.36150E-03, 0.23376E-03, 0.15878E-03,-0.77162E-05,-0.15364E-04
     & /
       real p24(0:19)
       data p24/
     & 0.68829E+00,-0.86496E+00, 0.18437E+00,-0.31396E-01, 0.11125E-01,
     & 0.69536E-02, 0.57060E-02, 0.32737E-02, 0.70641E-03,-0.10587E-02,
     &-0.17474E-02,-0.14480E-02,-0.68831E-03,-0.65035E-04, 0.31804E-03,
     & 0.37719E-03, 0.23627E-03, 0.15998E-03,-0.14492E-04,-0.17277E-04
     & /
       real p25(0:19)
       data p25/
     & 0.74632E+00,-0.94361E+00, 0.20701E+00,-0.34803E-01, 0.12089E-01,
     & 0.73627E-02, 0.59374E-02, 0.33107E-02, 0.62583E-03,-0.11668E-02,
     &-0.18326E-02,-0.14859E-02,-0.68256E-03,-0.43083E-04, 0.34290E-03,
     & 0.39227E-03, 0.23803E-03, 0.16100E-03,-0.21587E-04,-0.19038E-04
     & /
       real p26(0:19)
       data p26/
     & 0.80714E+00,-0.10266E+01, 0.23152E+00,-0.38601E-01, 0.13120E-01,
     & 0.77658E-02, 0.61588E-02, 0.33380E-02, 0.54010E-03,-0.12751E-02,
     &-0.19156E-02,-0.15211E-02,-0.67477E-03,-0.20574E-04, 0.36758E-03,
     & 0.40677E-03, 0.23906E-03, 0.16188E-03,-0.28988E-04,-0.20632E-04
     & /
       real p27(0:19)
       data p27/
     & 0.87080E+00,-0.11139E+01, 0.25797E+00,-0.42818E-01, 0.14222E-01,
     & 0.81616E-02, 0.63702E-02, 0.33560E-02, 0.44970E-03,-0.13832E-02,
     &-0.19962E-02,-0.15537E-02,-0.66507E-03, 0.23846E-05, 0.39202E-03,
     & 0.42068E-03, 0.23940E-03, 0.16265E-03,-0.36679E-04,-0.22050E-04
     & /
       real p28(0:19)
       data p28/
     & 0.93734E+00,-0.12058E+01, 0.28642E+00,-0.47480E-01, 0.15398E-01,
     & 0.85485E-02, 0.65718E-02, 0.33653E-02, 0.35506E-03,-0.14910E-02,
     &-0.20744E-02,-0.15838E-02,-0.65360E-03, 0.25695E-04, 0.41621E-03,
     & 0.43402E-03, 0.23906E-03, 0.16335E-03,-0.44649E-04,-0.23282E-04
     & /
       real p29(0:19)
       data p29/
     & 0.10068E+01,-0.13022E+01, 0.31694E+00,-0.52614E-01, 0.16655E-01,
     & 0.89254E-02, 0.67635E-02, 0.33662E-02, 0.25660E-03,-0.15983E-02,
     &-0.21503E-02,-0.16115E-02,-0.64047E-03, 0.49270E-04, 0.44012E-03,
     & 0.44682E-03, 0.23809E-03, 0.16401E-03,-0.52887E-04,-0.24320E-04
     & /
       real p30(0:19)
       data p30/
     & 0.10793E+01,-0.14033E+01, 0.34958E+00,-0.58246E-01, 0.17996E-01,
     & 0.92909E-02, 0.69456E-02, 0.33593E-02, 0.15469E-03,-0.17048E-02,
     &-0.22239E-02,-0.16370E-02,-0.62582E-03, 0.73034E-04, 0.46372E-03,
     & 0.45907E-03, 0.23650E-03, 0.16466E-03,-0.61386E-04,-0.25156E-04
     & /
       real p31(0:19)
       data p31/
     & 0.11104E+01,-0.14471E+01, 0.36403E+00,-0.60783E-01, 0.18576E-01,
     & 0.94284E-02, 0.70123E-02, 0.33528E-02, 0.11308E-03,-0.17462E-02,
     &-0.22520E-02,-0.16464E-02,-0.61955E-03, 0.82320E-04, 0.47295E-03,
     & 0.46377E-03, 0.23560E-03, 0.16507E-03,-0.64930E-04,-0.25340E-04
     & /
       real p32(0:19)
       data p32/
     & 0.11566E+01,-0.15119E+01, 0.38544E+00,-0.64576E-01, 0.19452E-01,
     & 0.96379E-02, 0.71153E-02, 0.33445E-02, 0.50754E-04,-0.18090E-02,
     &-0.22948E-02,-0.16608E-02,-0.61023E-03, 0.96352E-04, 0.48689E-03,
     & 0.47090E-03, 0.23430E-03, 0.16566E-03,-0.70220E-04,-0.25647E-04
     & /
       real p33(0:18)
       data p33/
     & 0.12352E+01,-0.16227E+01, 0.42249E+00,-0.71267E-01, 0.20971E-01,
     & 0.99719E-02, 0.72777E-02, 0.33250E-02,-0.54284E-04,-0.19118E-02,
     &-0.23634E-02,-0.16828E-02,-0.59377E-03, 0.11955E-03, 0.50962E-03,
     & 0.48224E-03, 0.23171E-03, 0.16667E-03,-0.79146E-04
     & /
       real p34(0:18)
       data p34/
     & 0.13169E+01,-0.17382E+01, 0.46183E+00,-0.78530E-01, 0.22588E-01,
     & 0.10291E-01, 0.74312E-02, 0.32988E-02,-0.16201E-03,-0.20135E-02,
     &-0.24299E-02,-0.17029E-02,-0.57599E-03, 0.14281E-03, 0.53205E-03,
     & 0.49310E-03, 0.22855E-03, 0.16772E-03,-0.88329E-04
     & /
       real p35(0:18)
       data p35/
     & 0.14017E+01,-0.18587E+01, 0.50352E+00,-0.86391E-01, 0.24310E-01,
     & 0.10595E-01, 0.75762E-02, 0.32661E-02,-0.27217E-03,-0.21141E-02,
     &-0.24942E-02,-0.17212E-02,-0.55698E-03, 0.16607E-03, 0.55416E-03,
     & 0.50349E-03, 0.22485E-03, 0.16884E-03,-0.97766E-04
     & /
       real p36(0:18)
       data p36/
     & 0.14896E+01,-0.19843E+01, 0.54760E+00,-0.94876E-01, 0.26140E-01,
     & 0.10881E-01, 0.77129E-02, 0.32272E-02,-0.38449E-03,-0.22136E-02,
     &-0.25564E-02,-0.17376E-02,-0.53682E-03, 0.18929E-03, 0.57596E-03,
     & 0.51342E-03, 0.22063E-03, 0.17005E-03,-0.10745E-03
     & /
       real p37(0:18)
       data p37/
     & 0.15807E+01,-0.21149E+01, 0.59412E+00,-0.10401E+00, 0.28086E-01,
     & 0.11149E-01, 0.78415E-02, 0.31826E-02,-0.49876E-03,-0.23117E-02,
     &-0.26164E-02,-0.17524E-02,-0.51558E-03, 0.21241E-03, 0.59744E-03,
     & 0.52292E-03, 0.21590E-03, 0.17137E-03,-0.11738E-03
     & /
       real p38(0:18)
       data p38/
     & 0.16751E+01,-0.22506E+01, 0.64315E+00,-0.11382E+00, 0.30153E-01,
     & 0.11397E-01, 0.79623E-02, 0.31325E-02,-0.61475E-03,-0.24084E-02,
     &-0.26744E-02,-0.17655E-02,-0.49332E-03, 0.23541E-03, 0.61859E-03,
     & 0.53199E-03, 0.21069E-03, 0.17282E-03,-0.12756E-03
     & /
       real p39(0:18)
       data p39/
     & 0.17727E+01,-0.23915E+01, 0.69472E+00,-0.12433E+00, 0.32345E-01,
     & 0.11625E-01, 0.80757E-02, 0.30772E-02,-0.73228E-03,-0.25038E-02,
     &-0.27304E-02,-0.17771E-02,-0.47011E-03, 0.25823E-03, 0.63943E-03,
     & 0.54064E-03, 0.20501E-03, 0.17440E-03,-0.13797E-03
     & /
       real p40(0:18)
       data p40/
     & 0.18736E+01,-0.25377E+01, 0.74889E+00,-0.13556E+00, 0.34670E-01,
     & 0.11831E-01, 0.81819E-02, 0.30169E-02,-0.85116E-03,-0.25976E-02,
     &-0.27843E-02,-0.17873E-02,-0.44600E-03, 0.28086E-03, 0.65994E-03,
     & 0.54890E-03, 0.19888E-03, 0.17614E-03,-0.14863E-03
     & /
       real p41(0:18)
       data p41/
     & 0.19778E+01,-0.26892E+01, 0.80571E+00,-0.14754E+00, 0.37132E-01,
     & 0.12014E-01, 0.82813E-02, 0.29520E-02,-0.97123E-03,-0.26899E-02,
     &-0.28364E-02,-0.17960E-02,-0.42105E-03, 0.30326E-03, 0.68012E-03,
     & 0.55677E-03, 0.19231E-03, 0.17804E-03,-0.15952E-03
     & /
       real p42(0:18)
       data p42/
     & 0.20853E+01,-0.28461E+01, 0.86521E+00,-0.16028E+00, 0.39738E-01,
     & 0.12173E-01, 0.83741E-02, 0.28827E-02,-0.10923E-02,-0.27807E-02,
     &-0.28865E-02,-0.18035E-02,-0.39531E-03, 0.32539E-03, 0.69999E-03,
     & 0.56427E-03, 0.18531E-03, 0.18013E-03,-0.17065E-03
     & /
       real p43(0:18)
       data p43/
     & 0.21962E+01,-0.30084E+01, 0.92745E+00,-0.17383E+00, 0.42493E-01,
     & 0.12307E-01, 0.84608E-02, 0.28093E-02,-0.12143E-02,-0.28698E-02,
     &-0.29347E-02,-0.18097E-02,-0.36882E-03, 0.34725E-03, 0.71955E-03,
     & 0.57141E-03, 0.17791E-03, 0.18240E-03,-0.18202E-03
     & /
       real p44(0:18)
       data p44/
     & 0.23106E+01,-0.31762E+01, 0.99246E+00,-0.18819E+00, 0.45403E-01,
     & 0.12414E-01, 0.85416E-02, 0.27319E-02,-0.13370E-02,-0.29574E-02,
     &-0.29812E-02,-0.18148E-02,-0.34163E-03, 0.36880E-03, 0.73879E-03,
     & 0.57820E-03, 0.17011E-03, 0.18488E-03,-0.19362E-03
     & /
       real p45(0:18)
       data p45/
     & 0.24283E+01,-0.33495E+01, 0.10603E+01,-0.20339E+00, 0.48475E-01,
     & 0.12494E-01, 0.86169E-02, 0.26508E-02,-0.14604E-02,-0.30433E-02,
     &-0.30258E-02,-0.18187E-02,-0.31377E-03, 0.39003E-03, 0.75773E-03,
     & 0.58466E-03, 0.16193E-03, 0.18757E-03,-0.20546E-03
     & /
       real p46(0:18)
       data p46/
     & 0.25494E+01,-0.35284E+01, 0.11310E+01,-0.21945E+00, 0.51714E-01,
     & 0.12545E-01, 0.86870E-02, 0.25662E-02,-0.15843E-02,-0.31275E-02,
     &-0.30688E-02,-0.18216E-02,-0.28529E-03, 0.41092E-03, 0.77637E-03,
     & 0.59080E-03, 0.15337E-03, 0.19047E-03,-0.21754E-03
     & /
       real p47(0:18)
       data p47/
     & 0.26741E+01,-0.37129E+01, 0.12046E+01,-0.23639E+00, 0.55126E-01,
     & 0.12567E-01, 0.87522E-02, 0.24783E-02,-0.17086E-02,-0.32101E-02,
     &-0.31101E-02,-0.18235E-02,-0.25622E-03, 0.43144E-03, 0.79472E-03,
     & 0.59662E-03, 0.14445E-03, 0.19361E-03,-0.22985E-03
     & /
       real p48(0:18)
       data p48/
     & 0.28022E+01,-0.39030E+01, 0.12811E+01,-0.25425E+00, 0.58717E-01,
     & 0.12558E-01, 0.88130E-02, 0.23872E-02,-0.18333E-02,-0.32910E-02,
     &-0.31497E-02,-0.18244E-02,-0.22659E-03, 0.45159E-03, 0.81278E-03,
     & 0.60214E-03, 0.13518E-03, 0.19698E-03,-0.24239E-03
     & /
       real p49(0:13)
       data p49/
     & 0.29337E+01,-0.40988E+01, 0.13606E+01,-0.27300E+00, 0.62425E-01,
     & 0.12617E-01, 0.88471E-02, 0.23037E-02,-0.19418E-02,-0.34675E-02,
     &-0.30419E-02,-0.20161E-02,-0.24282E-03, 0.47091E-03
     & /
       real p50(0:13)
       data p50/
     & 0.30688E+01,-0.43004E+01, 0.14432E+01,-0.29273E+00, 0.66388E-01,
     & 0.12548E-01, 0.88975E-02, 0.22072E-02,-0.20650E-02,-0.35499E-02,
     &-0.30687E-02,-0.20228E-02,-0.21089E-03, 0.49390E-03
     & /
       real p51(0:13)
       data p51/
     & 0.32075E+01,-0.45078E+01, 0.15287E+01,-0.31342E+00, 0.70548E-01,
     & 0.12444E-01, 0.89444E-02, 0.21081E-02,-0.21882E-02,-0.36308E-02,
     &-0.30938E-02,-0.20288E-02,-0.17838E-03, 0.51672E-03
     & /
       real p52(0:13)
       data p52/
     & 0.33498E+01,-0.47210E+01, 0.16174E+01,-0.33510E+00, 0.74911E-01,
     & 0.12304E-01, 0.89879E-02, 0.20065E-02,-0.23113E-02,-0.37102E-02,
     &-0.31171E-02,-0.20344E-02,-0.14532E-03, 0.53936E-03
     & /
       real p53(0:13)
       data p53/
     & 0.34956E+01,-0.49401E+01, 0.17091E+01,-0.35779E+00, 0.79484E-01,
     & 0.12129E-01, 0.90286E-02, 0.19026E-02,-0.24342E-02,-0.37882E-02,
     &-0.31387E-02,-0.20395E-02,-0.11174E-03, 0.56181E-03
     & /
       real p54(0:13)
       data p54/
     & 0.36451E+01,-0.51650E+01, 0.18040E+01,-0.38151E+00, 0.84272E-01,
     & 0.11915E-01, 0.90667E-02, 0.17964E-02,-0.25570E-02,-0.38648E-02,
     &-0.31585E-02,-0.20442E-02,-0.77664E-04, 0.58408E-03
     & /
       real p55(0:13)
       data p55/
     & 0.37981E+01,-0.53960E+01, 0.19021E+01,-0.40628E+00, 0.89280E-01,
     & 0.11663E-01, 0.91025E-02, 0.16882E-02,-0.26795E-02,-0.39399E-02,
     &-0.31767E-02,-0.20485E-02,-0.43103E-04, 0.60613E-03
     & /
       real p56(0:13)
       data p56/
     & 0.39548E+01,-0.56328E+01, 0.20034E+01,-0.43211E+00, 0.94516E-01,
     & 0.11371E-01, 0.91365E-02, 0.15779E-02,-0.28018E-02,-0.40136E-02,
     &-0.31933E-02,-0.20525E-02,-0.80812E-05, 0.62798E-03
     & /
       real p57(0:13)
       data p57/
     & 0.41152E+01,-0.58757E+01, 0.21080E+01,-0.45903E+00, 0.99986E-01,
     & 0.11038E-01, 0.91688E-02, 0.14658E-02,-0.29237E-02,-0.40859E-02,
     &-0.32083E-02,-0.20561E-02, 0.27385E-04, 0.64962E-03
     & /
       real p58(0:13)
       data p58/
     & 0.42791E+01,-0.61246E+01, 0.22158E+01,-0.48705E+00, 0.10569E+00,
     & 0.10663E-01, 0.92000E-02, 0.13520E-02,-0.30452E-02,-0.41568E-02,
     &-0.32217E-02,-0.20596E-02, 0.63278E-04, 0.67103E-03
     & /
       real p59(0:13)
       data p59/
     & 0.44468E+01,-0.63795E+01, 0.23269E+01,-0.51619E+00, 0.11165E+00,
     & 0.10244E-01, 0.92302E-02, 0.12365E-02,-0.31662E-02,-0.42263E-02,
     &-0.32336E-02,-0.20627E-02, 0.99584E-04, 0.69222E-03
     & /
       real p60(0:13)
       data p60/
     & 0.46182E+01,-0.66405E+01, 0.24413E+01,-0.54647E+00, 0.11785E+00,
     & 0.97801E-02, 0.92599E-02, 0.11193E-02,-0.32869E-02,-0.42945E-02,
     &-0.32440E-02,-0.20658E-02, 0.13629E-03, 0.71319E-03
     & /
       real p61(0:13)
       data p61/
     & 0.47932E+01,-0.69076E+01, 0.25591E+01,-0.57790E+00, 0.12431E+00,
     & 0.92707E-02, 0.92893E-02, 0.10007E-02,-0.34070E-02,-0.43614E-02,
     &-0.32529E-02,-0.20686E-02, 0.17338E-03, 0.73391E-03
     & /
       real p62(0:13)
       data p62/
     & 0.49720E+01,-0.71809E+01, 0.26803E+01,-0.61051E+00, 0.13104E+00,
     & 0.87142E-02, 0.93189E-02, 0.88070E-03,-0.35266E-02,-0.44269E-02,
     &-0.32604E-02,-0.20713E-02, 0.21084E-03, 0.75441E-03
     & /
       real p63(0:13)
       data p63/
     & 0.51544E+01,-0.74603E+01, 0.28049E+01,-0.64431E+00, 0.13803E+00,
     & 0.81095E-02, 0.93488E-02, 0.75931E-03,-0.36457E-02,-0.44912E-02,
     &-0.32665E-02,-0.20739E-02, 0.24866E-03, 0.77466E-03
     & /
       real p64(0:13)
       data p64/
     & 0.53406E+01,-0.77458E+01, 0.29329E+01,-0.67931E+00, 0.14530E+00,
     & 0.74554E-02, 0.93794E-02, 0.63664E-03,-0.37642E-02,-0.45541E-02,
     &-0.32712E-02,-0.20765E-02, 0.28683E-03, 0.79467E-03
     & /
       real p65(0:13)
       data p65/
     & 0.55306E+01,-0.80376E+01, 0.30643E+01,-0.71554E+00, 0.15284E+00,
     & 0.67507E-02, 0.94111E-02, 0.51274E-03,-0.38821E-02,-0.46158E-02,
     &-0.32746E-02,-0.20790E-02, 0.32535E-03, 0.81444E-03
     & /
       real p66(0:13)
       data p66/
     & 0.57242E+01,-0.83356E+01, 0.31992E+01,-0.75300E+00, 0.16068E+00,
     & 0.59941E-02, 0.94442E-02, 0.38768E-03,-0.39994E-02,-0.46763E-02,
     &-0.32766E-02,-0.20815E-02, 0.36420E-03, 0.83396E-03
     & /
       real p67(0:13)
       data p67/
     & 0.59217E+01,-0.86398E+01, 0.33376E+01,-0.79172E+00, 0.16880E+00,
     & 0.51845E-02, 0.94789E-02, 0.26150E-03,-0.41161E-02,-0.47356E-02,
     &-0.32774E-02,-0.20841E-02, 0.40336E-03, 0.85323E-03
     & /
       real p68(0:13)
       data p68/
     & 0.61229E+01,-0.89503E+01, 0.34795E+01,-0.83170E+00, 0.17722E+00,
     & 0.43207E-02, 0.95157E-02, 0.13427E-03,-0.42322E-02,-0.47937E-02,
     &-0.32768E-02,-0.20866E-02, 0.44285E-03, 0.87225E-03
     & /
       real p69(0:13)
       data p69/
     & 0.63278E+01,-0.92670E+01, 0.36250E+01,-0.87297E+00, 0.18594E+00,
     & 0.34014E-02, 0.95548E-02, 0.60084E-05,-0.43475E-02,-0.48505E-02,
     &-0.32751E-02,-0.20892E-02, 0.48264E-03, 0.89102E-03
     & /
       real p70(0:13)
       data p70/
     & 0.65366E+01,-0.95901E+01, 0.37740E+01,-0.91553E+00, 0.19498E+00,
     & 0.24255E-02, 0.95965E-02,-0.12323E-03,-0.44623E-02,-0.49063E-02,
     &-0.32721E-02,-0.20919E-02, 0.52274E-03, 0.90953E-03
     & /
       real p71(0:13)
       data p71/
     & 0.67491E+01,-0.99195E+01, 0.39266E+01,-0.95941E+00, 0.20432E+00,
     & 0.13917E-02, 0.96411E-02,-0.25341E-03,-0.45763E-02,-0.49609E-02,
     &-0.32679E-02,-0.20947E-02, 0.56313E-03, 0.92780E-03
     & /
       real p72(0:13)
       data p72/
     & 0.69654E+01,-0.10255E+02, 0.40828E+01,-0.10046E+01, 0.21399E+00,
     & 0.29886E-03, 0.96890E-02,-0.38449E-03,-0.46896E-02,-0.50144E-02,
     &-0.32626E-02,-0.20976E-02, 0.60382E-03, 0.94580E-03
     & /
       real p73(0:13)
       data p73/
     & 0.71855E+01,-0.10597E+02, 0.42426E+01,-0.10512E+01, 0.22398E+00,
     &-0.85429E-03, 0.97405E-02,-0.51645E-03,-0.48023E-02,-0.50667E-02,
     &-0.32561E-02,-0.21007E-02, 0.64478E-03, 0.96356E-03
     & /
       real p74(0:13)
       data p74/
     & 0.74094E+01,-0.10946E+02, 0.44061E+01,-0.10990E+01, 0.23430E+00,
     &-0.20689E-02, 0.97958E-02,-0.64927E-03,-0.49142E-02,-0.51180E-02,
     &-0.32484E-02,-0.21039E-02, 0.68603E-03, 0.98105E-03
     & /
       real p75(0:13)
       data p75/
     & 0.76371E+01,-0.11300E+02, 0.45732E+01,-0.11483E+01, 0.24495E+00,
     &-0.33463E-02, 0.98553E-02,-0.78290E-03,-0.50254E-02,-0.51683E-02,
     &-0.32397E-02,-0.21073E-02, 0.72756E-03, 0.99829E-03
     & /
       real p76(0:13)
       data p76/
     & 0.78687E+01,-0.11661E+02, 0.47439E+01,-0.11989E+01, 0.25595E+00,
     &-0.46876E-02, 0.99193E-02,-0.91734E-03,-0.51359E-02,-0.52175E-02,
     &-0.32298E-02,-0.21109E-02, 0.76935E-03, 0.10153E-02
     & /
       real p77(0:13)
       data p77/
     & 0.81040E+01,-0.12029E+02, 0.49183E+01,-0.12510E+01, 0.26729E+00,
     &-0.60940E-02, 0.99881E-02,-0.10526E-02,-0.52457E-02,-0.52657E-02,
     &-0.32189E-02,-0.21147E-02, 0.81142E-03, 0.10320E-02
     & /
       real p78(0:13)
       data p78/
     & 0.83432E+01,-0.12403E+02, 0.50965E+01,-0.13044E+01, 0.27898E+00,
     &-0.75669E-02, 0.10062E-01,-0.11886E-02,-0.53548E-02,-0.53129E-02,
     &-0.32069E-02,-0.21188E-02, 0.85375E-03, 0.10485E-02
     & /
       real p79(0:13)
       data p79/
     & 0.85861E+01,-0.12783E+02, 0.52783E+01,-0.13593E+01, 0.29103E+00,
     &-0.91072E-02, 0.10141E-01,-0.13253E-02,-0.54631E-02,-0.53591E-02,
     &-0.31939E-02,-0.21231E-02, 0.89634E-03, 0.10647E-02
     & /
       real p80(0:13)
       data p80/
     & 0.88329E+01,-0.13170E+02, 0.54639E+01,-0.14155E+01, 0.30344E+00,
     &-0.10716E-01, 0.10226E-01,-0.14628E-02,-0.55706E-02,-0.54043E-02,
     &-0.31799E-02,-0.21276E-02, 0.93919E-03, 0.10806E-02
     & /
       real p81(0:13)
       data p81/
     & 0.90836E+01,-0.13563E+02, 0.56532E+01,-0.14733E+01, 0.31622E+00,
     &-0.12396E-01, 0.10317E-01,-0.16011E-02,-0.56775E-02,-0.54486E-02,
     &-0.31648E-02,-0.21324E-02, 0.98230E-03, 0.10963E-02
     & /
       real p82(0:13)
       data p82/
     & 0.93380E+01,-0.13963E+02, 0.58462E+01,-0.15324E+01, 0.32937E+00,
     &-0.14146E-01, 0.10414E-01,-0.17400E-02,-0.57836E-02,-0.54920E-02,
     &-0.31488E-02,-0.21375E-02, 0.10257E-02, 0.11118E-02
     & /
       real p83(0:13)
       data p83/
     & 0.95963E+01,-0.14369E+02, 0.60431E+01,-0.15931E+01, 0.34289E+00,
     &-0.15969E-01, 0.10518E-01,-0.18797E-02,-0.58889E-02,-0.55344E-02,
     &-0.31318E-02,-0.21429E-02, 0.10693E-02, 0.11270E-02
     & /
       real p84(0:13)
       data p84/
     & 0.98584E+01,-0.14781E+02, 0.62437E+01,-0.16552E+01, 0.35680E+00,
     &-0.17865E-01, 0.10628E-01,-0.20201E-02,-0.59935E-02,-0.55760E-02,
     &-0.31139E-02,-0.21486E-02, 0.11131E-02, 0.11419E-02
     & /
       real p85(0:13)
       data p85/
     & 0.10124E+02,-0.15200E+02, 0.64481E+01,-0.17188E+01, 0.37109E+00,
     &-0.19836E-01, 0.10746E-01,-0.21613E-02,-0.60974E-02,-0.56167E-02,
     &-0.30950E-02,-0.21546E-02, 0.11573E-02, 0.11566E-02
     & /
       real p86(0:13)
       data p86/
     & 0.10394E+02,-0.15626E+02, 0.66563E+01,-0.17839E+01, 0.38577E+00,
     &-0.21884E-01, 0.10871E-01,-0.23031E-02,-0.62005E-02,-0.56565E-02,
     &-0.30752E-02,-0.21609E-02, 0.12016E-02, 0.11710E-02
     & /
       real p87(0:13)
       data p87/
     & 0.10668E+02,-0.16057E+02, 0.68683E+01,-0.18505E+01, 0.40085E+00,
     &-0.24008E-01, 0.11004E-01,-0.24457E-02,-0.63029E-02,-0.56955E-02,
     &-0.30545E-02,-0.21676E-02, 0.12462E-02, 0.11851E-02
     & /
       real p88(0:12)
       data p88/
     & 0.10945E+02,-0.16496E+02, 0.70841E+01,-0.19186E+01, 0.41632E+00,
     &-0.26211E-01, 0.11144E-01,-0.25890E-02,-0.64045E-02,-0.57337E-02,
     &-0.30328E-02,-0.21747E-02, 0.12911E-02
     & /
       real p89(0:12)
       data p89/
     & 0.11227E+02,-0.16941E+02, 0.73038E+01,-0.19882E+01, 0.43221E+00,
     &-0.28494E-01, 0.11294E-01,-0.27331E-02,-0.65054E-02,-0.57711E-02,
     &-0.30103E-02,-0.21821E-02, 0.13362E-02
     & /
       real p90(0:12)
       data p90/
     & 0.11512E+02,-0.17392E+02, 0.75273E+01,-0.20594E+01, 0.44850E+00,
     &-0.30857E-01, 0.11451E-01,-0.28779E-02,-0.66055E-02,-0.58077E-02,
     &-0.29869E-02,-0.21898E-02, 0.13815E-02
     & /
       real p91(0:12)
       data p91/
     & 0.11801E+02,-0.17850E+02, 0.77547E+01,-0.21321E+01, 0.46520E+00,
     &-0.33303E-01, 0.11618E-01,-0.30234E-02,-0.67049E-02,-0.58435E-02,
     &-0.29627E-02,-0.21980E-02, 0.14271E-02
     & /
       real p92(0:12)
       data p92/
     & 0.12093E+02,-0.18314E+02, 0.79860E+01,-0.22064E+01, 0.48233E+00,
     &-0.35831E-01, 0.11794E-01,-0.31697E-02,-0.68036E-02,-0.58785E-02,
     &-0.29376E-02,-0.22065E-02, 0.14730E-02
     & /
       real p93(0:12)
       data p93/
     & 0.12390E+02,-0.18785E+02, 0.82211E+01,-0.22822E+01, 0.49988E+00,
     &-0.38447E-01, 0.11980E-01,-0.33157E-02,-0.69009E-02,-0.59125E-02,
     &-0.29118E-02,-0.22159E-02, 0.15189E-02
     & /
       real p94(0:12)
       data p94/
     & 0.12690E+02,-0.19262E+02, 0.84602E+01,-0.23597E+01, 0.51787E+00,
     &-0.41151E-01, 0.12176E-01,-0.34623E-02,-0.69973E-02,-0.59457E-02,
     &-0.28851E-02,-0.22258E-02, 0.15651E-02
     & /
       real p95(0:12)
       data p95/
     & 0.12995E+02,-0.19746E+02, 0.87033E+01,-0.24388E+01, 0.53630E+00,
     &-0.43944E-01, 0.12382E-01,-0.36098E-02,-0.70931E-02,-0.59781E-02,
     &-0.28576E-02,-0.22360E-02, 0.16115E-02
     & /
       real p96(0:12)
       data p96/
     & 0.13303E+02,-0.20237E+02, 0.89505E+01,-0.25195E+01, 0.55519E+00,
     &-0.46828E-01, 0.12599E-01,-0.37583E-02,-0.71882E-02,-0.60098E-02,
     &-0.28292E-02,-0.22467E-02, 0.16582E-02
     & /
       real p97(0:12)
       data p97/
     & 0.13616E+02,-0.20735E+02, 0.92017E+01,-0.26019E+01, 0.57453E+00,
     &-0.49804E-01, 0.12826E-01,-0.39076E-02,-0.72825E-02,-0.60408E-02,
     &-0.27999E-02,-0.22578E-02, 0.17052E-02
     & /
       real p98(0:11)
       data p98/
     & 0.13932E+02,-0.21239E+02, 0.94570E+01,-0.26860E+01, 0.59433E+00,
     &-0.52873E-01, 0.13065E-01,-0.40580E-02,-0.73762E-02,-0.60712E-02,
     &-0.27699E-02,-0.22694E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  19,  19,  19,  19,  19,  19,  19
     &,  19,  19,  19,  19,  19,  19,  19,  19,  19,  19
     &,  19,  18,  18,  18,  18,  18,  18,  18,  18,  18
     &,  18,  18,  18,  18,  18,  18,  18,  13,  13,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  13,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  11
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.19) param(i,15) = p15(i)
             if (i.le.19) param(i,16) = p16(i)
             if (i.le.19) param(i,17) = p17(i)
             if (i.le.19) param(i,18) = p18(i)
             if (i.le.19) param(i,19) = p19(i)
             if (i.le.19) param(i,20) = p20(i)
             if (i.le.19) param(i,21) = p21(i)
             if (i.le.19) param(i,22) = p22(i)
             if (i.le.19) param(i,23) = p23(i)
             if (i.le.19) param(i,24) = p24(i)
             if (i.le.19) param(i,25) = p25(i)
             if (i.le.19) 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.19) param(i,29) = p29(i)
             if (i.le.19) param(i,30) = p30(i)
             if (i.le.19) param(i,31) = p31(i)
             if (i.le.19) param(i,32) = p32(i)
             if (i.le.18) param(i,33) = p33(i)
             if (i.le.18) param(i,34) = p34(i)
             if (i.le.18) param(i,35) = p35(i)
             if (i.le.18) param(i,36) = p36(i)
             if (i.le.18) param(i,37) = p37(i)
             if (i.le.18) param(i,38) = p38(i)
             if (i.le.18) param(i,39) = p39(i)
             if (i.le.18) param(i,40) = p40(i)
             if (i.le.18) param(i,41) = p41(i)
             if (i.le.18) param(i,42) = p42(i)
             if (i.le.18) param(i,43) = p43(i)
             if (i.le.18) param(i,44) = p44(i)
             if (i.le.18) param(i,45) = p45(i)
             if (i.le.18) param(i,46) = p46(i)
             if (i.le.18) param(i,47) = p47(i)
             if (i.le.18) param(i,48) = p48(i)
             if (i.le.13) param(i,49) = p49(i)
             if (i.le.13) param(i,50) = p50(i)
             if (i.le.13) param(i,51) = p51(i)
             if (i.le.13) param(i,52) = p52(i)
             if (i.le.13) param(i,53) = p53(i)
             if (i.le.13) param(i,54) = p54(i)
             if (i.le.13) param(i,55) = p55(i)
             if (i.le.13) param(i,56) = p56(i)
             if (i.le.13) param(i,57) = p57(i)
             if (i.le.13) param(i,58) = p58(i)
             if (i.le.13) param(i,59) = p59(i)
             if (i.le.13) param(i,60) = p60(i)
             if (i.le.13) param(i,61) = p61(i)
             if (i.le.13) param(i,62) = p62(i)
             if (i.le.13) param(i,63) = p63(i)
             if (i.le.13) param(i,64) = p64(i)
             if (i.le.13) param(i,65) = p65(i)
             if (i.le.13) param(i,66) = p66(i)
             if (i.le.13) param(i,67) = p67(i)
             if (i.le.13) param(i,68) = p68(i)
             if (i.le.13) param(i,69) = p69(i)
             if (i.le.13) param(i,70) = p70(i)
             if (i.le.13) param(i,71) = p71(i)
             if (i.le.13) param(i,72) = p72(i)
             if (i.le.13) param(i,73) = p73(i)
             if (i.le.13) param(i,74) = p74(i)
             if (i.le.13) param(i,75) = p75(i)
             if (i.le.13) param(i,76) = p76(i)
             if (i.le.13) param(i,77) = p77(i)
             if (i.le.13) param(i,78) = p78(i)
             if (i.le.13) param(i,79) = p79(i)
             if (i.le.13) param(i,80) = p80(i)
             if (i.le.13) param(i,81) = p81(i)
             if (i.le.13) param(i,82) = p82(i)
             if (i.le.13) param(i,83) = p83(i)
             if (i.le.13) param(i,84) = p84(i)
             if (i.le.13) param(i,85) = p85(i)
             if (i.le.13) param(i,86) = p86(i)
             if (i.le.13) param(i,87) = p87(i)
             if (i.le.12) param(i,88) = p88(i)
             if (i.le.12) param(i,89) = p89(i)
             if (i.le.12) param(i,90) = p90(i)
             if (i.le.12) param(i,91) = p91(i)
             if (i.le.12) param(i,92) = p92(i)
             if (i.le.12) param(i,93) = p93(i)
             if (i.le.12) param(i,94) = p94(i)
             if (i.le.12) param(i,95) = p95(i)
             if (i.le.12) param(i,96) = p96(i)
             if (i.le.12) param(i,97) = p97(i)
             if (i.le.11) param(i,98) = p98(i)
          enddo
       endif
            
       dbarhiq2ds=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
       dbarhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) dbarhiq2ds=0.0
       if (q2.lt.q2min) dbarhiq2ds=0.0
       if ( x.gt. xmax) dbarhiq2ds=0.0
       if ( x.lt. xmin) dbarhiq2ds=0.0
       return
       end
       real function  sbarhiq2ds(xin,q2in)
***********************************************************
c  parametrization of sbarhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:14)
       data p15/
     & 0.14436E+00,-0.17621E+00, 0.29643E-01,-0.28069E-02, 0.40183E-02,
     & 0.81788E-03,-0.33756E-05, 0.38851E-04, 0.17461E-03, 0.15853E-03,
     & 0.36537E-04,-0.57395E-04,-0.80856E-04,-0.70453E-04,-0.32431E-04
     & /
       real p16(0:13)
       data p16/
     & 0.16750E+00,-0.20629E+00, 0.36477E-01,-0.31690E-02, 0.43704E-02,
     & 0.93994E-03, 0.42141E-04, 0.40370E-04, 0.15702E-03, 0.13638E-03,
     & 0.28507E-04,-0.72742E-04,-0.79563E-04,-0.61225E-04
     & /
       real p17(0:13)
       data p17/
     & 0.19391E+00,-0.24096E+00, 0.44769E-01,-0.36987E-02, 0.47572E-02,
     & 0.10665E-02, 0.87733E-04, 0.37400E-04, 0.13673E-03, 0.11702E-03,
     & 0.14415E-04,-0.83149E-04,-0.81787E-04,-0.60399E-04
     & /
       real p18(0:13)
       data p18/
     & 0.22268E+00,-0.27909E+00, 0.54330E-01,-0.44086E-02, 0.51677E-02,
     & 0.11972E-02, 0.13085E-03, 0.29048E-04, 0.11229E-03, 0.96072E-04,
     & 0.48722E-06,-0.93003E-04,-0.83129E-04,-0.59066E-04
     & /
       real p19(0:13)
       data p19/
     & 0.25389E+00,-0.32082E+00, 0.65246E-01,-0.53273E-02, 0.56060E-02,
     & 0.13305E-02, 0.17063E-03, 0.15262E-04, 0.84077E-04, 0.73930E-04,
     &-0.13062E-04,-0.10227E-03,-0.83625E-04,-0.57291E-04
     & /
       real p20(0: 9)
       data p20/
     & 0.28759E+00,-0.36627E+00, 0.77597E-01,-0.64831E-02, 0.60761E-02,
     & 0.14652E-02, 0.20636E-03,-0.39276E-05, 0.52454E-04, 0.50923E-04
     & /
       real p21(0: 9)
       data p21/
     & 0.32385E+00,-0.41556E+00, 0.91463E-01,-0.79045E-02, 0.65825E-02,
     & 0.15999E-02, 0.23746E-03,-0.28424E-04, 0.17771E-04, 0.27342E-04
     & /
       real p22(0: 9)
       data p22/
     & 0.36274E+00,-0.46879E+00, 0.10692E+00,-0.96194E-02, 0.71294E-02,
     & 0.17332E-02, 0.26350E-03,-0.58085E-04,-0.19637E-04, 0.34408E-05
     & /
       real p23(0:13)
       data p23/
     & 0.40430E+00,-0.52608E+00, 0.12404E+00,-0.11656E-01, 0.77213E-02,
     & 0.18637E-02, 0.28413E-03,-0.92728E-04,-0.59453E-04,-0.20560E-04,
     &-0.60493E-04,-0.13348E-03,-0.77980E-04,-0.46869E-04
     & /
       real p24(0:13)
       data p24/
     & 0.44860E+00,-0.58753E+00, 0.14291E+00,-0.14041E-01, 0.83629E-02,
     & 0.19902E-02, 0.29910E-03,-0.13215E-03,-0.10138E-03,-0.44470E-04,
     &-0.70163E-04,-0.13991E-03,-0.74872E-04,-0.43664E-04
     & /
       real p25(0:13)
       data p25/
     & 0.49569E+00,-0.65323E+00, 0.16358E+00,-0.16803E-01, 0.90587E-02,
     & 0.21114E-02, 0.30826E-03,-0.17613E-03,-0.14514E-03,-0.68124E-04,
     &-0.78832E-04,-0.14585E-03,-0.71166E-04,-0.40295E-04
     & /
       real p26(0:13)
       data p26/
     & 0.54561E+00,-0.72329E+00, 0.18612E+00,-0.19969E-01, 0.98135E-02,
     & 0.22260E-02, 0.31151E-03,-0.22442E-03,-0.19048E-03,-0.91382E-04,
     &-0.86466E-04,-0.15134E-03,-0.66899E-04,-0.36794E-04
     & /
       real p27(0:13)
       data p27/
     & 0.59842E+00,-0.79778E+00, 0.21060E+00,-0.23566E-01, 0.10632E-01,
     & 0.23329E-02, 0.30881E-03,-0.27679E-03,-0.23716E-03,-0.11412E-03,
     &-0.93041E-04,-0.15642E-03,-0.62105E-04,-0.33189E-04
     & /
       real p28(0:13)
       data p28/
     & 0.65415E+00,-0.87681E+00, 0.23709E+00,-0.27620E-01, 0.11520E-01,
     & 0.24307E-02, 0.30017E-03,-0.33300E-03,-0.28495E-03,-0.13624E-03,
     &-0.98543E-04,-0.16115E-03,-0.56818E-04,-0.29505E-04
     & /
       real p29(0:13)
       data p29/
     & 0.71286E+00,-0.96044E+00, 0.26565E+00,-0.32157E-01, 0.12481E-01,
     & 0.25183E-02, 0.28566E-03,-0.39280E-03,-0.33366E-03,-0.15766E-03,
     &-0.10297E-03,-0.16554E-03,-0.51068E-04,-0.25765E-04
     & /
       real p30(0:13)
       data p30/
     & 0.77458E+00,-0.10488E+01, 0.29632E+00,-0.37205E-01, 0.13522E-01,
     & 0.25947E-02, 0.26538E-03,-0.45596E-03,-0.38310E-03,-0.17830E-03,
     &-0.10631E-03,-0.16966E-03,-0.44883E-04,-0.21988E-04
     & /
       real p31(0:13)
       data p31/
     & 0.80153E+00,-0.10875E+01, 0.31001E+00,-0.39514E-01, 0.13983E-01,
     & 0.26188E-02, 0.25343E-03,-0.48357E-03,-0.40357E-03,-0.18613E-03,
     &-0.10696E-03,-0.17120E-03,-0.42120E-04,-0.20459E-04
     & /
       real p32(0:13)
       data p32/
     & 0.84127E+00,-0.11446E+01, 0.33022E+00,-0.42958E-01, 0.14674E-01,
     & 0.26544E-02, 0.23643E-03,-0.52381E-03,-0.43349E-03,-0.19772E-03,
     &-0.10812E-03,-0.17361E-03,-0.38132E-04,-0.18214E-04
     & /
       real p33(0:11)
       data p33/
     & 0.90920E+00,-0.12426E+01, 0.36532E+00,-0.49083E-01, 0.15885E-01,
     & 0.27023E-02, 0.20420E-03,-0.59239E-03,-0.48316E-03,-0.21617E-03,
     &-0.10920E-03,-0.17743E-03
     & /
       real p34(0:11)
       data p34/
     & 0.98026E+00,-0.13456E+01, 0.40270E+00,-0.55790E-01, 0.17189E-01,
     & 0.27357E-02, 0.16683E-03,-0.66361E-03,-0.53315E-03,-0.23375E-03,
     &-0.10926E-03,-0.18111E-03
     & /
       real p35(0:11)
       data p35/
     & 0.10545E+01,-0.14534E+01, 0.44243E+00,-0.63106E-01, 0.18593E-01,
     & 0.27537E-02, 0.12450E-03,-0.73729E-03,-0.58335E-03,-0.25043E-03,
     &-0.10831E-03,-0.18467E-03
     & /
       real p36(0:11)
       data p36/
     & 0.11319E+01,-0.15663E+01, 0.48455E+00,-0.71056E-01, 0.20101E-01,
     & 0.27552E-02, 0.77420E-04,-0.81324E-03,-0.63363E-03,-0.26618E-03,
     &-0.10636E-03,-0.18816E-03
     & /
       real p37(0:11)
       data p37/
     & 0.12125E+01,-0.16843E+01, 0.52913E+00,-0.79664E-01, 0.21720E-01,
     & 0.27389E-02, 0.25789E-04,-0.89126E-03,-0.68389E-03,-0.28097E-03,
     &-0.10343E-03,-0.19160E-03
     & /
       real p38(0:11)
       data p38/
     & 0.12964E+01,-0.18075E+01, 0.57620E+00,-0.88957E-01, 0.23456E-01,
     & 0.27040E-02,-0.30162E-04,-0.97119E-03,-0.73404E-03,-0.29480E-03,
     &-0.99541E-04,-0.19504E-03
     & /
       real p39(0:11)
       data p39/
     & 0.13836E+01,-0.19359E+01, 0.62582E+00,-0.98956E-01, 0.25313E-01,
     & 0.26492E-02,-0.90194E-04,-0.10528E-02,-0.78397E-03,-0.30764E-03,
     &-0.94702E-04,-0.19850E-03
     & /
       real p40(0:11)
       data p40/
     & 0.14740E+01,-0.20696E+01, 0.67804E+00,-0.10969E+00, 0.27299E-01,
     & 0.25735E-02,-0.15406E-03,-0.11361E-02,-0.83362E-03,-0.31949E-03,
     &-0.88935E-04,-0.20202E-03
     & /
       real p41(0:11)
       data p41/
     & 0.15679E+01,-0.22087E+01, 0.73290E+00,-0.12118E+00, 0.29419E-01,
     & 0.24758E-02,-0.22150E-03,-0.12207E-02,-0.88290E-03,-0.33035E-03,
     &-0.82259E-04,-0.20562E-03
     & /
       real p42(0:11)
       data p42/
     & 0.16651E+01,-0.23531E+01, 0.79045E+00,-0.13344E+00, 0.31678E-01,
     & 0.23551E-02,-0.29226E-03,-0.13067E-02,-0.93176E-03,-0.34022E-03,
     &-0.74695E-04,-0.20934E-03
     & /
       real p43(0:11)
       data p43/
     & 0.17657E+01,-0.25030E+01, 0.85074E+00,-0.14651E+00, 0.34084E-01,
     & 0.22102E-02,-0.36605E-03,-0.13937E-02,-0.98013E-03,-0.34911E-03,
     &-0.66263E-04,-0.21320E-03
     & /
       real p44(0:11)
       data p44/
     & 0.18697E+01,-0.26584E+01, 0.91381E+00,-0.16040E+00, 0.36642E-01,
     & 0.20401E-02,-0.44262E-03,-0.14818E-02,-0.10280E-02,-0.35701E-03,
     &-0.56983E-04,-0.21723E-03
     & /
       real p45(0:11)
       data p45/
     & 0.19772E+01,-0.28193E+01, 0.97969E+00,-0.17515E+00, 0.39358E-01,
     & 0.18437E-02,-0.52167E-03,-0.15707E-02,-0.10752E-02,-0.36394E-03,
     &-0.46876E-04,-0.22145E-03
     & /
       real p46(0:11)
       data p46/
     & 0.20882E+01,-0.29858E+01, 0.10484E+01,-0.19076E+00, 0.42238E-01,
     & 0.16198E-02,-0.60293E-03,-0.16605E-02,-0.11218E-02,-0.36990E-03,
     &-0.35962E-04,-0.22589E-03
     & /
       real p47(0:11)
       data p47/
     & 0.22026E+01,-0.31580E+01, 0.11201E+01,-0.20726E+00, 0.45288E-01,
     & 0.13675E-02,-0.68611E-03,-0.17509E-02,-0.11678E-02,-0.37492E-03,
     &-0.24261E-04,-0.23058E-03
     & /
       real p48(0:11)
       data p48/
     & 0.23206E+01,-0.33359E+01, 0.11947E+01,-0.22467E+00, 0.48515E-01,
     & 0.10854E-02,-0.77093E-03,-0.18418E-02,-0.12130E-02,-0.37901E-03,
     &-0.11794E-04,-0.23552E-03
     & /
       real p49(0:11)
       data p49/
     & 0.24421E+01,-0.35195E+01, 0.12722E+01,-0.24302E+00, 0.51925E-01,
     & 0.77266E-03,-0.85709E-03,-0.19333E-02,-0.12576E-02,-0.38217E-03,
     & 0.14218E-05,-0.24074E-03
     & /
       real p50(0:11)
       data p50/
     & 0.25671E+01,-0.37088E+01, 0.13528E+01,-0.26233E+00, 0.55523E-01,
     & 0.42802E-03,-0.94430E-03,-0.20251E-02,-0.13013E-02,-0.38444E-03,
     & 0.15366E-04,-0.24627E-03
     & /
       real p51(0:11)
       data p51/
     & 0.26957E+01,-0.39040E+01, 0.14364E+01,-0.28260E+00, 0.59316E-01,
     & 0.50397E-04,-0.10323E-02,-0.21172E-02,-0.13443E-02,-0.38581E-03,
     & 0.30020E-04,-0.25212E-03
     & /
       real p52(0:11)
       data p52/
     & 0.28279E+01,-0.41050E+01, 0.15231E+01,-0.30388E+00, 0.63310E-01,
     &-0.36135E-03,-0.11207E-02,-0.22095E-02,-0.13865E-02,-0.38632E-03,
     & 0.45366E-04,-0.25831E-03
     & /
       real p53(0:11)
       data p53/
     & 0.29638E+01,-0.43120E+01, 0.16129E+01,-0.32617E+00, 0.67511E-01,
     &-0.80835E-03,-0.12094E-02,-0.23021E-02,-0.14279E-02,-0.38599E-03,
     & 0.61387E-04,-0.26485E-03
     & /
       real p54(0:11)
       data p54/
     & 0.31032E+01,-0.45248E+01, 0.17059E+01,-0.34949E+00, 0.71926E-01,
     &-0.12918E-02,-0.12979E-02,-0.23947E-02,-0.14685E-02,-0.38482E-03,
     & 0.78066E-04,-0.27176E-03
     & /
       real p55(0:11)
       data p55/
     & 0.32463E+01,-0.47436E+01, 0.18020E+01,-0.37386E+00, 0.76559E-01,
     &-0.18127E-02,-0.13860E-02,-0.24873E-02,-0.15083E-02,-0.38284E-03,
     & 0.95386E-04,-0.27906E-03
     & /
       real p56(0:11)
       data p56/
     & 0.33930E+01,-0.49683E+01, 0.19014E+01,-0.39931E+00, 0.81418E-01,
     &-0.23723E-02,-0.14735E-02,-0.25799E-02,-0.15472E-02,-0.38008E-03,
     & 0.11333E-03,-0.28675E-03
     & /
       real p57(0:11)
       data p57/
     & 0.35434E+01,-0.51991E+01, 0.20040E+01,-0.42585E+00, 0.86509E-01,
     &-0.29718E-02,-0.15599E-02,-0.26725E-02,-0.15853E-02,-0.37655E-03,
     & 0.13189E-03,-0.29486E-03
     & /
       real p58(0:11)
       data p58/
     & 0.36975E+01,-0.54359E+01, 0.21099E+01,-0.45350E+00, 0.91837E-01,
     &-0.36124E-02,-0.16451E-02,-0.27649E-02,-0.16225E-02,-0.37226E-03,
     & 0.15104E-03,-0.30340E-03
     & /
       real p59(0:11)
       data p59/
     & 0.38553E+01,-0.56788E+01, 0.22190E+01,-0.48227E+00, 0.97408E-01,
     &-0.42951E-02,-0.17287E-02,-0.28572E-02,-0.16589E-02,-0.36725E-03,
     & 0.17077E-03,-0.31237E-03
     & /
       real p60(0:11)
       data p60/
     & 0.40168E+01,-0.59277E+01, 0.23315E+01,-0.51219E+00, 0.10323E+00,
     &-0.50211E-02,-0.18105E-02,-0.29493E-02,-0.16944E-02,-0.36153E-03,
     & 0.19107E-03,-0.32179E-03
     & /
       real p61(0:11)
       data p61/
     & 0.41820E+01,-0.61828E+01, 0.24474E+01,-0.54327E+00, 0.10930E+00,
     &-0.57918E-02,-0.18901E-02,-0.30412E-02,-0.17290E-02,-0.35512E-03,
     & 0.21192E-03,-0.33167E-03
     & /
       real p62(0:11)
       data p62/
     & 0.43510E+01,-0.64441E+01, 0.25666E+01,-0.57553E+00, 0.11564E+00,
     &-0.66081E-02,-0.19673E-02,-0.31329E-02,-0.17628E-02,-0.34805E-03,
     & 0.23331E-03,-0.34202E-03
     & /
       real p63(0:11)
       data p63/
     & 0.45236E+01,-0.67115E+01, 0.26892E+01,-0.60898E+00, 0.12225E+00,
     &-0.74714E-02,-0.20418E-02,-0.32243E-02,-0.17958E-02,-0.34033E-03,
     & 0.25524E-03,-0.35284E-03
     & /
       real p64(0:11)
       data p64/
     & 0.47001E+01,-0.69851E+01, 0.28153E+01,-0.64365E+00, 0.12912E+00,
     &-0.83827E-02,-0.21133E-02,-0.33154E-02,-0.18279E-02,-0.33197E-03,
     & 0.27768E-03,-0.36416E-03
     & /
       real p65(0:11)
       data p65/
     & 0.48802E+01,-0.72649E+01, 0.29448E+01,-0.67954E+00, 0.13628E+00,
     &-0.93434E-02,-0.21815E-02,-0.34062E-02,-0.18592E-02,-0.32301E-03,
     & 0.30062E-03,-0.37597E-03
     & /
       real p66(0:11)
       data p66/
     & 0.50642E+01,-0.75510E+01, 0.30777E+01,-0.71667E+00, 0.14372E+00,
     &-0.10355E-01,-0.22462E-02,-0.34966E-02,-0.18896E-02,-0.31347E-03,
     & 0.32407E-03,-0.38828E-03
     & /
       real p67(0:11)
       data p67/
     & 0.52519E+01,-0.78433E+01, 0.32142E+01,-0.75506E+00, 0.15145E+00,
     &-0.11417E-01,-0.23070E-02,-0.35868E-02,-0.19192E-02,-0.30335E-03,
     & 0.34800E-03,-0.40110E-03
     & /
       real p68(0:11)
       data p68/
     & 0.54434E+01,-0.81419E+01, 0.33542E+01,-0.79473E+00, 0.15948E+00,
     &-0.12533E-01,-0.23636E-02,-0.36766E-02,-0.19479E-02,-0.29267E-03,
     & 0.37240E-03,-0.41444E-03
     & /
       real p69(0:11)
       data p69/
     & 0.56387E+01,-0.84468E+01, 0.34977E+01,-0.83568E+00, 0.16781E+00,
     &-0.13703E-01,-0.24159E-02,-0.37660E-02,-0.19759E-02,-0.28147E-03,
     & 0.39728E-03,-0.42831E-03
     & /
       real p70(0:11)
       data p70/
     & 0.58378E+01,-0.87580E+01, 0.36448E+01,-0.87793E+00, 0.17645E+00,
     &-0.14928E-01,-0.24635E-02,-0.38551E-02,-0.20030E-02,-0.26975E-03,
     & 0.42261E-03,-0.44271E-03
     & /
       real p71(0:11)
       data p71/
     & 0.60407E+01,-0.90755E+01, 0.37954E+01,-0.92150E+00, 0.18539E+00,
     &-0.16210E-01,-0.25061E-02,-0.39439E-02,-0.20293E-02,-0.25753E-03,
     & 0.44839E-03,-0.45764E-03
     & /
       real p72(0:11)
       data p72/
     & 0.62474E+01,-0.93994E+01, 0.39497E+01,-0.96640E+00, 0.19466E+00,
     &-0.17550E-01,-0.25435E-02,-0.40323E-02,-0.20549E-02,-0.24484E-03,
     & 0.47461E-03,-0.47312E-03
     & /
       real p73(0:11)
       data p73/
     & 0.64579E+01,-0.97296E+01, 0.41076E+01,-0.10126E+01, 0.20425E+00,
     &-0.18948E-01,-0.25753E-02,-0.41203E-02,-0.20796E-02,-0.23168E-03,
     & 0.50127E-03,-0.48914E-03
     & /
       real p74(0:11)
       data p74/
     & 0.66722E+01,-0.10066E+02, 0.42691E+01,-0.10602E+01, 0.21417E+00,
     &-0.20407E-01,-0.26014E-02,-0.42080E-02,-0.21036E-02,-0.21807E-03,
     & 0.52835E-03,-0.50572E-03
     & /
       real p75(0:11)
       data p75/
     & 0.68903E+01,-0.10409E+02, 0.44342E+01,-0.11092E+01, 0.22443E+00,
     &-0.21927E-01,-0.26214E-02,-0.42954E-02,-0.21268E-02,-0.20404E-03,
     & 0.55585E-03,-0.52285E-03
     & /
       real p76(0:11)
       data p76/
     & 0.71123E+01,-0.10758E+02, 0.46030E+01,-0.11596E+01, 0.23502E+00,
     &-0.23510E-01,-0.26350E-02,-0.43825E-02,-0.21492E-02,-0.18959E-03,
     & 0.58377E-03,-0.54054E-03
     & /
       real p77(0:11)
       data p77/
     & 0.73381E+01,-0.11114E+02, 0.47755E+01,-0.12113E+01, 0.24596E+00,
     &-0.25157E-01,-0.26420E-02,-0.44692E-02,-0.21709E-02,-0.17475E-03,
     & 0.61209E-03,-0.55879E-03
     & /
       real p78(0:11)
       data p78/
     & 0.75678E+01,-0.11476E+02, 0.49517E+01,-0.12645E+01, 0.25725E+00,
     &-0.26868E-01,-0.26422E-02,-0.45557E-02,-0.21918E-02,-0.15952E-03,
     & 0.64081E-03,-0.57762E-03
     & /
       real p79(0:11)
       data p79/
     & 0.78012E+01,-0.11845E+02, 0.51316E+01,-0.13191E+01, 0.26890E+00,
     &-0.28646E-01,-0.26351E-02,-0.46418E-02,-0.22120E-02,-0.14393E-03,
     & 0.66993E-03,-0.59701E-03
     & /
       real p80(0:11)
       data p80/
     & 0.80385E+01,-0.12220E+02, 0.53152E+01,-0.13751E+01, 0.28090E+00,
     &-0.30492E-01,-0.26206E-02,-0.47277E-02,-0.22315E-02,-0.12798E-03,
     & 0.69943E-03,-0.61699E-03
     & /
       real p81(0:11)
       data p81/
     & 0.82797E+01,-0.12602E+02, 0.55026E+01,-0.14325E+01, 0.29328E+00,
     &-0.32406E-01,-0.25985E-02,-0.48134E-02,-0.22503E-02,-0.11170E-03,
     & 0.72932E-03,-0.63753E-03
     & /
       real p82(0:11)
       data p82/
     & 0.85247E+01,-0.12989E+02, 0.56937E+01,-0.14914E+01, 0.30602E+00,
     &-0.34390E-01,-0.25683E-02,-0.48988E-02,-0.22683E-02,-0.95091E-04,
     & 0.75960E-03,-0.65866E-03
     & /
       real p83(0:11)
       data p83/
     & 0.87736E+01,-0.13384E+02, 0.58886E+01,-0.15518E+01, 0.31914E+00,
     &-0.36445E-01,-0.25299E-02,-0.49840E-02,-0.22857E-02,-0.78175E-04,
     & 0.79024E-03,-0.68038E-03
     & /
       real p84(0:11)
       data p84/
     & 0.90263E+01,-0.13785E+02, 0.60872E+01,-0.16137E+01, 0.33264E+00,
     &-0.38573E-01,-0.24830E-02,-0.50690E-02,-0.23024E-02,-0.60963E-04,
     & 0.82126E-03,-0.70267E-03
     & /
       real p85(0:11)
       data p85/
     & 0.92828E+01,-0.14192E+02, 0.62897E+01,-0.16770E+01, 0.34652E+00,
     &-0.40774E-01,-0.24273E-02,-0.51538E-02,-0.23183E-02,-0.43467E-04,
     & 0.85264E-03,-0.72556E-03
     & /
       real p86(0:11)
       data p86/
     & 0.95432E+01,-0.14606E+02, 0.64959E+01,-0.17419E+01, 0.36080E+00,
     &-0.43050E-01,-0.23626E-02,-0.52385E-02,-0.23337E-02,-0.25701E-04,
     & 0.88438E-03,-0.74904E-03
     & /
       real p87(0:11)
       data p87/
     & 0.98074E+01,-0.15026E+02, 0.67060E+01,-0.18082E+01, 0.37547E+00,
     &-0.45402E-01,-0.22885E-02,-0.53231E-02,-0.23483E-02,-0.76767E-05,
     & 0.91649E-03,-0.77311E-03
     & /
       real p88(0:11)
       data p88/
     & 0.10076E+02,-0.15453E+02, 0.69199E+01,-0.18761E+01, 0.39054E+00,
     &-0.47831E-01,-0.22049E-02,-0.54076E-02,-0.23624E-02, 0.10593E-04,
     & 0.94895E-03,-0.79777E-03
     & /
       real p89(0:11)
       data p89/
     & 0.10347E+02,-0.15886E+02, 0.71376E+01,-0.19455E+01, 0.40601E+00,
     &-0.50338E-01,-0.21115E-02,-0.54920E-02,-0.23757E-02, 0.29097E-04,
     & 0.98176E-03,-0.82302E-03
     & /
       real p90(0:11)
       data p90/
     & 0.10623E+02,-0.16326E+02, 0.73592E+01,-0.20164E+01, 0.42189E+00,
     &-0.52925E-01,-0.20079E-02,-0.55764E-02,-0.23885E-02, 0.47823E-04,
     & 0.10149E-02,-0.84888E-03
     & /
       real p91(0:11)
       data p91/
     & 0.10903E+02,-0.16772E+02, 0.75847E+01,-0.20889E+01, 0.43819E+00,
     &-0.55593E-01,-0.18940E-02,-0.56608E-02,-0.24006E-02, 0.66760E-04,
     & 0.10484E-02,-0.87533E-03
     & /
       real p92(0:11)
       data p92/
     & 0.11186E+02,-0.17225E+02, 0.78140E+01,-0.21629E+01, 0.45490E+00,
     &-0.58342E-01,-0.17695E-02,-0.57452E-02,-0.24121E-02, 0.85897E-04,
     & 0.10823E-02,-0.90238E-03
     & /
       real p93(0:11)
       data p93/
     & 0.11474E+02,-0.17684E+02, 0.80471E+01,-0.22386E+01, 0.47204E+00,
     &-0.61177E-01,-0.16329E-02,-0.58289E-02,-0.24229E-02, 0.10524E-03,
     & 0.11164E-02,-0.93025E-03
     & /
       real p94(0:11)
       data p94/
     & 0.11765E+02,-0.18150E+02, 0.82843E+01,-0.23158E+01, 0.48962E+00,
     &-0.64099E-01,-0.14847E-02,-0.59126E-02,-0.24330E-02, 0.12478E-03,
     & 0.11509E-02,-0.95877E-03
     & /
       real p95(0:11)
       data p95/
     & 0.12060E+02,-0.18623E+02, 0.85254E+01,-0.23947E+01, 0.50765E+00,
     &-0.67109E-01,-0.13249E-02,-0.59964E-02,-0.24426E-02, 0.14450E-03,
     & 0.11857E-02,-0.98792E-03
     & /
       real p96(0:10)
       data p96/
     & 0.12359E+02,-0.19102E+02, 0.87707E+01,-0.24752E+01, 0.52612E+00,
     &-0.70208E-01,-0.11532E-02,-0.60804E-02,-0.24516E-02, 0.16439E-03,
     & 0.12209E-02
     & /
       real p97(0:10)
       data p97/
     & 0.12663E+02,-0.19588E+02, 0.90200E+01,-0.25574E+01, 0.54505E+00,
     &-0.73398E-01,-0.96917E-03,-0.61647E-02,-0.24601E-02, 0.18444E-03,
     & 0.12564E-02
     & /
       real p98(0:10)
       data p98/
     & 0.12970E+02,-0.20081E+02, 0.92733E+01,-0.26412E+01, 0.56444E+00,
     &-0.76679E-01,-0.77266E-03,-0.62491E-02,-0.24679E-02, 0.20464E-03,
     & 0.12923E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  14,  13,  13,  13,  13,   9,   9
     &,   9,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  10,  10,  10
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.14) param(i,15) = p15(i)
             if (i.le.13) param(i,16) = p16(i)
             if (i.le.13) param(i,17) = p17(i)
             if (i.le.13) param(i,18) = p18(i)
             if (i.le.13) param(i,19) = p19(i)
             if (i.le. 9) param(i,20) = p20(i)
             if (i.le. 9) param(i,21) = p21(i)
             if (i.le. 9) param(i,22) = p22(i)
             if (i.le.13) param(i,23) = p23(i)
             if (i.le.13) param(i,24) = p24(i)
             if (i.le.13) param(i,25) = p25(i)
             if (i.le.13) param(i,26) = p26(i)
             if (i.le.13) param(i,27) = p27(i)
             if (i.le.13) param(i,28) = p28(i)
             if (i.le.13) param(i,29) = p29(i)
             if (i.le.13) param(i,30) = p30(i)
             if (i.le.13) param(i,31) = p31(i)
             if (i.le.13) param(i,32) = p32(i)
             if (i.le.11) param(i,33) = p33(i)
             if (i.le.11) param(i,34) = p34(i)
             if (i.le.11) param(i,35) = p35(i)
             if (i.le.11) param(i,36) = p36(i)
             if (i.le.11) param(i,37) = p37(i)
             if (i.le.11) param(i,38) = p38(i)
             if (i.le.11) param(i,39) = p39(i)
             if (i.le.11) param(i,40) = p40(i)
             if (i.le.11) param(i,41) = p41(i)
             if (i.le.11) param(i,42) = p42(i)
             if (i.le.11) param(i,43) = p43(i)
             if (i.le.11) param(i,44) = p44(i)
             if (i.le.11) param(i,45) = p45(i)
             if (i.le.11) param(i,46) = p46(i)
             if (i.le.11) param(i,47) = p47(i)
             if (i.le.11) param(i,48) = p48(i)
             if (i.le.11) param(i,49) = p49(i)
             if (i.le.11) param(i,50) = p50(i)
             if (i.le.11) param(i,51) = p51(i)
             if (i.le.11) param(i,52) = p52(i)
             if (i.le.11) param(i,53) = p53(i)
             if (i.le.11) param(i,54) = p54(i)
             if (i.le.11) param(i,55) = p55(i)
             if (i.le.11) param(i,56) = p56(i)
             if (i.le.11) param(i,57) = p57(i)
             if (i.le.11) param(i,58) = p58(i)
             if (i.le.11) param(i,59) = p59(i)
             if (i.le.11) param(i,60) = p60(i)
             if (i.le.11) param(i,61) = p61(i)
             if (i.le.11) param(i,62) = p62(i)
             if (i.le.11) param(i,63) = p63(i)
             if (i.le.11) param(i,64) = p64(i)
             if (i.le.11) param(i,65) = p65(i)
             if (i.le.11) param(i,66) = p66(i)
             if (i.le.11) param(i,67) = p67(i)
             if (i.le.11) param(i,68) = p68(i)
             if (i.le.11) param(i,69) = p69(i)
             if (i.le.11) param(i,70) = p70(i)
             if (i.le.11) param(i,71) = p71(i)
             if (i.le.11) param(i,72) = p72(i)
             if (i.le.11) param(i,73) = p73(i)
             if (i.le.11) param(i,74) = p74(i)
             if (i.le.11) param(i,75) = p75(i)
             if (i.le.11) param(i,76) = p76(i)
             if (i.le.11) param(i,77) = p77(i)
             if (i.le.11) param(i,78) = p78(i)
             if (i.le.11) param(i,79) = p79(i)
             if (i.le.11) param(i,80) = p80(i)
             if (i.le.11) param(i,81) = p81(i)
             if (i.le.11) param(i,82) = p82(i)
             if (i.le.11) param(i,83) = p83(i)
             if (i.le.11) param(i,84) = p84(i)
             if (i.le.11) param(i,85) = p85(i)
             if (i.le.11) param(i,86) = p86(i)
             if (i.le.11) param(i,87) = p87(i)
             if (i.le.11) param(i,88) = p88(i)
             if (i.le.11) param(i,89) = p89(i)
             if (i.le.11) param(i,90) = p90(i)
             if (i.le.11) param(i,91) = p91(i)
             if (i.le.11) param(i,92) = p92(i)
             if (i.le.11) param(i,93) = p93(i)
             if (i.le.11) param(i,94) = p94(i)
             if (i.le.11) param(i,95) = p95(i)
             if (i.le.10) param(i,96) = p96(i)
             if (i.le.10) param(i,97) = p97(i)
             if (i.le.10) param(i,98) = p98(i)
          enddo
       endif
            
       sbarhiq2ds=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
       sbarhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) sbarhiq2ds=0.0
       if (q2.lt.q2min) sbarhiq2ds=0.0
       if ( x.gt. xmax) sbarhiq2ds=0.0
       if ( x.lt. xmin) sbarhiq2ds=0.0
       return
       end
       real function  cbarhiq2ds(xin,q2in)
***********************************************************
c  parametrization of cbarhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:13)
       data p15/
     & 0.21360E-01,-0.30818E-01, 0.67310E-02, 0.36737E-02, 0.12257E-02,
     &-0.12033E-02,-0.12141E-02,-0.38211E-03, 0.18697E-03, 0.30932E-03,
     & 0.19492E-03, 0.52366E-04,-0.29105E-04,-0.48545E-04
     & /
       real p16(0:13)
       data p16/
     & 0.34827E-01,-0.49271E-01, 0.11700E-01, 0.37265E-02, 0.12890E-02,
     &-0.12644E-02,-0.12484E-02,-0.38879E-03, 0.19094E-03, 0.31358E-03,
     & 0.19425E-03, 0.49359E-04,-0.30991E-04,-0.49432E-04
     & /
       real p17(0:13)
       data p17/
     & 0.51183E-01,-0.71845E-01, 0.18047E-01, 0.36185E-02, 0.13686E-02,
     &-0.13225E-02,-0.12821E-02,-0.39773E-03, 0.19235E-03, 0.31654E-03,
     & 0.19305E-03, 0.46371E-04,-0.32440E-04,-0.50063E-04
     & /
       real p18(0:13)
       data p18/
     & 0.69957E-01,-0.97934E-01, 0.25666E-01, 0.33162E-02, 0.14666E-02,
     &-0.13760E-02,-0.13148E-02,-0.40902E-03, 0.19115E-03, 0.31832E-03,
     & 0.19156E-03, 0.43615E-04,-0.33367E-04,-0.50450E-04
     & /
       real p19(0:13)
       data p19/
     & 0.91217E-01,-0.12766E+00, 0.34640E-01, 0.27918E-02, 0.15875E-02,
     &-0.14260E-02,-0.13475E-02,-0.42289E-03, 0.18757E-03, 0.31921E-03,
     & 0.18995E-03, 0.41141E-04,-0.33790E-04,-0.50645E-04
     & /
       real p20(0:13)
       data p20/
     & 0.11503E+00,-0.16115E+00, 0.45052E-01, 0.20175E-02, 0.17359E-02,
     &-0.14737E-02,-0.13810E-02,-0.43947E-03, 0.18183E-03, 0.31947E-03,
     & 0.18837E-03, 0.38982E-04,-0.33731E-04,-0.50699E-04
     & /
       real p21(0:14)
       data p21/
     & 0.14145E+00,-0.19852E+00, 0.56980E-01, 0.96547E-03, 0.19163E-02,
     &-0.15205E-02,-0.14159E-02,-0.45882E-03, 0.17414E-03, 0.31934E-03,
     & 0.18694E-03, 0.37154E-04,-0.33215E-04,-0.50656E-04,-0.26360E-04
     & /
       real p22(0:12)
       data p22/
     & 0.17053E+00,-0.23988E+00, 0.70504E-01,-0.39011E-03, 0.21303E-02,
     &-0.15629E-02,-0.14535E-02,-0.48120E-03, 0.16317E-03, 0.31401E-03,
     & 0.19382E-03, 0.28645E-04,-0.28817E-04
     & /
       real p23(0:12)
       data p23/
     & 0.20235E+00,-0.28533E+00, 0.85693E-01,-0.20798E-02, 0.23884E-02,
     &-0.16105E-02,-0.14929E-02,-0.50601E-03, 0.15215E-03, 0.31272E-03,
     & 0.19476E-03, 0.25874E-04,-0.27066E-04
     & /
       real p24(0:12)
       data p24/
     & 0.23694E+00,-0.33497E+00, 0.10262E+00,-0.41293E-02, 0.26928E-02,
     &-0.16608E-02,-0.15350E-02,-0.53345E-03, 0.13985E-03, 0.31146E-03,
     & 0.19626E-03, 0.23252E-04,-0.24896E-04
     & /
       real p25(0:12)
       data p25/
     & 0.27437E+00,-0.38891E+00, 0.12136E+00,-0.65656E-02, 0.30486E-02,
     &-0.17148E-02,-0.15801E-02,-0.56341E-03, 0.12646E-03, 0.31036E-03,
     & 0.19838E-03, 0.20757E-04,-0.22334E-04
     & /
       real p26(0:12)
       data p26/
     & 0.31467E+00,-0.44724E+00, 0.14197E+00,-0.94156E-02, 0.34606E-02,
     &-0.17739E-02,-0.16283E-02,-0.59576E-03, 0.11215E-03, 0.30954E-03,
     & 0.20115E-03, 0.18366E-04,-0.19401E-04
     & /
       real p27(0:12)
       data p27/
     & 0.35790E+00,-0.51004E+00, 0.16452E+00,-0.12706E-01, 0.39341E-02,
     &-0.18392E-02,-0.16797E-02,-0.63037E-03, 0.97104E-04, 0.30908E-03,
     & 0.20459E-03, 0.16049E-04,-0.16119E-04
     & /
       real p28(0:12)
       data p28/
     & 0.40409E+00,-0.57740E+00, 0.18908E+00,-0.16462E-01, 0.44741E-02,
     &-0.19119E-02,-0.17344E-02,-0.66708E-03, 0.81467E-04, 0.30906E-03,
     & 0.20873E-03, 0.13779E-04,-0.12511E-04
     & /
       real p29(0:12)
       data p29/
     & 0.45329E+00,-0.64940E+00, 0.21570E+00,-0.20711E-01, 0.50859E-02,
     &-0.19932E-02,-0.17924E-02,-0.70574E-03, 0.65385E-04, 0.30955E-03,
     & 0.21357E-03, 0.11525E-04,-0.85934E-05
     & /
       real p30(0:12)
       data p30/
     & 0.50554E+00,-0.72613E+00, 0.24445E+00,-0.25479E-01, 0.57748E-02,
     &-0.20840E-02,-0.18537E-02,-0.74620E-03, 0.48992E-04, 0.31061E-03,
     & 0.21911E-03, 0.92579E-05,-0.43852E-05
     & /
       real p31(0:12)
       data p31/
     & 0.52878E+00,-0.76032E+00, 0.25737E+00,-0.27679E-01, 0.60972E-02,
     &-0.21252E-02,-0.18812E-02,-0.76457E-03, 0.41577E-04, 0.31123E-03,
     & 0.22186E-03, 0.83880E-05,-0.24281E-05
     & /
       real p32(0:12)
       data p32/
     & 0.56279E+00,-0.81044E+00, 0.27642E+00,-0.30959E-01, 0.65754E-02,
     &-0.21892E-02,-0.19215E-02,-0.79050E-03, 0.31570E-04, 0.31246E-03,
     & 0.22583E-03, 0.69744E-05, 0.32918E-06
     & /
       real p33(0:12)
       data p33/
     & 0.62133E+00,-0.89691E+00, 0.30958E+00,-0.36818E-01, 0.74333E-02,
     &-0.23041E-02,-0.19903E-02,-0.83433E-03, 0.15005E-04, 0.31496E-03,
     & 0.23291E-03, 0.45731E-05, 0.50831E-05
     & /
       real p34(0:12)
       data p34/
     & 0.68302E+00,-0.98831E+00, 0.34504E+00,-0.43267E-01, 0.83832E-02,
     &-0.24317E-02,-0.20618E-02,-0.87944E-03,-0.15728E-05, 0.31808E-03,
     & 0.24066E-03, 0.20587E-05, 0.10091E-04
     & /
       real p35(0:12)
       data p35/
     & 0.74789E+00,-0.10847E+01, 0.38283E+00,-0.50333E-01, 0.94309E-02,
     &-0.25730E-02,-0.21360E-02,-0.92568E-03,-0.18075E-04, 0.32186E-03,
     & 0.24907E-03,-0.59570E-06, 0.15341E-04
     & /
       real p36(0:12)
       data p36/
     & 0.81600E+00,-0.11862E+01, 0.42303E+00,-0.58040E-01, 0.10582E-01,
     &-0.27291E-02,-0.22127E-02,-0.97294E-03,-0.34418E-04, 0.32631E-03,
     & 0.25813E-03,-0.34162E-05, 0.20824E-04
     & /
       real p37(0:12)
       data p37/
     & 0.88735E+00,-0.12928E+01, 0.46567E+00,-0.66413E-01, 0.11843E-01,
     &-0.29012E-02,-0.22918E-02,-0.10211E-02,-0.50528E-04, 0.33145E-03,
     & 0.26783E-03,-0.64283E-05, 0.26531E-04
     & /
       real p38(0:12)
       data p38/
     & 0.96200E+00,-0.14045E+01, 0.51082E+00,-0.75477E-01, 0.13218E-01,
     &-0.30902E-02,-0.23731E-02,-0.10700E-02,-0.66339E-04, 0.33728E-03,
     & 0.27817E-03,-0.96568E-05, 0.32454E-04
     & /
       real p39(0:12)
       data p39/
     & 0.10400E+01,-0.15216E+01, 0.55851E+00,-0.85255E-01, 0.14715E-01,
     &-0.32973E-02,-0.24564E-02,-0.11195E-02,-0.81790E-04, 0.34382E-03,
     & 0.28914E-03,-0.13125E-04, 0.38587E-04
     & /
       real p40(0:12)
       data p40/
     & 0.11213E+01,-0.16439E+01, 0.60880E+00,-0.95771E-01, 0.16339E-01,
     &-0.35236E-02,-0.25415E-02,-0.11696E-02,-0.96827E-04, 0.35106E-03,
     & 0.30071E-03,-0.16857E-04, 0.44924E-04
     & /
       real p41(0:12)
       data p41/
     & 0.12060E+01,-0.17716E+01, 0.66173E+00,-0.10705E+00, 0.18097E-01,
     &-0.37700E-02,-0.26282E-02,-0.12201E-02,-0.11140E-03, 0.35900E-03,
     & 0.31287E-03,-0.20873E-04, 0.51459E-04
     & /
       real p42(0:12)
       data p42/
     & 0.12940E+01,-0.19048E+01, 0.71736E+00,-0.11911E+00, 0.19993E-01,
     &-0.40378E-02,-0.27164E-02,-0.12710E-02,-0.12547E-03, 0.36764E-03,
     & 0.32562E-03,-0.25196E-04, 0.58190E-04
     & /
       real p43(0:12)
       data p43/
     & 0.13855E+01,-0.20434E+01, 0.77571E+00,-0.13199E+00, 0.22035E-01,
     &-0.43281E-02,-0.28057E-02,-0.13220E-02,-0.13900E-03, 0.37698E-03,
     & 0.33894E-03,-0.29844E-04, 0.65113E-04
     & /
       real p44(0:12)
       data p44/
     & 0.14805E+01,-0.21875E+01, 0.83685E+00,-0.14569E+00, 0.24228E-01,
     &-0.46418E-02,-0.28959E-02,-0.13732E-02,-0.15195E-03, 0.38699E-03,
     & 0.35281E-03,-0.34837E-04, 0.72224E-04
     & /
       real p45(0:12)
       data p45/
     & 0.15789E+01,-0.23373E+01, 0.90080E+00,-0.16025E+00, 0.26579E-01,
     &-0.49801E-02,-0.29868E-02,-0.14245E-02,-0.16429E-03, 0.39769E-03,
     & 0.36722E-03,-0.40194E-04, 0.79523E-04
     & /
       real p46(0:12)
       data p46/
     & 0.16809E+01,-0.24926E+01, 0.96762E+00,-0.17568E+00, 0.29093E-01,
     &-0.53441E-02,-0.30782E-02,-0.14758E-02,-0.17601E-03, 0.40904E-03,
     & 0.38215E-03,-0.45930E-04, 0.87008E-04
     & /
       real p47(0:12)
       data p47/
     & 0.17863E+01,-0.26536E+01, 0.10373E+01,-0.19200E+00, 0.31778E-01,
     &-0.57350E-02,-0.31698E-02,-0.15270E-02,-0.18707E-03, 0.42104E-03,
     & 0.39760E-03,-0.52064E-04, 0.94678E-04
     & /
       real p48(0:12)
       data p48/
     & 0.18953E+01,-0.28203E+01, 0.11100E+01,-0.20925E+00, 0.34638E-01,
     &-0.61538E-02,-0.32614E-02,-0.15780E-02,-0.19747E-03, 0.43368E-03,
     & 0.41354E-03,-0.58609E-04, 0.10253E-03
     & /
       real p49(0:12)
       data p49/
     & 0.20079E+01,-0.29928E+01, 0.11856E+01,-0.22744E+00, 0.37681E-01,
     &-0.66016E-02,-0.33527E-02,-0.16288E-02,-0.20718E-03, 0.44693E-03,
     & 0.42996E-03,-0.65580E-04, 0.11057E-03
     & /
       real p50(0:12)
       data p50/
     & 0.21240E+01,-0.31711E+01, 0.12643E+01,-0.24658E+00, 0.40912E-01,
     &-0.70797E-02,-0.34434E-02,-0.16793E-02,-0.21619E-03, 0.46079E-03,
     & 0.44686E-03,-0.72992E-04, 0.11880E-03
     & /
       real p51(0:12)
       data p51/
     & 0.22437E+01,-0.33552E+01, 0.13459E+01,-0.26671E+00, 0.44338E-01,
     &-0.75890E-02,-0.35334E-02,-0.17296E-02,-0.22450E-03, 0.47523E-03,
     & 0.46421E-03,-0.80857E-04, 0.12721E-03
     & /
       real p52(0:12)
       data p52/
     & 0.23671E+01,-0.35451E+01, 0.14307E+01,-0.28783E+00, 0.47965E-01,
     &-0.81309E-02,-0.36224E-02,-0.17794E-02,-0.23210E-03, 0.49024E-03,
     & 0.48201E-03,-0.89187E-04, 0.13581E-03
     & /
       real p53(0:12)
       data p53/
     & 0.24941E+01,-0.37410E+01, 0.15186E+01,-0.30997E+00, 0.51798E-01,
     &-0.87064E-02,-0.37100E-02,-0.18289E-02,-0.23897E-03, 0.50581E-03,
     & 0.50024E-03,-0.97994E-04, 0.14460E-03
     & /
       real p54(0:10)
       data p54/
     & 0.26247E+01,-0.39428E+01, 0.16096E+01,-0.33316E+00, 0.55845E-01,
     &-0.93166E-02,-0.37961E-02,-0.18778E-02,-0.24512E-03, 0.52191E-03,
     & 0.51889E-03
     & /
       real p55(0:10)
       data p55/
     & 0.27590E+01,-0.41505E+01, 0.17039E+01,-0.35740E+00, 0.60111E-01,
     &-0.99628E-02,-0.38804E-02,-0.19263E-02,-0.25055E-03, 0.53852E-03,
     & 0.53796E-03
     & /
       real p56(0:10)
       data p56/
     & 0.28969E+01,-0.43643E+01, 0.18013E+01,-0.38272E+00, 0.64602E-01,
     &-0.10646E-01,-0.39626E-02,-0.19743E-02,-0.25526E-03, 0.55564E-03,
     & 0.55743E-03
     & /
       real p57(0:10)
       data p57/
     & 0.30386E+01,-0.45841E+01, 0.19020E+01,-0.40913E+00, 0.69324E-01,
     &-0.11368E-01,-0.40425E-02,-0.20218E-02,-0.25924E-03, 0.57323E-03,
     & 0.57728E-03
     & /
       real p58(0:10)
       data p58/
     & 0.31839E+01,-0.48100E+01, 0.20059E+01,-0.43666E+00, 0.74284E-01,
     &-0.12129E-01,-0.41198E-02,-0.20687E-02,-0.26251E-03, 0.59129E-03,
     & 0.59752E-03
     & /
       real p59(0:10)
       data p59/
     & 0.33330E+01,-0.50419E+01, 0.21131E+01,-0.46531E+00, 0.79488E-01,
     &-0.12930E-01,-0.41942E-02,-0.21150E-02,-0.26505E-03, 0.60979E-03,
     & 0.61813E-03
     & /
       real p60(0:10)
       data p60/
     & 0.34857E+01,-0.52800E+01, 0.22237E+01,-0.49512E+00, 0.84941E-01,
     &-0.13774E-01,-0.42655E-02,-0.21607E-02,-0.26689E-03, 0.62871E-03,
     & 0.63910E-03
     & /
       real p61(0:10)
       data p61/
     & 0.36423E+01,-0.55242E+01, 0.23376E+01,-0.52609E+00, 0.90649E-01,
     &-0.14660E-01,-0.43335E-02,-0.22058E-02,-0.26802E-03, 0.64805E-03,
     & 0.66042E-03
     & /
       real p62(0:10)
       data p62/
     & 0.38025E+01,-0.57746E+01, 0.24549E+01,-0.55824E+00, 0.96619E-01,
     &-0.15591E-01,-0.43978E-02,-0.22503E-02,-0.26845E-03, 0.66777E-03,
     & 0.68209E-03
     & /
       real p63(0:10)
       data p63/
     & 0.39666E+01,-0.60311E+01, 0.25756E+01,-0.59159E+00, 0.10286E+00,
     &-0.16567E-01,-0.44582E-02,-0.22941E-02,-0.26819E-03, 0.68787E-03,
     & 0.70410E-03
     & /
       real p64(0:10)
       data p64/
     & 0.41344E+01,-0.62939E+01, 0.26997E+01,-0.62615E+00, 0.10937E+00,
     &-0.17590E-01,-0.45145E-02,-0.23374E-02,-0.26724E-03, 0.70832E-03,
     & 0.72644E-03
     & /
       real p65(0:10)
       data p65/
     & 0.43059E+01,-0.65629E+01, 0.28273E+01,-0.66195E+00, 0.11616E+00,
     &-0.18660E-01,-0.45664E-02,-0.23800E-02,-0.26562E-03, 0.72912E-03,
     & 0.74911E-03
     & /
       real p66(0:10)
       data p66/
     & 0.44813E+01,-0.68382E+01, 0.29583E+01,-0.69899E+00, 0.12323E+00,
     &-0.19780E-01,-0.46136E-02,-0.24219E-02,-0.26333E-03, 0.75024E-03,
     & 0.77209E-03
     & /
       real p67(0:10)
       data p67/
     & 0.46604E+01,-0.71197E+01, 0.30928E+01,-0.73729E+00, 0.13059E+00,
     &-0.20950E-01,-0.46558E-02,-0.24633E-02,-0.26038E-03, 0.77166E-03,
     & 0.79539E-03
     & /
       real p68(0:10)
       data p68/
     & 0.48434E+01,-0.74075E+01, 0.32309E+01,-0.77687E+00, 0.13826E+00,
     &-0.22171E-01,-0.46929E-02,-0.25040E-02,-0.25678E-03, 0.79338E-03,
     & 0.81899E-03
     & /
       real p69(0:10)
       data p69/
     & 0.50301E+01,-0.77016E+01, 0.33725E+01,-0.81774E+00, 0.14622E+00,
     &-0.23445E-01,-0.47245E-02,-0.25441E-02,-0.25254E-03, 0.81537E-03,
     & 0.84289E-03
     & /
       real p70(0:10)
       data p70/
     & 0.52207E+01,-0.80021E+01, 0.35176E+01,-0.85991E+00, 0.15449E+00,
     &-0.24774E-01,-0.47504E-02,-0.25836E-02,-0.24768E-03, 0.83762E-03,
     & 0.86710E-03
     & /
       real p71(0:10)
       data p71/
     & 0.54151E+01,-0.83089E+01, 0.36663E+01,-0.90341E+00, 0.16307E+00,
     &-0.26157E-01,-0.47704E-02,-0.26225E-02,-0.24219E-03, 0.86012E-03,
     & 0.89159E-03
     & /
       real p72(0:10)
       data p72/
     & 0.56133E+01,-0.86220E+01, 0.38187E+01,-0.94823E+00, 0.17198E+00,
     &-0.27596E-01,-0.47841E-02,-0.26608E-02,-0.23610E-03, 0.88284E-03,
     & 0.91637E-03
     & /
       real p73(0:10)
       data p73/
     & 0.58153E+01,-0.89415E+01, 0.39746E+01,-0.99441E+00, 0.18120E+00,
     &-0.29093E-01,-0.47913E-02,-0.26986E-02,-0.22941E-03, 0.90579E-03,
     & 0.94143E-03
     & /
       real p74(0:10)
       data p74/
     & 0.60212E+01,-0.92674E+01, 0.41342E+01,-0.10419E+01, 0.19076E+00,
     &-0.30650E-01,-0.47918E-02,-0.27358E-02,-0.22213E-03, 0.92893E-03,
     & 0.96677E-03
     & /
       real p75(0:10)
       data p75/
     & 0.62309E+01,-0.95997E+01, 0.42974E+01,-0.10909E+01, 0.20065E+00,
     &-0.32266E-01,-0.47854E-02,-0.27725E-02,-0.21428E-03, 0.95227E-03,
     & 0.99239E-03
     & /
       real p76(0:10)
       data p76/
     & 0.64444E+01,-0.99384E+01, 0.44642E+01,-0.11411E+01, 0.21088E+00,
     &-0.33943E-01,-0.47716E-02,-0.28087E-02,-0.20586E-03, 0.97577E-03,
     & 0.10183E-02
     & /
       real p77(0:10)
       data p77/
     & 0.66618E+01,-0.10284E+02, 0.46348E+01,-0.11928E+01, 0.22146E+00,
     &-0.35683E-01,-0.47504E-02,-0.28443E-02,-0.19688E-03, 0.99945E-03,
     & 0.10444E-02
     & /
       real p78(0:10)
       data p78/
     & 0.68830E+01,-0.10635E+02, 0.48090E+01,-0.12459E+01, 0.23238E+00,
     &-0.37487E-01,-0.47214E-02,-0.28796E-02,-0.18736E-03, 0.10233E-02,
     & 0.10709E-02
     & /
       real p79(0:10)
       data p79/
     & 0.71081E+01,-0.10993E+02, 0.49870E+01,-0.13005E+01, 0.24367E+00,
     &-0.39356E-01,-0.46844E-02,-0.29144E-02,-0.17730E-03, 0.10472E-02,
     & 0.10976E-02
     & /
       real p80(0:10)
       data p80/
     & 0.73371E+01,-0.11357E+02, 0.51687E+01,-0.13564E+01, 0.25531E+00,
     &-0.41290E-01,-0.46391E-02,-0.29487E-02,-0.16672E-03, 0.10713E-02,
     & 0.11245E-02
     & /
       real p81(0:10)
       data p81/
     & 0.75699E+01,-0.11728E+02, 0.53541E+01,-0.14138E+01, 0.26732E+00,
     &-0.43293E-01,-0.45853E-02,-0.29827E-02,-0.15563E-03, 0.10955E-02,
     & 0.11517E-02
     & /
       real p82(0:10)
       data p82/
     & 0.78065E+01,-0.12106E+02, 0.55433E+01,-0.14727E+01, 0.27970E+00,
     &-0.45364E-01,-0.45228E-02,-0.30163E-02,-0.14403E-03, 0.11198E-02,
     & 0.11792E-02
     & /
       real p83(0:10)
       data p83/
     & 0.80471E+01,-0.12490E+02, 0.57362E+01,-0.15330E+01, 0.29246E+00,
     &-0.47505E-01,-0.44512E-02,-0.30496E-02,-0.13194E-03, 0.11442E-02,
     & 0.12069E-02
     & /
       real p84(0:10)
       data p84/
     & 0.82915E+01,-0.12880E+02, 0.59330E+01,-0.15949E+01, 0.30560E+00,
     &-0.49717E-01,-0.43703E-02,-0.30826E-02,-0.11936E-03, 0.11687E-02,
     & 0.12349E-02
     & /
       real p85(0:10)
       data p85/
     & 0.85397E+01,-0.13277E+02, 0.61335E+01,-0.16582E+01, 0.31912E+00,
     &-0.52002E-01,-0.42799E-02,-0.31153E-02,-0.10631E-03, 0.11932E-02,
     & 0.12631E-02
     & /
       real p86(0:10)
       data p86/
     & 0.87918E+01,-0.13680E+02, 0.63378E+01,-0.17230E+01, 0.33304E+00,
     &-0.54360E-01,-0.41797E-02,-0.31477E-02,-0.92791E-04, 0.12178E-02,
     & 0.12916E-02
     & /
       real p87(0:10)
       data p87/
     & 0.90478E+01,-0.14090E+02, 0.65459E+01,-0.17893E+01, 0.34735E+00,
     &-0.56793E-01,-0.40695E-02,-0.31800E-02,-0.78819E-04, 0.12425E-02,
     & 0.13204E-02
     & /
       real p88(0:10)
       data p88/
     & 0.93076E+01,-0.14506E+02, 0.67579E+01,-0.18571E+01, 0.36206E+00,
     &-0.59301E-01,-0.39490E-02,-0.32121E-02,-0.64401E-04, 0.12672E-02,
     & 0.13493E-02
     & /
       real p89(0:10)
       data p89/
     & 0.95713E+01,-0.14929E+02, 0.69737E+01,-0.19265E+01, 0.37718E+00,
     &-0.61888E-01,-0.38179E-02,-0.32440E-02,-0.49545E-04, 0.12919E-02,
     & 0.13786E-02
     & /
       real p90(0:10)
       data p90/
     & 0.98389E+01,-0.15358E+02, 0.71933E+01,-0.19974E+01, 0.39270E+00,
     &-0.64552E-01,-0.36761E-02,-0.32758E-02,-0.34261E-04, 0.13166E-02,
     & 0.14081E-02
     & /
       real p91(0:10)
       data p91/
     & 0.10110E+02,-0.15794E+02, 0.74168E+01,-0.20699E+01, 0.40864E+00,
     &-0.67296E-01,-0.35232E-02,-0.33075E-02,-0.18556E-04, 0.13414E-02,
     & 0.14378E-02
     & /
       real p92(0: 7)
       data p92/
     & 0.10385E+02,-0.16236E+02, 0.76436E+01,-0.21440E+01, 0.42567E+00,
     &-0.71002E-01,-0.18912E-02,-0.19730E-02
     & /
       real p93(0: 7)
       data p93/
     & 0.10664E+02,-0.16684E+02, 0.78748E+01,-0.22196E+01, 0.44247E+00,
     &-0.73943E-01,-0.16843E-02,-0.19795E-02
     & /
       real p94(0: 7)
       data p94/
     & 0.10947E+02,-0.17140E+02, 0.81100E+01,-0.22968E+01, 0.45972E+00,
     &-0.76970E-01,-0.14649E-02,-0.19860E-02
     & /
       real p95(0: 7)
       data p95/
     & 0.11234E+02,-0.17602E+02, 0.83493E+01,-0.23757E+01, 0.47741E+00,
     &-0.80085E-01,-0.12328E-02,-0.19925E-02
     & /
       real p96(0: 7)
       data p96/
     & 0.11525E+02,-0.18071E+02, 0.85925E+01,-0.24562E+01, 0.49555E+00,
     &-0.83288E-01,-0.98794E-03,-0.19992E-02
     & /
       real p97(0: 7)
       data p97/
     & 0.11820E+02,-0.18547E+02, 0.88399E+01,-0.25384E+01, 0.51415E+00,
     &-0.86582E-01,-0.72990E-03,-0.20061E-02
     & /
       real p98(0: 7)
       data p98/
     & 0.12119E+02,-0.19029E+02, 0.90913E+01,-0.26222E+01, 0.53320E+00,
     &-0.89967E-01,-0.45844E-03,-0.20133E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  13,  13,  13,  13,  13,  13,  14
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  12,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,   7,   7,   7,   7,   7,   7,   7
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.13) param(i,15) = p15(i)
             if (i.le.13) param(i,16) = p16(i)
             if (i.le.13) param(i,17) = p17(i)
             if (i.le.13) param(i,18) = p18(i)
             if (i.le.13) param(i,19) = p19(i)
             if (i.le.13) param(i,20) = p20(i)
             if (i.le.14) param(i,21) = p21(i)
             if (i.le.12) param(i,22) = p22(i)
             if (i.le.12) param(i,23) = p23(i)
             if (i.le.12) param(i,24) = p24(i)
             if (i.le.12) param(i,25) = p25(i)
             if (i.le.12) param(i,26) = p26(i)
             if (i.le.12) param(i,27) = p27(i)
             if (i.le.12) param(i,28) = p28(i)
             if (i.le.12) param(i,29) = p29(i)
             if (i.le.12) param(i,30) = p30(i)
             if (i.le.12) param(i,31) = p31(i)
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.12) param(i,35) = p35(i)
             if (i.le.12) param(i,36) = p36(i)
             if (i.le.12) param(i,37) = p37(i)
             if (i.le.12) param(i,38) = p38(i)
             if (i.le.12) param(i,39) = p39(i)
             if (i.le.12) param(i,40) = p40(i)
             if (i.le.12) param(i,41) = p41(i)
             if (i.le.12) param(i,42) = p42(i)
             if (i.le.12) param(i,43) = p43(i)
             if (i.le.12) param(i,44) = p44(i)
             if (i.le.12) param(i,45) = p45(i)
             if (i.le.12) param(i,46) = p46(i)
             if (i.le.12) param(i,47) = p47(i)
             if (i.le.12) param(i,48) = p48(i)
             if (i.le.12) param(i,49) = p49(i)
             if (i.le.12) param(i,50) = p50(i)
             if (i.le.12) param(i,51) = p51(i)
             if (i.le.12) param(i,52) = p52(i)
             if (i.le.12) param(i,53) = p53(i)
             if (i.le.10) param(i,54) = p54(i)
             if (i.le.10) param(i,55) = p55(i)
             if (i.le.10) param(i,56) = p56(i)
             if (i.le.10) param(i,57) = p57(i)
             if (i.le.10) param(i,58) = p58(i)
             if (i.le.10) param(i,59) = p59(i)
             if (i.le.10) param(i,60) = p60(i)
             if (i.le.10) param(i,61) = p61(i)
             if (i.le.10) param(i,62) = p62(i)
             if (i.le.10) param(i,63) = p63(i)
             if (i.le.10) param(i,64) = p64(i)
             if (i.le.10) param(i,65) = p65(i)
             if (i.le.10) param(i,66) = p66(i)
             if (i.le.10) param(i,67) = p67(i)
             if (i.le.10) param(i,68) = p68(i)
             if (i.le.10) param(i,69) = p69(i)
             if (i.le.10) param(i,70) = p70(i)
             if (i.le.10) param(i,71) = p71(i)
             if (i.le.10) param(i,72) = p72(i)
             if (i.le.10) param(i,73) = p73(i)
             if (i.le.10) param(i,74) = p74(i)
             if (i.le.10) param(i,75) = p75(i)
             if (i.le.10) param(i,76) = p76(i)
             if (i.le.10) param(i,77) = p77(i)
             if (i.le.10) param(i,78) = p78(i)
             if (i.le.10) param(i,79) = p79(i)
             if (i.le.10) param(i,80) = p80(i)
             if (i.le.10) param(i,81) = p81(i)
             if (i.le.10) param(i,82) = p82(i)
             if (i.le.10) param(i,83) = p83(i)
             if (i.le.10) param(i,84) = p84(i)
             if (i.le.10) param(i,85) = p85(i)
             if (i.le.10) param(i,86) = p86(i)
             if (i.le.10) param(i,87) = p87(i)
             if (i.le.10) param(i,88) = p88(i)
             if (i.le.10) param(i,89) = p89(i)
             if (i.le.10) param(i,90) = p90(i)
             if (i.le.10) param(i,91) = p91(i)
             if (i.le. 7) param(i,92) = p92(i)
             if (i.le. 7) param(i,93) = p93(i)
             if (i.le. 7) param(i,94) = p94(i)
             if (i.le. 7) param(i,95) = p95(i)
             if (i.le. 7) param(i,96) = p96(i)
             if (i.le. 7) param(i,97) = p97(i)
             if (i.le. 7) param(i,98) = p98(i)
          enddo
       endif
            
       cbarhiq2ds=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
       cbarhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) cbarhiq2ds=0.0
       if (q2.lt.q2min) cbarhiq2ds=0.0
       if ( x.gt. xmax) cbarhiq2ds=0.0
       if ( x.lt. xmin) cbarhiq2ds=0.0
       return
       end
       real function  bbarhiq2ds(xin,q2in)
***********************************************************
c  parametrization of bbarhiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.000 >= q2 >=      26.879
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.879,q2max=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /     26.879
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p32(0:12)
       data p32/
     & 0.33717E-01,-0.64346E-01, 0.36736E-01,-0.27203E-02,-0.75080E-03,
     &-0.23890E-02,-0.11127E-02, 0.52585E-04, 0.46717E-03, 0.36401E-03,
     & 0.12901E-03,-0.21078E-04,-0.68326E-04
     & /
       real p33(0:13)
       data p33/
     & 0.74680E-01,-0.12573E+00, 0.61571E-01,-0.76320E-02,-0.12277E-03,
     &-0.24778E-02,-0.11328E-02, 0.39885E-04, 0.45914E-03, 0.36439E-03,
     & 0.12740E-03,-0.22384E-04,-0.65716E-04,-0.51415E-04
     & /
       real p34(0:12)
       data p34/
     & 0.11887E+00,-0.19213E+00, 0.88711E-01,-0.13136E-01, 0.59701E-03,
     &-0.25747E-02,-0.11562E-02, 0.26192E-04, 0.45022E-03, 0.36113E-03,
     & 0.13234E-03,-0.29796E-04,-0.60702E-04
     & /
       real p35(0:12)
       data p35/
     & 0.16632E+00,-0.26363E+00, 0.11821E+00,-0.19260E-01, 0.14179E-02,
     &-0.26851E-02,-0.11811E-02, 0.10679E-04, 0.44156E-03, 0.36069E-03,
     & 0.13492E-03,-0.33896E-04,-0.56854E-04
     & /
       real p36(0:13)
       data p36/
     & 0.21708E+00,-0.34029E+00, 0.15013E+00,-0.26029E-01, 0.23445E-02,
     &-0.28087E-02,-0.12080E-02,-0.61165E-05, 0.43264E-03, 0.36071E-03,
     & 0.13813E-03,-0.38131E-04,-0.52719E-04,-0.43126E-04
     & /
       real p37(0:12)
       data p37/
     & 0.27117E+00,-0.42217E+00, 0.18451E+00,-0.33466E-01, 0.33826E-02,
     &-0.29466E-02,-0.12368E-02,-0.24075E-04, 0.42354E-03, 0.36120E-03,
     & 0.14196E-03,-0.42523E-04,-0.48306E-04
     & /
       real p38(0:12)
       data p38/
     & 0.32861E+00,-0.50934E+00, 0.22141E+00,-0.41596E-01, 0.45380E-02,
     &-0.31000E-02,-0.12674E-02,-0.43080E-04, 0.41434E-03, 0.36219E-03,
     & 0.14639E-03,-0.47098E-04,-0.43625E-04
     & /
       real p39(0:12)
       data p39/
     & 0.38944E+00,-0.60184E+00, 0.26088E+00,-0.50443E-01, 0.58167E-02,
     &-0.32700E-02,-0.12996E-02,-0.63022E-04, 0.40511E-03, 0.36370E-03,
     & 0.15144E-03,-0.51876E-04,-0.38683E-04
     & /
       real p40(0:12)
       data p40/
     & 0.45369E+00,-0.69975E+00, 0.30296E+00,-0.60031E-01, 0.72247E-02,
     &-0.34577E-02,-0.13331E-02,-0.83793E-04, 0.39590E-03, 0.36573E-03,
     & 0.15708E-03,-0.56882E-04,-0.33488E-04
     & /
       real p41(0:12)
       data p41/
     & 0.52138E+00,-0.80310E+00, 0.34770E+00,-0.70383E-01, 0.87678E-02,
     &-0.36642E-02,-0.13680E-02,-0.10529E-03, 0.38679E-03, 0.36828E-03,
     & 0.16331E-03,-0.62134E-04,-0.28045E-04
     & /
       real p42(0:12)
       data p42/
     & 0.59253E+00,-0.91196E+00, 0.39514E+00,-0.81523E-01, 0.10452E-01,
     &-0.38907E-02,-0.14038E-02,-0.12743E-03, 0.37781E-03, 0.37137E-03,
     & 0.17012E-03,-0.67655E-04,-0.22361E-04
     & /
       real p43(0:12)
       data p43/
     & 0.66717E+00,-0.10264E+01, 0.44534E+00,-0.93473E-01, 0.12284E-01,
     &-0.41383E-02,-0.14406E-02,-0.15010E-03, 0.36901E-03, 0.37500E-03,
     & 0.17749E-03,-0.73464E-04,-0.16439E-04
     & /
       real p44(0:12)
       data p44/
     & 0.74533E+00,-0.11464E+01, 0.49832E+00,-0.10626E+00, 0.14269E-01,
     &-0.44082E-02,-0.14779E-02,-0.17322E-03, 0.36044E-03, 0.37916E-03,
     & 0.18541E-03,-0.79579E-04,-0.10284E-04
     & /
       real p45(0:12)
       data p45/
     & 0.82702E+00,-0.12721E+01, 0.55415E+00,-0.11989E+00, 0.16414E-01,
     &-0.47013E-02,-0.15157E-02,-0.19672E-03, 0.35212E-03, 0.38384E-03,
     & 0.19388E-03,-0.86018E-04,-0.38985E-05
     & /
       real p46(0:12)
       data p46/
     & 0.91227E+00,-0.14034E+01, 0.61284E+00,-0.13441E+00, 0.18724E-01,
     &-0.50190E-02,-0.15537E-02,-0.22052E-03, 0.34411E-03, 0.38906E-03,
     & 0.20288E-03,-0.92797E-04, 0.27151E-05
     & /
       real p47(0:12)
       data p47/
     & 0.10011E+01,-0.15405E+01, 0.67445E+00,-0.14982E+00, 0.21206E-01,
     &-0.53623E-02,-0.15917E-02,-0.24454E-03, 0.33641E-03, 0.39478E-03,
     & 0.21239E-03,-0.99934E-04, 0.95549E-05
     & /
       real p48(0:12)
       data p48/
     & 0.10935E+01,-0.16834E+01, 0.73901E+00,-0.16616E+00, 0.23866E-01,
     &-0.57324E-02,-0.16295E-02,-0.26872E-03, 0.32906E-03, 0.40102E-03,
     & 0.22242E-03,-0.10744E-03, 0.16619E-04
     & /
       real p49(0:11)
       data p49/
     & 0.11896E+01,-0.18321E+01, 0.80656E+00,-0.18343E+00, 0.26710E-01,
     &-0.61305E-02,-0.16667E-02,-0.29301E-03, 0.32209E-03, 0.40775E-03,
     & 0.23294E-03,-0.11534E-03
     & /
       real p50(0:11)
       data p50/
     & 0.12892E+01,-0.19867E+01, 0.87714E+00,-0.20167E+00, 0.29745E-01,
     &-0.65577E-02,-0.17033E-02,-0.31733E-03, 0.31550E-03, 0.41498E-03,
     & 0.24395E-03,-0.12364E-03
     & /
       real p51(0:11)
       data p51/
     & 0.13926E+01,-0.21472E+01, 0.95078E+00,-0.22088E+00, 0.32976E-01,
     &-0.70151E-02,-0.17389E-02,-0.34165E-03, 0.30931E-03, 0.42268E-03,
     & 0.25543E-03,-0.13235E-03
     & /
       real p52(0:11)
       data p52/
     & 0.14995E+01,-0.23136E+01, 0.10275E+01,-0.24110E+00, 0.36409E-01,
     &-0.75040E-02,-0.17734E-02,-0.36591E-03, 0.30355E-03, 0.43084E-03,
     & 0.26737E-03,-0.14148E-03
     & /
       real p53(0:10)
       data p53/
     & 0.16102E+01,-0.24859E+01, 0.11074E+01,-0.26234E+00, 0.40051E-01,
     &-0.80255E-02,-0.18064E-02,-0.39007E-03, 0.29821E-03, 0.43945E-03,
     & 0.27977E-03
     & /
       real p54(0:10)
       data p54/
     & 0.17246E+01,-0.26643E+01, 0.11904E+01,-0.28462E+00, 0.43908E-01,
     &-0.85808E-02,-0.18377E-02,-0.41409E-03, 0.29332E-03, 0.44851E-03,
     & 0.29261E-03
     & /
       real p55(0:10)
       data p55/
     & 0.18427E+01,-0.28487E+01, 0.12766E+01,-0.30796E+00, 0.47985E-01,
     &-0.91710E-02,-0.18671E-02,-0.43795E-03, 0.28888E-03, 0.45799E-03,
     & 0.30588E-03
     & /
       real p56(0:10)
       data p56/
     & 0.19645E+01,-0.30392E+01, 0.13661E+01,-0.33238E+00, 0.52290E-01,
     &-0.97975E-02,-0.18943E-02,-0.46159E-03, 0.28489E-03, 0.46788E-03,
     & 0.31958E-03
     & /
       real p57(0:10)
       data p57/
     & 0.20900E+01,-0.32357E+01, 0.14587E+01,-0.35789E+00, 0.56828E-01,
     &-0.10461E-01,-0.19192E-02,-0.48501E-03, 0.28136E-03, 0.47816E-03,
     & 0.33369E-03
     & /
       real p58(0:10)
       data p58/
     & 0.22193E+01,-0.34384E+01, 0.15547E+01,-0.38452E+00, 0.61605E-01,
     &-0.11164E-01,-0.19413E-02,-0.50817E-03, 0.27829E-03, 0.48883E-03,
     & 0.34821E-03
     & /
       real p59(0:10)
       data p59/
     & 0.23523E+01,-0.36472E+01, 0.16540E+01,-0.41228E+00, 0.66626E-01,
     &-0.11906E-01,-0.19606E-02,-0.53106E-03, 0.27568E-03, 0.49987E-03,
     & 0.36313E-03
     & /
       real p60(0:10)
       data p60/
     & 0.24891E+01,-0.38622E+01, 0.17566E+01,-0.44118E+00, 0.71899E-01,
     &-0.12689E-01,-0.19766E-02,-0.55365E-03, 0.27354E-03, 0.51126E-03,
     & 0.37844E-03
     & /
       real p61(0:10)
       data p61/
     & 0.26297E+01,-0.40834E+01, 0.18626E+01,-0.47126E+00, 0.77430E-01,
     &-0.13514E-01,-0.19893E-02,-0.57593E-03, 0.27187E-03, 0.52299E-03,
     & 0.39413E-03
     & /
       real p62(0:10)
       data p62/
     & 0.27741E+01,-0.43108E+01, 0.19720E+01,-0.50252E+00, 0.83223E-01,
     &-0.14383E-01,-0.19983E-02,-0.59790E-03, 0.27066E-03, 0.53505E-03,
     & 0.41019E-03
     & /
       real p63(0:10)
       data p63/
     & 0.29223E+01,-0.45445E+01, 0.20847E+01,-0.53497E+00, 0.89284E-01,
     &-0.15296E-01,-0.20033E-02,-0.61954E-03, 0.26990E-03, 0.54742E-03,
     & 0.42662E-03
     & /
       real p64(0:10)
       data p64/
     & 0.30743E+01,-0.47844E+01, 0.22010E+01,-0.56865E+00, 0.95621E-01,
     &-0.16256E-01,-0.20042E-02,-0.64084E-03, 0.26961E-03, 0.56009E-03,
     & 0.44342E-03
     & /
       real p65(0:10)
       data p65/
     & 0.32301E+01,-0.50306E+01, 0.23206E+01,-0.60355E+00, 0.10224E+00,
     &-0.17262E-01,-0.20007E-02,-0.66181E-03, 0.26977E-03, 0.57303E-03,
     & 0.46057E-03
     & /
       real p66(0:10)
       data p66/
     & 0.33898E+01,-0.52831E+01, 0.24438E+01,-0.63970E+00, 0.10914E+00,
     &-0.18317E-01,-0.19925E-02,-0.68244E-03, 0.27038E-03, 0.58625E-03,
     & 0.47807E-03
     & /
       real p67(0: 9)
       data p67/
     & 0.35533E+01,-0.55420E+01, 0.25705E+01,-0.67711E+00, 0.11634E+00,
     &-0.19421E-01,-0.19793E-02,-0.70273E-03, 0.27144E-03, 0.59973E-03
     & /
       real p68(0: 9)
       data p68/
     & 0.37206E+01,-0.58071E+01, 0.27007E+01,-0.71580E+00, 0.12383E+00,
     &-0.20576E-01,-0.19610E-02,-0.72269E-03, 0.27294E-03, 0.61344E-03
     & /
       real p69(0: 9)
       data p69/
     & 0.38917E+01,-0.60787E+01, 0.28344E+01,-0.75579E+00, 0.13163E+00,
     &-0.21783E-01,-0.19372E-02,-0.74233E-03, 0.27487E-03, 0.62739E-03
     & /
       real p70(0: 9)
       data p70/
     & 0.40667E+01,-0.63566E+01, 0.29717E+01,-0.79708E+00, 0.13973E+00,
     &-0.23043E-01,-0.19078E-02,-0.76164E-03, 0.27723E-03, 0.64155E-03
     & /
       real p71(0: 9)
       data p71/
     & 0.42456E+01,-0.66409E+01, 0.31126E+01,-0.83968E+00, 0.14815E+00,
     &-0.24358E-01,-0.18724E-02,-0.78064E-03, 0.28001E-03, 0.65592E-03
     & /
       real p72(0: 9)
       data p72/
     & 0.44283E+01,-0.69316E+01, 0.32571E+01,-0.88363E+00, 0.15689E+00,
     &-0.25729E-01,-0.18309E-02,-0.79935E-03, 0.28322E-03, 0.67048E-03
     & /
       real p73(0: 9)
       data p73/
     & 0.46149E+01,-0.72287E+01, 0.34052E+01,-0.92892E+00, 0.16596E+00,
     &-0.27156E-01,-0.17829E-02,-0.81777E-03, 0.28683E-03, 0.68521E-03
     & /
       real p74(0: 9)
       data p74/
     & 0.48054E+01,-0.75322E+01, 0.35570E+01,-0.97557E+00, 0.17535E+00,
     &-0.28642E-01,-0.17282E-02,-0.83591E-03, 0.29084E-03, 0.70012E-03
     & /
       real p75(0: 9)
       data p75/
     & 0.49997E+01,-0.78422E+01, 0.37124E+01,-0.10236E+01, 0.18508E+00,
     &-0.30187E-01,-0.16665E-02,-0.85381E-03, 0.29525E-03, 0.71518E-03
     & /
       real p76(0: 7)
       data p76/
     & 0.51976E+01,-0.81582E+01, 0.38712E+01,-0.10730E+01, 0.19547E+00,
     &-0.32304E-01,-0.92640E-03,-0.14108E-03
     & /
       real p77(0: 7)
       data p77/
     & 0.53997E+01,-0.84811E+01, 0.40340E+01,-0.11239E+01, 0.20590E+00,
     &-0.33994E-01,-0.82906E-03,-0.14317E-03
     & /
       real p78(0: 7)
       data p78/
     & 0.56057E+01,-0.88104E+01, 0.42004E+01,-0.11761E+01, 0.21669E+00,
     &-0.35748E-01,-0.72373E-03,-0.14495E-03
     & /
       real p79(0: 7)
       data p79/
     & 0.58155E+01,-0.91463E+01, 0.43706E+01,-0.12297E+01, 0.22784E+00,
     &-0.37567E-01,-0.61014E-03,-0.14644E-03
     & /
       real p80(0: 7)
       data p80/
     & 0.60293E+01,-0.94886E+01, 0.45446E+01,-0.12848E+01, 0.23934E+00,
     &-0.39453E-01,-0.48806E-03,-0.14767E-03
     & /
       real p81(0: 7)
       data p81/
     & 0.62469E+01,-0.98374E+01, 0.47223E+01,-0.13413E+01, 0.25122E+00,
     &-0.41405E-01,-0.35723E-03,-0.14869E-03
     & /
       real p82(0: 7)
       data p82/
     & 0.64684E+01,-0.10193E+02, 0.49037E+01,-0.13993E+01, 0.26347E+00,
     &-0.43427E-01,-0.21741E-03,-0.14951E-03
     & /
       real p83(0: 7)
       data p83/
     & 0.66938E+01,-0.10555E+02, 0.50889E+01,-0.14588E+01, 0.27609E+00,
     &-0.45519E-01,-0.68349E-04,-0.15019E-03
     & /
       real p84(0: 7)
       data p84/
     & 0.69231E+01,-0.10923E+02, 0.52779E+01,-0.15197E+01, 0.28910E+00,
     &-0.47681E-01, 0.90202E-04,-0.15075E-03
     & /
       real p85(0: 7)
       data p85/
     & 0.71563E+01,-0.11298E+02, 0.54707E+01,-0.15822E+01, 0.30249E+00,
     &-0.49917E-01, 0.25849E-03,-0.15123E-03
     & /
       real p86(0: 7)
       data p86/
     & 0.73934E+01,-0.11679E+02, 0.56673E+01,-0.16461E+01, 0.31628E+00,
     &-0.52226E-01, 0.43676E-03,-0.15168E-03
     & /
       real p87(0: 7)
       data p87/
     & 0.76344E+01,-0.12067E+02, 0.58678E+01,-0.17115E+01, 0.33047E+00,
     &-0.54610E-01, 0.62527E-03,-0.15212E-03
     & /
       real p88(0: 7)
       data p88/
     & 0.78793E+01,-0.12462E+02, 0.60720E+01,-0.17785E+01, 0.34505E+00,
     &-0.57070E-01, 0.82426E-03,-0.15260E-03
     & /
       real p89(0: 7)
       data p89/
     & 0.81281E+01,-0.12863E+02, 0.62801E+01,-0.18470E+01, 0.36004E+00,
     &-0.59607E-01, 0.10340E-02,-0.15316E-03
     & /
       real p90(0: 7)
       data p90/
     & 0.83808E+01,-0.13271E+02, 0.64921E+01,-0.19171E+01, 0.37545E+00,
     &-0.62223E-01, 0.12547E-02,-0.15383E-03
     & /
       real p91(0: 7)
       data p91/
     & 0.86373E+01,-0.13685E+02, 0.67079E+01,-0.19886E+01, 0.39127E+00,
     &-0.64919E-01, 0.14866E-02,-0.15466E-03
     & /
       real p92(0: 7)
       data p92/
     & 0.88978E+01,-0.14105E+02, 0.69276E+01,-0.20618E+01, 0.40750E+00,
     &-0.67696E-01, 0.17300E-02,-0.15569E-03
     & /
       real p93(0: 9)
       data p93/
     & 0.91626E+01,-0.14533E+02, 0.71517E+01,-0.21365E+01, 0.42358E+00,
     &-0.69589E-01, 0.91689E-03,-0.11577E-02, 0.43456E-03, 0.10012E-02
     & /
       real p94(0: 9)
       data p94/
     & 0.94308E+01,-0.14967E+02, 0.73793E+01,-0.22128E+01, 0.44067E+00,
     &-0.72503E-01, 0.11592E-02,-0.11750E-02, 0.44517E-03, 0.10173E-02
     & /
       real p95(0: 9)
       data p95/
     & 0.97031E+01,-0.15408E+02, 0.76109E+01,-0.22908E+01, 0.45821E+00,
     &-0.75504E-01, 0.14137E-02,-0.11927E-02, 0.45602E-03, 0.10335E-02
     & /
       real p96(0: 9)
       data p96/
     & 0.99795E+01,-0.15856E+02, 0.78465E+01,-0.23705E+01, 0.47619E+00,
     &-0.78592E-01, 0.16808E-02,-0.12106E-02, 0.46713E-03, 0.10496E-02
     & /
       real p97(0: 9)
       data p97/
     & 0.10260E+02,-0.16310E+02, 0.80863E+01,-0.24518E+01, 0.49464E+00,
     &-0.81770E-01, 0.19606E-02,-0.12290E-02, 0.47849E-03, 0.10657E-02
     & /
       real p98(0: 9)
       data p98/
     & 0.10544E+02,-0.16771E+02, 0.83301E+01,-0.25347E+01, 0.51354E+00,
     &-0.85038E-01, 0.22534E-02,-0.12478E-02, 0.49008E-03, 0.10817E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  13,  13,  13,  13,  13,  13,  14
     &,  12,  12,  12,  12,  12,  12,  12,  12,  12,  12
     &,  12,  13,  12,  12,  13,  12,  12,  12,  12,  12
     &,  12,  12,  12,  12,  12,  12,  12,  11,  11,  11
     &,  11,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,   9,   9,   9,   9,   9
     &,   9,   9,   9,   9,   7,   7,   7,   7,   7,   7
     &,   7,   7,   7,   7,   7,   7,   7,   7,   7,   7
     &,   7,   9,   9,   9,   9,   9,   9
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.13) param(i,33) = p33(i)
             if (i.le.12) param(i,34) = p34(i)
             if (i.le.12) param(i,35) = p35(i)
             if (i.le.13) param(i,36) = p36(i)
             if (i.le.12) param(i,37) = p37(i)
             if (i.le.12) param(i,38) = p38(i)
             if (i.le.12) param(i,39) = p39(i)
             if (i.le.12) param(i,40) = p40(i)
             if (i.le.12) param(i,41) = p41(i)
             if (i.le.12) param(i,42) = p42(i)
             if (i.le.12) param(i,43) = p43(i)
             if (i.le.12) param(i,44) = p44(i)
             if (i.le.12) param(i,45) = p45(i)
             if (i.le.12) param(i,46) = p46(i)
             if (i.le.12) param(i,47) = p47(i)
             if (i.le.12) param(i,48) = p48(i)
             if (i.le.11) param(i,49) = p49(i)
             if (i.le.11) param(i,50) = p50(i)
             if (i.le.11) param(i,51) = p51(i)
             if (i.le.11) param(i,52) = p52(i)
             if (i.le.10) param(i,53) = p53(i)
             if (i.le.10) param(i,54) = p54(i)
             if (i.le.10) param(i,55) = p55(i)
             if (i.le.10) param(i,56) = p56(i)
             if (i.le.10) param(i,57) = p57(i)
             if (i.le.10) param(i,58) = p58(i)
             if (i.le.10) param(i,59) = p59(i)
             if (i.le.10) param(i,60) = p60(i)
             if (i.le.10) param(i,61) = p61(i)
             if (i.le.10) param(i,62) = p62(i)
             if (i.le.10) param(i,63) = p63(i)
             if (i.le.10) param(i,64) = p64(i)
             if (i.le.10) param(i,65) = p65(i)
             if (i.le.10) param(i,66) = p66(i)
             if (i.le. 9) param(i,67) = p67(i)
             if (i.le. 9) param(i,68) = p68(i)
             if (i.le. 9) param(i,69) = p69(i)
             if (i.le. 9) param(i,70) = p70(i)
             if (i.le. 9) param(i,71) = p71(i)
             if (i.le. 9) param(i,72) = p72(i)
             if (i.le. 9) param(i,73) = p73(i)
             if (i.le. 9) param(i,74) = p74(i)
             if (i.le. 9) param(i,75) = p75(i)
             if (i.le. 7) param(i,76) = p76(i)
             if (i.le. 7) param(i,77) = p77(i)
             if (i.le. 7) param(i,78) = p78(i)
             if (i.le. 7) param(i,79) = p79(i)
             if (i.le. 7) param(i,80) = p80(i)
             if (i.le. 7) param(i,81) = p81(i)
             if (i.le. 7) param(i,82) = p82(i)
             if (i.le. 7) param(i,83) = p83(i)
             if (i.le. 7) param(i,84) = p84(i)
             if (i.le. 7) param(i,85) = p85(i)
             if (i.le. 7) param(i,86) = p86(i)
             if (i.le. 7) param(i,87) = p87(i)
             if (i.le. 7) param(i,88) = p88(i)
             if (i.le. 7) param(i,89) = p89(i)
             if (i.le. 7) param(i,90) = p90(i)
             if (i.le. 7) param(i,91) = p91(i)
             if (i.le. 7) param(i,92) = p92(i)
             if (i.le. 9) param(i,93) = p93(i)
             if (i.le. 9) param(i,94) = p94(i)
             if (i.le. 9) param(i,95) = p95(i)
             if (i.le. 9) param(i,96) = p96(i)
             if (i.le. 9) param(i,97) = p97(i)
             if (i.le. 9) param(i,98) = p98(i)
          enddo
       endif
            
       bbarhiq2ds=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
       bbarhiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) bbarhiq2ds=0.0
       if (q2.lt.q2min) bbarhiq2ds=0.0
       if ( x.gt. xmax) bbarhiq2ds=0.0
       if ( x.lt. xmin) bbarhiq2ds=0.0
       return
       end
       real function  glu0hiq2ds(xin,q2in)
***********************************************************
c  parametrization of glu0hiq2ds from a fit to f2p data
c  available for :  0.970000 >= x >=  0.000011  and 
c         
c                    71000.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=  71000.000)
       double precision qbin( 98),t,dchsum
       integer nqbin( 98)
       double precision param(0: 64,100)
       data   ilsave/0/
       data   qbin /      4.000
     &,     1.070,     1.206,     1.359,     1.531,     1.726,     1.944
     &,     2.191,     2.250,     2.469,     2.782,     3.135,     3.532
     &,     3.980,     4.000,     4.485,     5.053,     5.694,     6.416
     &,     7.229,     8.146,     9.179,    10.343,    11.654,    13.132
     &,    14.797,    16.674,    18.788,    21.170,    23.854,    25.000
     &,    26.879,    30.287,    34.128,    38.455,    43.331,    48.825
     &,    55.016,    61.992,    69.853,    78.710,    88.690,    99.936
     &,   112.608,   126.886,   142.975,   161.104,   181.532,   204.550
     &,   230.486,   259.711,   292.642,   329.749,   371.560,   418.673
     &,   471.760,   531.579,   598.982,   674.932,   760.512,   856.943
     &,   965.602,  1088.039,  1226.000,  1381.454,  1556.620,  1753.997
     &,  1976.400,  2227.004,  2509.384,  2827.569,  3186.100,  3590.091
     &,  4045.308,  4558.246,  5136.223,  5787.486,  6521.328,  7348.220
     &,  8279.961,  9329.845, 10512.851, 11845.861, 13347.894, 15040.382
     &, 16947.474, 19096.382, 21517.767, 24246.180, 27320.550, 30784.744
     &, 34688.192, 39086.589, 44042.696, 49627.227, 55919.866, 63010.400
     &, 71000.000
     & /
       save param
       real p15(0:21)
       data p15/
     & 0.23798E+01,-0.23038E+01,-0.26685E+00,-0.13585E+00, 0.89546E-01,
     & 0.12969E+00, 0.86285E-01, 0.33997E-01, 0.37337E-02,-0.58012E-02,
     &-0.51894E-02,-0.25260E-02,-0.86065E-03,-0.51861E-03,-0.80767E-03,
     &-0.11470E-02,-0.11554E-02,-0.11673E-02,-0.84706E-03,-0.63439E-03,
     &-0.43882E-03,-0.28108E-03
     & /
       real p16(0:21)
       data p16/
     & 0.29149E+01,-0.29711E+01,-0.15743E+00,-0.13242E+00, 0.10458E+00,
     & 0.13670E+00, 0.87723E-01, 0.32858E-01, 0.22820E-02,-0.66518E-02,
     &-0.54668E-02,-0.25446E-02,-0.82428E-03,-0.53985E-03,-0.86664E-03,
     &-0.12269E-02,-0.12124E-02,-0.12159E-02,-0.87180E-03,-0.63588E-03,
     &-0.43852E-03,-0.28401E-03
     & /
       real p17(0:20)
       data p17/
     & 0.35438E+01,-0.37733E+01,-0.39802E-02,-0.13150E+00, 0.12035E+00,
     & 0.14322E+00, 0.88658E-01, 0.31419E-01, 0.72285E-03,-0.74967E-02,
     &-0.57092E-02,-0.25412E-02,-0.77738E-03,-0.56279E-03,-0.92611E-03,
     &-0.13072E-02,-0.12657E-02,-0.12608E-02,-0.89384E-03,-0.63203E-03,
     &-0.43538E-03
     & /
       real p18(0:20)
       data p18/
     & 0.42473E+01,-0.46882E+01, 0.19314E+00,-0.13465E+00, 0.13616E+00,
     & 0.14895E+00, 0.89077E-01, 0.29769E-01,-0.85931E-03,-0.82919E-02,
     &-0.59052E-02,-0.25175E-02,-0.72284E-03,-0.58717E-03,-0.98334E-03,
     &-0.13846E-02,-0.13131E-02,-0.13003E-02,-0.91267E-03,-0.62304E-03,
     &-0.42971E-03
     & /
       real p19(0:19)
       data p19/
     & 0.50280E+01,-0.57208E+01, 0.43746E+00,-0.14327E+00, 0.15202E+00,
     & 0.15391E+00, 0.89036E-01, 0.27949E-01,-0.24469E-02,-0.90340E-02,
     &-0.60570E-02,-0.24764E-02,-0.66196E-03,-0.61356E-03,-0.10382E-02,
     &-0.14592E-02,-0.13547E-02,-0.13346E-02,-0.92890E-03,-0.60926E-03
     & /
       real p20(0:19)
       data p20/
     & 0.58882E+01,-0.68757E+01, 0.73234E+00,-0.15874E+00, 0.16800E+00,
     & 0.15813E+00, 0.88591E-01, 0.25994E-01,-0.40258E-02,-0.97206E-02,
     &-0.61671E-02,-0.24206E-02,-0.59582E-03,-0.64244E-03,-0.10905E-02,
     &-0.15311E-02,-0.13909E-02,-0.13642E-02,-0.94313E-03,-0.59098E-03
     & /
       real p21(0:19)
       data p21/
     & 0.68303E+01,-0.81571E+01, 0.10810E+01,-0.18247E+00, 0.18419E+00,
     & 0.16162E+00, 0.87787E-01, 0.23933E-01,-0.55847E-02,-0.10351E-01,
     &-0.62381E-02,-0.23528E-02,-0.52537E-03,-0.67422E-03,-0.11402E-02,
     &-0.16006E-02,-0.14219E-02,-0.13892E-02,-0.95587E-03,-0.56843E-03
     & /
       real p22(0:18)
       data p22/
     & 0.78563E+01,-0.95692E+01, 0.14867E+01,-0.21584E+00, 0.20071E+00,
     & 0.16443E+00, 0.86670E-01, 0.21792E-01,-0.71150E-02,-0.10924E-01,
     &-0.62725E-02,-0.22753E-02,-0.45137E-03,-0.70926E-03,-0.11871E-02,
     &-0.16678E-02,-0.14479E-02,-0.14100E-02,-0.96764E-03
     & /
       real p23(0:17)
       data p23/
     & 0.89682E+01,-0.11116E+02, 0.19523E+01,-0.26023E+00, 0.21771E+00,
     & 0.16657E+00, 0.85280E-01, 0.19593E-01,-0.86097E-02,-0.11442E-01,
     &-0.62731E-02,-0.21901E-02,-0.37445E-03,-0.74785E-03,-0.12310E-02,
     &-0.17328E-02,-0.14693E-02,-0.14267E-02
     & /
       real p24(0:17)
       data p24/
     & 0.10168E+02,-0.12800E+02, 0.24806E+01,-0.31700E+00, 0.23537E+00,
     & 0.16806E+00, 0.83652E-01, 0.17354E-01,-0.10064E-01,-0.11904E-01,
     &-0.62425E-02,-0.20994E-02,-0.29511E-03,-0.79023E-03,-0.12719E-02,
     &-0.17958E-02,-0.14863E-02,-0.14397E-02
     & /
       real p25(0:17)
       data p25/
     & 0.11457E+02,-0.14627E+02, 0.30745E+01,-0.38749E+00, 0.25390E+00,
     & 0.16892E+00, 0.81819E-01, 0.15091E-01,-0.11473E-01,-0.12313E-01,
     &-0.61831E-02,-0.20050E-02,-0.21375E-03,-0.83662E-03,-0.13095E-02,
     &-0.18570E-02,-0.14991E-02,-0.14491E-02
     & /
       real p26(0:12)
       data p26/
     & 0.12837E+02,-0.16597E+02, 0.37367E+01,-0.47302E+00, 0.27340E+00,
     & 0.16940E+00, 0.79680E-01, 0.12722E-01,-0.12771E-01,-0.12856E-01,
     &-0.59945E-02,-0.23035E-02,-0.45585E-03
     & /
       real p27(0:12)
       data p27/
     & 0.14310E+02,-0.18715E+02, 0.44694E+01,-0.57489E+00, 0.29429E+00,
     & 0.16908E+00, 0.77509E-01, 0.10448E-01,-0.14060E-01,-0.13180E-01,
     &-0.58336E-02,-0.22328E-02,-0.35334E-03
     & /
       real p28(0:12)
       data p28/
     & 0.15877E+02,-0.20984E+02, 0.52750E+01,-0.69436E+00, 0.31675E+00,
     & 0.16817E+00, 0.75213E-01, 0.81851E-02,-0.15298E-01,-0.13459E-01,
     &-0.56466E-02,-0.21665E-02,-0.24872E-03
     & /
       real p29(0:12)
       data p29/
     & 0.17539E+02,-0.23406E+02, 0.61560E+01,-0.83267E+00, 0.34104E+00,
     & 0.16668E+00, 0.72816E-01, 0.59416E-02,-0.16482E-01,-0.13694E-01,
     &-0.54353E-02,-0.21061E-02,-0.14214E-03
     & /
       real p30(0:12)
       data p30/
     & 0.19298E+02,-0.25983E+02, 0.71144E+01,-0.99103E+00, 0.36742E+00,
     & 0.16461E+00, 0.70338E-01, 0.37246E-02,-0.17613E-01,-0.13888E-01,
     &-0.52016E-02,-0.20528E-02,-0.33667E-04
     & /
       real p31(0:12)
       data p31/
     & 0.19979E+02,-0.26957E+02, 0.74587E+01,-0.10574E+01, 0.38038E+00,
     & 0.16833E+00, 0.71552E-01, 0.27530E-02,-0.18974E-01,-0.14677E-01,
     &-0.53606E-02,-0.19941E-02, 0.14601E-03
     & /
       real p32(0:12)
       data p32/
     & 0.21071E+02,-0.28566E+02, 0.80701E+01,-0.11635E+01, 0.39749E+00,
     & 0.16672E+00, 0.70008E-01, 0.14605E-02,-0.19578E-01,-0.14737E-01,
     &-0.51926E-02,-0.19628E-02, 0.20397E-03
     & /
       real p33(0:12)
       data p33/
     & 0.22944E+02,-0.31338E+02, 0.91395E+01,-0.13553E+01, 0.42770E+00,
     & 0.16360E+00, 0.67423E-01,-0.63999E-03,-0.20532E-01,-0.14808E-01,
     &-0.49018E-02,-0.19190E-02, 0.30017E-03
     & /
       real p34(0:11)
       data p34/
     & 0.24911E+02,-0.34264E+02, 0.10288E+02,-0.15693E+01, 0.46066E+00,
     & 0.15988E+00, 0.64802E-01,-0.27001E-02,-0.21434E-01,-0.14844E-01,
     &-0.45948E-02,-0.18860E-02
     & /
       real p35(0:11)
       data p35/
     & 0.26974E+02,-0.37346E+02, 0.11518E+02,-0.18066E+01, 0.49664E+00,
     & 0.15555E+00, 0.62160E-01,-0.47162E-02,-0.22284E-01,-0.14850E-01,
     &-0.42730E-02,-0.18644E-02
     & /
       real p36(0:11)
       data p36/
     & 0.29133E+02,-0.40585E+02, 0.12831E+02,-0.20683E+01, 0.53594E+00,
     & 0.15059E+00, 0.59511E-01,-0.66851E-02,-0.23084E-01,-0.14825E-01,
     &-0.39375E-02,-0.18550E-02
     & /
       real p37(0:11)
       data p37/
     & 0.31389E+02,-0.43983E+02, 0.14228E+02,-0.23554E+01, 0.57886E+00,
     & 0.14500E+00, 0.56871E-01,-0.86044E-02,-0.23836E-01,-0.14774E-01,
     &-0.35894E-02,-0.18583E-02
     & /
       real p38(0:11)
       data p38/
     & 0.33743E+02,-0.47543E+02, 0.15711E+02,-0.26689E+01, 0.62569E+00,
     & 0.13874E+00, 0.54253E-01,-0.10472E-01,-0.24540E-01,-0.14696E-01,
     &-0.32297E-02,-0.18749E-02
     & /
       real p39(0:11)
       data p39/
     & 0.36195E+02,-0.51265E+02, 0.17282E+02,-0.30098E+01, 0.67673E+00,
     & 0.13179E+00, 0.51668E-01,-0.12287E-01,-0.25199E-01,-0.14595E-01,
     &-0.28592E-02,-0.19053E-02
     & /
       real p40(0:11)
       data p40/
     & 0.38748E+02,-0.55152E+02, 0.18942E+02,-0.33791E+01, 0.73227E+00,
     & 0.12413E+00, 0.49129E-01,-0.14049E-01,-0.25813E-01,-0.14473E-01,
     &-0.24789E-02,-0.19500E-02
     & /
       real p41(0:11)
       data p41/
     & 0.41400E+02,-0.59204E+02, 0.20693E+02,-0.37776E+01, 0.79263E+00,
     & 0.11574E+00, 0.46647E-01,-0.15756E-01,-0.26385E-01,-0.14329E-01,
     &-0.20894E-02,-0.20092E-02
     & /
       real p42(0:11)
       data p42/
     & 0.44153E+02,-0.63423E+02, 0.22536E+02,-0.42063E+01, 0.85811E+00,
     & 0.10657E+00, 0.44232E-01,-0.17408E-01,-0.26915E-01,-0.14168E-01,
     &-0.16914E-02,-0.20834E-02
     & /
       real p43(0:11)
       data p43/
     & 0.47007E+02,-0.67810E+02, 0.24472E+02,-0.46661E+01, 0.92900E+00,
     & 0.96596E-01, 0.41895E-01,-0.19006E-01,-0.27406E-01,-0.13989E-01,
     &-0.12855E-02,-0.21728E-02
     & /
       real p44(0:11)
       data p44/
     & 0.49962E+02,-0.72366E+02, 0.26502E+02,-0.51579E+01, 0.10056E+01,
     & 0.85785E-01, 0.39645E-01,-0.20550E-01,-0.27859E-01,-0.13795E-01,
     &-0.87227E-03,-0.22777E-02
     & /
       real p45(0:11)
       data p45/
     & 0.53020E+02,-0.77093E+02, 0.28628E+02,-0.56823E+01, 0.10882E+01,
     & 0.74098E-01, 0.37493E-01,-0.22040E-01,-0.28276E-01,-0.13586E-01,
     &-0.45211E-03,-0.23982E-02
     & /
       real p46(0:11)
       data p46/
     & 0.56181E+02,-0.81990E+02, 0.30850E+02,-0.62404E+01, 0.11772E+01,
     & 0.61496E-01, 0.35447E-01,-0.23477E-01,-0.28658E-01,-0.13365E-01,
     &-0.25466E-04,-0.25347E-02
     & /
       real p47(0:11)
       data p47/
     & 0.59444E+02,-0.87060E+02, 0.33170E+02,-0.68327E+01, 0.12727E+01,
     & 0.47937E-01, 0.33516E-01,-0.24862E-01,-0.29007E-01,-0.13132E-01,
     & 0.40728E-03,-0.26872E-02
     & /
       real p48(0:11)
       data p48/
     & 0.62810E+02,-0.92303E+02, 0.35589E+02,-0.74602E+01, 0.13752E+01,
     & 0.33379E-01, 0.31710E-01,-0.26196E-01,-0.29324E-01,-0.12889E-01,
     & 0.84579E-03,-0.28558E-02
     & /
       real p49(0:11)
       data p49/
     & 0.66280E+02,-0.97719E+02, 0.38108E+02,-0.81234E+01, 0.14848E+01,
     & 0.17778E-01, 0.30037E-01,-0.27480E-01,-0.29612E-01,-0.12636E-01,
     & 0.12898E-02,-0.30407E-02
     & /
       real p50(0:11)
       data p50/
     & 0.69854E+02,-0.10331E+03, 0.40726E+02,-0.88232E+01, 0.16019E+01,
     & 0.10871E-02, 0.28506E-01,-0.28716E-01,-0.29870E-01,-0.12375E-01,
     & 0.17390E-02,-0.32420E-02
     & /
       real p51(0:11)
       data p51/
     & 0.73532E+02,-0.10908E+03, 0.43447E+02,-0.95603E+01, 0.17268E+01,
     &-0.16739E-01, 0.27125E-01,-0.29905E-01,-0.30102E-01,-0.12107E-01,
     & 0.21933E-02,-0.34598E-02
     & /
       real p52(0:11)
       data p52/
     & 0.77314E+02,-0.11502E+03, 0.46269E+02,-0.10335E+02, 0.18598E+01,
     &-0.35749E-01, 0.25903E-01,-0.31049E-01,-0.30307E-01,-0.11832E-01,
     & 0.26524E-02,-0.36941E-02
     & /
       real p53(0:11)
       data p53/
     & 0.81200E+02,-0.12113E+03, 0.49195E+02,-0.11149E+02, 0.20010E+01,
     &-0.55992E-01, 0.24847E-01,-0.32149E-01,-0.30488E-01,-0.11553E-01,
     & 0.31162E-02,-0.39449E-02
     & /
       real p54(0:11)
       data p54/
     & 0.85191E+02,-0.12743E+03, 0.52224E+02,-0.12001E+02, 0.21509E+01,
     &-0.77519E-01, 0.23967E-01,-0.33207E-01,-0.30646E-01,-0.11268E-01,
     & 0.35845E-02,-0.42123E-02
     & /
       real p55(0:11)
       data p55/
     & 0.89286E+02,-0.13390E+03, 0.55357E+02,-0.12894E+02, 0.23097E+01,
     &-0.10038E+00, 0.23271E-01,-0.34224E-01,-0.30782E-01,-0.10980E-01,
     & 0.40574E-02,-0.44963E-02
     & /
       real p56(0:11)
       data p56/
     & 0.93486E+02,-0.14055E+03, 0.58595E+02,-0.13826E+02, 0.24775E+01,
     &-0.12463E+00, 0.22766E-01,-0.35203E-01,-0.30897E-01,-0.10689E-01,
     & 0.45346E-02,-0.47970E-02
     & /
       real p57(0:11)
       data p57/
     & 0.97791E+02,-0.14737E+03, 0.61939E+02,-0.14800E+02, 0.26548E+01,
     &-0.15031E+00, 0.22462E-01,-0.36144E-01,-0.30992E-01,-0.10395E-01,
     & 0.50161E-02,-0.51143E-02
     & /
       real p58(0:11)
       data p58/
     & 0.10220E+03,-0.15438E+03, 0.65389E+02,-0.15815E+02, 0.28418E+01,
     &-0.17749E+00, 0.22367E-01,-0.37051E-01,-0.31069E-01,-0.10100E-01,
     & 0.55019E-02,-0.54482E-02
     & /
       real p59(0:11)
       data p59/
     & 0.10672E+03,-0.16156E+03, 0.68946E+02,-0.16872E+02, 0.30387E+01,
     &-0.20621E+00, 0.22489E-01,-0.37925E-01,-0.31128E-01,-0.98037E-02,
     & 0.59919E-02,-0.57987E-02
     & /
       real p60(0:11)
       data p60/
     & 0.11134E+03,-0.16892E+03, 0.72609E+02,-0.17972E+02, 0.32457E+01,
     &-0.23654E+00, 0.22836E-01,-0.38768E-01,-0.31171E-01,-0.95069E-02,
     & 0.64862E-02,-0.61658E-02
     & /
       real p61(0:11)
       data p61/
     & 0.11606E+03,-0.17646E+03, 0.76381E+02,-0.19115E+02, 0.34631E+01,
     &-0.26851E+00, 0.23417E-01,-0.39581E-01,-0.31198E-01,-0.92103E-02,
     & 0.69848E-02,-0.65494E-02
     & /
       real p62(0:11)
       data p62/
     & 0.12089E+03,-0.18418E+03, 0.80260E+02,-0.20301E+02, 0.36912E+01,
     &-0.30220E+00, 0.24240E-01,-0.40368E-01,-0.31211E-01,-0.89143E-02,
     & 0.74876E-02,-0.69496E-02
     & /
       real p63(0:11)
       data p63/
     & 0.12582E+03,-0.19207E+03, 0.84248E+02,-0.21531E+02, 0.39303E+01,
     &-0.33765E+00, 0.25314E-01,-0.41129E-01,-0.31209E-01,-0.86193E-02,
     & 0.79947E-02,-0.73663E-02
     & /
       real p64(0:11)
       data p64/
     & 0.13086E+03,-0.20015E+03, 0.88345E+02,-0.22805E+02, 0.41804E+01,
     &-0.37493E+00, 0.26648E-01,-0.41867E-01,-0.31195E-01,-0.83259E-02,
     & 0.85061E-02,-0.77995E-02
     & /
       real p65(0:11)
       data p65/
     & 0.13600E+03,-0.20840E+03, 0.92551E+02,-0.24124E+02, 0.44419E+01,
     &-0.41407E+00, 0.28250E-01,-0.42585E-01,-0.31169E-01,-0.80345E-02,
     & 0.90220E-02,-0.82490E-02
     & /
       real p66(0:11)
       data p66/
     & 0.14125E+03,-0.21683E+03, 0.96866E+02,-0.25488E+02, 0.47149E+01,
     &-0.45516E+00, 0.30129E-01,-0.43283E-01,-0.31132E-01,-0.77454E-02,
     & 0.95422E-02,-0.87150E-02
     & /
       real p67(0:11)
       data p67/
     & 0.14660E+03,-0.22544E+03, 0.10129E+03,-0.26898E+02, 0.49998E+01,
     &-0.49822E+00, 0.32293E-01,-0.43964E-01,-0.31084E-01,-0.74590E-02,
     & 0.10067E-01,-0.91973E-02
     & /
       real p68(0:11)
       data p68/
     & 0.15206E+03,-0.23423E+03, 0.10583E+03,-0.28354E+02, 0.52967E+01,
     &-0.54334E+00, 0.34752E-01,-0.44630E-01,-0.31026E-01,-0.71757E-02,
     & 0.10596E-01,-0.96959E-02
     & /
       real p69(0:10)
       data p69/
     & 0.15762E+03,-0.24320E+03, 0.11047E+03,-0.29856E+02, 0.56058E+01,
     &-0.59055E+00, 0.37514E-01,-0.45283E-01,-0.30958E-01,-0.68958E-02,
     & 0.11130E-01
     & /
       real p70(0:10)
       data p70/
     & 0.16328E+03,-0.25235E+03, 0.11523E+03,-0.31405E+02, 0.59274E+01,
     &-0.63991E+00, 0.40589E-01,-0.45925E-01,-0.30882E-01,-0.66196E-02,
     & 0.11669E-01
     & /
       real p71(0:10)
       data p71/
     & 0.16905E+03,-0.26167E+03, 0.12010E+03,-0.33001E+02, 0.62616E+01,
     &-0.69149E+00, 0.43985E-01,-0.46559E-01,-0.30798E-01,-0.63474E-02,
     & 0.12212E-01
     & /
       real p72(0:10)
       data p72/
     & 0.17492E+03,-0.27118E+03, 0.12507E+03,-0.34644E+02, 0.66087E+01,
     &-0.74533E+00, 0.47711E-01,-0.47186E-01,-0.30707E-01,-0.60794E-02,
     & 0.12761E-01
     & /
       real p73(0:10)
       data p73/
     & 0.18090E+03,-0.28086E+03, 0.13016E+03,-0.36335E+02, 0.69688E+01,
     &-0.80150E+00, 0.51776E-01,-0.47808E-01,-0.30608E-01,-0.58160E-02,
     & 0.13314E-01
     & /
       real p74(0:10)
       data p74/
     & 0.18698E+03,-0.29072E+03, 0.13536E+03,-0.38074E+02, 0.73421E+01,
     &-0.86004E+00, 0.56190E-01,-0.48428E-01,-0.30503E-01,-0.55573E-02,
     & 0.13873E-01
     & /
       real p75(0:10)
       data p75/
     & 0.19316E+03,-0.30075E+03, 0.14067E+03,-0.39861E+02, 0.77289E+01,
     &-0.92101E+00, 0.60961E-01,-0.49047E-01,-0.30392E-01,-0.53035E-02,
     & 0.14436E-01
     & /
       real p76(0:10)
       data p76/
     & 0.19944E+03,-0.31097E+03, 0.14610E+03,-0.41696E+02, 0.81292E+01,
     &-0.98447E+00, 0.66100E-01,-0.49668E-01,-0.30275E-01,-0.50548E-02,
     & 0.15005E-01
     & /
       real p77(0:10)
       data p77/
     & 0.20583E+03,-0.32136E+03, 0.15163E+03,-0.43581E+02, 0.85434E+01,
     &-0.10505E+01, 0.71614E-01,-0.50293E-01,-0.30152E-01,-0.48115E-02,
     & 0.15579E-01
     & /
       real p78(0:10)
       data p78/
     & 0.21231E+03,-0.33192E+03, 0.15728E+03,-0.45514E+02, 0.89715E+01,
     &-0.11191E+01, 0.77514E-01,-0.50923E-01,-0.30025E-01,-0.45737E-02,
     & 0.16159E-01
     & /
       real p79(0:10)
       data p79/
     & 0.21890E+03,-0.34267E+03, 0.16304E+03,-0.47497E+02, 0.94137E+01,
     &-0.11903E+01, 0.83809E-01,-0.51561E-01,-0.29894E-01,-0.43416E-02,
     & 0.16744E-01
     & /
       real p80(0:10)
       data p80/
     & 0.22560E+03,-0.35359E+03, 0.16891E+03,-0.49529E+02, 0.98702E+01,
     &-0.12643E+01, 0.90509E-01,-0.52209E-01,-0.29758E-01,-0.41153E-02,
     & 0.17335E-01
     & /
       real p81(0:10)
       data p81/
     & 0.23239E+03,-0.36468E+03, 0.17489E+03,-0.51611E+02, 0.10341E+02,
     &-0.13410E+01, 0.97621E-01,-0.52869E-01,-0.29618E-01,-0.38949E-02,
     & 0.17931E-01
     & /
       real p82(0:10)
       data p82/
     & 0.23929E+03,-0.37595E+03, 0.18098E+03,-0.53743E+02, 0.10827E+02,
     &-0.14205E+01, 0.10516E+00,-0.53543E-01,-0.29475E-01,-0.36806E-02,
     & 0.18534E-01
     & /
       real p83(0:10)
       data p83/
     & 0.24628E+03,-0.38740E+03, 0.18719E+03,-0.55925E+02, 0.11327E+02,
     &-0.15028E+01, 0.11313E+00,-0.54234E-01,-0.29329E-01,-0.34725E-02,
     & 0.19142E-01
     & /
       real p84(0:10)
       data p84/
     & 0.25338E+03,-0.39902E+03, 0.19351E+03,-0.58157E+02, 0.11843E+02,
     &-0.15881E+01, 0.12154E+00,-0.54942E-01,-0.29179E-01,-0.32707E-02,
     & 0.19757E-01
     & /
       real p85(0:10)
       data p85/
     & 0.26058E+03,-0.41081E+03, 0.19994E+03,-0.60440E+02, 0.12373E+02,
     &-0.16764E+01, 0.13040E+00,-0.55670E-01,-0.29026E-01,-0.30753E-02,
     & 0.20378E-01
     & /
       real p86(0:10)
       data p86/
     & 0.26787E+03,-0.42278E+03, 0.20648E+03,-0.62773E+02, 0.12919E+02,
     &-0.17676E+01, 0.13972E+00,-0.56420E-01,-0.28871E-01,-0.28864E-02,
     & 0.21004E-01
     & /
       real p87(0:10)
       data p87/
     & 0.27527E+03,-0.43492E+03, 0.21313E+03,-0.65157E+02, 0.13480E+02,
     &-0.18619E+01, 0.14952E+00,-0.57195E-01,-0.28713E-01,-0.27041E-02,
     & 0.21638E-01
     & /
       real p88(0:10)
       data p88/
     & 0.28277E+03,-0.44724E+03, 0.21989E+03,-0.67593E+02, 0.14056E+02,
     &-0.19594E+01, 0.15979E+00,-0.57996E-01,-0.28552E-01,-0.25284E-02,
     & 0.22278E-01
     & /
       real p89(0:10)
       data p89/
     & 0.29036E+03,-0.45972E+03, 0.22677E+03,-0.70079E+02, 0.14648E+02,
     &-0.20600E+01, 0.17055E+00,-0.58825E-01,-0.28390E-01,-0.23595E-02,
     & 0.22924E-01
     & /
       real p90(0:10)
       data p90/
     & 0.29806E+03,-0.47238E+03, 0.23376E+03,-0.72617E+02, 0.15256E+02,
     &-0.21638E+01, 0.18182E+00,-0.59685E-01,-0.28225E-01,-0.21973E-02,
     & 0.23577E-01
     & /
       real p91(0: 9)
       data p91/
     & 0.30585E+03,-0.48521E+03, 0.24086E+03,-0.75206E+02, 0.15880E+02,
     &-0.22708E+01, 0.19359E+00,-0.60576E-01,-0.28059E-01,-0.20420E-02
     & /
       real p92(0: 9)
       data p92/
     & 0.31374E+03,-0.49822E+03, 0.24807E+03,-0.77847E+02, 0.16520E+02,
     &-0.23812E+01, 0.20588E+00,-0.61502E-01,-0.27890E-01,-0.18936E-02
     & /
       real p93(0: 9)
       data p93/
     & 0.32212E+03,-0.51191E+03, 0.25552E+03,-0.80532E+02, 0.17170E+02,
     &-0.24907E+01, 0.21774E+00,-0.63409E-01,-0.28327E-01,-0.18610E-02
     & /
       real p94(0: 9)
       data p94/
     & 0.33022E+03,-0.52529E+03, 0.26297E+03,-0.83280E+02, 0.17843E+02,
     &-0.26079E+01, 0.23109E+00,-0.64389E-01,-0.28138E-01,-0.17228E-02
     & /
       real p95(0: 9)
       data p95/
     & 0.33843E+03,-0.53883E+03, 0.27053E+03,-0.86082E+02, 0.18532E+02,
     &-0.27286E+01, 0.24501E+00,-0.65411E-01,-0.27947E-01,-0.15918E-02
     & /
       real p96(0: 9)
       data p96/
     & 0.34673E+03,-0.55256E+03, 0.27821E+03,-0.88937E+02, 0.19239E+02,
     &-0.28528E+01, 0.25949E+00,-0.66475E-01,-0.27754E-01,-0.14681E-02
     & /
       real p97(0: 9)
       data p97/
     & 0.35514E+03,-0.56646E+03, 0.28600E+03,-0.91845E+02, 0.19962E+02,
     &-0.29807E+01, 0.27454E+00,-0.67584E-01,-0.27559E-01,-0.13518E-02
     & /
       real p98(0: 9)
       data p98/
     & 0.36365E+03,-0.58053E+03, 0.29390E+03,-0.94808E+02, 0.20703E+02,
     &-0.31123E+01, 0.29019E+00,-0.68739E-01,-0.27363E-01,-0.12428E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  21,  21,  20,  20,  19,  19,  19
     &,  18,  17,  17,  17,  12,  12,  12,  12,  12,  12
     &,  12,  12,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,  10,  10,  10,   9
     &,   9,   9,   9,   9,   9,   9,   9
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.21) param(i,15) = p15(i)
             if (i.le.21) param(i,16) = p16(i)
             if (i.le.20) param(i,17) = p17(i)
             if (i.le.20) param(i,18) = p18(i)
             if (i.le.19) param(i,19) = p19(i)
             if (i.le.19) param(i,20) = p20(i)
             if (i.le.19) param(i,21) = p21(i)
             if (i.le.18) param(i,22) = p22(i)
             if (i.le.17) param(i,23) = p23(i)
             if (i.le.17) param(i,24) = p24(i)
             if (i.le.17) param(i,25) = p25(i)
             if (i.le.12) param(i,26) = p26(i)
             if (i.le.12) param(i,27) = p27(i)
             if (i.le.12) param(i,28) = p28(i)
             if (i.le.12) param(i,29) = p29(i)
             if (i.le.12) param(i,30) = p30(i)
             if (i.le.12) param(i,31) = p31(i)
             if (i.le.12) param(i,32) = p32(i)
             if (i.le.12) param(i,33) = p33(i)
             if (i.le.11) param(i,34) = p34(i)
             if (i.le.11) param(i,35) = p35(i)
             if (i.le.11) param(i,36) = p36(i)
             if (i.le.11) param(i,37) = p37(i)
             if (i.le.11) param(i,38) = p38(i)
             if (i.le.11) param(i,39) = p39(i)
             if (i.le.11) param(i,40) = p40(i)
             if (i.le.11) param(i,41) = p41(i)
             if (i.le.11) param(i,42) = p42(i)
             if (i.le.11) param(i,43) = p43(i)
             if (i.le.11) param(i,44) = p44(i)
             if (i.le.11) param(i,45) = p45(i)
             if (i.le.11) param(i,46) = p46(i)
             if (i.le.11) param(i,47) = p47(i)
             if (i.le.11) param(i,48) = p48(i)
             if (i.le.11) param(i,49) = p49(i)
             if (i.le.11) param(i,50) = p50(i)
             if (i.le.11) param(i,51) = p51(i)
             if (i.le.11) param(i,52) = p52(i)
             if (i.le.11) param(i,53) = p53(i)
             if (i.le.11) param(i,54) = p54(i)
             if (i.le.11) param(i,55) = p55(i)
             if (i.le.11) param(i,56) = p56(i)
             if (i.le.11) param(i,57) = p57(i)
             if (i.le.11) param(i,58) = p58(i)
             if (i.le.11) param(i,59) = p59(i)
             if (i.le.11) param(i,60) = p60(i)
             if (i.le.11) param(i,61) = p61(i)
             if (i.le.11) param(i,62) = p62(i)
             if (i.le.11) param(i,63) = p63(i)
             if (i.le.11) param(i,64) = p64(i)
             if (i.le.11) param(i,65) = p65(i)
             if (i.le.11) param(i,66) = p66(i)
             if (i.le.11) param(i,67) = p67(i)
             if (i.le.11) param(i,68) = p68(i)
             if (i.le.10) param(i,69) = p69(i)
             if (i.le.10) param(i,70) = p70(i)
             if (i.le.10) param(i,71) = p71(i)
             if (i.le.10) param(i,72) = p72(i)
             if (i.le.10) param(i,73) = p73(i)
             if (i.le.10) param(i,74) = p74(i)
             if (i.le.10) param(i,75) = p75(i)
             if (i.le.10) param(i,76) = p76(i)
             if (i.le.10) param(i,77) = p77(i)
             if (i.le.10) param(i,78) = p78(i)
             if (i.le.10) param(i,79) = p79(i)
             if (i.le.10) param(i,80) = p80(i)
             if (i.le.10) param(i,81) = p81(i)
             if (i.le.10) param(i,82) = p82(i)
             if (i.le.10) param(i,83) = p83(i)
             if (i.le.10) param(i,84) = p84(i)
             if (i.le.10) param(i,85) = p85(i)
             if (i.le.10) param(i,86) = p86(i)
             if (i.le.10) param(i,87) = p87(i)
             if (i.le.10) param(i,88) = p88(i)
             if (i.le.10) param(i,89) = p89(i)
             if (i.le.10) param(i,90) = p90(i)
             if (i.le. 9) param(i,91) = p91(i)
             if (i.le. 9) param(i,92) = p92(i)
             if (i.le. 9) param(i,93) = p93(i)
             if (i.le. 9) param(i,94) = p94(i)
             if (i.le. 9) param(i,95) = p95(i)
             if (i.le. 9) param(i,96) = p96(i)
             if (i.le. 9) param(i,97) = p97(i)
             if (i.le. 9) param(i,98) = p98(i)
          enddo
       endif
            
       glu0hiq2ds=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
       glu0hiq2ds=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) glu0hiq2ds=0.0
       if (q2.lt.q2min) glu0hiq2ds=0.0
       if ( x.gt. xmax) glu0hiq2ds=0.0
       if ( x.lt. xmin) glu0hiq2ds=0.0
       return
       end
