      SUBROUTINE i_2006_fita
      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.90699E-02,-0.33085E-02, 0.25418E-02, 0.92831E-02, 0.16907E-01,
     & 0.25283E-01, 0.34281E-01, 0.43857E-01, 0.53764E-01, 0.64047E-01,
     & 0.74653E-01, 0.85519E-01, 0.96598E-01, 0.10786E+00, 0.11926E+00,
     & 0.13078E+00, 0.14240E+00, 0.15410E+00, 0.16585E+00, 0.17765E+00,
     & 0.18948E+00, 0.20132E+00, 0.21318E+00, 0.22503E+00, 0.23688E+00,
     & 0.24874E+00, 0.26059E+00, 0.27244E+00, 0.28430E+00, 0.29615E+00,
     &-0.90001E-02,-0.32830E-02, 0.25204E-02, 0.91891E-02, 0.16712E-01,
     & 0.24960E-01, 0.33805E-01, 0.43203E-01, 0.52916E-01, 0.62985E-01,
     & 0.73360E-01, 0.83978E-01, 0.94795E-01, 0.10578E+00, 0.11690E+00,
     & 0.12812E+00, 0.13943E+00, 0.15081E+00, 0.16223E+00, 0.17370E+00,
     & 0.18519E+00, 0.19668E+00, 0.20819E+00, 0.21969E+00, 0.23119E+00,
     & 0.24269E+00, 0.25419E+00, 0.26569E+00, 0.27719E+00, 0.28869E+00,
     &-0.89302E-02,-0.32575E-02, 0.24991E-02, 0.90955E-02, 0.16518E-01,
     & 0.24639E-01, 0.33333E-01, 0.42556E-01, 0.52078E-01, 0.61937E-01,
     & 0.72084E-01, 0.82459E-01, 0.93020E-01, 0.10373E+00, 0.11457E+00,
     & 0.12550E+00, 0.13651E+00, 0.14758E+00, 0.15868E+00, 0.16982E+00,
     & 0.18098E+00, 0.19213E+00, 0.20329E+00, 0.21445E+00, 0.22561E+00,
     & 0.23677E+00, 0.24793E+00, 0.25909E+00, 0.27025E+00, 0.28140E+00,
     &-0.88602E-02,-0.32320E-02, 0.24778E-02, 0.90023E-02, 0.16325E-01,
     & 0.24321E-01, 0.32866E-01, 0.41915E-01, 0.51248E-01, 0.60901E-01,
     & 0.70825E-01, 0.80961E-01, 0.91269E-01, 0.10172E+00, 0.11228E+00,
     & 0.12292E+00, 0.13364E+00, 0.14440E+00, 0.15520E+00, 0.16602E+00,
     & 0.17684E+00, 0.18767E+00, 0.19850E+00, 0.20932E+00, 0.22015E+00,
     & 0.23097E+00, 0.24180E+00, 0.25262E+00, 0.26345E+00, 0.27427E+00,
     &-0.87902E-02,-0.32064E-02, 0.24565E-02, 0.89093E-02, 0.16133E-01,
     & 0.24005E-01, 0.32402E-01, 0.41281E-01, 0.50429E-01, 0.59878E-01,
     & 0.69582E-01, 0.79485E-01, 0.89545E-01, 0.99735E-01, 0.11003E+00,
     & 0.12039E+00, 0.13081E+00, 0.14128E+00, 0.15177E+00, 0.16228E+00,
     & 0.17279E+00, 0.18330E+00, 0.19379E+00, 0.20429E+00, 0.21479E+00,
     & 0.22528E+00, 0.23578E+00, 0.24628E+00, 0.25678E+00, 0.26727E+00,
     &-0.87200E-02,-0.31808E-02, 0.24353E-02, 0.88167E-02, 0.15943E-01,
     & 0.23691E-01, 0.31943E-01, 0.40653E-01, 0.49618E-01, 0.58868E-01,
     & 0.68356E-01, 0.78028E-01, 0.87846E-01, 0.97782E-01, 0.10781E+00,
     & 0.11790E+00, 0.12804E+00, 0.13822E+00, 0.14841E+00, 0.15862E+00,
     & 0.16881E+00, 0.17900E+00, 0.18918E+00, 0.19936E+00, 0.20954E+00,
     & 0.21972E+00, 0.22990E+00, 0.24008E+00, 0.25026E+00, 0.26044E+00,
     &-0.86497E-02,-0.31552E-02, 0.24140E-02, 0.87244E-02, 0.15753E-01,
     & 0.23380E-01, 0.31489E-01, 0.40032E-01, 0.48817E-01, 0.57871E-01,
     & 0.67146E-01, 0.76592E-01, 0.86172E-01, 0.95859E-01, 0.10563E+00,
     & 0.11545E+00, 0.12531E+00, 0.13521E+00, 0.14511E+00, 0.15502E+00,
     & 0.16491E+00, 0.17479E+00, 0.18466E+00, 0.19453E+00, 0.20440E+00,
     & 0.21427E+00, 0.22414E+00, 0.23401E+00, 0.24388E+00, 0.25374E+00,
     &-0.85794E-02,-0.31295E-02, 0.23927E-02, 0.86325E-02, 0.15565E-01,
     & 0.23072E-01, 0.31038E-01, 0.39417E-01, 0.48026E-01, 0.56885E-01,
     & 0.65952E-01, 0.75177E-01, 0.84523E-01, 0.93965E-01, 0.10348E+00,
     & 0.11304E+00, 0.12263E+00, 0.13225E+00, 0.14187E+00, 0.15149E+00,
     & 0.16109E+00, 0.17067E+00, 0.18024E+00, 0.18980E+00, 0.19937E+00,
     & 0.20894E+00, 0.21851E+00, 0.22807E+00, 0.23764E+00, 0.24721E+00,
     &-0.85090E-02,-0.31038E-02, 0.23714E-02, 0.85409E-02, 0.15378E-01,
     & 0.22765E-01, 0.30591E-01, 0.38809E-01, 0.47243E-01, 0.55912E-01,
     & 0.64774E-01, 0.73781E-01, 0.82899E-01, 0.92101E-01, 0.10137E+00,
     & 0.11067E+00, 0.12000E+00, 0.12934E+00, 0.13869E+00, 0.14802E+00,
     & 0.15733E+00, 0.16662E+00, 0.17590E+00, 0.18517E+00, 0.19444E+00,
     & 0.20371E+00, 0.21299E+00, 0.22226E+00, 0.23153E+00, 0.24081E+00,
     &-0.84385E-02,-0.30781E-02, 0.23502E-02, 0.84496E-02, 0.15192E-01,
     & 0.22461E-01, 0.30149E-01, 0.38208E-01, 0.46469E-01, 0.54951E-01,
     & 0.63612E-01, 0.72405E-01, 0.81298E-01, 0.90266E-01, 0.99288E-01,
     & 0.10834E+00, 0.11741E+00, 0.12649E+00, 0.13556E+00, 0.14462E+00,
     & 0.15365E+00, 0.16266E+00, 0.17164E+00, 0.18063E+00, 0.18961E+00,
     & 0.19860E+00, 0.20759E+00, 0.21657E+00, 0.22556E+00, 0.23454E+00/

      data ((u_grdl(i,j),j=1,30),i= 11, 20)/
     &-0.83679E-02,-0.30523E-02, 0.23289E-02, 0.83586E-02, 0.15007E-01,
     & 0.22160E-01, 0.29711E-01, 0.37612E-01, 0.45704E-01, 0.54002E-01,
     & 0.62465E-01, 0.71049E-01, 0.79722E-01, 0.88460E-01, 0.97243E-01,
     & 0.10605E+00, 0.11487E+00, 0.12369E+00, 0.13250E+00, 0.14129E+00,
     & 0.15004E+00, 0.15877E+00, 0.16747E+00, 0.17618E+00, 0.18489E+00,
     & 0.19359E+00, 0.20230E+00, 0.21101E+00, 0.21971E+00, 0.22842E+00,
     &-0.82972E-02,-0.30265E-02, 0.23077E-02, 0.82680E-02, 0.14823E-01,
     & 0.21860E-01, 0.29276E-01, 0.37023E-01, 0.44949E-01, 0.53066E-01,
     & 0.61334E-01, 0.69712E-01, 0.78169E-01, 0.86682E-01, 0.95232E-01,
     & 0.10380E+00, 0.11237E+00, 0.12094E+00, 0.12949E+00, 0.13801E+00,
     & 0.14650E+00, 0.15496E+00, 0.16339E+00, 0.17182E+00, 0.18026E+00,
     & 0.18869E+00, 0.19712E+00, 0.20556E+00, 0.21399E+00, 0.22242E+00,
     &-0.82264E-02,-0.30007E-02, 0.22865E-02, 0.81777E-02, 0.14640E-01,
     & 0.21563E-01, 0.28846E-01, 0.36441E-01, 0.44202E-01, 0.52141E-01,
     & 0.60218E-01, 0.68394E-01, 0.76640E-01, 0.84932E-01, 0.93254E-01,
     & 0.10159E+00, 0.10992E+00, 0.11824E+00, 0.12654E+00, 0.13480E+00,
     & 0.14303E+00, 0.15122E+00, 0.15939E+00, 0.16756E+00, 0.17572E+00,
     & 0.18389E+00, 0.19206E+00, 0.20023E+00, 0.20840E+00, 0.21656E+00,
     &-0.81556E-02,-0.29749E-02, 0.22653E-02, 0.80878E-02, 0.14458E-01,
     & 0.21269E-01, 0.28420E-01, 0.35864E-01, 0.43464E-01, 0.51227E-01,
     & 0.59117E-01, 0.67095E-01, 0.75133E-01, 0.83210E-01, 0.91308E-01,
     & 0.99410E-01, 0.10751E+00, 0.11558E+00, 0.12364E+00, 0.13165E+00,
     & 0.13962E+00, 0.14756E+00, 0.15547E+00, 0.16338E+00, 0.17129E+00,
     & 0.17919E+00, 0.18710E+00, 0.19501E+00, 0.20292E+00, 0.21083E+00,
     &-0.80847E-02,-0.29490E-02, 0.22441E-02, 0.79982E-02, 0.14278E-01,
     & 0.20976E-01, 0.27997E-01, 0.35294E-01, 0.42734E-01, 0.50326E-01,
     & 0.58032E-01, 0.65815E-01, 0.73650E-01, 0.81515E-01, 0.89394E-01,
     & 0.97271E-01, 0.10514E+00, 0.11298E+00, 0.12079E+00, 0.12856E+00,
     & 0.13629E+00, 0.14397E+00, 0.15163E+00, 0.15928E+00, 0.16694E+00,
     & 0.17460E+00, 0.18225E+00, 0.18991E+00, 0.19757E+00, 0.20522E+00,
     &-0.80137E-02,-0.29230E-02, 0.22229E-02, 0.79089E-02, 0.14098E-01,
     & 0.20686E-01, 0.27579E-01, 0.34729E-01, 0.42013E-01, 0.49436E-01,
     & 0.56961E-01, 0.64553E-01, 0.72189E-01, 0.79847E-01, 0.87512E-01,
     & 0.95169E-01, 0.10281E+00, 0.11042E+00, 0.11800E+00, 0.12553E+00,
     & 0.13301E+00, 0.14045E+00, 0.14787E+00, 0.15528E+00, 0.16269E+00,
     & 0.17010E+00, 0.17751E+00, 0.18492E+00, 0.19233E+00, 0.19974E+00,
     &-0.79426E-02,-0.28971E-02, 0.22017E-02, 0.78200E-02, 0.13920E-01,
     & 0.20399E-01, 0.27165E-01, 0.34171E-01, 0.41301E-01, 0.48557E-01,
     & 0.55905E-01, 0.63310E-01, 0.70750E-01, 0.78205E-01, 0.85661E-01,
     & 0.93103E-01, 0.10052E+00, 0.10791E+00, 0.11526E+00, 0.12256E+00,
     & 0.12981E+00, 0.13701E+00, 0.14418E+00, 0.15135E+00, 0.15852E+00,
     & 0.16569E+00, 0.17287E+00, 0.18004E+00, 0.18721E+00, 0.19438E+00,
     &-0.78715E-02,-0.28711E-02, 0.21806E-02, 0.77315E-02, 0.13742E-01,
     & 0.20113E-01, 0.26755E-01, 0.33619E-01, 0.40598E-01, 0.47690E-01,
     & 0.54863E-01, 0.62085E-01, 0.69334E-01, 0.76590E-01, 0.83840E-01,
     & 0.91073E-01, 0.98278E-01, 0.10545E+00, 0.11257E+00, 0.11965E+00,
     & 0.12666E+00, 0.13363E+00, 0.14057E+00, 0.14751E+00, 0.15445E+00,
     & 0.16139E+00, 0.16832E+00, 0.17526E+00, 0.18220E+00, 0.18914E+00,
     &-0.78002E-02,-0.28451E-02, 0.21595E-02, 0.76433E-02, 0.13566E-01,
     & 0.19830E-01, 0.26348E-01, 0.33073E-01, 0.39902E-01, 0.46834E-01,
     & 0.53836E-01, 0.60878E-01, 0.67939E-01, 0.75001E-01, 0.82051E-01,
     & 0.89078E-01, 0.96073E-01, 0.10303E+00, 0.10993E+00, 0.11679E+00,
     & 0.12358E+00, 0.13033E+00, 0.13704E+00, 0.14375E+00, 0.15046E+00,
     & 0.15717E+00, 0.16388E+00, 0.17059E+00, 0.17730E+00, 0.18402E+00,
     &-0.77290E-02,-0.28191E-02, 0.21384E-02, 0.75555E-02, 0.13391E-01,
     & 0.19550E-01, 0.25946E-01, 0.32533E-01, 0.39216E-01, 0.45989E-01,
     & 0.52823E-01, 0.59689E-01, 0.66566E-01, 0.73438E-01, 0.80292E-01,
     & 0.87118E-01, 0.93907E-01, 0.10065E+00, 0.10735E+00, 0.11399E+00,
     & 0.12056E+00, 0.12709E+00, 0.13358E+00, 0.14007E+00, 0.14656E+00,
     & 0.15305E+00, 0.15954E+00, 0.16603E+00, 0.17252E+00, 0.17901E+00/

      data ((u_grdl(i,j),j=1,30),i= 21, 30)/
     &-0.76577E-02,-0.27930E-02, 0.21173E-02, 0.74680E-02, 0.13217E-01,
     & 0.19271E-01, 0.25547E-01, 0.32000E-01, 0.38537E-01, 0.45156E-01,
     & 0.51825E-01, 0.58517E-01, 0.65214E-01, 0.71899E-01, 0.78562E-01,
     & 0.85192E-01, 0.91781E-01, 0.98321E-01, 0.10481E+00, 0.11124E+00,
     & 0.11760E+00, 0.12391E+00, 0.13019E+00, 0.13646E+00, 0.14274E+00,
     & 0.14901E+00, 0.15529E+00, 0.16156E+00, 0.16784E+00, 0.17411E+00,
     &-0.75863E-02,-0.27669E-02, 0.20963E-02, 0.73810E-02, 0.13045E-01,
     & 0.18995E-01, 0.25153E-01, 0.31472E-01, 0.37867E-01, 0.44333E-01,
     & 0.50840E-01, 0.57363E-01, 0.63884E-01, 0.70387E-01, 0.76861E-01,
     & 0.83300E-01, 0.89693E-01, 0.96034E-01, 0.10232E+00, 0.10855E+00,
     & 0.11470E+00, 0.12080E+00, 0.12687E+00, 0.13293E+00, 0.13900E+00,
     & 0.14507E+00, 0.15113E+00, 0.15720E+00, 0.16326E+00, 0.16933E+00,
     &-0.75149E-02,-0.27408E-02, 0.20754E-02, 0.72943E-02, 0.12873E-01,
     & 0.18722E-01, 0.24762E-01, 0.30950E-01, 0.37205E-01, 0.43521E-01,
     & 0.49870E-01, 0.56226E-01, 0.62574E-01, 0.68898E-01, 0.75190E-01,
     & 0.81441E-01, 0.87643E-01, 0.93790E-01, 0.99879E-01, 0.10591E+00,
     & 0.11186E+00, 0.11776E+00, 0.12362E+00, 0.12948E+00, 0.13534E+00,
     & 0.14121E+00, 0.14707E+00, 0.15293E+00, 0.15879E+00, 0.16466E+00,
     &-0.74434E-02,-0.27146E-02, 0.20544E-02, 0.72081E-02, 0.12703E-01,
     & 0.18450E-01, 0.24376E-01, 0.30434E-01, 0.36552E-01, 0.42721E-01,
     & 0.48913E-01, 0.55107E-01, 0.61285E-01, 0.67435E-01, 0.73547E-01,
     & 0.79615E-01, 0.85631E-01, 0.91588E-01, 0.97485E-01, 0.10332E+00,
     & 0.10907E+00, 0.11477E+00, 0.12044E+00, 0.12610E+00, 0.13177E+00,
     & 0.13743E+00, 0.14310E+00, 0.14876E+00, 0.15442E+00, 0.16009E+00,
     &-0.73720E-02,-0.26885E-02, 0.20335E-02, 0.71223E-02, 0.12533E-01,
     & 0.18181E-01, 0.23993E-01, 0.29924E-01, 0.35906E-01, 0.41931E-01,
     & 0.47970E-01, 0.54004E-01, 0.60017E-01, 0.65996E-01, 0.71933E-01,
     & 0.77822E-01, 0.83655E-01, 0.89428E-01, 0.95138E-01, 0.10078E+00,
     & 0.10634E+00, 0.11185E+00, 0.11733E+00, 0.12280E+00, 0.12827E+00,
     & 0.13374E+00, 0.13921E+00, 0.14468E+00, 0.15016E+00, 0.15563E+00,
     &-0.73005E-02,-0.26623E-02, 0.20127E-02, 0.70369E-02, 0.12365E-01,
     & 0.17915E-01, 0.23614E-01, 0.29420E-01, 0.35269E-01, 0.41151E-01,
     & 0.47041E-01, 0.52918E-01, 0.58769E-01, 0.64581E-01, 0.70346E-01,
     & 0.76061E-01, 0.81717E-01, 0.87309E-01, 0.92836E-01, 0.98294E-01,
     & 0.10367E+00, 0.10900E+00, 0.11428E+00, 0.11956E+00, 0.12485E+00,
     & 0.13013E+00, 0.13542E+00, 0.14070E+00, 0.14599E+00, 0.15127E+00,
     &-0.72290E-02,-0.26361E-02, 0.19920E-02, 0.69519E-02, 0.12199E-01,
     & 0.17651E-01, 0.23239E-01, 0.28921E-01, 0.34640E-01, 0.40383E-01,
     & 0.46125E-01, 0.51849E-01, 0.57541E-01, 0.63189E-01, 0.68787E-01,
     & 0.74332E-01, 0.79814E-01, 0.85230E-01, 0.90579E-01, 0.95858E-01,
     & 0.10105E+00, 0.10620E+00, 0.11130E+00, 0.11640E+00, 0.12150E+00,
     & 0.12660E+00, 0.13171E+00, 0.13681E+00, 0.14191E+00, 0.14701E+00,
     &-0.71575E-02,-0.26098E-02, 0.19713E-02, 0.68675E-02, 0.12033E-01,
     & 0.17389E-01, 0.22869E-01, 0.28429E-01, 0.34019E-01, 0.39625E-01,
     & 0.45224E-01, 0.50797E-01, 0.56333E-01, 0.61822E-01, 0.67256E-01,
     & 0.72634E-01, 0.77947E-01, 0.83192E-01, 0.88368E-01, 0.93472E-01,
     & 0.98492E-01, 0.10346E+00, 0.10838E+00, 0.11331E+00, 0.11823E+00,
     & 0.12316E+00, 0.12808E+00, 0.13300E+00, 0.13793E+00, 0.14285E+00,
     &-0.70861E-02,-0.25836E-02, 0.19507E-02, 0.67835E-02, 0.11869E-01,
     & 0.17130E-01, 0.22502E-01, 0.27943E-01, 0.33407E-01, 0.38878E-01,
     & 0.44335E-01, 0.49761E-01, 0.55145E-01, 0.60477E-01, 0.65752E-01,
     & 0.70967E-01, 0.76115E-01, 0.81192E-01, 0.86200E-01, 0.91134E-01,
     & 0.95983E-01, 0.10078E+00, 0.10553E+00, 0.11028E+00, 0.11503E+00,
     & 0.11978E+00, 0.12454E+00, 0.12929E+00, 0.13404E+00, 0.13879E+00,
     &-0.70147E-02,-0.25573E-02, 0.19302E-02, 0.67001E-02, 0.11706E-01,
     & 0.16873E-01, 0.22139E-01, 0.27463E-01, 0.32802E-01, 0.38142E-01,
     & 0.43459E-01, 0.48742E-01, 0.53977E-01, 0.59156E-01, 0.64275E-01,
     & 0.69331E-01, 0.74318E-01, 0.79232E-01, 0.84075E-01, 0.88844E-01,
     & 0.93526E-01, 0.98152E-01, 0.10274E+00, 0.10732E+00, 0.11191E+00,
     & 0.11649E+00, 0.12107E+00, 0.12566E+00, 0.13024E+00, 0.13483E+00/

      data ((u_grdl(i,j),j=1,30),i= 31, 40)/
     &-0.69433E-02,-0.25310E-02, 0.19099E-02, 0.66172E-02, 0.11545E-01,
     & 0.16619E-01, 0.21780E-01, 0.26988E-01, 0.32206E-01, 0.37416E-01,
     & 0.42597E-01, 0.47738E-01, 0.52828E-01, 0.57858E-01, 0.62824E-01,
     & 0.67725E-01, 0.72555E-01, 0.77311E-01, 0.81994E-01, 0.86601E-01,
     & 0.91121E-01, 0.95584E-01, 0.10001E+00, 0.10443E+00, 0.10885E+00,
     & 0.11327E+00, 0.11769E+00, 0.12211E+00, 0.12654E+00, 0.13096E+00,
     &-0.68720E-02,-0.25047E-02, 0.18896E-02, 0.65348E-02, 0.11384E-01,
     & 0.16367E-01, 0.21426E-01, 0.26520E-01, 0.31617E-01, 0.36700E-01,
     & 0.41749E-01, 0.46751E-01, 0.51698E-01, 0.56582E-01, 0.61399E-01,
     & 0.66149E-01, 0.70826E-01, 0.75427E-01, 0.79954E-01, 0.84404E-01,
     & 0.88767E-01, 0.93072E-01, 0.97336E-01, 0.10160E+00, 0.10586E+00,
     & 0.11013E+00, 0.11439E+00, 0.11865E+00, 0.12292E+00, 0.12718E+00,
     &-0.68007E-02,-0.24784E-02, 0.18696E-02, 0.64531E-02, 0.11226E-01,
     & 0.16118E-01, 0.21075E-01, 0.26058E-01, 0.31037E-01, 0.35995E-01,
     & 0.40913E-01, 0.45780E-01, 0.50588E-01, 0.55329E-01, 0.60001E-01,
     & 0.64604E-01, 0.69131E-01, 0.73581E-01, 0.77956E-01, 0.82254E-01,
     & 0.86463E-01, 0.90615E-01, 0.94724E-01, 0.98834E-01, 0.10294E+00,
     & 0.10705E+00, 0.11116E+00, 0.11527E+00, 0.11938E+00, 0.12349E+00,
     &-0.67296E-02,-0.24520E-02, 0.18497E-02, 0.63720E-02, 0.11068E-01,
     & 0.15872E-01, 0.20729E-01, 0.25601E-01, 0.30465E-01, 0.35301E-01,
     & 0.40090E-01, 0.44825E-01, 0.49496E-01, 0.54098E-01, 0.58628E-01,
     & 0.63087E-01, 0.67469E-01, 0.71772E-01, 0.76000E-01, 0.80149E-01,
     & 0.84209E-01, 0.88211E-01, 0.92172E-01, 0.96132E-01, 0.10009E+00,
     & 0.10405E+00, 0.10801E+00, 0.11197E+00, 0.11594E+00, 0.11990E+00,
     &-0.66585E-02,-0.24256E-02, 0.18300E-02, 0.62916E-02, 0.10913E-01,
     & 0.15628E-01, 0.20387E-01, 0.25151E-01, 0.29901E-01, 0.34617E-01,
     & 0.39281E-01, 0.43886E-01, 0.48424E-01, 0.52890E-01, 0.57281E-01,
     & 0.61600E-01, 0.65840E-01, 0.70000E-01, 0.74084E-01, 0.78088E-01,
     & 0.82004E-01, 0.85861E-01, 0.89677E-01, 0.93492E-01, 0.97308E-01,
     & 0.10112E+00, 0.10494E+00, 0.10875E+00, 0.11257E+00, 0.11639E+00,
     &-0.65876E-02,-0.23991E-02, 0.18105E-02, 0.62119E-02, 0.10758E-01,
     & 0.15387E-01, 0.20049E-01, 0.24707E-01, 0.29345E-01, 0.33943E-01,
     & 0.38485E-01, 0.42962E-01, 0.47370E-01, 0.51703E-01, 0.55959E-01,
     & 0.60141E-01, 0.64243E-01, 0.68264E-01, 0.72208E-01, 0.76072E-01,
     & 0.79846E-01, 0.83563E-01, 0.87238E-01, 0.90913E-01, 0.94588E-01,
     & 0.98262E-01, 0.10194E+00, 0.10561E+00, 0.10929E+00, 0.11296E+00,
     &-0.65167E-02,-0.23727E-02, 0.17913E-02, 0.61330E-02, 0.10606E-01,
     & 0.15149E-01, 0.19716E-01, 0.24269E-01, 0.28798E-01, 0.33280E-01,
     & 0.37701E-01, 0.42055E-01, 0.46336E-01, 0.50539E-01, 0.54663E-01,
     & 0.58711E-01, 0.62678E-01, 0.66564E-01, 0.70371E-01, 0.74099E-01,
     & 0.77737E-01, 0.81317E-01, 0.84855E-01, 0.88394E-01, 0.91932E-01,
     & 0.95470E-01, 0.99008E-01, 0.10255E+00, 0.10608E+00, 0.10962E+00,
     &-0.64461E-02,-0.23461E-02, 0.17724E-02, 0.60549E-02, 0.10455E-01,
     & 0.14914E-01, 0.19387E-01, 0.23837E-01, 0.28258E-01, 0.32628E-01,
     & 0.36931E-01, 0.41163E-01, 0.45319E-01, 0.49396E-01, 0.53391E-01,
     & 0.57309E-01, 0.61146E-01, 0.64899E-01, 0.68574E-01, 0.72169E-01,
     & 0.75674E-01, 0.79122E-01, 0.82528E-01, 0.85934E-01, 0.89340E-01,
     & 0.92745E-01, 0.96151E-01, 0.99557E-01, 0.10296E+00, 0.10637E+00,
     &-0.63756E-02,-0.23195E-02, 0.17538E-02, 0.59778E-02, 0.10306E-01,
     & 0.14682E-01, 0.19062E-01, 0.23412E-01, 0.27728E-01, 0.31986E-01,
     & 0.36174E-01, 0.40287E-01, 0.44322E-01, 0.48274E-01, 0.52144E-01,
     & 0.55936E-01, 0.59644E-01, 0.63270E-01, 0.66816E-01, 0.70282E-01,
     & 0.73658E-01, 0.76977E-01, 0.80255E-01, 0.83532E-01, 0.86809E-01,
     & 0.90086E-01, 0.93363E-01, 0.96640E-01, 0.99917E-01, 0.10319E+00,
     &-0.63053E-02,-0.22928E-02, 0.17356E-02, 0.59016E-02, 0.10159E-01,
     & 0.14453E-01, 0.18742E-01, 0.22993E-01, 0.27205E-01, 0.31355E-01,
     & 0.35430E-01, 0.39427E-01, 0.43343E-01, 0.47175E-01, 0.50922E-01,
     & 0.54591E-01, 0.58175E-01, 0.61675E-01, 0.65096E-01, 0.68437E-01,
     & 0.71688E-01, 0.74882E-01, 0.78035E-01, 0.81187E-01, 0.84339E-01,
     & 0.87492E-01, 0.90644E-01, 0.93796E-01, 0.96949E-01, 0.10010E+00/

      data ((u_grdl(i,j),j=1,30),i= 41, 50)/
     &-0.62352E-02,-0.22659E-02, 0.17179E-02, 0.58265E-02, 0.10014E-01,
     & 0.14227E-01, 0.18427E-01, 0.22581E-01, 0.26691E-01, 0.30735E-01,
     & 0.34700E-01, 0.38583E-01, 0.42383E-01, 0.46097E-01, 0.49725E-01,
     & 0.53273E-01, 0.56736E-01, 0.60115E-01, 0.63415E-01, 0.66634E-01,
     & 0.69763E-01, 0.72836E-01, 0.75868E-01, 0.78899E-01, 0.81931E-01,
     & 0.84962E-01, 0.87993E-01, 0.91025E-01, 0.94056E-01, 0.97088E-01,
     &-0.61652E-02,-0.22389E-02, 0.17007E-02, 0.57526E-02, 0.98708E-02,
     & 0.14005E-01, 0.18117E-01, 0.22175E-01, 0.26186E-01, 0.30125E-01,
     & 0.33982E-01, 0.37755E-01, 0.41441E-01, 0.45040E-01, 0.48552E-01,
     & 0.51983E-01, 0.55328E-01, 0.58589E-01, 0.61770E-01, 0.64871E-01,
     & 0.67883E-01, 0.70839E-01, 0.73753E-01, 0.76667E-01, 0.79581E-01,
     & 0.82495E-01, 0.85409E-01, 0.88323E-01, 0.91238E-01, 0.94152E-01,
     &-0.60955E-02,-0.22118E-02, 0.16841E-02, 0.56799E-02, 0.97301E-02,
     & 0.13786E-01, 0.17812E-01, 0.21777E-01, 0.25690E-01, 0.29527E-01,
     & 0.33278E-01, 0.36942E-01, 0.40518E-01, 0.44005E-01, 0.47404E-01,
     & 0.50721E-01, 0.53951E-01, 0.57098E-01, 0.60164E-01, 0.63150E-01,
     & 0.66048E-01, 0.68889E-01, 0.71690E-01, 0.74490E-01, 0.77290E-01,
     & 0.80091E-01, 0.82891E-01, 0.85692E-01, 0.88492E-01, 0.91292E-01,
     &-0.60259E-02,-0.21844E-02, 0.16681E-02, 0.56086E-02, 0.95917E-02,
     & 0.13570E-01, 0.17512E-01, 0.21385E-01, 0.25203E-01, 0.28940E-01,
     & 0.32588E-01, 0.36146E-01, 0.39614E-01, 0.42992E-01, 0.46280E-01,
     & 0.49486E-01, 0.52605E-01, 0.55639E-01, 0.58594E-01, 0.61469E-01,
     & 0.64256E-01, 0.66987E-01, 0.69677E-01, 0.72367E-01, 0.75057E-01,
     & 0.77747E-01, 0.80438E-01, 0.83128E-01, 0.85818E-01, 0.88508E-01,
     &-0.59566E-02,-0.21567E-02, 0.16529E-02, 0.55388E-02, 0.94559E-02,
     & 0.13359E-01, 0.17217E-01, 0.21001E-01, 0.24724E-01, 0.28364E-01,
     & 0.31911E-01, 0.35366E-01, 0.38729E-01, 0.42000E-01, 0.45181E-01,
     & 0.48278E-01, 0.51289E-01, 0.54215E-01, 0.57062E-01, 0.59828E-01,
     & 0.62508E-01, 0.65132E-01, 0.67715E-01, 0.70299E-01, 0.72882E-01,
     & 0.75466E-01, 0.78050E-01, 0.80633E-01, 0.83217E-01, 0.85801E-01,
     &-0.58874E-02,-0.21287E-02, 0.16386E-02, 0.54707E-02, 0.93228E-02,
     & 0.13152E-01, 0.16928E-01, 0.20623E-01, 0.24256E-01, 0.27800E-01,
     & 0.31248E-01, 0.34601E-01, 0.37862E-01, 0.41029E-01, 0.44105E-01,
     & 0.47098E-01, 0.50003E-01, 0.52824E-01, 0.55565E-01, 0.58227E-01,
     & 0.60802E-01, 0.63323E-01, 0.65803E-01, 0.68283E-01, 0.70763E-01,
     & 0.73243E-01, 0.75723E-01, 0.78204E-01, 0.80684E-01, 0.83164E-01,
     &-0.58183E-02,-0.21002E-02, 0.16253E-02, 0.54044E-02, 0.91926E-02,
     & 0.12949E-01, 0.16645E-01, 0.20254E-01, 0.23796E-01, 0.27247E-01,
     & 0.30598E-01, 0.33854E-01, 0.37014E-01, 0.40080E-01, 0.43055E-01,
     & 0.45945E-01, 0.48748E-01, 0.51467E-01, 0.54106E-01, 0.56666E-01,
     & 0.59140E-01, 0.61560E-01, 0.63940E-01, 0.66321E-01, 0.68701E-01,
     & 0.71081E-01, 0.73461E-01, 0.75841E-01, 0.78222E-01, 0.80602E-01,
     &-0.57493E-02,-0.20712E-02, 0.16132E-02, 0.53402E-02, 0.90656E-02,
     & 0.12750E-01, 0.16368E-01, 0.19892E-01, 0.23347E-01, 0.26706E-01,
     & 0.29964E-01, 0.33123E-01, 0.36186E-01, 0.39153E-01, 0.42028E-01,
     & 0.44819E-01, 0.47523E-01, 0.50142E-01, 0.52682E-01, 0.55144E-01,
     & 0.57521E-01, 0.59843E-01, 0.62126E-01, 0.64410E-01, 0.66693E-01,
     & 0.68977E-01, 0.71260E-01, 0.73543E-01, 0.75827E-01, 0.78110E-01,
     &-0.56805E-02,-0.20416E-02, 0.16024E-02, 0.52782E-02, 0.89421E-02,
     & 0.12557E-01, 0.16098E-01, 0.19539E-01, 0.22908E-01, 0.26178E-01,
     & 0.29343E-01, 0.32409E-01, 0.35377E-01, 0.38248E-01, 0.41027E-01,
     & 0.43721E-01, 0.46328E-01, 0.48851E-01, 0.51295E-01, 0.53662E-01,
     & 0.55943E-01, 0.58172E-01, 0.60361E-01, 0.62551E-01, 0.64740E-01,
     & 0.66930E-01, 0.69120E-01, 0.71309E-01, 0.73499E-01, 0.75688E-01,
     &-0.56115E-02,-0.20112E-02, 0.15932E-02, 0.52188E-02, 0.88222E-02,
     & 0.12368E-01, 0.15834E-01, 0.19194E-01, 0.22479E-01, 0.25662E-01,
     & 0.28737E-01, 0.31711E-01, 0.34587E-01, 0.37365E-01, 0.40050E-01,
     & 0.42651E-01, 0.45164E-01, 0.47593E-01, 0.49944E-01, 0.52218E-01,
     & 0.54408E-01, 0.56545E-01, 0.58644E-01, 0.60743E-01, 0.62842E-01,
     & 0.64941E-01, 0.67040E-01, 0.69139E-01, 0.71238E-01, 0.73337E-01/

      data ((u_grdl(i,j),j=1,30),i= 51, 60)/
     &-0.55425E-02,-0.19799E-02, 0.15858E-02, 0.51622E-02, 0.87065E-02,
     & 0.12185E-01, 0.15577E-01, 0.18858E-01, 0.22061E-01, 0.25158E-01,
     & 0.28147E-01, 0.31032E-01, 0.33817E-01, 0.36504E-01, 0.39099E-01,
     & 0.41608E-01, 0.44030E-01, 0.46368E-01, 0.48629E-01, 0.50814E-01,
     & 0.52915E-01, 0.54964E-01, 0.56975E-01, 0.58987E-01, 0.60998E-01,
     & 0.63009E-01, 0.65021E-01, 0.67032E-01, 0.69043E-01, 0.71055E-01,
     &-0.54732E-02,-0.19474E-02, 0.15804E-02, 0.51087E-02, 0.85951E-02,
     & 0.12008E-01, 0.15328E-01, 0.18532E-01, 0.21654E-01, 0.24669E-01,
     & 0.27572E-01, 0.30370E-01, 0.33068E-01, 0.35667E-01, 0.38172E-01,
     & 0.40593E-01, 0.42927E-01, 0.45177E-01, 0.47351E-01, 0.49448E-01,
     & 0.51463E-01, 0.53427E-01, 0.55354E-01, 0.57281E-01, 0.59207E-01,
     & 0.61134E-01, 0.63061E-01, 0.64987E-01, 0.66914E-01, 0.68840E-01,
     &-0.54035E-02,-0.19136E-02, 0.15774E-02, 0.50588E-02, 0.84886E-02,
     & 0.11837E-01, 0.15086E-01, 0.18215E-01, 0.21259E-01, 0.24193E-01,
     & 0.27013E-01, 0.29727E-01, 0.32339E-01, 0.34852E-01, 0.37271E-01,
     & 0.39606E-01, 0.41854E-01, 0.44019E-01, 0.46108E-01, 0.48121E-01,
     & 0.50054E-01, 0.51935E-01, 0.53780E-01, 0.55624E-01, 0.57469E-01,
     & 0.59314E-01, 0.61158E-01, 0.63003E-01, 0.64848E-01, 0.66692E-01,
     &-0.53333E-02,-0.18781E-02, 0.15771E-02, 0.50128E-02, 0.83874E-02,
     & 0.11673E-01, 0.14854E-01, 0.17908E-01, 0.20876E-01, 0.23731E-01,
     & 0.26470E-01, 0.29102E-01, 0.31631E-01, 0.34061E-01, 0.36396E-01,
     & 0.38647E-01, 0.40812E-01, 0.42895E-01, 0.44902E-01, 0.46834E-01,
     & 0.48686E-01, 0.50488E-01, 0.52253E-01, 0.54019E-01, 0.55785E-01,
     & 0.57551E-01, 0.59316E-01, 0.61082E-01, 0.62848E-01, 0.64613E-01,
     &-0.52622E-02,-0.18406E-02, 0.15800E-02, 0.49713E-02, 0.82921E-02,
     & 0.11516E-01, 0.14630E-01, 0.17613E-01, 0.20507E-01, 0.23284E-01,
     & 0.25944E-01, 0.28496E-01, 0.30945E-01, 0.33293E-01, 0.35548E-01,
     & 0.37718E-01, 0.39802E-01, 0.41805E-01, 0.43732E-01, 0.45586E-01,
     & 0.47360E-01, 0.49085E-01, 0.50774E-01, 0.52463E-01, 0.54153E-01,
     & 0.55842E-01, 0.57531E-01, 0.59220E-01, 0.60910E-01, 0.62599E-01,
     &-0.51900E-02,-0.18008E-02, 0.15866E-02, 0.49347E-02, 0.82033E-02,
     & 0.11368E-01, 0.14416E-01, 0.17329E-01, 0.20150E-01, 0.22853E-01,
     & 0.25437E-01, 0.27910E-01, 0.30280E-01, 0.32550E-01, 0.34726E-01,
     & 0.36818E-01, 0.38824E-01, 0.40749E-01, 0.42599E-01, 0.44377E-01,
     & 0.46076E-01, 0.47727E-01, 0.49342E-01, 0.50958E-01, 0.52573E-01,
     & 0.54189E-01, 0.55804E-01, 0.57420E-01, 0.59035E-01, 0.60651E-01,
     &-0.51164E-02,-0.17581E-02, 0.15973E-02, 0.49039E-02, 0.81216E-02,
     & 0.11228E-01, 0.14213E-01, 0.17058E-01, 0.19808E-01, 0.22438E-01,
     & 0.24947E-01, 0.27345E-01, 0.29639E-01, 0.31832E-01, 0.33932E-01,
     & 0.35947E-01, 0.37878E-01, 0.39728E-01, 0.41504E-01, 0.43208E-01,
     & 0.44835E-01, 0.46414E-01, 0.47958E-01, 0.49502E-01, 0.51046E-01,
     & 0.52591E-01, 0.54135E-01, 0.55679E-01, 0.57223E-01, 0.58767E-01,
     &-0.50408E-02,-0.17120E-02, 0.16130E-02, 0.48794E-02, 0.80480E-02,
     & 0.11098E-01, 0.14021E-01, 0.16799E-01, 0.19481E-01, 0.22040E-01,
     & 0.24477E-01, 0.26802E-01, 0.29021E-01, 0.31140E-01, 0.33166E-01,
     & 0.35107E-01, 0.36965E-01, 0.38742E-01, 0.40446E-01, 0.42079E-01,
     & 0.43636E-01, 0.45146E-01, 0.46621E-01, 0.48096E-01, 0.49572E-01,
     & 0.51047E-01, 0.52523E-01, 0.53998E-01, 0.55473E-01, 0.56949E-01,
     &-0.49628E-02,-0.16619E-02, 0.16342E-02, 0.48622E-02, 0.79832E-02,
     & 0.10978E-01, 0.13842E-01, 0.16555E-01, 0.19171E-01, 0.21661E-01,
     & 0.24027E-01, 0.26280E-01, 0.28428E-01, 0.30475E-01, 0.32428E-01,
     & 0.34299E-01, 0.36085E-01, 0.37792E-01, 0.39427E-01, 0.40991E-01,
     & 0.42480E-01, 0.43923E-01, 0.45332E-01, 0.46741E-01, 0.48151E-01,
     & 0.49560E-01, 0.50969E-01, 0.52378E-01, 0.53787E-01, 0.55197E-01,
     &-0.48818E-02,-0.16070E-02, 0.16620E-02, 0.48532E-02, 0.79284E-02,
     & 0.10871E-01, 0.13675E-01, 0.16327E-01, 0.18877E-01, 0.21300E-01,
     & 0.23598E-01, 0.25782E-01, 0.27860E-01, 0.29837E-01, 0.31721E-01,
     & 0.33522E-01, 0.35240E-01, 0.36879E-01, 0.38446E-01, 0.39944E-01,
     & 0.41368E-01, 0.42746E-01, 0.44092E-01, 0.45437E-01, 0.46782E-01,
     & 0.48128E-01, 0.49473E-01, 0.50818E-01, 0.52164E-01, 0.53509E-01/

      data ((u_grdl(i,j),j=1,30),i= 61, 70)/
     &-0.47970E-02,-0.15464E-02, 0.16973E-02, 0.48535E-02, 0.78846E-02,
     & 0.10776E-01, 0.13524E-01, 0.16114E-01, 0.18602E-01, 0.20960E-01,
     & 0.23191E-01, 0.25308E-01, 0.27318E-01, 0.29228E-01, 0.31044E-01,
     & 0.32778E-01, 0.34429E-01, 0.36002E-01, 0.37505E-01, 0.38939E-01,
     & 0.40300E-01, 0.41616E-01, 0.42899E-01, 0.44183E-01, 0.45466E-01,
     & 0.46750E-01, 0.48033E-01, 0.49317E-01, 0.50601E-01, 0.51884E-01,
     &-0.47074E-02,-0.14791E-02, 0.17413E-02, 0.48644E-02, 0.78533E-02,
     & 0.10695E-01, 0.13389E-01, 0.15920E-01, 0.18347E-01, 0.20642E-01,
     & 0.22808E-01, 0.24860E-01, 0.26805E-01, 0.28649E-01, 0.30400E-01,
     & 0.32068E-01, 0.33655E-01, 0.35165E-01, 0.36604E-01, 0.37976E-01,
     & 0.39276E-01, 0.40532E-01, 0.41756E-01, 0.42980E-01, 0.44204E-01,
     & 0.45428E-01, 0.46652E-01, 0.47876E-01, 0.49100E-01, 0.50324E-01,
     &-0.46120E-02,-0.14039E-02, 0.17954E-02, 0.48873E-02, 0.78359E-02,
     & 0.10630E-01, 0.13271E-01, 0.15745E-01, 0.18113E-01, 0.20346E-01,
     & 0.22450E-01, 0.24438E-01, 0.26320E-01, 0.28100E-01, 0.29788E-01,
     & 0.31394E-01, 0.32918E-01, 0.34366E-01, 0.35745E-01, 0.37057E-01,
     & 0.38298E-01, 0.39496E-01, 0.40663E-01, 0.41829E-01, 0.42996E-01,
     & 0.44162E-01, 0.45329E-01, 0.46495E-01, 0.47662E-01, 0.48828E-01,
     &-0.45095E-02,-0.13192E-02, 0.18611E-02, 0.49240E-02, 0.78341E-02,
     & 0.10583E-01, 0.13173E-01, 0.15592E-01, 0.17902E-01, 0.20076E-01,
     & 0.22119E-01, 0.24046E-01, 0.25865E-01, 0.27584E-01, 0.29210E-01,
     & 0.30755E-01, 0.32219E-01, 0.33608E-01, 0.34928E-01, 0.36182E-01,
     & 0.37366E-01, 0.38508E-01, 0.39620E-01, 0.40731E-01, 0.41842E-01,
     & 0.42953E-01, 0.44064E-01, 0.45175E-01, 0.46286E-01, 0.47398E-01,
     &-0.43983E-02,-0.12235E-02, 0.19403E-02, 0.49763E-02, 0.78500E-02,
     & 0.10555E-01, 0.13095E-01, 0.15461E-01, 0.17716E-01, 0.19832E-01,
     & 0.21817E-01, 0.23684E-01, 0.25443E-01, 0.27102E-01, 0.28669E-01,
     & 0.30155E-01, 0.31560E-01, 0.32891E-01, 0.34154E-01, 0.35352E-01,
     & 0.36482E-01, 0.37570E-01, 0.38628E-01, 0.39685E-01, 0.40743E-01,
     & 0.41800E-01, 0.42858E-01, 0.43916E-01, 0.44973E-01, 0.46031E-01,
     &-0.42767E-02,-0.11148E-02, 0.20350E-02, 0.50463E-02, 0.78856E-02,
     & 0.10548E-01, 0.13042E-01, 0.15356E-01, 0.17556E-01, 0.19617E-01,
     & 0.21545E-01, 0.23354E-01, 0.25055E-01, 0.26656E-01, 0.28165E-01,
     & 0.29593E-01, 0.30942E-01, 0.32217E-01, 0.33425E-01, 0.34570E-01,
     & 0.35646E-01, 0.36682E-01, 0.37688E-01, 0.38694E-01, 0.39700E-01,
     & 0.40706E-01, 0.41713E-01, 0.42719E-01, 0.43725E-01, 0.44731E-01,
     &-0.41424E-02,-0.99077E-03, 0.21477E-02, 0.51367E-02, 0.79436E-02,
     & 0.10566E-01, 0.13014E-01, 0.15278E-01, 0.17427E-01, 0.19433E-01,
     & 0.21305E-01, 0.23058E-01, 0.24703E-01, 0.26248E-01, 0.27700E-01,
     & 0.29073E-01, 0.30367E-01, 0.31588E-01, 0.32743E-01, 0.33835E-01,
     & 0.34860E-01, 0.35845E-01, 0.36801E-01, 0.37757E-01, 0.38713E-01,
     & 0.39670E-01, 0.40626E-01, 0.41582E-01, 0.42538E-01, 0.43494E-01,
     &-0.39930E-02,-0.84876E-03, 0.22811E-02, 0.52502E-02, 0.80268E-02,
     & 0.10611E-01, 0.13015E-01, 0.15231E-01, 0.17329E-01, 0.19283E-01,
     & 0.21101E-01, 0.22799E-01, 0.24389E-01, 0.25879E-01, 0.27277E-01,
     & 0.28596E-01, 0.29837E-01, 0.31005E-01, 0.32108E-01, 0.33149E-01,
     & 0.34125E-01, 0.35061E-01, 0.35968E-01, 0.36876E-01, 0.37783E-01,
     & 0.38691E-01, 0.39599E-01, 0.40506E-01, 0.41414E-01, 0.42321E-01,
     &-0.38254E-02,-0.68569E-03, 0.24385E-02, 0.53900E-02, 0.81384E-02,
     & 0.10687E-01, 0.13048E-01, 0.15217E-01, 0.17266E-01, 0.19169E-01,
     & 0.20934E-01, 0.22579E-01, 0.24116E-01, 0.25552E-01, 0.26898E-01,
     & 0.28164E-01, 0.29353E-01, 0.30470E-01, 0.31522E-01, 0.32514E-01,
     & 0.33442E-01, 0.34330E-01, 0.35191E-01, 0.36052E-01, 0.36912E-01,
     & 0.37773E-01, 0.38633E-01, 0.39494E-01, 0.40355E-01, 0.41215E-01,
     &-0.36362E-02,-0.49795E-03, 0.26235E-02, 0.55599E-02, 0.82820E-02,
     & 0.10796E-01, 0.13117E-01, 0.15240E-01, 0.17241E-01, 0.19095E-01,
     & 0.20809E-01, 0.22402E-01, 0.23886E-01, 0.25270E-01, 0.26564E-01,
     & 0.27779E-01, 0.28917E-01, 0.29984E-01, 0.30988E-01, 0.31932E-01,
     & 0.32812E-01, 0.33655E-01, 0.34470E-01, 0.35285E-01, 0.36100E-01,
     & 0.36915E-01, 0.37730E-01, 0.38545E-01, 0.39360E-01, 0.40176E-01/

      data ((u_grdl(i,j),j=1,30),i= 71, 80)/
     &-0.34212E-02,-0.28137E-03, 0.28403E-02, 0.57640E-02, 0.84618E-02,
     & 0.10942E-01, 0.13224E-01, 0.15303E-01, 0.17258E-01, 0.19063E-01,
     & 0.20727E-01, 0.22269E-01, 0.23703E-01, 0.25036E-01, 0.26278E-01,
     & 0.27444E-01, 0.28532E-01, 0.29550E-01, 0.30506E-01, 0.31403E-01,
     & 0.32238E-01, 0.33035E-01, 0.33806E-01, 0.34576E-01, 0.35347E-01,
     & 0.36117E-01, 0.36888E-01, 0.37658E-01, 0.38429E-01, 0.39199E-01,
     &-0.31756E-02,-0.31165E-04, 0.30937E-02, 0.60071E-02, 0.86824E-02,
     & 0.11131E-01, 0.13375E-01, 0.15411E-01, 0.17321E-01, 0.19077E-01,
     & 0.20692E-01, 0.22185E-01, 0.23568E-01, 0.24851E-01, 0.26044E-01,
     & 0.27160E-01, 0.28200E-01, 0.29170E-01, 0.30079E-01, 0.30930E-01,
     & 0.31720E-01, 0.32473E-01, 0.33200E-01, 0.33927E-01, 0.34654E-01,
     & 0.35381E-01, 0.36108E-01, 0.36835E-01, 0.37562E-01, 0.38289E-01,
     &-0.28940E-02, 0.25817E-03, 0.33892E-02, 0.62944E-02, 0.89488E-02,
     & 0.11367E-01, 0.13574E-01, 0.15568E-01, 0.17433E-01, 0.19142E-01,
     & 0.20709E-01, 0.22152E-01, 0.23486E-01, 0.24719E-01, 0.25863E-01,
     & 0.26930E-01, 0.27922E-01, 0.28846E-01, 0.29709E-01, 0.30514E-01,
     & 0.31260E-01, 0.31970E-01, 0.32654E-01, 0.33338E-01, 0.34022E-01,
     & 0.34706E-01, 0.35391E-01, 0.36075E-01, 0.36759E-01, 0.37443E-01,
     &-0.25697E-02, 0.59305E-03, 0.37331E-02, 0.66322E-02, 0.92670E-02,
     & 0.11656E-01, 0.13826E-01, 0.15778E-01, 0.17599E-01, 0.19262E-01,
     & 0.20780E-01, 0.22174E-01, 0.23459E-01, 0.24643E-01, 0.25738E-01,
     & 0.26757E-01, 0.27702E-01, 0.28579E-01, 0.29396E-01, 0.30156E-01,
     & 0.30859E-01, 0.31526E-01, 0.32168E-01, 0.32810E-01, 0.33451E-01,
     & 0.34093E-01, 0.34735E-01, 0.35377E-01, 0.36019E-01, 0.36661E-01,
     &-0.21952E-02, 0.98079E-03, 0.41324E-02, 0.70270E-02, 0.96432E-02,
     & 0.12003E-01, 0.14137E-01, 0.16048E-01, 0.17824E-01, 0.19440E-01,
     & 0.20910E-01, 0.22256E-01, 0.23491E-01, 0.24626E-01, 0.25673E-01,
     & 0.26644E-01, 0.27541E-01, 0.28371E-01, 0.29143E-01, 0.29859E-01,
     & 0.30518E-01, 0.31142E-01, 0.31742E-01, 0.32342E-01, 0.32942E-01,
     & 0.33542E-01, 0.34141E-01, 0.34741E-01, 0.35341E-01, 0.35941E-01,
     &-0.17624E-02, 0.14295E-02, 0.45952E-02, 0.74865E-02, 0.10085E-01,
     & 0.12416E-01, 0.14513E-01, 0.16382E-01, 0.18113E-01, 0.19682E-01,
     & 0.21104E-01, 0.22400E-01, 0.23585E-01, 0.24671E-01, 0.25669E-01,
     & 0.26591E-01, 0.27441E-01, 0.28225E-01, 0.28951E-01, 0.29622E-01,
     & 0.30237E-01, 0.30819E-01, 0.31377E-01, 0.31935E-01, 0.32493E-01,
     & 0.33051E-01, 0.33608E-01, 0.34166E-01, 0.34724E-01, 0.35282E-01,
     &-0.12601E-02, 0.19491E-02, 0.51302E-02, 0.80190E-02, 0.10599E-01,
     & 0.12901E-01, 0.14961E-01, 0.16786E-01, 0.18472E-01, 0.19993E-01,
     & 0.21365E-01, 0.22610E-01, 0.23745E-01, 0.24781E-01, 0.25729E-01,
     & 0.26602E-01, 0.27404E-01, 0.28140E-01, 0.28820E-01, 0.29446E-01,
     & 0.30018E-01, 0.30557E-01, 0.31072E-01, 0.31588E-01, 0.32104E-01,
     & 0.32619E-01, 0.33135E-01, 0.33651E-01, 0.34166E-01, 0.34682E-01,
     &-0.67771E-03, 0.25501E-02, 0.57477E-02, 0.86339E-02, 0.11195E-01,
     & 0.13466E-01, 0.15487E-01, 0.17267E-01, 0.18906E-01, 0.20377E-01,
     & 0.21697E-01, 0.22891E-01, 0.23974E-01, 0.24958E-01, 0.25855E-01,
     & 0.26678E-01, 0.27430E-01, 0.28118E-01, 0.28751E-01, 0.29331E-01,
     & 0.29859E-01, 0.30354E-01, 0.30827E-01, 0.31300E-01, 0.31772E-01,
     & 0.32245E-01, 0.32718E-01, 0.33191E-01, 0.33664E-01, 0.34137E-01,
     &-0.19997E-05, 0.32445E-02, 0.64587E-02, 0.93410E-02, 0.11881E-01,
     & 0.14118E-01, 0.16098E-01, 0.17831E-01, 0.19420E-01, 0.20838E-01,
     & 0.22105E-01, 0.23244E-01, 0.24273E-01, 0.25204E-01, 0.26047E-01,
     & 0.26819E-01, 0.27520E-01, 0.28159E-01, 0.28743E-01, 0.29276E-01,
     & 0.29758E-01, 0.30209E-01, 0.30637E-01, 0.31066E-01, 0.31495E-01,
     & 0.31924E-01, 0.32353E-01, 0.32782E-01, 0.33211E-01, 0.33640E-01,
     & 0.78258E-03, 0.40464E-02, 0.72755E-02, 0.10152E-01, 0.12667E-01,
     & 0.14868E-01, 0.16802E-01, 0.18485E-01, 0.20019E-01, 0.21382E-01,
     & 0.22591E-01, 0.23673E-01, 0.24645E-01, 0.25519E-01, 0.26308E-01,
     & 0.27025E-01, 0.27673E-01, 0.28260E-01, 0.28794E-01, 0.29278E-01,
     & 0.29713E-01, 0.30117E-01, 0.30501E-01, 0.30884E-01, 0.31268E-01,
     & 0.31651E-01, 0.32035E-01, 0.32418E-01, 0.32802E-01, 0.33185E-01/

      data ((u_grdl(i,j),j=1,30),i= 81, 90)/
     & 0.16917E-02, 0.49701E-02, 0.82114E-02, 0.11077E-01, 0.13563E-01,
     & 0.15722E-01, 0.17606E-01, 0.19232E-01, 0.20708E-01, 0.22010E-01,
     & 0.23158E-01, 0.24179E-01, 0.25090E-01, 0.25905E-01, 0.26634E-01,
     & 0.27294E-01, 0.27887E-01, 0.28419E-01, 0.28901E-01, 0.29334E-01,
     & 0.29719E-01, 0.30076E-01, 0.30412E-01, 0.30748E-01, 0.31085E-01,
     & 0.31421E-01, 0.31757E-01, 0.32094E-01, 0.32430E-01, 0.32766E-01,
     & 0.27450E-02, 0.60327E-02, 0.92808E-02, 0.12130E-01, 0.14580E-01,
     & 0.16690E-01, 0.18517E-01, 0.20080E-01, 0.21491E-01, 0.22726E-01,
     & 0.23808E-01, 0.24762E-01, 0.25608E-01, 0.26357E-01, 0.27025E-01,
     & 0.27623E-01, 0.28156E-01, 0.28632E-01, 0.29057E-01, 0.29436E-01,
     & 0.29770E-01, 0.30076E-01, 0.30363E-01, 0.30649E-01, 0.30936E-01,
     & 0.31223E-01, 0.31510E-01, 0.31796E-01, 0.32083E-01, 0.32370E-01,
     & 0.39627E-02, 0.72517E-02, 0.10499E-01, 0.13322E-01, 0.15727E-01,
     & 0.17778E-01, 0.19538E-01, 0.21030E-01, 0.22369E-01, 0.23530E-01,
     & 0.24538E-01, 0.25419E-01, 0.26193E-01, 0.26874E-01, 0.27473E-01,
     & 0.28006E-01, 0.28475E-01, 0.28889E-01, 0.29255E-01, 0.29577E-01,
     & 0.29855E-01, 0.30108E-01, 0.30343E-01, 0.30578E-01, 0.30812E-01,
     & 0.31047E-01, 0.31282E-01, 0.31516E-01, 0.31751E-01, 0.31986E-01,
     & 0.53678E-02, 0.86465E-02, 0.11880E-01, 0.14665E-01, 0.17012E-01,
     & 0.18993E-01, 0.20676E-01, 0.22086E-01, 0.23341E-01, 0.24420E-01,
     & 0.25345E-01, 0.26145E-01, 0.26841E-01, 0.27445E-01, 0.27970E-01,
     & 0.28432E-01, 0.28832E-01, 0.29180E-01, 0.29482E-01, 0.29743E-01,
     & 0.29963E-01, 0.30159E-01, 0.30338E-01, 0.30517E-01, 0.30697E-01,
     & 0.30876E-01, 0.31055E-01, 0.31234E-01, 0.31413E-01, 0.31592E-01,
     & 0.69849E-02, 0.10237E-01, 0.13441E-01, 0.16171E-01, 0.18444E-01,
     & 0.20339E-01, 0.21929E-01, 0.23245E-01, 0.24405E-01, 0.25389E-01,
     & 0.26221E-01, 0.26932E-01, 0.27540E-01, 0.28060E-01, 0.28504E-01,
     & 0.28888E-01, 0.29214E-01, 0.29490E-01, 0.29723E-01, 0.29918E-01,
     & 0.30076E-01, 0.30211E-01, 0.30331E-01, 0.30451E-01, 0.30571E-01,
     & 0.30691E-01, 0.30811E-01, 0.30931E-01, 0.31051E-01, 0.31171E-01,
     & 0.88397E-02, 0.12043E-01, 0.15196E-01, 0.17849E-01, 0.20026E-01,
     & 0.21816E-01, 0.23296E-01, 0.24501E-01, 0.25550E-01, 0.26426E-01,
     & 0.27153E-01, 0.27763E-01, 0.28274E-01, 0.28700E-01, 0.29056E-01,
     & 0.29354E-01, 0.29598E-01, 0.29796E-01, 0.29956E-01, 0.30080E-01,
     & 0.30170E-01, 0.30241E-01, 0.30298E-01, 0.30355E-01, 0.30412E-01,
     & 0.30469E-01, 0.30526E-01, 0.30583E-01, 0.30640E-01, 0.30697E-01,
     & 0.10958E-01, 0.14084E-01, 0.17155E-01, 0.19703E-01, 0.21759E-01,
     & 0.23419E-01, 0.24767E-01, 0.25841E-01, 0.26762E-01, 0.27513E-01,
     & 0.28122E-01, 0.28617E-01, 0.29019E-01, 0.29342E-01, 0.29599E-01,
     & 0.29804E-01, 0.29959E-01, 0.30073E-01, 0.30152E-01, 0.30200E-01,
     & 0.30218E-01, 0.30220E-01, 0.30210E-01, 0.30199E-01, 0.30189E-01,
     & 0.30179E-01, 0.30168E-01, 0.30158E-01, 0.30148E-01, 0.30138E-01,
     & 0.13367E-01, 0.16375E-01, 0.19327E-01, 0.21733E-01, 0.23634E-01,
     & 0.25134E-01, 0.26324E-01, 0.27244E-01, 0.28016E-01, 0.28624E-01,
     & 0.29097E-01, 0.29463E-01, 0.29744E-01, 0.29952E-01, 0.30100E-01,
     & 0.30201E-01, 0.30260E-01, 0.30282E-01, 0.30274E-01, 0.30240E-01,
     & 0.30182E-01, 0.30110E-01, 0.30028E-01, 0.29947E-01, 0.29865E-01,
     & 0.29783E-01, 0.29702E-01, 0.29620E-01, 0.29538E-01, 0.29457E-01,
     & 0.16085E-01, 0.18927E-01, 0.21710E-01, 0.23929E-01, 0.25634E-01,
     & 0.26938E-01, 0.27938E-01, 0.28676E-01, 0.29274E-01, 0.29718E-01,
     & 0.30036E-01, 0.30257E-01, 0.30402E-01, 0.30483E-01, 0.30512E-01,
     & 0.30500E-01, 0.30453E-01, 0.30377E-01, 0.30276E-01, 0.30155E-01,
     & 0.30016E-01, 0.29866E-01, 0.29710E-01, 0.29553E-01, 0.29397E-01,
     & 0.29240E-01, 0.29084E-01, 0.28927E-01, 0.28771E-01, 0.28614E-01,
     & 0.19131E-01, 0.21742E-01, 0.24292E-01, 0.26267E-01, 0.27726E-01,
     & 0.28790E-01, 0.29562E-01, 0.30088E-01, 0.30483E-01, 0.30738E-01,
     & 0.30882E-01, 0.30941E-01, 0.30934E-01, 0.30875E-01, 0.30774E-01,
     & 0.30641E-01, 0.30481E-01, 0.30298E-01, 0.30099E-01, 0.29887E-01,
     & 0.29662E-01, 0.29432E-01, 0.29197E-01, 0.28963E-01, 0.28729E-01,
     & 0.28494E-01, 0.28260E-01, 0.28026E-01, 0.27791E-01, 0.27557E-01/

      data ((u_grdl(i,j),j=1,30),i= 91,100)/
     & 0.22506E-01, 0.24805E-01, 0.27043E-01, 0.28701E-01, 0.29853E-01,
     & 0.30627E-01, 0.31128E-01, 0.31405E-01, 0.31567E-01, 0.31608E-01,
     & 0.31556E-01, 0.31435E-01, 0.31263E-01, 0.31051E-01, 0.30809E-01,
     & 0.30546E-01, 0.30266E-01, 0.29973E-01, 0.29672E-01, 0.29364E-01,
     & 0.29052E-01, 0.28740E-01, 0.28426E-01, 0.28113E-01, 0.27799E-01,
     & 0.27486E-01, 0.27173E-01, 0.26859E-01, 0.26546E-01, 0.26232E-01,
     & 0.26193E-01, 0.28078E-01, 0.29903E-01, 0.31158E-01, 0.31930E-01,
     & 0.32354E-01, 0.32535E-01, 0.32526E-01, 0.32422E-01, 0.32223E-01,
     & 0.31953E-01, 0.31635E-01, 0.31284E-01, 0.30910E-01, 0.30520E-01,
     & 0.30121E-01, 0.29717E-01, 0.29311E-01, 0.28905E-01, 0.28502E-01,
     & 0.28104E-01, 0.27710E-01, 0.27319E-01, 0.26928E-01, 0.26537E-01,
     & 0.26146E-01, 0.25755E-01, 0.25365E-01, 0.24974E-01, 0.24583E-01,
     & 0.30145E-01, 0.31487E-01, 0.32770E-01, 0.33516E-01, 0.33824E-01,
     & 0.33831E-01, 0.33641E-01, 0.33306E-01, 0.32904E-01, 0.32440E-01,
     & 0.31935E-01, 0.31407E-01, 0.30869E-01, 0.30326E-01, 0.29785E-01,
     & 0.29249E-01, 0.28721E-01, 0.28203E-01, 0.27697E-01, 0.27202E-01,
     & 0.26722E-01, 0.26252E-01, 0.25790E-01, 0.25327E-01, 0.24864E-01,
     & 0.24401E-01, 0.23938E-01, 0.23476E-01, 0.23013E-01, 0.22550E-01,
     & 0.34254E-01, 0.34892E-01, 0.35477E-01, 0.35589E-01, 0.35337E-01,
     & 0.34858E-01, 0.34244E-01, 0.33548E-01, 0.32821E-01, 0.32074E-01,
     & 0.31323E-01, 0.30580E-01, 0.29852E-01, 0.29143E-01, 0.28455E-01,
     & 0.27789E-01, 0.27145E-01, 0.26525E-01, 0.25927E-01, 0.25352E-01,
     & 0.24802E-01, 0.24268E-01, 0.23744E-01, 0.23221E-01, 0.22698E-01,
     & 0.22175E-01, 0.21651E-01, 0.21128E-01, 0.20605E-01, 0.20082E-01,
     & 0.38316E-01, 0.38056E-01, 0.37754E-01, 0.37087E-01, 0.36176E-01,
     & 0.35142E-01, 0.34062E-01, 0.32980E-01, 0.31914E-01, 0.30880E-01,
     & 0.29888E-01, 0.28939E-01, 0.28035E-01, 0.27175E-01, 0.26358E-01,
     & 0.25579E-01, 0.24840E-01, 0.24138E-01, 0.23470E-01, 0.22834E-01,
     & 0.22234E-01, 0.21655E-01, 0.21092E-01, 0.20528E-01, 0.19965E-01,
     & 0.19401E-01, 0.18838E-01, 0.18275E-01, 0.17711E-01, 0.17148E-01,
     & 0.41968E-01, 0.40578E-01, 0.39163E-01, 0.37564E-01, 0.35900E-01,
     & 0.34264E-01, 0.32699E-01, 0.31236E-01, 0.29845E-01, 0.28548E-01,
     & 0.27344E-01, 0.26224E-01, 0.25180E-01, 0.24208E-01, 0.23300E-01,
     & 0.22447E-01, 0.21650E-01, 0.20902E-01, 0.20199E-01, 0.19538E-01,
     & 0.18921E-01, 0.18331E-01, 0.17759E-01, 0.17187E-01, 0.16616E-01,
     & 0.16044E-01, 0.15472E-01, 0.14901E-01, 0.14329E-01, 0.13757E-01,
     & 0.44532E-01, 0.41748E-01, 0.38970E-01, 0.36303E-01, 0.33841E-01,
     & 0.31611E-01, 0.29604E-01, 0.27822E-01, 0.26177E-01, 0.24694E-01,
     & 0.23357E-01, 0.22143E-01, 0.21036E-01, 0.20024E-01, 0.19095E-01,
     & 0.18236E-01, 0.17444E-01, 0.16711E-01, 0.16031E-01, 0.15398E-01,
     & 0.14815E-01, 0.14261E-01, 0.13727E-01, 0.13194E-01, 0.12661E-01,
     & 0.12127E-01, 0.11594E-01, 0.11060E-01, 0.10527E-01, 0.99935E-02,
     & 0.44613E-01, 0.40205E-01, 0.35855E-01, 0.32104E-01, 0.28947E-01,
     & 0.26285E-01, 0.24017E-01, 0.22103E-01, 0.20386E-01, 0.18890E-01,
     & 0.17582E-01, 0.16425E-01, 0.15393E-01, 0.14470E-01, 0.13638E-01,
     & 0.12881E-01, 0.12194E-01, 0.11568E-01, 0.10995E-01, 0.10469E-01,
     & 0.99906E-02, 0.95400E-02, 0.91091E-02, 0.86781E-02, 0.82472E-02,
     & 0.78162E-02, 0.73852E-02, 0.69543E-02, 0.65233E-02, 0.60924E-02,
     & 0.38291E-01, 0.32582E-01, 0.27016E-01, 0.22732E-01, 0.19486E-01,
     & 0.16969E-01, 0.14963E-01, 0.13368E-01, 0.11987E-01, 0.10833E-01,
     & 0.98628E-02, 0.90307E-02, 0.83094E-02, 0.76800E-02, 0.71262E-02,
     & 0.66322E-02, 0.61930E-02, 0.58004E-02, 0.54466E-02, 0.51274E-02,
     & 0.48418E-02, 0.45757E-02, 0.43231E-02, 0.40706E-02, 0.38180E-02,
     & 0.35655E-02, 0.33129E-02, 0.30604E-02, 0.28078E-02, 0.25553E-02,
     & 0.53648E-02, 0.45170E-02, 0.36915E-02, 0.30654E-02, 0.25980E-02,
     & 0.22404E-02, 0.19584E-02, 0.17367E-02, 0.15460E-02, 0.13880E-02,
     & 0.12561E-02, 0.11438E-02, 0.10470E-02, 0.96303E-03, 0.88954E-03,
     & 0.82429E-03, 0.76656E-03, 0.71518E-03, 0.66907E-03, 0.62764E-03,
     & 0.59074E-03, 0.55643E-03, 0.52395E-03, 0.49147E-03, 0.45899E-03,
     & 0.42651E-03, 0.39403E-03, 0.36155E-03, 0.32907E-03, 0.29659E-03/

      data ((g_grdl(i,j),j=1,30),i=  1, 10)/
     &-0.89403E-01, 0.59195E-01, 0.21121E+00, 0.39774E+00, 0.61864E+00,
     & 0.86853E+00, 0.11417E+01, 0.14356E+01, 0.17406E+01, 0.20579E+01,
     & 0.23849E+01, 0.27188E+01, 0.30577E+01, 0.34001E+01, 0.37448E+01,
     & 0.40906E+01, 0.44368E+01, 0.47825E+01, 0.51273E+01, 0.54706E+01,
     & 0.58115E+01, 0.61506E+01, 0.64884E+01, 0.68262E+01, 0.71639E+01,
     & 0.75017E+01, 0.78395E+01, 0.81772E+01, 0.85150E+01, 0.88528E+01,
     &-0.87786E-01, 0.59792E-01, 0.21071E+00, 0.39524E+00, 0.61310E+00,
     & 0.85891E+00, 0.11271E+01, 0.14149E+01, 0.17133E+01, 0.20232E+01,
     & 0.23421E+01, 0.26673E+01, 0.29971E+01, 0.33299E+01, 0.36646E+01,
     & 0.40000E+01, 0.43356E+01, 0.46704E+01, 0.50041E+01, 0.53359E+01,
     & 0.56653E+01, 0.59928E+01, 0.63188E+01, 0.66448E+01, 0.69709E+01,
     & 0.72969E+01, 0.76229E+01, 0.79489E+01, 0.82750E+01, 0.86010E+01,
     &-0.86149E-01, 0.60396E-01, 0.21020E+00, 0.39275E+00, 0.60759E+00,
     & 0.84937E+00, 0.11125E+01, 0.13944E+01, 0.16863E+01, 0.19889E+01,
     & 0.22999E+01, 0.26167E+01, 0.29375E+01, 0.32609E+01, 0.35858E+01,
     & 0.39111E+01, 0.42363E+01, 0.45605E+01, 0.48832E+01, 0.52041E+01,
     & 0.55222E+01, 0.58383E+01, 0.61529E+01, 0.64675E+01, 0.67822E+01,
     & 0.70968E+01, 0.74114E+01, 0.77260E+01, 0.80406E+01, 0.83552E+01,
     &-0.84531E-01, 0.60993E-01, 0.20970E+00, 0.39027E+00, 0.60212E+00,
     & 0.83991E+00, 0.10982E+01, 0.13742E+01, 0.16596E+01, 0.19551E+01,
     & 0.22583E+01, 0.25668E+01, 0.28788E+01, 0.31930E+01, 0.35083E+01,
     & 0.38238E+01, 0.41388E+01, 0.44527E+01, 0.47648E+01, 0.50749E+01,
     & 0.53821E+01, 0.56872E+01, 0.59907E+01, 0.62942E+01, 0.65977E+01,
     & 0.69012E+01, 0.72047E+01, 0.75082E+01, 0.78117E+01, 0.81152E+01,
     &-0.82912E-01, 0.61591E-01, 0.20920E+00, 0.38781E+00, 0.59669E+00,
     & 0.83053E+00, 0.10839E+01, 0.13542E+01, 0.16333E+01, 0.19218E+01,
     & 0.22174E+01, 0.25177E+01, 0.28211E+01, 0.31263E+01, 0.34323E+01,
     & 0.37381E+01, 0.40432E+01, 0.43469E+01, 0.46488E+01, 0.49484E+01,
     & 0.52449E+01, 0.55393E+01, 0.58320E+01, 0.61247E+01, 0.64174E+01,
     & 0.67101E+01, 0.70029E+01, 0.72956E+01, 0.75883E+01, 0.78810E+01,
     &-0.81293E-01, 0.62190E-01, 0.20870E+00, 0.38535E+00, 0.59130E+00,
     & 0.82123E+00, 0.10698E+01, 0.13344E+01, 0.16073E+01, 0.18889E+01,
     & 0.21770E+01, 0.24693E+01, 0.27643E+01, 0.30607E+01, 0.33575E+01,
     & 0.36540E+01, 0.39495E+01, 0.42433E+01, 0.45351E+01, 0.48245E+01,
     & 0.51106E+01, 0.53946E+01, 0.56768E+01, 0.59591E+01, 0.62413E+01,
     & 0.65235E+01, 0.68058E+01, 0.70880E+01, 0.73703E+01, 0.76525E+01,
     &-0.79672E-01, 0.62790E-01, 0.20820E+00, 0.38291E+00, 0.58594E+00,
     & 0.81200E+00, 0.10559E+01, 0.13148E+01, 0.15816E+01, 0.18564E+01,
     & 0.21372E+01, 0.24216E+01, 0.27084E+01, 0.29962E+01, 0.32841E+01,
     & 0.35714E+01, 0.38575E+01, 0.41417E+01, 0.44237E+01, 0.47031E+01,
     & 0.49792E+01, 0.52530E+01, 0.55251E+01, 0.57972E+01, 0.60692E+01,
     & 0.63413E+01, 0.66134E+01, 0.68854E+01, 0.71575E+01, 0.74295E+01,
     &-0.78070E-01, 0.63384E-01, 0.20770E+00, 0.38049E+00, 0.58061E+00,
     & 0.80286E+00, 0.10421E+01, 0.12955E+01, 0.15562E+01, 0.18244E+01,
     & 0.20979E+01, 0.23747E+01, 0.26534E+01, 0.29328E+01, 0.32120E+01,
     & 0.34904E+01, 0.37672E+01, 0.40420E+01, 0.43145E+01, 0.45843E+01,
     & 0.48506E+01, 0.51146E+01, 0.53767E+01, 0.56389E+01, 0.59011E+01,
     & 0.61632E+01, 0.64254E+01, 0.66876E+01, 0.69497E+01, 0.72119E+01,
     &-0.76448E-01, 0.63986E-01, 0.20721E+00, 0.37807E+00, 0.57533E+00,
     & 0.79379E+00, 0.10284E+01, 0.12764E+01, 0.15311E+01, 0.17928E+01,
     & 0.20593E+01, 0.23286E+01, 0.25993E+01, 0.28705E+01, 0.31412E+01,
     & 0.34108E+01, 0.36787E+01, 0.39444E+01, 0.42076E+01, 0.44680E+01,
     & 0.47248E+01, 0.49792E+01, 0.52317E+01, 0.54843E+01, 0.57369E+01,
     & 0.59894E+01, 0.62420E+01, 0.64945E+01, 0.67471E+01, 0.69997E+01,
     &-0.74824E-01, 0.64589E-01, 0.20672E+00, 0.37567E+00, 0.57008E+00,
     & 0.78480E+00, 0.10148E+01, 0.12575E+01, 0.15064E+01, 0.17616E+01,
     & 0.20212E+01, 0.22831E+01, 0.25461E+01, 0.28093E+01, 0.30716E+01,
     & 0.33327E+01, 0.35918E+01, 0.38486E+01, 0.41028E+01, 0.43540E+01,
     & 0.46016E+01, 0.48467E+01, 0.50899E+01, 0.53331E+01, 0.55764E+01,
     & 0.58196E+01, 0.60628E+01, 0.63060E+01, 0.65492E+01, 0.67924E+01/

      data ((g_grdl(i,j),j=1,30),i= 11, 20)/
     &-0.73219E-01, 0.65186E-01, 0.20623E+00, 0.37328E+00, 0.56487E+00,
     & 0.77588E+00, 0.10014E+01, 0.12388E+01, 0.14819E+01, 0.17309E+01,
     & 0.19836E+01, 0.22383E+01, 0.24938E+01, 0.27491E+01, 0.30033E+01,
     & 0.32560E+01, 0.35067E+01, 0.37548E+01, 0.40002E+01, 0.42425E+01,
     & 0.44811E+01, 0.47172E+01, 0.49514E+01, 0.51855E+01, 0.54197E+01,
     & 0.56538E+01, 0.58880E+01, 0.61221E+01, 0.63563E+01, 0.65904E+01,
     &-0.71612E-01, 0.65785E-01, 0.20574E+00, 0.37090E+00, 0.55969E+00,
     & 0.76704E+00, 0.98817E+00, 0.12203E+01, 0.14578E+01, 0.17006E+01,
     & 0.19466E+01, 0.21943E+01, 0.24423E+01, 0.26899E+01, 0.29362E+01,
     & 0.31808E+01, 0.34232E+01, 0.36628E+01, 0.38997E+01, 0.41334E+01,
     & 0.43632E+01, 0.45905E+01, 0.48159E+01, 0.50413E+01, 0.52666E+01,
     & 0.54920E+01, 0.57174E+01, 0.59427E+01, 0.61681E+01, 0.63935E+01,
     &-0.69985E-01, 0.66392E-01, 0.20526E+00, 0.36853E+00, 0.55455E+00,
     & 0.75828E+00, 0.97503E+00, 0.12020E+01, 0.14340E+01, 0.16707E+01,
     & 0.19102E+01, 0.21509E+01, 0.23917E+01, 0.26318E+01, 0.28703E+01,
     & 0.31070E+01, 0.33413E+01, 0.35727E+01, 0.38012E+01, 0.40265E+01,
     & 0.42479E+01, 0.44667E+01, 0.46835E+01, 0.49003E+01, 0.51172E+01,
     & 0.53340E+01, 0.55508E+01, 0.57676E+01, 0.59845E+01, 0.62013E+01,
     &-0.68374E-01, 0.66994E-01, 0.20478E+00, 0.36618E+00, 0.54944E+00,
     & 0.74959E+00, 0.96202E+00, 0.11840E+01, 0.14105E+01, 0.16411E+01,
     & 0.18742E+01, 0.21082E+01, 0.23419E+01, 0.25746E+01, 0.28056E+01,
     & 0.30346E+01, 0.32610E+01, 0.34844E+01, 0.37048E+01, 0.39219E+01,
     & 0.41351E+01, 0.43456E+01, 0.45541E+01, 0.47627E+01, 0.49712E+01,
     & 0.51798E+01, 0.53883E+01, 0.55968E+01, 0.58054E+01, 0.60139E+01,
     &-0.66764E-01, 0.67596E-01, 0.20430E+00, 0.36384E+00, 0.54437E+00,
     & 0.74098E+00, 0.94914E+00, 0.11661E+01, 0.13872E+01, 0.16121E+01,
     & 0.18388E+01, 0.20662E+01, 0.22930E+01, 0.25185E+01, 0.27421E+01,
     & 0.29635E+01, 0.31822E+01, 0.33979E+01, 0.36104E+01, 0.38196E+01,
     & 0.40247E+01, 0.42272E+01, 0.44277E+01, 0.46282E+01, 0.48287E+01,
     & 0.50292E+01, 0.52297E+01, 0.54302E+01, 0.56307E+01, 0.58312E+01,
     &-0.65151E-01, 0.68201E-01, 0.20382E+00, 0.36151E+00, 0.53933E+00,
     & 0.73244E+00, 0.93639E+00, 0.11485E+01, 0.13643E+01, 0.15834E+01,
     & 0.18040E+01, 0.20248E+01, 0.22448E+01, 0.24633E+01, 0.26798E+01,
     & 0.28938E+01, 0.31050E+01, 0.33131E+01, 0.35180E+01, 0.37194E+01,
     & 0.39168E+01, 0.41115E+01, 0.43042E+01, 0.44969E+01, 0.46896E+01,
     & 0.48823E+01, 0.50750E+01, 0.52677E+01, 0.54604E+01, 0.56531E+01,
     &-0.63536E-01, 0.68808E-01, 0.20335E+00, 0.35920E+00, 0.53433E+00,
     & 0.72397E+00, 0.92378E+00, 0.11311E+01, 0.13417E+01, 0.15551E+01,
     & 0.17696E+01, 0.19841E+01, 0.21975E+01, 0.24091E+01, 0.26185E+01,
     & 0.28254E+01, 0.30293E+01, 0.32300E+01, 0.34275E+01, 0.36214E+01,
     & 0.38112E+01, 0.39984E+01, 0.41835E+01, 0.43687E+01, 0.45538E+01,
     & 0.47390E+01, 0.49241E+01, 0.51092E+01, 0.52944E+01, 0.54795E+01,
     &-0.61919E-01, 0.69417E-01, 0.20288E+00, 0.35689E+00, 0.52937E+00,
     & 0.71558E+00, 0.91128E+00, 0.11138E+01, 0.13193E+01, 0.15272E+01,
     & 0.17358E+01, 0.19440E+01, 0.21509E+01, 0.23559E+01, 0.25584E+01,
     & 0.27583E+01, 0.29551E+01, 0.31487E+01, 0.33388E+01, 0.35255E+01,
     & 0.37080E+01, 0.38878E+01, 0.40656E+01, 0.42434E+01, 0.44212E+01,
     & 0.45990E+01, 0.47768E+01, 0.49547E+01, 0.51325E+01, 0.53103E+01,
     &-0.60280E-01, 0.70036E-01, 0.20242E+00, 0.35460E+00, 0.52444E+00,
     & 0.70726E+00, 0.89892E+00, 0.10968E+01, 0.12972E+01, 0.14996E+01,
     & 0.17024E+01, 0.19046E+01, 0.21051E+01, 0.23036E+01, 0.24994E+01,
     & 0.26925E+01, 0.28824E+01, 0.30689E+01, 0.32521E+01, 0.34316E+01,
     & 0.36071E+01, 0.37798E+01, 0.39505E+01, 0.41212E+01, 0.42919E+01,
     & 0.44626E+01, 0.46332E+01, 0.48039E+01, 0.49746E+01, 0.51453E+01,
     &-0.58678E-01, 0.70642E-01, 0.20195E+00, 0.35233E+00, 0.51954E+00,
     & 0.69901E+00, 0.88669E+00, 0.10800E+01, 0.12755E+01, 0.14725E+01,
     & 0.16696E+01, 0.18657E+01, 0.20601E+01, 0.22522E+01, 0.24415E+01,
     & 0.26279E+01, 0.28111E+01, 0.29909E+01, 0.31672E+01, 0.33398E+01,
     & 0.35084E+01, 0.36742E+01, 0.38380E+01, 0.40018E+01, 0.41656E+01,
     & 0.43294E+01, 0.44932E+01, 0.46570E+01, 0.48208E+01, 0.49846E+01/

      data ((g_grdl(i,j),j=1,30),i= 21, 30)/
     &-0.57074E-01, 0.71250E-01, 0.20149E+00, 0.35006E+00, 0.51468E+00,
     & 0.69084E+00, 0.87457E+00, 0.10633E+01, 0.12540E+01, 0.14457E+01,
     & 0.16373E+01, 0.18275E+01, 0.20159E+01, 0.22017E+01, 0.23846E+01,
     & 0.25646E+01, 0.27412E+01, 0.29144E+01, 0.30840E+01, 0.32500E+01,
     & 0.34119E+01, 0.35710E+01, 0.37281E+01, 0.38853E+01, 0.40424E+01,
     & 0.41996E+01, 0.43567E+01, 0.45138E+01, 0.46710E+01, 0.48281E+01,
     &-0.55448E-01, 0.71868E-01, 0.20104E+00, 0.34781E+00, 0.50986E+00,
     & 0.68273E+00, 0.86259E+00, 0.10469E+01, 0.12327E+01, 0.14194E+01,
     & 0.16054E+01, 0.17900E+01, 0.19724E+01, 0.21521E+01, 0.23289E+01,
     & 0.25025E+01, 0.26728E+01, 0.28395E+01, 0.30027E+01, 0.31622E+01,
     & 0.33176E+01, 0.34702E+01, 0.36209E+01, 0.37715E+01, 0.39222E+01,
     & 0.40728E+01, 0.42235E+01, 0.43741E+01, 0.45248E+01, 0.46754E+01,
     &-0.53818E-01, 0.72490E-01, 0.20058E+00, 0.34557E+00, 0.50507E+00,
     & 0.67470E+00, 0.85072E+00, 0.10306E+01, 0.12118E+01, 0.13933E+01,
     & 0.15740E+01, 0.17530E+01, 0.19296E+01, 0.21034E+01, 0.22741E+01,
     & 0.24416E+01, 0.26057E+01, 0.27661E+01, 0.29230E+01, 0.30763E+01,
     & 0.32254E+01, 0.33717E+01, 0.35161E+01, 0.36605E+01, 0.38049E+01,
     & 0.39493E+01, 0.40937E+01, 0.42381E+01, 0.43825E+01, 0.45269E+01,
     &-0.52186E-01, 0.73115E-01, 0.20013E+00, 0.34335E+00, 0.50031E+00,
     & 0.66674E+00, 0.83898E+00, 0.10146E+01, 0.11911E+01, 0.13677E+01,
     & 0.15431E+01, 0.17166E+01, 0.18876E+01, 0.20556E+01, 0.22204E+01,
     & 0.23819E+01, 0.25399E+01, 0.26943E+01, 0.28451E+01, 0.29923E+01,
     & 0.31352E+01, 0.32755E+01, 0.34138E+01, 0.35522E+01, 0.36905E+01,
     & 0.38288E+01, 0.39671E+01, 0.41054E+01, 0.42437E+01, 0.43821E+01,
     &-0.50569E-01, 0.73736E-01, 0.19969E+00, 0.34114E+00, 0.49559E+00,
     & 0.65885E+00, 0.82736E+00, 0.99871E+00, 0.11707E+01, 0.13424E+01,
     & 0.15127E+01, 0.16808E+01, 0.18463E+01, 0.20086E+01, 0.21676E+01,
     & 0.23234E+01, 0.24755E+01, 0.26240E+01, 0.27689E+01, 0.29101E+01,
     & 0.30472E+01, 0.31816E+01, 0.33140E+01, 0.34465E+01, 0.35789E+01,
     & 0.37113E+01, 0.38438E+01, 0.39762E+01, 0.41087E+01, 0.42411E+01,
     &-0.48930E-01, 0.74367E-01, 0.19925E+00, 0.33894E+00, 0.49091E+00,
     & 0.65103E+00, 0.81586E+00, 0.98303E+00, 0.11505E+01, 0.13175E+01,
     & 0.14827E+01, 0.16456E+01, 0.18056E+01, 0.19625E+01, 0.21159E+01,
     & 0.22660E+01, 0.24124E+01, 0.25551E+01, 0.26943E+01, 0.28298E+01,
     & 0.29611E+01, 0.30898E+01, 0.32166E+01, 0.33433E+01, 0.34701E+01,
     & 0.35968E+01, 0.37236E+01, 0.38503E+01, 0.39771E+01, 0.41038E+01,
     &-0.47306E-01, 0.74995E-01, 0.19881E+00, 0.33675E+00, 0.48626E+00,
     & 0.64328E+00, 0.80448E+00, 0.96754E+00, 0.11307E+01, 0.12929E+01,
     & 0.14532E+01, 0.16110E+01, 0.17657E+01, 0.19172E+01, 0.20651E+01,
     & 0.22097E+01, 0.23506E+01, 0.24877E+01, 0.26213E+01, 0.27512E+01,
     & 0.28770E+01, 0.30002E+01, 0.31214E+01, 0.32427E+01, 0.33639E+01,
     & 0.34852E+01, 0.36064E+01, 0.37277E+01, 0.38489E+01, 0.39702E+01,
     &-0.45678E-01, 0.75627E-01, 0.19838E+00, 0.33458E+00, 0.48164E+00,
     & 0.63560E+00, 0.79322E+00, 0.95223E+00, 0.11110E+01, 0.12687E+01,
     & 0.14242E+01, 0.15769E+01, 0.17265E+01, 0.18727E+01, 0.20153E+01,
     & 0.21545E+01, 0.22900E+01, 0.24217E+01, 0.25499E+01, 0.26744E+01,
     & 0.27948E+01, 0.29127E+01, 0.30286E+01, 0.31445E+01, 0.32604E+01,
     & 0.33763E+01, 0.34923E+01, 0.36082E+01, 0.37241E+01, 0.38400E+01,
     &-0.44027E-01, 0.76270E-01, 0.19796E+00, 0.33243E+00, 0.47706E+00,
     & 0.62799E+00, 0.78208E+00, 0.93710E+00, 0.10917E+01, 0.12448E+01,
     & 0.13955E+01, 0.15434E+01, 0.16880E+01, 0.18290E+01, 0.19665E+01,
     & 0.21004E+01, 0.22307E+01, 0.23571E+01, 0.24800E+01, 0.25993E+01,
     & 0.27146E+01, 0.28272E+01, 0.29380E+01, 0.30487E+01, 0.31595E+01,
     & 0.32703E+01, 0.33810E+01, 0.34918E+01, 0.36026E+01, 0.37133E+01,
     &-0.42390E-01, 0.76912E-01, 0.19754E+00, 0.33029E+00, 0.47252E+00,
     & 0.62045E+00, 0.77106E+00, 0.92216E+00, 0.10726E+01, 0.12213E+01,
     & 0.13674E+01, 0.15104E+01, 0.16501E+01, 0.17862E+01, 0.19186E+01,
     & 0.20474E+01, 0.21726E+01, 0.22939E+01, 0.24117E+01, 0.25259E+01,
     & 0.26361E+01, 0.27438E+01, 0.28496E+01, 0.29554E+01, 0.30611E+01,
     & 0.31669E+01, 0.32727E+01, 0.33785E+01, 0.34843E+01, 0.35901E+01/

      data ((g_grdl(i,j),j=1,30),i= 31, 40)/
     &-0.40748E-01, 0.77558E-01, 0.19713E+00, 0.32816E+00, 0.46801E+00,
     & 0.61297E+00, 0.76015E+00, 0.90740E+00, 0.10537E+01, 0.11981E+01,
     & 0.13396E+01, 0.14780E+01, 0.16129E+01, 0.17441E+01, 0.18716E+01,
     & 0.19955E+01, 0.21156E+01, 0.22321E+01, 0.23449E+01, 0.24542E+01,
     & 0.25595E+01, 0.26623E+01, 0.27633E+01, 0.28642E+01, 0.29652E+01,
     & 0.30662E+01, 0.31671E+01, 0.32681E+01, 0.33690E+01, 0.34700E+01,
     &-0.39101E-01, 0.78210E-01, 0.19672E+00, 0.32605E+00, 0.46354E+00,
     & 0.60557E+00, 0.74937E+00, 0.89282E+00, 0.10351E+01, 0.11752E+01,
     & 0.13123E+01, 0.14461E+01, 0.15763E+01, 0.17028E+01, 0.18255E+01,
     & 0.19446E+01, 0.20599E+01, 0.21715E+01, 0.22796E+01, 0.23841E+01,
     & 0.24847E+01, 0.25828E+01, 0.26792E+01, 0.27755E+01, 0.28718E+01,
     & 0.29681E+01, 0.30644E+01, 0.31607E+01, 0.32570E+01, 0.33533E+01,
     &-0.37447E-01, 0.78869E-01, 0.19632E+00, 0.32396E+00, 0.45910E+00,
     & 0.59824E+00, 0.73869E+00, 0.87841E+00, 0.10168E+01, 0.11527E+01,
     & 0.12855E+01, 0.14147E+01, 0.15404E+01, 0.16622E+01, 0.17802E+01,
     & 0.18947E+01, 0.20053E+01, 0.21123E+01, 0.22157E+01, 0.23156E+01,
     & 0.24117E+01, 0.25053E+01, 0.25970E+01, 0.26888E+01, 0.27806E+01,
     & 0.28724E+01, 0.29642E+01, 0.30560E+01, 0.31478E+01, 0.32396E+01,
     &-0.35787E-01, 0.79533E-01, 0.19593E+00, 0.32188E+00, 0.45470E+00,
     & 0.59098E+00, 0.72814E+00, 0.86418E+00, 0.99867E+00, 0.11305E+01,
     & 0.12590E+01, 0.13839E+01, 0.15051E+01, 0.16224E+01, 0.17359E+01,
     & 0.18458E+01, 0.19519E+01, 0.20543E+01, 0.21533E+01, 0.22487E+01,
     & 0.23403E+01, 0.24295E+01, 0.25170E+01, 0.26044E+01, 0.26919E+01,
     & 0.27793E+01, 0.28668E+01, 0.29542E+01, 0.30417E+01, 0.31291E+01,
     &-0.34141E-01, 0.80196E-01, 0.19555E+00, 0.31982E+00, 0.45033E+00,
     & 0.58378E+00, 0.71769E+00, 0.85012E+00, 0.98081E+00, 0.11086E+01,
     & 0.12330E+01, 0.13536E+01, 0.14704E+01, 0.15833E+01, 0.16924E+01,
     & 0.17979E+01, 0.18996E+01, 0.19976E+01, 0.20922E+01, 0.21833E+01,
     & 0.22707E+01, 0.23557E+01, 0.24389E+01, 0.25222E+01, 0.26054E+01,
     & 0.26887E+01, 0.27719E+01, 0.28552E+01, 0.29385E+01, 0.30217E+01,
     &-0.32467E-01, 0.80875E-01, 0.19517E+00, 0.31777E+00, 0.44600E+00,
     & 0.57665E+00, 0.70735E+00, 0.83623E+00, 0.96318E+00, 0.10871E+01,
     & 0.12073E+01, 0.13238E+01, 0.14364E+01, 0.15450E+01, 0.16498E+01,
     & 0.17509E+01, 0.18484E+01, 0.19421E+01, 0.20325E+01, 0.21194E+01,
     & 0.22027E+01, 0.22836E+01, 0.23628E+01, 0.24420E+01, 0.25212E+01,
     & 0.26004E+01, 0.26796E+01, 0.27588E+01, 0.28380E+01, 0.29172E+01,
     &-0.30786E-01, 0.81561E-01, 0.19480E+00, 0.31574E+00, 0.44170E+00,
     & 0.56958E+00, 0.69713E+00, 0.82251E+00, 0.94578E+00, 0.10658E+01,
     & 0.11821E+01, 0.12944E+01, 0.14029E+01, 0.15074E+01, 0.16080E+01,
     & 0.17050E+01, 0.17982E+01, 0.18879E+01, 0.19741E+01, 0.20570E+01,
     & 0.21363E+01, 0.22132E+01, 0.22885E+01, 0.23638E+01, 0.24390E+01,
     & 0.25143E+01, 0.25896E+01, 0.26649E+01, 0.27401E+01, 0.28154E+01,
     &-0.29115E-01, 0.82248E-01, 0.19444E+00, 0.31373E+00, 0.43744E+00,
     & 0.56258E+00, 0.68701E+00, 0.80895E+00, 0.92862E+00, 0.10449E+01,
     & 0.11572E+01, 0.12656E+01, 0.13700E+01, 0.14704E+01, 0.15670E+01,
     & 0.16599E+01, 0.17491E+01, 0.18348E+01, 0.19171E+01, 0.19961E+01,
     & 0.20715E+01, 0.21446E+01, 0.22161E+01, 0.22876E+01, 0.23591E+01,
     & 0.24307E+01, 0.25022E+01, 0.25737E+01, 0.26452E+01, 0.27167E+01,
     &-0.27417E-01, 0.82952E-01, 0.19409E+00, 0.31173E+00, 0.43321E+00,
     & 0.55565E+00, 0.67700E+00, 0.79556E+00, 0.91169E+00, 0.10243E+01,
     & 0.11328E+01, 0.12373E+01, 0.13378E+01, 0.14342E+01, 0.15268E+01,
     & 0.16158E+01, 0.17011E+01, 0.17829E+01, 0.18613E+01, 0.19365E+01,
     & 0.20082E+01, 0.20777E+01, 0.21455E+01, 0.22134E+01, 0.22812E+01,
     & 0.23491E+01, 0.24170E+01, 0.24848E+01, 0.25527E+01, 0.26205E+01,
     &-0.25688E-01, 0.83673E-01, 0.19375E+00, 0.30974E+00, 0.42901E+00,
     & 0.54877E+00, 0.66710E+00, 0.78233E+00, 0.89499E+00, 0.10039E+01,
     & 0.11087E+01, 0.12094E+01, 0.13060E+01, 0.13987E+01, 0.14874E+01,
     & 0.15726E+01, 0.16541E+01, 0.17321E+01, 0.18069E+01, 0.18784E+01,
     & 0.19465E+01, 0.20124E+01, 0.20768E+01, 0.21411E+01, 0.22055E+01,
     & 0.22698E+01, 0.23342E+01, 0.23985E+01, 0.24629E+01, 0.25272E+01/

      data ((g_grdl(i,j),j=1,30),i= 41, 50)/
     &-0.23968E-01, 0.84397E-01, 0.19342E+00, 0.30778E+00, 0.42485E+00,
     & 0.54197E+00, 0.65730E+00, 0.76927E+00, 0.87851E+00, 0.98389E+00,
     & 0.10850E+01, 0.11820E+01, 0.12749E+01, 0.13638E+01, 0.14488E+01,
     & 0.15302E+01, 0.16081E+01, 0.16825E+01, 0.17536E+01, 0.18216E+01,
     & 0.18863E+01, 0.19488E+01, 0.20097E+01, 0.20707E+01, 0.21316E+01,
     & 0.21926E+01, 0.22535E+01, 0.23145E+01, 0.23754E+01, 0.24364E+01,
     &-0.22237E-01, 0.85132E-01, 0.19310E+00, 0.30583E+00, 0.42073E+00,
     & 0.53522E+00, 0.64761E+00, 0.75636E+00, 0.86226E+00, 0.96415E+00,
     & 0.10617E+01, 0.11551E+01, 0.12443E+01, 0.13296E+01, 0.14109E+01,
     & 0.14888E+01, 0.15631E+01, 0.16339E+01, 0.17016E+01, 0.17662E+01,
     & 0.18275E+01, 0.18867E+01, 0.19444E+01, 0.20021E+01, 0.20598E+01,
     & 0.21174E+01, 0.21751E+01, 0.22328E+01, 0.22905E+01, 0.23482E+01,
     &-0.20494E-01, 0.85880E-01, 0.19279E+00, 0.30390E+00, 0.41664E+00,
     & 0.52855E+00, 0.63803E+00, 0.74362E+00, 0.84623E+00, 0.94471E+00,
     & 0.10388E+01, 0.11286E+01, 0.12143E+01, 0.12960E+01, 0.13738E+01,
     & 0.14482E+01, 0.15190E+01, 0.15865E+01, 0.16508E+01, 0.17121E+01,
     & 0.17702E+01, 0.18262E+01, 0.18807E+01, 0.19353E+01, 0.19899E+01,
     & 0.20444E+01, 0.20990E+01, 0.21535E+01, 0.22081E+01, 0.22627E+01,
     &-0.18738E-01, 0.86641E-01, 0.19250E+00, 0.30199E+00, 0.41258E+00,
     & 0.52194E+00, 0.62855E+00, 0.73103E+00, 0.83042E+00, 0.92556E+00,
     & 0.10162E+01, 0.11026E+01, 0.11849E+01, 0.12631E+01, 0.13375E+01,
     & 0.14085E+01, 0.14759E+01, 0.15401E+01, 0.16012E+01, 0.16593E+01,
     & 0.17142E+01, 0.17672E+01, 0.18187E+01, 0.18702E+01, 0.19217E+01,
     & 0.19733E+01, 0.20248E+01, 0.20763E+01, 0.21278E+01, 0.21793E+01,
     &-0.16949E-01, 0.87423E-01, 0.19222E+00, 0.30010E+00, 0.40856E+00,
     & 0.51539E+00, 0.61918E+00, 0.71861E+00, 0.81482E+00, 0.90670E+00,
     & 0.99402E+00, 0.10770E+01, 0.11559E+01, 0.12308E+01, 0.13019E+01,
     & 0.13696E+01, 0.14338E+01, 0.14947E+01, 0.15527E+01, 0.16078E+01,
     & 0.16597E+01, 0.17097E+01, 0.17583E+01, 0.18069E+01, 0.18556E+01,
     & 0.19042E+01, 0.19528E+01, 0.20014E+01, 0.20501E+01, 0.20987E+01,
     &-0.15143E-01, 0.88220E-01, 0.19196E+00, 0.29823E+00, 0.40458E+00,
     & 0.50890E+00, 0.60991E+00, 0.70633E+00, 0.79944E+00, 0.88811E+00,
     & 0.97217E+00, 0.10519E+01, 0.11275E+01, 0.11991E+01, 0.12670E+01,
     & 0.13315E+01, 0.13925E+01, 0.14504E+01, 0.15054E+01, 0.15574E+01,
     & 0.16065E+01, 0.16537E+01, 0.16995E+01, 0.17453E+01, 0.17911E+01,
     & 0.18369E+01, 0.18827E+01, 0.19286E+01, 0.19744E+01, 0.20202E+01,
     &-0.13321E-01, 0.89035E-01, 0.19171E+00, 0.29638E+00, 0.40064E+00,
     & 0.50248E+00, 0.60074E+00, 0.69421E+00, 0.78427E+00, 0.86980E+00,
     & 0.95068E+00, 0.10272E+01, 0.10996E+01, 0.11681E+01, 0.12328E+01,
     & 0.12942E+01, 0.13522E+01, 0.14071E+01, 0.14591E+01, 0.15084E+01,
     & 0.15546E+01, 0.15991E+01, 0.16422E+01, 0.16853E+01, 0.17284E+01,
     & 0.17715E+01, 0.18147E+01, 0.18578E+01, 0.19009E+01, 0.19440E+01,
     &-0.11462E-01, 0.89874E-01, 0.19147E+00, 0.29455E+00, 0.39673E+00,
     & 0.49612E+00, 0.59168E+00, 0.68224E+00, 0.76931E+00, 0.85177E+00,
     & 0.92954E+00, 0.10029E+01, 0.10723E+01, 0.11376E+01, 0.11993E+01,
     & 0.12577E+01, 0.13128E+01, 0.13648E+01, 0.14140E+01, 0.14605E+01,
     & 0.15040E+01, 0.15459E+01, 0.15864E+01, 0.16269E+01, 0.16674E+01,
     & 0.17079E+01, 0.17485E+01, 0.17890E+01, 0.18295E+01, 0.18700E+01,
     &-0.95828E-02, 0.90732E-01, 0.19126E+00, 0.29274E+00, 0.39285E+00,
     & 0.48983E+00, 0.58272E+00, 0.67043E+00, 0.75457E+00, 0.83402E+00,
     & 0.90875E+00, 0.97912E+00, 0.10454E+01, 0.11078E+01, 0.11665E+01,
     & 0.12220E+01, 0.12742E+01, 0.13235E+01, 0.13699E+01, 0.14137E+01,
     & 0.14547E+01, 0.14940E+01, 0.15321E+01, 0.15701E+01, 0.16081E+01,
     & 0.16462E+01, 0.16842E+01, 0.17222E+01, 0.17603E+01, 0.17983E+01,
     &-0.76828E-02, 0.91611E-01, 0.19107E+00, 0.29096E+00, 0.38902E+00,
     & 0.48361E+00, 0.57386E+00, 0.65877E+00, 0.74002E+00, 0.81654E+00,
     & 0.88830E+00, 0.95570E+00, 0.10190E+01, 0.10785E+01, 0.11343E+01,
     & 0.11870E+01, 0.12365E+01, 0.12831E+01, 0.13269E+01, 0.13682E+01,
     & 0.14067E+01, 0.14435E+01, 0.14792E+01, 0.15148E+01, 0.15505E+01,
     & 0.15861E+01, 0.16218E+01, 0.16574E+01, 0.16931E+01, 0.17287E+01/

      data ((g_grdl(i,j),j=1,30),i= 51, 60)/
     &-0.57605E-02, 0.92513E-01, 0.19089E+00, 0.28920E+00, 0.38523E+00,
     & 0.47745E+00, 0.56511E+00, 0.64726E+00, 0.72569E+00, 0.79932E+00,
     & 0.86818E+00, 0.93269E+00, 0.99316E+00, 0.10498E+01, 0.11029E+01,
     & 0.11528E+01, 0.11997E+01, 0.12436E+01, 0.12849E+01, 0.13237E+01,
     & 0.13599E+01, 0.13944E+01, 0.14277E+01, 0.14611E+01, 0.14944E+01,
     & 0.15278E+01, 0.15612E+01, 0.15945E+01, 0.16279E+01, 0.16612E+01,
     &-0.38138E-02, 0.93439E-01, 0.19074E+00, 0.28747E+00, 0.38148E+00,
     & 0.47135E+00, 0.55645E+00, 0.63590E+00, 0.71156E+00, 0.78237E+00,
     & 0.84841E+00, 0.91010E+00, 0.96777E+00, 0.10217E+01, 0.10721E+01,
     & 0.11194E+01, 0.11636E+01, 0.12051E+01, 0.12440E+01, 0.12804E+01,
     & 0.13142E+01, 0.13465E+01, 0.13776E+01, 0.14088E+01, 0.14399E+01,
     & 0.14711E+01, 0.15022E+01, 0.15334E+01, 0.15645E+01, 0.15956E+01,
     &-0.18038E-02, 0.94405E-01, 0.19062E+00, 0.28577E+00, 0.37777E+00,
     & 0.46532E+00, 0.54790E+00, 0.62469E+00, 0.69763E+00, 0.76569E+00,
     & 0.82896E+00, 0.88790E+00, 0.94287E+00, 0.99409E+00, 0.10419E+01,
     & 0.10866E+01, 0.11284E+01, 0.11675E+01, 0.12040E+01, 0.12381E+01,
     & 0.12698E+01, 0.12999E+01, 0.13289E+01, 0.13580E+01, 0.13870E+01,
     & 0.14160E+01, 0.14451E+01, 0.14741E+01, 0.15031E+01, 0.15322E+01,
     & 0.23775E-03, 0.95401E-01, 0.19052E+00, 0.28409E+00, 0.37410E+00,
     & 0.45937E+00, 0.53946E+00, 0.61363E+00, 0.68390E+00, 0.74927E+00,
     & 0.80984E+00, 0.86611E+00, 0.91844E+00, 0.96708E+00, 0.10123E+01,
     & 0.10546E+01, 0.10940E+01, 0.11307E+01, 0.11650E+01, 0.11969E+01,
     & 0.12265E+01, 0.12545E+01, 0.12815E+01, 0.13085E+01, 0.13355E+01,
     & 0.13625E+01, 0.13895E+01, 0.14166E+01, 0.14436E+01, 0.14706E+01,
     & 0.23103E-02, 0.96428E-01, 0.19045E+00, 0.28245E+00, 0.37048E+00,
     & 0.45347E+00, 0.53111E+00, 0.60271E+00, 0.67038E+00, 0.73310E+00,
     & 0.79104E+00, 0.84471E+00, 0.89448E+00, 0.94061E+00, 0.98342E+00,
     & 0.10233E+01, 0.10604E+01, 0.10948E+01, 0.11269E+01, 0.11568E+01,
     & 0.11843E+01, 0.12103E+01, 0.12354E+01, 0.12605E+01, 0.12855E+01,
     & 0.13106E+01, 0.13357E+01, 0.13607E+01, 0.13858E+01, 0.14108E+01,
     & 0.44153E-02, 0.97487E-01, 0.19041E+00, 0.28084E+00, 0.36690E+00,
     & 0.44765E+00, 0.52288E+00, 0.59195E+00, 0.65706E+00, 0.71720E+00,
     & 0.77257E+00, 0.82371E+00, 0.87099E+00, 0.91469E+00, 0.95513E+00,
     & 0.99274E+00, 0.10276E+01, 0.10598E+01, 0.10898E+01, 0.11176E+01,
     & 0.11432E+01, 0.11674E+01, 0.11906E+01, 0.12138E+01, 0.12369E+01,
     & 0.12601E+01, 0.12833E+01, 0.13065E+01, 0.13297E+01, 0.13529E+01,
     & 0.65945E-02, 0.98597E-01, 0.19040E+00, 0.27927E+00, 0.36337E+00,
     & 0.44190E+00, 0.51474E+00, 0.58134E+00, 0.64393E+00, 0.70155E+00,
     & 0.75442E+00, 0.80308E+00, 0.84795E+00, 0.88929E+00, 0.92744E+00,
     & 0.96282E+00, 0.99550E+00, 0.10257E+01, 0.10536E+01, 0.10795E+01,
     & 0.11032E+01, 0.11255E+01, 0.11470E+01, 0.11684E+01, 0.11898E+01,
     & 0.12112E+01, 0.12326E+01, 0.12540E+01, 0.12754E+01, 0.12968E+01,
     & 0.88154E-02, 0.99747E-01, 0.19043E+00, 0.27773E+00, 0.35989E+00,
     & 0.43623E+00, 0.50672E+00, 0.57088E+00, 0.63101E+00, 0.68616E+00,
     & 0.73659E+00, 0.78285E+00, 0.82537E+00, 0.86442E+00, 0.90035E+00,
     & 0.93358E+00, 0.96417E+00, 0.99234E+00, 0.10184E+01, 0.10424E+01,
     & 0.10643E+01, 0.10849E+01, 0.11046E+01, 0.11243E+01, 0.11440E+01,
     & 0.11637E+01, 0.11834E+01, 0.12032E+01, 0.12229E+01, 0.12426E+01,
     & 0.11079E-01, 0.10094E+00, 0.19051E+00, 0.27624E+00, 0.35646E+00,
     & 0.43063E+00, 0.49881E+00, 0.56057E+00, 0.61829E+00, 0.67103E+00,
     & 0.71907E+00, 0.76300E+00, 0.80323E+00, 0.84007E+00, 0.87385E+00,
     & 0.90500E+00, 0.93359E+00, 0.95982E+00, 0.98398E+00, 0.10062E+01,
     & 0.10264E+01, 0.10453E+01, 0.10634E+01, 0.10815E+01, 0.10996E+01,
     & 0.11177E+01, 0.11358E+01, 0.11539E+01, 0.11720E+01, 0.11900E+01,
     & 0.13427E-01, 0.10219E+00, 0.19062E+00, 0.27478E+00, 0.35309E+00,
     & 0.42511E+00, 0.49100E+00, 0.55041E+00, 0.60577E+00, 0.65615E+00,
     & 0.70187E+00, 0.74352E+00, 0.78154E+00, 0.81623E+00, 0.84794E+00,
     & 0.87708E+00, 0.90373E+00, 0.92811E+00, 0.95047E+00, 0.97096E+00,
     & 0.98949E+00, 0.10069E+01, 0.10234E+01, 0.10399E+01, 0.10565E+01,
     & 0.10730E+01, 0.10895E+01, 0.11061E+01, 0.11226E+01, 0.11391E+01/

      data ((g_grdl(i,j),j=1,30),i= 61, 70)/
     & 0.15828E-01, 0.10350E+00, 0.19078E+00, 0.27338E+00, 0.34978E+00,
     & 0.41967E+00, 0.48331E+00, 0.54041E+00, 0.59345E+00, 0.64153E+00,
     & 0.68498E+00, 0.72442E+00, 0.76029E+00, 0.79290E+00, 0.82260E+00,
     & 0.84981E+00, 0.87459E+00, 0.89718E+00, 0.91782E+00, 0.93665E+00,
     & 0.95362E+00, 0.96946E+00, 0.98450E+00, 0.99954E+00, 0.10146E+01,
     & 0.10296E+01, 0.10447E+01, 0.10597E+01, 0.10748E+01, 0.10898E+01,
     & 0.18304E-01, 0.10487E+00, 0.19100E+00, 0.27203E+00, 0.34653E+00,
     & 0.41431E+00, 0.47574E+00, 0.53057E+00, 0.58134E+00, 0.62716E+00,
     & 0.66840E+00, 0.70570E+00, 0.73948E+00, 0.77008E+00, 0.79783E+00,
     & 0.82317E+00, 0.84616E+00, 0.86703E+00, 0.88602E+00, 0.90327E+00,
     & 0.91873E+00, 0.93312E+00, 0.94674E+00, 0.96037E+00, 0.97399E+00,
     & 0.98762E+00, 0.10012E+01, 0.10149E+01, 0.10285E+01, 0.10421E+01,
     & 0.20841E-01, 0.10629E+00, 0.19127E+00, 0.27073E+00, 0.34335E+00,
     & 0.40905E+00, 0.46829E+00, 0.52089E+00, 0.56943E+00, 0.61305E+00,
     & 0.65214E+00, 0.68734E+00, 0.71911E+00, 0.74775E+00, 0.77363E+00,
     & 0.79717E+00, 0.81843E+00, 0.83764E+00, 0.85505E+00, 0.87078E+00,
     & 0.88480E+00, 0.89780E+00, 0.91007E+00, 0.92234E+00, 0.93462E+00,
     & 0.94689E+00, 0.95916E+00, 0.97143E+00, 0.98370E+00, 0.99597E+00,
     & 0.23482E-01, 0.10780E+00, 0.19161E+00, 0.26950E+00, 0.34024E+00,
     & 0.40387E+00, 0.46096E+00, 0.51137E+00, 0.55773E+00, 0.59920E+00,
     & 0.63620E+00, 0.66936E+00, 0.69916E+00, 0.72592E+00, 0.74999E+00,
     & 0.77178E+00, 0.79138E+00, 0.80900E+00, 0.82489E+00, 0.83918E+00,
     & 0.85183E+00, 0.86350E+00, 0.87448E+00, 0.88546E+00, 0.89644E+00,
     & 0.90742E+00, 0.91840E+00, 0.92939E+00, 0.94037E+00, 0.95135E+00,
     & 0.26198E-01, 0.10939E+00, 0.19201E+00, 0.26834E+00, 0.33721E+00,
     & 0.39880E+00, 0.45376E+00, 0.50202E+00, 0.54624E+00, 0.58561E+00,
     & 0.62056E+00, 0.65175E+00, 0.67965E+00, 0.70458E+00, 0.72690E+00,
     & 0.74701E+00, 0.76501E+00, 0.78110E+00, 0.79554E+00, 0.80844E+00,
     & 0.81978E+00, 0.83018E+00, 0.83993E+00, 0.84968E+00, 0.85943E+00,
     & 0.86918E+00, 0.87893E+00, 0.88868E+00, 0.89843E+00, 0.90818E+00,
     & 0.29031E-01, 0.11106E+00, 0.19249E+00, 0.26724E+00, 0.33426E+00,
     & 0.39383E+00, 0.44669E+00, 0.49285E+00, 0.53497E+00, 0.57229E+00,
     & 0.60525E+00, 0.63451E+00, 0.66056E+00, 0.68373E+00, 0.70436E+00,
     & 0.72286E+00, 0.73931E+00, 0.75394E+00, 0.76698E+00, 0.77855E+00,
     & 0.78864E+00, 0.79784E+00, 0.80642E+00, 0.81500E+00, 0.82358E+00,
     & 0.83216E+00, 0.84073E+00, 0.84931E+00, 0.85789E+00, 0.86647E+00,
     & 0.31956E-01, 0.11283E+00, 0.19305E+00, 0.26624E+00, 0.33140E+00,
     & 0.38897E+00, 0.43977E+00, 0.48385E+00, 0.52392E+00, 0.55923E+00,
     & 0.59025E+00, 0.61764E+00, 0.64191E+00, 0.66336E+00, 0.68236E+00,
     & 0.69930E+00, 0.71427E+00, 0.72749E+00, 0.73920E+00, 0.74950E+00,
     & 0.75839E+00, 0.76644E+00, 0.77391E+00, 0.78137E+00, 0.78884E+00,
     & 0.79630E+00, 0.80376E+00, 0.81123E+00, 0.81869E+00, 0.82615E+00,
     & 0.34995E-01, 0.11470E+00, 0.19371E+00, 0.26532E+00, 0.32865E+00,
     & 0.38424E+00, 0.43299E+00, 0.47504E+00, 0.51309E+00, 0.54644E+00,
     & 0.57557E+00, 0.60115E+00, 0.62368E+00, 0.64347E+00, 0.66090E+00,
     & 0.67634E+00, 0.68989E+00, 0.70176E+00, 0.71218E+00, 0.72127E+00,
     & 0.72902E+00, 0.73598E+00, 0.74238E+00, 0.74878E+00, 0.75519E+00,
     & 0.76159E+00, 0.76799E+00, 0.77439E+00, 0.78079E+00, 0.78719E+00,
     & 0.38161E-01, 0.11668E+00, 0.19447E+00, 0.26450E+00, 0.32600E+00,
     & 0.37963E+00, 0.42637E+00, 0.46641E+00, 0.50250E+00, 0.53394E+00,
     & 0.56122E+00, 0.58504E+00, 0.60588E+00, 0.62407E+00, 0.63997E+00,
     & 0.65397E+00, 0.66615E+00, 0.67672E+00, 0.68592E+00, 0.69385E+00,
     & 0.70051E+00, 0.70643E+00, 0.71182E+00, 0.71721E+00, 0.72261E+00,
     & 0.72800E+00, 0.73339E+00, 0.73878E+00, 0.74417E+00, 0.74957E+00,
     & 0.41484E-01, 0.11879E+00, 0.19534E+00, 0.26379E+00, 0.32347E+00,
     & 0.37516E+00, 0.41991E+00, 0.45799E+00, 0.49215E+00, 0.52171E+00,
     & 0.54719E+00, 0.56930E+00, 0.58850E+00, 0.60515E+00, 0.61958E+00,
     & 0.63218E+00, 0.64305E+00, 0.65238E+00, 0.66040E+00, 0.66722E+00,
     & 0.67284E+00, 0.67777E+00, 0.68220E+00, 0.68663E+00, 0.69106E+00,
     & 0.69550E+00, 0.69993E+00, 0.70436E+00, 0.70879E+00, 0.71322E+00/

      data ((g_grdl(i,j),j=1,30),i= 71, 80)/
     & 0.44941E-01, 0.12104E+00, 0.19634E+00, 0.26321E+00, 0.32108E+00,
     & 0.37084E+00, 0.41364E+00, 0.44978E+00, 0.48204E+00, 0.50977E+00,
     & 0.53350E+00, 0.55394E+00, 0.57156E+00, 0.58670E+00, 0.59972E+00,
     & 0.61098E+00, 0.62057E+00, 0.62871E+00, 0.63561E+00, 0.64137E+00,
     & 0.64600E+00, 0.64998E+00, 0.65350E+00, 0.65702E+00, 0.66054E+00,
     & 0.66406E+00, 0.66758E+00, 0.67109E+00, 0.67461E+00, 0.67813E+00,
     & 0.48563E-01, 0.12344E+00, 0.19748E+00, 0.26277E+00, 0.31883E+00,
     & 0.36668E+00, 0.40755E+00, 0.44179E+00, 0.47219E+00, 0.49813E+00,
     & 0.52015E+00, 0.53896E+00, 0.55504E+00, 0.56874E+00, 0.58038E+00,
     & 0.59034E+00, 0.59872E+00, 0.60571E+00, 0.61153E+00, 0.61628E+00,
     & 0.61997E+00, 0.62305E+00, 0.62570E+00, 0.62835E+00, 0.63100E+00,
     & 0.63365E+00, 0.63630E+00, 0.63895E+00, 0.64160E+00, 0.64425E+00,
     & 0.52368E-01, 0.12601E+00, 0.19878E+00, 0.26248E+00, 0.31675E+00,
     & 0.36271E+00, 0.40166E+00, 0.43404E+00, 0.46261E+00, 0.48679E+00,
     & 0.50715E+00, 0.52438E+00, 0.53896E+00, 0.55125E+00, 0.56157E+00,
     & 0.57028E+00, 0.57749E+00, 0.58338E+00, 0.58816E+00, 0.59194E+00,
     & 0.59473E+00, 0.59696E+00, 0.59878E+00, 0.60061E+00, 0.60243E+00,
     & 0.60425E+00, 0.60608E+00, 0.60790E+00, 0.60972E+00, 0.61155E+00,
     & 0.56393E-01, 0.12878E+00, 0.20026E+00, 0.26237E+00, 0.31484E+00,
     & 0.35893E+00, 0.39600E+00, 0.42653E+00, 0.45331E+00, 0.47578E+00,
     & 0.49450E+00, 0.51019E+00, 0.52332E+00, 0.53424E+00, 0.54328E+00,
     & 0.55078E+00, 0.55686E+00, 0.56169E+00, 0.56548E+00, 0.56833E+00,
     & 0.57027E+00, 0.57168E+00, 0.57271E+00, 0.57375E+00, 0.57479E+00,
     & 0.57583E+00, 0.57686E+00, 0.57790E+00, 0.57894E+00, 0.57997E+00,
     & 0.60646E-01, 0.13176E+00, 0.20194E+00, 0.26245E+00, 0.31315E+00,
     & 0.35537E+00, 0.39057E+00, 0.41929E+00, 0.44430E+00, 0.46509E+00,
     & 0.48222E+00, 0.49640E+00, 0.50812E+00, 0.51771E+00, 0.52551E+00,
     & 0.53184E+00, 0.53683E+00, 0.54064E+00, 0.54348E+00, 0.54545E+00,
     & 0.54656E+00, 0.54719E+00, 0.54748E+00, 0.54777E+00, 0.54806E+00,
     & 0.54835E+00, 0.54864E+00, 0.54893E+00, 0.54922E+00, 0.54951E+00,
     & 0.65114E-01, 0.13497E+00, 0.20384E+00, 0.26276E+00, 0.31168E+00,
     & 0.35205E+00, 0.38541E+00, 0.41233E+00, 0.43561E+00, 0.45474E+00,
     & 0.47030E+00, 0.48302E+00, 0.49336E+00, 0.50166E+00, 0.50825E+00,
     & 0.51346E+00, 0.51739E+00, 0.52022E+00, 0.52215E+00, 0.52326E+00,
     & 0.52359E+00, 0.52348E+00, 0.52305E+00, 0.52263E+00, 0.52221E+00,
     & 0.52178E+00, 0.52136E+00, 0.52093E+00, 0.52051E+00, 0.52009E+00,
     & 0.69877E-01, 0.13845E+00, 0.20601E+00, 0.26333E+00, 0.31047E+00,
     & 0.34900E+00, 0.38053E+00, 0.40568E+00, 0.42724E+00, 0.44474E+00,
     & 0.45878E+00, 0.47006E+00, 0.47905E+00, 0.48609E+00, 0.49151E+00,
     & 0.49562E+00, 0.49853E+00, 0.50042E+00, 0.50146E+00, 0.50176E+00,
     & 0.50134E+00, 0.50052E+00, 0.49941E+00, 0.49831E+00, 0.49720E+00,
     & 0.49610E+00, 0.49499E+00, 0.49389E+00, 0.49278E+00, 0.49168E+00,
     & 0.74942E-01, 0.14223E+00, 0.20847E+00, 0.26418E+00, 0.30955E+00,
     & 0.34625E+00, 0.37596E+00, 0.39936E+00, 0.41923E+00, 0.43512E+00,
     & 0.44765E+00, 0.45751E+00, 0.46519E+00, 0.47100E+00, 0.47528E+00,
     & 0.47832E+00, 0.48025E+00, 0.48122E+00, 0.48141E+00, 0.48092E+00,
     & 0.47978E+00, 0.47827E+00, 0.47652E+00, 0.47476E+00, 0.47300E+00,
     & 0.47125E+00, 0.46949E+00, 0.46774E+00, 0.46598E+00, 0.46422E+00,
     & 0.80366E-01, 0.14636E+00, 0.21127E+00, 0.26537E+00, 0.30896E+00,
     & 0.34384E+00, 0.37174E+00, 0.39339E+00, 0.41159E+00, 0.42589E+00,
     & 0.43693E+00, 0.44540E+00, 0.45178E+00, 0.45640E+00, 0.45955E+00,
     & 0.46156E+00, 0.46252E+00, 0.46260E+00, 0.46197E+00, 0.46072E+00,
     & 0.45888E+00, 0.45673E+00, 0.45435E+00, 0.45197E+00, 0.44959E+00,
     & 0.44721E+00, 0.44483E+00, 0.44245E+00, 0.44007E+00, 0.43769E+00,
     & 0.86202E-01, 0.15089E+00, 0.21445E+00, 0.26695E+00, 0.30876E+00,
     & 0.34180E+00, 0.36789E+00, 0.38782E+00, 0.40434E+00, 0.41707E+00,
     & 0.42663E+00, 0.43373E+00, 0.43883E+00, 0.44226E+00, 0.44432E+00,
     & 0.44531E+00, 0.44533E+00, 0.44455E+00, 0.44312E+00, 0.44113E+00,
     & 0.43863E+00, 0.43584E+00, 0.43286E+00, 0.42989E+00, 0.42691E+00,
     & 0.42393E+00, 0.42095E+00, 0.41797E+00, 0.41499E+00, 0.41201E+00/

      data ((g_grdl(i,j),j=1,30),i= 81, 90)/
     & 0.92493E-01, 0.15587E+00, 0.21809E+00, 0.26896E+00, 0.30899E+00,
     & 0.34020E+00, 0.36448E+00, 0.38267E+00, 0.39752E+00, 0.40867E+00,
     & 0.41678E+00, 0.42251E+00, 0.42635E+00, 0.42861E+00, 0.42958E+00,
     & 0.42957E+00, 0.42867E+00, 0.42704E+00, 0.42483E+00, 0.42213E+00,
     & 0.41898E+00, 0.41559E+00, 0.41203E+00, 0.40847E+00, 0.40492E+00,
     & 0.40136E+00, 0.39781E+00, 0.39425E+00, 0.39069E+00, 0.38714E+00,
     & 0.99313E-01, 0.16138E+00, 0.22226E+00, 0.27150E+00, 0.30973E+00,
     & 0.33909E+00, 0.36154E+00, 0.37798E+00, 0.39116E+00, 0.40074E+00,
     & 0.40737E+00, 0.41174E+00, 0.41431E+00, 0.41541E+00, 0.41532E+00,
     & 0.41432E+00, 0.41251E+00, 0.41005E+00, 0.40707E+00, 0.40367E+00,
     & 0.39989E+00, 0.39591E+00, 0.39180E+00, 0.38768E+00, 0.38357E+00,
     & 0.37946E+00, 0.37534E+00, 0.37123E+00, 0.36712E+00, 0.36300E+00,
     & 0.10675E+00, 0.16750E+00, 0.22704E+00, 0.27464E+00, 0.31104E+00,
     & 0.33853E+00, 0.35914E+00, 0.37381E+00, 0.38529E+00, 0.39328E+00,
     & 0.39843E+00, 0.40143E+00, 0.40274E+00, 0.40267E+00, 0.40151E+00,
     & 0.39953E+00, 0.39682E+00, 0.39353E+00, 0.38981E+00, 0.38572E+00,
     & 0.38133E+00, 0.37678E+00, 0.37212E+00, 0.36747E+00, 0.36281E+00,
     & 0.35815E+00, 0.35350E+00, 0.34884E+00, 0.34419E+00, 0.33953E+00,
     & 0.11493E+00, 0.17437E+00, 0.23255E+00, 0.27849E+00, 0.31304E+00,
     & 0.33862E+00, 0.35734E+00, 0.37021E+00, 0.37996E+00, 0.38632E+00,
     & 0.38997E+00, 0.39158E+00, 0.39161E+00, 0.39037E+00, 0.38814E+00,
     & 0.38517E+00, 0.38156E+00, 0.37746E+00, 0.37299E+00, 0.36823E+00,
     & 0.36323E+00, 0.35812E+00, 0.35294E+00, 0.34776E+00, 0.34258E+00,
     & 0.33739E+00, 0.33221E+00, 0.32703E+00, 0.32184E+00, 0.31666E+00,
     & 0.12396E+00, 0.18210E+00, 0.23894E+00, 0.28319E+00, 0.31584E+00,
     & 0.33944E+00, 0.35622E+00, 0.36723E+00, 0.37520E+00, 0.37989E+00,
     & 0.38200E+00, 0.38219E+00, 0.38092E+00, 0.37849E+00, 0.37516E+00,
     & 0.37120E+00, 0.36669E+00, 0.36177E+00, 0.35656E+00, 0.35113E+00,
     & 0.34554E+00, 0.33988E+00, 0.33418E+00, 0.32848E+00, 0.32278E+00,
     & 0.31709E+00, 0.31139E+00, 0.30569E+00, 0.29999E+00, 0.29429E+00,
     & 0.13405E+00, 0.19089E+00, 0.24639E+00, 0.28890E+00, 0.31958E+00,
     & 0.34113E+00, 0.35587E+00, 0.36495E+00, 0.37106E+00, 0.37402E+00,
     & 0.37452E+00, 0.37325E+00, 0.37063E+00, 0.36697E+00, 0.36254E+00,
     & 0.35756E+00, 0.35213E+00, 0.34639E+00, 0.34044E+00, 0.33435E+00,
     & 0.32817E+00, 0.32197E+00, 0.31577E+00, 0.30956E+00, 0.30336E+00,
     & 0.29716E+00, 0.29095E+00, 0.28475E+00, 0.27855E+00, 0.27234E+00,
     & 0.14544E+00, 0.20099E+00, 0.25513E+00, 0.29584E+00, 0.32445E+00,
     & 0.34384E+00, 0.35642E+00, 0.36344E+00, 0.36758E+00, 0.36871E+00,
     & 0.36754E+00, 0.36473E+00, 0.36071E+00, 0.35578E+00, 0.35020E+00,
     & 0.34418E+00, 0.33782E+00, 0.33125E+00, 0.32454E+00, 0.31778E+00,
     & 0.31102E+00, 0.30430E+00, 0.29760E+00, 0.29090E+00, 0.28420E+00,
     & 0.27750E+00, 0.27080E+00, 0.26410E+00, 0.25740E+00, 0.25070E+00,
     & 0.15848E+00, 0.21270E+00, 0.26547E+00, 0.30429E+00, 0.33068E+00,
     & 0.34773E+00, 0.35799E+00, 0.36279E+00, 0.36483E+00, 0.36400E+00,
     & 0.36103E+00, 0.35659E+00, 0.35109E+00, 0.34483E+00, 0.33806E+00,
     & 0.33096E+00, 0.32364E+00, 0.31621E+00, 0.30875E+00, 0.30132E+00,
     & 0.29398E+00, 0.28673E+00, 0.27955E+00, 0.27236E+00, 0.26517E+00,
     & 0.25799E+00, 0.25080E+00, 0.24362E+00, 0.23643E+00, 0.22925E+00,
     & 0.17357E+00, 0.22646E+00, 0.27782E+00, 0.31460E+00, 0.33856E+00,
     & 0.35303E+00, 0.36073E+00, 0.36310E+00, 0.36283E+00, 0.35986E+00,
     & 0.35496E+00, 0.34876E+00, 0.34168E+00, 0.33401E+00, 0.32598E+00,
     & 0.31776E+00, 0.30944E+00, 0.30114E+00, 0.29291E+00, 0.28481E+00,
     & 0.27690E+00, 0.26913E+00, 0.26147E+00, 0.25381E+00, 0.24616E+00,
     & 0.23850E+00, 0.23084E+00, 0.22318E+00, 0.21553E+00, 0.20787E+00,
     & 0.19141E+00, 0.24289E+00, 0.29275E+00, 0.32727E+00, 0.34848E+00,
     & 0.36003E+00, 0.36484E+00, 0.36448E+00, 0.36162E+00, 0.35628E+00,
     & 0.34924E+00, 0.34112E+00, 0.33233E+00, 0.32315E+00, 0.31379E+00,
     & 0.30438E+00, 0.29504E+00, 0.28583E+00, 0.27682E+00, 0.26805E+00,
     & 0.25957E+00, 0.25131E+00, 0.24319E+00, 0.23508E+00, 0.22697E+00,
     & 0.21886E+00, 0.21074E+00, 0.20263E+00, 0.19452E+00, 0.18640E+00/

      data ((g_grdl(i,j),j=1,30),i= 91,100)/
     & 0.21291E+00, 0.26285E+00, 0.31106E+00, 0.34295E+00, 0.36095E+00,
     & 0.36908E+00, 0.37052E+00, 0.36701E+00, 0.36119E+00, 0.35317E+00,
     & 0.34373E+00, 0.33349E+00, 0.32284E+00, 0.31202E+00, 0.30122E+00,
     & 0.29057E+00, 0.28015E+00, 0.27003E+00, 0.26023E+00, 0.25079E+00,
     & 0.24177E+00, 0.23303E+00, 0.22449E+00, 0.21596E+00, 0.20742E+00,
     & 0.19889E+00, 0.19035E+00, 0.18182E+00, 0.17328E+00, 0.16474E+00,
     & 0.23952E+00, 0.28766E+00, 0.33391E+00, 0.36258E+00, 0.37664E+00,
     & 0.38062E+00, 0.37802E+00, 0.37078E+00, 0.36149E+00, 0.35036E+00,
     & 0.33820E+00, 0.32558E+00, 0.31285E+00, 0.30025E+00, 0.28792E+00,
     & 0.27595E+00, 0.26442E+00, 0.25336E+00, 0.24279E+00, 0.23270E+00,
     & 0.22317E+00, 0.21400E+00, 0.20509E+00, 0.19618E+00, 0.18727E+00,
     & 0.17836E+00, 0.16944E+00, 0.16053E+00, 0.15162E+00, 0.14271E+00,
     & 0.27365E+00, 0.31941E+00, 0.36308E+00, 0.38754E+00, 0.39651E+00,
     & 0.39522E+00, 0.38758E+00, 0.37579E+00, 0.36233E+00, 0.34753E+00,
     & 0.33221E+00, 0.31688E+00, 0.30184E+00, 0.28730E+00, 0.27334E+00,
     & 0.26000E+00, 0.24733E+00, 0.23535E+00, 0.22403E+00, 0.21336E+00,
     & 0.20339E+00, 0.19387E+00, 0.18466E+00, 0.17545E+00, 0.16625E+00,
     & 0.15704E+00, 0.14784E+00, 0.13863E+00, 0.12943E+00, 0.12022E+00,
     & 0.31932E+00, 0.36154E+00, 0.40140E+00, 0.41990E+00, 0.42190E+00,
     & 0.41359E+00, 0.39942E+00, 0.38189E+00, 0.36327E+00, 0.34406E+00,
     & 0.32503E+00, 0.30660E+00, 0.28900E+00, 0.27234E+00, 0.25667E+00,
     & 0.24193E+00, 0.22816E+00, 0.21532E+00, 0.20334E+00, 0.19219E+00,
     & 0.18190E+00, 0.17216E+00, 0.16279E+00, 0.15342E+00, 0.14406E+00,
     & 0.13469E+00, 0.12532E+00, 0.11596E+00, 0.10659E+00, 0.97222E-01,
     & 0.38409E+00, 0.42027E+00, 0.45371E+00, 0.46298E+00, 0.45473E+00,
     & 0.43655E+00, 0.41352E+00, 0.38852E+00, 0.36335E+00, 0.33873E+00,
     & 0.31532E+00, 0.29336E+00, 0.27294E+00, 0.25408E+00, 0.23669E+00,
     & 0.22062E+00, 0.20587E+00, 0.19234E+00, 0.17989E+00, 0.16846E+00,
     & 0.15808E+00, 0.14832E+00, 0.13901E+00, 0.12970E+00, 0.12040E+00,
     & 0.11109E+00, 0.10178E+00, 0.92467E-01, 0.83158E-01, 0.73849E-01,
     & 0.48368E+00, 0.50801E+00, 0.52906E+00, 0.52243E+00, 0.49781E+00,
     & 0.46478E+00, 0.42913E+00, 0.39407E+00, 0.36039E+00, 0.32909E+00,
     & 0.30057E+00, 0.27472E+00, 0.25138E+00, 0.23038E+00, 0.21148E+00,
     & 0.19436E+00, 0.17897E+00, 0.16511E+00, 0.15257E+00, 0.14125E+00,
     & 0.13115E+00, 0.12175E+00, 0.11286E+00, 0.10396E+00, 0.95068E-01,
     & 0.86173E-01, 0.77278E-01, 0.68384E-01, 0.59489E-01, 0.50594E-01,
     & 0.65642E+00, 0.65351E+00, 0.64663E+00, 0.60855E+00, 0.55473E+00,
     & 0.49747E+00, 0.44283E+00, 0.39386E+00, 0.34912E+00, 0.30982E+00,
     & 0.27573E+00, 0.24608E+00, 0.22022E+00, 0.19771E+00, 0.17802E+00,
     & 0.16064E+00, 0.14539E+00, 0.13197E+00, 0.12009E+00, 0.10957E+00,
     & 0.10038E+00, 0.91942E-01, 0.84036E-01, 0.76130E-01, 0.68224E-01,
     & 0.60318E-01, 0.52412E-01, 0.44506E-01, 0.36599E-01, 0.28693E-01,
     & 0.10244E+01, 0.94218E+00, 0.85504E+00, 0.73932E+00, 0.62458E+00,
     & 0.52419E+00, 0.44036E+00, 0.37319E+00, 0.31553E+00, 0.26851E+00,
     & 0.23026E+00, 0.19871E+00, 0.17245E+00, 0.15052E+00, 0.13206E+00,
     & 0.11627E+00, 0.10285E+00, 0.91400E-01, 0.81519E-01, 0.72993E-01,
     & 0.65736E-01, 0.59184E-01, 0.53121E-01, 0.47058E-01, 0.40995E-01,
     & 0.34932E-01, 0.28869E-01, 0.22806E-01, 0.16743E-01, 0.10680E-01,
     & 0.24805E+01, 0.18712E+01, 0.12846E+01, 0.89328E+00, 0.64194E+00,
     & 0.47609E+00, 0.36215E+00, 0.28438E+00, 0.22329E+00, 0.17846E+00,
     & 0.14507E+00, 0.11945E+00, 0.99391E-01, 0.83533E-01, 0.70821E-01,
     & 0.60379E-01, 0.51868E-01, 0.44863E-01, 0.39016E-01, 0.34126E-01,
     & 0.30096E-01, 0.26529E-01, 0.23278E-01, 0.20027E-01, 0.16776E-01,
     & 0.13526E-01, 0.10275E-01, 0.70242E-02, 0.37735E-02, 0.52278E-03,
     & 0.39081E+00, 0.29072E+00, 0.19456E+00, 0.13189E+00, 0.92635E-01,
     & 0.67334E-01, 0.50306E-01, 0.38915E-01, 0.30078E-01, 0.23698E-01,
     & 0.19020E-01, 0.15476E-01, 0.12736E-01, 0.10594E-01, 0.88958E-02,
     & 0.75135E-02, 0.63980E-02, 0.54881E-02, 0.47351E-02, 0.41105E-02,
     & 0.36003E-02, 0.31511E-02, 0.27436E-02, 0.23361E-02, 0.19286E-02,
     & 0.15210E-02, 0.11135E-02, 0.70600E-03, 0.29848E-03,-0.10904E-03/

      data ((f2grdl(i,j),j=1,30),i=  1, 10)/
     &-0.93000E-02, 0.88897E-03, 0.11219E-01, 0.23069E-01, 0.36724E-01,
     & 0.52246E-01, 0.69696E-01, 0.89303E-01, 0.11033E+00, 0.13318E+00,
     & 0.15779E+00, 0.18400E+00, 0.21171E+00, 0.24085E+00, 0.27127E+00,
     & 0.30287E+00, 0.33569E+00, 0.36974E+00, 0.40526E+00, 0.44265E+00,
     & 0.48321E+00, 0.52680E+00, 0.57296E+00, 0.61912E+00, 0.66528E+00,
     & 0.71144E+00, 0.75759E+00, 0.80375E+00, 0.84991E+00, 0.89607E+00,
     &-0.92028E-02, 0.87971E-03, 0.11100E-01, 0.22794E-01, 0.36240E-01,
     & 0.51502E-01, 0.68637E-01, 0.87868E-01, 0.10848E+00, 0.13086E+00,
     & 0.15494E+00, 0.18058E+00, 0.20767E+00, 0.23614E+00, 0.26585E+00,
     & 0.29670E+00, 0.32873E+00, 0.36195E+00, 0.39658E+00, 0.43304E+00,
     & 0.47258E+00, 0.51508E+00, 0.56007E+00, 0.60507E+00, 0.65006E+00,
     & 0.69505E+00, 0.74005E+00, 0.78504E+00, 0.83004E+00, 0.87503E+00,
     &-0.91060E-02, 0.87135E-03, 0.10982E-01, 0.22522E-01, 0.35760E-01,
     & 0.50766E-01, 0.67589E-01, 0.86450E-01, 0.10665E+00, 0.12857E+00,
     & 0.15214E+00, 0.17721E+00, 0.20368E+00, 0.23149E+00, 0.26050E+00,
     & 0.29062E+00, 0.32188E+00, 0.35428E+00, 0.38805E+00, 0.42360E+00,
     & 0.46214E+00, 0.50355E+00, 0.54740E+00, 0.59125E+00, 0.63511E+00,
     & 0.67896E+00, 0.72281E+00, 0.76666E+00, 0.81051E+00, 0.85436E+00,
     &-0.90068E-02, 0.86486E-03, 0.10866E-01, 0.22252E-01, 0.35285E-01,
     & 0.50037E-01, 0.66552E-01, 0.85048E-01, 0.10484E+00, 0.12630E+00,
     & 0.14936E+00, 0.17388E+00, 0.19976E+00, 0.22692E+00, 0.25524E+00,
     & 0.28464E+00, 0.31513E+00, 0.34673E+00, 0.37966E+00, 0.41431E+00,
     & 0.45186E+00, 0.49222E+00, 0.53495E+00, 0.57768E+00, 0.62041E+00,
     & 0.66315E+00, 0.70588E+00, 0.74861E+00, 0.79134E+00, 0.83407E+00,
     &-0.89061E-02, 0.85988E-03, 0.10751E-01, 0.21985E-01, 0.34814E-01,
     & 0.49317E-01, 0.65526E-01, 0.83663E-01, 0.10306E+00, 0.12406E+00,
     & 0.14663E+00, 0.17060E+00, 0.19589E+00, 0.22242E+00, 0.25007E+00,
     & 0.27876E+00, 0.30850E+00, 0.33931E+00, 0.37140E+00, 0.40517E+00,
     & 0.44177E+00, 0.48109E+00, 0.52272E+00, 0.56435E+00, 0.60597E+00,
     & 0.64760E+00, 0.68923E+00, 0.73086E+00, 0.77249E+00, 0.81412E+00,
     &-0.88058E-02, 0.85579E-03, 0.10638E-01, 0.21721E-01, 0.34348E-01,
     & 0.48604E-01, 0.64510E-01, 0.82293E-01, 0.10129E+00, 0.12186E+00,
     & 0.14393E+00, 0.16736E+00, 0.19207E+00, 0.21798E+00, 0.24497E+00,
     & 0.27296E+00, 0.30197E+00, 0.33201E+00, 0.36329E+00, 0.39619E+00,
     & 0.43185E+00, 0.47015E+00, 0.51069E+00, 0.55123E+00, 0.59177E+00,
     & 0.63231E+00, 0.67286E+00, 0.71340E+00, 0.75394E+00, 0.79448E+00,
     &-0.87030E-02, 0.85362E-03, 0.10527E-01, 0.21459E-01, 0.33887E-01,
     & 0.47898E-01, 0.63505E-01, 0.80939E-01, 0.99550E-01, 0.11968E+00,
     & 0.14127E+00, 0.16417E+00, 0.18831E+00, 0.21361E+00, 0.23995E+00,
     & 0.26725E+00, 0.29554E+00, 0.32483E+00, 0.35531E+00, 0.38736E+00,
     & 0.42210E+00, 0.45940E+00, 0.49887E+00, 0.53835E+00, 0.57782E+00,
     & 0.61730E+00, 0.65677E+00, 0.69625E+00, 0.73572E+00, 0.77519E+00,
     &-0.85977E-02, 0.85344E-03, 0.10418E-01, 0.21201E-01, 0.33430E-01,
     & 0.47199E-01, 0.62512E-01, 0.79601E-01, 0.97831E-01, 0.11754E+00,
     & 0.13865E+00, 0.16103E+00, 0.18461E+00, 0.20931E+00, 0.23501E+00,
     & 0.26164E+00, 0.28922E+00, 0.31776E+00, 0.34746E+00, 0.37868E+00,
     & 0.41252E+00, 0.44884E+00, 0.48726E+00, 0.52569E+00, 0.56412E+00,
     & 0.60255E+00, 0.64098E+00, 0.67941E+00, 0.71784E+00, 0.75627E+00,
     &-0.84905E-02, 0.85504E-03, 0.10310E-01, 0.20945E-01, 0.32978E-01,
     & 0.46506E-01, 0.61530E-01, 0.78278E-01, 0.96133E-01, 0.11542E+00,
     & 0.13606E+00, 0.15793E+00, 0.18096E+00, 0.20507E+00, 0.23014E+00,
     & 0.25612E+00, 0.28300E+00, 0.31081E+00, 0.33974E+00, 0.37015E+00,
     & 0.40310E+00, 0.43846E+00, 0.47587E+00, 0.51328E+00, 0.55068E+00,
     & 0.58809E+00, 0.62550E+00, 0.66290E+00, 0.70031E+00, 0.73772E+00,
     &-0.83806E-02, 0.85883E-03, 0.10205E-01, 0.20691E-01, 0.32531E-01,
     & 0.45819E-01, 0.60559E-01, 0.76969E-01, 0.94457E-01, 0.11332E+00,
     & 0.13351E+00, 0.15488E+00, 0.17737E+00, 0.20089E+00, 0.22536E+00,
     & 0.25068E+00, 0.27688E+00, 0.30398E+00, 0.33216E+00, 0.36176E+00,
     & 0.39385E+00, 0.42827E+00, 0.46468E+00, 0.50109E+00, 0.53750E+00,
     & 0.57391E+00, 0.61032E+00, 0.64673E+00, 0.68314E+00, 0.71955E+00/

      data ((f2grdl(i,j),j=1,30),i= 11, 20)/
     &-0.82677E-02, 0.86509E-03, 0.10101E-01, 0.20441E-01, 0.32088E-01,
     & 0.45138E-01, 0.59600E-01, 0.75677E-01, 0.92802E-01, 0.11126E+00,
     & 0.13099E+00, 0.15187E+00, 0.17383E+00, 0.19678E+00, 0.22064E+00,
     & 0.24533E+00, 0.27086E+00, 0.29726E+00, 0.32470E+00, 0.35353E+00,
     & 0.38475E+00, 0.41826E+00, 0.45370E+00, 0.48913E+00, 0.52457E+00,
     & 0.56001E+00, 0.59545E+00, 0.63088E+00, 0.66632E+00, 0.70176E+00,
     &-0.81419E-02, 0.87769E-03, 0.99988E-02, 0.20192E-01, 0.31649E-01,
     & 0.44465E-01, 0.58652E-01, 0.74401E-01, 0.91168E-01, 0.10922E+00,
     & 0.12851E+00, 0.14891E+00, 0.17034E+00, 0.19274E+00, 0.21600E+00,
     & 0.24007E+00, 0.26494E+00, 0.29065E+00, 0.31737E+00, 0.34543E+00,
     & 0.37582E+00, 0.40842E+00, 0.44291E+00, 0.47740E+00, 0.51189E+00,
     & 0.54638E+00, 0.58086E+00, 0.61535E+00, 0.64984E+00, 0.68433E+00,
     &-0.80297E-02, 0.88659E-03, 0.98988E-02, 0.19947E-01, 0.31216E-01,
     & 0.43800E-01, 0.57714E-01, 0.73140E-01, 0.89555E-01, 0.10721E+00,
     & 0.12606E+00, 0.14598E+00, 0.16690E+00, 0.18875E+00, 0.21144E+00,
     & 0.23489E+00, 0.25912E+00, 0.28416E+00, 0.31017E+00, 0.33748E+00,
     & 0.36704E+00, 0.39877E+00, 0.43233E+00, 0.46589E+00, 0.49945E+00,
     & 0.53301E+00, 0.56657E+00, 0.60013E+00, 0.63370E+00, 0.66726E+00,
     &-0.79144E-02, 0.89782E-03, 0.98012E-02, 0.19704E-01, 0.30787E-01,
     & 0.43141E-01, 0.56787E-01, 0.71896E-01, 0.87963E-01, 0.10523E+00,
     & 0.12365E+00, 0.14310E+00, 0.16351E+00, 0.18482E+00, 0.20694E+00,
     & 0.22979E+00, 0.25340E+00, 0.27777E+00, 0.30309E+00, 0.32966E+00,
     & 0.35842E+00, 0.38928E+00, 0.42193E+00, 0.45458E+00, 0.48723E+00,
     & 0.51989E+00, 0.55254E+00, 0.58519E+00, 0.61784E+00, 0.65049E+00,
     &-0.78000E-02, 0.90978E-03, 0.97063E-02, 0.19464E-01, 0.30363E-01,
     & 0.42490E-01, 0.55871E-01, 0.70668E-01, 0.86389E-01, 0.10327E+00,
     & 0.12128E+00, 0.14026E+00, 0.16018E+00, 0.18096E+00, 0.20252E+00,
     & 0.22478E+00, 0.24777E+00, 0.27149E+00, 0.29613E+00, 0.32198E+00,
     & 0.34994E+00, 0.37996E+00, 0.41172E+00, 0.44348E+00, 0.47524E+00,
     & 0.50700E+00, 0.53876E+00, 0.57052E+00, 0.60228E+00, 0.63403E+00,
     &-0.76819E-02, 0.92421E-03, 0.96139E-02, 0.19226E-01, 0.29944E-01,
     & 0.41846E-01, 0.54966E-01, 0.69453E-01, 0.84835E-01, 0.10135E+00,
     & 0.11893E+00, 0.13746E+00, 0.15689E+00, 0.17716E+00, 0.19816E+00,
     & 0.21985E+00, 0.24223E+00, 0.26532E+00, 0.28929E+00, 0.31443E+00,
     & 0.34163E+00, 0.37082E+00, 0.40170E+00, 0.43259E+00, 0.46347E+00,
     & 0.49436E+00, 0.52524E+00, 0.55613E+00, 0.58701E+00, 0.61790E+00,
     &-0.75620E-02, 0.94046E-03, 0.95233E-02, 0.18991E-01, 0.29529E-01,
     & 0.41208E-01, 0.54070E-01, 0.68254E-01, 0.83301E-01, 0.99445E-01,
     & 0.11662E+00, 0.13470E+00, 0.15366E+00, 0.17341E+00, 0.19388E+00,
     & 0.21500E+00, 0.23679E+00, 0.25926E+00, 0.28257E+00, 0.30702E+00,
     & 0.33346E+00, 0.36184E+00, 0.39187E+00, 0.42190E+00, 0.45193E+00,
     & 0.48195E+00, 0.51198E+00, 0.54201E+00, 0.57204E+00, 0.60207E+00,
     &-0.74411E-02, 0.95821E-03, 0.94346E-02, 0.18759E-01, 0.29119E-01,
     & 0.40578E-01, 0.53185E-01, 0.67070E-01, 0.81787E-01, 0.97567E-01,
     & 0.11433E+00, 0.13198E+00, 0.15047E+00, 0.16973E+00, 0.18967E+00,
     & 0.21023E+00, 0.23144E+00, 0.25330E+00, 0.27597E+00, 0.29974E+00,
     & 0.32544E+00, 0.35302E+00, 0.38221E+00, 0.41139E+00, 0.44058E+00,
     & 0.46977E+00, 0.49895E+00, 0.52814E+00, 0.55732E+00, 0.58651E+00,
     &-0.73169E-02, 0.97833E-03, 0.93477E-02, 0.18529E-01, 0.28712E-01,
     & 0.39955E-01, 0.52310E-01, 0.65900E-01, 0.80292E-01, 0.95714E-01,
     & 0.11208E+00, 0.12930E+00, 0.14734E+00, 0.16610E+00, 0.18552E+00,
     & 0.20554E+00, 0.22617E+00, 0.24744E+00, 0.26948E+00, 0.29259E+00,
     & 0.31756E+00, 0.34436E+00, 0.37273E+00, 0.40110E+00, 0.42946E+00,
     & 0.45783E+00, 0.48620E+00, 0.51456E+00, 0.54293E+00, 0.57130E+00,
     &-0.71896E-02, 0.10010E-02, 0.92629E-02, 0.18303E-01, 0.28310E-01,
     & 0.39339E-01, 0.51445E-01, 0.64744E-01, 0.78817E-01, 0.93886E-01,
     & 0.10986E+00, 0.12666E+00, 0.14425E+00, 0.16253E+00, 0.18144E+00,
     & 0.20092E+00, 0.22100E+00, 0.24168E+00, 0.26311E+00, 0.28556E+00,
     & 0.30982E+00, 0.33586E+00, 0.36343E+00, 0.39099E+00, 0.41855E+00,
     & 0.44611E+00, 0.47367E+00, 0.50123E+00, 0.52879E+00, 0.55635E+00/

      data ((f2grdl(i,j),j=1,30),i= 21, 30)/
     &-0.70589E-02, 0.10262E-02, 0.91800E-02, 0.18080E-01, 0.27912E-01,
     & 0.38729E-01, 0.50591E-01, 0.63602E-01, 0.77362E-01, 0.92080E-01,
     & 0.10767E+00, 0.12407E+00, 0.14120E+00, 0.15901E+00, 0.17742E+00,
     & 0.19638E+00, 0.21591E+00, 0.23601E+00, 0.25683E+00, 0.27865E+00,
     & 0.30222E+00, 0.32751E+00, 0.35428E+00, 0.38105E+00, 0.40781E+00,
     & 0.43458E+00, 0.46135E+00, 0.48811E+00, 0.51488E+00, 0.54165E+00,
     &-0.69282E-02, 0.10528E-02, 0.90992E-02, 0.17861E-01, 0.27519E-01,
     & 0.38128E-01, 0.49747E-01, 0.62476E-01, 0.75928E-01, 0.90301E-01,
     & 0.10552E+00, 0.12151E+00, 0.13821E+00, 0.15555E+00, 0.17347E+00,
     & 0.19191E+00, 0.21089E+00, 0.23043E+00, 0.25067E+00, 0.27186E+00,
     & 0.29475E+00, 0.31931E+00, 0.34529E+00, 0.37127E+00, 0.39725E+00,
     & 0.42324E+00, 0.44922E+00, 0.47520E+00, 0.50119E+00, 0.52717E+00,
     &-0.67909E-02, 0.10833E-02, 0.90206E-02, 0.17645E-01, 0.27129E-01,
     & 0.37533E-01, 0.48913E-01, 0.61364E-01, 0.74512E-01, 0.88547E-01,
     & 0.10339E+00, 0.11899E+00, 0.13526E+00, 0.15214E+00, 0.16958E+00,
     & 0.18751E+00, 0.20597E+00, 0.22495E+00, 0.24461E+00, 0.26518E+00,
     & 0.28741E+00, 0.31125E+00, 0.33646E+00, 0.36168E+00, 0.38690E+00,
     & 0.41211E+00, 0.43733E+00, 0.46254E+00, 0.48776E+00, 0.51298E+00,
     &-0.66545E-02, 0.11149E-02, 0.89443E-02, 0.17432E-01, 0.26744E-01,
     & 0.36948E-01, 0.48089E-01, 0.60268E-01, 0.73116E-01, 0.86819E-01,
     & 0.10130E+00, 0.11651E+00, 0.13235E+00, 0.14879E+00, 0.16575E+00,
     & 0.18319E+00, 0.20113E+00, 0.21957E+00, 0.23866E+00, 0.25863E+00,
     & 0.28020E+00, 0.30334E+00, 0.32781E+00, 0.35229E+00, 0.37676E+00,
     & 0.40123E+00, 0.42570E+00, 0.45018E+00, 0.47465E+00, 0.49912E+00,
     &-0.65142E-02, 0.11496E-02, 0.88704E-02, 0.17223E-01, 0.26364E-01,
     & 0.36369E-01, 0.47275E-01, 0.59185E-01, 0.71739E-01, 0.85116E-01,
     & 0.99245E-01, 0.11406E+00, 0.12949E+00, 0.14548E+00, 0.16198E+00,
     & 0.17894E+00, 0.19637E+00, 0.21428E+00, 0.23282E+00, 0.25220E+00,
     & 0.27313E+00, 0.29558E+00, 0.31932E+00, 0.34307E+00, 0.36682E+00,
     & 0.39057E+00, 0.41431E+00, 0.43806E+00, 0.46181E+00, 0.48556E+00,
     &-0.63721E-02, 0.11863E-02, 0.87990E-02, 0.17016E-01, 0.25988E-01,
     & 0.35797E-01, 0.46471E-01, 0.58117E-01, 0.70381E-01, 0.83437E-01,
     & 0.97219E-01, 0.11166E+00, 0.12668E+00, 0.14224E+00, 0.15828E+00,
     & 0.17477E+00, 0.19170E+00, 0.20909E+00, 0.22708E+00, 0.24589E+00,
     & 0.26618E+00, 0.28796E+00, 0.31100E+00, 0.33403E+00, 0.35707E+00,
     & 0.38011E+00, 0.40314E+00, 0.42618E+00, 0.44922E+00, 0.47225E+00,
     &-0.62235E-02, 0.12272E-02, 0.87301E-02, 0.16812E-01, 0.25617E-01,
     & 0.35232E-01, 0.45676E-01, 0.57062E-01, 0.69042E-01, 0.81782E-01,
     & 0.95223E-01, 0.10929E+00, 0.12391E+00, 0.13904E+00, 0.15464E+00,
     & 0.17067E+00, 0.18711E+00, 0.20399E+00, 0.22145E+00, 0.23969E+00,
     & 0.25937E+00, 0.28049E+00, 0.30283E+00, 0.32517E+00, 0.34751E+00,
     & 0.36985E+00, 0.39219E+00, 0.41453E+00, 0.43687E+00, 0.45921E+00,
     &-0.60766E-02, 0.12690E-02, 0.86637E-02, 0.16611E-01, 0.25252E-01,
     & 0.34674E-01, 0.44892E-01, 0.56021E-01, 0.67722E-01, 0.80152E-01,
     & 0.93257E-01, 0.10696E+00, 0.12118E+00, 0.13590E+00, 0.15106E+00,
     & 0.16664E+00, 0.18260E+00, 0.19899E+00, 0.21592E+00, 0.23361E+00,
     & 0.25269E+00, 0.27316E+00, 0.29482E+00, 0.31648E+00, 0.33814E+00,
     & 0.35979E+00, 0.38145E+00, 0.40311E+00, 0.42477E+00, 0.44643E+00,
     &-0.59272E-02, 0.13132E-02, 0.86000E-02, 0.16413E-01, 0.24891E-01,
     & 0.34122E-01, 0.44117E-01, 0.54994E-01, 0.66421E-01, 0.78546E-01,
     & 0.91320E-01, 0.10466E+00, 0.11850E+00, 0.13282E+00, 0.14755E+00,
     & 0.16267E+00, 0.17817E+00, 0.19407E+00, 0.21049E+00, 0.22763E+00,
     & 0.24613E+00, 0.26597E+00, 0.28695E+00, 0.30794E+00, 0.32892E+00,
     & 0.34991E+00, 0.37089E+00, 0.39188E+00, 0.41287E+00, 0.43385E+00,
     &-0.57752E-02, 0.13599E-02, 0.85390E-02, 0.16218E-01, 0.24536E-01,
     & 0.33577E-01, 0.43353E-01, 0.53981E-01, 0.65138E-01, 0.76965E-01,
     & 0.89413E-01, 0.10239E+00, 0.11586E+00, 0.12978E+00, 0.14409E+00,
     & 0.15878E+00, 0.17382E+00, 0.18923E+00, 0.20515E+00, 0.22177E+00,
     & 0.23969E+00, 0.25891E+00, 0.27924E+00, 0.29957E+00, 0.31990E+00,
     & 0.34023E+00, 0.36056E+00, 0.38089E+00, 0.40122E+00, 0.42154E+00/

      data ((f2grdl(i,j),j=1,30),i= 31, 40)/
     &-0.56172E-02, 0.14106E-02, 0.84806E-02, 0.16027E-01, 0.24186E-01,
     & 0.33038E-01, 0.42601E-01, 0.52981E-01, 0.63873E-01, 0.75408E-01,
     & 0.87536E-01, 0.10017E+00, 0.11327E+00, 0.12680E+00, 0.14070E+00,
     & 0.15496E+00, 0.16954E+00, 0.18449E+00, 0.19992E+00, 0.21601E+00,
     & 0.23337E+00, 0.25198E+00, 0.27167E+00, 0.29136E+00, 0.31105E+00,
     & 0.33073E+00, 0.35042E+00, 0.37011E+00, 0.38980E+00, 0.40948E+00,
     &-0.54618E-02, 0.14619E-02, 0.84247E-02, 0.15839E-01, 0.23841E-01,
     & 0.32507E-01, 0.41860E-01, 0.51996E-01, 0.62626E-01, 0.73873E-01,
     & 0.85688E-01, 0.97977E-01, 0.11072E+00, 0.12387E+00, 0.13736E+00,
     & 0.15120E+00, 0.16535E+00, 0.17983E+00, 0.19478E+00, 0.21037E+00,
     & 0.22718E+00, 0.24519E+00, 0.26425E+00, 0.28331E+00, 0.30236E+00,
     & 0.32142E+00, 0.34047E+00, 0.35953E+00, 0.37858E+00, 0.39764E+00,
     &-0.53010E-02, 0.15168E-02, 0.83716E-02, 0.15654E-01, 0.23501E-01,
     & 0.31983E-01, 0.41130E-01, 0.51025E-01, 0.61397E-01, 0.72361E-01,
     & 0.83866E-01, 0.95825E-01, 0.10821E+00, 0.12099E+00, 0.13409E+00,
     & 0.14751E+00, 0.16123E+00, 0.17526E+00, 0.18973E+00, 0.20483E+00,
     & 0.22110E+00, 0.23853E+00, 0.25697E+00, 0.27541E+00, 0.29385E+00,
     & 0.31229E+00, 0.33073E+00, 0.34917E+00, 0.36761E+00, 0.38605E+00,
     &-0.51329E-02, 0.15763E-02, 0.83212E-02, 0.15473E-01, 0.23166E-01,
     & 0.31467E-01, 0.40410E-01, 0.50070E-01, 0.60189E-01, 0.70871E-01,
     & 0.82073E-01, 0.93705E-01, 0.10575E+00, 0.11816E+00, 0.13087E+00,
     & 0.14389E+00, 0.15718E+00, 0.17077E+00, 0.18479E+00, 0.19940E+00,
     & 0.21514E+00, 0.23201E+00, 0.24985E+00, 0.26768E+00, 0.28552E+00,
     & 0.30336E+00, 0.32120E+00, 0.33904E+00, 0.35688E+00, 0.37472E+00,
     &-0.49679E-02, 0.16364E-02, 0.82735E-02, 0.15296E-01, 0.22835E-01,
     & 0.30958E-01, 0.39701E-01, 0.49130E-01, 0.59000E-01, 0.69408E-01,
     & 0.80309E-01, 0.91621E-01, 0.10332E+00, 0.11537E+00, 0.12771E+00,
     & 0.14033E+00, 0.15321E+00, 0.16637E+00, 0.17993E+00, 0.19407E+00,
     & 0.20930E+00, 0.22561E+00, 0.24286E+00, 0.26012E+00, 0.27737E+00,
     & 0.29463E+00, 0.31189E+00, 0.32914E+00, 0.34640E+00, 0.36365E+00,
     &-0.47964E-02, 0.17005E-02, 0.82288E-02, 0.15122E-01, 0.22510E-01,
     & 0.30457E-01, 0.39003E-01, 0.48204E-01, 0.57830E-01, 0.67969E-01,
     & 0.78574E-01, 0.89572E-01, 0.10094E+00, 0.11263E+00, 0.12460E+00,
     & 0.13682E+00, 0.14930E+00, 0.16204E+00, 0.17516E+00, 0.18883E+00,
     & 0.20355E+00, 0.21932E+00, 0.23600E+00, 0.25269E+00, 0.26937E+00,
     & 0.28606E+00, 0.30274E+00, 0.31943E+00, 0.33611E+00, 0.35279E+00,
     &-0.46192E-02, 0.17689E-02, 0.81871E-02, 0.14952E-01, 0.22189E-01,
     & 0.29963E-01, 0.38315E-01, 0.47292E-01, 0.56677E-01, 0.66553E-01,
     & 0.76869E-01, 0.87560E-01, 0.98595E-01, 0.10994E+00, 0.12154E+00,
     & 0.13338E+00, 0.14546E+00, 0.15779E+00, 0.17048E+00, 0.18370E+00,
     & 0.19792E+00, 0.21315E+00, 0.22928E+00, 0.24541E+00, 0.26154E+00,
     & 0.27767E+00, 0.29380E+00, 0.30992E+00, 0.32605E+00, 0.34218E+00,
     &-0.44439E-02, 0.18383E-02, 0.81481E-02, 0.14786E-01, 0.21874E-01,
     & 0.29478E-01, 0.37637E-01, 0.46397E-01, 0.55543E-01, 0.65161E-01,
     & 0.75194E-01, 0.85581E-01, 0.96296E-01, 0.10730E+00, 0.11855E+00,
     & 0.13000E+00, 0.14169E+00, 0.15362E+00, 0.16588E+00, 0.17866E+00,
     & 0.19239E+00, 0.20711E+00, 0.22269E+00, 0.23827E+00, 0.25385E+00,
     & 0.26943E+00, 0.28502E+00, 0.30060E+00, 0.31618E+00, 0.33176E+00,
     &-0.42629E-02, 0.19119E-02, 0.81125E-02, 0.14624E-01, 0.21564E-01,
     & 0.29001E-01, 0.36969E-01, 0.45516E-01, 0.54428E-01, 0.63792E-01,
     & 0.73547E-01, 0.83639E-01, 0.94038E-01, 0.10471E+00, 0.11561E+00,
     & 0.12669E+00, 0.13800E+00, 0.14953E+00, 0.16139E+00, 0.17372E+00,
     & 0.18698E+00, 0.20119E+00, 0.21624E+00, 0.23129E+00, 0.24633E+00,
     & 0.26138E+00, 0.27643E+00, 0.29147E+00, 0.30652E+00, 0.32157E+00,
     &-0.40800E-02, 0.19879E-02, 0.80801E-02, 0.14465E-01, 0.21260E-01,
     & 0.28532E-01, 0.36312E-01, 0.44648E-01, 0.53330E-01, 0.62446E-01,
     & 0.71928E-01, 0.81729E-01, 0.91820E-01, 0.10217E+00, 0.11272E+00,
     & 0.12345E+00, 0.13438E+00, 0.14553E+00, 0.15698E+00, 0.16889E+00,
     & 0.18168E+00, 0.19540E+00, 0.20992E+00, 0.22445E+00, 0.23897E+00,
     & 0.25349E+00, 0.26802E+00, 0.28254E+00, 0.29707E+00, 0.31159E+00/

      data ((f2grdl(i,j),j=1,30),i= 41, 50)/
     &-0.38958E-02, 0.20663E-02, 0.80509E-02, 0.14310E-01, 0.20962E-01,
     & 0.28071E-01, 0.35665E-01, 0.43795E-01, 0.52251E-01, 0.61123E-01,
     & 0.70339E-01, 0.79854E-01, 0.89643E-01, 0.99666E-01, 0.10988E+00,
     & 0.12027E+00, 0.13084E+00, 0.14160E+00, 0.15266E+00, 0.16415E+00,
     & 0.17649E+00, 0.18972E+00, 0.20373E+00, 0.21775E+00, 0.23176E+00,
     & 0.24577E+00, 0.25978E+00, 0.27379E+00, 0.28780E+00, 0.30181E+00,
     &-0.37039E-02, 0.21496E-02, 0.80247E-02, 0.14160E-01, 0.20669E-01,
     & 0.27617E-01, 0.35030E-01, 0.42956E-01, 0.51191E-01, 0.59824E-01,
     & 0.68778E-01, 0.78016E-01, 0.87507E-01, 0.97213E-01, 0.10710E+00,
     & 0.11714E+00, 0.12736E+00, 0.13775E+00, 0.14842E+00, 0.15951E+00,
     & 0.17141E+00, 0.18416E+00, 0.19767E+00, 0.21118E+00, 0.22469E+00,
     & 0.23819E+00, 0.25170E+00, 0.26521E+00, 0.27872E+00, 0.29222E+00,
     &-0.35098E-02, 0.22358E-02, 0.80017E-02, 0.14014E-01, 0.20383E-01,
     & 0.27172E-01, 0.34405E-01, 0.42131E-01, 0.50150E-01, 0.58547E-01,
     & 0.67246E-01, 0.76211E-01, 0.85412E-01, 0.94811E-01, 0.10437E+00,
     & 0.11409E+00, 0.12395E+00, 0.13398E+00, 0.14428E+00, 0.15496E+00,
     & 0.16643E+00, 0.17872E+00, 0.19174E+00, 0.20475E+00, 0.21777E+00,
     & 0.23078E+00, 0.24380E+00, 0.25682E+00, 0.26983E+00, 0.28285E+00,
     &-0.33138E-02, 0.23247E-02, 0.79821E-02, 0.13872E-01, 0.20102E-01,
     & 0.26735E-01, 0.33793E-01, 0.41321E-01, 0.49130E-01, 0.57294E-01,
     & 0.65741E-01, 0.74441E-01, 0.83358E-01, 0.92455E-01, 0.10170E+00,
     & 0.11109E+00, 0.12062E+00, 0.13030E+00, 0.14022E+00, 0.15052E+00,
     & 0.16156E+00, 0.17340E+00, 0.18593E+00, 0.19847E+00, 0.21100E+00,
     & 0.22353E+00, 0.23607E+00, 0.24860E+00, 0.26114E+00, 0.27367E+00,
     &-0.31129E-02, 0.24175E-02, 0.79659E-02, 0.13734E-01, 0.19827E-01,
     & 0.26306E-01, 0.33191E-01, 0.40526E-01, 0.48128E-01, 0.56064E-01,
     & 0.64267E-01, 0.72706E-01, 0.81343E-01, 0.90146E-01, 0.99086E-01,
     & 0.10816E+00, 0.11735E+00, 0.12668E+00, 0.13624E+00, 0.14616E+00,
     & 0.15679E+00, 0.16819E+00, 0.18026E+00, 0.19232E+00, 0.20439E+00,
     & 0.21646E+00, 0.22852E+00, 0.24059E+00, 0.25266E+00, 0.26472E+00,
     &-0.29104E-02, 0.25132E-02, 0.79532E-02, 0.13601E-01, 0.19559E-01,
     & 0.25886E-01, 0.32603E-01, 0.39746E-01, 0.47146E-01, 0.54858E-01,
     & 0.62821E-01, 0.71005E-01, 0.79369E-01, 0.87884E-01, 0.96522E-01,
     & 0.10528E+00, 0.11415E+00, 0.12314E+00, 0.13235E+00, 0.14190E+00,
     & 0.15213E+00, 0.16309E+00, 0.17471E+00, 0.18632E+00, 0.19793E+00,
     & 0.20954E+00, 0.22115E+00, 0.23276E+00, 0.24437E+00, 0.25598E+00,
     &-0.27100E-02, 0.26100E-02, 0.79441E-02, 0.13473E-01, 0.19296E-01,
     & 0.25475E-01, 0.32026E-01, 0.38982E-01, 0.46183E-01, 0.53676E-01,
     & 0.61405E-01, 0.69339E-01, 0.77434E-01, 0.85668E-01, 0.94013E-01,
     & 0.10247E+00, 0.11102E+00, 0.11968E+00, 0.12854E+00, 0.13773E+00,
     & 0.14756E+00, 0.15811E+00, 0.16927E+00, 0.18044E+00, 0.19161E+00,
     & 0.20277E+00, 0.21394E+00, 0.22510E+00, 0.23627E+00, 0.24743E+00,
     &-0.25031E-02, 0.27110E-02, 0.79389E-02, 0.13349E-01, 0.19041E-01,
     & 0.25072E-01, 0.31461E-01, 0.38234E-01, 0.45240E-01, 0.52518E-01,
     & 0.60021E-01, 0.67706E-01, 0.75539E-01, 0.83499E-01, 0.91556E-01,
     & 0.99713E-01, 0.10795E+00, 0.11629E+00, 0.12482E+00, 0.13364E+00,
     & 0.14310E+00, 0.15323E+00, 0.16396E+00, 0.17469E+00, 0.18542E+00,
     & 0.19615E+00, 0.20688E+00, 0.21761E+00, 0.22834E+00, 0.23907E+00,
     &-0.22935E-02, 0.28153E-02, 0.79370E-02, 0.13230E-01, 0.18792E-01,
     & 0.24679E-01, 0.30909E-01, 0.37503E-01, 0.44317E-01, 0.51385E-01,
     & 0.58666E-01, 0.66108E-01, 0.73685E-01, 0.81377E-01, 0.89153E-01,
     & 0.97017E-01, 0.10495E+00, 0.11297E+00, 0.12117E+00, 0.12964E+00,
     & 0.13873E+00, 0.14846E+00, 0.15876E+00, 0.16906E+00, 0.17936E+00,
     & 0.18966E+00, 0.19996E+00, 0.21027E+00, 0.22057E+00, 0.23087E+00,
     &-0.20872E-02, 0.29201E-02, 0.79384E-02, 0.13115E-01, 0.18550E-01,
     & 0.24296E-01, 0.30369E-01, 0.36788E-01, 0.43415E-01, 0.50278E-01,
     & 0.57340E-01, 0.64546E-01, 0.71872E-01, 0.79301E-01, 0.86802E-01,
     & 0.94380E-01, 0.10202E+00, 0.10973E+00, 0.11760E+00, 0.12574E+00,
     & 0.13446E+00, 0.14380E+00, 0.15368E+00, 0.16356E+00, 0.17344E+00,
     & 0.18332E+00, 0.19320E+00, 0.20308E+00, 0.21296E+00, 0.22285E+00/

      data ((f2grdl(i,j),j=1,30),i= 51, 60)/
     &-0.18764E-02, 0.30283E-02, 0.79435E-02, 0.13006E-01, 0.18316E-01,
     & 0.23923E-01, 0.29841E-01, 0.36091E-01, 0.42533E-01, 0.49197E-01,
     & 0.56043E-01, 0.63016E-01, 0.70100E-01, 0.77272E-01, 0.84506E-01,
     & 0.91803E-01, 0.99150E-01, 0.10656E+00, 0.11412E+00, 0.12192E+00,
     & 0.13030E+00, 0.13925E+00, 0.14871E+00, 0.15818E+00, 0.16765E+00,
     & 0.17712E+00, 0.18659E+00, 0.19605E+00, 0.20552E+00, 0.21499E+00,
     &-0.16587E-02, 0.31412E-02, 0.79520E-02, 0.12903E-01, 0.18088E-01,
     & 0.23559E-01, 0.29327E-01, 0.35409E-01, 0.41671E-01, 0.48143E-01,
     & 0.54776E-01, 0.61523E-01, 0.68368E-01, 0.75288E-01, 0.82261E-01,
     & 0.89285E-01, 0.96349E-01, 0.10347E+00, 0.11072E+00, 0.11820E+00,
     & 0.12623E+00, 0.13480E+00, 0.14387E+00, 0.15293E+00, 0.16199E+00,
     & 0.17106E+00, 0.18012E+00, 0.18919E+00, 0.19825E+00, 0.20731E+00,
     &-0.14461E-02, 0.32541E-02, 0.79636E-02, 0.12805E-01, 0.17868E-01,
     & 0.23205E-01, 0.28827E-01, 0.34744E-01, 0.40830E-01, 0.47113E-01,
     & 0.53538E-01, 0.60065E-01, 0.66677E-01, 0.73354E-01, 0.80070E-01,
     & 0.86827E-01, 0.93612E-01, 0.10044E+00, 0.10740E+00, 0.11457E+00,
     & 0.12226E+00, 0.13046E+00, 0.13914E+00, 0.14781E+00, 0.15648E+00,
     & 0.16515E+00, 0.17383E+00, 0.18250E+00, 0.19117E+00, 0.19985E+00,
     &-0.12329E-02, 0.33686E-02, 0.79788E-02, 0.12713E-01, 0.17656E-01,
     & 0.22862E-01, 0.28340E-01, 0.34097E-01, 0.40011E-01, 0.46108E-01,
     & 0.52331E-01, 0.58643E-01, 0.65028E-01, 0.71466E-01, 0.77933E-01,
     & 0.84429E-01, 0.90944E-01, 0.97496E-01, 0.10416E+00, 0.11103E+00,
     & 0.11838E+00, 0.12623E+00, 0.13453E+00, 0.14283E+00, 0.15113E+00,
     & 0.15942E+00, 0.16772E+00, 0.17602E+00, 0.18432E+00, 0.19262E+00,
     &-0.10156E-02, 0.34863E-02, 0.79974E-02, 0.12626E-01, 0.17452E-01,
     & 0.22530E-01, 0.27867E-01, 0.33468E-01, 0.39213E-01, 0.45129E-01,
     & 0.51154E-01, 0.57257E-01, 0.63421E-01, 0.69626E-01, 0.75849E-01,
     & 0.82093E-01, 0.88344E-01, 0.94623E-01, 0.10100E+00, 0.10757E+00,
     & 0.11460E+00, 0.12211E+00, 0.13005E+00, 0.13798E+00, 0.14592E+00,
     & 0.15386E+00, 0.16180E+00, 0.16974E+00, 0.17768E+00, 0.18562E+00,
     &-0.80099E-03, 0.36047E-02, 0.80185E-02, 0.12544E-01, 0.17257E-01,
     & 0.22208E-01, 0.27408E-01, 0.32857E-01, 0.38439E-01, 0.44177E-01,
     & 0.50009E-01, 0.55908E-01, 0.61856E-01, 0.67836E-01, 0.73820E-01,
     & 0.79815E-01, 0.85810E-01, 0.91824E-01, 0.97927E-01, 0.10421E+00,
     & 0.11091E+00, 0.11809E+00, 0.12567E+00, 0.13326E+00, 0.14084E+00,
     & 0.14843E+00, 0.15602E+00, 0.16360E+00, 0.17119E+00, 0.17877E+00,
     &-0.58421E-03, 0.37255E-02, 0.80430E-02, 0.12469E-01, 0.17071E-01,
     & 0.21898E-01, 0.26965E-01, 0.32264E-01, 0.37687E-01, 0.43251E-01,
     & 0.48896E-01, 0.54595E-01, 0.60335E-01, 0.66092E-01, 0.71844E-01,
     & 0.77598E-01, 0.83344E-01, 0.89099E-01, 0.94933E-01, 0.10093E+00,
     & 0.10733E+00, 0.11417E+00, 0.12142E+00, 0.12866E+00, 0.13591E+00,
     & 0.14315E+00, 0.15040E+00, 0.15764E+00, 0.16488E+00, 0.17213E+00,
     &-0.37218E-03, 0.38459E-02, 0.80710E-02, 0.12400E-01, 0.16895E-01,
     & 0.21601E-01, 0.26537E-01, 0.31691E-01, 0.36959E-01, 0.42354E-01,
     & 0.47816E-01, 0.53322E-01, 0.58857E-01, 0.64397E-01, 0.69922E-01,
     & 0.75442E-01, 0.80945E-01, 0.86448E-01, 0.92020E-01, 0.97743E-01,
     & 0.10384E+00, 0.11037E+00, 0.11728E+00, 0.12419E+00, 0.13111E+00,
     & 0.13802E+00, 0.14493E+00, 0.15184E+00, 0.15876E+00, 0.16567E+00,
     &-0.16437E-03, 0.39654E-02, 0.81020E-02, 0.12336E-01, 0.16728E-01,
     & 0.21318E-01, 0.26123E-01, 0.31137E-01, 0.36255E-01, 0.41485E-01,
     & 0.46770E-01, 0.52088E-01, 0.57422E-01, 0.62751E-01, 0.68055E-01,
     & 0.73347E-01, 0.78613E-01, 0.83870E-01, 0.89187E-01, 0.94642E-01,
     & 0.10045E+00, 0.10667E+00, 0.11325E+00, 0.11984E+00, 0.12643E+00,
     & 0.13301E+00, 0.13960E+00, 0.14619E+00, 0.15277E+00, 0.15936E+00,
     & 0.43223E-04, 0.40859E-02, 0.81357E-02, 0.12277E-01, 0.16571E-01,
     & 0.21048E-01, 0.25727E-01, 0.30603E-01, 0.35576E-01, 0.40646E-01,
     & 0.45759E-01, 0.50894E-01, 0.56032E-01, 0.61155E-01, 0.66245E-01,
     & 0.71313E-01, 0.76349E-01, 0.81366E-01, 0.86435E-01, 0.91628E-01,
     & 0.97151E-01, 0.10307E+00, 0.10934E+00, 0.11561E+00, 0.12188E+00,
     & 0.12814E+00, 0.13441E+00, 0.14068E+00, 0.14695E+00, 0.15322E+00/

      data ((f2grdl(i,j),j=1,30),i= 61, 70)/
     & 0.24583E-03, 0.42052E-02, 0.81713E-02, 0.12225E-01, 0.16424E-01,
     & 0.20793E-01, 0.25349E-01, 0.30091E-01, 0.34921E-01, 0.39835E-01,
     & 0.44784E-01, 0.49740E-01, 0.54687E-01, 0.59608E-01, 0.64490E-01,
     & 0.69342E-01, 0.74154E-01, 0.78938E-01, 0.83765E-01, 0.88702E-01,
     & 0.93953E-01, 0.99579E-01, 0.10554E+00, 0.11150E+00, 0.11746E+00,
     & 0.12343E+00, 0.12939E+00, 0.13535E+00, 0.14131E+00, 0.14727E+00,
     & 0.44867E-03, 0.43254E-02, 0.82093E-02, 0.12179E-01, 0.16287E-01,
     & 0.20554E-01, 0.24990E-01, 0.29601E-01, 0.34292E-01, 0.39056E-01,
     & 0.43844E-01, 0.48625E-01, 0.53386E-01, 0.58114E-01, 0.62793E-01,
     & 0.67434E-01, 0.72029E-01, 0.76586E-01, 0.81177E-01, 0.85866E-01,
     & 0.90854E-01, 0.96195E-01, 0.10185E+00, 0.10752E+00, 0.11318E+00,
     & 0.11884E+00, 0.12450E+00, 0.13016E+00, 0.13582E+00, 0.14148E+00,
     & 0.64914E-03, 0.44455E-02, 0.82494E-02, 0.12141E-01, 0.16161E-01,
     & 0.20329E-01, 0.24651E-01, 0.29134E-01, 0.33689E-01, 0.38308E-01,
     & 0.42937E-01, 0.47550E-01, 0.52132E-01, 0.56670E-01, 0.61152E-01,
     & 0.65588E-01, 0.69972E-01, 0.74309E-01, 0.78670E-01, 0.83119E-01,
     & 0.87851E-01, 0.92914E-01, 0.98281E-01, 0.10365E+00, 0.10902E+00,
     & 0.11438E+00, 0.11975E+00, 0.12512E+00, 0.13049E+00, 0.13585E+00,
     & 0.84900E-03, 0.45664E-02, 0.82922E-02, 0.12109E-01, 0.16045E-01,
     & 0.20121E-01, 0.24333E-01, 0.28691E-01, 0.33114E-01, 0.37591E-01,
     & 0.42068E-01, 0.46515E-01, 0.50923E-01, 0.55278E-01, 0.59570E-01,
     & 0.63808E-01, 0.67986E-01, 0.72108E-01, 0.76247E-01, 0.80463E-01,
     & 0.84944E-01, 0.89737E-01, 0.94816E-01, 0.99895E-01, 0.10497E+00,
     & 0.11005E+00, 0.11513E+00, 0.12021E+00, 0.12529E+00, 0.13037E+00,
     & 0.10150E-02, 0.46743E-02, 0.83374E-02, 0.12082E-01, 0.15941E-01,
     & 0.19930E-01, 0.24039E-01, 0.28275E-01, 0.32569E-01, 0.36908E-01,
     & 0.41235E-01, 0.45524E-01, 0.49761E-01, 0.53937E-01, 0.58042E-01,
     & 0.62088E-01, 0.66064E-01, 0.69979E-01, 0.73901E-01, 0.77890E-01,
     & 0.82128E-01, 0.86658E-01, 0.91458E-01, 0.96257E-01, 0.10106E+00,
     & 0.10586E+00, 0.11066E+00, 0.11546E+00, 0.12026E+00, 0.12506E+00,
     & 0.12016E-02, 0.47894E-02, 0.83856E-02, 0.12063E-01, 0.15850E-01,
     & 0.19755E-01, 0.23768E-01, 0.27887E-01, 0.32056E-01, 0.36260E-01,
     & 0.40440E-01, 0.44573E-01, 0.48649E-01, 0.52652E-01, 0.56576E-01,
     & 0.60434E-01, 0.64214E-01, 0.67925E-01, 0.71636E-01, 0.75404E-01,
     & 0.79403E-01, 0.83679E-01, 0.88208E-01, 0.92738E-01, 0.97268E-01,
     & 0.10180E+00, 0.10633E+00, 0.11086E+00, 0.11539E+00, 0.11992E+00,
     & 0.13838E-02, 0.49041E-02, 0.84335E-02, 0.12050E-01, 0.15772E-01,
     & 0.19598E-01, 0.23521E-01, 0.27529E-01, 0.31577E-01, 0.35649E-01,
     & 0.39687E-01, 0.43668E-01, 0.47583E-01, 0.51419E-01, 0.55167E-01,
     & 0.58843E-01, 0.62433E-01, 0.65948E-01, 0.69453E-01, 0.73008E-01,
     & 0.76773E-01, 0.80802E-01, 0.85074E-01, 0.89347E-01, 0.93619E-01,
     & 0.97891E-01, 0.10216E+00, 0.10644E+00, 0.11071E+00, 0.11498E+00,
     & 0.15605E-02, 0.50171E-02, 0.84839E-02, 0.12046E-01, 0.15707E-01,
     & 0.19461E-01, 0.23300E-01, 0.27201E-01, 0.31132E-01, 0.35078E-01,
     & 0.38979E-01, 0.42813E-01, 0.46571E-01, 0.50244E-01, 0.53819E-01,
     & 0.57314E-01, 0.60718E-01, 0.64040E-01, 0.67346E-01, 0.70691E-01,
     & 0.74229E-01, 0.78018E-01, 0.82039E-01, 0.86060E-01, 0.90081E-01,
     & 0.94102E-01, 0.98122E-01, 0.10214E+00, 0.10616E+00, 0.11018E+00,
     & 0.17201E-02, 0.51242E-02, 0.85380E-02, 0.12049E-01, 0.15655E-01,
     & 0.19345E-01, 0.23103E-01, 0.26907E-01, 0.30726E-01, 0.34548E-01,
     & 0.38316E-01, 0.42008E-01, 0.45615E-01, 0.49129E-01, 0.52535E-01,
     & 0.55855E-01, 0.59079E-01, 0.62214E-01, 0.65324E-01, 0.68467E-01,
     & 0.71784E-01, 0.75341E-01, 0.79120E-01, 0.82899E-01, 0.86679E-01,
     & 0.90458E-01, 0.94237E-01, 0.98016E-01, 0.10180E+00, 0.10557E+00,
     & 0.19084E-02, 0.52446E-02, 0.85953E-02, 0.12062E-01, 0.15618E-01,
     & 0.19250E-01, 0.22933E-01, 0.26646E-01, 0.30358E-01, 0.34062E-01,
     & 0.37702E-01, 0.41257E-01, 0.44718E-01, 0.48076E-01, 0.51320E-01,
     & 0.54468E-01, 0.57517E-01, 0.60471E-01, 0.63392E-01, 0.66336E-01,
     & 0.69440E-01, 0.72772E-01, 0.76315E-01, 0.79859E-01, 0.83403E-01,
     & 0.86947E-01, 0.90491E-01, 0.94035E-01, 0.97579E-01, 0.10112E+00/

      data ((f2grdl(i,j),j=1,30),i= 71, 80)/
     & 0.20929E-02, 0.53664E-02, 0.86565E-02, 0.12083E-01, 0.15597E-01,
     & 0.19177E-01, 0.22794E-01, 0.26419E-01, 0.30032E-01, 0.33623E-01,
     & 0.37140E-01, 0.40563E-01, 0.43882E-01, 0.47087E-01, 0.50174E-01,
     & 0.53158E-01, 0.56037E-01, 0.58815E-01, 0.61553E-01, 0.64305E-01,
     & 0.67205E-01, 0.70319E-01, 0.73634E-01, 0.76949E-01, 0.80264E-01,
     & 0.83579E-01, 0.86894E-01, 0.90209E-01, 0.93525E-01, 0.96840E-01,
     & 0.23144E-02, 0.55080E-02, 0.87257E-02, 0.12113E-01, 0.15594E-01,
     & 0.19128E-01, 0.22686E-01, 0.26232E-01, 0.29751E-01, 0.33233E-01,
     & 0.36631E-01, 0.39925E-01, 0.43106E-01, 0.46166E-01, 0.49100E-01,
     & 0.51927E-01, 0.54641E-01, 0.57247E-01, 0.59808E-01, 0.62374E-01,
     & 0.65076E-01, 0.67979E-01, 0.71072E-01, 0.74165E-01, 0.77258E-01,
     & 0.80351E-01, 0.83444E-01, 0.86537E-01, 0.89630E-01, 0.92723E-01,
     & 0.25741E-02, 0.56739E-02, 0.88051E-02, 0.12156E-01, 0.15610E-01,
     & 0.19105E-01, 0.22612E-01, 0.26084E-01, 0.29515E-01, 0.32893E-01,
     & 0.36177E-01, 0.39347E-01, 0.42396E-01, 0.45315E-01, 0.48102E-01,
     & 0.50774E-01, 0.53329E-01, 0.55771E-01, 0.58159E-01, 0.60545E-01,
     & 0.63057E-01, 0.65756E-01, 0.68636E-01, 0.71517E-01, 0.74397E-01,
     & 0.77277E-01, 0.80157E-01, 0.83037E-01, 0.85917E-01, 0.88797E-01,
     & 0.29712E-02, 0.59098E-02, 0.89009E-02, 0.12213E-01, 0.15645E-01,
     & 0.19110E-01, 0.22572E-01, 0.25980E-01, 0.29330E-01, 0.32608E-01,
     & 0.35782E-01, 0.38834E-01, 0.41754E-01, 0.44537E-01, 0.47180E-01,
     & 0.49705E-01, 0.52104E-01, 0.54387E-01, 0.56608E-01, 0.58820E-01,
     & 0.61146E-01, 0.63649E-01, 0.66321E-01, 0.68994E-01, 0.71667E-01,
     & 0.74340E-01, 0.77012E-01, 0.79685E-01, 0.82358E-01, 0.85031E-01,
     & 0.36558E-02, 0.62903E-02, 0.90233E-02, 0.12285E-01, 0.15700E-01,
     & 0.19145E-01, 0.22569E-01, 0.25921E-01, 0.29197E-01, 0.32377E-01,
     & 0.35447E-01, 0.38386E-01, 0.41182E-01, 0.43834E-01, 0.46338E-01,
     & 0.48720E-01, 0.50968E-01, 0.53095E-01, 0.55155E-01, 0.57198E-01,
     & 0.59345E-01, 0.61657E-01, 0.64129E-01, 0.66601E-01, 0.69072E-01,
     & 0.71544E-01, 0.74015E-01, 0.76487E-01, 0.78958E-01, 0.81430E-01,
     & 0.44829E-02, 0.67879E-02, 0.91931E-02, 0.12380E-01, 0.15781E-01,
     & 0.19213E-01, 0.22606E-01, 0.25911E-01, 0.29122E-01, 0.32210E-01,
     & 0.35176E-01, 0.38004E-01, 0.40684E-01, 0.43209E-01, 0.45579E-01,
     & 0.47820E-01, 0.49923E-01, 0.51898E-01, 0.53802E-01, 0.55682E-01,
     & 0.57655E-01, 0.59783E-01, 0.62062E-01, 0.64341E-01, 0.66619E-01,
     & 0.68898E-01, 0.71176E-01, 0.73455E-01, 0.75733E-01, 0.78012E-01,
     & 0.49380E-02, 0.71829E-02, 0.94545E-02, 0.12501E-01, 0.15890E-01,
     & 0.19318E-01, 0.22687E-01, 0.25948E-01, 0.29104E-01, 0.32111E-01,
     & 0.34975E-01, 0.37693E-01, 0.40257E-01, 0.42661E-01, 0.44903E-01,
     & 0.47007E-01, 0.48967E-01, 0.50795E-01, 0.52547E-01, 0.54268E-01,
     & 0.56072E-01, 0.58024E-01, 0.60119E-01, 0.62215E-01, 0.64310E-01,
     & 0.66406E-01, 0.68501E-01, 0.70597E-01, 0.72692E-01, 0.74788E-01,
     & 0.53649E-02, 0.75908E-02, 0.98269E-02, 0.12662E-01, 0.16030E-01,
     & 0.19455E-01, 0.22816E-01, 0.26041E-01, 0.29148E-01, 0.32082E-01,
     & 0.34847E-01, 0.37460E-01, 0.39910E-01, 0.42192E-01, 0.44304E-01,
     & 0.46275E-01, 0.48096E-01, 0.49779E-01, 0.51382E-01, 0.52947E-01,
     & 0.54588E-01, 0.56366E-01, 0.58281E-01, 0.60195E-01, 0.62110E-01,
     & 0.64025E-01, 0.65940E-01, 0.67854E-01, 0.69769E-01, 0.71684E-01,
     & 0.58162E-02, 0.80328E-02, 0.10259E-01, 0.12880E-01, 0.16209E-01,
     & 0.19639E-01, 0.22998E-01, 0.26192E-01, 0.29255E-01, 0.32127E-01,
     & 0.34800E-01, 0.37309E-01, 0.39646E-01, 0.41808E-01, 0.43795E-01,
     & 0.45631E-01, 0.47316E-01, 0.48856E-01, 0.50310E-01, 0.51723E-01,
     & 0.53202E-01, 0.54809E-01, 0.56546E-01, 0.58282E-01, 0.60019E-01,
     & 0.61755E-01, 0.63492E-01, 0.65228E-01, 0.66965E-01, 0.68701E-01,
     & 0.62951E-02, 0.85133E-02, 0.10742E-01, 0.13187E-01, 0.16434E-01,
     & 0.19869E-01, 0.23230E-01, 0.26407E-01, 0.29432E-01, 0.32247E-01,
     & 0.34831E-01, 0.37241E-01, 0.39469E-01, 0.41515E-01, 0.43376E-01,
     & 0.45082E-01, 0.46630E-01, 0.48032E-01, 0.49341E-01, 0.50603E-01,
     & 0.51922E-01, 0.53364E-01, 0.54927E-01, 0.56491E-01, 0.58054E-01,
     & 0.59617E-01, 0.61181E-01, 0.62744E-01, 0.64308E-01, 0.65871E-01/

      data ((f2grdl(i,j),j=1,30),i= 81, 90)/
     & 0.68063E-02, 0.90381E-02, 0.11281E-01, 0.13616E-01, 0.16717E-01,
     & 0.20154E-01, 0.23520E-01, 0.26687E-01, 0.29681E-01, 0.32442E-01,
     & 0.34947E-01, 0.37256E-01, 0.39380E-01, 0.41310E-01, 0.43048E-01,
     & 0.44627E-01, 0.46042E-01, 0.47305E-01, 0.48470E-01, 0.49584E-01,
     & 0.50747E-01, 0.52027E-01, 0.53423E-01, 0.54819E-01, 0.56215E-01,
     & 0.57611E-01, 0.59008E-01, 0.60404E-01, 0.61800E-01, 0.63196E-01,
     & 0.73527E-02, 0.96129E-02, 0.11884E-01, 0.14216E-01, 0.17076E-01,
     & 0.20499E-01, 0.23876E-01, 0.27036E-01, 0.30008E-01, 0.32720E-01,
     & 0.35150E-01, 0.37360E-01, 0.39374E-01, 0.41189E-01, 0.42809E-01,
     & 0.44262E-01, 0.45544E-01, 0.46670E-01, 0.47693E-01, 0.48661E-01,
     & 0.49670E-01, 0.50788E-01, 0.52014E-01, 0.53240E-01, 0.54467E-01,
     & 0.55693E-01, 0.56919E-01, 0.58145E-01, 0.59372E-01, 0.60598E-01,
     & 0.79439E-02, 0.10247E-01, 0.12560E-01, 0.14928E-01, 0.17543E-01,
     & 0.20917E-01, 0.24304E-01, 0.27462E-01, 0.30415E-01, 0.33082E-01,
     & 0.35443E-01, 0.37549E-01, 0.39457E-01, 0.41157E-01, 0.42652E-01,
     & 0.43975E-01, 0.45122E-01, 0.46111E-01, 0.46991E-01, 0.47811E-01,
     & 0.48665E-01, 0.49623E-01, 0.50684E-01, 0.51746E-01, 0.52807E-01,
     & 0.53868E-01, 0.54929E-01, 0.55990E-01, 0.57051E-01, 0.58112E-01,
     & 0.85816E-02, 0.10946E-01, 0.13321E-01, 0.15738E-01, 0.18184E-01,
     & 0.21423E-01, 0.24808E-01, 0.27963E-01, 0.30901E-01, 0.33531E-01,
     & 0.35826E-01, 0.37832E-01, 0.39625E-01, 0.41205E-01, 0.42577E-01,
     & 0.43769E-01, 0.44780E-01, 0.45627E-01, 0.46362E-01, 0.47032E-01,
     & 0.47732E-01, 0.48528E-01, 0.49421E-01, 0.50314E-01, 0.51207E-01,
     & 0.52101E-01, 0.52994E-01, 0.53887E-01, 0.54780E-01, 0.55674E-01,
     & 0.92768E-02, 0.11723E-01, 0.14179E-01, 0.16660E-01, 0.19063E-01,
     & 0.22039E-01, 0.25400E-01, 0.28548E-01, 0.31467E-01, 0.34063E-01,
     & 0.36293E-01, 0.38203E-01, 0.39876E-01, 0.41332E-01, 0.42573E-01,
     & 0.43629E-01, 0.44500E-01, 0.45204E-01, 0.45792E-01, 0.46310E-01,
     & 0.46853E-01, 0.47485E-01, 0.48207E-01, 0.48929E-01, 0.49651E-01,
     & 0.50373E-01, 0.51095E-01, 0.51817E-01, 0.52539E-01, 0.53261E-01,
     & 0.10044E-01, 0.12593E-01, 0.15149E-01, 0.17707E-01, 0.20143E-01,
     & 0.22801E-01, 0.26091E-01, 0.29223E-01, 0.32117E-01, 0.34665E-01,
     & 0.36839E-01, 0.38658E-01, 0.40204E-01, 0.41529E-01, 0.42634E-01,
     & 0.43549E-01, 0.44275E-01, 0.44831E-01, 0.45267E-01, 0.45629E-01,
     & 0.46011E-01, 0.46476E-01, 0.47026E-01, 0.47576E-01, 0.48127E-01,
     & 0.48677E-01, 0.49227E-01, 0.49778E-01, 0.50328E-01, 0.50879E-01,
     & 0.10890E-01, 0.13568E-01, 0.16249E-01, 0.18899E-01, 0.21385E-01,
     & 0.23776E-01, 0.26897E-01, 0.29987E-01, 0.32846E-01, 0.35342E-01,
     & 0.37439E-01, 0.39175E-01, 0.40596E-01, 0.41780E-01, 0.42741E-01,
     & 0.43508E-01, 0.44082E-01, 0.44485E-01, 0.44765E-01, 0.44967E-01,
     & 0.45183E-01, 0.45475E-01, 0.45847E-01, 0.46219E-01, 0.46591E-01,
     & 0.46963E-01, 0.47335E-01, 0.47707E-01, 0.48079E-01, 0.48451E-01,
     & 0.11839E-01, 0.14671E-01, 0.17503E-01, 0.20257E-01, 0.22795E-01,
     & 0.25070E-01, 0.27843E-01, 0.30849E-01, 0.33648E-01, 0.36080E-01,
     & 0.38092E-01, 0.39721E-01, 0.41015E-01, 0.42055E-01, 0.42866E-01,
     & 0.43478E-01, 0.43894E-01, 0.44135E-01, 0.44252E-01, 0.44287E-01,
     & 0.44331E-01, 0.44448E-01, 0.44641E-01, 0.44834E-01, 0.45027E-01,
     & 0.45220E-01, 0.45413E-01, 0.45606E-01, 0.45799E-01, 0.45991E-01,
     & 0.12914E-01, 0.15928E-01, 0.18937E-01, 0.21804E-01, 0.24390E-01,
     & 0.26646E-01, 0.28972E-01, 0.31813E-01, 0.34509E-01, 0.36854E-01,
     & 0.38766E-01, 0.40281E-01, 0.41435E-01, 0.42308E-01, 0.42954E-01,
     & 0.43401E-01, 0.43652E-01, 0.43726E-01, 0.43674E-01, 0.43536E-01,
     & 0.43404E-01, 0.43338E-01, 0.43342E-01, 0.43346E-01, 0.43350E-01,
     & 0.43354E-01, 0.43357E-01, 0.43361E-01, 0.43365E-01, 0.43369E-01,
     & 0.14150E-01, 0.17374E-01, 0.20585E-01, 0.23570E-01, 0.26191E-01,
     & 0.28418E-01, 0.30378E-01, 0.32890E-01, 0.35415E-01, 0.37633E-01,
     & 0.39421E-01, 0.40799E-01, 0.41808E-01, 0.42505E-01, 0.42966E-01,
     & 0.43231E-01, 0.43301E-01, 0.43197E-01, 0.42966E-01, 0.42649E-01,
     & 0.42332E-01, 0.42077E-01, 0.41885E-01, 0.41692E-01, 0.41500E-01,
     & 0.41308E-01, 0.41116E-01, 0.40924E-01, 0.40732E-01, 0.40540E-01/

      data ((f2grdl(i,j),j=1,30),i= 91,100)/
     & 0.15595E-01, 0.19054E-01, 0.22488E-01, 0.25585E-01, 0.28215E-01,
     & 0.30374E-01, 0.32123E-01, 0.34113E-01, 0.36341E-01, 0.38372E-01,
     & 0.39995E-01, 0.41209E-01, 0.42054E-01, 0.42566E-01, 0.42828E-01,
     & 0.42899E-01, 0.42779E-01, 0.42490E-01, 0.42074E-01, 0.41570E-01,
     & 0.41063E-01, 0.40612E-01, 0.40219E-01, 0.39826E-01, 0.39433E-01,
     & 0.39040E-01, 0.38647E-01, 0.38254E-01, 0.37862E-01, 0.37469E-01,
     & 0.17320E-01, 0.21030E-01, 0.24699E-01, 0.27883E-01, 0.30474E-01,
     & 0.32507E-01, 0.34068E-01, 0.35532E-01, 0.37246E-01, 0.39006E-01,
     & 0.40409E-01, 0.41423E-01, 0.42065E-01, 0.42383E-01, 0.42433E-01,
     & 0.42297E-01, 0.41976E-01, 0.41492E-01, 0.40886E-01, 0.40194E-01,
     & 0.39495E-01, 0.38848E-01, 0.38254E-01, 0.37660E-01, 0.37066E-01,
     & 0.36471E-01, 0.35877E-01, 0.35283E-01, 0.34689E-01, 0.34095E-01,
     & 0.19433E-01, 0.23388E-01, 0.27282E-01, 0.30500E-01, 0.32971E-01,
     & 0.34789E-01, 0.36081E-01, 0.37024E-01, 0.38102E-01, 0.39442E-01,
     & 0.40547E-01, 0.41304E-01, 0.41716E-01, 0.41815E-01, 0.41639E-01,
     & 0.41280E-01, 0.40750E-01, 0.40069E-01, 0.39273E-01, 0.38398E-01,
     & 0.37514E-01, 0.36674E-01, 0.35882E-01, 0.35090E-01, 0.34297E-01,
     & 0.33505E-01, 0.32713E-01, 0.31921E-01, 0.31128E-01, 0.30336E-01,
     & 0.22101E-01, 0.26254E-01, 0.30319E-01, 0.33465E-01, 0.35684E-01,
     & 0.37152E-01, 0.38054E-01, 0.38500E-01, 0.38891E-01, 0.39552E-01,
     & 0.40245E-01, 0.40676E-01, 0.40812E-01, 0.40662E-01, 0.40261E-01,
     & 0.39677E-01, 0.38938E-01, 0.38065E-01, 0.37091E-01, 0.36043E-01,
     & 0.34986E-01, 0.33971E-01, 0.32999E-01, 0.32026E-01, 0.31054E-01,
     & 0.30081E-01, 0.29109E-01, 0.28136E-01, 0.27164E-01, 0.26191E-01,
     & 0.25595E-01, 0.29816E-01, 0.33912E-01, 0.36786E-01, 0.38541E-01,
     & 0.39461E-01, 0.39799E-01, 0.39695E-01, 0.39408E-01, 0.39185E-01,
     & 0.39280E-01, 0.39292E-01, 0.39095E-01, 0.38669E-01, 0.38039E-01,
     & 0.37242E-01, 0.36303E-01, 0.35257E-01, 0.34130E-01, 0.32942E-01,
     & 0.31752E-01, 0.30597E-01, 0.29479E-01, 0.28361E-01, 0.27243E-01,
     & 0.26126E-01, 0.25008E-01, 0.23890E-01, 0.22772E-01, 0.21655E-01,
     & 0.30402E-01, 0.34379E-01, 0.38187E-01, 0.40421E-01, 0.41362E-01,
     & 0.41439E-01, 0.40978E-01, 0.40161E-01, 0.39198E-01, 0.38144E-01,
     & 0.37357E-01, 0.36808E-01, 0.36216E-01, 0.35494E-01, 0.34632E-01,
     & 0.33653E-01, 0.32561E-01, 0.31388E-01, 0.30162E-01, 0.28895E-01,
     & 0.27632E-01, 0.26404E-01, 0.25209E-01, 0.24015E-01, 0.22820E-01,
     & 0.21625E-01, 0.20430E-01, 0.19236E-01, 0.18041E-01, 0.16846E-01,
     & 0.37510E-01, 0.40511E-01, 0.43294E-01, 0.44179E-01, 0.43721E-01,
     & 0.42518E-01, 0.40949E-01, 0.39220E-01, 0.37465E-01, 0.35730E-01,
     & 0.34102E-01, 0.32786E-01, 0.31717E-01, 0.30683E-01, 0.29622E-01,
     & 0.28515E-01, 0.27352E-01, 0.26144E-01, 0.24915E-01, 0.23673E-01,
     & 0.22447E-01, 0.21256E-01, 0.20096E-01, 0.18935E-01, 0.17775E-01,
     & 0.16615E-01, 0.15455E-01, 0.14294E-01, 0.13134E-01, 0.11974E-01,
     & 0.49567E-01, 0.49614E-01, 0.49422E-01, 0.47416E-01, 0.44522E-01,
     & 0.41404E-01, 0.38374E-01, 0.35583E-01, 0.32980E-01, 0.30623E-01,
     & 0.28509E-01, 0.26639E-01, 0.25040E-01, 0.23710E-01, 0.22525E-01,
     & 0.21393E-01, 0.20290E-01, 0.19202E-01, 0.18128E-01, 0.17073E-01,
     & 0.16054E-01, 0.15072E-01, 0.14119E-01, 0.13167E-01, 0.12215E-01,
     & 0.11263E-01, 0.10311E-01, 0.93583E-02, 0.84060E-02, 0.74538E-02,
     & 0.80488E-01, 0.68482E-01, 0.56726E-01, 0.47356E-01, 0.40098E-01,
     & 0.34427E-01, 0.29912E-01, 0.26350E-01, 0.23287E-01, 0.20759E-01,
     & 0.18657E-01, 0.16879E-01, 0.15366E-01, 0.14083E-01, 0.12989E-01,
     & 0.12044E-01, 0.11214E-01, 0.10461E-01, 0.97637E-02, 0.91136E-02,
     & 0.85146E-02, 0.79515E-02, 0.74163E-02, 0.68810E-02, 0.63458E-02,
     & 0.58106E-02, 0.52753E-02, 0.47401E-02, 0.42049E-02, 0.36696E-02,
     & 0.12290E-01, 0.10283E-01, 0.83242E-02, 0.68087E-02, 0.56676E-02,
     & 0.47964E-02, 0.41157E-02, 0.35879E-02, 0.31386E-02, 0.27724E-02,
     & 0.24715E-02, 0.22193E-02, 0.20053E-02, 0.18226E-02, 0.16675E-02,
     & 0.15359E-02, 0.14225E-02, 0.13217E-02, 0.12297E-02, 0.11451E-02,
     & 0.10680E-02, 0.99619E-03, 0.92829E-03, 0.86040E-03, 0.79250E-03,
     & 0.72460E-03, 0.65671E-03, 0.58881E-03, 0.52092E-03, 0.45302E-03/

      data ((flgrdl(i,j),j=1,30),i=  1, 10)/
     &-0.20126E-02, 0.18189E-02, 0.56693E-02, 0.96708E-02, 0.13786E-01,
     & 0.18010E-01, 0.22393E-01, 0.26996E-01, 0.31742E-01, 0.36679E-01,
     & 0.41728E-01, 0.46851E-01, 0.51991E-01, 0.57115E-01, 0.62172E-01,
     & 0.67147E-01, 0.72017E-01, 0.76759E-01, 0.81424E-01, 0.86074E-01,
     & 0.90884E-01, 0.95968E-01, 0.10132E+00, 0.10667E+00, 0.11202E+00,
     & 0.11738E+00, 0.12273E+00, 0.12808E+00, 0.13343E+00, 0.13878E+00,
     &-0.19629E-02, 0.18351E-02, 0.56504E-02, 0.96003E-02, 0.13648E-01,
     & 0.17793E-01, 0.22084E-01, 0.26584E-01, 0.31219E-01, 0.36037E-01,
     & 0.40962E-01, 0.45954E-01, 0.50960E-01, 0.55947E-01, 0.60866E-01,
     & 0.65701E-01, 0.70434E-01, 0.75039E-01, 0.79568E-01, 0.84083E-01,
     & 0.88749E-01, 0.93685E-01, 0.98883E-01, 0.10408E+00, 0.10928E+00,
     & 0.11448E+00, 0.11967E+00, 0.12487E+00, 0.13007E+00, 0.13527E+00,
     &-0.19135E-02, 0.18513E-02, 0.56316E-02, 0.95304E-02, 0.13511E-01,
     & 0.17577E-01, 0.21778E-01, 0.26177E-01, 0.30703E-01, 0.35404E-01,
     & 0.40206E-01, 0.45070E-01, 0.49945E-01, 0.54795E-01, 0.59577E-01,
     & 0.64278E-01, 0.68876E-01, 0.73348E-01, 0.77745E-01, 0.82127E-01,
     & 0.86652E-01, 0.91443E-01, 0.96489E-01, 0.10153E+00, 0.10658E+00,
     & 0.11163E+00, 0.11667E+00, 0.12172E+00, 0.12677E+00, 0.13181E+00,
     &-0.18638E-02, 0.18676E-02, 0.56129E-02, 0.94608E-02, 0.13376E-01,
     & 0.17364E-01, 0.21475E-01, 0.25774E-01, 0.30194E-01, 0.34778E-01,
     & 0.39461E-01, 0.44199E-01, 0.48945E-01, 0.53662E-01, 0.58311E-01,
     & 0.62880E-01, 0.67346E-01, 0.71687E-01, 0.75954E-01, 0.80207E-01,
     & 0.84594E-01, 0.89242E-01, 0.94138E-01, 0.99035E-01, 0.10393E+00,
     & 0.10883E+00, 0.11372E+00, 0.11862E+00, 0.12352E+00, 0.12841E+00,
     &-0.18142E-02, 0.18839E-02, 0.55944E-02, 0.93917E-02, 0.13241E-01,
     & 0.17153E-01, 0.21175E-01, 0.25376E-01, 0.29691E-01, 0.34161E-01,
     & 0.38726E-01, 0.43341E-01, 0.47960E-01, 0.52547E-01, 0.57066E-01,
     & 0.61505E-01, 0.65842E-01, 0.70056E-01, 0.74197E-01, 0.78322E-01,
     & 0.82574E-01, 0.87083E-01, 0.91835E-01, 0.96587E-01, 0.10134E+00,
     & 0.10609E+00, 0.11084E+00, 0.11560E+00, 0.12035E+00, 0.12510E+00,
     &-0.17649E-02, 0.19002E-02, 0.55760E-02, 0.93232E-02, 0.13108E-01,
     & 0.16944E-01, 0.20878E-01, 0.24982E-01, 0.29194E-01, 0.33553E-01,
     & 0.38002E-01, 0.42496E-01, 0.46990E-01, 0.51449E-01, 0.55841E-01,
     & 0.60154E-01, 0.64364E-01, 0.68454E-01, 0.72471E-01, 0.76472E-01,
     & 0.80592E-01, 0.84965E-01, 0.89575E-01, 0.94185E-01, 0.98795E-01,
     & 0.10341E+00, 0.10802E+00, 0.11263E+00, 0.11724E+00, 0.12185E+00,
     &-0.17149E-02, 0.19168E-02, 0.55577E-02, 0.92551E-02, 0.12975E-01,
     & 0.16736E-01, 0.20584E-01, 0.24592E-01, 0.28704E-01, 0.32953E-01,
     & 0.37289E-01, 0.41664E-01, 0.46035E-01, 0.50368E-01, 0.54635E-01,
     & 0.58825E-01, 0.62911E-01, 0.66880E-01, 0.70776E-01, 0.74652E-01,
     & 0.78646E-01, 0.82887E-01, 0.87362E-01, 0.91836E-01, 0.96310E-01,
     & 0.10078E+00, 0.10526E+00, 0.10973E+00, 0.11421E+00, 0.11868E+00,
     &-0.16648E-02, 0.19336E-02, 0.55396E-02, 0.91875E-02, 0.12844E-01,
     & 0.16531E-01, 0.20293E-01, 0.24208E-01, 0.28220E-01, 0.32362E-01,
     & 0.36586E-01, 0.40845E-01, 0.45095E-01, 0.49304E-01, 0.53449E-01,
     & 0.57520E-01, 0.61484E-01, 0.65332E-01, 0.69112E-01, 0.72866E-01,
     & 0.76738E-01, 0.80849E-01, 0.85190E-01, 0.89530E-01, 0.93870E-01,
     & 0.98210E-01, 0.10255E+00, 0.10689E+00, 0.11123E+00, 0.11557E+00,
     &-0.16145E-02, 0.19505E-02, 0.55216E-02, 0.91203E-02, 0.12713E-01,
     & 0.16327E-01, 0.20006E-01, 0.23827E-01, 0.27743E-01, 0.31779E-01,
     & 0.35893E-01, 0.40038E-01, 0.44168E-01, 0.48258E-01, 0.52283E-01,
     & 0.56238E-01, 0.60083E-01, 0.63813E-01, 0.67478E-01, 0.71114E-01,
     & 0.74866E-01, 0.78852E-01, 0.83062E-01, 0.87272E-01, 0.91482E-01,
     & 0.95691E-01, 0.99901E-01, 0.10411E+00, 0.10832E+00, 0.11253E+00,
     &-0.15640E-02, 0.19675E-02, 0.55038E-02, 0.90534E-02, 0.12584E-01,
     & 0.16124E-01, 0.19721E-01, 0.23451E-01, 0.27271E-01, 0.31204E-01,
     & 0.35211E-01, 0.39241E-01, 0.43255E-01, 0.47227E-01, 0.51136E-01,
     & 0.54977E-01, 0.58706E-01, 0.62321E-01, 0.65871E-01, 0.69394E-01,
     & 0.73030E-01, 0.76894E-01, 0.80976E-01, 0.85059E-01, 0.89141E-01,
     & 0.93224E-01, 0.97306E-01, 0.10139E+00, 0.10547E+00, 0.10955E+00/

      data ((flgrdl(i,j),j=1,30),i= 11, 20)/
     &-0.15136E-02, 0.19847E-02, 0.54862E-02, 0.89870E-02, 0.12456E-01,
     & 0.15924E-01, 0.19440E-01, 0.23080E-01, 0.26806E-01, 0.30637E-01,
     & 0.34539E-01, 0.38457E-01, 0.42357E-01, 0.46215E-01, 0.50009E-01,
     & 0.53738E-01, 0.57354E-01, 0.60857E-01, 0.64295E-01, 0.67706E-01,
     & 0.71229E-01, 0.74972E-01, 0.78930E-01, 0.82888E-01, 0.86846E-01,
     & 0.90804E-01, 0.94762E-01, 0.98720E-01, 0.10268E+00, 0.10664E+00,
     &-0.14615E-02, 0.20026E-02, 0.54687E-02, 0.89210E-02, 0.12328E-01,
     & 0.15725E-01, 0.19162E-01, 0.22713E-01, 0.26346E-01, 0.30078E-01,
     & 0.33876E-01, 0.37685E-01, 0.41472E-01, 0.45219E-01, 0.48902E-01,
     & 0.52521E-01, 0.56025E-01, 0.59418E-01, 0.62746E-01, 0.66047E-01,
     & 0.69463E-01, 0.73086E-01, 0.76915E-01, 0.80745E-01, 0.84574E-01,
     & 0.88403E-01, 0.92233E-01, 0.96062E-01, 0.99892E-01, 0.10372E+00,
     &-0.14112E-02, 0.20200E-02, 0.54515E-02, 0.88555E-02, 0.12202E-01,
     & 0.15528E-01, 0.18887E-01, 0.22351E-01, 0.25891E-01, 0.29526E-01,
     & 0.33222E-01, 0.36922E-01, 0.40601E-01, 0.44241E-01, 0.47815E-01,
     & 0.51323E-01, 0.54720E-01, 0.58005E-01, 0.61227E-01, 0.64419E-01,
     & 0.67731E-01, 0.71236E-01, 0.74937E-01, 0.78638E-01, 0.82339E-01,
     & 0.86041E-01, 0.89742E-01, 0.93443E-01, 0.97144E-01, 0.10085E+00,
     &-0.13608E-02, 0.20376E-02, 0.54345E-02, 0.87903E-02, 0.12077E-01,
     & 0.15333E-01, 0.18615E-01, 0.21993E-01, 0.25443E-01, 0.28982E-01,
     & 0.32577E-01, 0.36171E-01, 0.39744E-01, 0.43280E-01, 0.46747E-01,
     & 0.50145E-01, 0.53437E-01, 0.56617E-01, 0.59732E-01, 0.62820E-01,
     & 0.66033E-01, 0.69421E-01, 0.72995E-01, 0.76570E-01, 0.80145E-01,
     & 0.83719E-01, 0.87294E-01, 0.90868E-01, 0.94443E-01, 0.98018E-01,
     &-0.13102E-02, 0.20553E-02, 0.54179E-02, 0.87257E-02, 0.11953E-01,
     & 0.15139E-01, 0.18346E-01, 0.21640E-01, 0.25000E-01, 0.28447E-01,
     & 0.31942E-01, 0.35431E-01, 0.38901E-01, 0.42335E-01, 0.45697E-01,
     & 0.48987E-01, 0.52175E-01, 0.55253E-01, 0.58265E-01, 0.61251E-01,
     & 0.64365E-01, 0.67640E-01, 0.71092E-01, 0.74543E-01, 0.77995E-01,
     & 0.81446E-01, 0.84898E-01, 0.88350E-01, 0.91801E-01, 0.95253E-01,
     &-0.12594E-02, 0.20732E-02, 0.54015E-02, 0.86614E-02, 0.11830E-01,
     & 0.14948E-01, 0.18080E-01, 0.21291E-01, 0.24563E-01, 0.27919E-01,
     & 0.31315E-01, 0.34702E-01, 0.38073E-01, 0.41406E-01, 0.44665E-01,
     & 0.47850E-01, 0.50937E-01, 0.53913E-01, 0.56826E-01, 0.59711E-01,
     & 0.62730E-01, 0.65894E-01, 0.69224E-01, 0.72554E-01, 0.75884E-01,
     & 0.79214E-01, 0.82544E-01, 0.85874E-01, 0.89203E-01, 0.92533E-01,
     &-0.12082E-02, 0.20914E-02, 0.53854E-02, 0.85977E-02, 0.11709E-01,
     & 0.14758E-01, 0.17817E-01, 0.20946E-01, 0.24132E-01, 0.27398E-01,
     & 0.30696E-01, 0.33986E-01, 0.37259E-01, 0.40491E-01, 0.43651E-01,
     & 0.46733E-01, 0.49721E-01, 0.52598E-01, 0.55412E-01, 0.58202E-01,
     & 0.61124E-01, 0.64180E-01, 0.67389E-01, 0.70598E-01, 0.73807E-01,
     & 0.77015E-01, 0.80224E-01, 0.83433E-01, 0.86642E-01, 0.89851E-01,
     &-0.11571E-02, 0.21097E-02, 0.53695E-02, 0.85345E-02, 0.11588E-01,
     & 0.14570E-01, 0.17556E-01, 0.20606E-01, 0.23707E-01, 0.26884E-01,
     & 0.30086E-01, 0.33280E-01, 0.36458E-01, 0.39592E-01, 0.42653E-01,
     & 0.45633E-01, 0.48525E-01, 0.51306E-01, 0.54024E-01, 0.56723E-01,
     & 0.59546E-01, 0.62498E-01, 0.65596E-01, 0.68694E-01, 0.71792E-01,
     & 0.74890E-01, 0.77988E-01, 0.81086E-01, 0.84184E-01, 0.87282E-01,
     &-0.11057E-02, 0.21282E-02, 0.53538E-02, 0.84717E-02, 0.11468E-01,
     & 0.14384E-01, 0.17298E-01, 0.20269E-01, 0.23286E-01, 0.26377E-01,
     & 0.29484E-01, 0.32586E-01, 0.35669E-01, 0.38707E-01, 0.41671E-01,
     & 0.44553E-01, 0.47349E-01, 0.50040E-01, 0.52664E-01, 0.55275E-01,
     & 0.57998E-01, 0.60848E-01, 0.63836E-01, 0.66825E-01, 0.69814E-01,
     & 0.72802E-01, 0.75791E-01, 0.78780E-01, 0.81768E-01, 0.84757E-01,
     &-0.10538E-02, 0.21471E-02, 0.53384E-02, 0.84095E-02, 0.11349E-01,
     & 0.14200E-01, 0.17043E-01, 0.19936E-01, 0.22871E-01, 0.25876E-01,
     & 0.28891E-01, 0.31902E-01, 0.34893E-01, 0.37837E-01, 0.40706E-01,
     & 0.43492E-01, 0.46195E-01, 0.48796E-01, 0.51333E-01, 0.53855E-01,
     & 0.56480E-01, 0.59231E-01, 0.62113E-01, 0.64996E-01, 0.67879E-01,
     & 0.70762E-01, 0.73645E-01, 0.76528E-01, 0.79411E-01, 0.82294E-01/

      data ((flgrdl(i,j),j=1,30),i= 21, 30)/
     &-0.10012E-02, 0.21664E-02, 0.53233E-02, 0.83479E-02, 0.11230E-01,
     & 0.14018E-01, 0.16791E-01, 0.19607E-01, 0.22461E-01, 0.25381E-01,
     & 0.28307E-01, 0.31229E-01, 0.34129E-01, 0.36980E-01, 0.39756E-01,
     & 0.42448E-01, 0.45059E-01, 0.47574E-01, 0.50025E-01, 0.52461E-01,
     & 0.54988E-01, 0.57646E-01, 0.60434E-01, 0.63222E-01, 0.66011E-01,
     & 0.68799E-01, 0.71587E-01, 0.74375E-01, 0.77163E-01, 0.79952E-01,
     &-0.94889E-03, 0.21859E-02, 0.53084E-02, 0.82869E-02, 0.11113E-01,
     & 0.13837E-01, 0.16541E-01, 0.19282E-01, 0.22058E-01, 0.24893E-01,
     & 0.27733E-01, 0.30568E-01, 0.33378E-01, 0.36138E-01, 0.38822E-01,
     & 0.41423E-01, 0.43945E-01, 0.46373E-01, 0.48741E-01, 0.51092E-01,
     & 0.53521E-01, 0.56091E-01, 0.58793E-01, 0.61496E-01, 0.64198E-01,
     & 0.66901E-01, 0.69603E-01, 0.72305E-01, 0.75008E-01, 0.77710E-01,
     &-0.89565E-03, 0.22058E-02, 0.52940E-02, 0.82266E-02, 0.10997E-01,
     & 0.13658E-01, 0.16295E-01, 0.18962E-01, 0.21659E-01, 0.24412E-01,
     & 0.27167E-01, 0.29917E-01, 0.32639E-01, 0.35308E-01, 0.37904E-01,
     & 0.40417E-01, 0.42853E-01, 0.45196E-01, 0.47481E-01, 0.49748E-01,
     & 0.52083E-01, 0.54565E-01, 0.57185E-01, 0.59804E-01, 0.62423E-01,
     & 0.65042E-01, 0.67661E-01, 0.70281E-01, 0.72900E-01, 0.75519E-01,
     &-0.84242E-03, 0.22261E-02, 0.52799E-02, 0.81669E-02, 0.10882E-01,
     & 0.13482E-01, 0.16050E-01, 0.18645E-01, 0.21266E-01, 0.23938E-01,
     & 0.26610E-01, 0.29277E-01, 0.31912E-01, 0.34492E-01, 0.37000E-01,
     & 0.39429E-01, 0.41780E-01, 0.44041E-01, 0.46244E-01, 0.48430E-01,
     & 0.50677E-01, 0.53073E-01, 0.55607E-01, 0.58142E-01, 0.60676E-01,
     & 0.63210E-01, 0.65745E-01, 0.68279E-01, 0.70813E-01, 0.73348E-01,
     &-0.78881E-03, 0.22467E-02, 0.52661E-02, 0.81078E-02, 0.10768E-01,
     & 0.13308E-01, 0.15809E-01, 0.18332E-01, 0.20878E-01, 0.23470E-01,
     & 0.26062E-01, 0.28646E-01, 0.31197E-01, 0.33688E-01, 0.36111E-01,
     & 0.38458E-01, 0.40727E-01, 0.42907E-01, 0.45031E-01, 0.47138E-01,
     & 0.49301E-01, 0.51611E-01, 0.54058E-01, 0.56505E-01, 0.58952E-01,
     & 0.61399E-01, 0.63846E-01, 0.66293E-01, 0.68740E-01, 0.71188E-01,
     &-0.73481E-03, 0.22676E-02, 0.52529E-02, 0.80493E-02, 0.10655E-01,
     & 0.13136E-01, 0.15570E-01, 0.18023E-01, 0.20496E-01, 0.23010E-01,
     & 0.25523E-01, 0.28026E-01, 0.30493E-01, 0.32898E-01, 0.35238E-01,
     & 0.37506E-01, 0.39693E-01, 0.41795E-01, 0.43842E-01, 0.45871E-01,
     & 0.47951E-01, 0.50178E-01, 0.52540E-01, 0.54901E-01, 0.57263E-01,
     & 0.59624E-01, 0.61986E-01, 0.64347E-01, 0.66709E-01, 0.69070E-01,
     &-0.68015E-03, 0.22892E-02, 0.52401E-02, 0.79914E-02, 0.10544E-01,
     & 0.12965E-01, 0.15334E-01, 0.17718E-01, 0.20119E-01, 0.22557E-01,
     & 0.24993E-01, 0.27417E-01, 0.29799E-01, 0.32122E-01, 0.34380E-01,
     & 0.36571E-01, 0.38679E-01, 0.40704E-01, 0.42675E-01, 0.44629E-01,
     & 0.46629E-01, 0.48775E-01, 0.51053E-01, 0.53331E-01, 0.55609E-01,
     & 0.57887E-01, 0.60165E-01, 0.62443E-01, 0.64722E-01, 0.67000E-01,
     &-0.62503E-03, 0.23111E-02, 0.52278E-02, 0.79342E-02, 0.10433E-01,
     & 0.12796E-01, 0.15100E-01, 0.17416E-01, 0.19747E-01, 0.22109E-01,
     & 0.24470E-01, 0.26817E-01, 0.29116E-01, 0.31359E-01, 0.33538E-01,
     & 0.35652E-01, 0.37683E-01, 0.39634E-01, 0.41531E-01, 0.43411E-01,
     & 0.45333E-01, 0.47399E-01, 0.49596E-01, 0.51793E-01, 0.53990E-01,
     & 0.56187E-01, 0.58384E-01, 0.60581E-01, 0.62778E-01, 0.64975E-01,
     &-0.56940E-03, 0.23336E-02, 0.52159E-02, 0.78777E-02, 0.10324E-01,
     & 0.12628E-01, 0.14869E-01, 0.17119E-01, 0.19380E-01, 0.21669E-01,
     & 0.23956E-01, 0.26225E-01, 0.28444E-01, 0.30609E-01, 0.32711E-01,
     & 0.34750E-01, 0.36706E-01, 0.38584E-01, 0.40409E-01, 0.42216E-01,
     & 0.44062E-01, 0.46051E-01, 0.48169E-01, 0.50286E-01, 0.52404E-01,
     & 0.54522E-01, 0.56639E-01, 0.58757E-01, 0.60874E-01, 0.62992E-01,
     &-0.51302E-03, 0.23568E-02, 0.52047E-02, 0.78218E-02, 0.10216E-01,
     & 0.12462E-01, 0.14641E-01, 0.16825E-01, 0.19018E-01, 0.21235E-01,
     & 0.23450E-01, 0.25640E-01, 0.27784E-01, 0.29874E-01, 0.31900E-01,
     & 0.33866E-01, 0.35747E-01, 0.37555E-01, 0.39310E-01, 0.41046E-01,
     & 0.42818E-01, 0.44731E-01, 0.46770E-01, 0.48810E-01, 0.50849E-01,
     & 0.52889E-01, 0.54928E-01, 0.56967E-01, 0.59007E-01, 0.61046E-01/

      data ((flgrdl(i,j),j=1,30),i= 31, 40)/
     &-0.45542E-03, 0.23807E-02, 0.51940E-02, 0.77667E-02, 0.10109E-01,
     & 0.12298E-01, 0.14416E-01, 0.16534E-01, 0.18660E-01, 0.20809E-01,
     & 0.22951E-01, 0.25065E-01, 0.27135E-01, 0.29151E-01, 0.31102E-01,
     & 0.32997E-01, 0.34807E-01, 0.36545E-01, 0.38232E-01, 0.39898E-01,
     & 0.41598E-01, 0.43438E-01, 0.45402E-01, 0.47366E-01, 0.49330E-01,
     & 0.51294E-01, 0.53258E-01, 0.55222E-01, 0.57186E-01, 0.59150E-01,
     &-0.39771E-03, 0.24052E-02, 0.51839E-02, 0.77124E-02, 0.10003E-01,
     & 0.12136E-01, 0.14194E-01, 0.16248E-01, 0.18308E-01, 0.20388E-01,
     & 0.22459E-01, 0.24500E-01, 0.26497E-01, 0.28441E-01, 0.30320E-01,
     & 0.32145E-01, 0.33885E-01, 0.35554E-01, 0.37175E-01, 0.38767E-01,
     & 0.40404E-01, 0.42172E-01, 0.44063E-01, 0.45954E-01, 0.47844E-01,
     & 0.49735E-01, 0.51626E-01, 0.53517E-01, 0.55407E-01, 0.57298E-01,
     &-0.33893E-03, 0.24304E-02, 0.51746E-02, 0.76590E-02, 0.98989E-02,
     & 0.11976E-01, 0.13975E-01, 0.15965E-01, 0.17961E-01, 0.19973E-01,
     & 0.21975E-01, 0.23945E-01, 0.25871E-01, 0.27744E-01, 0.29553E-01,
     & 0.31309E-01, 0.32982E-01, 0.34580E-01, 0.36135E-01, 0.37658E-01,
     & 0.39235E-01, 0.40933E-01, 0.42751E-01, 0.44569E-01, 0.46388E-01,
     & 0.48206E-01, 0.50024E-01, 0.51843E-01, 0.53661E-01, 0.55479E-01,
     &-0.27856E-03, 0.24568E-02, 0.51660E-02, 0.76065E-02, 0.97958E-02,
     & 0.11817E-01, 0.13759E-01, 0.15686E-01, 0.17619E-01, 0.19563E-01,
     & 0.21498E-01, 0.23398E-01, 0.25256E-01, 0.27060E-01, 0.28800E-01,
     & 0.30489E-01, 0.32095E-01, 0.33625E-01, 0.35112E-01, 0.36572E-01,
     & 0.38091E-01, 0.39719E-01, 0.41464E-01, 0.43208E-01, 0.44953E-01,
     & 0.46697E-01, 0.48442E-01, 0.50186E-01, 0.51930E-01, 0.53675E-01,
     &-0.21786E-03, 0.24838E-02, 0.51583E-02, 0.75550E-02, 0.96940E-02,
     & 0.11661E-01, 0.13546E-01, 0.15412E-01, 0.17283E-01, 0.19161E-01,
     & 0.21029E-01, 0.22861E-01, 0.24650E-01, 0.26386E-01, 0.28061E-01,
     & 0.29683E-01, 0.31225E-01, 0.32689E-01, 0.34109E-01, 0.35508E-01,
     & 0.36972E-01, 0.38528E-01, 0.40192E-01, 0.41856E-01, 0.43521E-01,
     & 0.45185E-01, 0.46849E-01, 0.48513E-01, 0.50177E-01, 0.51841E-01,
     &-0.15591E-03, 0.25119E-02, 0.51514E-02, 0.75044E-02, 0.95935E-02,
     & 0.11506E-01, 0.13335E-01, 0.15142E-01, 0.16951E-01, 0.18766E-01,
     & 0.20568E-01, 0.22333E-01, 0.24055E-01, 0.25726E-01, 0.27335E-01,
     & 0.28888E-01, 0.30368E-01, 0.31768E-01, 0.33124E-01, 0.34462E-01,
     & 0.35871E-01, 0.37355E-01, 0.38934E-01, 0.40513E-01, 0.42092E-01,
     & 0.43671E-01, 0.45249E-01, 0.46828E-01, 0.48407E-01, 0.49986E-01,
     &-0.92343E-04, 0.25412E-02, 0.51455E-02, 0.74549E-02, 0.94945E-02,
     & 0.11354E-01, 0.13128E-01, 0.14875E-01, 0.16624E-01, 0.18377E-01,
     & 0.20115E-01, 0.21814E-01, 0.23470E-01, 0.25078E-01, 0.26622E-01,
     & 0.28107E-01, 0.29523E-01, 0.30864E-01, 0.32160E-01, 0.33440E-01,
     & 0.34793E-01, 0.36207E-01, 0.37705E-01, 0.39202E-01, 0.40700E-01,
     & 0.42197E-01, 0.43695E-01, 0.45192E-01, 0.46690E-01, 0.48187E-01,
     &-0.27832E-04, 0.25716E-02, 0.51407E-02, 0.74065E-02, 0.93969E-02,
     & 0.11204E-01, 0.12923E-01, 0.14614E-01, 0.16302E-01, 0.17995E-01,
     & 0.19668E-01, 0.21304E-01, 0.22897E-01, 0.24440E-01, 0.25922E-01,
     & 0.27340E-01, 0.28695E-01, 0.29978E-01, 0.31215E-01, 0.32439E-01,
     & 0.33733E-01, 0.35082E-01, 0.36504E-01, 0.37926E-01, 0.39348E-01,
     & 0.40771E-01, 0.42193E-01, 0.43615E-01, 0.45037E-01, 0.46460E-01,
     & 0.38218E-04, 0.26032E-02, 0.51370E-02, 0.73593E-02, 0.93009E-02,
     & 0.11056E-01, 0.12721E-01, 0.14356E-01, 0.15985E-01, 0.17618E-01,
     & 0.19229E-01, 0.20803E-01, 0.22333E-01, 0.23814E-01, 0.25234E-01,
     & 0.26590E-01, 0.27884E-01, 0.29111E-01, 0.30292E-01, 0.31461E-01,
     & 0.32691E-01, 0.33980E-01, 0.35337E-01, 0.36694E-01, 0.38051E-01,
     & 0.39408E-01, 0.40765E-01, 0.42122E-01, 0.43479E-01, 0.44836E-01,
     & 0.10574E-03, 0.26363E-02, 0.51345E-02, 0.73133E-02, 0.92065E-02,
     & 0.10910E-01, 0.12521E-01, 0.14101E-01, 0.15672E-01, 0.17248E-01,
     & 0.18797E-01, 0.20309E-01, 0.21779E-01, 0.23198E-01, 0.24558E-01,
     & 0.25855E-01, 0.27090E-01, 0.28261E-01, 0.29389E-01, 0.30503E-01,
     & 0.31669E-01, 0.32900E-01, 0.34200E-01, 0.35501E-01, 0.36801E-01,
     & 0.38102E-01, 0.39402E-01, 0.40703E-01, 0.42003E-01, 0.43304E-01/

      data ((flgrdl(i,j),j=1,30),i= 41, 50)/
     & 0.17503E-03, 0.26708E-02, 0.51334E-02, 0.72688E-02, 0.91139E-02,
     & 0.10767E-01, 0.12325E-01, 0.13850E-01, 0.15365E-01, 0.16883E-01,
     & 0.18373E-01, 0.19824E-01, 0.21234E-01, 0.22594E-01, 0.23894E-01,
     & 0.25134E-01, 0.26313E-01, 0.27430E-01, 0.28505E-01, 0.29566E-01,
     & 0.30670E-01, 0.31845E-01, 0.33091E-01, 0.34337E-01, 0.35584E-01,
     & 0.36830E-01, 0.38076E-01, 0.39322E-01, 0.40569E-01, 0.41815E-01,
     & 0.24685E-03, 0.27072E-02, 0.51337E-02, 0.72257E-02, 0.90230E-02,
     & 0.10626E-01, 0.12131E-01, 0.13603E-01, 0.15062E-01, 0.16524E-01,
     & 0.17955E-01, 0.19348E-01, 0.20700E-01, 0.22001E-01, 0.23243E-01,
     & 0.24428E-01, 0.25551E-01, 0.26615E-01, 0.27639E-01, 0.28649E-01,
     & 0.29692E-01, 0.30813E-01, 0.32007E-01, 0.33202E-01, 0.34396E-01,
     & 0.35590E-01, 0.36785E-01, 0.37979E-01, 0.39173E-01, 0.40367E-01,
     & 0.32060E-03, 0.27455E-02, 0.51355E-02, 0.71843E-02, 0.89341E-02,
     & 0.10487E-01, 0.11941E-01, 0.13359E-01, 0.14764E-01, 0.16171E-01,
     & 0.17544E-01, 0.18881E-01, 0.20177E-01, 0.21421E-01, 0.22606E-01,
     & 0.23737E-01, 0.24806E-01, 0.25818E-01, 0.26791E-01, 0.27750E-01,
     & 0.28737E-01, 0.29805E-01, 0.30947E-01, 0.32090E-01, 0.33232E-01,
     & 0.34375E-01, 0.35517E-01, 0.36660E-01, 0.37802E-01, 0.38945E-01,
     & 0.39658E-03, 0.27857E-02, 0.51391E-02, 0.71446E-02, 0.88469E-02,
     & 0.10351E-01, 0.11754E-01, 0.13120E-01, 0.14472E-01, 0.15823E-01,
     & 0.17141E-01, 0.18422E-01, 0.19663E-01, 0.20851E-01, 0.21981E-01,
     & 0.23059E-01, 0.24076E-01, 0.25037E-01, 0.25962E-01, 0.26871E-01,
     & 0.27804E-01, 0.28820E-01, 0.29912E-01, 0.31003E-01, 0.32094E-01,
     & 0.33186E-01, 0.34277E-01, 0.35369E-01, 0.36460E-01, 0.37552E-01,
     & 0.47572E-03, 0.28283E-02, 0.51445E-02, 0.71067E-02, 0.87619E-02,
     & 0.10217E-01, 0.11570E-01, 0.12884E-01, 0.14185E-01, 0.15482E-01,
     & 0.16744E-01, 0.17973E-01, 0.19159E-01, 0.20293E-01, 0.21369E-01,
     & 0.22395E-01, 0.23362E-01, 0.24273E-01, 0.25149E-01, 0.26011E-01,
     & 0.26893E-01, 0.27857E-01, 0.28898E-01, 0.29938E-01, 0.30979E-01,
     & 0.32019E-01, 0.33059E-01, 0.34100E-01, 0.35140E-01, 0.36180E-01,
     & 0.55694E-03, 0.28731E-02, 0.51520E-02, 0.70708E-02, 0.86790E-02,
     & 0.10086E-01, 0.11390E-01, 0.12653E-01, 0.13903E-01, 0.15146E-01,
     & 0.16356E-01, 0.17533E-01, 0.18665E-01, 0.19745E-01, 0.20769E-01,
     & 0.21744E-01, 0.22661E-01, 0.23524E-01, 0.24353E-01, 0.25166E-01,
     & 0.26002E-01, 0.26915E-01, 0.27904E-01, 0.28892E-01, 0.29880E-01,
     & 0.30868E-01, 0.31856E-01, 0.32844E-01, 0.33832E-01, 0.34820E-01,
     & 0.64105E-03, 0.29204E-02, 0.51618E-02, 0.70371E-02, 0.85985E-02,
     & 0.99575E-02, 0.11213E-01, 0.12426E-01, 0.13626E-01, 0.14817E-01,
     & 0.15975E-01, 0.17102E-01, 0.18180E-01, 0.19208E-01, 0.20181E-01,
     & 0.21106E-01, 0.21975E-01, 0.22790E-01, 0.23572E-01, 0.24339E-01,
     & 0.25130E-01, 0.25994E-01, 0.26931E-01, 0.27868E-01, 0.28804E-01,
     & 0.29741E-01, 0.30677E-01, 0.31614E-01, 0.32551E-01, 0.33487E-01,
     & 0.72871E-03, 0.29707E-02, 0.51740E-02, 0.70056E-02, 0.85205E-02,
     & 0.98320E-02, 0.11039E-01, 0.12204E-01, 0.13354E-01, 0.14494E-01,
     & 0.15604E-01, 0.16678E-01, 0.17705E-01, 0.18681E-01, 0.19604E-01,
     & 0.20480E-01, 0.21302E-01, 0.22070E-01, 0.22807E-01, 0.23527E-01,
     & 0.24276E-01, 0.25092E-01, 0.25977E-01, 0.26861E-01, 0.27746E-01,
     & 0.28630E-01, 0.29515E-01, 0.30399E-01, 0.31284E-01, 0.32168E-01,
     & 0.82037E-03, 0.30243E-02, 0.51888E-02, 0.69766E-02, 0.84451E-02,
     & 0.97098E-02, 0.10870E-01, 0.11986E-01, 0.13088E-01, 0.14177E-01,
     & 0.15239E-01, 0.16263E-01, 0.17238E-01, 0.18165E-01, 0.19040E-01,
     & 0.19867E-01, 0.20642E-01, 0.21365E-01, 0.22058E-01, 0.22734E-01,
     & 0.23441E-01, 0.24210E-01, 0.25044E-01, 0.25878E-01, 0.26711E-01,
     & 0.27545E-01, 0.28379E-01, 0.29213E-01, 0.30047E-01, 0.30880E-01,
     & 0.91476E-03, 0.30807E-02, 0.52064E-02, 0.69502E-02, 0.83726E-02,
     & 0.95907E-02, 0.10704E-01, 0.11773E-01, 0.12827E-01, 0.13868E-01,
     & 0.14882E-01, 0.15855E-01, 0.16781E-01, 0.17659E-01, 0.18486E-01,
     & 0.19267E-01, 0.19997E-01, 0.20675E-01, 0.21324E-01, 0.21958E-01,
     & 0.22623E-01, 0.23345E-01, 0.24129E-01, 0.24913E-01, 0.25696E-01,
     & 0.26480E-01, 0.27263E-01, 0.28047E-01, 0.28830E-01, 0.29614E-01/

      data ((flgrdl(i,j),j=1,30),i= 51, 60)/
     & 0.10143E-02, 0.31411E-02, 0.52272E-02, 0.69266E-02, 0.83031E-02,
     & 0.94750E-02, 0.10541E-01, 0.11565E-01, 0.12572E-01, 0.13565E-01,
     & 0.14532E-01, 0.15455E-01, 0.16333E-01, 0.17164E-01, 0.17945E-01,
     & 0.18679E-01, 0.19365E-01, 0.20002E-01, 0.20608E-01, 0.21201E-01,
     & 0.21823E-01, 0.22499E-01, 0.23231E-01, 0.23963E-01, 0.24694E-01,
     & 0.25426E-01, 0.26158E-01, 0.26890E-01, 0.27621E-01, 0.28353E-01,
     & 0.11188E-02, 0.32057E-02, 0.52513E-02, 0.69062E-02, 0.82368E-02,
     & 0.93626E-02, 0.10383E-01, 0.11361E-01, 0.12321E-01, 0.13270E-01,
     & 0.14188E-01, 0.15064E-01, 0.15895E-01, 0.16678E-01, 0.17414E-01,
     & 0.18106E-01, 0.18748E-01, 0.19343E-01, 0.19909E-01, 0.20461E-01,
     & 0.21042E-01, 0.21673E-01, 0.22357E-01, 0.23042E-01, 0.23726E-01,
     & 0.24411E-01, 0.25095E-01, 0.25779E-01, 0.26464E-01, 0.27148E-01,
     & 0.12282E-02, 0.32745E-02, 0.52790E-02, 0.68890E-02, 0.81738E-02,
     & 0.92537E-02, 0.10229E-01, 0.11162E-01, 0.12077E-01, 0.12980E-01,
     & 0.13851E-01, 0.14681E-01, 0.15465E-01, 0.16203E-01, 0.16894E-01,
     & 0.17545E-01, 0.18144E-01, 0.18698E-01, 0.19224E-01, 0.19736E-01,
     & 0.20276E-01, 0.20865E-01, 0.21505E-01, 0.22146E-01, 0.22786E-01,
     & 0.23426E-01, 0.24066E-01, 0.24706E-01, 0.25346E-01, 0.25987E-01,
     & 0.13429E-02, 0.33479E-02, 0.53106E-02, 0.68756E-02, 0.81145E-02,
     & 0.91487E-02, 0.10080E-01, 0.10968E-01, 0.11838E-01, 0.12696E-01,
     & 0.13522E-01, 0.14305E-01, 0.15045E-01, 0.15740E-01, 0.16388E-01,
     & 0.16996E-01, 0.17554E-01, 0.18068E-01, 0.18555E-01, 0.19030E-01,
     & 0.19529E-01, 0.20076E-01, 0.20673E-01, 0.21270E-01, 0.21867E-01,
     & 0.22464E-01, 0.23061E-01, 0.23658E-01, 0.24255E-01, 0.24852E-01,
     & 0.14637E-02, 0.34265E-02, 0.53465E-02, 0.68660E-02, 0.80588E-02,
     & 0.90478E-02, 0.99350E-02, 0.10778E-01, 0.11604E-01, 0.12419E-01,
     & 0.13199E-01, 0.13939E-01, 0.14635E-01, 0.15287E-01, 0.15892E-01,
     & 0.16460E-01, 0.16978E-01, 0.17453E-01, 0.17902E-01, 0.18338E-01,
     & 0.18798E-01, 0.19305E-01, 0.19860E-01, 0.20415E-01, 0.20970E-01,
     & 0.21525E-01, 0.22080E-01, 0.22635E-01, 0.23190E-01, 0.23745E-01,
     & 0.15907E-02, 0.35105E-02, 0.53870E-02, 0.68604E-02, 0.80071E-02,
     & 0.89512E-02, 0.97946E-02, 0.10594E-01, 0.11377E-01, 0.12148E-01,
     & 0.12884E-01, 0.13581E-01, 0.14234E-01, 0.14846E-01, 0.15409E-01,
     & 0.15935E-01, 0.16414E-01, 0.16850E-01, 0.17263E-01, 0.17662E-01,
     & 0.18085E-01, 0.18553E-01, 0.19069E-01, 0.19584E-01, 0.20100E-01,
     & 0.20616E-01, 0.21132E-01, 0.21648E-01, 0.22164E-01, 0.22679E-01,
     & 0.17253E-02, 0.36006E-02, 0.54324E-02, 0.68593E-02, 0.79597E-02,
     & 0.88591E-02, 0.96593E-02, 0.10416E-01, 0.11156E-01, 0.11884E-01,
     & 0.12577E-01, 0.13231E-01, 0.13843E-01, 0.14414E-01, 0.14937E-01,
     & 0.15422E-01, 0.15863E-01, 0.16262E-01, 0.16638E-01, 0.17002E-01,
     & 0.17388E-01, 0.17817E-01, 0.18292E-01, 0.18768E-01, 0.19243E-01,
     & 0.19718E-01, 0.20193E-01, 0.20668E-01, 0.21144E-01, 0.21619E-01,
     & 0.18670E-02, 0.36971E-02, 0.54832E-02, 0.68628E-02, 0.79169E-02,
     & 0.87719E-02, 0.95287E-02, 0.10243E-01, 0.10942E-01, 0.11627E-01,
     & 0.12278E-01, 0.12890E-01, 0.13462E-01, 0.13992E-01, 0.14475E-01,
     & 0.14920E-01, 0.15324E-01, 0.15687E-01, 0.16027E-01, 0.16356E-01,
     & 0.16707E-01, 0.17098E-01, 0.17532E-01, 0.17965E-01, 0.18399E-01,
     & 0.18832E-01, 0.19266E-01, 0.19700E-01, 0.20133E-01, 0.20567E-01,
     & 0.20175E-02, 0.38006E-02, 0.55397E-02, 0.68712E-02, 0.78788E-02,
     & 0.86895E-02, 0.94031E-02, 0.10076E-01, 0.10733E-01, 0.11377E-01,
     & 0.11986E-01, 0.12558E-01, 0.13090E-01, 0.13580E-01, 0.14024E-01,
     & 0.14430E-01, 0.14797E-01, 0.15124E-01, 0.15430E-01, 0.15724E-01,
     & 0.16042E-01, 0.16396E-01, 0.16792E-01, 0.17187E-01, 0.17583E-01,
     & 0.17979E-01, 0.18374E-01, 0.18770E-01, 0.19165E-01, 0.19561E-01,
     & 0.21768E-02, 0.39117E-02, 0.56022E-02, 0.68850E-02, 0.78457E-02,
     & 0.86120E-02, 0.92830E-02, 0.99146E-02, 0.10530E-01, 0.11133E-01,
     & 0.11703E-01, 0.12236E-01, 0.12727E-01, 0.13177E-01, 0.13583E-01,
     & 0.13952E-01, 0.14283E-01, 0.14575E-01, 0.14846E-01, 0.15107E-01,
     & 0.15390E-01, 0.15709E-01, 0.16069E-01, 0.16428E-01, 0.16787E-01,
     & 0.17147E-01, 0.17506E-01, 0.17865E-01, 0.18225E-01, 0.18584E-01/

      data ((flgrdl(i,j),j=1,30),i= 61, 70)/
     & 0.23461E-02, 0.40308E-02, 0.56712E-02, 0.69042E-02, 0.78180E-02,
     & 0.85400E-02, 0.91683E-02, 0.97592E-02, 0.10334E-01, 0.10897E-01,
     & 0.11427E-01, 0.11921E-01, 0.12373E-01, 0.12784E-01, 0.13153E-01,
     & 0.13485E-01, 0.13781E-01, 0.14039E-01, 0.14276E-01, 0.14506E-01,
     & 0.14755E-01, 0.15038E-01, 0.15359E-01, 0.15679E-01, 0.16000E-01,
     & 0.16320E-01, 0.16641E-01, 0.16962E-01, 0.17282E-01, 0.17603E-01,
     & 0.25263E-02, 0.41589E-02, 0.57471E-02, 0.69294E-02, 0.77955E-02,
     & 0.84733E-02, 0.90592E-02, 0.96097E-02, 0.10145E-01, 0.10668E-01,
     & 0.11160E-01, 0.11614E-01, 0.12028E-01, 0.12401E-01, 0.12733E-01,
     & 0.13030E-01, 0.13290E-01, 0.13516E-01, 0.13722E-01, 0.13919E-01,
     & 0.14134E-01, 0.14383E-01, 0.14666E-01, 0.14949E-01, 0.15232E-01,
     & 0.15515E-01, 0.15798E-01, 0.16081E-01, 0.16363E-01, 0.16646E-01,
     & 0.27183E-02, 0.42964E-02, 0.58303E-02, 0.69606E-02, 0.77787E-02,
     & 0.84118E-02, 0.89562E-02, 0.94659E-02, 0.99612E-02, 0.10446E-01,
     & 0.10898E-01, 0.11315E-01, 0.11691E-01, 0.12027E-01, 0.12323E-01,
     & 0.12585E-01, 0.12812E-01, 0.13006E-01, 0.13180E-01, 0.13346E-01,
     & 0.13526E-01, 0.13742E-01, 0.13993E-01, 0.14243E-01, 0.14494E-01,
     & 0.14744E-01, 0.14995E-01, 0.15245E-01, 0.15496E-01, 0.15746E-01,
     & 0.29236E-02, 0.44444E-02, 0.59212E-02, 0.69982E-02, 0.77675E-02,
     & 0.83562E-02, 0.88591E-02, 0.93284E-02, 0.97847E-02, 0.10230E-01,
     & 0.10645E-01, 0.11024E-01, 0.11363E-01, 0.11662E-01, 0.11923E-01,
     & 0.12152E-01, 0.12345E-01, 0.12507E-01, 0.12650E-01, 0.12786E-01,
     & 0.12933E-01, 0.13116E-01, 0.13334E-01, 0.13551E-01, 0.13769E-01,
     & 0.13986E-01, 0.14204E-01, 0.14421E-01, 0.14639E-01, 0.14856E-01,
     & 0.31406E-02, 0.46025E-02, 0.60204E-02, 0.70423E-02, 0.77621E-02,
     & 0.83064E-02, 0.87680E-02, 0.91972E-02, 0.96147E-02, 0.10022E-01,
     & 0.10399E-01, 0.10741E-01, 0.11042E-01, 0.11306E-01, 0.11532E-01,
     & 0.11728E-01, 0.11888E-01, 0.12018E-01, 0.12132E-01, 0.12236E-01,
     & 0.12352E-01, 0.12503E-01, 0.12688E-01, 0.12874E-01, 0.13059E-01,
     & 0.13244E-01, 0.13430E-01, 0.13615E-01, 0.13801E-01, 0.13986E-01,
     & 0.33751E-02, 0.47733E-02, 0.61283E-02, 0.70930E-02, 0.77626E-02,
     & 0.82620E-02, 0.86828E-02, 0.90727E-02, 0.94516E-02, 0.98208E-02,
     & 0.10160E-01, 0.10465E-01, 0.10731E-01, 0.10960E-01, 0.11151E-01,
     & 0.11314E-01, 0.11442E-01, 0.11541E-01, 0.11623E-01, 0.11697E-01,
     & 0.11781E-01, 0.11901E-01, 0.12055E-01, 0.12210E-01, 0.12364E-01,
     & 0.12518E-01, 0.12672E-01, 0.12826E-01, 0.12980E-01, 0.13135E-01,
     & 0.36265E-02, 0.49570E-02, 0.62450E-02, 0.71505E-02, 0.77690E-02,
     & 0.82234E-02, 0.86033E-02, 0.89543E-02, 0.92951E-02, 0.96262E-02,
     & 0.99289E-02, 0.10196E-01, 0.10427E-01, 0.10621E-01, 0.10779E-01,
     & 0.10909E-01, 0.11005E-01, 0.11073E-01, 0.11125E-01, 0.11169E-01,
     & 0.11224E-01, 0.11312E-01, 0.11431E-01, 0.11551E-01, 0.11671E-01,
     & 0.11791E-01, 0.11910E-01, 0.12030E-01, 0.12150E-01, 0.12270E-01,
     & 0.38966E-02, 0.51547E-02, 0.63712E-02, 0.72149E-02, 0.77809E-02,
     & 0.81901E-02, 0.85291E-02, 0.88416E-02, 0.91447E-02, 0.94387E-02,
     & 0.97047E-02, 0.99367E-02, 0.10132E-01, 0.10291E-01, 0.10415E-01,
     & 0.10512E-01, 0.10576E-01, 0.10613E-01, 0.10635E-01, 0.10648E-01,
     & 0.10676E-01, 0.10731E-01, 0.10817E-01, 0.10903E-01, 0.10989E-01,
     & 0.11075E-01, 0.11161E-01, 0.11246E-01, 0.11332E-01, 0.11418E-01,
     & 0.41859E-02, 0.53670E-02, 0.65074E-02, 0.72861E-02, 0.77983E-02,
     & 0.81617E-02, 0.84599E-02, 0.87352E-02, 0.90005E-02, 0.92578E-02,
     & 0.94880E-02, 0.96840E-02, 0.98439E-02, 0.99699E-02, 0.10060E-01,
     & 0.10124E-01, 0.10157E-01, 0.10162E-01, 0.10153E-01, 0.10138E-01,
     & 0.10138E-01, 0.10161E-01, 0.10212E-01, 0.10263E-01, 0.10313E-01,
     & 0.10364E-01, 0.10414E-01, 0.10465E-01, 0.10515E-01, 0.10566E-01,
     & 0.45013E-02, 0.55972E-02, 0.66540E-02, 0.73640E-02, 0.78204E-02,
     & 0.81378E-02, 0.83952E-02, 0.86336E-02, 0.88621E-02, 0.90831E-02,
     & 0.92776E-02, 0.94384E-02, 0.95646E-02, 0.96569E-02, 0.97142E-02,
     & 0.97438E-02, 0.97456E-02, 0.97216E-02, 0.96831E-02, 0.96394E-02,
     & 0.96102E-02, 0.96009E-02, 0.96153E-02, 0.96297E-02, 0.96440E-02,
     & 0.96584E-02, 0.96728E-02, 0.96871E-02, 0.97015E-02, 0.97159E-02/

      data ((flgrdl(i,j),j=1,30),i= 71, 80)/
     & 0.48417E-02, 0.58453E-02, 0.68114E-02, 0.74482E-02, 0.78469E-02,
     & 0.81176E-02, 0.83346E-02, 0.85357E-02, 0.87285E-02, 0.89146E-02,
     & 0.90737E-02, 0.92001E-02, 0.92922E-02, 0.93501E-02, 0.93752E-02,
     & 0.93738E-02, 0.93444E-02, 0.92904E-02, 0.92239E-02, 0.91503E-02,
     & 0.90914E-02, 0.90526E-02, 0.90368E-02, 0.90210E-02, 0.90052E-02,
     & 0.89894E-02, 0.89737E-02, 0.89579E-02, 0.89421E-02, 0.89263E-02,
     & 0.52131E-02, 0.61144E-02, 0.69805E-02, 0.75384E-02, 0.78771E-02,
     & 0.81002E-02, 0.82773E-02, 0.84419E-02, 0.85996E-02, 0.87509E-02,
     & 0.88751E-02, 0.89678E-02, 0.90261E-02, 0.90513E-02, 0.90442E-02,
     & 0.90125E-02, 0.89530E-02, 0.88689E-02, 0.87726E-02, 0.86724E-02,
     & 0.85836E-02, 0.85151E-02, 0.84697E-02, 0.84242E-02, 0.83788E-02,
     & 0.83334E-02, 0.82880E-02, 0.82426E-02, 0.81971E-02, 0.81517E-02,
     & 0.56167E-02, 0.64058E-02, 0.71619E-02, 0.76346E-02, 0.79103E-02,
     & 0.80845E-02, 0.82217E-02, 0.83506E-02, 0.84741E-02, 0.85908E-02,
     & 0.86817E-02, 0.87406E-02, 0.87665E-02, 0.87599E-02, 0.87212E-02,
     & 0.86579E-02, 0.85686E-02, 0.84573E-02, 0.83330E-02, 0.82057E-02,
     & 0.80875E-02, 0.79879E-02, 0.79083E-02, 0.78288E-02, 0.77492E-02,
     & 0.76697E-02, 0.75901E-02, 0.75105E-02, 0.74310E-02, 0.73514E-02,
     & 0.60566E-02, 0.67219E-02, 0.73567E-02, 0.77361E-02, 0.79446E-02,
     & 0.80691E-02, 0.81665E-02, 0.82606E-02, 0.83509E-02, 0.84344E-02,
     & 0.84918E-02, 0.85188E-02, 0.85123E-02, 0.84738E-02, 0.84044E-02,
     & 0.83115E-02, 0.81925E-02, 0.80534E-02, 0.79028E-02, 0.77473E-02,
     & 0.75989E-02, 0.74716E-02, 0.73644E-02, 0.72572E-02, 0.71501E-02,
     & 0.70429E-02, 0.69357E-02, 0.68285E-02, 0.67213E-02, 0.66141E-02,
     & 0.65256E-02, 0.70604E-02, 0.75658E-02, 0.78422E-02, 0.79790E-02,
     & 0.80522E-02, 0.81098E-02, 0.81706E-02, 0.82287E-02, 0.82794E-02,
     & 0.83052E-02, 0.83005E-02, 0.82629E-02, 0.81936E-02, 0.80937E-02,
     & 0.79722E-02, 0.78246E-02, 0.76566E-02, 0.74789E-02, 0.72958E-02,
     & 0.71198E-02, 0.69654E-02, 0.68331E-02, 0.67008E-02, 0.65685E-02,
     & 0.64363E-02, 0.63040E-02, 0.61717E-02, 0.60394E-02, 0.59071E-02,
     & 0.70043E-02, 0.74130E-02, 0.77901E-02, 0.79531E-02, 0.80120E-02,
     & 0.80321E-02, 0.80492E-02, 0.80779E-02, 0.81053E-02, 0.81252E-02,
     & 0.81203E-02, 0.80849E-02, 0.80165E-02, 0.79172E-02, 0.77881E-02,
     & 0.76376E-02, 0.74626E-02, 0.72677E-02, 0.70622E-02, 0.68536E-02,
     & 0.66515E-02, 0.64676E-02, 0.63038E-02, 0.61399E-02, 0.59760E-02,
     & 0.58121E-02, 0.56482E-02, 0.54844E-02, 0.53205E-02, 0.51566E-02,
     & 0.74995E-02, 0.77800E-02, 0.80290E-02, 0.80681E-02, 0.80420E-02,
     & 0.80061E-02, 0.79828E-02, 0.79797E-02, 0.79784E-02, 0.79708E-02,
     & 0.79354E-02, 0.78691E-02, 0.77712E-02, 0.76434E-02, 0.74865E-02,
     & 0.73073E-02, 0.71048E-02, 0.68839E-02, 0.66531E-02, 0.64183E-02,
     & 0.61905E-02, 0.59790E-02, 0.57845E-02, 0.55900E-02, 0.53955E-02,
     & 0.52010E-02, 0.50065E-02, 0.48120E-02, 0.46175E-02, 0.44229E-02,
     & 0.80189E-02, 0.81630E-02, 0.82780E-02, 0.81872E-02, 0.80668E-02,
     & 0.79707E-02, 0.79076E-02, 0.78741E-02, 0.78456E-02, 0.78120E-02,
     & 0.77481E-02, 0.76531E-02, 0.75265E-02, 0.73703E-02, 0.71852E-02,
     & 0.69794E-02, 0.67507E-02, 0.65035E-02, 0.62469E-02, 0.59863E-02,
     & 0.57332E-02, 0.54951E-02, 0.52740E-02, 0.50529E-02, 0.48317E-02,
     & 0.46106E-02, 0.43895E-02, 0.41683E-02, 0.39472E-02, 0.37261E-02,
     & 0.85609E-02, 0.85597E-02, 0.85325E-02, 0.83103E-02, 0.80848E-02,
     & 0.79241E-02, 0.78204E-02, 0.77572E-02, 0.77036E-02, 0.76465E-02,
     & 0.75577E-02, 0.74356E-02, 0.72810E-02, 0.70978E-02, 0.68861E-02,
     & 0.66541E-02, 0.63998E-02, 0.61272E-02, 0.58452E-02, 0.55599E-02,
     & 0.52823E-02, 0.50167E-02, 0.47653E-02, 0.45140E-02, 0.42626E-02,
     & 0.40113E-02, 0.37599E-02, 0.35086E-02, 0.32572E-02, 0.30059E-02,
     & 0.91230E-02, 0.89672E-02, 0.87888E-02, 0.84362E-02, 0.80945E-02,
     & 0.78627E-02, 0.77162E-02, 0.76260E-02, 0.75489E-02, 0.74713E-02,
     & 0.73598E-02, 0.72132E-02, 0.70335E-02, 0.68253E-02, 0.65879E-02,
     & 0.63309E-02, 0.60517E-02, 0.57555E-02, 0.54504E-02, 0.51413E-02,
     & 0.48388E-02, 0.45473E-02, 0.42681E-02, 0.39889E-02, 0.37097E-02,
     & 0.34305E-02, 0.31513E-02, 0.28722E-02, 0.25930E-02, 0.23138E-02/

      data ((flgrdl(i,j),j=1,30),i= 81, 90)/
     & 0.97006E-02, 0.93807E-02, 0.90423E-02, 0.85617E-02, 0.80945E-02,
     & 0.77831E-02, 0.75912E-02, 0.74753E-02, 0.73776E-02, 0.72815E-02,
     & 0.71521E-02, 0.69836E-02, 0.67816E-02, 0.65495E-02, 0.62888E-02,
     & 0.60085E-02, 0.57069E-02, 0.53884E-02, 0.50610E-02, 0.47302E-02,
     & 0.44028E-02, 0.40877E-02, 0.37855E-02, 0.34832E-02, 0.31810E-02,
     & 0.28788E-02, 0.25765E-02, 0.22743E-02, 0.19721E-02, 0.16698E-02,
     & 0.10287E-01, 0.97946E-02, 0.92875E-02, 0.86786E-02, 0.80840E-02,
     & 0.76823E-02, 0.74419E-02, 0.73007E-02, 0.71855E-02, 0.70750E-02,
     & 0.69307E-02, 0.67440E-02, 0.65208E-02, 0.62674E-02, 0.59864E-02,
     & 0.56865E-02, 0.53639E-02, 0.50245E-02, 0.46773E-02, 0.43256E-02,
     & 0.39764E-02, 0.36393E-02, 0.33142E-02, 0.29890E-02, 0.26639E-02,
     & 0.23388E-02, 0.20137E-02, 0.16885E-02, 0.13634E-02, 0.10383E-02,
     & 0.10875E-01, 0.10201E-01, 0.95172E-02, 0.87768E-02, 0.80625E-02,
     & 0.75578E-02, 0.72637E-02, 0.70980E-02, 0.69674E-02, 0.68462E-02,
     & 0.66916E-02, 0.64903E-02, 0.62506E-02, 0.59794E-02, 0.56794E-02,
     & 0.53602E-02, 0.50193E-02, 0.46618E-02, 0.42963E-02, 0.39256E-02,
     & 0.35570E-02, 0.31990E-02, 0.28526E-02, 0.25062E-02, 0.21598E-02,
     & 0.18134E-02, 0.14670E-02, 0.11206E-02, 0.77417E-03, 0.42777E-03,
     & 0.11453E-01, 0.10590E-01, 0.97228E-02, 0.88480E-02, 0.80269E-02,
     & 0.74080E-02, 0.70519E-02, 0.68606E-02, 0.67173E-02, 0.65909E-02,
     & 0.64308E-02, 0.62208E-02, 0.59669E-02, 0.56805E-02, 0.53656E-02,
     & 0.50311E-02, 0.46742E-02, 0.43005E-02, 0.39188E-02, 0.35317E-02,
     & 0.31463E-02, 0.27696E-02, 0.24034E-02, 0.20371E-02, 0.16709E-02,
     & 0.13046E-02, 0.93836E-03, 0.57210E-03, 0.20584E-03,-0.16041E-03,
     & 0.12009E-01, 0.10951E-01, 0.98938E-02, 0.88832E-02, 0.79667E-02,
     & 0.72325E-02, 0.68038E-02, 0.65849E-02, 0.64297E-02, 0.63033E-02,
     & 0.61428E-02, 0.59298E-02, 0.56675E-02, 0.53704E-02, 0.50433E-02,
     & 0.46968E-02, 0.43276E-02, 0.39412E-02, 0.35468E-02, 0.31462E-02,
     & 0.27467E-02, 0.23543E-02, 0.19709E-02, 0.15875E-02, 0.12042E-02,
     & 0.82079E-03, 0.43741E-03, 0.54033E-04,-0.32935E-03,-0.71272E-03,
     & 0.12524E-01, 0.11267E-01, 0.10018E-01, 0.88722E-02, 0.78670E-02,
     & 0.70318E-02, 0.65176E-02, 0.62674E-02, 0.61005E-02, 0.59752E-02,
     & 0.58236E-02, 0.56146E-02, 0.53499E-02, 0.50467E-02, 0.47123E-02,
     & 0.43575E-02, 0.39800E-02, 0.35853E-02, 0.31822E-02, 0.27717E-02,
     & 0.23604E-02, 0.19560E-02, 0.15600E-02, 0.11639E-02, 0.76776E-03,
     & 0.37166E-03,-0.24438E-04,-0.42054E-03,-0.81663E-03,-0.12127E-02,
     & 0.12976E-01, 0.11520E-01, 0.10079E-01, 0.88032E-02, 0.77154E-02,
     & 0.68051E-02, 0.61937E-02, 0.59040E-02, 0.57248E-02, 0.56056E-02,
     & 0.54641E-02, 0.52688E-02, 0.50110E-02, 0.47074E-02, 0.43705E-02,
     & 0.40131E-02, 0.36319E-02, 0.32328E-02, 0.28252E-02, 0.24091E-02,
     & 0.19913E-02, 0.15795E-02, 0.11758E-02, 0.77210E-03, 0.36840E-03,
     &-0.35300E-04,-0.43900E-03,-0.84270E-03,-0.12464E-02,-0.16501E-02,
     & 0.13340E-01, 0.11690E-01, 0.10062E-01, 0.86629E-02, 0.75014E-02,
     & 0.65433E-02, 0.58360E-02, 0.54962E-02, 0.53001E-02, 0.51893E-02,
     & 0.50647E-02, 0.48862E-02, 0.46436E-02, 0.43487E-02, 0.40170E-02,
     & 0.36615E-02, 0.32822E-02, 0.28845E-02, 0.24776E-02, 0.20614E-02,
     & 0.16426E-02, 0.12277E-02, 0.81937E-03, 0.41105E-03, 0.27358E-05,
     &-0.40558E-03,-0.81390E-03,-0.12222E-02,-0.16305E-02,-0.20388E-02,
     & 0.13585E-01, 0.11751E-01, 0.99465E-02, 0.84368E-02, 0.72143E-02,
     & 0.62255E-02, 0.54501E-02, 0.50469E-02, 0.48252E-02, 0.47227E-02,
     & 0.46204E-02, 0.44669E-02, 0.42458E-02, 0.39665E-02, 0.36458E-02,
     & 0.33007E-02, 0.29302E-02, 0.25403E-02, 0.21406E-02, 0.17301E-02,
     & 0.13155E-02, 0.90442E-03, 0.49992E-03, 0.95421E-04,-0.30908E-03,
     &-0.71358E-03,-0.11181E-02,-0.15226E-02,-0.19271E-02,-0.23316E-02,
     & 0.13670E-01, 0.11672E-01, 0.97107E-02, 0.81097E-02, 0.68435E-02,
     & 0.58393E-02, 0.50384E-02, 0.45643E-02, 0.43049E-02, 0.42065E-02,
     & 0.41297E-02, 0.40070E-02, 0.38170E-02, 0.35632E-02, 0.32610E-02,
     & 0.29321E-02, 0.25767E-02, 0.22020E-02, 0.18163E-02, 0.14188E-02,
     & 0.10162E-02, 0.61533E-03, 0.21951E-03,-0.17630E-03,-0.57212E-03,
     &-0.96794E-03,-0.13638E-02,-0.17596E-02,-0.21554E-02,-0.25512E-02/

      data ((flgrdl(i,j),j=1,30),i= 91,100)/
     & 0.13555E-01, 0.11422E-01, 0.93319E-02, 0.76662E-02, 0.63790E-02,
     & 0.53782E-02, 0.45876E-02, 0.40590E-02, 0.37495E-02, 0.36458E-02,
     & 0.35933E-02, 0.35059E-02, 0.33550E-02, 0.31360E-02, 0.28622E-02,
     & 0.25581E-02, 0.22261E-02, 0.18736E-02, 0.15089E-02, 0.11318E-02,
     & 0.74902E-03, 0.36605E-03,-0.13024E-04,-0.39210E-03,-0.77117E-03,
     &-0.11502E-02,-0.15293E-02,-0.19084E-02,-0.22875E-02,-0.26665E-02,
     & 0.13188E-01, 0.10962E-01, 0.87865E-02, 0.70922E-02, 0.58130E-02,
     & 0.48383E-02, 0.40809E-02, 0.35347E-02, 0.31756E-02, 0.30524E-02,
     & 0.30188E-02, 0.29689E-02, 0.28593E-02, 0.26843E-02, 0.24496E-02,
     & 0.21794E-02, 0.18787E-02, 0.15568E-02, 0.12221E-02, 0.87397E-03,
     & 0.51892E-03, 0.16276E-03,-0.19075E-03,-0.54426E-03,-0.89776E-03,
     &-0.12513E-02,-0.16048E-02,-0.19583E-02,-0.23118E-02,-0.26653E-02,
     & 0.12516E-01, 0.10256E-01, 0.80527E-02, 0.63767E-02, 0.51415E-02,
     & 0.42200E-02, 0.35166E-02, 0.29923E-02, 0.26088E-02, 0.24476E-02,
     & 0.24207E-02, 0.24034E-02, 0.23398E-02, 0.22136E-02, 0.20256E-02,
     & 0.17979E-02, 0.15376E-02, 0.12548E-02, 0.95875E-03, 0.64882E-03,
     & 0.33111E-03, 0.10520E-04,-0.30919E-03,-0.62889E-03,-0.94860E-03,
     &-0.12683E-02,-0.15880E-02,-0.19077E-02,-0.22274E-02,-0.25471E-02,
     & 0.11484E-01, 0.92684E-02, 0.71138E-02, 0.55152E-02, 0.43671E-02,
     & 0.35297E-02, 0.29027E-02, 0.24379E-02, 0.20692E-02, 0.18641E-02,
     & 0.18239E-02, 0.18283E-02, 0.18065E-02, 0.17302E-02, 0.15966E-02,
     & 0.14204E-02, 0.12083E-02, 0.97290E-03, 0.72310E-03, 0.45966E-03,
     & 0.18809E-03,-0.87911E-04,-0.36476E-03,-0.64161E-03,-0.91847E-03,
     &-0.11953E-02,-0.14722E-02,-0.17490E-02,-0.20259E-02,-0.23027E-02,
     & 0.10042E-01, 0.79721E-02, 0.59645E-02, 0.45151E-02, 0.35033E-02,
     & 0.27836E-02, 0.22560E-02, 0.18722E-02, 0.15599E-02, 0.13420E-02,
     & 0.12672E-02, 0.12738E-02, 0.12815E-02, 0.12512E-02, 0.11728E-02,
     & 0.10530E-02, 0.89541E-03, 0.71411E-03, 0.51830E-03, 0.30921E-03,
     & 0.91757E-04,-0.13100E-03,-0.35604E-03,-0.58108E-03,-0.80612E-03,
     &-0.10312E-02,-0.12562E-02,-0.14813E-02,-0.17063E-02,-0.19313E-02,
     & 0.81598E-02, 0.63609E-02, 0.46212E-02, 0.34037E-02, 0.25808E-02,
     & 0.20119E-02, 0.16046E-02, 0.13147E-02, 0.10808E-02, 0.90497E-03,
     & 0.79969E-03, 0.78307E-03, 0.79958E-03, 0.80242E-03, 0.77080E-03,
     & 0.70622E-03, 0.60716E-03, 0.48390E-03, 0.34625E-03, 0.19652E-03,
     & 0.38785E-04,-0.12448E-03,-0.29101E-03,-0.45754E-03,-0.62408E-03,
     &-0.79061E-03,-0.95714E-03,-0.11237E-02,-0.12902E-02,-0.14567E-02,
     & 0.58575E-02, 0.44743E-02, 0.31412E-02, 0.22419E-02, 0.16565E-02,
     & 0.12647E-02, 0.99149E-03, 0.80167E-03, 0.65062E-03, 0.53765E-03,
     & 0.45468E-03, 0.41023E-03, 0.40992E-03, 0.42203E-03, 0.42109E-03,
     & 0.39994E-03, 0.35371E-03, 0.28706E-03, 0.20716E-03, 0.11691E-03,
     & 0.19509E-04,-0.82714E-04,-0.18825E-03,-0.29379E-03,-0.39933E-03,
     &-0.50487E-03,-0.61041E-03,-0.71595E-03,-0.82149E-03,-0.92703E-03,
     & 0.32779E-02, 0.24531E-02, 0.16612E-02, 0.11480E-02, 0.82702E-03,
     & 0.61915E-03, 0.47789E-03, 0.38193E-03, 0.30654E-03, 0.25101E-03,
     & 0.20935E-03, 0.17889E-03, 0.16187E-03, 0.16036E-03, 0.16495E-03,
     & 0.16490E-03, 0.15408E-03, 0.13150E-03, 0.99976E-04, 0.61057E-04,
     & 0.16968E-04,-0.30374E-04,-0.80060E-04,-0.12975E-03,-0.17943E-03,
     &-0.22912E-03,-0.27881E-03,-0.32849E-03,-0.37818E-03,-0.42786E-03,
     & 0.97141E-03, 0.72311E-03, 0.48504E-03, 0.33269E-03, 0.23847E-03,
     & 0.17795E-03, 0.13704E-03, 0.10936E-03, 0.87648E-04, 0.71682E-04,
     & 0.59714E-04, 0.50438E-04, 0.43442E-04, 0.39495E-04, 0.37713E-04,
     & 0.37203E-04, 0.36350E-04, 0.33444E-04, 0.28166E-04, 0.20417E-04,
     & 0.10579E-04,-0.52015E-06,-0.12495E-04,-0.24470E-04,-0.36445E-04,
     &-0.48420E-04,-0.60394E-04,-0.72369E-04,-0.84344E-04,-0.96319E-04,
     & 0.93525E-04, 0.69613E-04, 0.46692E-04, 0.32053E-04, 0.23007E-04,
     & 0.17195E-04, 0.13263E-04, 0.10596E-04, 0.85028E-05, 0.69604E-05,
     & 0.58022E-05, 0.49029E-05, 0.41899E-05, 0.36198E-05, 0.32043E-05,
     & 0.30596E-05, 0.30647E-05, 0.29749E-05, 0.26847E-05, 0.21457E-05,
     & 0.13726E-05, 0.45966E-06,-0.54799E-06,-0.15556E-05,-0.25633E-05,
     &-0.35709E-05,-0.45786E-05,-0.55862E-05,-0.65939E-05,-0.76015E-05/

      data ((c2grdl(i,j),j=1,30),i=  1, 10)/
     & 0.17446E-02, 0.35575E-02, 0.54193E-02, 0.78695E-02, 0.11183E-01,
     & 0.15525E-01, 0.21050E-01, 0.27958E-01, 0.35787E-01, 0.44797E-01,
     & 0.54891E-01, 0.65937E-01, 0.77838E-01, 0.90528E-01, 0.10392E+00,
     & 0.11799E+00, 0.13274E+00, 0.14818E+00, 0.16441E+00, 0.18154E+00,
     & 0.19992E+00, 0.21935E+00, 0.23963E+00, 0.25992E+00, 0.28020E+00,
     & 0.30048E+00, 0.32076E+00, 0.34105E+00, 0.36133E+00, 0.38161E+00,
     & 0.17143E-02, 0.34963E-02, 0.53268E-02, 0.77356E-02, 0.10992E-01,
     & 0.15260E-01, 0.20687E-01, 0.27470E-01, 0.35153E-01, 0.43993E-01,
     & 0.53894E-01, 0.64719E-01, 0.76381E-01, 0.88813E-01, 0.10193E+00,
     & 0.11570E+00, 0.13014E+00, 0.14525E+00, 0.16113E+00, 0.17790E+00,
     & 0.19588E+00, 0.21488E+00, 0.23473E+00, 0.25457E+00, 0.27441E+00,
     & 0.29426E+00, 0.31410E+00, 0.33394E+00, 0.35379E+00, 0.37363E+00,
     & 0.16830E-02, 0.34355E-02, 0.52354E-02, 0.76038E-02, 0.10803E-01,
     & 0.14998E-01, 0.20328E-01, 0.26989E-01, 0.34528E-01, 0.43198E-01,
     & 0.52908E-01, 0.63518E-01, 0.74944E-01, 0.87116E-01, 0.99956E-01,
     & 0.11344E+00, 0.12758E+00, 0.14236E+00, 0.15789E+00, 0.17430E+00,
     & 0.19188E+00, 0.21047E+00, 0.22988E+00, 0.24929E+00, 0.26870E+00,
     & 0.28811E+00, 0.30751E+00, 0.32692E+00, 0.34633E+00, 0.36574E+00,
     & 0.16532E-02, 0.33758E-02, 0.51453E-02, 0.74734E-02, 0.10616E-01,
     & 0.14740E-01, 0.19974E-01, 0.26513E-01, 0.33911E-01, 0.42415E-01,
     & 0.51935E-01, 0.62331E-01, 0.73524E-01, 0.85445E-01, 0.98014E-01,
     & 0.11121E+00, 0.12504E+00, 0.13950E+00, 0.15470E+00, 0.17074E+00,
     & 0.18794E+00, 0.20611E+00, 0.22509E+00, 0.24407E+00, 0.26305E+00,
     & 0.28203E+00, 0.30101E+00, 0.32000E+00, 0.33898E+00, 0.35796E+00,
     & 0.16238E-02, 0.33169E-02, 0.50562E-02, 0.73446E-02, 0.10432E-01,
     & 0.14486E-01, 0.19623E-01, 0.26043E-01, 0.33301E-01, 0.41641E-01,
     & 0.50974E-01, 0.61159E-01, 0.72123E-01, 0.83795E-01, 0.96097E-01,
     & 0.10901E+00, 0.12255E+00, 0.13669E+00, 0.15155E+00, 0.16723E+00,
     & 0.18405E+00, 0.20182E+00, 0.22037E+00, 0.23892E+00, 0.25748E+00,
     & 0.27603E+00, 0.29458E+00, 0.31314E+00, 0.33169E+00, 0.35025E+00,
     & 0.15930E-02, 0.32580E-02, 0.49683E-02, 0.72180E-02, 0.10250E-01,
     & 0.14235E-01, 0.19277E-01, 0.25579E-01, 0.32699E-01, 0.40877E-01,
     & 0.50025E-01, 0.60002E-01, 0.70738E-01, 0.82167E-01, 0.94206E-01,
     & 0.10684E+00, 0.12008E+00, 0.13391E+00, 0.14844E+00, 0.16377E+00,
     & 0.18021E+00, 0.19758E+00, 0.21570E+00, 0.23383E+00, 0.25195E+00,
     & 0.27008E+00, 0.28820E+00, 0.30633E+00, 0.32446E+00, 0.34258E+00,
     & 0.15636E-02, 0.32002E-02, 0.48814E-02, 0.70929E-02, 0.10070E-01,
     & 0.13987E-01, 0.18935E-01, 0.25121E-01, 0.32106E-01, 0.40124E-01,
     & 0.49089E-01, 0.58861E-01, 0.69374E-01, 0.80560E-01, 0.92339E-01,
     & 0.10470E+00, 0.11764E+00, 0.13117E+00, 0.14537E+00, 0.16035E+00,
     & 0.17643E+00, 0.19339E+00, 0.21110E+00, 0.22880E+00, 0.24650E+00,
     & 0.26421E+00, 0.28191E+00, 0.29962E+00, 0.31732E+00, 0.33502E+00,
     & 0.15356E-02, 0.31436E-02, 0.47956E-02, 0.69695E-02, 0.98933E-02,
     & 0.13743E-01, 0.18597E-01, 0.24669E-01, 0.31521E-01, 0.39382E-01,
     & 0.48165E-01, 0.57736E-01, 0.68030E-01, 0.78976E-01, 0.90500E-01,
     & 0.10258E+00, 0.11524E+00, 0.12846E+00, 0.14234E+00, 0.15698E+00,
     & 0.17269E+00, 0.18927E+00, 0.20656E+00, 0.22384E+00, 0.24113E+00,
     & 0.25842E+00, 0.27571E+00, 0.29299E+00, 0.31028E+00, 0.32757E+00,
     & 0.15084E-02, 0.30879E-02, 0.47109E-02, 0.68477E-02, 0.97187E-02,
     & 0.13500E-01, 0.18264E-01, 0.24221E-01, 0.30943E-01, 0.38649E-01,
     & 0.47253E-01, 0.56628E-01, 0.66702E-01, 0.77413E-01, 0.88685E-01,
     & 0.10050E+00, 0.11287E+00, 0.12579E+00, 0.13935E+00, 0.15366E+00,
     & 0.16901E+00, 0.18520E+00, 0.20208E+00, 0.21896E+00, 0.23584E+00,
     & 0.25272E+00, 0.26960E+00, 0.28648E+00, 0.30336E+00, 0.32023E+00,
     & 0.14829E-02, 0.30336E-02, 0.46273E-02, 0.67273E-02, 0.95466E-02,
     & 0.13259E-01, 0.17936E-01, 0.23778E-01, 0.30372E-01, 0.37925E-01,
     & 0.46354E-01, 0.55533E-01, 0.65392E-01, 0.75871E-01, 0.86895E-01,
     & 0.98445E-01, 0.11054E+00, 0.12316E+00, 0.13641E+00, 0.15038E+00,
     & 0.16538E+00, 0.18119E+00, 0.19767E+00, 0.21415E+00, 0.23063E+00,
     & 0.24711E+00, 0.26359E+00, 0.28008E+00, 0.29656E+00, 0.31304E+00/

      data ((c2grdl(i,j),j=1,30),i= 11, 20)/
     & 0.14589E-02, 0.29807E-02, 0.45449E-02, 0.66085E-02, 0.93771E-02,
     & 0.13021E-01, 0.17613E-01, 0.23342E-01, 0.29810E-01, 0.37210E-01,
     & 0.45467E-01, 0.54454E-01, 0.64100E-01, 0.74349E-01, 0.85128E-01,
     & 0.96416E-01, 0.10824E+00, 0.12057E+00, 0.13351E+00, 0.14715E+00,
     & 0.16180E+00, 0.17724E+00, 0.19333E+00, 0.20942E+00, 0.22551E+00,
     & 0.24160E+00, 0.25770E+00, 0.27379E+00, 0.28988E+00, 0.30597E+00,
     & 0.14467E-02, 0.29332E-02, 0.44636E-02, 0.64911E-02, 0.92094E-02,
     & 0.12786E-01, 0.17294E-01, 0.22911E-01, 0.29255E-01, 0.36505E-01,
     & 0.44591E-01, 0.53388E-01, 0.62825E-01, 0.72848E-01, 0.83386E-01,
     & 0.94417E-01, 0.10596E+00, 0.11801E+00, 0.13065E+00, 0.14397E+00,
     & 0.15826E+00, 0.17334E+00, 0.18905E+00, 0.20477E+00, 0.22048E+00,
     & 0.23620E+00, 0.25191E+00, 0.26763E+00, 0.28334E+00, 0.29906E+00,
     & 0.14199E-02, 0.28811E-02, 0.43835E-02, 0.63753E-02, 0.90444E-02,
     & 0.12554E-01, 0.16979E-01, 0.22487E-01, 0.28707E-01, 0.35810E-01,
     & 0.43728E-01, 0.52336E-01, 0.61566E-01, 0.71366E-01, 0.81666E-01,
     & 0.92446E-01, 0.10372E+00, 0.11549E+00, 0.12783E+00, 0.14083E+00,
     & 0.15478E+00, 0.16949E+00, 0.18484E+00, 0.20018E+00, 0.21553E+00,
     & 0.23087E+00, 0.24622E+00, 0.26156E+00, 0.27691E+00, 0.29225E+00,
     & 0.13943E-02, 0.28300E-02, 0.43050E-02, 0.62610E-02, 0.88825E-02,
     & 0.12326E-01, 0.16668E-01, 0.22070E-01, 0.28167E-01, 0.35125E-01,
     & 0.42878E-01, 0.51298E-01, 0.60324E-01, 0.69904E-01, 0.79967E-01,
     & 0.90499E-01, 0.10151E+00, 0.11300E+00, 0.12504E+00, 0.13774E+00,
     & 0.15134E+00, 0.16570E+00, 0.18068E+00, 0.19566E+00, 0.21064E+00,
     & 0.22561E+00, 0.24059E+00, 0.25557E+00, 0.27054E+00, 0.28552E+00,
     & 0.13668E-02, 0.27788E-02, 0.42284E-02, 0.61479E-02, 0.87229E-02,
     & 0.12100E-01, 0.16363E-01, 0.21658E-01, 0.27632E-01, 0.34450E-01,
     & 0.42040E-01, 0.50275E-01, 0.59100E-01, 0.68463E-01, 0.78295E-01,
     & 0.88581E-01, 0.99335E-01, 0.11054E+00, 0.12230E+00, 0.13468E+00,
     & 0.14796E+00, 0.16197E+00, 0.17658E+00, 0.19120E+00, 0.20581E+00,
     & 0.22043E+00, 0.23504E+00, 0.24966E+00, 0.26427E+00, 0.27889E+00,
     & 0.13414E-02, 0.27289E-02, 0.41534E-02, 0.60364E-02, 0.85654E-02,
     & 0.11878E-01, 0.16060E-01, 0.21251E-01, 0.27103E-01, 0.33783E-01,
     & 0.41211E-01, 0.49263E-01, 0.57892E-01, 0.67044E-01, 0.76646E-01,
     & 0.86691E-01, 0.97189E-01, 0.10813E+00, 0.11960E+00, 0.13168E+00,
     & 0.14462E+00, 0.15829E+00, 0.17255E+00, 0.18681E+00, 0.20107E+00,
     & 0.21533E+00, 0.22959E+00, 0.24385E+00, 0.25811E+00, 0.27237E+00,
     & 0.13163E-02, 0.26795E-02, 0.40794E-02, 0.59264E-02, 0.84105E-02,
     & 0.11659E-01, 0.15762E-01, 0.20850E-01, 0.26582E-01, 0.33126E-01,
     & 0.40392E-01, 0.48264E-01, 0.56701E-01, 0.65643E-01, 0.75021E-01,
     & 0.84828E-01, 0.95073E-01, 0.10575E+00, 0.11693E+00, 0.12872E+00,
     & 0.14134E+00, 0.15466E+00, 0.16857E+00, 0.18248E+00, 0.19638E+00,
     & 0.21029E+00, 0.22420E+00, 0.23810E+00, 0.25201E+00, 0.26592E+00,
     & 0.12906E-02, 0.26305E-02, 0.40062E-02, 0.58177E-02, 0.82574E-02,
     & 0.11443E-01, 0.15468E-01, 0.20454E-01, 0.26067E-01, 0.32475E-01,
     & 0.39580E-01, 0.47280E-01, 0.55528E-01, 0.64263E-01, 0.73418E-01,
     & 0.82988E-01, 0.92985E-01, 0.10340E+00, 0.11431E+00, 0.12580E+00,
     & 0.13809E+00, 0.15108E+00, 0.16464E+00, 0.17820E+00, 0.19175E+00,
     & 0.20531E+00, 0.21887E+00, 0.23242E+00, 0.24598E+00, 0.25954E+00,
     & 0.12663E-02, 0.25825E-02, 0.39340E-02, 0.57108E-02, 0.81063E-02,
     & 0.11230E-01, 0.15177E-01, 0.20063E-01, 0.25559E-01, 0.31833E-01,
     & 0.38777E-01, 0.46308E-01, 0.54370E-01, 0.62901E-01, 0.71838E-01,
     & 0.81176E-01, 0.90927E-01, 0.10108E+00, 0.11172E+00, 0.12292E+00,
     & 0.13490E+00, 0.14756E+00, 0.16078E+00, 0.17399E+00, 0.18721E+00,
     & 0.20042E+00, 0.21364E+00, 0.22686E+00, 0.24007E+00, 0.25329E+00,
     & 0.12440E-02, 0.25359E-02, 0.38628E-02, 0.56057E-02, 0.79570E-02,
     & 0.11019E-01, 0.14891E-01, 0.19677E-01, 0.25058E-01, 0.31199E-01,
     & 0.37986E-01, 0.45348E-01, 0.53227E-01, 0.61556E-01, 0.70278E-01,
     & 0.79387E-01, 0.88897E-01, 0.98796E-01, 0.10916E+00, 0.12008E+00,
     & 0.13175E+00, 0.14409E+00, 0.15697E+00, 0.16985E+00, 0.18273E+00,
     & 0.19560E+00, 0.20848E+00, 0.22136E+00, 0.23424E+00, 0.24712E+00/

      data ((c2grdl(i,j),j=1,30),i= 21, 30)/
     & 0.12231E-02, 0.24905E-02, 0.37926E-02, 0.55024E-02, 0.78094E-02,
     & 0.10812E-01, 0.14608E-01, 0.19296E-01, 0.24564E-01, 0.30570E-01,
     & 0.37207E-01, 0.44403E-01, 0.52097E-01, 0.60227E-01, 0.68736E-01,
     & 0.77619E-01, 0.86891E-01, 0.96539E-01, 0.10664E+00, 0.11727E+00,
     & 0.12865E+00, 0.14066E+00, 0.15320E+00, 0.16574E+00, 0.17828E+00,
     & 0.19082E+00, 0.20336E+00, 0.21590E+00, 0.22844E+00, 0.24098E+00,
     & 0.12004E-02, 0.24450E-02, 0.37234E-02, 0.54012E-02, 0.76637E-02,
     & 0.10608E-01, 0.14330E-01, 0.18921E-01, 0.24078E-01, 0.29951E-01,
     & 0.36440E-01, 0.43473E-01, 0.50985E-01, 0.58916E-01, 0.67215E-01,
     & 0.75871E-01, 0.84908E-01, 0.94309E-01, 0.10415E+00, 0.11450E+00,
     & 0.12558E+00, 0.13727E+00, 0.14947E+00, 0.16167E+00, 0.17388E+00,
     & 0.18608E+00, 0.19828E+00, 0.21049E+00, 0.22269E+00, 0.23489E+00,
     & 0.11827E-02, 0.24022E-02, 0.36553E-02, 0.53023E-02, 0.75199E-02,
     & 0.10408E-01, 0.14055E-01, 0.18551E-01, 0.23599E-01, 0.29341E-01,
     & 0.35684E-01, 0.42556E-01, 0.49888E-01, 0.57622E-01, 0.65714E-01,
     & 0.74150E-01, 0.82953E-01, 0.92110E-01, 0.10169E+00, 0.11177E+00,
     & 0.12255E+00, 0.13393E+00, 0.14580E+00, 0.15766E+00, 0.16953E+00,
     & 0.18140E+00, 0.19327E+00, 0.20514E+00, 0.21700E+00, 0.22887E+00,
     & 0.11619E-02, 0.23588E-02, 0.35884E-02, 0.52053E-02, 0.73782E-02,
     & 0.10212E-01, 0.13783E-01, 0.18187E-01, 0.23126E-01, 0.28741E-01,
     & 0.34940E-01, 0.41652E-01, 0.48806E-01, 0.56345E-01, 0.64234E-01,
     & 0.72454E-01, 0.81028E-01, 0.89945E-01, 0.99273E-01, 0.10908E+00,
     & 0.11957E+00, 0.13064E+00, 0.14218E+00, 0.15373E+00, 0.16527E+00,
     & 0.17681E+00, 0.18836E+00, 0.19990E+00, 0.21145E+00, 0.22299E+00,
     & 0.11436E-02, 0.23171E-02, 0.35226E-02, 0.51097E-02, 0.72386E-02,
     & 0.10019E-01, 0.13516E-01, 0.17828E-01, 0.22660E-01, 0.28149E-01,
     & 0.34208E-01, 0.40762E-01, 0.47739E-01, 0.55084E-01, 0.62772E-01,
     & 0.70784E-01, 0.79131E-01, 0.87810E-01, 0.96889E-01, 0.10642E+00,
     & 0.11662E+00, 0.12739E+00, 0.13862E+00, 0.14985E+00, 0.16108E+00,
     & 0.17230E+00, 0.18353E+00, 0.19476E+00, 0.20599E+00, 0.21722E+00,
     & 0.11244E-02, 0.22756E-02, 0.34582E-02, 0.50154E-02, 0.71012E-02,
     & 0.98284E-02, 0.13252E-01, 0.17474E-01, 0.22201E-01, 0.27566E-01,
     & 0.33487E-01, 0.39884E-01, 0.46686E-01, 0.53843E-01, 0.61333E-01,
     & 0.69140E-01, 0.77265E-01, 0.85709E-01, 0.94540E-01, 0.10381E+00,
     & 0.11373E+00, 0.12420E+00, 0.13511E+00, 0.14603E+00, 0.15695E+00,
     & 0.16787E+00, 0.17879E+00, 0.18971E+00, 0.20063E+00, 0.21154E+00,
     & 0.11099E-02, 0.22368E-02, 0.33951E-02, 0.49225E-02, 0.69662E-02,
     & 0.96405E-02, 0.12991E-01, 0.17125E-01, 0.21748E-01, 0.26991E-01,
     & 0.32776E-01, 0.39017E-01, 0.45646E-01, 0.52622E-01, 0.59917E-01,
     & 0.67521E-01, 0.75427E-01, 0.83640E-01, 0.92227E-01, 0.10124E+00,
     & 0.11088E+00, 0.12105E+00, 0.13166E+00, 0.14227E+00, 0.15289E+00,
     & 0.16350E+00, 0.17411E+00, 0.18472E+00, 0.19533E+00, 0.20594E+00,
     & 0.10920E-02, 0.21974E-02, 0.33331E-02, 0.48310E-02, 0.68336E-02,
     & 0.94553E-02, 0.12734E-01, 0.16780E-01, 0.21302E-01, 0.26425E-01,
     & 0.32075E-01, 0.38163E-01, 0.44620E-01, 0.51419E-01, 0.58522E-01,
     & 0.65925E-01, 0.73616E-01, 0.81602E-01, 0.89949E-01, 0.98710E-01,
     & 0.10807E+00, 0.11796E+00, 0.12826E+00, 0.13857E+00, 0.14888E+00,
     & 0.15919E+00, 0.16950E+00, 0.17981E+00, 0.19012E+00, 0.20043E+00,
     & 0.10738E-02, 0.21585E-02, 0.32725E-02, 0.47410E-02, 0.67038E-02,
     & 0.92726E-02, 0.12480E-01, 0.16440E-01, 0.20863E-01, 0.25867E-01,
     & 0.31383E-01, 0.37319E-01, 0.43610E-01, 0.50234E-01, 0.57148E-01,
     & 0.64352E-01, 0.71831E-01, 0.79593E-01, 0.87703E-01, 0.96211E-01,
     & 0.10531E+00, 0.11490E+00, 0.12491E+00, 0.13491E+00, 0.14492E+00,
     & 0.15493E+00, 0.16493E+00, 0.17494E+00, 0.18494E+00, 0.19495E+00,
     & 0.10559E-02, 0.21203E-02, 0.32133E-02, 0.46525E-02, 0.65770E-02,
     & 0.90922E-02, 0.12231E-01, 0.16105E-01, 0.20430E-01, 0.25318E-01,
     & 0.30703E-01, 0.36485E-01, 0.42617E-01, 0.49068E-01, 0.55795E-01,
     & 0.62802E-01, 0.70073E-01, 0.77613E-01, 0.85491E-01, 0.93748E-01,
     & 0.10258E+00, 0.11189E+00, 0.12160E+00, 0.13131E+00, 0.14102E+00,
     & 0.15073E+00, 0.16044E+00, 0.17015E+00, 0.17986E+00, 0.18957E+00/

      data ((c2grdl(i,j),j=1,30),i= 31, 40)/
     & 0.10422E-02, 0.20844E-02, 0.31552E-02, 0.45654E-02, 0.64523E-02,
     & 0.89142E-02, 0.11987E-01, 0.15774E-01, 0.20002E-01, 0.24778E-01,
     & 0.30032E-01, 0.35665E-01, 0.41639E-01, 0.47919E-01, 0.54463E-01,
     & 0.61276E-01, 0.68340E-01, 0.75663E-01, 0.83309E-01, 0.91324E-01,
     & 0.99896E-01, 0.10893E+00, 0.11835E+00, 0.12776E+00, 0.13718E+00,
     & 0.14660E+00, 0.15602E+00, 0.16544E+00, 0.17486E+00, 0.18428E+00,
     & 0.10232E-02, 0.20470E-02, 0.30982E-02, 0.44801E-02, 0.63300E-02,
     & 0.87394E-02, 0.11748E-01, 0.15449E-01, 0.19580E-01, 0.24244E-01,
     & 0.29370E-01, 0.34858E-01, 0.40676E-01, 0.46789E-01, 0.53152E-01,
     & 0.59772E-01, 0.66634E-01, 0.73741E-01, 0.81161E-01, 0.88938E-01,
     & 0.97255E-01, 0.10601E+00, 0.11514E+00, 0.12427E+00, 0.13340E+00,
     & 0.14253E+00, 0.15166E+00, 0.16079E+00, 0.16992E+00, 0.17905E+00,
     & 0.10068E-02, 0.20112E-02, 0.30425E-02, 0.43967E-02, 0.62097E-02,
     & 0.85674E-02, 0.11513E-01, 0.15128E-01, 0.19165E-01, 0.23717E-01,
     & 0.28716E-01, 0.34064E-01, 0.39729E-01, 0.45677E-01, 0.51862E-01,
     & 0.58292E-01, 0.64954E-01, 0.71848E-01, 0.79045E-01, 0.86590E-01,
     & 0.94652E-01, 0.10314E+00, 0.11198E+00, 0.12083E+00, 0.12967E+00,
     & 0.13852E+00, 0.14736E+00, 0.15621E+00, 0.16505E+00, 0.17390E+00,
     & 0.99536E-03, 0.19782E-02, 0.29879E-02, 0.43147E-02, 0.60913E-02,
     & 0.83984E-02, 0.11282E-01, 0.14814E-01, 0.18758E-01, 0.23197E-01,
     & 0.28070E-01, 0.33279E-01, 0.38795E-01, 0.44582E-01, 0.50593E-01,
     & 0.56836E-01, 0.63302E-01, 0.69988E-01, 0.76965E-01, 0.84281E-01,
     & 0.92091E-01, 0.10031E+00, 0.10888E+00, 0.11745E+00, 0.12602E+00,
     & 0.13459E+00, 0.14316E+00, 0.15173E+00, 0.16030E+00, 0.16887E+00,
     & 0.97823E-03, 0.19435E-02, 0.29344E-02, 0.42349E-02, 0.59749E-02,
     & 0.82324E-02, 0.11055E-01, 0.14506E-01, 0.18358E-01, 0.22688E-01,
     & 0.27435E-01, 0.32507E-01, 0.37873E-01, 0.43498E-01, 0.49337E-01,
     & 0.55398E-01, 0.61671E-01, 0.68155E-01, 0.74918E-01, 0.82009E-01,
     & 0.89570E-01, 0.97529E-01, 0.10583E+00, 0.11413E+00, 0.12244E+00,
     & 0.13074E+00, 0.13904E+00, 0.14734E+00, 0.15565E+00, 0.16395E+00,
     & 0.96501E-03, 0.19109E-02, 0.28822E-02, 0.41564E-02, 0.58607E-02,
     & 0.80696E-02, 0.10833E-01, 0.14203E-01, 0.17964E-01, 0.22188E-01,
     & 0.26811E-01, 0.31746E-01, 0.36964E-01, 0.42431E-01, 0.48100E-01,
     & 0.53974E-01, 0.60057E-01, 0.66338E-01, 0.72888E-01, 0.79756E-01,
     & 0.87070E-01, 0.94773E-01, 0.10281E+00, 0.11085E+00, 0.11889E+00,
     & 0.12693E+00, 0.13497E+00, 0.14301E+00, 0.15105E+00, 0.15909E+00,
     & 0.95466E-03, 0.18802E-02, 0.28313E-02, 0.40798E-02, 0.57485E-02,
     & 0.79101E-02, 0.10613E-01, 0.13905E-01, 0.17577E-01, 0.21696E-01,
     & 0.26197E-01, 0.31000E-01, 0.36071E-01, 0.41380E-01, 0.46880E-01,
     & 0.52571E-01, 0.58465E-01, 0.64551E-01, 0.70892E-01, 0.77538E-01,
     & 0.84611E-01, 0.92062E-01, 0.99844E-01, 0.10763E+00, 0.11541E+00,
     & 0.12319E+00, 0.13097E+00, 0.13875E+00, 0.14653E+00, 0.15431E+00,
     & 0.93967E-03, 0.18484E-02, 0.27813E-02, 0.40050E-02, 0.56384E-02,
     & 0.77535E-02, 0.10398E-01, 0.13614E-01, 0.17195E-01, 0.21212E-01,
     & 0.25593E-01, 0.30264E-01, 0.35193E-01, 0.40347E-01, 0.45681E-01,
     & 0.51192E-01, 0.56900E-01, 0.62791E-01, 0.68928E-01, 0.75354E-01,
     & 0.82190E-01, 0.89393E-01, 0.96918E-01, 0.10444E+00, 0.11197E+00,
     & 0.11949E+00, 0.12702E+00, 0.13454E+00, 0.14207E+00, 0.14960E+00,
     & 0.92729E-03, 0.18182E-02, 0.27327E-02, 0.39316E-02, 0.55306E-02,
     & 0.76010E-02, 0.10185E-01, 0.13328E-01, 0.16820E-01, 0.20736E-01,
     & 0.24999E-01, 0.29542E-01, 0.34330E-01, 0.39330E-01, 0.44502E-01,
     & 0.49838E-01, 0.55363E-01, 0.61064E-01, 0.66999E-01, 0.73211E-01,
     & 0.79813E-01, 0.86773E-01, 0.94044E-01, 0.10132E+00, 0.10859E+00,
     & 0.11586E+00, 0.12313E+00, 0.13040E+00, 0.13767E+00, 0.14495E+00,
     & 0.91363E-03, 0.17879E-02, 0.26854E-02, 0.38598E-02, 0.54251E-02,
     & 0.74518E-02, 0.99757E-02, 0.13046E-01, 0.16450E-01, 0.20267E-01,
     & 0.24414E-01, 0.28829E-01, 0.33480E-01, 0.38328E-01, 0.43340E-01,
     & 0.48507E-01, 0.53852E-01, 0.59364E-01, 0.65102E-01, 0.71101E-01,
     & 0.77475E-01, 0.84195E-01, 0.91216E-01, 0.98238E-01, 0.10526E+00,
     & 0.11228E+00, 0.11930E+00, 0.12632E+00, 0.13335E+00, 0.14037E+00/

      data ((c2grdl(i,j),j=1,30),i= 41, 50)/
     & 0.89834E-03, 0.17575E-02, 0.26391E-02, 0.37896E-02, 0.53220E-02,
     & 0.73048E-02, 0.97704E-02, 0.12768E-01, 0.16087E-01, 0.19806E-01,
     & 0.23839E-01, 0.28129E-01, 0.32643E-01, 0.37341E-01, 0.42194E-01,
     & 0.47198E-01, 0.52366E-01, 0.57694E-01, 0.63235E-01, 0.69028E-01,
     & 0.75177E-01, 0.81660E-01, 0.88434E-01, 0.95207E-01, 0.10198E+00,
     & 0.10875E+00, 0.11553E+00, 0.12230E+00, 0.12907E+00, 0.13585E+00,
     & 0.88698E-03, 0.17292E-02, 0.25937E-02, 0.37208E-02, 0.52212E-02,
     & 0.71608E-02, 0.95689E-02, 0.12495E-01, 0.15730E-01, 0.19353E-01,
     & 0.23275E-01, 0.27442E-01, 0.31820E-01, 0.36370E-01, 0.41068E-01,
     & 0.45911E-01, 0.50905E-01, 0.56051E-01, 0.61399E-01, 0.66988E-01,
     & 0.72916E-01, 0.79166E-01, 0.85693E-01, 0.92220E-01, 0.98747E-01,
     & 0.10527E+00, 0.11180E+00, 0.11833E+00, 0.12485E+00, 0.13138E+00,
     & 0.87437E-03, 0.17008E-02, 0.25492E-02, 0.36542E-02, 0.51228E-02,
     & 0.70197E-02, 0.93714E-02, 0.12227E-01, 0.15379E-01, 0.18907E-01,
     & 0.22719E-01, 0.26767E-01, 0.31013E-01, 0.35418E-01, 0.39962E-01,
     & 0.44646E-01, 0.49469E-01, 0.54435E-01, 0.59594E-01, 0.64982E-01,
     & 0.70692E-01, 0.76713E-01, 0.82997E-01, 0.89282E-01, 0.95566E-01,
     & 0.10185E+00, 0.10814E+00, 0.11442E+00, 0.12070E+00, 0.12699E+00,
     & 0.86018E-03, 0.16722E-02, 0.25056E-02, 0.35889E-02, 0.50263E-02,
     & 0.68811E-02, 0.91779E-02, 0.11963E-01, 0.15036E-01, 0.18468E-01,
     & 0.22172E-01, 0.26103E-01, 0.30218E-01, 0.34483E-01, 0.38877E-01,
     & 0.43405E-01, 0.48060E-01, 0.52851E-01, 0.57824E-01, 0.63014E-01,
     & 0.68512E-01, 0.74307E-01, 0.80353E-01, 0.86399E-01, 0.92446E-01,
     & 0.98492E-01, 0.10454E+00, 0.11058E+00, 0.11663E+00, 0.12268E+00,
     & 0.84852E-03, 0.16450E-02, 0.24627E-02, 0.35250E-02, 0.49321E-02,
     & 0.67454E-02, 0.89883E-02, 0.11704E-01, 0.14700E-01, 0.18038E-01,
     & 0.21636E-01, 0.25451E-01, 0.29437E-01, 0.33564E-01, 0.37810E-01,
     & 0.42184E-01, 0.46676E-01, 0.51293E-01, 0.56084E-01, 0.61079E-01,
     & 0.66368E-01, 0.71942E-01, 0.77755E-01, 0.83568E-01, 0.89381E-01,
     & 0.95194E-01, 0.10101E+00, 0.10682E+00, 0.11263E+00, 0.11845E+00,
     & 0.83696E-03, 0.16184E-02, 0.24205E-02, 0.34628E-02, 0.48400E-02,
     & 0.66132E-02, 0.88034E-02, 0.11450E-01, 0.14369E-01, 0.17614E-01,
     & 0.21109E-01, 0.24811E-01, 0.28670E-01, 0.32660E-01, 0.36762E-01,
     & 0.40984E-01, 0.45314E-01, 0.49761E-01, 0.54372E-01, 0.59176E-01,
     & 0.64259E-01, 0.69615E-01, 0.75202E-01, 0.80788E-01, 0.86374E-01,
     & 0.91960E-01, 0.97546E-01, 0.10313E+00, 0.10872E+00, 0.11430E+00,
     & 0.82087E-03, 0.15904E-02, 0.23791E-02, 0.34017E-02, 0.47501E-02,
     & 0.64835E-02, 0.86227E-02, 0.11202E-01, 0.14045E-01, 0.17199E-01,
     & 0.20593E-01, 0.24183E-01, 0.27916E-01, 0.31773E-01, 0.35732E-01,
     & 0.39804E-01, 0.43975E-01, 0.48256E-01, 0.52689E-01, 0.57304E-01,
     & 0.62187E-01, 0.67329E-01, 0.72692E-01, 0.78055E-01, 0.83418E-01,
     & 0.88781E-01, 0.94143E-01, 0.99506E-01, 0.10487E+00, 0.11023E+00,
     & 0.80811E-03, 0.15638E-02, 0.23387E-02, 0.33418E-02, 0.46624E-02,
     & 0.63564E-02, 0.84457E-02, 0.10959E-01, 0.13728E-01, 0.16791E-01,
     & 0.20090E-01, 0.23565E-01, 0.27175E-01, 0.30902E-01, 0.34721E-01,
     & 0.38645E-01, 0.42660E-01, 0.46773E-01, 0.51033E-01, 0.55459E-01,
     & 0.60148E-01, 0.65080E-01, 0.70222E-01, 0.75364E-01, 0.80507E-01,
     & 0.85649E-01, 0.90791E-01, 0.95933E-01, 0.10108E+00, 0.10622E+00,
     & 0.79522E-03, 0.15376E-02, 0.22989E-02, 0.32832E-02, 0.45766E-02,
     & 0.62330E-02, 0.82726E-02, 0.10721E-01, 0.13416E-01, 0.16392E-01,
     & 0.19595E-01, 0.22958E-01, 0.26448E-01, 0.30046E-01, 0.33728E-01,
     & 0.37506E-01, 0.41368E-01, 0.45317E-01, 0.49403E-01, 0.53648E-01,
     & 0.58147E-01, 0.62871E-01, 0.67794E-01, 0.72717E-01, 0.77640E-01,
     & 0.82564E-01, 0.87487E-01, 0.92410E-01, 0.97333E-01, 0.10226E+00,
     & 0.77605E-03, 0.15091E-02, 0.22594E-02, 0.32252E-02, 0.44925E-02,
     & 0.61124E-02, 0.81031E-02, 0.10490E-01, 0.13112E-01, 0.16002E-01,
     & 0.19109E-01, 0.22364E-01, 0.25735E-01, 0.29206E-01, 0.32753E-01,
     & 0.36388E-01, 0.40098E-01, 0.43886E-01, 0.47802E-01, 0.51869E-01,
     & 0.56181E-01, 0.60700E-01, 0.65407E-01, 0.70114E-01, 0.74821E-01,
     & 0.79527E-01, 0.84234E-01, 0.88941E-01, 0.93648E-01, 0.98355E-01/

      data ((c2grdl(i,j),j=1,30),i= 51, 60)/
     & 0.75766E-03, 0.14807E-02, 0.22206E-02, 0.31682E-02, 0.44107E-02,
     & 0.59947E-02, 0.79374E-02, 0.10263E-01, 0.12814E-01, 0.15622E-01,
     & 0.18633E-01, 0.21779E-01, 0.25036E-01, 0.28383E-01, 0.31797E-01,
     & 0.35291E-01, 0.38853E-01, 0.42484E-01, 0.46233E-01, 0.50125E-01,
     & 0.54252E-01, 0.58568E-01, 0.63059E-01, 0.67549E-01, 0.72039E-01,
     & 0.76529E-01, 0.81019E-01, 0.85509E-01, 0.89999E-01, 0.94490E-01,
     & 0.74369E-03, 0.14541E-02, 0.21819E-02, 0.31122E-02, 0.43303E-02,
     & 0.58794E-02, 0.77756E-02, 0.10041E-01, 0.12522E-01, 0.15250E-01,
     & 0.18165E-01, 0.21207E-01, 0.24350E-01, 0.27573E-01, 0.30858E-01,
     & 0.34214E-01, 0.37630E-01, 0.41109E-01, 0.44695E-01, 0.48416E-01,
     & 0.52361E-01, 0.56479E-01, 0.60756E-01, 0.65033E-01, 0.69310E-01,
     & 0.73587E-01, 0.77864E-01, 0.82141E-01, 0.86418E-01, 0.90695E-01,
     & 0.72134E-03, 0.14241E-02, 0.21429E-02, 0.30571E-02, 0.42511E-02,
     & 0.57666E-02, 0.76174E-02, 0.98240E-02, 0.12235E-01, 0.14885E-01,
     & 0.17706E-01, 0.20645E-01, 0.23677E-01, 0.26781E-01, 0.29938E-01,
     & 0.33157E-01, 0.36428E-01, 0.39756E-01, 0.43185E-01, 0.46737E-01,
     & 0.50501E-01, 0.54425E-01, 0.58495E-01, 0.62565E-01, 0.66635E-01,
     & 0.70705E-01, 0.74775E-01, 0.78844E-01, 0.82914E-01, 0.86984E-01,
     & 0.69631E-03, 0.13924E-02, 0.21039E-02, 0.30034E-02, 0.41735E-02,
     & 0.56559E-02, 0.74629E-02, 0.96115E-02, 0.11955E-01, 0.14526E-01,
     & 0.17257E-01, 0.20095E-01, 0.23018E-01, 0.26005E-01, 0.29037E-01,
     & 0.32122E-01, 0.35251E-01, 0.38433E-01, 0.41706E-01, 0.45095E-01,
     & 0.48676E-01, 0.52413E-01, 0.56286E-01, 0.60159E-01, 0.64032E-01,
     & 0.67904E-01, 0.71777E-01, 0.75650E-01, 0.79523E-01, 0.83396E-01,
     & 0.67202E-03, 0.13602E-02, 0.20644E-02, 0.29500E-02, 0.40971E-02,
     & 0.55478E-02, 0.73120E-02, 0.94038E-02, 0.11681E-01, 0.14176E-01,
     & 0.16816E-01, 0.19556E-01, 0.22372E-01, 0.25245E-01, 0.28153E-01,
     & 0.31108E-01, 0.34100E-01, 0.37136E-01, 0.40257E-01, 0.43485E-01,
     & 0.46887E-01, 0.50441E-01, 0.54126E-01, 0.57812E-01, 0.61497E-01,
     & 0.65183E-01, 0.68868E-01, 0.72554E-01, 0.76239E-01, 0.79925E-01,
     & 0.64180E-03, 0.13252E-02, 0.20234E-02, 0.28968E-02, 0.40218E-02,
     & 0.54410E-02, 0.71638E-02, 0.92005E-02, 0.11413E-01, 0.13832E-01,
     & 0.16384E-01, 0.19029E-01, 0.21740E-01, 0.24501E-01, 0.27288E-01,
     & 0.30114E-01, 0.32970E-01, 0.35865E-01, 0.38837E-01, 0.41907E-01,
     & 0.45133E-01, 0.48507E-01, 0.52006E-01, 0.55506E-01, 0.59005E-01,
     & 0.62505E-01, 0.66004E-01, 0.69503E-01, 0.73003E-01, 0.76502E-01,
     & 0.61055E-03, 0.12887E-02, 0.19812E-02, 0.28441E-02, 0.39479E-02,
     & 0.53366E-02, 0.70195E-02, 0.90018E-02, 0.11152E-01, 0.13496E-01,
     & 0.15962E-01, 0.18512E-01, 0.21123E-01, 0.23772E-01, 0.26440E-01,
     & 0.29140E-01, 0.31864E-01, 0.34620E-01, 0.37446E-01, 0.40361E-01,
     & 0.43416E-01, 0.46614E-01, 0.49932E-01, 0.53250E-01, 0.56568E-01,
     & 0.59885E-01, 0.63203E-01, 0.66521E-01, 0.69839E-01, 0.73157E-01,
     & 0.57113E-03, 0.12478E-02, 0.19377E-02, 0.27910E-02, 0.38751E-02,
     & 0.52346E-02, 0.68776E-02, 0.88074E-02, 0.10897E-01, 0.13167E-01,
     & 0.15550E-01, 0.18008E-01, 0.20519E-01, 0.23058E-01, 0.25609E-01,
     & 0.28186E-01, 0.30781E-01, 0.33401E-01, 0.36084E-01, 0.38846E-01,
     & 0.41734E-01, 0.44759E-01, 0.47900E-01, 0.51041E-01, 0.54183E-01,
     & 0.57324E-01, 0.60465E-01, 0.63606E-01, 0.66747E-01, 0.69888E-01,
     & 0.52387E-03, 0.12016E-02, 0.18922E-02, 0.27367E-02, 0.38033E-02,
     & 0.51344E-02, 0.67378E-02, 0.86172E-02, 0.10648E-01, 0.12846E-01,
     & 0.15147E-01, 0.17516E-01, 0.19927E-01, 0.22359E-01, 0.24796E-01,
     & 0.27253E-01, 0.29721E-01, 0.32206E-01, 0.34749E-01, 0.37362E-01,
     & 0.40087E-01, 0.42944E-01, 0.45909E-01, 0.48875E-01, 0.51840E-01,
     & 0.54806E-01, 0.57771E-01, 0.60737E-01, 0.63702E-01, 0.66668E-01,
     & 0.47267E-03, 0.11519E-02, 0.18436E-02, 0.26812E-02, 0.37319E-02,
     & 0.50354E-02, 0.66008E-02, 0.84304E-02, 0.10403E-01, 0.12533E-01,
     & 0.14754E-01, 0.17036E-01, 0.19350E-01, 0.21675E-01, 0.24000E-01,
     & 0.26339E-01, 0.28683E-01, 0.31037E-01, 0.33443E-01, 0.35908E-01,
     & 0.38477E-01, 0.41166E-01, 0.43958E-01, 0.46749E-01, 0.49541E-01,
     & 0.52332E-01, 0.55123E-01, 0.57915E-01, 0.60706E-01, 0.63497E-01/

      data ((c2grdl(i,j),j=1,30),i= 61, 70)/
     & 0.41266E-03, 0.10960E-02, 0.17910E-02, 0.26238E-02, 0.36611E-02,
     & 0.49390E-02, 0.64665E-02, 0.82480E-02, 0.10164E-01, 0.12225E-01,
     & 0.14372E-01, 0.16567E-01, 0.18784E-01, 0.21006E-01, 0.23222E-01,
     & 0.25446E-01, 0.27669E-01, 0.29895E-01, 0.32164E-01, 0.34485E-01,
     & 0.36902E-01, 0.39429E-01, 0.42052E-01, 0.44675E-01, 0.47298E-01,
     & 0.49921E-01, 0.52545E-01, 0.55168E-01, 0.57791E-01, 0.60414E-01,
     & 0.34865E-03, 0.10357E-02, 0.17342E-02, 0.25645E-02, 0.35897E-02,
     & 0.48434E-02, 0.63348E-02, 0.80686E-02, 0.99295E-02, 0.11924E-01,
     & 0.13998E-01, 0.16107E-01, 0.18230E-01, 0.20352E-01, 0.22462E-01,
     & 0.24572E-01, 0.26678E-01, 0.28777E-01, 0.30914E-01, 0.33092E-01,
     & 0.35363E-01, 0.37730E-01, 0.40186E-01, 0.42642E-01, 0.45099E-01,
     & 0.47555E-01, 0.50011E-01, 0.52467E-01, 0.54923E-01, 0.57379E-01,
     & 0.27817E-03, 0.96953E-03, 0.16721E-02, 0.25029E-02, 0.35166E-02,
     & 0.47479E-02, 0.62059E-02, 0.78925E-02, 0.96985E-02, 0.11631E-01,
     & 0.13629E-01, 0.15655E-01, 0.17688E-01, 0.19712E-01, 0.21718E-01,
     & 0.23718E-01, 0.25708E-01, 0.27684E-01, 0.29690E-01, 0.31732E-01,
     & 0.33858E-01, 0.36068E-01, 0.38359E-01, 0.40651E-01, 0.42943E-01,
     & 0.45234E-01, 0.47526E-01, 0.49817E-01, 0.52109E-01, 0.54400E-01,
     & 0.20283E-03, 0.89803E-03, 0.16047E-02, 0.24377E-02, 0.34418E-02,
     & 0.46538E-02, 0.60793E-02, 0.77197E-02, 0.94724E-02, 0.11342E-01,
     & 0.13269E-01, 0.15212E-01, 0.17156E-01, 0.19084E-01, 0.20989E-01,
     & 0.22882E-01, 0.24759E-01, 0.26615E-01, 0.28494E-01, 0.30401E-01,
     & 0.32385E-01, 0.34440E-01, 0.36567E-01, 0.38694E-01, 0.40820E-01,
     & 0.42947E-01, 0.45074E-01, 0.47200E-01, 0.49327E-01, 0.51454E-01,
     & 0.88248E-04, 0.80645E-03, 0.15310E-02, 0.23669E-02, 0.33646E-02,
     & 0.45597E-02, 0.59546E-02, 0.75507E-02, 0.92508E-02, 0.11058E-01,
     & 0.12913E-01, 0.14779E-01, 0.16634E-01, 0.18469E-01, 0.20273E-01,
     & 0.22062E-01, 0.23826E-01, 0.25564E-01, 0.27319E-01, 0.29096E-01,
     & 0.30939E-01, 0.32843E-01, 0.34809E-01, 0.36776E-01, 0.38742E-01,
     & 0.40708E-01, 0.42674E-01, 0.44641E-01, 0.46607E-01, 0.48573E-01,
     &-0.10805E-04, 0.71475E-03, 0.14504E-02, 0.22907E-02, 0.32852E-02,
     & 0.44639E-02, 0.58316E-02, 0.73853E-02, 0.90344E-02, 0.10780E-01,
     & 0.12564E-01, 0.14350E-01, 0.16123E-01, 0.17867E-01, 0.19573E-01,
     & 0.21258E-01, 0.22912E-01, 0.24534E-01, 0.26166E-01, 0.27815E-01,
     & 0.29518E-01, 0.31275E-01, 0.33086E-01, 0.34897E-01, 0.36707E-01,
     & 0.38518E-01, 0.40329E-01, 0.42139E-01, 0.43950E-01, 0.45761E-01,
     &-0.12029E-03, 0.61424E-03, 0.13588E-02, 0.22074E-02, 0.32024E-02,
     & 0.43663E-02, 0.57093E-02, 0.72227E-02, 0.88229E-02, 0.10509E-01,
     & 0.12223E-01, 0.13932E-01, 0.15619E-01, 0.17274E-01, 0.18885E-01,
     & 0.20470E-01, 0.22016E-01, 0.23526E-01, 0.25038E-01, 0.26561E-01,
     & 0.28126E-01, 0.29740E-01, 0.31403E-01, 0.33067E-01, 0.34730E-01,
     & 0.36393E-01, 0.38057E-01, 0.39720E-01, 0.41383E-01, 0.43047E-01,
     &-0.24167E-03, 0.50289E-03, 0.12576E-02, 0.21173E-02, 0.31137E-02,
     & 0.42671E-02, 0.55867E-02, 0.70620E-02, 0.86154E-02, 0.10243E-01,
     & 0.11889E-01, 0.13523E-01, 0.15127E-01, 0.16694E-01, 0.18209E-01,
     & 0.19691E-01, 0.21132E-01, 0.22529E-01, 0.23925E-01, 0.25324E-01,
     & 0.26753E-01, 0.28226E-01, 0.29744E-01, 0.31261E-01, 0.32779E-01,
     & 0.34296E-01, 0.35814E-01, 0.37331E-01, 0.38849E-01, 0.40366E-01,
     &-0.38744E-03, 0.37520E-03, 0.11467E-02, 0.20186E-02, 0.30187E-02,
     & 0.41647E-02, 0.54623E-02, 0.69043E-02, 0.84122E-02, 0.99837E-02,
     & 0.11564E-01, 0.13123E-01, 0.14648E-01, 0.16127E-01, 0.17548E-01,
     & 0.18930E-01, 0.20268E-01, 0.21556E-01, 0.22836E-01, 0.24114E-01,
     & 0.25410E-01, 0.26746E-01, 0.28123E-01, 0.29500E-01, 0.30878E-01,
     & 0.32255E-01, 0.33632E-01, 0.35009E-01, 0.36386E-01, 0.37764E-01,
     &-0.51212E-03, 0.24958E-03, 0.10240E-02, 0.19104E-02, 0.29154E-02,
     & 0.40585E-02, 0.53357E-02, 0.67463E-02, 0.82124E-02, 0.97294E-02,
     & 0.11245E-01, 0.12734E-01, 0.14180E-01, 0.15573E-01, 0.16903E-01,
     & 0.18187E-01, 0.19423E-01, 0.20606E-01, 0.21773E-01, 0.22931E-01,
     & 0.24098E-01, 0.25300E-01, 0.26539E-01, 0.27778E-01, 0.29017E-01,
     & 0.30256E-01, 0.31495E-01, 0.32734E-01, 0.33973E-01, 0.35212E-01/

      data ((c2grdl(i,j),j=1,30),i= 71, 80)/
     &-0.64980E-03, 0.11235E-03, 0.88847E-03, 0.17891E-02, 0.28036E-02,
     & 0.39454E-02, 0.52074E-02, 0.65868E-02, 0.80145E-02, 0.94809E-02,
     & 0.10935E-01, 0.12355E-01, 0.13724E-01, 0.15032E-01, 0.16273E-01,
     & 0.17464E-01, 0.18601E-01, 0.19680E-01, 0.20737E-01, 0.21780E-01,
     & 0.22824E-01, 0.23895E-01, 0.24998E-01, 0.26101E-01, 0.27203E-01,
     & 0.28306E-01, 0.29409E-01, 0.30511E-01, 0.31614E-01, 0.32717E-01,
     &-0.76038E-03,-0.19397E-04, 0.74207E-03, 0.16538E-02, 0.26823E-02,
     & 0.38251E-02, 0.50764E-02, 0.64273E-02, 0.78183E-02, 0.92364E-02,
     & 0.10632E-01, 0.11984E-01, 0.13277E-01, 0.14504E-01, 0.15659E-01,
     & 0.16759E-01, 0.17800E-01, 0.18778E-01, 0.19728E-01, 0.20658E-01,
     & 0.21583E-01, 0.22527E-01, 0.23497E-01, 0.24467E-01, 0.25436E-01,
     & 0.26406E-01, 0.27376E-01, 0.28345E-01, 0.29315E-01, 0.30284E-01,
     &-0.84426E-03,-0.14304E-03, 0.58480E-03, 0.15058E-02, 0.25505E-02,
     & 0.36955E-02, 0.49401E-02, 0.62650E-02, 0.76217E-02, 0.89951E-02,
     & 0.10334E-01, 0.11620E-01, 0.12842E-01, 0.13990E-01, 0.15060E-01,
     & 0.16071E-01, 0.17019E-01, 0.17900E-01, 0.18747E-01, 0.19567E-01,
     & 0.20377E-01, 0.21198E-01, 0.22040E-01, 0.22882E-01, 0.23724E-01,
     & 0.24566E-01, 0.25408E-01, 0.26250E-01, 0.27092E-01, 0.27934E-01,
     &-0.80322E-03,-0.21498E-03, 0.42022E-03, 0.13428E-02, 0.24024E-02,
     & 0.35558E-02, 0.47962E-02, 0.61001E-02, 0.74242E-02, 0.87553E-02,
     & 0.10041E-01, 0.11265E-01, 0.12415E-01, 0.13487E-01, 0.14476E-01,
     & 0.15402E-01, 0.16259E-01, 0.17045E-01, 0.17792E-01, 0.18505E-01,
     & 0.19203E-01, 0.19905E-01, 0.20620E-01, 0.21336E-01, 0.22052E-01,
     & 0.22768E-01, 0.23484E-01, 0.24200E-01, 0.24916E-01, 0.25632E-01,
     &-0.48939E-03,-0.16288E-03, 0.25561E-03, 0.11621E-02, 0.22376E-02,
     & 0.34044E-02, 0.46429E-02, 0.59307E-02, 0.72261E-02, 0.85138E-02,
     & 0.97508E-02, 0.10915E-01, 0.11998E-01, 0.12996E-01, 0.13907E-01,
     & 0.14751E-01, 0.15519E-01, 0.16212E-01, 0.16862E-01, 0.17473E-01,
     & 0.18061E-01, 0.18647E-01, 0.19240E-01, 0.19833E-01, 0.20426E-01,
     & 0.21019E-01, 0.21612E-01, 0.22205E-01, 0.22798E-01, 0.23391E-01,
     &-0.49332E-04,-0.16989E-04, 0.10818E-03, 0.96808E-03, 0.20561E-02,
     & 0.32396E-02, 0.44781E-02, 0.57548E-02, 0.70260E-02, 0.82737E-02,
     & 0.94607E-02, 0.10569E-01, 0.11589E-01, 0.12517E-01, 0.13351E-01,
     & 0.14114E-01, 0.14797E-01, 0.15401E-01, 0.15957E-01, 0.16469E-01,
     & 0.16951E-01, 0.17425E-01, 0.17901E-01, 0.18376E-01, 0.18852E-01,
     & 0.19328E-01, 0.19804E-01, 0.20279E-01, 0.20755E-01, 0.21231E-01,
     & 0.10000E-29, 0.10000E-29, 0.18325E-04, 0.75976E-03, 0.18561E-02,
     & 0.30583E-02, 0.43017E-02, 0.55679E-02, 0.68202E-02, 0.80350E-02,
     & 0.91735E-02, 0.10224E-01, 0.11182E-01, 0.12044E-01, 0.12807E-01,
     & 0.13491E-01, 0.14091E-01, 0.14609E-01, 0.15074E-01, 0.15490E-01,
     & 0.15869E-01, 0.16236E-01, 0.16601E-01, 0.16967E-01, 0.17333E-01,
     & 0.17699E-01, 0.18065E-01, 0.18431E-01, 0.18797E-01, 0.19162E-01,
     & 0.10000E-29, 0.10000E-29, 0.10221E-05, 0.54429E-03, 0.16343E-02,
     & 0.28529E-02, 0.41114E-02, 0.53711E-02, 0.66077E-02, 0.77933E-02,
     & 0.88873E-02, 0.98846E-02, 0.10781E-01, 0.11575E-01, 0.12265E-01,
     & 0.12873E-01, 0.13394E-01, 0.13826E-01, 0.14203E-01, 0.14526E-01,
     & 0.14806E-01, 0.15067E-01, 0.15324E-01, 0.15580E-01, 0.15837E-01,
     & 0.16093E-01, 0.16349E-01, 0.16606E-01, 0.16862E-01, 0.17119E-01,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.33411E-03, 0.13921E-02,
     & 0.26286E-02, 0.39050E-02, 0.51604E-02, 0.63845E-02, 0.75453E-02,
     & 0.86027E-02, 0.95497E-02, 0.10387E-01, 0.11116E-01, 0.11735E-01,
     & 0.12267E-01, 0.12709E-01, 0.13059E-01, 0.13347E-01, 0.13579E-01,
     & 0.13762E-01, 0.13920E-01, 0.14068E-01, 0.14216E-01, 0.14364E-01,
     & 0.14512E-01, 0.14660E-01, 0.14808E-01, 0.14956E-01, 0.15105E-01,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.15422E-03, 0.11310E-02,
     & 0.23802E-02, 0.36739E-02, 0.49359E-02, 0.61503E-02, 0.72898E-02,
     & 0.83122E-02, 0.92155E-02, 0.99979E-02, 0.10665E-01, 0.11216E-01,
     & 0.11675E-01, 0.12040E-01, 0.12311E-01, 0.12516E-01, 0.12658E-01,
     & 0.12745E-01, 0.12804E-01, 0.12848E-01, 0.12892E-01, 0.12936E-01,
     & 0.12980E-01, 0.13024E-01, 0.13068E-01, 0.13112E-01, 0.13156E-01/

      data ((c2grdl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.30302E-04, 0.85306E-03,
     & 0.21058E-02, 0.34169E-02, 0.46906E-02, 0.59021E-02, 0.70216E-02,
     & 0.80154E-02, 0.88764E-02, 0.96114E-02, 0.10219E-01, 0.10705E-01,
     & 0.11097E-01, 0.11389E-01, 0.11582E-01, 0.11705E-01, 0.11762E-01,
     & 0.11758E-01, 0.11722E-01, 0.11667E-01, 0.11612E-01, 0.11558E-01,
     & 0.11503E-01, 0.11448E-01, 0.11393E-01, 0.11339E-01, 0.11284E-01,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19610E-05, 0.56837E-03,
     & 0.18043E-02, 0.31349E-02, 0.44215E-02, 0.56382E-02, 0.67434E-02,
     & 0.77092E-02, 0.85338E-02, 0.92190E-02, 0.97723E-02, 0.10201E-01,
     & 0.10529E-01, 0.10752E-01, 0.10871E-01, 0.10916E-01, 0.10891E-01,
     & 0.10799E-01, 0.10667E-01, 0.10512E-01, 0.10356E-01, 0.10201E-01,
     & 0.10045E-01, 0.98893E-02, 0.97337E-02, 0.95781E-02, 0.94225E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.29830E-03,
     & 0.14768E-02, 0.28231E-02, 0.41282E-02, 0.53535E-02, 0.64505E-02,
     & 0.73926E-02, 0.81815E-02, 0.88260E-02, 0.93283E-02, 0.96970E-02,
     & 0.99610E-02, 0.10115E-01, 0.10164E-01, 0.10133E-01, 0.10027E-01,
     & 0.98486E-02, 0.96275E-02, 0.93778E-02, 0.91280E-02, 0.88783E-02,
     & 0.86286E-02, 0.83788E-02, 0.81291E-02, 0.78794E-02, 0.76297E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.95988E-04,
     & 0.11274E-02, 0.24773E-02, 0.38007E-02, 0.50407E-02, 0.61405E-02,
     & 0.70648E-02, 0.78234E-02, 0.84258E-02, 0.88803E-02, 0.91963E-02,
     & 0.94004E-02, 0.94897E-02, 0.94687E-02, 0.93633E-02, 0.91796E-02,
     & 0.89174E-02, 0.86066E-02, 0.82631E-02, 0.79196E-02, 0.75761E-02,
     & 0.72327E-02, 0.68892E-02, 0.65457E-02, 0.62023E-02, 0.58588E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14949E-04,
     & 0.76734E-03, 0.20984E-02, 0.34391E-02, 0.46953E-02, 0.58065E-02,
     & 0.67195E-02, 0.74533E-02, 0.80205E-02, 0.84308E-02, 0.86949E-02,
     & 0.88403E-02, 0.88673E-02, 0.87807E-02, 0.86051E-02, 0.83463E-02,
     & 0.80036E-02, 0.76057E-02, 0.71690E-02, 0.67323E-02, 0.62957E-02,
     & 0.58590E-02, 0.54223E-02, 0.49856E-02, 0.45489E-02, 0.41122E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.85624E-06,
     & 0.41958E-03, 0.16883E-02, 0.30433E-02, 0.43159E-02, 0.54331E-02,
     & 0.63548E-02, 0.70711E-02, 0.76073E-02, 0.79781E-02, 0.81956E-02,
     & 0.82873E-02, 0.82557E-02, 0.81059E-02, 0.78632E-02, 0.75305E-02,
     & 0.71099E-02, 0.66279E-02, 0.61033E-02, 0.55788E-02, 0.50543E-02,
     & 0.45298E-02, 0.40052E-02, 0.34807E-02, 0.29562E-02, 0.24316E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.13728E-03, 0.12519E-02, 0.26056E-02, 0.38963E-02, 0.50293E-02,
     & 0.59491E-02, 0.66654E-02, 0.71838E-02, 0.75204E-02, 0.76955E-02,
     & 0.77392E-02, 0.76535E-02, 0.74454E-02, 0.71392E-02, 0.67374E-02,
     & 0.62407E-02, 0.56773E-02, 0.50649E-02, 0.44526E-02, 0.38403E-02,
     & 0.32280E-02, 0.26157E-02, 0.20034E-02, 0.13911E-02, 0.77876E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.13041E-04, 0.80719E-03, 0.21328E-02, 0.34334E-02, 0.45856E-02,
     & 0.55142E-02, 0.62236E-02, 0.67304E-02, 0.70483E-02, 0.71929E-02,
     & 0.71955E-02, 0.70610E-02, 0.67983E-02, 0.64331E-02, 0.59654E-02,
     & 0.53959E-02, 0.47563E-02, 0.40646E-02, 0.33728E-02, 0.26810E-02,
     & 0.19893E-02, 0.12975E-02, 0.60577E-03,-0.85992E-04,-0.77775E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.39225E-03, 0.16298E-02, 0.29211E-02, 0.40929E-02,
     & 0.50383E-02, 0.57536E-02, 0.62488E-02, 0.65474E-02, 0.66654E-02,
     & 0.66356E-02, 0.64620E-02, 0.61529E-02, 0.57353E-02, 0.52086E-02,
     & 0.45727E-02, 0.38603E-02, 0.30896E-02, 0.23189E-02, 0.15482E-02,
     & 0.77748E-03, 0.67755E-05,-0.76392E-03,-0.15346E-02,-0.23053E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10243E-03, 0.11195E-02, 0.23636E-02, 0.35466E-02,
     & 0.45132E-02, 0.52408E-02, 0.57392E-02, 0.60288E-02, 0.61253E-02,
     & 0.60667E-02, 0.58574E-02, 0.55073E-02, 0.50415E-02, 0.44606E-02,
     & 0.37629E-02, 0.29823E-02, 0.21381E-02, 0.12938E-02, 0.44959E-03,
     &-0.39465E-03,-0.12389E-02,-0.20831E-02,-0.29274E-02,-0.37716E-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.87919E-05, 0.65743E-03, 0.17700E-02, 0.29454E-02,
     & 0.39296E-02, 0.46754E-02, 0.51885E-02, 0.54779E-02, 0.55664E-02,
     & 0.54919E-02, 0.52579E-02, 0.48777E-02, 0.43734E-02, 0.37465E-02,
     & 0.29931E-02, 0.21522E-02, 0.12425E-02, 0.33273E-03,-0.57700E-03,
     &-0.14867E-02,-0.23965E-02,-0.33062E-02,-0.42159E-02,-0.51257E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.33498E-03, 0.11582E-02, 0.22922E-02,
     & 0.32858E-02, 0.40546E-02, 0.45802E-02, 0.48832E-02, 0.49775E-02,
     & 0.49001E-02, 0.46536E-02, 0.42531E-02, 0.37213E-02, 0.30607E-02,
     & 0.22647E-02, 0.13755E-02, 0.41377E-03,-0.54801E-03,-0.15098E-02,
     &-0.24716E-02,-0.34333E-02,-0.43951E-02,-0.53569E-02,-0.63187E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10609E-03, 0.59074E-03, 0.16007E-02,
     & 0.25824E-02, 0.33662E-02, 0.39181E-02, 0.42415E-02, 0.43474E-02,
     & 0.42777E-02, 0.40328E-02, 0.36282E-02, 0.30858E-02, 0.24078E-02,
     & 0.15869E-02, 0.66600E-03,-0.33201E-03,-0.13300E-02,-0.23280E-02,
     &-0.33260E-02,-0.43240E-02,-0.53220E-02,-0.63200E-02,-0.73180E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.10407E-04, 0.20147E-03, 0.90885E-03,
     & 0.18300E-02, 0.26131E-02, 0.31883E-02, 0.35373E-02, 0.36726E-02,
     & 0.36293E-02, 0.34061E-02, 0.30167E-02, 0.24838E-02, 0.18086E-02,
     & 0.98287E-03, 0.54644E-04,-0.95277E-03,-0.19602E-02,-0.29676E-02,
     &-0.39750E-02,-0.49824E-02,-0.59899E-02,-0.69973E-02,-0.80047E-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.25150E-04, 0.31824E-03,
     & 0.10652E-02, 0.18106E-02, 0.23928E-02, 0.27695E-02, 0.29462E-02,
     & 0.29427E-02, 0.27576E-02, 0.24065E-02, 0.19111E-02, 0.12703E-02,
     & 0.47597E-03,-0.42377E-03,-0.14041E-02,-0.23845E-02,-0.33649E-02,
     &-0.43453E-02,-0.53256E-02,-0.63060E-02,-0.72864E-02,-0.82667E-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.69158E-06, 0.33104E-04,
     & 0.38929E-03, 0.99840E-03, 0.15511E-02, 0.19454E-02, 0.21605E-02,
     & 0.22120E-02, 0.20911E-02, 0.18083E-02, 0.13849E-02, 0.81904E-03,
     & 0.10061E-03,-0.71967E-03,-0.16178E-02,-0.25159E-02,-0.34140E-02,
     &-0.43122E-02,-0.52103E-02,-0.61084E-02,-0.70065E-02,-0.79046E-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.41581E-04, 0.30973E-03, 0.73426E-03, 0.10969E-02, 0.13386E-02,
     & 0.14463E-02, 0.14059E-02, 0.12230E-02, 0.91331E-03, 0.47404E-03,
     &-0.10614E-03,-0.77880E-03,-0.15211E-02,-0.22634E-02,-0.30056E-02,
     &-0.37479E-02,-0.44902E-02,-0.52325E-02,-0.59748E-02,-0.67171E-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.30509E-04, 0.14394E-03, 0.35606E-03, 0.56244E-03,
     & 0.69394E-03, 0.72987E-03, 0.66404E-03, 0.50245E-03, 0.24251E-03,
     &-0.12674E-03,-0.56730E-03,-0.10608E-02,-0.15544E-02,-0.20479E-02,
     &-0.25415E-02,-0.30350E-02,-0.35285E-02,-0.40221E-02,-0.45156E-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.93539E-05, 0.36840E-04, 0.79498E-04,
     & 0.13481E-03, 0.17852E-03, 0.19080E-03, 0.16434E-03, 0.93556E-04,
     &-0.29493E-04,-0.18739E-03,-0.37104E-03,-0.55468E-03,-0.73832E-03,
     &-0.92197E-03,-0.11056E-02,-0.12893E-02,-0.14729E-02,-0.16565E-02,
     & 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.10747E-06, 0.24828E-05,
     & 0.85618E-05, 0.14789E-04, 0.18026E-04, 0.16934E-04, 0.10637E-04,
     &-0.19384E-05,-0.18738E-04,-0.38654E-04,-0.58570E-04,-0.78486E-04,
     &-0.98402E-04,-0.11832E-03,-0.13823E-03,-0.15815E-03,-0.17807E-03/

      data ((clgrdl(i,j),j=1,30),i=  1, 10)/
     &-0.21456E-04, 0.14779E-03, 0.32533E-03, 0.61265E-03, 0.10975E-02,
     & 0.18649E-02, 0.30066E-02, 0.46231E-02, 0.65472E-02, 0.88630E-02,
     & 0.11461E-01, 0.14251E-01, 0.17134E-01, 0.20039E-01, 0.22901E-01,
     & 0.25707E-01, 0.28442E-01, 0.31095E-01, 0.33711E-01, 0.36306E-01,
     & 0.38919E-01, 0.41606E-01, 0.44368E-01, 0.47131E-01, 0.49894E-01,
     & 0.52657E-01, 0.55419E-01, 0.58182E-01, 0.60945E-01, 0.63707E-01,
     &-0.21201E-04, 0.14545E-03, 0.32031E-03, 0.60305E-03, 0.10801E-02,
     & 0.18356E-02, 0.29577E-02, 0.45469E-02, 0.64365E-02, 0.87094E-02,
     & 0.11259E-01, 0.13995E-01, 0.16820E-01, 0.19666E-01, 0.22468E-01,
     & 0.25212E-01, 0.27887E-01, 0.30482E-01, 0.33039E-01, 0.35577E-01,
     & 0.38130E-01, 0.40757E-01, 0.43460E-01, 0.46163E-01, 0.48866E-01,
     & 0.51569E-01, 0.54272E-01, 0.56975E-01, 0.59678E-01, 0.62381E-01,
     &-0.21091E-04, 0.14307E-03, 0.31534E-03, 0.59363E-03, 0.10628E-02,
     & 0.18067E-02, 0.29093E-02, 0.44716E-02, 0.63272E-02, 0.85577E-02,
     & 0.11061E-01, 0.13743E-01, 0.16512E-01, 0.19295E-01, 0.22037E-01,
     & 0.24722E-01, 0.27339E-01, 0.29876E-01, 0.32377E-01, 0.34857E-01,
     & 0.37350E-01, 0.39917E-01, 0.42560E-01, 0.45203E-01, 0.47846E-01,
     & 0.50489E-01, 0.53131E-01, 0.55774E-01, 0.58417E-01, 0.61060E-01,
     &-0.20874E-04, 0.14076E-03, 0.31039E-03, 0.58431E-03, 0.10458E-02,
     & 0.17781E-02, 0.28615E-02, 0.43968E-02, 0.62196E-02, 0.84080E-02,
     & 0.10864E-01, 0.13494E-01, 0.16207E-01, 0.18930E-01, 0.21613E-01,
     & 0.24239E-01, 0.26798E-01, 0.29279E-01, 0.31723E-01, 0.34147E-01,
     & 0.36581E-01, 0.39089E-01, 0.41671E-01, 0.44253E-01, 0.46835E-01,
     & 0.49417E-01, 0.51999E-01, 0.54581E-01, 0.57163E-01, 0.59745E-01,
     &-0.20661E-04, 0.13846E-03, 0.30548E-03, 0.57508E-03, 0.10289E-02,
     & 0.17501E-02, 0.28143E-02, 0.43229E-02, 0.61134E-02, 0.82597E-02,
     & 0.10670E-01, 0.13248E-01, 0.15905E-01, 0.18570E-01, 0.21194E-01,
     & 0.23763E-01, 0.26264E-01, 0.28690E-01, 0.31078E-01, 0.33447E-01,
     & 0.35822E-01, 0.38272E-01, 0.40796E-01, 0.43319E-01, 0.45843E-01,
     & 0.48366E-01, 0.50890E-01, 0.53413E-01, 0.55937E-01, 0.58460E-01,
     &-0.20962E-04, 0.13598E-03, 0.30061E-03, 0.56607E-03, 0.10122E-02,
     & 0.17223E-02, 0.27674E-02, 0.42497E-02, 0.60084E-02, 0.81133E-02,
     & 0.10478E-01, 0.13005E-01, 0.15606E-01, 0.18214E-01, 0.20781E-01,
     & 0.23293E-01, 0.25738E-01, 0.28109E-01, 0.30443E-01, 0.32757E-01,
     & 0.35073E-01, 0.37467E-01, 0.39932E-01, 0.42397E-01, 0.44861E-01,
     & 0.47326E-01, 0.49791E-01, 0.52256E-01, 0.54721E-01, 0.57186E-01,
     &-0.20619E-04, 0.13376E-03, 0.29578E-03, 0.55719E-03, 0.99578E-03,
     & 0.16947E-02, 0.27212E-02, 0.41776E-02, 0.59052E-02, 0.79695E-02,
     & 0.10289E-01, 0.12766E-01, 0.15312E-01, 0.17862E-01, 0.20372E-01,
     & 0.22830E-01, 0.25219E-01, 0.27536E-01, 0.29816E-01, 0.32073E-01,
     & 0.34335E-01, 0.36673E-01, 0.39083E-01, 0.41492E-01, 0.43902E-01,
     & 0.46312E-01, 0.48721E-01, 0.51131E-01, 0.53541E-01, 0.55950E-01,
     &-0.20217E-04, 0.13159E-03, 0.29099E-03, 0.54848E-03, 0.97951E-03,
     & 0.16674E-02, 0.26755E-02, 0.41062E-02, 0.58033E-02, 0.78282E-02,
     & 0.10103E-01, 0.12530E-01, 0.15022E-01, 0.17514E-01, 0.19969E-01,
     & 0.22374E-01, 0.24707E-01, 0.26969E-01, 0.29197E-01, 0.31398E-01,
     & 0.33608E-01, 0.35890E-01, 0.38244E-01, 0.40598E-01, 0.42951E-01,
     & 0.45305E-01, 0.47659E-01, 0.50013E-01, 0.52367E-01, 0.54720E-01,
     &-0.19825E-04, 0.12945E-03, 0.28621E-03, 0.53980E-03, 0.96344E-03,
     & 0.16402E-02, 0.26306E-02, 0.40356E-02, 0.57026E-02, 0.76888E-02,
     & 0.99203E-02, 0.12297E-01, 0.14733E-01, 0.17171E-01, 0.19571E-01,
     & 0.21924E-01, 0.24203E-01, 0.26411E-01, 0.28587E-01, 0.30733E-01,
     & 0.32892E-01, 0.35120E-01, 0.37419E-01, 0.39718E-01, 0.42018E-01,
     & 0.44317E-01, 0.46616E-01, 0.48915E-01, 0.51214E-01, 0.53513E-01,
     &-0.19395E-04, 0.12736E-03, 0.28149E-03, 0.53115E-03, 0.94760E-03,
     & 0.16129E-02, 0.25863E-02, 0.39658E-02, 0.56032E-02, 0.75513E-02,
     & 0.97397E-02, 0.12066E-01, 0.14449E-01, 0.16833E-01, 0.19179E-01,
     & 0.21480E-01, 0.23706E-01, 0.25861E-01, 0.27983E-01, 0.30078E-01,
     & 0.32186E-01, 0.34361E-01, 0.36607E-01, 0.38853E-01, 0.41099E-01,
     & 0.43345E-01, 0.45591E-01, 0.47837E-01, 0.50083E-01, 0.52329E-01/

      data ((clgrdl(i,j),j=1,30),i= 11, 20)/
     &-0.18756E-04, 0.12539E-03, 0.27682E-03, 0.52256E-03, 0.93203E-03,
     & 0.15860E-02, 0.25430E-02, 0.38970E-02, 0.55049E-02, 0.74157E-02,
     & 0.95611E-02, 0.11838E-01, 0.14168E-01, 0.16499E-01, 0.18792E-01,
     & 0.21043E-01, 0.23216E-01, 0.25318E-01, 0.27388E-01, 0.29431E-01,
     & 0.31489E-01, 0.33612E-01, 0.35806E-01, 0.37999E-01, 0.40192E-01,
     & 0.42385E-01, 0.44579E-01, 0.46772E-01, 0.48965E-01, 0.51158E-01,
     &-0.16813E-04, 0.12399E-03, 0.27221E-03, 0.51404E-03, 0.91660E-03,
     & 0.15593E-02, 0.25002E-02, 0.38291E-02, 0.54076E-02, 0.72818E-02,
     & 0.93846E-02, 0.11613E-01, 0.13890E-01, 0.16171E-01, 0.18411E-01,
     & 0.20611E-01, 0.22733E-01, 0.24783E-01, 0.26800E-01, 0.28792E-01,
     & 0.30804E-01, 0.32873E-01, 0.35008E-01, 0.37143E-01, 0.39279E-01,
     & 0.41414E-01, 0.43550E-01, 0.45685E-01, 0.47821E-01, 0.49956E-01,
     &-0.16705E-04, 0.12196E-03, 0.26769E-03, 0.50560E-03, 0.90150E-03,
     & 0.15330E-02, 0.24578E-02, 0.37623E-02, 0.53112E-02, 0.71496E-02,
     & 0.92101E-02, 0.11389E-01, 0.13616E-01, 0.15848E-01, 0.18037E-01,
     & 0.20185E-01, 0.22257E-01, 0.24255E-01, 0.26221E-01, 0.28161E-01,
     & 0.30129E-01, 0.32143E-01, 0.34219E-01, 0.36295E-01, 0.38371E-01,
     & 0.40447E-01, 0.42522E-01, 0.44598E-01, 0.46674E-01, 0.48750E-01,
     &-0.16580E-04, 0.11996E-03, 0.26326E-03, 0.49722E-03, 0.88679E-03,
     & 0.15069E-02, 0.24161E-02, 0.36969E-02, 0.52163E-02, 0.70192E-02,
     & 0.90380E-02, 0.11168E-01, 0.13346E-01, 0.15530E-01, 0.17668E-01,
     & 0.19763E-01, 0.21786E-01, 0.23733E-01, 0.25648E-01, 0.27538E-01,
     & 0.29463E-01, 0.31424E-01, 0.33440E-01, 0.35456E-01, 0.37472E-01,
     & 0.39488E-01, 0.41504E-01, 0.43520E-01, 0.45536E-01, 0.47552E-01,
     &-0.16571E-04, 0.11792E-03, 0.25898E-03, 0.48890E-03, 0.87226E-03,
     & 0.14812E-02, 0.23753E-02, 0.36322E-02, 0.51222E-02, 0.68913E-02,
     & 0.88678E-02, 0.10949E-01, 0.13080E-01, 0.15217E-01, 0.17305E-01,
     & 0.19348E-01, 0.21320E-01, 0.23218E-01, 0.25082E-01, 0.26923E-01,
     & 0.28806E-01, 0.30713E-01, 0.32671E-01, 0.34629E-01, 0.36586E-01,
     & 0.38544E-01, 0.40501E-01, 0.42459E-01, 0.44417E-01, 0.46374E-01,
     &-0.16485E-04, 0.11593E-03, 0.25482E-03, 0.48068E-03, 0.85790E-03,
     & 0.14558E-02, 0.23348E-02, 0.35683E-02, 0.50291E-02, 0.67649E-02,
     & 0.86985E-02, 0.10733E-01, 0.12819E-01, 0.14909E-01, 0.16947E-01,
     & 0.18938E-01, 0.20861E-01, 0.22709E-01, 0.24525E-01, 0.26318E-01,
     & 0.28158E-01, 0.30013E-01, 0.31912E-01, 0.33812E-01, 0.35711E-01,
     & 0.37611E-01, 0.39510E-01, 0.41409E-01, 0.43309E-01, 0.45208E-01,
     &-0.16288E-04, 0.11400E-03, 0.25069E-03, 0.47254E-03, 0.84379E-03,
     & 0.14307E-02, 0.22947E-02, 0.35054E-02, 0.49375E-02, 0.66399E-02,
     & 0.85306E-02, 0.10521E-01, 0.12562E-01, 0.14604E-01, 0.16594E-01,
     & 0.18534E-01, 0.20409E-01, 0.22207E-01, 0.23975E-01, 0.25722E-01,
     & 0.27517E-01, 0.29321E-01, 0.31161E-01, 0.33000E-01, 0.34840E-01,
     & 0.36679E-01, 0.38519E-01, 0.40358E-01, 0.42198E-01, 0.44037E-01,
     &-0.16342E-04, 0.11199E-03, 0.24658E-03, 0.46447E-03, 0.82970E-03,
     & 0.14058E-02, 0.22550E-02, 0.34432E-02, 0.48471E-02, 0.65162E-02,
     & 0.83641E-02, 0.10311E-01, 0.12308E-01, 0.14303E-01, 0.16245E-01,
     & 0.18133E-01, 0.19961E-01, 0.21713E-01, 0.23432E-01, 0.25137E-01,
     & 0.26883E-01, 0.28638E-01, 0.30425E-01, 0.32213E-01, 0.34000E-01,
     & 0.35788E-01, 0.37576E-01, 0.39363E-01, 0.41151E-01, 0.42938E-01,
     &-0.16145E-04, 0.11008E-03, 0.24250E-03, 0.45648E-03, 0.81572E-03,
     & 0.13813E-02, 0.22156E-02, 0.33817E-02, 0.47574E-02, 0.63942E-02,
     & 0.81997E-02, 0.10105E-01, 0.12058E-01, 0.14005E-01, 0.15900E-01,
     & 0.17739E-01, 0.19518E-01, 0.21226E-01, 0.22898E-01, 0.24563E-01,
     & 0.26257E-01, 0.27963E-01, 0.29699E-01, 0.31435E-01, 0.33170E-01,
     & 0.34906E-01, 0.36642E-01, 0.38378E-01, 0.40113E-01, 0.41849E-01,
     &-0.15863E-04, 0.10824E-03, 0.23847E-03, 0.44863E-03, 0.80187E-03,
     & 0.13570E-02, 0.21767E-02, 0.33205E-02, 0.46684E-02, 0.62729E-02,
     & 0.80371E-02, 0.99008E-02, 0.11811E-01, 0.13712E-01, 0.15560E-01,
     & 0.17349E-01, 0.19082E-01, 0.20746E-01, 0.22376E-01, 0.23997E-01,
     & 0.25640E-01, 0.27299E-01, 0.28985E-01, 0.30670E-01, 0.32356E-01,
     & 0.34042E-01, 0.35728E-01, 0.37413E-01, 0.39099E-01, 0.40785E-01/

      data ((clgrdl(i,j),j=1,30),i= 21, 30)/
     &-0.15341E-04, 0.10652E-03, 0.23447E-03, 0.44091E-03, 0.78808E-03,
     & 0.13330E-02, 0.21382E-02, 0.32599E-02, 0.45809E-02, 0.61512E-02,
     & 0.78771E-02, 0.97007E-02, 0.11567E-01, 0.13421E-01, 0.15223E-01,
     & 0.16963E-01, 0.18650E-01, 0.20272E-01, 0.21861E-01, 0.23438E-01,
     & 0.25029E-01, 0.26645E-01, 0.28289E-01, 0.29933E-01, 0.31577E-01,
     & 0.33221E-01, 0.34865E-01, 0.36509E-01, 0.38153E-01, 0.39797E-01,
     &-0.15183E-04, 0.10469E-03, 0.23051E-03, 0.43337E-03, 0.77441E-03,
     & 0.13095E-02, 0.21000E-02, 0.32002E-02, 0.44947E-02, 0.60312E-02,
     & 0.77194E-02, 0.95038E-02, 0.11326E-01, 0.13134E-01, 0.14890E-01,
     & 0.16583E-01, 0.18224E-01, 0.19803E-01, 0.21351E-01, 0.22885E-01,
     & 0.24423E-01, 0.25999E-01, 0.27608E-01, 0.29217E-01, 0.30827E-01,
     & 0.32436E-01, 0.34045E-01, 0.35654E-01, 0.37264E-01, 0.38873E-01,
     &-0.14383E-04, 0.10315E-03, 0.22660E-03, 0.42606E-03, 0.76086E-03,
     & 0.12863E-02, 0.20622E-02, 0.31413E-02, 0.44096E-02, 0.59131E-02,
     & 0.75640E-02, 0.93094E-02, 0.11089E-01, 0.12851E-01, 0.14560E-01,
     & 0.16210E-01, 0.17806E-01, 0.19342E-01, 0.20848E-01, 0.22339E-01,
     & 0.23827E-01, 0.25361E-01, 0.26936E-01, 0.28511E-01, 0.30086E-01,
     & 0.31660E-01, 0.33235E-01, 0.34810E-01, 0.36385E-01, 0.37960E-01,
     &-0.14169E-04, 0.10142E-03, 0.22276E-03, 0.41892E-03, 0.74746E-03,
     & 0.12641E-02, 0.20248E-02, 0.30832E-02, 0.43256E-02, 0.57967E-02,
     & 0.74111E-02, 0.91178E-02, 0.10854E-01, 0.12570E-01, 0.14235E-01,
     & 0.15841E-01, 0.17394E-01, 0.18888E-01, 0.20353E-01, 0.21802E-01,
     & 0.23243E-01, 0.24735E-01, 0.26272E-01, 0.27809E-01, 0.29346E-01,
     & 0.30882E-01, 0.32419E-01, 0.33956E-01, 0.35493E-01, 0.37030E-01,
     &-0.13803E-04, 0.99785E-04, 0.21899E-03, 0.41185E-03, 0.73421E-03,
     & 0.12423E-02, 0.19879E-02, 0.30258E-02, 0.42428E-02, 0.56819E-02,
     & 0.72613E-02, 0.89290E-02, 0.10624E-01, 0.12292E-01, 0.13913E-01,
     & 0.15478E-01, 0.16987E-01, 0.18441E-01, 0.19863E-01, 0.21271E-01,
     & 0.22669E-01, 0.24119E-01, 0.25614E-01, 0.27109E-01, 0.28605E-01,
     & 0.30100E-01, 0.31595E-01, 0.33090E-01, 0.34586E-01, 0.36081E-01,
     &-0.13424E-04, 0.98185E-04, 0.21531E-03, 0.40483E-03, 0.72107E-03,
     & 0.12206E-02, 0.19513E-02, 0.29690E-02, 0.41615E-02, 0.55689E-02,
     & 0.71139E-02, 0.87430E-02, 0.10395E-01, 0.12017E-01, 0.13595E-01,
     & 0.15120E-01, 0.16587E-01, 0.18000E-01, 0.19382E-01, 0.20748E-01,
     & 0.22104E-01, 0.23512E-01, 0.24966E-01, 0.26420E-01, 0.27874E-01,
     & 0.29328E-01, 0.30782E-01, 0.32236E-01, 0.33690E-01, 0.35144E-01,
     &-0.13022E-04, 0.96634E-04, 0.21170E-03, 0.39788E-03, 0.70813E-03,
     & 0.11991E-02, 0.19150E-02, 0.29127E-02, 0.40809E-02, 0.54572E-02,
     & 0.69686E-02, 0.85602E-02, 0.10168E-01, 0.11747E-01, 0.13283E-01,
     & 0.14768E-01, 0.16193E-01, 0.17566E-01, 0.18908E-01, 0.20234E-01,
     & 0.21547E-01, 0.22914E-01, 0.24327E-01, 0.25741E-01, 0.27154E-01,
     & 0.28568E-01, 0.29981E-01, 0.31395E-01, 0.32808E-01, 0.34221E-01,
     &-0.12746E-04, 0.95053E-04, 0.20817E-03, 0.39103E-03, 0.69547E-03,
     & 0.11778E-02, 0.18791E-02, 0.28571E-02, 0.40012E-02, 0.53470E-02,
     & 0.68252E-02, 0.83795E-02, 0.99430E-02, 0.11481E-01, 0.12975E-01,
     & 0.14420E-01, 0.15805E-01, 0.17138E-01, 0.18441E-01, 0.19727E-01,
     & 0.20998E-01, 0.22325E-01, 0.23698E-01, 0.25072E-01, 0.26445E-01,
     & 0.27819E-01, 0.29193E-01, 0.30566E-01, 0.31940E-01, 0.33313E-01,
     &-0.12399E-04, 0.93535E-04, 0.20470E-03, 0.38427E-03, 0.68310E-03,
     & 0.11567E-02, 0.18435E-02, 0.28022E-02, 0.39226E-02, 0.52385E-02,
     & 0.66837E-02, 0.81997E-02, 0.97211E-02, 0.11219E-01, 0.12672E-01,
     & 0.14078E-01, 0.15422E-01, 0.16716E-01, 0.17980E-01, 0.19226E-01,
     & 0.20457E-01, 0.21744E-01, 0.23077E-01, 0.24411E-01, 0.25745E-01,
     & 0.27078E-01, 0.28412E-01, 0.29745E-01, 0.31079E-01, 0.32412E-01,
     &-0.12080E-04, 0.92038E-04, 0.20129E-03, 0.37760E-03, 0.67108E-03,
     & 0.11356E-02, 0.18085E-02, 0.27478E-02, 0.38450E-02, 0.51315E-02,
     & 0.65445E-02, 0.80203E-02, 0.95026E-02, 0.10961E-01, 0.12373E-01,
     & 0.13740E-01, 0.15044E-01, 0.16301E-01, 0.17527E-01, 0.18733E-01,
     & 0.19925E-01, 0.21172E-01, 0.22466E-01, 0.23760E-01, 0.25054E-01,
     & 0.26348E-01, 0.27641E-01, 0.28935E-01, 0.30229E-01, 0.31523E-01/

      data ((clgrdl(i,j),j=1,30),i= 31, 40)/
     &-0.11202E-04, 0.90800E-04, 0.19795E-03, 0.37103E-03, 0.65924E-03,
     & 0.11147E-02, 0.17742E-02, 0.26940E-02, 0.37681E-02, 0.50266E-02,
     & 0.64068E-02, 0.78436E-02, 0.92876E-02, 0.10707E-01, 0.12079E-01,
     & 0.13409E-01, 0.14674E-01, 0.15892E-01, 0.17080E-01, 0.18248E-01,
     & 0.19401E-01, 0.20609E-01, 0.21864E-01, 0.23120E-01, 0.24376E-01,
     & 0.25631E-01, 0.26887E-01, 0.28142E-01, 0.29398E-01, 0.30653E-01,
     &-0.10860E-04, 0.89410E-04, 0.19466E-03, 0.36460E-03, 0.64764E-03,
     & 0.10940E-02, 0.17409E-02, 0.26408E-02, 0.36922E-02, 0.49225E-02,
     & 0.62701E-02, 0.76699E-02, 0.90760E-02, 0.10457E-01, 0.11790E-01,
     & 0.13082E-01, 0.14309E-01, 0.15489E-01, 0.16640E-01, 0.17764E-01,
     & 0.18885E-01, 0.20055E-01, 0.21273E-01, 0.22491E-01, 0.23709E-01,
     & 0.24927E-01, 0.26145E-01, 0.27363E-01, 0.28581E-01, 0.29799E-01,
     &-0.10511E-04, 0.88057E-04, 0.19147E-03, 0.35834E-03, 0.63621E-03,
     & 0.10736E-02, 0.17082E-02, 0.25881E-02, 0.36172E-02, 0.48194E-02,
     & 0.61348E-02, 0.74990E-02, 0.88680E-02, 0.10211E-01, 0.11506E-01,
     & 0.12760E-01, 0.13950E-01, 0.15088E-01, 0.16203E-01, 0.17287E-01,
     & 0.18378E-01, 0.19510E-01, 0.20690E-01, 0.21871E-01, 0.23051E-01,
     & 0.24231E-01, 0.25412E-01, 0.26592E-01, 0.27772E-01, 0.28953E-01,
     &-0.94029E-05, 0.87056E-04, 0.18838E-03, 0.35219E-03, 0.62491E-03,
     & 0.10536E-02, 0.16759E-02, 0.25367E-02, 0.35436E-02, 0.47171E-02,
     & 0.60014E-02, 0.73300E-02, 0.86628E-02, 0.99694E-02, 0.11226E-01,
     & 0.12443E-01, 0.13596E-01, 0.14695E-01, 0.15769E-01, 0.16818E-01,
     & 0.17879E-01, 0.18973E-01, 0.20114E-01, 0.21255E-01, 0.22396E-01,
     & 0.23536E-01, 0.24677E-01, 0.25818E-01, 0.26958E-01, 0.28099E-01,
     &-0.89850E-05, 0.85849E-04, 0.18537E-03, 0.34626E-03, 0.61379E-03,
     & 0.10339E-02, 0.16446E-02, 0.24866E-02, 0.34719E-02, 0.46172E-02,
     & 0.58699E-02, 0.71636E-02, 0.84600E-02, 0.97299E-02, 0.10949E-01,
     & 0.12130E-01, 0.13247E-01, 0.14307E-01, 0.15342E-01, 0.16356E-01,
     & 0.17389E-01, 0.18443E-01, 0.19538E-01, 0.20632E-01, 0.21726E-01,
     & 0.22821E-01, 0.23915E-01, 0.25010E-01, 0.26104E-01, 0.27198E-01,
     &-0.84079E-05, 0.84742E-04, 0.18248E-03, 0.34040E-03, 0.60287E-03,
     & 0.10146E-02, 0.16137E-02, 0.24374E-02, 0.34010E-02, 0.45196E-02,
     & 0.57406E-02, 0.69996E-02, 0.82600E-02, 0.94946E-02, 0.10677E-01,
     & 0.11817E-01, 0.12900E-01, 0.13922E-01, 0.14918E-01, 0.15898E-01,
     & 0.16903E-01, 0.17914E-01, 0.18957E-01, 0.19999E-01, 0.21041E-01,
     & 0.22083E-01, 0.23126E-01, 0.24168E-01, 0.25210E-01, 0.26252E-01,
     &-0.75352E-05, 0.83806E-04, 0.17971E-03, 0.33471E-03, 0.59211E-03,
     & 0.99565E-03, 0.15831E-02, 0.23890E-02, 0.33310E-02, 0.44239E-02,
     & 0.56132E-02, 0.68384E-02, 0.80632E-02, 0.92622E-02, 0.10409E-01,
     & 0.11508E-01, 0.12554E-01, 0.13543E-01, 0.14503E-01, 0.15450E-01,
     & 0.16424E-01, 0.17394E-01, 0.18386E-01, 0.19379E-01, 0.20371E-01,
     & 0.21363E-01, 0.22355E-01, 0.23348E-01, 0.24340E-01, 0.25332E-01,
     &-0.71546E-05, 0.82743E-04, 0.17703E-03, 0.32912E-03, 0.58161E-03,
     & 0.97708E-03, 0.15529E-02, 0.23419E-02, 0.32617E-02, 0.43294E-02,
     & 0.54875E-02, 0.66794E-02, 0.78696E-02, 0.90327E-02, 0.10144E-01,
     & 0.11203E-01, 0.12212E-01, 0.13168E-01, 0.14094E-01, 0.15008E-01,
     & 0.15948E-01, 0.16881E-01, 0.17828E-01, 0.18775E-01, 0.19722E-01,
     & 0.20669E-01, 0.21616E-01, 0.22563E-01, 0.23510E-01, 0.24457E-01,
     &-0.65477E-05, 0.81818E-04, 0.17447E-03, 0.32365E-03, 0.57133E-03,
     & 0.95915E-03, 0.15228E-02, 0.22954E-02, 0.31933E-02, 0.42361E-02,
     & 0.53634E-02, 0.65228E-02, 0.76788E-02, 0.88061E-02, 0.98822E-02,
     & 0.10905E-01, 0.11878E-01, 0.12801E-01, 0.13694E-01, 0.14575E-01,
     & 0.15476E-01, 0.16375E-01, 0.17285E-01, 0.18195E-01, 0.19105E-01,
     & 0.20015E-01, 0.20925E-01, 0.21835E-01, 0.22745E-01, 0.23655E-01,
     &-0.61628E-05, 0.80845E-04, 0.17203E-03, 0.31837E-03, 0.56134E-03,
     & 0.94159E-03, 0.14931E-02, 0.22494E-02, 0.31256E-02, 0.41441E-02,
     & 0.52409E-02, 0.63675E-02, 0.74902E-02, 0.85822E-02, 0.96233E-02,
     & 0.10611E-01, 0.11550E-01, 0.12439E-01, 0.13301E-01, 0.14150E-01,
     & 0.15010E-01, 0.15876E-01, 0.16756E-01, 0.17637E-01, 0.18517E-01,
     & 0.19398E-01, 0.20278E-01, 0.21159E-01, 0.22039E-01, 0.22920E-01/

      data ((clgrdl(i,j),j=1,30),i= 41, 50)/
     &-0.57892E-05, 0.79905E-04, 0.16970E-03, 0.31328E-03, 0.55164E-03,
     & 0.92425E-03, 0.14639E-02, 0.22039E-02, 0.30588E-02, 0.40532E-02,
     & 0.51202E-02, 0.62144E-02, 0.73039E-02, 0.83617E-02, 0.93675E-02,
     & 0.10322E-01, 0.11227E-01, 0.12085E-01, 0.12915E-01, 0.13732E-01,
     & 0.14552E-01, 0.15386E-01, 0.16238E-01, 0.17090E-01, 0.17942E-01,
     & 0.18794E-01, 0.19645E-01, 0.20497E-01, 0.21349E-01, 0.22201E-01,
     &-0.47166E-05, 0.79300E-04, 0.16746E-03, 0.30834E-03, 0.54219E-03,
     & 0.90726E-03, 0.14353E-02, 0.21587E-02, 0.29928E-02, 0.39634E-02,
     & 0.50010E-02, 0.60640E-02, 0.71212E-02, 0.81446E-02, 0.91159E-02,
     & 0.10038E-01, 0.10909E-01, 0.11735E-01, 0.12535E-01, 0.13321E-01,
     & 0.14102E-01, 0.14905E-01, 0.15730E-01, 0.16554E-01, 0.17378E-01,
     & 0.18203E-01, 0.19027E-01, 0.19851E-01, 0.20676E-01, 0.21500E-01,
     &-0.38458E-05, 0.78695E-04, 0.16530E-03, 0.30369E-03, 0.53304E-03,
     & 0.89064E-03, 0.14071E-02, 0.21141E-02, 0.29281E-02, 0.38745E-02,
     & 0.48833E-02, 0.59160E-02, 0.69418E-02, 0.79317E-02, 0.88689E-02,
     & 0.97596E-02, 0.10597E-01, 0.11392E-01, 0.12161E-01, 0.12916E-01,
     & 0.13661E-01, 0.14433E-01, 0.15230E-01, 0.16026E-01, 0.16822E-01,
     & 0.17619E-01, 0.18415E-01, 0.19211E-01, 0.20008E-01, 0.20804E-01,
     &-0.30813E-05, 0.78116E-04, 0.16326E-03, 0.29923E-03, 0.52404E-03,
     & 0.87433E-03, 0.13797E-02, 0.20703E-02, 0.28653E-02, 0.37866E-02,
     & 0.47670E-02, 0.57701E-02, 0.67652E-02, 0.77225E-02, 0.86266E-02,
     & 0.94855E-02, 0.10292E-01, 0.11055E-01, 0.11794E-01, 0.12517E-01,
     & 0.13229E-01, 0.13970E-01, 0.14739E-01, 0.15507E-01, 0.16275E-01,
     & 0.17044E-01, 0.17812E-01, 0.18580E-01, 0.19349E-01, 0.20117E-01,
     &-0.18282E-05, 0.77797E-04, 0.16137E-03, 0.29494E-03, 0.51535E-03,
     & 0.85842E-03, 0.13528E-02, 0.20272E-02, 0.28038E-02, 0.37004E-02,
     & 0.46529E-02, 0.56281E-02, 0.65918E-02, 0.75162E-02, 0.83880E-02,
     & 0.92150E-02, 0.99904E-02, 0.10723E-01, 0.11431E-01, 0.12126E-01,
     & 0.12804E-01, 0.13515E-01, 0.14255E-01, 0.14994E-01, 0.15734E-01,
     & 0.16473E-01, 0.17212E-01, 0.17952E-01, 0.18691E-01, 0.19431E-01,
     &-0.11230E-05, 0.77363E-04, 0.15963E-03, 0.29093E-03, 0.50693E-03,
     & 0.84316E-03, 0.13268E-02, 0.19850E-02, 0.27430E-02, 0.36151E-02,
     & 0.45407E-02, 0.54890E-02, 0.64208E-02, 0.73133E-02, 0.81531E-02,
     & 0.89488E-02, 0.96936E-02, 0.10396E-01, 0.11075E-01, 0.11738E-01,
     & 0.12387E-01, 0.13068E-01, 0.13776E-01, 0.14485E-01, 0.15194E-01,
     & 0.15902E-01, 0.16611E-01, 0.17320E-01, 0.18029E-01, 0.18737E-01,
     &-0.49642E-06, 0.76951E-04, 0.15803E-03, 0.28712E-03, 0.49880E-03,
     & 0.82822E-03, 0.13013E-02, 0.19436E-02, 0.26835E-02, 0.35316E-02,
     & 0.44315E-02, 0.53522E-02, 0.62525E-02, 0.71132E-02, 0.79220E-02,
     & 0.86861E-02, 0.94013E-02, 0.10073E-01, 0.10723E-01, 0.11355E-01,
     & 0.11977E-01, 0.12627E-01, 0.13305E-01, 0.13983E-01, 0.14661E-01,
     & 0.15339E-01, 0.16017E-01, 0.16694E-01, 0.17372E-01, 0.18050E-01,
     & 0.24839E-06, 0.76639E-04, 0.15661E-03, 0.28349E-03, 0.49109E-03,
     & 0.81369E-03, 0.12765E-02, 0.19034E-02, 0.26250E-02, 0.34495E-02,
     & 0.43261E-02, 0.52169E-02, 0.60867E-02, 0.69162E-02, 0.76943E-02,
     & 0.84272E-02, 0.91126E-02, 0.97547E-02, 0.10375E-01, 0.10976E-01,
     & 0.11574E-01, 0.12193E-01, 0.12839E-01, 0.13484E-01, 0.14130E-01,
     & 0.14775E-01, 0.15421E-01, 0.16067E-01, 0.16712E-01, 0.17358E-01,
     & 0.12197E-05, 0.76494E-04, 0.15532E-03, 0.28011E-03, 0.48374E-03,
     & 0.79988E-03, 0.12523E-02, 0.18643E-02, 0.25677E-02, 0.33689E-02,
     & 0.42221E-02, 0.50841E-02, 0.59231E-02, 0.67224E-02, 0.74705E-02,
     & 0.81723E-02, 0.88283E-02, 0.94411E-02, 0.10032E-01, 0.10604E-01,
     & 0.11176E-01, 0.11765E-01, 0.12379E-01, 0.12993E-01, 0.13607E-01,
     & 0.14221E-01, 0.14835E-01, 0.15449E-01, 0.16063E-01, 0.16676E-01,
     & 0.12207E-05, 0.76017E-04, 0.15413E-03, 0.27688E-03, 0.47674E-03,
     & 0.78654E-03, 0.12287E-02, 0.18264E-02, 0.25118E-02, 0.32908E-02,
     & 0.41196E-02, 0.49531E-02, 0.57624E-02, 0.65308E-02, 0.72492E-02,
     & 0.79219E-02, 0.85487E-02, 0.91323E-02, 0.96936E-02, 0.10238E-01,
     & 0.10783E-01, 0.11343E-01, 0.11925E-01, 0.12506E-01, 0.13088E-01,
     & 0.13669E-01, 0.14251E-01, 0.14832E-01, 0.15414E-01, 0.15996E-01/

      data ((clgrdl(i,j),j=1,30),i= 51, 60)/
     & 0.15544E-05, 0.75689E-04, 0.15309E-03, 0.27388E-03, 0.47026E-03,
     & 0.77366E-03, 0.12059E-02, 0.17895E-02, 0.24571E-02, 0.32149E-02,
     & 0.40190E-02, 0.48238E-02, 0.56039E-02, 0.63432E-02, 0.70322E-02,
     & 0.76756E-02, 0.82736E-02, 0.88297E-02, 0.93623E-02, 0.98791E-02,
     & 0.10397E-01, 0.10926E-01, 0.11473E-01, 0.12020E-01, 0.12567E-01,
     & 0.13114E-01, 0.13661E-01, 0.14208E-01, 0.14755E-01, 0.15302E-01,
     & 0.25070E-05, 0.75646E-04, 0.15214E-03, 0.27113E-03, 0.46409E-03,
     & 0.76120E-03, 0.11838E-02, 0.17532E-02, 0.24031E-02, 0.31410E-02,
     & 0.39192E-02, 0.46971E-02, 0.54483E-02, 0.61578E-02, 0.68182E-02,
     & 0.74344E-02, 0.80035E-02, 0.85319E-02, 0.90377E-02, 0.95269E-02,
     & 0.10017E-01, 0.10517E-01, 0.11033E-01, 0.11549E-01, 0.12065E-01,
     & 0.12581E-01, 0.13096E-01, 0.13612E-01, 0.14128E-01, 0.14644E-01,
     & 0.26657E-05, 0.75344E-04, 0.15123E-03, 0.26864E-03, 0.45830E-03,
     & 0.74920E-03, 0.11624E-02, 0.17178E-02, 0.23503E-02, 0.30683E-02,
     & 0.38215E-02, 0.45721E-02, 0.52952E-02, 0.59762E-02, 0.66077E-02,
     & 0.71975E-02, 0.77383E-02, 0.82388E-02, 0.87176E-02, 0.91798E-02,
     & 0.96421E-02, 0.10114E-01, 0.10602E-01, 0.11089E-01, 0.11577E-01,
     & 0.12064E-01, 0.12551E-01, 0.13039E-01, 0.13526E-01, 0.14014E-01,
     & 0.26029E-05, 0.74935E-04, 0.15040E-03, 0.26649E-03, 0.45295E-03,
     & 0.73772E-03, 0.11420E-02, 0.16835E-02, 0.22991E-02, 0.29965E-02,
     & 0.37258E-02, 0.44491E-02, 0.51450E-02, 0.57987E-02, 0.64023E-02,
     & 0.69648E-02, 0.74780E-02, 0.79514E-02, 0.84032E-02, 0.88398E-02,
     & 0.92740E-02, 0.97189E-02, 0.10178E-01, 0.10638E-01, 0.11097E-01,
     & 0.11557E-01, 0.12016E-01, 0.12475E-01, 0.12935E-01, 0.13394E-01,
     & 0.22883E-05, 0.74408E-04, 0.14963E-03, 0.26450E-03, 0.44791E-03,
     & 0.72695E-03, 0.11224E-02, 0.16502E-02, 0.22493E-02, 0.29266E-02,
     & 0.36313E-02, 0.43289E-02, 0.49979E-02, 0.56250E-02, 0.62004E-02,
     & 0.67356E-02, 0.72221E-02, 0.76693E-02, 0.80953E-02, 0.85050E-02,
     & 0.89120E-02, 0.93299E-02, 0.97622E-02, 0.10195E-01, 0.10627E-01,
     & 0.11059E-01, 0.11492E-01, 0.11924E-01, 0.12356E-01, 0.12789E-01,
     & 0.14176E-05, 0.73626E-04, 0.14881E-03, 0.26266E-03, 0.44317E-03,
     & 0.71682E-03, 0.11036E-02, 0.16180E-02, 0.22010E-02, 0.28582E-02,
     & 0.35387E-02, 0.42114E-02, 0.48538E-02, 0.54557E-02, 0.60035E-02,
     & 0.65105E-02, 0.69702E-02, 0.73908E-02, 0.77910E-02, 0.81754E-02,
     & 0.85560E-02, 0.89480E-02, 0.93553E-02, 0.97627E-02, 0.10170E-01,
     & 0.10577E-01, 0.10985E-01, 0.11392E-01, 0.11799E-01, 0.12207E-01,
     & 0.49656E-06, 0.72737E-04, 0.14793E-03, 0.26107E-03, 0.43885E-03,
     & 0.70740E-03, 0.10859E-02, 0.15871E-02, 0.21541E-02, 0.27912E-02,
     & 0.34489E-02, 0.40962E-02, 0.47140E-02, 0.52891E-02, 0.58102E-02,
     & 0.62895E-02, 0.67230E-02, 0.71176E-02, 0.74918E-02, 0.78513E-02,
     & 0.82064E-02, 0.85720E-02, 0.89525E-02, 0.93330E-02, 0.97134E-02,
     & 0.10094E-01, 0.10474E-01, 0.10855E-01, 0.11235E-01, 0.11616E-01,
     &-0.17043E-05, 0.71221E-04, 0.14694E-03, 0.25955E-03, 0.43497E-03,
     & 0.69881E-03, 0.10689E-02, 0.15574E-02, 0.21091E-02, 0.27262E-02,
     & 0.33610E-02, 0.39843E-02, 0.45770E-02, 0.51252E-02, 0.56197E-02,
     & 0.60713E-02, 0.64796E-02, 0.68492E-02, 0.71983E-02, 0.75321E-02,
     & 0.78630E-02, 0.82017E-02, 0.85536E-02, 0.89055E-02, 0.92573E-02,
     & 0.96092E-02, 0.99611E-02, 0.10313E-01, 0.10665E-01, 0.11017E-01,
     &-0.39396E-05, 0.69475E-04, 0.14574E-03, 0.25800E-03, 0.43145E-03,
     & 0.69076E-03, 0.10526E-02, 0.15289E-02, 0.20652E-02, 0.26633E-02,
     & 0.32760E-02, 0.38757E-02, 0.44427E-02, 0.49647E-02, 0.54329E-02,
     & 0.58574E-02, 0.62397E-02, 0.65842E-02, 0.69088E-02, 0.72176E-02,
     & 0.75247E-02, 0.78385E-02, 0.81647E-02, 0.84908E-02, 0.88170E-02,
     & 0.91432E-02, 0.94694E-02, 0.97956E-02, 0.10122E-01, 0.10448E-01,
     &-0.74089E-05, 0.67025E-04, 0.14420E-03, 0.25648E-03, 0.42826E-03,
     & 0.68320E-03, 0.10372E-02, 0.15017E-02, 0.20228E-02, 0.26022E-02,
     & 0.31930E-02, 0.37699E-02, 0.43116E-02, 0.48066E-02, 0.52493E-02,
     & 0.56480E-02, 0.60051E-02, 0.63238E-02, 0.66235E-02, 0.69080E-02,
     & 0.71904E-02, 0.74794E-02, 0.77810E-02, 0.80826E-02, 0.83843E-02,
     & 0.86859E-02, 0.89875E-02, 0.92892E-02, 0.95908E-02, 0.98924E-02/

      data ((clgrdl(i,j),j=1,30),i= 61, 70)/
     &-0.11468E-04, 0.63992E-04, 0.14220E-03, 0.25482E-03, 0.42543E-03,
     & 0.67655E-03, 0.10228E-02, 0.14759E-02, 0.19823E-02, 0.25426E-02,
     & 0.31132E-02, 0.36668E-02, 0.41827E-02, 0.46515E-02, 0.50686E-02,
     & 0.54420E-02, 0.57744E-02, 0.60691E-02, 0.63436E-02, 0.66055E-02,
     & 0.68631E-02, 0.71260E-02, 0.74001E-02, 0.76742E-02, 0.79483E-02,
     & 0.82224E-02, 0.84965E-02, 0.87706E-02, 0.90447E-02, 0.93188E-02,
     &-0.16398E-04, 0.60243E-04, 0.13963E-03, 0.25296E-03, 0.42271E-03,
     & 0.67027E-03, 0.10093E-02, 0.14511E-02, 0.19429E-02, 0.24857E-02,
     & 0.30357E-02, 0.35653E-02, 0.40565E-02, 0.45002E-02, 0.48920E-02,
     & 0.52402E-02, 0.55475E-02, 0.58191E-02, 0.60703E-02, 0.63082E-02,
     & 0.65409E-02, 0.67789E-02, 0.70260E-02, 0.72731E-02, 0.75202E-02,
     & 0.77673E-02, 0.80144E-02, 0.82615E-02, 0.85086E-02, 0.87557E-02,
     &-0.22307E-04, 0.55634E-04, 0.13633E-03, 0.25078E-03, 0.42002E-03,
     & 0.66419E-03, 0.99694E-03, 0.14272E-02, 0.19050E-02, 0.24309E-02,
     & 0.29591E-02, 0.34661E-02, 0.39335E-02, 0.43520E-02, 0.47188E-02,
     & 0.50423E-02, 0.53250E-02, 0.55733E-02, 0.58015E-02, 0.60157E-02,
     & 0.62225E-02, 0.64369E-02, 0.66615E-02, 0.68861E-02, 0.71107E-02,
     & 0.73353E-02, 0.75598E-02, 0.77844E-02, 0.80090E-02, 0.82336E-02,
     &-0.28477E-04, 0.50411E-04, 0.13218E-03, 0.24806E-03, 0.41722E-03,
     & 0.65884E-03, 0.98558E-03, 0.14048E-02, 0.18692E-02, 0.23771E-02,
     & 0.28855E-02, 0.33697E-02, 0.38128E-02, 0.42060E-02, 0.45485E-02,
     & 0.48488E-02, 0.51072E-02, 0.53319E-02, 0.55371E-02, 0.57280E-02,
     & 0.59095E-02, 0.61001E-02, 0.63009E-02, 0.65018E-02, 0.67027E-02,
     & 0.69036E-02, 0.71044E-02, 0.73053E-02, 0.75062E-02, 0.77071E-02,
     &-0.38041E-04, 0.43198E-04, 0.12700E-03, 0.24454E-03, 0.41413E-03,
     & 0.65392E-03, 0.97517E-03, 0.13839E-02, 0.18350E-02, 0.23253E-02,
     & 0.28140E-02, 0.32759E-02, 0.36944E-02, 0.40635E-02, 0.43809E-02,
     & 0.46587E-02, 0.48924E-02, 0.50933E-02, 0.52758E-02, 0.54426E-02,
     & 0.56003E-02, 0.57671E-02, 0.59448E-02, 0.61224E-02, 0.63001E-02,
     & 0.64777E-02, 0.66553E-02, 0.68330E-02, 0.70106E-02, 0.71882E-02,
     &-0.46259E-04, 0.35699E-04, 0.12071E-03, 0.23999E-03, 0.41071E-03,
     & 0.64901E-03, 0.96560E-03, 0.13646E-02, 0.18029E-02, 0.22765E-02,
     & 0.27443E-02, 0.31836E-02, 0.35794E-02, 0.39247E-02, 0.42178E-02,
     & 0.44713E-02, 0.46814E-02, 0.48583E-02, 0.50165E-02, 0.51605E-02,
     & 0.52937E-02, 0.54370E-02, 0.55922E-02, 0.57474E-02, 0.59026E-02,
     & 0.60578E-02, 0.62131E-02, 0.63683E-02, 0.65235E-02, 0.66787E-02,
     &-0.54880E-04, 0.27340E-04, 0.11282E-03, 0.23422E-03, 0.40666E-03,
     & 0.64422E-03, 0.95667E-03, 0.13466E-02, 0.17727E-02, 0.22295E-02,
     & 0.26777E-02, 0.30945E-02, 0.34669E-02, 0.37884E-02, 0.40575E-02,
     & 0.42867E-02, 0.44733E-02, 0.46267E-02, 0.47617E-02, 0.48819E-02,
     & 0.49924E-02, 0.51110E-02, 0.52402E-02, 0.53695E-02, 0.54987E-02,
     & 0.56280E-02, 0.57572E-02, 0.58865E-02, 0.60157E-02, 0.61450E-02,
     &-0.63585E-04, 0.18164E-04, 0.10343E-03, 0.22698E-03, 0.40154E-03,
     & 0.63925E-03, 0.94808E-03, 0.13296E-02, 0.17440E-02, 0.21850E-02,
     & 0.26136E-02, 0.30090E-02, 0.33576E-02, 0.36551E-02, 0.38994E-02,
     & 0.41044E-02, 0.42668E-02, 0.43956E-02, 0.45070E-02, 0.46027E-02,
     & 0.46924E-02, 0.47861E-02, 0.48895E-02, 0.49929E-02, 0.50964E-02,
     & 0.51998E-02, 0.53032E-02, 0.54067E-02, 0.55101E-02, 0.56135E-02,
     &-0.72880E-04, 0.79815E-05, 0.92568E-04, 0.21798E-03, 0.39510E-03,
     & 0.63361E-03, 0.93971E-03, 0.13144E-02, 0.17172E-02, 0.21428E-02,
     & 0.25529E-02, 0.29263E-02, 0.32517E-02, 0.35256E-02, 0.37456E-02,
     & 0.39252E-02, 0.40641E-02, 0.41685E-02, 0.42549E-02, 0.43278E-02,
     & 0.43954E-02, 0.44640E-02, 0.45400E-02, 0.46160E-02, 0.46920E-02,
     & 0.47680E-02, 0.48440E-02, 0.49200E-02, 0.49960E-02, 0.50721E-02,
     &-0.77426E-04,-0.91784E-06, 0.80128E-04, 0.20696E-03, 0.38677E-03,
     & 0.62712E-03, 0.93121E-03, 0.12996E-02, 0.16922E-02, 0.21029E-02,
     & 0.24946E-02, 0.28467E-02, 0.31499E-02, 0.34001E-02, 0.35959E-02,
     & 0.37494E-02, 0.38637E-02, 0.39453E-02, 0.40080E-02, 0.40577E-02,
     & 0.41018E-02, 0.41444E-02, 0.41915E-02, 0.42386E-02, 0.42856E-02,
     & 0.43327E-02, 0.43798E-02, 0.44269E-02, 0.44739E-02, 0.45210E-02/

      data ((clgrdl(i,j),j=1,30),i= 71, 80)/
     &-0.79386E-04,-0.91626E-05, 0.66218E-04, 0.19345E-03, 0.37635E-03,
     & 0.61912E-03, 0.92249E-03, 0.12847E-02, 0.16681E-02, 0.20658E-02,
     & 0.24392E-02, 0.27708E-02, 0.30514E-02, 0.32768E-02, 0.34489E-02,
     & 0.35788E-02, 0.36686E-02, 0.37262E-02, 0.37663E-02, 0.37912E-02,
     & 0.38111E-02, 0.38301E-02, 0.38536E-02, 0.38771E-02, 0.39006E-02,
     & 0.39240E-02, 0.39475E-02, 0.39710E-02, 0.39945E-02, 0.40179E-02,
     &-0.74118E-04,-0.14453E-04, 0.51432E-04, 0.17720E-03, 0.36335E-03,
     & 0.60930E-03, 0.91322E-03, 0.12704E-02, 0.16456E-02, 0.20303E-02,
     & 0.23861E-02, 0.26979E-02, 0.29559E-02, 0.31582E-02, 0.33061E-02,
     & 0.34129E-02, 0.34789E-02, 0.35120E-02, 0.35274E-02, 0.35304E-02,
     & 0.35255E-02, 0.35206E-02, 0.35209E-02, 0.35211E-02, 0.35214E-02,
     & 0.35217E-02, 0.35220E-02, 0.35222E-02, 0.35225E-02, 0.35228E-02,
     &-0.61172E-04,-0.15930E-04, 0.36372E-04, 0.15843E-03, 0.34747E-03,
     & 0.59688E-03, 0.90253E-03, 0.12559E-02, 0.16239E-02, 0.19961E-02,
     & 0.23360E-02, 0.26277E-02, 0.28645E-02, 0.30440E-02, 0.31682E-02,
     & 0.32500E-02, 0.32923E-02, 0.33035E-02, 0.32955E-02, 0.32758E-02,
     & 0.32462E-02, 0.32155E-02, 0.31876E-02, 0.31598E-02, 0.31320E-02,
     & 0.31041E-02, 0.30763E-02, 0.30485E-02, 0.30206E-02, 0.29928E-02,
     &-0.37759E-04,-0.11687E-04, 0.22225E-04, 0.13705E-03, 0.32760E-03,
     & 0.58138E-03, 0.88976E-03, 0.12407E-02, 0.16028E-02, 0.19638E-02,
     & 0.22878E-02, 0.25613E-02, 0.27764E-02, 0.29330E-02, 0.30339E-02,
     & 0.30927E-02, 0.31107E-02, 0.30990E-02, 0.30690E-02, 0.30251E-02,
     & 0.29696E-02, 0.29160E-02, 0.28658E-02, 0.28156E-02, 0.27655E-02,
     & 0.27153E-02, 0.26651E-02, 0.26149E-02, 0.25647E-02, 0.25145E-02,
     &-0.11029E-04,-0.37655E-05, 0.10557E-04, 0.11316E-03, 0.30357E-03,
     & 0.56201E-03, 0.87407E-03, 0.12246E-02, 0.15818E-02, 0.19320E-02,
     & 0.22419E-02, 0.24974E-02, 0.26922E-02, 0.28265E-02, 0.29040E-02,
     & 0.29403E-02, 0.29348E-02, 0.28986E-02, 0.28453E-02, 0.27775E-02,
     & 0.26982E-02, 0.26219E-02, 0.25516E-02, 0.24813E-02, 0.24109E-02,
     & 0.23406E-02, 0.22703E-02, 0.22000E-02, 0.21297E-02, 0.20593E-02,
     &-0.88555E-06,-0.31330E-06, 0.30657E-05, 0.87980E-04, 0.27529E-03,
     & 0.53831E-03, 0.85446E-03, 0.12062E-02, 0.15601E-02, 0.19011E-02,
     & 0.21980E-02, 0.24363E-02, 0.26109E-02, 0.27234E-02, 0.27784E-02,
     & 0.27913E-02, 0.27632E-02, 0.27040E-02, 0.26263E-02, 0.25360E-02,
     & 0.24339E-02, 0.23323E-02, 0.22352E-02, 0.21381E-02, 0.20410E-02,
     & 0.19439E-02, 0.18468E-02, 0.17497E-02, 0.16526E-02, 0.15555E-02,
     & 0.10000E-29, 0.10000E-29, 0.35388E-06, 0.62439E-04, 0.24267E-03,
     & 0.50923E-03, 0.83045E-03, 0.11841E-02, 0.15366E-02, 0.18714E-02,
     & 0.21552E-02, 0.23762E-02, 0.25316E-02, 0.26234E-02, 0.26567E-02,
     & 0.26461E-02, 0.25947E-02, 0.25130E-02, 0.24129E-02, 0.22991E-02,
     & 0.21742E-02, 0.20485E-02, 0.19249E-02, 0.18013E-02, 0.16776E-02,
     & 0.15540E-02, 0.14303E-02, 0.13067E-02, 0.11831E-02, 0.10594E-02,
     & 0.10000E-29, 0.10000E-29, 0.12547E-07, 0.38686E-04, 0.20562E-03,
     & 0.47316E-03, 0.80093E-03, 0.11580E-02, 0.15107E-02, 0.18402E-02,
     & 0.21125E-02, 0.23182E-02, 0.24547E-02, 0.25257E-02, 0.25366E-02,
     & 0.25039E-02, 0.24299E-02, 0.23248E-02, 0.22013E-02, 0.20638E-02,
     & 0.19162E-02, 0.17669E-02, 0.16203E-02, 0.14738E-02, 0.13272E-02,
     & 0.11806E-02, 0.10340E-02, 0.88742E-03, 0.74084E-03, 0.59425E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19160E-04, 0.16522E-03,
     & 0.43090E-03, 0.76489E-03, 0.11262E-02, 0.14809E-02, 0.18071E-02,
     & 0.20706E-02, 0.22621E-02, 0.23804E-02, 0.24314E-02, 0.24207E-02,
     & 0.23657E-02, 0.22690E-02, 0.21408E-02, 0.19938E-02, 0.18332E-02,
     & 0.16630E-02, 0.14888E-02, 0.13151E-02, 0.11415E-02, 0.96783E-03,
     & 0.79418E-03, 0.62053E-03, 0.44689E-03, 0.27324E-03, 0.99596E-04,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.61741E-05, 0.12316E-03,
     & 0.38174E-03, 0.72020E-03, 0.10881E-02, 0.14460E-02, 0.17708E-02,
     & 0.20267E-02, 0.22062E-02, 0.23086E-02, 0.23409E-02, 0.23093E-02,
     & 0.22324E-02, 0.21131E-02, 0.19627E-02, 0.17937E-02, 0.16103E-02,
     & 0.14164E-02, 0.12183E-02, 0.10194E-02, 0.82051E-03, 0.62162E-03,
     & 0.42273E-03, 0.22384E-03, 0.24946E-04,-0.17395E-03,-0.37284E-03/

      data ((clgrdl(i,j),j=1,30),i= 81, 90)/
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.76056E-06, 0.81812E-04,
     & 0.32582E-03, 0.66611E-03, 0.10413E-02, 0.14044E-02, 0.17289E-02,
     & 0.19803E-02, 0.21495E-02, 0.22383E-02, 0.22526E-02, 0.22013E-02,
     & 0.21036E-02, 0.19633E-02, 0.17914E-02, 0.16004E-02, 0.13954E-02,
     & 0.11773E-02, 0.95686E-03, 0.73681E-03, 0.51676E-03, 0.29670E-03,
     & 0.76655E-04,-0.14340E-03,-0.36345E-03,-0.58350E-03,-0.80355E-03,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.27389E-07, 0.45259E-04,
     & 0.26420E-03, 0.60266E-03, 0.98444E-03, 0.13545E-02, 0.16818E-02,
     & 0.19299E-02, 0.20911E-02, 0.21664E-02, 0.21645E-02, 0.20959E-02,
     & 0.19802E-02, 0.18194E-02, 0.16266E-02, 0.14153E-02, 0.11887E-02,
     & 0.94861E-03, 0.70660E-03, 0.46468E-03, 0.22277E-03,-0.19151E-04,
     &-0.26107E-03,-0.50298E-03,-0.74490E-03,-0.98681E-03,-0.12287E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.18290E-04,
     & 0.19913E-03, 0.52928E-03, 0.91696E-03, 0.12946E-02, 0.16263E-02,
     & 0.18736E-02, 0.20284E-02, 0.20940E-02, 0.20785E-02, 0.19928E-02,
     & 0.18585E-02, 0.16790E-02, 0.14669E-02, 0.12358E-02, 0.98882E-03,
     & 0.72838E-03, 0.46530E-03, 0.20265E-03,-0.59990E-04,-0.32263E-03,
     &-0.58528E-03,-0.84792E-03,-0.11106E-02,-0.13732E-02,-0.16359E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.44621E-05,
     & 0.13449E-03, 0.44610E-03, 0.83617E-03, 0.12214E-02, 0.15609E-02,
     & 0.18102E-02, 0.19616E-02, 0.20183E-02, 0.19906E-02, 0.18912E-02,
     & 0.17410E-02, 0.15440E-02, 0.13136E-02, 0.10637E-02, 0.79789E-03,
     & 0.51888E-03, 0.23603E-03,-0.46907E-04,-0.32985E-03,-0.61279E-03,
     &-0.89573E-03,-0.11787E-02,-0.14616E-02,-0.17446E-02,-0.20275E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.46820E-06,
     & 0.76131E-04, 0.35535E-03, 0.74258E-03, 0.11335E-02, 0.14829E-02,
     & 0.17366E-02, 0.18871E-02, 0.19385E-02, 0.19020E-02, 0.17902E-02,
     & 0.16263E-02, 0.14142E-02, 0.11678E-02, 0.90168E-03, 0.61896E-03,
     & 0.32300E-03, 0.22386E-04,-0.27897E-03,-0.58032E-03,-0.88167E-03,
     &-0.11830E-02,-0.14844E-02,-0.17857E-02,-0.20871E-02,-0.23884E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14567E-07,
     & 0.31280E-04, 0.26079E-03, 0.63728E-03, 0.10299E-02, 0.13868E-02,
     & 0.16510E-02, 0.18044E-02, 0.18534E-02, 0.18109E-02, 0.16903E-02,
     & 0.15153E-02, 0.12909E-02, 0.10316E-02, 0.75205E-03, 0.45478E-03,
     & 0.14320E-03,-0.17240E-03,-0.48870E-03,-0.80500E-03,-0.11213E-02,
     &-0.14376E-02,-0.17539E-02,-0.20702E-02,-0.23865E-02,-0.27028E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.64895E-05, 0.16862E-03, 0.52080E-03, 0.90941E-03, 0.12745E-02,
     & 0.15466E-02, 0.17089E-02, 0.17609E-02, 0.17159E-02, 0.15898E-02,
     & 0.14079E-02, 0.11747E-02, 0.90497E-03, 0.61498E-03, 0.30634E-03,
     &-0.16690E-04,-0.34374E-03,-0.67090E-03,-0.99806E-03,-0.13252E-02,
     &-0.16524E-02,-0.19796E-02,-0.23067E-02,-0.26339E-02,-0.29611E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.46922E-06, 0.88556E-04, 0.39895E-03, 0.77292E-03, 0.11432E-02,
     & 0.14255E-02, 0.15960E-02, 0.16548E-02, 0.16135E-02, 0.14878E-02,
     & 0.13021E-02, 0.10640E-02, 0.78872E-03, 0.49211E-03, 0.17632E-03,
     &-0.15371E-03,-0.48898E-03,-0.82506E-03,-0.11611E-02,-0.14972E-02,
     &-0.18333E-02,-0.21694E-02,-0.25054E-02,-0.28415E-02,-0.31776E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.31821E-04, 0.27873E-03, 0.62200E-03, 0.99117E-03,
     & 0.12840E-02, 0.14664E-02, 0.15337E-02, 0.14990E-02, 0.13774E-02,
     & 0.11948E-02, 0.95752E-03, 0.68163E-03, 0.38370E-03, 0.65560E-04,
     &-0.26743E-03,-0.60501E-03,-0.94262E-03,-0.12802E-02,-0.16178E-02,
     &-0.19554E-02,-0.22930E-02,-0.26306E-02,-0.29682E-02,-0.33059E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.57399E-05, 0.17155E-03, 0.46329E-03, 0.81985E-03,
     & 0.11205E-02, 0.13160E-02, 0.13971E-02, 0.13739E-02, 0.12613E-02,
     & 0.10859E-02, 0.85449E-03, 0.58411E-03, 0.29054E-03,-0.23876E-04,
     &-0.35303E-03,-0.68757E-03,-0.10228E-02,-0.13580E-02,-0.16933E-02,
     &-0.20285E-02,-0.23638E-02,-0.26990E-02,-0.30343E-02,-0.33695E-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.37744E-06, 0.89658E-04, 0.30740E-03, 0.63397E-03,
     & 0.93469E-03, 0.11426E-02, 0.12412E-02, 0.12340E-02, 0.11366E-02,
     & 0.97506E-03, 0.75641E-03, 0.49761E-03, 0.21445E-03,-0.89632E-04,
     &-0.40815E-03,-0.73292E-03,-0.10587E-02,-0.13844E-02,-0.17101E-02,
     &-0.20358E-02,-0.23616E-02,-0.26873E-02,-0.30130E-02,-0.33388E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.36035E-04, 0.16907E-03, 0.44260E-03,
     & 0.73116E-03, 0.94804E-03, 0.10622E-02, 0.10757E-02, 0.99983E-03,
     & 0.85907E-03, 0.66015E-03, 0.42043E-03, 0.15591E-03,-0.13015E-03,
     &-0.43072E-03,-0.73749E-03,-0.10456E-02,-0.13537E-02,-0.16619E-02,
     &-0.19700E-02,-0.22781E-02,-0.25862E-02,-0.28943E-02,-0.32025E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.73744E-05, 0.68598E-04, 0.26149E-03,
     & 0.51876E-03, 0.73449E-03, 0.86458E-03, 0.90047E-03, 0.84915E-03,
     & 0.73487E-03, 0.56342E-03, 0.35094E-03, 0.11336E-03,-0.14578E-03,
     &-0.41919E-03,-0.69961E-03,-0.98235E-03,-0.12651E-02,-0.15478E-02,
     &-0.18306E-02,-0.21133E-02,-0.23960E-02,-0.26788E-02,-0.29615E-02,
     & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29,
     & 0.10000E-29, 0.10000E-29, 0.53680E-06, 0.16876E-04, 0.11404E-03,
     & 0.31354E-03, 0.51245E-03, 0.65076E-03, 0.70747E-03, 0.68529E-03,
     & 0.60306E-03, 0.46579E-03, 0.28834E-03, 0.85438E-04,-0.13828E-03,
     &-0.37572E-03,-0.62082E-03,-0.86922E-03,-0.11176E-02,-0.13660E-02,
     &-0.16144E-02,-0.18628E-02,-0.21112E-02,-0.23596E-02,-0.26080E-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.15446E-05, 0.26345E-04,
     & 0.14145E-03, 0.30041E-03, 0.43237E-03, 0.50423E-03, 0.51088E-03,
     & 0.46307E-03, 0.36437E-03, 0.22871E-03, 0.68731E-04,-0.11106E-03,
     &-0.30394E-03,-0.50460E-03,-0.70936E-03,-0.91411E-03,-0.11189E-02,
     &-0.13236E-02,-0.15284E-02,-0.17331E-02,-0.19379E-02,-0.21426E-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.11349E-07, 0.21439E-05,
     & 0.34135E-04, 0.12635E-03, 0.23070E-03, 0.30512E-03, 0.33257E-03,
     & 0.31776E-03, 0.26011E-03, 0.16993E-03, 0.57896E-04,-0.71718E-04,
     &-0.21326E-03,-0.36220E-03,-0.51570E-03,-0.66920E-03,-0.82270E-03,
     &-0.97620E-03,-0.11297E-02,-0.12832E-02,-0.14367E-02,-0.15902E-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.28763E-05, 0.25679E-04, 0.79080E-04, 0.13457E-03, 0.16915E-03,
     & 0.17774E-03, 0.15622E-03, 0.11002E-03, 0.46401E-04,-0.31399E-04,
     &-0.11929E-03,-0.21336E-03,-0.31165E-03,-0.40993E-03,-0.50821E-03,
     &-0.60649E-03,-0.70477E-03,-0.80306E-03,-0.90134E-03,-0.99962E-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.18510E-05, 0.10426E-04, 0.29432E-04, 0.50719E-04,
     & 0.64579E-04, 0.65269E-04, 0.52280E-04, 0.28720E-04,-0.38653E-05,
     &-0.43291E-04,-0.86794E-04,-0.13318E-03,-0.17957E-03,-0.22596E-03,
     &-0.27235E-03,-0.31874E-03,-0.36512E-03,-0.41151E-03,-0.45790E-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.35009E-06, 0.22913E-05, 0.52997E-05,
     & 0.87801E-05, 0.11229E-04, 0.11077E-04, 0.81166E-05, 0.22798E-05,
     &-0.60743E-05,-0.15945E-04,-0.26877E-04,-0.37808E-04,-0.48739E-04,
     &-0.59671E-04,-0.70602E-04,-0.81534E-04,-0.92465E-04,-0.10340E-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.22929E-08, 0.52969E-07,
     & 0.29693E-06, 0.62384E-06, 0.80267E-06, 0.73873E-06, 0.38935E-06,
     &-0.23083E-06,-0.10157E-05,-0.19145E-05,-0.28133E-05,-0.37121E-05,
     &-0.46110E-05,-0.55098E-05,-0.64086E-05,-0.73074E-05,-0.82063E-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.33211E+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.33256E+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.33378E+00, 0.33300E+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.33421E+00, 0.33344E+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.33554E+00, 0.33480E+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.33598E+00, 0.33525E+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.33690E+00, 0.33617E+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.33732E+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.33773E+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.33901E+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.33942E+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.34023E+00, 0.33962E+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.34002E+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.34097E+00, 0.34040E+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.34133E+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.34113E+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.34196E+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.34225E+00, 0.34177E+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.34254E+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.34278E+00, 0.34234E+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.34298E+00, 0.34258E+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.34331E+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.34343E+00, 0.34311E+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.34355E+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.34332E+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.34351E+00, 0.34331E+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.34338E+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.34321E+00, 0.34309E+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.34267E+00, 0.34264E+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.34188E+00, 0.34192E+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.34075E+00, 0.34088E+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.34008E+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.33837E+00, 0.33864E+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.33498E+00, 0.33539E+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.33360E+00, 0.33406E+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.33207E+00, 0.33259E+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.32858E+00, 0.32920E+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.32662E+00, 0.32727E+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.32445E+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.32211E+00, 0.32288E+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.31957E+00, 0.32039E+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.31684E+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.31394E+00, 0.31486E+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.31079E+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.30846E+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.30384E+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.30003E+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.29601E+00, 0.29717E+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.29170E+00, 0.29292E+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.28238E+00, 0.28370E+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.27738E+00, 0.27874E+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.24891E+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.24268E+00, 0.24431E+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.22984E+00, 0.23152E+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.22330E+00, 0.22500E+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.20368E+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.19732E+00, 0.19908E+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.19117E+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.17425E+00, 0.17585E+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.16928E+00, 0.17079E+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.16469E+00, 0.16609E+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.16046E+00, 0.16172E+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.15658E+00, 0.15767E+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.15297E+00, 0.15384E+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.14955E+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.14611E+00, 0.14638E+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.14239E+00, 0.14229E+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.13812E+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.13274E+00, 0.13167E+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.12548E+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.11481E+00, 0.11249E+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.96914E-01, 0.94003E-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.47971E-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.48092E-01, 0.44763E-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.44880E-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.48282E-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.48415E-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.48486E-01, 0.45129E-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.48554E-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.48628E-01, 0.45262E-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.48701E-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.48772E-01, 0.45397E-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.48847E-01, 0.45467E-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.48925E-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.49002E-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.49160E-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.49236E-01, 0.45829E-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.49399E-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.49478E-01, 0.46054E-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.49719E-01, 0.46278E-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.49796E-01, 0.46350E-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.49873E-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.49951E-01, 0.46494E-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.50025E-01, 0.46563E-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.50099E-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.50164E-01, 0.46693E-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.50229E-01, 0.46753E-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.50292E-01, 0.46810E-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.50347E-01, 0.46862E-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.50398E-01, 0.46909E-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.50440E-01, 0.46949E-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.50476E-01, 0.46982E-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.50502E-01, 0.47007E-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.50520E-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.47029E-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.50520E-01, 0.47024E-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.50501E-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.50134E-01, 0.46665E-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.49996E-01, 0.46535E-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.49829E-01, 0.46380E-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.49632E-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.49401E-01, 0.45981E-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.49135E-01, 0.45734E-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.48833E-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.48487E-01, 0.45131E-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.48097E-01, 0.44768E-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.47661E-01, 0.44363E-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.47177E-01, 0.43911E-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.46640E-01, 0.43410E-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.46042E-01, 0.42855E-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.41578E-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.43889E-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.43044E-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.42128E-01, 0.39212E-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.41143E-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.40087E-01, 0.37313E-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.38962E-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.37767E-01, 0.35154E-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.36504E-01, 0.33978E-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.35176E-01, 0.32741E-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.32332E-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.30828E-01, 0.28694E-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.29278E-01, 0.27251E-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.27689E-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.26068E-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.24428E-01, 0.22736E-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.22779E-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.21128E-01, 0.19665E-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.19492E-01, 0.18143E-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.17879E-01, 0.16641E-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.16300E-01, 0.15172E-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.14770E-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.13288E-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.11867E-01, 0.11045E-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.97832E-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.79957E-02, 0.74423E-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.68325E-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.57265E-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.36669E-02, 0.34132E-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.27131E-02, 0.25253E-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.10263E-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.38393E-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.42563E-04, 0.39616E-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
