      SUBROUTINE i_2006_fitb
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (NQ2MAX= 30,NZMAX= 100)
      DIMENSION U_GRD(NZMAX,NQ2MAX),
     &          G_GRD(NZMAX,NQ2MAX),
     &          F2GRD(NZMAX,NQ2MAX),
     &          FLGRD(NZMAX,NQ2MAX),
     &          C2GRD(NZMAX,NQ2MAX),
     &          CLGRD(NZMAX,NQ2MAX),
     &          F2GRR(NZMAX,NQ2MAX),
     &          FLGRR(NZMAX,NQ2MAX),
     &          C2GRR(NZMAX,NQ2MAX),
     &          CLGRR(NZMAX,NQ2MAX)
      DIMENSION U_GRDL(NZMAX,NQ2MAX),
     &          G_GRDL(NZMAX,NQ2MAX),
     &          F2GRDL(NZMAX,NQ2MAX),
     &          FLGRDL(NZMAX,NQ2MAX),
     &          C2GRDL(NZMAX,NQ2MAX),
     &          CLGRDL(NZMAX,NQ2MAX),
     &          F2GRRL(NZMAX,NQ2MAX),
     &          FLGRRL(NZMAX,NQ2MAX),
     &          C2GRRL(NZMAX,NQ2MAX),
     &          CLGRRL(NZMAX,NQ2MAX)
      COMMON /CPARAM/ U_GRD,G_GRD,
     &                F2GRD,FLGRD,C2GRD,CLGRD,
     &                F2GRR,FLGRR,C2GRR,CLGRR
      data ((u_grdl(i,j),j=1,30),i=  1, 10)/
     &-0.19785E-01,-0.12204E-01,-0.46167E-02, 0.36256E-02, 0.12787E-01,
     & 0.22710E-01, 0.33242E-01, 0.44322E-01, 0.55706E-01, 0.67424E-01,
     & 0.79419E-01, 0.91624E-01, 0.10399E+00, 0.11649E+00, 0.12909E+00,
     & 0.14175E+00, 0.15446E+00, 0.16720E+00, 0.17995E+00, 0.19270E+00,
     & 0.20543E+00, 0.21814E+00, 0.23084E+00, 0.24353E+00, 0.25623E+00,
     & 0.26892E+00, 0.28162E+00, 0.29431E+00, 0.30701E+00, 0.31970E+00,
     &-0.19629E-01,-0.12105E-01,-0.45751E-02, 0.35872E-02, 0.12634E-01,
     & 0.22409E-01, 0.32766E-01, 0.43641E-01, 0.54802E-01, 0.66275E-01,
     & 0.78005E-01, 0.89929E-01, 0.10200E+00, 0.11419E+00, 0.12646E+00,
     & 0.13879E+00, 0.15115E+00, 0.16354E+00, 0.17593E+00, 0.18830E+00,
     & 0.20066E+00, 0.21298E+00, 0.22529E+00, 0.23760E+00, 0.24991E+00,
     & 0.26221E+00, 0.27452E+00, 0.28683E+00, 0.29914E+00, 0.31145E+00,
     &-0.19472E-01,-0.12005E-01,-0.45335E-02, 0.35489E-02, 0.12482E-01,
     & 0.22111E-01, 0.32293E-01, 0.42966E-01, 0.53907E-01, 0.65140E-01,
     & 0.76610E-01, 0.88256E-01, 0.10004E+00, 0.11192E+00, 0.12387E+00,
     & 0.13587E+00, 0.14790E+00, 0.15994E+00, 0.17197E+00, 0.18399E+00,
     & 0.19597E+00, 0.20792E+00, 0.21985E+00, 0.23178E+00, 0.24371E+00,
     & 0.25564E+00, 0.26758E+00, 0.27951E+00, 0.29144E+00, 0.30337E+00,
     &-0.19314E-01,-0.11906E-01,-0.44917E-02, 0.35108E-02, 0.12330E-01,
     & 0.21815E-01, 0.31825E-01, 0.42297E-01, 0.53021E-01, 0.64017E-01,
     & 0.75231E-01, 0.86606E-01, 0.98100E-01, 0.10968E+00, 0.12133E+00,
     & 0.13300E+00, 0.14470E+00, 0.15640E+00, 0.16809E+00, 0.17975E+00,
     & 0.19137E+00, 0.20296E+00, 0.21452E+00, 0.22608E+00, 0.23764E+00,
     & 0.24920E+00, 0.26077E+00, 0.27233E+00, 0.28389E+00, 0.29545E+00,
     &-0.19156E-01,-0.11806E-01,-0.44498E-02, 0.34728E-02, 0.12179E-01,
     & 0.21521E-01, 0.31360E-01, 0.41636E-01, 0.52146E-01, 0.62908E-01,
     & 0.73871E-01, 0.84978E-01, 0.96192E-01, 0.10748E+00, 0.11882E+00,
     & 0.13018E+00, 0.14156E+00, 0.15292E+00, 0.16427E+00, 0.17559E+00,
     & 0.18686E+00, 0.19809E+00, 0.20929E+00, 0.22050E+00, 0.23170E+00,
     & 0.24290E+00, 0.25411E+00, 0.26531E+00, 0.27651E+00, 0.28772E+00,
     &-0.18998E-01,-0.11705E-01,-0.44079E-02, 0.34349E-02, 0.12029E-01,
     & 0.21228E-01, 0.30900E-01, 0.40980E-01, 0.51280E-01, 0.61812E-01,
     & 0.72528E-01, 0.83373E-01, 0.94310E-01, 0.10531E+00, 0.11635E+00,
     & 0.12741E+00, 0.13846E+00, 0.14951E+00, 0.16052E+00, 0.17150E+00,
     & 0.18243E+00, 0.19332E+00, 0.20417E+00, 0.21503E+00, 0.22588E+00,
     & 0.23674E+00, 0.24759E+00, 0.25845E+00, 0.26930E+00, 0.28016E+00,
     &-0.18839E-01,-0.11605E-01,-0.43658E-02, 0.33973E-02, 0.11879E-01,
     & 0.20938E-01, 0.30443E-01, 0.40331E-01, 0.50423E-01, 0.60730E-01,
     & 0.71202E-01, 0.81790E-01, 0.92457E-01, 0.10318E+00, 0.11392E+00,
     & 0.12468E+00, 0.13543E+00, 0.14615E+00, 0.15685E+00, 0.16750E+00,
     & 0.17809E+00, 0.18864E+00, 0.19915E+00, 0.20966E+00, 0.22017E+00,
     & 0.23069E+00, 0.24120E+00, 0.25171E+00, 0.26223E+00, 0.27274E+00,
     &-0.18679E-01,-0.11503E-01,-0.43236E-02, 0.33598E-02, 0.11731E-01,
     & 0.20650E-01, 0.29990E-01, 0.39689E-01, 0.49576E-01, 0.59660E-01,
     & 0.69893E-01, 0.80228E-01, 0.90630E-01, 0.10107E+00, 0.11153E+00,
     & 0.12199E+00, 0.13244E+00, 0.14286E+00, 0.15323E+00, 0.16356E+00,
     & 0.17383E+00, 0.18405E+00, 0.19423E+00, 0.20441E+00, 0.21459E+00,
     & 0.22477E+00, 0.23495E+00, 0.24513E+00, 0.25531E+00, 0.26549E+00,
     &-0.18519E-01,-0.11402E-01,-0.42813E-02, 0.33225E-02, 0.11583E-01,
     & 0.20364E-01, 0.29542E-01, 0.39053E-01, 0.48739E-01, 0.58604E-01,
     & 0.68602E-01, 0.78688E-01, 0.88830E-01, 0.99001E-01, 0.10918E+00,
     & 0.11935E+00, 0.12950E+00, 0.13962E+00, 0.14969E+00, 0.15971E+00,
     & 0.16965E+00, 0.17955E+00, 0.18940E+00, 0.19926E+00, 0.20912E+00,
     & 0.21898E+00, 0.22883E+00, 0.23869E+00, 0.24855E+00, 0.25840E+00,
     &-0.18358E-01,-0.11300E-01,-0.42388E-02, 0.32854E-02, 0.11437E-01,
     & 0.20080E-01, 0.29097E-01, 0.38424E-01, 0.47910E-01, 0.57560E-01,
     & 0.67327E-01, 0.77169E-01, 0.87056E-01, 0.96962E-01, 0.10687E+00,
     & 0.11676E+00, 0.12662E+00, 0.13644E+00, 0.14621E+00, 0.15592E+00,
     & 0.16555E+00, 0.17513E+00, 0.18468E+00, 0.19422E+00, 0.20376E+00,
     & 0.21330E+00, 0.22284E+00, 0.23239E+00, 0.24193E+00, 0.25147E+00/

      data ((u_grdl(i,j),j=1,30),i= 11, 20)/
     &-0.18196E-01,-0.11198E-01,-0.41963E-02, 0.32485E-02, 0.11291E-01,
     & 0.19799E-01, 0.28656E-01, 0.37801E-01, 0.47091E-01, 0.56529E-01,
     & 0.66069E-01, 0.75672E-01, 0.85308E-01, 0.94954E-01, 0.10459E+00,
     & 0.11421E+00, 0.12378E+00, 0.13331E+00, 0.14279E+00, 0.15220E+00,
     & 0.16153E+00, 0.17081E+00, 0.18004E+00, 0.18928E+00, 0.19851E+00,
     & 0.20774E+00, 0.21698E+00, 0.22621E+00, 0.23544E+00, 0.24468E+00,
     &-0.18033E-01,-0.11095E-01,-0.41536E-02, 0.32119E-02, 0.11146E-01,
     & 0.19519E-01, 0.28219E-01, 0.37184E-01, 0.46282E-01, 0.55510E-01,
     & 0.64828E-01, 0.74196E-01, 0.83586E-01, 0.92977E-01, 0.10235E+00,
     & 0.11170E+00, 0.12100E+00, 0.13025E+00, 0.13944E+00, 0.14856E+00,
     & 0.15759E+00, 0.16657E+00, 0.17551E+00, 0.18444E+00, 0.19338E+00,
     & 0.20231E+00, 0.21125E+00, 0.22018E+00, 0.22911E+00, 0.23805E+00,
     &-0.17871E-01,-0.10993E-01,-0.41108E-02, 0.31755E-02, 0.11001E-01,
     & 0.19242E-01, 0.27786E-01, 0.36574E-01, 0.45482E-01, 0.54505E-01,
     & 0.63603E-01, 0.72741E-01, 0.81890E-01, 0.91032E-01, 0.10015E+00,
     & 0.10923E+00, 0.11826E+00, 0.12723E+00, 0.13614E+00, 0.14498E+00,
     & 0.15373E+00, 0.16242E+00, 0.17106E+00, 0.17971E+00, 0.18835E+00,
     & 0.19699E+00, 0.20563E+00, 0.21428E+00, 0.22292E+00, 0.23156E+00,
     &-0.17707E-01,-0.10889E-01,-0.40678E-02, 0.31393E-02, 0.10858E-01,
     & 0.18966E-01, 0.27357E-01, 0.35970E-01, 0.44690E-01, 0.53512E-01,
     & 0.62395E-01, 0.71306E-01, 0.80220E-01, 0.89116E-01, 0.97982E-01,
     & 0.10680E+00, 0.11557E+00, 0.12428E+00, 0.13291E+00, 0.14147E+00,
     & 0.14994E+00, 0.15835E+00, 0.16671E+00, 0.17507E+00, 0.18342E+00,
     & 0.19178E+00, 0.20014E+00, 0.20850E+00, 0.21686E+00, 0.22522E+00,
     &-0.17543E-01,-0.10785E-01,-0.40247E-02, 0.31034E-02, 0.10716E-01,
     & 0.18693E-01, 0.26932E-01, 0.35373E-01, 0.43909E-01, 0.52531E-01,
     & 0.61203E-01, 0.69892E-01, 0.78574E-01, 0.87231E-01, 0.95850E-01,
     & 0.10442E+00, 0.11293E+00, 0.12137E+00, 0.12974E+00, 0.13803E+00,
     & 0.14623E+00, 0.15436E+00, 0.16244E+00, 0.17052E+00, 0.17861E+00,
     & 0.18669E+00, 0.19477E+00, 0.20285E+00, 0.21094E+00, 0.21902E+00,
     &-0.17379E-01,-0.10682E-01,-0.39814E-02, 0.30679E-02, 0.10575E-01,
     & 0.18422E-01, 0.26511E-01, 0.34782E-01, 0.43136E-01, 0.51563E-01,
     & 0.60027E-01, 0.68498E-01, 0.76953E-01, 0.85376E-01, 0.93754E-01,
     & 0.10208E+00, 0.11034E+00, 0.11852E+00, 0.12663E+00, 0.13466E+00,
     & 0.14259E+00, 0.15045E+00, 0.15826E+00, 0.16608E+00, 0.17389E+00,
     & 0.18170E+00, 0.18952E+00, 0.19733E+00, 0.20514E+00, 0.21296E+00,
     &-0.17213E-01,-0.10577E-01,-0.39379E-02, 0.30326E-02, 0.10434E-01,
     & 0.18154E-01, 0.26094E-01, 0.34197E-01, 0.42372E-01, 0.50607E-01,
     & 0.58867E-01, 0.67124E-01, 0.75358E-01, 0.83551E-01, 0.91692E-01,
     & 0.99774E-01, 0.10779E+00, 0.11572E+00, 0.12358E+00, 0.13135E+00,
     & 0.13902E+00, 0.14662E+00, 0.15417E+00, 0.16172E+00, 0.16927E+00,
     & 0.17683E+00, 0.18438E+00, 0.19193E+00, 0.19948E+00, 0.20703E+00,
     &-0.17048E-01,-0.10473E-01,-0.38942E-02, 0.29977E-02, 0.10295E-01,
     & 0.17887E-01, 0.25681E-01, 0.33619E-01, 0.41618E-01, 0.49664E-01,
     & 0.57723E-01, 0.65770E-01, 0.73786E-01, 0.81754E-01, 0.89665E-01,
     & 0.97511E-01, 0.10528E+00, 0.11297E+00, 0.12058E+00, 0.12810E+00,
     & 0.13552E+00, 0.14287E+00, 0.15016E+00, 0.15746E+00, 0.16476E+00,
     & 0.17205E+00, 0.17935E+00, 0.18665E+00, 0.19394E+00, 0.20124E+00,
     &-0.16881E-01,-0.10367E-01,-0.38503E-02, 0.29632E-02, 0.10157E-01,
     & 0.17623E-01, 0.25272E-01, 0.33047E-01, 0.40872E-01, 0.48732E-01,
     & 0.56595E-01, 0.64437E-01, 0.72239E-01, 0.79987E-01, 0.87671E-01,
     & 0.95287E-01, 0.10282E+00, 0.11028E+00, 0.11765E+00, 0.12492E+00,
     & 0.13209E+00, 0.13919E+00, 0.14624E+00, 0.15329E+00, 0.16034E+00,
     & 0.16739E+00, 0.17443E+00, 0.18148E+00, 0.18853E+00, 0.19558E+00,
     &-0.16715E-01,-0.10262E-01,-0.38062E-02, 0.29291E-02, 0.10020E-01,
     & 0.17361E-01, 0.24867E-01, 0.32482E-01, 0.40136E-01, 0.47813E-01,
     & 0.55483E-01, 0.63123E-01, 0.70716E-01, 0.78248E-01, 0.85712E-01,
     & 0.93103E-01, 0.10041E+00, 0.10763E+00, 0.11476E+00, 0.12180E+00,
     & 0.12873E+00, 0.13559E+00, 0.14240E+00, 0.14921E+00, 0.15601E+00,
     & 0.16282E+00, 0.16963E+00, 0.17643E+00, 0.18324E+00, 0.19005E+00/

      data ((u_grdl(i,j),j=1,30),i= 21, 30)/
     &-0.16548E-01,-0.10156E-01,-0.37618E-02, 0.28954E-02, 0.98837E-02,
     & 0.17102E-01, 0.24466E-01, 0.31922E-01, 0.39409E-01, 0.46906E-01,
     & 0.54387E-01, 0.61828E-01, 0.69216E-01, 0.76537E-01, 0.83785E-01,
     & 0.90956E-01, 0.98041E-01, 0.10503E+00, 0.11194E+00, 0.11875E+00,
     & 0.12544E+00, 0.13207E+00, 0.13864E+00, 0.14521E+00, 0.15178E+00,
     & 0.15836E+00, 0.16493E+00, 0.17150E+00, 0.17807E+00, 0.18464E+00,
     &-0.16380E-01,-0.10050E-01,-0.37172E-02, 0.28621E-02, 0.97489E-02,
     & 0.16845E-01, 0.24070E-01, 0.31370E-01, 0.38691E-01, 0.46012E-01,
     & 0.53305E-01, 0.60553E-01, 0.67740E-01, 0.74855E-01, 0.81892E-01,
     & 0.88848E-01, 0.95714E-01, 0.10249E+00, 0.10917E+00, 0.11575E+00,
     & 0.12222E+00, 0.12862E+00, 0.13496E+00, 0.14130E+00, 0.14765E+00,
     & 0.15399E+00, 0.16033E+00, 0.16668E+00, 0.17302E+00, 0.17936E+00,
     &-0.16212E-01,-0.99432E-02,-0.36722E-02, 0.28294E-02, 0.96153E-02,
     & 0.16590E-01, 0.23677E-01, 0.30824E-01, 0.37981E-01, 0.45129E-01,
     & 0.52240E-01, 0.59297E-01, 0.66287E-01, 0.73201E-01, 0.80031E-01,
     & 0.86777E-01, 0.93430E-01, 0.99986E-01, 0.10645E+00, 0.11281E+00,
     & 0.11906E+00, 0.12524E+00, 0.13136E+00, 0.13748E+00, 0.14360E+00,
     & 0.14972E+00, 0.15584E+00, 0.16196E+00, 0.16809E+00, 0.17421E+00,
     &-0.16043E-01,-0.98359E-02,-0.36269E-02, 0.27973E-02, 0.94831E-02,
     & 0.16338E-01, 0.23289E-01, 0.30284E-01, 0.37281E-01, 0.44258E-01,
     & 0.51190E-01, 0.58060E-01, 0.64858E-01, 0.71574E-01, 0.78202E-01,
     & 0.84743E-01, 0.91188E-01, 0.97534E-01, 0.10378E+00, 0.10993E+00,
     & 0.11597E+00, 0.12193E+00, 0.12783E+00, 0.13374E+00, 0.13964E+00,
     & 0.14555E+00, 0.15145E+00, 0.15736E+00, 0.16326E+00, 0.16917E+00,
     &-0.15874E-01,-0.97285E-02,-0.35812E-02, 0.27657E-02, 0.93521E-02,
     & 0.16089E-01, 0.22906E-01, 0.29751E-01, 0.36590E-01, 0.43400E-01,
     & 0.50155E-01, 0.56842E-01, 0.63452E-01, 0.69974E-01, 0.76405E-01,
     & 0.82746E-01, 0.88988E-01, 0.95129E-01, 0.10117E+00, 0.10711E+00,
     & 0.11294E+00, 0.11869E+00, 0.12438E+00, 0.13008E+00, 0.13577E+00,
     & 0.14147E+00, 0.14716E+00, 0.15286E+00, 0.15855E+00, 0.16425E+00,
     &-0.15704E-01,-0.96204E-02,-0.35352E-02, 0.27348E-02, 0.92226E-02,
     & 0.15842E-01, 0.22526E-01, 0.29224E-01, 0.35908E-01, 0.42553E-01,
     & 0.49136E-01, 0.55644E-01, 0.62069E-01, 0.68402E-01, 0.74640E-01,
     & 0.80785E-01, 0.86829E-01, 0.92770E-01, 0.98611E-01, 0.10435E+00,
     & 0.10997E+00, 0.11552E+00, 0.12101E+00, 0.12650E+00, 0.13199E+00,
     & 0.13748E+00, 0.14297E+00, 0.14846E+00, 0.15396E+00, 0.15945E+00,
     &-0.15534E-01,-0.95121E-02,-0.34886E-02, 0.27047E-02, 0.90945E-02,
     & 0.15598E-01, 0.22151E-01, 0.28704E-01, 0.35236E-01, 0.41718E-01,
     & 0.48131E-01, 0.54464E-01, 0.60708E-01, 0.66856E-01, 0.72906E-01,
     & 0.78860E-01, 0.84711E-01, 0.90457E-01, 0.96101E-01, 0.10164E+00,
     & 0.10707E+00, 0.11241E+00, 0.11771E+00, 0.12300E+00, 0.12829E+00,
     & 0.13359E+00, 0.13888E+00, 0.14417E+00, 0.14946E+00, 0.15476E+00,
     &-0.15362E-01,-0.94028E-02,-0.34416E-02, 0.26753E-02, 0.89680E-02,
     & 0.15357E-01, 0.21780E-01, 0.28191E-01, 0.34572E-01, 0.40896E-01,
     & 0.47143E-01, 0.53303E-01, 0.59370E-01, 0.65338E-01, 0.71204E-01,
     & 0.76971E-01, 0.82633E-01, 0.88189E-01, 0.93643E-01, 0.98992E-01,
     & 0.10422E+00, 0.10938E+00, 0.11448E+00, 0.11958E+00, 0.12468E+00,
     & 0.12978E+00, 0.13488E+00, 0.13998E+00, 0.14508E+00, 0.15018E+00,
     &-0.15191E-01,-0.92931E-02,-0.33940E-02, 0.26467E-02, 0.88431E-02,
     & 0.15119E-01, 0.21414E-01, 0.27685E-01, 0.33918E-01, 0.40085E-01,
     & 0.46169E-01, 0.52161E-01, 0.58055E-01, 0.63846E-01, 0.69532E-01,
     & 0.75117E-01, 0.80596E-01, 0.85966E-01, 0.91234E-01, 0.96396E-01,
     & 0.10144E+00, 0.10641E+00, 0.11132E+00, 0.11623E+00, 0.12115E+00,
     & 0.12606E+00, 0.13097E+00, 0.13588E+00, 0.14080E+00, 0.14571E+00,
     &-0.15019E-01,-0.91829E-02,-0.33458E-02, 0.26191E-02, 0.87199E-02,
     & 0.14883E-01, 0.21053E-01, 0.27185E-01, 0.33273E-01, 0.39287E-01,
     & 0.45210E-01, 0.51037E-01, 0.56762E-01, 0.62380E-01, 0.67890E-01,
     & 0.73298E-01, 0.78598E-01, 0.83788E-01, 0.88874E-01, 0.93855E-01,
     & 0.98717E-01, 0.10350E+00, 0.10823E+00, 0.11297E+00, 0.11770E+00,
     & 0.12243E+00, 0.12716E+00, 0.13189E+00, 0.13662E+00, 0.14135E+00/

      data ((u_grdl(i,j),j=1,30),i= 31, 40)/
     &-0.14846E-01,-0.90722E-02,-0.32969E-02, 0.25925E-02, 0.85986E-02,
     & 0.14651E-01, 0.20697E-01, 0.26692E-01, 0.32637E-01, 0.38501E-01,
     & 0.44267E-01, 0.49932E-01, 0.55491E-01, 0.60940E-01, 0.66279E-01,
     & 0.71514E-01, 0.76638E-01, 0.81653E-01, 0.86563E-01, 0.91367E-01,
     & 0.96052E-01, 0.10066E+00, 0.10522E+00, 0.10977E+00, 0.11432E+00,
     & 0.11888E+00, 0.12343E+00, 0.12799E+00, 0.13254E+00, 0.13710E+00,
     &-0.14673E-01,-0.89606E-02,-0.32473E-02, 0.25670E-02, 0.84791E-02,
     & 0.14422E-01, 0.20345E-01, 0.26206E-01, 0.32010E-01, 0.37726E-01,
     & 0.43339E-01, 0.48845E-01, 0.54242E-01, 0.59526E-01, 0.64698E-01,
     & 0.69764E-01, 0.74718E-01, 0.79562E-01, 0.84300E-01, 0.88932E-01,
     & 0.93445E-01, 0.97883E-01, 0.10227E+00, 0.10665E+00, 0.11103E+00,
     & 0.11542E+00, 0.11980E+00, 0.12418E+00, 0.12856E+00, 0.13295E+00,
     &-0.14499E-01,-0.88486E-02,-0.31967E-02, 0.25428E-02, 0.83617E-02,
     & 0.14196E-01, 0.19998E-01, 0.25728E-01, 0.31393E-01, 0.36964E-01,
     & 0.42426E-01, 0.47778E-01, 0.53016E-01, 0.58138E-01, 0.63147E-01,
     & 0.68048E-01, 0.72836E-01, 0.77513E-01, 0.82084E-01, 0.86549E-01,
     & 0.90896E-01, 0.95167E-01, 0.99384E-01, 0.10360E+00, 0.10782E+00,
     & 0.11203E+00, 0.11625E+00, 0.12047E+00, 0.12468E+00, 0.12890E+00,
     &-0.14325E-01,-0.87354E-02,-0.31453E-02, 0.25198E-02, 0.82465E-02,
     & 0.13973E-01, 0.19657E-01, 0.25256E-01, 0.30786E-01, 0.36215E-01,
     & 0.41529E-01, 0.46728E-01, 0.51811E-01, 0.56776E-01, 0.61625E-01,
     & 0.66366E-01, 0.70992E-01, 0.75507E-01, 0.79916E-01, 0.84218E-01,
     & 0.88403E-01, 0.92512E-01, 0.96568E-01, 0.10062E+00, 0.10468E+00,
     & 0.10873E+00, 0.11279E+00, 0.11684E+00, 0.12090E+00, 0.12495E+00,
     &-0.14149E-01,-0.86212E-02,-0.30928E-02, 0.24984E-02, 0.81337E-02,
     & 0.13755E-01, 0.19320E-01, 0.24792E-01, 0.30189E-01, 0.35477E-01,
     & 0.40647E-01, 0.45697E-01, 0.50629E-01, 0.55440E-01, 0.60133E-01,
     & 0.64717E-01, 0.69186E-01, 0.73543E-01, 0.77794E-01, 0.81938E-01,
     & 0.85965E-01, 0.89918E-01, 0.93817E-01, 0.97715E-01, 0.10161E+00,
     & 0.10551E+00, 0.10941E+00, 0.11331E+00, 0.11721E+00, 0.12111E+00,
     &-0.13972E-01,-0.85061E-02,-0.30391E-02, 0.24785E-02, 0.80232E-02,
     & 0.13540E-01, 0.18990E-01, 0.24336E-01, 0.29601E-01, 0.34752E-01,
     & 0.39780E-01, 0.44685E-01, 0.49468E-01, 0.54129E-01, 0.58671E-01,
     & 0.63102E-01, 0.67417E-01, 0.71620E-01, 0.75718E-01, 0.79709E-01,
     & 0.83583E-01, 0.87383E-01, 0.91130E-01, 0.94876E-01, 0.98622E-01,
     & 0.10237E+00, 0.10611E+00, 0.10986E+00, 0.11361E+00, 0.11735E+00,
     &-0.13796E-01,-0.83902E-02,-0.29841E-02, 0.24605E-02, 0.79155E-02,
     & 0.13328E-01, 0.18664E-01, 0.23887E-01, 0.29023E-01, 0.34040E-01,
     & 0.38929E-01, 0.43691E-01, 0.48330E-01, 0.52844E-01, 0.57237E-01,
     & 0.61519E-01, 0.65686E-01, 0.69739E-01, 0.73687E-01, 0.77529E-01,
     & 0.81255E-01, 0.84908E-01, 0.88507E-01, 0.92106E-01, 0.95705E-01,
     & 0.99304E-01, 0.10290E+00, 0.10650E+00, 0.11010E+00, 0.11370E+00,
     &-0.13617E-01,-0.82726E-02,-0.29277E-02, 0.24443E-02, 0.78106E-02,
     & 0.13122E-01, 0.18345E-01, 0.23446E-01, 0.28455E-01, 0.33341E-01,
     & 0.38093E-01, 0.42716E-01, 0.47213E-01, 0.51584E-01, 0.55833E-01,
     & 0.59970E-01, 0.63991E-01, 0.67899E-01, 0.71702E-01, 0.75399E-01,
     & 0.78981E-01, 0.82490E-01, 0.85946E-01, 0.89402E-01, 0.92858E-01,
     & 0.96315E-01, 0.99771E-01, 0.10323E+00, 0.10668E+00, 0.11014E+00,
     &-0.13438E-01,-0.81540E-02,-0.28696E-02, 0.24304E-02, 0.77088E-02,
     & 0.12919E-01, 0.18032E-01, 0.23013E-01, 0.27898E-01, 0.32654E-01,
     & 0.37273E-01, 0.41760E-01, 0.46118E-01, 0.50349E-01, 0.54458E-01,
     & 0.58453E-01, 0.62333E-01, 0.66100E-01, 0.69761E-01, 0.73318E-01,
     & 0.76760E-01, 0.80131E-01, 0.83448E-01, 0.86766E-01, 0.90083E-01,
     & 0.93401E-01, 0.96719E-01, 0.10004E+00, 0.10335E+00, 0.10667E+00,
     &-0.13258E-01,-0.80338E-02,-0.28097E-02, 0.24187E-02, 0.76102E-02,
     & 0.12721E-01, 0.17725E-01, 0.22588E-01, 0.27351E-01, 0.31980E-01,
     & 0.36469E-01, 0.40822E-01, 0.45046E-01, 0.49140E-01, 0.53111E-01,
     & 0.56969E-01, 0.60711E-01, 0.64340E-01, 0.67865E-01, 0.71285E-01,
     & 0.74592E-01, 0.77827E-01, 0.81011E-01, 0.84194E-01, 0.87378E-01,
     & 0.90561E-01, 0.93745E-01, 0.96928E-01, 0.10011E+00, 0.10329E+00/

      data ((u_grdl(i,j),j=1,30),i= 41, 50)/
     &-0.13075E-01,-0.79117E-02,-0.27478E-02, 0.24097E-02, 0.75152E-02,
     & 0.12528E-01, 0.17424E-01, 0.22172E-01, 0.26816E-01, 0.31320E-01,
     & 0.35681E-01, 0.39904E-01, 0.43995E-01, 0.47957E-01, 0.51794E-01,
     & 0.55518E-01, 0.59126E-01, 0.62622E-01, 0.66013E-01, 0.69301E-01,
     & 0.72476E-01, 0.75581E-01, 0.78634E-01, 0.81688E-01, 0.84741E-01,
     & 0.87795E-01, 0.90848E-01, 0.93901E-01, 0.96955E-01, 0.10001E+00,
     &-0.12892E-01,-0.77878E-02,-0.26837E-02, 0.24035E-02, 0.74239E-02,
     & 0.12340E-01, 0.17130E-01, 0.21765E-01, 0.26291E-01, 0.30673E-01,
     & 0.34909E-01, 0.39005E-01, 0.42967E-01, 0.46799E-01, 0.50506E-01,
     & 0.54099E-01, 0.57577E-01, 0.60942E-01, 0.64204E-01, 0.67364E-01,
     & 0.70412E-01, 0.73390E-01, 0.76318E-01, 0.79246E-01, 0.82173E-01,
     & 0.85101E-01, 0.88028E-01, 0.90956E-01, 0.93884E-01, 0.96811E-01,
     &-0.12707E-01,-0.76620E-02,-0.26170E-02, 0.24004E-02, 0.73369E-02,
     & 0.12157E-01, 0.16844E-01, 0.21366E-01, 0.25777E-01, 0.30040E-01,
     & 0.34153E-01, 0.38125E-01, 0.41962E-01, 0.45666E-01, 0.49246E-01,
     & 0.52713E-01, 0.56063E-01, 0.59303E-01, 0.62439E-01, 0.65474E-01,
     & 0.68399E-01, 0.71255E-01, 0.74060E-01, 0.76866E-01, 0.79672E-01,
     & 0.82477E-01, 0.85283E-01, 0.88089E-01, 0.90894E-01, 0.93700E-01,
     &-0.12520E-01,-0.75335E-02,-0.25475E-02, 0.24008E-02, 0.72542E-02,
     & 0.11981E-01, 0.16564E-01, 0.20978E-01, 0.25275E-01, 0.29422E-01,
     & 0.33415E-01, 0.37264E-01, 0.40978E-01, 0.44560E-01, 0.48016E-01,
     & 0.51359E-01, 0.54586E-01, 0.57703E-01, 0.60718E-01, 0.63632E-01,
     & 0.66437E-01, 0.69174E-01, 0.71861E-01, 0.74549E-01, 0.77236E-01,
     & 0.79924E-01, 0.82612E-01, 0.85299E-01, 0.87987E-01, 0.90674E-01,
     &-0.12330E-01,-0.74025E-02,-0.24750E-02, 0.24050E-02, 0.71764E-02,
     & 0.11810E-01, 0.16293E-01, 0.20599E-01, 0.24785E-01, 0.28817E-01,
     & 0.32693E-01, 0.36424E-01, 0.40018E-01, 0.43479E-01, 0.46815E-01,
     & 0.50037E-01, 0.53145E-01, 0.56143E-01, 0.59039E-01, 0.61836E-01,
     & 0.64525E-01, 0.67147E-01, 0.69721E-01, 0.72294E-01, 0.74867E-01,
     & 0.77441E-01, 0.80014E-01, 0.82588E-01, 0.85161E-01, 0.87734E-01,
     &-0.12139E-01,-0.72687E-02,-0.23989E-02, 0.24133E-02, 0.71038E-02,
     & 0.11646E-01, 0.16030E-01, 0.20230E-01, 0.24308E-01, 0.28227E-01,
     & 0.31988E-01, 0.35604E-01, 0.39080E-01, 0.42424E-01, 0.45643E-01,
     & 0.48748E-01, 0.51739E-01, 0.54622E-01, 0.57403E-01, 0.60087E-01,
     & 0.62664E-01, 0.65175E-01, 0.67638E-01, 0.70101E-01, 0.72564E-01,
     & 0.75027E-01, 0.77490E-01, 0.79953E-01, 0.82416E-01, 0.84879E-01,
     &-0.11944E-01,-0.71315E-02,-0.23190E-02, 0.24263E-02, 0.70369E-02,
     & 0.11489E-01, 0.15776E-01, 0.19872E-01, 0.23843E-01, 0.27653E-01,
     & 0.31302E-01, 0.34804E-01, 0.38166E-01, 0.41396E-01, 0.44500E-01,
     & 0.47492E-01, 0.50370E-01, 0.53140E-01, 0.55811E-01, 0.58384E-01,
     & 0.60852E-01, 0.63256E-01, 0.65612E-01, 0.67968E-01, 0.70324E-01,
     & 0.72680E-01, 0.75036E-01, 0.77392E-01, 0.79748E-01, 0.82105E-01,
     &-0.11747E-01,-0.69905E-02,-0.22348E-02, 0.24444E-02, 0.69762E-02,
     & 0.11340E-01, 0.15530E-01, 0.19525E-01, 0.23391E-01, 0.27094E-01,
     & 0.30633E-01, 0.34024E-01, 0.37276E-01, 0.40394E-01, 0.43387E-01,
     & 0.46268E-01, 0.49037E-01, 0.51698E-01, 0.54260E-01, 0.56727E-01,
     & 0.59090E-01, 0.61389E-01, 0.63642E-01, 0.65895E-01, 0.68148E-01,
     & 0.70401E-01, 0.72654E-01, 0.74906E-01, 0.77159E-01, 0.79412E-01,
     &-0.11546E-01,-0.68454E-02,-0.21458E-02, 0.24680E-02, 0.69221E-02,
     & 0.11199E-01, 0.15295E-01, 0.19190E-01, 0.22954E-01, 0.26551E-01,
     & 0.29983E-01, 0.33266E-01, 0.36410E-01, 0.39419E-01, 0.42304E-01,
     & 0.45078E-01, 0.47740E-01, 0.50295E-01, 0.52753E-01, 0.55116E-01,
     & 0.57378E-01, 0.59576E-01, 0.61729E-01, 0.63882E-01, 0.66035E-01,
     & 0.68188E-01, 0.70341E-01, 0.72494E-01, 0.74647E-01, 0.76799E-01,
     &-0.11341E-01,-0.66957E-02,-0.20514E-02, 0.24979E-02, 0.68754E-02,
     & 0.11066E-01, 0.15070E-01, 0.18867E-01, 0.22530E-01, 0.26024E-01,
     & 0.29352E-01, 0.32530E-01, 0.35567E-01, 0.38471E-01, 0.41251E-01,
     & 0.43921E-01, 0.46479E-01, 0.48931E-01, 0.51288E-01, 0.53552E-01,
     & 0.55715E-01, 0.57816E-01, 0.59872E-01, 0.61928E-01, 0.63984E-01,
     & 0.66041E-01, 0.68097E-01, 0.70153E-01, 0.72209E-01, 0.74266E-01/

      data ((u_grdl(i,j),j=1,30),i= 51, 60)/
     &-0.11131E-01,-0.65405E-02,-0.19512E-02, 0.25345E-02, 0.68366E-02,
     & 0.10943E-01, 0.14856E-01, 0.18557E-01, 0.22122E-01, 0.25515E-01,
     & 0.28741E-01, 0.31816E-01, 0.34750E-01, 0.37551E-01, 0.40229E-01,
     & 0.42797E-01, 0.45254E-01, 0.47608E-01, 0.49866E-01, 0.52033E-01,
     & 0.54101E-01, 0.56108E-01, 0.58071E-01, 0.60034E-01, 0.61998E-01,
     & 0.63961E-01, 0.65924E-01, 0.67887E-01, 0.69851E-01, 0.71814E-01,
     &-0.10916E-01,-0.63795E-02,-0.18443E-02, 0.25786E-02, 0.68064E-02,
     & 0.10830E-01, 0.14653E-01, 0.18261E-01, 0.21729E-01, 0.25024E-01,
     & 0.28150E-01, 0.31124E-01, 0.33958E-01, 0.36659E-01, 0.39237E-01,
     & 0.41707E-01, 0.44067E-01, 0.46324E-01, 0.48487E-01, 0.50560E-01,
     & 0.52536E-01, 0.54453E-01, 0.56326E-01, 0.58199E-01, 0.60072E-01,
     & 0.61945E-01, 0.63818E-01, 0.65692E-01, 0.67565E-01, 0.69438E-01,
     &-0.10695E-01,-0.62122E-02,-0.17301E-02, 0.26310E-02, 0.67856E-02,
     & 0.10727E-01, 0.14463E-01, 0.17978E-01, 0.21353E-01, 0.24551E-01,
     & 0.27580E-01, 0.30456E-01, 0.33192E-01, 0.35796E-01, 0.38277E-01,
     & 0.40651E-01, 0.42916E-01, 0.45080E-01, 0.47151E-01, 0.49134E-01,
     & 0.51021E-01, 0.52849E-01, 0.54635E-01, 0.56421E-01, 0.58207E-01,
     & 0.59993E-01, 0.61779E-01, 0.63565E-01, 0.65351E-01, 0.67137E-01,
     &-0.10468E-01,-0.60373E-02,-0.16077E-02, 0.26925E-02, 0.67752E-02,
     & 0.10637E-01, 0.14287E-01, 0.17711E-01, 0.20993E-01, 0.24097E-01,
     & 0.27031E-01, 0.29812E-01, 0.32453E-01, 0.34962E-01, 0.37349E-01,
     & 0.39630E-01, 0.41803E-01, 0.43877E-01, 0.45859E-01, 0.47754E-01,
     & 0.49555E-01, 0.51298E-01, 0.53000E-01, 0.54702E-01, 0.56405E-01,
     & 0.58107E-01, 0.59809E-01, 0.61511E-01, 0.63213E-01, 0.64915E-01,
     &-0.10233E-01,-0.58543E-02,-0.14763E-02, 0.27640E-02, 0.67759E-02,
     & 0.10559E-01, 0.14124E-01, 0.17460E-01, 0.20652E-01, 0.23664E-01,
     & 0.26504E-01, 0.29192E-01, 0.31741E-01, 0.34157E-01, 0.36454E-01,
     & 0.38644E-01, 0.40728E-01, 0.42714E-01, 0.44610E-01, 0.46420E-01,
     & 0.48138E-01, 0.49799E-01, 0.51421E-01, 0.53042E-01, 0.54663E-01,
     & 0.56284E-01, 0.57905E-01, 0.59526E-01, 0.61147E-01, 0.62768E-01,
     &-0.99907E-02,-0.56622E-02,-0.13348E-02, 0.28466E-02, 0.67889E-02,
     & 0.10494E-01, 0.13977E-01, 0.17226E-01, 0.20329E-01, 0.23252E-01,
     & 0.26001E-01, 0.28598E-01, 0.31056E-01, 0.33383E-01, 0.35591E-01,
     & 0.37694E-01, 0.39692E-01, 0.41592E-01, 0.43405E-01, 0.45133E-01,
     & 0.46771E-01, 0.48353E-01, 0.49896E-01, 0.51439E-01, 0.52982E-01,
     & 0.54525E-01, 0.56068E-01, 0.57611E-01, 0.59154E-01, 0.60697E-01,
     &-0.97386E-02,-0.54597E-02,-0.11821E-02, 0.29413E-02, 0.68152E-02,
     & 0.10445E-01, 0.13846E-01, 0.17011E-01, 0.20027E-01, 0.22861E-01,
     & 0.25522E-01, 0.28031E-01, 0.30401E-01, 0.32641E-01, 0.34762E-01,
     & 0.36780E-01, 0.38694E-01, 0.40512E-01, 0.42244E-01, 0.43893E-01,
     & 0.45453E-01, 0.46960E-01, 0.48427E-01, 0.49895E-01, 0.51362E-01,
     & 0.52830E-01, 0.54297E-01, 0.55765E-01, 0.57232E-01, 0.58700E-01,
     &-0.94759E-02,-0.52458E-02,-0.10171E-02, 0.30495E-02, 0.68562E-02,
     & 0.10411E-01, 0.13733E-01, 0.16814E-01, 0.19745E-01, 0.22494E-01,
     & 0.25069E-01, 0.27491E-01, 0.29775E-01, 0.31930E-01, 0.33968E-01,
     & 0.35903E-01, 0.37736E-01, 0.39475E-01, 0.41128E-01, 0.42700E-01,
     & 0.44186E-01, 0.45619E-01, 0.47013E-01, 0.48408E-01, 0.49803E-01,
     & 0.51198E-01, 0.52593E-01, 0.53987E-01, 0.55382E-01, 0.56777E-01,
     &-0.92013E-02,-0.50191E-02,-0.83825E-03, 0.31724E-02, 0.69130E-02,
     & 0.10394E-01, 0.13638E-01, 0.16638E-01, 0.19486E-01, 0.22151E-01,
     & 0.24641E-01, 0.26979E-01, 0.29180E-01, 0.31253E-01, 0.33209E-01,
     & 0.35064E-01, 0.36818E-01, 0.38480E-01, 0.40058E-01, 0.41555E-01,
     & 0.42969E-01, 0.44330E-01, 0.45655E-01, 0.46980E-01, 0.48304E-01,
     & 0.49629E-01, 0.50953E-01, 0.52278E-01, 0.53602E-01, 0.54927E-01,
     &-0.89134E-02,-0.47781E-02,-0.64421E-03, 0.33116E-02, 0.69873E-02,
     & 0.10397E-01, 0.13564E-01, 0.16483E-01, 0.19251E-01, 0.21833E-01,
     & 0.24241E-01, 0.26497E-01, 0.28617E-01, 0.30609E-01, 0.32486E-01,
     & 0.34263E-01, 0.35942E-01, 0.37528E-01, 0.39033E-01, 0.40459E-01,
     & 0.41803E-01, 0.43096E-01, 0.44353E-01, 0.45610E-01, 0.46867E-01,
     & 0.48124E-01, 0.49381E-01, 0.50638E-01, 0.51895E-01, 0.53151E-01/

      data ((u_grdl(i,j),j=1,30),i= 61, 70)/
     &-0.86105E-02,-0.45211E-02,-0.43326E-03, 0.34687E-02, 0.70806E-02,
     & 0.10419E-01, 0.13511E-01, 0.16352E-01, 0.19040E-01, 0.21542E-01,
     & 0.23870E-01, 0.26046E-01, 0.28086E-01, 0.30001E-01, 0.31801E-01,
     & 0.33502E-01, 0.35107E-01, 0.36621E-01, 0.38055E-01, 0.39412E-01,
     & 0.40688E-01, 0.41915E-01, 0.43107E-01, 0.44298E-01, 0.45490E-01,
     & 0.46682E-01, 0.47874E-01, 0.49066E-01, 0.50257E-01, 0.51449E-01,
     &-0.82908E-02,-0.42464E-02,-0.20365E-03, 0.36454E-02, 0.71946E-02,
     & 0.10464E-01, 0.13481E-01, 0.16246E-01, 0.18856E-01, 0.21279E-01,
     & 0.23529E-01, 0.25627E-01, 0.27590E-01, 0.29428E-01, 0.31154E-01,
     & 0.32782E-01, 0.34315E-01, 0.35759E-01, 0.37124E-01, 0.38414E-01,
     & 0.39625E-01, 0.40788E-01, 0.41917E-01, 0.43045E-01, 0.44174E-01,
     & 0.45303E-01, 0.46432E-01, 0.47560E-01, 0.48689E-01, 0.49818E-01,
     &-0.79522E-02,-0.39519E-02, 0.46680E-04, 0.38438E-02, 0.73313E-02,
     & 0.10532E-01, 0.13477E-01, 0.16166E-01, 0.18700E-01, 0.21046E-01,
     & 0.23219E-01, 0.25241E-01, 0.27129E-01, 0.28893E-01, 0.30546E-01,
     & 0.32103E-01, 0.33566E-01, 0.34942E-01, 0.36240E-01, 0.37466E-01,
     & 0.38614E-01, 0.39715E-01, 0.40783E-01, 0.41851E-01, 0.42919E-01,
     & 0.43987E-01, 0.45055E-01, 0.46123E-01, 0.47191E-01, 0.48259E-01,
     &-0.75925E-02,-0.36354E-02, 0.31985E-03, 0.40659E-02, 0.74927E-02,
     & 0.10626E-01, 0.13500E-01, 0.16115E-01, 0.18574E-01, 0.20845E-01,
     & 0.22942E-01, 0.24890E-01, 0.26704E-01, 0.28396E-01, 0.29979E-01,
     & 0.31467E-01, 0.32862E-01, 0.34172E-01, 0.35406E-01, 0.36568E-01,
     & 0.37656E-01, 0.38697E-01, 0.39707E-01, 0.40716E-01, 0.41725E-01,
     & 0.42735E-01, 0.43744E-01, 0.44753E-01, 0.45763E-01, 0.46772E-01,
     &-0.72091E-02,-0.32944E-02, 0.61834E-03, 0.43141E-02, 0.76810E-02,
     & 0.10748E-01, 0.13552E-01, 0.16094E-01, 0.18480E-01, 0.20677E-01,
     & 0.22700E-01, 0.24575E-01, 0.26318E-01, 0.27940E-01, 0.29453E-01,
     & 0.30874E-01, 0.32203E-01, 0.33449E-01, 0.34621E-01, 0.35722E-01,
     & 0.36751E-01, 0.37735E-01, 0.38688E-01, 0.39640E-01, 0.40592E-01,
     & 0.41545E-01, 0.42497E-01, 0.43450E-01, 0.44402E-01, 0.45355E-01,
     &-0.67991E-02,-0.29262E-02, 0.94471E-03, 0.45909E-02, 0.78987E-02,
     & 0.10900E-01, 0.13635E-01, 0.16106E-01, 0.18419E-01, 0.20543E-01,
     & 0.22495E-01, 0.24299E-01, 0.25971E-01, 0.27525E-01, 0.28971E-01,
     & 0.30326E-01, 0.31591E-01, 0.32775E-01, 0.33886E-01, 0.34929E-01,
     & 0.35900E-01, 0.36829E-01, 0.37726E-01, 0.38623E-01, 0.39521E-01,
     & 0.40418E-01, 0.41316E-01, 0.42213E-01, 0.43111E-01, 0.44008E-01,
     &-0.63594E-02,-0.25278E-02, 0.13019E-02, 0.48991E-02, 0.81485E-02,
     & 0.11086E-01, 0.13751E-01, 0.16152E-01, 0.18394E-01, 0.20447E-01,
     & 0.22328E-01, 0.24062E-01, 0.25666E-01, 0.27152E-01, 0.28533E-01,
     & 0.29824E-01, 0.31027E-01, 0.32150E-01, 0.33202E-01, 0.34188E-01,
     & 0.35104E-01, 0.35978E-01, 0.36822E-01, 0.37667E-01, 0.38511E-01,
     & 0.39355E-01, 0.40200E-01, 0.41044E-01, 0.41888E-01, 0.42733E-01,
     &-0.58868E-02,-0.20959E-02, 0.16930E-02, 0.52416E-02, 0.84330E-02,
     & 0.11306E-01, 0.13904E-01, 0.16235E-01, 0.18407E-01, 0.20390E-01,
     & 0.22201E-01, 0.23866E-01, 0.25403E-01, 0.26824E-01, 0.28140E-01,
     & 0.29369E-01, 0.30511E-01, 0.31575E-01, 0.32570E-01, 0.33500E-01,
     & 0.34363E-01, 0.35184E-01, 0.35977E-01, 0.36770E-01, 0.37563E-01,
     & 0.38356E-01, 0.39149E-01, 0.39942E-01, 0.40735E-01, 0.41528E-01,
     &-0.53770E-02,-0.16267E-02, 0.21215E-02, 0.56217E-02, 0.87555E-02,
     & 0.11565E-01, 0.14096E-01, 0.16358E-01, 0.18460E-01, 0.20374E-01,
     & 0.22116E-01, 0.23714E-01, 0.25185E-01, 0.26541E-01, 0.27795E-01,
     & 0.28962E-01, 0.30045E-01, 0.31052E-01, 0.31991E-01, 0.32866E-01,
     & 0.33677E-01, 0.34448E-01, 0.35191E-01, 0.35934E-01, 0.36676E-01,
     & 0.37419E-01, 0.38162E-01, 0.38905E-01, 0.39648E-01, 0.40391E-01,
     &-0.48262E-02,-0.11164E-02, 0.25911E-02, 0.60430E-02, 0.91191E-02,
     & 0.11865E-01, 0.14329E-01, 0.16522E-01, 0.18556E-01, 0.20401E-01,
     & 0.22076E-01, 0.23607E-01, 0.25013E-01, 0.26306E-01, 0.27498E-01,
     & 0.28605E-01, 0.29630E-01, 0.30580E-01, 0.31464E-01, 0.32287E-01,
     & 0.33047E-01, 0.33768E-01, 0.34462E-01, 0.35156E-01, 0.35850E-01,
     & 0.36545E-01, 0.37239E-01, 0.37933E-01, 0.38627E-01, 0.39321E-01/

      data ((u_grdl(i,j),j=1,30),i= 71, 80)/
     &-0.42299E-02,-0.56084E-03, 0.31059E-02, 0.65091E-02, 0.95273E-02,
     & 0.12209E-01, 0.14607E-01, 0.16732E-01, 0.18697E-01, 0.20474E-01,
     & 0.22082E-01, 0.23547E-01, 0.24889E-01, 0.26119E-01, 0.27250E-01,
     & 0.28298E-01, 0.29266E-01, 0.30161E-01, 0.30992E-01, 0.31763E-01,
     & 0.32473E-01, 0.33146E-01, 0.33792E-01, 0.34439E-01, 0.35086E-01,
     & 0.35732E-01, 0.36379E-01, 0.37025E-01, 0.37672E-01, 0.38319E-01,
     &-0.35828E-02, 0.44937E-04, 0.36703E-02, 0.70241E-02, 0.99839E-02,
     & 0.12602E-01, 0.14932E-01, 0.16989E-01, 0.18886E-01, 0.20594E-01,
     & 0.22136E-01, 0.23536E-01, 0.24813E-01, 0.25982E-01, 0.27053E-01,
     & 0.28043E-01, 0.28955E-01, 0.29795E-01, 0.30574E-01, 0.31294E-01,
     & 0.31955E-01, 0.32580E-01, 0.33181E-01, 0.33781E-01, 0.34381E-01,
     & 0.34981E-01, 0.35581E-01, 0.36181E-01, 0.36781E-01, 0.37382E-01,
     &-0.28788E-02, 0.70628E-03, 0.42889E-02, 0.75923E-02, 0.10493E-01,
     & 0.13046E-01, 0.15308E-01, 0.17297E-01, 0.19124E-01, 0.20765E-01,
     & 0.22240E-01, 0.23575E-01, 0.24789E-01, 0.25896E-01, 0.26908E-01,
     & 0.27840E-01, 0.28696E-01, 0.29483E-01, 0.30210E-01, 0.30880E-01,
     & 0.31493E-01, 0.32072E-01, 0.32626E-01, 0.33180E-01, 0.33735E-01,
     & 0.34289E-01, 0.34843E-01, 0.35398E-01, 0.35952E-01, 0.36506E-01,
     &-0.21124E-02, 0.14285E-02, 0.49669E-02, 0.82182E-02, 0.11058E-01,
     & 0.13545E-01, 0.15739E-01, 0.17657E-01, 0.19416E-01, 0.20988E-01,
     & 0.22396E-01, 0.23666E-01, 0.24817E-01, 0.25862E-01, 0.26815E-01,
     & 0.27690E-01, 0.28491E-01, 0.29224E-01, 0.29900E-01, 0.30521E-01,
     & 0.31087E-01, 0.31619E-01, 0.32128E-01, 0.32638E-01, 0.33147E-01,
     & 0.33656E-01, 0.34165E-01, 0.34674E-01, 0.35183E-01, 0.35692E-01,
     &-0.12768E-02, 0.22177E-02, 0.57096E-02, 0.89067E-02, 0.11683E-01,
     & 0.14102E-01, 0.16226E-01, 0.18074E-01, 0.19763E-01, 0.21266E-01,
     & 0.22606E-01, 0.23810E-01, 0.24898E-01, 0.25882E-01, 0.26775E-01,
     & 0.27593E-01, 0.28339E-01, 0.29019E-01, 0.29644E-01, 0.30216E-01,
     & 0.30734E-01, 0.31222E-01, 0.31686E-01, 0.32151E-01, 0.32615E-01,
     & 0.33080E-01, 0.33544E-01, 0.34009E-01, 0.34474E-01, 0.34938E-01,
     &-0.36433E-03, 0.30806E-02, 0.65229E-02, 0.96628E-02, 0.12374E-01,
     & 0.14723E-01, 0.16774E-01, 0.18550E-01, 0.20167E-01, 0.21600E-01,
     & 0.22871E-01, 0.24009E-01, 0.25032E-01, 0.25954E-01, 0.26788E-01,
     & 0.27549E-01, 0.28239E-01, 0.28867E-01, 0.29440E-01, 0.29963E-01,
     & 0.30435E-01, 0.30877E-01, 0.31297E-01, 0.31717E-01, 0.32138E-01,
     & 0.32558E-01, 0.32978E-01, 0.33398E-01, 0.33819E-01, 0.34239E-01,
     & 0.63264E-03, 0.40241E-02, 0.74127E-02, 0.10492E-01, 0.13134E-01,
     & 0.15409E-01, 0.17386E-01, 0.19087E-01, 0.20630E-01, 0.21991E-01,
     & 0.23192E-01, 0.24262E-01, 0.25221E-01, 0.26080E-01, 0.26854E-01,
     & 0.27557E-01, 0.28191E-01, 0.28765E-01, 0.29288E-01, 0.29761E-01,
     & 0.30187E-01, 0.30583E-01, 0.30959E-01, 0.31335E-01, 0.31710E-01,
     & 0.32086E-01, 0.32462E-01, 0.32838E-01, 0.33213E-01, 0.33589E-01,
     & 0.17224E-02, 0.50554E-02, 0.83856E-02, 0.11399E-01, 0.13967E-01,
     & 0.16166E-01, 0.18064E-01, 0.19688E-01, 0.21154E-01, 0.22441E-01,
     & 0.23570E-01, 0.24571E-01, 0.25463E-01, 0.26259E-01, 0.26971E-01,
     & 0.27615E-01, 0.28193E-01, 0.28713E-01, 0.29184E-01, 0.29608E-01,
     & 0.29986E-01, 0.30337E-01, 0.30668E-01, 0.30999E-01, 0.31331E-01,
     & 0.31662E-01, 0.31993E-01, 0.32324E-01, 0.32656E-01, 0.32987E-01,
     & 0.29147E-02, 0.61827E-02, 0.94478E-02, 0.12389E-01, 0.14879E-01,
     & 0.16995E-01, 0.18812E-01, 0.20354E-01, 0.21741E-01, 0.22950E-01,
     & 0.24005E-01, 0.24935E-01, 0.25758E-01, 0.26488E-01, 0.27138E-01,
     & 0.27721E-01, 0.28242E-01, 0.28707E-01, 0.29125E-01, 0.29499E-01,
     & 0.29830E-01, 0.30134E-01, 0.30420E-01, 0.30707E-01, 0.30993E-01,
     & 0.31279E-01, 0.31565E-01, 0.31851E-01, 0.32138E-01, 0.32424E-01,
     & 0.42192E-02, 0.74142E-02, 0.10606E-01, 0.13468E-01, 0.15873E-01,
     & 0.17901E-01, 0.19630E-01, 0.21087E-01, 0.22390E-01, 0.23518E-01,
     & 0.24496E-01, 0.25351E-01, 0.26103E-01, 0.26766E-01, 0.27351E-01,
     & 0.27872E-01, 0.28334E-01, 0.28743E-01, 0.29108E-01, 0.29431E-01,
     & 0.29712E-01, 0.29970E-01, 0.30210E-01, 0.30451E-01, 0.30691E-01,
     & 0.30932E-01, 0.31172E-01, 0.31413E-01, 0.31653E-01, 0.31894E-01/

      data ((u_grdl(i,j),j=1,30),i= 81, 90)/
     & 0.56455E-02, 0.87580E-02, 0.11867E-01, 0.14641E-01, 0.16952E-01,
     & 0.18885E-01, 0.20520E-01, 0.21886E-01, 0.23100E-01, 0.24143E-01,
     & 0.25040E-01, 0.25817E-01, 0.26496E-01, 0.27087E-01, 0.27606E-01,
     & 0.28064E-01, 0.28465E-01, 0.28816E-01, 0.29125E-01, 0.29395E-01,
     & 0.29627E-01, 0.29837E-01, 0.30031E-01, 0.30224E-01, 0.30418E-01,
     & 0.30612E-01, 0.30805E-01, 0.30999E-01, 0.31193E-01, 0.31386E-01,
     & 0.72047E-02, 0.10223E-01, 0.13238E-01, 0.15912E-01, 0.18119E-01,
     & 0.19950E-01, 0.21483E-01, 0.22750E-01, 0.23870E-01, 0.24823E-01,
     & 0.25633E-01, 0.26329E-01, 0.26930E-01, 0.27448E-01, 0.27897E-01,
     & 0.28288E-01, 0.28626E-01, 0.28918E-01, 0.29170E-01, 0.29386E-01,
     & 0.29567E-01, 0.29727E-01, 0.29873E-01, 0.30019E-01, 0.30165E-01,
     & 0.30310E-01, 0.30456E-01, 0.30602E-01, 0.30748E-01, 0.30893E-01,
     & 0.89075E-02, 0.11817E-01, 0.14724E-01, 0.17285E-01, 0.19377E-01,
     & 0.21093E-01, 0.22516E-01, 0.23678E-01, 0.24696E-01, 0.25552E-01,
     & 0.26271E-01, 0.26880E-01, 0.27399E-01, 0.27840E-01, 0.28216E-01,
     & 0.28538E-01, 0.28810E-01, 0.29039E-01, 0.29232E-01, 0.29392E-01,
     & 0.29521E-01, 0.29630E-01, 0.29727E-01, 0.29823E-01, 0.29920E-01,
     & 0.30016E-01, 0.30113E-01, 0.30209E-01, 0.30306E-01, 0.30402E-01,
     & 0.10766E-01, 0.13549E-01, 0.16330E-01, 0.18762E-01, 0.20725E-01,
     & 0.22315E-01, 0.23616E-01, 0.24663E-01, 0.25571E-01, 0.26323E-01,
     & 0.26945E-01, 0.27462E-01, 0.27894E-01, 0.28254E-01, 0.28552E-01,
     & 0.28801E-01, 0.29004E-01, 0.29169E-01, 0.29300E-01, 0.29402E-01,
     & 0.29476E-01, 0.29532E-01, 0.29578E-01, 0.29623E-01, 0.29669E-01,
     & 0.29714E-01, 0.29760E-01, 0.29805E-01, 0.29850E-01, 0.29896E-01,
     & 0.12790E-01, 0.15427E-01, 0.18060E-01, 0.20344E-01, 0.22161E-01,
     & 0.23610E-01, 0.24777E-01, 0.25699E-01, 0.26487E-01, 0.27127E-01,
     & 0.27643E-01, 0.28062E-01, 0.28402E-01, 0.28675E-01, 0.28892E-01,
     & 0.29064E-01, 0.29195E-01, 0.29291E-01, 0.29358E-01, 0.29400E-01,
     & 0.29416E-01, 0.29419E-01, 0.29411E-01, 0.29404E-01, 0.29397E-01,
     & 0.29389E-01, 0.29382E-01, 0.29375E-01, 0.29367E-01, 0.29360E-01,
     & 0.14992E-01, 0.17456E-01, 0.19916E-01, 0.22029E-01, 0.23680E-01,
     & 0.24971E-01, 0.25990E-01, 0.26774E-01, 0.27431E-01, 0.27949E-01,
     & 0.28352E-01, 0.28666E-01, 0.28907E-01, 0.29087E-01, 0.29217E-01,
     & 0.29308E-01, 0.29364E-01, 0.29388E-01, 0.29388E-01, 0.29366E-01,
     & 0.29324E-01, 0.29270E-01, 0.29208E-01, 0.29146E-01, 0.29084E-01,
     & 0.29021E-01, 0.28959E-01, 0.28897E-01, 0.28835E-01, 0.28773E-01,
     & 0.17377E-01, 0.19639E-01, 0.21898E-01, 0.23812E-01, 0.25273E-01,
     & 0.26386E-01, 0.27239E-01, 0.27872E-01, 0.28386E-01, 0.28771E-01,
     & 0.29051E-01, 0.29251E-01, 0.29386E-01, 0.29468E-01, 0.29507E-01,
     & 0.29512E-01, 0.29487E-01, 0.29437E-01, 0.29367E-01, 0.29279E-01,
     & 0.29175E-01, 0.29062E-01, 0.28944E-01, 0.28825E-01, 0.28706E-01,
     & 0.28587E-01, 0.28469E-01, 0.28350E-01, 0.28231E-01, 0.28112E-01,
     & 0.19955E-01, 0.21978E-01, 0.23998E-01, 0.25681E-01, 0.26925E-01,
     & 0.27838E-01, 0.28506E-01, 0.28971E-01, 0.29327E-01, 0.29567E-01,
     & 0.29715E-01, 0.29792E-01, 0.29814E-01, 0.29791E-01, 0.29732E-01,
     & 0.29647E-01, 0.29538E-01, 0.29409E-01, 0.29265E-01, 0.29109E-01,
     & 0.28942E-01, 0.28769E-01, 0.28592E-01, 0.28415E-01, 0.28237E-01,
     & 0.28060E-01, 0.27883E-01, 0.27706E-01, 0.27529E-01, 0.27352E-01,
     & 0.22733E-01, 0.24472E-01, 0.26207E-01, 0.27620E-01, 0.28615E-01,
     & 0.29301E-01, 0.29763E-01, 0.30040E-01, 0.30223E-01, 0.30305E-01,
     & 0.30309E-01, 0.30254E-01, 0.30154E-01, 0.30020E-01, 0.29859E-01,
     & 0.29678E-01, 0.29480E-01, 0.29270E-01, 0.29050E-01, 0.28823E-01,
     & 0.28591E-01, 0.28355E-01, 0.28119E-01, 0.27882E-01, 0.27645E-01,
     & 0.27409E-01, 0.27172E-01, 0.26935E-01, 0.26699E-01, 0.26462E-01,
     & 0.25698E-01, 0.27103E-01, 0.28505E-01, 0.29602E-01, 0.30311E-01,
     & 0.30739E-01, 0.30969E-01, 0.31041E-01, 0.31033E-01, 0.30942E-01,
     & 0.30790E-01, 0.30593E-01, 0.30365E-01, 0.30113E-01, 0.29843E-01,
     & 0.29563E-01, 0.29273E-01, 0.28978E-01, 0.28680E-01, 0.28380E-01,
     & 0.28081E-01, 0.27783E-01, 0.27486E-01, 0.27189E-01, 0.26893E-01,
     & 0.26596E-01, 0.26299E-01, 0.26002E-01, 0.25705E-01, 0.25408E-01/

      data ((u_grdl(i,j),j=1,30),i= 91,100)/
     & 0.28840E-01, 0.29850E-01, 0.30858E-01, 0.31586E-01, 0.31966E-01,
     & 0.32103E-01, 0.32073E-01, 0.31917E-01, 0.31700E-01, 0.31423E-01,
     & 0.31103E-01, 0.30755E-01, 0.30390E-01, 0.30014E-01, 0.29632E-01,
     & 0.29248E-01, 0.28864E-01, 0.28482E-01, 0.28104E-01, 0.27732E-01,
     & 0.27366E-01, 0.27006E-01, 0.26649E-01, 0.26292E-01, 0.25936E-01,
     & 0.25579E-01, 0.25222E-01, 0.24865E-01, 0.24508E-01, 0.24152E-01,
     & 0.32136E-01, 0.32678E-01, 0.33218E-01, 0.33514E-01, 0.33516E-01,
     & 0.33322E-01, 0.33003E-01, 0.32597E-01, 0.32153E-01, 0.31673E-01,
     & 0.31175E-01, 0.30669E-01, 0.30161E-01, 0.29656E-01, 0.29158E-01,
     & 0.28669E-01, 0.28189E-01, 0.27721E-01, 0.27264E-01, 0.26820E-01,
     & 0.26390E-01, 0.25968E-01, 0.25554E-01, 0.25140E-01, 0.24725E-01,
     & 0.24311E-01, 0.23896E-01, 0.23482E-01, 0.23068E-01, 0.22653E-01,
     & 0.35539E-01, 0.35525E-01, 0.35508E-01, 0.35298E-01, 0.34867E-01,
     & 0.34302E-01, 0.33663E-01, 0.32984E-01, 0.32294E-01, 0.31600E-01,
     & 0.30915E-01, 0.30243E-01, 0.29589E-01, 0.28954E-01, 0.28340E-01,
     & 0.27746E-01, 0.27173E-01, 0.26621E-01, 0.26089E-01, 0.25576E-01,
     & 0.25085E-01, 0.24608E-01, 0.24140E-01, 0.23673E-01, 0.23205E-01,
     & 0.22737E-01, 0.22270E-01, 0.21802E-01, 0.21335E-01, 0.20867E-01,
     & 0.38954E-01, 0.38284E-01, 0.37612E-01, 0.36813E-01, 0.35888E-01,
     & 0.34908E-01, 0.33918E-01, 0.32946E-01, 0.31996E-01, 0.31079E-01,
     & 0.30201E-01, 0.29363E-01, 0.28563E-01, 0.27801E-01, 0.27076E-01,
     & 0.26382E-01, 0.25722E-01, 0.25093E-01, 0.24493E-01, 0.23920E-01,
     & 0.23376E-01, 0.22851E-01, 0.22338E-01, 0.21826E-01, 0.21313E-01,
     & 0.20801E-01, 0.20288E-01, 0.19776E-01, 0.19263E-01, 0.18751E-01,
     & 0.42242E-01, 0.40796E-01, 0.39350E-01, 0.37867E-01, 0.36384E-01,
     & 0.34948E-01, 0.33581E-01, 0.32302E-01, 0.31084E-01, 0.29942E-01,
     & 0.28876E-01, 0.27878E-01, 0.26941E-01, 0.26063E-01, 0.25238E-01,
     & 0.24458E-01, 0.23724E-01, 0.23031E-01, 0.22376E-01, 0.21757E-01,
     & 0.21174E-01, 0.20614E-01, 0.20070E-01, 0.19526E-01, 0.18983E-01,
     & 0.18439E-01, 0.17895E-01, 0.17351E-01, 0.16807E-01, 0.16263E-01,
     & 0.45145E-01, 0.42788E-01, 0.40431E-01, 0.38163E-01, 0.36060E-01,
     & 0.34135E-01, 0.32378E-01, 0.30794E-01, 0.29314E-01, 0.27962E-01,
     & 0.26725E-01, 0.25588E-01, 0.24538E-01, 0.23567E-01, 0.22666E-01,
     & 0.21824E-01, 0.21040E-01, 0.20309E-01, 0.19622E-01, 0.18979E-01,
     & 0.18380E-01, 0.17807E-01, 0.17254E-01, 0.16700E-01, 0.16146E-01,
     & 0.15592E-01, 0.15039E-01, 0.14485E-01, 0.13931E-01, 0.13377E-01,
     & 0.47188E-01, 0.43772E-01, 0.40358E-01, 0.37204E-01, 0.34441E-01,
     & 0.32021E-01, 0.29890E-01, 0.28031E-01, 0.26329E-01, 0.24809E-01,
     & 0.23448E-01, 0.22220E-01, 0.21103E-01, 0.20086E-01, 0.19155E-01,
     & 0.18296E-01, 0.17505E-01, 0.16774E-01, 0.16097E-01, 0.15467E-01,
     & 0.14888E-01, 0.14337E-01, 0.13807E-01, 0.13277E-01, 0.12747E-01,
     & 0.12217E-01, 0.11686E-01, 0.11156E-01, 0.10626E-01, 0.10096E-01,
     & 0.47370E-01, 0.42760E-01, 0.38155E-01, 0.34057E-01, 0.30653E-01,
     & 0.27806E-01, 0.25393E-01, 0.23364E-01, 0.21547E-01, 0.19968E-01,
     & 0.18589E-01, 0.17370E-01, 0.16284E-01, 0.15313E-01, 0.14438E-01,
     & 0.13642E-01, 0.12920E-01, 0.12262E-01, 0.11660E-01, 0.11107E-01,
     & 0.10604E-01, 0.10130E-01, 0.96770E-02, 0.92239E-02, 0.87707E-02,
     & 0.83175E-02, 0.78644E-02, 0.74112E-02, 0.69580E-02, 0.65048E-02,
     & 0.43090E-01, 0.37208E-01, 0.31335E-01, 0.26401E-01, 0.22635E-01,
     & 0.19703E-01, 0.17361E-01, 0.15499E-01, 0.13886E-01, 0.12540E-01,
     & 0.11407E-01, 0.10438E-01, 0.95978E-02, 0.88657E-02, 0.82220E-02,
     & 0.76483E-02, 0.71386E-02, 0.66834E-02, 0.62734E-02, 0.59037E-02,
     & 0.55733E-02, 0.52654E-02, 0.49734E-02, 0.46814E-02, 0.43894E-02,
     & 0.40974E-02, 0.38053E-02, 0.35133E-02, 0.32213E-02, 0.29293E-02,
     & 0.61043E-02, 0.52308E-02, 0.43586E-02, 0.36311E-02, 0.30821E-02,
     & 0.26591E-02, 0.23245E-02, 0.20607E-02, 0.18336E-02, 0.16454E-02,
     & 0.14883E-02, 0.13545E-02, 0.12393E-02, 0.11393E-02, 0.10519E-02,
     & 0.97438E-03, 0.90578E-03, 0.84477E-03, 0.79004E-03, 0.74089E-03,
     & 0.69714E-03, 0.65648E-03, 0.61799E-03, 0.57951E-03, 0.54102E-03,
     & 0.50253E-03, 0.46404E-03, 0.42555E-03, 0.38707E-03, 0.34858E-03/

      data ((g_grdl(i,j),j=1,30),i=  1, 10)/
     &-0.16775E+00, 0.34798E-01, 0.23757E+00, 0.46627E+00, 0.73105E+00,
     & 0.10249E+01, 0.13411E+01, 0.16759E+01, 0.20204E+01, 0.23747E+01,
     & 0.27362E+01, 0.31021E+01, 0.34705E+01, 0.38401E+01, 0.42095E+01,
     & 0.45780E+01, 0.49446E+01, 0.53089E+01, 0.56702E+01, 0.60281E+01,
     & 0.63818E+01, 0.67324E+01, 0.70808E+01, 0.74292E+01, 0.77776E+01,
     & 0.81260E+01, 0.84744E+01, 0.88227E+01, 0.91711E+01, 0.95195E+01,
     &-0.16373E+00, 0.37369E-01, 0.23870E+00, 0.46513E+00, 0.72632E+00,
     & 0.10154E+01, 0.13256E+01, 0.16533E+01, 0.19900E+01, 0.23358E+01,
     & 0.26880E+01, 0.30440E+01, 0.34020E+01, 0.37607E+01, 0.41189E+01,
     & 0.44758E+01, 0.48307E+01, 0.51829E+01, 0.55319E+01, 0.58775E+01,
     & 0.62185E+01, 0.65565E+01, 0.68922E+01, 0.72279E+01, 0.75635E+01,
     & 0.78992E+01, 0.82349E+01, 0.85706E+01, 0.89063E+01, 0.92419E+01,
     &-0.15972E+00, 0.39944E-01, 0.23982E+00, 0.46399E+00, 0.72161E+00,
     & 0.10059E+01, 0.13102E+01, 0.16309E+01, 0.19600E+01, 0.22973E+01,
     & 0.26404E+01, 0.29867E+01, 0.33346E+01, 0.36826E+01, 0.40299E+01,
     & 0.43755E+01, 0.47189E+01, 0.50593E+01, 0.53964E+01, 0.57299E+01,
     & 0.60587E+01, 0.63844E+01, 0.67077E+01, 0.70310E+01, 0.73544E+01,
     & 0.76777E+01, 0.80010E+01, 0.83243E+01, 0.86477E+01, 0.89710E+01,
     &-0.15566E+00, 0.42540E-01, 0.24095E+00, 0.46284E+00, 0.71692E+00,
     & 0.99641E+00, 0.12949E+01, 0.16087E+01, 0.19303E+01, 0.22593E+01,
     & 0.25934E+01, 0.29302E+01, 0.32681E+01, 0.36058E+01, 0.39424E+01,
     & 0.42770E+01, 0.46091E+01, 0.49381E+01, 0.52636E+01, 0.55852E+01,
     & 0.59022E+01, 0.62159E+01, 0.65273E+01, 0.68386E+01, 0.71499E+01,
     & 0.74612E+01, 0.77726E+01, 0.80839E+01, 0.83952E+01, 0.87066E+01,
     &-0.15157E+00, 0.45155E-01, 0.24209E+00, 0.46170E+00, 0.71225E+00,
     & 0.98702E+00, 0.12797E+01, 0.15868E+01, 0.19009E+01, 0.22218E+01,
     & 0.25471E+01, 0.28746E+01, 0.32027E+01, 0.35303E+01, 0.38564E+01,
     & 0.41803E+01, 0.45014E+01, 0.48192E+01, 0.51334E+01, 0.54436E+01,
     & 0.57490E+01, 0.60511E+01, 0.63508E+01, 0.66505E+01, 0.69502E+01,
     & 0.72499E+01, 0.75496E+01, 0.78492E+01, 0.81489E+01, 0.84486E+01,
     &-0.14751E+00, 0.47759E-01, 0.24323E+00, 0.46056E+00, 0.70759E+00,
     & 0.97768E+00, 0.12647E+01, 0.15650E+01, 0.18718E+01, 0.21848E+01,
     & 0.25014E+01, 0.28198E+01, 0.31384E+01, 0.34560E+01, 0.37718E+01,
     & 0.40853E+01, 0.43957E+01, 0.47026E+01, 0.50058E+01, 0.53049E+01,
     & 0.55991E+01, 0.58899E+01, 0.61783E+01, 0.64667E+01, 0.67550E+01,
     & 0.70434E+01, 0.73318E+01, 0.76202E+01, 0.79086E+01, 0.81969E+01,
     &-0.14338E+00, 0.50398E-01, 0.24437E+00, 0.45943E+00, 0.70295E+00,
     & 0.96841E+00, 0.12498E+01, 0.15435E+01, 0.18431E+01, 0.21482E+01,
     & 0.24564E+01, 0.27658E+01, 0.30750E+01, 0.33829E+01, 0.36888E+01,
     & 0.39920E+01, 0.42920E+01, 0.45883E+01, 0.48808E+01, 0.51691E+01,
     & 0.54523E+01, 0.57322E+01, 0.60096E+01, 0.62870E+01, 0.65644E+01,
     & 0.68419E+01, 0.71193E+01, 0.73967E+01, 0.76741E+01, 0.79515E+01,
     &-0.13924E+00, 0.53042E-01, 0.24551E+00, 0.45829E+00, 0.69833E+00,
     & 0.95919E+00, 0.12350E+01, 0.15222E+01, 0.18147E+01, 0.21120E+01,
     & 0.24119E+01, 0.27126E+01, 0.30126E+01, 0.33111E+01, 0.36071E+01,
     & 0.39004E+01, 0.41902E+01, 0.44763E+01, 0.47583E+01, 0.50361E+01,
     & 0.53087E+01, 0.55780E+01, 0.58447E+01, 0.61115E+01, 0.63782E+01,
     & 0.66449E+01, 0.69117E+01, 0.71784E+01, 0.74452E+01, 0.77119E+01,
     &-0.13507E+00, 0.55705E-01, 0.24666E+00, 0.45716E+00, 0.69373E+00,
     & 0.95003E+00, 0.12203E+01, 0.15011E+01, 0.17866E+01, 0.20763E+01,
     & 0.23681E+01, 0.26601E+01, 0.29512E+01, 0.32404E+01, 0.35269E+01,
     & 0.38105E+01, 0.40904E+01, 0.43664E+01, 0.46383E+01, 0.49058E+01,
     & 0.51682E+01, 0.54271E+01, 0.56835E+01, 0.59400E+01, 0.61964E+01,
     & 0.64528E+01, 0.67092E+01, 0.69656E+01, 0.72220E+01, 0.74784E+01,
     &-0.13089E+00, 0.58374E-01, 0.24781E+00, 0.45602E+00, 0.68915E+00,
     & 0.94093E+00, 0.12058E+01, 0.14802E+01, 0.17588E+01, 0.20411E+01,
     & 0.23248E+01, 0.26085E+01, 0.28908E+01, 0.31709E+01, 0.34481E+01,
     & 0.37222E+01, 0.39925E+01, 0.42587E+01, 0.45207E+01, 0.47783E+01,
     & 0.50307E+01, 0.52796E+01, 0.55260E+01, 0.57723E+01, 0.60187E+01,
     & 0.62651E+01, 0.65115E+01, 0.67578E+01, 0.70042E+01, 0.72506E+01/

      data ((g_grdl(i,j),j=1,30),i= 11, 20)/
     &-0.12667E+00, 0.61063E-01, 0.24896E+00, 0.45489E+00, 0.68459E+00,
     & 0.93188E+00, 0.11913E+01, 0.14595E+01, 0.17314E+01, 0.20063E+01,
     & 0.22822E+01, 0.25576E+01, 0.28313E+01, 0.31026E+01, 0.33707E+01,
     & 0.36355E+01, 0.38964E+01, 0.41531E+01, 0.44055E+01, 0.46535E+01,
     & 0.48961E+01, 0.51353E+01, 0.53720E+01, 0.56087E+01, 0.58453E+01,
     & 0.60820E+01, 0.63187E+01, 0.65553E+01, 0.67920E+01, 0.70286E+01,
     &-0.12242E+00, 0.63771E-01, 0.25012E+00, 0.45376E+00, 0.68004E+00,
     & 0.92289E+00, 0.11770E+01, 0.14390E+01, 0.17042E+01, 0.19719E+01,
     & 0.22401E+01, 0.25074E+01, 0.27728E+01, 0.30354E+01, 0.32947E+01,
     & 0.35504E+01, 0.38022E+01, 0.40496E+01, 0.42927E+01, 0.45312E+01,
     & 0.47645E+01, 0.49943E+01, 0.52215E+01, 0.54487E+01, 0.56760E+01,
     & 0.59032E+01, 0.61304E+01, 0.63577E+01, 0.65849E+01, 0.68121E+01,
     &-0.11816E+00, 0.66485E-01, 0.25128E+00, 0.45263E+00, 0.67551E+00,
     & 0.91396E+00, 0.11628E+01, 0.14187E+01, 0.16774E+01, 0.19380E+01,
     & 0.21987E+01, 0.24580E+01, 0.27152E+01, 0.29693E+01, 0.32200E+01,
     & 0.34669E+01, 0.37098E+01, 0.39482E+01, 0.41822E+01, 0.44116E+01,
     & 0.46357E+01, 0.48564E+01, 0.50745E+01, 0.52925E+01, 0.55106E+01,
     & 0.57287E+01, 0.59468E+01, 0.61649E+01, 0.63830E+01, 0.66010E+01,
     &-0.11386E+00, 0.69219E-01, 0.25244E+00, 0.45150E+00, 0.67099E+00,
     & 0.90508E+00, 0.11487E+01, 0.13986E+01, 0.16509E+01, 0.19045E+01,
     & 0.21578E+01, 0.24094E+01, 0.26585E+01, 0.29044E+01, 0.31466E+01,
     & 0.33850E+01, 0.36191E+01, 0.38488E+01, 0.40740E+01, 0.42945E+01,
     & 0.45098E+01, 0.47215E+01, 0.49308E+01, 0.51400E+01, 0.53492E+01,
     & 0.55584E+01, 0.57676E+01, 0.59769E+01, 0.61861E+01, 0.63953E+01,
     &-0.10952E+00, 0.71974E-01, 0.25361E+00, 0.45038E+00, 0.66650E+00,
     & 0.89625E+00, 0.11347E+01, 0.13788E+01, 0.16246E+01, 0.18714E+01,
     & 0.21174E+01, 0.23615E+01, 0.26027E+01, 0.28405E+01, 0.30745E+01,
     & 0.33045E+01, 0.35302E+01, 0.37513E+01, 0.39680E+01, 0.41800E+01,
     & 0.43866E+01, 0.45898E+01, 0.47904E+01, 0.49910E+01, 0.51917E+01,
     & 0.53923E+01, 0.55929E+01, 0.57935E+01, 0.59942E+01, 0.61948E+01,
     &-0.10515E+00, 0.74750E-01, 0.25478E+00, 0.44925E+00, 0.66202E+00,
     & 0.88748E+00, 0.11209E+01, 0.13591E+01, 0.15987E+01, 0.18388E+01,
     & 0.20776E+01, 0.23142E+01, 0.25478E+01, 0.27777E+01, 0.30037E+01,
     & 0.32256E+01, 0.34430E+01, 0.36559E+01, 0.38642E+01, 0.40678E+01,
     & 0.42661E+01, 0.44610E+01, 0.46533E+01, 0.48456E+01, 0.50379E+01,
     & 0.52302E+01, 0.54225E+01, 0.56148E+01, 0.58071E+01, 0.59994E+01,
     &-0.10077E+00, 0.77530E-01, 0.25596E+00, 0.44813E+00, 0.65756E+00,
     & 0.87876E+00, 0.11071E+01, 0.13396E+01, 0.15731E+01, 0.18065E+01,
     & 0.20384E+01, 0.22678E+01, 0.24938E+01, 0.27160E+01, 0.29342E+01,
     & 0.31481E+01, 0.33576E+01, 0.35624E+01, 0.37626E+01, 0.39581E+01,
     & 0.41483E+01, 0.43351E+01, 0.45193E+01, 0.47036E+01, 0.48878E+01,
     & 0.50720E+01, 0.52563E+01, 0.54405E+01, 0.56248E+01, 0.58090E+01,
     &-0.96353E-01, 0.80331E-01, 0.25714E+00, 0.44700E+00, 0.65311E+00,
     & 0.87010E+00, 0.10935E+01, 0.13203E+01, 0.15477E+01, 0.17747E+01,
     & 0.19998E+01, 0.22220E+01, 0.24407E+01, 0.26554E+01, 0.28659E+01,
     & 0.30721E+01, 0.32738E+01, 0.34707E+01, 0.36631E+01, 0.38507E+01,
     & 0.40331E+01, 0.42120E+01, 0.43885E+01, 0.45649E+01, 0.47413E+01,
     & 0.49178E+01, 0.50942E+01, 0.52707E+01, 0.54471E+01, 0.56235E+01,
     &-0.91930E-01, 0.83137E-01, 0.25832E+00, 0.44588E+00, 0.64868E+00,
     & 0.86149E+00, 0.10800E+01, 0.13012E+01, 0.15227E+01, 0.17433E+01,
     & 0.19616E+01, 0.21769E+01, 0.23884E+01, 0.25958E+01, 0.27988E+01,
     & 0.29976E+01, 0.31916E+01, 0.33809E+01, 0.35657E+01, 0.37457E+01,
     & 0.39205E+01, 0.40918E+01, 0.42607E+01, 0.44296E+01, 0.45985E+01,
     & 0.47674E+01, 0.49362E+01, 0.51051E+01, 0.52740E+01, 0.54429E+01,
     &-0.87437E-01, 0.85979E-01, 0.25951E+00, 0.44476E+00, 0.64427E+00,
     & 0.85293E+00, 0.10666E+01, 0.12823E+01, 0.14979E+01, 0.17123E+01,
     & 0.19241E+01, 0.21325E+01, 0.23370E+01, 0.25372E+01, 0.27330E+01,
     & 0.29244E+01, 0.31111E+01, 0.32930E+01, 0.34703E+01, 0.36430E+01,
     & 0.38104E+01, 0.39744E+01, 0.41360E+01, 0.42975E+01, 0.44591E+01,
     & 0.46206E+01, 0.47822E+01, 0.49437E+01, 0.51053E+01, 0.52669E+01/

      data ((g_grdl(i,j),j=1,30),i= 21, 30)/
     &-0.82970E-01, 0.88812E-01, 0.26070E+00, 0.44364E+00, 0.63987E+00,
     & 0.84442E+00, 0.10533E+01, 0.12636E+01, 0.14735E+01, 0.16817E+01,
     & 0.18870E+01, 0.20887E+01, 0.22864E+01, 0.24797E+01, 0.26684E+01,
     & 0.28526E+01, 0.30321E+01, 0.32069E+01, 0.33770E+01, 0.35425E+01,
     & 0.37027E+01, 0.38596E+01, 0.40141E+01, 0.41686E+01, 0.43231E+01,
     & 0.44776E+01, 0.46320E+01, 0.47865E+01, 0.49410E+01, 0.50955E+01,
     &-0.78434E-01, 0.91680E-01, 0.26189E+00, 0.44252E+00, 0.63549E+00,
     & 0.83597E+00, 0.10401E+01, 0.12450E+01, 0.14493E+01, 0.16515E+01,
     & 0.18505E+01, 0.20457E+01, 0.22367E+01, 0.24231E+01, 0.26049E+01,
     & 0.27822E+01, 0.29547E+01, 0.31225E+01, 0.32857E+01, 0.34442E+01,
     & 0.35975E+01, 0.37476E+01, 0.38952E+01, 0.40428E+01, 0.41905E+01,
     & 0.43381E+01, 0.44858E+01, 0.46334E+01, 0.47810E+01, 0.49287E+01,
     &-0.73857E-01, 0.94570E-01, 0.26309E+00, 0.44140E+00, 0.63113E+00,
     & 0.82757E+00, 0.10270E+01, 0.12267E+01, 0.14254E+01, 0.16216E+01,
     & 0.18144E+01, 0.20032E+01, 0.21877E+01, 0.23675E+01, 0.25426E+01,
     & 0.27131E+01, 0.28789E+01, 0.30399E+01, 0.31963E+01, 0.33480E+01,
     & 0.34947E+01, 0.36381E+01, 0.37791E+01, 0.39201E+01, 0.40611E+01,
     & 0.42021E+01, 0.43432E+01, 0.44842E+01, 0.46252E+01, 0.47662E+01,
     &-0.69308E-01, 0.97450E-01, 0.26430E+00, 0.44028E+00, 0.62678E+00,
     & 0.81922E+00, 0.10140E+01, 0.12086E+01, 0.14017E+01, 0.15922E+01,
     & 0.17790E+01, 0.19615E+01, 0.21396E+01, 0.23129E+01, 0.24814E+01,
     & 0.26454E+01, 0.28046E+01, 0.29589E+01, 0.31088E+01, 0.32540E+01,
     & 0.33942E+01, 0.35312E+01, 0.36658E+01, 0.38004E+01, 0.39350E+01,
     & 0.40696E+01, 0.42042E+01, 0.43388E+01, 0.44734E+01, 0.46080E+01,
     &-0.64690E-01, 0.10037E+00, 0.26550E+00, 0.43917E+00, 0.62245E+00,
     & 0.81092E+00, 0.10012E+01, 0.11906E+01, 0.13784E+01, 0.15632E+01,
     & 0.17440E+01, 0.19204E+01, 0.20922E+01, 0.22592E+01, 0.24214E+01,
     & 0.25790E+01, 0.27317E+01, 0.28797E+01, 0.30232E+01, 0.31621E+01,
     & 0.32960E+01, 0.34267E+01, 0.35551E+01, 0.36835E+01, 0.38119E+01,
     & 0.39403E+01, 0.40688E+01, 0.41972E+01, 0.43256E+01, 0.44540E+01,
     &-0.60030E-01, 0.10330E+00, 0.26671E+00, 0.43805E+00, 0.61814E+00,
     & 0.80267E+00, 0.98840E+00, 0.11728E+01, 0.13553E+01, 0.15345E+01,
     & 0.17095E+01, 0.18799E+01, 0.20457E+01, 0.22065E+01, 0.23625E+01,
     & 0.25138E+01, 0.26604E+01, 0.28022E+01, 0.29394E+01, 0.30722E+01,
     & 0.32001E+01, 0.33248E+01, 0.34472E+01, 0.35696E+01, 0.36920E+01,
     & 0.38145E+01, 0.39369E+01, 0.40593E+01, 0.41817E+01, 0.43042E+01,
     &-0.55331E-01, 0.10626E+00, 0.26793E+00, 0.43694E+00, 0.61383E+00,
     & 0.79447E+00, 0.97573E+00, 0.11552E+01, 0.13325E+01, 0.15062E+01,
     & 0.16755E+01, 0.18401E+01, 0.19999E+01, 0.21547E+01, 0.23046E+01,
     & 0.24499E+01, 0.25904E+01, 0.27262E+01, 0.28575E+01, 0.29844E+01,
     & 0.31063E+01, 0.32252E+01, 0.33418E+01, 0.34585E+01, 0.35751E+01,
     & 0.36917E+01, 0.38084E+01, 0.39250E+01, 0.40416E+01, 0.41583E+01,
     &-0.50659E-01, 0.10921E+00, 0.26915E+00, 0.43582E+00, 0.60955E+00,
     & 0.78632E+00, 0.96318E+00, 0.11378E+01, 0.13099E+01, 0.14782E+01,
     & 0.16419E+01, 0.18009E+01, 0.19549E+01, 0.21038E+01, 0.22479E+01,
     & 0.23873E+01, 0.25219E+01, 0.26519E+01, 0.27774E+01, 0.28985E+01,
     & 0.30148E+01, 0.31280E+01, 0.32391E+01, 0.33501E+01, 0.34612E+01,
     & 0.35723E+01, 0.36833E+01, 0.37944E+01, 0.39054E+01, 0.40165E+01,
     &-0.45918E-01, 0.11220E+00, 0.27038E+00, 0.43471E+00, 0.60528E+00,
     & 0.77822E+00, 0.95072E+00, 0.11205E+01, 0.12876E+01, 0.14507E+01,
     & 0.16089E+01, 0.17622E+01, 0.19106E+01, 0.20539E+01, 0.21922E+01,
     & 0.23259E+01, 0.24548E+01, 0.25791E+01, 0.26990E+01, 0.28145E+01,
     & 0.29253E+01, 0.30332E+01, 0.31388E+01, 0.32445E+01, 0.33501E+01,
     & 0.34558E+01, 0.35615E+01, 0.36671E+01, 0.37728E+01, 0.38784E+01,
     &-0.41104E-01, 0.11522E+00, 0.27161E+00, 0.43360E+00, 0.60102E+00,
     & 0.77017E+00, 0.93837E+00, 0.11034E+01, 0.12656E+01, 0.14235E+01,
     & 0.15764E+01, 0.17242E+01, 0.18671E+01, 0.20048E+01, 0.21375E+01,
     & 0.22657E+01, 0.23891E+01, 0.25078E+01, 0.26223E+01, 0.27325E+01,
     & 0.28380E+01, 0.29406E+01, 0.30410E+01, 0.31415E+01, 0.32419E+01,
     & 0.33424E+01, 0.34429E+01, 0.35433E+01, 0.36438E+01, 0.37442E+01/

      data ((g_grdl(i,j),j=1,30),i= 31, 40)/
     &-0.36312E-01, 0.11824E+00, 0.27284E+00, 0.43248E+00, 0.59678E+00,
     & 0.76216E+00, 0.92612E+00, 0.10865E+01, 0.12438E+01, 0.13966E+01,
     & 0.15443E+01, 0.16868E+01, 0.18243E+01, 0.19566E+01, 0.20839E+01,
     & 0.22067E+01, 0.23247E+01, 0.24381E+01, 0.25473E+01, 0.26523E+01,
     & 0.27527E+01, 0.28502E+01, 0.29456E+01, 0.30410E+01, 0.31365E+01,
     & 0.32319E+01, 0.33273E+01, 0.34228E+01, 0.35182E+01, 0.36136E+01,
     &-0.31486E-01, 0.12127E+00, 0.27408E+00, 0.43137E+00, 0.59255E+00,
     & 0.75421E+00, 0.91397E+00, 0.10698E+01, 0.12223E+01, 0.13701E+01,
     & 0.15127E+01, 0.16500E+01, 0.17822E+01, 0.19092E+01, 0.20313E+01,
     & 0.21488E+01, 0.22616E+01, 0.23699E+01, 0.24740E+01, 0.25739E+01,
     & 0.26694E+01, 0.27620E+01, 0.28526E+01, 0.29432E+01, 0.30338E+01,
     & 0.31243E+01, 0.32149E+01, 0.33055E+01, 0.33961E+01, 0.34867E+01,
     &-0.26587E-01, 0.12435E+00, 0.27532E+00, 0.43026E+00, 0.58834E+00,
     & 0.74630E+00, 0.90192E+00, 0.10532E+01, 0.12011E+01, 0.13440E+01,
     & 0.14815E+01, 0.16138E+01, 0.17408E+01, 0.18627E+01, 0.19797E+01,
     & 0.20921E+01, 0.21999E+01, 0.23032E+01, 0.24023E+01, 0.24974E+01,
     & 0.25881E+01, 0.26760E+01, 0.27619E+01, 0.28478E+01, 0.29337E+01,
     & 0.30196E+01, 0.31055E+01, 0.31914E+01, 0.32773E+01, 0.33632E+01,
     &-0.21680E-01, 0.12743E+00, 0.27657E+00, 0.42915E+00, 0.58414E+00,
     & 0.73844E+00, 0.88996E+00, 0.10368E+01, 0.11801E+01, 0.13182E+01,
     & 0.14508E+01, 0.15781E+01, 0.17002E+01, 0.18171E+01, 0.19290E+01,
     & 0.20365E+01, 0.21394E+01, 0.22378E+01, 0.23322E+01, 0.24226E+01,
     & 0.25087E+01, 0.25920E+01, 0.26734E+01, 0.27548E+01, 0.28362E+01,
     & 0.29177E+01, 0.29991E+01, 0.30805E+01, 0.31619E+01, 0.32433E+01,
     &-0.16734E-01, 0.13053E+00, 0.27782E+00, 0.42804E+00, 0.57995E+00,
     & 0.73062E+00, 0.87810E+00, 0.10206E+01, 0.11593E+01, 0.12927E+01,
     & 0.14206E+01, 0.15430E+01, 0.16602E+01, 0.17722E+01, 0.18794E+01,
     & 0.19820E+01, 0.20802E+01, 0.21739E+01, 0.22637E+01, 0.23496E+01,
     & 0.24312E+01, 0.25101E+01, 0.25872E+01, 0.26643E+01, 0.27413E+01,
     & 0.28184E+01, 0.28955E+01, 0.29726E+01, 0.30496E+01, 0.31267E+01,
     &-0.11778E-01, 0.13364E+00, 0.27908E+00, 0.42692E+00, 0.57578E+00,
     & 0.72285E+00, 0.86634E+00, 0.10045E+01, 0.11388E+01, 0.12676E+01,
     & 0.13908E+01, 0.15085E+01, 0.16209E+01, 0.17282E+01, 0.18306E+01,
     & 0.19287E+01, 0.20222E+01, 0.21114E+01, 0.21967E+01, 0.22782E+01,
     & 0.23555E+01, 0.24302E+01, 0.25031E+01, 0.25760E+01, 0.26489E+01,
     & 0.27218E+01, 0.27947E+01, 0.28675E+01, 0.29404E+01, 0.30133E+01,
     &-0.67525E-02, 0.13679E+00, 0.28035E+00, 0.42581E+00, 0.57162E+00,
     & 0.71512E+00, 0.85467E+00, 0.98862E+00, 0.11185E+01, 0.12428E+01,
     & 0.13614E+01, 0.14745E+01, 0.15823E+01, 0.16850E+01, 0.17828E+01,
     & 0.18763E+01, 0.19654E+01, 0.20503E+01, 0.21313E+01, 0.22085E+01,
     & 0.22817E+01, 0.23523E+01, 0.24212E+01, 0.24901E+01, 0.25589E+01,
     & 0.26278E+01, 0.26967E+01, 0.27655E+01, 0.28344E+01, 0.29033E+01,
     &-0.16832E-02, 0.13996E+00, 0.28162E+00, 0.42470E+00, 0.56747E+00,
     & 0.70744E+00, 0.84309E+00, 0.97287E+00, 0.10984E+01, 0.12184E+01,
     & 0.13324E+01, 0.14410E+01, 0.15443E+01, 0.16426E+01, 0.17360E+01,
     & 0.18251E+01, 0.19099E+01, 0.19905E+01, 0.20673E+01, 0.21404E+01,
     & 0.22096E+01, 0.22764E+01, 0.23414E+01, 0.24063E+01, 0.24713E+01,
     & 0.25363E+01, 0.26013E+01, 0.26663E+01, 0.27313E+01, 0.27962E+01,
     & 0.34252E-02, 0.14315E+00, 0.28290E+00, 0.42359E+00, 0.56333E+00,
     & 0.69980E+00, 0.83161E+00, 0.95729E+00, 0.10786E+01, 0.11942E+01,
     & 0.13039E+01, 0.14081E+01, 0.15070E+01, 0.16009E+01, 0.16900E+01,
     & 0.17749E+01, 0.18555E+01, 0.19320E+01, 0.20048E+01, 0.20740E+01,
     & 0.21393E+01, 0.22023E+01, 0.22636E+01, 0.23248E+01, 0.23861E+01,
     & 0.24473E+01, 0.25086E+01, 0.25699E+01, 0.26311E+01, 0.26924E+01,
     & 0.85449E-02, 0.14636E+00, 0.28418E+00, 0.42247E+00, 0.55921E+00,
     & 0.69220E+00, 0.82021E+00, 0.94186E+00, 0.10591E+01, 0.11704E+01,
     & 0.12758E+01, 0.13757E+01, 0.14704E+01, 0.15600E+01, 0.16449E+01,
     & 0.17257E+01, 0.18022E+01, 0.18748E+01, 0.19437E+01, 0.20091E+01,
     & 0.20707E+01, 0.21301E+01, 0.21878E+01, 0.22454E+01, 0.23031E+01,
     & 0.23608E+01, 0.24185E+01, 0.24761E+01, 0.25338E+01, 0.25915E+01/

      data ((g_grdl(i,j),j=1,30),i= 41, 50)/
     & 0.13766E-01, 0.14961E+00, 0.28547E+00, 0.42136E+00, 0.55509E+00,
     & 0.68464E+00, 0.80891E+00, 0.92658E+00, 0.10397E+01, 0.11469E+01,
     & 0.12482E+01, 0.13438E+01, 0.14344E+01, 0.15199E+01, 0.16008E+01,
     & 0.16775E+01, 0.17501E+01, 0.18188E+01, 0.18840E+01, 0.19457E+01,
     & 0.20038E+01, 0.20597E+01, 0.21139E+01, 0.21682E+01, 0.22224E+01,
     & 0.22766E+01, 0.23309E+01, 0.23851E+01, 0.24393E+01, 0.24936E+01,
     & 0.18971E-01, 0.15287E+00, 0.28677E+00, 0.42024E+00, 0.55099E+00,
     & 0.67713E+00, 0.79769E+00, 0.91146E+00, 0.10206E+01, 0.11237E+01,
     & 0.12209E+01, 0.13125E+01, 0.13989E+01, 0.14805E+01, 0.15574E+01,
     & 0.16303E+01, 0.16991E+01, 0.17642E+01, 0.18257E+01, 0.18839E+01,
     & 0.19386E+01, 0.19911E+01, 0.20420E+01, 0.20929E+01, 0.21438E+01,
     & 0.21948E+01, 0.22457E+01, 0.22966E+01, 0.23475E+01, 0.23984E+01,
     & 0.24242E-01, 0.15616E+00, 0.28807E+00, 0.41913E+00, 0.54690E+00,
     & 0.66966E+00, 0.78656E+00, 0.89649E+00, 0.10017E+01, 0.11009E+01,
     & 0.11940E+01, 0.12817E+01, 0.13642E+01, 0.14418E+01, 0.15149E+01,
     & 0.15841E+01, 0.16493E+01, 0.17107E+01, 0.17688E+01, 0.18236E+01,
     & 0.18749E+01, 0.19242E+01, 0.19719E+01, 0.20197E+01, 0.20674E+01,
     & 0.21152E+01, 0.21629E+01, 0.22107E+01, 0.22584E+01, 0.23061E+01,
     & 0.29560E-01, 0.15947E+00, 0.28938E+00, 0.41801E+00, 0.54282E+00,
     & 0.66222E+00, 0.77552E+00, 0.88167E+00, 0.98304E+00, 0.10783E+01,
     & 0.11675E+01, 0.12513E+01, 0.13300E+01, 0.14039E+01, 0.14733E+01,
     & 0.15388E+01, 0.16005E+01, 0.16584E+01, 0.17131E+01, 0.17647E+01,
     & 0.18129E+01, 0.18590E+01, 0.19037E+01, 0.19484E+01, 0.19931E+01,
     & 0.20378E+01, 0.20825E+01, 0.21271E+01, 0.21718E+01, 0.22165E+01,
     & 0.34918E-01, 0.16281E+00, 0.29069E+00, 0.41689E+00, 0.53875E+00,
     & 0.65483E+00, 0.76457E+00, 0.86699E+00, 0.96459E+00, 0.10560E+01,
     & 0.11415E+01, 0.12214E+01, 0.12964E+01, 0.13666E+01, 0.14325E+01,
     & 0.14945E+01, 0.15527E+01, 0.16074E+01, 0.16588E+01, 0.17072E+01,
     & 0.17524E+01, 0.17955E+01, 0.18373E+01, 0.18790E+01, 0.19208E+01,
     & 0.19625E+01, 0.20043E+01, 0.20461E+01, 0.20878E+01, 0.21296E+01,
     & 0.40319E-01, 0.16617E+00, 0.29202E+00, 0.41577E+00, 0.53468E+00,
     & 0.64747E+00, 0.75370E+00, 0.85247E+00, 0.94635E+00, 0.10341E+01,
     & 0.11158E+01, 0.11921E+01, 0.12634E+01, 0.13301E+01, 0.13924E+01,
     & 0.14511E+01, 0.15060E+01, 0.15574E+01, 0.16058E+01, 0.16511E+01,
     & 0.16933E+01, 0.17337E+01, 0.17726E+01, 0.18116E+01, 0.18505E+01,
     & 0.18895E+01, 0.19284E+01, 0.19673E+01, 0.20063E+01, 0.20452E+01,
     & 0.45795E-01, 0.16958E+00, 0.29335E+00, 0.41465E+00, 0.53063E+00,
     & 0.64015E+00, 0.74291E+00, 0.83808E+00, 0.92834E+00, 0.10124E+01,
     & 0.10905E+01, 0.11632E+01, 0.12310E+01, 0.12942E+01, 0.13532E+01,
     & 0.14086E+01, 0.14603E+01, 0.15086E+01, 0.15540E+01, 0.15964E+01,
     & 0.16358E+01, 0.16734E+01, 0.17097E+01, 0.17459E+01, 0.17822E+01,
     & 0.18184E+01, 0.18547E+01, 0.18909E+01, 0.19272E+01, 0.19634E+01,
     & 0.51315E-01, 0.17301E+00, 0.29468E+00, 0.41353E+00, 0.52659E+00,
     & 0.63288E+00, 0.73220E+00, 0.82384E+00, 0.91053E+00, 0.99102E+00,
     & 0.10655E+01, 0.11348E+01, 0.11992E+01, 0.12590E+01, 0.13148E+01,
     & 0.13670E+01, 0.14156E+01, 0.14610E+01, 0.15034E+01, 0.15430E+01,
     & 0.15798E+01, 0.16147E+01, 0.16484E+01, 0.16821E+01, 0.17157E+01,
     & 0.17494E+01, 0.17831E+01, 0.18168E+01, 0.18504E+01, 0.18841E+01,
     & 0.56877E-01, 0.17646E+00, 0.29603E+00, 0.41241E+00, 0.52255E+00,
     & 0.62563E+00, 0.72158E+00, 0.80974E+00, 0.89293E+00, 0.96992E+00,
     & 0.10410E+01, 0.11068E+01, 0.11679E+01, 0.12245E+01, 0.12771E+01,
     & 0.13262E+01, 0.13719E+01, 0.14144E+01, 0.14540E+01, 0.14910E+01,
     & 0.15251E+01, 0.15576E+01, 0.15888E+01, 0.16200E+01, 0.16512E+01,
     & 0.16824E+01, 0.17136E+01, 0.17448E+01, 0.17761E+01, 0.18073E+01,
     & 0.62485E-01, 0.17995E+00, 0.29738E+00, 0.41128E+00, 0.51852E+00,
     & 0.61842E+00, 0.71103E+00, 0.79578E+00, 0.87553E+00, 0.94911E+00,
     & 0.10168E+01, 0.10793E+01, 0.11372E+01, 0.11906E+01, 0.12402E+01,
     & 0.12863E+01, 0.13291E+01, 0.13689E+01, 0.14058E+01, 0.14402E+01,
     & 0.14719E+01, 0.15019E+01, 0.15308E+01, 0.15596E+01, 0.15885E+01,
     & 0.16173E+01, 0.16462E+01, 0.16750E+01, 0.17039E+01, 0.17327E+01/

      data ((g_grdl(i,j),j=1,30),i= 51, 60)/
     & 0.68166E-01, 0.18347E+00, 0.29874E+00, 0.41016E+00, 0.51450E+00,
     & 0.61125E+00, 0.70057E+00, 0.78195E+00, 0.85834E+00, 0.92857E+00,
     & 0.99298E+00, 0.10523E+01, 0.11070E+01, 0.11574E+01, 0.12040E+01,
     & 0.12473E+01, 0.12873E+01, 0.13244E+01, 0.13588E+01, 0.13907E+01,
     & 0.14200E+01, 0.14477E+01, 0.14743E+01, 0.15009E+01, 0.15275E+01,
     & 0.15541E+01, 0.15807E+01, 0.16073E+01, 0.16339E+01, 0.16605E+01,
     & 0.73893E-01, 0.18702E+00, 0.30011E+00, 0.40903E+00, 0.51049E+00,
     & 0.60412E+00, 0.69018E+00, 0.76827E+00, 0.84135E+00, 0.90832E+00,
     & 0.96951E+00, 0.10257E+01, 0.10773E+01, 0.11248E+01, 0.11686E+01,
     & 0.12091E+01, 0.12465E+01, 0.12810E+01, 0.13129E+01, 0.13425E+01,
     & 0.13695E+01, 0.13950E+01, 0.14194E+01, 0.14439E+01, 0.14683E+01,
     & 0.14928E+01, 0.15172E+01, 0.15416E+01, 0.15661E+01, 0.15905E+01,
     & 0.79665E-01, 0.19060E+00, 0.30149E+00, 0.40789E+00, 0.50648E+00,
     & 0.59701E+00, 0.67987E+00, 0.75471E+00, 0.82456E+00, 0.88833E+00,
     & 0.94640E+00, 0.99952E+00, 0.10482E+01, 0.10928E+01, 0.11338E+01,
     & 0.11717E+01, 0.12065E+01, 0.12386E+01, 0.12681E+01, 0.12954E+01,
     & 0.13202E+01, 0.13436E+01, 0.13660E+01, 0.13884E+01, 0.14108E+01,
     & 0.14331E+01, 0.14555E+01, 0.14779E+01, 0.15003E+01, 0.15226E+01,
     & 0.85511E-01, 0.19421E+00, 0.30288E+00, 0.40676E+00, 0.50248E+00,
     & 0.58994E+00, 0.66963E+00, 0.74128E+00, 0.80796E+00, 0.86860E+00,
     & 0.92363E+00, 0.97378E+00, 0.10196E+01, 0.10615E+01, 0.10998E+01,
     & 0.11351E+01, 0.11675E+01, 0.11971E+01, 0.12244E+01, 0.12495E+01,
     & 0.12723E+01, 0.12937E+01, 0.13141E+01, 0.13345E+01, 0.13549E+01,
     & 0.13753E+01, 0.13958E+01, 0.14162E+01, 0.14366E+01, 0.14570E+01,
     & 0.91374E-01, 0.19785E+00, 0.30428E+00, 0.40562E+00, 0.49848E+00,
     & 0.58290E+00, 0.65947E+00, 0.72798E+00, 0.79155E+00, 0.84914E+00,
     & 0.90120E+00, 0.94848E+00, 0.99153E+00, 0.10307E+01, 0.10665E+01,
     & 0.10993E+01, 0.11293E+01, 0.11567E+01, 0.11818E+01, 0.12048E+01,
     & 0.12256E+01, 0.12451E+01, 0.12636E+01, 0.12821E+01, 0.13007E+01,
     & 0.13192E+01, 0.13377E+01, 0.13563E+01, 0.13748E+01, 0.13933E+01,
     & 0.97372E-01, 0.20155E+00, 0.30568E+00, 0.40448E+00, 0.49449E+00,
     & 0.57589E+00, 0.64938E+00, 0.71481E+00, 0.77534E+00, 0.82994E+00,
     & 0.87910E+00, 0.92359E+00, 0.96394E+00, 0.10006E+01, 0.10338E+01,
     & 0.10643E+01, 0.10920E+01, 0.11172E+01, 0.11402E+01, 0.11612E+01,
     & 0.11801E+01, 0.11977E+01, 0.12145E+01, 0.12312E+01, 0.12480E+01,
     & 0.12647E+01, 0.12815E+01, 0.12982E+01, 0.13150E+01, 0.13317E+01,
     & 0.10336E+00, 0.20525E+00, 0.30709E+00, 0.40333E+00, 0.49051E+00,
     & 0.56892E+00, 0.63936E+00, 0.70177E+00, 0.75930E+00, 0.81100E+00,
     & 0.85734E+00, 0.89911E+00, 0.93685E+00, 0.97096E+00, 0.10018E+01,
     & 0.10300E+01, 0.10555E+01, 0.10786E+01, 0.10996E+01, 0.11187E+01,
     & 0.11358E+01, 0.11517E+01, 0.11668E+01, 0.11818E+01, 0.11969E+01,
     & 0.12119E+01, 0.12270E+01, 0.12420E+01, 0.12571E+01, 0.12721E+01,
     & 0.10945E+00, 0.20901E+00, 0.30852E+00, 0.40219E+00, 0.48652E+00,
     & 0.56197E+00, 0.62941E+00, 0.68884E+00, 0.74346E+00, 0.79231E+00,
     & 0.83590E+00, 0.87503E+00, 0.91025E+00, 0.94193E+00, 0.97050E+00,
     & 0.99644E+00, 0.10198E+01, 0.10410E+01, 0.10601E+01, 0.10773E+01,
     & 0.10927E+01, 0.11069E+01, 0.11204E+01, 0.11338E+01, 0.11472E+01,
     & 0.11607E+01, 0.11741E+01, 0.11875E+01, 0.12009E+01, 0.12144E+01,
     & 0.11560E+00, 0.21280E+00, 0.30995E+00, 0.40103E+00, 0.48254E+00,
     & 0.55505E+00, 0.61952E+00, 0.67604E+00, 0.72779E+00, 0.77386E+00,
     & 0.81478E+00, 0.85135E+00, 0.88412E+00, 0.91347E+00, 0.93981E+00,
     & 0.96362E+00, 0.98500E+00, 0.10042E+01, 0.10215E+01, 0.10370E+01,
     & 0.10507E+01, 0.10634E+01, 0.10753E+01, 0.10872E+01, 0.10991E+01,
     & 0.11109E+01, 0.11228E+01, 0.11347E+01, 0.11466E+01, 0.11585E+01,
     & 0.12181E+00, 0.21663E+00, 0.31140E+00, 0.39988E+00, 0.47857E+00,
     & 0.54816E+00, 0.60971E+00, 0.66336E+00, 0.71229E+00, 0.75565E+00,
     & 0.79398E+00, 0.82806E+00, 0.85846E+00, 0.88555E+00, 0.90975E+00,
     & 0.93152E+00, 0.95095E+00, 0.96830E+00, 0.98384E+00, 0.99770E+00,
     & 0.10099E+01, 0.10210E+01, 0.10315E+01, 0.10419E+01, 0.10523E+01,
     & 0.10628E+01, 0.10732E+01, 0.10837E+01, 0.10941E+01, 0.11046E+01/

      data ((g_grdl(i,j),j=1,30),i= 61, 70)/
     & 0.12808E+00, 0.22050E+00, 0.31285E+00, 0.39872E+00, 0.47459E+00,
     & 0.54129E+00, 0.59995E+00, 0.65079E+00, 0.69698E+00, 0.73769E+00,
     & 0.77348E+00, 0.80516E+00, 0.83326E+00, 0.85817E+00, 0.88030E+00,
     & 0.90011E+00, 0.91768E+00, 0.93327E+00, 0.94714E+00, 0.95942E+00,
     & 0.97010E+00, 0.97983E+00, 0.98889E+00, 0.99795E+00, 0.10070E+01,
     & 0.10161E+01, 0.10251E+01, 0.10342E+01, 0.10432E+01, 0.10523E+01,
     & 0.13446E+00, 0.22442E+00, 0.31432E+00, 0.39755E+00, 0.47062E+00,
     & 0.53445E+00, 0.59027E+00, 0.63833E+00, 0.68183E+00, 0.71996E+00,
     & 0.75329E+00, 0.78263E+00, 0.80851E+00, 0.83132E+00, 0.85146E+00,
     & 0.86938E+00, 0.88517E+00, 0.89908E+00, 0.91135E+00, 0.92213E+00,
     & 0.93140E+00, 0.93978E+00, 0.94753E+00, 0.95528E+00, 0.96302E+00,
     & 0.97077E+00, 0.97852E+00, 0.98627E+00, 0.99402E+00, 0.10018E+01,
     & 0.14089E+00, 0.22837E+00, 0.31579E+00, 0.39638E+00, 0.46665E+00,
     & 0.52763E+00, 0.58064E+00, 0.62599E+00, 0.66685E+00, 0.70246E+00,
     & 0.73340E+00, 0.76046E+00, 0.78420E+00, 0.80498E+00, 0.82321E+00,
     & 0.83932E+00, 0.85341E+00, 0.86570E+00, 0.87646E+00, 0.88581E+00,
     & 0.89374E+00, 0.90083E+00, 0.90734E+00, 0.91385E+00, 0.92036E+00,
     & 0.92687E+00, 0.93338E+00, 0.93989E+00, 0.94640E+00, 0.95291E+00,
     & 0.14740E+00, 0.23237E+00, 0.31728E+00, 0.39520E+00, 0.46267E+00,
     & 0.52084E+00, 0.57107E+00, 0.61376E+00, 0.65203E+00, 0.68518E+00,
     & 0.71380E+00, 0.73866E+00, 0.76032E+00, 0.77916E+00, 0.79555E+00,
     & 0.80992E+00, 0.82237E+00, 0.83313E+00, 0.84244E+00, 0.85043E+00,
     & 0.85709E+00, 0.86297E+00, 0.86831E+00, 0.87365E+00, 0.87899E+00,
     & 0.88433E+00, 0.88967E+00, 0.89501E+00, 0.90035E+00, 0.90569E+00,
     & 0.15399E+00, 0.23641E+00, 0.31878E+00, 0.39402E+00, 0.45870E+00,
     & 0.51406E+00, 0.56156E+00, 0.60163E+00, 0.63738E+00, 0.66813E+00,
     & 0.69448E+00, 0.71721E+00, 0.73687E+00, 0.75382E+00, 0.76844E+00,
     & 0.78115E+00, 0.79204E+00, 0.80133E+00, 0.80927E+00, 0.81596E+00,
     & 0.82143E+00, 0.82617E+00, 0.83040E+00, 0.83463E+00, 0.83887E+00,
     & 0.84310E+00, 0.84733E+00, 0.85157E+00, 0.85580E+00, 0.86003E+00,
     & 0.16063E+00, 0.24049E+00, 0.32029E+00, 0.39283E+00, 0.45472E+00,
     & 0.50731E+00, 0.55211E+00, 0.58960E+00, 0.62288E+00, 0.65129E+00,
     & 0.67544E+00, 0.69612E+00, 0.71384E+00, 0.72897E+00, 0.74190E+00,
     & 0.75301E+00, 0.76241E+00, 0.77031E+00, 0.77693E+00, 0.78240E+00,
     & 0.78673E+00, 0.79039E+00, 0.79358E+00, 0.79677E+00, 0.79996E+00,
     & 0.80315E+00, 0.80635E+00, 0.80954E+00, 0.81273E+00, 0.81592E+00,
     & 0.16738E+00, 0.24463E+00, 0.32181E+00, 0.39164E+00, 0.45074E+00,
     & 0.50057E+00, 0.54271E+00, 0.57767E+00, 0.60853E+00, 0.63466E+00,
     & 0.65668E+00, 0.67535E+00, 0.69120E+00, 0.70459E+00, 0.71589E+00,
     & 0.72547E+00, 0.73345E+00, 0.74002E+00, 0.74540E+00, 0.74971E+00,
     & 0.75297E+00, 0.75561E+00, 0.75782E+00, 0.76003E+00, 0.76224E+00,
     & 0.76445E+00, 0.76666E+00, 0.76887E+00, 0.77108E+00, 0.77329E+00,
     & 0.17421E+00, 0.24881E+00, 0.32335E+00, 0.39043E+00, 0.44675E+00,
     & 0.49385E+00, 0.53336E+00, 0.56584E+00, 0.59433E+00, 0.61823E+00,
     & 0.63818E+00, 0.65492E+00, 0.66897E+00, 0.68068E+00, 0.69041E+00,
     & 0.69853E+00, 0.70515E+00, 0.71046E+00, 0.71466E+00, 0.71788E+00,
     & 0.72012E+00, 0.72180E+00, 0.72309E+00, 0.72438E+00, 0.72567E+00,
     & 0.72696E+00, 0.72825E+00, 0.72954E+00, 0.73083E+00, 0.73212E+00,
     & 0.18113E+00, 0.25304E+00, 0.32489E+00, 0.38922E+00, 0.44276E+00,
     & 0.48714E+00, 0.52405E+00, 0.55410E+00, 0.58027E+00, 0.60201E+00,
     & 0.61994E+00, 0.63481E+00, 0.64711E+00, 0.65722E+00, 0.66545E+00,
     & 0.67218E+00, 0.67750E+00, 0.68160E+00, 0.68469E+00, 0.68687E+00,
     & 0.68816E+00, 0.68894E+00, 0.68937E+00, 0.68980E+00, 0.69022E+00,
     & 0.69065E+00, 0.69107E+00, 0.69150E+00, 0.69193E+00, 0.69235E+00,
     & 0.18816E+00, 0.25734E+00, 0.32645E+00, 0.38800E+00, 0.43875E+00,
     & 0.48045E+00, 0.51479E+00, 0.54245E+00, 0.56635E+00, 0.58597E+00,
     & 0.60195E+00, 0.61500E+00, 0.62563E+00, 0.63418E+00, 0.64098E+00,
     & 0.64637E+00, 0.65046E+00, 0.65343E+00, 0.65546E+00, 0.65666E+00,
     & 0.65706E+00, 0.65700E+00, 0.65661E+00, 0.65623E+00, 0.65585E+00,
     & 0.65547E+00, 0.65508E+00, 0.65470E+00, 0.65432E+00, 0.65394E+00/

      data ((g_grdl(i,j),j=1,30),i= 71, 80)/
     & 0.19525E+00, 0.26167E+00, 0.32803E+00, 0.38677E+00, 0.43474E+00,
     & 0.47376E+00, 0.50557E+00, 0.53089E+00, 0.55256E+00, 0.57012E+00,
     & 0.58420E+00, 0.59550E+00, 0.60452E+00, 0.61158E+00, 0.61700E+00,
     & 0.62112E+00, 0.62404E+00, 0.62592E+00, 0.62696E+00, 0.62724E+00,
     & 0.62680E+00, 0.62594E+00, 0.62481E+00, 0.62367E+00, 0.62253E+00,
     & 0.62140E+00, 0.62026E+00, 0.61912E+00, 0.61799E+00, 0.61685E+00,
     & 0.20245E+00, 0.26607E+00, 0.32962E+00, 0.38553E+00, 0.43072E+00,
     & 0.46708E+00, 0.49639E+00, 0.51939E+00, 0.53889E+00, 0.55444E+00,
     & 0.56668E+00, 0.57629E+00, 0.58375E+00, 0.58938E+00, 0.59349E+00,
     & 0.59640E+00, 0.59820E+00, 0.59906E+00, 0.59915E+00, 0.59857E+00,
     & 0.59734E+00, 0.59575E+00, 0.59391E+00, 0.59207E+00, 0.59023E+00,
     & 0.58839E+00, 0.58655E+00, 0.58471E+00, 0.58287E+00, 0.58103E+00,
     & 0.20974E+00, 0.27051E+00, 0.33122E+00, 0.38428E+00, 0.42669E+00,
     & 0.46040E+00, 0.48724E+00, 0.50798E+00, 0.52534E+00, 0.53894E+00,
     & 0.54939E+00, 0.55736E+00, 0.56332E+00, 0.56758E+00, 0.57043E+00,
     & 0.57218E+00, 0.57293E+00, 0.57282E+00, 0.57203E+00, 0.57063E+00,
     & 0.56867E+00, 0.56639E+00, 0.56390E+00, 0.56141E+00, 0.55891E+00,
     & 0.55642E+00, 0.55393E+00, 0.55143E+00, 0.54894E+00, 0.54645E+00,
     & 0.21714E+00, 0.27502E+00, 0.33284E+00, 0.38301E+00, 0.42263E+00,
     & 0.45372E+00, 0.47811E+00, 0.49662E+00, 0.51190E+00, 0.52359E+00,
     & 0.53230E+00, 0.53870E+00, 0.54321E+00, 0.54615E+00, 0.54781E+00,
     & 0.54846E+00, 0.54820E+00, 0.54718E+00, 0.54556E+00, 0.54340E+00,
     & 0.54076E+00, 0.53784E+00, 0.53474E+00, 0.53164E+00, 0.52855E+00,
     & 0.52545E+00, 0.52235E+00, 0.51925E+00, 0.51615E+00, 0.51305E+00,
     & 0.22466E+00, 0.27960E+00, 0.33447E+00, 0.38173E+00, 0.41856E+00,
     & 0.44703E+00, 0.46901E+00, 0.48533E+00, 0.49856E+00, 0.50839E+00,
     & 0.51542E+00, 0.52029E+00, 0.52341E+00, 0.52509E+00, 0.52561E+00,
     & 0.52521E+00, 0.52401E+00, 0.52213E+00, 0.51972E+00, 0.51685E+00,
     & 0.51357E+00, 0.51007E+00, 0.50641E+00, 0.50276E+00, 0.49910E+00,
     & 0.49544E+00, 0.49178E+00, 0.48813E+00, 0.48447E+00, 0.48081E+00,
     & 0.23228E+00, 0.28423E+00, 0.33612E+00, 0.38043E+00, 0.41446E+00,
     & 0.44033E+00, 0.45992E+00, 0.47408E+00, 0.48531E+00, 0.49333E+00,
     & 0.49873E+00, 0.50211E+00, 0.50390E+00, 0.50438E+00, 0.50380E+00,
     & 0.50242E+00, 0.50031E+00, 0.49763E+00, 0.49448E+00, 0.49096E+00,
     & 0.48709E+00, 0.48304E+00, 0.47887E+00, 0.47470E+00, 0.47053E+00,
     & 0.46636E+00, 0.46219E+00, 0.45802E+00, 0.45385E+00, 0.44968E+00,
     & 0.24008E+00, 0.28896E+00, 0.33778E+00, 0.37912E+00, 0.41034E+00,
     & 0.43361E+00, 0.45083E+00, 0.46288E+00, 0.47215E+00, 0.47839E+00,
     & 0.48220E+00, 0.48416E+00, 0.48467E+00, 0.48399E+00, 0.48238E+00,
     & 0.48005E+00, 0.47710E+00, 0.47366E+00, 0.46983E+00, 0.46569E+00,
     & 0.46129E+00, 0.45674E+00, 0.45210E+00, 0.44746E+00, 0.44282E+00,
     & 0.43819E+00, 0.43355E+00, 0.42891E+00, 0.42427E+00, 0.41963E+00,
     & 0.24794E+00, 0.29374E+00, 0.33947E+00, 0.37778E+00, 0.40618E+00,
     & 0.42687E+00, 0.44174E+00, 0.45169E+00, 0.45904E+00, 0.46356E+00,
     & 0.46584E+00, 0.46642E+00, 0.46569E+00, 0.46391E+00, 0.46131E+00,
     & 0.45809E+00, 0.45435E+00, 0.45020E+00, 0.44573E+00, 0.44103E+00,
     & 0.43612E+00, 0.43112E+00, 0.42606E+00, 0.42100E+00, 0.41593E+00,
     & 0.41087E+00, 0.40580E+00, 0.40074E+00, 0.39568E+00, 0.39061E+00,
     & 0.25599E+00, 0.29861E+00, 0.34117E+00, 0.37643E+00, 0.40198E+00,
     & 0.42009E+00, 0.43263E+00, 0.44053E+00, 0.44599E+00, 0.44883E+00,
     & 0.44960E+00, 0.44886E+00, 0.44695E+00, 0.44412E+00, 0.44058E+00,
     & 0.43652E+00, 0.43203E+00, 0.42721E+00, 0.42216E+00, 0.41694E+00,
     & 0.41158E+00, 0.40617E+00, 0.40072E+00, 0.39528E+00, 0.38983E+00,
     & 0.38438E+00, 0.37894E+00, 0.37349E+00, 0.36805E+00, 0.36260E+00,
     & 0.26422E+00, 0.30359E+00, 0.34290E+00, 0.37504E+00, 0.39774E+00,
     & 0.41326E+00, 0.42349E+00, 0.42936E+00, 0.43296E+00, 0.43416E+00,
     & 0.43349E+00, 0.43146E+00, 0.42841E+00, 0.42458E+00, 0.42015E+00,
     & 0.41530E+00, 0.41011E+00, 0.40468E+00, 0.39909E+00, 0.39339E+00,
     & 0.38762E+00, 0.38184E+00, 0.37605E+00, 0.37027E+00, 0.36448E+00,
     & 0.35869E+00, 0.35291E+00, 0.34712E+00, 0.34133E+00, 0.33555E+00/

      data ((g_grdl(i,j),j=1,30),i= 81, 90)/
     & 0.27260E+00, 0.30865E+00, 0.34464E+00, 0.37362E+00, 0.39344E+00,
     & 0.40638E+00, 0.41431E+00, 0.41817E+00, 0.41995E+00, 0.41954E+00,
     & 0.41747E+00, 0.41420E+00, 0.41006E+00, 0.40527E+00, 0.40000E+00,
     & 0.39441E+00, 0.38857E+00, 0.38257E+00, 0.37648E+00, 0.37035E+00,
     & 0.36422E+00, 0.35811E+00, 0.35202E+00, 0.34594E+00, 0.33985E+00,
     & 0.33376E+00, 0.32768E+00, 0.32159E+00, 0.31551E+00, 0.30942E+00,
     & 0.28117E+00, 0.31382E+00, 0.34641E+00, 0.37217E+00, 0.38908E+00,
     & 0.39942E+00, 0.40506E+00, 0.40694E+00, 0.40693E+00, 0.40495E+00,
     & 0.40150E+00, 0.39705E+00, 0.39187E+00, 0.38616E+00, 0.38010E+00,
     & 0.37381E+00, 0.36737E+00, 0.36085E+00, 0.35431E+00, 0.34779E+00,
     & 0.34133E+00, 0.33494E+00, 0.32859E+00, 0.32225E+00, 0.31590E+00,
     & 0.30956E+00, 0.30321E+00, 0.29687E+00, 0.29052E+00, 0.28418E+00,
     & 0.28994E+00, 0.31911E+00, 0.34821E+00, 0.37068E+00, 0.38463E+00,
     & 0.39237E+00, 0.39572E+00, 0.39564E+00, 0.39386E+00, 0.39034E+00,
     & 0.38558E+00, 0.37997E+00, 0.37379E+00, 0.36722E+00, 0.36041E+00,
     & 0.35348E+00, 0.34648E+00, 0.33948E+00, 0.33254E+00, 0.32567E+00,
     & 0.31894E+00, 0.31230E+00, 0.30574E+00, 0.29918E+00, 0.29262E+00,
     & 0.28605E+00, 0.27949E+00, 0.27293E+00, 0.26637E+00, 0.25981E+00,
     & 0.29894E+00, 0.32452E+00, 0.35004E+00, 0.36914E+00, 0.38009E+00,
     & 0.38520E+00, 0.38627E+00, 0.38424E+00, 0.38071E+00, 0.37570E+00,
     & 0.36964E+00, 0.36293E+00, 0.35579E+00, 0.34841E+00, 0.34091E+00,
     & 0.33337E+00, 0.32586E+00, 0.31844E+00, 0.31113E+00, 0.30397E+00,
     & 0.29700E+00, 0.29016E+00, 0.28343E+00, 0.27669E+00, 0.26996E+00,
     & 0.26322E+00, 0.25648E+00, 0.24975E+00, 0.24301E+00, 0.23627E+00,
     & 0.30823E+00, 0.33010E+00, 0.35191E+00, 0.36754E+00, 0.37544E+00,
     & 0.37789E+00, 0.37666E+00, 0.37270E+00, 0.36745E+00, 0.36096E+00,
     & 0.35365E+00, 0.34587E+00, 0.33783E+00, 0.32968E+00, 0.32153E+00,
     & 0.31344E+00, 0.30547E+00, 0.29767E+00, 0.29005E+00, 0.28264E+00,
     & 0.27548E+00, 0.26849E+00, 0.26162E+00, 0.25475E+00, 0.24788E+00,
     & 0.24101E+00, 0.23414E+00, 0.22727E+00, 0.22041E+00, 0.21354E+00,
     & 0.31786E+00, 0.33586E+00, 0.35381E+00, 0.36587E+00, 0.37064E+00,
     & 0.37040E+00, 0.36686E+00, 0.36097E+00, 0.35401E+00, 0.34608E+00,
     & 0.33756E+00, 0.32876E+00, 0.31986E+00, 0.31099E+00, 0.30223E+00,
     & 0.29364E+00, 0.28527E+00, 0.27714E+00, 0.26926E+00, 0.26164E+00,
     & 0.25434E+00, 0.24724E+00, 0.24028E+00, 0.23332E+00, 0.22637E+00,
     & 0.21941E+00, 0.21246E+00, 0.20550E+00, 0.19855E+00, 0.19159E+00,
     & 0.32785E+00, 0.34183E+00, 0.35577E+00, 0.36411E+00, 0.36567E+00,
     & 0.36268E+00, 0.35682E+00, 0.34900E+00, 0.34035E+00, 0.33100E+00,
     & 0.32130E+00, 0.31152E+00, 0.30181E+00, 0.29227E+00, 0.28297E+00,
     & 0.27394E+00, 0.26521E+00, 0.25680E+00, 0.24871E+00, 0.24094E+00,
     & 0.23354E+00, 0.22638E+00, 0.21939E+00, 0.21239E+00, 0.20540E+00,
     & 0.19840E+00, 0.19141E+00, 0.18441E+00, 0.17742E+00, 0.17042E+00,
     & 0.33828E+00, 0.34805E+00, 0.35777E+00, 0.36225E+00, 0.36048E+00,
     & 0.35468E+00, 0.34646E+00, 0.33671E+00, 0.32637E+00, 0.31563E+00,
     & 0.30480E+00, 0.29409E+00, 0.28362E+00, 0.27347E+00, 0.26368E+00,
     & 0.25425E+00, 0.24523E+00, 0.23660E+00, 0.22836E+00, 0.22050E+00,
     & 0.21306E+00, 0.20588E+00, 0.19890E+00, 0.19192E+00, 0.18494E+00,
     & 0.17795E+00, 0.17097E+00, 0.16399E+00, 0.15701E+00, 0.15002E+00,
     & 0.34927E+00, 0.35458E+00, 0.35985E+00, 0.36025E+00, 0.35502E+00,
     & 0.34633E+00, 0.33570E+00, 0.32400E+00, 0.31200E+00, 0.29989E+00,
     & 0.28797E+00, 0.27637E+00, 0.26520E+00, 0.25449E+00, 0.24428E+00,
     & 0.23453E+00, 0.22527E+00, 0.21650E+00, 0.20816E+00, 0.20027E+00,
     & 0.19285E+00, 0.18572E+00, 0.17880E+00, 0.17188E+00, 0.16497E+00,
     & 0.15805E+00, 0.15113E+00, 0.14422E+00, 0.13730E+00, 0.13038E+00,
     & 0.36091E+00, 0.36148E+00, 0.36200E+00, 0.35809E+00, 0.34922E+00,
     & 0.33752E+00, 0.32442E+00, 0.31077E+00, 0.29710E+00, 0.28366E+00,
     & 0.27068E+00, 0.25826E+00, 0.24645E+00, 0.23527E+00, 0.22470E+00,
     & 0.21470E+00, 0.20528E+00, 0.19642E+00, 0.18807E+00, 0.18021E+00,
     & 0.17287E+00, 0.16585E+00, 0.15906E+00, 0.15228E+00, 0.14549E+00,
     & 0.13870E+00, 0.13191E+00, 0.12512E+00, 0.11834E+00, 0.11155E+00/

      data ((g_grdl(i,j),j=1,30),i= 91,100)/
     & 0.37345E+00, 0.36887E+00, 0.36425E+00, 0.35570E+00, 0.34298E+00,
     & 0.32813E+00, 0.31248E+00, 0.29685E+00, 0.28152E+00, 0.26678E+00,
     & 0.25280E+00, 0.23963E+00, 0.22725E+00, 0.21567E+00, 0.20484E+00,
     & 0.19468E+00, 0.18519E+00, 0.17633E+00, 0.16803E+00, 0.16028E+00,
     & 0.15310E+00, 0.14627E+00, 0.13967E+00, 0.13308E+00, 0.12649E+00,
     & 0.11990E+00, 0.11331E+00, 0.10672E+00, 0.10013E+00, 0.93538E-01,
     & 0.38711E+00, 0.37689E+00, 0.36663E+00, 0.35302E+00, 0.33614E+00,
     & 0.31796E+00, 0.29967E+00, 0.28203E+00, 0.26504E+00, 0.24905E+00,
     & 0.23415E+00, 0.22031E+00, 0.20747E+00, 0.19559E+00, 0.18459E+00,
     & 0.17436E+00, 0.16490E+00, 0.15614E+00, 0.14801E+00, 0.14046E+00,
     & 0.13352E+00, 0.12694E+00, 0.12063E+00, 0.11432E+00, 0.10800E+00,
     & 0.10169E+00, 0.95374E-01, 0.89060E-01, 0.82746E-01, 0.76432E-01,
     & 0.40235E+00, 0.38578E+00, 0.36917E+00, 0.34993E+00, 0.32851E+00,
     & 0.30675E+00, 0.28570E+00, 0.26602E+00, 0.24740E+00, 0.23021E+00,
     & 0.21448E+00, 0.20008E+00, 0.18690E+00, 0.17485E+00, 0.16382E+00,
     & 0.15367E+00, 0.14436E+00, 0.13582E+00, 0.12795E+00, 0.12071E+00,
     & 0.11411E+00, 0.10790E+00, 0.10195E+00, 0.96000E-01, 0.90053E-01,
     & 0.84106E-01, 0.78158E-01, 0.72211E-01, 0.66263E-01, 0.60316E-01,
     & 0.41976E+00, 0.39586E+00, 0.37193E+00, 0.34625E+00, 0.31975E+00,
     & 0.29411E+00, 0.27014E+00, 0.24840E+00, 0.22818E+00, 0.20990E+00,
     & 0.19348E+00, 0.17868E+00, 0.16533E+00, 0.15328E+00, 0.14239E+00,
     & 0.13247E+00, 0.12347E+00, 0.11530E+00, 0.10784E+00, 0.10104E+00,
     & 0.94900E-01, 0.89151E-01, 0.83677E-01, 0.78203E-01, 0.72729E-01,
     & 0.67255E-01, 0.61781E-01, 0.56307E-01, 0.50833E-01, 0.45359E-01,
     & 0.44040E+00, 0.40769E+00, 0.37497E+00, 0.34168E+00, 0.30934E+00,
     & 0.27940E+00, 0.25234E+00, 0.22854E+00, 0.20682E+00, 0.18761E+00,
     & 0.17071E+00, 0.15575E+00, 0.14246E+00, 0.13066E+00, 0.12013E+00,
     & 0.11065E+00, 0.10217E+00, 0.94554E-01, 0.87680E-01, 0.81478E-01,
     & 0.75942E-01, 0.70794E-01, 0.65918E-01, 0.61043E-01, 0.56168E-01,
     & 0.51292E-01, 0.46417E-01, 0.41542E-01, 0.36666E-01, 0.31791E-01,
     & 0.46620E+00, 0.42231E+00, 0.37842E+00, 0.33565E+00, 0.29635E+00,
     & 0.26154E+00, 0.23121E+00, 0.20545E+00, 0.18242E+00, 0.16258E+00,
     & 0.14555E+00, 0.13078E+00, 0.11792E+00, 0.10670E+00, 0.96860E-01,
     & 0.88131E-01, 0.80434E-01, 0.73624E-01, 0.67555E-01, 0.62148E-01,
     & 0.57386E-01, 0.52996E-01, 0.48865E-01, 0.44734E-01, 0.40603E-01,
     & 0.36472E-01, 0.32341E-01, 0.28210E-01, 0.24079E-01, 0.19948E-01,
     & 0.50116E+00, 0.44178E+00, 0.38243E+00, 0.32695E+00, 0.27889E+00,
     & 0.23846E+00, 0.20475E+00, 0.17735E+00, 0.15349E+00, 0.13362E+00,
     & 0.11707E+00, 0.10312E+00, 0.91258E-01, 0.81145E-01, 0.72463E-01,
     & 0.64904E-01, 0.58365E-01, 0.52681E-01, 0.47698E-01, 0.43329E-01,
     & 0.39546E-01, 0.36093E-01, 0.32871E-01, 0.29649E-01, 0.26427E-01,
     & 0.23205E-01, 0.19983E-01, 0.16761E-01, 0.13539E-01, 0.10317E-01,
     & 0.55485E+00, 0.47095E+00, 0.38712E+00, 0.31226E+00, 0.25224E+00,
     & 0.20534E+00, 0.16871E+00, 0.14076E+00, 0.11734E+00, 0.98759E-01,
     & 0.83952E-01, 0.71929E-01, 0.62052E-01, 0.53889E-01, 0.47081E-01,
     & 0.41298E-01, 0.36421E-01, 0.32280E-01, 0.28726E-01, 0.25673E-01,
     & 0.23086E-01, 0.20757E-01, 0.18606E-01, 0.16455E-01, 0.14304E-01,
     & 0.12153E-01, 0.10002E-01, 0.78504E-02, 0.56993E-02, 0.35482E-02,
     & 0.71967E+00, 0.55873E+00, 0.39818E+00, 0.27678E+00, 0.19886E+00,
     & 0.14747E+00, 0.11219E+00, 0.88115E-01, 0.69207E-01, 0.55333E-01,
     & 0.45004E-01, 0.37074E-01, 0.30869E-01, 0.25961E-01, 0.22027E-01,
     & 0.18795E-01, 0.16159E-01, 0.13990E-01, 0.12178E-01, 0.10663E-01,
     & 0.94136E-02, 0.83073E-02, 0.72989E-02, 0.62905E-02, 0.52821E-02,
     & 0.42737E-02, 0.32653E-02, 0.22569E-02, 0.12485E-02, 0.24007E-03,
     & 0.10741E+00, 0.82476E-01, 0.57601E-01, 0.39069E-01, 0.27459E-01,
     & 0.19973E-01, 0.14932E-01, 0.11559E-01, 0.89413E-02, 0.70507E-02,
     & 0.56636E-02, 0.46124E-02, 0.37994E-02, 0.31635E-02, 0.26590E-02,
     & 0.22482E-02, 0.19164E-02, 0.16457E-02, 0.14215E-02, 0.12355E-02,
     & 0.10834E-02, 0.94947E-03, 0.82789E-03, 0.70632E-03, 0.58474E-03,
     & 0.46316E-03, 0.34159E-03, 0.22001E-03, 0.98433E-04,-0.23143E-04/

      data ((f2grdl(i,j),j=1,30),i=  1, 10)/
     &-0.21573E-01,-0.85413E-02, 0.45002E-02, 0.18686E-01, 0.34790E-01,
     & 0.52888E-01, 0.73056E-01, 0.95532E-01, 0.11953E+00, 0.14546E+00,
     & 0.17326E+00, 0.20276E+00, 0.23383E+00, 0.26639E+00, 0.30029E+00,
     & 0.33542E+00, 0.37181E+00, 0.40947E+00, 0.44866E+00, 0.48984E+00,
     & 0.53441E+00, 0.58226E+00, 0.63288E+00, 0.68350E+00, 0.73412E+00,
     & 0.78474E+00, 0.83536E+00, 0.88597E+00, 0.93659E+00, 0.98721E+00,
     &-0.21316E-01,-0.84304E-02, 0.44639E-02, 0.18466E-01, 0.34325E-01,
     & 0.52122E-01, 0.71924E-01, 0.93967E-01, 0.11748E+00, 0.14287E+00,
     & 0.17007E+00, 0.19890E+00, 0.22926E+00, 0.26105E+00, 0.29414E+00,
     & 0.32841E+00, 0.36388E+00, 0.40059E+00, 0.43877E+00, 0.47888E+00,
     & 0.52229E+00, 0.56888E+00, 0.61817E+00, 0.66746E+00, 0.71674E+00,
     & 0.76603E+00, 0.81532E+00, 0.86461E+00, 0.91390E+00, 0.96318E+00,
     &-0.21058E-01,-0.83190E-02, 0.44290E-02, 0.18248E-01, 0.33864E-01,
     & 0.51362E-01, 0.70803E-01, 0.92419E-01, 0.11545E+00, 0.14032E+00,
     & 0.16692E+00, 0.19510E+00, 0.22475E+00, 0.25579E+00, 0.28807E+00,
     & 0.32150E+00, 0.35608E+00, 0.39185E+00, 0.42905E+00, 0.46811E+00,
     & 0.51037E+00, 0.55573E+00, 0.60371E+00, 0.65169E+00, 0.69968E+00,
     & 0.74766E+00, 0.79565E+00, 0.84363E+00, 0.89161E+00, 0.93960E+00,
     &-0.20800E-01,-0.82065E-02, 0.43956E-02, 0.18033E-01, 0.33407E-01,
     & 0.50610E-01, 0.69693E-01, 0.90886E-01, 0.11345E+00, 0.13779E+00,
     & 0.16381E+00, 0.19135E+00, 0.22031E+00, 0.25061E+00, 0.28210E+00,
     & 0.31469E+00, 0.34840E+00, 0.38325E+00, 0.41947E+00, 0.45751E+00,
     & 0.49864E+00, 0.54279E+00, 0.58949E+00, 0.63620E+00, 0.68290E+00,
     & 0.72960E+00, 0.77630E+00, 0.82301E+00, 0.86971E+00, 0.91641E+00,
     &-0.20540E-01,-0.80922E-02, 0.43634E-02, 0.17819E-01, 0.32953E-01,
     & 0.49865E-01, 0.68594E-01, 0.89371E-01, 0.11148E+00, 0.13529E+00,
     & 0.16074E+00, 0.18765E+00, 0.21593E+00, 0.24550E+00, 0.27621E+00,
     & 0.30799E+00, 0.34085E+00, 0.37479E+00, 0.41006E+00, 0.44708E+00,
     & 0.48712E+00, 0.53008E+00, 0.57552E+00, 0.62096E+00, 0.66641E+00,
     & 0.71185E+00, 0.75729E+00, 0.80274E+00, 0.84818E+00, 0.89362E+00,
     &-0.20277E-01,-0.79764E-02, 0.43325E-02, 0.17607E-01, 0.32504E-01,
     & 0.49127E-01, 0.67504E-01, 0.87872E-01, 0.10952E+00, 0.13283E+00,
     & 0.15771E+00, 0.18400E+00, 0.21161E+00, 0.24047E+00, 0.27042E+00,
     & 0.30139E+00, 0.33340E+00, 0.36646E+00, 0.40079E+00, 0.43683E+00,
     & 0.47579E+00, 0.51758E+00, 0.56178E+00, 0.60598E+00, 0.65018E+00,
     & 0.69438E+00, 0.73858E+00, 0.78278E+00, 0.82698E+00, 0.87119E+00,
     &-0.20012E-01,-0.78582E-02, 0.43029E-02, 0.17398E-01, 0.32059E-01,
     & 0.48395E-01, 0.66425E-01, 0.86390E-01, 0.10759E+00, 0.13040E+00,
     & 0.15472E+00, 0.18040E+00, 0.20736E+00, 0.23550E+00, 0.26471E+00,
     & 0.29490E+00, 0.32608E+00, 0.35827E+00, 0.39168E+00, 0.42674E+00,
     & 0.46466E+00, 0.50530E+00, 0.54828E+00, 0.59127E+00, 0.63425E+00,
     & 0.67723E+00, 0.72021E+00, 0.76319E+00, 0.80617E+00, 0.84915E+00,
     &-0.19749E-01,-0.77408E-02, 0.42745E-02, 0.17190E-01, 0.31617E-01,
     & 0.47670E-01, 0.65357E-01, 0.84922E-01, 0.10568E+00, 0.12799E+00,
     & 0.15176E+00, 0.17685E+00, 0.20316E+00, 0.23062E+00, 0.25909E+00,
     & 0.28850E+00, 0.31887E+00, 0.35020E+00, 0.38272E+00, 0.41682E+00,
     & 0.45370E+00, 0.49323E+00, 0.53502E+00, 0.57681E+00, 0.61859E+00,
     & 0.66038E+00, 0.70217E+00, 0.74396E+00, 0.78575E+00, 0.82753E+00,
     &-0.19482E-01,-0.76209E-02, 0.42473E-02, 0.16985E-01, 0.31180E-01,
     & 0.46951E-01, 0.64300E-01, 0.83470E-01, 0.10380E+00, 0.12562E+00,
     & 0.14885E+00, 0.17335E+00, 0.19902E+00, 0.22580E+00, 0.25355E+00,
     & 0.28220E+00, 0.31177E+00, 0.34227E+00, 0.37391E+00, 0.40708E+00,
     & 0.44294E+00, 0.48137E+00, 0.52199E+00, 0.56261E+00, 0.60323E+00,
     & 0.64385E+00, 0.68446E+00, 0.72508E+00, 0.76570E+00, 0.80632E+00,
     &-0.19214E-01,-0.75000E-02, 0.42213E-02, 0.16781E-01, 0.30746E-01,
     & 0.46236E-01, 0.63255E-01, 0.82033E-01, 0.10194E+00, 0.12328E+00,
     & 0.14598E+00, 0.16989E+00, 0.19495E+00, 0.22105E+00, 0.24810E+00,
     & 0.27601E+00, 0.30479E+00, 0.33446E+00, 0.36524E+00, 0.39749E+00,
     & 0.43236E+00, 0.46971E+00, 0.50919E+00, 0.54867E+00, 0.58814E+00,
     & 0.62762E+00, 0.66710E+00, 0.70658E+00, 0.74605E+00, 0.78553E+00/

      data ((f2grdl(i,j),j=1,30),i= 11, 20)/
     &-0.18942E-01,-0.73759E-02, 0.41966E-02, 0.16579E-01, 0.30316E-01,
     & 0.45528E-01, 0.62222E-01, 0.80613E-01, 0.10010E+00, 0.12096E+00,
     & 0.14314E+00, 0.16649E+00, 0.19093E+00, 0.21638E+00, 0.24273E+00,
     & 0.26990E+00, 0.29792E+00, 0.32679E+00, 0.35672E+00, 0.38807E+00,
     & 0.42196E+00, 0.45826E+00, 0.49662E+00, 0.53499E+00, 0.57335E+00,
     & 0.61171E+00, 0.65008E+00, 0.68844E+00, 0.72681E+00, 0.76517E+00,
     &-0.18668E-01,-0.72508E-02, 0.41732E-02, 0.16378E-01, 0.29889E-01,
     & 0.44826E-01, 0.61200E-01, 0.79209E-01, 0.98279E-01, 0.11868E+00,
     & 0.14034E+00, 0.16313E+00, 0.18697E+00, 0.21177E+00, 0.23744E+00,
     & 0.26390E+00, 0.29115E+00, 0.31923E+00, 0.34833E+00, 0.37881E+00,
     & 0.41173E+00, 0.44700E+00, 0.48428E+00, 0.52156E+00, 0.55884E+00,
     & 0.59612E+00, 0.63340E+00, 0.67068E+00, 0.70795E+00, 0.74523E+00,
     &-0.18385E-01,-0.71201E-02, 0.41513E-02, 0.16179E-01, 0.29467E-01,
     & 0.44131E-01, 0.60188E-01, 0.77823E-01, 0.96483E-01, 0.11642E+00,
     & 0.13758E+00, 0.15982E+00, 0.18306E+00, 0.20723E+00, 0.23223E+00,
     & 0.25799E+00, 0.28450E+00, 0.31181E+00, 0.34009E+00, 0.36970E+00,
     & 0.40168E+00, 0.43594E+00, 0.47216E+00, 0.50837E+00, 0.54459E+00,
     & 0.58081E+00, 0.61702E+00, 0.65324E+00, 0.68946E+00, 0.72567E+00,
     &-0.18092E-01,-0.69837E-02, 0.41312E-02, 0.15982E-01, 0.29049E-01,
     & 0.43443E-01, 0.59187E-01, 0.76453E-01, 0.94709E-01, 0.11420E+00,
     & 0.13486E+00, 0.15656E+00, 0.17922E+00, 0.20277E+00, 0.22710E+00,
     & 0.25216E+00, 0.27796E+00, 0.30450E+00, 0.33199E+00, 0.36075E+00,
     & 0.39180E+00, 0.42508E+00, 0.46025E+00, 0.49542E+00, 0.53059E+00,
     & 0.56576E+00, 0.60093E+00, 0.63610E+00, 0.67127E+00, 0.70644E+00,
     &-0.17810E-01,-0.68513E-02, 0.41133E-02, 0.15787E-01, 0.28635E-01,
     & 0.42762E-01, 0.58197E-01, 0.75100E-01, 0.92956E-01, 0.11200E+00,
     & 0.13218E+00, 0.15334E+00, 0.17542E+00, 0.19836E+00, 0.22206E+00,
     & 0.24644E+00, 0.27152E+00, 0.29732E+00, 0.32402E+00, 0.35196E+00,
     & 0.38210E+00, 0.41441E+00, 0.44855E+00, 0.48270E+00, 0.51685E+00,
     & 0.55100E+00, 0.58515E+00, 0.61929E+00, 0.65344E+00, 0.68759E+00,
     &-0.17536E-01,-0.67218E-02, 0.40973E-02, 0.15593E-01, 0.28225E-01,
     & 0.42086E-01, 0.57217E-01, 0.73762E-01, 0.91223E-01, 0.10984E+00,
     & 0.12953E+00, 0.15016E+00, 0.17169E+00, 0.19403E+00, 0.21709E+00,
     & 0.24080E+00, 0.26519E+00, 0.29025E+00, 0.31619E+00, 0.34331E+00,
     & 0.37257E+00, 0.40393E+00, 0.43707E+00, 0.47022E+00, 0.50336E+00,
     & 0.53651E+00, 0.56965E+00, 0.60280E+00, 0.63594E+00, 0.66909E+00,
     &-0.17259E-01,-0.65908E-02, 0.40821E-02, 0.15401E-01, 0.27819E-01,
     & 0.41418E-01, 0.56247E-01, 0.72440E-01, 0.89514E-01, 0.10770E+00,
     & 0.12692E+00, 0.14703E+00, 0.16801E+00, 0.18976E+00, 0.21220E+00,
     & 0.23526E+00, 0.25896E+00, 0.28331E+00, 0.30849E+00, 0.33483E+00,
     & 0.36321E+00, 0.39364E+00, 0.42580E+00, 0.45796E+00, 0.49012E+00,
     & 0.52228E+00, 0.55444E+00, 0.58660E+00, 0.61876E+00, 0.65092E+00,
     &-0.16981E-01,-0.64587E-02, 0.40680E-02, 0.15211E-01, 0.27415E-01,
     & 0.40756E-01, 0.55287E-01, 0.71133E-01, 0.87825E-01, 0.10559E+00,
     & 0.12434E+00, 0.14395E+00, 0.16439E+00, 0.18556E+00, 0.20739E+00,
     & 0.22981E+00, 0.25283E+00, 0.27648E+00, 0.30093E+00, 0.32648E+00,
     & 0.35402E+00, 0.38353E+00, 0.41472E+00, 0.44592E+00, 0.47712E+00,
     & 0.50831E+00, 0.53951E+00, 0.57070E+00, 0.60190E+00, 0.63310E+00,
     &-0.16699E-01,-0.63246E-02, 0.40547E-02, 0.15023E-01, 0.27015E-01,
     & 0.40101E-01, 0.54338E-01, 0.69840E-01, 0.86156E-01, 0.10351E+00,
     & 0.12179E+00, 0.14091E+00, 0.16082E+00, 0.18143E+00, 0.20266E+00,
     & 0.22444E+00, 0.24681E+00, 0.26977E+00, 0.29350E+00, 0.31828E+00,
     & 0.34499E+00, 0.37361E+00, 0.40386E+00, 0.43412E+00, 0.46438E+00,
     & 0.49463E+00, 0.52489E+00, 0.55515E+00, 0.58540E+00, 0.61566E+00,
     &-0.16418E-01,-0.61900E-02, 0.40425E-02, 0.14838E-01, 0.26619E-01,
     & 0.39452E-01, 0.53399E-01, 0.68563E-01, 0.84509E-01, 0.10145E+00,
     & 0.11928E+00, 0.13792E+00, 0.15731E+00, 0.17736E+00, 0.19800E+00,
     & 0.21917E+00, 0.24089E+00, 0.26318E+00, 0.28620E+00, 0.31023E+00,
     & 0.33612E+00, 0.36387E+00, 0.39321E+00, 0.42254E+00, 0.45188E+00,
     & 0.48121E+00, 0.51055E+00, 0.53988E+00, 0.56922E+00, 0.59856E+00/

      data ((f2grdl(i,j),j=1,30),i= 21, 30)/
     &-0.16138E-01,-0.60554E-02, 0.40313E-02, 0.14654E-01, 0.26225E-01,
     & 0.38809E-01, 0.52470E-01, 0.67300E-01, 0.82883E-01, 0.99422E-01,
     & 0.11681E+00, 0.13497E+00, 0.15384E+00, 0.17335E+00, 0.19341E+00,
     & 0.21398E+00, 0.23507E+00, 0.25669E+00, 0.27902E+00, 0.30232E+00,
     & 0.32742E+00, 0.35430E+00, 0.38273E+00, 0.41116E+00, 0.43958E+00,
     & 0.46801E+00, 0.49643E+00, 0.52486E+00, 0.55329E+00, 0.58171E+00,
     &-0.15853E-01,-0.59183E-02, 0.40210E-02, 0.14473E-01, 0.25836E-01,
     & 0.38173E-01, 0.51552E-01, 0.66054E-01, 0.81279E-01, 0.97419E-01,
     & 0.11437E+00, 0.13207E+00, 0.15044E+00, 0.16941E+00, 0.18890E+00,
     & 0.20887E+00, 0.22935E+00, 0.25032E+00, 0.27197E+00, 0.29455E+00,
     & 0.31887E+00, 0.34491E+00, 0.37245E+00, 0.39998E+00, 0.42751E+00,
     & 0.45504E+00, 0.48257E+00, 0.51010E+00, 0.53763E+00, 0.56516E+00,
     &-0.15564E-01,-0.57780E-02, 0.40118E-02, 0.14294E-01, 0.25449E-01,
     & 0.37544E-01, 0.50643E-01, 0.64823E-01, 0.79696E-01, 0.95445E-01,
     & 0.11197E+00, 0.12921E+00, 0.14708E+00, 0.16553E+00, 0.18446E+00,
     & 0.20385E+00, 0.22372E+00, 0.24406E+00, 0.26504E+00, 0.28692E+00,
     & 0.31047E+00, 0.33570E+00, 0.36235E+00, 0.38901E+00, 0.41566E+00,
     & 0.44232E+00, 0.46897E+00, 0.49563E+00, 0.52228E+00, 0.54894E+00,
     &-0.15277E-01,-0.56385E-02, 0.40038E-02, 0.14118E-01, 0.25066E-01,
     & 0.36925E-01, 0.49744E-01, 0.63608E-01, 0.78134E-01, 0.93498E-01,
     & 0.10961E+00, 0.12639E+00, 0.14378E+00, 0.16170E+00, 0.18010E+00,
     & 0.19892E+00, 0.21818E+00, 0.23790E+00, 0.25823E+00, 0.27942E+00,
     & 0.30223E+00, 0.32665E+00, 0.35245E+00, 0.37826E+00, 0.40406E+00,
     & 0.42987E+00, 0.45567E+00, 0.48148E+00, 0.50729E+00, 0.53309E+00,
     &-0.14984E-01,-0.54952E-02, 0.39971E-02, 0.13944E-01, 0.24687E-01,
     & 0.36312E-01, 0.48855E-01, 0.62407E-01, 0.76592E-01, 0.91579E-01,
     & 0.10728E+00, 0.12362E+00, 0.14053E+00, 0.15794E+00, 0.17580E+00,
     & 0.19406E+00, 0.21275E+00, 0.23186E+00, 0.25155E+00, 0.27206E+00,
     & 0.29413E+00, 0.31776E+00, 0.34274E+00, 0.36772E+00, 0.39269E+00,
     & 0.41767E+00, 0.44265E+00, 0.46763E+00, 0.49260E+00, 0.51758E+00,
     &-0.14695E-01,-0.53532E-02, 0.39916E-02, 0.13771E-01, 0.24311E-01,
     & 0.35705E-01, 0.47976E-01, 0.61221E-01, 0.75072E-01, 0.89687E-01,
     & 0.10498E+00, 0.12089E+00, 0.13732E+00, 0.15423E+00, 0.17157E+00,
     & 0.18930E+00, 0.20741E+00, 0.22592E+00, 0.24499E+00, 0.26484E+00,
     & 0.28619E+00, 0.30905E+00, 0.33322E+00, 0.35738E+00, 0.38155E+00,
     & 0.40571E+00, 0.42988E+00, 0.45405E+00, 0.47821E+00, 0.50238E+00,
     &-0.14402E-01,-0.52086E-02, 0.39875E-02, 0.13600E-01, 0.23940E-01,
     & 0.35104E-01, 0.47108E-01, 0.60050E-01, 0.73571E-01, 0.87822E-01,
     & 0.10272E+00, 0.11820E+00, 0.13417E+00, 0.15059E+00, 0.16742E+00,
     & 0.18461E+00, 0.20216E+00, 0.22009E+00, 0.23854E+00, 0.25775E+00,
     & 0.27839E+00, 0.30050E+00, 0.32387E+00, 0.34725E+00, 0.37062E+00,
     & 0.39399E+00, 0.41736E+00, 0.44073E+00, 0.46410E+00, 0.48747E+00,
     &-0.14109E-01,-0.50636E-02, 0.39846E-02, 0.13430E-01, 0.23572E-01,
     & 0.34510E-01, 0.46249E-01, 0.58893E-01, 0.72090E-01, 0.85984E-01,
     & 0.10050E+00, 0.11555E+00, 0.13107E+00, 0.14702E+00, 0.16334E+00,
     & 0.18001E+00, 0.19701E+00, 0.21436E+00, 0.23222E+00, 0.25080E+00,
     & 0.27075E+00, 0.29212E+00, 0.31471E+00, 0.33731E+00, 0.35990E+00,
     & 0.38249E+00, 0.40508E+00, 0.42767E+00, 0.45026E+00, 0.47286E+00,
     &-0.13810E-01,-0.49149E-02, 0.39830E-02, 0.13263E-01, 0.23210E-01,
     & 0.33922E-01, 0.45401E-01, 0.57751E-01, 0.70630E-01, 0.84172E-01,
     & 0.98305E-01, 0.11294E+00, 0.12801E+00, 0.14350E+00, 0.15933E+00,
     & 0.17549E+00, 0.19195E+00, 0.20874E+00, 0.22601E+00, 0.24397E+00,
     & 0.26325E+00, 0.28390E+00, 0.30573E+00, 0.32755E+00, 0.34938E+00,
     & 0.37120E+00, 0.39303E+00, 0.41486E+00, 0.43668E+00, 0.45851E+00,
     &-0.13515E-01,-0.47677E-02, 0.39829E-02, 0.13097E-01, 0.22852E-01,
     & 0.33339E-01, 0.44563E-01, 0.56625E-01, 0.69190E-01, 0.82386E-01,
     & 0.96145E-01, 0.11037E+00, 0.12501E+00, 0.14004E+00, 0.15538E+00,
     & 0.17104E+00, 0.18698E+00, 0.20322E+00, 0.21992E+00, 0.23727E+00,
     & 0.25590E+00, 0.27584E+00, 0.29691E+00, 0.31799E+00, 0.33907E+00,
     & 0.36014E+00, 0.38122E+00, 0.40230E+00, 0.42337E+00, 0.44445E+00/

      data ((f2grdl(i,j),j=1,30),i= 31, 40)/
     &-0.13222E-01,-0.46203E-02, 0.39839E-02, 0.12933E-01, 0.22498E-01,
     & 0.32763E-01, 0.43737E-01, 0.55513E-01, 0.67771E-01, 0.80629E-01,
     & 0.94018E-01, 0.10784E+00, 0.12206E+00, 0.13664E+00, 0.15151E+00,
     & 0.16668E+00, 0.18209E+00, 0.19780E+00, 0.21393E+00, 0.23069E+00,
     & 0.24868E+00, 0.26793E+00, 0.28827E+00, 0.30861E+00, 0.32895E+00,
     & 0.34929E+00, 0.36964E+00, 0.38998E+00, 0.41032E+00, 0.43066E+00,
     &-0.12928E-01,-0.44721E-02, 0.39861E-02, 0.12772E-01, 0.22148E-01,
     & 0.32194E-01, 0.42923E-01, 0.54416E-01, 0.66372E-01, 0.78897E-01,
     & 0.91923E-01, 0.10535E+00, 0.11916E+00, 0.13330E+00, 0.14771E+00,
     & 0.16239E+00, 0.17730E+00, 0.19248E+00, 0.20806E+00, 0.22424E+00,
     & 0.24160E+00, 0.26017E+00, 0.27980E+00, 0.29942E+00, 0.31904E+00,
     & 0.33866E+00, 0.35829E+00, 0.37791E+00, 0.39753E+00, 0.41716E+00,
     &-0.12630E-01,-0.43217E-02, 0.39894E-02, 0.12613E-01, 0.21803E-01,
     & 0.31632E-01, 0.42121E-01, 0.53334E-01, 0.64993E-01, 0.77191E-01,
     & 0.89859E-01, 0.10290E+00, 0.11630E+00, 0.13001E+00, 0.14397E+00,
     & 0.15818E+00, 0.17260E+00, 0.18725E+00, 0.20230E+00, 0.21791E+00,
     & 0.23466E+00, 0.25257E+00, 0.27149E+00, 0.29041E+00, 0.30932E+00,
     & 0.32824E+00, 0.34716E+00, 0.36608E+00, 0.38499E+00, 0.40391E+00,
     &-0.12336E-01,-0.41722E-02, 0.39939E-02, 0.12456E-01, 0.21461E-01,
     & 0.31077E-01, 0.41328E-01, 0.52268E-01, 0.63635E-01, 0.75511E-01,
     & 0.87829E-01, 0.10050E+00, 0.11350E+00, 0.12679E+00, 0.14030E+00,
     & 0.15404E+00, 0.16798E+00, 0.18213E+00, 0.19664E+00, 0.21171E+00,
     & 0.22786E+00, 0.24512E+00, 0.26335E+00, 0.28158E+00, 0.29982E+00,
     & 0.31805E+00, 0.33628E+00, 0.35452E+00, 0.37275E+00, 0.39098E+00,
     &-0.12040E-01,-0.40212E-02, 0.39995E-02, 0.12302E-01, 0.21123E-01,
     & 0.30529E-01, 0.40548E-01, 0.51220E-01, 0.62300E-01, 0.73859E-01,
     & 0.85833E-01, 0.98136E-01, 0.11074E+00, 0.12362E+00, 0.13670E+00,
     & 0.14998E+00, 0.16344E+00, 0.17710E+00, 0.19110E+00, 0.20562E+00,
     & 0.22119E+00, 0.23781E+00, 0.25538E+00, 0.27295E+00, 0.29052E+00,
     & 0.30808E+00, 0.32565E+00, 0.34322E+00, 0.36079E+00, 0.37835E+00,
     &-0.11737E-01,-0.38663E-02, 0.40065E-02, 0.12150E-01, 0.20789E-01,
     & 0.29988E-01, 0.39779E-01, 0.50187E-01, 0.60985E-01, 0.72234E-01,
     & 0.83869E-01, 0.95812E-01, 0.10804E+00, 0.12051E+00, 0.13316E+00,
     & 0.14599E+00, 0.15899E+00, 0.17217E+00, 0.18567E+00, 0.19966E+00,
     & 0.21464E+00, 0.23066E+00, 0.24758E+00, 0.26450E+00, 0.28142E+00,
     & 0.29834E+00, 0.31526E+00, 0.33217E+00, 0.34909E+00, 0.36601E+00,
     &-0.11443E-01,-0.37150E-02, 0.40150E-02, 0.12000E-01, 0.20460E-01,
     & 0.29456E-01, 0.39019E-01, 0.49170E-01, 0.59690E-01, 0.70636E-01,
     & 0.81938E-01, 0.93528E-01, 0.10538E+00, 0.11745E+00, 0.12969E+00,
     & 0.14208E+00, 0.15462E+00, 0.16734E+00, 0.18034E+00, 0.19382E+00,
     & 0.20824E+00, 0.22365E+00, 0.23994E+00, 0.25623E+00, 0.27251E+00,
     & 0.28880E+00, 0.30509E+00, 0.32138E+00, 0.33767E+00, 0.35396E+00,
     &-0.11142E-01,-0.35595E-02, 0.40246E-02, 0.11854E-01, 0.20135E-01,
     & 0.28931E-01, 0.38270E-01, 0.48170E-01, 0.58415E-01, 0.69064E-01,
     & 0.80041E-01, 0.91284E-01, 0.10276E+00, 0.11445E+00, 0.12628E+00,
     & 0.13824E+00, 0.15034E+00, 0.16259E+00, 0.17512E+00, 0.18809E+00,
     & 0.20196E+00, 0.21679E+00, 0.23246E+00, 0.24813E+00, 0.26380E+00,
     & 0.27947E+00, 0.29514E+00, 0.31081E+00, 0.32648E+00, 0.34215E+00,
     &-0.10843E-01,-0.34044E-02, 0.40358E-02, 0.11709E-01, 0.19815E-01,
     & 0.28414E-01, 0.37532E-01, 0.47185E-01, 0.57160E-01, 0.67519E-01,
     & 0.78177E-01, 0.89081E-01, 0.10020E+00, 0.11150E+00, 0.12293E+00,
     & 0.13447E+00, 0.14614E+00, 0.15795E+00, 0.17001E+00, 0.18248E+00,
     & 0.19582E+00, 0.21007E+00, 0.22513E+00, 0.24020E+00, 0.25527E+00,
     & 0.27033E+00, 0.28540E+00, 0.30047E+00, 0.31553E+00, 0.33060E+00,
     &-0.10545E-01,-0.32490E-02, 0.40485E-02, 0.11568E-01, 0.19500E-01,
     & 0.27906E-01, 0.36804E-01, 0.46215E-01, 0.55925E-01, 0.65999E-01,
     & 0.76346E-01, 0.86916E-01, 0.97684E-01, 0.10861E+00, 0.11965E+00,
     & 0.13078E+00, 0.14203E+00, 0.15340E+00, 0.16500E+00, 0.17699E+00,
     & 0.18980E+00, 0.20349E+00, 0.21797E+00, 0.23245E+00, 0.24692E+00,
     & 0.26140E+00, 0.27588E+00, 0.29035E+00, 0.30483E+00, 0.31931E+00/

      data ((f2grdl(i,j),j=1,30),i= 41, 50)/
     &-0.10248E-01,-0.30931E-02, 0.40628E-02, 0.11429E-01, 0.19190E-01,
     & 0.27406E-01, 0.36088E-01, 0.45261E-01, 0.54711E-01, 0.64505E-01,
     & 0.74547E-01, 0.84791E-01, 0.95215E-01, 0.10577E+00, 0.11643E+00,
     & 0.12717E+00, 0.13800E+00, 0.14894E+00, 0.16009E+00, 0.17161E+00,
     & 0.18391E+00, 0.19706E+00, 0.21096E+00, 0.22486E+00, 0.23876E+00,
     & 0.25266E+00, 0.26657E+00, 0.28047E+00, 0.29437E+00, 0.30827E+00,
     &-0.99495E-02,-0.29362E-02, 0.40786E-02, 0.11293E-01, 0.18886E-01,
     & 0.26913E-01, 0.35384E-01, 0.44321E-01, 0.53518E-01, 0.63037E-01,
     & 0.72780E-01, 0.82708E-01, 0.92792E-01, 0.10299E+00, 0.11327E+00,
     & 0.12363E+00, 0.13406E+00, 0.14457E+00, 0.15529E+00, 0.16635E+00,
     & 0.17815E+00, 0.19077E+00, 0.20410E+00, 0.21744E+00, 0.23078E+00,
     & 0.24412E+00, 0.25746E+00, 0.27079E+00, 0.28413E+00, 0.29747E+00,
     &-0.96559E-02,-0.27807E-02, 0.40959E-02, 0.11161E-01, 0.18587E-01,
     & 0.26428E-01, 0.34692E-01, 0.43398E-01, 0.52346E-01, 0.61596E-01,
     & 0.71046E-01, 0.80663E-01, 0.90417E-01, 0.10027E+00, 0.11018E+00,
     & 0.12016E+00, 0.13019E+00, 0.14030E+00, 0.15059E+00, 0.16121E+00,
     & 0.17252E+00, 0.18461E+00, 0.19740E+00, 0.21019E+00, 0.22298E+00,
     & 0.23577E+00, 0.24856E+00, 0.26134E+00, 0.27413E+00, 0.28692E+00,
     &-0.93567E-02,-0.26216E-02, 0.41148E-02, 0.11032E-01, 0.18293E-01,
     & 0.25951E-01, 0.34012E-01, 0.42491E-01, 0.51197E-01, 0.60180E-01,
     & 0.69343E-01, 0.78657E-01, 0.88087E-01, 0.97594E-01, 0.10715E+00,
     & 0.11676E+00, 0.12641E+00, 0.13613E+00, 0.14600E+00, 0.15618E+00,
     & 0.16701E+00, 0.17860E+00, 0.19085E+00, 0.20310E+00, 0.21535E+00,
     & 0.22760E+00, 0.23985E+00, 0.25210E+00, 0.26435E+00, 0.27661E+00,
     &-0.90561E-02,-0.24609E-02, 0.41356E-02, 0.10906E-01, 0.18005E-01,
     & 0.25483E-01, 0.33345E-01, 0.41601E-01, 0.50070E-01, 0.58792E-01,
     & 0.67676E-01, 0.76693E-01, 0.85805E-01, 0.94978E-01, 0.10419E+00,
     & 0.11344E+00, 0.12271E+00, 0.13204E+00, 0.14151E+00, 0.15125E+00,
     & 0.16163E+00, 0.17272E+00, 0.18445E+00, 0.19618E+00, 0.20790E+00,
     & 0.21963E+00, 0.23136E+00, 0.24309E+00, 0.25482E+00, 0.26654E+00,
     &-0.87613E-02,-0.23020E-02, 0.41585E-02, 0.10784E-01, 0.17723E-01,
     & 0.25025E-01, 0.32691E-01, 0.40727E-01, 0.48965E-01, 0.57430E-01,
     & 0.66041E-01, 0.74768E-01, 0.83569E-01, 0.92416E-01, 0.10128E+00,
     & 0.11019E+00, 0.11909E+00, 0.12804E+00, 0.13711E+00, 0.14644E+00,
     & 0.15637E+00, 0.16698E+00, 0.17820E+00, 0.18942E+00, 0.20064E+00,
     & 0.21186E+00, 0.22308E+00, 0.23430E+00, 0.24552E+00, 0.25675E+00,
     &-0.84605E-02,-0.21391E-02, 0.41835E-02, 0.10666E-01, 0.17448E-01,
     & 0.24576E-01, 0.32050E-01, 0.39871E-01, 0.47881E-01, 0.56097E-01,
     & 0.64441E-01, 0.72884E-01, 0.81380E-01, 0.89908E-01, 0.98445E-01,
     & 0.10700E+00, 0.11555E+00, 0.12413E+00, 0.13281E+00, 0.14174E+00,
     & 0.15122E+00, 0.16137E+00, 0.17209E+00, 0.18282E+00, 0.19355E+00,
     & 0.20427E+00, 0.21500E+00, 0.22572E+00, 0.23645E+00, 0.24717E+00,
     &-0.81662E-02,-0.19782E-02, 0.42109E-02, 0.10552E-01, 0.17179E-01,
     & 0.24136E-01, 0.31423E-01, 0.39034E-01, 0.46821E-01, 0.54790E-01,
     & 0.62878E-01, 0.71038E-01, 0.79238E-01, 0.87456E-01, 0.95668E-01,
     & 0.10389E+00, 0.11209E+00, 0.12030E+00, 0.12861E+00, 0.13714E+00,
     & 0.14620E+00, 0.15589E+00, 0.16613E+00, 0.17637E+00, 0.18661E+00,
     & 0.19686E+00, 0.20710E+00, 0.21734E+00, 0.22758E+00, 0.23782E+00,
     &-0.78753E-02,-0.18179E-02, 0.42406E-02, 0.10442E-01, 0.16917E-01,
     & 0.23707E-01, 0.30809E-01, 0.38215E-01, 0.45783E-01, 0.53514E-01,
     & 0.61349E-01, 0.69234E-01, 0.77143E-01, 0.85060E-01, 0.92956E-01,
     & 0.10085E+00, 0.10871E+00, 0.11656E+00, 0.12451E+00, 0.13264E+00,
     & 0.14130E+00, 0.15054E+00, 0.16031E+00, 0.17008E+00, 0.17985E+00,
     & 0.18962E+00, 0.19939E+00, 0.20916E+00, 0.21893E+00, 0.22870E+00,
     &-0.75775E-02,-0.16530E-02, 0.42726E-02, 0.10337E-01, 0.16662E-01,
     & 0.23288E-01, 0.30210E-01, 0.37415E-01, 0.44769E-01, 0.52266E-01,
     & 0.59853E-01, 0.67469E-01, 0.75097E-01, 0.82717E-01, 0.90306E-01,
     & 0.97877E-01, 0.10541E+00, 0.11292E+00, 0.12050E+00, 0.12826E+00,
     & 0.13652E+00, 0.14532E+00, 0.15463E+00, 0.16394E+00, 0.17325E+00,
     & 0.18256E+00, 0.19186E+00, 0.20117E+00, 0.21048E+00, 0.21979E+00/

      data ((f2grdl(i,j),j=1,30),i= 51, 60)/
     &-0.72848E-02,-0.14891E-02, 0.43075E-02, 0.10236E-01, 0.16416E-01,
     & 0.22880E-01, 0.29625E-01, 0.36635E-01, 0.43778E-01, 0.51050E-01,
     & 0.58392E-01, 0.65746E-01, 0.73098E-01, 0.80430E-01, 0.87718E-01,
     & 0.94977E-01, 0.10219E+00, 0.10936E+00, 0.11659E+00, 0.12399E+00,
     & 0.13186E+00, 0.14024E+00, 0.14909E+00, 0.15794E+00, 0.16680E+00,
     & 0.17565E+00, 0.18450E+00, 0.19335E+00, 0.20220E+00, 0.21106E+00,
     &-0.69960E-02,-0.13257E-02, 0.43454E-02, 0.10141E-01, 0.16177E-01,
     & 0.22484E-01, 0.29055E-01, 0.35873E-01, 0.42810E-01, 0.49863E-01,
     & 0.56964E-01, 0.64063E-01, 0.71147E-01, 0.78198E-01, 0.85193E-01,
     & 0.92147E-01, 0.99041E-01, 0.10589E+00, 0.11278E+00, 0.11983E+00,
     & 0.12732E+00, 0.13529E+00, 0.14370E+00, 0.15211E+00, 0.16052E+00,
     & 0.16892E+00, 0.17733E+00, 0.18574E+00, 0.19415E+00, 0.20256E+00,
     &-0.67034E-02,-0.11591E-02, 0.43861E-02, 0.10052E-01, 0.15947E-01,
     & 0.22099E-01, 0.28500E-01, 0.35131E-01, 0.41867E-01, 0.48705E-01,
     & 0.55570E-01, 0.62421E-01, 0.69245E-01, 0.76022E-01, 0.82733E-01,
     & 0.89388E-01, 0.95975E-01, 0.10251E+00, 0.10908E+00, 0.11578E+00,
     & 0.12290E+00, 0.13046E+00, 0.13845E+00, 0.14643E+00, 0.15441E+00,
     & 0.16239E+00, 0.17037E+00, 0.17835E+00, 0.18633E+00, 0.19432E+00,
     &-0.64081E-02,-0.98914E-03, 0.44307E-02, 0.99692E-02, 0.15726E-01,
     & 0.21726E-01, 0.27962E-01, 0.34410E-01, 0.40949E-01, 0.47576E-01,
     & 0.54212E-01, 0.60821E-01, 0.67390E-01, 0.73902E-01, 0.80335E-01,
     & 0.86702E-01, 0.92991E-01, 0.99216E-01, 0.10547E+00, 0.11183E+00,
     & 0.11859E+00, 0.12577E+00, 0.13335E+00, 0.14092E+00, 0.14850E+00,
     & 0.15607E+00, 0.16365E+00, 0.17122E+00, 0.17880E+00, 0.18637E+00,
     &-0.61218E-02,-0.82162E-03, 0.44793E-02, 0.98926E-02, 0.15514E-01,
     & 0.21367E-01, 0.27441E-01, 0.33709E-01, 0.40056E-01, 0.46477E-01,
     & 0.52890E-01, 0.59263E-01, 0.65584E-01, 0.71837E-01, 0.77999E-01,
     & 0.84087E-01, 0.90085E-01, 0.96012E-01, 0.10195E+00, 0.10800E+00,
     & 0.11439E+00, 0.12121E+00, 0.12839E+00, 0.13558E+00, 0.14277E+00,
     & 0.14995E+00, 0.15714E+00, 0.16432E+00, 0.17151E+00, 0.17870E+00,
     &-0.58301E-02,-0.64947E-03, 0.45320E-02, 0.98228E-02, 0.15313E-01,
     & 0.21021E-01, 0.26937E-01, 0.33029E-01, 0.39191E-01, 0.45411E-01,
     & 0.51605E-01, 0.57748E-01, 0.63828E-01, 0.69830E-01, 0.75727E-01,
     & 0.81541E-01, 0.87259E-01, 0.92896E-01, 0.98536E-01, 0.10427E+00,
     & 0.11032E+00, 0.11677E+00, 0.12358E+00, 0.13038E+00, 0.13719E+00,
     & 0.14400E+00, 0.15081E+00, 0.15762E+00, 0.16442E+00, 0.17123E+00,
     &-0.55338E-02,-0.47254E-03, 0.45896E-02, 0.97610E-02, 0.15122E-01,
     & 0.20690E-01, 0.26452E-01, 0.32373E-01, 0.38352E-01, 0.44375E-01,
     & 0.50358E-01, 0.56278E-01, 0.62125E-01, 0.67879E-01, 0.73520E-01,
     & 0.79068E-01, 0.84513E-01, 0.89869E-01, 0.95217E-01, 0.10064E+00,
     & 0.10636E+00, 0.11246E+00, 0.11890E+00, 0.12534E+00, 0.13178E+00,
     & 0.13823E+00, 0.14467E+00, 0.15111E+00, 0.15755E+00, 0.16399E+00,
     &-0.52436E-02,-0.29584E-03, 0.46528E-02, 0.97071E-02, 0.14944E-01,
     & 0.20374E-01, 0.25985E-01, 0.31739E-01, 0.37542E-01, 0.43372E-01,
     & 0.49150E-01, 0.54854E-01, 0.60473E-01, 0.65986E-01, 0.71377E-01,
     & 0.76668E-01, 0.81849E-01, 0.86931E-01, 0.91997E-01, 0.97125E-01,
     & 0.10252E+00, 0.10828E+00, 0.11437E+00, 0.12046E+00, 0.12655E+00,
     & 0.13264E+00, 0.13873E+00, 0.14482E+00, 0.15090E+00, 0.15699E+00,
     &-0.49484E-02,-0.11362E-03, 0.47220E-02, 0.96616E-02, 0.14777E-01,
     & 0.20075E-01, 0.25539E-01, 0.31131E-01, 0.36761E-01, 0.42403E-01,
     & 0.47981E-01, 0.53476E-01, 0.58872E-01, 0.64152E-01, 0.69301E-01,
     & 0.74342E-01, 0.79266E-01, 0.84083E-01, 0.88874E-01, 0.93716E-01,
     & 0.98803E-01, 0.10424E+00, 0.10998E+00, 0.11572E+00, 0.12147E+00,
     & 0.12721E+00, 0.13296E+00, 0.13870E+00, 0.14444E+00, 0.15019E+00,
     &-0.46588E-02, 0.69203E-04, 0.47979E-02, 0.96259E-02, 0.14623E-01,
     & 0.19792E-01, 0.25113E-01, 0.30547E-01, 0.36009E-01, 0.41469E-01,
     & 0.46853E-01, 0.52144E-01, 0.57323E-01, 0.62375E-01, 0.67291E-01,
     & 0.72090E-01, 0.76765E-01, 0.81325E-01, 0.85852E-01, 0.90415E-01,
     & 0.95205E-01, 0.10032E+00, 0.10573E+00, 0.11114E+00, 0.11655E+00,
     & 0.12196E+00, 0.12736E+00, 0.13277E+00, 0.13818E+00, 0.14359E+00/

      data ((f2grdl(i,j),j=1,30),i= 61, 70)/
     &-0.43608E-02, 0.25954E-03, 0.48808E-02, 0.96005E-02, 0.14484E-01,
     & 0.19528E-01, 0.24709E-01, 0.29989E-01, 0.35288E-01, 0.40571E-01,
     & 0.45769E-01, 0.50859E-01, 0.55826E-01, 0.60657E-01, 0.65345E-01,
     & 0.69911E-01, 0.74345E-01, 0.78656E-01, 0.82925E-01, 0.87218E-01,
     & 0.91723E-01, 0.96531E-01, 0.10162E+00, 0.10671E+00, 0.11180E+00,
     & 0.11689E+00, 0.12197E+00, 0.12706E+00, 0.13215E+00, 0.13724E+00,
     &-0.40596E-02, 0.45594E-03, 0.49723E-02, 0.95869E-02, 0.14360E-01,
     & 0.19283E-01, 0.24328E-01, 0.29460E-01, 0.34599E-01, 0.39710E-01,
     & 0.44727E-01, 0.49621E-01, 0.54382E-01, 0.58999E-01, 0.63467E-01,
     & 0.67805E-01, 0.72006E-01, 0.76075E-01, 0.80095E-01, 0.84127E-01,
     & 0.88358E-01, 0.92869E-01, 0.97644E-01, 0.10242E+00, 0.10720E+00,
     & 0.11197E+00, 0.11675E+00, 0.12152E+00, 0.12630E+00, 0.13107E+00,
     &-0.37577E-02, 0.65736E-03, 0.50732E-02, 0.95861E-02, 0.14251E-01,
     & 0.19057E-01, 0.23972E-01, 0.28958E-01, 0.33942E-01, 0.38887E-01,
     & 0.43725E-01, 0.48431E-01, 0.52993E-01, 0.57403E-01, 0.61657E-01,
     & 0.65774E-01, 0.69749E-01, 0.73585E-01, 0.77363E-01, 0.81145E-01,
     & 0.85110E-01, 0.89334E-01, 0.93806E-01, 0.98278E-01, 0.10275E+00,
     & 0.10722E+00, 0.11169E+00, 0.11617E+00, 0.12064E+00, 0.12511E+00,
     &-0.34509E-02, 0.86658E-03, 0.51847E-02, 0.95993E-02, 0.14160E-01,
     & 0.18852E-01, 0.23642E-01, 0.28486E-01, 0.33320E-01, 0.38103E-01,
     & 0.42768E-01, 0.47289E-01, 0.51659E-01, 0.55870E-01, 0.59917E-01,
     & 0.63822E-01, 0.67578E-01, 0.71189E-01, 0.74734E-01, 0.78274E-01,
     & 0.81982E-01, 0.85929E-01, 0.90104E-01, 0.94280E-01, 0.98455E-01,
     & 0.10263E+00, 0.10681E+00, 0.11098E+00, 0.11516E+00, 0.11933E+00,
     &-0.31337E-02, 0.10869E-02, 0.53083E-02, 0.96270E-02, 0.14087E-01,
     & 0.18671E-01, 0.23340E-01, 0.28046E-01, 0.32733E-01, 0.37359E-01,
     & 0.41856E-01, 0.46198E-01, 0.50381E-01, 0.54398E-01, 0.58245E-01,
     & 0.61946E-01, 0.65488E-01, 0.68883E-01, 0.72204E-01, 0.75511E-01,
     & 0.78971E-01, 0.82650E-01, 0.86542E-01, 0.90433E-01, 0.94325E-01,
     & 0.98217E-01, 0.10211E+00, 0.10600E+00, 0.10989E+00, 0.11378E+00,
     &-0.28157E-02, 0.13145E-02, 0.54455E-02, 0.96713E-02, 0.14035E-01,
     & 0.18514E-01, 0.23067E-01, 0.27639E-01, 0.32185E-01, 0.36658E-01,
     & 0.40989E-01, 0.45159E-01, 0.49161E-01, 0.52991E-01, 0.56643E-01,
     & 0.60145E-01, 0.63483E-01, 0.66667E-01, 0.69771E-01, 0.72854E-01,
     & 0.76074E-01, 0.79498E-01, 0.83119E-01, 0.86740E-01, 0.90361E-01,
     & 0.93982E-01, 0.97603E-01, 0.10122E+00, 0.10485E+00, 0.10847E+00,
     &-0.24801E-02, 0.15583E-02, 0.55977E-02, 0.97343E-02, 0.14005E-01,
     & 0.18382E-01, 0.22823E-01, 0.27268E-01, 0.31676E-01, 0.35999E-01,
     & 0.40172E-01, 0.44173E-01, 0.48001E-01, 0.51650E-01, 0.55114E-01,
     & 0.58423E-01, 0.61562E-01, 0.64544E-01, 0.67439E-01, 0.70306E-01,
     & 0.73292E-01, 0.76471E-01, 0.79838E-01, 0.83204E-01, 0.86571E-01,
     & 0.89937E-01, 0.93304E-01, 0.96670E-01, 0.10004E+00, 0.10340E+00,
     &-0.21317E-02, 0.18173E-02, 0.57674E-02, 0.98176E-02, 0.13999E-01,
     & 0.18278E-01, 0.22612E-01, 0.26933E-01, 0.31208E-01, 0.35387E-01,
     & 0.39404E-01, 0.43244E-01, 0.46902E-01, 0.50376E-01, 0.53657E-01,
     & 0.56778E-01, 0.59726E-01, 0.62513E-01, 0.65208E-01, 0.67867E-01,
     & 0.70629E-01, 0.73574E-01, 0.76696E-01, 0.79818E-01, 0.82941E-01,
     & 0.86063E-01, 0.89186E-01, 0.92308E-01, 0.95431E-01, 0.98553E-01,
     &-0.17722E-02, 0.20919E-02, 0.59571E-02, 0.99235E-02, 0.14018E-01,
     & 0.18203E-01, 0.22433E-01, 0.26638E-01, 0.30783E-01, 0.34822E-01,
     & 0.38690E-01, 0.42372E-01, 0.45866E-01, 0.49169E-01, 0.52275E-01,
     & 0.55214E-01, 0.57978E-01, 0.60577E-01, 0.63078E-01, 0.65538E-01,
     & 0.68085E-01, 0.70806E-01, 0.73696E-01, 0.76587E-01, 0.79477E-01,
     & 0.82368E-01, 0.85258E-01, 0.88149E-01, 0.91039E-01, 0.93930E-01,
     &-0.13926E-02, 0.23879E-02, 0.61695E-02, 0.10055E-01, 0.14066E-01,
     & 0.18161E-01, 0.22290E-01, 0.26382E-01, 0.30404E-01, 0.34306E-01,
     & 0.38029E-01, 0.41560E-01, 0.44896E-01, 0.48032E-01, 0.50967E-01,
     & 0.53730E-01, 0.56317E-01, 0.58735E-01, 0.61051E-01, 0.63318E-01,
     & 0.65660E-01, 0.68166E-01, 0.70833E-01, 0.73500E-01, 0.76167E-01,
     & 0.78834E-01, 0.81501E-01, 0.84168E-01, 0.86835E-01, 0.89502E-01/

      data ((f2grdl(i,j),j=1,30),i= 71, 80)/
     &-0.98316E-03, 0.27117E-02, 0.64078E-02, 0.10213E-01, 0.14144E-01,
     & 0.18153E-01, 0.22185E-01, 0.26168E-01, 0.30071E-01, 0.33843E-01,
     & 0.37426E-01, 0.40809E-01, 0.43990E-01, 0.46965E-01, 0.49737E-01,
     & 0.52332E-01, 0.54747E-01, 0.56991E-01, 0.59129E-01, 0.61211E-01,
     & 0.63359E-01, 0.65659E-01, 0.68112E-01, 0.70564E-01, 0.73016E-01,
     & 0.75468E-01, 0.77920E-01, 0.80372E-01, 0.82825E-01, 0.85277E-01,
     &-0.54804E-03, 0.30635E-02, 0.66762E-02, 0.10403E-01, 0.14257E-01,
     & 0.18181E-01, 0.22121E-01, 0.25999E-01, 0.29788E-01, 0.33433E-01,
     & 0.36880E-01, 0.40120E-01, 0.43151E-01, 0.45970E-01, 0.48583E-01,
     & 0.51017E-01, 0.53268E-01, 0.55344E-01, 0.57310E-01, 0.59216E-01,
     & 0.61179E-01, 0.63283E-01, 0.65529E-01, 0.67775E-01, 0.70021E-01,
     & 0.72267E-01, 0.74514E-01, 0.76760E-01, 0.79006E-01, 0.81252E-01,
     &-0.79138E-04, 0.34494E-02, 0.69791E-02, 0.10628E-01, 0.14406E-01,
     & 0.18250E-01, 0.22101E-01, 0.25876E-01, 0.29556E-01, 0.33079E-01,
     & 0.36394E-01, 0.39495E-01, 0.42380E-01, 0.45051E-01, 0.47510E-01,
     & 0.49788E-01, 0.51880E-01, 0.53796E-01, 0.55598E-01, 0.57334E-01,
     & 0.59121E-01, 0.61038E-01, 0.63089E-01, 0.65140E-01, 0.67191E-01,
     & 0.69241E-01, 0.71292E-01, 0.73343E-01, 0.75394E-01, 0.77445E-01,
     & 0.44445E-03, 0.38827E-02, 0.73223E-02, 0.10893E-01, 0.14596E-01,
     & 0.18362E-01, 0.22126E-01, 0.25805E-01, 0.29378E-01, 0.32783E-01,
     & 0.35970E-01, 0.38936E-01, 0.41681E-01, 0.44206E-01, 0.46518E-01,
     & 0.48645E-01, 0.50584E-01, 0.52346E-01, 0.53991E-01, 0.55565E-01,
     & 0.57183E-01, 0.58922E-01, 0.60785E-01, 0.62649E-01, 0.64512E-01,
     & 0.66376E-01, 0.68239E-01, 0.70103E-01, 0.71966E-01, 0.73830E-01,
     & 0.10248E-02, 0.43679E-02, 0.77125E-02, 0.11201E-01, 0.14831E-01,
     & 0.18520E-01, 0.22201E-01, 0.25786E-01, 0.29256E-01, 0.32545E-01,
     & 0.35610E-01, 0.38445E-01, 0.41054E-01, 0.43439E-01, 0.45607E-01,
     & 0.47592E-01, 0.49383E-01, 0.50996E-01, 0.52490E-01, 0.53910E-01,
     & 0.55367E-01, 0.56935E-01, 0.58620E-01, 0.60304E-01, 0.61988E-01,
     & 0.63672E-01, 0.65356E-01, 0.67040E-01, 0.68725E-01, 0.70409E-01,
     & 0.16939E-02, 0.49254E-02, 0.81587E-02, 0.11561E-01, 0.15116E-01,
     & 0.18730E-01, 0.22329E-01, 0.25823E-01, 0.29194E-01, 0.32371E-01,
     & 0.35315E-01, 0.38023E-01, 0.40500E-01, 0.42750E-01, 0.44780E-01,
     & 0.46624E-01, 0.48273E-01, 0.49744E-01, 0.51093E-01, 0.52366E-01,
     & 0.53669E-01, 0.55077E-01, 0.56593E-01, 0.58110E-01, 0.59626E-01,
     & 0.61142E-01, 0.62658E-01, 0.64175E-01, 0.65691E-01, 0.67207E-01,
     & 0.24530E-02, 0.55621E-02, 0.86729E-02, 0.11978E-01, 0.15457E-01,
     & 0.18996E-01, 0.22513E-01, 0.25918E-01, 0.29194E-01, 0.32264E-01,
     & 0.35087E-01, 0.37670E-01, 0.40019E-01, 0.42139E-01, 0.44035E-01,
     & 0.45742E-01, 0.47255E-01, 0.48589E-01, 0.49800E-01, 0.50932E-01,
     & 0.52089E-01, 0.53346E-01, 0.54706E-01, 0.56067E-01, 0.57428E-01,
     & 0.58789E-01, 0.60150E-01, 0.61511E-01, 0.62871E-01, 0.64232E-01,
     & 0.30512E-02, 0.61546E-02, 0.92575E-02, 0.12462E-01, 0.15860E-01,
     & 0.19322E-01, 0.22759E-01, 0.26075E-01, 0.29257E-01, 0.32224E-01,
     & 0.34930E-01, 0.37391E-01, 0.39613E-01, 0.41603E-01, 0.43368E-01,
     & 0.44943E-01, 0.46324E-01, 0.47524E-01, 0.48602E-01, 0.49599E-01,
     & 0.50618E-01, 0.51729E-01, 0.52940E-01, 0.54152E-01, 0.55363E-01,
     & 0.56574E-01, 0.57785E-01, 0.58996E-01, 0.60207E-01, 0.61418E-01,
     & 0.36501E-02, 0.67753E-02, 0.98996E-02, 0.13022E-01, 0.16332E-01,
     & 0.19714E-01, 0.23071E-01, 0.26298E-01, 0.29386E-01, 0.32253E-01,
     & 0.34847E-01, 0.37186E-01, 0.39284E-01, 0.41146E-01, 0.42783E-01,
     & 0.44228E-01, 0.45480E-01, 0.46552E-01, 0.47500E-01, 0.48369E-01,
     & 0.49254E-01, 0.50227E-01, 0.51295E-01, 0.52362E-01, 0.53430E-01,
     & 0.54497E-01, 0.55564E-01, 0.56632E-01, 0.57699E-01, 0.58767E-01,
     & 0.42855E-02, 0.74435E-02, 0.10601E-01, 0.13672E-01, 0.16882E-01,
     & 0.20180E-01, 0.23453E-01, 0.26591E-01, 0.29585E-01, 0.32351E-01,
     & 0.34835E-01, 0.37056E-01, 0.39030E-01, 0.40768E-01, 0.42279E-01,
     & 0.43597E-01, 0.44723E-01, 0.45672E-01, 0.46496E-01, 0.47239E-01,
     & 0.47996E-01, 0.48839E-01, 0.49771E-01, 0.50703E-01, 0.51635E-01,
     & 0.52567E-01, 0.53499E-01, 0.54432E-01, 0.55364E-01, 0.56296E-01/

      data ((f2grdl(i,j),j=1,30),i= 81, 90)/
     & 0.49663E-02, 0.81671E-02, 0.11367E-01, 0.14423E-01, 0.17521E-01,
     & 0.20727E-01, 0.23911E-01, 0.26958E-01, 0.29857E-01, 0.32521E-01,
     & 0.34895E-01, 0.36999E-01, 0.38853E-01, 0.40466E-01, 0.41853E-01,
     & 0.43049E-01, 0.44052E-01, 0.44880E-01, 0.45584E-01, 0.46207E-01,
     & 0.46842E-01, 0.47561E-01, 0.48367E-01, 0.49173E-01, 0.49979E-01,
     & 0.50785E-01, 0.51591E-01, 0.52397E-01, 0.53203E-01, 0.54008E-01,
     & 0.56998E-02, 0.89538E-02, 0.12207E-01, 0.15286E-01, 0.18262E-01,
     & 0.21364E-01, 0.24452E-01, 0.27402E-01, 0.30203E-01, 0.32764E-01,
     & 0.35030E-01, 0.37013E-01, 0.38745E-01, 0.40236E-01, 0.41502E-01,
     & 0.42577E-01, 0.43461E-01, 0.44171E-01, 0.44759E-01, 0.45267E-01,
     & 0.45786E-01, 0.46385E-01, 0.47066E-01, 0.47748E-01, 0.48429E-01,
     & 0.49110E-01, 0.49792E-01, 0.50473E-01, 0.51155E-01, 0.51836E-01,
     & 0.64922E-02, 0.98116E-02, 0.13129E-01, 0.16246E-01, 0.19121E-01,
     & 0.22101E-01, 0.25083E-01, 0.27929E-01, 0.30625E-01, 0.33080E-01,
     & 0.35235E-01, 0.37099E-01, 0.38707E-01, 0.40074E-01, 0.41217E-01,
     & 0.42171E-01, 0.42936E-01, 0.43531E-01, 0.44006E-01, 0.44401E-01,
     & 0.44808E-01, 0.45293E-01, 0.45860E-01, 0.46426E-01, 0.46993E-01,
     & 0.47559E-01, 0.48126E-01, 0.48692E-01, 0.49259E-01, 0.49826E-01,
     & 0.73609E-02, 0.10755E-01, 0.14147E-01, 0.17307E-01, 0.20117E-01,
     & 0.22950E-01, 0.25810E-01, 0.28543E-01, 0.31126E-01, 0.33468E-01,
     & 0.35509E-01, 0.37251E-01, 0.38734E-01, 0.39976E-01, 0.40995E-01,
     & 0.41827E-01, 0.42473E-01, 0.42953E-01, 0.43315E-01, 0.43600E-01,
     & 0.43898E-01, 0.44273E-01, 0.44728E-01, 0.45182E-01, 0.45637E-01,
     & 0.46091E-01, 0.46546E-01, 0.47000E-01, 0.47455E-01, 0.47909E-01,
     & 0.83205E-02, 0.11798E-01, 0.15273E-01, 0.18481E-01, 0.21267E-01,
     & 0.23924E-01, 0.26643E-01, 0.29247E-01, 0.31706E-01, 0.33927E-01,
     & 0.35845E-01, 0.37464E-01, 0.38817E-01, 0.39930E-01, 0.40824E-01,
     & 0.41532E-01, 0.42060E-01, 0.42425E-01, 0.42677E-01, 0.42855E-01,
     & 0.43048E-01, 0.43316E-01, 0.43661E-01, 0.44006E-01, 0.44352E-01,
     & 0.44697E-01, 0.45042E-01, 0.45387E-01, 0.45732E-01, 0.46077E-01,
     & 0.93912E-02, 0.12959E-01, 0.16524E-01, 0.19781E-01, 0.22560E-01,
     & 0.25042E-01, 0.27590E-01, 0.30046E-01, 0.32365E-01, 0.34450E-01,
     & 0.36240E-01, 0.37730E-01, 0.38946E-01, 0.39926E-01, 0.40691E-01,
     & 0.41273E-01, 0.41680E-01, 0.41931E-01, 0.42073E-01, 0.42144E-01,
     & 0.42233E-01, 0.42398E-01, 0.42640E-01, 0.42882E-01, 0.43124E-01,
     & 0.43366E-01, 0.43608E-01, 0.43851E-01, 0.44093E-01, 0.44335E-01,
     & 0.10604E-01, 0.14264E-01, 0.17922E-01, 0.21224E-01, 0.23990E-01,
     & 0.26324E-01, 0.28662E-01, 0.30944E-01, 0.33101E-01, 0.35035E-01,
     & 0.36680E-01, 0.38033E-01, 0.39109E-01, 0.39949E-01, 0.40578E-01,
     & 0.41032E-01, 0.41316E-01, 0.41451E-01, 0.41482E-01, 0.41448E-01,
     & 0.41434E-01, 0.41498E-01, 0.41637E-01, 0.41777E-01, 0.41916E-01,
     & 0.42056E-01, 0.42195E-01, 0.42335E-01, 0.42474E-01, 0.42614E-01,
     & 0.11992E-01, 0.15744E-01, 0.19492E-01, 0.22831E-01, 0.25568E-01,
     & 0.27792E-01, 0.29870E-01, 0.31943E-01, 0.33910E-01, 0.35670E-01,
     & 0.37154E-01, 0.38354E-01, 0.39283E-01, 0.39975E-01, 0.40463E-01,
     & 0.40783E-01, 0.40941E-01, 0.40958E-01, 0.40877E-01, 0.40737E-01,
     & 0.40622E-01, 0.40586E-01, 0.40629E-01, 0.40671E-01, 0.40713E-01,
     & 0.40755E-01, 0.40798E-01, 0.40840E-01, 0.40882E-01, 0.40924E-01,
     & 0.13611E-01, 0.17442E-01, 0.21269E-01, 0.24626E-01, 0.27309E-01,
     & 0.29429E-01, 0.31227E-01, 0.33045E-01, 0.34784E-01, 0.36342E-01,
     & 0.37642E-01, 0.38673E-01, 0.39440E-01, 0.39975E-01, 0.40313E-01,
     & 0.40493E-01, 0.40520E-01, 0.40415E-01, 0.40221E-01, 0.39975E-01,
     & 0.39760E-01, 0.39626E-01, 0.39569E-01, 0.39512E-01, 0.39455E-01,
     & 0.39398E-01, 0.39341E-01, 0.39284E-01, 0.39227E-01, 0.39171E-01,
     & 0.15528E-01, 0.19413E-01, 0.23294E-01, 0.26637E-01, 0.29227E-01,
     & 0.31209E-01, 0.32750E-01, 0.34247E-01, 0.35711E-01, 0.37031E-01,
     & 0.38119E-01, 0.38956E-01, 0.39548E-01, 0.39913E-01, 0.40090E-01,
     & 0.40120E-01, 0.40009E-01, 0.39779E-01, 0.39470E-01, 0.39117E-01,
     & 0.38802E-01, 0.38569E-01, 0.38415E-01, 0.38261E-01, 0.38107E-01,
     & 0.37953E-01, 0.37799E-01, 0.37645E-01, 0.37491E-01, 0.37337E-01/

      data ((f2grdl(i,j),j=1,30),i= 91,100)/
     & 0.17840E-01, 0.21734E-01, 0.25622E-01, 0.28899E-01, 0.31342E-01,
     & 0.33131E-01, 0.34431E-01, 0.35548E-01, 0.36673E-01, 0.37706E-01,
     & 0.38546E-01, 0.39162E-01, 0.39556E-01, 0.39738E-01, 0.39743E-01,
     & 0.39615E-01, 0.39360E-01, 0.39001E-01, 0.38573E-01, 0.38112E-01,
     & 0.37697E-01, 0.37367E-01, 0.37118E-01, 0.36868E-01, 0.36619E-01,
     & 0.36369E-01, 0.36120E-01, 0.35870E-01, 0.35620E-01, 0.35371E-01,
     & 0.20680E-01, 0.24505E-01, 0.28324E-01, 0.31452E-01, 0.33668E-01,
     & 0.35191E-01, 0.36211E-01, 0.36931E-01, 0.37637E-01, 0.38325E-01,
     & 0.38871E-01, 0.39233E-01, 0.39401E-01, 0.39383E-01, 0.39204E-01,
     & 0.38907E-01, 0.38501E-01, 0.38007E-01, 0.37460E-01, 0.36891E-01,
     & 0.36377E-01, 0.35952E-01, 0.35609E-01, 0.35266E-01, 0.34923E-01,
     & 0.34580E-01, 0.34237E-01, 0.33894E-01, 0.33551E-01, 0.33208E-01,
     & 0.24241E-01, 0.27870E-01, 0.31491E-01, 0.34347E-01, 0.36218E-01,
     & 0.37374E-01, 0.38028E-01, 0.38325E-01, 0.38560E-01, 0.38826E-01,
     & 0.39024E-01, 0.39088E-01, 0.38999E-01, 0.38759E-01, 0.38381E-01,
     & 0.37904E-01, 0.37340E-01, 0.36710E-01, 0.36041E-01, 0.35367E-01,
     & 0.34758E-01, 0.34241E-01, 0.33806E-01, 0.33372E-01, 0.32938E-01,
     & 0.32503E-01, 0.32069E-01, 0.31635E-01, 0.31201E-01, 0.30766E-01,
     & 0.28800E-01, 0.32028E-01, 0.35247E-01, 0.37636E-01, 0.38996E-01,
     & 0.39643E-01, 0.39817E-01, 0.39646E-01, 0.39369E-01, 0.39118E-01,
     & 0.38899E-01, 0.38616E-01, 0.38235E-01, 0.37746E-01, 0.37157E-01,
     & 0.36492E-01, 0.35766E-01, 0.34997E-01, 0.34210E-01, 0.33434E-01,
     & 0.32735E-01, 0.32132E-01, 0.31613E-01, 0.31094E-01, 0.30575E-01,
     & 0.30057E-01, 0.29538E-01, 0.29019E-01, 0.28500E-01, 0.27981E-01,
     & 0.34771E-01, 0.37267E-01, 0.39755E-01, 0.41380E-01, 0.41982E-01,
     & 0.41925E-01, 0.41463E-01, 0.40734E-01, 0.39903E-01, 0.39062E-01,
     & 0.38344E-01, 0.37657E-01, 0.36943E-01, 0.36180E-01, 0.35365E-01,
     & 0.34508E-01, 0.33618E-01, 0.32715E-01, 0.31818E-01, 0.30951E-01,
     & 0.30175E-01, 0.29497E-01, 0.28904E-01, 0.28311E-01, 0.27718E-01,
     & 0.27126E-01, 0.26533E-01, 0.25940E-01, 0.25347E-01, 0.24754E-01,
     & 0.42806E-01, 0.44026E-01, 0.45238E-01, 0.45625E-01, 0.45103E-01,
     & 0.44065E-01, 0.42762E-01, 0.41332E-01, 0.39874E-01, 0.38429E-01,
     & 0.37122E-01, 0.35969E-01, 0.34884E-01, 0.33824E-01, 0.32773E-01,
     & 0.31727E-01, 0.30686E-01, 0.29663E-01, 0.28674E-01, 0.27736E-01,
     & 0.26903E-01, 0.26170E-01, 0.25523E-01, 0.24876E-01, 0.24228E-01,
     & 0.23581E-01, 0.22934E-01, 0.22286E-01, 0.21639E-01, 0.20991E-01,
     & 0.54025E-01, 0.53021E-01, 0.52011E-01, 0.50372E-01, 0.48157E-01,
     & 0.45736E-01, 0.43312E-01, 0.40999E-01, 0.38788E-01, 0.36726E-01,
     & 0.34833E-01, 0.33158E-01, 0.31674E-01, 0.30312E-01, 0.29034E-01,
     & 0.27816E-01, 0.26655E-01, 0.25549E-01, 0.24504E-01, 0.23535E-01,
     & 0.22682E-01, 0.21931E-01, 0.21262E-01, 0.20593E-01, 0.19924E-01,
     & 0.19255E-01, 0.18586E-01, 0.17917E-01, 0.17248E-01, 0.16579E-01,
     & 0.70732E-01, 0.65665E-01, 0.60597E-01, 0.55460E-01, 0.50567E-01,
     & 0.46134E-01, 0.42199E-01, 0.38788E-01, 0.35692E-01, 0.32970E-01,
     & 0.30578E-01, 0.28467E-01, 0.26613E-01, 0.24994E-01, 0.23549E-01,
     & 0.22230E-01, 0.21023E-01, 0.19913E-01, 0.18894E-01, 0.17970E-01,
     & 0.17169E-01, 0.16465E-01, 0.15836E-01, 0.15207E-01, 0.14577E-01,
     & 0.13948E-01, 0.13319E-01, 0.12690E-01, 0.12061E-01, 0.11432E-01,
     & 0.10712E+00, 0.90390E-01, 0.73691E-01, 0.59944E-01, 0.49800E-01,
     & 0.42158E-01, 0.36238E-01, 0.31671E-01, 0.27792E-01, 0.24636E-01,
     & 0.22043E-01, 0.19868E-01, 0.18023E-01, 0.16451E-01, 0.15099E-01,
     & 0.13921E-01, 0.12895E-01, 0.11992E-01, 0.11192E-01, 0.10489E-01,
     & 0.98954E-02, 0.93760E-02, 0.89133E-02, 0.84506E-02, 0.79878E-02,
     & 0.75251E-02, 0.70624E-02, 0.65997E-02, 0.61369E-02, 0.56742E-02,
     & 0.16241E-01, 0.13567E-01, 0.10898E-01, 0.87241E-02, 0.71467E-02,
     & 0.59763E-02, 0.50813E-02, 0.43998E-02, 0.38254E-02, 0.33626E-02,
     & 0.29859E-02, 0.26725E-02, 0.24083E-02, 0.21838E-02, 0.19919E-02,
     & 0.18259E-02, 0.16825E-02, 0.15573E-02, 0.14473E-02, 0.13512E-02,
     & 0.12704E-02, 0.11998E-02, 0.11370E-02, 0.10741E-02, 0.10113E-02,
     & 0.94847E-03, 0.88564E-03, 0.82281E-03, 0.75998E-03, 0.69715E-03/

      data ((flgrdl(i,j),j=1,30),i=  1, 10)/
     &-0.37515E-02, 0.12313E-02, 0.62142E-02, 0.11197E-01, 0.16150E-01,
     & 0.21102E-01, 0.26142E-01, 0.31352E-01, 0.36679E-01, 0.42176E-01,
     & 0.47759E-01, 0.53394E-01, 0.59024E-01, 0.64614E-01, 0.70112E-01,
     & 0.75503E-01, 0.80764E-01, 0.85871E-01, 0.90885E-01, 0.95874E-01,
     & 0.10103E+00, 0.10649E+00, 0.11223E+00, 0.11798E+00, 0.12372E+00,
     & 0.12946E+00, 0.13521E+00, 0.14095E+00, 0.14670E+00, 0.15244E+00,
     &-0.36183E-02, 0.13117E-02, 0.62418E-02, 0.11157E-01, 0.16026E-01,
     & 0.20879E-01, 0.25808E-01, 0.30895E-01, 0.36091E-01, 0.41449E-01,
     & 0.46886E-01, 0.52370E-01, 0.57844E-01, 0.63277E-01, 0.68615E-01,
     & 0.73846E-01, 0.78950E-01, 0.83901E-01, 0.88759E-01, 0.93594E-01,
     & 0.98588E-01, 0.10387E+00, 0.10944E+00, 0.11501E+00, 0.12058E+00,
     & 0.12615E+00, 0.13172E+00, 0.13729E+00, 0.14286E+00, 0.14843E+00,
     &-0.34850E-02, 0.13924E-02, 0.62695E-02, 0.11118E-01, 0.15902E-01,
     & 0.20658E-01, 0.25476E-01, 0.30442E-01, 0.35510E-01, 0.40730E-01,
     & 0.46025E-01, 0.51360E-01, 0.56682E-01, 0.61957E-01, 0.67138E-01,
     & 0.72215E-01, 0.77165E-01, 0.81963E-01, 0.86670E-01, 0.91353E-01,
     & 0.96187E-01, 0.10131E+00, 0.10671E+00, 0.11210E+00, 0.11750E+00,
     & 0.12290E+00, 0.12830E+00, 0.13370E+00, 0.13910E+00, 0.14449E+00,
     &-0.33505E-02, 0.14736E-02, 0.62975E-02, 0.11079E-01, 0.15779E-01,
     & 0.20438E-01, 0.25147E-01, 0.29994E-01, 0.34935E-01, 0.40020E-01,
     & 0.45175E-01, 0.50364E-01, 0.55537E-01, 0.60658E-01, 0.65685E-01,
     & 0.70610E-01, 0.75409E-01, 0.80058E-01, 0.84616E-01, 0.89153E-01,
     & 0.93829E-01, 0.98788E-01, 0.10402E+00, 0.10925E+00, 0.11447E+00,
     & 0.11970E+00, 0.12493E+00, 0.13016E+00, 0.13539E+00, 0.14062E+00,
     &-0.32155E-02, 0.15552E-02, 0.63255E-02, 0.11041E-01, 0.15656E-01,
     & 0.20220E-01, 0.24820E-01, 0.29550E-01, 0.34368E-01, 0.39318E-01,
     & 0.44337E-01, 0.49383E-01, 0.54409E-01, 0.59379E-01, 0.64256E-01,
     & 0.69033E-01, 0.73683E-01, 0.78186E-01, 0.82601E-01, 0.86992E-01,
     & 0.91515E-01, 0.96316E-01, 0.10138E+00, 0.10645E+00, 0.11151E+00,
     & 0.11658E+00, 0.12164E+00, 0.12671E+00, 0.13177E+00, 0.13684E+00,
     &-0.30789E-02, 0.16376E-02, 0.63537E-02, 0.11002E-01, 0.15534E-01,
     & 0.20004E-01, 0.24497E-01, 0.29110E-01, 0.33807E-01, 0.38625E-01,
     & 0.43510E-01, 0.48415E-01, 0.53296E-01, 0.58119E-01, 0.62850E-01,
     & 0.67481E-01, 0.71986E-01, 0.76347E-01, 0.80621E-01, 0.84870E-01,
     & 0.89242E-01, 0.93888E-01, 0.98793E-01, 0.10370E+00, 0.10860E+00,
     & 0.11351E+00, 0.11841E+00, 0.12331E+00, 0.12822E+00, 0.13312E+00,
     &-0.29422E-02, 0.17202E-02, 0.63821E-02, 0.10964E-01, 0.15413E-01,
     & 0.19789E-01, 0.24176E-01, 0.28675E-01, 0.33252E-01, 0.37942E-01,
     & 0.42694E-01, 0.47462E-01, 0.52200E-01, 0.56878E-01, 0.61465E-01,
     & 0.65955E-01, 0.70318E-01, 0.74540E-01, 0.78676E-01, 0.82783E-01,
     & 0.87011E-01, 0.91508E-01, 0.96259E-01, 0.10101E+00, 0.10576E+00,
     & 0.11051E+00, 0.11526E+00, 0.12001E+00, 0.12476E+00, 0.12951E+00,
     &-0.28053E-02, 0.18030E-02, 0.64106E-02, 0.10926E-01, 0.15292E-01,
     & 0.19575E-01, 0.23858E-01, 0.28245E-01, 0.32705E-01, 0.37268E-01,
     & 0.41889E-01, 0.46522E-01, 0.51121E-01, 0.55655E-01, 0.60102E-01,
     & 0.64455E-01, 0.68678E-01, 0.72762E-01, 0.76766E-01, 0.80733E-01,
     & 0.84822E-01, 0.89172E-01, 0.93770E-01, 0.98369E-01, 0.10297E+00,
     & 0.10757E+00, 0.11216E+00, 0.11676E+00, 0.12136E+00, 0.12596E+00,
     &-0.26666E-02, 0.18867E-02, 0.64393E-02, 0.10888E-01, 0.15172E-01,
     & 0.19363E-01, 0.23543E-01, 0.27819E-01, 0.32163E-01, 0.36603E-01,
     & 0.41097E-01, 0.45596E-01, 0.50056E-01, 0.54451E-01, 0.58761E-01,
     & 0.62980E-01, 0.67066E-01, 0.71016E-01, 0.74887E-01, 0.78720E-01,
     & 0.82673E-01, 0.86881E-01, 0.91332E-01, 0.95782E-01, 0.10023E+00,
     & 0.10468E+00, 0.10913E+00, 0.11358E+00, 0.11803E+00, 0.12249E+00,
     &-0.25270E-02, 0.19710E-02, 0.64681E-02, 0.10850E-01, 0.15053E-01,
     & 0.19151E-01, 0.23231E-01, 0.27397E-01, 0.31628E-01, 0.35946E-01,
     & 0.40315E-01, 0.44681E-01, 0.49006E-01, 0.53266E-01, 0.57441E-01,
     & 0.61530E-01, 0.65482E-01, 0.69300E-01, 0.73041E-01, 0.76744E-01,
     & 0.80565E-01, 0.84633E-01, 0.88940E-01, 0.93246E-01, 0.97553E-01,
     & 0.10186E+00, 0.10617E+00, 0.11047E+00, 0.11478E+00, 0.11909E+00/

      data ((flgrdl(i,j),j=1,30),i= 11, 20)/
     &-0.23861E-02, 0.20560E-02, 0.64971E-02, 0.10813E-01, 0.14934E-01,
     & 0.18941E-01, 0.22923E-01, 0.26979E-01, 0.31099E-01, 0.35298E-01,
     & 0.39543E-01, 0.43780E-01, 0.47972E-01, 0.52100E-01, 0.56143E-01,
     & 0.60104E-01, 0.63925E-01, 0.67615E-01, 0.71227E-01, 0.74804E-01,
     & 0.78496E-01, 0.82427E-01, 0.86593E-01, 0.90758E-01, 0.94923E-01,
     & 0.99088E-01, 0.10325E+00, 0.10742E+00, 0.11158E+00, 0.11575E+00,
     &-0.22447E-02, 0.21414E-02, 0.65264E-02, 0.10775E-01, 0.14816E-01,
     & 0.18733E-01, 0.22617E-01, 0.26567E-01, 0.30575E-01, 0.34658E-01,
     & 0.38782E-01, 0.42891E-01, 0.46953E-01, 0.50953E-01, 0.54867E-01,
     & 0.58701E-01, 0.62395E-01, 0.65959E-01, 0.69446E-01, 0.72896E-01,
     & 0.76466E-01, 0.80261E-01, 0.84279E-01, 0.88298E-01, 0.92317E-01,
     & 0.96336E-01, 0.10036E+00, 0.10437E+00, 0.10839E+00, 0.11241E+00,
     &-0.21020E-02, 0.22275E-02, 0.65558E-02, 0.10738E-01, 0.14699E-01,
     & 0.18526E-01, 0.22314E-01, 0.26158E-01, 0.30058E-01, 0.34026E-01,
     & 0.38030E-01, 0.42013E-01, 0.45949E-01, 0.49826E-01, 0.53614E-01,
     & 0.57321E-01, 0.60892E-01, 0.64331E-01, 0.67695E-01, 0.71021E-01,
     & 0.74475E-01, 0.78134E-01, 0.82006E-01, 0.85878E-01, 0.89751E-01,
     & 0.93623E-01, 0.97495E-01, 0.10137E+00, 0.10524E+00, 0.10911E+00,
     &-0.19566E-02, 0.23151E-02, 0.65856E-02, 0.10700E-01, 0.14583E-01,
     & 0.18320E-01, 0.22013E-01, 0.25755E-01, 0.29546E-01, 0.33402E-01,
     & 0.37289E-01, 0.41148E-01, 0.44961E-01, 0.48718E-01, 0.52383E-01,
     & 0.55962E-01, 0.59413E-01, 0.62732E-01, 0.65974E-01, 0.69181E-01,
     & 0.72521E-01, 0.76047E-01, 0.79775E-01, 0.83502E-01, 0.87230E-01,
     & 0.90958E-01, 0.94685E-01, 0.98413E-01, 0.10214E+00, 0.10587E+00,
     &-0.18122E-02, 0.24025E-02, 0.66156E-02, 0.10663E-01, 0.14467E-01,
     & 0.18116E-01, 0.21716E-01, 0.25356E-01, 0.29041E-01, 0.32788E-01,
     & 0.36558E-01, 0.40294E-01, 0.43989E-01, 0.47627E-01, 0.51171E-01,
     & 0.54626E-01, 0.57958E-01, 0.61160E-01, 0.64284E-01, 0.67374E-01,
     & 0.70602E-01, 0.74000E-01, 0.77587E-01, 0.81174E-01, 0.84761E-01,
     & 0.88348E-01, 0.91935E-01, 0.95522E-01, 0.99109E-01, 0.10270E+00,
     &-0.16675E-02, 0.24900E-02, 0.66460E-02, 0.10626E-01, 0.14352E-01,
     & 0.17914E-01, 0.21421E-01, 0.24962E-01, 0.28541E-01, 0.32181E-01,
     & 0.35835E-01, 0.39453E-01, 0.43033E-01, 0.46554E-01, 0.49980E-01,
     & 0.53313E-01, 0.56528E-01, 0.59614E-01, 0.62624E-01, 0.65599E-01,
     & 0.68719E-01, 0.71990E-01, 0.75438E-01, 0.78886E-01, 0.82334E-01,
     & 0.85782E-01, 0.89230E-01, 0.92677E-01, 0.96125E-01, 0.99573E-01,
     &-0.15223E-02, 0.25779E-02, 0.66765E-02, 0.10589E-01, 0.14237E-01,
     & 0.17712E-01, 0.21129E-01, 0.24571E-01, 0.28048E-01, 0.31582E-01,
     & 0.35122E-01, 0.38625E-01, 0.42092E-01, 0.45498E-01, 0.48808E-01,
     & 0.52023E-01, 0.55124E-01, 0.58096E-01, 0.60993E-01, 0.63859E-01,
     & 0.66869E-01, 0.70016E-01, 0.73326E-01, 0.76635E-01, 0.79944E-01,
     & 0.83253E-01, 0.86562E-01, 0.89871E-01, 0.93180E-01, 0.96490E-01,
     &-0.13756E-02, 0.26667E-02, 0.67073E-02, 0.10552E-01, 0.14123E-01,
     & 0.17513E-01, 0.20839E-01, 0.24185E-01, 0.27560E-01, 0.30990E-01,
     & 0.34417E-01, 0.37810E-01, 0.41166E-01, 0.44458E-01, 0.47655E-01,
     & 0.50752E-01, 0.53743E-01, 0.56605E-01, 0.59392E-01, 0.62154E-01,
     & 0.65050E-01, 0.68079E-01, 0.71262E-01, 0.74445E-01, 0.77628E-01,
     & 0.80811E-01, 0.83994E-01, 0.87177E-01, 0.90360E-01, 0.93543E-01,
     &-0.12282E-02, 0.27559E-02, 0.67382E-02, 0.10516E-01, 0.14009E-01,
     & 0.17314E-01, 0.20552E-01, 0.23803E-01, 0.27078E-01, 0.30407E-01,
     & 0.33723E-01, 0.37008E-01, 0.40255E-01, 0.43436E-01, 0.46521E-01,
     & 0.49504E-01, 0.52385E-01, 0.55142E-01, 0.57822E-01, 0.60485E-01,
     & 0.63267E-01, 0.66179E-01, 0.69237E-01, 0.72295E-01, 0.75354E-01,
     & 0.78412E-01, 0.81470E-01, 0.84529E-01, 0.87587E-01, 0.90645E-01,
     &-0.10797E-02, 0.28458E-02, 0.67694E-02, 0.10480E-01, 0.13896E-01,
     & 0.17117E-01, 0.20267E-01, 0.23424E-01, 0.26601E-01, 0.29830E-01,
     & 0.33038E-01, 0.36217E-01, 0.39358E-01, 0.42429E-01, 0.45405E-01,
     & 0.48277E-01, 0.51051E-01, 0.53706E-01, 0.56286E-01, 0.58847E-01,
     & 0.61517E-01, 0.64316E-01, 0.67254E-01, 0.70191E-01, 0.73129E-01,
     & 0.76067E-01, 0.79005E-01, 0.81943E-01, 0.84881E-01, 0.87818E-01/

      data ((flgrdl(i,j),j=1,30),i= 21, 30)/
     &-0.93048E-03, 0.29361E-02, 0.68008E-02, 0.10443E-01, 0.13784E-01,
     & 0.16922E-01, 0.19984E-01, 0.23049E-01, 0.26130E-01, 0.29257E-01,
     & 0.32363E-01, 0.35440E-01, 0.38474E-01, 0.41439E-01, 0.44307E-01,
     & 0.47071E-01, 0.49740E-01, 0.52296E-01, 0.54778E-01, 0.57240E-01,
     & 0.59797E-01, 0.62491E-01, 0.65322E-01, 0.68153E-01, 0.70984E-01,
     & 0.73815E-01, 0.76646E-01, 0.79476E-01, 0.82307E-01, 0.85138E-01,
     &-0.78005E-03, 0.30272E-02, 0.68324E-02, 0.10408E-01, 0.13672E-01,
     & 0.16728E-01, 0.19704E-01, 0.22678E-01, 0.25665E-01, 0.28693E-01,
     & 0.31697E-01, 0.34675E-01, 0.37605E-01, 0.40464E-01, 0.43227E-01,
     & 0.45887E-01, 0.48454E-01, 0.50911E-01, 0.53298E-01, 0.55663E-01,
     & 0.58109E-01, 0.60703E-01, 0.63437E-01, 0.66172E-01, 0.68907E-01,
     & 0.71641E-01, 0.74376E-01, 0.77110E-01, 0.79845E-01, 0.82580E-01,
     &-0.62759E-03, 0.31194E-02, 0.68643E-02, 0.10372E-01, 0.13560E-01,
     & 0.16535E-01, 0.19427E-01, 0.22311E-01, 0.25206E-01, 0.28136E-01,
     & 0.31042E-01, 0.33921E-01, 0.36749E-01, 0.39504E-01, 0.42164E-01,
     & 0.44724E-01, 0.47191E-01, 0.49552E-01, 0.51844E-01, 0.54115E-01,
     & 0.56452E-01, 0.58948E-01, 0.61589E-01, 0.64230E-01, 0.66872E-01,
     & 0.69513E-01, 0.72155E-01, 0.74796E-01, 0.77437E-01, 0.80079E-01,
     &-0.47511E-03, 0.32118E-02, 0.68965E-02, 0.10337E-01, 0.13449E-01,
     & 0.16345E-01, 0.19152E-01, 0.21948E-01, 0.24752E-01, 0.27588E-01,
     & 0.30396E-01, 0.33179E-01, 0.35907E-01, 0.38560E-01, 0.41119E-01,
     & 0.43581E-01, 0.45952E-01, 0.48219E-01, 0.50418E-01, 0.52596E-01,
     & 0.54833E-01, 0.57229E-01, 0.59775E-01, 0.62321E-01, 0.64866E-01,
     & 0.67412E-01, 0.69958E-01, 0.72503E-01, 0.75049E-01, 0.77594E-01,
     &-0.31997E-03, 0.33057E-02, 0.69290E-02, 0.10302E-01, 0.13339E-01,
     & 0.16156E-01, 0.18879E-01, 0.21589E-01, 0.24304E-01, 0.27046E-01,
     & 0.29761E-01, 0.32448E-01, 0.35079E-01, 0.37628E-01, 0.40090E-01,
     & 0.42459E-01, 0.44735E-01, 0.46910E-01, 0.49018E-01, 0.51106E-01,
     & 0.53247E-01, 0.55547E-01, 0.57993E-01, 0.60440E-01, 0.62887E-01,
     & 0.65333E-01, 0.67780E-01, 0.70227E-01, 0.72673E-01, 0.75120E-01,
     &-0.16508E-03, 0.33996E-02, 0.69619E-02, 0.10267E-01, 0.13229E-01,
     & 0.15969E-01, 0.18609E-01, 0.21234E-01, 0.23862E-01, 0.26512E-01,
     & 0.29136E-01, 0.31728E-01, 0.34263E-01, 0.36712E-01, 0.39078E-01,
     & 0.41357E-01, 0.43540E-01, 0.45625E-01, 0.47646E-01, 0.49645E-01,
     & 0.51692E-01, 0.53897E-01, 0.56247E-01, 0.58597E-01, 0.60946E-01,
     & 0.63296E-01, 0.65645E-01, 0.67995E-01, 0.70345E-01, 0.72694E-01,
     &-0.81802E-05, 0.34947E-02, 0.69951E-02, 0.10233E-01, 0.13120E-01,
     & 0.15783E-01, 0.18341E-01, 0.20883E-01, 0.23425E-01, 0.25985E-01,
     & 0.28520E-01, 0.31021E-01, 0.33457E-01, 0.35811E-01, 0.38085E-01,
     & 0.40274E-01, 0.42367E-01, 0.44365E-01, 0.46299E-01, 0.48212E-01,
     & 0.50168E-01, 0.52281E-01, 0.54536E-01, 0.56791E-01, 0.59046E-01,
     & 0.61301E-01, 0.63556E-01, 0.65811E-01, 0.68066E-01, 0.70321E-01,
     & 0.14946E-03, 0.35903E-02, 0.70287E-02, 0.10198E-01, 0.13012E-01,
     & 0.15598E-01, 0.18075E-01, 0.20535E-01, 0.22993E-01, 0.25465E-01,
     & 0.27912E-01, 0.30324E-01, 0.32664E-01, 0.34927E-01, 0.37109E-01,
     & 0.39212E-01, 0.41216E-01, 0.43128E-01, 0.44979E-01, 0.46808E-01,
     & 0.48674E-01, 0.50697E-01, 0.52860E-01, 0.55023E-01, 0.57186E-01,
     & 0.59348E-01, 0.61511E-01, 0.63674E-01, 0.65837E-01, 0.68000E-01,
     & 0.30886E-03, 0.36870E-02, 0.70626E-02, 0.10164E-01, 0.12904E-01,
     & 0.15414E-01, 0.17812E-01, 0.20191E-01, 0.22566E-01, 0.24953E-01,
     & 0.27314E-01, 0.29635E-01, 0.31883E-01, 0.34057E-01, 0.36151E-01,
     & 0.38168E-01, 0.40086E-01, 0.41916E-01, 0.43684E-01, 0.45430E-01,
     & 0.47211E-01, 0.49145E-01, 0.51218E-01, 0.53291E-01, 0.55364E-01,
     & 0.57437E-01, 0.59509E-01, 0.61582E-01, 0.63655E-01, 0.65728E-01,
     & 0.46866E-03, 0.37841E-02, 0.70969E-02, 0.10130E-01, 0.12797E-01,
     & 0.15232E-01, 0.17551E-01, 0.19851E-01, 0.22145E-01, 0.24447E-01,
     & 0.26724E-01, 0.28955E-01, 0.31116E-01, 0.33203E-01, 0.35210E-01,
     & 0.37143E-01, 0.38976E-01, 0.40726E-01, 0.42415E-01, 0.44080E-01,
     & 0.45777E-01, 0.47625E-01, 0.49610E-01, 0.51594E-01, 0.53578E-01,
     & 0.55563E-01, 0.57547E-01, 0.59531E-01, 0.61515E-01, 0.63500E-01/

      data ((flgrdl(i,j),j=1,30),i= 31, 40)/
     & 0.63020E-03, 0.38822E-02, 0.71316E-02, 0.10096E-01, 0.12691E-01,
     & 0.15050E-01, 0.17293E-01, 0.19514E-01, 0.21728E-01, 0.23949E-01,
     & 0.26143E-01, 0.28285E-01, 0.30361E-01, 0.32364E-01, 0.34285E-01,
     & 0.36137E-01, 0.37889E-01, 0.39559E-01, 0.41170E-01, 0.42755E-01,
     & 0.44371E-01, 0.46137E-01, 0.48035E-01, 0.49934E-01, 0.51833E-01,
     & 0.53732E-01, 0.55631E-01, 0.57529E-01, 0.59428E-01, 0.61327E-01,
     & 0.79321E-03, 0.39813E-02, 0.71667E-02, 0.10063E-01, 0.12586E-01,
     & 0.14870E-01, 0.17038E-01, 0.19181E-01, 0.21317E-01, 0.23457E-01,
     & 0.25569E-01, 0.27627E-01, 0.29619E-01, 0.31539E-01, 0.33378E-01,
     & 0.35150E-01, 0.36822E-01, 0.38413E-01, 0.39950E-01, 0.41451E-01,
     & 0.42995E-01, 0.44679E-01, 0.46495E-01, 0.48311E-01, 0.50126E-01,
     & 0.51942E-01, 0.53758E-01, 0.55574E-01, 0.57389E-01, 0.59205E-01,
     & 0.95839E-03, 0.40817E-02, 0.72022E-02, 0.10030E-01, 0.12481E-01,
     & 0.14691E-01, 0.16786E-01, 0.18851E-01, 0.20911E-01, 0.22972E-01,
     & 0.25003E-01, 0.26979E-01, 0.28890E-01, 0.30728E-01, 0.32487E-01,
     & 0.34181E-01, 0.35776E-01, 0.37287E-01, 0.38748E-01, 0.40171E-01,
     & 0.41647E-01, 0.43252E-01, 0.44986E-01, 0.46719E-01, 0.48453E-01,
     & 0.50187E-01, 0.51921E-01, 0.53654E-01, 0.55388E-01, 0.57122E-01,
     & 0.11245E-02, 0.41828E-02, 0.72383E-02, 0.99973E-02, 0.12377E-01,
     & 0.14514E-01, 0.16536E-01, 0.18526E-01, 0.20510E-01, 0.22493E-01,
     & 0.24446E-01, 0.26342E-01, 0.28173E-01, 0.29933E-01, 0.31613E-01,
     & 0.33230E-01, 0.34750E-01, 0.36182E-01, 0.37566E-01, 0.38917E-01,
     & 0.40328E-01, 0.41854E-01, 0.43504E-01, 0.45154E-01, 0.46804E-01,
     & 0.48454E-01, 0.50105E-01, 0.51755E-01, 0.53405E-01, 0.55055E-01,
     & 0.12918E-02, 0.42847E-02, 0.72749E-02, 0.99651E-02, 0.12273E-01,
     & 0.14338E-01, 0.16289E-01, 0.18205E-01, 0.20116E-01, 0.22021E-01,
     & 0.23898E-01, 0.25715E-01, 0.27468E-01, 0.29151E-01, 0.30754E-01,
     & 0.32296E-01, 0.33742E-01, 0.35099E-01, 0.36407E-01, 0.37688E-01,
     & 0.39038E-01, 0.40482E-01, 0.42039E-01, 0.43597E-01, 0.45155E-01,
     & 0.46713E-01, 0.48271E-01, 0.49829E-01, 0.51387E-01, 0.52945E-01,
     & 0.14620E-02, 0.43884E-02, 0.73120E-02, 0.99332E-02, 0.12170E-01,
     & 0.14164E-01, 0.16045E-01, 0.17888E-01, 0.19726E-01, 0.21558E-01,
     & 0.23358E-01, 0.25098E-01, 0.26775E-01, 0.28384E-01, 0.29913E-01,
     & 0.31375E-01, 0.32751E-01, 0.34036E-01, 0.35271E-01, 0.36484E-01,
     & 0.37773E-01, 0.39134E-01, 0.40594E-01, 0.42054E-01, 0.43515E-01,
     & 0.44975E-01, 0.46435E-01, 0.47895E-01, 0.49356E-01, 0.50816E-01,
     & 0.16326E-02, 0.44926E-02, 0.73497E-02, 0.99017E-02, 0.12068E-01,
     & 0.13991E-01, 0.15803E-01, 0.17575E-01, 0.19342E-01, 0.21101E-01,
     & 0.22826E-01, 0.24492E-01, 0.26094E-01, 0.27630E-01, 0.29086E-01,
     & 0.30470E-01, 0.31775E-01, 0.32993E-01, 0.34159E-01, 0.35307E-01,
     & 0.36533E-01, 0.37815E-01, 0.39182E-01, 0.40550E-01, 0.41917E-01,
     & 0.43284E-01, 0.44651E-01, 0.46018E-01, 0.47386E-01, 0.48753E-01,
     & 0.18058E-02, 0.45983E-02, 0.73880E-02, 0.98705E-02, 0.11966E-01,
     & 0.13820E-01, 0.15562E-01, 0.17266E-01, 0.18961E-01, 0.20651E-01,
     & 0.22302E-01, 0.23895E-01, 0.25425E-01, 0.26888E-01, 0.28273E-01,
     & 0.29583E-01, 0.30817E-01, 0.31970E-01, 0.33070E-01, 0.34155E-01,
     & 0.35315E-01, 0.36524E-01, 0.37805E-01, 0.39086E-01, 0.40368E-01,
     & 0.41649E-01, 0.42930E-01, 0.44212E-01, 0.45493E-01, 0.46774E-01,
     & 0.19804E-02, 0.47051E-02, 0.74270E-02, 0.98397E-02, 0.11865E-01,
     & 0.13651E-01, 0.15324E-01, 0.16961E-01, 0.18586E-01, 0.20207E-01,
     & 0.21786E-01, 0.23308E-01, 0.24767E-01, 0.26159E-01, 0.27475E-01,
     & 0.28713E-01, 0.29879E-01, 0.30968E-01, 0.32007E-01, 0.33029E-01,
     & 0.34116E-01, 0.35258E-01, 0.36466E-01, 0.37674E-01, 0.38881E-01,
     & 0.40089E-01, 0.41297E-01, 0.42505E-01, 0.43713E-01, 0.44921E-01,
     & 0.21567E-02, 0.48131E-02, 0.74666E-02, 0.98094E-02, 0.11766E-01,
     & 0.13482E-01, 0.15088E-01, 0.16658E-01, 0.18215E-01, 0.19769E-01,
     & 0.21278E-01, 0.22730E-01, 0.24119E-01, 0.25442E-01, 0.26690E-01,
     & 0.27861E-01, 0.28960E-01, 0.29987E-01, 0.30965E-01, 0.31926E-01,
     & 0.32940E-01, 0.34017E-01, 0.35162E-01, 0.36307E-01, 0.37452E-01,
     & 0.38597E-01, 0.39743E-01, 0.40888E-01, 0.42033E-01, 0.43178E-01/

      data ((flgrdl(i,j),j=1,30),i= 41, 50)/
     & 0.23344E-02, 0.49222E-02, 0.75070E-02, 0.97796E-02, 0.11666E-01,
     & 0.13316E-01, 0.14855E-01, 0.16360E-01, 0.17849E-01, 0.19337E-01,
     & 0.20778E-01, 0.22161E-01, 0.23483E-01, 0.24738E-01, 0.25918E-01,
     & 0.27025E-01, 0.28061E-01, 0.29027E-01, 0.29946E-01, 0.30848E-01,
     & 0.31792E-01, 0.32806E-01, 0.33891E-01, 0.34976E-01, 0.36061E-01,
     & 0.37146E-01, 0.38232E-01, 0.39317E-01, 0.40402E-01, 0.41487E-01,
     & 0.25142E-02, 0.50326E-02, 0.75480E-02, 0.97502E-02, 0.11568E-01,
     & 0.13150E-01, 0.14624E-01, 0.16064E-01, 0.17488E-01, 0.18911E-01,
     & 0.20285E-01, 0.21602E-01, 0.22858E-01, 0.24048E-01, 0.25162E-01,
     & 0.26207E-01, 0.27181E-01, 0.28088E-01, 0.28949E-01, 0.29794E-01,
     & 0.30669E-01, 0.31623E-01, 0.32651E-01, 0.33679E-01, 0.34707E-01,
     & 0.35734E-01, 0.36762E-01, 0.37790E-01, 0.38818E-01, 0.39846E-01,
     & 0.26960E-02, 0.51444E-02, 0.75898E-02, 0.97216E-02, 0.11471E-01,
     & 0.12987E-01, 0.14395E-01, 0.15771E-01, 0.17131E-01, 0.18491E-01,
     & 0.19799E-01, 0.21052E-01, 0.22245E-01, 0.23370E-01, 0.24420E-01,
     & 0.25406E-01, 0.26319E-01, 0.27168E-01, 0.27973E-01, 0.28762E-01,
     & 0.29573E-01, 0.30468E-01, 0.31439E-01, 0.32410E-01, 0.33381E-01,
     & 0.34351E-01, 0.35322E-01, 0.36293E-01, 0.37264E-01, 0.38235E-01,
     & 0.28812E-02, 0.52582E-02, 0.76324E-02, 0.96934E-02, 0.11374E-01,
     & 0.12824E-01, 0.14169E-01, 0.15482E-01, 0.16781E-01, 0.18076E-01,
     & 0.19320E-01, 0.20511E-01, 0.21643E-01, 0.22705E-01, 0.23694E-01,
     & 0.24621E-01, 0.25476E-01, 0.26267E-01, 0.27018E-01, 0.27751E-01,
     & 0.28502E-01, 0.29340E-01, 0.30254E-01, 0.31169E-01, 0.32083E-01,
     & 0.32998E-01, 0.33912E-01, 0.34827E-01, 0.35742E-01, 0.36656E-01,
     & 0.30686E-02, 0.53737E-02, 0.76758E-02, 0.96659E-02, 0.11278E-01,
     & 0.12663E-01, 0.13945E-01, 0.15197E-01, 0.16435E-01, 0.17668E-01,
     & 0.18850E-01, 0.19981E-01, 0.21052E-01, 0.22053E-01, 0.22981E-01,
     & 0.23850E-01, 0.24649E-01, 0.25385E-01, 0.26081E-01, 0.26762E-01,
     & 0.27456E-01, 0.28237E-01, 0.29095E-01, 0.29953E-01, 0.30812E-01,
     & 0.31670E-01, 0.32528E-01, 0.33387E-01, 0.34245E-01, 0.35103E-01,
     & 0.32577E-02, 0.54904E-02, 0.77202E-02, 0.96390E-02, 0.11183E-01,
     & 0.12504E-01, 0.13724E-01, 0.14915E-01, 0.16094E-01, 0.17265E-01,
     & 0.18387E-01, 0.19462E-01, 0.20471E-01, 0.21412E-01, 0.22282E-01,
     & 0.23094E-01, 0.23838E-01, 0.24520E-01, 0.25166E-01, 0.25792E-01,
     & 0.26434E-01, 0.27159E-01, 0.27959E-01, 0.28759E-01, 0.29560E-01,
     & 0.30360E-01, 0.31161E-01, 0.31961E-01, 0.32762E-01, 0.33562E-01,
     & 0.34505E-02, 0.56095E-02, 0.77656E-02, 0.96127E-02, 0.11088E-01,
     & 0.12346E-01, 0.13506E-01, 0.14637E-01, 0.15758E-01, 0.16869E-01,
     & 0.17933E-01, 0.18951E-01, 0.19901E-01, 0.20784E-01, 0.21597E-01,
     & 0.22353E-01, 0.23044E-01, 0.23674E-01, 0.24267E-01, 0.24841E-01,
     & 0.25435E-01, 0.26105E-01, 0.26849E-01, 0.27593E-01, 0.28337E-01,
     & 0.29081E-01, 0.29824E-01, 0.30568E-01, 0.31312E-01, 0.32056E-01,
     & 0.36438E-02, 0.57294E-02, 0.78120E-02, 0.95871E-02, 0.10995E-01,
     & 0.12189E-01, 0.13289E-01, 0.14362E-01, 0.15426E-01, 0.16479E-01,
     & 0.17490E-01, 0.18448E-01, 0.19341E-01, 0.20167E-01, 0.20925E-01,
     & 0.21626E-01, 0.22265E-01, 0.22843E-01, 0.23387E-01, 0.23910E-01,
     & 0.24458E-01, 0.25074E-01, 0.25761E-01, 0.26447E-01, 0.27133E-01,
     & 0.27820E-01, 0.28506E-01, 0.29193E-01, 0.29879E-01, 0.30565E-01,
     & 0.38407E-02, 0.58515E-02, 0.78594E-02, 0.95622E-02, 0.10903E-01,
     & 0.12035E-01, 0.13076E-01, 0.14091E-01, 0.15099E-01, 0.16095E-01,
     & 0.17052E-01, 0.17954E-01, 0.18790E-01, 0.19562E-01, 0.20267E-01,
     & 0.20914E-01, 0.21502E-01, 0.22030E-01, 0.22525E-01, 0.22999E-01,
     & 0.23502E-01, 0.24067E-01, 0.24697E-01, 0.25328E-01, 0.25958E-01,
     & 0.26589E-01, 0.27219E-01, 0.27850E-01, 0.28480E-01, 0.29111E-01,
     & 0.40408E-02, 0.59758E-02, 0.79079E-02, 0.95378E-02, 0.10811E-01,
     & 0.11882E-01, 0.12864E-01, 0.13824E-01, 0.14777E-01, 0.15718E-01,
     & 0.16622E-01, 0.17469E-01, 0.18250E-01, 0.18967E-01, 0.19620E-01,
     & 0.20218E-01, 0.20756E-01, 0.21235E-01, 0.21682E-01, 0.22110E-01,
     & 0.22568E-01, 0.23081E-01, 0.23656E-01, 0.24230E-01, 0.24805E-01,
     & 0.25380E-01, 0.25955E-01, 0.26530E-01, 0.27105E-01, 0.27680E-01/

      data ((flgrdl(i,j),j=1,30),i= 51, 60)/
     & 0.42433E-02, 0.61018E-02, 0.79575E-02, 0.95142E-02, 0.10721E-01,
     & 0.11730E-01, 0.12655E-01, 0.13561E-01, 0.14459E-01, 0.15347E-01,
     & 0.16199E-01, 0.16991E-01, 0.17720E-01, 0.18385E-01, 0.18988E-01,
     & 0.19535E-01, 0.20025E-01, 0.20459E-01, 0.20859E-01, 0.21243E-01,
     & 0.21654E-01, 0.22117E-01, 0.22635E-01, 0.23153E-01, 0.23671E-01,
     & 0.24189E-01, 0.24706E-01, 0.25224E-01, 0.25742E-01, 0.26260E-01,
     & 0.44485E-02, 0.62298E-02, 0.80083E-02, 0.94914E-02, 0.10632E-01,
     & 0.11579E-01, 0.12448E-01, 0.13300E-01, 0.14146E-01, 0.14983E-01,
     & 0.15782E-01, 0.16522E-01, 0.17199E-01, 0.17813E-01, 0.18367E-01,
     & 0.18868E-01, 0.19310E-01, 0.19699E-01, 0.20056E-01, 0.20396E-01,
     & 0.20762E-01, 0.21176E-01, 0.21642E-01, 0.22109E-01, 0.22575E-01,
     & 0.23041E-01, 0.23507E-01, 0.23973E-01, 0.24439E-01, 0.24905E-01,
     & 0.46569E-02, 0.63600E-02, 0.80602E-02, 0.94693E-02, 0.10543E-01,
     & 0.11430E-01, 0.12243E-01, 0.13043E-01, 0.13836E-01, 0.14624E-01,
     & 0.15371E-01, 0.16061E-01, 0.16688E-01, 0.17253E-01, 0.17759E-01,
     & 0.18216E-01, 0.18612E-01, 0.18957E-01, 0.19271E-01, 0.19569E-01,
     & 0.19890E-01, 0.20259E-01, 0.20677E-01, 0.21095E-01, 0.21513E-01,
     & 0.21932E-01, 0.22350E-01, 0.22768E-01, 0.23186E-01, 0.23604E-01,
     & 0.48693E-02, 0.64927E-02, 0.81134E-02, 0.94481E-02, 0.10455E-01,
     & 0.11283E-01, 0.12041E-01, 0.12789E-01, 0.13532E-01, 0.14270E-01,
     & 0.14968E-01, 0.15608E-01, 0.16187E-01, 0.16706E-01, 0.17165E-01,
     & 0.17577E-01, 0.17930E-01, 0.18232E-01, 0.18505E-01, 0.18762E-01,
     & 0.19040E-01, 0.19364E-01, 0.19736E-01, 0.20108E-01, 0.20480E-01,
     & 0.20852E-01, 0.21224E-01, 0.21596E-01, 0.21968E-01, 0.22340E-01,
     & 0.50842E-02, 0.66274E-02, 0.81678E-02, 0.94275E-02, 0.10368E-01,
     & 0.11137E-01, 0.11841E-01, 0.12538E-01, 0.13232E-01, 0.13922E-01,
     & 0.14571E-01, 0.15163E-01, 0.15695E-01, 0.16169E-01, 0.16583E-01,
     & 0.16952E-01, 0.17262E-01, 0.17523E-01, 0.17756E-01, 0.17973E-01,
     & 0.18209E-01, 0.18490E-01, 0.18818E-01, 0.19145E-01, 0.19473E-01,
     & 0.19800E-01, 0.20128E-01, 0.20455E-01, 0.20783E-01, 0.21110E-01,
     & 0.53030E-02, 0.67645E-02, 0.82234E-02, 0.94076E-02, 0.10282E-01,
     & 0.10992E-01, 0.11644E-01, 0.12291E-01, 0.12936E-01, 0.13579E-01,
     & 0.14180E-01, 0.14726E-01, 0.15213E-01, 0.15645E-01, 0.16015E-01,
     & 0.16339E-01, 0.16608E-01, 0.16829E-01, 0.17024E-01, 0.17202E-01,
     & 0.17399E-01, 0.17639E-01, 0.17925E-01, 0.18211E-01, 0.18497E-01,
     & 0.18783E-01, 0.19069E-01, 0.19355E-01, 0.19641E-01, 0.19927E-01,
     & 0.55258E-02, 0.69044E-02, 0.82803E-02, 0.93885E-02, 0.10197E-01,
     & 0.10849E-01, 0.11448E-01, 0.12046E-01, 0.12644E-01, 0.13241E-01,
     & 0.13797E-01, 0.14298E-01, 0.14743E-01, 0.15131E-01, 0.15459E-01,
     & 0.15741E-01, 0.15970E-01, 0.16152E-01, 0.16308E-01, 0.16449E-01,
     & 0.16608E-01, 0.16808E-01, 0.17052E-01, 0.17295E-01, 0.17539E-01,
     & 0.17782E-01, 0.18026E-01, 0.18270E-01, 0.18513E-01, 0.18757E-01,
     & 0.57514E-02, 0.70462E-02, 0.83384E-02, 0.93700E-02, 0.10112E-01,
     & 0.10707E-01, 0.11255E-01, 0.11805E-01, 0.12357E-01, 0.12909E-01,
     & 0.13420E-01, 0.13878E-01, 0.14282E-01, 0.14628E-01, 0.14914E-01,
     & 0.15154E-01, 0.15346E-01, 0.15491E-01, 0.15610E-01, 0.15715E-01,
     & 0.15838E-01, 0.15998E-01, 0.16198E-01, 0.16399E-01, 0.16599E-01,
     & 0.16799E-01, 0.16999E-01, 0.17199E-01, 0.17400E-01, 0.17600E-01,
     & 0.59806E-02, 0.71904E-02, 0.83978E-02, 0.93518E-02, 0.10028E-01,
     & 0.10566E-01, 0.11063E-01, 0.11567E-01, 0.12074E-01, 0.12582E-01,
     & 0.13050E-01, 0.13468E-01, 0.13829E-01, 0.14134E-01, 0.14381E-01,
     & 0.14581E-01, 0.14735E-01, 0.14844E-01, 0.14929E-01, 0.14998E-01,
     & 0.15088E-01, 0.15211E-01, 0.15372E-01, 0.15533E-01, 0.15695E-01,
     & 0.15856E-01, 0.16017E-01, 0.16179E-01, 0.16340E-01, 0.16501E-01,
     & 0.62136E-02, 0.73371E-02, 0.84582E-02, 0.93342E-02, 0.99446E-02,
     & 0.10426E-01, 0.10873E-01, 0.11331E-01, 0.11795E-01, 0.12259E-01,
     & 0.12686E-01, 0.13064E-01, 0.13386E-01, 0.13650E-01, 0.13859E-01,
     & 0.14022E-01, 0.14140E-01, 0.14213E-01, 0.14263E-01, 0.14300E-01,
     & 0.14355E-01, 0.14442E-01, 0.14567E-01, 0.14691E-01, 0.14816E-01,
     & 0.14940E-01, 0.15065E-01, 0.15189E-01, 0.15314E-01, 0.15438E-01/

      data ((flgrdl(i,j),j=1,30),i= 61, 70)/
     & 0.64511E-02, 0.74866E-02, 0.85197E-02, 0.93170E-02, 0.98615E-02,
     & 0.10287E-01, 0.10684E-01, 0.11098E-01, 0.11519E-01, 0.11942E-01,
     & 0.12330E-01, 0.12668E-01, 0.12950E-01, 0.13176E-01, 0.13347E-01,
     & 0.13474E-01, 0.13558E-01, 0.13598E-01, 0.13615E-01, 0.13621E-01,
     & 0.13643E-01, 0.13694E-01, 0.13779E-01, 0.13865E-01, 0.13951E-01,
     & 0.14036E-01, 0.14122E-01, 0.14207E-01, 0.14293E-01, 0.14379E-01,
     & 0.66918E-02, 0.76382E-02, 0.85822E-02, 0.92999E-02, 0.97785E-02,
     & 0.10149E-01, 0.10497E-01, 0.10868E-01, 0.11247E-01, 0.11630E-01,
     & 0.11979E-01, 0.12279E-01, 0.12522E-01, 0.12711E-01, 0.12847E-01,
     & 0.12939E-01, 0.12988E-01, 0.12998E-01, 0.12984E-01, 0.12959E-01,
     & 0.12948E-01, 0.12965E-01, 0.13013E-01, 0.13061E-01, 0.13108E-01,
     & 0.13156E-01, 0.13204E-01, 0.13251E-01, 0.13299E-01, 0.13347E-01,
     & 0.69368E-02, 0.77922E-02, 0.86455E-02, 0.92828E-02, 0.96954E-02,
     & 0.10010E-01, 0.10311E-01, 0.10639E-01, 0.10977E-01, 0.11322E-01,
     & 0.11633E-01, 0.11896E-01, 0.12103E-01, 0.12256E-01, 0.12358E-01,
     & 0.12416E-01, 0.12433E-01, 0.12412E-01, 0.12369E-01, 0.12315E-01,
     & 0.12270E-01, 0.12256E-01, 0.12273E-01, 0.12290E-01, 0.12307E-01,
     & 0.12324E-01, 0.12341E-01, 0.12358E-01, 0.12375E-01, 0.12392E-01,
     & 0.71853E-02, 0.79484E-02, 0.87095E-02, 0.92655E-02, 0.96120E-02,
     & 0.98723E-02, 0.10127E-01, 0.10412E-01, 0.10711E-01, 0.11018E-01,
     & 0.11293E-01, 0.11520E-01, 0.11692E-01, 0.11810E-01, 0.11879E-01,
     & 0.11907E-01, 0.11892E-01, 0.11842E-01, 0.11771E-01, 0.11689E-01,
     & 0.11612E-01, 0.11568E-01, 0.11554E-01, 0.11540E-01, 0.11527E-01,
     & 0.11513E-01, 0.11499E-01, 0.11485E-01, 0.11472E-01, 0.11458E-01,
     & 0.74389E-02, 0.81074E-02, 0.87740E-02, 0.92476E-02, 0.95278E-02,
     & 0.97342E-02, 0.99429E-02, 0.10187E-01, 0.10448E-01, 0.10718E-01,
     & 0.10958E-01, 0.11150E-01, 0.11288E-01, 0.11374E-01, 0.11410E-01,
     & 0.11410E-01, 0.11365E-01, 0.11286E-01, 0.11188E-01, 0.11077E-01,
     & 0.10973E-01, 0.10899E-01, 0.10857E-01, 0.10814E-01, 0.10772E-01,
     & 0.10729E-01, 0.10687E-01, 0.10644E-01, 0.10601E-01, 0.10559E-01,
     & 0.76945E-02, 0.82675E-02, 0.88387E-02, 0.92289E-02, 0.94428E-02,
     & 0.95955E-02, 0.97593E-02, 0.99642E-02, 0.10188E-01, 0.10422E-01,
     & 0.10627E-01, 0.10787E-01, 0.10892E-01, 0.10947E-01, 0.10953E-01,
     & 0.10923E-01, 0.10850E-01, 0.10744E-01, 0.10619E-01, 0.10482E-01,
     & 0.10350E-01, 0.10249E-01, 0.10179E-01, 0.10109E-01, 0.10039E-01,
     & 0.99695E-02, 0.98997E-02, 0.98299E-02, 0.97600E-02, 0.96902E-02,
     & 0.79552E-02, 0.84301E-02, 0.89032E-02, 0.92090E-02, 0.93565E-02,
     & 0.94560E-02, 0.95755E-02, 0.97419E-02, 0.99295E-02, 0.10129E-01,
     & 0.10302E-01, 0.10429E-01, 0.10504E-01, 0.10529E-01, 0.10505E-01,
     & 0.10447E-01, 0.10347E-01, 0.10215E-01, 0.10065E-01, 0.99024E-02,
     & 0.97459E-02, 0.96171E-02, 0.95171E-02, 0.94171E-02, 0.93171E-02,
     & 0.92170E-02, 0.91170E-02, 0.90170E-02, 0.89170E-02, 0.88169E-02,
     & 0.82192E-02, 0.85941E-02, 0.89674E-02, 0.91874E-02, 0.92682E-02,
     & 0.93151E-02, 0.93909E-02, 0.95199E-02, 0.96727E-02, 0.98398E-02,
     & 0.99809E-02, 0.10078E-01, 0.10123E-01, 0.10119E-01, 0.10067E-01,
     & 0.99819E-02, 0.98565E-02, 0.96986E-02, 0.95239E-02, 0.93369E-02,
     & 0.91596E-02, 0.90042E-02, 0.88755E-02, 0.87467E-02, 0.86180E-02,
     & 0.84893E-02, 0.83606E-02, 0.82318E-02, 0.81031E-02, 0.79744E-02,
     & 0.84867E-02, 0.87594E-02, 0.90306E-02, 0.91638E-02, 0.91776E-02,
     & 0.91721E-02, 0.92052E-02, 0.92986E-02, 0.94172E-02, 0.95528E-02,
     & 0.96641E-02, 0.97312E-02, 0.97479E-02, 0.97173E-02, 0.96392E-02,
     & 0.95270E-02, 0.93778E-02, 0.91958E-02, 0.89968E-02, 0.87882E-02,
     & 0.85895E-02, 0.84089E-02, 0.82517E-02, 0.80944E-02, 0.79372E-02,
     & 0.77799E-02, 0.76227E-02, 0.74655E-02, 0.73082E-02, 0.71510E-02,
     & 0.87566E-02, 0.89252E-02, 0.90926E-02, 0.91374E-02, 0.90840E-02,
     & 0.90265E-02, 0.90175E-02, 0.90762E-02, 0.91624E-02, 0.92678E-02,
     & 0.93504E-02, 0.93896E-02, 0.93802E-02, 0.93234E-02, 0.92203E-02,
     & 0.90819E-02, 0.89091E-02, 0.87060E-02, 0.84855E-02, 0.82560E-02,
     & 0.80361E-02, 0.78307E-02, 0.76448E-02, 0.74588E-02, 0.72728E-02,
     & 0.70868E-02, 0.69008E-02, 0.67149E-02, 0.65289E-02, 0.63429E-02/

      data ((flgrdl(i,j),j=1,30),i= 71, 80)/
     & 0.90295E-02, 0.90916E-02, 0.91525E-02, 0.91078E-02, 0.89866E-02,
     & 0.88775E-02, 0.88274E-02, 0.88519E-02, 0.89073E-02, 0.89849E-02,
     & 0.90397E-02, 0.90529E-02, 0.90179E-02, 0.89355E-02, 0.88090E-02,
     & 0.86484E-02, 0.84532E-02, 0.82290E-02, 0.79894E-02, 0.77387E-02,
     & 0.74982E-02, 0.72719E-02, 0.70642E-02, 0.68566E-02, 0.66489E-02,
     & 0.64413E-02, 0.62336E-02, 0.60260E-02, 0.58183E-02, 0.56107E-02,
     & 0.93039E-02, 0.92574E-02, 0.92100E-02, 0.90740E-02, 0.88849E-02,
     & 0.87243E-02, 0.86342E-02, 0.86259E-02, 0.86518E-02, 0.87023E-02,
     & 0.87311E-02, 0.87200E-02, 0.86607E-02, 0.85553E-02, 0.84062E-02,
     & 0.82252E-02, 0.80098E-02, 0.77655E-02, 0.75060E-02, 0.72387E-02,
     & 0.69780E-02, 0.67318E-02, 0.65040E-02, 0.62763E-02, 0.60485E-02,
     & 0.58208E-02, 0.55930E-02, 0.53653E-02, 0.51375E-02, 0.49098E-02,
     & 0.95787E-02, 0.94218E-02, 0.92640E-02, 0.90356E-02, 0.87779E-02,
     & 0.85664E-02, 0.84370E-02, 0.83969E-02, 0.83949E-02, 0.84194E-02,
     & 0.84247E-02, 0.83901E-02, 0.83089E-02, 0.81823E-02, 0.80125E-02,
     & 0.78108E-02, 0.75766E-02, 0.73162E-02, 0.70397E-02, 0.67565E-02,
     & 0.64767E-02, 0.62102E-02, 0.59592E-02, 0.57081E-02, 0.54571E-02,
     & 0.52060E-02, 0.49550E-02, 0.47039E-02, 0.44529E-02, 0.42018E-02,
     & 0.98531E-02, 0.95837E-02, 0.93136E-02, 0.89914E-02, 0.86647E-02,
     & 0.84025E-02, 0.82346E-02, 0.81641E-02, 0.81359E-02, 0.81363E-02,
     & 0.81190E-02, 0.80637E-02, 0.79617E-02, 0.78149E-02, 0.76261E-02,
     & 0.74068E-02, 0.71550E-02, 0.68790E-02, 0.65887E-02, 0.62892E-02,
     & 0.59909E-02, 0.57091E-02, 0.54429E-02, 0.51768E-02, 0.49107E-02,
     & 0.46446E-02, 0.43785E-02, 0.41124E-02, 0.38462E-02, 0.35801E-02,
     & 0.10123E-01, 0.97408E-02, 0.93578E-02, 0.89405E-02, 0.85443E-02,
     & 0.82317E-02, 0.80260E-02, 0.79271E-02, 0.78736E-02, 0.78514E-02,
     & 0.78140E-02, 0.77392E-02, 0.76187E-02, 0.74537E-02, 0.72475E-02,
     & 0.70130E-02, 0.67458E-02, 0.64542E-02, 0.61500E-02, 0.58362E-02,
     & 0.55233E-02, 0.52278E-02, 0.49505E-02, 0.46733E-02, 0.43960E-02,
     & 0.41187E-02, 0.38414E-02, 0.35641E-02, 0.32869E-02, 0.30096E-02,
     & 0.10384E-01, 0.98896E-02, 0.93947E-02, 0.88820E-02, 0.84158E-02,
     & 0.80529E-02, 0.78103E-02, 0.76839E-02, 0.76070E-02, 0.75641E-02,
     & 0.75088E-02, 0.74165E-02, 0.72786E-02, 0.70976E-02, 0.68762E-02,
     & 0.66270E-02, 0.63468E-02, 0.60425E-02, 0.57250E-02, 0.53999E-02,
     & 0.50758E-02, 0.47654E-02, 0.44712E-02, 0.41770E-02, 0.38828E-02,
     & 0.35885E-02, 0.32943E-02, 0.30001E-02, 0.27059E-02, 0.24117E-02,
     & 0.10627E-01, 0.10025E-01, 0.94221E-02, 0.88146E-02, 0.82780E-02,
     & 0.78651E-02, 0.75863E-02, 0.74338E-02, 0.73350E-02, 0.72744E-02,
     & 0.72021E-02, 0.70935E-02, 0.69407E-02, 0.67460E-02, 0.65116E-02,
     & 0.62490E-02, 0.59569E-02, 0.56422E-02, 0.53150E-02, 0.49794E-02,
     & 0.46456E-02, 0.43232E-02, 0.40140E-02, 0.37047E-02, 0.33955E-02,
     & 0.30862E-02, 0.27770E-02, 0.24677E-02, 0.21585E-02, 0.18492E-02,
     & 0.10849E-01, 0.10143E-01, 0.94365E-02, 0.87369E-02, 0.81299E-02,
     & 0.76669E-02, 0.73528E-02, 0.71752E-02, 0.70562E-02, 0.69798E-02,
     & 0.68924E-02, 0.67704E-02, 0.66047E-02, 0.63976E-02, 0.61516E-02,
     & 0.58785E-02, 0.55767E-02, 0.52525E-02, 0.49165E-02, 0.45720E-02,
     & 0.42302E-02, 0.38984E-02, 0.35796E-02, 0.32607E-02, 0.29419E-02,
     & 0.26231E-02, 0.23042E-02, 0.19854E-02, 0.16666E-02, 0.13477E-02,
     & 0.11052E-01, 0.10243E-01, 0.94346E-02, 0.86473E-02, 0.79702E-02,
     & 0.74575E-02, 0.71088E-02, 0.69075E-02, 0.67699E-02, 0.66794E-02,
     & 0.65803E-02, 0.64465E-02, 0.62698E-02, 0.60525E-02, 0.57971E-02,
     & 0.55154E-02, 0.52059E-02, 0.48745E-02, 0.45314E-02, 0.41805E-02,
     & 0.38327E-02, 0.34920E-02, 0.31617E-02, 0.28315E-02, 0.25013E-02,
     & 0.21711E-02, 0.18409E-02, 0.15107E-02, 0.11804E-02, 0.85023E-03,
     & 0.11231E-01, 0.10322E-01, 0.94130E-02, 0.85433E-02, 0.77980E-02,
     & 0.72357E-02, 0.68529E-02, 0.66293E-02, 0.64747E-02, 0.63716E-02,
     & 0.62632E-02, 0.61205E-02, 0.59356E-02, 0.57108E-02, 0.54481E-02,
     & 0.51599E-02, 0.48443E-02, 0.45083E-02, 0.41613E-02, 0.38062E-02,
     & 0.34529E-02, 0.31063E-02, 0.27686E-02, 0.24308E-02, 0.20930E-02,
     & 0.17552E-02, 0.14174E-02, 0.10797E-02, 0.74189E-03, 0.40411E-03/

      data ((flgrdl(i,j),j=1,30),i= 81, 90)/
     & 0.11382E-01, 0.10375E-01, 0.93682E-02, 0.84219E-02, 0.76120E-02,
     & 0.70005E-02, 0.65841E-02, 0.63394E-02, 0.61694E-02, 0.60558E-02,
     & 0.59400E-02, 0.57922E-02, 0.56018E-02, 0.53713E-02, 0.51039E-02,
     & 0.48114E-02, 0.44929E-02, 0.41545E-02, 0.38055E-02, 0.34488E-02,
     & 0.30916E-02, 0.27422E-02, 0.24023E-02, 0.20624E-02, 0.17225E-02,
     & 0.13826E-02, 0.10427E-02, 0.70284E-03, 0.36295E-03, 0.23050E-04,
     & 0.11497E-01, 0.10396E-01, 0.92960E-02, 0.82787E-02, 0.74108E-02,
     & 0.67511E-02, 0.63016E-02, 0.60366E-02, 0.58528E-02, 0.57311E-02,
     & 0.56114E-02, 0.54593E-02, 0.52657E-02, 0.50327E-02, 0.47636E-02,
     & 0.44705E-02, 0.41512E-02, 0.38126E-02, 0.34644E-02, 0.31080E-02,
     & 0.27507E-02, 0.24010E-02, 0.20601E-02, 0.17191E-02, 0.13782E-02,
     & 0.10373E-02, 0.69637E-03, 0.35545E-03, 0.14535E-04,-0.32639E-03,
     & 0.11571E-01, 0.10381E-01, 0.91920E-02, 0.81089E-02, 0.71927E-02,
     & 0.64868E-02, 0.60047E-02, 0.57206E-02, 0.55242E-02, 0.53963E-02,
     & 0.52743E-02, 0.51220E-02, 0.49281E-02, 0.46950E-02, 0.44265E-02,
     & 0.41342E-02, 0.38172E-02, 0.34816E-02, 0.31364E-02, 0.27830E-02,
     & 0.24285E-02, 0.20806E-02, 0.17412E-02, 0.14018E-02, 0.10625E-02,
     & 0.72309E-03, 0.38371E-03, 0.44331E-04,-0.29505E-03,-0.63443E-03,
     & 0.11595E-01, 0.10323E-01, 0.90513E-02, 0.79088E-02, 0.69551E-02,
     & 0.62073E-02, 0.56933E-02, 0.53904E-02, 0.51827E-02, 0.50505E-02,
     & 0.49290E-02, 0.47791E-02, 0.45877E-02, 0.43575E-02, 0.40926E-02,
     & 0.38043E-02, 0.34918E-02, 0.31614E-02, 0.28218E-02, 0.24742E-02,
     & 0.21256E-02, 0.17824E-02, 0.14468E-02, 0.11111E-02, 0.77544E-03,
     & 0.43978E-03, 0.10413E-03,-0.23153E-03,-0.56719E-03,-0.90285E-03,
     & 0.11560E-01, 0.10214E-01, 0.88686E-02, 0.76744E-02, 0.66931E-02,
     & 0.59121E-02, 0.53672E-02, 0.50462E-02, 0.48280E-02, 0.46931E-02,
     & 0.45737E-02, 0.44292E-02, 0.42437E-02, 0.40197E-02, 0.37611E-02,
     & 0.34801E-02, 0.31754E-02, 0.28531E-02, 0.25221E-02, 0.21830E-02,
     & 0.18432E-02, 0.15072E-02, 0.11777E-02, 0.84823E-03, 0.51873E-03,
     & 0.18922E-03,-0.14028E-03,-0.46978E-03,-0.79929E-03,-0.11288E-02,
     & 0.11457E-01, 0.10047E-01, 0.86383E-02, 0.74018E-02, 0.64020E-02,
     & 0.56008E-02, 0.50273E-02, 0.46886E-02, 0.44603E-02, 0.43234E-02,
     & 0.42092E-02, 0.40729E-02, 0.38966E-02, 0.36816E-02, 0.34327E-02,
     & 0.31613E-02, 0.28673E-02, 0.25566E-02, 0.22374E-02, 0.19101E-02,
     & 0.15812E-02, 0.12559E-02, 0.93612E-03, 0.61636E-03, 0.29660E-03,
     &-0.23157E-04,-0.34292E-03,-0.66267E-03,-0.98243E-03,-0.13022E-02,
     & 0.11275E-01, 0.98140E-02, 0.83544E-02, 0.70871E-02, 0.60780E-02,
     & 0.52720E-02, 0.46748E-02, 0.43186E-02, 0.40806E-02, 0.39430E-02,
     & 0.38346E-02, 0.37094E-02, 0.35458E-02, 0.33430E-02, 0.31066E-02,
     & 0.28488E-02, 0.25686E-02, 0.22721E-02, 0.19677E-02, 0.16551E-02,
     & 0.13406E-02, 0.10293E-02, 0.72343E-03, 0.41753E-03, 0.11162E-03,
     &-0.19428E-03,-0.50019E-03,-0.80609E-03,-0.11120E-02,-0.14179E-02,
     & 0.11003E-01, 0.95060E-02, 0.80111E-02, 0.67262E-02, 0.57186E-02,
     & 0.49222E-02, 0.43115E-02, 0.39385E-02, 0.36907E-02, 0.35525E-02,
     & 0.34515E-02, 0.33386E-02, 0.31906E-02, 0.30038E-02, 0.27838E-02,
     & 0.25417E-02, 0.22785E-02, 0.19999E-02, 0.17133E-02, 0.14189E-02,
     & 0.11224E-02, 0.82799E-03, 0.53799E-03, 0.24800E-03,-0.41999E-04,
     &-0.33200E-03,-0.62199E-03,-0.91199E-03,-0.12020E-02,-0.14920E-02,
     & 0.10629E-01, 0.91147E-02, 0.76025E-02, 0.63158E-02, 0.53217E-02,
     & 0.45459E-02, 0.39389E-02, 0.35513E-02, 0.32933E-02, 0.31542E-02,
     & 0.30610E-02, 0.29622E-02, 0.28317E-02, 0.26639E-02, 0.24628E-02,
     & 0.22406E-02, 0.19977E-02, 0.17398E-02, 0.14744E-02, 0.12011E-02,
     & 0.92556E-03, 0.65185E-03, 0.38230E-03, 0.11276E-03,-0.15678E-03,
     &-0.42633E-03,-0.69587E-03,-0.96541E-03,-0.12350E-02,-0.15045E-02,
     & 0.10141E-01, 0.86311E-02, 0.71233E-02, 0.58532E-02, 0.48863E-02,
     & 0.41413E-02, 0.35570E-02, 0.31607E-02, 0.28928E-02, 0.27516E-02,
     & 0.26663E-02, 0.25819E-02, 0.24713E-02, 0.23252E-02, 0.21462E-02,
     & 0.19462E-02, 0.17262E-02, 0.14925E-02, 0.12511E-02, 0.10024E-02,
     & 0.75112E-03, 0.50083E-03, 0.25353E-03, 0.62431E-05,-0.24105E-03,
     &-0.48834E-03,-0.73563E-03,-0.98292E-03,-0.12302E-02,-0.14775E-02/

      data ((flgrdl(i,j),j=1,30),i= 91,100)/
     & 0.95280E-02, 0.80476E-02, 0.65695E-02, 0.53367E-02, 0.44122E-02,
     & 0.37091E-02, 0.31622E-02, 0.27704E-02, 0.24951E-02, 0.23500E-02,
     & 0.22709E-02, 0.22011E-02, 0.21111E-02, 0.19888E-02, 0.18348E-02,
     & 0.16599E-02, 0.14659E-02, 0.12587E-02, 0.10440E-02, 0.82255E-03,
     & 0.59863E-03, 0.37489E-03, 0.15358E-03,-0.67728E-04,-0.28904E-03,
     &-0.51035E-03,-0.73166E-03,-0.95297E-03,-0.11743E-02,-0.13956E-02,
     & 0.87802E-02, 0.73583E-02, 0.59387E-02, 0.47665E-02, 0.39010E-02,
     & 0.32516E-02, 0.27520E-02, 0.23819E-02, 0.21067E-02, 0.19562E-02,
     & 0.18811E-02, 0.18245E-02, 0.17543E-02, 0.16571E-02, 0.15302E-02,
     & 0.13829E-02, 0.12171E-02, 0.10387E-02, 0.85362E-03, 0.66184E-03,
     & 0.46764E-03, 0.27329E-03, 0.80638E-04,-0.11201E-03,-0.30466E-03,
     &-0.49731E-03,-0.68995E-03,-0.88260E-03,-0.10753E-02,-0.12679E-02,
     & 0.78913E-02, 0.65601E-02, 0.52312E-02, 0.41455E-02, 0.33565E-02,
     & 0.27729E-02, 0.23291E-02, 0.19961E-02, 0.17351E-02, 0.15792E-02,
     & 0.15047E-02, 0.14585E-02, 0.14070E-02, 0.13343E-02, 0.12354E-02,
     & 0.11171E-02, 0.98119E-03, 0.83369E-03, 0.67980E-03, 0.51984E-03,
     & 0.35745E-03, 0.19435E-03, 0.32098E-04,-0.13015E-03,-0.29240E-03,
     &-0.45466E-03,-0.61691E-03,-0.77916E-03,-0.94141E-03,-0.11037E-02,
     & 0.68596E-02, 0.56547E-02, 0.44519E-02, 0.34801E-02, 0.27858E-02,
     & 0.22798E-02, 0.18997E-02, 0.16160E-02, 0.13848E-02, 0.12291E-02,
     & 0.11520E-02, 0.11121E-02, 0.10760E-02, 0.10257E-02, 0.95448E-03,
     & 0.86565E-03, 0.76059E-03, 0.64479E-03, 0.52294E-03, 0.39582E-03,
     & 0.26641E-03, 0.13584E-03, 0.54254E-05,-0.12499E-03,-0.25540E-03,
     &-0.38581E-03,-0.51622E-03,-0.64663E-03,-0.77704E-03,-0.90746E-03,
     & 0.56930E-02, 0.46515E-02, 0.36120E-02, 0.27822E-02, 0.22001E-02,
     & 0.17824E-02, 0.14727E-02, 0.12442E-02, 0.10559E-02, 0.91523E-03,
     & 0.83480E-03, 0.79655E-03, 0.77104E-03, 0.73937E-03, 0.69317E-03,
     & 0.63263E-03, 0.55772E-03, 0.47325E-03, 0.38339E-03, 0.28899E-03,
     & 0.19248E-03, 0.94662E-04,-0.34995E-05,-0.10166E-03,-0.19982E-03,
     &-0.29798E-03,-0.39615E-03,-0.49431E-03,-0.59247E-03,-0.69063E-03,
     & 0.44126E-02, 0.35715E-02, 0.27322E-02, 0.20710E-02, 0.16163E-02,
     & 0.12955E-02, 0.10608E-02, 0.88983E-03, 0.74956E-03, 0.64104E-03,
     & 0.56472E-03, 0.52467E-03, 0.50403E-03, 0.48552E-03, 0.45926E-03,
     & 0.42344E-03, 0.37653E-03, 0.32143E-03, 0.26166E-03, 0.19825E-03,
     & 0.13303E-03, 0.66524E-04,-0.63441E-06,-0.67793E-04,-0.13495E-03,
     &-0.20211E-03,-0.26927E-03,-0.33643E-03,-0.40359E-03,-0.47074E-03,
     & 0.30628E-02, 0.24546E-02, 0.18477E-02, 0.13764E-02, 0.10592E-02,
     & 0.83940E-03, 0.68087E-03, 0.56675E-03, 0.47383E-03, 0.40215E-03,
     & 0.34691E-03, 0.30874E-03, 0.28850E-03, 0.27644E-03, 0.26360E-03,
     & 0.24629E-03, 0.22228E-03, 0.19243E-03, 0.15891E-03, 0.12266E-03,
     & 0.84936E-04, 0.46200E-04, 0.67957E-05,-0.32608E-04,-0.72012E-04,
     &-0.11142E-03,-0.15082E-03,-0.19022E-03,-0.22963E-03,-0.26903E-03,
     & 0.17286E-02, 0.13722E-02, 0.10167E-02, 0.74447E-03, 0.56500E-03,
     & 0.44268E-03, 0.35561E-03, 0.29365E-03, 0.24353E-03, 0.20518E-03,
     & 0.17539E-03, 0.15214E-03, 0.13534E-03, 0.12525E-03, 0.11863E-03,
     & 0.11192E-03, 0.10306E-03, 0.91421E-04, 0.77678E-04, 0.62236E-04,
     & 0.45815E-04, 0.28775E-04, 0.11299E-04,-0.61783E-05,-0.23655E-04,
     &-0.41132E-04,-0.58609E-04,-0.76086E-04,-0.93563E-04,-0.11104E-03,
     & 0.58315E-03, 0.46182E-03, 0.34077E-03, 0.24826E-03, 0.18745E-03,
     & 0.14611E-03, 0.11675E-03, 0.95925E-04, 0.79113E-04, 0.66291E-04,
     & 0.56364E-04, 0.48457E-04, 0.42150E-04, 0.37476E-04, 0.34023E-04,
     & 0.31404E-04, 0.29086E-04, 0.26482E-04, 0.23440E-04, 0.19908E-04,
     & 0.16012E-04, 0.11899E-04, 0.76400E-05, 0.33811E-05,-0.87780E-06,
     &-0.51367E-05,-0.93956E-05,-0.13655E-04,-0.17913E-04,-0.22172E-04,
     & 0.61062E-04, 0.48354E-04, 0.35677E-04, 0.25980E-04, 0.19597E-04,
     & 0.15254E-04, 0.12169E-04, 0.99803E-05, 0.82140E-05, 0.68678E-05,
     & 0.58265E-05, 0.49981E-05, 0.43271E-05, 0.37791E-05, 0.33399E-05,
     & 0.30285E-05, 0.28040E-05, 0.25873E-05, 0.23416E-05, 0.20509E-05,
     & 0.17208E-05, 0.13676E-05, 0.99944E-06, 0.63132E-06, 0.26319E-06,
     &-0.10493E-06,-0.47306E-06,-0.84118E-06,-0.12093E-05,-0.15774E-05/

      data ((c2grdl(i,j),j=1,30),i=  1, 10)/
     & 0.17510E-02, 0.41233E-02, 0.64994E-02, 0.93855E-02, 0.13267E-01,
     & 0.18323E-01, 0.24724E-01, 0.32684E-01, 0.41677E-01, 0.51993E-01,
     & 0.63514E-01, 0.76090E-01, 0.89612E-01, 0.10400E+00, 0.11917E+00,
     & 0.13508E+00, 0.15174E+00, 0.16916E+00, 0.18745E+00, 0.20674E+00,
     & 0.22743E+00, 0.24928E+00, 0.27209E+00, 0.29491E+00, 0.31772E+00,
     & 0.34054E+00, 0.36335E+00, 0.38617E+00, 0.40898E+00, 0.43179E+00,
     & 0.17219E-02, 0.40556E-02, 0.63932E-02, 0.92327E-02, 0.13048E-01,
     & 0.18020E-01, 0.24310E-01, 0.32126E-01, 0.40951E-01, 0.51067E-01,
     & 0.62361E-01, 0.74678E-01, 0.87917E-01, 0.10200E+00, 0.11684E+00,
     & 0.13239E+00, 0.14869E+00, 0.16571E+00, 0.18358E+00, 0.20243E+00,
     & 0.22263E+00, 0.24398E+00, 0.26626E+00, 0.28855E+00, 0.31083E+00,
     & 0.33312E+00, 0.35540E+00, 0.37769E+00, 0.39997E+00, 0.42226E+00,
     & 0.16915E-02, 0.39880E-02, 0.62883E-02, 0.90820E-02, 0.12832E-01,
     & 0.17722E-01, 0.23900E-01, 0.31575E-01, 0.40233E-01, 0.50153E-01,
     & 0.61222E-01, 0.73285E-01, 0.86244E-01, 0.10002E+00, 0.11453E+00,
     & 0.12974E+00, 0.14567E+00, 0.16230E+00, 0.17976E+00, 0.19817E+00,
     & 0.21790E+00, 0.23874E+00, 0.26051E+00, 0.28227E+00, 0.30403E+00,
     & 0.32579E+00, 0.34755E+00, 0.36931E+00, 0.39108E+00, 0.41284E+00,
     & 0.16602E-02, 0.39205E-02, 0.61845E-02, 0.89329E-02, 0.12619E-01,
     & 0.17427E-01, 0.23494E-01, 0.31029E-01, 0.39523E-01, 0.49250E-01,
     & 0.60097E-01, 0.71907E-01, 0.84591E-01, 0.98069E-01, 0.11225E+00,
     & 0.12713E+00, 0.14269E+00, 0.15893E+00, 0.17598E+00, 0.19396E+00,
     & 0.21322E+00, 0.23357E+00, 0.25482E+00, 0.27607E+00, 0.29731E+00,
     & 0.31856E+00, 0.33981E+00, 0.36105E+00, 0.38230E+00, 0.40355E+00,
     & 0.16295E-02, 0.38538E-02, 0.60817E-02, 0.87853E-02, 0.12408E-01,
     & 0.17136E-01, 0.23093E-01, 0.30490E-01, 0.38822E-01, 0.48357E-01,
     & 0.58985E-01, 0.70546E-01, 0.82957E-01, 0.96140E-01, 0.11001E+00,
     & 0.12454E+00, 0.13975E+00, 0.15561E+00, 0.17226E+00, 0.18981E+00,
     & 0.20861E+00, 0.22847E+00, 0.24920E+00, 0.26993E+00, 0.29067E+00,
     & 0.31140E+00, 0.33213E+00, 0.35287E+00, 0.37360E+00, 0.39433E+00,
     & 0.15995E-02, 0.37880E-02, 0.59800E-02, 0.86399E-02, 0.12199E-01,
     & 0.16849E-01, 0.22695E-01, 0.29957E-01, 0.38129E-01, 0.47474E-01,
     & 0.57885E-01, 0.69201E-01, 0.81344E-01, 0.94237E-01, 0.10779E+00,
     & 0.12199E+00, 0.13684E+00, 0.15233E+00, 0.16858E+00, 0.18570E+00,
     & 0.20406E+00, 0.22343E+00, 0.24365E+00, 0.26387E+00, 0.28409E+00,
     & 0.30430E+00, 0.32452E+00, 0.34474E+00, 0.36496E+00, 0.38518E+00,
     & 0.15713E-02, 0.37235E-02, 0.58793E-02, 0.84960E-02, 0.11994E-01,
     & 0.16565E-01, 0.22303E-01, 0.29431E-01, 0.37445E-01, 0.46604E-01,
     & 0.56799E-01, 0.67874E-01, 0.79752E-01, 0.92357E-01, 0.10560E+00,
     & 0.11947E+00, 0.13397E+00, 0.14909E+00, 0.16495E+00, 0.18165E+00,
     & 0.19957E+00, 0.21846E+00, 0.23818E+00, 0.25789E+00, 0.27760E+00,
     & 0.29731E+00, 0.31702E+00, 0.33674E+00, 0.35645E+00, 0.37616E+00,
     & 0.15395E-02, 0.36579E-02, 0.57796E-02, 0.83537E-02, 0.11791E-01,
     & 0.16285E-01, 0.21914E-01, 0.28909E-01, 0.36769E-01, 0.45745E-01,
     & 0.55726E-01, 0.66564E-01, 0.78181E-01, 0.90501E-01, 0.10344E+00,
     & 0.11698E+00, 0.13114E+00, 0.14589E+00, 0.16136E+00, 0.17766E+00,
     & 0.19513E+00, 0.21356E+00, 0.23277E+00, 0.25198E+00, 0.27119E+00,
     & 0.29041E+00, 0.30962E+00, 0.32883E+00, 0.34804E+00, 0.36725E+00,
     & 0.15100E-02, 0.35938E-02, 0.56809E-02, 0.82130E-02, 0.11590E-01,
     & 0.16006E-01, 0.21531E-01, 0.28393E-01, 0.36102E-01, 0.44896E-01,
     & 0.54667E-01, 0.65272E-01, 0.76629E-01, 0.88669E-01, 0.10131E+00,
     & 0.11453E+00, 0.12834E+00, 0.14274E+00, 0.15782E+00, 0.17371E+00,
     & 0.19075E+00, 0.20871E+00, 0.22743E+00, 0.24615E+00, 0.26487E+00,
     & 0.28359E+00, 0.30231E+00, 0.32103E+00, 0.33975E+00, 0.35847E+00,
     & 0.14802E-02, 0.35300E-02, 0.55831E-02, 0.80737E-02, 0.11392E-01,
     & 0.15728E-01, 0.21153E-01, 0.27882E-01, 0.35442E-01, 0.44056E-01,
     & 0.53621E-01, 0.63996E-01, 0.75097E-01, 0.86859E-01, 0.99199E-01,
     & 0.11210E+00, 0.12558E+00, 0.13962E+00, 0.15433E+00, 0.16983E+00,
     & 0.18643E+00, 0.20394E+00, 0.22218E+00, 0.24042E+00, 0.25866E+00,
     & 0.27690E+00, 0.29514E+00, 0.31338E+00, 0.33162E+00, 0.34986E+00/

      data ((c2grdl(i,j),j=1,30),i= 11, 20)/
     & 0.14540E-02, 0.34685E-02, 0.54863E-02, 0.79359E-02, 0.11196E-01,
     & 0.15455E-01, 0.20782E-01, 0.27378E-01, 0.34792E-01, 0.43227E-01,
     & 0.52589E-01, 0.62735E-01, 0.73583E-01, 0.85072E-01, 0.97120E-01,
     & 0.10971E+00, 0.12286E+00, 0.13655E+00, 0.15089E+00, 0.16599E+00,
     & 0.18217E+00, 0.19922E+00, 0.21699E+00, 0.23477E+00, 0.25254E+00,
     & 0.27031E+00, 0.28808E+00, 0.30585E+00, 0.32363E+00, 0.34140E+00,
     & 0.14272E-02, 0.34073E-02, 0.53906E-02, 0.77993E-02, 0.11002E-01,
     & 0.15184E-01, 0.20414E-01, 0.26881E-01, 0.34149E-01, 0.42408E-01,
     & 0.51570E-01, 0.61490E-01, 0.72088E-01, 0.83307E-01, 0.95066E-01,
     & 0.10735E+00, 0.12017E+00, 0.13351E+00, 0.14749E+00, 0.16220E+00,
     & 0.17796E+00, 0.19457E+00, 0.21188E+00, 0.22920E+00, 0.24652E+00,
     & 0.26383E+00, 0.28115E+00, 0.29846E+00, 0.31578E+00, 0.33309E+00,
     & 0.14092E-02, 0.33510E-02, 0.52961E-02, 0.76642E-02, 0.10811E-01,
     & 0.14916E-01, 0.20052E-01, 0.26391E-01, 0.33514E-01, 0.41600E-01,
     & 0.50563E-01, 0.60259E-01, 0.70613E-01, 0.81565E-01, 0.93038E-01,
     & 0.10502E+00, 0.11751E+00, 0.13052E+00, 0.14414E+00, 0.15846E+00,
     & 0.17380E+00, 0.18998E+00, 0.20684E+00, 0.22371E+00, 0.24057E+00,
     & 0.25744E+00, 0.27430E+00, 0.29117E+00, 0.30803E+00, 0.32490E+00,
     & 0.13996E-02, 0.32997E-02, 0.52032E-02, 0.75304E-02, 0.10623E-01,
     & 0.14652E-01, 0.19693E-01, 0.25909E-01, 0.32887E-01, 0.40803E-01,
     & 0.49572E-01, 0.59045E-01, 0.69156E-01, 0.79845E-01, 0.91036E-01,
     & 0.10272E+00, 0.11490E+00, 0.12757E+00, 0.14083E+00, 0.15478E+00,
     & 0.16970E+00, 0.18545E+00, 0.20187E+00, 0.21829E+00, 0.23471E+00,
     & 0.25112E+00, 0.26754E+00, 0.28396E+00, 0.30038E+00, 0.31680E+00,
     & 0.13776E-02, 0.32434E-02, 0.51123E-02, 0.73978E-02, 0.10438E-01,
     & 0.14391E-01, 0.19340E-01, 0.25432E-01, 0.32266E-01, 0.40018E-01,
     & 0.48593E-01, 0.57846E-01, 0.67717E-01, 0.78148E-01, 0.89060E-01,
     & 0.10045E+00, 0.11231E+00, 0.12465E+00, 0.13756E+00, 0.15114E+00,
     & 0.16566E+00, 0.18099E+00, 0.19697E+00, 0.21294E+00, 0.22892E+00,
     & 0.24490E+00, 0.26088E+00, 0.27686E+00, 0.29284E+00, 0.30882E+00,
     & 0.13472E-02, 0.31836E-02, 0.50229E-02, 0.72665E-02, 0.10254E-01,
     & 0.14134E-01, 0.18990E-01, 0.24961E-01, 0.31653E-01, 0.39242E-01,
     & 0.47625E-01, 0.56661E-01, 0.66297E-01, 0.76474E-01, 0.87112E-01,
     & 0.98207E-01, 0.10976E+00, 0.12178E+00, 0.13434E+00, 0.14755E+00,
     & 0.16168E+00, 0.17658E+00, 0.19213E+00, 0.20767E+00, 0.22322E+00,
     & 0.23876E+00, 0.25431E+00, 0.26985E+00, 0.28539E+00, 0.30094E+00,
     & 0.13185E-02, 0.31249E-02, 0.49341E-02, 0.71366E-02, 0.10073E-01,
     & 0.13879E-01, 0.18644E-01, 0.24497E-01, 0.31049E-01, 0.38476E-01,
     & 0.46668E-01, 0.55489E-01, 0.64897E-01, 0.74824E-01, 0.85191E-01,
     & 0.95999E-01, 0.10725E+00, 0.11894E+00, 0.13117E+00, 0.14402E+00,
     & 0.15775E+00, 0.17225E+00, 0.18736E+00, 0.20248E+00, 0.21759E+00,
     & 0.23271E+00, 0.24782E+00, 0.26294E+00, 0.27805E+00, 0.29316E+00,
     & 0.12892E-02, 0.30662E-02, 0.48460E-02, 0.70080E-02, 0.98941E-02,
     & 0.13628E-01, 0.18303E-01, 0.24037E-01, 0.30451E-01, 0.37720E-01,
     & 0.45719E-01, 0.54335E-01, 0.63517E-01, 0.73196E-01, 0.83297E-01,
     & 0.93819E-01, 0.10477E+00, 0.11615E+00, 0.12804E+00, 0.14054E+00,
     & 0.15388E+00, 0.16797E+00, 0.18266E+00, 0.19735E+00, 0.21204E+00,
     & 0.22673E+00, 0.24142E+00, 0.25611E+00, 0.27081E+00, 0.28550E+00,
     & 0.12619E-02, 0.30089E-02, 0.47586E-02, 0.68810E-02, 0.97165E-02,
     & 0.13379E-01, 0.17965E-01, 0.23583E-01, 0.29861E-01, 0.36973E-01,
     & 0.44783E-01, 0.53196E-01, 0.62156E-01, 0.71591E-01, 0.81429E-01,
     & 0.91672E-01, 0.10233E+00, 0.11339E+00, 0.12496E+00, 0.13710E+00,
     & 0.15006E+00, 0.16375E+00, 0.17803E+00, 0.19230E+00, 0.20658E+00,
     & 0.22086E+00, 0.23513E+00, 0.24941E+00, 0.26369E+00, 0.27796E+00,
     & 0.12340E-02, 0.29516E-02, 0.46720E-02, 0.67557E-02, 0.95406E-02,
     & 0.13133E-01, 0.17632E-01, 0.23134E-01, 0.29277E-01, 0.36234E-01,
     & 0.43859E-01, 0.52074E-01, 0.60814E-01, 0.70006E-01, 0.79586E-01,
     & 0.89554E-01, 0.99920E-01, 0.11068E+00, 0.12191E+00, 0.13371E+00,
     & 0.14630E+00, 0.15960E+00, 0.17347E+00, 0.18734E+00, 0.20121E+00,
     & 0.21508E+00, 0.22896E+00, 0.24283E+00, 0.25670E+00, 0.27057E+00/

      data ((c2grdl(i,j),j=1,30),i= 21, 30)/
     & 0.12035E-02, 0.28934E-02, 0.45859E-02, 0.66319E-02, 0.93663E-02,
     & 0.12890E-01, 0.17303E-01, 0.22690E-01, 0.28703E-01, 0.35500E-01,
     & 0.42949E-01, 0.50968E-01, 0.59490E-01, 0.68443E-01, 0.77768E-01,
     & 0.87463E-01, 0.97543E-01, 0.10799E+00, 0.11891E+00, 0.13037E+00,
     & 0.14260E+00, 0.15550E+00, 0.16896E+00, 0.18242E+00, 0.19588E+00,
     & 0.20935E+00, 0.22281E+00, 0.23627E+00, 0.24973E+00, 0.26320E+00,
     & 0.11761E-02, 0.28370E-02, 0.45005E-02, 0.65101E-02, 0.91937E-02,
     & 0.12650E-01, 0.16977E-01, 0.22253E-01, 0.28136E-01, 0.34777E-01,
     & 0.42051E-01, 0.49878E-01, 0.58183E-01, 0.66901E-01, 0.75974E-01,
     & 0.85399E-01, 0.95197E-01, 0.10535E+00, 0.11595E+00, 0.12708E+00,
     & 0.13894E+00, 0.15146E+00, 0.16451E+00, 0.17757E+00, 0.19062E+00,
     & 0.20368E+00, 0.21673E+00, 0.22979E+00, 0.24284E+00, 0.25590E+00,
     & 0.11532E-02, 0.27832E-02, 0.44158E-02, 0.63905E-02, 0.90228E-02,
     & 0.12414E-01, 0.16655E-01, 0.21822E-01, 0.27577E-01, 0.34065E-01,
     & 0.41167E-01, 0.48802E-01, 0.56894E-01, 0.65377E-01, 0.74203E-01,
     & 0.83363E-01, 0.92881E-01, 0.10274E+00, 0.11304E+00, 0.12383E+00,
     & 0.13534E+00, 0.14748E+00, 0.16013E+00, 0.17278E+00, 0.18544E+00,
     & 0.19809E+00, 0.21074E+00, 0.22340E+00, 0.23605E+00, 0.24871E+00,
     & 0.11259E-02, 0.27277E-02, 0.43321E-02, 0.62726E-02, 0.88536E-02,
     & 0.12183E-01, 0.16336E-01, 0.21396E-01, 0.27024E-01, 0.33363E-01,
     & 0.40295E-01, 0.47742E-01, 0.55622E-01, 0.63873E-01, 0.72455E-01,
     & 0.81357E-01, 0.90601E-01, 0.10018E+00, 0.11016E+00, 0.12062E+00,
     & 0.13178E+00, 0.14355E+00, 0.15581E+00, 0.16808E+00, 0.18034E+00,
     & 0.19260E+00, 0.20487E+00, 0.21713E+00, 0.22939E+00, 0.24166E+00,
     & 0.11042E-02, 0.26754E-02, 0.42491E-02, 0.61557E-02, 0.86863E-02,
     & 0.11955E-01, 0.16021E-01, 0.20975E-01, 0.26479E-01, 0.32670E-01,
     & 0.39437E-01, 0.46696E-01, 0.54367E-01, 0.62386E-01, 0.70729E-01,
     & 0.79382E-01, 0.88354E-01, 0.97643E-01, 0.10733E+00, 0.11747E+00,
     & 0.12828E+00, 0.13968E+00, 0.15156E+00, 0.16345E+00, 0.17533E+00,
     & 0.18722E+00, 0.19910E+00, 0.21099E+00, 0.22287E+00, 0.23476E+00,
     & 0.10777E-02, 0.26212E-02, 0.41671E-02, 0.60396E-02, 0.85208E-02,
     & 0.11729E-01, 0.15710E-01, 0.20559E-01, 0.25941E-01, 0.31988E-01,
     & 0.38592E-01, 0.45665E-01, 0.53128E-01, 0.60922E-01, 0.69029E-01,
     & 0.77437E-01, 0.86142E-01, 0.95149E-01, 0.10454E+00, 0.11436E+00,
     & 0.12483E+00, 0.13587E+00, 0.14738E+00, 0.15889E+00, 0.17040E+00,
     & 0.18191E+00, 0.19342E+00, 0.20493E+00, 0.21643E+00, 0.22794E+00,
     & 0.10548E-02, 0.25692E-02, 0.40859E-02, 0.59244E-02, 0.83575E-02,
     & 0.11505E-01, 0.15402E-01, 0.20148E-01, 0.25410E-01, 0.31313E-01,
     & 0.37758E-01, 0.44648E-01, 0.51903E-01, 0.59482E-01, 0.67355E-01,
     & 0.75521E-01, 0.83963E-01, 0.92693E-01, 0.10179E+00, 0.11130E+00,
     & 0.12144E+00, 0.13212E+00, 0.14326E+00, 0.15440E+00, 0.16554E+00,
     & 0.17668E+00, 0.18781E+00, 0.19895E+00, 0.21009E+00, 0.22123E+00,
     & 0.10297E-02, 0.25164E-02, 0.40055E-02, 0.58102E-02, 0.81962E-02,
     & 0.11284E-01, 0.15098E-01, 0.19742E-01, 0.24885E-01, 0.30648E-01,
     & 0.36934E-01, 0.43643E-01, 0.50696E-01, 0.58064E-01, 0.65708E-01,
     & 0.73633E-01, 0.81818E-01, 0.90274E-01, 0.99081E-01, 0.10829E+00,
     & 0.11809E+00, 0.12843E+00, 0.13920E+00, 0.14998E+00, 0.16075E+00,
     & 0.17153E+00, 0.18230E+00, 0.19308E+00, 0.20385E+00, 0.21463E+00,
     & 0.10102E-02, 0.24669E-02, 0.39260E-02, 0.56970E-02, 0.80376E-02,
     & 0.11065E-01, 0.14798E-01, 0.19340E-01, 0.24367E-01, 0.29992E-01,
     & 0.36121E-01, 0.42650E-01, 0.49506E-01, 0.56666E-01, 0.64085E-01,
     & 0.71773E-01, 0.79704E-01, 0.87893E-01, 0.96414E-01, 0.10532E+00,
     & 0.11480E+00, 0.12479E+00, 0.13520E+00, 0.14562E+00, 0.15603E+00,
     & 0.16644E+00, 0.17685E+00, 0.18726E+00, 0.19767E+00, 0.20809E+00,
     & 0.98533E-03, 0.24152E-02, 0.38474E-02, 0.55847E-02, 0.78817E-02,
     & 0.10847E-01, 0.14501E-01, 0.18944E-01, 0.23857E-01, 0.29345E-01,
     & 0.35319E-01, 0.41668E-01, 0.48334E-01, 0.55289E-01, 0.62487E-01,
     & 0.69939E-01, 0.77621E-01, 0.85545E-01, 0.93787E-01, 0.10240E+00,
     & 0.11156E+00, 0.12121E+00, 0.13127E+00, 0.14132E+00, 0.15138E+00,
     & 0.16143E+00, 0.17149E+00, 0.18155E+00, 0.19160E+00, 0.20166E+00/

      data ((c2grdl(i,j),j=1,30),i= 31, 40)/
     & 0.95877E-03, 0.23630E-02, 0.37694E-02, 0.54734E-02, 0.77272E-02,
     & 0.10632E-01, 0.14209E-01, 0.18553E-01, 0.23352E-01, 0.28708E-01,
     & 0.34528E-01, 0.40700E-01, 0.47180E-01, 0.53932E-01, 0.60911E-01,
     & 0.68132E-01, 0.75568E-01, 0.83230E-01, 0.91196E-01, 0.99513E-01,
     & 0.10837E+00, 0.11768E+00, 0.12739E+00, 0.13709E+00, 0.14680E+00,
     & 0.15650E+00, 0.16621E+00, 0.17592E+00, 0.18562E+00, 0.19533E+00,
     & 0.93128E-03, 0.23105E-02, 0.36919E-02, 0.53632E-02, 0.75747E-02,
     & 0.10419E-01, 0.13923E-01, 0.18167E-01, 0.22855E-01, 0.28079E-01,
     & 0.33747E-01, 0.39748E-01, 0.46044E-01, 0.52597E-01, 0.59360E-01,
     & 0.66352E-01, 0.73545E-01, 0.80950E-01, 0.88644E-01, 0.96677E-01,
     & 0.10523E+00, 0.11421E+00, 0.12357E+00, 0.13293E+00, 0.14228E+00,
     & 0.15164E+00, 0.16100E+00, 0.17036E+00, 0.17971E+00, 0.18907E+00,
     & 0.90691E-03, 0.22598E-02, 0.36149E-02, 0.52543E-02, 0.74235E-02,
     & 0.10208E-01, 0.13640E-01, 0.17785E-01, 0.22363E-01, 0.27457E-01,
     & 0.32976E-01, 0.38809E-01, 0.44924E-01, 0.51282E-01, 0.57834E-01,
     & 0.64599E-01, 0.71554E-01, 0.78705E-01, 0.86132E-01, 0.93885E-01,
     & 0.10213E+00, 0.11079E+00, 0.11981E+00, 0.12882E+00, 0.13784E+00,
     & 0.14685E+00, 0.15586E+00, 0.16488E+00, 0.17389E+00, 0.18291E+00,
     & 0.87909E-03, 0.22077E-02, 0.35384E-02, 0.51462E-02, 0.72736E-02,
     & 0.10000E-01, 0.13360E-01, 0.17409E-01, 0.21880E-01, 0.26844E-01,
     & 0.32216E-01, 0.37885E-01, 0.43821E-01, 0.49986E-01, 0.56330E-01,
     & 0.62873E-01, 0.69593E-01, 0.76495E-01, 0.83660E-01, 0.91139E-01,
     & 0.99087E-01, 0.10743E+00, 0.11611E+00, 0.12479E+00, 0.13347E+00,
     & 0.14215E+00, 0.15084E+00, 0.15952E+00, 0.16820E+00, 0.17688E+00,
     & 0.85208E-03, 0.21561E-02, 0.34622E-02, 0.50397E-02, 0.71251E-02,
     & 0.97947E-02, 0.13086E-01, 0.17040E-01, 0.21405E-01, 0.26241E-01,
     & 0.31467E-01, 0.36975E-01, 0.42734E-01, 0.48708E-01, 0.54848E-01,
     & 0.61171E-01, 0.67662E-01, 0.74320E-01, 0.81229E-01, 0.88438E-01,
     & 0.96089E-01, 0.10412E+00, 0.11248E+00, 0.12084E+00, 0.12920E+00,
     & 0.13756E+00, 0.14592E+00, 0.15428E+00, 0.16264E+00, 0.17100E+00,
     & 0.83101E-03, 0.21077E-02, 0.33865E-02, 0.49336E-02, 0.69778E-02,
     & 0.95915E-02, 0.12814E-01, 0.16676E-01, 0.20936E-01, 0.25648E-01,
     & 0.30728E-01, 0.36079E-01, 0.41664E-01, 0.47451E-01, 0.53389E-01,
     & 0.59493E-01, 0.65758E-01, 0.72177E-01, 0.78833E-01, 0.85776E-01,
     & 0.93135E-01, 0.10086E+00, 0.10891E+00, 0.11695E+00, 0.12500E+00,
     & 0.13305E+00, 0.14110E+00, 0.14914E+00, 0.15719E+00, 0.16524E+00,
     & 0.80017E-03, 0.20548E-02, 0.33114E-02, 0.48286E-02, 0.68317E-02,
     & 0.93911E-02, 0.12545E-01, 0.16317E-01, 0.20472E-01, 0.25064E-01,
     & 0.30001E-01, 0.35196E-01, 0.40611E-01, 0.46213E-01, 0.51953E-01,
     & 0.57840E-01, 0.63882E-01, 0.70070E-01, 0.76479E-01, 0.83159E-01,
     & 0.90233E-01, 0.97659E-01, 0.10540E+00, 0.11314E+00, 0.12087E+00,
     & 0.12861E+00, 0.13635E+00, 0.14409E+00, 0.15183E+00, 0.15956E+00,
     & 0.77654E-03, 0.20054E-02, 0.32364E-02, 0.47245E-02, 0.66871E-02,
     & 0.91928E-02, 0.12279E-01, 0.15964E-01, 0.20015E-01, 0.24488E-01,
     & 0.29285E-01, 0.34326E-01, 0.39573E-01, 0.44993E-01, 0.50539E-01,
     & 0.56214E-01, 0.62037E-01, 0.67996E-01, 0.74164E-01, 0.80585E-01,
     & 0.87378E-01, 0.94511E-01, 0.10195E+00, 0.10938E+00, 0.11682E+00,
     & 0.12425E+00, 0.13169E+00, 0.13912E+00, 0.14656E+00, 0.15399E+00,
     & 0.74919E-03, 0.19546E-02, 0.31618E-02, 0.46209E-02, 0.65437E-02,
     & 0.89981E-02, 0.12014E-01, 0.15615E-01, 0.19563E-01, 0.23919E-01,
     & 0.28580E-01, 0.33470E-01, 0.38552E-01, 0.43792E-01, 0.49146E-01,
     & 0.54615E-01, 0.60222E-01, 0.65957E-01, 0.71887E-01, 0.78055E-01,
     & 0.84573E-01, 0.91418E-01, 0.98553E-01, 0.10569E+00, 0.11282E+00,
     & 0.11996E+00, 0.12709E+00, 0.13423E+00, 0.14136E+00, 0.14850E+00,
     & 0.72067E-03, 0.19032E-02, 0.30875E-02, 0.45179E-02, 0.64018E-02,
     & 0.88059E-02, 0.11753E-01, 0.15270E-01, 0.19117E-01, 0.23358E-01,
     & 0.27884E-01, 0.32626E-01, 0.37547E-01, 0.42608E-01, 0.47774E-01,
     & 0.53044E-01, 0.58440E-01, 0.63953E-01, 0.69649E-01, 0.75568E-01,
     & 0.81815E-01, 0.88378E-01, 0.95219E-01, 0.10206E+00, 0.10890E+00,
     & 0.11574E+00, 0.12258E+00, 0.12942E+00, 0.13626E+00, 0.14310E+00/

      data ((c2grdl(i,j),j=1,30),i= 41, 50)/
     & 0.69099E-03, 0.18513E-02, 0.30134E-02, 0.44155E-02, 0.62610E-02,
     & 0.86149E-02, 0.11495E-01, 0.14929E-01, 0.18676E-01, 0.22805E-01,
     & 0.27199E-01, 0.31795E-01, 0.36557E-01, 0.41442E-01, 0.46422E-01,
     & 0.51500E-01, 0.56689E-01, 0.61985E-01, 0.67450E-01, 0.73125E-01,
     & 0.79108E-01, 0.85393E-01, 0.91942E-01, 0.98492E-01, 0.10504E+00,
     & 0.11159E+00, 0.11814E+00, 0.12469E+00, 0.13124E+00, 0.13779E+00,
     & 0.66140E-03, 0.17994E-02, 0.29392E-02, 0.43134E-02, 0.61215E-02,
     & 0.84257E-02, 0.11240E-01, 0.14590E-01, 0.18241E-01, 0.22258E-01,
     & 0.26524E-01, 0.30978E-01, 0.35583E-01, 0.40296E-01, 0.45093E-01,
     & 0.49984E-01, 0.54969E-01, 0.60052E-01, 0.65292E-01, 0.70727E-01,
     & 0.76450E-01, 0.82462E-01, 0.88724E-01, 0.94987E-01, 0.10125E+00,
     & 0.10751E+00, 0.11377E+00, 0.12004E+00, 0.12630E+00, 0.13256E+00,
     & 0.62650E-03, 0.17448E-02, 0.28649E-02, 0.42122E-02, 0.59832E-02,
     & 0.82382E-02, 0.10987E-01, 0.14256E-01, 0.17813E-01, 0.21720E-01,
     & 0.25858E-01, 0.30173E-01, 0.34624E-01, 0.39169E-01, 0.43788E-01,
     & 0.48494E-01, 0.53279E-01, 0.58153E-01, 0.63172E-01, 0.68374E-01,
     & 0.73842E-01, 0.79585E-01, 0.85567E-01, 0.91548E-01, 0.97530E-01,
     & 0.10351E+00, 0.10949E+00, 0.11547E+00, 0.12146E+00, 0.12744E+00,
     & 0.59659E-03, 0.16926E-02, 0.27903E-02, 0.41112E-02, 0.58457E-02,
     & 0.80518E-02, 0.10738E-01, 0.13926E-01, 0.17391E-01, 0.21188E-01,
     & 0.25200E-01, 0.29380E-01, 0.33679E-01, 0.38060E-01, 0.42505E-01,
     & 0.47029E-01, 0.51620E-01, 0.56289E-01, 0.61091E-01, 0.66061E-01,
     & 0.71281E-01, 0.76762E-01, 0.82467E-01, 0.88173E-01, 0.93878E-01,
     & 0.99583E-01, 0.10529E+00, 0.11099E+00, 0.11670E+00, 0.12241E+00,
     & 0.56753E-03, 0.16407E-02, 0.27157E-02, 0.40103E-02, 0.57092E-02,
     & 0.78669E-02, 0.10491E-01, 0.13600E-01, 0.16976E-01, 0.20664E-01,
     & 0.24555E-01, 0.28600E-01, 0.32750E-01, 0.36970E-01, 0.41243E-01,
     & 0.45589E-01, 0.49988E-01, 0.54456E-01, 0.59047E-01, 0.63789E-01,
     & 0.68766E-01, 0.73990E-01, 0.79425E-01, 0.84861E-01, 0.90296E-01,
     & 0.95732E-01, 0.10117E+00, 0.10660E+00, 0.11204E+00, 0.11747E+00,
     & 0.53281E-03, 0.15860E-02, 0.26408E-02, 0.39101E-02, 0.55733E-02,
     & 0.76844E-02, 0.10248E-01, 0.13277E-01, 0.16566E-01, 0.20146E-01,
     & 0.23918E-01, 0.27833E-01, 0.31836E-01, 0.35898E-01, 0.40004E-01,
     & 0.44173E-01, 0.48386E-01, 0.52657E-01, 0.57039E-01, 0.61560E-01,
     & 0.66298E-01, 0.71270E-01, 0.76443E-01, 0.81617E-01, 0.86790E-01,
     & 0.91963E-01, 0.97137E-01, 0.10231E+00, 0.10748E+00, 0.11266E+00,
     & 0.50451E-03, 0.15342E-02, 0.25656E-02, 0.38097E-02, 0.54380E-02,
     & 0.75029E-02, 0.10007E-01, 0.12959E-01, 0.16161E-01, 0.19637E-01,
     & 0.23292E-01, 0.27078E-01, 0.30936E-01, 0.34844E-01, 0.38786E-01,
     & 0.42782E-01, 0.46811E-01, 0.50889E-01, 0.55067E-01, 0.59369E-01,
     & 0.63876E-01, 0.68602E-01, 0.73518E-01, 0.78435E-01, 0.83352E-01,
     & 0.88269E-01, 0.93185E-01, 0.98102E-01, 0.10302E+00, 0.10794E+00,
     & 0.46859E-03, 0.14787E-02, 0.24903E-02, 0.37091E-02, 0.53034E-02,
     & 0.73225E-02, 0.97688E-02, 0.12645E-01, 0.15762E-01, 0.19134E-01,
     & 0.22680E-01, 0.26334E-01, 0.30050E-01, 0.33808E-01, 0.37589E-01,
     & 0.41414E-01, 0.45264E-01, 0.49149E-01, 0.53127E-01, 0.57212E-01,
     & 0.61497E-01, 0.65980E-01, 0.70644E-01, 0.75307E-01, 0.79971E-01,
     & 0.84634E-01, 0.89298E-01, 0.93962E-01, 0.98625E-01, 0.10329E+00,
     & 0.42944E-03, 0.14212E-02, 0.24144E-02, 0.36085E-02, 0.51693E-02,
     & 0.71441E-02, 0.95329E-02, 0.12335E-01, 0.15368E-01, 0.18640E-01,
     & 0.22076E-01, 0.25602E-01, 0.29180E-01, 0.32791E-01, 0.36413E-01,
     & 0.40071E-01, 0.43745E-01, 0.47442E-01, 0.51221E-01, 0.55099E-01,
     & 0.59166E-01, 0.63411E-01, 0.67825E-01, 0.72238E-01, 0.76652E-01,
     & 0.81065E-01, 0.85478E-01, 0.89892E-01, 0.94305E-01, 0.98719E-01,
     & 0.39665E-03, 0.13664E-02, 0.23377E-02, 0.35074E-02, 0.50354E-02,
     & 0.69667E-02, 0.92992E-02, 0.12030E-01, 0.14979E-01, 0.18154E-01,
     & 0.21481E-01, 0.24882E-01, 0.28325E-01, 0.31790E-01, 0.35259E-01,
     & 0.38753E-01, 0.42255E-01, 0.45768E-01, 0.49353E-01, 0.53028E-01,
     & 0.56882E-01, 0.60895E-01, 0.65062E-01, 0.69229E-01, 0.73396E-01,
     & 0.77563E-01, 0.81730E-01, 0.85897E-01, 0.90064E-01, 0.94231E-01/

      data ((c2grdl(i,j),j=1,30),i= 51, 60)/
     & 0.35745E-03, 0.13083E-02, 0.22605E-02, 0.34058E-02, 0.49023E-02,
     & 0.67903E-02, 0.90673E-02, 0.11728E-01, 0.14596E-01, 0.17676E-01,
     & 0.20895E-01, 0.24173E-01, 0.27484E-01, 0.30808E-01, 0.34126E-01,
     & 0.37459E-01, 0.40793E-01, 0.44127E-01, 0.47522E-01, 0.51000E-01,
     & 0.54646E-01, 0.58429E-01, 0.62350E-01, 0.66271E-01, 0.70192E-01,
     & 0.74113E-01, 0.78034E-01, 0.81955E-01, 0.85876E-01, 0.89798E-01,
     & 0.31364E-03, 0.12473E-02, 0.21824E-02, 0.33038E-02, 0.47688E-02,
     & 0.66146E-02, 0.88374E-02, 0.11429E-01, 0.14216E-01, 0.17206E-01,
     & 0.20316E-01, 0.23475E-01, 0.26657E-01, 0.29842E-01, 0.33013E-01,
     & 0.36189E-01, 0.39358E-01, 0.42520E-01, 0.45731E-01, 0.49016E-01,
     & 0.52457E-01, 0.56016E-01, 0.59697E-01, 0.63377E-01, 0.67057E-01,
     & 0.70737E-01, 0.74417E-01, 0.78097E-01, 0.81777E-01, 0.85457E-01,
     & 0.27275E-03, 0.11871E-02, 0.21029E-02, 0.32013E-02, 0.46352E-02,
     & 0.64397E-02, 0.86087E-02, 0.11133E-01, 0.13840E-01, 0.16741E-01,
     & 0.19744E-01, 0.22787E-01, 0.25844E-01, 0.28895E-01, 0.31922E-01,
     & 0.34943E-01, 0.37950E-01, 0.40943E-01, 0.43977E-01, 0.47074E-01,
     & 0.50312E-01, 0.53655E-01, 0.57103E-01, 0.60552E-01, 0.64000E-01,
     & 0.67448E-01, 0.70896E-01, 0.74345E-01, 0.77793E-01, 0.81241E-01,
     & 0.23350E-03, 0.11274E-02, 0.20226E-02, 0.30985E-02, 0.45016E-02,
     & 0.62648E-02, 0.83820E-02, 0.10840E-01, 0.13470E-01, 0.16282E-01,
     & 0.19181E-01, 0.22111E-01, 0.25045E-01, 0.27964E-01, 0.30850E-01,
     & 0.33722E-01, 0.36571E-01, 0.39400E-01, 0.42261E-01, 0.45175E-01,
     & 0.48211E-01, 0.51346E-01, 0.54576E-01, 0.57805E-01, 0.61034E-01,
     & 0.64263E-01, 0.67492E-01, 0.70721E-01, 0.73950E-01, 0.77179E-01,
     & 0.18357E-03, 0.10617E-02, 0.19412E-02, 0.29947E-02, 0.43674E-02,
     & 0.60905E-02, 0.81569E-02, 0.10549E-01, 0.13103E-01, 0.15828E-01,
     & 0.18626E-01, 0.21444E-01, 0.24258E-01, 0.27049E-01, 0.29798E-01,
     & 0.32524E-01, 0.35219E-01, 0.37887E-01, 0.40580E-01, 0.43316E-01,
     & 0.46152E-01, 0.49085E-01, 0.52108E-01, 0.55131E-01, 0.58154E-01,
     & 0.61177E-01, 0.64199E-01, 0.67222E-01, 0.70245E-01, 0.73268E-01,
     & 0.13753E-03, 0.99718E-03, 0.18581E-02, 0.28896E-02, 0.42323E-02,
     & 0.59165E-02, 0.79325E-02, 0.10260E-01, 0.12741E-01, 0.15381E-01,
     & 0.18079E-01, 0.20789E-01, 0.23486E-01, 0.26152E-01, 0.28765E-01,
     & 0.31348E-01, 0.33893E-01, 0.36406E-01, 0.38934E-01, 0.41496E-01,
     & 0.44139E-01, 0.46875E-01, 0.49694E-01, 0.52513E-01, 0.55332E-01,
     & 0.58151E-01, 0.60971E-01, 0.63790E-01, 0.66609E-01, 0.69428E-01,
     & 0.94238E-04, 0.93331E-03, 0.17737E-02, 0.27839E-02, 0.40966E-02,
     & 0.57423E-02, 0.77098E-02, 0.99741E-02, 0.12383E-01, 0.14938E-01,
     & 0.17540E-01, 0.20145E-01, 0.22730E-01, 0.25271E-01, 0.27752E-01,
     & 0.30196E-01, 0.32596E-01, 0.34955E-01, 0.37324E-01, 0.39716E-01,
     & 0.42171E-01, 0.44715E-01, 0.47337E-01, 0.49958E-01, 0.52580E-01,
     & 0.55202E-01, 0.57824E-01, 0.60446E-01, 0.63068E-01, 0.65690E-01,
     & 0.42837E-04, 0.86473E-03, 0.16879E-02, 0.26766E-02, 0.39603E-02,
     & 0.55689E-02, 0.74874E-02, 0.96902E-02, 0.12030E-01, 0.14501E-01,
     & 0.17010E-01, 0.19513E-01, 0.21987E-01, 0.24406E-01, 0.26758E-01,
     & 0.29068E-01, 0.31326E-01, 0.33537E-01, 0.35750E-01, 0.37977E-01,
     & 0.40251E-01, 0.42609E-01, 0.45040E-01, 0.47472E-01, 0.49903E-01,
     & 0.52335E-01, 0.54766E-01, 0.57197E-01, 0.59629E-01, 0.62060E-01,
     &-0.66616E-05, 0.79627E-03, 0.16004E-02, 0.25673E-02, 0.38231E-02,
     & 0.53946E-02, 0.72654E-02, 0.94083E-02, 0.11680E-01, 0.14070E-01,
     & 0.16487E-01, 0.18892E-01, 0.21257E-01, 0.23559E-01, 0.25786E-01,
     & 0.27963E-01, 0.30085E-01, 0.32151E-01, 0.34212E-01, 0.36279E-01,
     & 0.38379E-01, 0.40556E-01, 0.42800E-01, 0.45044E-01, 0.47288E-01,
     & 0.49532E-01, 0.51776E-01, 0.54020E-01, 0.56264E-01, 0.58509E-01,
     &-0.63943E-04, 0.72305E-03, 0.15112E-02, 0.24565E-02, 0.36847E-02,
     & 0.52194E-02, 0.70437E-02, 0.91281E-02, 0.11333E-01, 0.13643E-01,
     & 0.15972E-01, 0.18282E-01, 0.20539E-01, 0.22725E-01, 0.24832E-01,
     & 0.26883E-01, 0.28871E-01, 0.30797E-01, 0.32712E-01, 0.34621E-01,
     & 0.36556E-01, 0.38556E-01, 0.40616E-01, 0.42677E-01, 0.44737E-01,
     & 0.46797E-01, 0.48857E-01, 0.50917E-01, 0.52978E-01, 0.55038E-01/

      data ((c2grdl(i,j),j=1,30),i= 61, 70)/
     &-0.11638E-03, 0.65096E-03, 0.14196E-02, 0.23437E-02, 0.35453E-02,
     & 0.50445E-02, 0.68222E-02, 0.88495E-02, 0.10988E-01, 0.13222E-01,
     & 0.15467E-01, 0.17681E-01, 0.19832E-01, 0.21906E-01, 0.23895E-01,
     & 0.25823E-01, 0.27682E-01, 0.29473E-01, 0.31243E-01, 0.33000E-01,
     & 0.34776E-01, 0.36606E-01, 0.38490E-01, 0.40375E-01, 0.42259E-01,
     & 0.44143E-01, 0.46027E-01, 0.47911E-01, 0.49795E-01, 0.51679E-01,
     &-0.16977E-03, 0.57770E-03, 0.13263E-02, 0.22290E-02, 0.34041E-02,
     & 0.48680E-02, 0.66006E-02, 0.85724E-02, 0.10647E-01, 0.12806E-01,
     & 0.14970E-01, 0.17088E-01, 0.19137E-01, 0.21102E-01, 0.22978E-01,
     & 0.24785E-01, 0.26519E-01, 0.28176E-01, 0.29808E-01, 0.31416E-01,
     & 0.33040E-01, 0.34705E-01, 0.36415E-01, 0.38126E-01, 0.39837E-01,
     & 0.41548E-01, 0.43259E-01, 0.44970E-01, 0.46680E-01, 0.48391E-01,
     &-0.22653E-03, 0.50172E-03, 0.12312E-02, 0.21126E-02, 0.32606E-02,
     & 0.46895E-02, 0.63791E-02, 0.82954E-02, 0.10307E-01, 0.12394E-01,
     & 0.14476E-01, 0.16504E-01, 0.18454E-01, 0.20314E-01, 0.22079E-01,
     & 0.23769E-01, 0.25381E-01, 0.26910E-01, 0.28406E-01, 0.29873E-01,
     & 0.31348E-01, 0.32852E-01, 0.34393E-01, 0.35934E-01, 0.37476E-01,
     & 0.39017E-01, 0.40558E-01, 0.42100E-01, 0.43641E-01, 0.45182E-01,
     &-0.28321E-03, 0.42494E-03, 0.11342E-02, 0.19940E-02, 0.31149E-02,
     & 0.45104E-02, 0.61572E-02, 0.80190E-02, 0.99696E-02, 0.11987E-01,
     & 0.13988E-01, 0.15927E-01, 0.17782E-01, 0.19541E-01, 0.21199E-01,
     & 0.22777E-01, 0.24271E-01, 0.25676E-01, 0.27041E-01, 0.28372E-01,
     & 0.29704E-01, 0.31050E-01, 0.32423E-01, 0.33796E-01, 0.35169E-01,
     & 0.36542E-01, 0.37915E-01, 0.39287E-01, 0.40660E-01, 0.42033E-01,
     &-0.33536E-03, 0.34946E-03, 0.10355E-02, 0.18724E-02, 0.29667E-02,
     & 0.43299E-02, 0.59348E-02, 0.77433E-02, 0.96339E-02, 0.11582E-01,
     & 0.13506E-01, 0.15358E-01, 0.17120E-01, 0.18780E-01, 0.20334E-01,
     & 0.21805E-01, 0.23184E-01, 0.24470E-01, 0.25710E-01, 0.26909E-01,
     & 0.28101E-01, 0.29296E-01, 0.30509E-01, 0.31721E-01, 0.32933E-01,
     & 0.34146E-01, 0.35358E-01, 0.36571E-01, 0.37783E-01, 0.38995E-01,
     &-0.39353E-03, 0.27042E-03, 0.93544E-03, 0.17484E-02, 0.28164E-02,
     & 0.41467E-02, 0.57115E-02, 0.74683E-02, 0.93004E-02, 0.11182E-01,
     & 0.13027E-01, 0.14796E-01, 0.16469E-01, 0.18034E-01, 0.19487E-01,
     & 0.20854E-01, 0.22121E-01, 0.23292E-01, 0.24410E-01, 0.25482E-01,
     & 0.26538E-01, 0.27589E-01, 0.28649E-01, 0.29710E-01, 0.30770E-01,
     & 0.31830E-01, 0.32891E-01, 0.33951E-01, 0.35011E-01, 0.36072E-01,
     &-0.44102E-03, 0.19569E-03, 0.83369E-03, 0.16221E-02, 0.26639E-02,
     & 0.39614E-02, 0.54867E-02, 0.71934E-02, 0.89687E-02, 0.10783E-01,
     & 0.12555E-01, 0.14242E-01, 0.15828E-01, 0.17303E-01, 0.18658E-01,
     & 0.19922E-01, 0.21082E-01, 0.22141E-01, 0.23143E-01, 0.24093E-01,
     & 0.25014E-01, 0.25928E-01, 0.26848E-01, 0.27768E-01, 0.28688E-01,
     & 0.29608E-01, 0.30527E-01, 0.31447E-01, 0.32367E-01, 0.33287E-01,
     &-0.48431E-03, 0.12284E-03, 0.73130E-03, 0.14934E-02, 0.25079E-02,
     & 0.37737E-02, 0.52600E-02, 0.69177E-02, 0.86377E-02, 0.10388E-01,
     & 0.12087E-01, 0.13697E-01, 0.15199E-01, 0.16585E-01, 0.17845E-01,
     & 0.19009E-01, 0.20066E-01, 0.21018E-01, 0.21908E-01, 0.22741E-01,
     & 0.23535E-01, 0.24317E-01, 0.25102E-01, 0.25886E-01, 0.26671E-01,
     & 0.27456E-01, 0.28240E-01, 0.29025E-01, 0.29810E-01, 0.30594E-01,
     &-0.52578E-03, 0.50908E-04, 0.62896E-03, 0.13627E-02, 0.23492E-02,
     & 0.35829E-02, 0.50306E-02, 0.66426E-02, 0.83081E-02, 0.99962E-02,
     & 0.11626E-01, 0.13159E-01, 0.14580E-01, 0.15880E-01, 0.17048E-01,
     & 0.18116E-01, 0.19075E-01, 0.19924E-01, 0.20706E-01, 0.21428E-01,
     & 0.22097E-01, 0.22755E-01, 0.23412E-01, 0.24070E-01, 0.24727E-01,
     & 0.25384E-01, 0.26042E-01, 0.26699E-01, 0.27357E-01, 0.28014E-01,
     &-0.55814E-03,-0.16079E-04, 0.52732E-03, 0.12301E-02, 0.21871E-02,
     & 0.33897E-02, 0.47984E-02, 0.63653E-02, 0.79788E-02, 0.96061E-02,
     & 0.11168E-01, 0.12629E-01, 0.13973E-01, 0.15187E-01, 0.16268E-01,
     & 0.17242E-01, 0.18106E-01, 0.18858E-01, 0.19537E-01, 0.20150E-01,
     & 0.20703E-01, 0.21241E-01, 0.21775E-01, 0.22309E-01, 0.22843E-01,
     & 0.23378E-01, 0.23912E-01, 0.24446E-01, 0.24981E-01, 0.25515E-01/

      data ((c2grdl(i,j),j=1,30),i= 71, 80)/
     &-0.57252E-03,-0.73259E-04, 0.42749E-03, 0.10957E-02, 0.20220E-02,
     & 0.31928E-02, 0.45638E-02, 0.60854E-02, 0.76490E-02, 0.92190E-02,
     & 0.10716E-01, 0.12107E-01, 0.13374E-01, 0.14506E-01, 0.15504E-01,
     & 0.16391E-01, 0.17163E-01, 0.17820E-01, 0.18402E-01, 0.18911E-01,
     & 0.19357E-01, 0.19779E-01, 0.20194E-01, 0.20609E-01, 0.21024E-01,
     & 0.21439E-01, 0.21854E-01, 0.22269E-01, 0.22684E-01, 0.23099E-01,
     &-0.57475E-03,-0.12255E-03, 0.33129E-03, 0.96006E-03, 0.18541E-02,
     & 0.29914E-02, 0.43271E-02, 0.58042E-02, 0.73192E-02, 0.88331E-02,
     & 0.10268E-01, 0.11591E-01, 0.12783E-01, 0.13838E-01, 0.14755E-01,
     & 0.15559E-01, 0.16245E-01, 0.16811E-01, 0.17299E-01, 0.17711E-01,
     & 0.18054E-01, 0.18367E-01, 0.18668E-01, 0.18969E-01, 0.19270E-01,
     & 0.19571E-01, 0.19872E-01, 0.20172E-01, 0.20473E-01, 0.20774E-01,
     &-0.55841E-03,-0.15972E-03, 0.24052E-03, 0.82494E-03, 0.16840E-02,
     & 0.27879E-02, 0.40872E-02, 0.55200E-02, 0.69877E-02, 0.84483E-02,
     & 0.98232E-02, 0.11079E-01, 0.12202E-01, 0.13183E-01, 0.14023E-01,
     & 0.14746E-01, 0.15349E-01, 0.15832E-01, 0.16230E-01, 0.16549E-01,
     & 0.16795E-01, 0.17006E-01, 0.17200E-01, 0.17394E-01, 0.17588E-01,
     & 0.17782E-01, 0.17976E-01, 0.18170E-01, 0.18364E-01, 0.18558E-01,
     &-0.50495E-03,-0.17440E-03, 0.15796E-03, 0.69084E-03, 0.15111E-02,
     & 0.25799E-02, 0.38429E-02, 0.52337E-02, 0.66547E-02, 0.80638E-02,
     & 0.93808E-02, 0.10575E-01, 0.11629E-01, 0.12539E-01, 0.13306E-01,
     & 0.13954E-01, 0.14478E-01, 0.14881E-01, 0.15196E-01, 0.15426E-01,
     & 0.15581E-01, 0.15694E-01, 0.15785E-01, 0.15876E-01, 0.15967E-01,
     & 0.16058E-01, 0.16149E-01, 0.16240E-01, 0.16331E-01, 0.16421E-01,
     &-0.41407E-03,-0.16438E-03, 0.87291E-04, 0.55913E-03, 0.13363E-02,
     & 0.23687E-02, 0.35944E-02, 0.49450E-02, 0.63202E-02, 0.76775E-02,
     & 0.89405E-02, 0.10075E-01, 0.11066E-01, 0.11908E-01, 0.12605E-01,
     & 0.13183E-01, 0.13633E-01, 0.13959E-01, 0.14194E-01, 0.14343E-01,
     & 0.14411E-01, 0.14433E-01, 0.14426E-01, 0.14419E-01, 0.14412E-01,
     & 0.14405E-01, 0.14398E-01, 0.14392E-01, 0.14385E-01, 0.14378E-01,
     &-0.25641E-03,-0.11246E-03, 0.33841E-04, 0.43273E-03, 0.11609E-02,
     & 0.21542E-02, 0.33420E-02, 0.46525E-02, 0.59843E-02, 0.72912E-02,
     & 0.85009E-02, 0.95783E-02, 0.10509E-01, 0.11289E-01, 0.11920E-01,
     & 0.12430E-01, 0.12810E-01, 0.13064E-01, 0.13226E-01, 0.13298E-01,
     & 0.13286E-01, 0.13223E-01, 0.13127E-01, 0.13031E-01, 0.12936E-01,
     & 0.12840E-01, 0.12744E-01, 0.12649E-01, 0.12553E-01, 0.12457E-01,
     &-0.33822E-04,-0.15273E-04, 0.55277E-05, 0.31378E-03, 0.98620E-03,
     & 0.19369E-02, 0.30855E-02, 0.43562E-02, 0.56455E-02, 0.69058E-02,
     & 0.80630E-02, 0.90843E-02, 0.99581E-02, 0.10680E-01, 0.11250E-01,
     & 0.11694E-01, 0.12009E-01, 0.12197E-01, 0.12290E-01, 0.12291E-01,
     & 0.12204E-01, 0.12063E-01, 0.11889E-01, 0.11715E-01, 0.11541E-01,
     & 0.11367E-01, 0.11192E-01, 0.11018E-01, 0.10844E-01, 0.10670E-01,
     &-0.93949E-06,-0.44320E-06, 0.30315E-06, 0.20641E-03, 0.81335E-03,
     & 0.17167E-02, 0.28254E-02, 0.40550E-02, 0.53028E-02, 0.65193E-02,
     & 0.76258E-02, 0.85952E-02, 0.94140E-02, 0.10078E-01, 0.10589E-01,
     & 0.10973E-01, 0.11227E-01, 0.11352E-01, 0.11381E-01, 0.11316E-01,
     & 0.11160E-01, 0.10947E-01, 0.10698E-01, 0.10449E-01, 0.10200E-01,
     & 0.99507E-02, 0.97016E-02, 0.94525E-02, 0.92033E-02, 0.89542E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.11583E-03, 0.64513E-03,
     & 0.14959E-02, 0.25619E-02, 0.37504E-02, 0.49567E-02, 0.61305E-02,
     & 0.71918E-02, 0.81106E-02, 0.88764E-02, 0.94864E-02, 0.99417E-02,
     & 0.10268E-01, 0.10465E-01, 0.10532E-01, 0.10501E-01, 0.10376E-01,
     & 0.10156E-01, 0.98763E-02, 0.95571E-02, 0.92380E-02, 0.89189E-02,
     & 0.85997E-02, 0.82806E-02, 0.79614E-02, 0.76423E-02, 0.73231E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.48673E-04, 0.48476E-03,
     & 0.12750E-02, 0.22945E-02, 0.34420E-02, 0.46072E-02, 0.57376E-02,
     & 0.67562E-02, 0.76288E-02, 0.83458E-02, 0.89046E-02, 0.93085E-02,
     & 0.95822E-02, 0.97252E-02, 0.97400E-02, 0.96555E-02, 0.94735E-02,
     & 0.91948E-02, 0.88552E-02, 0.84731E-02, 0.80909E-02, 0.77087E-02,
     & 0.73266E-02, 0.69444E-02, 0.65623E-02, 0.61801E-02, 0.57980E-02/

      data ((c2grdl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.91663E-05, 0.33600E-03,
     & 0.10567E-02, 0.20245E-02, 0.31297E-02, 0.42537E-02, 0.53425E-02,
     & 0.63175E-02, 0.71489E-02, 0.78215E-02, 0.83331E-02, 0.86890E-02,
     & 0.89156E-02, 0.90102E-02, 0.89763E-02, 0.88421E-02, 0.86100E-02,
     & 0.82794E-02, 0.78868E-02, 0.74505E-02, 0.70143E-02, 0.65780E-02,
     & 0.61417E-02, 0.57055E-02, 0.52692E-02, 0.48329E-02, 0.43966E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.58167E-06, 0.20459E-03,
     & 0.84332E-03, 0.17539E-02, 0.28136E-02, 0.38965E-02, 0.49448E-02,
     & 0.58804E-02, 0.66681E-02, 0.72984E-02, 0.77686E-02, 0.80829E-02,
     & 0.82673E-02, 0.83183E-02, 0.82421E-02, 0.80642E-02, 0.77881E-02,
     & 0.74117E-02, 0.69702E-02, 0.64818E-02, 0.59934E-02, 0.55050E-02,
     & 0.50166E-02, 0.45282E-02, 0.40398E-02, 0.35515E-02, 0.30631E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.98527E-04,
     & 0.63875E-03, 0.14842E-02, 0.24956E-02, 0.35352E-02, 0.45439E-02,
     & 0.54402E-02, 0.61900E-02, 0.67810E-02, 0.72109E-02, 0.74851E-02,
     & 0.76308E-02, 0.76432E-02, 0.75292E-02, 0.73141E-02, 0.69983E-02,
     & 0.65817E-02, 0.61001E-02, 0.55705E-02, 0.50409E-02, 0.45114E-02,
     & 0.39818E-02, 0.34523E-02, 0.29227E-02, 0.23931E-02, 0.18636E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.29903E-04,
     & 0.44788E-03, 0.12180E-02, 0.21757E-02, 0.31703E-02, 0.41401E-02,
     & 0.49994E-02, 0.57125E-02, 0.62676E-02, 0.66627E-02, 0.69021E-02,
     & 0.70116E-02, 0.69893E-02, 0.68408E-02, 0.65914E-02, 0.62421E-02,
     & 0.57922E-02, 0.52751E-02, 0.47093E-02, 0.41435E-02, 0.35778E-02,
     & 0.30120E-02, 0.24462E-02, 0.18805E-02, 0.13147E-02, 0.74892E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.45114E-05,
     & 0.27790E-03, 0.95885E-03, 0.18568E-02, 0.28026E-02, 0.37328E-02,
     & 0.45554E-02, 0.52346E-02, 0.57570E-02, 0.61201E-02, 0.63289E-02,
     & 0.64073E-02, 0.63558E-02, 0.61796E-02, 0.59029E-02, 0.55266E-02,
     & 0.50498E-02, 0.45041E-02, 0.39075E-02, 0.33109E-02, 0.27143E-02,
     & 0.21177E-02, 0.15211E-02, 0.92446E-03, 0.32785E-03,-0.26876E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.25399E-06,
     & 0.13812E-03, 0.71200E-03, 0.15419E-02, 0.24336E-02, 0.33211E-02,
     & 0.41109E-02, 0.47582E-02, 0.52503E-02, 0.55848E-02, 0.57668E-02,
     & 0.58191E-02, 0.57427E-02, 0.55436E-02, 0.52451E-02, 0.48467E-02,
     & 0.43491E-02, 0.37822E-02, 0.31648E-02, 0.25474E-02, 0.19300E-02,
     & 0.13125E-02, 0.69511E-03, 0.77690E-04,-0.53973E-03,-0.11572E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.41903E-04, 0.48381E-03, 0.12342E-02, 0.20658E-02, 0.29087E-02,
     & 0.36621E-02, 0.42812E-02, 0.47473E-02, 0.50566E-02, 0.52156E-02,
     & 0.52473E-02, 0.51516E-02, 0.49358E-02, 0.46214E-02, 0.42083E-02,
     & 0.36954E-02, 0.31141E-02, 0.24810E-02, 0.18479E-02, 0.12148E-02,
     & 0.58175E-03,-0.51332E-04,-0.68441E-03,-0.13175E-02,-0.19506E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.38669E-05, 0.28418E-03, 0.94028E-03, 0.17025E-02, 0.24962E-02,
     & 0.32137E-02, 0.38031E-02, 0.42453E-02, 0.45349E-02, 0.46767E-02,
     & 0.46928E-02, 0.45832E-02, 0.43558E-02, 0.40314E-02, 0.36094E-02,
     & 0.30885E-02, 0.25014E-02, 0.18640E-02, 0.12267E-02, 0.58931E-03,
     &-0.48051E-04,-0.68541E-03,-0.13228E-02,-0.19601E-02,-0.25975E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.12645E-03, 0.66727E-03, 0.13474E-02, 0.20864E-02,
     & 0.27650E-02, 0.33263E-02, 0.37452E-02, 0.40174E-02, 0.41454E-02,
     & 0.41510E-02, 0.40339E-02, 0.38012E-02, 0.34732E-02, 0.30501E-02,
     & 0.25302E-02, 0.19440E-02, 0.13074E-02, 0.67085E-03, 0.34274E-04,
     &-0.60230E-03,-0.12389E-02,-0.18755E-02,-0.25120E-02,-0.31486E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.31177E-04, 0.42654E-03, 0.10076E-02, 0.16829E-02,
     & 0.23198E-02, 0.28511E-02, 0.32504E-02, 0.35075E-02, 0.36254E-02,
     & 0.36240E-02, 0.35036E-02, 0.32720E-02, 0.29470E-02, 0.25296E-02,
     & 0.20178E-02, 0.14412E-02, 0.81515E-03, 0.18908E-03,-0.43699E-03,
     &-0.10631E-02,-0.16891E-02,-0.23152E-02,-0.29413E-02,-0.35674E-02/

      data ((c2grdl(i,j),j=1,30),i= 91,100)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.26069E-05, 0.23487E-03, 0.69297E-03, 0.12919E-02,
     & 0.18805E-02, 0.23806E-02, 0.27601E-02, 0.30044E-02, 0.31169E-02,
     & 0.31151E-02, 0.29977E-02, 0.27739E-02, 0.24592E-02, 0.20552E-02,
     & 0.15588E-02, 0.10007E-02, 0.39499E-03,-0.21077E-03,-0.81653E-03,
     &-0.14223E-02,-0.20280E-02,-0.26338E-02,-0.32396E-02,-0.38453E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10994E-03, 0.41552E-03, 0.92202E-03,
     & 0.14533E-02, 0.19182E-02, 0.22754E-02, 0.25101E-02, 0.26207E-02,
     & 0.26227E-02, 0.25143E-02, 0.23040E-02, 0.20070E-02, 0.16246E-02,
     & 0.11538E-02, 0.62433E-03, 0.49768E-04,-0.52479E-03,-0.10994E-02,
     &-0.16739E-02,-0.22485E-02,-0.28230E-02,-0.33976E-02,-0.39722E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.32411E-04, 0.19581E-03, 0.58584E-03,
     & 0.10470E-02, 0.14694E-02, 0.18031E-02, 0.20275E-02, 0.21374E-02,
     & 0.21467E-02, 0.20529E-02, 0.18635E-02, 0.15922E-02, 0.12405E-02,
     & 0.80579E-03, 0.31517E-03,-0.21791E-03,-0.75098E-03,-0.12841E-02,
     &-0.18171E-02,-0.23502E-02,-0.28833E-02,-0.34164E-02,-0.39494E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.30856E-05, 0.62103E-04, 0.30153E-03,
     & 0.67456E-03, 0.10435E-02, 0.13482E-02, 0.15603E-02, 0.16718E-02,
     & 0.16924E-02, 0.16188E-02, 0.14570E-02, 0.12194E-02, 0.90723E-03,
     & 0.51787E-03, 0.77969E-04,-0.40046E-03,-0.87889E-03,-0.13573E-02,
     &-0.18358E-02,-0.23142E-02,-0.27926E-02,-0.32710E-02,-0.37495E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.75205E-05, 0.97480E-04,
     & 0.35518E-03, 0.65556E-03, 0.92159E-03, 0.11168E-02, 0.12296E-02,
     & 0.12626E-02, 0.12124E-02, 0.10839E-02, 0.88790E-03, 0.62498E-03,
     & 0.29329E-03,-0.83623E-04,-0.49459E-03,-0.90556E-03,-0.13165E-02,
     &-0.17275E-02,-0.21385E-02,-0.25494E-02,-0.29604E-02,-0.33714E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.20520E-06, 0.98272E-05,
     & 0.11938E-03, 0.32703E-03, 0.54007E-03, 0.71030E-03, 0.81889E-03,
     & 0.86399E-03, 0.84026E-03, 0.75016E-03, 0.60256E-03, 0.39789E-03,
     & 0.13413E-03,-0.16724E-03,-0.49687E-03,-0.82651E-03,-0.11561E-02,
     &-0.14858E-02,-0.18154E-02,-0.21451E-02,-0.24747E-02,-0.28043E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.12349E-04, 0.94638E-04, 0.23177E-03, 0.36154E-03, 0.45726E-03,
     & 0.50902E-03, 0.50993E-03, 0.46025E-03, 0.36566E-03, 0.22640E-03,
     & 0.40514E-04,-0.17447E-03,-0.41100E-03,-0.64753E-03,-0.88406E-03,
     &-0.11206E-02,-0.13571E-02,-0.15937E-02,-0.18302E-02,-0.20667E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.90460E-05, 0.43547E-04, 0.10903E-03, 0.17465E-03,
     & 0.22016E-03, 0.23752E-03, 0.22369E-03, 0.18051E-03, 0.10798E-03,
     & 0.44288E-05,-0.11819E-03,-0.25465E-03,-0.39111E-03,-0.52757E-03,
     &-0.66403E-03,-0.80049E-03,-0.93695E-03,-0.10734E-02,-0.12099E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.27745E-05, 0.10936E-04, 0.23827E-04,
     & 0.40893E-04, 0.54738E-04, 0.59474E-04, 0.53174E-04, 0.34714E-04,
     & 0.28155E-05,-0.37403E-04,-0.83571E-04,-0.12974E-03,-0.17591E-03,
     &-0.22208E-03,-0.26825E-03,-0.31441E-03,-0.36058E-03,-0.40675E-03,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.31887E-07, 0.73663E-06,
     & 0.25412E-05, 0.43996E-05, 0.54079E-05, 0.52111E-05, 0.36212E-05,
     & 0.46236E-06,-0.36720E-05,-0.85010E-05,-0.13330E-04,-0.18159E-04,
     &-0.22988E-04,-0.27817E-04,-0.32646E-04,-0.37475E-04,-0.42304E-04/

      data ((clgrdl(i,j),j=1,30),i=  1, 10)/
     &-0.78650E-04, 0.15687E-03, 0.39308E-03, 0.73517E-03, 0.13086E-02,
     & 0.22102E-02, 0.35434E-02, 0.54184E-02, 0.76406E-02, 0.10304E-01,
     & 0.13277E-01, 0.16461E-01, 0.19740E-01, 0.23036E-01, 0.26275E-01,
     & 0.29446E-01, 0.32530E-01, 0.35518E-01, 0.38462E-01, 0.41381E-01,
     & 0.44319E-01, 0.47339E-01, 0.50445E-01, 0.53551E-01, 0.56657E-01,
     & 0.59763E-01, 0.62869E-01, 0.65975E-01, 0.69081E-01, 0.72188E-01,
     &-0.77700E-04, 0.15453E-03, 0.38745E-03, 0.72438E-03, 0.12890E-02,
     & 0.21773E-02, 0.34881E-02, 0.53318E-02, 0.75142E-02, 0.10127E-01,
     & 0.13045E-01, 0.16164E-01, 0.19374E-01, 0.22599E-01, 0.25766E-01,
     & 0.28862E-01, 0.31875E-01, 0.34792E-01, 0.37665E-01, 0.40513E-01,
     & 0.43378E-01, 0.46325E-01, 0.49358E-01, 0.52392E-01, 0.55425E-01,
     & 0.58458E-01, 0.61492E-01, 0.64525E-01, 0.67558E-01, 0.70592E-01,
     &-0.76888E-04, 0.15215E-03, 0.38185E-03, 0.71381E-03, 0.12696E-02,
     & 0.21447E-02, 0.34334E-02, 0.52461E-02, 0.73894E-02, 0.99532E-02,
     & 0.12815E-01, 0.15871E-01, 0.19014E-01, 0.22165E-01, 0.25260E-01,
     & 0.28284E-01, 0.31226E-01, 0.34074E-01, 0.36878E-01, 0.39656E-01,
     & 0.42449E-01, 0.45323E-01, 0.48284E-01, 0.51244E-01, 0.54204E-01,
     & 0.57164E-01, 0.60124E-01, 0.63084E-01, 0.66044E-01, 0.69005E-01,
     &-0.76154E-04, 0.14974E-03, 0.37629E-03, 0.70334E-03, 0.12504E-02,
     & 0.21124E-02, 0.33792E-02, 0.51609E-02, 0.72662E-02, 0.97810E-02,
     & 0.12588E-01, 0.15581E-01, 0.18658E-01, 0.21737E-01, 0.24761E-01,
     & 0.27715E-01, 0.30586E-01, 0.33365E-01, 0.36100E-01, 0.38812E-01,
     & 0.41530E-01, 0.44333E-01, 0.47220E-01, 0.50106E-01, 0.52992E-01,
     & 0.55879E-01, 0.58765E-01, 0.61651E-01, 0.64538E-01, 0.67424E-01,
     &-0.75361E-04, 0.14737E-03, 0.37075E-03, 0.69294E-03, 0.12313E-02,
     & 0.20807E-02, 0.33255E-02, 0.50767E-02, 0.71446E-02, 0.96103E-02,
     & 0.12363E-01, 0.15296E-01, 0.18306E-01, 0.21315E-01, 0.24268E-01,
     & 0.27152E-01, 0.29954E-01, 0.32666E-01, 0.35334E-01, 0.37977E-01,
     & 0.40624E-01, 0.43357E-01, 0.46172E-01, 0.48987E-01, 0.51803E-01,
     & 0.54618E-01, 0.57433E-01, 0.60248E-01, 0.63063E-01, 0.65878E-01,
     &-0.74430E-04, 0.14508E-03, 0.36524E-03, 0.68279E-03, 0.12125E-02,
     & 0.20494E-02, 0.32723E-02, 0.49931E-02, 0.70243E-02, 0.94415E-02,
     & 0.12142E-01, 0.15013E-01, 0.17957E-01, 0.20897E-01, 0.23782E-01,
     & 0.26597E-01, 0.29330E-01, 0.31976E-01, 0.34577E-01, 0.37154E-01,
     & 0.39730E-01, 0.42393E-01, 0.45137E-01, 0.47880E-01, 0.50624E-01,
     & 0.53368E-01, 0.56112E-01, 0.58855E-01, 0.61599E-01, 0.64343E-01,
     &-0.73393E-04, 0.14287E-03, 0.35977E-03, 0.67278E-03, 0.11939E-02,
     & 0.20182E-02, 0.32196E-02, 0.49107E-02, 0.69058E-02, 0.92756E-02,
     & 0.11923E-01, 0.14735E-01, 0.17613E-01, 0.20483E-01, 0.23300E-01,
     & 0.26049E-01, 0.28715E-01, 0.31295E-01, 0.33830E-01, 0.36337E-01,
     & 0.38848E-01, 0.41443E-01, 0.44120E-01, 0.46796E-01, 0.49473E-01,
     & 0.52149E-01, 0.54826E-01, 0.57503E-01, 0.60179E-01, 0.62856E-01,
     &-0.73271E-04, 0.14023E-03, 0.35434E-03, 0.66297E-03, 0.11755E-02,
     & 0.19873E-02, 0.31676E-02, 0.48290E-02, 0.67887E-02, 0.91125E-02,
     & 0.11707E-01, 0.14459E-01, 0.17272E-01, 0.20074E-01, 0.22824E-01,
     & 0.25509E-01, 0.28107E-01, 0.30621E-01, 0.33093E-01, 0.35531E-01,
     & 0.37978E-01, 0.40505E-01, 0.43114E-01, 0.45723E-01, 0.48331E-01,
     & 0.50940E-01, 0.53548E-01, 0.56157E-01, 0.58765E-01, 0.61374E-01,
     &-0.72248E-04, 0.13802E-03, 0.34892E-03, 0.65316E-03, 0.11573E-02,
     & 0.19564E-02, 0.31164E-02, 0.47480E-02, 0.66729E-02, 0.89513E-02,
     & 0.11494E-01, 0.14188E-01, 0.16935E-01, 0.19671E-01, 0.22354E-01,
     & 0.24976E-01, 0.27508E-01, 0.29956E-01, 0.32364E-01, 0.34736E-01,
     & 0.37119E-01, 0.39582E-01, 0.42124E-01, 0.44666E-01, 0.47208E-01,
     & 0.49750E-01, 0.52292E-01, 0.54835E-01, 0.57377E-01, 0.59919E-01,
     &-0.71059E-04, 0.13593E-03, 0.34353E-03, 0.64336E-03, 0.11393E-02,
     & 0.19254E-02, 0.30659E-02, 0.46680E-02, 0.65585E-02, 0.87922E-02,
     & 0.11284E-01, 0.13918E-01, 0.16600E-01, 0.19272E-01, 0.21889E-01,
     & 0.24450E-01, 0.26917E-01, 0.29299E-01, 0.31642E-01, 0.33951E-01,
     & 0.36272E-01, 0.38670E-01, 0.41147E-01, 0.43624E-01, 0.46101E-01,
     & 0.48578E-01, 0.51055E-01, 0.53532E-01, 0.56010E-01, 0.58487E-01/

      data ((clgrdl(i,j),j=1,30),i= 11, 20)/
     &-0.69842E-04, 0.13388E-03, 0.33820E-03, 0.63362E-03, 0.11217E-02,
     & 0.18948E-02, 0.30164E-02, 0.45890E-02, 0.64452E-02, 0.86352E-02,
     & 0.11077E-01, 0.13651E-01, 0.16270E-01, 0.18878E-01, 0.21432E-01,
     & 0.23930E-01, 0.26334E-01, 0.28652E-01, 0.30931E-01, 0.33177E-01,
     & 0.35437E-01, 0.37770E-01, 0.40183E-01, 0.42595E-01, 0.45008E-01,
     & 0.47421E-01, 0.49834E-01, 0.52246E-01, 0.54659E-01, 0.57072E-01,
     &-0.68521E-04, 0.13191E-03, 0.33294E-03, 0.62393E-03, 0.11041E-02,
     & 0.18645E-02, 0.29676E-02, 0.45110E-02, 0.63329E-02, 0.84800E-02,
     & 0.10871E-01, 0.13387E-01, 0.15943E-01, 0.18490E-01, 0.20980E-01,
     & 0.23417E-01, 0.25758E-01, 0.28013E-01, 0.30227E-01, 0.32410E-01,
     & 0.34613E-01, 0.36879E-01, 0.39221E-01, 0.41563E-01, 0.43905E-01,
     & 0.46247E-01, 0.48589E-01, 0.50931E-01, 0.53273E-01, 0.55615E-01,
     &-0.66812E-04, 0.13018E-03, 0.32776E-03, 0.61432E-03, 0.10870E-02,
     & 0.18344E-02, 0.29193E-02, 0.44343E-02, 0.62217E-02, 0.83266E-02,
     & 0.10668E-01, 0.13125E-01, 0.15620E-01, 0.18108E-01, 0.20536E-01,
     & 0.22910E-01, 0.25190E-01, 0.27381E-01, 0.29533E-01, 0.31651E-01,
     & 0.33800E-01, 0.36000E-01, 0.38269E-01, 0.40537E-01, 0.42806E-01,
     & 0.45075E-01, 0.47344E-01, 0.49612E-01, 0.51881E-01, 0.54150E-01,
     &-0.63298E-04, 0.12939E-03, 0.32269E-03, 0.60477E-03, 0.10702E-02,
     & 0.18047E-02, 0.28717E-02, 0.43592E-02, 0.61121E-02, 0.81752E-02,
     & 0.10467E-01, 0.12865E-01, 0.15302E-01, 0.17733E-01, 0.20099E-01,
     & 0.22408E-01, 0.24627E-01, 0.26756E-01, 0.28845E-01, 0.30903E-01,
     & 0.32999E-01, 0.35132E-01, 0.37328E-01, 0.39523E-01, 0.41718E-01,
     & 0.43914E-01, 0.46109E-01, 0.48304E-01, 0.50500E-01, 0.52695E-01,
     &-0.61927E-04, 0.12766E-03, 0.31780E-03, 0.59526E-03, 0.10537E-02,
     & 0.17754E-02, 0.28251E-02, 0.42850E-02, 0.60033E-02, 0.80267E-02,
     & 0.10268E-01, 0.12608E-01, 0.14989E-01, 0.17362E-01, 0.19668E-01,
     & 0.21913E-01, 0.24071E-01, 0.26139E-01, 0.28166E-01, 0.30163E-01,
     & 0.32207E-01, 0.34276E-01, 0.36399E-01, 0.38523E-01, 0.40647E-01,
     & 0.42770E-01, 0.44894E-01, 0.47017E-01, 0.49141E-01, 0.51265E-01,
     &-0.61396E-04, 0.12555E-03, 0.31302E-03, 0.58584E-03, 0.10373E-02,
     & 0.17463E-02, 0.27788E-02, 0.42115E-02, 0.58958E-02, 0.78799E-02,
     & 0.10070E-01, 0.12354E-01, 0.14681E-01, 0.16996E-01, 0.19242E-01,
     & 0.21423E-01, 0.23521E-01, 0.25528E-01, 0.27496E-01, 0.29434E-01,
     & 0.31425E-01, 0.33429E-01, 0.35481E-01, 0.37533E-01, 0.39585E-01,
     & 0.41637E-01, 0.43689E-01, 0.45741E-01, 0.47793E-01, 0.49845E-01,
     &-0.60839E-04, 0.12345E-03, 0.30827E-03, 0.57651E-03, 0.10212E-02,
     & 0.17176E-02, 0.27328E-02, 0.41391E-02, 0.57899E-02, 0.77346E-02,
     & 0.98736E-02, 0.12105E-01, 0.14377E-01, 0.16635E-01, 0.18821E-01,
     & 0.20941E-01, 0.22979E-01, 0.24926E-01, 0.26833E-01, 0.28716E-01,
     & 0.30651E-01, 0.32593E-01, 0.34571E-01, 0.36549E-01, 0.38527E-01,
     & 0.40505E-01, 0.42483E-01, 0.44461E-01, 0.46439E-01, 0.48417E-01,
     &-0.60164E-04, 0.12142E-03, 0.30353E-03, 0.56725E-03, 0.10051E-02,
     & 0.16891E-02, 0.26873E-02, 0.40676E-02, 0.56855E-02, 0.75912E-02,
     & 0.96788E-02, 0.11859E-01, 0.14078E-01, 0.16278E-01, 0.18405E-01,
     & 0.20462E-01, 0.22443E-01, 0.24332E-01, 0.26180E-01, 0.28010E-01,
     & 0.29885E-01, 0.31766E-01, 0.33680E-01, 0.35594E-01, 0.37509E-01,
     & 0.39423E-01, 0.41338E-01, 0.43252E-01, 0.45166E-01, 0.47081E-01,
     &-0.59491E-04, 0.11940E-03, 0.29882E-03, 0.55805E-03, 0.98913E-03,
     & 0.16609E-02, 0.26422E-02, 0.39968E-02, 0.55817E-02, 0.74494E-02,
     & 0.94867E-02, 0.11616E-01, 0.13782E-01, 0.15925E-01, 0.17995E-01,
     & 0.19991E-01, 0.21913E-01, 0.23747E-01, 0.25538E-01, 0.27317E-01,
     & 0.29130E-01, 0.30950E-01, 0.32800E-01, 0.34651E-01, 0.36501E-01,
     & 0.38352E-01, 0.40202E-01, 0.42053E-01, 0.43903E-01, 0.45754E-01,
     &-0.58764E-04, 0.11743E-03, 0.29413E-03, 0.54899E-03, 0.97323E-03,
     & 0.16331E-02, 0.25974E-02, 0.39261E-02, 0.54785E-02, 0.73084E-02,
     & 0.92968E-02, 0.11377E-01, 0.13490E-01, 0.15577E-01, 0.17589E-01,
     & 0.19525E-01, 0.21390E-01, 0.23171E-01, 0.24910E-01, 0.26635E-01,
     & 0.28384E-01, 0.30146E-01, 0.31935E-01, 0.33724E-01, 0.35512E-01,
     & 0.37301E-01, 0.39090E-01, 0.40879E-01, 0.42668E-01, 0.44457E-01/

      data ((clgrdl(i,j),j=1,30),i= 21, 30)/
     &-0.58520E-04, 0.11522E-03, 0.28946E-03, 0.54008E-03, 0.95739E-03,
     & 0.16055E-02, 0.25531E-02, 0.38561E-02, 0.53771E-02, 0.71666E-02,
     & 0.91094E-02, 0.11142E-01, 0.13202E-01, 0.15233E-01, 0.17189E-01,
     & 0.19065E-01, 0.20873E-01, 0.22602E-01, 0.24290E-01, 0.25962E-01,
     & 0.27646E-01, 0.29355E-01, 0.31093E-01, 0.32831E-01, 0.34569E-01,
     & 0.36307E-01, 0.38045E-01, 0.39782E-01, 0.41520E-01, 0.43258E-01,
     &-0.57738E-04, 0.11329E-03, 0.28481E-03, 0.53135E-03, 0.94165E-03,
     & 0.15784E-02, 0.25092E-02, 0.37872E-02, 0.52770E-02, 0.70268E-02,
     & 0.89249E-02, 0.10910E-01, 0.12918E-01, 0.14894E-01, 0.16793E-01,
     & 0.18613E-01, 0.20364E-01, 0.22041E-01, 0.23678E-01, 0.25297E-01,
     & 0.26917E-01, 0.28576E-01, 0.30271E-01, 0.31966E-01, 0.33661E-01,
     & 0.35357E-01, 0.37052E-01, 0.38747E-01, 0.40442E-01, 0.42137E-01,
     &-0.56445E-04, 0.11164E-03, 0.28021E-03, 0.52288E-03, 0.92602E-03,
     & 0.15517E-02, 0.24656E-02, 0.37191E-02, 0.51783E-02, 0.68889E-02,
     & 0.87429E-02, 0.10682E-01, 0.12638E-01, 0.14557E-01, 0.16402E-01,
     & 0.18167E-01, 0.19864E-01, 0.21488E-01, 0.23074E-01, 0.24641E-01,
     & 0.26198E-01, 0.27806E-01, 0.29460E-01, 0.31113E-01, 0.32766E-01,
     & 0.34419E-01, 0.36072E-01, 0.37725E-01, 0.39378E-01, 0.41031E-01,
     &-0.55794E-04, 0.10969E-03, 0.27566E-03, 0.51458E-03, 0.91053E-03,
     & 0.15262E-02, 0.24225E-02, 0.36518E-02, 0.50808E-02, 0.67531E-02,
     & 0.85637E-02, 0.10456E-01, 0.12362E-01, 0.14224E-01, 0.16015E-01,
     & 0.17727E-01, 0.19371E-01, 0.20944E-01, 0.22478E-01, 0.23993E-01,
     & 0.25494E-01, 0.27050E-01, 0.28656E-01, 0.30263E-01, 0.31869E-01,
     & 0.33475E-01, 0.35082E-01, 0.36688E-01, 0.38294E-01, 0.39901E-01,
     &-0.54167E-04, 0.10826E-03, 0.27117E-03, 0.50633E-03, 0.89517E-03,
     & 0.15010E-02, 0.23797E-02, 0.35853E-02, 0.49845E-02, 0.66192E-02,
     & 0.83880E-02, 0.10234E-01, 0.12089E-01, 0.13894E-01, 0.15631E-01,
     & 0.17293E-01, 0.18884E-01, 0.20407E-01, 0.21890E-01, 0.23354E-01,
     & 0.24801E-01, 0.26306E-01, 0.27861E-01, 0.29416E-01, 0.30971E-01,
     & 0.32526E-01, 0.34081E-01, 0.35636E-01, 0.37191E-01, 0.38746E-01,
     &-0.53499E-04, 0.10640E-03, 0.26676E-03, 0.49811E-03, 0.87990E-03,
     & 0.14761E-02, 0.23374E-02, 0.35194E-02, 0.48900E-02, 0.64872E-02,
     & 0.82153E-02, 0.10015E-01, 0.11819E-01, 0.13568E-01, 0.15252E-01,
     & 0.16866E-01, 0.18405E-01, 0.19878E-01, 0.21311E-01, 0.22725E-01,
     & 0.24119E-01, 0.25572E-01, 0.27077E-01, 0.28581E-01, 0.30085E-01,
     & 0.31589E-01, 0.33093E-01, 0.34597E-01, 0.36102E-01, 0.37606E-01,
     &-0.52443E-04, 0.10475E-03, 0.26240E-03, 0.48993E-03, 0.86483E-03,
     & 0.14512E-02, 0.22954E-02, 0.34541E-02, 0.47961E-02, 0.63566E-02,
     & 0.80450E-02, 0.97999E-02, 0.11549E-01, 0.13247E-01, 0.14880E-01,
     & 0.16444E-01, 0.17933E-01, 0.19356E-01, 0.20741E-01, 0.22104E-01,
     & 0.23447E-01, 0.24849E-01, 0.26303E-01, 0.27757E-01, 0.29211E-01,
     & 0.30665E-01, 0.32119E-01, 0.33573E-01, 0.35027E-01, 0.36481E-01,
     &-0.51809E-04, 0.10292E-03, 0.25810E-03, 0.48182E-03, 0.85004E-03,
     & 0.14265E-02, 0.22538E-02, 0.33895E-02, 0.47033E-02, 0.62278E-02,
     & 0.78768E-02, 0.95872E-02, 0.11284E-01, 0.12931E-01, 0.14513E-01,
     & 0.16030E-01, 0.17468E-01, 0.18842E-01, 0.20179E-01, 0.21493E-01,
     & 0.22784E-01, 0.24137E-01, 0.25541E-01, 0.26946E-01, 0.28350E-01,
     & 0.29755E-01, 0.31159E-01, 0.32564E-01, 0.33969E-01, 0.35373E-01,
     &-0.50702E-04, 0.10135E-03, 0.25384E-03, 0.47377E-03, 0.83555E-03,
     & 0.14020E-02, 0.22125E-02, 0.33256E-02, 0.46116E-02, 0.61008E-02,
     & 0.77106E-02, 0.93752E-02, 0.11021E-01, 0.12620E-01, 0.14152E-01,
     & 0.15620E-01, 0.17009E-01, 0.18336E-01, 0.19625E-01, 0.20890E-01,
     & 0.22132E-01, 0.23435E-01, 0.24790E-01, 0.26146E-01, 0.27501E-01,
     & 0.28857E-01, 0.30212E-01, 0.31567E-01, 0.32923E-01, 0.34278E-01,
     &-0.50325E-04, 0.99423E-04, 0.24961E-03, 0.46579E-03, 0.82142E-03,
     & 0.13774E-02, 0.21717E-02, 0.32624E-02, 0.45210E-02, 0.59755E-02,
     & 0.75471E-02, 0.91634E-02, 0.10762E-01, 0.12313E-01, 0.13796E-01,
     & 0.15217E-01, 0.16557E-01, 0.17838E-01, 0.19080E-01, 0.20296E-01,
     & 0.21489E-01, 0.22744E-01, 0.24050E-01, 0.25357E-01, 0.26663E-01,
     & 0.27969E-01, 0.29276E-01, 0.30582E-01, 0.31889E-01, 0.33195E-01/

      data ((clgrdl(i,j),j=1,30),i= 31, 40)/
     &-0.49722E-04, 0.97624E-04, 0.24540E-03, 0.45787E-03, 0.80746E-03,
     & 0.13529E-02, 0.21318E-02, 0.31998E-02, 0.44314E-02, 0.58525E-02,
     & 0.73851E-02, 0.89547E-02, 0.10507E-01, 0.12011E-01, 0.13446E-01,
     & 0.14820E-01, 0.16112E-01, 0.17346E-01, 0.18542E-01, 0.19710E-01,
     & 0.20856E-01, 0.22063E-01, 0.23322E-01, 0.24581E-01, 0.25840E-01,
     & 0.27099E-01, 0.28358E-01, 0.29617E-01, 0.30876E-01, 0.32135E-01,
     &-0.49118E-04, 0.95838E-04, 0.24122E-03, 0.45005E-03, 0.79371E-03,
     & 0.13287E-02, 0.20930E-02, 0.31377E-02, 0.43429E-02, 0.57307E-02,
     & 0.72242E-02, 0.87493E-02, 0.10256E-01, 0.11714E-01, 0.13101E-01,
     & 0.14429E-01, 0.15675E-01, 0.16862E-01, 0.18012E-01, 0.19127E-01,
     & 0.20233E-01, 0.21394E-01, 0.22606E-01, 0.23819E-01, 0.25032E-01,
     & 0.26245E-01, 0.27458E-01, 0.28670E-01, 0.29883E-01, 0.31096E-01,
     &-0.47703E-04, 0.94478E-04, 0.23708E-03, 0.44238E-03, 0.78009E-03,
     & 0.13048E-02, 0.20547E-02, 0.30762E-02, 0.42553E-02, 0.56102E-02,
     & 0.70652E-02, 0.85472E-02, 0.10010E-01, 0.11421E-01, 0.12761E-01,
     & 0.14045E-01, 0.15245E-01, 0.16381E-01, 0.17486E-01, 0.18552E-01,
     & 0.19621E-01, 0.20734E-01, 0.21901E-01, 0.23067E-01, 0.24233E-01,
     & 0.25400E-01, 0.26566E-01, 0.27733E-01, 0.28899E-01, 0.30065E-01,
     &-0.47174E-04, 0.92715E-04, 0.23301E-03, 0.43476E-03, 0.76656E-03,
     & 0.12811E-02, 0.20170E-02, 0.30161E-02, 0.41693E-02, 0.54905E-02,
     & 0.69087E-02, 0.83481E-02, 0.97665E-02, 0.11133E-01, 0.12427E-01,
     & 0.13665E-01, 0.14820E-01, 0.15907E-01, 0.16962E-01, 0.17985E-01,
     & 0.19018E-01, 0.20085E-01, 0.21202E-01, 0.22320E-01, 0.23438E-01,
     & 0.24555E-01, 0.25673E-01, 0.26791E-01, 0.27908E-01, 0.29026E-01,
     &-0.46646E-04, 0.90961E-04, 0.22897E-03, 0.42733E-03, 0.75314E-03,
     & 0.12578E-02, 0.19803E-02, 0.29575E-02, 0.40854E-02, 0.53734E-02,
     & 0.67545E-02, 0.81522E-02, 0.95269E-02, 0.10850E-01, 0.12098E-01,
     & 0.13291E-01, 0.14402E-01, 0.15441E-01, 0.16448E-01, 0.17428E-01,
     & 0.18426E-01, 0.19443E-01, 0.20503E-01, 0.21563E-01, 0.22624E-01,
     & 0.23684E-01, 0.24744E-01, 0.25805E-01, 0.26865E-01, 0.27925E-01,
     &-0.45024E-04, 0.89780E-04, 0.22498E-03, 0.41989E-03, 0.73986E-03,
     & 0.12347E-02, 0.19440E-02, 0.28998E-02, 0.40025E-02, 0.52590E-02,
     & 0.66025E-02, 0.79593E-02, 0.92908E-02, 0.10571E-01, 0.11775E-01,
     & 0.12918E-01, 0.13987E-01, 0.14981E-01, 0.15941E-01, 0.16879E-01,
     & 0.17842E-01, 0.18807E-01, 0.19803E-01, 0.20799E-01, 0.21795E-01,
     & 0.22792E-01, 0.23788E-01, 0.24784E-01, 0.25780E-01, 0.26777E-01,
     &-0.44698E-04, 0.87994E-04, 0.22106E-03, 0.41257E-03, 0.72665E-03,
     & 0.12121E-02, 0.19079E-02, 0.28431E-02, 0.39205E-02, 0.51467E-02,
     & 0.64527E-02, 0.77692E-02, 0.90583E-02, 0.10296E-01, 0.11456E-01,
     & 0.12550E-01, 0.13574E-01, 0.14528E-01, 0.15443E-01, 0.16341E-01,
     & 0.17267E-01, 0.18181E-01, 0.19116E-01, 0.20051E-01, 0.20986E-01,
     & 0.21921E-01, 0.22856E-01, 0.23791E-01, 0.24726E-01, 0.25661E-01,
     &-0.43871E-04, 0.86449E-04, 0.21716E-03, 0.40526E-03, 0.71365E-03,
     & 0.11898E-02, 0.18721E-02, 0.27876E-02, 0.38392E-02, 0.50358E-02,
     & 0.63047E-02, 0.75816E-02, 0.88292E-02, 0.10024E-01, 0.11141E-01,
     & 0.12187E-01, 0.13168E-01, 0.14080E-01, 0.14954E-01, 0.15812E-01,
     & 0.16697E-01, 0.17565E-01, 0.18445E-01, 0.19325E-01, 0.20204E-01,
     & 0.21084E-01, 0.21964E-01, 0.22843E-01, 0.23723E-01, 0.24603E-01,
     &-0.43140E-04, 0.84890E-04, 0.21329E-03, 0.39795E-03, 0.70078E-03,
     & 0.11681E-02, 0.18362E-02, 0.27329E-02, 0.37587E-02, 0.49262E-02,
     & 0.61587E-02, 0.73968E-02, 0.86034E-02, 0.97549E-02, 0.10830E-01,
     & 0.11831E-01, 0.12768E-01, 0.13640E-01, 0.14475E-01, 0.15293E-01,
     & 0.16130E-01, 0.16957E-01, 0.17792E-01, 0.18626E-01, 0.19461E-01,
     & 0.20295E-01, 0.21129E-01, 0.21964E-01, 0.22798E-01, 0.23633E-01,
     &-0.42695E-04, 0.83200E-04, 0.20946E-03, 0.39076E-03, 0.68811E-03,
     & 0.11467E-02, 0.18008E-02, 0.26785E-02, 0.36788E-02, 0.48180E-02,
     & 0.60147E-02, 0.72136E-02, 0.83804E-02, 0.94895E-02, 0.10522E-01,
     & 0.11482E-01, 0.12376E-01, 0.13209E-01, 0.14005E-01, 0.14783E-01,
     & 0.15570E-01, 0.16357E-01, 0.17156E-01, 0.17954E-01, 0.18753E-01,
     & 0.19551E-01, 0.20350E-01, 0.21148E-01, 0.21947E-01, 0.22745E-01/

      data ((clgrdl(i,j),j=1,30),i= 41, 50)/
     &-0.42715E-04, 0.81287E-04, 0.20564E-03, 0.38365E-03, 0.67563E-03,
     & 0.11254E-02, 0.17658E-02, 0.26244E-02, 0.35999E-02, 0.47108E-02,
     & 0.58722E-02, 0.70331E-02, 0.81602E-02, 0.92283E-02, 0.10219E-01,
     & 0.11138E-01, 0.11991E-01, 0.12785E-01, 0.13543E-01, 0.14283E-01,
     & 0.15021E-01, 0.15770E-01, 0.16533E-01, 0.17297E-01, 0.18061E-01,
     & 0.18825E-01, 0.19589E-01, 0.20353E-01, 0.21117E-01, 0.21881E-01,
     &-0.42770E-04, 0.79334E-04, 0.20179E-03, 0.37657E-03, 0.66328E-03,
     & 0.11043E-02, 0.17311E-02, 0.25706E-02, 0.35218E-02, 0.46049E-02,
     & 0.57316E-02, 0.68554E-02, 0.79443E-02, 0.89715E-02, 0.99202E-02,
     & 0.10801E-01, 0.11613E-01, 0.12368E-01, 0.13090E-01, 0.13791E-01,
     & 0.14482E-01, 0.15194E-01, 0.15925E-01, 0.16656E-01, 0.17387E-01,
     & 0.18118E-01, 0.18849E-01, 0.19580E-01, 0.20311E-01, 0.21042E-01,
     &-0.43132E-04, 0.77207E-04, 0.19789E-03, 0.36966E-03, 0.65108E-03,
     & 0.10834E-02, 0.16969E-02, 0.25173E-02, 0.34451E-02, 0.44998E-02,
     & 0.55925E-02, 0.66804E-02, 0.77321E-02, 0.87191E-02, 0.96272E-02,
     & 0.10470E-01, 0.11243E-01, 0.11960E-01, 0.12644E-01, 0.13308E-01,
     & 0.13955E-01, 0.14629E-01, 0.15327E-01, 0.16024E-01, 0.16721E-01,
     & 0.17419E-01, 0.18116E-01, 0.18813E-01, 0.19511E-01, 0.20208E-01,
     &-0.42446E-04, 0.75592E-04, 0.19397E-03, 0.36278E-03, 0.63885E-03,
     & 0.10627E-02, 0.16633E-02, 0.24646E-02, 0.33703E-02, 0.43957E-02,
     & 0.54549E-02, 0.65078E-02, 0.75231E-02, 0.84711E-02, 0.93395E-02,
     & 0.10144E-01, 0.10878E-01, 0.11558E-01, 0.12206E-01, 0.12832E-01,
     & 0.13438E-01, 0.14075E-01, 0.14739E-01, 0.15403E-01, 0.16066E-01,
     & 0.16730E-01, 0.17394E-01, 0.18058E-01, 0.18722E-01, 0.19386E-01,
     &-0.41850E-04, 0.73933E-04, 0.19006E-03, 0.35589E-03, 0.62675E-03,
     & 0.10422E-02, 0.16300E-02, 0.24126E-02, 0.32970E-02, 0.42933E-02,
     & 0.53198E-02, 0.63400E-02, 0.73179E-02, 0.82268E-02, 0.90564E-02,
     & 0.98228E-02, 0.10520E-01, 0.11163E-01, 0.11773E-01, 0.12365E-01,
     & 0.12931E-01, 0.13531E-01, 0.14160E-01, 0.14790E-01, 0.15419E-01,
     & 0.16048E-01, 0.16677E-01, 0.17306E-01, 0.17936E-01, 0.18565E-01,
     &-0.42014E-04, 0.71898E-04, 0.18613E-03, 0.34912E-03, 0.61471E-03,
     & 0.10221E-02, 0.15975E-02, 0.23612E-02, 0.32243E-02, 0.41920E-02,
     & 0.51869E-02, 0.61755E-02, 0.71156E-02, 0.79864E-02, 0.87780E-02,
     & 0.95069E-02, 0.10168E-01, 0.10774E-01, 0.11350E-01, 0.11903E-01,
     & 0.12434E-01, 0.12997E-01, 0.13590E-01, 0.14182E-01, 0.14774E-01,
     & 0.15367E-01, 0.15959E-01, 0.16551E-01, 0.17144E-01, 0.17736E-01,
     &-0.41051E-04, 0.70410E-04, 0.18220E-03, 0.34234E-03, 0.60273E-03,
     & 0.10022E-02, 0.15654E-02, 0.23107E-02, 0.31527E-02, 0.40924E-02,
     & 0.50573E-02, 0.60136E-02, 0.69164E-02, 0.77495E-02, 0.85041E-02,
     & 0.91954E-02, 0.98207E-02, 0.10390E-01, 0.10931E-01, 0.11447E-01,
     & 0.11946E-01, 0.12473E-01, 0.13028E-01, 0.13584E-01, 0.14140E-01,
     & 0.14695E-01, 0.15251E-01, 0.15806E-01, 0.16362E-01, 0.16917E-01,
     &-0.41580E-04, 0.68189E-04, 0.17826E-03, 0.33549E-03, 0.59093E-03,
     & 0.98240E-03, 0.15336E-02, 0.22611E-02, 0.30821E-02, 0.39942E-02,
     & 0.49323E-02, 0.58534E-02, 0.67202E-02, 0.75161E-02, 0.82344E-02,
     & 0.88886E-02, 0.94784E-02, 0.10012E-01, 0.10517E-01, 0.10997E-01,
     & 0.11466E-01, 0.11956E-01, 0.12473E-01, 0.12991E-01, 0.13508E-01,
     & 0.14025E-01, 0.14542E-01, 0.15059E-01, 0.15576E-01, 0.16094E-01,
     &-0.42091E-04, 0.65929E-04, 0.17425E-03, 0.32865E-03, 0.57922E-03,
     & 0.96306E-03, 0.15022E-02, 0.22125E-02, 0.30124E-02, 0.38976E-02,
     & 0.48084E-02, 0.56959E-02, 0.65266E-02, 0.72870E-02, 0.79696E-02,
     & 0.85870E-02, 0.91418E-02, 0.96410E-02, 0.10111E-01, 0.10555E-01,
     & 0.10994E-01, 0.11449E-01, 0.11928E-01, 0.12407E-01, 0.12887E-01,
     & 0.13366E-01, 0.13845E-01, 0.14324E-01, 0.14804E-01, 0.15283E-01,
     &-0.42264E-04, 0.63786E-04, 0.17014E-03, 0.32169E-03, 0.56756E-03,
     & 0.94387E-03, 0.14711E-02, 0.21649E-02, 0.29440E-02, 0.38037E-02,
     & 0.46863E-02, 0.55404E-02, 0.63363E-02, 0.70604E-02, 0.77082E-02,
     & 0.82913E-02, 0.88115E-02, 0.92761E-02, 0.97110E-02, 0.10122E-01,
     & 0.10530E-01, 0.10949E-01, 0.11390E-01, 0.11831E-01, 0.12271E-01,
     & 0.12712E-01, 0.13153E-01, 0.13594E-01, 0.14035E-01, 0.14475E-01/

      data ((clgrdl(i,j),j=1,30),i= 51, 60)/
     &-0.42778E-04, 0.61450E-04, 0.16596E-03, 0.31466E-03, 0.55610E-03,
     & 0.92477E-03, 0.14404E-02, 0.21179E-02, 0.28766E-02, 0.37118E-02,
     & 0.45660E-02, 0.53867E-02, 0.61485E-02, 0.68384E-02, 0.74518E-02,
     & 0.80003E-02, 0.84867E-02, 0.89190E-02, 0.93201E-02, 0.96992E-02,
     & 0.10074E-01, 0.10457E-01, 0.10857E-01, 0.11256E-01, 0.11656E-01,
     & 0.12055E-01, 0.12455E-01, 0.12855E-01, 0.13254E-01, 0.13654E-01,
     &-0.44058E-04, 0.58654E-04, 0.16165E-03, 0.30758E-03, 0.54457E-03,
     & 0.90566E-03, 0.14101E-02, 0.20712E-02, 0.28095E-02, 0.36219E-02,
     & 0.44462E-02, 0.52359E-02, 0.59641E-02, 0.66194E-02, 0.71992E-02,
     & 0.77160E-02, 0.81684E-02, 0.85682E-02, 0.89376E-02, 0.92843E-02,
     & 0.96272E-02, 0.99757E-02, 0.10339E-01, 0.10701E-01, 0.11064E-01,
     & 0.11427E-01, 0.11790E-01, 0.12153E-01, 0.12516E-01, 0.12879E-01,
     &-0.45093E-04, 0.55881E-04, 0.15715E-03, 0.30043E-03, 0.53302E-03,
     & 0.88654E-03, 0.13799E-02, 0.20250E-02, 0.27432E-02, 0.35329E-02,
     & 0.43284E-02, 0.50866E-02, 0.57823E-02, 0.64047E-02, 0.69512E-02,
     & 0.74374E-02, 0.78568E-02, 0.82242E-02, 0.85622E-02, 0.88775E-02,
     & 0.91875E-02, 0.95037E-02, 0.98331E-02, 0.10162E-01, 0.10492E-01,
     & 0.10821E-01, 0.11150E-01, 0.11480E-01, 0.11809E-01, 0.12138E-01,
     &-0.45534E-04, 0.53342E-04, 0.15250E-03, 0.29328E-03, 0.52147E-03,
     & 0.86744E-03, 0.13503E-02, 0.19793E-02, 0.26783E-02, 0.34444E-02,
     & 0.42124E-02, 0.49392E-02, 0.56038E-02, 0.61947E-02, 0.67089E-02,
     & 0.71638E-02, 0.75513E-02, 0.78872E-02, 0.81942E-02, 0.84797E-02,
     & 0.87570E-02, 0.90416E-02, 0.93387E-02, 0.96358E-02, 0.99329E-02,
     & 0.10230E-01, 0.10527E-01, 0.10824E-01, 0.11121E-01, 0.11419E-01,
     &-0.47264E-04, 0.50086E-04, 0.14770E-03, 0.28592E-03, 0.50973E-03,
     & 0.84852E-03, 0.13210E-02, 0.19342E-02, 0.26142E-02, 0.33575E-02,
     & 0.40974E-02, 0.47947E-02, 0.54284E-02, 0.59892E-02, 0.64710E-02,
     & 0.68944E-02, 0.72512E-02, 0.75568E-02, 0.78340E-02, 0.80885E-02,
     & 0.83345E-02, 0.85880E-02, 0.88541E-02, 0.91202E-02, 0.93863E-02,
     & 0.96524E-02, 0.99185E-02, 0.10185E-01, 0.10451E-01, 0.10717E-01,
     &-0.48700E-04, 0.46851E-04, 0.14267E-03, 0.27833E-03, 0.49778E-03,
     & 0.82976E-03, 0.12919E-02, 0.18895E-02, 0.25513E-02, 0.32718E-02,
     & 0.39841E-02, 0.46531E-02, 0.52567E-02, 0.57887E-02, 0.62390E-02,
     & 0.66298E-02, 0.69561E-02, 0.72314E-02, 0.74791E-02, 0.77049E-02,
     & 0.79207E-02, 0.81444E-02, 0.83817E-02, 0.86191E-02, 0.88564E-02,
     & 0.90937E-02, 0.93310E-02, 0.95683E-02, 0.98056E-02, 0.10043E-01,
     &-0.50022E-04, 0.43556E-04, 0.13740E-03, 0.27060E-03, 0.48569E-03,
     & 0.81098E-03, 0.12631E-02, 0.18455E-02, 0.24891E-02, 0.31869E-02,
     & 0.38735E-02, 0.45139E-02, 0.50898E-02, 0.55913E-02, 0.60114E-02,
     & 0.63709E-02, 0.66674E-02, 0.69131E-02, 0.71312E-02, 0.73286E-02,
     & 0.75155E-02, 0.77093E-02, 0.79162E-02, 0.81230E-02, 0.83299E-02,
     & 0.85367E-02, 0.87435E-02, 0.89504E-02, 0.91572E-02, 0.93641E-02,
     &-0.52189E-04, 0.39710E-04, 0.13187E-03, 0.26258E-03, 0.47346E-03,
     & 0.79239E-03, 0.12343E-02, 0.18021E-02, 0.24282E-02, 0.31034E-02,
     & 0.37645E-02, 0.43781E-02, 0.49259E-02, 0.53972E-02, 0.57874E-02,
     & 0.61156E-02, 0.63838E-02, 0.66015E-02, 0.67916E-02, 0.69600E-02,
     & 0.71197E-02, 0.72835E-02, 0.74583E-02, 0.76331E-02, 0.78079E-02,
     & 0.79827E-02, 0.81575E-02, 0.83323E-02, 0.85071E-02, 0.86819E-02,
     &-0.54471E-04, 0.35663E-04, 0.12604E-03, 0.25413E-03, 0.46101E-03,
     & 0.77355E-03, 0.12054E-02, 0.17591E-02, 0.23677E-02, 0.30214E-02,
     & 0.36579E-02, 0.42456E-02, 0.47651E-02, 0.52072E-02, 0.55682E-02,
     & 0.58661E-02, 0.61055E-02, 0.62952E-02, 0.64582E-02, 0.65991E-02,
     & 0.67327E-02, 0.68688E-02, 0.70152E-02, 0.71615E-02, 0.73079E-02,
     & 0.74543E-02, 0.76007E-02, 0.77471E-02, 0.78935E-02, 0.80399E-02,
     &-0.56915E-04, 0.31348E-04, 0.11987E-03, 0.24538E-03, 0.44829E-03,
     & 0.75441E-03, 0.11765E-02, 0.17164E-02, 0.23078E-02, 0.29405E-02,
     & 0.35528E-02, 0.41155E-02, 0.46072E-02, 0.50196E-02, 0.53527E-02,
     & 0.56226E-02, 0.58346E-02, 0.59961E-02, 0.61318E-02, 0.62462E-02,
     & 0.63529E-02, 0.64618E-02, 0.65812E-02, 0.67005E-02, 0.68198E-02,
     & 0.69391E-02, 0.70585E-02, 0.71778E-02, 0.72971E-02, 0.74164E-02/

      data ((clgrdl(i,j),j=1,30),i= 61, 70)/
     &-0.59049E-04, 0.26997E-04, 0.11330E-03, 0.23623E-03, 0.43529E-03,
     & 0.73530E-03, 0.11475E-02, 0.16742E-02, 0.22488E-02, 0.28605E-02,
     & 0.34506E-02, 0.39877E-02, 0.44512E-02, 0.48351E-02, 0.51405E-02,
     & 0.53830E-02, 0.55682E-02, 0.57040E-02, 0.58125E-02, 0.59027E-02,
     & 0.59828E-02, 0.60637E-02, 0.61533E-02, 0.62429E-02, 0.63326E-02,
     & 0.64222E-02, 0.65118E-02, 0.66014E-02, 0.66911E-02, 0.67807E-02,
     &-0.61777E-04, 0.22177E-04, 0.10638E-03, 0.22662E-03, 0.42178E-03,
     & 0.71563E-03, 0.11184E-02, 0.16320E-02, 0.21902E-02, 0.27824E-02,
     & 0.33502E-02, 0.38612E-02, 0.42979E-02, 0.46548E-02, 0.49331E-02,
     & 0.51484E-02, 0.53068E-02, 0.54182E-02, 0.55021E-02, 0.55670E-02,
     & 0.56207E-02, 0.56750E-02, 0.57352E-02, 0.57954E-02, 0.58557E-02,
     & 0.59159E-02, 0.59762E-02, 0.60364E-02, 0.60966E-02, 0.61569E-02,
     &-0.64492E-04, 0.17152E-04, 0.99043E-04, 0.21653E-03, 0.40774E-03,
     & 0.69520E-03, 0.10893E-02, 0.15893E-02, 0.21317E-02, 0.27053E-02,
     & 0.32499E-02, 0.37367E-02, 0.41479E-02, 0.44779E-02, 0.47300E-02,
     & 0.49194E-02, 0.50518E-02, 0.51391E-02, 0.51990E-02, 0.52393E-02,
     & 0.52655E-02, 0.52954E-02, 0.53324E-02, 0.53693E-02, 0.54063E-02,
     & 0.54433E-02, 0.54803E-02, 0.55173E-02, 0.55543E-02, 0.55913E-02,
     &-0.67345E-04, 0.11865E-04, 0.91307E-04, 0.20588E-03, 0.39306E-03,
     & 0.67456E-03, 0.10600E-02, 0.15468E-02, 0.20741E-02, 0.26284E-02,
     & 0.31515E-02, 0.36146E-02, 0.40005E-02, 0.43041E-02, 0.45308E-02,
     & 0.46965E-02, 0.48039E-02, 0.48673E-02, 0.49039E-02, 0.49204E-02,
     & 0.49204E-02, 0.49262E-02, 0.49394E-02, 0.49525E-02, 0.49656E-02,
     & 0.49788E-02, 0.49919E-02, 0.50051E-02, 0.50182E-02, 0.50313E-02,
     &-0.68980E-04, 0.69605E-05, 0.83156E-04, 0.19459E-03, 0.37766E-03,
     & 0.65346E-03, 0.10303E-02, 0.15043E-02, 0.20168E-02, 0.25521E-02,
     & 0.30548E-02, 0.34942E-02, 0.38549E-02, 0.41343E-02, 0.43357E-02,
     & 0.44792E-02, 0.45619E-02, 0.46015E-02, 0.46157E-02, 0.46082E-02,
     & 0.45847E-02, 0.45672E-02, 0.45580E-02, 0.45488E-02, 0.45395E-02,
     & 0.45303E-02, 0.45211E-02, 0.45119E-02, 0.45027E-02, 0.44935E-02,
     &-0.71661E-04, 0.13913E-05, 0.74674E-04, 0.18260E-03, 0.36156E-03,
     & 0.63149E-03, 0.10002E-02, 0.14620E-02, 0.19599E-02, 0.24774E-02,
     & 0.29586E-02, 0.33754E-02, 0.37128E-02, 0.39685E-02, 0.41458E-02,
     & 0.42657E-02, 0.43257E-02, 0.43420E-02, 0.43328E-02, 0.43033E-02,
     & 0.42565E-02, 0.42167E-02, 0.41864E-02, 0.41561E-02, 0.41258E-02,
     & 0.40955E-02, 0.40653E-02, 0.40350E-02, 0.40047E-02, 0.39744E-02,
     &-0.72633E-04,-0.35369E-05, 0.65815E-04, 0.16999E-03, 0.34466E-03,
     & 0.60882E-03, 0.96940E-03, 0.14195E-02, 0.19034E-02, 0.24029E-02,
     & 0.28642E-02, 0.32587E-02, 0.35736E-02, 0.38064E-02, 0.39604E-02,
     & 0.40568E-02, 0.40947E-02, 0.40888E-02, 0.40577E-02, 0.40060E-02,
     & 0.39386E-02, 0.38757E-02, 0.38209E-02, 0.37662E-02, 0.37115E-02,
     & 0.36568E-02, 0.36021E-02, 0.35474E-02, 0.34927E-02, 0.34380E-02,
     &-0.72821E-04,-0.81771E-05, 0.56725E-04, 0.15664E-03, 0.32675E-03,
     & 0.58520E-03, 0.93758E-03, 0.13762E-02, 0.18463E-02, 0.23290E-02,
     & 0.27709E-02, 0.31448E-02, 0.34370E-02, 0.36474E-02, 0.37787E-02,
     & 0.38529E-02, 0.38688E-02, 0.38408E-02, 0.37886E-02, 0.37148E-02,
     & 0.36297E-02, 0.35445E-02, 0.34663E-02, 0.33881E-02, 0.33099E-02,
     & 0.32317E-02, 0.31535E-02, 0.30753E-02, 0.29971E-02, 0.29189E-02,
     &-0.72109E-04,-0.12416E-04, 0.47540E-04, 0.14265E-03, 0.30789E-03,
     & 0.56037E-03, 0.90478E-03, 0.13330E-02, 0.17893E-02, 0.22557E-02,
     & 0.26792E-02, 0.30321E-02, 0.33030E-02, 0.34921E-02, 0.36017E-02,
     & 0.36534E-02, 0.36490E-02, 0.35998E-02, 0.35258E-02, 0.34328E-02,
     & 0.33291E-02, 0.32224E-02, 0.31205E-02, 0.30187E-02, 0.29169E-02,
     & 0.28150E-02, 0.27132E-02, 0.26113E-02, 0.25095E-02, 0.24076E-02,
     &-0.69895E-04,-0.15873E-04, 0.38409E-04, 0.12802E-03, 0.28787E-03,
     & 0.53434E-03, 0.87068E-03, 0.12886E-02, 0.17318E-02, 0.21825E-02,
     & 0.25880E-02, 0.29211E-02, 0.31722E-02, 0.33402E-02, 0.34291E-02,
     & 0.34581E-02, 0.34331E-02, 0.33653E-02, 0.32719E-02, 0.31598E-02,
     & 0.30372E-02, 0.29091E-02, 0.27827E-02, 0.26564E-02, 0.25300E-02,
     & 0.24036E-02, 0.22773E-02, 0.21509E-02, 0.20245E-02, 0.18982E-02/

      data ((clgrdl(i,j),j=1,30),i= 71, 80)/
     &-0.65031E-04,-0.17879E-04, 0.29543E-04, 0.11285E-03, 0.26678E-03,
     & 0.50692E-03, 0.83536E-03, 0.12424E-02, 0.16734E-02, 0.21099E-02,
     & 0.24976E-02, 0.28121E-02, 0.30433E-02, 0.31902E-02, 0.32594E-02,
     & 0.32693E-02, 0.32245E-02, 0.31375E-02, 0.30265E-02, 0.28947E-02,
     & 0.27534E-02, 0.26071E-02, 0.24625E-02, 0.23178E-02, 0.21732E-02,
     & 0.20286E-02, 0.18839E-02, 0.17393E-02, 0.15947E-02, 0.14500E-02,
     &-0.58124E-04,-0.18566E-04, 0.21266E-04, 0.97225E-04, 0.24455E-03,
     & 0.47786E-03, 0.79870E-03, 0.11953E-02, 0.16145E-02, 0.20366E-02,
     & 0.24074E-02, 0.27043E-02, 0.29162E-02, 0.30441E-02, 0.30939E-02,
     & 0.30859E-02, 0.30228E-02, 0.29173E-02, 0.27875E-02, 0.26400E-02,
     & 0.24801E-02, 0.23162E-02, 0.21546E-02, 0.19930E-02, 0.18314E-02,
     & 0.16698E-02, 0.15083E-02, 0.13467E-02, 0.11851E-02, 0.10235E-02,
     &-0.48629E-04,-0.17495E-04, 0.13897E-04, 0.81486E-04, 0.22132E-03,
     & 0.44745E-03, 0.76031E-03, 0.11466E-02, 0.15544E-02, 0.19622E-02,
     & 0.23178E-02, 0.25973E-02, 0.27918E-02, 0.29018E-02, 0.29335E-02,
     & 0.29067E-02, 0.28264E-02, 0.27057E-02, 0.25596E-02, 0.23966E-02,
     & 0.22187E-02, 0.20363E-02, 0.18541E-02, 0.16718E-02, 0.14896E-02,
     & 0.13073E-02, 0.11251E-02, 0.94279E-03, 0.76054E-03, 0.57828E-03,
     &-0.35793E-04,-0.14107E-04, 0.78331E-05, 0.65845E-04, 0.19701E-03,
     & 0.41522E-03, 0.71987E-03, 0.10962E-02, 0.14931E-02, 0.18876E-02,
     & 0.22281E-02, 0.24921E-02, 0.26694E-02, 0.27619E-02, 0.27767E-02,
     & 0.27338E-02, 0.26367E-02, 0.25010E-02, 0.23412E-02, 0.21621E-02,
     & 0.19662E-02, 0.17697E-02, 0.15743E-02, 0.13788E-02, 0.11833E-02,
     & 0.98784E-03, 0.79237E-03, 0.59690E-03, 0.40142E-03, 0.20595E-03,
     &-0.21345E-04,-0.90636E-05, 0.34426E-05, 0.50680E-04, 0.17190E-03,
     & 0.38129E-03, 0.67728E-03, 0.10443E-02, 0.14301E-02, 0.18115E-02,
     & 0.21384E-02, 0.23874E-02, 0.25491E-02, 0.26255E-02, 0.26242E-02,
     & 0.25671E-02, 0.24552E-02, 0.23038E-02, 0.21298E-02, 0.19359E-02,
     & 0.17256E-02, 0.15163E-02, 0.13111E-02, 0.11059E-02, 0.90066E-03,
     & 0.69546E-03, 0.49025E-03, 0.28505E-03, 0.79844E-04,-0.12536E-03,
     &-0.75696E-05,-0.33959E-05, 0.94260E-06, 0.36577E-04, 0.14630E-03,
     & 0.34578E-03, 0.63241E-03, 0.98975E-03, 0.13651E-02, 0.17340E-02,
     & 0.20485E-02, 0.22834E-02, 0.24301E-02, 0.24919E-02, 0.24762E-02,
     & 0.24048E-02, 0.22797E-02, 0.21152E-02, 0.19271E-02, 0.17210E-02,
     & 0.14990E-02, 0.12752E-02, 0.10543E-02, 0.83340E-03, 0.61249E-03,
     & 0.39159E-03, 0.17068E-03,-0.50229E-04,-0.27114E-03,-0.49204E-03,
     &-0.69431E-06,-0.31699E-06, 0.10610E-06, 0.24052E-04, 0.12060E-03,
     & 0.30872E-03, 0.58520E-03, 0.93269E-03, 0.12977E-02, 0.16558E-02,
     & 0.19574E-02, 0.21787E-02, 0.23121E-02, 0.23609E-02, 0.23324E-02,
     & 0.22472E-02, 0.21097E-02, 0.19337E-02, 0.17346E-02, 0.15166E-02,
     & 0.12841E-02, 0.10483E-02, 0.81293E-03, 0.57758E-03, 0.34222E-03,
     & 0.10687E-03,-0.12848E-03,-0.36383E-03,-0.59919E-03,-0.83454E-03,
     &-0.28180E-08,-0.13294E-08, 0.37218E-08, 0.13778E-04, 0.95291E-04,
     & 0.27025E-03, 0.53567E-03, 0.87263E-03, 0.12273E-02, 0.15751E-02,
     & 0.18646E-02, 0.20740E-02, 0.21951E-02, 0.22314E-02, 0.21908E-02,
     & 0.20944E-02, 0.19459E-02, 0.17589E-02, 0.15492E-02, 0.13206E-02,
     & 0.10788E-02, 0.83294E-03, 0.58811E-03, 0.34328E-03, 0.98455E-04,
     &-0.14637E-03,-0.39120E-03,-0.63603E-03,-0.88086E-03,-0.11257E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.63140E-05, 0.71157E-04,
     & 0.23093E-03, 0.48388E-03, 0.80987E-03, 0.11543E-02, 0.14918E-02,
     & 0.17710E-02, 0.19691E-02, 0.20788E-02, 0.21041E-02, 0.20529E-02,
     & 0.19465E-02, 0.17884E-02, 0.15921E-02, 0.13731E-02, 0.11358E-02,
     & 0.88625E-03, 0.63042E-03, 0.37386E-03, 0.11730E-03,-0.13925E-03,
     &-0.39581E-03,-0.65237E-03,-0.90893E-03,-0.11655E-02,-0.14220E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19031E-05, 0.49131E-04,
     & 0.19129E-03, 0.42986E-03, 0.74421E-03, 0.10780E-02, 0.14050E-02,
     & 0.16747E-02, 0.18630E-02, 0.19632E-02, 0.19794E-02, 0.19191E-02,
     & 0.18039E-02, 0.16375E-02, 0.14339E-02, 0.12081E-02, 0.96392E-03,
     & 0.70667E-03, 0.44351E-03, 0.17855E-03,-0.86410E-04,-0.35137E-03,
     &-0.61633E-03,-0.88129E-03,-0.11463E-02,-0.14112E-02,-0.16762E-02/

      data ((clgrdl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.22808E-06, 0.30199E-04,
     & 0.15219E-03, 0.37406E-03, 0.67557E-03, 0.99819E-03, 0.13151E-02,
     & 0.15754E-02, 0.17562E-02, 0.18485E-02, 0.18565E-02, 0.17888E-02,
     & 0.16666E-02, 0.14942E-02, 0.12851E-02, 0.10539E-02, 0.80482E-03,
     & 0.54098E-03, 0.27309E-03, 0.46545E-05,-0.26378E-03,-0.53221E-03,
     &-0.80064E-03,-0.10691E-02,-0.13375E-02,-0.16059E-02,-0.18744E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.81252E-08, 0.15489E-04,
     & 0.11461E-03, 0.31718E-03, 0.60410E-03, 0.91476E-03, 0.12219E-02,
     & 0.14743E-02, 0.16469E-02, 0.17323E-02, 0.17342E-02, 0.16615E-02,
     & 0.15352E-02, 0.13584E-02, 0.11454E-02, 0.91121E-03, 0.65867E-03,
     & 0.39150E-03, 0.12076E-03,-0.15060E-03,-0.42197E-03,-0.69334E-03,
     &-0.96470E-03,-0.12361E-02,-0.15074E-02,-0.17788E-02,-0.20502E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.58727E-05,
     & 0.79972E-04, 0.26016E-03, 0.53047E-03, 0.82776E-03, 0.11248E-02,
     & 0.13692E-02, 0.15357E-02, 0.16158E-02, 0.16132E-02, 0.15367E-02,
     & 0.14070E-02, 0.12284E-02, 0.10139E-02, 0.77841E-03, 0.52466E-03,
     & 0.25670E-03,-0.15160E-04,-0.28721E-03,-0.55926E-03,-0.83131E-03,
     &-0.11034E-02,-0.13754E-02,-0.16475E-02,-0.19195E-02,-0.21916E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.13673E-05,
     & 0.49845E-04, 0.20416E-03, 0.45503E-03, 0.73735E-03, 0.10238E-02,
     & 0.12609E-02, 0.14219E-02, 0.14979E-02, 0.14925E-02, 0.14146E-02,
     & 0.12839E-02, 0.11049E-02, 0.89080E-03, 0.65599E-03, 0.40330E-03,
     & 0.13726E-03,-0.13335E-03,-0.40449E-03,-0.67562E-03,-0.94676E-03,
     &-0.12179E-02,-0.14890E-02,-0.17602E-02,-0.20313E-02,-0.23024E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14018E-06,
     & 0.26009E-04, 0.15086E-03, 0.37915E-03, 0.64405E-03, 0.91890E-03,
     & 0.11483E-02, 0.13046E-02, 0.13783E-02, 0.13721E-02, 0.12944E-02,
     & 0.11653E-02, 0.98855E-03, 0.77716E-03, 0.54558E-03, 0.29622E-03,
     & 0.34330E-04,-0.23281E-03,-0.50100E-03,-0.76919E-03,-0.10374E-02,
     &-0.13056E-02,-0.15738E-02,-0.18420E-02,-0.21102E-02,-0.23784E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.43217E-08,
     & 0.99119E-05, 0.10238E-03, 0.30431E-03, 0.54874E-03, 0.80995E-03,
     & 0.10323E-02, 0.11848E-02, 0.12572E-02, 0.12519E-02, 0.11767E-02,
     & 0.10508E-02, 0.87861E-03, 0.67287E-03, 0.44715E-03, 0.20390E-03,
     &-0.51971E-04,-0.31277E-03,-0.57486E-03,-0.83694E-03,-0.10990E-02,
     &-0.13611E-02,-0.16232E-02,-0.18853E-02,-0.21474E-02,-0.24095E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.19676E-05, 0.61107E-04, 0.23238E-03, 0.45288E-03, 0.69859E-03,
     & 0.91215E-03, 0.10617E-02, 0.11343E-02, 0.11314E-02, 0.10606E-02,
     & 0.94096E-03, 0.77577E-03, 0.57771E-03, 0.36045E-03, 0.12593E-03,
     &-0.12095E-03,-0.37231E-03,-0.62458E-03,-0.87686E-03,-0.11291E-02,
     &-0.13814E-02,-0.16337E-02,-0.18859E-02,-0.21382E-02,-0.23905E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.13916E-06, 0.29679E-04, 0.16612E-03, 0.35846E-03, 0.58550E-03,
     & 0.78934E-03, 0.93513E-03, 0.10088E-02, 0.10102E-02, 0.94653E-03,
     & 0.83455E-03, 0.67897E-03, 0.49183E-03, 0.28565E-03, 0.62869E-04,
     &-0.17176E-03,-0.41126E-03,-0.65202E-03,-0.89278E-03,-0.11335E-02,
     &-0.13743E-02,-0.16151E-02,-0.18558E-02,-0.20966E-02,-0.23373E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.99954E-05, 0.10846E-03, 0.26792E-03, 0.47264E-03,
     & 0.66448E-03, 0.80624E-03, 0.88103E-03, 0.88795E-03, 0.83263E-03,
     & 0.73154E-03, 0.58823E-03, 0.41434E-03, 0.22212E-03, 0.13768E-04,
     &-0.20584E-03,-0.42998E-03,-0.65500E-03,-0.88001E-03,-0.11050E-02,
     &-0.13300E-02,-0.15551E-02,-0.17801E-02,-0.20051E-02,-0.22301E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.17369E-05, 0.62528E-04, 0.18482E-03, 0.36257E-03,
     & 0.53984E-03, 0.67586E-03, 0.75241E-03, 0.76563E-03, 0.72041E-03,
     & 0.63167E-03, 0.50274E-03, 0.34509E-03, 0.16961E-03,-0.21286E-04,
     &-0.22280E-03,-0.42906E-03,-0.63678E-03,-0.84450E-03,-0.10522E-02,
     &-0.12599E-02,-0.14677E-02,-0.16754E-02,-0.18831E-02,-0.20908E-02/

      data ((clgrdl(i,j),j=1,30),i= 91,100)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.11193E-06, 0.30534E-04, 0.11342E-03, 0.25895E-03,
     & 0.41749E-03, 0.54598E-03, 0.62350E-03, 0.64344E-03, 0.60976E-03,
     & 0.53535E-03, 0.42327E-03, 0.28391E-03, 0.12747E-03,-0.43286E-04,
     &-0.22386E-03,-0.40925E-03,-0.59609E-03,-0.78293E-03,-0.96977E-03,
     &-0.11566E-02,-0.13435E-02,-0.15303E-02,-0.17171E-02,-0.19040E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.11409E-04, 0.57926E-04, 0.16637E-03,
     & 0.30144E-03, 0.41926E-03, 0.49562E-03, 0.52241E-03, 0.50092E-03,
     & 0.44221E-03, 0.34865E-03, 0.22977E-03, 0.95030E-04,-0.53228E-04,
     &-0.21050E-03,-0.37225E-03,-0.53561E-03,-0.69897E-03,-0.86233E-03,
     &-0.10257E-02,-0.11891E-02,-0.13524E-02,-0.15158E-02,-0.16791E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.22363E-05, 0.22027E-04, 0.90336E-04,
     & 0.19659E-03, 0.29942E-03, 0.37250E-03, 0.40474E-03, 0.39500E-03,
     & 0.35243E-03, 0.27871E-03, 0.18199E-03, 0.70670E-04,-0.52938E-04,
     &-0.18475E-03,-0.32093E-03,-0.45904E-03,-0.59715E-03,-0.73526E-03,
     &-0.87337E-03,-0.10115E-02,-0.11496E-02,-0.12877E-02,-0.14258E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.15920E-06, 0.51474E-05, 0.36421E-04,
     & 0.10900E-03, 0.19178E-03, 0.25768E-03, 0.29288E-03, 0.29406E-03,
     & 0.26728E-03, 0.21369E-03, 0.13987E-03, 0.52860E-04,-0.44893E-04,
     &-0.14987E-03,-0.25903E-03,-0.37028E-03,-0.48153E-03,-0.59279E-03,
     &-0.70404E-03,-0.81529E-03,-0.92655E-03,-0.10378E-02,-0.11491E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.45908E-06, 0.80098E-05,
     & 0.45331E-04, 0.10298E-03, 0.15678E-03, 0.19129E-03, 0.20091E-03,
     & 0.18827E-03, 0.15367E-03, 0.10232E-03, 0.39740E-04,-0.31965E-04,
     &-0.10986E-03,-0.19146E-03,-0.27517E-03,-0.35887E-03,-0.44258E-03,
     &-0.52629E-03,-0.61000E-03,-0.69370E-03,-0.77741E-03,-0.86112E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.33675E-08, 0.63585E-06,
     & 0.10388E-04, 0.39994E-04, 0.76657E-04, 0.10572E-03, 0.11943E-03,
     & 0.11781E-03, 0.99904E-04, 0.69031E-04, 0.29254E-04,-0.17717E-04,
     &-0.69665E-04,-0.12470E-03,-0.18169E-03,-0.23869E-03,-0.29568E-03,
     &-0.35268E-03,-0.40967E-03,-0.46666E-03,-0.52366E-03,-0.58065E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.85311E-06, 0.77859E-05, 0.24453E-04, 0.42888E-04, 0.55547E-04,
     & 0.59967E-04, 0.54370E-04, 0.40122E-04, 0.19667E-04,-0.58680E-05,
     &-0.35062E-04,-0.66505E-04,-0.99490E-04,-0.13247E-03,-0.16546E-03,
     &-0.19844E-03,-0.23143E-03,-0.26441E-03,-0.29740E-03,-0.33038E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.54895E-06, 0.31250E-05, 0.89492E-05, 0.15579E-04,
     & 0.20116E-04, 0.20739E-04, 0.17144E-04, 0.10239E-04, 0.49329E-06,
     &-0.11418E-04,-0.24630E-04,-0.38763E-04,-0.52896E-04,-0.67029E-04,
     &-0.81161E-04,-0.95294E-04,-0.10943E-03,-0.12356E-03,-0.13769E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10384E-06, 0.68009E-06, 0.15794E-05,
     & 0.26430E-05, 0.34207E-05, 0.34337E-05, 0.26197E-05, 0.96465E-06,
     &-0.14184E-05,-0.42413E-05,-0.73722E-05,-0.10503E-04,-0.13634E-04,
     &-0.16765E-04,-0.19896E-04,-0.23027E-04,-0.26158E-04,-0.29289E-04,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.68004E-09, 0.15710E-07,
     & 0.88174E-07, 0.18584E-06, 0.24106E-06, 0.22672E-06, 0.13150E-06,
     &-0.39290E-07,-0.25605E-06,-0.50470E-06,-0.75336E-06,-0.10020E-05,
     &-0.12507E-05,-0.14993E-05,-0.17480E-05,-0.19966E-05,-0.22453E-05/

      data ((f2grrl(i,j),j=1,30),i=  1, 10)/
     & 0.33204E+00, 0.33123E+00, 0.33042E+00, 0.33044E+00, 0.33314E+00,
     & 0.36639E+00, 0.39977E+00, 0.43367E+00, 0.46831E+00, 0.50370E+00,
     & 0.54145E+00, 0.58194E+00, 0.62554E+00, 0.67265E+00, 0.72353E+00,
     & 0.77833E+00, 0.83767E+00, 0.90233E+00, 0.97332E+00, 0.10531E+01,
     & 0.11484E+01, 0.12592E+01, 0.13829E+01, 0.15067E+01, 0.16304E+01,
     & 0.17541E+01, 0.18779E+01, 0.20016E+01, 0.21254E+01, 0.22491E+01,
     & 0.33248E+00, 0.33167E+00, 0.33087E+00, 0.33088E+00, 0.33355E+00,
     & 0.36635E+00, 0.39927E+00, 0.43270E+00, 0.46685E+00, 0.50173E+00,
     & 0.53892E+00, 0.57876E+00, 0.62160E+00, 0.66781E+00, 0.71764E+00,
     & 0.77122E+00, 0.82917E+00, 0.89223E+00, 0.96140E+00, 0.10391E+01,
     & 0.11320E+01, 0.12399E+01, 0.13606E+01, 0.14812E+01, 0.16019E+01,
     & 0.17226E+01, 0.18432E+01, 0.19639E+01, 0.20845E+01, 0.22052E+01,
     & 0.33290E+00, 0.33210E+00, 0.33131E+00, 0.33133E+00, 0.33396E+00,
     & 0.36633E+00, 0.39878E+00, 0.43173E+00, 0.46540E+00, 0.49977E+00,
     & 0.53640E+00, 0.57560E+00, 0.61768E+00, 0.66300E+00, 0.71180E+00,
     & 0.76418E+00, 0.82075E+00, 0.88224E+00, 0.94964E+00, 0.10253E+01,
     & 0.11158E+01, 0.12210E+01, 0.13387E+01, 0.14563E+01, 0.15740E+01,
     & 0.16917E+01, 0.18093E+01, 0.19270E+01, 0.20446E+01, 0.21623E+01,
     & 0.33335E+00, 0.33255E+00, 0.33176E+00, 0.33178E+00, 0.33437E+00,
     & 0.36630E+00, 0.39830E+00, 0.43078E+00, 0.46396E+00, 0.49783E+00,
     & 0.53389E+00, 0.57245E+00, 0.61378E+00, 0.65823E+00, 0.70600E+00,
     & 0.75721E+00, 0.81243E+00, 0.87239E+00, 0.93805E+00, 0.10117E+01,
     & 0.10999E+01, 0.12025E+01, 0.13172E+01, 0.14320E+01, 0.15467E+01,
     & 0.16614E+01, 0.17761E+01, 0.18909E+01, 0.20056E+01, 0.21203E+01,
     & 0.33380E+00, 0.33301E+00, 0.33222E+00, 0.33223E+00, 0.33478E+00,
     & 0.36628E+00, 0.39783E+00, 0.42983E+00, 0.46253E+00, 0.49589E+00,
     & 0.53140E+00, 0.56932E+00, 0.60991E+00, 0.65348E+00, 0.70025E+00,
     & 0.75030E+00, 0.80420E+00, 0.86266E+00, 0.92663E+00, 0.99839E+00,
     & 0.10843E+01, 0.11843E+01, 0.12962E+01, 0.14080E+01, 0.15199E+01,
     & 0.16318E+01, 0.17437E+01, 0.18556E+01, 0.19674E+01, 0.20793E+01,
     & 0.33425E+00, 0.33346E+00, 0.33267E+00, 0.33269E+00, 0.33520E+00,
     & 0.36627E+00, 0.39736E+00, 0.42890E+00, 0.46111E+00, 0.49397E+00,
     & 0.52893E+00, 0.56621E+00, 0.60606E+00, 0.64877E+00, 0.69454E+00,
     & 0.74345E+00, 0.79606E+00, 0.85305E+00, 0.91536E+00, 0.98525E+00,
     & 0.10690E+01, 0.11664E+01, 0.12755E+01, 0.13846E+01, 0.14937E+01,
     & 0.16028E+01, 0.17119E+01, 0.18210E+01, 0.19300E+01, 0.20391E+01,
     & 0.33465E+00, 0.33389E+00, 0.33313E+00, 0.33315E+00, 0.33563E+00,
     & 0.36626E+00, 0.39690E+00, 0.42797E+00, 0.45971E+00, 0.49206E+00,
     & 0.52646E+00, 0.56311E+00, 0.60223E+00, 0.64409E+00, 0.68887E+00,
     & 0.73667E+00, 0.78801E+00, 0.84355E+00, 0.90425E+00, 0.97231E+00,
     & 0.10539E+01, 0.11488E+01, 0.12552E+01, 0.13616E+01, 0.14680E+01,
     & 0.15744E+01, 0.16808E+01, 0.17872E+01, 0.18936E+01, 0.20000E+01,
     & 0.33511E+00, 0.33435E+00, 0.33359E+00, 0.33361E+00, 0.33605E+00,
     & 0.36625E+00, 0.39644E+00, 0.42705E+00, 0.45831E+00, 0.49016E+00,
     & 0.52401E+00, 0.56002E+00, 0.59841E+00, 0.63944E+00, 0.68325E+00,
     & 0.72995E+00, 0.78004E+00, 0.83418E+00, 0.89330E+00, 0.95956E+00,
     & 0.10390E+01, 0.11316E+01, 0.12353E+01, 0.13391E+01, 0.14428E+01,
     & 0.15466E+01, 0.16503E+01, 0.17541E+01, 0.18578E+01, 0.19616E+01,
     & 0.33553E+00, 0.33479E+00, 0.33406E+00, 0.33407E+00, 0.33648E+00,
     & 0.36625E+00, 0.39599E+00, 0.42614E+00, 0.45692E+00, 0.48827E+00,
     & 0.52156E+00, 0.55695E+00, 0.59462E+00, 0.63481E+00, 0.67767E+00,
     & 0.72329E+00, 0.77216E+00, 0.82492E+00, 0.88249E+00, 0.94701E+00,
     & 0.10244E+01, 0.11146E+01, 0.12158E+01, 0.13170E+01, 0.14182E+01,
     & 0.15193E+01, 0.16205E+01, 0.17217E+01, 0.18228E+01, 0.19240E+01,
     & 0.33600E+00, 0.33526E+00, 0.33452E+00, 0.33453E+00, 0.33691E+00,
     & 0.36625E+00, 0.39554E+00, 0.42523E+00, 0.45553E+00, 0.48639E+00,
     & 0.51913E+00, 0.55390E+00, 0.59085E+00, 0.63022E+00, 0.67214E+00,
     & 0.71669E+00, 0.76435E+00, 0.81576E+00, 0.87183E+00, 0.93465E+00,
     & 0.10100E+01, 0.10980E+01, 0.11967E+01, 0.12953E+01, 0.13940E+01,
     & 0.14926E+01, 0.15913E+01, 0.16900E+01, 0.17886E+01, 0.18873E+01/

      data ((f2grrl(i,j),j=1,30),i= 11, 20)/
     & 0.33642E+00, 0.33570E+00, 0.33498E+00, 0.33499E+00, 0.33734E+00,
     & 0.36625E+00, 0.39510E+00, 0.42433E+00, 0.45416E+00, 0.48451E+00,
     & 0.51671E+00, 0.55085E+00, 0.58710E+00, 0.62565E+00, 0.66664E+00,
     & 0.71015E+00, 0.75663E+00, 0.80672E+00, 0.86131E+00, 0.92246E+00,
     & 0.99590E+00, 0.10816E+01, 0.11779E+01, 0.12741E+01, 0.13703E+01,
     & 0.14665E+01, 0.15627E+01, 0.16590E+01, 0.17552E+01, 0.18514E+01,
     & 0.33689E+00, 0.33616E+00, 0.33544E+00, 0.33546E+00, 0.33777E+00,
     & 0.36625E+00, 0.39465E+00, 0.42343E+00, 0.45279E+00, 0.48264E+00,
     & 0.51429E+00, 0.54782E+00, 0.58336E+00, 0.62111E+00, 0.66118E+00,
     & 0.70366E+00, 0.74899E+00, 0.79778E+00, 0.85093E+00, 0.91046E+00,
     & 0.98199E+00, 0.10656E+01, 0.11594E+01, 0.12532E+01, 0.13470E+01,
     & 0.14409E+01, 0.15347E+01, 0.16285E+01, 0.17223E+01, 0.18162E+01,
     & 0.33731E+00, 0.33661E+00, 0.33591E+00, 0.33592E+00, 0.33820E+00,
     & 0.36626E+00, 0.39421E+00, 0.42253E+00, 0.45142E+00, 0.48078E+00,
     & 0.51188E+00, 0.54480E+00, 0.57964E+00, 0.61659E+00, 0.65576E+00,
     & 0.69723E+00, 0.74142E+00, 0.78895E+00, 0.84068E+00, 0.89863E+00,
     & 0.96830E+00, 0.10498E+01, 0.11413E+01, 0.12328E+01, 0.13243E+01,
     & 0.14158E+01, 0.15073E+01, 0.15988E+01, 0.16903E+01, 0.17818E+01,
     & 0.33774E+00, 0.33705E+00, 0.33636E+00, 0.33638E+00, 0.33862E+00,
     & 0.36626E+00, 0.39378E+00, 0.42164E+00, 0.45006E+00, 0.47892E+00,
     & 0.50948E+00, 0.54179E+00, 0.57594E+00, 0.61210E+00, 0.65038E+00,
     & 0.69085E+00, 0.73393E+00, 0.78021E+00, 0.83057E+00, 0.88696E+00,
     & 0.95481E+00, 0.10342E+01, 0.11235E+01, 0.12127E+01, 0.13020E+01,
     & 0.13912E+01, 0.14805E+01, 0.15697E+01, 0.16590E+01, 0.17482E+01,
     & 0.33816E+00, 0.33749E+00, 0.33682E+00, 0.33683E+00, 0.33905E+00,
     & 0.36626E+00, 0.39334E+00, 0.42075E+00, 0.44871E+00, 0.47707E+00,
     & 0.50709E+00, 0.53879E+00, 0.57225E+00, 0.60764E+00, 0.64504E+00,
     & 0.68453E+00, 0.72651E+00, 0.77158E+00, 0.82058E+00, 0.87546E+00,
     & 0.94154E+00, 0.10189E+01, 0.11060E+01, 0.11930E+01, 0.12801E+01,
     & 0.13671E+01, 0.14542E+01, 0.15412E+01, 0.16283E+01, 0.17153E+01,
     & 0.33861E+00, 0.33794E+00, 0.33727E+00, 0.33728E+00, 0.33947E+00,
     & 0.36626E+00, 0.39290E+00, 0.41986E+00, 0.44735E+00, 0.47522E+00,
     & 0.50470E+00, 0.53580E+00, 0.56858E+00, 0.60319E+00, 0.63972E+00,
     & 0.67825E+00, 0.71916E+00, 0.76303E+00, 0.81072E+00, 0.86412E+00,
     & 0.92847E+00, 0.10039E+01, 0.10888E+01, 0.11737E+01, 0.12586E+01,
     & 0.13434E+01, 0.14283E+01, 0.15132E+01, 0.15981E+01, 0.16830E+01,
     & 0.33902E+00, 0.33837E+00, 0.33772E+00, 0.33773E+00, 0.33988E+00,
     & 0.36625E+00, 0.39245E+00, 0.41897E+00, 0.44600E+00, 0.47337E+00,
     & 0.50232E+00, 0.53281E+00, 0.56492E+00, 0.59877E+00, 0.63445E+00,
     & 0.67202E+00, 0.71188E+00, 0.75458E+00, 0.80097E+00, 0.85293E+00,
     & 0.91559E+00, 0.98910E+00, 0.10719E+01, 0.11546E+01, 0.12374E+01,
     & 0.13202E+01, 0.14030E+01, 0.14857E+01, 0.15685E+01, 0.16513E+01,
     & 0.33943E+00, 0.33879E+00, 0.33816E+00, 0.33817E+00, 0.34029E+00,
     & 0.36624E+00, 0.39201E+00, 0.41808E+00, 0.44464E+00, 0.47152E+00,
     & 0.49993E+00, 0.52983E+00, 0.56127E+00, 0.59436E+00, 0.62920E+00,
     & 0.66584E+00, 0.70466E+00, 0.74622E+00, 0.79135E+00, 0.84189E+00,
     & 0.90290E+00, 0.97454E+00, 0.10553E+01, 0.11360E+01, 0.12167E+01,
     & 0.12974E+01, 0.13781E+01, 0.14589E+01, 0.15396E+01, 0.16203E+01,
     & 0.33983E+00, 0.33921E+00, 0.33859E+00, 0.33860E+00, 0.34070E+00,
     & 0.36622E+00, 0.39156E+00, 0.41718E+00, 0.44329E+00, 0.46967E+00,
     & 0.49755E+00, 0.52685E+00, 0.55763E+00, 0.58998E+00, 0.62398E+00,
     & 0.65970E+00, 0.69751E+00, 0.73794E+00, 0.78183E+00, 0.83100E+00,
     & 0.89040E+00, 0.96021E+00, 0.10389E+01, 0.11176E+01, 0.11963E+01,
     & 0.12751E+01, 0.13538E+01, 0.14325E+01, 0.15112E+01, 0.15899E+01,
     & 0.34021E+00, 0.33961E+00, 0.33902E+00, 0.33903E+00, 0.34109E+00,
     & 0.36620E+00, 0.39110E+00, 0.41628E+00, 0.44193E+00, 0.46782E+00,
     & 0.49517E+00, 0.52388E+00, 0.55400E+00, 0.58561E+00, 0.61879E+00,
     & 0.65361E+00, 0.69041E+00, 0.72975E+00, 0.77242E+00, 0.82024E+00,
     & 0.87807E+00, 0.94610E+00, 0.10229E+01, 0.10996E+01, 0.11764E+01,
     & 0.12531E+01, 0.13299E+01, 0.14066E+01, 0.14834E+01, 0.15601E+01/

      data ((f2grrl(i,j),j=1,30),i= 21, 30)/
     & 0.34062E+00, 0.34003E+00, 0.33943E+00, 0.33944E+00, 0.34148E+00,
     & 0.36616E+00, 0.39064E+00, 0.41538E+00, 0.44056E+00, 0.46596E+00,
     & 0.49278E+00, 0.52091E+00, 0.55037E+00, 0.58125E+00, 0.61362E+00,
     & 0.64755E+00, 0.68337E+00, 0.72163E+00, 0.76312E+00, 0.80962E+00,
     & 0.86591E+00, 0.93220E+00, 0.10070E+01, 0.10819E+01, 0.11567E+01,
     & 0.12315E+01, 0.13064E+01, 0.13812E+01, 0.14561E+01, 0.15309E+01,
     & 0.34093E+00, 0.34038E+00, 0.33983E+00, 0.33984E+00, 0.34186E+00,
     & 0.36612E+00, 0.39017E+00, 0.41446E+00, 0.43919E+00, 0.46410E+00,
     & 0.49039E+00, 0.51794E+00, 0.54675E+00, 0.57691E+00, 0.60848E+00,
     & 0.64153E+00, 0.67639E+00, 0.71359E+00, 0.75392E+00, 0.79912E+00,
     & 0.85391E+00, 0.91850E+00, 0.99146E+00, 0.10644E+01, 0.11374E+01,
     & 0.12104E+01, 0.12833E+01, 0.13563E+01, 0.14293E+01, 0.15022E+01,
     & 0.34131E+00, 0.34077E+00, 0.34022E+00, 0.34023E+00, 0.34222E+00,
     & 0.36606E+00, 0.38969E+00, 0.41354E+00, 0.43781E+00, 0.46223E+00,
     & 0.48800E+00, 0.51497E+00, 0.54313E+00, 0.57258E+00, 0.60336E+00,
     & 0.63555E+00, 0.66946E+00, 0.70561E+00, 0.74481E+00, 0.78875E+00,
     & 0.84207E+00, 0.90499E+00, 0.97613E+00, 0.10473E+01, 0.11184E+01,
     & 0.11895E+01, 0.12607E+01, 0.13318E+01, 0.14030E+01, 0.14741E+01,
     & 0.34168E+00, 0.34114E+00, 0.34059E+00, 0.34061E+00, 0.34257E+00,
     & 0.36599E+00, 0.38919E+00, 0.41261E+00, 0.43642E+00, 0.46035E+00,
     & 0.48560E+00, 0.51199E+00, 0.53952E+00, 0.56826E+00, 0.59826E+00,
     & 0.62959E+00, 0.66257E+00, 0.69771E+00, 0.73579E+00, 0.77850E+00,
     & 0.83038E+00, 0.89168E+00, 0.96103E+00, 0.10304E+01, 0.10997E+01,
     & 0.11691E+01, 0.12384E+01, 0.13078E+01, 0.13771E+01, 0.14465E+01,
     & 0.34197E+00, 0.34146E+00, 0.34095E+00, 0.34096E+00, 0.34290E+00,
     & 0.36591E+00, 0.38868E+00, 0.41166E+00, 0.43502E+00, 0.45846E+00,
     & 0.48319E+00, 0.50900E+00, 0.53590E+00, 0.56394E+00, 0.59317E+00,
     & 0.62367E+00, 0.65573E+00, 0.68987E+00, 0.72686E+00, 0.76836E+00,
     & 0.81884E+00, 0.87854E+00, 0.94614E+00, 0.10137E+01, 0.10813E+01,
     & 0.11489E+01, 0.12165E+01, 0.12842E+01, 0.13518E+01, 0.14194E+01,
     & 0.34228E+00, 0.34178E+00, 0.34129E+00, 0.34130E+00, 0.34321E+00,
     & 0.36581E+00, 0.38815E+00, 0.41069E+00, 0.43361E+00, 0.45656E+00,
     & 0.48076E+00, 0.50601E+00, 0.53228E+00, 0.55963E+00, 0.58810E+00,
     & 0.61777E+00, 0.64893E+00, 0.68209E+00, 0.71801E+00, 0.75833E+00,
     & 0.80743E+00, 0.86558E+00, 0.93147E+00, 0.99736E+00, 0.10633E+01,
     & 0.11291E+01, 0.11950E+01, 0.12609E+01, 0.13268E+01, 0.13927E+01,
     & 0.34253E+00, 0.34207E+00, 0.34161E+00, 0.34162E+00, 0.34351E+00,
     & 0.36569E+00, 0.38761E+00, 0.40971E+00, 0.43217E+00, 0.45464E+00,
     & 0.47833E+00, 0.50301E+00, 0.52865E+00, 0.55531E+00, 0.58304E+00,
     & 0.61189E+00, 0.64217E+00, 0.67437E+00, 0.70924E+00, 0.74840E+00,
     & 0.79616E+00, 0.85278E+00, 0.91700E+00, 0.98122E+00, 0.10454E+01,
     & 0.11097E+01, 0.11739E+01, 0.12381E+01, 0.13023E+01, 0.13665E+01,
     & 0.34275E+00, 0.34233E+00, 0.34190E+00, 0.34191E+00, 0.34378E+00,
     & 0.36554E+00, 0.38704E+00, 0.40871E+00, 0.43072E+00, 0.45270E+00,
     & 0.47587E+00, 0.49999E+00, 0.52501E+00, 0.55100E+00, 0.57798E+00,
     & 0.60604E+00, 0.63545E+00, 0.66670E+00, 0.70054E+00, 0.73856E+00,
     & 0.78501E+00, 0.84014E+00, 0.90272E+00, 0.96530E+00, 0.10279E+01,
     & 0.10905E+01, 0.11530E+01, 0.12156E+01, 0.12782E+01, 0.13408E+01,
     & 0.34301E+00, 0.34259E+00, 0.34217E+00, 0.34218E+00, 0.34403E+00,
     & 0.36538E+00, 0.38645E+00, 0.40769E+00, 0.42925E+00, 0.45074E+00,
     & 0.47340E+00, 0.49695E+00, 0.52137E+00, 0.54668E+00, 0.57293E+00,
     & 0.60020E+00, 0.62875E+00, 0.65908E+00, 0.69191E+00, 0.72882E+00,
     & 0.77397E+00, 0.82765E+00, 0.88863E+00, 0.94961E+00, 0.10106E+01,
     & 0.10716E+01, 0.11325E+01, 0.11935E+01, 0.12545E+01, 0.13155E+01,
     & 0.34319E+00, 0.34280E+00, 0.34241E+00, 0.34242E+00, 0.34425E+00,
     & 0.36518E+00, 0.38584E+00, 0.40664E+00, 0.42776E+00, 0.44875E+00,
     & 0.47090E+00, 0.49390E+00, 0.51771E+00, 0.54235E+00, 0.56788E+00,
     & 0.59437E+00, 0.62208E+00, 0.65149E+00, 0.68334E+00, 0.71916E+00,
     & 0.76306E+00, 0.81530E+00, 0.87471E+00, 0.93412E+00, 0.99352E+00,
     & 0.10529E+01, 0.11123E+01, 0.11717E+01, 0.12312E+01, 0.12906E+01/

      data ((f2grrl(i,j),j=1,30),i= 31, 40)/
     & 0.34333E+00, 0.34297E+00, 0.34262E+00, 0.34263E+00, 0.34444E+00,
     & 0.36496E+00, 0.38520E+00, 0.40557E+00, 0.42623E+00, 0.44674E+00,
     & 0.46838E+00, 0.49083E+00, 0.51403E+00, 0.53802E+00, 0.56283E+00,
     & 0.58855E+00, 0.61544E+00, 0.64395E+00, 0.67483E+00, 0.70958E+00,
     & 0.75224E+00, 0.80309E+00, 0.86095E+00, 0.91882E+00, 0.97669E+00,
     & 0.10346E+01, 0.10924E+01, 0.11503E+01, 0.12082E+01, 0.12660E+01,
     & 0.34340E+00, 0.34310E+00, 0.34280E+00, 0.34281E+00, 0.34460E+00,
     & 0.36470E+00, 0.38452E+00, 0.40446E+00, 0.42468E+00, 0.44470E+00,
     & 0.46583E+00, 0.48773E+00, 0.51033E+00, 0.53367E+00, 0.55778E+00,
     & 0.58274E+00, 0.60881E+00, 0.63644E+00, 0.66637E+00, 0.70008E+00,
     & 0.74152E+00, 0.79100E+00, 0.84736E+00, 0.90372E+00, 0.96008E+00,
     & 0.10164E+01, 0.10728E+01, 0.11292E+01, 0.11855E+01, 0.12419E+01,
     & 0.34354E+00, 0.34324E+00, 0.34294E+00, 0.34295E+00, 0.34472E+00,
     & 0.36441E+00, 0.38381E+00, 0.40332E+00, 0.42309E+00, 0.44263E+00,
     & 0.46325E+00, 0.48460E+00, 0.50661E+00, 0.52930E+00, 0.55271E+00,
     & 0.57693E+00, 0.60219E+00, 0.62896E+00, 0.65796E+00, 0.69064E+00,
     & 0.73089E+00, 0.77902E+00, 0.83391E+00, 0.88879E+00, 0.94367E+00,
     & 0.99855E+00, 0.10534E+01, 0.11083E+01, 0.11632E+01, 0.12181E+01,
     & 0.34357E+00, 0.34330E+00, 0.34304E+00, 0.34305E+00, 0.34481E+00,
     & 0.36408E+00, 0.38306E+00, 0.40214E+00, 0.42147E+00, 0.44052E+00,
     & 0.46064E+00, 0.48144E+00, 0.50286E+00, 0.52491E+00, 0.54764E+00,
     & 0.57111E+00, 0.59559E+00, 0.62151E+00, 0.64959E+00, 0.68126E+00,
     & 0.72035E+00, 0.76716E+00, 0.82059E+00, 0.87402E+00, 0.92746E+00,
     & 0.98089E+00, 0.10343E+01, 0.10877E+01, 0.11412E+01, 0.11946E+01,
     & 0.34353E+00, 0.34331E+00, 0.34310E+00, 0.34311E+00, 0.34485E+00,
     & 0.36371E+00, 0.38227E+00, 0.40092E+00, 0.41981E+00, 0.43837E+00,
     & 0.45799E+00, 0.47825E+00, 0.49907E+00, 0.52049E+00, 0.54254E+00,
     & 0.56529E+00, 0.58899E+00, 0.61407E+00, 0.64125E+00, 0.67193E+00,
     & 0.70989E+00, 0.75540E+00, 0.80741E+00, 0.85942E+00, 0.91143E+00,
     & 0.96344E+00, 0.10154E+01, 0.10675E+01, 0.11195E+01, 0.11715E+01,
     & 0.34353E+00, 0.34332E+00, 0.34311E+00, 0.34312E+00, 0.34485E+00,
     & 0.36329E+00, 0.38144E+00, 0.39966E+00, 0.41810E+00, 0.43618E+00,
     & 0.45529E+00, 0.47501E+00, 0.49526E+00, 0.51605E+00, 0.53742E+00,
     & 0.55945E+00, 0.58238E+00, 0.60665E+00, 0.63294E+00, 0.66266E+00,
     & 0.69949E+00, 0.74373E+00, 0.79434E+00, 0.84495E+00, 0.89556E+00,
     & 0.94617E+00, 0.99678E+00, 0.10474E+01, 0.10980E+01, 0.11486E+01,
     & 0.34336E+00, 0.34322E+00, 0.34307E+00, 0.34308E+00, 0.34479E+00,
     & 0.36283E+00, 0.38055E+00, 0.39835E+00, 0.41634E+00, 0.43394E+00,
     & 0.45255E+00, 0.47173E+00, 0.49140E+00, 0.51157E+00, 0.53228E+00,
     & 0.55360E+00, 0.57578E+00, 0.59924E+00, 0.62466E+00, 0.65342E+00,
     & 0.68915E+00, 0.73215E+00, 0.78139E+00, 0.83063E+00, 0.87987E+00,
     & 0.92910E+00, 0.97834E+00, 0.10276E+01, 0.10768E+01, 0.11261E+01,
     & 0.34319E+00, 0.34308E+00, 0.34298E+00, 0.34298E+00, 0.34469E+00,
     & 0.36231E+00, 0.37962E+00, 0.39698E+00, 0.41454E+00, 0.43164E+00,
     & 0.44976E+00, 0.46841E+00, 0.48750E+00, 0.50706E+00, 0.52710E+00,
     & 0.54773E+00, 0.56916E+00, 0.59182E+00, 0.61639E+00, 0.64422E+00,
     & 0.67887E+00, 0.72064E+00, 0.76853E+00, 0.81642E+00, 0.86431E+00,
     & 0.91220E+00, 0.96009E+00, 0.10080E+01, 0.10559E+01, 0.11038E+01,
     & 0.34300E+00, 0.34291E+00, 0.34282E+00, 0.34283E+00, 0.34452E+00,
     & 0.36173E+00, 0.37862E+00, 0.39556E+00, 0.41267E+00, 0.42930E+00,
     & 0.44691E+00, 0.46503E+00, 0.48355E+00, 0.50250E+00, 0.52189E+00,
     & 0.54183E+00, 0.56253E+00, 0.58441E+00, 0.60813E+00, 0.63504E+00,
     & 0.66863E+00, 0.70920E+00, 0.75577E+00, 0.80233E+00, 0.84890E+00,
     & 0.89546E+00, 0.94203E+00, 0.98860E+00, 0.10352E+01, 0.10817E+01,
     & 0.34268E+00, 0.34265E+00, 0.34261E+00, 0.34261E+00, 0.34429E+00,
     & 0.36109E+00, 0.37757E+00, 0.39408E+00, 0.41075E+00, 0.42688E+00,
     & 0.44401E+00, 0.46160E+00, 0.47955E+00, 0.49789E+00, 0.51664E+00,
     & 0.53590E+00, 0.55587E+00, 0.57698E+00, 0.59988E+00, 0.62589E+00,
     & 0.65844E+00, 0.69782E+00, 0.74308E+00, 0.78834E+00, 0.83360E+00,
     & 0.87886E+00, 0.92412E+00, 0.96938E+00, 0.10146E+01, 0.10599E+01/

      data ((f2grrl(i,j),j=1,30),i= 41, 50)/
     & 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34400E+00,
     & 0.36038E+00, 0.37645E+00, 0.39253E+00, 0.40876E+00, 0.42441E+00,
     & 0.44104E+00, 0.45810E+00, 0.47549E+00, 0.49323E+00, 0.51135E+00,
     & 0.52993E+00, 0.54919E+00, 0.56954E+00, 0.59163E+00, 0.61675E+00,
     & 0.64827E+00, 0.68649E+00, 0.73047E+00, 0.77445E+00, 0.81843E+00,
     & 0.86240E+00, 0.90638E+00, 0.95036E+00, 0.99434E+00, 0.10383E+01,
     & 0.34190E+00, 0.34194E+00, 0.34197E+00, 0.34197E+00, 0.34364E+00,
     & 0.35960E+00, 0.37525E+00, 0.39091E+00, 0.40669E+00, 0.42186E+00,
     & 0.43800E+00, 0.45454E+00, 0.47137E+00, 0.48851E+00, 0.50600E+00,
     & 0.52391E+00, 0.54247E+00, 0.56207E+00, 0.58337E+00, 0.60761E+00,
     & 0.63813E+00, 0.67520E+00, 0.71792E+00, 0.76064E+00, 0.80335E+00,
     & 0.84607E+00, 0.88878E+00, 0.93150E+00, 0.97422E+00, 0.10169E+01,
     & 0.34136E+00, 0.34145E+00, 0.34153E+00, 0.34154E+00, 0.34319E+00,
     & 0.35874E+00, 0.37398E+00, 0.38921E+00, 0.40456E+00, 0.41924E+00,
     & 0.43489E+00, 0.45090E+00, 0.46718E+00, 0.48373E+00, 0.50059E+00,
     & 0.51785E+00, 0.53571E+00, 0.55458E+00, 0.57509E+00, 0.59848E+00,
     & 0.62800E+00, 0.66395E+00, 0.70542E+00, 0.74689E+00, 0.78837E+00,
     & 0.82984E+00, 0.87131E+00, 0.91278E+00, 0.95425E+00, 0.99573E+00,
     & 0.34077E+00, 0.34089E+00, 0.34102E+00, 0.34102E+00, 0.34267E+00,
     & 0.35781E+00, 0.37263E+00, 0.38743E+00, 0.40234E+00, 0.41654E+00,
     & 0.43170E+00, 0.44719E+00, 0.46292E+00, 0.47888E+00, 0.49513E+00,
     & 0.51173E+00, 0.52891E+00, 0.54706E+00, 0.56679E+00, 0.58933E+00,
     & 0.61788E+00, 0.65272E+00, 0.69297E+00, 0.73322E+00, 0.77347E+00,
     & 0.81372E+00, 0.85396E+00, 0.89421E+00, 0.93446E+00, 0.97471E+00,
     & 0.34006E+00, 0.34024E+00, 0.34041E+00, 0.34041E+00, 0.34205E+00,
     & 0.35678E+00, 0.37118E+00, 0.38556E+00, 0.40003E+00, 0.41375E+00,
     & 0.42842E+00, 0.44339E+00, 0.45857E+00, 0.47396E+00, 0.48959E+00,
     & 0.50556E+00, 0.52206E+00, 0.53949E+00, 0.55846E+00, 0.58017E+00,
     & 0.60776E+00, 0.64150E+00, 0.68054E+00, 0.71958E+00, 0.75862E+00,
     & 0.79767E+00, 0.83671E+00, 0.87575E+00, 0.91479E+00, 0.95383E+00,
     & 0.33926E+00, 0.33948E+00, 0.33971E+00, 0.33971E+00, 0.34134E+00,
     & 0.35565E+00, 0.36965E+00, 0.38360E+00, 0.39763E+00, 0.41086E+00,
     & 0.42505E+00, 0.43951E+00, 0.45414E+00, 0.46895E+00, 0.48398E+00,
     & 0.49931E+00, 0.51515E+00, 0.53187E+00, 0.55009E+00, 0.57099E+00,
     & 0.59763E+00, 0.63029E+00, 0.66815E+00, 0.70600E+00, 0.74385E+00,
     & 0.78170E+00, 0.81955E+00, 0.85740E+00, 0.89525E+00, 0.93310E+00,
     & 0.33835E+00, 0.33862E+00, 0.33890E+00, 0.33890E+00, 0.34053E+00,
     & 0.35443E+00, 0.36801E+00, 0.38154E+00, 0.39513E+00, 0.40788E+00,
     & 0.42158E+00, 0.43553E+00, 0.44962E+00, 0.46386E+00, 0.47829E+00,
     & 0.49299E+00, 0.50817E+00, 0.52420E+00, 0.54168E+00, 0.56178E+00,
     & 0.58748E+00, 0.61909E+00, 0.65576E+00, 0.69244E+00, 0.72911E+00,
     & 0.76579E+00, 0.80246E+00, 0.83914E+00, 0.87582E+00, 0.91249E+00,
     & 0.33736E+00, 0.33767E+00, 0.33799E+00, 0.33799E+00, 0.33961E+00,
     & 0.35310E+00, 0.36626E+00, 0.37937E+00, 0.39252E+00, 0.40479E+00,
     & 0.41801E+00, 0.43145E+00, 0.44500E+00, 0.45868E+00, 0.47251E+00,
     & 0.48659E+00, 0.50112E+00, 0.51647E+00, 0.53322E+00, 0.55252E+00,
     & 0.57731E+00, 0.60787E+00, 0.64338E+00, 0.67890E+00, 0.71442E+00,
     & 0.74993E+00, 0.78545E+00, 0.82097E+00, 0.85649E+00, 0.89200E+00,
     & 0.33623E+00, 0.33659E+00, 0.33696E+00, 0.33696E+00, 0.33858E+00,
     & 0.35165E+00, 0.36440E+00, 0.37708E+00, 0.38980E+00, 0.40160E+00,
     & 0.41433E+00, 0.42726E+00, 0.44028E+00, 0.45339E+00, 0.46664E+00,
     & 0.48011E+00, 0.49400E+00, 0.50867E+00, 0.52471E+00, 0.54323E+00,
     & 0.56711E+00, 0.59663E+00, 0.63100E+00, 0.66537E+00, 0.69974E+00,
     & 0.73411E+00, 0.76849E+00, 0.80286E+00, 0.83723E+00, 0.87160E+00,
     & 0.33500E+00, 0.33540E+00, 0.33580E+00, 0.33581E+00, 0.33742E+00,
     & 0.35008E+00, 0.36242E+00, 0.37468E+00, 0.38696E+00, 0.39828E+00,
     & 0.41053E+00, 0.42296E+00, 0.43545E+00, 0.44800E+00, 0.46067E+00,
     & 0.47353E+00, 0.48679E+00, 0.50080E+00, 0.51612E+00, 0.53388E+00,
     & 0.55686E+00, 0.58537E+00, 0.61861E+00, 0.65185E+00, 0.68509E+00,
     & 0.71833E+00, 0.75157E+00, 0.78481E+00, 0.81805E+00, 0.85129E+00/

      data ((f2grrl(i,j),j=1,30),i= 51, 60)/
     & 0.33361E+00, 0.33407E+00, 0.33452E+00, 0.33452E+00, 0.33613E+00,
     & 0.34838E+00, 0.36031E+00, 0.37215E+00, 0.38400E+00, 0.39484E+00,
     & 0.40661E+00, 0.41854E+00, 0.43050E+00, 0.44250E+00, 0.45459E+00,
     & 0.46686E+00, 0.47949E+00, 0.49284E+00, 0.50747E+00, 0.52447E+00,
     & 0.54657E+00, 0.57407E+00, 0.60619E+00, 0.63832E+00, 0.67044E+00,
     & 0.70257E+00, 0.73469E+00, 0.76682E+00, 0.79894E+00, 0.83107E+00,
     & 0.33206E+00, 0.33258E+00, 0.33310E+00, 0.33310E+00, 0.33471E+00,
     & 0.34655E+00, 0.35807E+00, 0.36949E+00, 0.38090E+00, 0.39126E+00,
     & 0.40256E+00, 0.41399E+00, 0.42543E+00, 0.43688E+00, 0.44840E+00,
     & 0.46008E+00, 0.47209E+00, 0.48480E+00, 0.49875E+00, 0.51499E+00,
     & 0.53623E+00, 0.56273E+00, 0.59376E+00, 0.62478E+00, 0.65580E+00,
     & 0.68683E+00, 0.71785E+00, 0.74887E+00, 0.77990E+00, 0.81092E+00,
     & 0.33041E+00, 0.33097E+00, 0.33153E+00, 0.33154E+00, 0.33314E+00,
     & 0.34457E+00, 0.35568E+00, 0.36668E+00, 0.37766E+00, 0.38755E+00,
     & 0.39838E+00, 0.40931E+00, 0.42022E+00, 0.43114E+00, 0.44209E+00,
     & 0.45318E+00, 0.46459E+00, 0.47666E+00, 0.48993E+00, 0.50544E+00,
     & 0.52583E+00, 0.55135E+00, 0.58128E+00, 0.61121E+00, 0.64114E+00,
     & 0.67107E+00, 0.70101E+00, 0.73094E+00, 0.76087E+00, 0.79080E+00,
     & 0.32856E+00, 0.32919E+00, 0.32981E+00, 0.32981E+00, 0.33142E+00,
     & 0.34244E+00, 0.35315E+00, 0.36373E+00, 0.37428E+00, 0.38370E+00,
     & 0.39405E+00, 0.40449E+00, 0.41489E+00, 0.42526E+00, 0.43566E+00,
     & 0.44617E+00, 0.45698E+00, 0.46842E+00, 0.48103E+00, 0.49582E+00,
     & 0.51536E+00, 0.53991E+00, 0.56876E+00, 0.59762E+00, 0.62647E+00,
     & 0.65533E+00, 0.68418E+00, 0.71303E+00, 0.74189E+00, 0.77074E+00,
     & 0.32663E+00, 0.32728E+00, 0.32793E+00, 0.32793E+00, 0.32953E+00,
     & 0.34015E+00, 0.35045E+00, 0.36061E+00, 0.37074E+00, 0.37969E+00,
     & 0.38957E+00, 0.39952E+00, 0.40941E+00, 0.41925E+00, 0.42909E+00,
     & 0.43904E+00, 0.44925E+00, 0.46008E+00, 0.47203E+00, 0.48611E+00,
     & 0.50482E+00, 0.52841E+00, 0.55620E+00, 0.58398E+00, 0.61177E+00,
     & 0.63956E+00, 0.66735E+00, 0.69514E+00, 0.72293E+00, 0.75072E+00,
     & 0.32444E+00, 0.32516E+00, 0.32588E+00, 0.32587E+00, 0.32748E+00,
     & 0.33769E+00, 0.34759E+00, 0.35734E+00, 0.36704E+00, 0.37552E+00,
     & 0.38494E+00, 0.39440E+00, 0.40378E+00, 0.41310E+00, 0.42239E+00,
     & 0.43178E+00, 0.44141E+00, 0.45163E+00, 0.46294E+00, 0.47631E+00,
     & 0.49420E+00, 0.51684E+00, 0.54358E+00, 0.57032E+00, 0.59705E+00,
     & 0.62379E+00, 0.65052E+00, 0.67726E+00, 0.70400E+00, 0.73073E+00,
     & 0.32213E+00, 0.32289E+00, 0.32364E+00, 0.32364E+00, 0.32524E+00,
     & 0.33506E+00, 0.34456E+00, 0.35389E+00, 0.36317E+00, 0.37119E+00,
     & 0.38014E+00, 0.38912E+00, 0.39800E+00, 0.40679E+00, 0.41555E+00,
     & 0.42438E+00, 0.43344E+00, 0.44306E+00, 0.45373E+00, 0.46642E+00,
     & 0.48349E+00, 0.50521E+00, 0.53090E+00, 0.55660E+00, 0.58229E+00,
     & 0.60799E+00, 0.63369E+00, 0.65938E+00, 0.68508E+00, 0.71077E+00,
     & 0.31955E+00, 0.32038E+00, 0.32122E+00, 0.32122E+00, 0.32282E+00,
     & 0.33224E+00, 0.34134E+00, 0.35027E+00, 0.35912E+00, 0.36668E+00,
     & 0.37518E+00, 0.38368E+00, 0.39206E+00, 0.40034E+00, 0.40856E+00,
     & 0.41684E+00, 0.42534E+00, 0.43437E+00, 0.44442E+00, 0.45643E+00,
     & 0.47271E+00, 0.49350E+00, 0.51817E+00, 0.54284E+00, 0.56750E+00,
     & 0.59217E+00, 0.61684E+00, 0.64151E+00, 0.66617E+00, 0.69084E+00,
     & 0.31685E+00, 0.31772E+00, 0.31860E+00, 0.31860E+00, 0.32020E+00,
     & 0.32922E+00, 0.33794E+00, 0.34646E+00, 0.35489E+00, 0.36200E+00,
     & 0.37004E+00, 0.37806E+00, 0.38595E+00, 0.39372E+00, 0.40143E+00,
     & 0.40917E+00, 0.41711E+00, 0.42556E+00, 0.43500E+00, 0.44634E+00,
     & 0.46183E+00, 0.48172E+00, 0.50537E+00, 0.52902E+00, 0.55267E+00,
     & 0.57632E+00, 0.59997E+00, 0.62362E+00, 0.64727E+00, 0.67092E+00,
     & 0.31392E+00, 0.31485E+00, 0.31578E+00, 0.31577E+00, 0.31738E+00,
     & 0.32601E+00, 0.33434E+00, 0.34246E+00, 0.35047E+00, 0.35713E+00,
     & 0.36472E+00, 0.37228E+00, 0.37968E+00, 0.38695E+00, 0.39413E+00,
     & 0.40135E+00, 0.40874E+00, 0.41662E+00, 0.42546E+00, 0.43615E+00,
     & 0.45087E+00, 0.46986E+00, 0.49250E+00, 0.51515E+00, 0.53780E+00,
     & 0.56044E+00, 0.58309E+00, 0.60574E+00, 0.62839E+00, 0.65103E+00/

      data ((f2grrl(i,j),j=1,30),i= 61, 70)/
     & 0.31078E+00, 0.31176E+00, 0.31274E+00, 0.31274E+00, 0.31434E+00,
     & 0.32260E+00, 0.33053E+00, 0.33826E+00, 0.34586E+00, 0.35208E+00,
     & 0.35922E+00, 0.36631E+00, 0.37323E+00, 0.38000E+00, 0.38668E+00,
     & 0.39337E+00, 0.40023E+00, 0.40756E+00, 0.41581E+00, 0.42585E+00,
     & 0.43982E+00, 0.45792E+00, 0.47958E+00, 0.50123E+00, 0.52289E+00,
     & 0.54454E+00, 0.56620E+00, 0.58786E+00, 0.60951E+00, 0.63117E+00,
     & 0.30745E+00, 0.30847E+00, 0.30949E+00, 0.30948E+00, 0.31109E+00,
     & 0.31896E+00, 0.32652E+00, 0.33386E+00, 0.34106E+00, 0.34683E+00,
     & 0.35353E+00, 0.36017E+00, 0.36661E+00, 0.37289E+00, 0.37907E+00,
     & 0.38526E+00, 0.39159E+00, 0.39837E+00, 0.40605E+00, 0.41546E+00,
     & 0.42867E+00, 0.44591E+00, 0.46659E+00, 0.48727E+00, 0.50795E+00,
     & 0.52863E+00, 0.54931E+00, 0.56999E+00, 0.59067E+00, 0.61135E+00,
     & 0.30383E+00, 0.30492E+00, 0.30600E+00, 0.30600E+00, 0.30761E+00,
     & 0.31511E+00, 0.32230E+00, 0.32925E+00, 0.33604E+00, 0.34139E+00,
     & 0.34765E+00, 0.35383E+00, 0.35981E+00, 0.36562E+00, 0.37131E+00,
     & 0.37698E+00, 0.38280E+00, 0.38905E+00, 0.39617E+00, 0.40496E+00,
     & 0.41744E+00, 0.43382E+00, 0.45354E+00, 0.47326E+00, 0.49298E+00,
     & 0.51270E+00, 0.53242E+00, 0.55214E+00, 0.57185E+00, 0.59157E+00,
     & 0.30004E+00, 0.30116E+00, 0.30229E+00, 0.30228E+00, 0.30389E+00,
     & 0.31104E+00, 0.31786E+00, 0.32442E+00, 0.33083E+00, 0.33575E+00,
     & 0.34158E+00, 0.34732E+00, 0.35283E+00, 0.35817E+00, 0.36338E+00,
     & 0.36857E+00, 0.37388E+00, 0.37961E+00, 0.38618E+00, 0.39436E+00,
     & 0.40613E+00, 0.42167E+00, 0.44044E+00, 0.45921E+00, 0.47799E+00,
     & 0.49676E+00, 0.51553E+00, 0.53430E+00, 0.55308E+00, 0.57185E+00,
     & 0.29599E+00, 0.29716E+00, 0.29833E+00, 0.29833E+00, 0.29994E+00,
     & 0.30674E+00, 0.31320E+00, 0.31939E+00, 0.32540E+00, 0.32991E+00,
     & 0.33532E+00, 0.34061E+00, 0.34568E+00, 0.35055E+00, 0.35529E+00,
     & 0.36000E+00, 0.36483E+00, 0.37005E+00, 0.37608E+00, 0.38368E+00,
     & 0.39474E+00, 0.40946E+00, 0.42730E+00, 0.44514E+00, 0.46298E+00,
     & 0.48082E+00, 0.49866E+00, 0.51650E+00, 0.53434E+00, 0.55218E+00,
     & 0.29169E+00, 0.29291E+00, 0.29414E+00, 0.29413E+00, 0.29575E+00,
     & 0.30220E+00, 0.30832E+00, 0.31414E+00, 0.31976E+00, 0.32386E+00,
     & 0.32886E+00, 0.33372E+00, 0.33835E+00, 0.34277E+00, 0.34705E+00,
     & 0.35129E+00, 0.35564E+00, 0.36037E+00, 0.36588E+00, 0.37291E+00,
     & 0.38329E+00, 0.39719E+00, 0.41412E+00, 0.43104E+00, 0.44797E+00,
     & 0.46489E+00, 0.48182E+00, 0.49875E+00, 0.51567E+00, 0.53260E+00,
     & 0.28714E+00, 0.28842E+00, 0.28970E+00, 0.28969E+00, 0.29132E+00,
     & 0.29744E+00, 0.30321E+00, 0.30867E+00, 0.31392E+00, 0.31762E+00,
     & 0.32221E+00, 0.32665E+00, 0.33084E+00, 0.33482E+00, 0.33865E+00,
     & 0.34244E+00, 0.34633E+00, 0.35058E+00, 0.35559E+00, 0.36206E+00,
     & 0.37177E+00, 0.38488E+00, 0.40091E+00, 0.41694E+00, 0.43297E+00,
     & 0.44900E+00, 0.46503E+00, 0.48106E+00, 0.49710E+00, 0.51313E+00,
     & 0.28236E+00, 0.28369E+00, 0.28502E+00, 0.28501E+00, 0.28664E+00,
     & 0.29244E+00, 0.29788E+00, 0.30298E+00, 0.30786E+00, 0.31118E+00,
     & 0.31537E+00, 0.31940E+00, 0.32316E+00, 0.32671E+00, 0.33011E+00,
     & 0.33347E+00, 0.33691E+00, 0.34070E+00, 0.34521E+00, 0.35114E+00,
     & 0.36020E+00, 0.37254E+00, 0.38769E+00, 0.40285E+00, 0.41800E+00,
     & 0.43315E+00, 0.44831E+00, 0.46346E+00, 0.47861E+00, 0.49377E+00,
     & 0.27736E+00, 0.27873E+00, 0.28010E+00, 0.28009E+00, 0.28172E+00,
     & 0.28721E+00, 0.29233E+00, 0.29709E+00, 0.30161E+00, 0.30455E+00,
     & 0.30834E+00, 0.31197E+00, 0.31533E+00, 0.31846E+00, 0.32144E+00,
     & 0.32437E+00, 0.32738E+00, 0.33072E+00, 0.33476E+00, 0.34017E+00,
     & 0.34860E+00, 0.36018E+00, 0.37448E+00, 0.38878E+00, 0.40308E+00,
     & 0.41737E+00, 0.43167E+00, 0.44597E+00, 0.46027E+00, 0.47456E+00,
     & 0.27210E+00, 0.27352E+00, 0.27494E+00, 0.27493E+00, 0.27657E+00,
     & 0.28176E+00, 0.28656E+00, 0.29098E+00, 0.29515E+00, 0.29773E+00,
     & 0.30114E+00, 0.30437E+00, 0.30733E+00, 0.31006E+00, 0.31263E+00,
     & 0.31515E+00, 0.31775E+00, 0.32066E+00, 0.32425E+00, 0.32916E+00,
     & 0.33697E+00, 0.34782E+00, 0.36129E+00, 0.37475E+00, 0.38821E+00,
     & 0.40167E+00, 0.41513E+00, 0.42859E+00, 0.44205E+00, 0.45551E+00/

      data ((f2grrl(i,j),j=1,30),i= 71, 80)/
     & 0.26663E+00, 0.26809E+00, 0.26954E+00, 0.26953E+00, 0.27118E+00,
     & 0.27609E+00, 0.28059E+00, 0.28468E+00, 0.28850E+00, 0.29073E+00,
     & 0.29377E+00, 0.29662E+00, 0.29919E+00, 0.30153E+00, 0.30371E+00,
     & 0.30584E+00, 0.30803E+00, 0.31054E+00, 0.31369E+00, 0.31812E+00,
     & 0.32534E+00, 0.33548E+00, 0.34814E+00, 0.36079E+00, 0.37344E+00,
     & 0.38609E+00, 0.39874E+00, 0.41139E+00, 0.42404E+00, 0.43669E+00,
     & 0.26092E+00, 0.26243E+00, 0.26393E+00, 0.26392E+00, 0.26558E+00,
     & 0.27021E+00, 0.27442E+00, 0.27820E+00, 0.28168E+00, 0.28356E+00,
     & 0.28624E+00, 0.28872E+00, 0.29092E+00, 0.29288E+00, 0.29469E+00,
     & 0.29644E+00, 0.29825E+00, 0.30037E+00, 0.30311E+00, 0.30707E+00,
     & 0.31372E+00, 0.32318E+00, 0.33504E+00, 0.34691E+00, 0.35877E+00,
     & 0.37063E+00, 0.38249E+00, 0.39435E+00, 0.40622E+00, 0.41808E+00,
     & 0.25502E+00, 0.25657E+00, 0.25811E+00, 0.25810E+00, 0.25976E+00,
     & 0.26414E+00, 0.26807E+00, 0.27153E+00, 0.27469E+00, 0.27623E+00,
     & 0.27856E+00, 0.28068E+00, 0.28252E+00, 0.28413E+00, 0.28557E+00,
     & 0.28697E+00, 0.28842E+00, 0.29016E+00, 0.29251E+00, 0.29603E+00,
     & 0.30214E+00, 0.31093E+00, 0.32204E+00, 0.33314E+00, 0.34424E+00,
     & 0.35534E+00, 0.36644E+00, 0.37754E+00, 0.38864E+00, 0.39974E+00,
     & 0.24892E+00, 0.25051E+00, 0.25211E+00, 0.25209E+00, 0.25376E+00,
     & 0.25789E+00, 0.26155E+00, 0.26470E+00, 0.26754E+00, 0.26877E+00,
     & 0.27076E+00, 0.27253E+00, 0.27402E+00, 0.27529E+00, 0.27639E+00,
     & 0.27744E+00, 0.27856E+00, 0.27995E+00, 0.28192E+00, 0.28503E+00,
     & 0.29061E+00, 0.29877E+00, 0.30913E+00, 0.31950E+00, 0.32986E+00,
     & 0.34022E+00, 0.35059E+00, 0.36095E+00, 0.37131E+00, 0.38168E+00,
     & 0.24270E+00, 0.24432E+00, 0.24593E+00, 0.24592E+00, 0.24759E+00,
     & 0.25149E+00, 0.25488E+00, 0.25774E+00, 0.26026E+00, 0.26118E+00,
     & 0.26284E+00, 0.26428E+00, 0.26544E+00, 0.26637E+00, 0.26716E+00,
     & 0.26789E+00, 0.26868E+00, 0.26974E+00, 0.27136E+00, 0.27407E+00,
     & 0.27915E+00, 0.28670E+00, 0.29636E+00, 0.30601E+00, 0.31567E+00,
     & 0.32533E+00, 0.33498E+00, 0.34464E+00, 0.35430E+00, 0.36395E+00,
     & 0.23632E+00, 0.23797E+00, 0.23962E+00, 0.23961E+00, 0.24128E+00,
     & 0.24495E+00, 0.24808E+00, 0.25065E+00, 0.25286E+00, 0.25349E+00,
     & 0.25483E+00, 0.25595E+00, 0.25679E+00, 0.25742E+00, 0.25789E+00,
     & 0.25832E+00, 0.25881E+00, 0.25956E+00, 0.26085E+00, 0.26319E+00,
     & 0.26780E+00, 0.27476E+00, 0.28374E+00, 0.29271E+00, 0.30169E+00,
     & 0.31066E+00, 0.31964E+00, 0.32862E+00, 0.33759E+00, 0.34657E+00,
     & 0.22983E+00, 0.23151E+00, 0.23319E+00, 0.23318E+00, 0.23486E+00,
     & 0.23831E+00, 0.24118E+00, 0.24346E+00, 0.24537E+00, 0.24572E+00,
     & 0.24675E+00, 0.24756E+00, 0.24810E+00, 0.24843E+00, 0.24861E+00,
     & 0.24876E+00, 0.24897E+00, 0.24943E+00, 0.25042E+00, 0.25241E+00,
     & 0.25656E+00, 0.26297E+00, 0.27129E+00, 0.27962E+00, 0.28794E+00,
     & 0.29627E+00, 0.30459E+00, 0.31292E+00, 0.32124E+00, 0.32957E+00,
     & 0.22329E+00, 0.22499E+00, 0.22670E+00, 0.22669E+00, 0.22836E+00,
     & 0.23159E+00, 0.23421E+00, 0.23620E+00, 0.23782E+00, 0.23789E+00,
     & 0.23862E+00, 0.23914E+00, 0.23939E+00, 0.23943E+00, 0.23935E+00,
     & 0.23923E+00, 0.23918E+00, 0.23937E+00, 0.24007E+00, 0.24173E+00,
     & 0.24547E+00, 0.25134E+00, 0.25904E+00, 0.26674E+00, 0.27445E+00,
     & 0.28215E+00, 0.28985E+00, 0.29755E+00, 0.30526E+00, 0.31296E+00,
     & 0.21672E+00, 0.21844E+00, 0.22017E+00, 0.22015E+00, 0.22183E+00,
     & 0.22484E+00, 0.22719E+00, 0.22890E+00, 0.23022E+00, 0.23003E+00,
     & 0.23047E+00, 0.23070E+00, 0.23067E+00, 0.23045E+00, 0.23011E+00,
     & 0.22975E+00, 0.22946E+00, 0.22940E+00, 0.22984E+00, 0.23120E+00,
     & 0.23453E+00, 0.23990E+00, 0.24701E+00, 0.25412E+00, 0.26122E+00,
     & 0.26833E+00, 0.27544E+00, 0.28255E+00, 0.28966E+00, 0.29676E+00,
     & 0.21017E+00, 0.21191E+00, 0.21365E+00, 0.21363E+00, 0.21530E+00,
     & 0.21808E+00, 0.22017E+00, 0.22159E+00, 0.22261E+00, 0.22216E+00,
     & 0.22232E+00, 0.22227E+00, 0.22198E+00, 0.22151E+00, 0.22094E+00,
     & 0.22034E+00, 0.21982E+00, 0.21955E+00, 0.21974E+00, 0.22081E+00,
     & 0.22377E+00, 0.22866E+00, 0.23520E+00, 0.24174E+00, 0.24828E+00,
     & 0.25482E+00, 0.26136E+00, 0.26791E+00, 0.27445E+00, 0.28099E+00/

      data ((f2grrl(i,j),j=1,30),i= 81, 90)/
     & 0.20370E+00, 0.20544E+00, 0.20718E+00, 0.20717E+00, 0.20882E+00,
     & 0.21135E+00, 0.21317E+00, 0.21429E+00, 0.21502E+00, 0.21432E+00,
     & 0.21420E+00, 0.21388E+00, 0.21334E+00, 0.21263E+00, 0.21183E+00,
     & 0.21103E+00, 0.21030E+00, 0.20982E+00, 0.20978E+00, 0.21059E+00,
     & 0.21320E+00, 0.21763E+00, 0.22364E+00, 0.22964E+00, 0.23564E+00,
     & 0.24164E+00, 0.24764E+00, 0.25364E+00, 0.25964E+00, 0.26564E+00,
     & 0.19734E+00, 0.19909E+00, 0.20083E+00, 0.20081E+00, 0.20243E+00,
     & 0.20471E+00, 0.20623E+00, 0.20705E+00, 0.20747E+00, 0.20652E+00,
     & 0.20613E+00, 0.20555E+00, 0.20476E+00, 0.20383E+00, 0.20282E+00,
     & 0.20182E+00, 0.20090E+00, 0.20022E+00, 0.19998E+00, 0.20055E+00,
     & 0.20282E+00, 0.20683E+00, 0.21232E+00, 0.21781E+00, 0.22330E+00,
     & 0.22878E+00, 0.23427E+00, 0.23976E+00, 0.24525E+00, 0.25074E+00,
     & 0.19118E+00, 0.19290E+00, 0.19463E+00, 0.19462E+00, 0.19620E+00,
     & 0.19818E+00, 0.19939E+00, 0.19988E+00, 0.19999E+00, 0.19879E+00,
     & 0.19813E+00, 0.19729E+00, 0.19627E+00, 0.19513E+00, 0.19392E+00,
     & 0.19273E+00, 0.19164E+00, 0.19078E+00, 0.19035E+00, 0.19069E+00,
     & 0.19265E+00, 0.19625E+00, 0.20125E+00, 0.20625E+00, 0.21124E+00,
     & 0.21624E+00, 0.22124E+00, 0.22624E+00, 0.23124E+00, 0.23624E+00,
     & 0.18525E+00, 0.18694E+00, 0.18864E+00, 0.18862E+00, 0.19015E+00,
     & 0.19180E+00, 0.19267E+00, 0.19283E+00, 0.19260E+00, 0.19116E+00,
     & 0.19022E+00, 0.18913E+00, 0.18788E+00, 0.18653E+00, 0.18514E+00,
     & 0.18377E+00, 0.18251E+00, 0.18149E+00, 0.18088E+00, 0.18101E+00,
     & 0.18267E+00, 0.18589E+00, 0.19042E+00, 0.19495E+00, 0.19948E+00,
     & 0.20401E+00, 0.20854E+00, 0.21307E+00, 0.21760E+00, 0.22213E+00,
     & 0.17958E+00, 0.18124E+00, 0.18289E+00, 0.18288E+00, 0.18434E+00,
     & 0.18562E+00, 0.18610E+00, 0.18590E+00, 0.18533E+00, 0.18364E+00,
     & 0.18242E+00, 0.18108E+00, 0.17960E+00, 0.17804E+00, 0.17647E+00,
     & 0.17494E+00, 0.17353E+00, 0.17235E+00, 0.17157E+00, 0.17150E+00,
     & 0.17288E+00, 0.17572E+00, 0.17981E+00, 0.18389E+00, 0.18797E+00,
     & 0.19205E+00, 0.19613E+00, 0.20021E+00, 0.20430E+00, 0.20838E+00,
     & 0.17423E+00, 0.17584E+00, 0.17744E+00, 0.17743E+00, 0.17879E+00,
     & 0.17964E+00, 0.17970E+00, 0.17911E+00, 0.17818E+00, 0.17623E+00,
     & 0.17473E+00, 0.17313E+00, 0.17143E+00, 0.16967E+00, 0.16792E+00,
     & 0.16623E+00, 0.16467E+00, 0.16334E+00, 0.16241E+00, 0.16215E+00,
     & 0.16326E+00, 0.16575E+00, 0.16939E+00, 0.17304E+00, 0.17669E+00,
     & 0.18034E+00, 0.18399E+00, 0.18763E+00, 0.19128E+00, 0.19493E+00,
     & 0.16929E+00, 0.17080E+00, 0.17230E+00, 0.17229E+00, 0.17354E+00,
     & 0.17389E+00, 0.17349E+00, 0.17247E+00, 0.17116E+00, 0.16895E+00,
     & 0.16716E+00, 0.16530E+00, 0.16336E+00, 0.16141E+00, 0.15948E+00,
     & 0.15763E+00, 0.15592E+00, 0.15445E+00, 0.15336E+00, 0.15292E+00,
     & 0.15378E+00, 0.15592E+00, 0.15915E+00, 0.16238E+00, 0.16560E+00,
     & 0.16883E+00, 0.17206E+00, 0.17529E+00, 0.17852E+00, 0.18175E+00,
     & 0.16471E+00, 0.16610E+00, 0.16749E+00, 0.16748E+00, 0.16858E+00,
     & 0.16836E+00, 0.16744E+00, 0.16597E+00, 0.16424E+00, 0.16177E+00,
     & 0.15967E+00, 0.15754E+00, 0.15538E+00, 0.15322E+00, 0.15112E+00,
     & 0.14910E+00, 0.14725E+00, 0.14564E+00, 0.14440E+00, 0.14379E+00,
     & 0.14439E+00, 0.14619E+00, 0.14902E+00, 0.15184E+00, 0.15466E+00,
     & 0.15748E+00, 0.16030E+00, 0.16312E+00, 0.16594E+00, 0.16876E+00,
     & 0.16049E+00, 0.16174E+00, 0.16299E+00, 0.16298E+00, 0.16390E+00,
     & 0.16303E+00, 0.16154E+00, 0.15958E+00, 0.15741E+00, 0.15466E+00,
     & 0.15225E+00, 0.14984E+00, 0.14743E+00, 0.14507E+00, 0.14278E+00,
     & 0.14062E+00, 0.13861E+00, 0.13686E+00, 0.13548E+00, 0.13469E+00,
     & 0.13505E+00, 0.13652E+00, 0.13895E+00, 0.14137E+00, 0.14379E+00,
     & 0.14621E+00, 0.14863E+00, 0.15105E+00, 0.15347E+00, 0.15589E+00,
     & 0.15657E+00, 0.15766E+00, 0.15875E+00, 0.15874E+00, 0.15945E+00,
     & 0.15786E+00, 0.15573E+00, 0.15324E+00, 0.15060E+00, 0.14757E+00,
     & 0.14483E+00, 0.14213E+00, 0.13948E+00, 0.13690E+00, 0.13443E+00,
     & 0.13210E+00, 0.12995E+00, 0.12805E+00, 0.12653E+00, 0.12557E+00,
     & 0.12568E+00, 0.12684E+00, 0.12887E+00, 0.13090E+00, 0.13292E+00,
     & 0.13495E+00, 0.13698E+00, 0.13901E+00, 0.14104E+00, 0.14307E+00/

      data ((f2grrl(i,j),j=1,30),i= 91,100)/
     & 0.15299E+00, 0.15385E+00, 0.15471E+00, 0.15470E+00, 0.15515E+00,
     & 0.15274E+00, 0.14992E+00, 0.14686E+00, 0.14373E+00, 0.14042E+00,
     & 0.13733E+00, 0.13433E+00, 0.13142E+00, 0.12863E+00, 0.12597E+00,
     & 0.12347E+00, 0.12117E+00, 0.11913E+00, 0.11746E+00, 0.11633E+00,
     & 0.11621E+00, 0.11704E+00, 0.11869E+00, 0.12033E+00, 0.12197E+00,
     & 0.12361E+00, 0.12526E+00, 0.12690E+00, 0.12854E+00, 0.13018E+00,
     & 0.14954E+00, 0.15014E+00, 0.15074E+00, 0.15073E+00, 0.15088E+00,
     & 0.14757E+00, 0.14400E+00, 0.14033E+00, 0.13668E+00, 0.13308E+00,
     & 0.12964E+00, 0.12633E+00, 0.12315E+00, 0.12013E+00, 0.11729E+00,
     & 0.11462E+00, 0.11216E+00, 0.10999E+00, 0.10817E+00, 0.10687E+00,
     & 0.10652E+00, 0.10704E+00, 0.10830E+00, 0.10956E+00, 0.11082E+00,
     & 0.11208E+00, 0.11334E+00, 0.11460E+00, 0.11586E+00, 0.11712E+00,
     & 0.14610E+00, 0.14637E+00, 0.14665E+00, 0.14665E+00, 0.14644E+00,
     & 0.14214E+00, 0.13777E+00, 0.13347E+00, 0.12927E+00, 0.12539E+00,
     & 0.12159E+00, 0.11795E+00, 0.11451E+00, 0.11127E+00, 0.10823E+00,
     & 0.10540E+00, 0.10280E+00, 0.10049E+00, 0.98531E-01, 0.97074E-01,
     & 0.96492E-01, 0.96707E-01, 0.97579E-01, 0.98451E-01, 0.99323E-01,
     & 0.10020E+00, 0.10107E+00, 0.10194E+00, 0.10281E+00, 0.10368E+00,
     & 0.14237E+00, 0.14228E+00, 0.14219E+00, 0.14219E+00, 0.14157E+00,
     & 0.13622E+00, 0.13099E+00, 0.12602E+00, 0.12125E+00, 0.11711E+00,
     & 0.11294E+00, 0.10899E+00, 0.10529E+00, 0.10183E+00, 0.98612E-01,
     & 0.95624E-01, 0.92893E-01, 0.90460E-01, 0.88377E-01, 0.86773E-01,
     & 0.85975E-01, 0.85921E-01, 0.86487E-01, 0.87053E-01, 0.87619E-01,
     & 0.88185E-01, 0.88751E-01, 0.89317E-01, 0.89883E-01, 0.90448E-01,
     & 0.13811E+00, 0.13756E+00, 0.13701E+00, 0.13702E+00, 0.13592E+00,
     & 0.12943E+00, 0.12331E+00, 0.11766E+00, 0.11231E+00, 0.10793E+00,
     & 0.10340E+00, 0.99147E-01, 0.95202E-01, 0.91552E-01, 0.88179E-01,
     & 0.85063E-01, 0.82227E-01, 0.79698E-01, 0.77515E-01, 0.75787E-01,
     & 0.74794E-01, 0.74496E-01, 0.74789E-01, 0.75083E-01, 0.75376E-01,
     & 0.75670E-01, 0.75963E-01, 0.76257E-01, 0.76550E-01, 0.76844E-01,
     & 0.13273E+00, 0.13166E+00, 0.13059E+00, 0.13061E+00, 0.12898E+00,
     & 0.12127E+00, 0.11422E+00, 0.10788E+00, 0.10197E+00, 0.97391E-01,
     & 0.92537E-01, 0.88020E-01, 0.83878E-01, 0.80084E-01, 0.76608E-01,
     & 0.73418E-01, 0.70528E-01, 0.67952E-01, 0.65717E-01, 0.63907E-01,
     & 0.62754E-01, 0.62218E-01, 0.62209E-01, 0.62200E-01, 0.62191E-01,
     & 0.62182E-01, 0.62173E-01, 0.62164E-01, 0.62155E-01, 0.62146E-01,
     & 0.12549E+00, 0.12381E+00, 0.12214E+00, 0.12216E+00, 0.11993E+00,
     & 0.11094E+00, 0.10296E+00, 0.95963E-01, 0.89548E-01, 0.84836E-01,
     & 0.79738E-01, 0.75046E-01, 0.70801E-01, 0.66960E-01, 0.63478E-01,
     & 0.60309E-01, 0.57457E-01, 0.54923E-01, 0.52717E-01, 0.50899E-01,
     & 0.49654E-01, 0.48914E-01, 0.48591E-01, 0.48268E-01, 0.47946E-01,
     & 0.47623E-01, 0.47301E-01, 0.46978E-01, 0.46655E-01, 0.46333E-01,
     & 0.11479E+00, 0.11248E+00, 0.11018E+00, 0.11020E+00, 0.10732E+00,
     & 0.97022E-01, 0.88172E-01, 0.80651E-01, 0.73884E-01, 0.69178E-01,
     & 0.64017E-01, 0.59343E-01, 0.55190E-01, 0.51492E-01, 0.48189E-01,
     & 0.45218E-01, 0.42573E-01, 0.40239E-01, 0.38207E-01, 0.36511E-01,
     & 0.35279E-01, 0.34424E-01, 0.33873E-01, 0.33322E-01, 0.32771E-01,
     & 0.32220E-01, 0.31668E-01, 0.31117E-01, 0.30566E-01, 0.30015E-01,
     & 0.96910E-01, 0.94001E-01, 0.91094E-01, 0.91125E-01, 0.87618E-01,
     & 0.76152E-01, 0.66755E-01, 0.59138E-01, 0.52482E-01, 0.48112E-01,
     & 0.43356E-01, 0.39169E-01, 0.35554E-01, 0.32421E-01, 0.29691E-01,
     & 0.27285E-01, 0.25185E-01, 0.23360E-01, 0.21783E-01, 0.20460E-01,
     & 0.19453E-01, 0.18680E-01, 0.18089E-01, 0.17498E-01, 0.16908E-01,
     & 0.16317E-01, 0.15726E-01, 0.15135E-01, 0.14544E-01, 0.13953E-01,
     & 0.13568E-01, 0.13137E-01, 0.12706E-01, 0.12710E-01, 0.12193E-01,
     & 0.10518E-01, 0.91539E-02, 0.80561E-02, 0.71013E-02, 0.64799E-02,
     & 0.58046E-02, 0.52131E-02, 0.47048E-02, 0.42665E-02, 0.38863E-02,
     & 0.35525E-02, 0.32623E-02, 0.30108E-02, 0.27939E-02, 0.26119E-02,
     & 0.24722E-02, 0.23631E-02, 0.22778E-02, 0.21925E-02, 0.21071E-02,
     & 0.20218E-02, 0.19364E-02, 0.18511E-02, 0.17658E-02, 0.16804E-02/

      data ((flgrrl(i,j),j=1,30),i=  1, 10)/
     & 0.47804E-01, 0.44494E-01, 0.41187E-01, 0.41220E-01, 0.39702E-01,
     & 0.51148E-01, 0.64404E-01, 0.78495E-01, 0.92522E-01, 0.11435E+00,
     & 0.12851E+00, 0.14044E+00, 0.15083E+00, 0.15954E+00, 0.16649E+00,
     & 0.17165E+00, 0.17484E+00, 0.17605E+00, 0.17548E+00, 0.17336E+00,
     & 0.17013E+00, 0.16664E+00, 0.16309E+00, 0.15955E+00, 0.15600E+00,
     & 0.15246E+00, 0.14891E+00, 0.14537E+00, 0.14182E+00, 0.13828E+00,
     & 0.47855E-01, 0.44544E-01, 0.41235E-01, 0.41268E-01, 0.39727E-01,
     & 0.50917E-01, 0.63783E-01, 0.77363E-01, 0.90828E-01, 0.11188E+00,
     & 0.12538E+00, 0.13671E+00, 0.14657E+00, 0.15483E+00, 0.16142E+00,
     & 0.16633E+00, 0.16937E+00, 0.17053E+00, 0.17002E+00, 0.16804E+00,
     & 0.16502E+00, 0.16175E+00, 0.15845E+00, 0.15515E+00, 0.15184E+00,
     & 0.14854E+00, 0.14523E+00, 0.14193E+00, 0.13862E+00, 0.13532E+00,
     & 0.47911E-01, 0.44596E-01, 0.41284E-01, 0.41317E-01, 0.39753E-01,
     & 0.50690E-01, 0.63172E-01, 0.76255E-01, 0.89174E-01, 0.10947E+00,
     & 0.12234E+00, 0.13310E+00, 0.14245E+00, 0.15028E+00, 0.15653E+00,
     & 0.16118E+00, 0.16408E+00, 0.16521E+00, 0.16474E+00, 0.16290E+00,
     & 0.16006E+00, 0.15702E+00, 0.15394E+00, 0.15087E+00, 0.14780E+00,
     & 0.14473E+00, 0.14165E+00, 0.13858E+00, 0.13551E+00, 0.13244E+00,
     & 0.47972E-01, 0.44651E-01, 0.41334E-01, 0.41367E-01, 0.39780E-01,
     & 0.50465E-01, 0.62571E-01, 0.75169E-01, 0.87560E-01, 0.10713E+00,
     & 0.11939E+00, 0.12960E+00, 0.13845E+00, 0.14587E+00, 0.15180E+00,
     & 0.15622E+00, 0.15897E+00, 0.16006E+00, 0.15964E+00, 0.15791E+00,
     & 0.15526E+00, 0.15242E+00, 0.14957E+00, 0.14671E+00, 0.14385E+00,
     & 0.14100E+00, 0.13814E+00, 0.13528E+00, 0.13243E+00, 0.12957E+00,
     & 0.48030E-01, 0.44706E-01, 0.41385E-01, 0.41418E-01, 0.39809E-01,
     & 0.50244E-01, 0.61980E-01, 0.74107E-01, 0.85984E-01, 0.10485E+00,
     & 0.11652E+00, 0.12621E+00, 0.13459E+00, 0.14162E+00, 0.14723E+00,
     & 0.15142E+00, 0.15404E+00, 0.15508E+00, 0.15470E+00, 0.15309E+00,
     & 0.15062E+00, 0.14797E+00, 0.14532E+00, 0.14267E+00, 0.14001E+00,
     & 0.13736E+00, 0.13471E+00, 0.13206E+00, 0.12941E+00, 0.12675E+00,
     & 0.48093E-01, 0.44764E-01, 0.41437E-01, 0.41470E-01, 0.39838E-01,
     & 0.50026E-01, 0.61400E-01, 0.73066E-01, 0.84446E-01, 0.10262E+00,
     & 0.11374E+00, 0.12292E+00, 0.13085E+00, 0.13750E+00, 0.14281E+00,
     & 0.14678E+00, 0.14927E+00, 0.15027E+00, 0.14993E+00, 0.14843E+00,
     & 0.14611E+00, 0.14365E+00, 0.14119E+00, 0.13873E+00, 0.13627E+00,
     & 0.13381E+00, 0.13135E+00, 0.12889E+00, 0.12643E+00, 0.12397E+00,
     & 0.48153E-01, 0.44821E-01, 0.41491E-01, 0.41524E-01, 0.39869E-01,
     & 0.49812E-01, 0.60829E-01, 0.72048E-01, 0.82944E-01, 0.10046E+00,
     & 0.11104E+00, 0.11973E+00, 0.12723E+00, 0.13352E+00, 0.13854E+00,
     & 0.14230E+00, 0.14467E+00, 0.14563E+00, 0.14532E+00, 0.14391E+00,
     & 0.14175E+00, 0.13946E+00, 0.13718E+00, 0.13490E+00, 0.13263E+00,
     & 0.13035E+00, 0.12807E+00, 0.12579E+00, 0.12351E+00, 0.12124E+00,
     & 0.48218E-01, 0.44881E-01, 0.41545E-01, 0.41579E-01, 0.39901E-01,
     & 0.49601E-01, 0.60268E-01, 0.71051E-01, 0.81479E-01, 0.98359E-01,
     & 0.10842E+00, 0.11664E+00, 0.12373E+00, 0.12967E+00, 0.13442E+00,
     & 0.13797E+00, 0.14022E+00, 0.14113E+00, 0.14085E+00, 0.13954E+00,
     & 0.13753E+00, 0.13539E+00, 0.13329E+00, 0.13118E+00, 0.12908E+00,
     & 0.12697E+00, 0.12486E+00, 0.12276E+00, 0.12065E+00, 0.11855E+00,
     & 0.48281E-01, 0.44940E-01, 0.41601E-01, 0.41635E-01, 0.39934E-01,
     & 0.49393E-01, 0.59716E-01, 0.70075E-01, 0.80049E-01, 0.96312E-01,
     & 0.10587E+00, 0.11364E+00, 0.12034E+00, 0.12594E+00, 0.13043E+00,
     & 0.13379E+00, 0.13592E+00, 0.13679E+00, 0.13654E+00, 0.13531E+00,
     & 0.13343E+00, 0.13145E+00, 0.12951E+00, 0.12756E+00, 0.12562E+00,
     & 0.12367E+00, 0.12173E+00, 0.11979E+00, 0.11784E+00, 0.11590E+00,
     & 0.48349E-01, 0.45002E-01, 0.41658E-01, 0.41692E-01, 0.39968E-01,
     & 0.49188E-01, 0.59174E-01, 0.69119E-01, 0.78653E-01, 0.94318E-01,
     & 0.10339E+00, 0.11074E+00, 0.11706E+00, 0.12234E+00, 0.12657E+00,
     & 0.12975E+00, 0.13176E+00, 0.13259E+00, 0.13236E+00, 0.13122E+00,
     & 0.12946E+00, 0.12763E+00, 0.12583E+00, 0.12404E+00, 0.12225E+00,
     & 0.12046E+00, 0.11866E+00, 0.11687E+00, 0.11508E+00, 0.11329E+00/

      data ((flgrrl(i,j),j=1,30),i= 11, 20)/
     & 0.48414E-01, 0.45064E-01, 0.41716E-01, 0.41750E-01, 0.40004E-01,
     & 0.48987E-01, 0.58642E-01, 0.68183E-01, 0.77291E-01, 0.92378E-01,
     & 0.10099E+00, 0.10792E+00, 0.11388E+00, 0.11886E+00, 0.12285E+00,
     & 0.12584E+00, 0.12774E+00, 0.12853E+00, 0.12832E+00, 0.12725E+00,
     & 0.12561E+00, 0.12391E+00, 0.12227E+00, 0.12062E+00, 0.11897E+00,
     & 0.11732E+00, 0.11567E+00, 0.11403E+00, 0.11238E+00, 0.11073E+00,
     & 0.48487E-01, 0.45130E-01, 0.41776E-01, 0.41809E-01, 0.40040E-01,
     & 0.48789E-01, 0.58118E-01, 0.67267E-01, 0.75961E-01, 0.90489E-01,
     & 0.98656E-01, 0.10519E+00, 0.11080E+00, 0.11549E+00, 0.11924E+00,
     & 0.12207E+00, 0.12386E+00, 0.12461E+00, 0.12441E+00, 0.12341E+00,
     & 0.12189E+00, 0.12031E+00, 0.11880E+00, 0.11728E+00, 0.11577E+00,
     & 0.11425E+00, 0.11274E+00, 0.11123E+00, 0.10971E+00, 0.10820E+00,
     & 0.48555E-01, 0.45194E-01, 0.41836E-01, 0.41870E-01, 0.40078E-01,
     & 0.48594E-01, 0.57603E-01, 0.66371E-01, 0.74663E-01, 0.88651E-01,
     & 0.96389E-01, 0.10255E+00, 0.10782E+00, 0.11223E+00, 0.11576E+00,
     & 0.11842E+00, 0.12010E+00, 0.12081E+00, 0.12063E+00, 0.11970E+00,
     & 0.11827E+00, 0.11682E+00, 0.11543E+00, 0.11404E+00, 0.11265E+00,
     & 0.11126E+00, 0.10987E+00, 0.10849E+00, 0.10710E+00, 0.10571E+00,
     & 0.48627E-01, 0.45261E-01, 0.41898E-01, 0.41931E-01, 0.40116E-01,
     & 0.48402E-01, 0.57098E-01, 0.65493E-01, 0.73396E-01, 0.86861E-01,
     & 0.94187E-01, 0.99982E-01, 0.10494E+00, 0.10908E+00, 0.11239E+00,
     & 0.11489E+00, 0.11647E+00, 0.11714E+00, 0.11697E+00, 0.11610E+00,
     & 0.11477E+00, 0.11342E+00, 0.11215E+00, 0.11088E+00, 0.10961E+00,
     & 0.10834E+00, 0.10707E+00, 0.10580E+00, 0.10453E+00, 0.10325E+00,
     & 0.48700E-01, 0.45329E-01, 0.41960E-01, 0.41994E-01, 0.40156E-01,
     & 0.48213E-01, 0.56601E-01, 0.64634E-01, 0.72159E-01, 0.85119E-01,
     & 0.92049E-01, 0.97494E-01, 0.10215E+00, 0.10603E+00, 0.10914E+00,
     & 0.11148E+00, 0.11297E+00, 0.11359E+00, 0.11343E+00, 0.11261E+00,
     & 0.11137E+00, 0.11013E+00, 0.10897E+00, 0.10781E+00, 0.10665E+00,
     & 0.10548E+00, 0.10432E+00, 0.10316E+00, 0.10200E+00, 0.10084E+00,
     & 0.48771E-01, 0.45396E-01, 0.42024E-01, 0.42058E-01, 0.40197E-01,
     & 0.48027E-01, 0.56112E-01, 0.63792E-01, 0.70952E-01, 0.83423E-01,
     & 0.89971E-01, 0.95081E-01, 0.99441E-01, 0.10307E+00, 0.10599E+00,
     & 0.10818E+00, 0.10957E+00, 0.11015E+00, 0.11000E+00, 0.10923E+00,
     & 0.10807E+00, 0.10693E+00, 0.10587E+00, 0.10481E+00, 0.10375E+00,
     & 0.10269E+00, 0.10164E+00, 0.10058E+00, 0.99518E-01, 0.98459E-01,
     & 0.48846E-01, 0.45466E-01, 0.42089E-01, 0.42123E-01, 0.40239E-01,
     & 0.47844E-01, 0.55632E-01, 0.62968E-01, 0.69773E-01, 0.81771E-01,
     & 0.87952E-01, 0.92742E-01, 0.96821E-01, 0.10022E+00, 0.10294E+00,
     & 0.10499E+00, 0.10629E+00, 0.10683E+00, 0.10668E+00, 0.10595E+00,
     & 0.10488E+00, 0.10382E+00, 0.10286E+00, 0.10190E+00, 0.10093E+00,
     & 0.99968E-01, 0.99005E-01, 0.98041E-01, 0.97078E-01, 0.96114E-01,
     & 0.48926E-01, 0.45539E-01, 0.42154E-01, 0.42188E-01, 0.40282E-01,
     & 0.47664E-01, 0.55160E-01, 0.62162E-01, 0.68622E-01, 0.80163E-01,
     & 0.85991E-01, 0.90473E-01, 0.94282E-01, 0.97453E-01, 0.99993E-01,
     & 0.10190E+00, 0.10311E+00, 0.10361E+00, 0.10347E+00, 0.10278E+00,
     & 0.10178E+00, 0.10080E+00, 0.99931E-01, 0.99058E-01, 0.98184E-01,
     & 0.97311E-01, 0.96437E-01, 0.95564E-01, 0.94691E-01, 0.93817E-01,
     & 0.49003E-01, 0.45610E-01, 0.42221E-01, 0.42255E-01, 0.40325E-01,
     & 0.47486E-01, 0.54696E-01, 0.61372E-01, 0.67499E-01, 0.78597E-01,
     & 0.84086E-01, 0.88272E-01, 0.91824E-01, 0.94777E-01, 0.97142E-01,
     & 0.98919E-01, 0.10004E+00, 0.10050E+00, 0.10035E+00, 0.99704E-01,
     & 0.98767E-01, 0.97872E-01, 0.97080E-01, 0.96288E-01, 0.95495E-01,
     & 0.94703E-01, 0.93911E-01, 0.93119E-01, 0.92326E-01, 0.91534E-01,
     & 0.49081E-01, 0.45683E-01, 0.42288E-01, 0.42322E-01, 0.40370E-01,
     & 0.47312E-01, 0.54240E-01, 0.60598E-01, 0.66401E-01, 0.77072E-01,
     & 0.82234E-01, 0.86137E-01, 0.89441E-01, 0.92186E-01, 0.94383E-01,
     & 0.96032E-01, 0.97072E-01, 0.97488E-01, 0.97340E-01, 0.96722E-01,
     & 0.95846E-01, 0.95023E-01, 0.94306E-01, 0.93590E-01, 0.92874E-01,
     & 0.92158E-01, 0.91441E-01, 0.90725E-01, 0.90009E-01, 0.89293E-01/

      data ((flgrrl(i,j),j=1,30),i= 21, 30)/
     & 0.49159E-01, 0.45756E-01, 0.42356E-01, 0.42390E-01, 0.40415E-01,
     & 0.47139E-01, 0.53792E-01, 0.59840E-01, 0.65330E-01, 0.75586E-01,
     & 0.80434E-01, 0.84065E-01, 0.87132E-01, 0.89678E-01, 0.91713E-01,
     & 0.93239E-01, 0.94196E-01, 0.94571E-01, 0.94419E-01, 0.93831E-01,
     & 0.93011E-01, 0.92253E-01, 0.91607E-01, 0.90960E-01, 0.90314E-01,
     & 0.89668E-01, 0.89021E-01, 0.88375E-01, 0.87729E-01, 0.87082E-01,
     & 0.49235E-01, 0.45828E-01, 0.42424E-01, 0.42458E-01, 0.40460E-01,
     & 0.46969E-01, 0.53351E-01, 0.59097E-01, 0.64283E-01, 0.74138E-01,
     & 0.78684E-01, 0.82054E-01, 0.84894E-01, 0.87249E-01, 0.89129E-01,
     & 0.90536E-01, 0.91413E-01, 0.91747E-01, 0.91589E-01, 0.91027E-01,
     & 0.90259E-01, 0.89560E-01, 0.88978E-01, 0.88396E-01, 0.87814E-01,
     & 0.87232E-01, 0.86650E-01, 0.86068E-01, 0.85486E-01, 0.84904E-01,
     & 0.49317E-01, 0.45904E-01, 0.42493E-01, 0.42527E-01, 0.40507E-01,
     & 0.46802E-01, 0.52916E-01, 0.58369E-01, 0.63260E-01, 0.72728E-01,
     & 0.76983E-01, 0.80102E-01, 0.82725E-01, 0.84896E-01, 0.86627E-01,
     & 0.87919E-01, 0.88718E-01, 0.89011E-01, 0.88847E-01, 0.88307E-01,
     & 0.87585E-01, 0.86942E-01, 0.86419E-01, 0.85895E-01, 0.85372E-01,
     & 0.84849E-01, 0.84325E-01, 0.83802E-01, 0.83279E-01, 0.82755E-01,
     & 0.49397E-01, 0.45979E-01, 0.42563E-01, 0.42597E-01, 0.40553E-01,
     & 0.46636E-01, 0.52489E-01, 0.57656E-01, 0.62260E-01, 0.71353E-01,
     & 0.75328E-01, 0.78208E-01, 0.80621E-01, 0.82616E-01, 0.84204E-01,
     & 0.85385E-01, 0.86109E-01, 0.86361E-01, 0.86188E-01, 0.85668E-01,
     & 0.84989E-01, 0.84395E-01, 0.83926E-01, 0.83456E-01, 0.82986E-01,
     & 0.82516E-01, 0.82047E-01, 0.81577E-01, 0.81107E-01, 0.80638E-01,
     & 0.49477E-01, 0.46053E-01, 0.42632E-01, 0.42666E-01, 0.40600E-01,
     & 0.46473E-01, 0.52068E-01, 0.56956E-01, 0.61283E-01, 0.70013E-01,
     & 0.73719E-01, 0.76368E-01, 0.78581E-01, 0.80407E-01, 0.81858E-01,
     & 0.82932E-01, 0.83582E-01, 0.83794E-01, 0.83610E-01, 0.83107E-01,
     & 0.82466E-01, 0.81918E-01, 0.81497E-01, 0.81075E-01, 0.80654E-01,
     & 0.80233E-01, 0.79812E-01, 0.79391E-01, 0.78969E-01, 0.78548E-01,
     & 0.49560E-01, 0.46130E-01, 0.42701E-01, 0.42736E-01, 0.40646E-01,
     & 0.46311E-01, 0.51653E-01, 0.56270E-01, 0.60327E-01, 0.68706E-01,
     & 0.72153E-01, 0.74581E-01, 0.76602E-01, 0.78266E-01, 0.79584E-01,
     & 0.80555E-01, 0.81134E-01, 0.81305E-01, 0.81110E-01, 0.80621E-01,
     & 0.80014E-01, 0.79507E-01, 0.79129E-01, 0.78752E-01, 0.78374E-01,
     & 0.77997E-01, 0.77619E-01, 0.77242E-01, 0.76864E-01, 0.76487E-01,
     & 0.49640E-01, 0.46204E-01, 0.42770E-01, 0.42805E-01, 0.40693E-01,
     & 0.46150E-01, 0.51244E-01, 0.55597E-01, 0.59392E-01, 0.67431E-01,
     & 0.70628E-01, 0.72844E-01, 0.74682E-01, 0.76190E-01, 0.77382E-01,
     & 0.78253E-01, 0.78762E-01, 0.78893E-01, 0.78685E-01, 0.78207E-01,
     & 0.77630E-01, 0.77159E-01, 0.76821E-01, 0.76483E-01, 0.76144E-01,
     & 0.75806E-01, 0.75468E-01, 0.75129E-01, 0.74791E-01, 0.74453E-01,
     & 0.49723E-01, 0.46279E-01, 0.42839E-01, 0.42873E-01, 0.40739E-01,
     & 0.45991E-01, 0.50841E-01, 0.54935E-01, 0.58478E-01, 0.66187E-01,
     & 0.69145E-01, 0.71157E-01, 0.72818E-01, 0.74177E-01, 0.75246E-01,
     & 0.76022E-01, 0.76462E-01, 0.76554E-01, 0.76331E-01, 0.75862E-01,
     & 0.75312E-01, 0.74874E-01, 0.74570E-01, 0.74267E-01, 0.73964E-01,
     & 0.73660E-01, 0.73357E-01, 0.73054E-01, 0.72750E-01, 0.72447E-01,
     & 0.49798E-01, 0.46351E-01, 0.42907E-01, 0.42941E-01, 0.40785E-01,
     & 0.45833E-01, 0.50442E-01, 0.54286E-01, 0.57582E-01, 0.64973E-01,
     & 0.67699E-01, 0.69516E-01, 0.71009E-01, 0.72224E-01, 0.73176E-01,
     & 0.73858E-01, 0.74233E-01, 0.74285E-01, 0.74047E-01, 0.73584E-01,
     & 0.73057E-01, 0.72648E-01, 0.72375E-01, 0.72102E-01, 0.71829E-01,
     & 0.71556E-01, 0.71283E-01, 0.71011E-01, 0.70738E-01, 0.70465E-01,
     & 0.49872E-01, 0.46422E-01, 0.42974E-01, 0.43008E-01, 0.40829E-01,
     & 0.45675E-01, 0.50049E-01, 0.53647E-01, 0.56705E-01, 0.63786E-01,
     & 0.66291E-01, 0.67921E-01, 0.69251E-01, 0.70329E-01, 0.71167E-01,
     & 0.71760E-01, 0.72070E-01, 0.72083E-01, 0.71829E-01, 0.71370E-01,
     & 0.70863E-01, 0.70479E-01, 0.70233E-01, 0.69986E-01, 0.69740E-01,
     & 0.69494E-01, 0.69248E-01, 0.69002E-01, 0.68756E-01, 0.68510E-01/

      data ((flgrrl(i,j),j=1,30),i= 31, 40)/
     & 0.49948E-01, 0.46492E-01, 0.43039E-01, 0.43074E-01, 0.40872E-01,
     & 0.45517E-01, 0.49659E-01, 0.53019E-01, 0.55845E-01, 0.62628E-01,
     & 0.64919E-01, 0.66368E-01, 0.67542E-01, 0.68489E-01, 0.69219E-01,
     & 0.69725E-01, 0.69972E-01, 0.69946E-01, 0.69674E-01, 0.69217E-01,
     & 0.68727E-01, 0.68364E-01, 0.68141E-01, 0.67918E-01, 0.67695E-01,
     & 0.67472E-01, 0.67249E-01, 0.67026E-01, 0.66803E-01, 0.66580E-01,
     & 0.50022E-01, 0.46561E-01, 0.43103E-01, 0.43138E-01, 0.40914E-01,
     & 0.45360E-01, 0.49274E-01, 0.52400E-01, 0.55002E-01, 0.61495E-01,
     & 0.63580E-01, 0.64857E-01, 0.65882E-01, 0.66702E-01, 0.67327E-01,
     & 0.67749E-01, 0.67935E-01, 0.67870E-01, 0.67581E-01, 0.67124E-01,
     & 0.66648E-01, 0.66303E-01, 0.66099E-01, 0.65896E-01, 0.65692E-01,
     & 0.65488E-01, 0.65285E-01, 0.65081E-01, 0.64877E-01, 0.64674E-01,
     & 0.50097E-01, 0.46630E-01, 0.43165E-01, 0.43199E-01, 0.40954E-01,
     & 0.45201E-01, 0.48891E-01, 0.51791E-01, 0.54175E-01, 0.60386E-01,
     & 0.62274E-01, 0.63384E-01, 0.64267E-01, 0.64965E-01, 0.65490E-01,
     & 0.65831E-01, 0.65957E-01, 0.65854E-01, 0.65545E-01, 0.65087E-01,
     & 0.64622E-01, 0.64292E-01, 0.64104E-01, 0.63916E-01, 0.63729E-01,
     & 0.63541E-01, 0.63353E-01, 0.63166E-01, 0.62978E-01, 0.62790E-01,
     & 0.50167E-01, 0.46694E-01, 0.43224E-01, 0.43258E-01, 0.40991E-01,
     & 0.45042E-01, 0.48511E-01, 0.51190E-01, 0.53362E-01, 0.59301E-01,
     & 0.60998E-01, 0.61950E-01, 0.62695E-01, 0.63277E-01, 0.63705E-01,
     & 0.63968E-01, 0.64036E-01, 0.63895E-01, 0.63567E-01, 0.63104E-01,
     & 0.62648E-01, 0.62330E-01, 0.62155E-01, 0.61980E-01, 0.61805E-01,
     & 0.61630E-01, 0.61455E-01, 0.61280E-01, 0.61105E-01, 0.60930E-01,
     & 0.50230E-01, 0.46754E-01, 0.43280E-01, 0.43314E-01, 0.41026E-01,
     & 0.44881E-01, 0.48133E-01, 0.50596E-01, 0.52563E-01, 0.58238E-01,
     & 0.59752E-01, 0.60551E-01, 0.61164E-01, 0.61635E-01, 0.61969E-01,
     & 0.62157E-01, 0.62169E-01, 0.61990E-01, 0.61641E-01, 0.61174E-01,
     & 0.60724E-01, 0.60415E-01, 0.60250E-01, 0.60084E-01, 0.59919E-01,
     & 0.59754E-01, 0.59589E-01, 0.59423E-01, 0.59258E-01, 0.59093E-01,
     & 0.50290E-01, 0.46809E-01, 0.43332E-01, 0.43367E-01, 0.41057E-01,
     & 0.44718E-01, 0.47757E-01, 0.50009E-01, 0.51777E-01, 0.57196E-01,
     & 0.58533E-01, 0.59186E-01, 0.59673E-01, 0.60036E-01, 0.60281E-01,
     & 0.60396E-01, 0.60353E-01, 0.60137E-01, 0.59767E-01, 0.59293E-01,
     & 0.58848E-01, 0.58545E-01, 0.58386E-01, 0.58228E-01, 0.58069E-01,
     & 0.57910E-01, 0.57752E-01, 0.57593E-01, 0.57434E-01, 0.57276E-01,
     & 0.50348E-01, 0.46863E-01, 0.43380E-01, 0.43415E-01, 0.41084E-01,
     & 0.44552E-01, 0.47381E-01, 0.49428E-01, 0.51003E-01, 0.56173E-01,
     & 0.57340E-01, 0.57852E-01, 0.58219E-01, 0.58480E-01, 0.58638E-01,
     & 0.58683E-01, 0.58586E-01, 0.58334E-01, 0.57943E-01, 0.57461E-01,
     & 0.57017E-01, 0.56718E-01, 0.56563E-01, 0.56409E-01, 0.56254E-01,
     & 0.56099E-01, 0.55945E-01, 0.55790E-01, 0.55635E-01, 0.55481E-01,
     & 0.50395E-01, 0.46908E-01, 0.43423E-01, 0.43458E-01, 0.41106E-01,
     & 0.44383E-01, 0.47005E-01, 0.48852E-01, 0.50239E-01, 0.55168E-01,
     & 0.56172E-01, 0.56549E-01, 0.56800E-01, 0.56962E-01, 0.57038E-01,
     & 0.57015E-01, 0.56866E-01, 0.56578E-01, 0.56165E-01, 0.55674E-01,
     & 0.55230E-01, 0.54932E-01, 0.54779E-01, 0.54626E-01, 0.54473E-01,
     & 0.54320E-01, 0.54167E-01, 0.54014E-01, 0.53861E-01, 0.53708E-01,
     & 0.50442E-01, 0.46950E-01, 0.43460E-01, 0.43495E-01, 0.41123E-01,
     & 0.44209E-01, 0.46628E-01, 0.48280E-01, 0.49485E-01, 0.54180E-01,
     & 0.55027E-01, 0.55275E-01, 0.55415E-01, 0.55482E-01, 0.55479E-01,
     & 0.55391E-01, 0.55191E-01, 0.54867E-01, 0.54432E-01, 0.53931E-01,
     & 0.53485E-01, 0.53187E-01, 0.53033E-01, 0.52879E-01, 0.52725E-01,
     & 0.52571E-01, 0.52417E-01, 0.52263E-01, 0.52109E-01, 0.51955E-01,
     & 0.50474E-01, 0.46981E-01, 0.43491E-01, 0.43526E-01, 0.41134E-01,
     & 0.44030E-01, 0.46250E-01, 0.47711E-01, 0.48739E-01, 0.53207E-01,
     & 0.53903E-01, 0.54027E-01, 0.54061E-01, 0.54038E-01, 0.53958E-01,
     & 0.53807E-01, 0.53559E-01, 0.53199E-01, 0.52742E-01, 0.52229E-01,
     & 0.51780E-01, 0.51479E-01, 0.51322E-01, 0.51165E-01, 0.51008E-01,
     & 0.50851E-01, 0.50694E-01, 0.50537E-01, 0.50380E-01, 0.50222E-01/

      data ((flgrrl(i,j),j=1,30),i= 41, 50)/
     & 0.50501E-01, 0.47006E-01, 0.43514E-01, 0.43549E-01, 0.41138E-01,
     & 0.43846E-01, 0.45868E-01, 0.47144E-01, 0.48000E-01, 0.52248E-01,
     & 0.52798E-01, 0.52804E-01, 0.52737E-01, 0.52627E-01, 0.52474E-01,
     & 0.52262E-01, 0.51966E-01, 0.51573E-01, 0.51093E-01, 0.50568E-01,
     & 0.50114E-01, 0.49809E-01, 0.49646E-01, 0.49484E-01, 0.49322E-01,
     & 0.49160E-01, 0.48998E-01, 0.48836E-01, 0.48673E-01, 0.48511E-01,
     & 0.50519E-01, 0.47023E-01, 0.43529E-01, 0.43564E-01, 0.41134E-01,
     & 0.43654E-01, 0.45483E-01, 0.46578E-01, 0.47268E-01, 0.51301E-01,
     & 0.51712E-01, 0.51604E-01, 0.51440E-01, 0.51247E-01, 0.51024E-01,
     & 0.50754E-01, 0.50412E-01, 0.49985E-01, 0.49483E-01, 0.48945E-01,
     & 0.48485E-01, 0.48173E-01, 0.48004E-01, 0.47835E-01, 0.47665E-01,
     & 0.47496E-01, 0.47327E-01, 0.47157E-01, 0.46988E-01, 0.46819E-01,
     & 0.50525E-01, 0.47028E-01, 0.43535E-01, 0.43570E-01, 0.41121E-01,
     & 0.43455E-01, 0.45093E-01, 0.46012E-01, 0.46540E-01, 0.50366E-01,
     & 0.50642E-01, 0.50426E-01, 0.50169E-01, 0.49897E-01, 0.49607E-01,
     & 0.49281E-01, 0.48895E-01, 0.48434E-01, 0.47910E-01, 0.47359E-01,
     & 0.46891E-01, 0.46572E-01, 0.46394E-01, 0.46216E-01, 0.46038E-01,
     & 0.45860E-01, 0.45682E-01, 0.45504E-01, 0.45326E-01, 0.45148E-01,
     & 0.50523E-01, 0.47025E-01, 0.43530E-01, 0.43565E-01, 0.41099E-01,
     & 0.43247E-01, 0.44698E-01, 0.45444E-01, 0.45817E-01, 0.49439E-01,
     & 0.49587E-01, 0.49267E-01, 0.48922E-01, 0.48574E-01, 0.48220E-01,
     & 0.47840E-01, 0.47411E-01, 0.46919E-01, 0.46373E-01, 0.45808E-01,
     & 0.45331E-01, 0.45003E-01, 0.44815E-01, 0.44627E-01, 0.44438E-01,
     & 0.44250E-01, 0.44062E-01, 0.43874E-01, 0.43686E-01, 0.43497E-01,
     & 0.50500E-01, 0.47005E-01, 0.43513E-01, 0.43548E-01, 0.41065E-01,
     & 0.43029E-01, 0.44295E-01, 0.44874E-01, 0.45095E-01, 0.48521E-01,
     & 0.48544E-01, 0.48126E-01, 0.47696E-01, 0.47277E-01, 0.46862E-01,
     & 0.46430E-01, 0.45960E-01, 0.45437E-01, 0.44869E-01, 0.44290E-01,
     & 0.43803E-01, 0.43465E-01, 0.43265E-01, 0.43066E-01, 0.42866E-01,
     & 0.42666E-01, 0.42466E-01, 0.42267E-01, 0.42067E-01, 0.41867E-01,
     & 0.50466E-01, 0.46973E-01, 0.43482E-01, 0.43517E-01, 0.41018E-01,
     & 0.42799E-01, 0.43883E-01, 0.44299E-01, 0.44374E-01, 0.47608E-01,
     & 0.47514E-01, 0.47002E-01, 0.46492E-01, 0.46004E-01, 0.45530E-01,
     & 0.45049E-01, 0.44540E-01, 0.43987E-01, 0.43398E-01, 0.42804E-01,
     & 0.42307E-01, 0.41958E-01, 0.41745E-01, 0.41533E-01, 0.41320E-01,
     & 0.41108E-01, 0.40895E-01, 0.40683E-01, 0.40470E-01, 0.40257E-01,
     & 0.50414E-01, 0.46924E-01, 0.43437E-01, 0.43472E-01, 0.40958E-01,
     & 0.42556E-01, 0.43462E-01, 0.43719E-01, 0.43652E-01, 0.46701E-01,
     & 0.46493E-01, 0.45891E-01, 0.45305E-01, 0.44752E-01, 0.44224E-01,
     & 0.43696E-01, 0.43149E-01, 0.42567E-01, 0.41957E-01, 0.41349E-01,
     & 0.40841E-01, 0.40480E-01, 0.40253E-01, 0.40027E-01, 0.39801E-01,
     & 0.39574E-01, 0.39348E-01, 0.39122E-01, 0.38895E-01, 0.38669E-01,
     & 0.50342E-01, 0.46858E-01, 0.43376E-01, 0.43411E-01, 0.40883E-01,
     & 0.42300E-01, 0.43030E-01, 0.43133E-01, 0.42929E-01, 0.45797E-01,
     & 0.45481E-01, 0.44794E-01, 0.44136E-01, 0.43521E-01, 0.42940E-01,
     & 0.42368E-01, 0.41785E-01, 0.41175E-01, 0.40544E-01, 0.39923E-01,
     & 0.39403E-01, 0.39030E-01, 0.38789E-01, 0.38548E-01, 0.38307E-01,
     & 0.38066E-01, 0.37825E-01, 0.37584E-01, 0.37343E-01, 0.37102E-01,
     & 0.50249E-01, 0.46772E-01, 0.43297E-01, 0.43332E-01, 0.40790E-01,
     & 0.42027E-01, 0.42586E-01, 0.42538E-01, 0.42202E-01, 0.44894E-01,
     & 0.44475E-01, 0.43708E-01, 0.42981E-01, 0.42309E-01, 0.41678E-01,
     & 0.41064E-01, 0.40447E-01, 0.39811E-01, 0.39160E-01, 0.38524E-01,
     & 0.37993E-01, 0.37607E-01, 0.37350E-01, 0.37094E-01, 0.36838E-01,
     & 0.36582E-01, 0.36326E-01, 0.36069E-01, 0.35813E-01, 0.35557E-01,
     & 0.50136E-01, 0.46666E-01, 0.43198E-01, 0.43233E-01, 0.40679E-01,
     & 0.41737E-01, 0.42127E-01, 0.41934E-01, 0.41471E-01, 0.43992E-01,
     & 0.43474E-01, 0.42631E-01, 0.41840E-01, 0.41113E-01, 0.40436E-01,
     & 0.39782E-01, 0.39132E-01, 0.38471E-01, 0.37802E-01, 0.37153E-01,
     & 0.36610E-01, 0.36210E-01, 0.35938E-01, 0.35666E-01, 0.35395E-01,
     & 0.35123E-01, 0.34851E-01, 0.34579E-01, 0.34307E-01, 0.34035E-01/

      data ((flgrrl(i,j),j=1,30),i= 51, 60)/
     & 0.49998E-01, 0.46536E-01, 0.43077E-01, 0.43112E-01, 0.40548E-01,
     & 0.41429E-01, 0.41652E-01, 0.41319E-01, 0.40733E-01, 0.43088E-01,
     & 0.42477E-01, 0.41562E-01, 0.40711E-01, 0.39933E-01, 0.39212E-01,
     & 0.38521E-01, 0.37841E-01, 0.37156E-01, 0.36470E-01, 0.35807E-01,
     & 0.35253E-01, 0.34839E-01, 0.34552E-01, 0.34264E-01, 0.33976E-01,
     & 0.33688E-01, 0.33401E-01, 0.33113E-01, 0.32825E-01, 0.32537E-01,
     & 0.49827E-01, 0.46379E-01, 0.42933E-01, 0.42968E-01, 0.40395E-01,
     & 0.41099E-01, 0.41160E-01, 0.40691E-01, 0.39987E-01, 0.42181E-01,
     & 0.41481E-01, 0.40499E-01, 0.39592E-01, 0.38766E-01, 0.38004E-01,
     & 0.37279E-01, 0.36571E-01, 0.35864E-01, 0.35161E-01, 0.34486E-01,
     & 0.33920E-01, 0.33494E-01, 0.33190E-01, 0.32886E-01, 0.32583E-01,
     & 0.32279E-01, 0.31975E-01, 0.31672E-01, 0.31368E-01, 0.31064E-01,
     & 0.49631E-01, 0.46196E-01, 0.42763E-01, 0.42797E-01, 0.40217E-01,
     & 0.40747E-01, 0.40649E-01, 0.40048E-01, 0.39232E-01, 0.41269E-01,
     & 0.40485E-01, 0.39441E-01, 0.38482E-01, 0.37612E-01, 0.36812E-01,
     & 0.36055E-01, 0.35321E-01, 0.34594E-01, 0.33875E-01, 0.33188E-01,
     & 0.32612E-01, 0.32172E-01, 0.31853E-01, 0.31533E-01, 0.31214E-01,
     & 0.30894E-01, 0.30575E-01, 0.30255E-01, 0.29936E-01, 0.29616E-01,
     & 0.49402E-01, 0.45982E-01, 0.42565E-01, 0.42599E-01, 0.40014E-01,
     & 0.40370E-01, 0.40117E-01, 0.39390E-01, 0.38466E-01, 0.40351E-01,
     & 0.39489E-01, 0.38386E-01, 0.37379E-01, 0.36469E-01, 0.35634E-01,
     & 0.34847E-01, 0.34089E-01, 0.33344E-01, 0.32611E-01, 0.31914E-01,
     & 0.31328E-01, 0.30875E-01, 0.30540E-01, 0.30205E-01, 0.29870E-01,
     & 0.29535E-01, 0.29200E-01, 0.28865E-01, 0.28530E-01, 0.28196E-01,
     & 0.49132E-01, 0.45733E-01, 0.42336E-01, 0.42370E-01, 0.39781E-01,
     & 0.39966E-01, 0.39563E-01, 0.38714E-01, 0.37688E-01, 0.39425E-01,
     & 0.38490E-01, 0.37334E-01, 0.36283E-01, 0.35335E-01, 0.34469E-01,
     & 0.33656E-01, 0.32876E-01, 0.32114E-01, 0.31368E-01, 0.30662E-01,
     & 0.30066E-01, 0.29601E-01, 0.29251E-01, 0.28901E-01, 0.28552E-01,
     & 0.28202E-01, 0.27852E-01, 0.27502E-01, 0.27152E-01, 0.26802E-01,
     & 0.48831E-01, 0.45452E-01, 0.42074E-01, 0.42108E-01, 0.39518E-01,
     & 0.39535E-01, 0.38984E-01, 0.38019E-01, 0.36896E-01, 0.38490E-01,
     & 0.37487E-01, 0.36282E-01, 0.35191E-01, 0.34210E-01, 0.33316E-01,
     & 0.32478E-01, 0.31679E-01, 0.30902E-01, 0.30146E-01, 0.29431E-01,
     & 0.28827E-01, 0.28351E-01, 0.27987E-01, 0.27623E-01, 0.27258E-01,
     & 0.26894E-01, 0.26530E-01, 0.26166E-01, 0.25801E-01, 0.25437E-01,
     & 0.48486E-01, 0.45130E-01, 0.41777E-01, 0.41811E-01, 0.39222E-01,
     & 0.39072E-01, 0.38380E-01, 0.37303E-01, 0.36089E-01, 0.37545E-01,
     & 0.36478E-01, 0.35230E-01, 0.34103E-01, 0.33092E-01, 0.32173E-01,
     & 0.31314E-01, 0.30498E-01, 0.29709E-01, 0.28944E-01, 0.28222E-01,
     & 0.27611E-01, 0.27124E-01, 0.26747E-01, 0.26369E-01, 0.25992E-01,
     & 0.25615E-01, 0.25237E-01, 0.24860E-01, 0.24482E-01, 0.24105E-01,
     & 0.48099E-01, 0.44769E-01, 0.41442E-01, 0.41475E-01, 0.38890E-01,
     & 0.38577E-01, 0.37747E-01, 0.36566E-01, 0.35266E-01, 0.36589E-01,
     & 0.35464E-01, 0.34176E-01, 0.33018E-01, 0.31980E-01, 0.31040E-01,
     & 0.30163E-01, 0.29333E-01, 0.28533E-01, 0.27760E-01, 0.27033E-01,
     & 0.26416E-01, 0.25921E-01, 0.25531E-01, 0.25141E-01, 0.24751E-01,
     & 0.24362E-01, 0.23972E-01, 0.23582E-01, 0.23193E-01, 0.22803E-01,
     & 0.47664E-01, 0.44364E-01, 0.41066E-01, 0.41099E-01, 0.38521E-01,
     & 0.38048E-01, 0.37086E-01, 0.35805E-01, 0.34426E-01, 0.35619E-01,
     & 0.34442E-01, 0.33120E-01, 0.31934E-01, 0.30875E-01, 0.29915E-01,
     & 0.29024E-01, 0.28182E-01, 0.27374E-01, 0.26596E-01, 0.25865E-01,
     & 0.25244E-01, 0.24740E-01, 0.24340E-01, 0.23939E-01, 0.23538E-01,
     & 0.23138E-01, 0.22737E-01, 0.22336E-01, 0.21936E-01, 0.21535E-01,
     & 0.47176E-01, 0.43910E-01, 0.40648E-01, 0.40680E-01, 0.38111E-01,
     & 0.37482E-01, 0.36393E-01, 0.35019E-01, 0.33567E-01, 0.34636E-01,
     & 0.33412E-01, 0.32060E-01, 0.30852E-01, 0.29774E-01, 0.28800E-01,
     & 0.27896E-01, 0.27045E-01, 0.26231E-01, 0.25450E-01, 0.24718E-01,
     & 0.24093E-01, 0.23584E-01, 0.23173E-01, 0.22763E-01, 0.22353E-01,
     & 0.21942E-01, 0.21532E-01, 0.21122E-01, 0.20712E-01, 0.20301E-01/

      data ((flgrrl(i,j),j=1,30),i= 61, 70)/
     & 0.46637E-01, 0.43409E-01, 0.40183E-01, 0.40215E-01, 0.37658E-01,
     & 0.36878E-01, 0.35668E-01, 0.34208E-01, 0.32689E-01, 0.33639E-01,
     & 0.32373E-01, 0.30997E-01, 0.29770E-01, 0.28678E-01, 0.27692E-01,
     & 0.26779E-01, 0.25923E-01, 0.25105E-01, 0.24323E-01, 0.23591E-01,
     & 0.22965E-01, 0.22451E-01, 0.22032E-01, 0.21614E-01, 0.21196E-01,
     & 0.20778E-01, 0.20360E-01, 0.19941E-01, 0.19523E-01, 0.19105E-01,
     & 0.46041E-01, 0.42854E-01, 0.39670E-01, 0.39702E-01, 0.37161E-01,
     & 0.36233E-01, 0.34910E-01, 0.33369E-01, 0.31790E-01, 0.32626E-01,
     & 0.31325E-01, 0.29930E-01, 0.28689E-01, 0.27586E-01, 0.26592E-01,
     & 0.25674E-01, 0.24814E-01, 0.23995E-01, 0.23214E-01, 0.22484E-01,
     & 0.21859E-01, 0.21342E-01, 0.20917E-01, 0.20493E-01, 0.20069E-01,
     & 0.19645E-01, 0.19220E-01, 0.18796E-01, 0.18372E-01, 0.17947E-01,
     & 0.45386E-01, 0.42245E-01, 0.39106E-01, 0.39137E-01, 0.36616E-01,
     & 0.35547E-01, 0.34116E-01, 0.32504E-01, 0.30871E-01, 0.31598E-01,
     & 0.30267E-01, 0.28858E-01, 0.27608E-01, 0.26498E-01, 0.25500E-01,
     & 0.24579E-01, 0.23718E-01, 0.22902E-01, 0.22124E-01, 0.21399E-01,
     & 0.20776E-01, 0.20257E-01, 0.19829E-01, 0.19400E-01, 0.18972E-01,
     & 0.18543E-01, 0.18114E-01, 0.17686E-01, 0.17257E-01, 0.16828E-01,
     & 0.44671E-01, 0.41579E-01, 0.38489E-01, 0.38520E-01, 0.36021E-01,
     & 0.34817E-01, 0.33287E-01, 0.31609E-01, 0.29931E-01, 0.30554E-01,
     & 0.29200E-01, 0.27782E-01, 0.26527E-01, 0.25415E-01, 0.24416E-01,
     & 0.23495E-01, 0.22637E-01, 0.21825E-01, 0.21053E-01, 0.20334E-01,
     & 0.19715E-01, 0.19198E-01, 0.18767E-01, 0.18336E-01, 0.17906E-01,
     & 0.17475E-01, 0.17044E-01, 0.16613E-01, 0.16182E-01, 0.15751E-01,
     & 0.43888E-01, 0.40851E-01, 0.37816E-01, 0.37847E-01, 0.35376E-01,
     & 0.34043E-01, 0.32421E-01, 0.30687E-01, 0.28970E-01, 0.29495E-01,
     & 0.28123E-01, 0.26701E-01, 0.25446E-01, 0.24336E-01, 0.23339E-01,
     & 0.22423E-01, 0.21570E-01, 0.20765E-01, 0.20001E-01, 0.19291E-01,
     & 0.18679E-01, 0.18165E-01, 0.17734E-01, 0.17302E-01, 0.16871E-01,
     & 0.16439E-01, 0.16008E-01, 0.15577E-01, 0.15145E-01, 0.14714E-01,
     & 0.43043E-01, 0.40064E-01, 0.37087E-01, 0.37116E-01, 0.34677E-01,
     & 0.33224E-01, 0.31518E-01, 0.29736E-01, 0.27988E-01, 0.28421E-01,
     & 0.27037E-01, 0.25617E-01, 0.24367E-01, 0.23262E-01, 0.22272E-01,
     & 0.21362E-01, 0.20518E-01, 0.19722E-01, 0.18969E-01, 0.18270E-01,
     & 0.17667E-01, 0.17158E-01, 0.16729E-01, 0.16299E-01, 0.15870E-01,
     & 0.15441E-01, 0.15012E-01, 0.14582E-01, 0.14153E-01, 0.13724E-01,
     & 0.42126E-01, 0.39211E-01, 0.36298E-01, 0.36327E-01, 0.33924E-01,
     & 0.32359E-01, 0.30579E-01, 0.28756E-01, 0.26986E-01, 0.27332E-01,
     & 0.25943E-01, 0.24530E-01, 0.23289E-01, 0.22194E-01, 0.21213E-01,
     & 0.20314E-01, 0.19481E-01, 0.18697E-01, 0.17958E-01, 0.17272E-01,
     & 0.16679E-01, 0.16178E-01, 0.15753E-01, 0.15328E-01, 0.14902E-01,
     & 0.14477E-01, 0.14052E-01, 0.13627E-01, 0.13201E-01, 0.12776E-01,
     & 0.41141E-01, 0.38295E-01, 0.35450E-01, 0.35479E-01, 0.33116E-01,
     & 0.31447E-01, 0.29603E-01, 0.27750E-01, 0.25964E-01, 0.26230E-01,
     & 0.24842E-01, 0.23442E-01, 0.22214E-01, 0.21132E-01, 0.20165E-01,
     & 0.19280E-01, 0.18460E-01, 0.17692E-01, 0.16968E-01, 0.16297E-01,
     & 0.15718E-01, 0.15226E-01, 0.14807E-01, 0.14388E-01, 0.13969E-01,
     & 0.13550E-01, 0.13131E-01, 0.12713E-01, 0.12294E-01, 0.11875E-01,
     & 0.40089E-01, 0.37314E-01, 0.34542E-01, 0.34569E-01, 0.32252E-01,
     & 0.30490E-01, 0.28592E-01, 0.26717E-01, 0.24925E-01, 0.25117E-01,
     & 0.23735E-01, 0.22353E-01, 0.21143E-01, 0.20079E-01, 0.19129E-01,
     & 0.18260E-01, 0.17457E-01, 0.16706E-01, 0.16000E-01, 0.15347E-01,
     & 0.14783E-01, 0.14303E-01, 0.13892E-01, 0.13482E-01, 0.13072E-01,
     & 0.12661E-01, 0.12251E-01, 0.11841E-01, 0.11430E-01, 0.11020E-01,
     & 0.38963E-01, 0.36266E-01, 0.33572E-01, 0.33599E-01, 0.31332E-01,
     & 0.29488E-01, 0.27546E-01, 0.25659E-01, 0.23869E-01, 0.23993E-01,
     & 0.22624E-01, 0.21265E-01, 0.20078E-01, 0.19035E-01, 0.18105E-01,
     & 0.17255E-01, 0.16472E-01, 0.15741E-01, 0.15055E-01, 0.14422E-01,
     & 0.13875E-01, 0.13409E-01, 0.13009E-01, 0.12610E-01, 0.12210E-01,
     & 0.11811E-01, 0.11411E-01, 0.11012E-01, 0.10612E-01, 0.10213E-01/

      data ((flgrrl(i,j),j=1,30),i= 71, 80)/
     & 0.37769E-01, 0.35155E-01, 0.32542E-01, 0.32568E-01, 0.30357E-01,
     & 0.28442E-01, 0.26468E-01, 0.24578E-01, 0.22799E-01, 0.22861E-01,
     & 0.21512E-01, 0.20181E-01, 0.19021E-01, 0.18003E-01, 0.17096E-01,
     & 0.16268E-01, 0.15507E-01, 0.14798E-01, 0.14135E-01, 0.13523E-01,
     & 0.12996E-01, 0.12545E-01, 0.12158E-01, 0.11772E-01, 0.11385E-01,
     & 0.10998E-01, 0.10611E-01, 0.10225E-01, 0.98380E-02, 0.94512E-02,
     & 0.36503E-01, 0.33977E-01, 0.31454E-01, 0.31479E-01, 0.29327E-01,
     & 0.27354E-01, 0.25359E-01, 0.23477E-01, 0.21717E-01, 0.21724E-01,
     & 0.20400E-01, 0.19102E-01, 0.17973E-01, 0.16983E-01, 0.16102E-01,
     & 0.15300E-01, 0.14564E-01, 0.13879E-01, 0.13240E-01, 0.12652E-01,
     & 0.12145E-01, 0.11712E-01, 0.11340E-01, 0.10968E-01, 0.10596E-01,
     & 0.10223E-01, 0.98511E-02, 0.94789E-02, 0.91067E-02, 0.87345E-02,
     & 0.35178E-01, 0.32742E-01, 0.30308E-01, 0.30332E-01, 0.28246E-01,
     & 0.26228E-01, 0.24224E-01, 0.22359E-01, 0.20626E-01, 0.20585E-01,
     & 0.19292E-01, 0.18032E-01, 0.16937E-01, 0.15978E-01, 0.15127E-01,
     & 0.14352E-01, 0.13643E-01, 0.12984E-01, 0.12371E-01, 0.11809E-01,
     & 0.11325E-01, 0.10911E-01, 0.10555E-01, 0.10200E-01, 0.98440E-02,
     & 0.94883E-02, 0.91327E-02, 0.87770E-02, 0.84213E-02, 0.80657E-02,
     & 0.33783E-01, 0.31445E-01, 0.29108E-01, 0.29131E-01, 0.27114E-01,
     & 0.25066E-01, 0.23066E-01, 0.21227E-01, 0.19530E-01, 0.19447E-01,
     & 0.18190E-01, 0.16972E-01, 0.15915E-01, 0.14991E-01, 0.14171E-01,
     & 0.13427E-01, 0.12746E-01, 0.12116E-01, 0.11530E-01, 0.10994E-01,
     & 0.10534E-01, 0.10142E-01, 0.98041E-02, 0.94664E-02, 0.91288E-02,
     & 0.87911E-02, 0.84535E-02, 0.81159E-02, 0.77782E-02, 0.74406E-02,
     & 0.32333E-01, 0.30094E-01, 0.27858E-01, 0.27880E-01, 0.25937E-01,
     & 0.23872E-01, 0.21888E-01, 0.20086E-01, 0.18432E-01, 0.18314E-01,
     & 0.17098E-01, 0.15926E-01, 0.14911E-01, 0.14024E-01, 0.13238E-01,
     & 0.12525E-01, 0.11875E-01, 0.11274E-01, 0.10718E-01, 0.10210E-01,
     & 0.97756E-02, 0.94050E-02, 0.90867E-02, 0.87684E-02, 0.84501E-02,
     & 0.81318E-02, 0.78135E-02, 0.74952E-02, 0.71770E-02, 0.68587E-02,
     & 0.30830E-01, 0.28695E-01, 0.26562E-01, 0.26583E-01, 0.24719E-01,
     & 0.22652E-01, 0.20695E-01, 0.18939E-01, 0.17337E-01, 0.17189E-01,
     & 0.16019E-01, 0.14897E-01, 0.13926E-01, 0.13079E-01, 0.12329E-01,
     & 0.11650E-01, 0.11031E-01, 0.10462E-01, 0.99355E-02, 0.94568E-02,
     & 0.90484E-02, 0.87010E-02, 0.84032E-02, 0.81054E-02, 0.78076E-02,
     & 0.75097E-02, 0.72119E-02, 0.69141E-02, 0.66163E-02, 0.63185E-02,
     & 0.29277E-01, 0.27250E-01, 0.25225E-01, 0.25246E-01, 0.23465E-01,
     & 0.21411E-01, 0.19494E-01, 0.17792E-01, 0.16248E-01, 0.16078E-01,
     & 0.14958E-01, 0.13888E-01, 0.12964E-01, 0.12159E-01, 0.11446E-01,
     & 0.10802E-01, 0.10217E-01, 0.96790E-02, 0.91838E-02, 0.87348E-02,
     & 0.83534E-02, 0.80299E-02, 0.77533E-02, 0.74768E-02, 0.72002E-02,
     & 0.69237E-02, 0.66471E-02, 0.63706E-02, 0.60940E-02, 0.58175E-02,
     & 0.27690E-01, 0.25772E-01, 0.23856E-01, 0.23875E-01, 0.22181E-01,
     & 0.20155E-01, 0.18289E-01, 0.16650E-01, 0.15171E-01, 0.14983E-01,
     & 0.13917E-01, 0.12903E-01, 0.12028E-01, 0.11266E-01, 0.10592E-01,
     & 0.99838E-02, 0.94322E-02, 0.89273E-02, 0.84636E-02, 0.80448E-02,
     & 0.76907E-02, 0.73915E-02, 0.71367E-02, 0.68818E-02, 0.66270E-02,
     & 0.63722E-02, 0.61174E-02, 0.58626E-02, 0.56078E-02, 0.53530E-02,
     & 0.26067E-01, 0.24263E-01, 0.22460E-01, 0.22478E-01, 0.20874E-01,
     & 0.18890E-01, 0.17087E-01, 0.15519E-01, 0.14109E-01, 0.13911E-01,
     & 0.12901E-01, 0.11945E-01, 0.11120E-01, 0.10402E-01, 0.97679E-02,
     & 0.91966E-02, 0.86795E-02, 0.82075E-02, 0.77756E-02, 0.73871E-02,
     & 0.70604E-02, 0.67855E-02, 0.65526E-02, 0.63197E-02, 0.60868E-02,
     & 0.58539E-02, 0.56210E-02, 0.53881E-02, 0.51552E-02, 0.49223E-02,
     & 0.24425E-01, 0.22735E-01, 0.21047E-01, 0.21063E-01, 0.19552E-01,
     & 0.17625E-01, 0.15894E-01, 0.14403E-01, 0.13069E-01, 0.12864E-01,
     & 0.11914E-01, 0.11016E-01, 0.10242E-01, 0.95693E-02, 0.89760E-02,
     & 0.84417E-02, 0.79594E-02, 0.75204E-02, 0.71202E-02, 0.67617E-02,
     & 0.64621E-02, 0.62115E-02, 0.60003E-02, 0.57892E-02, 0.55780E-02,
     & 0.53668E-02, 0.51557E-02, 0.49445E-02, 0.47333E-02, 0.45222E-02/

      data ((flgrrl(i,j),j=1,30),i= 81, 90)/
     & 0.22778E-01, 0.21201E-01, 0.19625E-01, 0.19641E-01, 0.18224E-01,
     & 0.16366E-01, 0.14717E-01, 0.13308E-01, 0.12054E-01, 0.11847E-01,
     & 0.10958E-01, 0.10120E-01, 0.93977E-02, 0.87704E-02, 0.82175E-02,
     & 0.77204E-02, 0.72726E-02, 0.68665E-02, 0.64975E-02, 0.61686E-02,
     & 0.58955E-02, 0.56686E-02, 0.54787E-02, 0.52888E-02, 0.50989E-02,
     & 0.49090E-02, 0.47191E-02, 0.45291E-02, 0.43392E-02, 0.41493E-02,
     & 0.21129E-01, 0.19666E-01, 0.18204E-01, 0.18219E-01, 0.16898E-01,
     & 0.15122E-01, 0.13562E-01, 0.12241E-01, 0.11068E-01, 0.10863E-01,
     & 0.10036E-01, 0.92583E-02, 0.85883E-02, 0.80062E-02, 0.74936E-02,
     & 0.70334E-02, 0.66198E-02, 0.62458E-02, 0.59074E-02, 0.56072E-02,
     & 0.53599E-02, 0.51558E-02, 0.49864E-02, 0.48169E-02, 0.46475E-02,
     & 0.44780E-02, 0.43086E-02, 0.41391E-02, 0.39697E-02, 0.38002E-02,
     & 0.19491E-01, 0.18142E-01, 0.16794E-01, 0.16807E-01, 0.15583E-01,
     & 0.13900E-01, 0.12436E-01, 0.11205E-01, 0.10117E-01, 0.99175E-02,
     & 0.91524E-02, 0.84340E-02, 0.78154E-02, 0.72780E-02, 0.68051E-02,
     & 0.63811E-02, 0.60008E-02, 0.56582E-02, 0.53494E-02, 0.50770E-02,
     & 0.48543E-02, 0.46720E-02, 0.45219E-02, 0.43719E-02, 0.42218E-02,
     & 0.40718E-02, 0.39217E-02, 0.37717E-02, 0.36216E-02, 0.34716E-02,
     & 0.17880E-01, 0.16642E-01, 0.15405E-01, 0.15417E-01, 0.14289E-01,
     & 0.12707E-01, 0.11344E-01, 0.10206E-01, 0.92024E-02, 0.90112E-02,
     & 0.83078E-02, 0.76481E-02, 0.70800E-02, 0.65864E-02, 0.61522E-02,
     & 0.57634E-02, 0.54156E-02, 0.51032E-02, 0.48229E-02, 0.45769E-02,
     & 0.43775E-02, 0.42157E-02, 0.40837E-02, 0.39518E-02, 0.38199E-02,
     & 0.36879E-02, 0.35560E-02, 0.34241E-02, 0.32921E-02, 0.31602E-02,
     & 0.16299E-01, 0.15171E-01, 0.14045E-01, 0.14056E-01, 0.13024E-01,
     & 0.11550E-01, 0.10291E-01, 0.92462E-02, 0.83275E-02, 0.81465E-02,
     & 0.75036E-02, 0.69012E-02, 0.63821E-02, 0.59310E-02, 0.55344E-02,
     & 0.51797E-02, 0.48632E-02, 0.45798E-02, 0.43266E-02, 0.41056E-02,
     & 0.39281E-02, 0.37852E-02, 0.36699E-02, 0.35546E-02, 0.34393E-02,
     & 0.33241E-02, 0.32088E-02, 0.30935E-02, 0.29782E-02, 0.28629E-02,
     & 0.14769E-01, 0.13746E-01, 0.12724E-01, 0.12734E-01, 0.11796E-01,
     & 0.10435E-01, 0.92815E-02, 0.83294E-02, 0.74940E-02, 0.73245E-02,
     & 0.67405E-02, 0.61933E-02, 0.57216E-02, 0.53116E-02, 0.49512E-02,
     & 0.46293E-02, 0.43426E-02, 0.40869E-02, 0.38593E-02, 0.36618E-02,
     & 0.35044E-02, 0.33789E-02, 0.32787E-02, 0.31785E-02, 0.30784E-02,
     & 0.29782E-02, 0.28780E-02, 0.27778E-02, 0.26776E-02, 0.25774E-02,
     & 0.13289E-01, 0.12368E-01, 0.11448E-01, 0.11458E-01, 0.10611E-01,
     & 0.93662E-02, 0.83181E-02, 0.74570E-02, 0.67027E-02, 0.65453E-02,
     & 0.60179E-02, 0.55239E-02, 0.50976E-02, 0.47269E-02, 0.44012E-02,
     & 0.41106E-02, 0.38524E-02, 0.36228E-02, 0.34194E-02, 0.32437E-02,
     & 0.31049E-02, 0.29952E-02, 0.29085E-02, 0.28218E-02, 0.27351E-02,
     & 0.26484E-02, 0.25617E-02, 0.24750E-02, 0.23883E-02, 0.23016E-02,
     & 0.11868E-01, 0.11046E-01, 0.10225E-01, 0.10233E-01, 0.94745E-02,
     & 0.83465E-02, 0.74023E-02, 0.66293E-02, 0.59531E-02, 0.58079E-02,
     & 0.53346E-02, 0.48913E-02, 0.45084E-02, 0.41753E-02, 0.38827E-02,
     & 0.36220E-02, 0.33908E-02, 0.31859E-02, 0.30050E-02, 0.28497E-02,
     & 0.27278E-02, 0.26323E-02, 0.25575E-02, 0.24827E-02, 0.24079E-02,
     & 0.23331E-02, 0.22583E-02, 0.21835E-02, 0.21087E-02, 0.20339E-02,
     & 0.10511E-01, 0.97833E-02, 0.90564E-02, 0.90637E-02, 0.83901E-02,
     & 0.73774E-02, 0.65340E-02, 0.58456E-02, 0.52439E-02, 0.51105E-02,
     & 0.46887E-02, 0.42935E-02, 0.39520E-02, 0.36547E-02, 0.33937E-02,
     & 0.31615E-02, 0.29559E-02, 0.27743E-02, 0.26146E-02, 0.24780E-02,
     & 0.23716E-02, 0.22887E-02, 0.22243E-02, 0.21599E-02, 0.20955E-02,
     & 0.20311E-02, 0.19668E-02, 0.19024E-02, 0.18380E-02, 0.17736E-02,
     & 0.92208E-02, 0.85826E-02, 0.79448E-02, 0.79512E-02, 0.73588E-02,
     & 0.64585E-02, 0.57118E-02, 0.51039E-02, 0.45728E-02, 0.44507E-02,
     & 0.40775E-02, 0.37281E-02, 0.34259E-02, 0.31629E-02, 0.29321E-02,
     & 0.27269E-02, 0.25458E-02, 0.23861E-02, 0.22462E-02, 0.21271E-02,
     & 0.20348E-02, 0.19632E-02, 0.19079E-02, 0.18527E-02, 0.17974E-02,
     & 0.17422E-02, 0.16869E-02, 0.16317E-02, 0.15764E-02, 0.15212E-02/

      data ((flgrrl(i,j),j=1,30),i= 91,100)/
     & 0.79959E-02, 0.74424E-02, 0.68893E-02, 0.68949E-02, 0.63797E-02,
     & 0.55876E-02, 0.49332E-02, 0.44014E-02, 0.39370E-02, 0.38254E-02,
     & 0.34984E-02, 0.31925E-02, 0.29279E-02, 0.26977E-02, 0.24958E-02,
     & 0.23166E-02, 0.21587E-02, 0.20200E-02, 0.18988E-02, 0.17959E-02,
     & 0.17165E-02, 0.16551E-02, 0.16079E-02, 0.15607E-02, 0.15135E-02,
     & 0.14663E-02, 0.14191E-02, 0.13719E-02, 0.13248E-02, 0.12776E-02,
     & 0.68326E-02, 0.63597E-02, 0.58872E-02, 0.58919E-02, 0.54503E-02,
     & 0.47615E-02, 0.41945E-02, 0.37347E-02, 0.33335E-02, 0.32317E-02,
     & 0.29487E-02, 0.26845E-02, 0.24560E-02, 0.22573E-02, 0.20833E-02,
     & 0.19291E-02, 0.17936E-02, 0.16749E-02, 0.15715E-02, 0.14839E-02,
     & 0.14165E-02, 0.13644E-02, 0.13244E-02, 0.12844E-02, 0.12445E-02,
     & 0.12045E-02, 0.11645E-02, 0.11246E-02, 0.10846E-02, 0.10446E-02,
     & 0.57264E-02, 0.53301E-02, 0.49341E-02, 0.49381E-02, 0.45664E-02,
     & 0.39763E-02, 0.34924E-02, 0.31009E-02, 0.27596E-02, 0.26675E-02,
     & 0.24267E-02, 0.22026E-02, 0.20090E-02, 0.18410E-02, 0.16941E-02,
     & 0.15642E-02, 0.14504E-02, 0.13509E-02, 0.12644E-02, 0.11914E-02,
     & 0.11352E-02, 0.10918E-02, 0.10585E-02, 0.10252E-02, 0.99190E-03,
     & 0.95861E-03, 0.92531E-03, 0.89201E-03, 0.85872E-03, 0.82542E-03,
     & 0.46724E-02, 0.43490E-02, 0.40259E-02, 0.40291E-02, 0.37242E-02,
     & 0.32287E-02, 0.28242E-02, 0.24981E-02, 0.22144E-02, 0.21321E-02,
     & 0.19322E-02, 0.17471E-02, 0.15876E-02, 0.14494E-02, 0.13290E-02,
     & 0.12228E-02, 0.11300E-02, 0.10492E-02, 0.97909E-03, 0.92002E-03,
     & 0.87448E-03, 0.83923E-03, 0.81216E-03, 0.78509E-03, 0.75802E-03,
     & 0.73094E-03, 0.70387E-03, 0.67680E-03, 0.64973E-03, 0.62265E-03,
     & 0.36670E-02, 0.34133E-02, 0.31597E-02, 0.31623E-02, 0.29212E-02,
     & 0.25175E-02, 0.21899E-02, 0.19272E-02, 0.16993E-02, 0.16277E-02,
     & 0.14678E-02, 0.13208E-02, 0.11945E-02, 0.10856E-02, 0.99098E-03,
     & 0.90787E-03, 0.83548E-03, 0.77263E-03, 0.71831E-03, 0.67259E-03,
     & 0.63728E-03, 0.60978E-03, 0.58846E-03, 0.56714E-03, 0.54581E-03,
     & 0.52449E-03, 0.50317E-03, 0.48185E-03, 0.46053E-03, 0.43921E-03,
     & 0.27132E-02, 0.25254E-02, 0.23377E-02, 0.23396E-02, 0.21595E-02,
     & 0.18461E-02, 0.15937E-02, 0.13928E-02, 0.12195E-02, 0.11601E-02,
     & 0.10395E-02, 0.92958E-03, 0.83567E-03, 0.75508E-03, 0.68546E-03,
     & 0.62456E-03, 0.57178E-03, 0.52613E-03, 0.48681E-03, 0.45377E-03,
     & 0.42818E-03, 0.40805E-03, 0.39217E-03, 0.37629E-03, 0.36042E-03,
     & 0.34454E-03, 0.32867E-03, 0.31279E-03, 0.29692E-03, 0.28104E-03,
     & 0.18230E-02, 0.16968E-02, 0.15707E-02, 0.15719E-02, 0.14493E-02,
     & 0.12253E-02, 0.10469E-02, 0.90644E-03, 0.78604E-03, 0.74103E-03,
     & 0.65833E-03, 0.58394E-03, 0.52086E-03, 0.46712E-03, 0.42101E-03,
     & 0.38092E-03, 0.34639E-03, 0.31669E-03, 0.29121E-03, 0.26984E-03,
     & 0.25324E-03, 0.24002E-03, 0.22938E-03, 0.21875E-03, 0.20811E-03,
     & 0.19748E-03, 0.18684E-03, 0.17621E-03, 0.16557E-03, 0.15493E-03,
     & 0.10264E-02, 0.95530E-03, 0.88431E-03, 0.88502E-03, 0.81475E-03,
     & 0.67822E-03, 0.57116E-03, 0.48820E-03, 0.41777E-03, 0.38894E-03,
     & 0.34154E-03, 0.29960E-03, 0.26442E-03, 0.23475E-03, 0.20954E-03,
     & 0.18781E-03, 0.16925E-03, 0.15340E-03, 0.13989E-03, 0.12859E-03,
     & 0.11978E-03, 0.11268E-03, 0.10685E-03, 0.10103E-03, 0.95207E-04,
     & 0.89383E-04, 0.83560E-04, 0.77737E-04, 0.71913E-04, 0.66090E-04,
     & 0.38392E-03, 0.35735E-03, 0.33080E-03, 0.33107E-03, 0.30413E-03,
     & 0.24777E-03, 0.20451E-03, 0.17171E-03, 0.14426E-03, 0.13199E-03,
     & 0.11406E-03, 0.98550E-04, 0.85726E-04, 0.75067E-04, 0.66132E-04,
     & 0.58519E-04, 0.52095E-04, 0.46668E-04, 0.42078E-04, 0.38263E-04,
     & 0.35283E-04, 0.32852E-04, 0.30826E-04, 0.28801E-04, 0.26776E-04,
     & 0.24751E-04, 0.22726E-04, 0.20700E-04, 0.18675E-04, 0.16650E-04,
     & 0.42560E-04, 0.39615E-04, 0.36673E-04, 0.36702E-04, 0.33686E-04,
     & 0.27193E-04, 0.22249E-04, 0.18534E-04, 0.15441E-04, 0.14016E-04,
     & 0.12022E-04, 0.10312E-04, 0.89071E-05, 0.77470E-05, 0.67804E-05,
     & 0.59611E-05, 0.52736E-05, 0.46957E-05, 0.42087E-05, 0.38052E-05,
     & 0.34898E-05, 0.32312E-05, 0.30144E-05, 0.27976E-05, 0.25808E-05,
     & 0.23640E-05, 0.21472E-05, 0.19304E-05, 0.17136E-05, 0.14968E-05/

      data ((c2grrl(i,j),j=1,30),i=  1, 10)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 11, 20)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 21, 30)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 31, 40)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 41, 50)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 51, 60)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 61, 70)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 71, 80)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((c2grrl(i,j),j=1,30),i= 91,100)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/

      data ((clgrrl(i,j),j=1,30),i=  1, 10)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 11, 20)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 21, 30)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 31, 40)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 41, 50)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 51, 60)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 61, 70)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 71, 80)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/

      data ((clgrrl(i,j),j=1,30),i= 91,100)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30,
     & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/

      DO I=1, 100
        DO J=1, 30
          U_GRD(I,J) = U_GRDL(I,J)
          G_GRD(I,J) = G_GRDL(I,J)
          F2GRD(I,J) = F2GRDL(I,J)
          FLGRD(I,J) = FLGRDL(I,J)
          C2GRD(I,J) = C2GRDL(I,J)
          CLGRD(I,J) = CLGRDL(I,J)
          F2GRR(I,J) = F2GRRL(I,J)
          FLGRR(I,J) = FLGRRL(I,J)
          C2GRR(I,J) = C2GRRL(I,J)
          CLGRR(I,J) = CLGRRL(I,J)
        ENDDO
      ENDDO
      RETURN
      END
