      SUBROUTINE    WAVA3(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
C
C     WATER VAPOR (7620 - 10160 CM-1)
C
       DATA ((ACR(K,J),K=1,8),J=  1,  8) /
     A 0.92641E-01, 0.26739E+00, 0.74828E-02,-0.36295E-04, 0.65918E-02,
     A-0.36255E-04, 0.76200E+04, 0.76300E+04,
     A 0.24311E+00, 0.19859E+00, 0.29686E-02,-0.19830E-04, 0.23399E-02,
     A-0.16807E-04, 0.76300E+04, 0.76400E+04,
     A 0.12025E+00, 0.11463E+00, 0.59820E-02,-0.32695E-04, 0.55500E-02,
     A-0.28170E-04, 0.76400E+04, 0.76500E+04,
     A 0.13658E+00, 0.26836E+00, 0.72502E-02,-0.21381E-04, 0.73061E-02,
     A-0.30405E-04, 0.76500E+04, 0.76600E+04,
     A 0.10472E+00, 0.25523E+00, 0.79597E-02,-0.32676E-04, 0.58214E-02,
     A-0.31308E-04, 0.76600E+04, 0.76700E+04,
     A 0.99714E-01, 0.25003E+00, 0.12338E-01,-0.56896E-04, 0.10569E-01,
     A-0.51734E-04, 0.76700E+04, 0.76800E+04,
     A 0.58366E-01, 0.22207E+00, 0.11694E-01,-0.51427E-04, 0.11909E-01,
     A-0.49050E-04, 0.76800E+04, 0.76900E+04,
     A 0.35387E-01, 0.17329E+00, 0.16862E-01,-0.75246E-04, 0.13502E-01,
     A-0.63311E-04, 0.76900E+04, 0.77000E+04/
       DATA ((ACR(K,J),K=1,8),J=  9, 16) /
     A 0.36568E-01, 0.21034E+00, 0.81374E-02,-0.24226E-04, 0.63861E-02,
     A-0.25253E-04, 0.77000E+04, 0.77100E+04,
     A 0.27597E-01, 0.33962E+00, 0.17925E-01,-0.68929E-04, 0.15283E-01,
     A-0.66807E-04, 0.77100E+04, 0.77200E+04,
     A 0.10316E-01, 0.41286E+00, 0.19917E-01,-0.48503E-04, 0.17007E-01,
     A-0.58717E-04, 0.77200E+04, 0.77300E+04,
     A 0.81553E-02, 0.25560E+00, 0.21997E-01,-0.88437E-04, 0.20546E-01,
     A-0.85162E-04, 0.77300E+04, 0.77400E+04,
     A 0.15975E-01, 0.21315E+00, 0.71481E-02, 0.31142E-05, 0.10474E-01,
     A-0.13461E-04, 0.77400E+04, 0.77500E+04,
     A 0.13868E-01, 0.24329E+00, 0.94502E-02,-0.18614E-04, 0.10702E-01,
     A-0.34118E-04, 0.77500E+04, 0.77600E+04,
     A 0.77141E-02, 0.22964E+00, 0.11399E-01,-0.10108E-04, 0.12776E-01,
     A-0.37304E-04, 0.77600E+04, 0.77700E+04,
     A 0.21739E-02, 0.34321E+00, 0.19734E-01,-0.51909E-04, 0.19414E-01,
     A-0.73442E-04, 0.77700E+04, 0.77800E+04/
       DATA ((ACR(K,J),K=1,8),J= 17, 24) /
     A 0.45720E-02, 0.18176E+00, 0.10354E-01,-0.17399E-04, 0.10948E-01,
     A-0.35358E-04, 0.77800E+04, 0.77900E+04,
     A 0.11295E-02, 0.18695E+00, 0.14646E-01, 0.40360E-04, 0.15891E-01,
     A-0.20174E-04, 0.77900E+04, 0.78000E+04,
     A 0.33023E-02, 0.15293E+00, 0.13409E-01,-0.53371E-04, 0.11569E-01,
     A-0.47548E-04, 0.78000E+04, 0.78100E+04,
     A 0.52016E-02, 0.24404E+00, 0.12628E-01,-0.36541E-04, 0.12950E-01,
     A-0.38949E-04, 0.78100E+04, 0.78200E+04,
     A 0.11330E-03, 0.81552E-01, 0.18370E-01,-0.77312E-04, 0.14695E-01,
     A-0.70503E-04, 0.78200E+04, 0.78300E+04,
     A 0.54995E-02, 0.14297E+00, 0.65566E-02,-0.26750E-04, 0.45262E-02,
     A-0.20113E-04, 0.78300E+04, 0.78400E+04,
     A 0.31204E-03, 0.10156E+00, 0.88239E-02,-0.38012E-04, 0.82963E-02,
     A-0.34068E-04, 0.78400E+04, 0.78500E+04,
     A 0.19523E-02, 0.20697E+00, 0.20480E-01,-0.60781E-04, 0.18775E-01,
     A-0.69708E-04, 0.78500E+04, 0.78600E+04/
       DATA ((ACR(K,J),K=1,8),J= 25, 32) /
     A 0.24757E-02, 0.96980E-01, 0.11294E-01,-0.46510E-04, 0.98378E-02,
     A-0.42459E-04, 0.78600E+04, 0.78700E+04,
     A 0.27171E-03, 0.14226E+00, 0.17805E-01,-0.69496E-04, 0.15097E-01,
     A-0.70161E-04, 0.78700E+04, 0.78800E+04,
     A 0.12276E-02, 0.10591E+00, 0.14194E-01,-0.54065E-04, 0.10612E-01,
     A-0.52507E-04, 0.78800E+04, 0.78900E+04,
     A 0.41923E-03, 0.13358E+00, 0.16960E-01,-0.44025E-04, 0.15096E-01,
     A-0.58421E-04, 0.78900E+04, 0.79000E+04,
     A 0.33444E-03, 0.13345E+00, 0.11391E-01,-0.11840E-05, 0.12153E-01,
     A-0.23277E-04, 0.79000E+04, 0.79100E+04,
     A 0.13058E-02, 0.21624E+00, 0.16927E-01,-0.69213E-04, 0.13941E-01,
     A-0.63876E-04, 0.79100E+04, 0.79200E+04,
     A 0.11995E-03, 0.75585E-01, 0.13632E-01,-0.40157E-04, 0.13768E-01,
     A-0.50661E-04, 0.79200E+04, 0.79300E+04,
     A 0.11716E-02, 0.18257E+00, 0.13971E-01,-0.51254E-04, 0.12846E-01,
     A-0.56651E-04, 0.79300E+04, 0.79400E+04/
       DATA ((ACR(K,J),K=1,8),J= 33, 40) /
     A 0.50520E-03, 0.76356E-01, 0.12922E-01,-0.20119E-04, 0.13988E-01,
     A-0.42851E-04, 0.79400E+04, 0.79500E+04,
     A 0.24426E-03, 0.12530E+00, 0.10339E-01,-0.43784E-05, 0.10719E-01,
     A-0.36650E-04, 0.79500E+04, 0.79600E+04,
     A 0.54140E-03, 0.72313E-01, 0.19259E-01,-0.85650E-04, 0.15920E-01,
     A-0.79109E-04, 0.79600E+04, 0.79700E+04,
     A 0.76374E-03, 0.68718E-01, 0.18517E-01,-0.67616E-04, 0.16394E-01,
     A-0.73663E-04, 0.79700E+04, 0.79800E+04,
     A 0.25606E-03, 0.77067E-01, 0.16494E-01,-0.75101E-04, 0.12720E-01,
     A-0.66656E-04, 0.79800E+04, 0.79900E+04,
     A 0.15654E-03, 0.11158E+00, 0.10695E-01,-0.40866E-04, 0.81416E-02,
     A-0.43630E-04, 0.79900E+04, 0.80000E+04,
     A 0.41929E-04, 0.90036E-01, 0.24363E-01,-0.10641E-03, 0.21621E-01,
     A-0.10231E-03, 0.80000E+04, 0.80100E+04,
     A 0.73175E-03, 0.10587E+00, 0.16949E-01,-0.60390E-04, 0.15862E-01,
     A-0.71742E-04, 0.80100E+04, 0.80200E+04/
       DATA ((ACR(K,J),K=1,8),J= 41, 48) /
     A 0.80080E-04, 0.30563E-01, 0.19843E-01,-0.91766E-04, 0.17086E-01,
     A-0.86214E-04, 0.80200E+04, 0.80300E+04,
     A 0.24279E-04, 0.56812E-01, 0.22624E-01,-0.99621E-04, 0.20301E-01,
     A-0.97332E-04, 0.80300E+04, 0.80400E+04,
     A 0.18866E-04, 0.52834E-01, 0.12394E-01,-0.44016E-04, 0.93994E-02,
     A-0.46495E-04, 0.80400E+04, 0.80500E+04,
     A 0.97669E-03, 0.89736E-01, 0.62407E-02,-0.25133E-04, 0.58520E-02,
     A-0.25560E-04, 0.80500E+04, 0.80600E+04,
     A 0.11471E-02, 0.29409E-01, 0.20690E-01,-0.95110E-04, 0.18237E-01,
     A-0.90575E-04, 0.80600E+04, 0.80700E+04,
     A 0.77566E-03, 0.12509E+00, 0.12079E-01,-0.50880E-04, 0.10725E-01,
     A-0.52092E-04, 0.80700E+04, 0.80800E+04,
     A 0.31030E-02, 0.73291E-01, 0.16462E-01,-0.73991E-04, 0.15208E-01,
     A-0.68516E-04, 0.80800E+04, 0.80900E+04,
     A 0.12510E-02, 0.11933E+00, 0.14229E-01,-0.62251E-04, 0.11779E-01,
     A-0.60990E-04, 0.80900E+04, 0.81000E+04/
       DATA ((ACR(K,J),K=1,8),J= 49, 56) /
     A 0.14990E-02, 0.13662E+00, 0.65894E-02,-0.85570E-05, 0.83512E-02,
     A-0.19086E-04, 0.81000E+04, 0.81100E+04,
     A 0.20532E-02, 0.10298E+00, 0.15994E-01,-0.65137E-04, 0.14131E-01,
     A-0.62564E-04, 0.81100E+04, 0.81200E+04,
     A 0.17448E-02, 0.67598E-01, 0.14749E-01,-0.62930E-04, 0.13541E-01,
     A-0.59773E-04, 0.81200E+04, 0.81300E+04,
     A 0.15039E-02, 0.12946E+00, 0.18816E-01,-0.50022E-04, 0.17492E-01,
     A-0.59638E-04, 0.81300E+04, 0.81400E+04,
     A 0.46638E-02, 0.10350E+00, 0.62829E-02,-0.34218E-04, 0.36814E-02,
     A-0.25761E-04, 0.81400E+04, 0.81500E+04,
     A 0.10319E-02, 0.66367E-01, 0.71775E-02,-0.28782E-04, 0.10631E-01,
     A-0.20230E-04, 0.81500E+04, 0.81600E+04,
     A 0.46436E-02, 0.96269E-01, 0.15527E-01,-0.61225E-04, 0.15071E-01,
     A-0.63728E-04, 0.81600E+04, 0.81700E+04,
     A 0.57048E-02, 0.15352E+00, 0.32127E-02,-0.16432E-04, 0.35091E-02,
     A-0.12277E-04, 0.81700E+04, 0.81800E+04/
       DATA ((ACR(K,J),K=1,8),J= 57, 64) /
     A 0.11525E-01, 0.15916E+00, 0.83892E-02,-0.10637E-04, 0.67801E-02,
     A-0.25386E-04, 0.81800E+04, 0.81900E+04,
     A 0.74791E-02, 0.18295E+00, 0.48041E-02,-0.20748E-04, 0.44988E-02,
     A-0.17162E-04, 0.81900E+04, 0.82000E+04,
     A 0.11502E-01, 0.15897E+00, 0.99626E-02,-0.17036E-04, 0.10154E-01,
     A-0.35251E-04, 0.82000E+04, 0.82100E+04,
     A 0.32694E-01, 0.12981E+00, 0.16557E-02, 0.14661E-04, 0.35153E-02,
     A 0.10696E-05, 0.82100E+04, 0.82200E+04,
     A 0.74920E-02, 0.12913E+00, 0.71536E-02,-0.29018E-04, 0.69835E-02,
     A-0.33541E-04, 0.82200E+04, 0.82300E+04,
     A 0.47072E-01, 0.21294E+00, 0.94858E-02,-0.42608E-04, 0.75764E-02,
     A-0.39014E-04, 0.82300E+04, 0.82400E+04,
     A 0.17525E-01, 0.16065E+00, 0.24969E-02,-0.10727E-05, 0.20059E-02,
     A-0.53490E-05, 0.82400E+04, 0.82500E+04,
     A 0.57547E-01, 0.16256E+00, 0.53651E-02,-0.31796E-04, 0.32968E-02,
     A-0.28841E-04, 0.82500E+04, 0.82600E+04/
       DATA ((ACR(K,J),K=1,8),J= 65, 72) /
     A 0.43086E-01, 0.11299E+00, 0.44958E-02,-0.24017E-04, 0.36046E-02,
     A-0.20674E-04, 0.82600E+04, 0.82700E+04,
     A 0.10051E+00, 0.15621E+00, 0.34824E-02,-0.21289E-04, 0.19497E-02,
     A-0.20952E-04, 0.82700E+04, 0.82800E+04,
     A 0.73404E-01, 0.16218E+00, 0.17977E-02,-0.13976E-04, 0.15476E-03,
     A-0.65472E-05, 0.82800E+04, 0.82900E+04,
     A 0.85230E-01, 0.11256E+00, 0.29553E-03,-0.99833E-05,-0.12813E-03,
     A-0.46912E-05, 0.82900E+04, 0.83000E+04,
     A 0.18180E+00, 0.19506E+00,-0.18708E-02,-0.21763E-05,-0.27279E-02,
     A 0.23065E-05, 0.83000E+04, 0.83100E+04,
     A 0.30278E-01, 0.16740E+00, 0.55443E-02,-0.23707E-04, 0.51615E-02,
     A-0.23428E-04, 0.83100E+04, 0.83200E+04,
     A 0.11462E+00, 0.20492E+00,-0.10659E-02,-0.94245E-06,-0.22118E-02,
     A 0.42668E-05, 0.83200E+04, 0.83300E+04,
     A 0.99231E-01, 0.19833E+00,-0.35775E-03,-0.38380E-05,-0.25607E-02,
     A-0.36304E-06, 0.83300E+04, 0.83400E+04/
       DATA ((ACR(K,J),K=1,8),J= 73, 80) /
     A 0.99199E-01, 0.18538E+00,-0.23017E-02, 0.66528E-05,-0.23339E-02,
     A 0.61821E-05, 0.83400E+04, 0.83500E+04,
     A 0.59379E-01, 0.77001E-01,-0.49120E-02, 0.14256E-04,-0.25954E-02,
     A 0.30037E-04, 0.83500E+04, 0.83600E+04,
     A 0.44008E-01, 0.20401E+00, 0.14099E-02,-0.51535E-05, 0.19118E-02,
     A-0.16011E-05, 0.83600E+04, 0.83700E+04,
     A 0.90539E-01, 0.80760E-01,-0.35383E-02, 0.13223E-04,-0.28138E-02,
     A 0.13001E-04, 0.83700E+04, 0.83800E+04,
     A 0.14326E-01, 0.18090E+00, 0.59988E-02, 0.73310E-06, 0.76689E-02,
     A-0.17035E-04, 0.83800E+04, 0.83900E+04,
     A 0.46664E-01, 0.17340E+00,-0.87294E-03, 0.10561E-04, 0.31024E-03,
     A 0.27678E-05, 0.83900E+04, 0.84000E+04,
     A 0.10171E+00, 0.16186E+00,-0.17894E-02,-0.28284E-05,-0.40067E-02,
     A-0.14559E-06, 0.84000E+04, 0.84100E+04,
     A 0.30821E+00, 0.25107E+00,-0.32854E-02, 0.58502E-05,-0.36961E-02,
     A 0.93802E-05, 0.84100E+04, 0.84200E+04/
       DATA ((ACR(K,J),K=1,8),J= 81, 88) /
     A 0.63199E-01, 0.24205E+00,-0.11158E-02, 0.37207E-05,-0.13624E-02,
     A 0.50058E-05, 0.84200E+04, 0.84300E+04,
     A 0.99053E-01, 0.16171E+00,-0.31354E-02, 0.14107E-04,-0.41612E-03,
     A 0.90938E-05, 0.84300E+04, 0.84400E+04,
     A 0.18961E+00, 0.16575E+00,-0.36207E-02, 0.49966E-05,-0.41916E-02,
     A 0.82034E-05, 0.84400E+04, 0.84500E+04,
     A 0.17725E+00, 0.21239E+00,-0.77569E-03,-0.20023E-05,-0.49558E-03,
     A-0.51555E-05, 0.84500E+04, 0.84600E+04,
     A 0.27753E+00, 0.33354E+00, 0.90668E-03,-0.75987E-05, 0.17804E-03,
     A-0.64173E-05, 0.84600E+04, 0.84700E+04,
     A 0.14123E+00, 0.13127E+00,-0.12234E-03,-0.83078E-05,-0.44170E-03,
     A-0.44651E-05, 0.84700E+04, 0.84800E+04,
     A 0.93615E-01, 0.12378E+00,-0.22473E-02, 0.64460E-05,-0.23144E-02,
     A 0.21685E-04, 0.84800E+04, 0.84900E+04,
     A 0.20449E+00, 0.23918E+00, 0.11176E-02,-0.36761E-05, 0.18000E-02,
     A-0.50232E-05, 0.84900E+04, 0.85000E+04/
       DATA ((ACR(K,J),K=1,8),J= 89, 96) /
     A 0.89489E-01, 0.16701E+00, 0.39531E-02,-0.66471E-05, 0.51864E-02,
     A 0.49471E-05, 0.85000E+04, 0.85100E+04,
     A 0.23406E+00, 0.40842E+00, 0.43192E-02,-0.15846E-04, 0.44314E-02,
     A-0.23087E-04, 0.85100E+04, 0.85200E+04,
     A 0.14482E+00, 0.32325E+00, 0.41937E-02, 0.56608E-05, 0.44945E-02,
     A 0.32348E-06, 0.85200E+04, 0.85300E+04,
     A 0.64432E-01, 0.26897E+00, 0.65578E-02,-0.12568E-04, 0.76070E-02,
     A-0.20405E-04, 0.85300E+04, 0.85400E+04,
     A 0.57924E-01, 0.33321E+00, 0.91543E-02, 0.98398E-05, 0.86335E-02,
     A-0.18156E-04, 0.85400E+04, 0.85500E+04,
     A 0.10794E+00, 0.40047E+00, 0.10231E-01, 0.12947E-04, 0.10777E-01,
     A-0.23286E-04, 0.85500E+04, 0.85600E+04,
     A 0.81479E-01, 0.27006E+00, 0.10378E-01,-0.14458E-04, 0.96133E-02,
     A-0.31676E-04, 0.85600E+04, 0.85700E+04,
     A 0.21551E+00, 0.37486E+00, 0.15271E-01,-0.43087E-04, 0.11958E-01,
     A-0.48780E-04, 0.85700E+04, 0.85800E+04/
       DATA ((ACR(K,J),K=1,8),J= 97,104) /
     A 0.11970E+00, 0.42176E+00, 0.11436E-01,-0.27559E-04, 0.12343E-01,
     A-0.48358E-04, 0.85800E+04, 0.85900E+04,
     A 0.11940E+00, 0.26383E+00, 0.17025E-01,-0.63908E-04, 0.12895E-01,
     A-0.53752E-04, 0.85900E+04, 0.86000E+04,
     A 0.35022E+00, 0.24839E+00, 0.15312E-01,-0.67204E-04, 0.11349E-01,
     A-0.57230E-04, 0.86000E+04, 0.86100E+04,
     A 0.43429E+00, 0.32749E+00, 0.14111E-01,-0.61858E-04, 0.11100E-01,
     A-0.52145E-04, 0.86100E+04, 0.86200E+04,
     A 0.64900E+00, 0.17775E+00, 0.12005E-01,-0.57105E-04, 0.91759E-02,
     A-0.45878E-04, 0.86200E+04, 0.86300E+04,
     A 0.62583E+00, 0.25590E+00, 0.11761E-01,-0.56030E-04, 0.90211E-02,
     A-0.48934E-04, 0.86300E+04, 0.86400E+04,
     A 0.35750E+00, 0.36475E+00, 0.10308E-01,-0.43411E-04, 0.88328E-02,
     A-0.39083E-04, 0.86400E+04, 0.86500E+04,
     A 0.11133E+01, 0.13506E+00, 0.80358E-02,-0.43334E-04, 0.68137E-02,
     A-0.39624E-04, 0.86500E+04, 0.86600E+04/
       DATA ((ACR(K,J),K=1,8),J=105,112) /
     A 0.13387E+01, 0.31665E+00, 0.78192E-02,-0.38805E-04, 0.49558E-02,
     A-0.33187E-04, 0.86600E+04, 0.86700E+04,
     A 0.27498E+01, 0.16946E+00, 0.49939E-02,-0.30487E-04, 0.31261E-02,
     A-0.25786E-04, 0.86700E+04, 0.86800E+04,
     A 0.24398E+01, 0.19531E+00, 0.44402E-02,-0.29193E-04, 0.22819E-02,
     A-0.25054E-04, 0.86800E+04, 0.86900E+04,
     A 0.30993E+01, 0.19328E+00, 0.22645E-02,-0.19507E-04, 0.57430E-03,
     A-0.16236E-04, 0.86900E+04, 0.87000E+04,
     A 0.12713E+01, 0.17117E+00, 0.10656E-02,-0.15353E-04,-0.62313E-03,
     A-0.88734E-05, 0.87000E+04, 0.87100E+04,
     A 0.31649E+01, 0.17696E+00, 0.10942E-02,-0.15108E-04,-0.88648E-03,
     A-0.87401E-05, 0.87100E+04, 0.87200E+04,
     A 0.31075E+01, 0.11851E+00,-0.94639E-04,-0.92083E-05,-0.36777E-03,
     A-0.64753E-05, 0.87200E+04, 0.87300E+04,
     A 0.70407E+01, 0.19201E+00,-0.21209E-02,-0.36303E-05,-0.46941E-02,
     A 0.10611E-05, 0.87300E+04, 0.87400E+04/
       DATA ((ACR(K,J),K=1,8),J=113,120) /
     A 0.12454E+01, 0.17319E+00,-0.19955E-02,-0.14314E-05,-0.21532E-02,
     A-0.58242E-06, 0.87400E+04, 0.87500E+04,
     A 0.83443E+00, 0.14890E+00,-0.31702E-02, 0.39260E-05,-0.22958E-02,
     A 0.38306E-05, 0.87500E+04, 0.87600E+04,
     A 0.36918E+01, 0.11215E+00,-0.41869E-02, 0.46517E-05,-0.65413E-02,
     A 0.11815E-04, 0.87600E+04, 0.87700E+04,
     A 0.93114E+00, 0.16247E+00, 0.86756E-03,-0.49431E-05, 0.67174E-03,
     A-0.47220E-05, 0.87700E+04, 0.87800E+04,
     A 0.25247E+01, 0.85808E-01,-0.48350E-02, 0.92270E-05,-0.60959E-02,
     A 0.12095E-04, 0.87800E+04, 0.87900E+04,
     A 0.53387E+00, 0.20115E+00,-0.16551E-02, 0.71592E-05,-0.53003E-03,
     A 0.98880E-06, 0.87900E+04, 0.88000E+04,
     A 0.66475E+01, 0.28681E+00,-0.18744E-02, 0.35629E-05,-0.15672E-02,
     A 0.29490E-05, 0.88000E+04, 0.88100E+04,
     A 0.13449E+02, 0.46562E+00, 0.10817E-02,-0.81158E-05, 0.44146E-03,
     A-0.96568E-05, 0.88100E+04, 0.88200E+04/
       DATA ((ACR(K,J),K=1,8),J=121,128) /
     A 0.23072E+01, 0.29228E+00, 0.18897E-02, 0.45344E-05, 0.23839E-02,
     A-0.87201E-05, 0.88200E+04, 0.88300E+04,
     A 0.38221E+00, 0.20370E+00, 0.49695E-03, 0.65162E-05, 0.21768E-02,
     A 0.32622E-05, 0.88300E+04, 0.88400E+04,
     A 0.11249E+01, 0.14056E+00,-0.38223E-02, 0.16534E-04, 0.28673E-03,
     A 0.19579E-04, 0.88400E+04, 0.88500E+04,
     A 0.48272E+01, 0.98788E-01,-0.50130E-02, 0.90675E-05,-0.56650E-02,
     A 0.13142E-04, 0.88500E+04, 0.88600E+04,
     A 0.75620E+01, 0.14568E+00,-0.43638E-02, 0.53176E-05,-0.63322E-02,
     A 0.10740E-04, 0.88600E+04, 0.88700E+04,
     A 0.24448E+01, 0.13155E+00,-0.24170E-02,-0.27983E-06,-0.34547E-02,
     A 0.34138E-05, 0.88700E+04, 0.88800E+04,
     A 0.80582E+01, 0.19292E+00,-0.28534E-02,-0.80358E-06,-0.51566E-02,
     A 0.39531E-05, 0.88800E+04, 0.88900E+04,
     A 0.57451E+01, 0.18168E+00,-0.50148E-03,-0.95111E-05,-0.19306E-02,
     A-0.60172E-05, 0.88900E+04, 0.89000E+04/
       DATA ((ACR(K,J),K=1,8),J=129,136) /
     A 0.70547E+01, 0.19464E+00,-0.10049E-02,-0.74656E-05,-0.25268E-02,
     A-0.43122E-05, 0.89000E+04, 0.89100E+04,
     A 0.54039E+01, 0.15719E+00, 0.16933E-02,-0.18412E-04, 0.56219E-03,
     A-0.16145E-04, 0.89100E+04, 0.89200E+04,
     A 0.35653E+01, 0.19909E+00, 0.33052E-02,-0.22923E-04, 0.51910E-03,
     A-0.14385E-04, 0.89200E+04, 0.89300E+04,
     A 0.29405E+01, 0.30828E+00, 0.50674E-02,-0.29116E-04, 0.27789E-02,
     A-0.23443E-04, 0.89300E+04, 0.89400E+04,
     A 0.19927E+01, 0.15337E+00, 0.40525E-02,-0.24922E-04, 0.21726E-02,
     A-0.18937E-04, 0.89400E+04, 0.89500E+04,
     A 0.31994E+01, 0.39446E+00, 0.66249E-02,-0.34407E-04, 0.41704E-02,
     A-0.29800E-04, 0.89500E+04, 0.89600E+04,
     A 0.10124E+01, 0.30510E+00, 0.95861E-02,-0.42600E-04, 0.71420E-02,
     A-0.39564E-04, 0.89600E+04, 0.89700E+04,
     A 0.55494E+00, 0.31765E+00, 0.12349E-01,-0.50981E-04, 0.84323E-02,
     A-0.39712E-04, 0.89700E+04, 0.89800E+04/
       DATA ((ACR(K,J),K=1,8),J=137,144) /
     A 0.62962E+00, 0.34745E+00, 0.68325E-02,-0.67823E-05, 0.66120E-02,
     A-0.22655E-04, 0.89800E+04, 0.89900E+04,
     A 0.39155E+00, 0.17506E+00, 0.14525E-01,-0.64228E-04, 0.12836E-01,
     A-0.58540E-04, 0.89900E+04, 0.90000E+04,
     A 0.29338E+00, 0.19531E+00, 0.14921E-01,-0.57995E-04, 0.12214E-01,
     A-0.46413E-04, 0.90000E+04, 0.90100E+04,
     A 0.11700E+00, 0.34769E+00, 0.13815E-01,-0.14315E-04, 0.11336E-01,
     A-0.32553E-04, 0.90100E+04, 0.90200E+04,
     A 0.16223E+00, 0.35064E+00, 0.89364E-02, 0.21825E-04, 0.10979E-01,
     A-0.25030E-04, 0.90200E+04, 0.90300E+04,
     A 0.21742E-01, 0.25837E+00, 0.21279E-01,-0.69818E-04, 0.17662E-01,
     A-0.68568E-04, 0.90300E+04, 0.90400E+04,
     A 0.56078E-01, 0.27822E+00, 0.12493E-01, 0.18431E-04, 0.13824E-01,
     A-0.27676E-04, 0.90400E+04, 0.90500E+04,
     A 0.50045E-01, 0.24927E+00, 0.25877E-02, 0.45316E-04, 0.58234E-02,
     A 0.97906E-05, 0.90500E+04, 0.90600E+04/
       DATA ((ACR(K,J),K=1,8),J=145,152) /
     A 0.74041E-01, 0.16880E+00, 0.31016E-02,-0.12901E-04, 0.31503E-02,
     A-0.95272E-05, 0.90600E+04, 0.90700E+04,
     A 0.35788E-01, 0.25671E+00, 0.55742E-02,-0.33952E-05, 0.67343E-02,
     A-0.97505E-05, 0.90700E+04, 0.90800E+04,
     A 0.57922E-01, 0.23584E+00, 0.22587E-02,-0.92537E-05, 0.15239E-02,
     A-0.70447E-05, 0.90800E+04, 0.90900E+04,
     A 0.33597E-01, 0.22977E+00, 0.30824E-02,-0.11293E-04, 0.33924E-02,
     A-0.56695E-05, 0.90900E+04, 0.91000E+04,
     A 0.70807E-01, 0.38398E+00, 0.33167E-02,-0.82422E-05, 0.23520E-02,
     A-0.17904E-04, 0.91000E+04, 0.91100E+04,
     A 0.70250E-02, 0.18707E+00, 0.88140E-02,-0.27390E-04, 0.84040E-02,
     A-0.29932E-04, 0.91100E+04, 0.91200E+04,
     A 0.69936E-01, 0.25325E+00, 0.19174E-02,-0.11175E-04, 0.12790E-02,
     A-0.14168E-04, 0.91200E+04, 0.91300E+04,
     A 0.52387E-01, 0.30346E+00, 0.93076E-03, 0.52452E-05, 0.21985E-02,
     A-0.12943E-04, 0.91300E+04, 0.91400E+04/
       DATA ((ACR(K,J),K=1,8),J=153,160) /
     A 0.15639E-01, 0.86845E-01, 0.72697E-02,-0.34455E-04, 0.51914E-02,
     A-0.32991E-04, 0.91400E+04, 0.91500E+04,
     A 0.91802E-01, 0.17031E+00,-0.54142E-03, 0.29713E-05,-0.10743E-02,
     A-0.23472E-05, 0.91500E+04, 0.91600E+04,
     A 0.11168E-01, 0.99076E-01, 0.56220E-02,-0.30231E-04, 0.47197E-02,
     A-0.23663E-04, 0.91600E+04, 0.91700E+04,
     A 0.48371E-01, 0.14170E+00,-0.59903E-03,-0.45058E-05,-0.11328E-02,
     A 0.94480E-06, 0.91700E+04, 0.91800E+04,
     A 0.18874E-01, 0.15366E+00, 0.42614E-02,-0.26279E-04, 0.89656E-03,
     A-0.20193E-04, 0.91800E+04, 0.91900E+04,
     A 0.16112E-01, 0.12245E+00, 0.61155E-02,-0.34764E-04, 0.39418E-02,
     A-0.31630E-04, 0.91900E+04, 0.92000E+04,
     A 0.65149E-01, 0.14651E+00, 0.13623E-02,-0.14483E-04, 0.10964E-04,
     A-0.11796E-04, 0.92000E+04, 0.92100E+04,
     A 0.11149E-01, 0.21185E+00, 0.41991E-02,-0.13718E-04, 0.30892E-02,
     A-0.20781E-04, 0.92100E+04, 0.92200E+04/
       DATA ((ACR(K,J),K=1,8),J=161,168) /
     A 0.31171E-01, 0.12753E+00, 0.45967E-02,-0.25041E-04, 0.38974E-02,
     A-0.27102E-04, 0.92200E+04, 0.92300E+04,
     A 0.40823E-03, 0.30563E-01, 0.24700E-01,-0.11119E-03, 0.21942E-01,
     A-0.10564E-03, 0.92300E+04, 0.92400E+04,
     A 0.12977E-01, 0.16914E+00, 0.55548E-02,-0.25826E-04, 0.33619E-02,
     A-0.22004E-04, 0.92400E+04, 0.92500E+04,
     A 0.20816E-01, 0.10896E+00, 0.66122E-02,-0.34731E-04, 0.52212E-02,
     A-0.34187E-04, 0.92500E+04, 0.92600E+04,
     A 0.30262E-02, 0.11279E+00, 0.10901E-01,-0.52842E-04, 0.86449E-02,
     A-0.45417E-04, 0.92600E+04, 0.92700E+04,
     A 0.33673E-02, 0.11423E+00, 0.10899E-01,-0.34157E-04, 0.80866E-02,
     A-0.38803E-04, 0.92700E+04, 0.92800E+04,
     A 0.17536E-01, 0.16659E+00, 0.83759E-02,-0.44600E-04, 0.51120E-02,
     A-0.36571E-04, 0.92800E+04, 0.92900E+04,
     A 0.81624E-03, 0.16081E+00, 0.15916E-01,-0.63848E-04, 0.13156E-01,
     A-0.63084E-04, 0.92900E+04, 0.93000E+04/
       DATA ((ACR(K,J),K=1,8),J=169,176) /
     A 0.11313E-01, 0.13057E+00, 0.11852E-01,-0.58953E-04, 0.88407E-02,
     A-0.51297E-04, 0.93000E+04, 0.93100E+04,
     A 0.15081E-02, 0.69261E-01, 0.41982E-02,-0.75358E-05, 0.57185E-02,
     A-0.16686E-04, 0.93100E+04, 0.93200E+04,
     A 0.45702E-02, 0.13420E+00, 0.13143E-01,-0.54394E-04, 0.10170E-01,
     A-0.52848E-04, 0.93200E+04, 0.93300E+04,
     A 0.75901E-03, 0.16485E+00, 0.17789E-01,-0.41657E-04, 0.14232E-01,
     A-0.51704E-04, 0.93300E+04, 0.93400E+04,
     A 0.23315E-02, 0.14437E+00, 0.15924E-01,-0.73095E-04, 0.12997E-01,
     A-0.67546E-04, 0.93400E+04, 0.93500E+04,
     A 0.24761E-02, 0.13342E+00, 0.17367E-01,-0.65679E-04, 0.14468E-01,
     A-0.62866E-04, 0.93500E+04, 0.93600E+04,
     A 0.11255E-02, 0.11586E+00, 0.16217E-01,-0.59242E-04, 0.13009E-01,
     A-0.57135E-04, 0.93600E+04, 0.93700E+04,
     A 0.46631E-03, 0.31553E-01, 0.23100E-01,-0.10479E-03, 0.20342E-01,
     A-0.99240E-04, 0.93700E+04, 0.93800E+04/
       DATA ((ACR(K,J),K=1,8),J=177,184) /
     A 0.58334E-03, 0.14333E+00, 0.14779E-01,-0.47773E-04, 0.11406E-01,
     A-0.52169E-04, 0.93800E+04, 0.93900E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.93900E+04, 0.94000E+04,
     A 0.46492E-03, 0.64777E-01, 0.12413E-01,-0.29282E-04, 0.13774E-01,
     A-0.49601E-04, 0.94000E+04, 0.94100E+04,
     A 0.40085E-03, 0.30483E-01, 0.10823E-01,-0.55684E-04, 0.80667E-02,
     A-0.50135E-04, 0.94100E+04, 0.94200E+04,
     A 0.65363E-04, 0.53752E-01, 0.23100E-01,-0.10479E-03, 0.20342E-01,
     A-0.99240E-04, 0.94200E+04, 0.94300E+04,
     A 0.24119E-04, 0.27609E-01, 0.35150E-01,-0.15299E-03, 0.32393E-01,
     A-0.14744E-03, 0.94300E+04, 0.94400E+04,
     A 0.13718E-03, 0.46820E-01, 0.16140E-01,-0.52767E-04, 0.16119E-01,
     A-0.67234E-04, 0.94400E+04, 0.94500E+04,
     A 0.55340E-04, 0.46161E-01, 0.16226E-01,-0.45595E-04, 0.15446E-01,
     A-0.59474E-04, 0.94500E+04, 0.94600E+04/
       DATA ((ACR(K,J),K=1,8),J=185,192) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.94600E+04, 0.94700E+04,
     A 0.57428E-04, 0.63455E-01, 0.17377E-01,-0.47290E-04, 0.16614E-01,
     A-0.62421E-04, 0.94700E+04, 0.94800E+04,
     A 0.38406E-04, 0.31771E-01, 0.46608E-02,-0.31037E-04, 0.19036E-02,
     A-0.25485E-04, 0.94800E+04, 0.94900E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.94900E+04, 0.95000E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95000E+04, 0.95100E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95100E+04, 0.95200E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95200E+04, 0.95300E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95300E+04, 0.95400E+04/
       DATA ((ACR(K,J),K=1,8),J=193,200) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95400E+04, 0.95500E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95500E+04, 0.95600E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95600E+04, 0.95700E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95700E+04, 0.95800E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95800E+04, 0.95900E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.95900E+04, 0.96000E+04,
     A 0.24903E-04, 0.24969E-01, 0.25759E-01,-0.11543E-03, 0.23002E-01,
     A-0.10988E-03, 0.96000E+04, 0.96100E+04,
     A 0.48976E-04, 0.34814E-01, 0.46430E-02,-0.30966E-04, 0.18858E-02,
     A-0.25414E-04, 0.96100E+04, 0.96200E+04/
       DATA ((ACR(K,J),K=1,8),J=201,208) /
     A 0.66257E-04, 0.52528E-01, 0.20662E-01,-0.95042E-04, 0.17905E-01,
     A-0.89490E-04, 0.96200E+04, 0.96300E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.96300E+04, 0.96400E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.96400E+04, 0.96500E+04,
     A 0.19405E-03, 0.90800E-01, 0.12893E-01,-0.47907E-04, 0.89990E-02,
     A-0.43597E-04, 0.96500E+04, 0.96600E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.96600E+04, 0.96700E+04,
     A 0.35455E-03, 0.62906E-01, 0.11780E-01,-0.59514E-04, 0.90225E-02,
     A-0.53961E-04, 0.96700E+04, 0.96800E+04,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.96800E+04, 0.96900E+04,
     A 0.73346E-03, 0.95357E-01, 0.80776E-02,-0.35126E-04, 0.63761E-02,
     A-0.32075E-04, 0.96900E+04, 0.97000E+04/
       DATA ((ACR(K,J),K=1,8),J=209,216) /
     A 0.26888E-03, 0.62321E-01, 0.11720E-01,-0.56759E-04, 0.98726E-02,
     A-0.55238E-04, 0.97000E+04, 0.97100E+04,
     A 0.48999E-03, 0.10498E+00, 0.62757E-02,-0.32864E-04, 0.49464E-02,
     A-0.32626E-04, 0.97100E+04, 0.97200E+04,
     A 0.10507E-02, 0.71841E-01, 0.58574E-02,-0.32015E-04, 0.39666E-02,
     A-0.31106E-04, 0.97200E+04, 0.97300E+04,
     A 0.25494E-02, 0.10376E+00, 0.30444E-02,-0.20413E-04, 0.12384E-02,
     A-0.18532E-04, 0.97300E+04, 0.97400E+04,
     A 0.13019E-02, 0.13387E+00, 0.19451E-02,-0.13612E-04,-0.89213E-05,
     A-0.13158E-04, 0.97400E+04, 0.97500E+04,
     A 0.62353E-03, 0.78233E-01, 0.70756E-03,-0.15190E-04,-0.20739E-02,
     A-0.96993E-05, 0.97500E+04, 0.97600E+04,
     A 0.56535E-02, 0.19710E+00, 0.16071E-03,-0.57489E-05,-0.14878E-02,
     A-0.48238E-05, 0.97600E+04, 0.97700E+04,
     A 0.19090E-02, 0.41123E-01,-0.19069E-02,-0.47662E-05,-0.46640E-02,
     A 0.78558E-06, 0.97700E+04, 0.97800E+04/
       DATA ((ACR(K,J),K=1,8),J=217,224) /
     A 0.17619E-02, 0.13162E+00,-0.22639E-02, 0.77041E-06,-0.49756E-02,
     A 0.43744E-05, 0.97800E+04, 0.97900E+04,
     A 0.57144E-03, 0.99432E-01, 0.40501E-02,-0.15471E-04, 0.18591E-02,
     A-0.17658E-04, 0.97900E+04, 0.98000E+04,
     A 0.38209E-02, 0.13329E+00,-0.46298E-02, 0.63691E-05,-0.77028E-02,
     A 0.12343E-04, 0.98000E+04, 0.98100E+04,
     A 0.17147E-02, 0.79407E-01, 0.45502E-03,-0.13444E-04,-0.30355E-02,
     A-0.57728E-05, 0.98100E+04, 0.98200E+04,
     A 0.12145E-02, 0.72418E-01, 0.25064E-03,-0.59535E-05, 0.33766E-05,
     A-0.62695E-05, 0.98200E+04, 0.98300E+04,
     A 0.11057E-02, 0.13614E+00, 0.18444E-02,-0.38170E-05,-0.66263E-03,
     A-0.61358E-05, 0.98300E+04, 0.98400E+04,
     A 0.21971E-02, 0.53016E-01,-0.48189E-02, 0.97527E-05,-0.60279E-02,
     A 0.17406E-04, 0.98400E+04, 0.98500E+04,
     A 0.19933E-02, 0.17956E+00,-0.10152E-02, 0.73537E-05,-0.33437E-02,
     A 0.43246E-05, 0.98500E+04, 0.98600E+04/
       DATA ((ACR(K,J),K=1,8),J=225,232) /
     A 0.87206E-03, 0.47547E-01,-0.41578E-02, 0.42375E-05,-0.73610E-02,
     A 0.10687E-04, 0.98600E+04, 0.98700E+04,
     A 0.29909E-02, 0.69285E-01,-0.47147E-02, 0.10991E-04,-0.56075E-02,
     A 0.15292E-04, 0.98700E+04, 0.98800E+04,
     A 0.15060E-02, 0.17429E+00, 0.35290E-02,-0.15241E-04, 0.98555E-03,
     A-0.13485E-04, 0.98800E+04, 0.98900E+04,
     A 0.24655E-02, 0.15187E+00,-0.96328E-03, 0.30116E-05,-0.23790E-02,
     A 0.61990E-05, 0.98900E+04, 0.99000E+04,
     A 0.81762E-02, 0.23349E+00,-0.33911E-02, 0.18786E-05,-0.60119E-02,
     A 0.65630E-05, 0.99000E+04, 0.99100E+04,
     A 0.35952E-02, 0.95710E-01,-0.25650E-02, 0.69268E-05,-0.25302E-02,
     A 0.87846E-05, 0.99100E+04, 0.99200E+04,
     A 0.41020E-02, 0.16571E+00,-0.82348E-03, 0.44729E-05, 0.50555E-04,
     A-0.13431E-05, 0.99200E+04, 0.99300E+04,
     A 0.15616E-02, 0.12559E+00,-0.17120E-02, 0.95737E-06,-0.23290E-02,
     A 0.28914E-05, 0.99300E+04, 0.99400E+04/
       DATA ((ACR(K,J),K=1,8),J=233,240) /
     A 0.29147E-02, 0.13970E+00, 0.17969E-02,-0.59773E-05, 0.40034E-02,
     A-0.16529E-04, 0.99400E+04, 0.99500E+04,
     A 0.21013E-02, 0.98500E-01, 0.26194E-02,-0.16290E-04, 0.26829E-02,
     A-0.18333E-04, 0.99500E+04, 0.99600E+04,
     A 0.25118E-02, 0.78548E-01,-0.11652E-02,-0.31932E-05,-0.17647E-02,
     A-0.36546E-05, 0.99600E+04, 0.99700E+04,
     A 0.54922E-02, 0.27847E+00, 0.22288E-02,-0.62983E-05, 0.11941E-02,
     A-0.99545E-05, 0.99700E+04, 0.99800E+04,
     A 0.77074E-02, 0.24403E+00, 0.23234E-02,-0.17376E-04, 0.91247E-03,
     A-0.16357E-04, 0.99800E+04, 0.99900E+04,
     A 0.15919E-02, 0.17498E+00, 0.48760E-02,-0.15370E-04, 0.30207E-02,
     A-0.22305E-04, 0.99900E+04, 0.10000E+05,
     A 0.23052E-02, 0.12024E+00, 0.26434E-02, 0.34883E-05, 0.53038E-02,
     A-0.74735E-05, 0.10000E+05, 0.10010E+05,
     A 0.99075E-03, 0.60379E-01, 0.48519E-02,-0.24596E-04, 0.39231E-02,
     A-0.26710E-04, 0.10010E+05, 0.10020E+05/
       DATA ((ACR(K,J),K=1,8),J=241,248) /
     A 0.26106E-02, 0.15994E+00, 0.57076E-02,-0.15791E-04, 0.63216E-02,
     A-0.28717E-04, 0.10020E+05, 0.10030E+05,
     A 0.90384E-03, 0.21421E+00, 0.73532E-02,-0.13113E-05, 0.93330E-02,
     A-0.19232E-04, 0.10030E+05, 0.10040E+05,
     A 0.20888E-02, 0.22211E+00, 0.93854E-02,-0.11006E-04, 0.77851E-02,
     A-0.18919E-04, 0.10040E+05, 0.10050E+05,
     A 0.10096E-02, 0.93543E-01, 0.51826E-02,-0.28108E-04, 0.41051E-02,
     A-0.23759E-04, 0.10050E+05, 0.10060E+05,
     A 0.22561E-02, 0.25885E+00, 0.13532E-01,-0.14879E-04, 0.11628E-01,
     A-0.34287E-04, 0.10060E+05, 0.10070E+05,
     A 0.77191E-02, 0.28721E+00, 0.97888E-02,-0.11073E-04, 0.85390E-02,
     A-0.24771E-04, 0.10070E+05, 0.10080E+05,
     A 0.34195E-02, 0.20647E+00, 0.74823E-02,-0.21978E-04, 0.74440E-02,
     A-0.24751E-04, 0.10080E+05, 0.10090E+05,
     A 0.63694E-02, 0.19871E+00, 0.11877E-01,-0.32800E-04, 0.95670E-02,
     A-0.39672E-04, 0.10090E+05, 0.10100E+05/
       DATA ((ACR(K,J),K=1,8),J=249,256) /
     A 0.63072E-02, 0.37310E+00, 0.47744E-02, 0.28648E-04, 0.68870E-02,
     A-0.84982E-05, 0.10100E+05, 0.10110E+05,
     A 0.10617E-02, 0.15783E+00, 0.19027E-01,-0.37386E-04, 0.17346E-01,
     A-0.60605E-04, 0.10110E+05, 0.10120E+05,
     A 0.16376E-01, 0.34661E+00, 0.14148E-01,-0.48223E-04, 0.10187E-01,
     A-0.43401E-04, 0.10120E+05, 0.10130E+05,
     A 0.77156E-02, 0.39174E+00, 0.71212E-02, 0.83584E-05, 0.74196E-02,
     A-0.20778E-04, 0.10130E+05, 0.10140E+05,
     A 0.81991E-02, 0.34376E+00, 0.10657E-01,-0.20490E-04, 0.91860E-02,
     A-0.34657E-04, 0.10140E+05, 0.10150E+05,
     A 0.45748E-01, 0.35631E+00, 0.11031E-01,-0.41938E-04, 0.79877E-02,
     A-0.33077E-04, 0.10150E+05, 0.10160E+05,
     A 0.26803E-01, 0.21610E+00, 0.11739E-01,-0.53624E-04, 0.10169E-01,
     A-0.50362E-04, 0.10160E+05, 0.10170E+05,
     A 0.61462E-01, 0.24685E+00, 0.82270E-02,-0.31656E-04, 0.77778E-02,
     A-0.31665E-04, 0.10170E+05, 0.10180E+05/
C
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end

