**************************************************************************
**************************************************************************
*  
* 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
*
*
*
**************************************************************************
**************************************************************************
       real function  f2nchiq200(xin,q2in)
***********************************************************
c  parametrization of f2nchiq200 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:22)
       data p15/
     & 0.43459E+00,-0.34660E+00, 0.84377E-01,-0.53392E-01,-0.47671E-01,
     &-0.43864E-01,-0.28762E-01,-0.13940E-01,-0.34003E-02, 0.23565E-02,
     & 0.44645E-02, 0.44463E-02, 0.35429E-02, 0.24637E-02, 0.15929E-02,
     & 0.98298E-03, 0.61009E-03, 0.39623E-03, 0.26068E-03, 0.19115E-03,
     & 0.13075E-03, 0.81937E-04, 0.67037E-04
     & /
       real p16(0:22)
       data p16/
     & 0.49439E+00,-0.41143E+00, 0.99543E-01,-0.58744E-01,-0.51228E-01,
     &-0.46366E-01,-0.29794E-01,-0.13976E-01,-0.29359E-02, 0.29587E-02,
     & 0.49921E-02, 0.48206E-02, 0.37702E-02, 0.25784E-02, 0.16406E-02,
     & 0.99462E-03, 0.60723E-03, 0.38986E-03, 0.25302E-03, 0.18642E-03,
     & 0.12608E-03, 0.76513E-04, 0.64679E-04
     & /
       real p17(0:22)
       data p17/
     & 0.56169E+00,-0.48653E+00, 0.11780E+00,-0.64700E-01,-0.54830E-01,
     &-0.48835E-01,-0.30740E-01,-0.13922E-01,-0.24002E-02, 0.36059E-02,
     & 0.55403E-02, 0.51980E-02, 0.39918E-02, 0.26839E-02, 0.16795E-02,
     & 0.99908E-03, 0.59917E-03, 0.38003E-03, 0.24284E-03, 0.18027E-03,
     & 0.12034E-03, 0.70101E-04, 0.62003E-04
     & /
       real p18(0:21)
       data p18/
     & 0.63414E+00,-0.56947E+00, 0.13875E+00,-0.71090E-01,-0.58307E-01,
     &-0.51167E-01,-0.31563E-01,-0.13784E-01,-0.18201E-02, 0.42674E-02,
     & 0.60835E-02, 0.55612E-02, 0.41977E-02, 0.27755E-02, 0.17081E-02,
     & 0.99642E-03, 0.58654E-03, 0.36744E-03, 0.23076E-03, 0.17314E-03,
     & 0.11392E-03, 0.63052E-04
     & /
       real p19(0:21)
       data p19/
     & 0.71190E+00,-0.66055E+00, 0.16257E+00,-0.77969E-01,-0.61652E-01,
     &-0.53373E-01,-0.32274E-01,-0.13572E-01,-0.12023E-02, 0.49393E-02,
     & 0.66198E-02, 0.59097E-02, 0.43882E-02, 0.28539E-02, 0.17272E-02,
     & 0.98734E-03, 0.56990E-03, 0.35252E-03, 0.21709E-03, 0.16527E-03,
     & 0.10697E-03, 0.55476E-04
     & /
       real p20(0:20)
       data p20/
     & 0.79513E+00,-0.76002E+00, 0.18948E+00,-0.85397E-01,-0.64856E-01,
     &-0.55459E-01,-0.32883E-01,-0.13294E-01,-0.55235E-03, 0.56182E-02,
     & 0.71476E-02, 0.62431E-02, 0.45637E-02, 0.29198E-02, 0.17376E-02,
     & 0.97249E-03, 0.54976E-03, 0.33567E-03, 0.20209E-03, 0.15685E-03,
     & 0.99634E-04
     & /
       real p21(0:20)
       data p21/
     & 0.88398E+00,-0.86814E+00, 0.21964E+00,-0.93431E-01,-0.67911E-01,
     &-0.57436E-01,-0.33400E-01,-0.12957E-01, 0.12481E-03, 0.63014E-02,
     & 0.76658E-02, 0.65614E-02, 0.47247E-02, 0.29738E-02, 0.17399E-02,
     & 0.95245E-03, 0.52659E-03, 0.31721E-03, 0.18598E-03, 0.14807E-03,
     & 0.92040E-04
     & /
       real p22(0:19)
       data p22/
     & 0.97858E+00,-0.98514E+00, 0.25324E+00,-0.10213E+00,-0.70807E-01,
     &-0.59311E-01,-0.33831E-01,-0.12567E-01, 0.82500E-03, 0.69866E-02,
     & 0.81736E-02, 0.68646E-02, 0.48718E-02, 0.30167E-02, 0.17349E-02,
     & 0.92779E-03, 0.50078E-03, 0.29746E-03, 0.16897E-03, 0.13907E-03
     & /
       real p23(0:19)
       data p23/
     & 0.10791E+01,-0.11113E+01, 0.29045E+00,-0.11155E+00,-0.73537E-01,
     &-0.61091E-01,-0.34184E-01,-0.12130E-01, 0.15446E-02, 0.76718E-02,
     & 0.86701E-02, 0.71527E-02, 0.50055E-02, 0.30490E-02, 0.17231E-02,
     & 0.89899E-03, 0.47271E-03, 0.27667E-03, 0.15122E-03, 0.12997E-03
     & /
       real p24(0:19)
       data p24/
     & 0.11856E+01,-0.12467E+01, 0.33144E+00,-0.12176E+00,-0.76090E-01,
     &-0.62785E-01,-0.34466E-01,-0.11650E-01, 0.22804E-02, 0.83553E-02,
     & 0.91548E-02, 0.74260E-02, 0.51263E-02, 0.30716E-02, 0.17052E-02,
     & 0.86651E-03, 0.44271E-03, 0.25509E-03, 0.13287E-03, 0.12088E-03
     & /
       real p25(0:19)
       data p25/
     & 0.12982E+01,-0.13917E+01, 0.37636E+00,-0.13280E+00,-0.78459E-01,
     &-0.64399E-01,-0.34681E-01,-0.11133E-01, 0.30297E-02, 0.90358E-02,
     & 0.96275E-02, 0.76848E-02, 0.52348E-02, 0.30849E-02, 0.16817E-02,
     & 0.83076E-03, 0.41107E-03, 0.23291E-03, 0.11405E-03, 0.11191E-03
     & /
       real p26(0:19)
       data p26/
     & 0.14171E+01,-0.15465E+01, 0.42538E+00,-0.14475E+00,-0.80633E-01,
     &-0.65939E-01,-0.34836E-01,-0.10582E-01, 0.37901E-02, 0.97120E-02,
     & 0.10088E-01, 0.79292E-02, 0.53317E-02, 0.30895E-02, 0.16531E-02,
     & 0.79213E-03, 0.37807E-03, 0.21032E-03, 0.94873E-04, 0.10312E-03
     & /
       real p27(0:19)
       data p27/
     & 0.15424E+01,-0.17112E+01, 0.47864E+00,-0.15765E+00,-0.82603E-01,
     &-0.67414E-01,-0.34934E-01,-0.99996E-02, 0.45595E-02, 0.10383E-01,
     & 0.10535E-01, 0.81597E-02, 0.54173E-02, 0.30859E-02, 0.16198E-02,
     & 0.75095E-03, 0.34392E-03, 0.18749E-03, 0.75417E-04, 0.94577E-04
     & /
       real p28(0:18)
       data p28/
     & 0.16741E+01,-0.18860E+01, 0.53629E+00,-0.17157E+00,-0.84360E-01,
     &-0.68828E-01,-0.34980E-01,-0.93897E-02, 0.53361E-02, 0.11048E-01,
     & 0.10971E-01, 0.83765E-02, 0.54924E-02, 0.30747E-02, 0.15824E-02,
     & 0.70755E-03, 0.30885E-03, 0.16454E-03, 0.55761E-04
     & /
       real p29(0:18)
       data p29/
     & 0.18123E+01,-0.20712E+01, 0.59847E+00,-0.18656E+00,-0.85894E-01,
     &-0.70187E-01,-0.34978E-01,-0.87548E-02, 0.61181E-02, 0.11707E-01,
     & 0.11393E-01, 0.85801E-02, 0.55573E-02, 0.30565E-02, 0.15411E-02,
     & 0.66219E-03, 0.27305E-03, 0.14161E-03, 0.35970E-04
     & /
       real p30(0:18)
       data p30/
     & 0.19573E+01,-0.22669E+01, 0.66531E+00,-0.20267E+00,-0.87195E-01,
     &-0.71498E-01,-0.34930E-01,-0.80972E-02, 0.69043E-02, 0.12358E-01,
     & 0.11803E-01, 0.87708E-02, 0.56126E-02, 0.30315E-02, 0.14965E-02,
     & 0.61515E-03, 0.23666E-03, 0.11880E-03, 0.16097E-04
     & /
       real p31(0:18)
       data p31/
     & 0.20225E+01,-0.23593E+01, 0.70024E+00,-0.20973E+00,-0.87818E-01,
     &-0.72530E-01,-0.35154E-01,-0.78265E-02, 0.73151E-02, 0.12692E-01,
     & 0.11990E-01, 0.88378E-02, 0.56178E-02, 0.30086E-02, 0.14736E-02,
     & 0.59581E-03, 0.22346E-03, 0.11139E-03, 0.88931E-05
     & /
       real p32(0:18)
       data p32/
     & 0.21207E+01,-0.24937E+01, 0.74745E+00,-0.22095E+00,-0.88358E-01,
     &-0.73323E-01,-0.35121E-01,-0.74337E-02, 0.77806E-02, 0.13076E-01,
     & 0.12229E-01, 0.89461E-02, 0.56479E-02, 0.29917E-02, 0.14467E-02,
     & 0.56768E-03, 0.20197E-03, 0.98333E-04,-0.30275E-05
     & /
       real p33(0:18)
       data p33/
     & 0.22885E+01,-0.27247E+01, 0.82956E+00,-0.24052E+00,-0.89028E-01,
     &-0.74599E-01,-0.35032E-01,-0.67703E-02, 0.85502E-02, 0.13702E-01,
     & 0.12612E-01, 0.91148E-02, 0.56905E-02, 0.29590E-02, 0.13999E-02,
     & 0.52020E-03, 0.16621E-03, 0.76989E-04,-0.22749E-04
     & /
       real p34(0:17)
       data p34/
     & 0.24639E+01,-0.29677E+01, 0.91723E+00,-0.26151E+00,-0.89413E-01,
     &-0.75842E-01,-0.34904E-01,-0.60880E-02, 0.93221E-02, 0.14321E-01,
     & 0.12984E-01, 0.92718E-02, 0.57248E-02, 0.29206E-02, 0.13505E-02,
     & 0.47146E-03, 0.13012E-03, 0.55927E-04
     & /
       real p35(0:17)
       data p35/
     & 0.26471E+01,-0.32230E+01, 0.10106E+01,-0.28398E+00,-0.89503E-01,
     &-0.77056E-01,-0.34740E-01,-0.53887E-02, 0.10095E-01, 0.14932E-01,
     & 0.13344E-01, 0.94175E-02, 0.57513E-02, 0.28768E-02, 0.12988E-02,
     & 0.42164E-03, 0.93803E-04, 0.35216E-04
     & /
       real p36(0:17)
       data p36/
     & 0.28380E+01,-0.34907E+01, 0.11098E+01,-0.30801E+00,-0.89283E-01,
     &-0.78248E-01,-0.34540E-01,-0.46737E-02, 0.10869E-01, 0.15535E-01,
     & 0.13692E-01, 0.95521E-02, 0.57702E-02, 0.28280E-02, 0.12449E-02,
     & 0.37090E-03, 0.57366E-04, 0.14921E-04
     & /
       real p37(0:17)
       data p37/
     & 0.30369E+01,-0.37710E+01, 0.12149E+01,-0.33364E+00,-0.88741E-01,
     &-0.79422E-01,-0.34307E-01,-0.39445E-02, 0.11643E-01, 0.16130E-01,
     & 0.14029E-01, 0.96760E-02, 0.57820E-02, 0.27745E-02, 0.11891E-02,
     & 0.31941E-03, 0.20895E-04,-0.49033E-05
     & /
       real p38(0:17)
       data p38/
     & 0.32437E+01,-0.40641E+01, 0.13261E+01,-0.36093E+00,-0.87863E-01,
     &-0.80582E-01,-0.34043E-01,-0.32023E-02, 0.12416E-01, 0.16717E-01,
     & 0.14355E-01, 0.97895E-02, 0.57871E-02, 0.27165E-02, 0.11316E-02,
     & 0.26729E-03,-0.15529E-04,-0.24208E-04
     & /
       real p39(0:17)
       data p39/
     & 0.34586E+01,-0.43701E+01, 0.14436E+01,-0.38996E+00,-0.86637E-01,
     &-0.81734E-01,-0.33749E-01,-0.24482E-02, 0.13187E-01, 0.17295E-01,
     & 0.14670E-01, 0.98929E-02, 0.57857E-02, 0.26544E-02, 0.10727E-02,
     & 0.21467E-03,-0.51838E-04,-0.42950E-04
     & /
       real p40(0:17)
       data p40/
     & 0.36816E+01,-0.46891E+01, 0.15673E+01,-0.42077E+00,-0.85049E-01,
     &-0.82882E-01,-0.33426E-01,-0.16833E-02, 0.13956E-01, 0.17865E-01,
     & 0.14974E-01, 0.99865E-02, 0.57782E-02, 0.25883E-02, 0.10125E-02,
     & 0.16167E-03,-0.87968E-04,-0.61092E-04
     & /
       real p41(0:15)
       data p41/
     & 0.39128E+01,-0.50213E+01, 0.16976E+01,-0.45346E+00,-0.83182E-01,
     &-0.83960E-01,-0.33143E-01,-0.94310E-03, 0.14730E-01, 0.18312E-01,
     & 0.15352E-01, 0.99121E-02, 0.57371E-02, 0.25474E-02, 0.76985E-03,
     & 0.29777E-04
     & /
       real p42(0:15)
       data p42/
     & 0.41524E+01,-0.53669E+01, 0.18344E+01,-0.48802E+00,-0.80834E-01,
     &-0.85106E-01,-0.32770E-01,-0.16031E-03, 0.15496E-01, 0.18856E-01,
     & 0.15642E-01, 0.99746E-02, 0.57148E-02, 0.24729E-02, 0.68792E-03,
     &-0.40546E-04
     & /
       real p43(0:15)
       data p43/
     & 0.44004E+01,-0.57261E+01, 0.19779E+01,-0.52455E+00,-0.78083E-01,
     &-0.86262E-01,-0.32373E-01, 0.63072E-03, 0.16259E-01, 0.19392E-01,
     & 0.15922E-01, 0.10028E-01, 0.56876E-02, 0.23958E-02, 0.60527E-03,
     &-0.11029E-03
     & /
       real p44(0:15)
       data p44/
     & 0.46569E+01,-0.60989E+01, 0.21283E+01,-0.56309E+00,-0.74915E-01,
     &-0.87431E-01,-0.31952E-01, 0.14293E-02, 0.17019E-01, 0.19918E-01,
     & 0.16193E-01, 0.10073E-01, 0.56558E-02, 0.23162E-02, 0.52203E-03,
     &-0.17934E-03
     & /
       real p45(0:15)
       data p45/
     & 0.49219E+01,-0.64855E+01, 0.22856E+01,-0.60372E+00,-0.71315E-01,
     &-0.88619E-01,-0.31507E-01, 0.22347E-02, 0.17776E-01, 0.20436E-01,
     & 0.16455E-01, 0.10108E-01, 0.56197E-02, 0.22344E-02, 0.43833E-03,
     &-0.24763E-03
     & /
       real p46(0:15)
       data p46/
     & 0.51956E+01,-0.68862E+01, 0.24499E+01,-0.64648E+00,-0.67270E-01,
     &-0.89828E-01,-0.31040E-01, 0.30464E-02, 0.18529E-01, 0.20945E-01,
     & 0.16708E-01, 0.10136E-01, 0.55796E-02, 0.21506E-02, 0.35431E-03,
     &-0.31507E-03
     & /
       real p47(0:15)
       data p47/
     & 0.54780E+01,-0.73009E+01, 0.26214E+01,-0.69145E+00,-0.62764E-01,
     &-0.91065E-01,-0.30551E-01, 0.38638E-02, 0.19277E-01, 0.21446E-01,
     & 0.16952E-01, 0.10156E-01, 0.55357E-02, 0.20649E-02, 0.27005E-03,
     &-0.38160E-03
     & /
       real p48(0:15)
       data p48/
     & 0.57692E+01,-0.77300E+01, 0.28002E+01,-0.73867E+00,-0.57783E-01,
     &-0.92333E-01,-0.30041E-01, 0.46865E-02, 0.20022E-01, 0.21937E-01,
     & 0.17188E-01, 0.10167E-01, 0.54883E-02, 0.19774E-02, 0.18567E-03,
     &-0.44715E-03
     & /
       real p49(0:15)
       data p49/
     & 0.60695E+01,-0.81737E+01, 0.29865E+01,-0.78820E+00,-0.52313E-01,
     &-0.93636E-01,-0.29509E-01, 0.55140E-02, 0.20763E-01, 0.22421E-01,
     & 0.17415E-01, 0.10171E-01, 0.54376E-02, 0.18884E-02, 0.10126E-03,
     &-0.51167E-03
     & /
       real p50(0:15)
       data p50/
     & 0.63788E+01,-0.86320E+01, 0.31803E+01,-0.84012E+00,-0.46336E-01,
     &-0.94979E-01,-0.28958E-01, 0.63459E-02, 0.21499E-01, 0.22896E-01,
     & 0.17635E-01, 0.10168E-01, 0.53838E-02, 0.17979E-02, 0.16888E-04,
     &-0.57513E-03
     & /
       real p51(0:15)
       data p51/
     & 0.66973E+01,-0.91053E+01, 0.33818E+01,-0.89448E+00,-0.39839E-01,
     &-0.96367E-01,-0.28386E-01, 0.71820E-02, 0.22232E-01, 0.23363E-01,
     & 0.17847E-01, 0.10158E-01, 0.53271E-02, 0.17062E-02,-0.67367E-04,
     &-0.63747E-03
     & /
       real p52(0:15)
       data p52/
     & 0.70252E+01,-0.95939E+01, 0.35912E+01,-0.95136E+00,-0.32805E-01,
     &-0.97804E-01,-0.27794E-01, 0.80221E-02, 0.22960E-01, 0.23822E-01,
     & 0.18051E-01, 0.10141E-01, 0.52678E-02, 0.16133E-02,-0.15144E-03,
     &-0.69867E-03
     & /
       real p53(0:15)
       data p53/
     & 0.73627E+01,-0.10098E+02, 0.38086E+01,-0.10108E+01,-0.25217E-01,
     &-0.99295E-01,-0.27183E-01, 0.88659E-02, 0.23685E-01, 0.24274E-01,
     & 0.18249E-01, 0.10117E-01, 0.52061E-02, 0.15193E-02,-0.23528E-03,
     &-0.75871E-03
     & /
       real p54(0:14)
       data p54/
     & 0.77100E+01,-0.10618E+02, 0.40342E+01,-0.10729E+01,-0.17059E-01,
     &-0.10085E+00,-0.26552E-01, 0.97133E-02, 0.24405E-01, 0.24718E-01,
     & 0.18440E-01, 0.10087E-01, 0.51421E-02, 0.14243E-02,-0.31884E-03
     & /
       real p55(0:14)
       data p55/
     & 0.80673E+01,-0.11154E+02, 0.42683E+01,-0.11378E+01,-0.83113E-02,
     &-0.10246E+00,-0.25902E-01, 0.10564E-01, 0.25122E-01, 0.25156E-01,
     & 0.18625E-01, 0.10051E-01, 0.50761E-02, 0.13285E-02,-0.40208E-03
     & /
       real p56(0:14)
       data p56/
     & 0.84351E+01,-0.11707E+02, 0.45111E+01,-0.12055E+01, 0.10448E-02,
     &-0.10414E+00,-0.25233E-01, 0.11419E-01, 0.25837E-01, 0.25587E-01,
     & 0.18803E-01, 0.10009E-01, 0.50083E-02, 0.12319E-02,-0.48498E-03
     & /
       real p57(0:14)
       data p57/
     & 0.88136E+01,-0.12277E+02, 0.47628E+01,-0.12761E+01, 0.11030E-01,
     &-0.10590E+00,-0.24545E-01, 0.12278E-01, 0.26548E-01, 0.26012E-01,
     & 0.18977E-01, 0.99617E-02, 0.49389E-02, 0.11346E-02,-0.56750E-03
     & /
       real p58(0:14)
       data p58/
     & 0.92033E+01,-0.12866E+02, 0.50239E+01,-0.13498E+01, 0.21668E-01,
     &-0.10775E+00,-0.23837E-01, 0.13142E-01, 0.27258E-01, 0.26432E-01,
     & 0.19145E-01, 0.99088E-02, 0.48680E-02, 0.10367E-02,-0.64964E-03
     & /
       real p59(0:14)
       data p59/
     & 0.96049E+01,-0.13473E+02, 0.52947E+01,-0.14267E+01, 0.32984E-01,
     &-0.10968E+00,-0.23109E-01, 0.14010E-01, 0.27967E-01, 0.26847E-01,
     & 0.19309E-01, 0.98508E-02, 0.47958E-02, 0.93817E-03,-0.73141E-03
     & /
       real p60(0:14)
       data p60/
     & 0.10019E+02,-0.14100E+02, 0.55757E+01,-0.15070E+01, 0.45005E-01,
     &-0.11171E+00,-0.22362E-01, 0.14884E-01, 0.28676E-01, 0.27259E-01,
     & 0.19469E-01, 0.97880E-02, 0.47226E-02, 0.83916E-03,-0.81282E-03
     & /
       real p61(0:14)
       data p61/
     & 0.10446E+02,-0.14749E+02, 0.58674E+01,-0.15907E+01, 0.57764E-01,
     &-0.11384E+00,-0.21594E-01, 0.15765E-01, 0.29385E-01, 0.27667E-01,
     & 0.19625E-01, 0.97207E-02, 0.46486E-02, 0.73966E-03,-0.89389E-03
     & /
       real p62(0:14)
       data p62/
     & 0.10888E+02,-0.15420E+02, 0.61707E+01,-0.16783E+01, 0.71299E-01,
     &-0.11609E+00,-0.20804E-01, 0.16653E-01, 0.30097E-01, 0.28074E-01,
     & 0.19780E-01, 0.96490E-02, 0.45738E-02, 0.63970E-03,-0.97467E-03
     & /
       real p63(0:14)
       data p63/
     & 0.11345E+02,-0.16116E+02, 0.64862E+01,-0.17698E+01, 0.85651E-01,
     &-0.11847E+00,-0.19993E-01, 0.17550E-01, 0.30814E-01, 0.28481E-01,
     & 0.19933E-01, 0.95734E-02, 0.44987E-02, 0.53929E-03,-0.10552E-02
     & /
       real p64(0:14)
       data p64/
     & 0.11820E+02,-0.16839E+02, 0.68150E+01,-0.18656E+01, 0.10087E+00,
     &-0.12098E+00,-0.19159E-01, 0.18459E-01, 0.31536E-01, 0.28888E-01,
     & 0.20085E-01, 0.94940E-02, 0.44233E-02, 0.43841E-03,-0.11356E-02
     & /
       real p65(0:14)
       data p65/
     & 0.12313E+02,-0.17591E+02, 0.71582E+01,-0.19661E+01, 0.11702E+00,
     &-0.12365E+00,-0.18300E-01, 0.19380E-01, 0.32267E-01, 0.29299E-01,
     & 0.20237E-01, 0.94111E-02, 0.43478E-02, 0.33703E-03,-0.12160E-02
     & /
       real p66(0:14)
       data p66/
     & 0.12827E+02,-0.18375E+02, 0.75172E+01,-0.20717E+01, 0.13416E+00,
     &-0.12649E+00,-0.17415E-01, 0.20317E-01, 0.33009E-01, 0.29713E-01,
     & 0.20391E-01, 0.93251E-02, 0.42726E-02, 0.23510E-03,-0.12964E-02
     & /
       real p67(0:14)
       data p67/
     & 0.13363E+02,-0.19195E+02, 0.78937E+01,-0.21827E+01, 0.15237E+00,
     &-0.12951E+00,-0.16502E-01, 0.21273E-01, 0.33764E-01, 0.30135E-01,
     & 0.20548E-01, 0.92361E-02, 0.41977E-02, 0.13254E-03,-0.13770E-02
     & /
       real p68(0:14)
       data p68/
     & 0.13926E+02,-0.20055E+02, 0.82893E+01,-0.22999E+01, 0.17174E+00,
     &-0.13274E+00,-0.15559E-01, 0.22250E-01, 0.34537E-01, 0.30565E-01,
     & 0.20709E-01, 0.91443E-02, 0.41234E-02, 0.29238E-04,-0.14581E-02
     & /
       real p69(0:14)
       data p69/
     & 0.14518E+02,-0.20960E+02, 0.87063E+01,-0.24238E+01, 0.19239E+00,
     &-0.13619E+00,-0.14582E-01, 0.23253E-01, 0.35330E-01, 0.31006E-01,
     & 0.20875E-01, 0.90500E-02, 0.40498E-02,-0.74928E-04,-0.15397E-02
     & /
       real p70(0:14)
       data p70/
     & 0.15141E+02,-0.21914E+02, 0.91469E+01,-0.25551E+01, 0.21443E+00,
     &-0.13991E+00,-0.13569E-01, 0.24285E-01, 0.36147E-01, 0.31462E-01,
     & 0.21048E-01, 0.89532E-02, 0.39773E-02,-0.18012E-03,-0.16221E-02
     & /
       real p71(0:14)
       data p71/
     & 0.15801E+02,-0.22924E+02, 0.96137E+01,-0.26946E+01, 0.23800E+00,
     &-0.14390E+00,-0.12514E-01, 0.25350E-01, 0.36993E-01, 0.31933E-01,
     & 0.21229E-01, 0.88541E-02, 0.39059E-02,-0.28654E-03,-0.17056E-02
     & /
       real p72(0:14)
       data p72/
     & 0.16500E+02,-0.23995E+02, 0.10110E+02,-0.28432E+01, 0.26325E+00,
     &-0.14820E+00,-0.11415E-01, 0.26454E-01, 0.37871E-01, 0.32424E-01,
     & 0.21420E-01, 0.87526E-02, 0.38358E-02,-0.39440E-03,-0.17903E-02
     & /
       real p73(0:14)
       data p73/
     & 0.17244E+02,-0.25134E+02, 0.10638E+02,-0.30018E+01, 0.29035E+00,
     &-0.15285E+00,-0.10265E-01, 0.27599E-01, 0.38785E-01, 0.32936E-01,
     & 0.21622E-01, 0.86485E-02, 0.37671E-02,-0.50393E-03,-0.18766E-02
     & /
       real p74(0:14)
       data p74/
     & 0.18036E+02,-0.26347E+02, 0.11201E+02,-0.31712E+01, 0.31947E+00,
     &-0.15787E+00,-0.90596E-02, 0.28791E-01, 0.39739E-01, 0.33471E-01,
     & 0.21837E-01, 0.85418E-02, 0.36999E-02,-0.61540E-03,-0.19648E-02
     & /
       real p75(0:13)
       data p75/
     & 0.18880E+02,-0.27641E+02, 0.11802E+02,-0.33526E+01, 0.35081E+00,
     &-0.16329E+00,-0.77933E-02, 0.30033E-01, 0.40735E-01, 0.34032E-01,
     & 0.22064E-01, 0.84319E-02, 0.36342E-02,-0.72907E-03
     & /
       real p76(0:13)
       data p76/
     & 0.19780E+02,-0.29022E+02, 0.12444E+02,-0.35468E+01, 0.38456E+00,
     &-0.16916E+00,-0.64599E-02, 0.31329E-01, 0.41777E-01, 0.34619E-01,
     & 0.22305E-01, 0.83185E-02, 0.35700E-02,-0.84520E-03
     & /
       real p77(0:13)
       data p77/
     & 0.20741E+02,-0.30495E+02, 0.13131E+02,-0.37548E+01, 0.42090E+00,
     &-0.17549E+00,-0.50535E-02, 0.32682E-01, 0.42866E-01, 0.35233E-01,
     & 0.22560E-01, 0.82009E-02, 0.35073E-02,-0.96405E-03
     & /
       real p78(0:13)
       data p78/
     & 0.21764E+02,-0.32066E+02, 0.13864E+02,-0.39773E+01, 0.46004E+00,
     &-0.18232E+00,-0.35682E-02, 0.34092E-01, 0.44003E-01, 0.35875E-01,
     & 0.22829E-01, 0.80785E-02, 0.34460E-02,-0.10858E-02
     & /
       real p79(0:13)
       data p79/
     & 0.22853E+02,-0.33737E+02, 0.14645E+02,-0.42152E+01, 0.50212E+00,
     &-0.18967E+00,-0.19985E-02, 0.35560E-01, 0.45187E-01, 0.36543E-01,
     & 0.23111E-01, 0.79505E-02, 0.33859E-02,-0.12107E-02
     & /
       real p80(0:13)
       data p80/
     & 0.24008E+02,-0.35511E+02, 0.15476E+02,-0.44688E+01, 0.54732E+00,
     &-0.19756E+00,-0.33973E-03, 0.37085E-01, 0.46416E-01, 0.37236E-01,
     & 0.23405E-01, 0.78160E-02, 0.33268E-02,-0.13389E-02
     & /
       real p81(0:13)
       data p81/
     & 0.25229E+02,-0.37390E+02, 0.16357E+02,-0.47387E+01, 0.59576E+00,
     &-0.20601E+00, 0.14124E-02, 0.38665E-01, 0.47688E-01, 0.37951E-01,
     & 0.23709E-01, 0.76741E-02, 0.32684E-02,-0.14704E-02
     & /
       real p82(0:13)
       data p82/
     & 0.26517E+02,-0.39371E+02, 0.17289E+02,-0.50248E+01, 0.64752E+00,
     &-0.21503E+00, 0.32611E-02, 0.40296E-01, 0.48998E-01, 0.38684E-01,
     & 0.24022E-01, 0.75240E-02, 0.32106E-02,-0.16052E-02
     & /
       real p83(0:13)
       data p83/
     & 0.27868E+02,-0.41453E+02, 0.18271E+02,-0.53273E+01, 0.70267E+00,
     &-0.22460E+00, 0.52084E-02, 0.41973E-01, 0.50341E-01, 0.39433E-01,
     & 0.24342E-01, 0.73647E-02, 0.31530E-02,-0.17433E-02
     & /
       real p84(0:13)
       data p84/
     & 0.29281E+02,-0.43631E+02, 0.19301E+02,-0.56457E+01, 0.76123E+00,
     &-0.23474E+00, 0.72553E-02, 0.43690E-01, 0.51710E-01, 0.40191E-01,
     & 0.24665E-01, 0.71956E-02, 0.30955E-02,-0.18845E-02
     & /
       real p85(0:13)
       data p85/
     & 0.30750E+02,-0.45900E+02, 0.20378E+02,-0.59796E+01, 0.82319E+00,
     &-0.24544E+00, 0.94018E-02, 0.45440E-01, 0.53099E-01, 0.40956E-01,
     & 0.24990E-01, 0.70159E-02, 0.30377E-02,-0.20286E-02
     & /
       real p86(0:13)
       data p86/
     & 0.32273E+02,-0.48254E+02, 0.21498E+02,-0.63284E+01, 0.88850E+00,
     &-0.25666E+00, 0.11647E-01, 0.47215E-01, 0.54500E-01, 0.41720E-01,
     & 0.25312E-01, 0.68251E-02, 0.29795E-02,-0.21754E-02
     & /
       real p87(0:12)
       data p87/
     & 0.33842E+02,-0.50684E+02, 0.22658E+02,-0.66912E+01, 0.95707E+00,
     &-0.26841E+00, 0.13987E-01, 0.49007E-01, 0.55906E-01, 0.42479E-01,
     & 0.25631E-01, 0.66229E-02, 0.29206E-02
     & /
       real p88(0:12)
       data p88/
     & 0.35454E+02,-0.53182E+02, 0.23855E+02,-0.70671E+01, 0.10288E+01,
     &-0.28065E+00, 0.16421E-01, 0.50807E-01, 0.57309E-01, 0.43229E-01,
     & 0.25942E-01, 0.64090E-02, 0.28609E-02
     & /
       real p89(0:12)
       data p89/
     & 0.37102E+02,-0.55740E+02, 0.25085E+02,-0.74550E+01, 0.11036E+01,
     &-0.29335E+00, 0.18945E-01, 0.52608E-01, 0.58702E-01, 0.43964E-01,
     & 0.26244E-01, 0.61833E-02, 0.28004E-02
     & /
       real p90(0:12)
       data p90/
     & 0.38780E+02,-0.58349E+02, 0.26344E+02,-0.78540E+01, 0.11812E+01,
     &-0.30650E+00, 0.21553E-01, 0.54403E-01, 0.60079E-01, 0.44680E-01,
     & 0.26534E-01, 0.59459E-02, 0.27389E-02
     & /
       real p91(0:12)
       data p91/
     & 0.40482E+02,-0.61000E+02, 0.27629E+02,-0.82630E+01, 0.12616E+01,
     &-0.32007E+00, 0.24242E-01, 0.56183E-01, 0.61433E-01, 0.45374E-01,
     & 0.26812E-01, 0.56970E-02, 0.26765E-02
     & /
       real p92(0:12)
       data p92/
     & 0.42205E+02,-0.63687E+02, 0.28935E+02,-0.86810E+01, 0.13446E+01,
     &-0.33402E+00, 0.27008E-01, 0.57943E-01, 0.62760E-01, 0.46043E-01,
     & 0.27074E-01, 0.54370E-02, 0.26132E-02
     & /
       real p93(0:12)
       data p93/
     & 0.43942E+02,-0.66400E+02, 0.30261E+02,-0.91071E+01, 0.14300E+01,
     &-0.34836E+00, 0.29838E-01, 0.59671E-01, 0.64051E-01, 0.46684E-01,
     & 0.27322E-01, 0.51683E-02, 0.25509E-02
     & /
       real p94(0:12)
       data p94/
     & 0.45690E+02,-0.69136E+02, 0.31603E+02,-0.95406E+01, 0.15178E+01,
     &-0.36306E+00, 0.32736E-01, 0.61367E-01, 0.65307E-01, 0.47295E-01,
     & 0.27554E-01, 0.48897E-02, 0.24881E-02
     & /
       real p95(0:12)
       data p95/
     & 0.47446E+02,-0.71888E+02, 0.32958E+02,-0.99807E+01, 0.16078E+01,
     &-0.37810E+00, 0.35700E-01, 0.63029E-01, 0.66525E-01, 0.47875E-01,
     & 0.27769E-01, 0.46011E-02, 0.24247E-02
     & /
       real p96(0:12)
       data p96/
     & 0.49206E+02,-0.74652E+02, 0.34325E+02,-0.10427E+02, 0.16999E+01,
     &-0.39347E+00, 0.38726E-01, 0.64655E-01, 0.67703E-01, 0.48424E-01,
     & 0.27967E-01, 0.43032E-02, 0.23608E-02
     & /
       real p97(0:12)
       data p97/
     & 0.50969E+02,-0.77425E+02, 0.35702E+02,-0.10878E+02, 0.17940E+01,
     &-0.40915E+00, 0.41812E-01, 0.66242E-01, 0.68841E-01, 0.48941E-01,
     & 0.28147E-01, 0.39965E-02, 0.22966E-02
     & /
       real p98(0:12)
       data p98/
     & 0.52733E+02,-0.80202E+02, 0.37088E+02,-0.11335E+02, 0.18901E+01,
     &-0.42514E+00, 0.44956E-01, 0.67789E-01, 0.69939E-01, 0.49426E-01,
     & 0.28311E-01, 0.36817E-02, 0.22323E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  22,  22,  22,  21,  21,  20,  20
     &,  19,  19,  19,  19,  19,  19,  18,  18,  18,  18
     &,  18,  18,  17,  17,  17,  17,  17,  17,  17,  15
     &,  15,  15,  15,  15,  15,  15,  15,  15,  15,  15
     &,  15,  15,  14,  14,  14,  14,  14,  14,  14,  14
     &,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14
     &,  14,  14,  14,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  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.22) param(i,15) = p15(i)
             if (i.le.22) param(i,16) = p16(i)
             if (i.le.22) param(i,17) = p17(i)
             if (i.le.21) param(i,18) = p18(i)
             if (i.le.21) param(i,19) = p19(i)
             if (i.le.20) param(i,20) = p20(i)
             if (i.le.20) param(i,21) = p21(i)
             if (i.le.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.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.17) param(i,34) = p34(i)
             if (i.le.17) param(i,35) = p35(i)
             if (i.le.17) param(i,36) = p36(i)
             if (i.le.17) param(i,37) = p37(i)
             if (i.le.17) param(i,38) = p38(i)
             if (i.le.17) param(i,39) = p39(i)
             if (i.le.17) param(i,40) = p40(i)
             if (i.le.15) param(i,41) = p41(i)
             if (i.le.15) param(i,42) = p42(i)
             if (i.le.15) param(i,43) = p43(i)
             if (i.le.15) param(i,44) = p44(i)
             if (i.le.15) param(i,45) = p45(i)
             if (i.le.15) param(i,46) = p46(i)
             if (i.le.15) param(i,47) = p47(i)
             if (i.le.15) param(i,48) = p48(i)
             if (i.le.15) param(i,49) = p49(i)
             if (i.le.15) param(i,50) = p50(i)
             if (i.le.15) param(i,51) = p51(i)
             if (i.le.15) param(i,52) = p52(i)
             if (i.le.15) param(i,53) = p53(i)
             if (i.le.14) param(i,54) = p54(i)
             if (i.le.14) param(i,55) = p55(i)
             if (i.le.14) param(i,56) = p56(i)
             if (i.le.14) param(i,57) = p57(i)
             if (i.le.14) param(i,58) = p58(i)
             if (i.le.14) param(i,59) = p59(i)
             if (i.le.14) param(i,60) = p60(i)
             if (i.le.14) param(i,61) = p61(i)
             if (i.le.14) param(i,62) = p62(i)
             if (i.le.14) param(i,63) = p63(i)
             if (i.le.14) param(i,64) = p64(i)
             if (i.le.14) param(i,65) = p65(i)
             if (i.le.14) param(i,66) = p66(i)
             if (i.le.14) param(i,67) = p67(i)
             if (i.le.14) param(i,68) = p68(i)
             if (i.le.14) param(i,69) = p69(i)
             if (i.le.14) param(i,70) = p70(i)
             if (i.le.14) param(i,71) = p71(i)
             if (i.le.14) param(i,72) = p72(i)
             if (i.le.14) param(i,73) = p73(i)
             if (i.le.14) 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.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
            
       f2nchiq200=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
       f2nchiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) f2nchiq200=0.0
       if (q2.lt.q2min) f2nchiq200=0.0
       if ( x.gt. xmax) f2nchiq200=0.0
       if ( x.lt. xmin) f2nchiq200=0.0
       return
       end
       real function  f3nchiq200(xin,q2in)
***********************************************************
c  parametrization of f3nchiq200 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: 3)
       data p15/
     & 0.40137E-04, 0.54538E-04, 0.64511E-05,-0.25758E-04
     & /
       real p16(0: 4)
       data p16/
     & 0.48235E-04, 0.65111E-04, 0.67882E-05,-0.31805E-04,-0.40524E-04
     & /
       real p17(0: 4)
       data p17/
     & 0.58105E-04, 0.77911E-04, 0.70127E-05,-0.39322E-04,-0.49085E-04
     & /
       real p18(0: 5)
       data p18/
     & 0.69648E-04, 0.92781E-04, 0.70653E-05,-0.48274E-04,-0.59111E-04,
     &-0.45126E-04
     & /
       real p19(0: 5)
       data p19/
     & 0.83128E-04, 0.11003E-03, 0.68942E-05,-0.58903E-04,-0.70827E-04,
     &-0.53211E-04
     & /
       real p20(0: 5)
       data p20/
     & 0.98845E-04, 0.13003E-03, 0.64370E-05,-0.71487E-04,-0.84493E-04,
     &-0.62496E-04
     & /
       real p21(0: 5)
       data p21/
     & 0.11715E-03, 0.15317E-03, 0.56181E-05,-0.86351E-04,-0.10041E-03,
     &-0.73143E-04
     & /
       real p22(0: 6)
       data p22/
     & 0.13844E-03, 0.17994E-03, 0.43471E-05,-0.10386E-03,-0.11891E-03,
     &-0.85339E-04,-0.44412E-04
     & /
       real p23(0: 6)
       data p23/
     & 0.16318E-03, 0.21086E-03, 0.25157E-05,-0.12446E-03,-0.14038E-03,
     &-0.99293E-04,-0.50474E-04
     & /
       real p24(0: 6)
       data p24/
     & 0.19188E-03, 0.24655E-03,-0.53978E-08,-0.14864E-03,-0.16528E-03,
     &-0.11524E-03,-0.57212E-04
     & /
       real p25(0: 6)
       data p25/
     & 0.22517E-03, 0.28771E-03,-0.33697E-05,-0.17696E-03,-0.19411E-03,
     &-0.13345E-03,-0.64690E-04
     & /
       real p26(0: 7)
       data p26/
     & 0.26372E-03, 0.33514E-03,-0.77595E-05,-0.21009E-03,-0.22745E-03,
     &-0.15423E-03,-0.72978E-04,-0.16794E-04
     & /
       real p27(0: 8)
       data p27/
     & 0.30834E-03, 0.38975E-03,-0.13390E-04,-0.24879E-03,-0.26597E-03,
     &-0.17791E-03,-0.82153E-04,-0.16970E-04, 0.15688E-04
     & /
       real p28(0: 9)
       data p28/
     & 0.35993E-03, 0.45257E-03,-0.20517E-04,-0.29394E-03,-0.31042E-03,
     &-0.20489E-03,-0.92294E-04,-0.16825E-04, 0.20157E-04, 0.31145E-04
     & /
       real p29(0: 9)
       data p29/
     & 0.41953E-03, 0.52480E-03,-0.29439E-04,-0.34652E-03,-0.36167E-03,
     &-0.23558E-03,-0.10349E-03,-0.16273E-04, 0.25521E-04, 0.37157E-04
     & /
       real p30(0:10)
       data p30/
     & 0.48833E-03, 0.60779E-03,-0.40509E-04,-0.40770E-03,-0.42070E-03,
     &-0.27048E-03,-0.11583E-03,-0.15211E-04, 0.31931E-04, 0.44155E-04,
     & 0.39150E-04
     & /
       real p31(0:10)
       data p31/
     & 0.51819E-03, 0.64369E-03,-0.45520E-04,-0.43437E-03,-0.44627E-03,
     &-0.28548E-03,-0.12103E-03,-0.14638E-04, 0.34769E-04, 0.47204E-04,
     & 0.41551E-04
     & /
       real p32(0:10)
       data p32/
     & 0.56772E-03, 0.70314E-03,-0.54025E-04,-0.47870E-03,-0.48862E-03,
     &-0.31022E-03,-0.12952E-03,-0.13613E-04, 0.39501E-04, 0.52258E-04,
     & 0.45518E-04
     & /
       real p33(0:10)
       data p33/
     & 0.65923E-03, 0.81257E-03,-0.70516E-04,-0.56106E-03,-0.56670E-03,
     &-0.35537E-03,-0.14463E-03,-0.11305E-04, 0.48447E-04, 0.61640E-04,
     & 0.52805E-04
     & /
       real p34(0:10)
       data p34/
     & 0.76464E-03, 0.93803E-03,-0.90592E-04,-0.65655E-03,-0.65641E-03,
     &-0.40661E-03,-0.16121E-03,-0.80787E-05, 0.59027E-04, 0.72503E-04,
     & 0.61136E-04
     & /
       real p35(0:11)
       data p35/
     & 0.88596E-03, 0.10818E-02,-0.11491E-03,-0.76715E-03,-0.75938E-03,
     &-0.46471E-03,-0.17940E-03,-0.37354E-05, 0.71501E-04, 0.85060E-04,
     & 0.70650E-04, 0.49009E-04
     & /
       real p36(0:11)
       data p36/
     & 0.10255E-02, 0.12465E-02,-0.14425E-03,-0.89515E-03,-0.87750E-03,
     &-0.53056E-03,-0.19929E-03, 0.19569E-05, 0.86173E-04, 0.99555E-04,
     & 0.81503E-04, 0.55875E-04
     & /
       real p37(0:11)
       data p37/
     & 0.11860E-02, 0.14349E-02,-0.17950E-03,-0.10431E-02,-0.10129E-02,
     &-0.60514E-03,-0.22102E-03, 0.92711E-05, 0.10339E-03, 0.11626E-03,
     & 0.93871E-04, 0.63612E-04
     & /
       real p38(0:11)
       data p38/
     & 0.13703E-02, 0.16505E-02,-0.22172E-03,-0.12141E-02,-0.11680E-02,
     &-0.68953E-03,-0.24470E-03, 0.18526E-04, 0.12354E-03, 0.13550E-03,
     & 0.10795E-03, 0.72325E-04
     & /
       real p39(0:11)
       data p39/
     & 0.15819E-02, 0.18970E-02,-0.27210E-03,-0.14114E-02,-0.13455E-02,
     &-0.78499E-03,-0.27046E-03, 0.30095E-04, 0.14708E-03, 0.15762E-03,
     & 0.12396E-03, 0.82128E-04
     & /
       real p40(0:12)
       data p40/
     & 0.18246E-02, 0.21786E-02,-0.33206E-03,-0.16389E-02,-0.15486E-02,
     &-0.89289E-03,-0.29841E-03, 0.44413E-04, 0.17454E-03, 0.18302E-03,
     & 0.14216E-03, 0.93146E-04, 0.53396E-04
     & /
       real p41(0:12)
       data p41/
     & 0.21030E-02, 0.25001E-02,-0.40324E-03,-0.19010E-02,-0.17806E-02,
     &-0.10148E-02,-0.32866E-03, 0.61984E-04, 0.20649E-03, 0.21216E-03,
     & 0.16282E-03, 0.10552E-03, 0.59733E-04
     & /
       real p42(0:12)
       data p42/
     & 0.24220E-02, 0.28671E-02,-0.48751E-03,-0.22027E-02,-0.20457E-02,
     &-0.11523E-02,-0.36132E-03, 0.83395E-04, 0.24361E-03, 0.24554E-03,
     & 0.18624E-03, 0.11940E-03, 0.66741E-04
     & /
       real p43(0:12)
       data p43/
     & 0.27872E-02, 0.32857E-02,-0.58706E-03,-0.25497E-02,-0.23483E-02,
     &-0.13075E-02,-0.39646E-03, 0.10933E-03, 0.28668E-03, 0.28375E-03,
     & 0.21278E-03, 0.13497E-03, 0.74482E-04
     & /
       real p44(0:12)
       data p44/
     & 0.32052E-02, 0.37628E-02,-0.70440E-03,-0.29486E-02,-0.26934E-02,
     &-0.14824E-02,-0.43417E-03, 0.14056E-03, 0.33655E-03, 0.32744E-03,
     & 0.24283E-03, 0.15240E-03, 0.83022E-04
     & /
       real p45(0:12)
       data p45/
     & 0.36833E-02, 0.43062E-02,-0.84241E-03,-0.34065E-02,-0.30867E-02,
     &-0.16794E-02,-0.47447E-03, 0.17801E-03, 0.39423E-03, 0.37733E-03,
     & 0.27682E-03, 0.17191E-03, 0.92433E-04
     & /
       real p46(0:12)
       data p46/
     & 0.42295E-02, 0.49248E-02,-0.10044E-02,-0.39319E-02,-0.35346E-02,
     &-0.19012E-02,-0.51738E-03, 0.22271E-03, 0.46082E-03, 0.43425E-03,
     & 0.31522E-03, 0.19372E-03, 0.10279E-03
     & /
       real p47(0:12)
       data p47/
     & 0.48533E-02, 0.56285E-02,-0.11942E-02,-0.45341E-02,-0.40443E-02,
     &-0.21506E-02,-0.56287E-03, 0.27587E-03, 0.53761E-03, 0.49912E-03,
     & 0.35857E-03, 0.21807E-03, 0.11417E-03
     & /
       real p48(0:13)
       data p48/
     & 0.55651E-02, 0.64284E-02,-0.14162E-02,-0.52238E-02,-0.46239E-02,
     &-0.24309E-02,-0.61084E-03, 0.33884E-03, 0.62601E-03, 0.57296E-03,
     & 0.40746E-03, 0.24525E-03, 0.12666E-03, 0.53975E-04
     & /
       real p49(0:13)
       data p49/
     & 0.63766E-02, 0.73370E-02,-0.16753E-02,-0.60128E-02,-0.52823E-02,
     &-0.27456E-02,-0.66115E-03, 0.41321E-03, 0.72763E-03, 0.65691E-03,
     & 0.46253E-03, 0.27553E-03, 0.14035E-03, 0.58341E-04
     & /
       real p50(0:13)
       data p50/
     & 0.73009E-02, 0.83680E-02,-0.19773E-02,-0.69145E-02,-0.60296E-02,
     &-0.30985E-02,-0.71356E-03, 0.50077E-03, 0.84429E-03, 0.75226E-03,
     & 0.52451E-03, 0.30924E-03, 0.15531E-03, 0.62897E-04
     & /
       real p51(0:13)
       data p51/
     & 0.83529E-02, 0.95370E-02,-0.23284E-02,-0.79441E-02,-0.68769E-02,
     &-0.34940E-02,-0.76772E-03, 0.60353E-03, 0.97802E-03, 0.86042E-03,
     & 0.59419E-03, 0.34672E-03, 0.17166E-03, 0.67620E-04
     & /
       real p52(0:13)
       data p52/
     & 0.95489E-02, 0.10861E-01,-0.27362E-02,-0.91183E-02,-0.78368E-02,
     &-0.39367E-02,-0.82321E-03, 0.72382E-03, 0.11311E-02, 0.98295E-03,
     & 0.67241E-03, 0.38834E-03, 0.18947E-03, 0.72479E-04
     & /
       real p53(0:14)
       data p53/
     & 0.10907E-01, 0.12359E-01,-0.32087E-02,-0.10456E-01,-0.89227E-02,
     &-0.44317E-02,-0.87941E-03, 0.86423E-03, 0.13060E-02, 0.11216E-02,
     & 0.76012E-03, 0.43449E-03, 0.20884E-03, 0.77434E-04, 0.12603E-04
     & /
       real p54(0:15)
       data p54/
     & 0.12448E-01, 0.14053E-01,-0.37554E-02,-0.11978E-01,-0.10150E-01,
     &-0.49844E-02,-0.93559E-03, 0.10277E-02, 0.15055E-02, 0.12782E-02,
     & 0.85833E-03, 0.48559E-03, 0.22986E-03, 0.82431E-04, 0.10680E-04,
     &-0.16828E-04
     & /
       real p55(0:16)
       data p55/
     & 0.14193E-01, 0.15964E-01,-0.43866E-02,-0.13706E-01,-0.11535E-01,
     &-0.56007E-02,-0.99080E-03, 0.12175E-02, 0.17328E-02, 0.14549E-02,
     & 0.96815E-03, 0.54208E-03, 0.25261E-03, 0.87407E-04, 0.81085E-05,
     &-0.21462E-04,-0.26864E-04
     & /
       real p56(0:16)
       data p56/
     & 0.16168E-01, 0.18120E-01,-0.51139E-02,-0.15668E-01,-0.13096E-01,
     &-0.62869E-02,-0.10439E-02, 0.14373E-02, 0.19912E-02, 0.16539E-02,
     & 0.10908E-02, 0.60441E-03, 0.27718E-03, 0.92281E-04, 0.47721E-05,
     &-0.26916E-04,-0.31826E-04
     & /
       real p57(0:17)
       data p57/
     & 0.18399E-01, 0.20545E-01,-0.59504E-02,-0.17889E-01,-0.14853E-01,
     &-0.70498E-02,-0.10933E-02, 0.16913E-02, 0.22845E-02, 0.18777E-02,
     & 0.12274E-02, 0.67307E-03, 0.30362E-03, 0.96953E-04, 0.53677E-06,
     &-0.33305E-04,-0.37523E-04,-0.31143E-04
     & /
       real p58(0:17)
       data p58/
     & 0.20916E-01, 0.23272E-01,-0.69104E-02,-0.20401E-01,-0.16827E-01,
     &-0.78963E-02,-0.11375E-02, 0.19838E-02, 0.26167E-02, 0.21288E-02,
     & 0.13794E-02, 0.74854E-03, 0.33199E-03, 0.10131E-03,-0.47481E-05,
     &-0.40755E-04,-0.44043E-04,-0.35964E-04
     & /
       real p59(0:18)
       data p59/
     & 0.23749E-01, 0.26330E-01,-0.80095E-02,-0.23237E-01,-0.19040E-01,
     &-0.88339E-02,-0.11744E-02, 0.23198E-02, 0.29922E-02, 0.24101E-02,
     & 0.15481E-02, 0.83131E-03, 0.36233E-03, 0.10520E-03,-0.11251E-04,
     &-0.49404E-04,-0.51482E-04,-0.41410E-04,-0.30229E-04
     & /
       real p60(0:18)
       data p60/
     & 0.26933E-01, 0.29755E-01,-0.92651E-02,-0.26431E-01,-0.21517E-01,
     &-0.98700E-02,-0.12015E-02, 0.27048E-02, 0.34156E-02, 0.27245E-02,
     & 0.17351E-02, 0.92187E-03, 0.39464E-03, 0.10847E-03,-0.19159E-04,
     &-0.59403E-04,-0.59943E-04,-0.47546E-04,-0.34404E-04
     & /
       real p61(0:18)
       data p61/
     & 0.30503E-01, 0.33582E-01,-0.10696E-01,-0.30020E-01,-0.24283E-01,
     &-0.11013E-01,-0.12161E-02, 0.31446E-02, 0.38920E-02, 0.30751E-02,
     & 0.19417E-02, 0.10207E-02, 0.42891E-03, 0.11093E-03,-0.28678E-04,
     &-0.70915E-04,-0.69535E-04,-0.54437E-04,-0.39062E-04
     & /
       real p62(0:19)
       data p62/
     & 0.34497E-01, 0.37848E-01,-0.12322E-01,-0.34046E-01,-0.27366E-01,
     &-0.12269E-01,-0.12149E-02, 0.36454E-02, 0.44266E-02, 0.34651E-02,
     & 0.21694E-02, 0.11282E-02, 0.46508E-03, 0.11235E-03,-0.40033E-04,
     &-0.84111E-04,-0.80373E-04,-0.62154E-04,-0.44243E-04,-0.30670E-04
     & /
       real p63(0:19)
       data p63/
     & 0.38954E-01, 0.42592E-01,-0.14164E-01,-0.38548E-01,-0.30791E-01,
     &-0.13647E-01,-0.11942E-02, 0.42139E-02, 0.50247E-02, 0.38976E-02,
     & 0.24197E-02, 0.12448E-02, 0.50306E-03, 0.11249E-03,-0.53469E-04,
     &-0.99176E-04,-0.92575E-04,-0.70768E-04,-0.49988E-04,-0.34464E-04
     & /
       real p64(0:19)
       data p64/
     & 0.43915E-01, 0.47853E-01,-0.16245E-01,-0.43569E-01,-0.34587E-01,
     &-0.15155E-01,-0.11498E-02, 0.48571E-02, 0.56920E-02, 0.43760E-02,
     & 0.26940E-02, 0.13709E-02, 0.54270E-03, 0.11106E-03,-0.69245E-04,
     &-0.11630E-03,-0.10626E-03,-0.80348E-04,-0.56336E-04,-0.38638E-04
     & /
       real p65(0:19)
       data p65/
     & 0.49419E-01, 0.53670E-01,-0.18589E-01,-0.49152E-01,-0.38780E-01,
     &-0.16797E-01,-0.10769E-02, 0.55821E-02, 0.64341E-02, 0.49035E-02,
     & 0.29937E-02, 0.15066E-02, 0.58380E-03, 0.10775E-03,-0.87639E-04,
     &-0.13568E-03,-0.12156E-03,-0.90965E-04,-0.63326E-04,-0.43211E-04
     & /
       real p66(0:20)
       data p66/
     & 0.55506E-01, 0.60080E-01,-0.21219E-01,-0.55341E-01,-0.43398E-01,
     &-0.18581E-01,-0.97051E-03, 0.63965E-02, 0.72565E-02, 0.54829E-02,
     & 0.33198E-02, 0.16522E-02, 0.62609E-03, 0.10222E-03,-0.10894E-03,
     &-0.15751E-03,-0.13858E-03,-0.10269E-03,-0.70993E-04,-0.48203E-04,
     &-0.32214E-04
     & /
       real p67(0:20)
       data p67/
     & 0.62216E-01, 0.67119E-01,-0.24160E-01,-0.62174E-01,-0.48466E-01,
     &-0.20511E-01,-0.82483E-03, 0.73074E-02, 0.81645E-02, 0.61171E-02,
     & 0.36733E-02, 0.18076E-02, 0.66926E-03, 0.94099E-04,-0.13343E-03,
     &-0.18199E-03,-0.15745E-03,-0.11557E-03,-0.79368E-04,-0.53630E-04,
     &-0.35717E-04
     & /
       real p68(0:20)
       data p68/
     & 0.69583E-01, 0.74820E-01,-0.27434E-01,-0.69693E-01,-0.54004E-01,
     &-0.22590E-01,-0.63380E-03, 0.83221E-02, 0.91629E-02, 0.68084E-02,
     & 0.40549E-02, 0.19727E-02, 0.71288E-03, 0.82980E-04,-0.16142E-03,
     &-0.20930E-03,-0.17827E-03,-0.12967E-03,-0.88476E-04,-0.59503E-04,
     &-0.39494E-04
     & /
       real p69(0:21)
       data p69/
     & 0.77639E-01, 0.83211E-01,-0.31065E-01,-0.77931E-01,-0.60032E-01,
     &-0.24819E-01,-0.39097E-03, 0.94474E-02, 0.10256E-01, 0.75588E-02,
     & 0.44650E-02, 0.21472E-02, 0.75648E-03, 0.68450E-04,-0.19320E-03,
     &-0.23963E-03,-0.20112E-03,-0.14503E-03,-0.98333E-04,-0.65829E-04,
     &-0.43549E-04,-0.28334E-04
     & /
       real p70(0:21)
       data p70/
     & 0.86411E-01, 0.92312E-01,-0.35073E-01,-0.86917E-01,-0.66565E-01,
     &-0.27199E-01,-0.89624E-04, 0.10689E-01, 0.11448E-01, 0.83694E-02,
     & 0.49035E-02, 0.23305E-02, 0.79950E-03, 0.50079E-04,-0.22904E-03,
     &-0.27311E-03,-0.22609E-03,-0.16168E-03,-0.10895E-03,-0.72609E-04,
     &-0.47878E-04,-0.31075E-04
     & /
       real p71(0:21)
       data p71/
     & 0.95917E-01, 0.10214E+00,-0.39477E-01,-0.96674E-01,-0.73610E-01,
     &-0.29724E-01, 0.27709E-03, 0.12053E-01, 0.12740E-01, 0.92408E-02,
     & 0.53700E-02, 0.25221E-02, 0.84131E-03, 0.27434E-04,-0.26919E-03,
     &-0.30989E-03,-0.25322E-03,-0.17963E-03,-0.12032E-03,-0.79836E-04,
     &-0.52475E-04,-0.33979E-04
     & /
       real p72(0:21)
       data p72/
     & 0.10617E+00, 0.11269E+00,-0.44291E-01,-0.10722E+00,-0.81169E-01,
     &-0.32390E-01, 0.71601E-03, 0.13544E-01, 0.14135E-01, 0.10173E-01,
     & 0.58635E-02, 0.27208E-02, 0.88121E-03, 0.86385E-07,-0.31387E-03,
     &-0.35005E-03,-0.28253E-03,-0.19887E-03,-0.13243E-03,-0.87493E-04,
     &-0.57329E-04,-0.37036E-04
     & /
       real p73(0:21)
       data p73/
     & 0.11716E+00, 0.12397E+00,-0.49526E-01,-0.11854E+00,-0.89237E-01,
     &-0.35187E-01, 0.12338E-02, 0.15163E-01, 0.15631E-01, 0.11164E-01,
     & 0.63824E-02, 0.29255E-02, 0.91843E-03,-0.32369E-04,-0.36327E-03,
     &-0.39363E-03,-0.31403E-03,-0.21938E-03,-0.14525E-03,-0.95559E-04,
     &-0.62422E-04,-0.40234E-04
     & /
       real p74(0:22)
       data p74/
     & 0.12890E+00, 0.13596E+00,-0.55187E-01,-0.13065E+00,-0.97800E-01,
     &-0.38103E-01, 0.18366E-02, 0.16912E-01, 0.17228E-01, 0.12211E-01,
     & 0.69247E-02, 0.31347E-02, 0.95216E-03,-0.70306E-04,-0.41749E-03,
     &-0.44065E-03,-0.34765E-03,-0.24110E-03,-0.15873E-03,-0.10400E-03,
     &-0.67731E-04,-0.43557E-04,-0.27981E-04
     & /
       real p75(0:22)
       data p75/
     & 0.14134E+00, 0.14862E+00,-0.61274E-01,-0.14352E+00,-0.10683E+00,
     &-0.41123E-01, 0.25301E-02, 0.18790E-01, 0.18923E-01, 0.13312E-01,
     & 0.74876E-02, 0.33469E-02, 0.98157E-03,-0.11405E-03,-0.47661E-03,
     &-0.49104E-03,-0.38333E-03,-0.26396E-03,-0.17283E-03,-0.11277E-03,
     &-0.73227E-04,-0.46987E-04,-0.30141E-04
     & /
       real p76(0:22)
       data p76/
     & 0.15447E+00, 0.16192E+00,-0.67781E-01,-0.15711E+00,-0.11630E+00,
     &-0.44230E-01, 0.33192E-02, 0.20795E-01, 0.20709E-01, 0.14460E-01,
     & 0.80679E-02, 0.35601E-02, 0.10058E-02,-0.16386E-03,-0.54059E-03,
     &-0.54469E-03,-0.42093E-03,-0.28785E-03,-0.18745E-03,-0.12183E-03,
     &-0.78876E-04,-0.50500E-04,-0.32350E-04
     & /
       real p77(0:22)
       data p77/
     & 0.16822E+00, 0.17579E+00,-0.74695E-01,-0.17138E+00,-0.12617E+00,
     &-0.47401E-01, 0.42074E-02, 0.22922E-01, 0.22580E-01, 0.15652E-01,
     & 0.86618E-02, 0.37723E-02, 0.10241E-02,-0.21994E-03,-0.60936E-03,
     &-0.60143E-03,-0.46029E-03,-0.31265E-03,-0.20252E-03,-0.13110E-03,
     &-0.84638E-04,-0.54072E-04,-0.34592E-04
     & /
       real p78(0:22)
       data p78/
     & 0.18254E+00, 0.19018E+00,-0.81995E-01,-0.18627E+00,-0.13639E+00,
     &-0.50613E-01, 0.51974E-02, 0.25163E-01, 0.24527E-01, 0.16879E-01,
     & 0.92651E-02, 0.39815E-02, 0.10355E-02,-0.28237E-03,-0.68273E-03,
     &-0.66102E-03,-0.50121E-03,-0.33821E-03,-0.21793E-03,-0.14053E-03,
     &-0.90469E-04,-0.57674E-04,-0.36847E-04
     & /
       real p79(0:23)
       data p79/
     & 0.19737E+00, 0.20500E+00,-0.89655E-01,-0.20171E+00,-0.14689E+00,
     &-0.53843E-01, 0.62902E-02, 0.27509E-01, 0.26540E-01, 0.18134E-01,
     & 0.98731E-02, 0.41854E-02, 0.10394E-02,-0.35118E-03,-0.76046E-03,
     &-0.72318E-03,-0.54345E-03,-0.36437E-03,-0.23357E-03,-0.15004E-03,
     &-0.96323E-04,-0.61276E-04,-0.39097E-04,-0.22815E-04
     & /
       real p80(0:23)
       data p80/
     & 0.21261E+00, 0.22016E+00,-0.97643E-01,-0.21760E+00,-0.15762E+00,
     &-0.57062E-01, 0.74858E-02, 0.29950E-01, 0.28607E-01, 0.19408E-01,
     & 0.10481E-01, 0.43819E-02, 0.10352E-02,-0.42626E-03,-0.84220E-03,
     &-0.78756E-03,-0.58675E-03,-0.39093E-03,-0.24932E-03,-0.15956E-03,
     &-0.10215E-03,-0.64846E-04,-0.41323E-04,-0.24024E-04
     & /
       real p81(0:23)
       data p81/
     & 0.22818E+00, 0.23558E+00,-0.10592E+00,-0.23387E+00,-0.16850E+00,
     &-0.60245E-01, 0.87821E-02, 0.32473E-01, 0.30716E-01, 0.20694E-01,
     & 0.11084E-01, 0.45687E-02, 0.10223E-02,-0.50744E-03,-0.92756E-03,
     &-0.85378E-03,-0.63080E-03,-0.41770E-03,-0.26506E-03,-0.16899E-03,
     &-0.10790E-03,-0.68355E-04,-0.43505E-04,-0.25196E-04
     & /
       real p82(0:23)
       data p82/
     & 0.24398E+00, 0.25115E+00,-0.11445E+00,-0.25042E+00,-0.17947E+00,
     &-0.63364E-01, 0.10176E-01, 0.35064E-01, 0.32852E-01, 0.21980E-01,
     & 0.11677E-01, 0.47441E-02, 0.10003E-02,-0.59442E-03,-0.10161E-02,
     &-0.92141E-03,-0.67532E-03,-0.44448E-03,-0.28065E-03,-0.17828E-03,
     &-0.11352E-03,-0.71771E-04,-0.45623E-04,-0.26321E-04
     & /
       real p83(0:23)
       data p83/
     & 0.25993E+00, 0.26678E+00,-0.12317E+00,-0.26713E+00,-0.19045E+00,
     &-0.66395E-01, 0.11663E-01, 0.37708E-01, 0.35003E-01, 0.23259E-01,
     & 0.12256E-01, 0.49060E-02, 0.96902E-03,-0.68683E-03,-0.11072E-02,
     &-0.99003E-03,-0.71997E-03,-0.47107E-03,-0.29598E-03,-0.18733E-03,
     &-0.11897E-03,-0.75066E-04,-0.47660E-04,-0.27389E-04
     & /
       real p84(0:23)
       data p84/
     & 0.27591E+00, 0.28236E+00,-0.13206E+00,-0.28393E+00,-0.20138E+00,
     &-0.69314E-01, 0.13237E-01, 0.40390E-01, 0.37155E-01, 0.24521E-01,
     & 0.12815E-01, 0.50530E-02, 0.92825E-03,-0.78422E-03,-0.12005E-02,
     &-0.10592E-02,-0.76446E-03,-0.49727E-03,-0.31093E-03,-0.19608E-03,
     &-0.12421E-03,-0.78211E-04,-0.49600E-04,-0.28390E-04
     & /
       real p85(0:23)
       data p85/
     & 0.29185E+00, 0.29780E+00,-0.14105E+00,-0.30070E+00,-0.21217E+00,
     &-0.72099E-01, 0.14892E-01, 0.43094E-01, 0.39293E-01, 0.25758E-01,
     & 0.13351E-01, 0.51838E-02, 0.87805E-03,-0.88609E-03,-0.12953E-02,
     &-0.11284E-02,-0.80848E-03,-0.52290E-03,-0.32538E-03,-0.20447E-03,
     &-0.12919E-03,-0.81185E-04,-0.51428E-04,-0.29317E-04
     & /
       real p86(0:23)
       data p86/
     & 0.30765E+00, 0.31301E+00,-0.15010E+00,-0.31735E+00,-0.22278E+00,
     &-0.74732E-01, 0.16619E-01, 0.45806E-01, 0.41406E-01, 0.26963E-01,
     & 0.13861E-01, 0.52971E-02, 0.81858E-03,-0.99188E-03,-0.13910E-02,
     &-0.11973E-02,-0.85176E-03,-0.54779E-03,-0.33925E-03,-0.21243E-03,
     &-0.13388E-03,-0.83967E-04,-0.53131E-04,-0.30164E-04
     & /
       real p87(0:23)
       data p87/
     & 0.32322E+00, 0.32791E+00,-0.15918E+00,-0.33380E+00,-0.23314E+00,
     &-0.77196E-01, 0.18412E-01, 0.48511E-01, 0.43482E-01, 0.28128E-01,
     & 0.14341E-01, 0.53925E-02, 0.75013E-03,-0.11010E-02,-0.14872E-02,
     &-0.12655E-02,-0.89402E-03,-0.57179E-03,-0.35243E-03,-0.21992E-03,
     &-0.13825E-03,-0.86540E-04,-0.54700E-04,-0.30925E-04
     & /
       real p88(0:23)
       data p88/
     & 0.33851E+00, 0.34244E+00,-0.16822E+00,-0.34997E+00,-0.24320E+00,
     &-0.79481E-01, 0.20260E-01, 0.51196E-01, 0.45511E-01, 0.29248E-01,
     & 0.14788E-01, 0.54693E-02, 0.67309E-03,-0.12129E-02,-0.15833E-02,
     &-0.13325E-02,-0.93506E-03,-0.59476E-03,-0.36488E-03,-0.22689E-03,
     &-0.14228E-03,-0.88892E-04,-0.56128E-04,-0.31598E-04
     & /
       real p89(0:23)
       data p89/
     & 0.35344E+00, 0.35654E+00,-0.17721E+00,-0.36579E+00,-0.25293E+00,
     &-0.81577E-01, 0.22156E-01, 0.53850E-01, 0.47484E-01, 0.30318E-01,
     & 0.15202E-01, 0.55275E-02, 0.58795E-03,-0.13269E-02,-0.16789E-02,
     &-0.13981E-02,-0.97466E-03,-0.61661E-03,-0.37652E-03,-0.23333E-03,
     &-0.14595E-03,-0.91016E-04,-0.57410E-04,-0.32181E-04
     & /
       real p90(0:23)
       data p90/
     & 0.36796E+00, 0.37015E+00,-0.18610E+00,-0.38122E+00,-0.26228E+00,
     &-0.83478E-01, 0.24091E-01, 0.56461E-01, 0.49394E-01, 0.31335E-01,
     & 0.15581E-01, 0.55672E-02, 0.49527E-03,-0.14425E-02,-0.17734E-02,
     &-0.14620E-02,-0.10127E-02,-0.63725E-03,-0.38732E-03,-0.23921E-03,
     &-0.14927E-03,-0.92906E-04,-0.58544E-04,-0.32673E-04
     & /
       real p91(0:23)
       data p91/
     & 0.38204E+00, 0.38324E+00,-0.19487E+00,-0.39619E+00,-0.27124E+00,
     &-0.85183E-01, 0.26058E-01, 0.59022E-01, 0.51234E-01, 0.32295E-01,
     & 0.15925E-01, 0.55888E-02, 0.39564E-03,-0.15591E-02,-0.18665E-02,
     &-0.15240E-02,-0.10490E-02,-0.65663E-03,-0.39726E-03,-0.24451E-03,
     &-0.15221E-03,-0.94562E-04,-0.59530E-04,-0.33076E-04
     & /
       real p92(0:23)
       data p92/
     & 0.39565E+00, 0.39579E+00,-0.20349E+00,-0.41069E+00,-0.27980E+00,
     &-0.86690E-01, 0.28049E-01, 0.61525E-01, 0.53002E-01, 0.33198E-01,
     & 0.16232E-01, 0.55927E-02, 0.28970E-03,-0.16763E-02,-0.19580E-02,
     &-0.15838E-02,-0.10835E-02,-0.67470E-03,-0.40633E-03,-0.24925E-03,
     &-0.15479E-03,-0.95986E-04,-0.60370E-04,-0.33391E-04
     & /
       real p93(0:23)
       data p93/
     & 0.40876E+00, 0.40778E+00,-0.21194E+00,-0.42467E+00,-0.28792E+00,
     &-0.88011E-01, 0.30047E-01, 0.63956E-01, 0.54690E-01, 0.34043E-01,
     & 0.16507E-01, 0.55817E-02, 0.17956E-03,-0.17926E-02,-0.20469E-02,
     &-0.16412E-02,-0.11161E-02,-0.69146E-03,-0.41456E-03,-0.25347E-03,
     &-0.15704E-03,-0.97204E-04,-0.61081E-04,-0.33629E-04
     & /
       real p94(0:23)
       data p94/
     & 0.42135E+00, 0.41920E+00,-0.22021E+00,-0.43813E+00,-0.29562E+00,
     &-0.89143E-01, 0.32053E-01, 0.66319E-01, 0.56300E-01, 0.34829E-01,
     & 0.16747E-01, 0.55548E-02, 0.64616E-04,-0.19085E-02,-0.21336E-02,
     &-0.16961E-02,-0.11468E-02,-0.70692E-03,-0.42194E-03,-0.25714E-03,
     &-0.15895E-03,-0.98206E-04,-0.61656E-04,-0.33789E-04
     & /
       real p95(0:23)
       data p95/
     & 0.43344E+00, 0.43006E+00,-0.22830E+00,-0.45107E+00,-0.30290E+00,
     &-0.90092E-01, 0.34066E-01, 0.68611E-01, 0.57832E-01, 0.35557E-01,
     & 0.16954E-01, 0.55128E-02,-0.54785E-04,-0.20237E-02,-0.22180E-02,
     &-0.17486E-02,-0.11756E-02,-0.72107E-03,-0.42847E-03,-0.26027E-03,
     &-0.16052E-03,-0.98997E-04,-0.62100E-04,-0.33871E-04
     & /
       real p96(0:23)
       data p96/
     & 0.44503E+00, 0.44036E+00,-0.23620E+00,-0.46349E+00,-0.30976E+00,
     &-0.90865E-01, 0.36080E-01, 0.70832E-01, 0.59286E-01, 0.36229E-01,
     & 0.17129E-01, 0.54565E-02,-0.17806E-03,-0.21381E-02,-0.22999E-02,
     &-0.17987E-02,-0.12025E-02,-0.73394E-03,-0.43419E-03,-0.26289E-03,
     &-0.16177E-03,-0.99588E-04,-0.62419E-04,-0.33882E-04
     & /
       real p97(0:23)
       data p97/
     & 0.45612E+00, 0.45013E+00,-0.24390E+00,-0.47540E+00,-0.31622E+00,
     &-0.91470E-01, 0.38092E-01, 0.72982E-01, 0.60665E-01, 0.36847E-01,
     & 0.17273E-01, 0.53870E-02,-0.30465E-03,-0.22512E-02,-0.23792E-02,
     &-0.18464E-02,-0.12276E-02,-0.74558E-03,-0.43912E-03,-0.26502E-03,
     &-0.16271E-03,-0.99990E-04,-0.62622E-04,-0.33825E-04
     & /
       real p98(0:23)
       data p98/
     & 0.46673E+00, 0.45937E+00,-0.25141E+00,-0.48681E+00,-0.32229E+00,
     &-0.91918E-01, 0.40098E-01, 0.75060E-01, 0.61970E-01, 0.37413E-01,
     & 0.17388E-01, 0.53052E-02,-0.43404E-03,-0.23629E-02,-0.24560E-02,
     &-0.18917E-02,-0.12509E-02,-0.75603E-03,-0.44330E-03,-0.26669E-03,
     &-0.16336E-03,-0.10022E-03,-0.62715E-04,-0.33705E-04
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,   3,   4,   4,   5,   5,   5,   5
     &,   6,   6,   6,   6,   7,   8,   9,   9,  10,  10
     &,  10,  10,  10,  11,  11,  11,  11,  11,  12,  12
     &,  12,  12,  12,  12,  12,  12,  13,  13,  13,  13
     &,  13,  14,  15,  16,  16,  17,  17,  18,  18,  18
     &,  19,  19,  19,  19,  20,  20,  20,  21,  21,  21
     &,  21,  21,  22,  22,  22,  22,  22,  23,  23,  23
     &,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  23,  23,  23,  23,  23
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le. 3) param(i,15) = p15(i)
             if (i.le. 4) param(i,16) = p16(i)
             if (i.le. 4) param(i,17) = p17(i)
             if (i.le. 5) param(i,18) = p18(i)
             if (i.le. 5) param(i,19) = p19(i)
             if (i.le. 5) param(i,20) = p20(i)
             if (i.le. 5) param(i,21) = p21(i)
             if (i.le. 6) param(i,22) = p22(i)
             if (i.le. 6) param(i,23) = p23(i)
             if (i.le. 6) param(i,24) = p24(i)
             if (i.le. 6) param(i,25) = p25(i)
             if (i.le. 7) param(i,26) = p26(i)
             if (i.le. 8) param(i,27) = p27(i)
             if (i.le. 9) param(i,28) = p28(i)
             if (i.le. 9) param(i,29) = p29(i)
             if (i.le.10) param(i,30) = p30(i)
             if (i.le.10) param(i,31) = p31(i)
             if (i.le.10) param(i,32) = p32(i)
             if (i.le.10) param(i,33) = p33(i)
             if (i.le.10) param(i,34) = p34(i)
             if (i.le.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.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.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.14) param(i,53) = p53(i)
             if (i.le.15) param(i,54) = p54(i)
             if (i.le.16) param(i,55) = p55(i)
             if (i.le.16) param(i,56) = p56(i)
             if (i.le.17) param(i,57) = p57(i)
             if (i.le.17) param(i,58) = p58(i)
             if (i.le.18) param(i,59) = p59(i)
             if (i.le.18) param(i,60) = p60(i)
             if (i.le.18) param(i,61) = p61(i)
             if (i.le.19) param(i,62) = p62(i)
             if (i.le.19) param(i,63) = p63(i)
             if (i.le.19) param(i,64) = p64(i)
             if (i.le.19) 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.21) 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.22) param(i,74) = p74(i)
             if (i.le.22) param(i,75) = p75(i)
             if (i.le.22) param(i,76) = p76(i)
             if (i.le.22) param(i,77) = p77(i)
             if (i.le.22) 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.23) param(i,94) = p94(i)
             if (i.le.23) param(i,95) = p95(i)
             if (i.le.23) param(i,96) = p96(i)
             if (i.le.23) param(i,97) = p97(i)
             if (i.le.23) param(i,98) = p98(i)
          enddo
       endif
            
       f3nchiq200=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
       f3nchiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) f3nchiq200=0.0
       if (q2.lt.q2min) f3nchiq200=0.0
       if ( x.gt. xmax) f3nchiq200=0.0
       if ( x.lt. xmin) f3nchiq200=0.0
       return
       end
       real function  flnchiq200(xin,q2in)
***********************************************************
c  parametrization of flnchiq200 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.98256E-01,-0.10255E+00,-0.75820E-03,-0.74296E-03, 0.42269E-02,
     & 0.18756E-02,-0.22078E-03,-0.58896E-03,-0.83111E-04, 0.30480E-03,
     & 0.31542E-03, 0.14332E-03,-0.30209E-05,-0.63578E-04,-0.58612E-04
     & /
       real p16(0:14)
       data p16/
     & 0.11448E+00,-0.12409E+00, 0.43082E-02,-0.53568E-03, 0.44102E-02,
     & 0.17800E-02,-0.30910E-03,-0.60330E-03,-0.54250E-04, 0.33434E-03,
     & 0.32658E-03, 0.13985E-03,-0.10220E-04,-0.69358E-04,-0.60898E-04
     & /
       real p17(0:14)
       data p17/
     & 0.13268E+00,-0.14868E+00, 0.10652E-01,-0.47755E-03, 0.45698E-02,
     & 0.16638E-02,-0.39838E-03,-0.61239E-03,-0.22273E-04, 0.36382E-03,
     & 0.33621E-03, 0.13502E-03,-0.17843E-04,-0.75105E-04,-0.62895E-04
     & /
       real p18(0:14)
       data p18/
     & 0.15212E+00,-0.17539E+00, 0.18090E-01,-0.61144E-03, 0.47024E-02,
     & 0.15342E-02,-0.48370E-03,-0.61593E-03, 0.11087E-04, 0.39181E-03,
     & 0.34392E-03, 0.12915E-03,-0.25478E-04,-0.80549E-04,-0.64517E-04
     & /
       real p19(0:14)
       data p19/
     & 0.17278E+00,-0.20418E+00, 0.26631E-01,-0.96479E-03, 0.48142E-02,
     & 0.13939E-02,-0.56436E-03,-0.61438E-03, 0.45391E-04, 0.41827E-03,
     & 0.34986E-03, 0.12240E-03,-0.33044E-04,-0.85687E-04,-0.65789E-04
     & /
       real p20(0:14)
       data p20/
     & 0.19464E+00,-0.23501E+00, 0.36280E-01,-0.15619E-02, 0.49115E-02,
     & 0.12454E-02,-0.63989E-03,-0.60820E-03, 0.80267E-04, 0.44314E-03,
     & 0.35419E-03, 0.11491E-03,-0.40477E-04,-0.90522E-04,-0.66736E-04
     & /
       real p21(0:14)
       data p21/
     & 0.21765E+00,-0.26784E+00, 0.47038E-01,-0.24241E-02, 0.50010E-02,
     & 0.10906E-02,-0.70996E-03,-0.59784E-03, 0.11540E-03, 0.46644E-03,
     & 0.35704E-03, 0.10680E-03,-0.47727E-04,-0.95060E-04,-0.67382E-04
     & /
       real p22(0:14)
       data p22/
     & 0.24178E+00,-0.30261E+00, 0.58902E-01,-0.35702E-02, 0.50892E-02,
     & 0.93108E-03,-0.77441E-03,-0.58372E-03, 0.15052E-03, 0.48816E-03,
     & 0.35855E-03, 0.98177E-04,-0.54751E-04,-0.99312E-04,-0.67749E-04
     & /
       real p23(0:14)
       data p23/
     & 0.26700E+00,-0.33927E+00, 0.71866E-01,-0.50165E-02, 0.51826E-02,
     & 0.76821E-03,-0.83316E-03,-0.56625E-03, 0.18541E-03, 0.50834E-03,
     & 0.35884E-03, 0.89141E-04,-0.61518E-04,-0.10329E-03,-0.67858E-04
     & /
       real p24(0:15)
       data p24/
     & 0.29328E+00,-0.37779E+00, 0.85922E-01,-0.67771E-02, 0.52877E-02,
     & 0.60292E-03,-0.88621E-03,-0.54581E-03, 0.21988E-03, 0.52701E-03,
     & 0.35802E-03, 0.79770E-04,-0.68004E-04,-0.10700E-03,-0.67729E-04,
     &-0.33937E-04
     & /
       real p25(0:15)
       data p25/
     & 0.32058E+00,-0.41810E+00, 0.10106E+00,-0.88643E-02, 0.54105E-02,
     & 0.43595E-03,-0.93364E-03,-0.52274E-03, 0.25378E-03, 0.54423E-03,
     & 0.35620E-03, 0.70136E-04,-0.74191E-04,-0.11047E-03,-0.67380E-04,
     &-0.33319E-04
     & /
       real p26(0:15)
       data p26/
     & 0.34888E+00,-0.46017E+00, 0.11726E+00,-0.11288E-01, 0.55572E-02,
     & 0.26783E-03,-0.97555E-03,-0.49737E-03, 0.28698E-03, 0.56004E-03,
     & 0.35348E-03, 0.60302E-04,-0.80064E-04,-0.11371E-03,-0.66829E-04,
     &-0.32658E-04
     & /
       real p27(0:14)
       data p27/
     & 0.37812E+00,-0.50393E+00, 0.13452E+00,-0.14058E-01, 0.57276E-02,
     & 0.10703E-03,-0.10151E-02,-0.47098E-03, 0.32188E-03, 0.56856E-03,
     & 0.35994E-03, 0.40968E-04,-0.82818E-04,-0.10653E-03,-0.70457E-04
     & /
       real p28(0:14)
       data p28/
     & 0.40830E+00,-0.54934E+00, 0.15281E+00,-0.17180E-01, 0.59380E-02,
     &-0.61688E-04,-0.10469E-02,-0.44195E-03, 0.35377E-03, 0.58098E-03,
     & 0.35690E-03, 0.29761E-04,-0.87872E-04,-0.10847E-03,-0.70302E-04
     & /
       real p29(0:14)
       data p29/
     & 0.43937E+00,-0.59635E+00, 0.17213E+00,-0.20661E-01, 0.61883E-02,
     &-0.23098E-03,-0.10736E-02,-0.41145E-03, 0.38473E-03, 0.59212E-03,
     & 0.35328E-03, 0.18435E-04,-0.92590E-04,-0.11020E-03,-0.70052E-04
     & /
       real p30(0:13)
       data p30/
     & 0.47131E+00,-0.64492E+00, 0.19244E+00,-0.24504E-01, 0.64835E-02,
     &-0.40095E-03,-0.10956E-02,-0.37971E-03, 0.41473E-03, 0.60202E-03,
     & 0.34916E-03, 0.70241E-05,-0.96970E-04,-0.11171E-03
     & /
       real p31(0:14)
       data p31/
     & 0.52440E+00,-0.72099E+00, 0.21816E+00,-0.27821E-01, 0.74553E-02,
     &-0.49154E-03,-0.13070E-02,-0.51122E-03, 0.39579E-03, 0.63430E-03,
     & 0.37866E-03, 0.12543E-04,-0.97609E-04,-0.11559E-03,-0.72335E-04
     & /
       real p32(0:14)
       data p32/
     & 0.54590E+00,-0.75381E+00, 0.23211E+00,-0.30585E-01, 0.76853E-02,
     &-0.60443E-03,-0.13196E-02,-0.49005E-03, 0.41530E-03, 0.64073E-03,
     & 0.37616E-03, 0.52301E-05,-0.10025E-03,-0.11652E-03,-0.72147E-04
     & /
       real p33(0:13)
       data p33/
     & 0.58205E+00,-0.80920E+00, 0.25595E+00,-0.35459E-01, 0.81099E-02,
     &-0.79188E-03,-0.13364E-02,-0.45426E-03, 0.44664E-03, 0.65037E-03,
     & 0.37167E-03,-0.68858E-05,-0.10433E-03,-0.11791E-03
     & /
       real p34(0:12)
       data p34/
     & 0.61910E+00,-0.86621E+00, 0.28084E+00,-0.40739E-01, 0.85953E-02,
     &-0.98138E-03,-0.13485E-02,-0.41747E-03, 0.47696E-03, 0.65885E-03,
     & 0.36676E-03,-0.19064E-04,-0.10808E-03
     & /
       real p35(0:12)
       data p35/
     & 0.65703E+00,-0.92480E+00, 0.30678E+00,-0.46425E-01, 0.91456E-02,
     &-0.11733E-02,-0.13561E-02,-0.37987E-03, 0.50623E-03, 0.66622E-03,
     & 0.36149E-03,-0.31278E-04,-0.11149E-03
     & /
       real p36(0:12)
       data p36/
     & 0.69581E+00,-0.98493E+00, 0.33376E+00,-0.52522E-01, 0.97651E-02,
     &-0.13681E-02,-0.13593E-02,-0.34162E-03, 0.53443E-03, 0.67254E-03,
     & 0.35590E-03,-0.43508E-04,-0.11458E-03
     & /
       real p37(0:12)
       data p37/
     & 0.73542E+00,-0.10466E+01, 0.36174E+00,-0.59030E-01, 0.10458E-01,
     &-0.15662E-02,-0.13583E-02,-0.30289E-03, 0.56155E-03, 0.67786E-03,
     & 0.35004E-03,-0.55734E-04,-0.11734E-03
     & /
       real p38(0:12)
       data p38/
     & 0.77583E+00,-0.11097E+01, 0.39072E+00,-0.65950E-01, 0.11227E-01,
     &-0.17681E-02,-0.13532E-02,-0.26380E-03, 0.58758E-03, 0.68223E-03,
     & 0.34395E-03,-0.67940E-04,-0.11977E-03
     & /
       real p39(0:12)
       data p39/
     & 0.81702E+00,-0.11742E+01, 0.42067E+00,-0.73283E-01, 0.12076E-01,
     &-0.19744E-02,-0.13442E-02,-0.22449E-03, 0.61253E-03, 0.68570E-03,
     & 0.33768E-03,-0.80112E-04,-0.12189E-03
     & /
       real p40(0:12)
       data p40/
     & 0.85897E+00,-0.12401E+01, 0.45158E+00,-0.81028E-01, 0.13008E-01,
     &-0.21858E-02,-0.13314E-02,-0.18507E-03, 0.63640E-03, 0.68831E-03,
     & 0.33127E-03,-0.92237E-04,-0.12370E-03
     & /
       real p41(0:12)
       data p41/
     & 0.90165E+00,-0.13073E+01, 0.48344E+00,-0.89185E-01, 0.14026E-01,
     &-0.24027E-02,-0.13150E-02,-0.14564E-03, 0.65919E-03, 0.69012E-03,
     & 0.32473E-03,-0.10431E-03,-0.12521E-03
     & /
       real p42(0:12)
       data p42/
     & 0.94505E+00,-0.13759E+01, 0.51622E+00,-0.97752E-01, 0.15132E-01,
     &-0.26258E-02,-0.12951E-02,-0.10631E-03, 0.68093E-03, 0.69117E-03,
     & 0.31811E-03,-0.11631E-03,-0.12643E-03
     & /
       real p43(0:12)
       data p43/
     & 0.98915E+00,-0.14457E+01, 0.54992E+00,-0.10673E+00, 0.16330E-01,
     &-0.28557E-02,-0.12718E-02,-0.67161E-04, 0.70162E-03, 0.69150E-03,
     & 0.31143E-03,-0.12824E-03,-0.12736E-03
     & /
       real p44(0:12)
       data p44/
     & 0.10339E+01,-0.15168E+01, 0.58450E+00,-0.11611E+00, 0.17622E-01,
     &-0.30931E-02,-0.12452E-02,-0.28268E-04, 0.72129E-03, 0.69115E-03,
     & 0.30472E-03,-0.14009E-03,-0.12800E-03
     & /
       real p45(0:12)
       data p45/
     & 0.10794E+01,-0.15891E+01, 0.61996E+00,-0.12590E+00, 0.19009E-01,
     &-0.33387E-02,-0.12153E-02, 0.10297E-04, 0.73995E-03, 0.69017E-03,
     & 0.29801E-03,-0.15187E-03,-0.12838E-03
     & /
       real p46(0:12)
       data p46/
     & 0.11254E+01,-0.16627E+01, 0.65629E+00,-0.13610E+00, 0.20494E-01,
     &-0.35930E-02,-0.11824E-02, 0.48471E-04, 0.75764E-03, 0.68859E-03,
     & 0.29130E-03,-0.16355E-03,-0.12848E-03
     & /
       real p47(0:12)
       data p47/
     & 0.11722E+01,-0.17373E+01, 0.69347E+00,-0.14670E+00, 0.22079E-01,
     &-0.38567E-02,-0.11464E-02, 0.86196E-04, 0.77437E-03, 0.68645E-03,
     & 0.28463E-03,-0.17515E-03,-0.12834E-03
     & /
       real p48(0:12)
       data p48/
     & 0.12195E+01,-0.18132E+01, 0.73148E+00,-0.15769E+00, 0.23766E-01,
     &-0.41306E-02,-0.11075E-02, 0.12342E-03, 0.79017E-03, 0.68380E-03,
     & 0.27801E-03,-0.18666E-03,-0.12794E-03
     & /
       real p49(0:12)
       data p49/
     & 0.12674E+01,-0.18902E+01, 0.77033E+00,-0.16909E+00, 0.25556E-01,
     &-0.44151E-02,-0.10657E-02, 0.16010E-03, 0.80506E-03, 0.68065E-03,
     & 0.27146E-03,-0.19808E-03,-0.12730E-03
     & /
       real p50(0:12)
       data p50/
     & 0.13160E+01,-0.19683E+01, 0.80999E+00,-0.18088E+00, 0.27450E-01,
     &-0.47111E-02,-0.10210E-02, 0.19619E-03, 0.81909E-03, 0.67705E-03,
     & 0.26499E-03,-0.20941E-03,-0.12642E-03
     & /
       real p51(0:11)
       data p51/
     & 0.13652E+01,-0.20475E+01, 0.85046E+00,-0.19307E+00, 0.29451E-01,
     &-0.50192E-02,-0.97359E-03, 0.23166E-03, 0.83226E-03, 0.67303E-03,
     & 0.25862E-03,-0.22065E-03
     & /
       real p52(0:11)
       data p52/
     & 0.14150E+01,-0.21279E+01, 0.89175E+00,-0.20565E+00, 0.31561E-01,
     &-0.53400E-02,-0.92338E-03, 0.26648E-03, 0.84463E-03, 0.66862E-03,
     & 0.25236E-03,-0.23181E-03
     & /
       real p53(0:11)
       data p53/
     & 0.14653E+01,-0.22093E+01, 0.93385E+00,-0.21864E+00, 0.33780E-01,
     &-0.56742E-02,-0.87047E-03, 0.30062E-03, 0.85622E-03, 0.66386E-03,
     & 0.24623E-03,-0.24289E-03
     & /
       real p54(0:11)
       data p54/
     & 0.15164E+01,-0.22920E+01, 0.97677E+00,-0.23201E+00, 0.36111E-01,
     &-0.60225E-02,-0.81487E-03, 0.33405E-03, 0.86706E-03, 0.65877E-03,
     & 0.24023E-03,-0.25389E-03
     & /
       real p55(0:11)
       data p55/
     & 0.15681E+01,-0.23758E+01, 0.10205E+01,-0.24580E+00, 0.38555E-01,
     &-0.63857E-02,-0.75661E-03, 0.36675E-03, 0.87719E-03, 0.65339E-03,
     & 0.23437E-03,-0.26482E-03
     & /
       real p56(0:11)
       data p56/
     & 0.16204E+01,-0.24608E+01, 0.10651E+01,-0.25998E+00, 0.41115E-01,
     &-0.67646E-02,-0.69571E-03, 0.39872E-03, 0.88664E-03, 0.64775E-03,
     & 0.22867E-03,-0.27569E-03
     & /
       real p57(0:11)
       data p57/
     & 0.16736E+01,-0.25472E+01, 0.11106E+01,-0.27459E+00, 0.43794E-01,
     &-0.71599E-02,-0.63217E-03, 0.42994E-03, 0.89547E-03, 0.64187E-03,
     & 0.22314E-03,-0.28651E-03
     & /
       real p58(0:11)
       data p58/
     & 0.17275E+01,-0.26349E+01, 0.11570E+01,-0.28961E+00, 0.46595E-01,
     &-0.75725E-02,-0.56600E-03, 0.46041E-03, 0.90370E-03, 0.63579E-03,
     & 0.21778E-03,-0.29730E-03
     & /
       real p59(0:11)
       data p59/
     & 0.17822E+01,-0.27242E+01, 0.12043E+01,-0.30508E+00, 0.49520E-01,
     &-0.80035E-02,-0.49719E-03, 0.49011E-03, 0.91139E-03, 0.62955E-03,
     & 0.21262E-03,-0.30805E-03
     & /
       real p60(0:11)
       data p60/
     & 0.18379E+01,-0.28150E+01, 0.12527E+01,-0.32100E+00, 0.52575E-01,
     &-0.84540E-02,-0.42572E-03, 0.51905E-03, 0.91859E-03, 0.62317E-03,
     & 0.20765E-03,-0.31880E-03
     & /
       real p61(0:11)
       data p61/
     & 0.18947E+01,-0.29077E+01, 0.13022E+01,-0.33741E+00, 0.55766E-01,
     &-0.89250E-02,-0.35155E-03, 0.54725E-03, 0.92534E-03, 0.61670E-03,
     & 0.20290E-03,-0.32956E-03
     & /
       real p62(0:11)
       data p62/
     & 0.19528E+01,-0.30025E+01, 0.13529E+01,-0.35432E+00, 0.59097E-01,
     &-0.94182E-02,-0.27464E-03, 0.57470E-03, 0.93170E-03, 0.61016E-03,
     & 0.19837E-03,-0.34036E-03
     & /
       real p63(0:11)
       data p63/
     & 0.20122E+01,-0.30995E+01, 0.14050E+01,-0.37179E+00, 0.62579E-01,
     &-0.99350E-02,-0.19493E-03, 0.60144E-03, 0.93774E-03, 0.60360E-03,
     & 0.19407E-03,-0.35123E-03
     & /
       real p64(0:11)
       data p64/
     & 0.20731E+01,-0.31992E+01, 0.14585E+01,-0.38985E+00, 0.66219E-01,
     &-0.10477E-01,-0.11231E-03, 0.62748E-03, 0.94352E-03, 0.59705E-03,
     & 0.19003E-03,-0.36219E-03
     & /
       real p65(0:11)
       data p65/
     & 0.21360E+01,-0.33020E+01, 0.15138E+01,-0.40856E+00, 0.70031E-01,
     &-0.11047E-01,-0.26681E-04, 0.65285E-03, 0.94912E-03, 0.59055E-03,
     & 0.18625E-03,-0.37330E-03
     & /
       real p66(0:11)
       data p66/
     & 0.22009E+01,-0.34082E+01, 0.15710E+01,-0.42798E+00, 0.74027E-01,
     &-0.11648E-01, 0.62125E-04, 0.67761E-03, 0.95461E-03, 0.58416E-03,
     & 0.18275E-03,-0.38459E-03
     & /
       real p67(0:11)
       data p67/
     & 0.22684E+01,-0.35183E+01, 0.16303E+01,-0.44820E+00, 0.78224E-01,
     &-0.12281E-01, 0.15430E-03, 0.70179E-03, 0.96008E-03, 0.57791E-03,
     & 0.17956E-03,-0.39612E-03
     & /
       real p68(0:11)
       data p68/
     & 0.23386E+01,-0.36331E+01, 0.16921E+01,-0.46931E+00, 0.82640E-01,
     &-0.12951E-01, 0.25009E-03, 0.72544E-03, 0.96562E-03, 0.57184E-03,
     & 0.17668E-03,-0.40794E-03
     & /
       real p69(0:11)
       data p69/
     & 0.24121E+01,-0.37531E+01, 0.17566E+01,-0.49141E+00, 0.87298E-01,
     &-0.13660E-01, 0.34981E-03, 0.74864E-03, 0.97131E-03, 0.56600E-03,
     & 0.17414E-03,-0.42012E-03
     & /
       real p70(0:11)
       data p70/
     & 0.24893E+01,-0.38791E+01, 0.18244E+01,-0.51462E+00, 0.92222E-01,
     &-0.14415E-01, 0.45380E-03, 0.77144E-03, 0.97726E-03, 0.56042E-03,
     & 0.17196E-03,-0.43273E-03
     & /
       real p71(0:11)
       data p71/
     & 0.25707E+01,-0.40119E+01, 0.18957E+01,-0.53905E+00, 0.97440E-01,
     &-0.15218E-01, 0.56251E-03, 0.79392E-03, 0.98354E-03, 0.55515E-03,
     & 0.17016E-03,-0.44584E-03
     & /
       real p72(0:11)
       data p72/
     & 0.26567E+01,-0.41522E+01, 0.19709E+01,-0.56487E+00, 0.10298E+00,
     &-0.16075E-01, 0.67644E-03, 0.81616E-03, 0.99026E-03, 0.55022E-03,
     & 0.16876E-03,-0.45953E-03
     & /
       real p73(0:11)
       data p73/
     & 0.27480E+01,-0.43010E+01, 0.20506E+01,-0.59220E+00, 0.10888E+00,
     &-0.16991E-01, 0.79616E-03, 0.83824E-03, 0.99749E-03, 0.54564E-03,
     & 0.16777E-03,-0.47388E-03
     & /
       real p74(0:11)
       data p74/
     & 0.28450E+01,-0.44590E+01, 0.21351E+01,-0.62119E+00, 0.11516E+00,
     &-0.17973E-01, 0.92232E-03, 0.86021E-03, 0.10053E-02, 0.54144E-03,
     & 0.16721E-03,-0.48895E-03
     & /
       real p75(0:11)
       data p75/
     & 0.29483E+01,-0.46269E+01, 0.22248E+01,-0.65199E+00, 0.12187E+00,
     &-0.19025E-01, 0.10556E-02, 0.88215E-03, 0.10137E-02, 0.53761E-03,
     & 0.16710E-03,-0.50483E-03
     & /
       real p76(0:11)
       data p76/
     & 0.30581E+01,-0.48056E+01, 0.23202E+01,-0.68473E+00, 0.12902E+00,
     &-0.20154E-01, 0.11968E-02, 0.90411E-03, 0.10229E-02, 0.53415E-03,
     & 0.16745E-03,-0.52158E-03
     & /
       real p77(0:11)
       data p77/
     & 0.31748E+01,-0.49954E+01, 0.24216E+01,-0.71954E+00, 0.13667E+00,
     &-0.21364E-01, 0.13467E-02, 0.92612E-03, 0.10327E-02, 0.53104E-03,
     & 0.16825E-03,-0.53924E-03
     & /
       real p78(0:11)
       data p78/
     & 0.32987E+01,-0.51969E+01, 0.25291E+01,-0.75652E+00, 0.14482E+00,
     &-0.22661E-01, 0.15061E-02, 0.94820E-03, 0.10432E-02, 0.52822E-03,
     & 0.16950E-03,-0.55784E-03
     & /
       real p79(0:11)
       data p79/
     & 0.34299E+01,-0.54103E+01, 0.26429E+01,-0.79572E+00, 0.15350E+00,
     &-0.24049E-01, 0.16757E-02, 0.97034E-03, 0.10543E-02, 0.52565E-03,
     & 0.17121E-03,-0.57741E-03
     & /
       real p80(0:11)
       data p80/
     & 0.35684E+01,-0.56354E+01, 0.27631E+01,-0.83720E+00, 0.16274E+00,
     &-0.25532E-01, 0.18563E-02, 0.99249E-03, 0.10659E-02, 0.52327E-03,
     & 0.17335E-03,-0.59793E-03
     & /
       real p81(0:11)
       data p81/
     & 0.37139E+01,-0.58720E+01, 0.28896E+01,-0.88095E+00, 0.17252E+00,
     &-0.27110E-01, 0.20485E-02, 0.10146E-02, 0.10781E-02, 0.52099E-03,
     & 0.17590E-03,-0.61939E-03
     & /
       real p82(0:11)
       data p82/
     & 0.38660E+01,-0.61196E+01, 0.30221E+01,-0.92694E+00, 0.18286E+00,
     &-0.28786E-01, 0.22528E-02, 0.10365E-02, 0.10906E-02, 0.51873E-03,
     & 0.17884E-03,-0.64172E-03
     & /
       real p83(0:11)
       data p83/
     & 0.40244E+01,-0.63774E+01, 0.31603E+01,-0.97507E+00, 0.19374E+00,
     &-0.30558E-01, 0.24697E-02, 0.10582E-02, 0.11033E-02, 0.51639E-03,
     & 0.18214E-03,-0.66486E-03
     & /
       real p84(0:11)
       data p84/
     & 0.41884E+01,-0.66445E+01, 0.33038E+01,-0.10252E+01, 0.20516E+00,
     &-0.32425E-01, 0.26995E-02, 0.10795E-02, 0.11160E-02, 0.51389E-03,
     & 0.18576E-03,-0.68871E-03
     & /
       real p85(0:11)
       data p85/
     & 0.43572E+01,-0.69196E+01, 0.34520E+01,-0.10773E+01, 0.21707E+00,
     &-0.34385E-01, 0.29422E-02, 0.11002E-02, 0.11287E-02, 0.51112E-03,
     & 0.18967E-03,-0.71318E-03
     & /
       real p86(0:11)
       data p86/
     & 0.45300E+01,-0.72017E+01, 0.36043E+01,-0.11310E+01, 0.22946E+00,
     &-0.36433E-01, 0.31979E-02, 0.11202E-02, 0.11411E-02, 0.50801E-03,
     & 0.19383E-03,-0.73814E-03
     & /
       real p87(0:11)
       data p87/
     & 0.47060E+01,-0.74891E+01, 0.37601E+01,-0.11863E+01, 0.24229E+00,
     &-0.38564E-01, 0.34664E-02, 0.11393E-02, 0.11530E-02, 0.50448E-03,
     & 0.19820E-03,-0.76346E-03
     & /
       real p88(0:11)
       data p88/
     & 0.48843E+01,-0.77807E+01, 0.39185E+01,-0.12428E+01, 0.25550E+00,
     &-0.40773E-01, 0.37474E-02, 0.11572E-02, 0.11644E-02, 0.50047E-03,
     & 0.20274E-03,-0.78903E-03
     & /
       real p89(0:11)
       data p89/
     & 0.50640E+01,-0.80749E+01, 0.40790E+01,-0.13004E+01, 0.26907E+00,
     &-0.43053E-01, 0.40405E-02, 0.11739E-02, 0.11751E-02, 0.49591E-03,
     & 0.20742E-03,-0.81472E-03
     & /
       real p90(0:11)
       data p90/
     & 0.52443E+01,-0.83704E+01, 0.42408E+01,-0.13589E+01, 0.28295E+00,
     &-0.45399E-01, 0.43452E-02, 0.11892E-02, 0.11850E-02, 0.49077E-03,
     & 0.21221E-03,-0.84040E-03
     & /
       real p91(0:11)
       data p91/
     & 0.54244E+01,-0.86659E+01, 0.44033E+01,-0.14179E+01, 0.29709E+00,
     &-0.47803E-01, 0.46610E-02, 0.12029E-02, 0.11939E-02, 0.48503E-03,
     & 0.21707E-03,-0.86597E-03
     & /
       real p92(0:11)
       data p92/
     & 0.56036E+01,-0.89604E+01, 0.45659E+01,-0.14774E+01, 0.31145E+00,
     &-0.50261E-01, 0.49873E-02, 0.12149E-02, 0.12019E-02, 0.47866E-03,
     & 0.22200E-03,-0.89133E-03
     & /
       real p93(0:11)
       data p93/
     & 0.57851E+01,-0.92589E+01, 0.47311E+01,-0.15382E+01, 0.32621E+00,
     &-0.52801E-01, 0.53270E-02, 0.12259E-02, 0.12096E-02, 0.47199E-03,
     & 0.22712E-03,-0.91700E-03
     & /
       real p94(0:11)
       data p94/
     & 0.59654E+01,-0.95560E+01, 0.48963E+01,-0.15994E+01, 0.34119E+00,
     &-0.55392E-01, 0.56773E-02, 0.12351E-02, 0.12164E-02, 0.46474E-03,
     & 0.23229E-03,-0.94244E-03
     & /
       real p95(0:10)
       data p95/
     & 0.61436E+01,-0.98499E+01, 0.50604E+01,-0.16606E+01, 0.35630E+00,
     &-0.58026E-01, 0.60370E-02, 0.12423E-02, 0.12221E-02, 0.45687E-03,
     & 0.23748E-03
     & /
       real p96(0: 9)
       data p96/
     & 0.63192E+01,-0.10140E+02, 0.52231E+01,-0.17217E+01, 0.37153E+00,
     &-0.60697E-01, 0.64056E-02, 0.12475E-02, 0.12268E-02, 0.44842E-03
     & /
       real p97(0: 9)
       data p97/
     & 0.64920E+01,-0.10426E+02, 0.53843E+01,-0.17827E+01, 0.38684E+00,
     &-0.63401E-01, 0.67826E-02, 0.12506E-02, 0.12303E-02, 0.43940E-03
     & /
       real p98(0: 9)
       data p98/
     & 0.66618E+01,-0.10708E+02, 0.55437E+01,-0.18434E+01, 0.40223E+00,
     &-0.66137E-01, 0.71676E-02, 0.12517E-02, 0.12328E-02, 0.42986E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  14,  14,  14,  14,  14,  14,  14
     &,  14,  14,  15,  15,  15,  14,  14,  14,  13,  14
     &,  14,  13,  12,  12,  12,  12,  12,  12,  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,  10,   9,   9,   9
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.14) param(i,15) = p15(i)
             if (i.le.14) param(i,16) = p16(i)
             if (i.le.14) param(i,17) = p17(i)
             if (i.le.14) param(i,18) = p18(i)
             if (i.le.14) param(i,19) = p19(i)
             if (i.le.14) param(i,20) = p20(i)
             if (i.le.14) param(i,21) = p21(i)
             if (i.le.14) param(i,22) = p22(i)
             if (i.le.14) 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.13) param(i,30) = p30(i)
             if (i.le.14) param(i,31) = p31(i)
             if (i.le.14) 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.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.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.10) 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
            
       flnchiq200=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
       flnchiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) flnchiq200=0.0
       if (q2.lt.q2min) flnchiq200=0.0
       if ( x.gt. xmax) flnchiq200=0.0
       if ( x.lt. xmin) flnchiq200=0.0
       return
       end
       real function  w2cehiq200(xin,q2in)
***********************************************************
c  parametrization of w2cehiq200 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:22)
       data p15/
     & 0.17513E+01,-0.13683E+01, 0.33895E+00,-0.22342E+00,-0.19883E+00,
     &-0.17920E+00,-0.11624E+00,-0.56980E-01,-0.16026E-01, 0.61362E-02,
     & 0.14762E-01, 0.15782E-01, 0.13550E-01, 0.10335E-01, 0.74136E-02,
     & 0.50355E-02, 0.33051E-02, 0.21198E-02, 0.12951E-02, 0.83634E-03,
     & 0.50981E-03, 0.29349E-03, 0.24354E-03
     & /
       real p16(0:22)
       data p16/
     & 0.19809E+01,-0.16123E+01, 0.39550E+00,-0.24557E+00,-0.21370E+00,
     &-0.18944E+00,-0.12040E+00,-0.57136E-01,-0.14251E-01, 0.84160E-02,
     & 0.16773E-01, 0.17259E-01, 0.14515E-01, 0.10889E-01, 0.76985E-02,
     & 0.51506E-02, 0.33299E-02, 0.21048E-02, 0.12606E-02, 0.80795E-03,
     & 0.48251E-03, 0.26635E-03, 0.23101E-03
     & /
       real p17(0:22)
       data p17/
     & 0.22380E+01,-0.18937E+01, 0.46318E+00,-0.27004E+00,-0.22877E+00,
     &-0.19956E+00,-0.12420E+00,-0.56917E-01,-0.12182E-01, 0.10882E-01,
     & 0.18875E-01, 0.18758E-01, 0.15465E-01, 0.11412E-01, 0.79499E-02,
     & 0.52354E-02, 0.33310E-02, 0.20729E-02, 0.12136E-02, 0.77237E-03,
     & 0.45023E-03, 0.23510E-03, 0.21707E-03
     & /
       real p18(0:21)
       data p18/
     & 0.25135E+01,-0.22034E+01, 0.54044E+00,-0.29607E+00,-0.24336E+00,
     &-0.20912E+00,-0.12750E+00,-0.56351E-01,-0.99260E-02, 0.13417E-01,
     & 0.20968E-01, 0.20209E-01, 0.16357E-01, 0.11880E-01, 0.81572E-02,
     & 0.52874E-02, 0.33095E-02, 0.20267E-02, 0.11573E-02, 0.73200E-03,
     & 0.41498E-03, 0.20144E-03
     & /
       real p19(0:21)
       data p19/
     & 0.28081E+01,-0.25424E+01, 0.62801E+00,-0.32388E+00,-0.25744E+00,
     &-0.21816E+00,-0.13034E+00,-0.55477E-01,-0.75088E-02, 0.16002E-01,
     & 0.23042E-01, 0.21609E-01, 0.17192E-01, 0.12295E-01, 0.83233E-02,
     & 0.53093E-02, 0.32679E-02, 0.19683E-02, 0.10929E-02, 0.68792E-03,
     & 0.37750E-03, 0.16584E-03
     & /
       real p20(0:21)
       data p20/
     & 0.31223E+01,-0.29117E+01, 0.72657E+00,-0.35365E+00,-0.27096E+00,
     &-0.22672E+00,-0.13275E+00,-0.54328E-01,-0.49547E-02, 0.18624E-01,
     & 0.25092E-01, 0.22957E-01, 0.17970E-01, 0.12659E-01, 0.84513E-02,
     & 0.53041E-02, 0.32087E-02, 0.18995E-02, 0.10220E-02, 0.64106E-03,
     & 0.33843E-03, 0.12870E-03
     & /
       real p21(0:20)
       data p21/
     & 0.34565E+01,-0.33121E+01, 0.83681E+00,-0.38562E+00,-0.28390E+00,
     &-0.23482E+00,-0.13479E+00,-0.52933E-01,-0.22839E-02, 0.21271E-01,
     & 0.27110E-01, 0.24249E-01, 0.18693E-01, 0.12975E-01, 0.85439E-02,
     & 0.52741E-02, 0.31338E-02, 0.18219E-02, 0.94538E-03, 0.59225E-03,
     & 0.29831E-03
     & /
       real p22(0:20)
       data p22/
     & 0.38114E+01,-0.37444E+01, 0.95936E+00,-0.41997E+00,-0.29624E+00,
     &-0.24249E+00,-0.13646E+00,-0.51318E-01, 0.48591E-03, 0.23932E-01,
     & 0.29094E-01, 0.25486E-01, 0.19362E-01, 0.13246E-01, 0.86038E-02,
     & 0.52219E-02, 0.30452E-02, 0.17369E-02, 0.86420E-03, 0.54218E-03,
     & 0.25759E-03
     & /
       real p23(0:19)
       data p23/
     & 0.41874E+01,-0.42097E+01, 0.10949E+01,-0.45692E+00,-0.30794E+00,
     &-0.24978E+00,-0.13782E+00,-0.49506E-01, 0.33393E-02, 0.26598E-01,
     & 0.31038E-01, 0.26668E-01, 0.19979E-01, 0.13473E-01, 0.86336E-02,
     & 0.51495E-02, 0.29446E-02, 0.16459E-02, 0.77924E-03, 0.49143E-03
     & /
       real p24(0:19)
       data p24/
     & 0.45849E+01,-0.47085E+01, 0.12439E+01,-0.49668E+00,-0.31896E+00,
     &-0.25670E+00,-0.13887E+00,-0.47516E-01, 0.62630E-02, 0.29263E-01,
     & 0.32941E-01, 0.27794E-01, 0.20546E-01, 0.13660E-01, 0.86355E-02,
     & 0.50591E-02, 0.28336E-02, 0.15500E-02, 0.69122E-03, 0.44053E-03
     & /
       real p25(0:19)
       data p25/
     & 0.50045E+01,-0.52417E+01, 0.14070E+01,-0.53947E+00,-0.32928E+00,
     &-0.26329E+00,-0.13965E+00,-0.45368E-01, 0.92454E-02, 0.31920E-01,
     & 0.34799E-01, 0.28866E-01, 0.21064E-01, 0.13808E-01, 0.86120E-02,
     & 0.49523E-02, 0.27134E-02, 0.14501E-02, 0.60075E-03, 0.38990E-03
     & /
       real p26(0:19)
       data p26/
     & 0.54464E+01,-0.58101E+01, 0.15849E+01,-0.58548E+00,-0.33887E+00,
     &-0.26957E+00,-0.14018E+00,-0.43076E-01, 0.12276E-01, 0.34564E-01,
     & 0.36613E-01, 0.29883E-01, 0.21537E-01, 0.13919E-01, 0.85649E-02,
     & 0.48309E-02, 0.25855E-02, 0.13471E-02, 0.50838E-03, 0.33993E-03
     & /
       real p27(0:19)
       data p27/
     & 0.59112E+01,-0.64142E+01, 0.17779E+01,-0.63493E+00,-0.34768E+00,
     &-0.27557E+00,-0.14046E+00,-0.40655E-01, 0.15347E-01, 0.37191E-01,
     & 0.38379E-01, 0.30847E-01, 0.21964E-01, 0.13997E-01, 0.84964E-02,
     & 0.46964E-02, 0.24508E-02, 0.12419E-02, 0.41455E-03, 0.29091E-03
     & /
       real p28(0:19)
       data p28/
     & 0.63991E+01,-0.70549E+01, 0.19868E+01,-0.68802E+00,-0.35569E+00,
     &-0.28131E+00,-0.14053E+00,-0.38117E-01, 0.18449E-01, 0.39797E-01,
     & 0.40099E-01, 0.31759E-01, 0.22350E-01, 0.14042E-01, 0.84082E-02,
     & 0.45502E-02, 0.23104E-02, 0.11350E-02, 0.31967E-03, 0.24314E-03
     & /
       real p29(0:19)
       data p29/
     & 0.69105E+01,-0.77326E+01, 0.22118E+01,-0.74495E+00,-0.36287E+00,
     &-0.28681E+00,-0.14040E+00,-0.35475E-01, 0.21576E-01, 0.42379E-01,
     & 0.41771E-01, 0.32620E-01, 0.22694E-01, 0.14057E-01, 0.83020E-02,
     & 0.43936E-02, 0.21651E-02, 0.10272E-02, 0.22406E-03, 0.19682E-03
     & /
       real p30(0:19)
       data p30/
     & 0.74459E+01,-0.84481E+01, 0.24537E+01,-0.80594E+00,-0.36916E+00,
     &-0.29210E+00,-0.14007E+00,-0.32737E-01, 0.24721E-01, 0.44933E-01,
     & 0.43395E-01, 0.33431E-01, 0.23000E-01, 0.14043E-01, 0.81794E-02,
     & 0.42278E-02, 0.20159E-02, 0.91898E-03, 0.12800E-03, 0.15215E-03
     & /
       real p31(0:19)
       data p31/
     & 0.76777E+01,-0.87616E+01, 0.25617E+01,-0.83249E+00,-0.37117E+00,
     &-0.29416E+00,-0.13993E+00,-0.31663E-01, 0.25949E-01, 0.45928E-01,
     & 0.44022E-01, 0.33739E-01, 0.23113E-01, 0.14031E-01, 0.81284E-02,
     & 0.41609E-02, 0.19567E-02, 0.87693E-03, 0.89970E-04, 0.13563E-03
     & /
       real p32(0:19)
       data p32/
     & 0.80208E+01,-0.92243E+01, 0.27211E+01,-0.87248E+00,-0.37434E+00,
     &-0.29730E+00,-0.13970E+00,-0.30019E-01, 0.27815E-01, 0.47431E-01,
     & 0.44967E-01, 0.34201E-01, 0.23282E-01, 0.14014E-01, 0.80520E-02,
     & 0.40610E-02, 0.18682E-02, 0.81420E-03, 0.33332E-04, 0.11093E-03
     & /
       real p33(0:18)
       data p33/
     & 0.86055E+01,-0.10018E+02, 0.29980E+01,-0.94192E+00,-0.37881E+00,
     &-0.30233E+00,-0.13917E+00,-0.27242E-01, 0.30900E-01, 0.49887E-01,
     & 0.46487E-01, 0.34926E-01, 0.23532E-01, 0.13965E-01, 0.79147E-02,
     & 0.38900E-02, 0.17200E-02, 0.71084E-03,-0.60269E-04
     & /
       real p34(0:18)
       data p34/
     & 0.92149E+01,-0.10850E+02, 0.32929E+01,-0.10160E+01,-0.38229E+00,
     &-0.30720E+00,-0.13848E+00,-0.24385E-01, 0.33997E-01, 0.52315E-01,
     & 0.47962E-01, 0.35605E-01, 0.23748E-01, 0.13891E-01, 0.77643E-02,
     & 0.37119E-02, 0.15690E-02, 0.60780E-03,-0.15406E-03
     & /
       real p35(0:18)
       data p35/
     & 0.98494E+01,-0.11723E+02, 0.36063E+01,-0.10949E+01,-0.38476E+00,
     &-0.31193E+00,-0.13763E+00,-0.21454E-01, 0.37101E-01, 0.54713E-01,
     & 0.49391E-01, 0.36239E-01, 0.23931E-01, 0.13795E-01, 0.76018E-02,
     & 0.35276E-02, 0.14159E-02, 0.50544E-03,-0.24789E-03
     & /
       real p36(0:18)
       data p36/
     & 0.10509E+02,-0.12636E+02, 0.39387E+01,-0.11788E+01,-0.38617E+00,
     &-0.31652E+00,-0.13664E+00,-0.18458E-01, 0.40209E-01, 0.57079E-01,
     & 0.50776E-01, 0.36831E-01, 0.24084E-01, 0.13676E-01, 0.74285E-02,
     & 0.33377E-02, 0.12611E-02, 0.40408E-03,-0.34161E-03
     & /
       real p37(0:18)
       data p37/
     & 0.11195E+02,-0.13590E+02, 0.42906E+01,-0.12680E+01,-0.38648E+00,
     &-0.32101E+00,-0.13550E+00,-0.15401E-01, 0.43316E-01, 0.59414E-01,
     & 0.52117E-01, 0.37380E-01, 0.24208E-01, 0.13538E-01, 0.72453E-02,
     & 0.31431E-02, 0.11050E-02, 0.30401E-03,-0.43511E-03
     & /
       real p38(0:18)
       data p38/
     & 0.11906E+02,-0.14586E+02, 0.46622E+01,-0.13625E+01,-0.38564E+00,
     &-0.32541E+00,-0.13422E+00,-0.12289E-01, 0.46421E-01, 0.61716E-01,
     & 0.53413E-01, 0.37889E-01, 0.24303E-01, 0.13380E-01, 0.70532E-02,
     & 0.29442E-02, 0.94817E-03, 0.20546E-03,-0.52830E-03
     & /
       real p39(0:18)
       data p39/
     & 0.12643E+02,-0.15624E+02, 0.50540E+01,-0.14627E+01,-0.38363E+00,
     &-0.32973E+00,-0.13282E+00,-0.91266E-02, 0.49519E-01, 0.63984E-01,
     & 0.54666E-01, 0.38358E-01, 0.24372E-01, 0.13203E-01, 0.68531E-02,
     & 0.27418E-02, 0.79083E-03, 0.10866E-03,-0.62109E-03
     & /
       real p40(0:17)
       data p40/
     & 0.13407E+02,-0.16704E+02, 0.54665E+01,-0.15687E+01,-0.38038E+00,
     &-0.33400E+00,-0.13130E+00,-0.59192E-02, 0.52610E-01, 0.66217E-01,
     & 0.55876E-01, 0.38788E-01, 0.24415E-01, 0.13010E-01, 0.66459E-02,
     & 0.25364E-02, 0.63335E-03, 0.13811E-04
     & /
       real p41(0:17)
       data p41/
     & 0.14198E+02,-0.17827E+02, 0.58999E+01,-0.16807E+01,-0.37587E+00,
     &-0.33822E+00,-0.12966E+00,-0.26706E-02, 0.55691E-01, 0.68416E-01,
     & 0.57044E-01, 0.39181E-01, 0.24435E-01, 0.12801E-01, 0.64322E-02,
     & 0.23284E-02, 0.47603E-03,-0.78917E-04
     & /
       real p42(0:17)
       data p42/
     & 0.15015E+02,-0.18993E+02, 0.63547E+01,-0.17989E+01,-0.37003E+00,
     &-0.34242E+00,-0.12792E+00, 0.61536E-03, 0.58759E-01, 0.70580E-01,
     & 0.58170E-01, 0.39537E-01, 0.24431E-01, 0.12576E-01, 0.62130E-02,
     & 0.21183E-02, 0.31912E-03,-0.16937E-03
     & /
       real p43(0:17)
       data p43/
     & 0.15859E+02,-0.20203E+02, 0.68313E+01,-0.19234E+01,-0.36284E+00,
     &-0.34661E+00,-0.12606E+00, 0.39350E-02, 0.61813E-01, 0.72708E-01,
     & 0.59255E-01, 0.39859E-01, 0.24405E-01, 0.12338E-01, 0.59887E-02,
     & 0.19066E-02, 0.16285E-03,-0.25742E-03
     & /
       real p44(0:17)
       data p44/
     & 0.16731E+02,-0.21457E+02, 0.73299E+01,-0.20545E+01,-0.35425E+00,
     &-0.35080E+00,-0.12410E+00, 0.72850E-02, 0.64852E-01, 0.74801E-01,
     & 0.60300E-01, 0.40145E-01, 0.24359E-01, 0.12086E-01, 0.57601E-02,
     & 0.16936E-02, 0.74481E-05,-0.34295E-03
     & /
       real p45(0:17)
       data p45/
     & 0.17629E+02,-0.22756E+02, 0.78509E+01,-0.21923E+01,-0.34421E+00,
     &-0.35501E+00,-0.12205E+00, 0.10662E-01, 0.67874E-01, 0.76858E-01,
     & 0.61306E-01, 0.40399E-01, 0.24293E-01, 0.11821E-01, 0.55278E-02,
     & 0.14797E-02,-0.14692E-03,-0.42585E-03
     & /
       real p46(0:17)
       data p46/
     & 0.18556E+02,-0.24100E+02, 0.83946E+01,-0.23370E+01,-0.33268E+00,
     &-0.35926E+00,-0.11990E+00, 0.14064E-01, 0.70878E-01, 0.78879E-01,
     & 0.62272E-01, 0.40621E-01, 0.24209E-01, 0.11545E-01, 0.52924E-02,
     & 0.12652E-02,-0.30007E-03,-0.50603E-03
     & /
       real p47(0:15)
       data p47/
     & 0.19510E+02,-0.25488E+02, 0.89615E+01,-0.24889E+01,-0.32008E+00,
     &-0.36316E+00,-0.11798E+00, 0.17349E-01, 0.73936E-01, 0.80259E-01,
     & 0.63595E-01, 0.39816E-01, 0.23666E-01, 0.11001E-01, 0.37095E-02,
     & 0.46687E-03
     & /
       real p48(0:15)
       data p48/
     & 0.20492E+02,-0.26923E+02, 0.95518E+01,-0.26479E+01,-0.30545E+00,
     &-0.36749E+00,-0.11566E+00, 0.20790E-01, 0.76913E-01, 0.82176E-01,
     & 0.64524E-01, 0.39927E-01, 0.23534E-01, 0.10697E-01, 0.33812E-02,
     & 0.17742E-03
     & /
       real p49(0:15)
       data p49/
     & 0.21503E+02,-0.28403E+02, 0.10166E+02,-0.28143E+01,-0.28918E+00,
     &-0.37189E+00,-0.11326E+00, 0.24248E-01, 0.79869E-01, 0.84058E-01,
     & 0.65418E-01, 0.40007E-01, 0.23388E-01, 0.10386E-01, 0.30518E-02,
     &-0.10893E-03
     & /
       real p50(0:15)
       data p50/
     & 0.22542E+02,-0.29930E+02, 0.10804E+02,-0.29883E+01,-0.27125E+00,
     &-0.37639E+00,-0.11078E+00, 0.27721E-01, 0.82804E-01, 0.85903E-01,
     & 0.66278E-01, 0.40059E-01, 0.23228E-01, 0.10067E-01, 0.27216E-02,
     &-0.39192E-03
     & /
       real p51(0:15)
       data p51/
     & 0.23609E+02,-0.31503E+02, 0.11466E+02,-0.31700E+01,-0.25159E+00,
     &-0.38099E+00,-0.10821E+00, 0.31207E-01, 0.85718E-01, 0.87713E-01,
     & 0.67106E-01, 0.40082E-01, 0.23055E-01, 0.97430E-02, 0.23910E-02,
     &-0.67130E-03
     & /
       real p52(0:15)
       data p52/
     & 0.24705E+02,-0.33123E+02, 0.12153E+02,-0.33596E+01,-0.23016E+00,
     &-0.38571E+00,-0.10556E+00, 0.34704E-01, 0.88609E-01, 0.89487E-01,
     & 0.67903E-01, 0.40078E-01, 0.22870E-01, 0.94130E-02, 0.20603E-02,
     &-0.94686E-03
     & /
       real p53(0:15)
       data p53/
     & 0.25829E+02,-0.34791E+02, 0.12864E+02,-0.35573E+01,-0.20692E+00,
     &-0.39056E+00,-0.10284E+00, 0.38210E-01, 0.91476E-01, 0.91225E-01,
     & 0.68668E-01, 0.40047E-01, 0.22674E-01, 0.90777E-02, 0.17298E-02,
     &-0.12184E-02
     & /
       real p54(0:15)
       data p54/
     & 0.26983E+02,-0.36506E+02, 0.13601E+02,-0.37632E+01,-0.18183E+00,
     &-0.39556E+00,-0.10004E+00, 0.41725E-01, 0.94321E-01, 0.92929E-01,
     & 0.69402E-01, 0.39990E-01, 0.22467E-01, 0.87376E-02, 0.13999E-02,
     &-0.14858E-02
     & /
       real p55(0:15)
       data p55/
     & 0.28165E+02,-0.38268E+02, 0.14363E+02,-0.39775E+01,-0.15483E+00,
     &-0.40072E+00,-0.97162E-01, 0.45246E-01, 0.97141E-01, 0.94598E-01,
     & 0.70107E-01, 0.39908E-01, 0.22250E-01, 0.83933E-02, 0.10707E-02,
     &-0.17488E-02
     & /
       real p56(0:15)
       data p56/
     & 0.29377E+02,-0.40078E+02, 0.15150E+02,-0.42003E+01,-0.12588E+00,
     &-0.40605E+00,-0.94210E-01, 0.48771E-01, 0.99937E-01, 0.96232E-01,
     & 0.70783E-01, 0.39801E-01, 0.22024E-01, 0.80450E-02, 0.74261E-03,
     &-0.20074E-02
     & /
       real p57(0:15)
       data p57/
     & 0.30618E+02,-0.41937E+02, 0.15964E+02,-0.44317E+01,-0.94935E-01,
     &-0.41156E+00,-0.91185E-01, 0.52300E-01, 0.10271E+00, 0.97833E-01,
     & 0.71431E-01, 0.39671E-01, 0.21789E-01, 0.76933E-02, 0.41571E-03,
     &-0.22615E-02
     & /
       real p58(0:15)
       data p58/
     & 0.31888E+02,-0.43844E+02, 0.16803E+02,-0.46720E+01,-0.61949E-01,
     &-0.41727E+00,-0.88086E-01, 0.55832E-01, 0.10545E+00, 0.99399E-01,
     & 0.72052E-01, 0.39517E-01, 0.21546E-01, 0.73383E-02, 0.90255E-04,
     &-0.25108E-02
     & /
       real p59(0:15)
       data p59/
     & 0.33188E+02,-0.45799E+02, 0.17669E+02,-0.49212E+01,-0.26877E-01,
     &-0.42319E+00,-0.84915E-01, 0.59364E-01, 0.10817E+00, 0.10093E+00,
     & 0.72645E-01, 0.39341E-01, 0.21296E-01, 0.69806E-02,-0.23358E-03,
     &-0.27555E-02
     & /
       real p60(0:14)
       data p60/
     & 0.34517E+02,-0.47804E+02, 0.18561E+02,-0.51795E+01, 0.10328E-01,
     &-0.42934E+00,-0.81672E-01, 0.62896E-01, 0.11087E+00, 0.10243E+00,
     & 0.73213E-01, 0.39144E-01, 0.21038E-01, 0.66203E-02,-0.55562E-03
     & /
       real p61(0:14)
       data p61/
     & 0.35876E+02,-0.49857E+02, 0.19480E+02,-0.54470E+01, 0.49710E-01,
     &-0.43572E+00,-0.78357E-01, 0.66427E-01, 0.11354E+00, 0.10390E+00,
     & 0.73755E-01, 0.38925E-01, 0.20775E-01, 0.62578E-02,-0.87572E-03
     & /
       real p62(0:14)
       data p62/
     & 0.37265E+02,-0.51960E+02, 0.20426E+02,-0.57239E+01, 0.91313E-01,
     &-0.44235E+00,-0.74971E-01, 0.69955E-01, 0.11618E+00, 0.10534E+00,
     & 0.74272E-01, 0.38685E-01, 0.20505E-01, 0.58935E-02,-0.11937E-02
     & /
       real p63(0:14)
       data p63/
     & 0.38683E+02,-0.54112E+02, 0.21399E+02,-0.60103E+01, 0.13518E+00,
     &-0.44924E+00,-0.71513E-01, 0.73481E-01, 0.11880E+00, 0.10674E+00,
     & 0.74765E-01, 0.38426E-01, 0.20230E-01, 0.55274E-02,-0.15096E-02
     & /
       real p64(0:14)
       data p64/
     & 0.40131E+02,-0.56314E+02, 0.22400E+02,-0.63063E+01, 0.18137E+00,
     &-0.45641E+00,-0.67983E-01, 0.77002E-01, 0.12140E+00, 0.10811E+00,
     & 0.75235E-01, 0.38147E-01, 0.19950E-01, 0.51600E-02,-0.18231E-02
     & /
       real p65(0:14)
       data p65/
     & 0.41610E+02,-0.58566E+02, 0.23428E+02,-0.66121E+01, 0.22990E+00,
     &-0.46386E+00,-0.64382E-01, 0.80518E-01, 0.12396E+00, 0.10945E+00,
     & 0.75681E-01, 0.37849E-01, 0.19665E-01, 0.47913E-02,-0.21341E-02
     & /
       real p66(0:14)
       data p66/
     & 0.43118E+02,-0.60867E+02, 0.24484E+02,-0.69277E+01, 0.28084E+00,
     &-0.47161E+00,-0.60710E-01, 0.84028E-01, 0.12650E+00, 0.11076E+00,
     & 0.76106E-01, 0.37533E-01, 0.19376E-01, 0.44217E-02,-0.24427E-02
     & /
       real p67(0:14)
       data p67/
     & 0.44657E+02,-0.63219E+02, 0.25567E+02,-0.72534E+01, 0.33422E+00,
     &-0.47968E+00,-0.56965E-01, 0.87532E-01, 0.12902E+00, 0.11204E+00,
     & 0.76509E-01, 0.37199E-01, 0.19083E-01, 0.40513E-02,-0.27487E-02
     & /
       real p68(0:14)
       data p68/
     & 0.46225E+02,-0.65621E+02, 0.26679E+02,-0.75891E+01, 0.39009E+00,
     &-0.48806E+00,-0.53149E-01, 0.91028E-01, 0.13151E+00, 0.11330E+00,
     & 0.76890E-01, 0.36848E-01, 0.18787E-01, 0.36804E-02,-0.30520E-02
     & /
       real p69(0:14)
       data p69/
     & 0.47824E+02,-0.68073E+02, 0.27819E+02,-0.79352E+01, 0.44848E+00,
     &-0.49679E+00,-0.49259E-01, 0.94516E-01, 0.13397E+00, 0.11452E+00,
     & 0.77251E-01, 0.36479E-01, 0.18488E-01, 0.33090E-02,-0.33525E-02
     & /
       real p70(0:14)
       data p70/
     & 0.49453E+02,-0.70576E+02, 0.28987E+02,-0.82915E+01, 0.50945E+00,
     &-0.50586E+00,-0.45297E-01, 0.97995E-01, 0.13640E+00, 0.11571E+00,
     & 0.77593E-01, 0.36094E-01, 0.18187E-01, 0.29375E-02,-0.36503E-02
     & /
       real p71(0:14)
       data p71/
     & 0.51113E+02,-0.73129E+02, 0.30184E+02,-0.86584E+01, 0.57304E+00,
     &-0.51529E+00,-0.41260E-01, 0.10146E+00, 0.13882E+00, 0.11687E+00,
     & 0.77914E-01, 0.35693E-01, 0.17883E-01, 0.25658E-02,-0.39452E-02
     & /
       real p72(0:14)
       data p72/
     & 0.52802E+02,-0.75733E+02, 0.31409E+02,-0.90358E+01, 0.63928E+00,
     &-0.52509E+00,-0.37149E-01, 0.10492E+00, 0.14120E+00, 0.11801E+00,
     & 0.78217E-01, 0.35277E-01, 0.17577E-01, 0.21942E-02,-0.42373E-02
     & /
       real p73(0:14)
       data p73/
     & 0.54523E+02,-0.78388E+02, 0.32664E+02,-0.94239E+01, 0.70822E+00,
     &-0.53527E+00,-0.32963E-01, 0.10837E+00, 0.14356E+00, 0.11912E+00,
     & 0.78502E-01, 0.34845E-01, 0.17270E-01, 0.18228E-02,-0.45264E-02
     & /
       real p74(0:14)
       data p74/
     & 0.56274E+02,-0.81095E+02, 0.33947E+02,-0.98229E+01, 0.77991E+00,
     &-0.54585E+00,-0.28702E-01, 0.11181E+00, 0.14589E+00, 0.12020E+00,
     & 0.78768E-01, 0.34399E-01, 0.16961E-01, 0.14518E-02,-0.48126E-02
     & /
       real p75(0:14)
       data p75/
     & 0.58055E+02,-0.83852E+02, 0.35260E+02,-0.10233E+02, 0.85437E+00,
     &-0.55684E+00,-0.24363E-01, 0.11523E+00, 0.14820E+00, 0.12125E+00,
     & 0.79017E-01, 0.33938E-01, 0.16651E-01, 0.10812E-02,-0.50958E-02
     & /
       real p76(0:14)
       data p76/
     & 0.59867E+02,-0.86660E+02, 0.36602E+02,-0.10654E+02, 0.93166E+00,
     &-0.56825E+00,-0.19948E-01, 0.11865E+00, 0.15048E+00, 0.12228E+00,
     & 0.79250E-01, 0.33463E-01, 0.16340E-01, 0.71111E-03,-0.53760E-02
     & /
       real p77(0:14)
       data p77/
     & 0.61709E+02,-0.89520E+02, 0.37973E+02,-0.11085E+02, 0.10118E+01,
     &-0.58008E+00,-0.15454E-01, 0.12205E+00, 0.15274E+00, 0.12328E+00,
     & 0.79466E-01, 0.32975E-01, 0.16029E-01, 0.34172E-03,-0.56532E-02
     & /
       real p78(0:14)
       data p78/
     & 0.63582E+02,-0.92431E+02, 0.39373E+02,-0.11529E+02, 0.10949E+01,
     &-0.59236E+00,-0.10881E-01, 0.12543E+00, 0.15497E+00, 0.12425E+00,
     & 0.79666E-01, 0.32473E-01, 0.15717E-01,-0.26924E-04,-0.59273E-02
     & /
       real p79(0:14)
       data p79/
     & 0.65486E+02,-0.95393E+02, 0.40804E+02,-0.11983E+02, 0.11809E+01,
     &-0.60509E+00,-0.62272E-02, 0.12881E+00, 0.15718E+00, 0.12520E+00,
     & 0.79850E-01, 0.31958E-01, 0.15406E-01,-0.39473E-03,-0.61984E-02
     & /
       real p80(0:14)
       data p80/
     & 0.67420E+02,-0.98407E+02, 0.42264E+02,-0.12449E+02, 0.12699E+01,
     &-0.61829E+00,-0.14925E-02, 0.13216E+00, 0.15936E+00, 0.12612E+00,
     & 0.80019E-01, 0.31430E-01, 0.15094E-01,-0.76161E-03,-0.64664E-02
     & /
       real p81(0:14)
       data p81/
     & 0.69385E+02,-0.10147E+03, 0.43754E+02,-0.12926E+02, 0.13619E+01,
     &-0.63197E+00, 0.33245E-02, 0.13551E+00, 0.16152E+00, 0.12702E+00,
     & 0.80174E-01, 0.30891E-01, 0.14783E-01,-0.11275E-02,-0.67314E-02
     & /
       real p82(0:14)
       data p82/
     & 0.71380E+02,-0.10459E+03, 0.45274E+02,-0.13415E+02, 0.14569E+01,
     &-0.64613E+00, 0.82249E-02, 0.13883E+00, 0.16366E+00, 0.12790E+00,
     & 0.80314E-01, 0.30339E-01, 0.14473E-01,-0.14923E-02,-0.69934E-02
     & /
       real p83(0:13)
       data p83/
     & 0.73407E+02,-0.10776E+03, 0.46824E+02,-0.13916E+02, 0.15551E+01,
     &-0.66079E+00, 0.13210E-01, 0.14214E+00, 0.16577E+00, 0.12875E+00,
     & 0.80441E-01, 0.29775E-01, 0.14163E-01,-0.18560E-02
     & /
       real p84(0:13)
       data p84/
     & 0.75464E+02,-0.11098E+03, 0.48404E+02,-0.14428E+02, 0.16564E+01,
     &-0.67596E+00, 0.18281E-01, 0.14544E+00, 0.16785E+00, 0.12957E+00,
     & 0.80554E-01, 0.29200E-01, 0.13855E-01,-0.22185E-02
     & /
       real p85(0:13)
       data p85/
     & 0.77552E+02,-0.11425E+03, 0.50015E+02,-0.14953E+02, 0.17609E+01,
     &-0.69165E+00, 0.23438E-01, 0.14872E+00, 0.16991E+00, 0.13038E+00,
     & 0.80655E-01, 0.28614E-01, 0.13548E-01,-0.25797E-02
     & /
       real p86(0:13)
       data p86/
     & 0.79670E+02,-0.11758E+03, 0.51655E+02,-0.15489E+02, 0.18686E+01,
     &-0.70788E+00, 0.28684E-01, 0.15198E+00, 0.17195E+00, 0.13116E+00,
     & 0.80742E-01, 0.28016E-01, 0.13242E-01,-0.29397E-02
     & /
       real p87(0:13)
       data p87/
     & 0.81819E+02,-0.12095E+03, 0.53327E+02,-0.16037E+02, 0.19795E+01,
     &-0.72465E+00, 0.34019E-01, 0.15522E+00, 0.17396E+00, 0.13191E+00,
     & 0.80818E-01, 0.27409E-01, 0.12937E-01,-0.32983E-02
     & /
       real p88(0:13)
       data p88/
     & 0.83999E+02,-0.12438E+03, 0.55029E+02,-0.16597E+02, 0.20937E+01,
     &-0.74197E+00, 0.39445E-01, 0.15845E+00, 0.17595E+00, 0.13265E+00,
     & 0.80881E-01, 0.26790E-01, 0.12635E-01,-0.36555E-02
     & /
       real p89(0:13)
       data p89/
     & 0.86210E+02,-0.12786E+03, 0.56761E+02,-0.17170E+02, 0.22113E+01,
     &-0.75986E+00, 0.44962E-01, 0.16166E+00, 0.17792E+00, 0.13336E+00,
     & 0.80933E-01, 0.26162E-01, 0.12334E-01,-0.40113E-02
     & /
       real p90(0:13)
       data p90/
     & 0.88452E+02,-0.13139E+03, 0.58525E+02,-0.17754E+02, 0.23322E+01,
     &-0.77833E+00, 0.50573E-01, 0.16484E+00, 0.17986E+00, 0.13405E+00,
     & 0.80974E-01, 0.25524E-01, 0.12035E-01,-0.43657E-02
     & /
       real p91(0:13)
       data p91/
     & 0.90724E+02,-0.13498E+03, 0.60319E+02,-0.18351E+02, 0.24565E+01,
     &-0.79738E+00, 0.56279E-01, 0.16801E+00, 0.18178E+00, 0.13472E+00,
     & 0.81003E-01, 0.24876E-01, 0.11739E-01,-0.47185E-02
     & /
       real p92(0:13)
       data p92/
     & 0.93027E+02,-0.13862E+03, 0.62144E+02,-0.18961E+02, 0.25842E+01,
     &-0.81703E+00, 0.62081E-01, 0.17116E+00, 0.18368E+00, 0.13537E+00,
     & 0.81023E-01, 0.24218E-01, 0.11445E-01,-0.50699E-02
     & /
       real p93(0:13)
       data p93/
     & 0.95360E+02,-0.14230E+03, 0.63999E+02,-0.19583E+02, 0.27154E+01,
     &-0.83732E+00, 0.67955E-01, 0.17427E+00, 0.18555E+00, 0.13600E+00,
     & 0.81036E-01, 0.23557E-01, 0.11158E-01,-0.54159E-02
     & /
       real p94(0:13)
       data p94/
     & 0.97725E+02,-0.14604E+03, 0.65887E+02,-0.20218E+02, 0.28502E+01,
     &-0.85826E+00, 0.73928E-01, 0.17736E+00, 0.18738E+00, 0.13660E+00,
     & 0.81039E-01, 0.22888E-01, 0.10875E-01,-0.57600E-02
     & /
       real p95(0:13)
       data p95/
     & 0.10012E+03,-0.14984E+03, 0.67807E+02,-0.20866E+02, 0.29887E+01,
     &-0.87983E+00, 0.80006E-01, 0.18042E+00, 0.18920E+00, 0.13719E+00,
     & 0.81032E-01, 0.22208E-01, 0.10594E-01,-0.61029E-02
     & /
       real p96(0:13)
       data p96/
     & 0.10255E+03,-0.15369E+03, 0.69759E+02,-0.21527E+02, 0.31308E+01,
     &-0.90206E+00, 0.86192E-01, 0.18347E+00, 0.19100E+00, 0.13775E+00,
     & 0.81015E-01, 0.21520E-01, 0.10316E-01,-0.64445E-02
     & /
       real p97(0:12)
       data p97/
     & 0.10501E+03,-0.15759E+03, 0.71744E+02,-0.22201E+02, 0.32767E+01,
     &-0.92496E+00, 0.92486E-01, 0.18649E+00, 0.19277E+00, 0.13829E+00,
     & 0.80989E-01, 0.20822E-01, 0.10040E-01
     & /
       real p98(0:12)
       data p98/
     & 0.10750E+03,-0.16155E+03, 0.73761E+02,-0.22889E+02, 0.34263E+01,
     &-0.94854E+00, 0.98891E-01, 0.18950E+00, 0.19452E+00, 0.13882E+00,
     & 0.80953E-01, 0.20115E-01, 0.97669E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  22,  22,  22,  21,  21,  21,  20
     &,  20,  19,  19,  19,  19,  19,  19,  19,  19,  19
     &,  19,  18,  18,  18,  18,  18,  18,  18,  17,  17
     &,  17,  17,  17,  17,  17,  15,  15,  15,  15,  15
     &,  15,  15,  15,  15,  15,  15,  15,  15,  14,  14
     &,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14
     &,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14
     &,  14,  13,  13,  13,  13,  13,  13,  13,  13,  13
     &,  13,  13,  13,  13,  13,  12,  12
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.22) param(i,15) = p15(i)
             if (i.le.22) param(i,16) = p16(i)
             if (i.le.22) param(i,17) = p17(i)
             if (i.le.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.20) param(i,21) = p21(i)
             if (i.le.20) 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.17) param(i,40) = p40(i)
             if (i.le.17) 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.15) param(i,47) = p47(i)
             if (i.le.15) param(i,48) = p48(i)
             if (i.le.15) param(i,49) = p49(i)
             if (i.le.15) param(i,50) = p50(i)
             if (i.le.15) param(i,51) = p51(i)
             if (i.le.15) param(i,52) = p52(i)
             if (i.le.15) 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.14) param(i,60) = p60(i)
             if (i.le.14) param(i,61) = p61(i)
             if (i.le.14) param(i,62) = p62(i)
             if (i.le.14) param(i,63) = p63(i)
             if (i.le.14) param(i,64) = p64(i)
             if (i.le.14) param(i,65) = p65(i)
             if (i.le.14) param(i,66) = p66(i)
             if (i.le.14) param(i,67) = p67(i)
             if (i.le.14) param(i,68) = p68(i)
             if (i.le.14) param(i,69) = p69(i)
             if (i.le.14) param(i,70) = p70(i)
             if (i.le.14) param(i,71) = p71(i)
             if (i.le.14) param(i,72) = p72(i)
             if (i.le.14) param(i,73) = p73(i)
             if (i.le.14) param(i,74) = p74(i)
             if (i.le.14) param(i,75) = p75(i)
             if (i.le.14) param(i,76) = p76(i)
             if (i.le.14) param(i,77) = p77(i)
             if (i.le.14) param(i,78) = p78(i)
             if (i.le.14) param(i,79) = p79(i)
             if (i.le.14) param(i,80) = p80(i)
             if (i.le.14) param(i,81) = p81(i)
             if (i.le.14) 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.13) param(i,88) = p88(i)
             if (i.le.13) param(i,89) = p89(i)
             if (i.le.13) param(i,90) = p90(i)
             if (i.le.13) param(i,91) = p91(i)
             if (i.le.13) param(i,92) = p92(i)
             if (i.le.13) param(i,93) = p93(i)
             if (i.le.13) param(i,94) = p94(i)
             if (i.le.13) param(i,95) = p95(i)
             if (i.le.13) 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
            
       w2cehiq200=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
       w2cehiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w2cehiq200=0.0
       if (q2.lt.q2min) w2cehiq200=0.0
       if ( x.gt. xmax) w2cehiq200=0.0
       if ( x.lt. xmin) w2cehiq200=0.0
       return
       end
       real function  w3cehiq200(xin,q2in)
***********************************************************
c  parametrization of w3cehiq200 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:26)
       data p15/
     & 0.41407E-01, 0.63723E+00, 0.22307E-01,-0.13752E+00,-0.22055E+00,
     &-0.19305E+00,-0.13219E+00,-0.70951E-01,-0.24039E-01, 0.48152E-02,
     & 0.17851E-01, 0.20050E-01, 0.16664E-01, 0.11693E-01, 0.73224E-02,
     & 0.43147E-02, 0.25486E-02, 0.16107E-02, 0.11212E-02, 0.81609E-03,
     & 0.60453E-03, 0.43990E-03, 0.29533E-03, 0.19852E-03, 0.11523E-03,
     & 0.54713E-04, 0.68085E-05
     & /
       real p16(0:26)
       data p16/
     & 0.42050E-01, 0.68302E+00, 0.17537E-01,-0.15273E+00,-0.23844E+00,
     &-0.20533E+00,-0.13796E+00,-0.71875E-01,-0.22286E-01, 0.74773E-02,
     & 0.20322E-01, 0.21851E-01, 0.17744E-01, 0.12223E-01, 0.75168E-02,
     & 0.43485E-02, 0.25264E-02, 0.15799E-02, 0.10962E-02, 0.79616E-03,
     & 0.58788E-03, 0.42516E-03, 0.28099E-03, 0.18631E-03, 0.10447E-03,
     & 0.45633E-04,-0.11222E-05
     & /
       real p17(0:26)
       data p17/
     & 0.42486E-01, 0.73013E+00, 0.11924E-01,-0.16890E+00,-0.25694E+00,
     &-0.21765E+00,-0.14341E+00,-0.72370E-01,-0.20166E-01, 0.10378E-01,
     & 0.22905E-01, 0.23671E-01, 0.18795E-01, 0.12707E-01, 0.76689E-02,
     & 0.43501E-02, 0.24821E-02, 0.15345E-02, 0.10617E-02, 0.76962E-03,
     & 0.56646E-03, 0.40691E-03, 0.26407E-03, 0.17231E-03, 0.92527E-04,
     & 0.35859E-04,-0.93994E-05
     & /
       real p18(0:26)
       data p18/
     & 0.42707E-01, 0.77659E+00, 0.57177E-02,-0.18533E+00,-0.27523E+00,
     &-0.22947E+00,-0.14831E+00,-0.72429E-01,-0.17786E-01, 0.13377E-01,
     & 0.25476E-01, 0.25426E-01, 0.19768E-01, 0.13125E-01, 0.77730E-02,
     & 0.43206E-02, 0.24188E-02, 0.14777E-02, 0.10200E-02, 0.73828E-03,
     & 0.54171E-03, 0.38636E-03, 0.24562E-03, 0.15738E-03, 0.80106E-04,
     & 0.25955E-04,-0.17562E-04
     & /
       real p19(0:25)
       data p19/
     & 0.42734E-01, 0.82245E+00,-0.10342E-02,-0.20199E+00,-0.29332E+00,
     &-0.24082E+00,-0.15270E+00,-0.72094E-01,-0.15181E-01, 0.16451E-01,
     & 0.28025E-01, 0.27112E-01, 0.20666E-01, 0.13480E-01, 0.78331E-02,
     & 0.42633E-02, 0.23390E-02, 0.14112E-02, 0.97239E-03, 0.70309E-03,
     & 0.51435E-03, 0.36405E-03, 0.22605E-03, 0.14180E-03, 0.67416E-04,
     & 0.16062E-04
     & /
       real p20(0:25)
       data p20/
     & 0.42587E-01, 0.86773E+00,-0.82894E-02,-0.21883E+00,-0.31120E+00,
     &-0.25172E+00,-0.15661E+00,-0.71400E-01,-0.12380E-01, 0.19581E-01,
     & 0.30541E-01, 0.28729E-01, 0.21491E-01, 0.13776E-01, 0.78528E-02,
     & 0.41812E-02, 0.22450E-02, 0.13367E-02, 0.91996E-03, 0.66484E-03,
     & 0.48497E-03, 0.34043E-03, 0.20568E-03, 0.12582E-03, 0.54624E-04,
     & 0.62874E-05
     & /
       real p21(0:25)
       data p21/
     & 0.42282E-01, 0.91249E+00,-0.16010E-01,-0.23585E+00,-0.32886E+00,
     &-0.26218E+00,-0.16008E+00,-0.70380E-01,-0.94096E-02, 0.22751E-01,
     & 0.33017E-01, 0.30273E-01, 0.22245E-01, 0.14017E-01, 0.78355E-02,
     & 0.40770E-02, 0.21388E-02, 0.12555E-02, 0.86370E-03, 0.62423E-03,
     & 0.45408E-03, 0.31586E-03, 0.18479E-03, 0.10963E-03, 0.41864E-04,
     &-0.32819E-05
     & /
       real p22(0:24)
       data p22/
     & 0.41836E-01, 0.95675E+00,-0.24163E-01,-0.25302E+00,-0.34630E+00,
     &-0.27223E+00,-0.16313E+00,-0.69062E-01,-0.62912E-02, 0.25948E-01,
     & 0.35448E-01, 0.31747E-01, 0.22930E-01, 0.14206E-01, 0.77845E-02,
     & 0.39533E-02, 0.20221E-02, 0.11687E-02, 0.80443E-03, 0.58184E-03,
     & 0.42210E-03, 0.29067E-03, 0.16360E-03, 0.93403E-04, 0.29243E-04
     & /
       real p23(0:24)
       data p23/
     & 0.41260E-01, 0.10005E+01,-0.32719E-01,-0.27031E+00,-0.36353E+00,
     &-0.28187E+00,-0.16578E+00,-0.67472E-01,-0.30454E-02, 0.29158E-01,
     & 0.37829E-01, 0.33148E-01, 0.23550E-01, 0.14346E-01, 0.77026E-02,
     & 0.38123E-02, 0.18964E-02, 0.10776E-02, 0.74289E-03, 0.53819E-03,
     & 0.38940E-03, 0.26511E-03, 0.14231E-03, 0.77255E-04, 0.16847E-04
     & /
       real p24(0:24)
       data p24/
     & 0.40567E-01, 0.10439E+01,-0.41649E-01,-0.28771E+00,-0.38054E+00,
     &-0.29113E+00,-0.16807E+00,-0.65634E-01, 0.31030E-03, 0.32373E-01,
     & 0.40157E-01, 0.34479E-01, 0.24107E-01, 0.14441E-01, 0.75928E-02,
     & 0.36561E-02, 0.17633E-02, 0.98289E-03, 0.67969E-03, 0.49371E-03,
     & 0.35629E-03, 0.23941E-03, 0.12107E-03, 0.61298E-04, 0.47426E-05
     & /
       real p25(0:23)
       data p25/
     & 0.39768E-01, 0.10868E+01,-0.50931E-01,-0.30521E+00,-0.39733E+00,
     &-0.30003E+00,-0.17001E+00,-0.63569E-01, 0.37602E-02, 0.35584E-01,
     & 0.42428E-01, 0.35741E-01, 0.24603E-01, 0.14494E-01, 0.74574E-02,
     & 0.34864E-02, 0.16238E-02, 0.88554E-03, 0.61537E-03, 0.44876E-03,
     & 0.32302E-03, 0.21375E-03, 0.10001E-03, 0.45614E-04
     & /
       real p26(0:23)
       data p26/
     & 0.38871E-01, 0.11294E+01,-0.60541E-01,-0.32279E+00,-0.41392E+00,
     &-0.30856E+00,-0.17163E+00,-0.61297E-01, 0.72904E-02, 0.38783E-01,
     & 0.44641E-01, 0.36934E-01, 0.25043E-01, 0.14507E-01, 0.72990E-02,
     & 0.33050E-02, 0.14793E-02, 0.78622E-03, 0.55039E-03, 0.40366E-03,
     & 0.28982E-03, 0.18827E-03, 0.79230E-04, 0.30272E-04
     & /
       real p27(0:23)
       data p27/
     & 0.37885E-01, 0.11715E+01,-0.70460E-01,-0.34045E+00,-0.43029E+00,
     &-0.31676E+00,-0.17293E+00,-0.58834E-01, 0.10889E-01, 0.41963E-01,
     & 0.46794E-01, 0.38061E-01, 0.25427E-01, 0.14483E-01, 0.71195E-02,
     & 0.31135E-02, 0.13306E-02, 0.68556E-03, 0.48517E-03, 0.35866E-03,
     & 0.25685E-03, 0.16311E-03, 0.58811E-04, 0.15322E-04
     & /
       real p28(0:23)
       data p28/
     & 0.36818E-01, 0.12133E+01,-0.80669E-01,-0.35816E+00,-0.44645E+00,
     &-0.32463E+00,-0.17395E+00,-0.56197E-01, 0.14544E-01, 0.45121E-01,
     & 0.48887E-01, 0.39122E-01, 0.25760E-01, 0.14426E-01, 0.69211E-02,
     & 0.29131E-02, 0.11786E-02, 0.58410E-03, 0.42003E-03, 0.31400E-03,
     & 0.22427E-03, 0.13836E-03, 0.38822E-04, 0.80547E-06
     & /
       real p29(0:22)
       data p29/
     & 0.35676E-01, 0.12548E+01,-0.91153E-01,-0.37593E+00,-0.46240E+00,
     &-0.33218E+00,-0.17470E+00,-0.53401E-01, 0.18247E-01, 0.48251E-01,
     & 0.50918E-01, 0.40120E-01, 0.26043E-01, 0.14336E-01, 0.67056E-02,
     & 0.27052E-02, 0.10241E-02, 0.48232E-03, 0.35527E-03, 0.26985E-03,
     & 0.19221E-03, 0.11411E-03, 0.19315E-04
     & /
       real p30(0:22)
       data p30/
     & 0.34465E-01, 0.12959E+01,-0.10189E+00,-0.39373E+00,-0.47815E+00,
     &-0.33943E+00,-0.17518E+00,-0.50458E-01, 0.21989E-01, 0.51349E-01,
     & 0.52889E-01, 0.41057E-01, 0.26280E-01, 0.14217E-01, 0.64747E-02,
     & 0.24908E-02, 0.86778E-03, 0.38064E-03, 0.29114E-03, 0.22638E-03,
     & 0.16076E-03, 0.90422E-04, 0.32819E-06
     & /
       real p31(0:22)
       data p31/
     & 0.33979E-01, 0.13120E+01,-0.10617E+00,-0.40073E+00,-0.48429E+00,
     &-0.34221E+00,-0.17532E+00,-0.49276E-01, 0.23462E-01, 0.52554E-01,
     & 0.53646E-01, 0.41410E-01, 0.26362E-01, 0.14164E-01, 0.63812E-02,
     & 0.24057E-02, 0.80647E-03, 0.34107E-03, 0.26635E-03, 0.20965E-03,
     & 0.14869E-03, 0.81350E-04,-0.69324E-05
     & /
       real p32(0:21)
       data p32/
     & 0.33244E-01, 0.13368E+01,-0.11276E+00,-0.41147E+00,-0.49368E+00,
     &-0.34645E+00,-0.17554E+00,-0.47487E-01, 0.25689E-01, 0.54375E-01,
     & 0.54790E-01, 0.41943E-01, 0.26486E-01, 0.14085E-01, 0.62409E-02,
     & 0.22782E-02, 0.71475E-03, 0.28204E-03, 0.22948E-03, 0.18480E-03,
     & 0.13077E-03, 0.67892E-04
     & /
       real p33(0:21)
       data p33/
     & 0.31984E-01, 0.13773E+01,-0.12381E+00,-0.42919E+00,-0.50898E+00,
     &-0.35321E+00,-0.17570E+00,-0.44433E-01, 0.29383E-01, 0.57350E-01,
     & 0.56629E-01, 0.42776E-01, 0.26657E-01, 0.13933E-01, 0.59990E-02,
     & 0.20640E-02, 0.56264E-03, 0.18505E-03, 0.16930E-03, 0.14440E-03,
     & 0.10172E-03, 0.46139E-04
     & /
       real p34(0:19)
       data p34/
     & 0.30666E-01, 0.14175E+01,-0.13509E+00,-0.44694E+00,-0.52409E+00,
     &-0.35968E+00,-0.17563E+00,-0.41255E-01, 0.33103E-01, 0.60290E-01,
     & 0.58409E-01, 0.43553E-01, 0.26787E-01, 0.13757E-01, 0.57449E-02,
     & 0.18452E-02, 0.40975E-03, 0.88645E-04, 0.10997E-03, 0.10477E-03
     & /
       real p35(0:19)
       data p35/
     & 0.29293E-01, 0.14574E+01,-0.14659E+00,-0.46471E+00,-0.53900E+00,
     &-0.36589E+00,-0.17534E+00,-0.37964E-01, 0.36843E-01, 0.63193E-01,
     & 0.60132E-01, 0.44277E-01, 0.26878E-01, 0.13558E-01, 0.54799E-02,
     & 0.16227E-02, 0.25654E-03,-0.69170E-05, 0.51655E-04, 0.66005E-04
     & /
       real p36(0:18)
       data p36/
     & 0.27870E-01, 0.14971E+01,-0.15831E+00,-0.48249E+00,-0.55372E+00,
     &-0.37183E+00,-0.17485E+00,-0.34568E-01, 0.40598E-01, 0.66058E-01,
     & 0.61798E-01, 0.44949E-01, 0.26932E-01, 0.13337E-01, 0.52051E-02,
     & 0.13971E-02, 0.10340E-03,-0.10141E-03,-0.55316E-05
     & /
       real p37(0:18)
       data p37/
     & 0.26400E-01, 0.15365E+01,-0.17023E+00,-0.50029E+00,-0.56826E+00,
     &-0.37752E+00,-0.17416E+00,-0.31076E-01, 0.44363E-01, 0.68881E-01,
     & 0.63407E-01, 0.45570E-01, 0.26951E-01, 0.13096E-01, 0.49215E-02,
     & 0.11692E-02,-0.49289E-04,-0.19463E-03,-0.61480E-04
     & /
       real p38(0:19)
       data p38/
     & 0.24888E-01, 0.15756E+01,-0.18234E+00,-0.51810E+00,-0.58260E+00,
     &-0.38297E+00,-0.17328E+00,-0.27494E-01, 0.48134E-01, 0.71663E-01,
     & 0.64960E-01, 0.46142E-01, 0.26936E-01, 0.12837E-01, 0.46302E-02,
     & 0.93949E-03,-0.20121E-03,-0.28642E-03,-0.11610E-03,-0.44431E-04
     & /
       real p39(0:20)
       data p39/
     & 0.23336E-01, 0.16144E+01,-0.19464E+00,-0.53592E+00,-0.59677E+00,
     &-0.38818E+00,-0.17223E+00,-0.23831E-01, 0.51905E-01, 0.74402E-01,
     & 0.66458E-01, 0.46668E-01, 0.26890E-01, 0.12561E-01, 0.43319E-02,
     & 0.70851E-03,-0.35206E-03,-0.37662E-03,-0.16932E-03,-0.79132E-04,
     &-0.57325E-04
     & /
       real p40(0:20)
       data p40/
     & 0.21747E-01, 0.16531E+01,-0.20711E+00,-0.55373E+00,-0.61076E+00,
     &-0.39317E+00,-0.17100E+00,-0.20093E-01, 0.55675E-01, 0.77097E-01,
     & 0.67902E-01, 0.47147E-01, 0.26813E-01, 0.12269E-01, 0.40276E-02,
     & 0.47677E-03,-0.50160E-03,-0.46512E-03,-0.22108E-03,-0.11272E-03,
     &-0.80998E-04
     & /
       real p41(0:20)
       data p41/
     & 0.20124E-01, 0.16914E+01,-0.21975E+00,-0.57154E+00,-0.62457E+00,
     &-0.39793E+00,-0.16961E+00,-0.16285E-01, 0.59440E-01, 0.79747E-01,
     & 0.69293E-01, 0.47583E-01, 0.26708E-01, 0.11962E-01, 0.37181E-02,
     & 0.24470E-03,-0.64959E-03,-0.55179E-03,-0.27133E-03,-0.14518E-03,
     &-0.10382E-03
     & /
       real p42(0:21)
       data p42/
     & 0.18470E-01, 0.17296E+01,-0.23256E+00,-0.58935E+00,-0.63821E+00,
     &-0.40247E+00,-0.16807E+00,-0.12413E-01, 0.63196E-01, 0.82352E-01,
     & 0.70630E-01, 0.47975E-01, 0.26576E-01, 0.11642E-01, 0.34040E-02,
     & 0.12711E-04,-0.79584E-03,-0.63657E-03,-0.32004E-03,-0.17649E-03,
     &-0.12579E-03,-0.12176E-03
     & /
       real p43(0:24)
       data p43/
     & 0.16786E-01, 0.17675E+01,-0.24552E+00,-0.60715E+00,-0.65167E+00,
     &-0.40681E+00,-0.16638E+00,-0.84839E-02, 0.66941E-01, 0.84911E-01,
     & 0.71917E-01, 0.48327E-01, 0.26418E-01, 0.11309E-01, 0.30860E-02,
     &-0.21883E-03,-0.94017E-03,-0.71936E-03,-0.36718E-03,-0.20665E-03,
     &-0.14691E-03,-0.13713E-03,-0.17998E-03,-0.14963E-03,-0.14148E-03
     & /
       real p44(0:24)
       data p44/
     & 0.15076E-01, 0.18052E+01,-0.25863E+00,-0.62494E+00,-0.66497E+00,
     &-0.41095E+00,-0.16455E+00,-0.45010E-02, 0.70672E-01, 0.87424E-01,
     & 0.73152E-01, 0.48639E-01, 0.26235E-01, 0.10965E-01, 0.27647E-02,
     &-0.44960E-03,-0.10824E-02,-0.80011E-03,-0.41272E-03,-0.23566E-03,
     &-0.16718E-03,-0.15186E-03,-0.19155E-03,-0.15702E-03,-0.14592E-03
     & /
       real p45(0:24)
       data p45/
     & 0.13340E-01, 0.18427E+01,-0.27188E+00,-0.64271E+00,-0.67810E+00,
     &-0.41489E+00,-0.16259E+00,-0.46944E-03, 0.74388E-01, 0.89890E-01,
     & 0.74338E-01, 0.48913E-01, 0.26029E-01, 0.10609E-01, 0.24407E-02,
     &-0.67930E-03,-0.12225E-02,-0.87877E-03,-0.45667E-03,-0.26351E-03,
     &-0.18661E-03,-0.16595E-03,-0.20262E-03,-0.16400E-03,-0.15004E-03
     & /
       real p46(0:24)
       data p46/
     & 0.11581E-01, 0.18800E+01,-0.28528E+00,-0.66047E+00,-0.69107E+00,
     &-0.41864E+00,-0.16050E+00, 0.36066E-02, 0.78086E-01, 0.92311E-01,
     & 0.75476E-01, 0.49149E-01, 0.25801E-01, 0.10245E-01, 0.21145E-02,
     &-0.90765E-03,-0.13602E-02,-0.95530E-03,-0.49900E-03,-0.29022E-03,
     &-0.20521E-03,-0.17940E-03,-0.21319E-03,-0.17060E-03,-0.15385E-03
     & /
       real p47(0:24)
       data p47/
     & 0.98009E-02, 0.19171E+01,-0.29880E+00,-0.67822E+00,-0.70388E+00,
     &-0.42220E+00,-0.15828E+00, 0.77230E-02, 0.81765E-01, 0.94685E-01,
     & 0.76566E-01, 0.49350E-01, 0.25552E-01, 0.98707E-02, 0.17866E-02,
     &-0.11344E-02,-0.14955E-02,-0.10297E-02,-0.53973E-03,-0.31579E-03,
     &-0.22299E-03,-0.19225E-03,-0.22329E-03,-0.17682E-03,-0.15737E-03
     & /
       real p48(0:24)
       data p48/
     & 0.80010E-02, 0.19540E+01,-0.31246E+00,-0.69594E+00,-0.71654E+00,
     &-0.42558E+00,-0.15595E+00, 0.11876E-01, 0.85423E-01, 0.97013E-01,
     & 0.77609E-01, 0.49517E-01, 0.25283E-01, 0.94887E-02, 0.14575E-02,
     &-0.13594E-02,-0.16283E-02,-0.11019E-02,-0.57885E-03,-0.34023E-03,
     &-0.23996E-03,-0.20448E-03,-0.23291E-03,-0.18267E-03,-0.16060E-03
     & /
       real p49(0:24)
       data p49/
     & 0.61830E-02, 0.19908E+01,-0.32624E+00,-0.71365E+00,-0.72904E+00,
     &-0.42879E+00,-0.15350E+00, 0.16062E-01, 0.89059E-01, 0.99295E-01,
     & 0.78607E-01, 0.49650E-01, 0.24996E-01, 0.90992E-02, 0.11275E-02,
     &-0.15823E-02,-0.17585E-02,-0.11719E-02,-0.61638E-03,-0.36357E-03,
     &-0.25615E-03,-0.21613E-03,-0.24209E-03,-0.18818E-03,-0.16355E-03
     & /
       real p50(0:24)
       data p50/
     & 0.43481E-02, 0.20273E+01,-0.34013E+00,-0.73133E+00,-0.74138E+00,
     &-0.43183E+00,-0.15095E+00, 0.20279E-01, 0.92670E-01, 0.10153E+00,
     & 0.79560E-01, 0.49752E-01, 0.24691E-01, 0.87030E-02, 0.79710E-03,
     &-0.18031E-02,-0.18860E-02,-0.12397E-02,-0.65232E-03,-0.38581E-03,
     &-0.27156E-03,-0.22721E-03,-0.25082E-03,-0.19334E-03,-0.16625E-03
     & /
       real p51(0:24)
       data p51/
     & 0.24978E-02, 0.20637E+01,-0.35415E+00,-0.74899E+00,-0.75358E+00,
     &-0.43471E+00,-0.14829E+00, 0.24522E-01, 0.96257E-01, 0.10372E+00,
     & 0.80470E-01, 0.49822E-01, 0.24370E-01, 0.83006E-02, 0.46659E-03,
     &-0.20215E-02,-0.20109E-02,-0.13053E-02,-0.68671E-03,-0.40697E-03,
     &-0.28621E-03,-0.23772E-03,-0.25912E-03,-0.19818E-03,-0.16868E-03
     & /
       real p52(0:24)
       data p52/
     & 0.63334E-03, 0.20999E+01,-0.36827E+00,-0.76662E+00,-0.76563E+00,
     &-0.43743E+00,-0.14554E+00, 0.28789E-01, 0.99818E-01, 0.10587E+00,
     & 0.81338E-01, 0.49863E-01, 0.24032E-01, 0.78927E-02, 0.13632E-03,
     &-0.22375E-02,-0.21330E-02,-0.13687E-02,-0.71954E-03,-0.42708E-03,
     &-0.30012E-03,-0.24769E-03,-0.26701E-03,-0.20270E-03,-0.17088E-03
     & /
       real p53(0:24)
       data p53/
     &-0.12442E-02, 0.21359E+01,-0.38251E+00,-0.78423E+00,-0.77753E+00,
     &-0.43999E+00,-0.14269E+00, 0.33078E-01, 0.10335E+00, 0.10797E+00,
     & 0.82164E-01, 0.49876E-01, 0.23680E-01, 0.74798E-02,-0.19343E-03,
     &-0.24508E-02,-0.22524E-02,-0.14300E-02,-0.75085E-03,-0.44616E-03,
     &-0.31331E-03,-0.25713E-03,-0.27450E-03,-0.20691E-03,-0.17285E-03
     & /
       real p54(0:24)
       data p54/
     &-0.31336E-02, 0.21717E+01,-0.39684E+00,-0.80182E+00,-0.78930E+00,
     &-0.44239E+00,-0.13976E+00, 0.37385E-01, 0.10686E+00, 0.11002E+00,
     & 0.82949E-01, 0.49861E-01, 0.23313E-01, 0.70625E-02,-0.52236E-03,
     &-0.26615E-02,-0.23690E-02,-0.14891E-02,-0.78066E-03,-0.46423E-03,
     &-0.32580E-03,-0.26605E-03,-0.28160E-03,-0.21083E-03,-0.17459E-03
     & /
       real p55(0:24)
       data p55/
     &-0.50340E-02, 0.22074E+01,-0.41128E+00,-0.81937E+00,-0.80092E+00,
     &-0.44465E+00,-0.13673E+00, 0.41709E-01, 0.11034E+00, 0.11204E+00,
     & 0.83695E-01, 0.49819E-01, 0.22933E-01, 0.66413E-02,-0.85023E-03,
     &-0.28693E-02,-0.24828E-02,-0.15460E-02,-0.80899E-03,-0.48130E-03,
     &-0.33760E-03,-0.27448E-03,-0.28833E-03,-0.21447E-03,-0.17612E-03
     & /
       real p56(0:24)
       data p56/
     &-0.69443E-02, 0.22430E+01,-0.42582E+00,-0.83690E+00,-0.81240E+00,
     &-0.44677E+00,-0.13363E+00, 0.46047E-01, 0.11379E+00, 0.11401E+00,
     & 0.84403E-01, 0.49752E-01, 0.22541E-01, 0.62165E-02,-0.11768E-02,
     &-0.30742E-02,-0.25939E-02,-0.16008E-02,-0.83586E-03,-0.49741E-03,
     &-0.34874E-03,-0.28243E-03,-0.29469E-03,-0.21784E-03,-0.17745E-03
     & /
       real p57(0:24)
       data p57/
     &-0.88636E-02, 0.22784E+01,-0.44045E+00,-0.85440E+00,-0.82375E+00,
     &-0.44875E+00,-0.13044E+00, 0.50397E-01, 0.11720E+00, 0.11593E+00,
     & 0.85073E-01, 0.49661E-01, 0.22136E-01, 0.57888E-02,-0.15018E-02,
     &-0.32762E-02,-0.27021E-02,-0.16535E-02,-0.86132E-03,-0.51258E-03,
     &-0.35923E-03,-0.28991E-03,-0.30071E-03,-0.22094E-03,-0.17859E-03
     & /
       real p58(0:24)
       data p58/
     &-0.10791E-01, 0.23136E+01,-0.45517E+00,-0.87187E+00,-0.83497E+00,
     &-0.45059E+00,-0.12718E+00, 0.54758E-01, 0.12059E+00, 0.11782E+00,
     & 0.85706E-01, 0.49545E-01, 0.21721E-01, 0.53585E-02,-0.18252E-02,
     &-0.34751E-02,-0.28075E-02,-0.17041E-02,-0.88537E-03,-0.52683E-03,
     &-0.36910E-03,-0.29693E-03,-0.30639E-03,-0.22380E-03,-0.17954E-03
     & /
       real p59(0:24)
       data p59/
     &-0.12726E-01, 0.23487E+01,-0.46998E+00,-0.88931E+00,-0.84605E+00,
     &-0.45230E+00,-0.12384E+00, 0.59127E-01, 0.12395E+00, 0.11966E+00,
     & 0.86303E-01, 0.49407E-01, 0.21295E-01, 0.49259E-02,-0.21466E-02,
     &-0.36710E-02,-0.29101E-02,-0.17526E-02,-0.90806E-03,-0.54019E-03,
     &-0.37836E-03,-0.30352E-03,-0.31174E-03,-0.22642E-03,-0.18031E-03
     & /
       real p60(0:24)
       data p60/
     &-0.14668E-01, 0.23836E+01,-0.48488E+00,-0.90671E+00,-0.85701E+00,
     &-0.45387E+00,-0.12044E+00, 0.63503E-01, 0.12728E+00, 0.12146E+00,
     & 0.86866E-01, 0.49247E-01, 0.20859E-01, 0.44915E-02,-0.24660E-02,
     &-0.38637E-02,-0.30099E-02,-0.17992E-02,-0.92942E-03,-0.55267E-03,
     &-0.38703E-03,-0.30969E-03,-0.31679E-03,-0.22881E-03,-0.18092E-03
     & /
       real p61(0:24)
       data p61/
     &-0.16615E-01, 0.24184E+01,-0.49986E+00,-0.92409E+00,-0.86783E+00,
     &-0.45533E+00,-0.11697E+00, 0.67884E-01, 0.13058E+00, 0.12321E+00,
     & 0.87394E-01, 0.49066E-01, 0.20414E-01, 0.40556E-02,-0.27831E-02,
     &-0.40532E-02,-0.31069E-02,-0.18437E-02,-0.94946E-03,-0.56431E-03,
     &-0.39513E-03,-0.31545E-03,-0.32153E-03,-0.23097E-03,-0.18137E-03
     & /
       real p62(0:24)
       data p62/
     &-0.18568E-01, 0.24531E+01,-0.51493E+00,-0.94143E+00,-0.87854E+00,
     &-0.45665E+00,-0.11343E+00, 0.72269E-01, 0.13384E+00, 0.12493E+00,
     & 0.87889E-01, 0.48864E-01, 0.19960E-01, 0.36185E-02,-0.30979E-02,
     &-0.42395E-02,-0.32012E-02,-0.18863E-02,-0.96822E-03,-0.57513E-03,
     &-0.40268E-03,-0.32083E-03,-0.32599E-03,-0.23293E-03,-0.18166E-03
     & /
       real p63(0:24)
       data p63/
     &-0.20525E-01, 0.24876E+01,-0.53007E+00,-0.95874E+00,-0.88912E+00,
     &-0.45786E+00,-0.10984E+00, 0.76656E-01, 0.13707E+00, 0.12661E+00,
     & 0.88352E-01, 0.48643E-01, 0.19498E-01, 0.31805E-02,-0.34102E-02,
     &-0.44226E-02,-0.32928E-02,-0.19270E-02,-0.98574E-03,-0.58515E-03,
     &-0.40969E-03,-0.32582E-03,-0.33017E-03,-0.23469E-03,-0.18181E-03
     & /
       real p64(0:24)
       data p64/
     &-0.22487E-01, 0.25220E+01,-0.54529E+00,-0.97602E+00,-0.89957E+00,
     &-0.45896E+00,-0.10618E+00, 0.81044E-01, 0.14027E+00, 0.12825E+00,
     & 0.88783E-01, 0.48403E-01, 0.19028E-01, 0.27419E-02,-0.37199E-02,
     &-0.46025E-02,-0.33816E-02,-0.19657E-02,-0.10020E-02,-0.59440E-03,
     &-0.41619E-03,-0.33045E-03,-0.33408E-03,-0.23625E-03,-0.18182E-03
     & /
       real p65(0:24)
       data p65/
     &-0.24452E-01, 0.25563E+01,-0.56058E+00,-0.99326E+00,-0.90991E+00,
     &-0.45993E+00,-0.10247E+00, 0.85432E-01, 0.14344E+00, 0.12985E+00,
     & 0.89183E-01, 0.48145E-01, 0.18551E-01, 0.23030E-02,-0.40269E-02,
     &-0.47791E-02,-0.34678E-02,-0.20026E-02,-0.10172E-02,-0.60290E-03,
     &-0.42220E-03,-0.33473E-03,-0.33774E-03,-0.23763E-03,-0.18170E-03
     & /
       real p66(0:24)
       data p66/
     &-0.26419E-01, 0.25904E+01,-0.57595E+00,-0.10105E+01,-0.92013E+00,
     &-0.46080E+00,-0.98703E-01, 0.89818E-01, 0.14658E+00, 0.13141E+00,
     & 0.89554E-01, 0.47869E-01, 0.18068E-01, 0.18640E-02,-0.43311E-02,
     &-0.49524E-02,-0.35513E-02,-0.20377E-02,-0.10311E-02,-0.61067E-03,
     &-0.42772E-03,-0.33867E-03,-0.34115E-03,-0.23883E-03,-0.18146E-03
     & /
       real p67(0:24)
       data p67/
     &-0.28390E-01, 0.26245E+01,-0.59139E+00,-0.10276E+01,-0.93024E+00,
     &-0.46156E+00,-0.94884E-01, 0.94202E-01, 0.14969E+00, 0.13294E+00,
     & 0.89895E-01, 0.47577E-01, 0.17578E-01, 0.14252E-02,-0.46324E-02,
     &-0.51225E-02,-0.36322E-02,-0.20710E-02,-0.10439E-02,-0.61773E-03,
     &-0.43278E-03,-0.34228E-03,-0.34432E-03,-0.23986E-03,-0.18110E-03
     & /
       real p68(0:24)
       data p68/
     &-0.30362E-01, 0.26584E+01,-0.60689E+00,-0.10448E+01,-0.94023E+00,
     &-0.46221E+00,-0.91015E-01, 0.98581E-01, 0.15276E+00, 0.13442E+00,
     & 0.90208E-01, 0.47269E-01, 0.17082E-01, 0.98677E-03,-0.49308E-02,
     &-0.52893E-02,-0.37105E-02,-0.21025E-02,-0.10557E-02,-0.62411E-03,
     &-0.43739E-03,-0.34559E-03,-0.34728E-03,-0.24073E-03,-0.18062E-03
     & /
       real p69(0:24)
       data p69/
     &-0.32336E-01, 0.26921E+01,-0.62246E+00,-0.10619E+01,-0.95010E+00,
     &-0.46276E+00,-0.87099E-01, 0.10296E+00, 0.15580E+00, 0.13587E+00,
     & 0.90492E-01, 0.46945E-01, 0.16581E-01, 0.54894E-03,-0.52261E-02,
     &-0.54528E-02,-0.37863E-02,-0.21324E-02,-0.10663E-02,-0.62984E-03,
     &-0.44158E-03,-0.34859E-03,-0.35001E-03,-0.24145E-03,-0.18004E-03
     & /
       real p70(0:24)
       data p70/
     &-0.34311E-01, 0.27258E+01,-0.63810E+00,-0.10790E+01,-0.95987E+00,
     &-0.46320E+00,-0.83136E-01, 0.10733E+00, 0.15881E+00, 0.13729E+00,
     & 0.90750E-01, 0.46606E-01, 0.16074E-01, 0.11188E-03,-0.55183E-02,
     &-0.56131E-02,-0.38595E-02,-0.21605E-02,-0.10760E-02,-0.63492E-03,
     &-0.44534E-03,-0.35131E-03,-0.35254E-03,-0.24202E-03,-0.17936E-03
     & /
       real p71(0:24)
       data p71/
     &-0.36287E-01, 0.27593E+01,-0.65381E+00,-0.10960E+01,-0.96953E+00,
     &-0.46355E+00,-0.79129E-01, 0.11169E+00, 0.16178E+00, 0.13867E+00,
     & 0.90981E-01, 0.46252E-01, 0.15564E-01,-0.32420E-03,-0.58074E-02,
     &-0.57702E-02,-0.39302E-02,-0.21870E-02,-0.10846E-02,-0.63939E-03,
     &-0.44871E-03,-0.35374E-03,-0.35487E-03,-0.24245E-03,-0.17858E-03
     & /
       real p72(0:24)
       data p72/
     &-0.38263E-01, 0.27928E+01,-0.66957E+00,-0.11130E+01,-0.97908E+00,
     &-0.46380E+00,-0.75079E-01, 0.11605E+00, 0.16473E+00, 0.14001E+00,
     & 0.91187E-01, 0.45885E-01, 0.15048E-01,-0.75914E-03,-0.60933E-02,
     &-0.59240E-02,-0.39985E-02,-0.22119E-02,-0.10922E-02,-0.64326E-03,
     &-0.45170E-03,-0.35592E-03,-0.35701E-03,-0.24275E-03,-0.17771E-03
     & /
       real p73(0:24)
       data p73/
     &-0.40239E-01, 0.28261E+01,-0.68540E+00,-0.11300E+01,-0.98852E+00,
     &-0.46396E+00,-0.70989E-01, 0.12039E+00, 0.16764E+00, 0.14132E+00,
     & 0.91367E-01, 0.45505E-01, 0.14529E-01,-0.11928E-02,-0.63759E-02,
     &-0.60746E-02,-0.40644E-02,-0.22352E-02,-0.10989E-02,-0.64655E-03,
     &-0.45431E-03,-0.35783E-03,-0.35896E-03,-0.24292E-03,-0.17676E-03
     & /
       real p74(0:24)
       data p74/
     &-0.42215E-01, 0.28593E+01,-0.70128E+00,-0.11469E+01,-0.99786E+00,
     &-0.46402E+00,-0.66860E-01, 0.12473E+00, 0.17052E+00, 0.14260E+00,
     & 0.91523E-01, 0.45112E-01, 0.14006E-01,-0.16250E-02,-0.66553E-02,
     &-0.62220E-02,-0.41279E-02,-0.22569E-02,-0.11046E-02,-0.64929E-03,
     &-0.45657E-03,-0.35951E-03,-0.36074E-03,-0.24297E-03,-0.17573E-03
     & /
       real p75(0:24)
       data p75/
     &-0.44190E-01, 0.28924E+01,-0.71722E+00,-0.11638E+01,-0.10071E+01,
     &-0.46399E+00,-0.62693E-01, 0.12906E+00, 0.17337E+00, 0.14384E+00,
     & 0.91656E-01, 0.44706E-01, 0.13480E-01,-0.20556E-02,-0.69314E-02,
     &-0.63663E-02,-0.41890E-02,-0.22772E-02,-0.11095E-02,-0.65148E-03,
     &-0.45849E-03,-0.36095E-03,-0.36236E-03,-0.24291E-03,-0.17462E-03
     & /
       real p76(0:24)
       data p76/
     &-0.46164E-01, 0.29254E+01,-0.73322E+00,-0.11807E+01,-0.10162E+01,
     &-0.46388E+00,-0.58490E-01, 0.13338E+00, 0.17618E+00, 0.14505E+00,
     & 0.91765E-01, 0.44289E-01, 0.12951E-01,-0.24844E-02,-0.72041E-02,
     &-0.65074E-02,-0.42478E-02,-0.22960E-02,-0.11135E-02,-0.65316E-03,
     &-0.46007E-03,-0.36216E-03,-0.36382E-03,-0.24274E-03,-0.17343E-03
     & /
       real p77(0:24)
       data p77/
     &-0.48137E-01, 0.29583E+01,-0.74927E+00,-0.11975E+01,-0.10253E+01,
     &-0.46368E+00,-0.54253E-01, 0.13769E+00, 0.17897E+00, 0.14623E+00,
     & 0.91851E-01, 0.43861E-01, 0.12419E-01,-0.29115E-02,-0.74734E-02,
     &-0.66454E-02,-0.43044E-02,-0.23134E-02,-0.11166E-02,-0.65434E-03,
     &-0.46135E-03,-0.36316E-03,-0.36512E-03,-0.24246E-03,-0.17218E-03
     & /
       real p78(0:24)
       data p78/
     &-0.50108E-01, 0.29911E+01,-0.76538E+00,-0.12143E+01,-0.10342E+01,
     &-0.46339E+00,-0.49982E-01, 0.14199E+00, 0.18172E+00, 0.14737E+00,
     & 0.91915E-01, 0.43421E-01, 0.11884E-01,-0.33366E-02,-0.77394E-02,
     &-0.67803E-02,-0.43587E-02,-0.23293E-02,-0.11189E-02,-0.65504E-03,
     &-0.46232E-03,-0.36395E-03,-0.36628E-03,-0.24208E-03,-0.17087E-03
     & /
       real p79(0:24)
       data p79/
     &-0.52078E-01, 0.30237E+01,-0.78154E+00,-0.12310E+01,-0.10430E+01,
     &-0.46302E+00,-0.45680E-01, 0.14628E+00, 0.18444E+00, 0.14849E+00,
     & 0.91958E-01, 0.42971E-01, 0.11347E-01,-0.37596E-02,-0.80020E-02,
     &-0.69121E-02,-0.44109E-02,-0.23439E-02,-0.11204E-02,-0.65527E-03,
     &-0.46300E-03,-0.36455E-03,-0.36730E-03,-0.24161E-03,-0.16949E-03
     & /
       real p80(0:24)
       data p80/
     &-0.54045E-01, 0.30563E+01,-0.79775E+00,-0.12478E+01,-0.10518E+01,
     &-0.46257E+00,-0.41347E-01, 0.15056E+00, 0.18713E+00, 0.14957E+00,
     & 0.91979E-01, 0.42511E-01, 0.10808E-01,-0.41804E-02,-0.82612E-02,
     &-0.70409E-02,-0.44609E-02,-0.23572E-02,-0.11212E-02,-0.65506E-03,
     &-0.46340E-03,-0.36495E-03,-0.36819E-03,-0.24104E-03,-0.16806E-03
     & /
       real p81(0:24)
       data p81/
     &-0.56011E-01, 0.30888E+01,-0.81401E+00,-0.12644E+01,-0.10604E+01,
     &-0.46204E+00,-0.36985E-01, 0.15482E+00, 0.18979E+00, 0.15063E+00,
     & 0.91981E-01, 0.42042E-01, 0.10267E-01,-0.45990E-02,-0.85170E-02,
     &-0.71666E-02,-0.45087E-02,-0.23691E-02,-0.11212E-02,-0.65441E-03,
     &-0.46353E-03,-0.36518E-03,-0.36895E-03,-0.24040E-03,-0.16658E-03
     & /
       real p82(0:24)
       data p82/
     &-0.57973E-01, 0.31212E+01,-0.83032E+00,-0.12811E+01,-0.10690E+01,
     &-0.46143E+00,-0.32595E-01, 0.15907E+00, 0.19242E+00, 0.15165E+00,
     & 0.91962E-01, 0.41563E-01, 0.97253E-02,-0.50152E-02,-0.87694E-02,
     &-0.72895E-02,-0.45545E-02,-0.23798E-02,-0.11205E-02,-0.65335E-03,
     &-0.46340E-03,-0.36523E-03,-0.36959E-03,-0.23967E-03,-0.16504E-03
     & /
       real p83(0:24)
       data p83/
     &-0.59934E-01, 0.31535E+01,-0.84667E+00,-0.12977E+01,-0.10774E+01,
     &-0.46075E+00,-0.28178E-01, 0.16330E+00, 0.19502E+00, 0.15265E+00,
     & 0.91924E-01, 0.41075E-01, 0.91817E-02,-0.54290E-02,-0.90184E-02,
     &-0.74093E-02,-0.45983E-02,-0.23892E-02,-0.11190E-02,-0.65189E-03,
     &-0.46304E-03,-0.36512E-03,-0.37012E-03,-0.23887E-03,-0.16346E-03
     & /
       real p84(0:24)
       data p84/
     &-0.61891E-01, 0.31857E+01,-0.86308E+00,-0.13143E+01,-0.10858E+01,
     &-0.45999E+00,-0.23736E-01, 0.16753E+00, 0.19759E+00, 0.15361E+00,
     & 0.91867E-01, 0.40579E-01, 0.86369E-02,-0.58404E-02,-0.92639E-02,
     &-0.75263E-02,-0.46400E-02,-0.23974E-02,-0.11169E-02,-0.65004E-03,
     &-0.46243E-03,-0.36485E-03,-0.37054E-03,-0.23799E-03,-0.16183E-03
     & /
       real p85(0:24)
       data p85/
     &-0.63845E-01, 0.32178E+01,-0.87953E+00,-0.13308E+01,-0.10941E+01,
     &-0.45916E+00,-0.19268E-01, 0.17173E+00, 0.20013E+00, 0.15455E+00,
     & 0.91791E-01, 0.40075E-01, 0.80912E-02,-0.62491E-02,-0.95061E-02,
     &-0.76403E-02,-0.46798E-02,-0.24045E-02,-0.11142E-02,-0.64783E-03,
     &-0.46160E-03,-0.36443E-03,-0.37085E-03,-0.23705E-03,-0.16017E-03
     & /
       real p86(0:24)
       data p86/
     &-0.65796E-01, 0.32498E+01,-0.89602E+00,-0.13473E+01,-0.11023E+01,
     &-0.45826E+00,-0.14777E-01, 0.17593E+00, 0.20264E+00, 0.15546E+00,
     & 0.91697E-01, 0.39563E-01, 0.75447E-02,-0.66552E-02,-0.97448E-02,
     &-0.77515E-02,-0.47177E-02,-0.24104E-02,-0.11107E-02,-0.64525E-03,
     &-0.46056E-03,-0.36386E-03,-0.37106E-03,-0.23604E-03,-0.15846E-03
     & /
       real p87(0:24)
       data p87/
     &-0.67744E-01, 0.32818E+01,-0.91256E+00,-0.13638E+01,-0.11104E+01,
     &-0.45729E+00,-0.10263E-01, 0.18011E+00, 0.20512E+00, 0.15634E+00,
     & 0.91586E-01, 0.39043E-01, 0.69976E-02,-0.70587E-02,-0.99802E-02,
     &-0.78600E-02,-0.47536E-02,-0.24152E-02,-0.11067E-02,-0.64234E-03,
     &-0.45930E-03,-0.36316E-03,-0.37118E-03,-0.23497E-03,-0.15672E-03
     & /
       real p88(0:24)
       data p88/
     &-0.69688E-01, 0.33136E+01,-0.92914E+00,-0.13802E+01,-0.11184E+01,
     &-0.45625E+00,-0.57280E-02, 0.18427E+00, 0.20757E+00, 0.15720E+00,
     & 0.91458E-01, 0.38516E-01, 0.64500E-02,-0.74594E-02,-0.10212E-01,
     &-0.79656E-02,-0.47877E-02,-0.24189E-02,-0.11021E-02,-0.63910E-03,
     &-0.45786E-03,-0.36233E-03,-0.37121E-03,-0.23384E-03,-0.15494E-03
     & /
       real p89(0:24)
       data p89/
     &-0.71628E-01, 0.33454E+01,-0.94576E+00,-0.13966E+01,-0.11263E+01,
     &-0.45515E+00,-0.11717E-02, 0.18842E+00, 0.20999E+00, 0.15803E+00,
     & 0.91313E-01, 0.37982E-01, 0.59022E-02,-0.78573E-02,-0.10441E-01,
     &-0.80685E-02,-0.48200E-02,-0.24215E-02,-0.10969E-02,-0.63554E-03,
     &-0.45622E-03,-0.36137E-03,-0.37115E-03,-0.23265E-03,-0.15314E-03
     & /
       real p90(0:24)
       data p90/
     &-0.73565E-01, 0.33770E+01,-0.96243E+00,-0.14130E+01,-0.11342E+01,
     &-0.45397E+00, 0.34044E-02, 0.19255E+00, 0.21238E+00, 0.15883E+00,
     & 0.91152E-01, 0.37442E-01, 0.53543E-02,-0.82523E-02,-0.10666E-01,
     &-0.81687E-02,-0.48505E-02,-0.24231E-02,-0.10912E-02,-0.63168E-03,
     &-0.45441E-03,-0.36030E-03,-0.37101E-03,-0.23142E-03,-0.15130E-03
     & /
       real p91(0:24)
       data p91/
     &-0.75498E-01, 0.34086E+01,-0.97913E+00,-0.14293E+01,-0.11420E+01,
     &-0.45273E+00, 0.79996E-02, 0.19667E+00, 0.21474E+00, 0.15961E+00,
     & 0.90975E-01, 0.36895E-01, 0.48064E-02,-0.86445E-02,-0.10888E-01,
     &-0.82662E-02,-0.48793E-02,-0.24237E-02,-0.10849E-02,-0.62753E-03,
     &-0.45242E-03,-0.35911E-03,-0.37080E-03,-0.23013E-03,-0.14944E-03
     & /
       real p92(0:24)
       data p92/
     &-0.77426E-01, 0.34401E+01,-0.99588E+00,-0.14456E+01,-0.11496E+01,
     &-0.45143E+00, 0.12613E-01, 0.20077E+00, 0.21708E+00, 0.16036E+00,
     & 0.90782E-01, 0.36342E-01, 0.42586E-02,-0.90338E-02,-0.11106E-01,
     &-0.83611E-02,-0.49063E-02,-0.24233E-02,-0.10781E-02,-0.62311E-03,
     &-0.45027E-03,-0.35781E-03,-0.37051E-03,-0.22880E-03,-0.14756E-03
     & /
       real p93(0:24)
       data p93/
     &-0.79334E-01, 0.34715E+01,-0.10126E+01,-0.14618E+01,-0.11572E+01,
     &-0.45009E+00, 0.17204E-01, 0.20482E+00, 0.21936E+00, 0.16109E+00,
     & 0.90580E-01, 0.35792E-01, 0.37179E-02,-0.94157E-02,-0.11319E-01,
     &-0.84526E-02,-0.49316E-02,-0.24221E-02,-0.10709E-02,-0.61854E-03,
     &-0.44804E-03,-0.35646E-03,-0.37018E-03,-0.22746E-03,-0.14568E-03
     & /
       real p94(0:24)
       data p94/
     &-0.81236E-01, 0.35027E+01,-0.10294E+01,-0.14780E+01,-0.11647E+01,
     &-0.44869E+00, 0.21808E-01, 0.20885E+00, 0.22162E+00, 0.16179E+00,
     & 0.90364E-01, 0.35237E-01, 0.31784E-02,-0.97941E-02,-0.11529E-01,
     &-0.85414E-02,-0.49552E-02,-0.24200E-02,-0.10633E-02,-0.61373E-03,
     &-0.44568E-03,-0.35502E-03,-0.36979E-03,-0.22608E-03,-0.14378E-03
     & /
       real p95(0:24)
       data p95/
     &-0.83134E-01, 0.35339E+01,-0.10462E+01,-0.14941E+01,-0.11721E+01,
     &-0.44722E+00, 0.26431E-01, 0.21287E+00, 0.22385E+00, 0.16246E+00,
     & 0.90133E-01, 0.34676E-01, 0.26389E-02,-0.10170E-01,-0.11735E-01,
     &-0.86277E-02,-0.49772E-02,-0.24170E-02,-0.10552E-02,-0.60868E-03,
     &-0.44317E-03,-0.35349E-03,-0.36934E-03,-0.22465E-03,-0.14187E-03
     & /
       real p96(0:24)
       data p96/
     &-0.85028E-01, 0.35650E+01,-0.10630E+01,-0.15102E+01,-0.11795E+01,
     &-0.44569E+00, 0.31074E-01, 0.21687E+00, 0.22606E+00, 0.16312E+00,
     & 0.89886E-01, 0.34109E-01, 0.20995E-02,-0.10543E-01,-0.11938E-01,
     &-0.87116E-02,-0.49976E-02,-0.24131E-02,-0.10467E-02,-0.60339E-03,
     &-0.44052E-03,-0.35186E-03,-0.36882E-03,-0.22319E-03,-0.13993E-03
     & /
       real p97(0:24)
       data p97/
     &-0.86919E-01, 0.35960E+01,-0.10799E+01,-0.15262E+01,-0.11867E+01,
     &-0.44409E+00, 0.35734E-01, 0.22085E+00, 0.22823E+00, 0.16374E+00,
     & 0.89626E-01, 0.33536E-01, 0.15603E-02,-0.10913E-01,-0.12139E-01,
     &-0.87931E-02,-0.50165E-02,-0.24083E-02,-0.10377E-02,-0.59786E-03,
     &-0.43774E-03,-0.35015E-03,-0.36825E-03,-0.22169E-03,-0.13797E-03
     & /
       real p98(0:24)
       data p98/
     &-0.88806E-01, 0.36269E+01,-0.10969E+01,-0.15423E+01,-0.11939E+01,
     &-0.44244E+00, 0.40412E-01, 0.22483E+00, 0.23038E+00, 0.16435E+00,
     & 0.89351E-01, 0.32958E-01, 0.10214E-02,-0.11280E-01,-0.12336E-01,
     &-0.88722E-02,-0.50338E-02,-0.24027E-02,-0.10283E-02,-0.59211E-03,
     &-0.43483E-03,-0.34835E-03,-0.36762E-03,-0.22016E-03,-0.13600E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  26,  26,  26,  26,  25,  25,  25
     &,  24,  24,  24,  23,  23,  23,  23,  22,  22,  22
     &,  21,  21,  19,  19,  18,  18,  19,  20,  20,  20
     &,  21,  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
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.26) param(i,15) = p15(i)
             if (i.le.26) param(i,16) = p16(i)
             if (i.le.26) param(i,17) = p17(i)
             if (i.le.26) 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.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.23) param(i,25) = p25(i)
             if (i.le.23) param(i,26) = p26(i)
             if (i.le.23) param(i,27) = p27(i)
             if (i.le.23) param(i,28) = p28(i)
             if (i.le.22) param(i,29) = p29(i)
             if (i.le.22) param(i,30) = p30(i)
             if (i.le.22) param(i,31) = p31(i)
             if (i.le.21) param(i,32) = p32(i)
             if (i.le.21) 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.18) param(i,36) = p36(i)
             if (i.le.18) param(i,37) = p37(i)
             if (i.le.19) param(i,38) = p38(i)
             if (i.le.20) param(i,39) = p39(i)
             if (i.le.20) param(i,40) = p40(i)
             if (i.le.20) param(i,41) = p41(i)
             if (i.le.21) 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.24) param(i,97) = p97(i)
             if (i.le.24) param(i,98) = p98(i)
          enddo
       endif
            
       w3cehiq200=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
       w3cehiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w3cehiq200=0.0
       if (q2.lt.q2min) w3cehiq200=0.0
       if ( x.gt. xmax) w3cehiq200=0.0
       if ( x.lt. xmin) w3cehiq200=0.0
       return
       end
       real function  wlcehiq200(xin,q2in)
***********************************************************
c  parametrization of wlcehiq200 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:16)
       data p15/
     & 0.36400E+00,-0.37766E+00,-0.18326E-02,-0.49850E-02, 0.14035E-01,
     & 0.65043E-02,-0.47578E-03,-0.17389E-02,-0.76524E-04, 0.11790E-02,
     & 0.11621E-02, 0.53845E-03, 0.13638E-04,-0.21387E-03,-0.21062E-03,
     &-0.13723E-03,-0.67411E-04
     & /
       real p16(0:16)
       data p16/
     & 0.42293E+00,-0.45565E+00, 0.16437E-01,-0.43517E-02, 0.14656E-01,
     & 0.61694E-02,-0.76689E-03,-0.17707E-02, 0.34784E-04, 0.12857E-02,
     & 0.12012E-02, 0.52547E-03,-0.12367E-04,-0.23504E-03,-0.21957E-03,
     &-0.13979E-03,-0.67049E-04
     & /
       real p17(0:16)
       data p17/
     & 0.48894E+00,-0.54464E+00, 0.39305E-01,-0.42526E-02, 0.15196E-01,
     & 0.57625E-02,-0.10609E-02,-0.17843E-02, 0.15659E-03, 0.13918E-02,
     & 0.12345E-02, 0.50749E-03,-0.40017E-04,-0.25618E-03,-0.22752E-03,
     &-0.14164E-03,-0.66290E-04
     & /
       real p18(0:16)
       data p18/
     & 0.55942E+00,-0.64123E+00, 0.66105E-01,-0.48376E-02, 0.15643E-01,
     & 0.53087E-02,-0.13414E-02,-0.17792E-02, 0.28240E-03, 0.14920E-02,
     & 0.12608E-02, 0.48566E-03,-0.67807E-04,-0.27629E-03,-0.23413E-03,
     &-0.14277E-03,-0.65212E-04
     & /
       real p19(0:17)
       data p19/
     & 0.63426E+00,-0.74529E+00, 0.96875E-01,-0.62061E-02, 0.16019E-01,
     & 0.48180E-02,-0.16059E-02,-0.17570E-02, 0.41074E-03, 0.15864E-02,
     & 0.12806E-02, 0.46056E-03,-0.95430E-04,-0.29535E-03,-0.23947E-03,
     &-0.14326E-03,-0.63880E-04,-0.16927E-04
     & /
       real p20(0:18)
       data p20/
     & 0.71336E+00,-0.85667E+00, 0.13163E+00,-0.84459E-02, 0.16347E-01,
     & 0.42988E-02,-0.18526E-02,-0.17194E-02, 0.54034E-03, 0.16747E-02,
     & 0.12945E-02, 0.43273E-03,-0.12264E-03,-0.31334E-03,-0.24362E-03,
     &-0.14321E-03,-0.62348E-04,-0.14688E-04,-0.10928E-04
     & /
       real p21(0:17)
       data p21/
     & 0.79660E+00,-0.97520E+00, 0.17038E+00,-0.11635E-01, 0.16650E-01,
     & 0.37580E-02,-0.20805E-02,-0.16678E-02, 0.67014E-03, 0.17570E-02,
     & 0.13029E-02, 0.40263E-03,-0.14923E-03,-0.33029E-03,-0.24668E-03,
     &-0.14269E-03,-0.60663E-04,-0.12312E-04
     & /
       real p22(0:17)
       data p22/
     & 0.88385E+00,-0.11007E+01, 0.21310E+00,-0.15840E-01, 0.16952E-01,
     & 0.32011E-02,-0.22888E-02,-0.16037E-02, 0.79926E-03, 0.18335E-02,
     & 0.13065E-02, 0.37064E-03,-0.17506E-03,-0.34623E-03,-0.24871E-03,
     &-0.14178E-03,-0.58864E-04,-0.98093E-05
     & /
       real p23(0:17)
       data p23/
     & 0.97501E+00,-0.12330E+01, 0.25978E+00,-0.21121E-01, 0.17275E-01,
     & 0.26326E-02,-0.24774E-02,-0.15285E-02, 0.92695E-03, 0.19041E-02,
     & 0.13056E-02, 0.33714E-03,-0.19999E-03,-0.36119E-03,-0.24979E-03,
     &-0.14053E-03,-0.56986E-04,-0.71911E-05
     & /
       real p24(0:17)
       data p24/
     & 0.10700E+01,-0.13720E+01, 0.31039E+00,-0.27530E-01, 0.17642E-01,
     & 0.20559E-02,-0.26462E-02,-0.14435E-02, 0.10526E-02, 0.19691E-02,
     & 0.13006E-02, 0.30240E-03,-0.22392E-03,-0.37520E-03,-0.24999E-03,
     &-0.13900E-03,-0.55057E-04,-0.44646E-05
     & /
       real p25(0:17)
       data p25/
     & 0.11686E+01,-0.15174E+01, 0.36488E+00,-0.35109E-01, 0.18075E-01,
     & 0.14736E-02,-0.27955E-02,-0.13499E-02, 0.11757E-02, 0.20288E-02,
     & 0.12921E-02, 0.26671E-03,-0.24680E-03,-0.38833E-03,-0.24938E-03,
     &-0.13725E-03,-0.53103E-04,-0.16357E-05
     & /
       real p26(0:17)
       data p26/
     & 0.12707E+01,-0.16691E+01, 0.42321E+00,-0.43897E-01, 0.18596E-01,
     & 0.88744E-03,-0.29257E-02,-0.12488E-02, 0.12958E-02, 0.20832E-02,
     & 0.12803E-02, 0.23029E-03,-0.26856E-03,-0.40061E-03,-0.24802E-03,
     &-0.13530E-03,-0.51145E-04, 0.12912E-05
     & /
       real p27(0:15)
       data p27/
     & 0.13763E+01,-0.18269E+01, 0.48535E+00,-0.53927E-01, 0.19204E-01,
     & 0.32815E-03,-0.30481E-02,-0.11446E-02, 0.14222E-02, 0.21119E-02,
     & 0.13030E-02, 0.16077E-03,-0.27845E-03,-0.37708E-03,-0.26849E-03,
     &-0.12890E-03
     & /
       real p28(0:15)
       data p28/
     & 0.14852E+01,-0.19906E+01, 0.55120E+00,-0.65220E-01, 0.19958E-01,
     &-0.25969E-03,-0.31430E-02,-0.10318E-02, 0.15368E-02, 0.21539E-02,
     & 0.12900E-02, 0.11947E-03,-0.29717E-03,-0.38455E-03,-0.26835E-03,
     &-0.12358E-03
     & /
       real p29(0:15)
       data p29/
     & 0.15973E+01,-0.21601E+01, 0.62072E+00,-0.77800E-01, 0.20857E-01,
     &-0.84950E-03,-0.32206E-02,-0.91434E-03, 0.16478E-02, 0.21912E-02,
     & 0.12750E-02, 0.77735E-04,-0.31467E-03,-0.39121E-03,-0.26785E-03,
     &-0.11810E-03
     & /
       real p30(0:15)
       data p30/
     & 0.17125E+01,-0.23352E+01, 0.69385E+00,-0.91684E-01, 0.21919E-01,
     &-0.14417E-02,-0.32816E-02,-0.79300E-03, 0.17550E-02, 0.22240E-02,
     & 0.12581E-02, 0.35708E-04,-0.33096E-03,-0.39712E-03,-0.26702E-03,
     &-0.11246E-03
     & /
       real p31(0:15)
       data p31/
     & 0.17581E+01,-0.24047E+01, 0.72324E+00,-0.97437E-01, 0.22378E-01,
     &-0.16737E-02,-0.33009E-02,-0.74427E-03, 0.17961E-02, 0.22357E-02,
     & 0.12511E-02, 0.19199E-04,-0.33702E-03,-0.39923E-03,-0.26662E-03,
     &-0.11023E-03
     & /
       real p32(0:15)
       data p32/
     & 0.18288E+01,-0.25126E+01, 0.76896E+00,-0.10654E+00, 0.23130E-01,
     &-0.20259E-02,-0.33250E-02,-0.66736E-03, 0.18601E-02, 0.22541E-02,
     & 0.12405E-02,-0.61696E-05,-0.34638E-03,-0.40265E-03,-0.26615E-03,
     &-0.10690E-03
     & /
       real p33(0:15)
       data p33/
     & 0.19478E+01,-0.26945E+01, 0.84708E+00,-0.12258E+00, 0.24521E-01,
     &-0.26106E-02,-0.33527E-02,-0.53833E-03, 0.19624E-02, 0.22812E-02,
     & 0.12219E-02,-0.48147E-04,-0.36088E-03,-0.40775E-03,-0.26516E-03,
     &-0.10132E-03
     & /
       real p34(0:12)
       data p34/
     & 0.20696E+01,-0.28818E+01, 0.92866E+00,-0.13995E+00, 0.26111E-01,
     &-0.32019E-02,-0.33657E-02,-0.40688E-03, 0.20609E-02, 0.23043E-02,
     & 0.12019E-02,-0.90274E-04,-0.37424E-03
     & /
       real p35(0:12)
       data p35/
     & 0.21943E+01,-0.30742E+01, 0.10137E+01,-0.15863E+00, 0.27916E-01,
     &-0.38010E-02,-0.33647E-02,-0.27359E-03, 0.21556E-02, 0.23237E-02,
     & 0.11808E-02,-0.13247E-03,-0.38646E-03
     & /
       real p36(0:12)
       data p36/
     & 0.23218E+01,-0.32715E+01, 0.11020E+01,-0.17866E+00, 0.29948E-01,
     &-0.44094E-02,-0.33501E-02,-0.13894E-03, 0.22463E-02, 0.23396E-02,
     & 0.11586E-02,-0.17465E-03,-0.39755E-03
     & /
       real p37(0:12)
       data p37/
     & 0.24519E+01,-0.34737E+01, 0.11936E+01,-0.20002E+00, 0.32219E-01,
     &-0.50286E-02,-0.33225E-02,-0.34106E-05, 0.23331E-02, 0.23520E-02,
     & 0.11356E-02,-0.21676E-03,-0.40754E-03
     & /
       real p38(0:12)
       data p38/
     & 0.25845E+01,-0.36806E+01, 0.12885E+01,-0.22273E+00, 0.34742E-01,
     &-0.56604E-02,-0.32823E-02, 0.13259E-03, 0.24161E-02, 0.23613E-02,
     & 0.11119E-02,-0.25875E-03,-0.41642E-03
     & /
       real p39(0:12)
       data p39/
     & 0.27197E+01,-0.38921E+01, 0.13865E+01,-0.24678E+00, 0.37527E-01,
     &-0.63066E-02,-0.32300E-02, 0.26867E-03, 0.24951E-02, 0.23675E-02,
     & 0.10876E-02,-0.30056E-03,-0.42424E-03
     & /
       real p40(0:12)
       data p40/
     & 0.28573E+01,-0.41081E+01, 0.14877E+01,-0.27217E+00, 0.40584E-01,
     &-0.69690E-02,-0.31661E-02, 0.40449E-03, 0.25703E-02, 0.23709E-02,
     & 0.10629E-02,-0.34216E-03,-0.43099E-03
     & /
       real p41(0:12)
       data p41/
     & 0.29972E+01,-0.43284E+01, 0.15919E+01,-0.29889E+00, 0.43923E-01,
     &-0.76497E-02,-0.30908E-02, 0.53974E-03, 0.26416E-02, 0.23716E-02,
     & 0.10378E-02,-0.38351E-03,-0.43672E-03
     & /
       real p42(0:12)
       data p42/
     & 0.31394E+01,-0.45529E+01, 0.16991E+01,-0.32695E+00, 0.47551E-01,
     &-0.83508E-02,-0.30048E-02, 0.67413E-03, 0.27093E-02, 0.23698E-02,
     & 0.10125E-02,-0.42458E-03,-0.44144E-03
     & /
       real p43(0:12)
       data p43/
     & 0.32838E+01,-0.47815E+01, 0.18092E+01,-0.35634E+00, 0.51478E-01,
     &-0.90741E-02,-0.29082E-02, 0.80741E-03, 0.27733E-02, 0.23656E-02,
     & 0.98708E-03,-0.46535E-03,-0.44518E-03
     & /
       real p44(0:12)
       data p44/
     & 0.34304E+01,-0.50140E+01, 0.19222E+01,-0.38705E+00, 0.55709E-01,
     &-0.98219E-02,-0.28013E-02, 0.93934E-03, 0.28337E-02, 0.23591E-02,
     & 0.96159E-03,-0.50580E-03,-0.44796E-03
     & /
       real p45(0:12)
       data p45/
     & 0.35790E+01,-0.52504E+01, 0.20380E+01,-0.41907E+00, 0.60253E-01,
     &-0.10596E-01,-0.26846E-02, 0.10697E-02, 0.28906E-02, 0.23505E-02,
     & 0.93612E-03,-0.54591E-03,-0.44981E-03
     & /
       real p46(0:12)
       data p46/
     & 0.37295E+01,-0.54905E+01, 0.21565E+01,-0.45239E+00, 0.65114E-01,
     &-0.11399E-01,-0.25582E-02, 0.11984E-02, 0.29440E-02, 0.23399E-02,
     & 0.91074E-03,-0.58567E-03,-0.45075E-03
     & /
       real p47(0:12)
       data p47/
     & 0.38820E+01,-0.57342E+01, 0.22778E+01,-0.48700E+00, 0.70298E-01,
     &-0.12232E-01,-0.24224E-02, 0.13251E-02, 0.29942E-02, 0.23275E-02,
     & 0.88551E-03,-0.62507E-03,-0.45081E-03
     & /
       real p48(0:12)
       data p48/
     & 0.40364E+01,-0.59814E+01, 0.24017E+01,-0.52289E+00, 0.75811E-01,
     &-0.13098E-01,-0.22774E-02, 0.14498E-02, 0.30410E-02, 0.23134E-02,
     & 0.86049E-03,-0.66410E-03,-0.45001E-03
     & /
       real p49(0:11)
       data p49/
     & 0.41925E+01,-0.62320E+01, 0.25281E+01,-0.56005E+00, 0.81656E-01,
     &-0.13998E-01,-0.21234E-02, 0.15723E-02, 0.30848E-02, 0.22976E-02,
     & 0.83574E-03,-0.70276E-03
     & /
       real p50(0:11)
       data p50/
     & 0.43504E+01,-0.64859E+01, 0.26570E+01,-0.59846E+00, 0.87838E-01,
     &-0.14935E-01,-0.19605E-02, 0.16926E-02, 0.31254E-02, 0.22803E-02,
     & 0.81129E-03,-0.74103E-03
     & /
       real p51(0:11)
       data p51/
     & 0.45099E+01,-0.67430E+01, 0.27884E+01,-0.63812E+00, 0.94360E-01,
     &-0.15910E-01,-0.17889E-02, 0.18104E-02, 0.31631E-02, 0.22615E-02,
     & 0.78720E-03,-0.77893E-03
     & /
       real p52(0:11)
       data p52/
     & 0.46711E+01,-0.70032E+01, 0.29222E+01,-0.67899E+00, 0.10122E+00,
     &-0.16926E-01,-0.16086E-02, 0.19257E-02, 0.31980E-02, 0.22415E-02,
     & 0.76349E-03,-0.81645E-03
     & /
       real p53(0:11)
       data p53/
     & 0.48338E+01,-0.72663E+01, 0.30583E+01,-0.72109E+00, 0.10844E+00,
     &-0.17984E-01,-0.14198E-02, 0.20384E-02, 0.32300E-02, 0.22202E-02,
     & 0.74021E-03,-0.85360E-03
     & /
       real p54(0:11)
       data p54/
     & 0.49980E+01,-0.75324E+01, 0.31967E+01,-0.76437E+00, 0.11599E+00,
     &-0.19085E-01,-0.12226E-02, 0.21485E-02, 0.32594E-02, 0.21977E-02,
     & 0.71737E-03,-0.89036E-03
     & /
       real p55(0:11)
       data p55/
     & 0.51636E+01,-0.78012E+01, 0.33373E+01,-0.80884E+00, 0.12390E+00,
     &-0.20232E-01,-0.10170E-02, 0.22559E-02, 0.32861E-02, 0.21742E-02,
     & 0.69502E-03,-0.92676E-03
     & /
       real p56(0:11)
       data p56/
     & 0.53307E+01,-0.80727E+01, 0.34801E+01,-0.85448E+00, 0.13216E+00,
     &-0.21426E-01,-0.80300E-03, 0.23605E-02, 0.33104E-02, 0.21497E-02,
     & 0.67317E-03,-0.96279E-03
     & /
       real p57(0:11)
       data p57/
     & 0.54991E+01,-0.83469E+01, 0.36250E+01,-0.90127E+00, 0.14077E+00,
     &-0.22669E-01,-0.58071E-03, 0.24622E-02, 0.33322E-02, 0.21243E-02,
     & 0.65183E-03,-0.99845E-03
     & /
       real p58(0:11)
       data p58/
     & 0.56687E+01,-0.86235E+01, 0.37719E+01,-0.94919E+00, 0.14974E+00,
     &-0.23962E-01,-0.35010E-03, 0.25612E-02, 0.33517E-02, 0.20980E-02,
     & 0.63104E-03,-0.10338E-02
     & /
       real p59(0:11)
       data p59/
     & 0.58397E+01,-0.89027E+01, 0.39209E+01,-0.99823E+00, 0.15905E+00,
     &-0.25307E-01,-0.11117E-03, 0.26572E-02, 0.33690E-02, 0.20710E-02,
     & 0.61081E-03,-0.10687E-02
     & /
       real p60(0:11)
       data p60/
     & 0.60118E+01,-0.91841E+01, 0.40718E+01,-0.10484E+01, 0.16872E+00,
     &-0.26705E-01, 0.13610E-03, 0.27503E-02, 0.33841E-02, 0.20432E-02,
     & 0.59114E-03,-0.11033E-02
     & /
       real p61(0:11)
       data p61/
     & 0.61851E+01,-0.94679E+01, 0.42247E+01,-0.10996E+01, 0.17875E+00,
     &-0.28158E-01, 0.39172E-03, 0.28404E-02, 0.33971E-02, 0.20148E-02,
     & 0.57205E-03,-0.11376E-02
     & /
       real p62(0:11)
       data p62/
     & 0.63595E+01,-0.97538E+01, 0.43794E+01,-0.11519E+01, 0.18913E+00,
     &-0.29666E-01, 0.65574E-03, 0.29276E-02, 0.34081E-02, 0.19858E-02,
     & 0.55355E-03,-0.11715E-02
     & /
       real p63(0:11)
       data p63/
     & 0.65349E+01,-0.10042E+02, 0.45359E+01,-0.12052E+01, 0.19986E+00,
     &-0.31231E-01, 0.92819E-03, 0.30118E-02, 0.34172E-02, 0.19562E-02,
     & 0.53564E-03,-0.12052E-02
     & /
       real p64(0:11)
       data p64/
     & 0.67114E+01,-0.10332E+02, 0.46942E+01,-0.12596E+01, 0.21094E+00,
     &-0.32855E-01, 0.12091E-02, 0.30930E-02, 0.34245E-02, 0.19261E-02,
     & 0.51834E-03,-0.12385E-02
     & /
       real p65(0:11)
       data p65/
     & 0.68888E+01,-0.10624E+02, 0.48542E+01,-0.13150E+01, 0.22238E+00,
     &-0.34538E-01, 0.14986E-02, 0.31712E-02, 0.34300E-02, 0.18955E-02,
     & 0.50165E-03,-0.12715E-02
     & /
       real p66(0:11)
       data p66/
     & 0.70672E+01,-0.10918E+02, 0.50158E+01,-0.13714E+01, 0.23416E+00,
     &-0.36281E-01, 0.17968E-02, 0.32464E-02, 0.34338E-02, 0.18645E-02,
     & 0.48557E-03,-0.13042E-02
     & /
       real p67(0:11)
       data p67/
     & 0.72465E+01,-0.11214E+02, 0.51791E+01,-0.14288E+01, 0.24629E+00,
     &-0.38085E-01, 0.21036E-02, 0.33185E-02, 0.34360E-02, 0.18331E-02,
     & 0.47010E-03,-0.13366E-02
     & /
       real p68(0:11)
       data p68/
     & 0.74267E+01,-0.11512E+02, 0.53440E+01,-0.14872E+01, 0.25877E+00,
     &-0.39952E-01, 0.24192E-02, 0.33877E-02, 0.34366E-02, 0.18014E-02,
     & 0.45524E-03,-0.13687E-02
     & /
       real p69(0:11)
       data p69/
     & 0.76077E+01,-0.11811E+02, 0.55104E+01,-0.15465E+01, 0.27160E+00,
     &-0.41882E-01, 0.27436E-02, 0.34538E-02, 0.34358E-02, 0.17694E-02,
     & 0.44100E-03,-0.14005E-02
     & /
       real p70(0:11)
       data p70/
     & 0.77895E+01,-0.12112E+02, 0.56783E+01,-0.16067E+01, 0.28477E+00,
     &-0.43877E-01, 0.30770E-02, 0.35168E-02, 0.34335E-02, 0.17372E-02,
     & 0.42737E-03,-0.14321E-02
     & /
       real p71(0:11)
       data p71/
     & 0.79720E+01,-0.12415E+02, 0.58477E+01,-0.16679E+01, 0.29828E+00,
     &-0.45936E-01, 0.34194E-02, 0.35769E-02, 0.34299E-02, 0.17047E-02,
     & 0.41436E-03,-0.14634E-02
     & /
       real p72(0:11)
       data p72/
     & 0.81553E+01,-0.12719E+02, 0.60185E+01,-0.17300E+01, 0.31214E+00,
     &-0.48060E-01, 0.37709E-02, 0.36339E-02, 0.34250E-02, 0.16720E-02,
     & 0.40195E-03,-0.14945E-02
     & /
       real p73(0:11)
       data p73/
     & 0.83393E+01,-0.13024E+02, 0.61907E+01,-0.17929E+01, 0.32633E+00,
     &-0.50251E-01, 0.41317E-02, 0.36880E-02, 0.34188E-02, 0.16391E-02,
     & 0.39015E-03,-0.15253E-02
     & /
       real p74(0:11)
       data p74/
     & 0.85239E+01,-0.13331E+02, 0.63642E+01,-0.18568E+01, 0.34085E+00,
     &-0.52509E-01, 0.45017E-02, 0.37390E-02, 0.34115E-02, 0.16060E-02,
     & 0.37896E-03,-0.15559E-02
     & /
       real p75(0:11)
       data p75/
     & 0.87092E+01,-0.13639E+02, 0.65390E+01,-0.19214E+01, 0.35571E+00,
     &-0.54834E-01, 0.48812E-02, 0.37870E-02, 0.34030E-02, 0.15729E-02,
     & 0.36836E-03,-0.15862E-02
     & /
       real p76(0:11)
       data p76/
     & 0.88951E+01,-0.13949E+02, 0.67151E+01,-0.19870E+01, 0.37090E+00,
     &-0.57227E-01, 0.52702E-02, 0.38320E-02, 0.33934E-02, 0.15396E-02,
     & 0.35836E-03,-0.16163E-02
     & /
       real p77(0:11)
       data p77/
     & 0.90816E+01,-0.14260E+02, 0.68924E+01,-0.20533E+01, 0.38642E+00,
     &-0.59689E-01, 0.56689E-02, 0.38741E-02, 0.33829E-02, 0.15063E-02,
     & 0.34894E-03,-0.16462E-02
     & /
       real p78(0:11)
       data p78/
     & 0.92686E+01,-0.14572E+02, 0.70709E+01,-0.21205E+01, 0.40227E+00,
     &-0.62220E-01, 0.60772E-02, 0.39131E-02, 0.33714E-02, 0.14729E-02,
     & 0.34012E-03,-0.16759E-02
     & /
       real p79(0:11)
       data p79/
     & 0.94561E+01,-0.14885E+02, 0.72505E+01,-0.21885E+01, 0.41844E+00,
     &-0.64821E-01, 0.64954E-02, 0.39492E-02, 0.33589E-02, 0.14395E-02,
     & 0.33187E-03,-0.17054E-02
     & /
       real p80(0:11)
       data p80/
     & 0.96442E+01,-0.15199E+02, 0.74313E+01,-0.22572E+01, 0.43493E+00,
     &-0.67491E-01, 0.69235E-02, 0.39823E-02, 0.33456E-02, 0.14060E-02,
     & 0.32419E-03,-0.17347E-02
     & /
       real p81(0:11)
       data p81/
     & 0.98327E+01,-0.15515E+02, 0.76132E+01,-0.23267E+01, 0.45173E+00,
     &-0.70232E-01, 0.73616E-02, 0.40125E-02, 0.33314E-02, 0.13726E-02,
     & 0.31708E-03,-0.17638E-02
     & /
       real p82(0:11)
       data p82/
     & 0.10022E+02,-0.15831E+02, 0.77962E+01,-0.23970E+01, 0.46885E+00,
     &-0.73043E-01, 0.78098E-02, 0.40398E-02, 0.33165E-02, 0.13391E-02,
     & 0.31052E-03,-0.17927E-02
     & /
       real p83(0:11)
       data p83/
     & 0.10211E+02,-0.16148E+02, 0.79801E+01,-0.24680E+01, 0.48629E+00,
     &-0.75925E-01, 0.82682E-02, 0.40641E-02, 0.33008E-02, 0.13057E-02,
     & 0.30452E-03,-0.18214E-02
     & /
       real p84(0:11)
       data p84/
     & 0.10401E+02,-0.16467E+02, 0.81651E+01,-0.25397E+01, 0.50403E+00,
     &-0.78878E-01, 0.87370E-02, 0.40855E-02, 0.32845E-02, 0.12724E-02,
     & 0.29907E-03,-0.18500E-02
     & /
       real p85(0:11)
       data p85/
     & 0.10591E+02,-0.16786E+02, 0.83510E+01,-0.26121E+01, 0.52208E+00,
     &-0.81902E-01, 0.92162E-02, 0.41039E-02, 0.32675E-02, 0.12391E-02,
     & 0.29416E-03,-0.18784E-02
     & /
       real p86(0:11)
       data p86/
     & 0.10781E+02,-0.17106E+02, 0.85379E+01,-0.26852E+01, 0.54043E+00,
     &-0.84997E-01, 0.97059E-02, 0.41195E-02, 0.32498E-02, 0.12058E-02,
     & 0.28977E-03,-0.19066E-02
     & /
       real p87(0:11)
       data p87/
     & 0.10972E+02,-0.17426E+02, 0.87257E+01,-0.27590E+01, 0.55908E+00,
     &-0.88165E-01, 0.10206E-01, 0.41322E-02, 0.32316E-02, 0.11727E-02,
     & 0.28591E-03,-0.19347E-02
     & /
       real p88(0:11)
       data p88/
     & 0.11163E+02,-0.17748E+02, 0.89144E+01,-0.28335E+01, 0.57803E+00,
     &-0.91404E-01, 0.10717E-01, 0.41420E-02, 0.32128E-02, 0.11396E-02,
     & 0.28257E-03,-0.19626E-02
     & /
       real p89(0:11)
       data p89/
     & 0.11355E+02,-0.18070E+02, 0.91039E+01,-0.29086E+01, 0.59727E+00,
     &-0.94714E-01, 0.11239E-01, 0.41490E-02, 0.31935E-02, 0.11066E-02,
     & 0.27973E-03,-0.19904E-02
     & /
       real p90(0:11)
       data p90/
     & 0.11546E+02,-0.18393E+02, 0.92942E+01,-0.29844E+01, 0.61680E+00,
     &-0.98097E-01, 0.11772E-01, 0.41530E-02, 0.31738E-02, 0.10738E-02,
     & 0.27740E-03,-0.20181E-02
     & /
       real p91(0:11)
       data p91/
     & 0.11738E+02,-0.18717E+02, 0.94854E+01,-0.30608E+01, 0.63663E+00,
     &-0.10155E+00, 0.12315E-01, 0.41543E-02, 0.31535E-02, 0.10410E-02,
     & 0.27556E-03,-0.20456E-02
     & /
       real p92(0:11)
       data p92/
     & 0.11931E+02,-0.19041E+02, 0.96773E+01,-0.31378E+01, 0.65673E+00,
     &-0.10508E+00, 0.12870E-01, 0.41527E-02, 0.31329E-02, 0.10084E-02,
     & 0.27420E-03,-0.20730E-02
     & /
       real p93(0:11)
       data p93/
     & 0.12131E+02,-0.19378E+02, 0.98765E+01,-0.32175E+01, 0.67757E+00,
     &-0.10875E+00, 0.13444E-01, 0.41510E-02, 0.31139E-02, 0.97655E-03,
     & 0.27351E-03,-0.21016E-02
     & /
       real p94(0:11)
       data p94/
     & 0.12333E+02,-0.19719E+02, 0.10078E+02,-0.32984E+01, 0.69880E+00,
     &-0.11251E+00, 0.14033E-01, 0.41469E-02, 0.30949E-02, 0.94487E-03,
     & 0.27331E-03,-0.21304E-02
     & /
       real p95(0:11)
       data p95/
     & 0.12536E+02,-0.20061E+02, 0.10280E+02,-0.33799E+01, 0.72035E+00,
     &-0.11635E+00, 0.14634E-01, 0.41398E-02, 0.30754E-02, 0.91325E-03,
     & 0.27357E-03,-0.21591E-02
     & /
       real p96(0:11)
       data p96/
     & 0.12739E+02,-0.20404E+02, 0.10484E+02,-0.34622E+01, 0.74221E+00,
     &-0.12027E+00, 0.15248E-01, 0.41299E-02, 0.30556E-02, 0.88170E-03,
     & 0.27429E-03,-0.21878E-02
     & /
       real p97(0:11)
       data p97/
     & 0.12943E+02,-0.20748E+02, 0.10688E+02,-0.35451E+01, 0.76437E+00,
     &-0.12427E+00, 0.15874E-01, 0.41171E-02, 0.30353E-02, 0.85022E-03,
     & 0.27545E-03,-0.22163E-02
     & /
       real p98(0:11)
       data p98/
     & 0.13147E+02,-0.21092E+02, 0.10893E+02,-0.36287E+01, 0.78684E+00,
     &-0.12835E+00, 0.16513E-01, 0.41014E-02, 0.30148E-02, 0.81882E-03,
     & 0.27707E-03,-0.22448E-02
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  16,  16,  16,  16,  17,  18,  17
     &,  17,  17,  17,  17,  17,  15,  15,  15,  15,  15
     &,  15,  15,  12,  12,  12,  12,  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
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.16) param(i,15) = p15(i)
             if (i.le.16) param(i,16) = p16(i)
             if (i.le.16) param(i,17) = p17(i)
             if (i.le.16) param(i,18) = p18(i)
             if (i.le.17) param(i,19) = p19(i)
             if (i.le.18) param(i,20) = p20(i)
             if (i.le.17) param(i,21) = p21(i)
             if (i.le.17) 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.17) param(i,26) = p26(i)
             if (i.le.15) param(i,27) = p27(i)
             if (i.le.15) param(i,28) = p28(i)
             if (i.le.15) param(i,29) = p29(i)
             if (i.le.15) param(i,30) = p30(i)
             if (i.le.15) param(i,31) = p31(i)
             if (i.le.15) param(i,32) = p32(i)
             if (i.le.15) 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.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.11) param(i,97) = p97(i)
             if (i.le.11) param(i,98) = p98(i)
          enddo
       endif
            
       wlcehiq200=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
       wlcehiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) wlcehiq200=0.0
       if (q2.lt.q2min) wlcehiq200=0.0
       if ( x.gt. xmax) wlcehiq200=0.0
       if ( x.lt. xmin) wlcehiq200=0.0
       return
       end
       real function  w2cphiq200(xin,q2in)
***********************************************************
c  parametrization of w2cphiq200 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:17)
       data p15/
     & 0.15827E+01,-0.16099E+01, 0.27872E+00,-0.15050E+00,-0.74305E-01,
     &-0.57959E-01,-0.22891E-01, 0.26686E-02, 0.14059E-01, 0.15036E-01,
     & 0.11233E-01, 0.67697E-02, 0.35063E-02, 0.15234E-02, 0.60125E-03,
     & 0.17340E-03, 0.14282E-04,-0.32121E-04
     & /
       real p16(0:17)
       data p16/
     & 0.18009E+01,-0.18687E+01, 0.33469E+00,-0.16418E+00,-0.78891E-01,
     &-0.60200E-01,-0.22426E-01, 0.42023E-02, 0.15577E-01, 0.16100E-01,
     & 0.11800E-01, 0.69858E-02, 0.35469E-02, 0.14849E-02, 0.55012E-03,
     & 0.12301E-03,-0.26223E-04,-0.60428E-04
     & /
       real p17(0:14)
       data p17/
     & 0.20463E+01,-0.21652E+01, 0.40218E+00,-0.17965E+00,-0.83372E-01,
     &-0.62230E-01,-0.21780E-01, 0.58437E-02, 0.17133E-01, 0.17112E-01,
     & 0.12341E-01, 0.70735E-02, 0.34928E-02, 0.13670E-02, 0.35422E-03
     & /
       real p18(0:15)
       data p18/
     & 0.23104E+01,-0.24895E+01, 0.47963E+00,-0.19651E+00,-0.87433E-01,
     &-0.63998E-01,-0.20945E-01, 0.75515E-02, 0.18680E-01, 0.18128E-01,
     & 0.12846E-01, 0.72179E-02, 0.34837E-02, 0.12909E-02, 0.26083E-03,
     &-0.11450E-03
     & /
       real p19(0:15)
       data p19/
     & 0.25937E+01,-0.28426E+01, 0.56773E+00,-0.21501E+00,-0.91088E-01,
     &-0.65516E-01,-0.19969E-01, 0.92941E-02, 0.20203E-01, 0.19101E-01,
     & 0.13311E-01, 0.73311E-02, 0.34567E-02, 0.12046E-02, 0.16201E-03,
     &-0.20734E-03
     & /
       real p20(0:15)
       data p20/
     & 0.28968E+01,-0.32257E+01, 0.66714E+00,-0.23536E+00,-0.94308E-01,
     &-0.66808E-01,-0.18870E-01, 0.11061E-01, 0.21698E-01, 0.20032E-01,
     & 0.13739E-01, 0.74155E-02, 0.34137E-02, 0.11094E-02, 0.58749E-04,
     &-0.30185E-03
     & /
       real p21(0:15)
       data p21/
     & 0.32201E+01,-0.36395E+01, 0.77852E+00,-0.25780E+00,-0.97067E-01,
     &-0.67899E-01,-0.17667E-01, 0.12844E-01, 0.23165E-01, 0.20923E-01,
     & 0.14132E-01, 0.74733E-02, 0.33564E-02, 0.10066E-02,-0.48064E-04,
     &-0.39727E-03
     & /
       real p22(0:15)
       data p22/
     & 0.35642E+01,-0.40850E+01, 0.90248E+00,-0.28255E+00,-0.99335E-01,
     &-0.68809E-01,-0.16374E-01, 0.14635E-01, 0.24601E-01, 0.21775E-01,
     & 0.14492E-01, 0.75063E-02, 0.32864E-02, 0.89702E-03,-0.15768E-03,
     &-0.49298E-03
     & /
       real p23(0:14)
       data p23/
     & 0.39296E+01,-0.45630E+01, 0.10396E+01,-0.30982E+00,-0.10108E+00,
     &-0.69560E-01,-0.15004E-01, 0.16430E-01, 0.26005E-01, 0.22589E-01,
     & 0.14821E-01, 0.75164E-02, 0.32050E-02, 0.78173E-03,-0.26943E-03
     & /
       real p24(0:14)
       data p24/
     & 0.43166E+01,-0.50744E+01, 0.11905E+01,-0.33984E+00,-0.10228E+00,
     &-0.70171E-01,-0.13568E-01, 0.18222E-01, 0.27378E-01, 0.23367E-01,
     & 0.15123E-01, 0.75051E-02, 0.31134E-02, 0.66151E-03,-0.38276E-03
     & /
       real p25(0:14)
       data p25/
     & 0.47258E+01,-0.56199E+01, 0.13558E+01,-0.37283E+00,-0.10289E+00,
     &-0.70662E-01,-0.12077E-01, 0.20009E-01, 0.28720E-01, 0.24110E-01,
     & 0.15397E-01, 0.74738E-02, 0.30128E-02, 0.53704E-03,-0.49717E-03
     & /
       real p26(0:14)
       data p26/
     & 0.51575E+01,-0.62002E+01, 0.15359E+01,-0.40900E+00,-0.10288E+00,
     &-0.71050E-01,-0.10539E-01, 0.21787E-01, 0.30029E-01, 0.24820E-01,
     & 0.15646E-01, 0.74237E-02, 0.29042E-02, 0.40898E-03,-0.61224E-03
     & /
       real p27(0:14)
       data p27/
     & 0.56121E+01,-0.68161E+01, 0.17315E+01,-0.44856E+00,-0.10222E+00,
     &-0.71354E-01,-0.89617E-02, 0.23553E-01, 0.31308E-01, 0.25499E-01,
     & 0.15872E-01, 0.73562E-02, 0.27884E-02, 0.27787E-03,-0.72759E-03
     & /
       real p28(0:14)
       data p28/
     & 0.60899E+01,-0.74683E+01, 0.19430E+01,-0.49174E+00,-0.10088E+00,
     &-0.71590E-01,-0.73509E-02, 0.25306E-01, 0.32555E-01, 0.26147E-01,
     & 0.16075E-01, 0.72721E-02, 0.26664E-02, 0.14421E-03,-0.84290E-03
     & /
       real p29(0:14)
       data p29/
     & 0.65914E+01,-0.81574E+01, 0.21709E+01,-0.53873E+00,-0.98812E-01,
     &-0.71774E-01,-0.57123E-02, 0.27044E-01, 0.33772E-01, 0.26766E-01,
     & 0.16258E-01, 0.71726E-02, 0.25388E-02, 0.84524E-05,-0.95790E-03
     & /
       real p30(0:14)
       data p30/
     & 0.71169E+01,-0.88840E+01, 0.24157E+01,-0.58975E+00,-0.95985E-01,
     &-0.71921E-01,-0.40506E-02, 0.28765E-01, 0.34960E-01, 0.27358E-01,
     & 0.16421E-01, 0.70584E-02, 0.24063E-02,-0.12902E-03,-0.10723E-02
     & /
       real p31(0:14)
       data p31/
     & 0.73449E+01,-0.92019E+01, 0.25249E+01,-0.61239E+00,-0.94430E-01,
     &-0.71999E-01,-0.34175E-02, 0.29418E-01, 0.35412E-01, 0.27584E-01,
     & 0.16484E-01, 0.70114E-02, 0.23551E-02,-0.18275E-03,-0.11171E-02
     & /
       real p32(0:14)
       data p32/
     & 0.76820E+01,-0.96712E+01, 0.26862E+01,-0.64636E+00,-0.92155E-01,
     &-0.72119E-01,-0.24370E-02, 0.30427E-01, 0.36105E-01, 0.27928E-01,
     & 0.16578E-01, 0.69392E-02, 0.22768E-02,-0.26397E-03,-0.11843E-02
     & /
       real p33(0:14)
       data p33/
     & 0.82569E+01,-0.10475E+02, 0.29662E+01,-0.70587E+00,-0.87736E-01,
     &-0.72306E-01,-0.80503E-03, 0.32077E-01, 0.37226E-01, 0.28473E-01,
     & 0.16717E-01, 0.68093E-02, 0.21445E-02,-0.39894E-03,-0.12944E-02
     & /
       real p34(0:14)
       data p34/
     & 0.88567E+01,-0.11319E+02, 0.32645E+01,-0.77000E+00,-0.82449E-01,
     &-0.72493E-01, 0.84517E-03, 0.33711E-01, 0.38320E-01, 0.28994E-01,
     & 0.16840E-01, 0.66663E-02, 0.20085E-02,-0.53511E-03,-0.14038E-02
     & /
       real p35(0:13)
       data p35/
     & 0.94816E+01,-0.12202E+02, 0.35814E+01,-0.83894E+00,-0.76252E-01,
     &-0.72693E-01, 0.25110E-02, 0.35329E-01, 0.39388E-01, 0.29491E-01,
     & 0.16947E-01, 0.65110E-02, 0.18692E-02,-0.67220E-03
     & /
       real p36(0:13)
       data p36/
     & 0.10132E+02,-0.13125E+02, 0.39174E+01,-0.91290E+00,-0.69102E-01,
     &-0.72919E-01, 0.41902E-02, 0.36929E-01, 0.40430E-01, 0.29965E-01,
     & 0.17039E-01, 0.63438E-02, 0.17272E-02,-0.80998E-03
     & /
       real p37(0:13)
       data p37/
     & 0.10808E+02,-0.14090E+02, 0.42729E+01,-0.99209E+00,-0.60958E-01,
     &-0.73184E-01, 0.58811E-02, 0.38512E-01, 0.41446E-01, 0.30417E-01,
     & 0.17116E-01, 0.61653E-02, 0.15829E-02,-0.94822E-03
     & /
       real p38(0:13)
       data p38/
     & 0.11510E+02,-0.15096E+02, 0.46483E+01,-0.10767E+01,-0.51775E-01,
     &-0.73502E-01, 0.75823E-02, 0.40078E-01, 0.42439E-01, 0.30848E-01,
     & 0.17180E-01, 0.59760E-02, 0.14367E-02,-0.10867E-02
     & /
       real p39(0:13)
       data p39/
     & 0.12238E+02,-0.16143E+02, 0.50441E+01,-0.11669E+01,-0.41510E-01,
     &-0.73883E-01, 0.92925E-02, 0.41626E-01, 0.43407E-01, 0.31258E-01,
     & 0.17231E-01, 0.57764E-02, 0.12889E-02,-0.12253E-02
     & /
       real p40(0:13)
       data p40/
     & 0.12992E+02,-0.17233E+02, 0.54606E+01,-0.12629E+01,-0.30118E-01,
     &-0.74342E-01, 0.11011E-01, 0.43157E-01, 0.44353E-01, 0.31648E-01,
     & 0.17271E-01, 0.55669E-02, 0.11400E-02,-0.13639E-02
     & /
       real p41(0:13)
       data p41/
     & 0.13774E+02,-0.18366E+02, 0.58982E+01,-0.13649E+01,-0.17555E-01,
     &-0.74888E-01, 0.12737E-01, 0.44669E-01, 0.45275E-01, 0.32020E-01,
     & 0.17298E-01, 0.53480E-02, 0.99020E-03,-0.15022E-02
     & /
       real p42(0:13)
       data p42/
     & 0.14582E+02,-0.19541E+02, 0.63572E+01,-0.14731E+01,-0.37750E-02,
     &-0.75536E-01, 0.14471E-01, 0.46164E-01, 0.46176E-01, 0.32373E-01,
     & 0.17315E-01, 0.51200E-02, 0.83986E-03,-0.16402E-02
     & /
       real p43(0:13)
       data p43/
     & 0.15417E+02,-0.20761E+02, 0.68380E+01,-0.15877E+01, 0.11268E-01,
     &-0.76295E-01, 0.16211E-01, 0.47642E-01, 0.47055E-01, 0.32708E-01,
     & 0.17322E-01, 0.48832E-02, 0.68926E-03,-0.17777E-02
     & /
       real p44(0:13)
       data p44/
     & 0.16279E+02,-0.22024E+02, 0.73410E+01,-0.17088E+01, 0.27620E-01,
     &-0.77179E-01, 0.17959E-01, 0.49102E-01, 0.47913E-01, 0.33025E-01,
     & 0.17319E-01, 0.46381E-02, 0.53866E-03,-0.19146E-02
     & /
       real p45(0:13)
       data p45/
     & 0.17169E+02,-0.23332E+02, 0.78666E+01,-0.18367E+01, 0.45326E-01,
     &-0.78198E-01, 0.19714E-01, 0.50544E-01, 0.48750E-01, 0.33327E-01,
     & 0.17307E-01, 0.43848E-02, 0.38831E-03,-0.20509E-02
     & /
       real p46(0:13)
       data p46/
     & 0.18087E+02,-0.24685E+02, 0.84149E+01,-0.19714E+01, 0.64435E-01,
     &-0.79363E-01, 0.21477E-01, 0.51970E-01, 0.49567E-01, 0.33612E-01,
     & 0.17286E-01, 0.41238E-02, 0.23845E-03,-0.21865E-02
     & /
       real p47(0:13)
       data p47/
     & 0.19032E+02,-0.26083E+02, 0.89864E+01,-0.21133E+01, 0.84992E-01,
     &-0.80687E-01, 0.23248E-01, 0.53379E-01, 0.50365E-01, 0.33881E-01,
     & 0.17257E-01, 0.38553E-02, 0.89302E-04,-0.23213E-02
     & /
       real p48(0:12)
       data p48/
     & 0.20006E+02,-0.27526E+02, 0.95813E+01,-0.22624E+01, 0.10704E+00,
     &-0.82181E-01, 0.25027E-01, 0.54771E-01, 0.51144E-01, 0.34136E-01,
     & 0.17220E-01, 0.35795E-02,-0.58924E-04
     & /
       real p49(0:12)
       data p49/
     & 0.21007E+02,-0.29015E+02, 0.10200E+02,-0.24189E+01, 0.13064E+00,
     &-0.83855E-01, 0.26817E-01, 0.56146E-01, 0.51905E-01, 0.34375E-01,
     & 0.17176E-01, 0.32967E-02,-0.20604E-03
     & /
       real p50(0:12)
       data p50/
     & 0.22037E+02,-0.30551E+02, 0.10843E+02,-0.25830E+01, 0.15582E+00,
     &-0.85722E-01, 0.28616E-01, 0.57505E-01, 0.52647E-01, 0.34601E-01,
     & 0.17124E-01, 0.30071E-02,-0.35185E-03
     & /
       real p51(0:12)
       data p51/
     & 0.23096E+02,-0.32133E+02, 0.11510E+02,-0.27548E+01, 0.18265E+00,
     &-0.87791E-01, 0.30427E-01, 0.58848E-01, 0.53372E-01, 0.34813E-01,
     & 0.17067E-01, 0.27110E-02,-0.49618E-03
     & /
       real p52(0:12)
       data p52/
     & 0.24183E+02,-0.33761E+02, 0.12202E+02,-0.29346E+01, 0.21115E+00,
     &-0.90074E-01, 0.32250E-01, 0.60175E-01, 0.54079E-01, 0.35011E-01,
     & 0.17003E-01, 0.24084E-02,-0.63888E-03
     & /
       real p53(0:12)
       data p53/
     & 0.25299E+02,-0.35437E+02, 0.12918E+02,-0.31225E+01, 0.24139E+00,
     &-0.92582E-01, 0.34086E-01, 0.61487E-01, 0.54770E-01, 0.35197E-01,
     & 0.16934E-01, 0.20997E-02,-0.77979E-03
     & /
       real p54(0:12)
       data p54/
     & 0.26444E+02,-0.37160E+02, 0.13660E+02,-0.33186E+01, 0.27341E+00,
     &-0.95326E-01, 0.35937E-01, 0.62783E-01, 0.55444E-01, 0.35369E-01,
     & 0.16858E-01, 0.17850E-02,-0.91876E-03
     & /
       real p55(0:12)
       data p55/
     & 0.27618E+02,-0.38931E+02, 0.14427E+02,-0.35230E+01, 0.30725E+00,
     &-0.98317E-01, 0.37804E-01, 0.64063E-01, 0.56103E-01, 0.35530E-01,
     & 0.16778E-01, 0.14645E-02,-0.10556E-02
     & /
       real p56(0:12)
       data p56/
     & 0.28821E+02,-0.40749E+02, 0.15220E+02,-0.37360E+01, 0.34296E+00,
     &-0.10157E+00, 0.39687E-01, 0.65329E-01, 0.56745E-01, 0.35679E-01,
     & 0.16693E-01, 0.11383E-02,-0.11903E-02
     & /
       real p57(0:12)
       data p57/
     & 0.30053E+02,-0.42616E+02, 0.16039E+02,-0.39577E+01, 0.38060E+00,
     &-0.10508E+00, 0.41589E-01, 0.66580E-01, 0.57373E-01, 0.35816E-01,
     & 0.16604E-01, 0.80654E-03,-0.13227E-02
     & /
       real p58(0:12)
       data p58/
     & 0.31315E+02,-0.44531E+02, 0.16883E+02,-0.41882E+01, 0.42020E+00,
     &-0.10888E+00, 0.43510E-01, 0.67816E-01, 0.57985E-01, 0.35942E-01,
     & 0.16510E-01, 0.46944E-03,-0.14526E-02
     & /
       real p59(0:12)
       data p59/
     & 0.32606E+02,-0.46494E+02, 0.17755E+02,-0.44277E+01, 0.46182E+00,
     &-0.11297E+00, 0.45453E-01, 0.69037E-01, 0.58583E-01, 0.36057E-01,
     & 0.16412E-01, 0.12709E-03,-0.15800E-02
     & /
       real p60(0:12)
       data p60/
     & 0.33927E+02,-0.48507E+02, 0.18652E+02,-0.46763E+01, 0.50549E+00,
     &-0.11736E+00, 0.47418E-01, 0.70244E-01, 0.59166E-01, 0.36162E-01,
     & 0.16310E-01,-0.22038E-03,-0.17047E-02
     & /
       real p61(0:12)
       data p61/
     & 0.35277E+02,-0.50568E+02, 0.19577E+02,-0.49341E+01, 0.55128E+00,
     &-0.12206E+00, 0.49407E-01, 0.71437E-01, 0.59736E-01, 0.36256E-01,
     & 0.16205E-01,-0.57284E-03,-0.18266E-02
     & /
       real p62(0:12)
       data p62/
     & 0.36658E+02,-0.52678E+02, 0.20528E+02,-0.52013E+01, 0.59921E+00,
     &-0.12709E+00, 0.51422E-01, 0.72615E-01, 0.60291E-01, 0.36339E-01,
     & 0.16097E-01,-0.93019E-03,-0.19457E-02
     & /
       real p63(0:12)
       data p63/
     & 0.38068E+02,-0.54838E+02, 0.21507E+02,-0.54781E+01, 0.64934E+00,
     &-0.13244E+00, 0.53464E-01, 0.73779E-01, 0.60834E-01, 0.36413E-01,
     & 0.15986E-01,-0.12923E-02,-0.20619E-02
     & /
       real p64(0:12)
       data p64/
     & 0.39508E+02,-0.57048E+02, 0.22513E+02,-0.57645E+01, 0.70172E+00,
     &-0.13815E+00, 0.55535E-01, 0.74930E-01, 0.61363E-01, 0.36478E-01,
     & 0.15872E-01,-0.16591E-02,-0.21750E-02
     & /
       real p65(0:12)
       data p65/
     & 0.40978E+02,-0.59307E+02, 0.23547E+02,-0.60606E+01, 0.75638E+00,
     &-0.14420E+00, 0.57636E-01, 0.76066E-01, 0.61879E-01, 0.36533E-01,
     & 0.15755E-01,-0.20305E-02,-0.22851E-02
     & /
       real p66(0:12)
       data p66/
     & 0.42478E+02,-0.61616E+02, 0.24608E+02,-0.63667E+01, 0.81338E+00,
     &-0.15063E+00, 0.59770E-01, 0.77189E-01, 0.62383E-01, 0.36579E-01,
     & 0.15636E-01,-0.24063E-02,-0.23919E-02
     & /
       real p67(0:12)
       data p67/
     & 0.44008E+02,-0.63975E+02, 0.25698E+02,-0.66828E+01, 0.87276E+00,
     &-0.15743E+00, 0.61937E-01, 0.78298E-01, 0.62875E-01, 0.36615E-01,
     & 0.15515E-01,-0.27866E-02,-0.24956E-02
     & /
       real p68(0:12)
       data p68/
     & 0.45568E+02,-0.66384E+02, 0.26815E+02,-0.70090E+01, 0.93456E+00,
     &-0.16462E+00, 0.64140E-01, 0.79394E-01, 0.63354E-01, 0.36644E-01,
     & 0.15392E-01,-0.31712E-02,-0.25959E-02
     & /
       real p69(0:12)
       data p69/
     & 0.47159E+02,-0.68844E+02, 0.27961E+02,-0.73455E+01, 0.99883E+00,
     &-0.17220E+00, 0.66380E-01, 0.80476E-01, 0.63821E-01, 0.36663E-01,
     & 0.15267E-01,-0.35600E-02,-0.26928E-02
     & /
       real p70(0:12)
       data p70/
     & 0.48780E+02,-0.71354E+02, 0.29135E+02,-0.76923E+01, 0.10656E+01,
     &-0.18020E+00, 0.68658E-01, 0.81544E-01, 0.64277E-01, 0.36674E-01,
     & 0.15140E-01,-0.39530E-02,-0.27863E-02
     & /
       real p71(0:12)
       data p71/
     & 0.50431E+02,-0.73914E+02, 0.30338E+02,-0.80497E+01, 0.11349E+01,
     &-0.18861E+00, 0.70978E-01, 0.82599E-01, 0.64721E-01, 0.36678E-01,
     & 0.15012E-01,-0.43501E-02,-0.28763E-02
     & /
       real p72(0:12)
       data p72/
     & 0.52113E+02,-0.76525E+02, 0.31569E+02,-0.84176E+01, 0.12069E+01,
     &-0.19746E+00, 0.73340E-01, 0.83641E-01, 0.65155E-01, 0.36673E-01,
     & 0.14883E-01,-0.47512E-02,-0.29628E-02
     & /
       real p73(0:12)
       data p73/
     & 0.53825E+02,-0.79188E+02, 0.32829E+02,-0.87963E+01, 0.12814E+01,
     &-0.20674E+00, 0.75747E-01, 0.84669E-01, 0.65577E-01, 0.36660E-01,
     & 0.14753E-01,-0.51563E-02,-0.30457E-02
     & /
       real p74(0:12)
       data p74/
     & 0.55568E+02,-0.81901E+02, 0.34119E+02,-0.91858E+01, 0.13587E+01,
     &-0.21648E+00, 0.78199E-01, 0.85683E-01, 0.65988E-01, 0.36640E-01,
     & 0.14621E-01,-0.55653E-02,-0.31249E-02
     & /
       real p75(0:12)
       data p75/
     & 0.57341E+02,-0.84665E+02, 0.35437E+02,-0.95862E+01, 0.14387E+01,
     &-0.22668E+00, 0.80700E-01, 0.86684E-01, 0.66389E-01, 0.36612E-01,
     & 0.14489E-01,-0.59781E-02,-0.32004E-02
     & /
       real p76(0:12)
       data p76/
     & 0.59144E+02,-0.87480E+02, 0.36785E+02,-0.99977E+01, 0.15214E+01,
     &-0.23735E+00, 0.83250E-01, 0.87672E-01, 0.66780E-01, 0.36577E-01,
     & 0.14356E-01,-0.63948E-02,-0.32722E-02
     & /
       real p77(0:12)
       data p77/
     & 0.60979E+02,-0.90347E+02, 0.38162E+02,-0.10420E+02, 0.16070E+01,
     &-0.24850E+00, 0.85852E-01, 0.88646E-01, 0.67160E-01, 0.36535E-01,
     & 0.14223E-01,-0.68152E-02,-0.33403E-02
     & /
       real p78(0:12)
       data p78/
     & 0.62844E+02,-0.93265E+02, 0.39569E+02,-0.10854E+02, 0.16954E+01,
     &-0.26015E+00, 0.88508E-01, 0.89607E-01, 0.67530E-01, 0.36486E-01,
     & 0.14089E-01,-0.72393E-02,-0.34045E-02
     & /
       real p79(0:12)
       data p79/
     & 0.64739E+02,-0.96234E+02, 0.41006E+02,-0.11299E+02, 0.17867E+01,
     &-0.27230E+00, 0.91219E-01, 0.90553E-01, 0.67891E-01, 0.36430E-01,
     & 0.13955E-01,-0.76670E-02,-0.34649E-02
     & /
       real p80(0:12)
       data p80/
     & 0.66665E+02,-0.99255E+02, 0.42472E+02,-0.11756E+02, 0.18809E+01,
     &-0.28496E+00, 0.93987E-01, 0.91487E-01, 0.68241E-01, 0.36367E-01,
     & 0.13820E-01,-0.80984E-02,-0.35213E-02
     & /
       real p81(0:11)
       data p81/
     & 0.68622E+02,-0.10233E+03, 0.43968E+02,-0.12224E+02, 0.19781E+01,
     &-0.29815E+00, 0.96814E-01, 0.92406E-01, 0.68583E-01, 0.36298E-01,
     & 0.13686E-01,-0.85334E-02
     & /
       real p82(0:11)
       data p82/
     & 0.70610E+02,-0.10545E+03, 0.45494E+02,-0.12704E+02, 0.20783E+01,
     &-0.31188E+00, 0.99702E-01, 0.93312E-01, 0.68914E-01, 0.36222E-01,
     & 0.13552E-01,-0.89719E-02
     & /
       real p83(0:11)
       data p83/
     & 0.72628E+02,-0.10863E+03, 0.47050E+02,-0.13195E+02, 0.21816E+01,
     &-0.32615E+00, 0.10265E+00, 0.94204E-01, 0.69237E-01, 0.36140E-01,
     & 0.13418E-01,-0.94138E-02
     & /
       real p84(0:11)
       data p84/
     & 0.74677E+02,-0.11185E+03, 0.48637E+02,-0.13698E+02, 0.22879E+01,
     &-0.34097E+00, 0.10567E+00, 0.95083E-01, 0.69551E-01, 0.36052E-01,
     & 0.13284E-01,-0.98593E-02
     & /
       real p85(0:11)
       data p85/
     & 0.76757E+02,-0.11513E+03, 0.50254E+02,-0.14213E+02, 0.23974E+01,
     &-0.35636E+00, 0.10875E+00, 0.95947E-01, 0.69856E-01, 0.35957E-01,
     & 0.13151E-01,-0.10308E-01
     & /
       real p86(0:11)
       data p86/
     & 0.78868E+02,-0.11846E+03, 0.51901E+02,-0.14740E+02, 0.25100E+01,
     &-0.37233E+00, 0.11190E+00, 0.96797E-01, 0.70152E-01, 0.35857E-01,
     & 0.13018E-01,-0.10760E-01
     & /
       real p87(0:11)
       data p87/
     & 0.81009E+02,-0.12185E+03, 0.53579E+02,-0.15279E+02, 0.26258E+01,
     &-0.38889E+00, 0.11512E+00, 0.97633E-01, 0.70440E-01, 0.35751E-01,
     & 0.12886E-01,-0.11216E-01
     & /
       real p88(0:11)
       data p88/
     & 0.83181E+02,-0.12528E+03, 0.55287E+02,-0.15830E+02, 0.27449E+01,
     &-0.40604E+00, 0.11842E+00, 0.98454E-01, 0.70719E-01, 0.35639E-01,
     & 0.12755E-01,-0.11675E-01
     & /
       real p89(0:11)
       data p89/
     & 0.85384E+02,-0.12877E+03, 0.57026E+02,-0.16394E+02, 0.28672E+01,
     &-0.42379E+00, 0.12179E+00, 0.99261E-01, 0.70990E-01, 0.35521E-01,
     & 0.12624E-01,-0.12137E-01
     & /
       real p90(0:11)
       data p90/
     & 0.87618E+02,-0.13231E+03, 0.58796E+02,-0.16969E+02, 0.29928E+01,
     &-0.44217E+00, 0.12523E+00, 0.10005E+00, 0.71253E-01, 0.35398E-01,
     & 0.12495E-01,-0.12603E-01
     & /
       real p91(0:11)
       data p91/
     & 0.89882E+02,-0.13590E+03, 0.60596E+02,-0.17557E+02, 0.31218E+01,
     &-0.46117E+00, 0.12876E+00, 0.10083E+00, 0.71508E-01, 0.35270E-01,
     & 0.12366E-01,-0.13072E-01
     & /
       real p92(0:11)
       data p92/
     & 0.92178E+02,-0.13954E+03, 0.62428E+02,-0.18158E+02, 0.32542E+01,
     &-0.48081E+00, 0.13236E+00, 0.10160E+00, 0.71755E-01, 0.35136E-01,
     & 0.12238E-01,-0.13544E-01
     & /
       real p93(0:11)
       data p93/
     & 0.94503E+02,-0.14323E+03, 0.64290E+02,-0.18771E+02, 0.33900E+01,
     &-0.50112E+00, 0.13604E+00, 0.10234E+00, 0.71995E-01, 0.35000E-01,
     & 0.12115E-01,-0.14017E-01
     & /
       real p94(0:11)
       data p94/
     & 0.96859E+02,-0.14698E+03, 0.66184E+02,-0.19397E+02, 0.35294E+01,
     &-0.52210E+00, 0.13980E+00, 0.10307E+00, 0.72228E-01, 0.34858E-01,
     & 0.11993E-01,-0.14493E-01
     & /
       real p95(0:11)
       data p95/
     & 0.99248E+02,-0.15078E+03, 0.68111E+02,-0.20036E+02, 0.36724E+01,
     &-0.54378E+00, 0.14366E+00, 0.10378E+00, 0.72452E-01, 0.34711E-01,
     & 0.11872E-01,-0.14973E-01
     & /
       real p96(0:11)
       data p96/
     & 0.10167E+03,-0.15464E+03, 0.70069E+02,-0.20688E+02, 0.38190E+01,
     &-0.56614E+00, 0.14760E+00, 0.10448E+00, 0.72669E-01, 0.34559E-01,
     & 0.11753E-01,-0.15456E-01
     & /
       real p97(0:11)
       data p97/
     & 0.10412E+03,-0.15855E+03, 0.72061E+02,-0.21353E+02, 0.39693E+01,
     &-0.58921E+00, 0.15164E+00, 0.10516E+00, 0.72878E-01, 0.34402E-01,
     & 0.11635E-01,-0.15942E-01
     & /
       real p98(0:11)
       data p98/
     & 0.10661E+03,-0.16251E+03, 0.74084E+02,-0.22032E+02, 0.41232E+01,
     &-0.61300E+00, 0.15577E+00, 0.10583E+00, 0.73080E-01, 0.34239E-01,
     & 0.11518E-01,-0.16432E-01
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  17,  17,  14,  15,  15,  15,  15
     &,  15,  14,  14,  14,  14,  14,  14,  14,  14,  14
     &,  14,  14,  14,  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,  11
     &,  11,  11,  11,  11,  11,  11,  11,  11,  11,  11
     &,  11,  11,  11,  11,  11,  11,  11
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.17) param(i,15) = p15(i)
             if (i.le.17) param(i,16) = p16(i)
             if (i.le.14) param(i,17) = p17(i)
             if (i.le.15) param(i,18) = p18(i)
             if (i.le.15) param(i,19) = p19(i)
             if (i.le.15) param(i,20) = p20(i)
             if (i.le.15) param(i,21) = p21(i)
             if (i.le.15) param(i,22) = p22(i)
             if (i.le.14) param(i,23) = p23(i)
             if (i.le.14) param(i,24) = p24(i)
             if (i.le.14) param(i,25) = p25(i)
             if (i.le.14) 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.14) param(i,32) = p32(i)
             if (i.le.14) param(i,33) = p33(i)
             if (i.le.14) param(i,34) = p34(i)
             if (i.le.13) param(i,35) = p35(i)
             if (i.le.13) param(i,36) = p36(i)
             if (i.le.13) param(i,37) = p37(i)
             if (i.le.13) param(i,38) = p38(i)
             if (i.le.13) param(i,39) = p39(i)
             if (i.le.13) param(i,40) = p40(i)
             if (i.le.13) param(i,41) = p41(i)
             if (i.le.13) param(i,42) = p42(i)
             if (i.le.13) param(i,43) = p43(i)
             if (i.le.13) param(i,44) = p44(i)
             if (i.le.13) 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.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.12) param(i,60) = p60(i)
             if (i.le.12) param(i,61) = p61(i)
             if (i.le.12) param(i,62) = p62(i)
             if (i.le.12) 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.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.11) param(i,97) = p97(i)
             if (i.le.11) param(i,98) = p98(i)
          enddo
       endif
            
       w2cphiq200=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
       w2cphiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w2cphiq200=0.0
       if (q2.lt.q2min) w2cphiq200=0.0
       if ( x.gt. xmax) w2cphiq200=0.0
       if ( x.lt. xmin) w2cphiq200=0.0
       return
       end
       real function  w3cphiq200(xin,q2in)
***********************************************************
c  parametrization of w3cphiq200 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.35168E+00,-0.10837E+00, 0.27662E-01,-0.12799E+00,-0.11293E+00,
     &-0.66289E-01,-0.19192E-01, 0.77406E-02, 0.15800E-01, 0.13467E-01,
     & 0.83309E-02, 0.43453E-02, 0.23443E-02, 0.16348E-02, 0.13924E-02,
     & 0.11217E-02, 0.74008E-03, 0.33902E-03, 0.18089E-04,-0.15395E-03,
     &-0.21047E-03,-0.18898E-03,-0.12085E-03,-0.70276E-04,-0.26130E-04
     & /
       real p16(0:24)
       data p16/
     & 0.37950E+00,-0.11963E+00, 0.27719E-01,-0.13915E+00,-0.12095E+00,
     &-0.69465E-01,-0.18651E-01, 0.96850E-02, 0.17572E-01, 0.14524E-01,
     & 0.87713E-02, 0.44575E-02, 0.23512E-02, 0.16334E-02, 0.13988E-02,
     & 0.11228E-02, 0.72696E-03, 0.31344E-03,-0.12881E-04,-0.18169E-03,
     &-0.23134E-03,-0.20234E-03,-0.12701E-03,-0.72808E-04,-0.26107E-04
     & /
       real p17(0:24)
       data p17/
     & 0.40838E+00,-0.13160E+00, 0.27553E-01,-0.15081E+00,-0.12913E+00,
     &-0.72510E-01,-0.17878E-01, 0.11810E-01, 0.19425E-01, 0.15588E-01,
     & 0.91877E-02, 0.45426E-02, 0.23385E-02, 0.16194E-02, 0.13968E-02,
     & 0.11172E-02, 0.70846E-03, 0.28398E-03,-0.46169E-04,-0.21036E-03,
     &-0.25225E-03,-0.21531E-03,-0.13265E-03,-0.74925E-04,-0.25777E-04
     & /
       real p18(0:24)
       data p18/
     & 0.43713E+00,-0.14378E+00, 0.27173E-01,-0.16249E+00,-0.13712E+00,
     &-0.75295E-01,-0.16910E-01, 0.14017E-01, 0.21275E-01, 0.16612E-01,
     & 0.95614E-02, 0.45972E-02, 0.23074E-02, 0.15943E-02, 0.13869E-02,
     & 0.11057E-02, 0.68587E-03, 0.25231E-03,-0.80036E-04,-0.23854E-03,
     &-0.27219E-03,-0.22728E-03,-0.13753E-03,-0.76542E-04,-0.25160E-04
     & /
       real p19(0:24)
       data p19/
     & 0.46574E+00,-0.15616E+00, 0.26595E-01,-0.17416E+00,-0.14492E+00,
     &-0.77835E-01,-0.15764E-01, 0.16295E-01, 0.23116E-01, 0.17594E-01,
     & 0.98937E-02, 0.46234E-02, 0.22596E-02, 0.15592E-02, 0.13702E-02,
     & 0.10892E-02, 0.65991E-03, 0.21896E-03,-0.11416E-03,-0.26606E-03,
     &-0.29110E-03,-0.23828E-03,-0.14167E-03,-0.77694E-04,-0.24284E-04
     & /
       real p20(0:24)
       data p20/
     & 0.49422E+00,-0.16871E+00, 0.25833E-01,-0.18582E+00,-0.15253E+00,
     &-0.80143E-01,-0.14456E-01, 0.18632E-01, 0.24942E-01, 0.18533E-01,
     & 0.10186E-01, 0.46231E-02, 0.21968E-02, 0.15156E-02, 0.13478E-02,
     & 0.10685E-02, 0.63120E-03, 0.18436E-03,-0.14826E-03,-0.29281E-03,
     &-0.30898E-03,-0.24833E-03,-0.14511E-03,-0.78416E-04,-0.23173E-04
     & /
       real p21(0:24)
       data p21/
     & 0.52258E+00,-0.18142E+00, 0.24899E-01,-0.19747E+00,-0.15997E+00,
     &-0.82233E-01,-0.12999E-01, 0.21019E-01, 0.26750E-01, 0.19430E-01,
     & 0.10441E-01, 0.45982E-02, 0.21205E-02, 0.14643E-02, 0.13204E-02,
     & 0.10442E-02, 0.60026E-03, 0.14889E-03,-0.18214E-03,-0.31869E-03,
     &-0.32581E-03,-0.25746E-03,-0.14790E-03,-0.78744E-04,-0.21853E-04
     & /
       real p22(0:24)
       data p22/
     & 0.55081E+00,-0.19428E+00, 0.23805E-01,-0.20910E+00,-0.16724E+00,
     &-0.84115E-01,-0.11405E-01, 0.23448E-01, 0.28537E-01, 0.20284E-01,
     & 0.10659E-01, 0.45504E-02, 0.20319E-02, 0.14065E-02, 0.12888E-02,
     & 0.10170E-02, 0.56754E-03, 0.11286E-03,-0.21562E-03,-0.34364E-03,
     &-0.34160E-03,-0.26571E-03,-0.15008E-03,-0.78709E-04,-0.20345E-04
     & /
       real p23(0:24)
       data p23/
     & 0.57893E+00,-0.20729E+00, 0.22561E-01,-0.22070E+00,-0.17433E+00,
     &-0.85802E-01,-0.96849E-02, 0.25911E-01, 0.30300E-01, 0.21097E-01,
     & 0.10842E-01, 0.44814E-02, 0.19325E-02, 0.13431E-02, 0.12536E-02,
     & 0.98727E-03, 0.53343E-03, 0.76525E-04,-0.24856E-03,-0.36762E-03,
     &-0.35637E-03,-0.27312E-03,-0.15169E-03,-0.78345E-04,-0.18671E-04
     & /
       real p24(0:24)
       data p24/
     & 0.60695E+00,-0.22042E+00, 0.21176E-01,-0.23229E+00,-0.18127E+00,
     &-0.87304E-01,-0.78497E-02, 0.28403E-01, 0.32036E-01, 0.21868E-01,
     & 0.10992E-01, 0.43928E-02, 0.18232E-02, 0.12747E-02, 0.12154E-02,
     & 0.95554E-03, 0.49826E-03, 0.40101E-04,-0.28085E-03,-0.39061E-03,
     &-0.37013E-03,-0.27972E-03,-0.15277E-03,-0.77680E-04,-0.16850E-04
     & /
       real p25(0:24)
       data p25/
     & 0.63485E+00,-0.23368E+00, 0.19659E-01,-0.24384E+00,-0.18804E+00,
     &-0.88628E-01,-0.59082E-02, 0.30917E-01, 0.33743E-01, 0.22599E-01,
     & 0.11110E-01, 0.42859E-02, 0.17053E-02, 0.12021E-02, 0.11748E-02,
     & 0.92218E-03, 0.46232E-03, 0.37714E-05,-0.31240E-03,-0.41258E-03,
     &-0.38292E-03,-0.28557E-03,-0.15336E-03,-0.76743E-04,-0.14901E-04
     & /
       real p26(0:24)
       data p26/
     & 0.66265E+00,-0.24705E+00, 0.18017E-01,-0.25536E+00,-0.19466E+00,
     &-0.89786E-01,-0.38687E-02, 0.33449E-01, 0.35421E-01, 0.23289E-01,
     & 0.11199E-01, 0.41622E-02, 0.15795E-02, 0.11259E-02, 0.11321E-02,
     & 0.88752E-03, 0.42584E-03,-0.32315E-04,-0.34316E-03,-0.43353E-03,
     &-0.39476E-03,-0.29070E-03,-0.15349E-03,-0.75560E-04,-0.12840E-04
     & /
       real p27(0:24)
       data p27/
     & 0.69036E+00,-0.26052E+00, 0.16257E-01,-0.26685E+00,-0.20114E+00,
     &-0.90784E-01,-0.17389E-02, 0.35993E-01, 0.37069E-01, 0.23941E-01,
     & 0.11258E-01, 0.40229E-02, 0.14468E-02, 0.10468E-02, 0.10877E-02,
     & 0.85186E-03, 0.38905E-03,-0.68033E-04,-0.37307E-03,-0.45348E-03,
     &-0.40568E-03,-0.29515E-03,-0.15319E-03,-0.74154E-04,-0.10682E-04
     & /
       real p28(0:24)
       data p28/
     & 0.71797E+00,-0.27410E+00, 0.14387E-01,-0.27830E+00,-0.20747E+00,
     &-0.91630E-01, 0.47438E-03, 0.38547E-01, 0.38684E-01, 0.24554E-01,
     & 0.11290E-01, 0.38692E-02, 0.13081E-02, 0.96518E-03, 0.10420E-02,
     & 0.81546E-03, 0.35211E-03,-0.10328E-03,-0.40210E-03,-0.47243E-03,
     &-0.41573E-03,-0.29896E-03,-0.15251E-03,-0.72549E-04,-0.84418E-05
     & /
       real p29(0:24)
       data p29/
     & 0.74548E+00,-0.28776E+00, 0.12411E-01,-0.28972E+00,-0.21365E+00,
     &-0.92332E-01, 0.27646E-02, 0.41106E-01, 0.40268E-01, 0.25131E-01,
     & 0.11297E-01, 0.37023E-02, 0.11640E-02, 0.88153E-03, 0.99539E-03,
     & 0.77853E-03, 0.31518E-03,-0.13797E-03,-0.43022E-03,-0.49040E-03,
     &-0.42494E-03,-0.30217E-03,-0.15147E-03,-0.70766E-04,-0.61312E-05
     & /
       real p30(0:23)
       data p30/
     & 0.77291E+00,-0.30152E+00, 0.10335E-01,-0.30110E+00,-0.21970E+00,
     &-0.92896E-01, 0.51260E-02, 0.43668E-01, 0.41819E-01, 0.25671E-01,
     & 0.11278E-01, 0.35230E-02, 0.10151E-02, 0.79628E-03, 0.94802E-03,
     & 0.74127E-03, 0.27839E-03,-0.17204E-03,-0.45742E-03,-0.50740E-03,
     &-0.43334E-03,-0.30481E-03,-0.15009E-03,-0.68823E-04
     & /
       real p31(0:23)
       data p31/
     & 0.78366E+00,-0.30694E+00, 0.94998E-02,-0.30556E+00,-0.22205E+00,
     &-0.93089E-01, 0.60670E-02, 0.44673E-01, 0.42419E-01, 0.25874E-01,
     & 0.11266E-01, 0.34502E-02, 0.95589E-03, 0.76268E-03, 0.92947E-03,
     & 0.72673E-03, 0.26411E-03,-0.18517E-03,-0.46782E-03,-0.51383E-03,
     &-0.43645E-03,-0.30572E-03,-0.14949E-03,-0.68030E-04
     & /
       real p32(0:23)
       data p32/
     & 0.80022E+00,-0.31529E+00, 0.82069E-02,-0.31241E+00,-0.22563E+00,
     &-0.93376E-01, 0.75036E-02, 0.46200E-01, 0.43329E-01, 0.26181E-01,
     & 0.11246E-01, 0.33399E-02, 0.86678E-03, 0.71252E-03, 0.90201E-03,
     & 0.70523E-03, 0.24286E-03,-0.20482E-03,-0.48344E-03,-0.52349E-03,
     &-0.44113E-03,-0.30711E-03,-0.14857E-03,-0.66841E-04
     & /
       real p33(0:23)
       data p33/
     & 0.82742E+00,-0.32912E+00, 0.60016E-02,-0.32365E+00,-0.23143E+00,
     &-0.93744E-01, 0.99221E-02, 0.48715E-01, 0.44802E-01, 0.26660E-01,
     & 0.11195E-01, 0.31494E-02, 0.71681E-03, 0.62887E-03, 0.85634E-03,
     & 0.66960E-03, 0.20798E-03,-0.23671E-03,-0.50849E-03,-0.53871E-03,
     &-0.44826E-03,-0.30899E-03,-0.14684E-03,-0.64775E-04
     & /
       real p34(0:23)
       data p34/
     & 0.85453E+00,-0.34302E+00, 0.37061E-02,-0.33485E+00,-0.23710E+00,
     &-0.93987E-01, 0.12401E-01, 0.51229E-01, 0.46242E-01, 0.27105E-01,
     & 0.11122E-01, 0.29489E-02, 0.56334E-03, 0.54423E-03, 0.81030E-03,
     & 0.63386E-03, 0.17334E-03,-0.26797E-03,-0.53268E-03,-0.55307E-03,
     &-0.45470E-03,-0.31040E-03,-0.14483E-03,-0.62589E-04
     & /
       real p35(0:23)
       data p35/
     & 0.88156E+00,-0.35700E+00, 0.13244E-02,-0.34601E+00,-0.24264E+00,
     &-0.94110E-01, 0.14936E-01, 0.53738E-01, 0.47651E-01, 0.27518E-01,
     & 0.11029E-01, 0.27390E-02, 0.40684E-03, 0.45890E-03, 0.76409E-03,
     & 0.59813E-03, 0.13903E-03,-0.29856E-03,-0.55602E-03,-0.56660E-03,
     &-0.46048E-03,-0.31136E-03,-0.14259E-03,-0.60295E-04
     & /
       real p36(0:23)
       data p36/
     & 0.90850E+00,-0.37104E+00,-0.11397E-02,-0.35713E+00,-0.24806E+00,
     &-0.94119E-01, 0.17523E-01, 0.56242E-01, 0.49027E-01, 0.27900E-01,
     & 0.10917E-01, 0.25205E-02, 0.24775E-03, 0.37312E-03, 0.71785E-03,
     & 0.56252E-03, 0.10512E-03,-0.32845E-03,-0.57850E-03,-0.57932E-03,
     &-0.46562E-03,-0.31191E-03,-0.14011E-03,-0.57907E-04
     & /
       real p37(0:15)
       data p37/
     & 0.93535E+00,-0.38518E+00,-0.37091E-02,-0.36823E+00,-0.25338E+00,
     &-0.94004E-01, 0.20174E-01, 0.58762E-01, 0.50382E-01, 0.28196E-01,
     & 0.10648E-01, 0.19820E-02,-0.38367E-03,-0.30414E-03, 0.71597E-04,
     & 0.16951E-03
     & /
       real p38(0:15)
       data p38/
     & 0.96214E+00,-0.39935E+00,-0.63278E-02,-0.37927E+00,-0.25856E+00,
     &-0.93796E-01, 0.22856E-01, 0.61250E-01, 0.51696E-01, 0.28520E-01,
     & 0.10502E-01, 0.17484E-02,-0.55072E-03,-0.40133E-03, 0.49293E-05,
     & 0.10598E-03
     & /
       real p39(0:14)
       data p39/
     & 0.98885E+00,-0.41359E+00,-0.90188E-02,-0.39026E+00,-0.26363E+00,
     &-0.93486E-01, 0.25579E-01, 0.63727E-01, 0.52978E-01, 0.28815E-01,
     & 0.10339E-01, 0.15084E-02,-0.71870E-03,-0.49761E-03,-0.60554E-04
     & /
       real p40(0:14)
       data p40/
     & 0.10155E+01,-0.42788E+00,-0.11779E-01,-0.40121E+00,-0.26859E+00,
     &-0.93078E-01, 0.28342E-01, 0.66193E-01, 0.54229E-01, 0.29083E-01,
     & 0.10161E-01, 0.12627E-02,-0.88731E-03,-0.59283E-03,-0.12477E-03
     & /
       real p41(0:15)
       data p41/
     & 0.10421E+01,-0.44223E+00,-0.14606E-01,-0.41212E+00,-0.27344E+00,
     &-0.92576E-01, 0.31140E-01, 0.68645E-01, 0.55448E-01, 0.29323E-01,
     & 0.99667E-02, 0.10115E-02,-0.10563E-02,-0.68688E-03,-0.18764E-03,
     &-0.77569E-04
     & /
       real p42(0:23)
       data p42/
     & 0.10686E+01,-0.45661E+00,-0.17470E-01,-0.42295E+00,-0.27816E+00,
     &-0.92004E-01, 0.33949E-01, 0.71050E-01, 0.56612E-01, 0.29579E-01,
     & 0.98800E-02, 0.10633E-02,-0.74076E-03,-0.13969E-03, 0.44687E-03,
     & 0.35601E-03,-0.87306E-04,-0.49222E-03,-0.69598E-03,-0.63996E-03,
     &-0.48466E-03,-0.30774E-03,-0.12152E-03,-0.42202E-04
     & /
       real p43(0:23)
       data p43/
     & 0.10950E+01,-0.47106E+00,-0.20423E-01,-0.43377E+00,-0.28281E+00,
     &-0.91325E-01, 0.36810E-01, 0.73472E-01, 0.57767E-01, 0.29764E-01,
     & 0.96546E-02, 0.80121E-03,-0.90833E-03,-0.22334E-03, 0.40366E-03,
     & 0.32334E-03,-0.11723E-03,-0.51685E-03,-0.71279E-03,-0.64768E-03,
     &-0.48612E-03,-0.30602E-03,-0.11793E-03,-0.39438E-04
     & /
       real p44(0:23)
       data p44/
     & 0.11214E+01,-0.48555E+00,-0.23435E-01,-0.44455E+00,-0.28735E+00,
     &-0.90563E-01, 0.39699E-01, 0.75878E-01, 0.58890E-01, 0.29924E-01,
     & 0.94160E-02, 0.53486E-03,-0.10760E-02,-0.30614E-03, 0.36120E-03,
     & 0.29128E-03,-0.14649E-03,-0.54073E-03,-0.72884E-03,-0.65478E-03,
     &-0.48715E-03,-0.30404E-03,-0.11424E-03,-0.36653E-04
     & /
       real p45(0:23)
       data p45/
     & 0.11477E+01,-0.50010E+00,-0.26504E-01,-0.45528E+00,-0.29179E+00,
     &-0.89719E-01, 0.42615E-01, 0.78268E-01, 0.59983E-01, 0.30061E-01,
     & 0.91649E-02, 0.26469E-03,-0.12437E-02,-0.38799E-03, 0.31953E-03,
     & 0.25987E-03,-0.17507E-03,-0.56385E-03,-0.74417E-03,-0.66130E-03,
     &-0.48777E-03,-0.30185E-03,-0.11046E-03,-0.33852E-04
     & /
       real p46(0:23)
       data p46/
     & 0.11739E+01,-0.51468E+00,-0.29628E-01,-0.46597E+00,-0.29613E+00,
     &-0.88797E-01, 0.45555E-01, 0.80641E-01, 0.61047E-01, 0.30173E-01,
     & 0.89020E-02,-0.89208E-05,-0.14110E-02,-0.46880E-03, 0.27869E-03,
     & 0.22912E-03,-0.20296E-03,-0.58623E-03,-0.75879E-03,-0.66724E-03,
     &-0.48801E-03,-0.29944E-03,-0.10660E-03,-0.31040E-04
     & /
       real p47(0:23)
       data p47/
     & 0.12001E+01,-0.52931E+00,-0.32806E-01,-0.47662E+00,-0.30038E+00,
     &-0.87800E-01, 0.48518E-01, 0.82996E-01, 0.62081E-01, 0.30263E-01,
     & 0.86279E-02,-0.28561E-03,-0.15780E-02,-0.54849E-03, 0.23874E-03,
     & 0.19906E-03,-0.23016E-03,-0.60788E-03,-0.77272E-03,-0.67264E-03,
     &-0.48789E-03,-0.29683E-03,-0.10266E-03,-0.28224E-04
     & /
       real p48(0:23)
       data p48/
     & 0.12262E+01,-0.54398E+00,-0.36034E-01,-0.48722E+00,-0.30454E+00,
     &-0.86730E-01, 0.51501E-01, 0.85334E-01, 0.63085E-01, 0.30331E-01,
     & 0.83431E-02,-0.56505E-03,-0.17443E-02,-0.62700E-03, 0.19969E-03,
     & 0.16970E-03,-0.25667E-03,-0.62880E-03,-0.78597E-03,-0.67751E-03,
     &-0.48742E-03,-0.29404E-03,-0.98660E-04,-0.25407E-04
     & /
       real p49(0:23)
       data p49/
     & 0.12522E+01,-0.55868E+00,-0.39312E-01,-0.49778E+00,-0.30861E+00,
     &-0.85590E-01, 0.54503E-01, 0.87652E-01, 0.64061E-01, 0.30378E-01,
     & 0.80481E-02,-0.84690E-03,-0.19099E-02,-0.70426E-03, 0.16158E-03,
     & 0.14105E-03,-0.28248E-03,-0.64900E-03,-0.79857E-03,-0.68187E-03,
     &-0.48663E-03,-0.29109E-03,-0.94604E-04,-0.22594E-04
     & /
       real p50(0:23)
       data p50/
     & 0.12782E+01,-0.57343E+00,-0.42638E-01,-0.50829E+00,-0.31259E+00,
     &-0.84383E-01, 0.57523E-01, 0.89952E-01, 0.65009E-01, 0.30404E-01,
     & 0.77435E-02,-0.11309E-02,-0.20746E-02,-0.78023E-03, 0.12442E-03,
     & 0.11312E-03,-0.30760E-03,-0.66851E-03,-0.81054E-03,-0.68576E-03,
     &-0.48554E-03,-0.28798E-03,-0.90500E-04,-0.19790E-04
     & /
       real p51(0:23)
       data p51/
     & 0.13042E+01,-0.58820E+00,-0.46009E-01,-0.51877E+00,-0.31648E+00,
     &-0.83109E-01, 0.60558E-01, 0.92233E-01, 0.65929E-01, 0.30410E-01,
     & 0.74299E-02,-0.14167E-02,-0.22382E-02,-0.85486E-03, 0.88244E-04,
     & 0.85930E-04,-0.33204E-03,-0.68733E-03,-0.82189E-03,-0.68918E-03,
     &-0.48415E-03,-0.28473E-03,-0.86355E-04,-0.16997E-04
     & /
       real p52(0:23)
       data p52/
     & 0.13300E+01,-0.60302E+00,-0.49426E-01,-0.52920E+00,-0.32029E+00,
     &-0.81772E-01, 0.63609E-01, 0.94494E-01, 0.66821E-01, 0.30396E-01,
     & 0.71075E-02,-0.17041E-02,-0.24008E-02,-0.92810E-03, 0.53053E-04,
     & 0.59469E-04,-0.35579E-03,-0.70547E-03,-0.83265E-03,-0.69215E-03,
     &-0.48249E-03,-0.28135E-03,-0.82176E-04,-0.14218E-04
     & /
       real p53(0:23)
       data p53/
     & 0.13558E+01,-0.61786E+00,-0.52885E-01,-0.53959E+00,-0.32401E+00,
     &-0.80374E-01, 0.66672E-01, 0.96735E-01, 0.67687E-01, 0.30364E-01,
     & 0.67770E-02,-0.19928E-02,-0.25622E-02,-0.99992E-03, 0.18862E-04,
     & 0.33743E-04,-0.37886E-03,-0.72295E-03,-0.84283E-03,-0.69471E-03,
     &-0.48058E-03,-0.27785E-03,-0.77969E-04,-0.11458E-04
     & /
       real p54(0:22)
       data p54/
     & 0.13816E+01,-0.63274E+00,-0.56387E-01,-0.54994E+00,-0.32765E+00,
     &-0.78917E-01, 0.69747E-01, 0.98957E-01, 0.68526E-01, 0.30313E-01,
     & 0.64387E-02,-0.22826E-02,-0.27222E-02,-0.10703E-02,-0.14321E-04,
     & 0.87526E-05,-0.40126E-03,-0.73979E-03,-0.85245E-03,-0.69685E-03,
     &-0.47842E-03,-0.27424E-03,-0.73741E-04
     & /
       real p55(0:22)
       data p55/
     & 0.14073E+01,-0.64764E+00,-0.59929E-01,-0.56024E+00,-0.33122E+00,
     &-0.77403E-01, 0.72834E-01, 0.10116E+00, 0.69338E-01, 0.30244E-01,
     & 0.60931E-02,-0.25733E-02,-0.28808E-02,-0.11392E-02,-0.46491E-04,
     &-0.15505E-04,-0.42301E-03,-0.75599E-03,-0.86152E-03,-0.69861E-03,
     &-0.47603E-03,-0.27052E-03,-0.69496E-04
     & /
       real p56(0:22)
       data p56/
     & 0.14330E+01,-0.66258E+00,-0.63510E-01,-0.57051E+00,-0.33470E+00,
     &-0.75833E-01, 0.75930E-01, 0.10334E+00, 0.70125E-01, 0.30159E-01,
     & 0.57406E-02,-0.28647E-02,-0.30379E-02,-0.12066E-02,-0.77645E-04,
     &-0.39031E-04,-0.44409E-03,-0.77158E-03,-0.87008E-03,-0.69999E-03,
     &-0.47342E-03,-0.26672E-03,-0.65240E-04
     & /
       real p57(0:22)
       data p57/
     & 0.14586E+01,-0.67754E+00,-0.67129E-01,-0.58073E+00,-0.33811E+00,
     &-0.74210E-01, 0.79034E-01, 0.10550E+00, 0.70887E-01, 0.30056E-01,
     & 0.53814E-02,-0.31565E-02,-0.31935E-02,-0.12725E-02,-0.10778E-03,
     &-0.61832E-04,-0.46454E-03,-0.78656E-03,-0.87812E-03,-0.70102E-03,
     &-0.47061E-03,-0.26283E-03,-0.60977E-04
     & /
       real p58(0:22)
       data p58/
     & 0.14842E+01,-0.69253E+00,-0.70785E-01,-0.59091E+00,-0.34145E+00,
     &-0.72534E-01, 0.82147E-01, 0.10764E+00, 0.71624E-01, 0.29937E-01,
     & 0.50161E-02,-0.34487E-02,-0.33475E-02,-0.13369E-02,-0.13690E-03,
     &-0.83913E-04,-0.48435E-03,-0.80095E-03,-0.88568E-03,-0.70171E-03,
     &-0.46762E-03,-0.25887E-03,-0.56711E-04
     & /
       real p59(0:22)
       data p59/
     & 0.15097E+01,-0.70755E+00,-0.74477E-01,-0.60106E+00,-0.34471E+00,
     &-0.70808E-01, 0.85266E-01, 0.10976E+00, 0.72336E-01, 0.29803E-01,
     & 0.46449E-02,-0.37410E-02,-0.34998E-02,-0.13997E-02,-0.16501E-03,
     &-0.10528E-03,-0.50353E-03,-0.81477E-03,-0.89276E-03,-0.70207E-03,
     &-0.46444E-03,-0.25484E-03,-0.52447E-04
     & /
       real p60(0:22)
       data p60/
     & 0.15351E+01,-0.72259E+00,-0.78204E-01,-0.61116E+00,-0.34789E+00,
     &-0.69034E-01, 0.88391E-01, 0.11186E+00, 0.73024E-01, 0.29653E-01,
     & 0.42681E-02,-0.40332E-02,-0.36504E-02,-0.14611E-02,-0.19212E-03,
     &-0.12594E-03,-0.52211E-03,-0.82804E-03,-0.89939E-03,-0.70212E-03,
     &-0.46109E-03,-0.25075E-03,-0.48187E-04
     & /
       real p61(0:22)
       data p61/
     & 0.15605E+01,-0.73766E+00,-0.81964E-01,-0.62122E+00,-0.35101E+00,
     &-0.67212E-01, 0.91521E-01, 0.11394E+00, 0.73689E-01, 0.29489E-01,
     & 0.38862E-02,-0.43253E-02,-0.37992E-02,-0.15208E-02,-0.21822E-03,
     &-0.14591E-03,-0.54008E-03,-0.84075E-03,-0.90557E-03,-0.70187E-03,
     &-0.45759E-03,-0.24660E-03,-0.43936E-04
     & /
       real p62(0:22)
       data p62/
     & 0.15859E+01,-0.75275E+00,-0.85757E-01,-0.63124E+00,-0.35406E+00,
     &-0.65344E-01, 0.94656E-01, 0.11599E+00, 0.74330E-01, 0.29310E-01,
     & 0.34993E-02,-0.46170E-02,-0.39462E-02,-0.15790E-02,-0.24332E-03,
     &-0.16518E-03,-0.55747E-03,-0.85294E-03,-0.91133E-03,-0.70134E-03,
     &-0.45394E-03,-0.24241E-03,-0.39697E-04
     & /
       real p63(0:22)
       data p63/
     & 0.16112E+01,-0.76786E+00,-0.89582E-01,-0.64122E+00,-0.35704E+00,
     &-0.63432E-01, 0.97794E-01, 0.11803E+00, 0.74949E-01, 0.29118E-01,
     & 0.31078E-02,-0.49083E-02,-0.40913E-02,-0.16357E-02,-0.26744E-03,
     &-0.18378E-03,-0.57427E-03,-0.86461E-03,-0.91668E-03,-0.70054E-03,
     &-0.45015E-03,-0.23817E-03,-0.35472E-04
     & /
       real p64(0:22)
       data p64/
     & 0.16365E+01,-0.78300E+00,-0.93437E-01,-0.65116E+00,-0.35996E+00,
     &-0.61477E-01, 0.10093E+00, 0.12005E+00, 0.75545E-01, 0.28912E-01,
     & 0.27119E-02,-0.51990E-02,-0.42346E-02,-0.16908E-02,-0.29059E-03,
     &-0.20170E-03,-0.59051E-03,-0.87578E-03,-0.92163E-03,-0.69949E-03,
     &-0.44624E-03,-0.23390E-03,-0.31264E-04
     & /
       real p65(0:22)
       data p65/
     & 0.16617E+01,-0.79815E+00,-0.97323E-01,-0.66107E+00,-0.36280E+00,
     &-0.59481E-01, 0.10408E+00, 0.12204E+00, 0.76119E-01, 0.28693E-01,
     & 0.23120E-02,-0.54890E-02,-0.43759E-02,-0.17444E-02,-0.31276E-03,
     &-0.21897E-03,-0.60620E-03,-0.88645E-03,-0.92619E-03,-0.69818E-03,
     &-0.44220E-03,-0.22960E-03,-0.27076E-04
     & /
       real p66(0:22)
       data p66/
     & 0.16869E+01,-0.81333E+00,-0.10124E+00,-0.67093E+00,-0.36559E+00,
     &-0.57443E-01, 0.10722E+00, 0.12402E+00, 0.76672E-01, 0.28461E-01,
     & 0.19082E-02,-0.57782E-02,-0.45153E-02,-0.17965E-02,-0.33398E-03,
     &-0.23559E-03,-0.62134E-03,-0.89666E-03,-0.93039E-03,-0.69664E-03,
     &-0.43805E-03,-0.22527E-03,-0.22910E-04
     & /
       real p67(0:22)
       data p67/
     & 0.17121E+01,-0.82853E+00,-0.10518E+00,-0.68076E+00,-0.36831E+00,
     &-0.55367E-01, 0.11037E+00, 0.12597E+00, 0.77203E-01, 0.28217E-01,
     & 0.15008E-02,-0.60665E-02,-0.46528E-02,-0.18470E-02,-0.35426E-03,
     &-0.25157E-03,-0.63596E-03,-0.90640E-03,-0.93423E-03,-0.69488E-03,
     &-0.43380E-03,-0.22092E-03,-0.18767E-04
     & /
       real p68(0:22)
       data p68/
     & 0.17372E+01,-0.84374E+00,-0.10915E+00,-0.69055E+00,-0.37097E+00,
     &-0.53252E-01, 0.11351E+00, 0.12791E+00, 0.77713E-01, 0.27962E-01,
     & 0.10901E-02,-0.63538E-02,-0.47882E-02,-0.18960E-02,-0.37360E-03,
     &-0.26693E-03,-0.65005E-03,-0.91569E-03,-0.93772E-03,-0.69291E-03,
     &-0.42945E-03,-0.21656E-03,-0.14651E-04
     & /
       real p69(0:22)
       data p69/
     & 0.17622E+01,-0.85898E+00,-0.11315E+00,-0.70030E+00,-0.37356E+00,
     &-0.51100E-01, 0.11666E+00, 0.12982E+00, 0.78203E-01, 0.27694E-01,
     & 0.67620E-03,-0.66400E-02,-0.49217E-02,-0.19435E-02,-0.39203E-03,
     &-0.28167E-03,-0.66364E-03,-0.92455E-03,-0.94088E-03,-0.69073E-03,
     &-0.42501E-03,-0.21218E-03,-0.10561E-04
     & /
       real p70(0:22)
       data p70/
     & 0.17873E+01,-0.87423E+00,-0.11718E+00,-0.71001E+00,-0.37610E+00,
     &-0.48912E-01, 0.11981E+00, 0.13172E+00, 0.78673E-01, 0.27416E-01,
     & 0.25939E-03,-0.69250E-02,-0.50532E-02,-0.19895E-02,-0.40955E-03,
     &-0.29581E-03,-0.67673E-03,-0.93298E-03,-0.94373E-03,-0.68836E-03,
     &-0.42049E-03,-0.20779E-03,-0.65013E-05
     & /
       real p71(0:22)
       data p71/
     & 0.18122E+01,-0.88950E+00,-0.12123E+00,-0.71969E+00,-0.37858E+00,
     &-0.46689E-01, 0.12295E+00, 0.13359E+00, 0.79123E-01, 0.27127E-01,
     &-0.16014E-03,-0.72088E-02,-0.51827E-02,-0.20340E-02,-0.42617E-03,
     &-0.30936E-03,-0.68934E-03,-0.94100E-03,-0.94626E-03,-0.68580E-03,
     &-0.41589E-03,-0.20339E-03,-0.24716E-05
     & /
       real p72(0:22)
       data p72/
     & 0.18372E+01,-0.90479E+00,-0.12530E+00,-0.72933E+00,-0.38100E+00,
     &-0.44432E-01, 0.12609E+00, 0.13544E+00, 0.79553E-01, 0.26827E-01,
     &-0.58222E-03,-0.74913E-02,-0.53101E-02,-0.20770E-02,-0.44192E-03,
     &-0.32233E-03,-0.70147E-03,-0.94862E-03,-0.94850E-03,-0.68307E-03,
     &-0.41122E-03,-0.19899E-03, 0.15262E-05
     & /
       real p73(0:22)
       data p73/
     & 0.18621E+01,-0.92009E+00,-0.12940E+00,-0.73893E+00,-0.38336E+00,
     &-0.42143E-01, 0.12923E+00, 0.13728E+00, 0.79965E-01, 0.26517E-01,
     &-0.10066E-02,-0.77724E-02,-0.54355E-02,-0.21186E-02,-0.45679E-03,
     &-0.33473E-03,-0.71315E-03,-0.95585E-03,-0.95045E-03,-0.68018E-03,
     &-0.40649E-03,-0.19459E-03, 0.54911E-05
     & /
       real p74(0:22)
       data p74/
     & 0.18869E+01,-0.93541E+00,-0.13352E+00,-0.74850E+00,-0.38567E+00,
     &-0.39821E-01, 0.13237E+00, 0.13909E+00, 0.80357E-01, 0.26197E-01,
     &-0.14332E-02,-0.80520E-02,-0.55589E-02,-0.21587E-02,-0.47082E-03,
     &-0.34657E-03,-0.72437E-03,-0.96270E-03,-0.95212E-03,-0.67712E-03,
     &-0.40169E-03,-0.19020E-03, 0.94219E-05
     & /
       real p75(0:22)
       data p75/
     & 0.19117E+01,-0.95075E+00,-0.13767E+00,-0.75803E+00,-0.38792E+00,
     &-0.37468E-01, 0.13551E+00, 0.14089E+00, 0.80732E-01, 0.25868E-01,
     &-0.18618E-02,-0.83301E-02,-0.56802E-02,-0.21974E-02,-0.48401E-03,
     &-0.35787E-03,-0.73516E-03,-0.96919E-03,-0.95353E-03,-0.67392E-03,
     &-0.39684E-03,-0.18581E-03, 0.13318E-04
     & /
       real p76(0:22)
       data p76/
     & 0.19365E+01,-0.96610E+00,-0.14184E+00,-0.76752E+00,-0.39012E+00,
     &-0.35085E-01, 0.13864E+00, 0.14266E+00, 0.81088E-01, 0.25529E-01,
     &-0.22922E-02,-0.86067E-02,-0.57995E-02,-0.22347E-02,-0.49638E-03,
     &-0.36864E-03,-0.74552E-03,-0.97532E-03,-0.95468E-03,-0.67058E-03,
     &-0.39195E-03,-0.18143E-03, 0.17178E-04
     & /
       real p77(0:21)
       data p77/
     & 0.19613E+01,-0.98147E+00,-0.14603E+00,-0.77698E+00,-0.39227E+00,
     &-0.32672E-01, 0.14177E+00, 0.14442E+00, 0.81426E-01, 0.25181E-01,
     &-0.27243E-02,-0.88816E-02,-0.59168E-02,-0.22706E-02,-0.50793E-03,
     &-0.37889E-03,-0.75546E-03,-0.98111E-03,-0.95559E-03,-0.66709E-03,
     &-0.38700E-03,-0.17706E-03
     & /
       real p78(0:21)
       data p78/
     & 0.19860E+01,-0.99685E+00,-0.15024E+00,-0.78641E+00,-0.39436E+00,
     &-0.30230E-01, 0.14490E+00, 0.14615E+00, 0.81747E-01, 0.24825E-01,
     &-0.31580E-02,-0.91548E-02,-0.60320E-02,-0.23051E-02,-0.51869E-03,
     &-0.38862E-03,-0.76500E-03,-0.98657E-03,-0.95626E-03,-0.66349E-03,
     &-0.38202E-03,-0.17270E-03
     & /
       real p79(0:21)
       data p79/
     & 0.20107E+01,-0.10122E+01,-0.15448E+00,-0.79580E+00,-0.39640E+00,
     &-0.27761E-01, 0.14802E+00, 0.14787E+00, 0.82051E-01, 0.24460E-01,
     &-0.35930E-02,-0.94264E-02,-0.61452E-02,-0.23382E-02,-0.52868E-03,
     &-0.39786E-03,-0.77414E-03,-0.99170E-03,-0.95670E-03,-0.65976E-03,
     &-0.37701E-03,-0.16836E-03
     & /
       real p80(0:21)
       data p80/
     & 0.20353E+01,-0.10276E+01,-0.15873E+00,-0.80515E+00,-0.39839E+00,
     &-0.25265E-01, 0.15114E+00, 0.14957E+00, 0.82337E-01, 0.24087E-01,
     &-0.40292E-02,-0.96961E-02,-0.62564E-02,-0.23700E-02,-0.53789E-03,
     &-0.40661E-03,-0.78289E-03,-0.99651E-03,-0.95692E-03,-0.65591E-03,
     &-0.37196E-03,-0.16404E-03
     & /
       real p81(0:21)
       data p81/
     & 0.20599E+01,-0.10431E+01,-0.16301E+00,-0.81447E+00,-0.40034E+00,
     &-0.22742E-01, 0.15425E+00, 0.15124E+00, 0.82608E-01, 0.23706E-01,
     &-0.44666E-02,-0.99641E-02,-0.63656E-02,-0.24004E-02,-0.54636E-03,
     &-0.41489E-03,-0.79127E-03,-0.10010E-02,-0.95693E-03,-0.65196E-03,
     &-0.36688E-03,-0.15973E-03
     & /
       real p82(0:21)
       data p82/
     & 0.20845E+01,-0.10585E+01,-0.16730E+00,-0.82376E+00,-0.40223E+00,
     &-0.20194E-01, 0.15736E+00, 0.15290E+00, 0.82862E-01, 0.23317E-01,
     &-0.49050E-02,-0.10230E-01,-0.64728E-02,-0.24295E-02,-0.55408E-03,
     &-0.42270E-03,-0.79928E-03,-0.10052E-02,-0.95674E-03,-0.64790E-03,
     &-0.36178E-03,-0.15545E-03
     & /
       real p83(0:21)
       data p83/
     & 0.21090E+01,-0.10739E+01,-0.17161E+00,-0.83301E+00,-0.40407E+00,
     &-0.17620E-01, 0.16046E+00, 0.15455E+00, 0.83100E-01, 0.22921E-01,
     &-0.53442E-02,-0.10495E-01,-0.65779E-02,-0.24573E-02,-0.56109E-03,
     &-0.43006E-03,-0.80694E-03,-0.10092E-02,-0.95635E-03,-0.64375E-03,
     &-0.35665E-03,-0.15119E-03
     & /
       real p84(0:21)
       data p84/
     & 0.21335E+01,-0.10894E+01,-0.17594E+00,-0.84223E+00,-0.40587E+00,
     &-0.15023E-01, 0.16356E+00, 0.15617E+00, 0.83322E-01, 0.22517E-01,
     &-0.57842E-02,-0.10757E-01,-0.66811E-02,-0.24838E-02,-0.56738E-03,
     &-0.43697E-03,-0.81425E-03,-0.10128E-02,-0.95577E-03,-0.63950E-03,
     &-0.35151E-03,-0.14695E-03
     & /
       real p85(0:21)
       data p85/
     & 0.21580E+01,-0.11049E+01,-0.18029E+00,-0.85142E+00,-0.40762E+00,
     &-0.12401E-01, 0.16665E+00, 0.15777E+00, 0.83529E-01, 0.22107E-01,
     &-0.62249E-02,-0.11018E-01,-0.67823E-02,-0.25091E-02,-0.57298E-03,
     &-0.44345E-03,-0.82122E-03,-0.10162E-02,-0.95501E-03,-0.63517E-03,
     &-0.34636E-03,-0.14273E-03
     & /
       real p86(0:21)
       data p86/
     & 0.21824E+01,-0.11204E+01,-0.18466E+00,-0.86057E+00,-0.40932E+00,
     &-0.97572E-02, 0.16974E+00, 0.15936E+00, 0.83721E-01, 0.21689E-01,
     &-0.66660E-02,-0.11276E-01,-0.68815E-02,-0.25331E-02,-0.57790E-03,
     &-0.44951E-03,-0.82786E-03,-0.10193E-02,-0.95407E-03,-0.63075E-03,
     &-0.34119E-03,-0.13855E-03
     & /
       real p87(0:21)
       data p87/
     & 0.22068E+01,-0.11358E+01,-0.18905E+00,-0.86969E+00,-0.41098E+00,
     &-0.70905E-02, 0.17282E+00, 0.16093E+00, 0.83897E-01, 0.21265E-01,
     &-0.71076E-02,-0.11533E-01,-0.69788E-02,-0.25558E-02,-0.58215E-03,
     &-0.45516E-03,-0.83418E-03,-0.10222E-02,-0.95297E-03,-0.62626E-03,
     &-0.33601E-03,-0.13439E-03
     & /
       real p88(0:21)
       data p88/
     & 0.22312E+01,-0.11514E+01,-0.19345E+00,-0.87878E+00,-0.41259E+00,
     &-0.44019E-02, 0.17589E+00, 0.16248E+00, 0.84060E-01, 0.20835E-01,
     &-0.75496E-02,-0.11787E-01,-0.70741E-02,-0.25774E-02,-0.58575E-03,
     &-0.46040E-03,-0.84019E-03,-0.10248E-02,-0.95171E-03,-0.62170E-03,
     &-0.33083E-03,-0.13026E-03
     & /
       real p89(0:21)
       data p89/
     & 0.22555E+01,-0.11669E+01,-0.19787E+00,-0.88784E+00,-0.41416E+00,
     &-0.16921E-02, 0.17896E+00, 0.16401E+00, 0.84207E-01, 0.20398E-01,
     &-0.79918E-02,-0.12040E-01,-0.71675E-02,-0.25978E-02,-0.58871E-03,
     &-0.46526E-03,-0.84590E-03,-0.10272E-02,-0.95029E-03,-0.61707E-03,
     &-0.32565E-03,-0.12616E-03
     & /
       real p90(0:21)
       data p90/
     & 0.22798E+01,-0.11824E+01,-0.20230E+00,-0.89686E+00,-0.41569E+00,
     & 0.10384E-02, 0.18202E+00, 0.16552E+00, 0.84341E-01, 0.19956E-01,
     &-0.84341E-02,-0.12290E-01,-0.72590E-02,-0.26169E-02,-0.59105E-03,
     &-0.46973E-03,-0.85131E-03,-0.10293E-02,-0.94873E-03,-0.61238E-03,
     &-0.32046E-03,-0.12209E-03
     & /
       real p91(0:21)
       data p91/
     & 0.23041E+01,-0.11979E+01,-0.20676E+00,-0.90586E+00,-0.41717E+00,
     & 0.37891E-02, 0.18507E+00, 0.16702E+00, 0.84461E-01, 0.19507E-01,
     &-0.88765E-02,-0.12539E-01,-0.73486E-02,-0.26349E-02,-0.59277E-03,
     &-0.47383E-03,-0.85644E-03,-0.10313E-02,-0.94702E-03,-0.60763E-03,
     &-0.31527E-03,-0.11805E-03
     & /
       real p92(0:21)
       data p92/
     & 0.23283E+01,-0.12135E+01,-0.21122E+00,-0.91482E+00,-0.41861E+00,
     & 0.65594E-02, 0.18812E+00, 0.16850E+00, 0.84567E-01, 0.19053E-01,
     &-0.93189E-02,-0.12786E-01,-0.74363E-02,-0.26518E-02,-0.59389E-03,
     &-0.47756E-03,-0.86129E-03,-0.10330E-02,-0.94518E-03,-0.60282E-03,
     &-0.31009E-03,-0.11404E-03
     & /
       real p93(0:21)
       data p93/
     & 0.23525E+01,-0.12290E+01,-0.21569E+00,-0.92372E+00,-0.42001E+00,
     & 0.93308E-02, 0.19114E+00, 0.16995E+00, 0.84661E-01, 0.18599E-01,
     &-0.97567E-02,-0.13027E-01,-0.75212E-02,-0.26674E-02,-0.59441E-03,
     &-0.48094E-03,-0.86587E-03,-0.10345E-02,-0.94329E-03,-0.59806E-03,
     &-0.30499E-03,-0.11012E-03
     & /
       real p94(0:21)
       data p94/
     & 0.23766E+01,-0.12445E+01,-0.22017E+00,-0.93258E+00,-0.42136E+00,
     & 0.12119E-01, 0.19415E+00, 0.17139E+00, 0.84741E-01, 0.18139E-01,
     &-0.10194E-01,-0.13267E-01,-0.76041E-02,-0.26818E-02,-0.59436E-03,
     &-0.48397E-03,-0.87020E-03,-0.10359E-02,-0.94128E-03,-0.59326E-03,
     &-0.29991E-03,-0.10624E-03
     & /
       real p95(0:21)
       data p95/
     & 0.24007E+01,-0.12600E+01,-0.22467E+00,-0.94142E+00,-0.42267E+00,
     & 0.14928E-01, 0.19716E+00, 0.17280E+00, 0.84807E-01, 0.17674E-01,
     &-0.10631E-01,-0.13505E-01,-0.76852E-02,-0.26952E-02,-0.59376E-03,
     &-0.48668E-03,-0.87427E-03,-0.10371E-02,-0.93915E-03,-0.58840E-03,
     &-0.29483E-03,-0.10238E-03
     & /
       real p96(0:21)
       data p96/
     & 0.24248E+01,-0.12756E+01,-0.22918E+00,-0.95022E+00,-0.42394E+00,
     & 0.17757E-01, 0.20015E+00, 0.17420E+00, 0.84860E-01, 0.17204E-01,
     &-0.11068E-01,-0.13740E-01,-0.77646E-02,-0.27075E-02,-0.59262E-03,
     &-0.48907E-03,-0.87809E-03,-0.10380E-02,-0.93688E-03,-0.58350E-03,
     &-0.28974E-03,-0.98560E-04
     & /
       real p97(0:21)
       data p97/
     & 0.24488E+01,-0.12911E+01,-0.23371E+00,-0.95899E+00,-0.42516E+00,
     & 0.20605E-01, 0.20315E+00, 0.17559E+00, 0.84901E-01, 0.16728E-01,
     &-0.11505E-01,-0.13974E-01,-0.78421E-02,-0.27187E-02,-0.59094E-03,
     &-0.49113E-03,-0.88167E-03,-0.10388E-02,-0.93450E-03,-0.57854E-03,
     &-0.28467E-03,-0.94765E-04
     & /
       real p98(0:21)
       data p98/
     & 0.24728E+01,-0.13067E+01,-0.23826E+00,-0.96773E+00,-0.42635E+00,
     & 0.23472E-01, 0.20613E+00, 0.17695E+00, 0.84928E-01, 0.16247E-01,
     &-0.11942E-01,-0.14206E-01,-0.79179E-02,-0.27289E-02,-0.58875E-03,
     &-0.49290E-03,-0.88501E-03,-0.10394E-02,-0.93200E-03,-0.57354E-03,
     &-0.27960E-03,-0.91000E-04
     & /
       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,  23,  23
     &,  23,  23,  23,  23,  23,  15,  15,  14,  14,  15
     &,  23,  23,  23,  23,  23,  23,  23,  23,  23,  23
     &,  23,  23,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  22,  22,  22,  22,  22
     &,  22,  22,  22,  22,  22,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  21,  21,  21,  21,  21,  21
     &,  21,  21,  21,  21,  21,  21,  21
     & /
       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.23) param(i,30) = p30(i)
             if (i.le.23) param(i,31) = p31(i)
             if (i.le.23) param(i,32) = p32(i)
             if (i.le.23) param(i,33) = p33(i)
             if (i.le.23) param(i,34) = p34(i)
             if (i.le.23) param(i,35) = p35(i)
             if (i.le.23) param(i,36) = p36(i)
             if (i.le.15) param(i,37) = p37(i)
             if (i.le.15) param(i,38) = p38(i)
             if (i.le.14) param(i,39) = p39(i)
             if (i.le.14) param(i,40) = p40(i)
             if (i.le.15) param(i,41) = p41(i)
             if (i.le.23) param(i,42) = p42(i)
             if (i.le.23) param(i,43) = p43(i)
             if (i.le.23) param(i,44) = p44(i)
             if (i.le.23) param(i,45) = p45(i)
             if (i.le.23) param(i,46) = p46(i)
             if (i.le.23) param(i,47) = p47(i)
             if (i.le.23) param(i,48) = p48(i)
             if (i.le.23) param(i,49) = p49(i)
             if (i.le.23) param(i,50) = p50(i)
             if (i.le.23) param(i,51) = p51(i)
             if (i.le.23) param(i,52) = p52(i)
             if (i.le.23) param(i,53) = p53(i)
             if (i.le.22) param(i,54) = p54(i)
             if (i.le.22) param(i,55) = p55(i)
             if (i.le.22) param(i,56) = p56(i)
             if (i.le.22) param(i,57) = p57(i)
             if (i.le.22) param(i,58) = p58(i)
             if (i.le.22) param(i,59) = p59(i)
             if (i.le.22) param(i,60) = p60(i)
             if (i.le.22) param(i,61) = p61(i)
             if (i.le.22) param(i,62) = p62(i)
             if (i.le.22) param(i,63) = p63(i)
             if (i.le.22) 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.22) param(i,70) = p70(i)
             if (i.le.22) param(i,71) = p71(i)
             if (i.le.22) param(i,72) = p72(i)
             if (i.le.22) param(i,73) = p73(i)
             if (i.le.22) param(i,74) = p74(i)
             if (i.le.22) param(i,75) = p75(i)
             if (i.le.22) param(i,76) = p76(i)
             if (i.le.21) param(i,77) = p77(i)
             if (i.le.21) param(i,78) = p78(i)
             if (i.le.21) param(i,79) = p79(i)
             if (i.le.21) param(i,80) = p80(i)
             if (i.le.21) param(i,81) = p81(i)
             if (i.le.21) param(i,82) = p82(i)
             if (i.le.21) param(i,83) = p83(i)
             if (i.le.21) param(i,84) = p84(i)
             if (i.le.21) param(i,85) = p85(i)
             if (i.le.21) param(i,86) = p86(i)
             if (i.le.21) param(i,87) = p87(i)
             if (i.le.21) param(i,88) = p88(i)
             if (i.le.21) param(i,89) = p89(i)
             if (i.le.21) param(i,90) = p90(i)
             if (i.le.21) param(i,91) = p91(i)
             if (i.le.21) param(i,92) = p92(i)
             if (i.le.21) param(i,93) = p93(i)
             if (i.le.21) param(i,94) = p94(i)
             if (i.le.21) param(i,95) = p95(i)
             if (i.le.21) param(i,96) = p96(i)
             if (i.le.21) param(i,97) = p97(i)
             if (i.le.21) param(i,98) = p98(i)
          enddo
       endif
            
       w3cphiq200=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
       w3cphiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) w3cphiq200=0.0
       if (q2.lt.q2min) w3cphiq200=0.0
       if ( x.gt. xmax) w3cphiq200=0.0
       if ( x.lt. xmin) w3cphiq200=0.0
       return
       end
       real function  wlcphiq200(xin,q2in)
***********************************************************
c  parametrization of wlcphiq200 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:15)
       data p15/
     & 0.35678E+00,-0.38602E+00, 0.42931E-03, 0.28049E-02, 0.20922E-01,
     & 0.97200E-02,-0.44029E-03,-0.32348E-02,-0.17353E-02, 0.13763E-04,
     & 0.58431E-03, 0.37962E-03, 0.66565E-04,-0.95984E-04,-0.10166E-03,
     &-0.60736E-04
     & /
       real p16(0:15)
       data p16/
     & 0.41536E+00,-0.46436E+00, 0.18907E-01, 0.38514E-02, 0.21820E-01,
     & 0.94440E-02,-0.80635E-03,-0.33713E-02,-0.16998E-02, 0.85970E-04,
     & 0.61880E-03, 0.37588E-03, 0.52381E-04,-0.10795E-03,-0.10509E-03,
     &-0.60671E-04
     & /
       real p17(0:15)
       data p17/
     & 0.48102E+00,-0.55368E+00, 0.41990E-01, 0.43577E-02, 0.22622E-01,
     & 0.90828E-02,-0.11820E-02,-0.34898E-02,-0.16505E-02, 0.16145E-03,
     & 0.65044E-03, 0.36873E-03, 0.37081E-04,-0.11994E-03,-0.10778E-03,
     &-0.60185E-04
     & /
       real p18(0:14)
       data p18/
     & 0.55117E+00,-0.65058E+00, 0.69009E-01, 0.41579E-02, 0.23303E-01,
     & 0.86686E-02,-0.15494E-02,-0.35871E-02,-0.15900E-02, 0.23104E-03,
     & 0.68736E-03, 0.35226E-03, 0.28028E-04,-0.11673E-03,-0.10918E-03
     & /
       real p19(0:14)
       data p19/
     & 0.62571E+00,-0.75492E+00, 0.99989E-01, 0.31528E-02, 0.23894E-01,
     & 0.81987E-02,-0.19006E-02,-0.36614E-02,-0.15216E-02, 0.30307E-03,
     & 0.71261E-03, 0.33760E-03, 0.12842E-04,-0.12574E-03,-0.11124E-03
     & /
       real p20(0:13)
       data p20/
     & 0.70452E+00,-0.86656E+00, 0.13495E+00, 0.12568E-02, 0.24417E-01,
     & 0.76895E-02,-0.22353E-02,-0.37159E-02,-0.14466E-02, 0.37292E-03,
     & 0.73422E-03, 0.32055E-03,-0.21385E-05,-0.13405E-03
     & /
       real p21(0:13)
       data p21/
     & 0.78749E+00,-0.98532E+00, 0.17390E+00,-0.16061E-02, 0.24896E-01,
     & 0.71493E-02,-0.25520E-02,-0.37523E-02,-0.13663E-02, 0.44019E-03,
     & 0.75244E-03, 0.30142E-03,-0.16755E-04,-0.14165E-03
     & /
       real p22(0:13)
       data p22/
     & 0.87449E+00,-0.11111E+01, 0.21683E+00,-0.55026E-02, 0.25357E-01,
     & 0.65849E-02,-0.28496E-02,-0.37724E-02,-0.12821E-02, 0.50458E-03,
     & 0.76753E-03, 0.28049E-03,-0.30881E-04,-0.14857E-03
     & /
       real p23(0:13)
       data p23/
     & 0.96540E+00,-0.12436E+01, 0.26371E+00,-0.10491E-01, 0.25825E-01,
     & 0.60016E-02,-0.31275E-02,-0.37775E-02,-0.11951E-02, 0.56589E-03,
     & 0.77972E-03, 0.25800E-03,-0.44413E-04,-0.15482E-03
     & /
       real p24(0:13)
       data p24/
     & 0.10601E+01,-0.13827E+01, 0.31451E+00,-0.16620E-01, 0.26322E-01,
     & 0.54039E-02,-0.33855E-02,-0.37691E-02,-0.11060E-02, 0.62401E-03,
     & 0.78927E-03, 0.23417E-03,-0.57270E-04,-0.16042E-03
     & /
       real p25(0:12)
       data p25/
     & 0.11585E+01,-0.15283E+01, 0.36920E+00,-0.23935E-01, 0.26874E-01,
     & 0.47950E-02,-0.36234E-02,-0.37486E-02,-0.10159E-02, 0.67885E-03,
     & 0.79639E-03, 0.20920E-03,-0.69391E-04
     & /
       real p26(0:12)
       data p26/
     & 0.12604E+01,-0.16802E+01, 0.42772E+00,-0.32471E-01, 0.27501E-01,
     & 0.41773E-02,-0.38415E-02,-0.37172E-02,-0.92523E-03, 0.73039E-03,
     & 0.80133E-03, 0.18325E-03,-0.80726E-04
     & /
       real p27(0:12)
       data p27/
     & 0.13658E+01,-0.18381E+01, 0.49002E+00,-0.42258E-01, 0.28225E-01,
     & 0.35527E-02,-0.40401E-02,-0.36761E-02,-0.83468E-03, 0.77865E-03,
     & 0.80427E-03, 0.15649E-03,-0.91240E-04
     & /
       real p28(0:12)
       data p28/
     & 0.14745E+01,-0.20020E+01, 0.55605E+00,-0.53322E-01, 0.29067E-01,
     & 0.29222E-02,-0.42198E-02,-0.36264E-02,-0.74470E-03, 0.82365E-03,
     & 0.80544E-03, 0.12904E-03,-0.10091E-03
     & /
       real p29(0:12)
       data p29/
     & 0.15865E+01,-0.21716E+01, 0.62575E+00,-0.65684E-01, 0.30045E-01,
     & 0.22863E-02,-0.43809E-02,-0.35690E-02,-0.65570E-03, 0.86546E-03,
     & 0.80501E-03, 0.10102E-03,-0.10972E-03
     & /
       real p30(0:12)
       data p30/
     & 0.17015E+01,-0.23468E+01, 0.69905E+00,-0.79359E-01, 0.31178E-01,
     & 0.16451E-02,-0.45241E-02,-0.35049E-02,-0.56802E-03, 0.90416E-03,
     & 0.80315E-03, 0.72530E-04,-0.11766E-03
     & /
       real p31(0:12)
       data p31/
     & 0.17470E+01,-0.24164E+01, 0.72852E+00,-0.85032E-01, 0.31663E-01,
     & 0.13933E-02,-0.45753E-02,-0.34778E-02,-0.53396E-03, 0.91844E-03,
     & 0.80197E-03, 0.61249E-04,-0.12055E-03
     & /
       real p32(0:12)
       data p32/
     & 0.18177E+01,-0.25243E+01, 0.77435E+00,-0.94002E-01, 0.32464E-01,
     & 0.10136E-02,-0.46493E-02,-0.34366E-02,-0.48285E-03, 0.93970E-03,
     & 0.80006E-03, 0.43895E-04,-0.12489E-03
     & /
       real p33(0:12)
       data p33/
     & 0.19365E+01,-0.27064E+01, 0.85264E+00,-0.10983E+00, 0.33927E-01,
     & 0.38119E-03,-0.47583E-02,-0.33641E-02,-0.39983E-03, 0.97244E-03,
     & 0.79598E-03, 0.15005E-04,-0.13137E-03
     & /
       real p34(0:12)
       data p34/
     & 0.20581E+01,-0.28938E+01, 0.93440E+00,-0.12699E+00, 0.35584E-01,
     &-0.26040E-03,-0.48515E-02,-0.32868E-02,-0.31849E-03, 0.10024E-02,
     & 0.79084E-03,-0.14198E-04,-0.13702E-03
     & /
       real p35(0:12)
       data p35/
     & 0.21827E+01,-0.30862E+01, 0.10196E+01,-0.14548E+00, 0.37448E-01,
     &-0.91210E-03,-0.49296E-02,-0.32052E-02,-0.23902E-03, 0.10297E-02,
     & 0.78478E-03,-0.43647E-04,-0.14183E-03
     & /
       real p36(0:12)
       data p36/
     & 0.23099E+01,-0.32837E+01, 0.11081E+01,-0.16532E+00, 0.39533E-01,
     &-0.15751E-02,-0.49928E-02,-0.31200E-02,-0.16157E-03, 0.10544E-02,
     & 0.77791E-03,-0.73285E-04,-0.14581E-03
     & /
       real p37(0:12)
       data p37/
     & 0.24399E+01,-0.34860E+01, 0.11999E+01,-0.18650E+00, 0.41852E-01,
     &-0.22507E-02,-0.50418E-02,-0.30317E-02,-0.86257E-04, 0.10766E-02,
     & 0.77035E-03,-0.10306E-03,-0.14898E-03
     & /
       real p38(0:12)
       data p38/
     & 0.25724E+01,-0.36930E+01, 0.12949E+01,-0.20904E+00, 0.44417E-01,
     &-0.29405E-02,-0.50770E-02,-0.29408E-02,-0.13194E-04, 0.10964E-02,
     & 0.76221E-03,-0.13293E-03,-0.15133E-03
     & /
       real p39(0:12)
       data p39/
     & 0.27075E+01,-0.39046E+01, 0.13931E+01,-0.23292E+00, 0.47239E-01,
     &-0.36460E-02,-0.50988E-02,-0.28477E-02, 0.57548E-04, 0.11139E-02,
     & 0.75358E-03,-0.16285E-03,-0.15288E-03
     & /
       real p40(0:12)
       data p40/
     & 0.28449E+01,-0.41206E+01, 0.14944E+01,-0.25815E+00, 0.50328E-01,
     &-0.43691E-02,-0.51076E-02,-0.27529E-02, 0.12591E-03, 0.11292E-02,
     & 0.74454E-03,-0.19279E-03,-0.15366E-03
     & /
       real p41(0:12)
       data p41/
     & 0.29847E+01,-0.43410E+01, 0.15987E+01,-0.28472E+00, 0.53694E-01,
     &-0.51114E-02,-0.51039E-02,-0.26568E-02, 0.19186E-03, 0.11424E-02,
     & 0.73519E-03,-0.22272E-03,-0.15366E-03
     & /
       real p42(0:12)
       data p42/
     & 0.31268E+01,-0.45656E+01, 0.17061E+01,-0.31263E+00, 0.57346E-01,
     &-0.58750E-02,-0.50880E-02,-0.25598E-02, 0.25538E-03, 0.11537E-02,
     & 0.72559E-03,-0.25261E-03,-0.15292E-03
     & /
       real p43(0:12)
       data p43/
     & 0.32711E+01,-0.47942E+01, 0.18164E+01,-0.34188E+00, 0.61292E-01,
     &-0.66617E-02,-0.50602E-02,-0.24621E-02, 0.31644E-03, 0.11629E-02,
     & 0.71582E-03,-0.28245E-03,-0.15144E-03
     & /
       real p44(0:12)
       data p44/
     & 0.34175E+01,-0.50268E+01, 0.19295E+01,-0.37245E+00, 0.65539E-01,
     &-0.74734E-02,-0.50210E-02,-0.23640E-02, 0.37507E-03, 0.11704E-02,
     & 0.70594E-03,-0.31221E-03,-0.14925E-03
     & /
       real p45(0:10)
       data p45/
     & 0.35660E+01,-0.52632E+01, 0.20455E+01,-0.40434E+00, 0.70094E-01,
     &-0.83121E-02,-0.49705E-02,-0.22659E-02, 0.43125E-03, 0.11762E-02,
     & 0.69601E-03
     & /
       real p46(0:10)
       data p46/
     & 0.37164E+01,-0.55034E+01, 0.21642E+01,-0.43753E+00, 0.74965E-01,
     &-0.91798E-02,-0.49091E-02,-0.21680E-02, 0.48503E-03, 0.11803E-02,
     & 0.68608E-03
     & /
       real p47(0:10)
       data p47/
     & 0.38688E+01,-0.57472E+01, 0.22855E+01,-0.47202E+00, 0.80155E-01,
     &-0.10078E-01,-0.48370E-02,-0.20704E-02, 0.53641E-03, 0.11829E-02,
     & 0.67619E-03
     & /
       real p48(0:10)
       data p48/
     & 0.40231E+01,-0.59944E+01, 0.24095E+01,-0.50779E+00, 0.85671E-01,
     &-0.11010E-01,-0.47544E-02,-0.19735E-02, 0.58544E-03, 0.11839E-02,
     & 0.66641E-03
     & /
       real p49(0:10)
       data p49/
     & 0.41791E+01,-0.62451E+01, 0.25361E+01,-0.54483E+00, 0.91517E-01,
     &-0.11976E-01,-0.46616E-02,-0.18774E-02, 0.63216E-03, 0.11837E-02,
     & 0.65675E-03
     & /
       real p50(0:10)
       data p50/
     & 0.43369E+01,-0.64990E+01, 0.26652E+01,-0.58313E+00, 0.97697E-01,
     &-0.12979E-01,-0.45587E-02,-0.17822E-02, 0.67660E-03, 0.11820E-02,
     & 0.64727E-03
     & /
       real p51(0:10)
       data p51/
     & 0.44963E+01,-0.67561E+01, 0.27967E+01,-0.62268E+00, 0.10421E+00,
     &-0.14020E-01,-0.44458E-02,-0.16882E-02, 0.71881E-03, 0.11792E-02,
     & 0.63800E-03
     & /
       real p52(0:10)
       data p52/
     & 0.46574E+01,-0.70163E+01, 0.29306E+01,-0.66346E+00, 0.11107E+00,
     &-0.15102E-01,-0.43231E-02,-0.15954E-02, 0.75885E-03, 0.11752E-02,
     & 0.62895E-03
     & /
       real p53(0:10)
       data p53/
     & 0.48200E+01,-0.72795E+01, 0.30668E+01,-0.70545E+00, 0.11827E+00,
     &-0.16225E-01,-0.41906E-02,-0.15040E-02, 0.79676E-03, 0.11700E-02,
     & 0.62017E-03
     & /
       real p54(0:10)
       data p54/
     & 0.49841E+01,-0.75456E+01, 0.32054E+01,-0.74864E+00, 0.12582E+00,
     &-0.17392E-01,-0.40486E-02,-0.14142E-02, 0.83259E-03, 0.11639E-02,
     & 0.61168E-03
     & /
       real p55(0:10)
       data p55/
     & 0.51497E+01,-0.78144E+01, 0.33461E+01,-0.79302E+00, 0.13372E+00,
     &-0.18605E-01,-0.38971E-02,-0.13259E-02, 0.86641E-03, 0.11567E-02,
     & 0.60349E-03
     & /
       real p56(0:10)
       data p56/
     & 0.53167E+01,-0.80860E+01, 0.34890E+01,-0.83856E+00, 0.14196E+00,
     &-0.19865E-01,-0.37360E-02,-0.12394E-02, 0.89826E-03, 0.11486E-02,
     & 0.59563E-03
     & /
       real p57(0:10)
       data p57/
     & 0.54850E+01,-0.83601E+01, 0.36340E+01,-0.88527E+00, 0.15056E+00,
     &-0.21173E-01,-0.35655E-02,-0.11547E-02, 0.92820E-03, 0.11397E-02,
     & 0.58812E-03
     & /
       real p58(0: 9)
       data p58/
     & 0.56546E+01,-0.86368E+01, 0.37811E+01,-0.93310E+00, 0.15950E+00,
     &-0.22531E-01,-0.33857E-02,-0.10718E-02, 0.95629E-03, 0.11300E-02
     & /
       real p59(0: 9)
       data p59/
     & 0.58254E+01,-0.89160E+01, 0.39302E+01,-0.98206E+00, 0.16880E+00,
     &-0.23941E-01,-0.31964E-02,-0.99095E-03, 0.98259E-03, 0.11195E-02
     & /
       real p60(0: 9)
       data p60/
     & 0.59975E+01,-0.91975E+01, 0.40812E+01,-0.10321E+01, 0.17845E+00,
     &-0.25403E-01,-0.29978E-02,-0.91208E-03, 0.10071E-02, 0.11082E-02
     & /
       real p61(0: 9)
       data p61/
     & 0.61707E+01,-0.94812E+01, 0.42342E+01,-0.10833E+01, 0.18845E+00,
     &-0.26920E-01,-0.27898E-02,-0.83528E-03, 0.10300E-02, 0.10964E-02
     & /
       real p62(0: 9)
       data p62/
     & 0.63450E+01,-0.97672E+01, 0.43890E+01,-0.11355E+01, 0.19881E+00,
     &-0.28492E-01,-0.25724E-02,-0.76062E-03, 0.10513E-02, 0.10839E-02
     & /
       real p63(0: 9)
       data p63/
     & 0.65204E+01,-0.10055E+02, 0.45456E+01,-0.11888E+01, 0.20952E+00,
     &-0.30121E-01,-0.23455E-02,-0.68812E-03, 0.10709E-02, 0.10708E-02
     & /
       real p64(0: 9)
       data p64/
     & 0.66968E+01,-0.10345E+02, 0.47040E+01,-0.12431E+01, 0.22057E+00,
     &-0.31808E-01,-0.21092E-02,-0.61785E-03, 0.10891E-02, 0.10571E-02
     & /
       real p65(0: 7)
       data p65/
     & 0.68742E+01,-0.10637E+02, 0.48640E+01,-0.12986E+01, 0.23201E+00,
     &-0.34460E-01,-0.13216E-02, 0.49318E-03
     & /
       real p66(0: 7)
       data p66/
     & 0.70525E+01,-0.10931E+02, 0.50258E+01,-0.13549E+01, 0.24378E+00,
     &-0.36293E-01,-0.10702E-02, 0.54430E-03
     & /
       real p67(0: 7)
       data p67/
     & 0.72317E+01,-0.11227E+02, 0.51892E+01,-0.14123E+01, 0.25590E+00,
     &-0.38186E-01,-0.80877E-03, 0.59267E-03
     & /
       real p68(0: 7)
       data p68/
     & 0.74118E+01,-0.11525E+02, 0.53542E+01,-0.14706E+01, 0.26837E+00,
     &-0.40141E-01,-0.53724E-03, 0.63827E-03
     & /
       real p69(0: 7)
       data p69/
     & 0.75928E+01,-0.11824E+02, 0.55207E+01,-0.15298E+01, 0.28118E+00,
     &-0.42158E-01,-0.25556E-03, 0.68113E-03
     & /
       real p70(0: 7)
       data p70/
     & 0.77745E+01,-0.12125E+02, 0.56887E+01,-0.15900E+01, 0.29434E+00,
     &-0.44239E-01, 0.36350E-04, 0.72124E-03
     & /
       real p71(0: 7)
       data p71/
     & 0.79570E+01,-0.12428E+02, 0.58582E+01,-0.16511E+01, 0.30783E+00,
     &-0.46385E-01, 0.33856E-03, 0.75862E-03
     & /
       real p72(0: 7)
       data p72/
     & 0.81402E+01,-0.12732E+02, 0.60291E+01,-0.17131E+01, 0.32167E+00,
     &-0.48595E-01, 0.65114E-03, 0.79326E-03
     & /
       real p73(0: 7)
       data p73/
     & 0.83242E+01,-0.13037E+02, 0.62013E+01,-0.17761E+01, 0.33584E+00,
     &-0.50871E-01, 0.97416E-03, 0.82518E-03
     & /
       real p74(0: 7)
       data p74/
     & 0.85088E+01,-0.13344E+02, 0.63749E+01,-0.18398E+01, 0.35035E+00,
     &-0.53214E-01, 0.13077E-02, 0.85439E-03
     & /
       real p75(0: 7)
       data p75/
     & 0.86940E+01,-0.13653E+02, 0.65498E+01,-0.19045E+01, 0.36519E+00,
     &-0.55623E-01, 0.16519E-02, 0.88089E-03
     & /
       real p76(0: 9)
       data p76/
     & 0.88799E+01,-0.13962E+02, 0.67261E+01,-0.19698E+01, 0.38017E+00,
     &-0.56904E-01, 0.14847E-02, 0.41474E-04, 0.12074E-02, 0.86323E-03
     & /
       real p77(0: 9)
       data p77/
     & 0.90663E+01,-0.14273E+02, 0.69035E+01,-0.20361E+01, 0.39566E+00,
     &-0.59423E-01, 0.18496E-02, 0.80484E-04, 0.12104E-02, 0.84534E-03
     & /
       real p78(0: 9)
       data p78/
     & 0.92533E+01,-0.14585E+02, 0.70821E+01,-0.21032E+01, 0.41147E+00,
     &-0.62011E-01, 0.22249E-02, 0.11698E-03, 0.12126E-02, 0.82729E-03
     & /
       real p79(0: 9)
       data p79/
     & 0.94408E+01,-0.14899E+02, 0.72618E+01,-0.21712E+01, 0.42760E+00,
     &-0.64668E-01, 0.26107E-02, 0.15096E-03, 0.12139E-02, 0.80909E-03
     & /
       real p80(0: 9)
       data p80/
     & 0.96287E+01,-0.15213E+02, 0.74427E+01,-0.22399E+01, 0.44405E+00,
     &-0.67394E-01, 0.30072E-02, 0.18242E-03, 0.12144E-02, 0.79075E-03
     & /
       real p81(0: 9)
       data p81/
     & 0.98172E+01,-0.15528E+02, 0.76247E+01,-0.23093E+01, 0.46082E+00,
     &-0.70190E-01, 0.34143E-02, 0.21134E-03, 0.12143E-02, 0.77230E-03
     & /
       real p82(0: 9)
       data p82/
     & 0.10006E+02,-0.15845E+02, 0.78077E+01,-0.23796E+01, 0.47791E+00,
     &-0.73056E-01, 0.38323E-02, 0.23773E-03, 0.12134E-02, 0.75375E-03
     & /
       real p83(0: 9)
       data p83/
     & 0.10195E+02,-0.16162E+02, 0.79917E+01,-0.24505E+01, 0.49530E+00,
     &-0.75992E-01, 0.42611E-02, 0.26158E-03, 0.12118E-02, 0.73511E-03
     & /
       real p84(0: 9)
       data p84/
     & 0.10385E+02,-0.16480E+02, 0.81768E+01,-0.25222E+01, 0.51301E+00,
     &-0.78999E-01, 0.47009E-02, 0.28288E-03, 0.12096E-02, 0.71639E-03
     & /
       real p85(0: 9)
       data p85/
     & 0.10575E+02,-0.16799E+02, 0.83628E+01,-0.25946E+01, 0.53102E+00,
     &-0.82076E-01, 0.51516E-02, 0.30164E-03, 0.12068E-02, 0.69761E-03
     & /
       real p86(0: 9)
       data p86/
     & 0.10766E+02,-0.17119E+02, 0.85498E+01,-0.26677E+01, 0.54933E+00,
     &-0.85225E-01, 0.56136E-02, 0.31785E-03, 0.12034E-02, 0.67878E-03
     & /
       real p87(0: 9)
       data p87/
     & 0.10957E+02,-0.17440E+02, 0.87376E+01,-0.27415E+01, 0.56795E+00,
     &-0.88444E-01, 0.60867E-02, 0.33151E-03, 0.11995E-02, 0.65991E-03
     & /
       real p88(0: 9)
       data p88/
     & 0.11148E+02,-0.17761E+02, 0.89264E+01,-0.28159E+01, 0.58686E+00,
     &-0.91735E-01, 0.65711E-02, 0.34261E-03, 0.11951E-02, 0.64100E-03
     & /
       real p89(0: 9)
       data p89/
     & 0.11339E+02,-0.18084E+02, 0.91160E+01,-0.28910E+01, 0.60606E+00,
     &-0.95097E-01, 0.70668E-02, 0.35117E-03, 0.11902E-02, 0.62207E-03
     & /
       real p90(0: 9)
       data p90/
     & 0.11531E+02,-0.18406E+02, 0.93064E+01,-0.29667E+01, 0.62556E+00,
     &-0.98531E-01, 0.75740E-02, 0.35716E-03, 0.11848E-02, 0.60312E-03
     & /
       real p91(0: 9)
       data p91/
     & 0.11723E+02,-0.18730E+02, 0.94976E+01,-0.30431E+01, 0.64534E+00,
     &-0.10204E+00, 0.80927E-02, 0.36060E-03, 0.11790E-02, 0.58417E-03
     & /
       real p92(0: 9)
       data p92/
     & 0.11915E+02,-0.19054E+02, 0.96896E+01,-0.31201E+01, 0.66541E+00,
     &-0.10561E+00, 0.86229E-02, 0.36149E-03, 0.11728E-02, 0.56523E-03
     & /
       real p93(0: 9)
       data p93/
     & 0.12115E+02,-0.19392E+02, 0.98889E+01,-0.31998E+01, 0.68621E+00,
     &-0.10933E+00, 0.91710E-02, 0.36005E-03, 0.11670E-02, 0.54664E-03
     & /
       real p94(0: 9)
       data p94/
     & 0.12317E+02,-0.19732E+02, 0.10090E+02,-0.32806E+01, 0.70741E+00,
     &-0.11314E+00, 0.97330E-02, 0.35609E-03, 0.11610E-02, 0.52809E-03
     & /
       real p95(0: 9)
       data p95/
     & 0.12520E+02,-0.20074E+02, 0.10293E+02,-0.33621E+01, 0.72892E+00,
     &-0.11703E+00, 0.10308E-01, 0.34955E-03, 0.11546E-02, 0.50950E-03
     & /
       real p96(0: 9)
       data p96/
     & 0.12723E+02,-0.20417E+02, 0.10496E+02,-0.34443E+01, 0.75075E+00,
     &-0.12100E+00, 0.10896E-01, 0.34041E-03, 0.11479E-02, 0.49090E-03
     & /
       real p97(0: 9)
       data p97/
     & 0.12927E+02,-0.20761E+02, 0.10701E+02,-0.35272E+01, 0.77288E+00,
     &-0.12505E+00, 0.11497E-01, 0.32867E-03, 0.11408E-02, 0.47228E-03
     & /
       real p98(0: 9)
       data p98/
     & 0.13131E+02,-0.21105E+02, 0.10906E+02,-0.36108E+01, 0.79532E+00,
     &-0.12918E+00, 0.12111E-01, 0.31432E-03, 0.11335E-02, 0.45365E-03
     & /
       data  nqbin /    0
     &,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
     &,   0,   0,   0,  15,  15,  15,  14,  14,  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,  10,  10,  10,  10,  10,  10,  10
     &,  10,  10,  10,  10,  10,  10,   9,   9,   9,   9
     &,   9,   9,   9,   7,   7,   7,   7,   7,   7,   7
     &,   7,   7,   7,   7,   9,   9,   9,   9,   9,   9
     &,   9,   9,   9,   9,   9,   9,   9,   9,   9,   9
     &,   9,   9,   9,   9,   9,   9,   9
     & /
       if(ilsave.EQ.0) THEN
          ilsave=1
          do i=0,64
             if (i.le.15) param(i,15) = p15(i)
             if (i.le.15) param(i,16) = p16(i)
             if (i.le.15) param(i,17) = p17(i)
             if (i.le.14) param(i,18) = p18(i)
             if (i.le.14) param(i,19) = p19(i)
             if (i.le.13) param(i,20) = p20(i)
             if (i.le.13) param(i,21) = p21(i)
             if (i.le.13) 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.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.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. 9) param(i,58) = p58(i)
             if (i.le. 9) param(i,59) = p59(i)
             if (i.le. 9) param(i,60) = p60(i)
             if (i.le. 9) param(i,61) = p61(i)
             if (i.le. 9) param(i,62) = p62(i)
             if (i.le. 9) param(i,63) = p63(i)
             if (i.le. 9) param(i,64) = p64(i)
             if (i.le. 7) param(i,65) = p65(i)
             if (i.le. 7) param(i,66) = p66(i)
             if (i.le. 7) param(i,67) = p67(i)
             if (i.le. 7) param(i,68) = p68(i)
             if (i.le. 7) param(i,69) = p69(i)
             if (i.le. 7) param(i,70) = p70(i)
             if (i.le. 7) param(i,71) = p71(i)
             if (i.le. 7) param(i,72) = p72(i)
             if (i.le. 7) param(i,73) = p73(i)
             if (i.le. 7) param(i,74) = p74(i)
             if (i.le. 7) param(i,75) = p75(i)
             if (i.le. 9) param(i,76) = p76(i)
             if (i.le. 9) param(i,77) = p77(i)
             if (i.le. 9) param(i,78) = p78(i)
             if (i.le. 9) param(i,79) = p79(i)
             if (i.le. 9) param(i,80) = p80(i)
             if (i.le. 9) param(i,81) = p81(i)
             if (i.le. 9) param(i,82) = p82(i)
             if (i.le. 9) param(i,83) = p83(i)
             if (i.le. 9) param(i,84) = p84(i)
             if (i.le. 9) param(i,85) = p85(i)
             if (i.le. 9) param(i,86) = p86(i)
             if (i.le. 9) param(i,87) = p87(i)
             if (i.le. 9) param(i,88) = p88(i)
             if (i.le. 9) param(i,89) = p89(i)
             if (i.le. 9) 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
            
       wlcphiq200=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
       wlcphiq200=(a*(1.0-x)**1.5)/log10(q2)
       if (q2.gt.q2max) wlcphiq200=0.0
       if (q2.lt.q2min) wlcphiq200=0.0
       if ( x.gt. xmax) wlcphiq200=0.0
       if ( x.lt. xmin) wlcphiq200=0.0
       return
       end
