      SUBROUTINE wava1(a,inu)
      real a(8)
      real acr(8,256)
      integer inu,j,k,i

C
C     WATER VAPOR (2500 - 5040 CM-1)
C
       DATA ((ACR(K,J),K=1,8),J=  1,  8) /
     A 0.52155E-04, 0.10880E+00, 0.24708E-01, 0.56434E-04, 0.28126E-01,
     A-0.36504E-04, 0.25000E+04, 0.25100E+04,
     A 0.26024E-03, 0.21216E+00, 0.25876E-01, 0.30026E-04, 0.30504E-01,
     A-0.62253E-04, 0.25100E+04, 0.25200E+04,
     A 0.12221E-03, 0.91374E-01, 0.23862E-01,-0.79891E-04, 0.20651E-01,
     A-0.85449E-04, 0.25200E+04, 0.25300E+04,
     A 0.68892E-04, 0.12703E+00, 0.30103E-01,-0.60355E-04, 0.31571E-01,
     A-0.95671E-04, 0.25300E+04, 0.25400E+04,
     A 0.95684E-04, 0.11204E+00, 0.33051E-01,-0.96752E-04, 0.30485E-01,
     A-0.11273E-03, 0.25400E+04, 0.25500E+04,
     A 0.10008E-03, 0.92789E-01, 0.16702E-01, 0.41104E-04, 0.21654E-01,
     A-0.12175E-04, 0.25500E+04, 0.25600E+04,
     A 0.11515E-03, 0.72392E-01, 0.28437E-01,-0.89454E-04, 0.28734E-01,
     A-0.10220E-03, 0.25600E+04, 0.25700E+04,
     A 0.10980E-03, 0.93023E-01, 0.23611E-01, 0.10889E-04, 0.26880E-01,
     A-0.50398E-04, 0.25700E+04, 0.25800E+04/
       DATA ((ACR(K,J),K=1,8),J=  9, 16) /
     A 0.10952E-03, 0.75790E-01, 0.29206E-01,-0.98206E-04, 0.30307E-01,
     A-0.11103E-03, 0.25800E+04, 0.25900E+04,
     A 0.11941E-03, 0.70428E-01, 0.19144E-01,-0.28423E-04, 0.19587E-01,
     A-0.54379E-04, 0.25900E+04, 0.26000E+04,
     A 0.80498E-04, 0.61889E-01, 0.24778E-01,-0.55252E-04, 0.28205E-01,
     A-0.12627E-03, 0.26000E+04, 0.26100E+04,
     A 0.72792E-04, 0.62776E-01, 0.26682E-01,-0.58101E-04, 0.29166E-01,
     A-0.11148E-03, 0.26100E+04, 0.26200E+04,
     A 0.16616E-03, 0.15773E-01, 0.23141E-01,-0.60394E-04, 0.24947E-01,
     A-0.11178E-03, 0.26200E+04, 0.26300E+04,
     A 0.18043E-03, 0.87686E-01, 0.26248E-01,-0.30398E-04, 0.31740E-01,
     A-0.13670E-03, 0.26300E+04, 0.26400E+04,
     A 0.13339E-03, 0.53280E-01, 0.12701E-01,-0.46874E-04, 0.12628E-01,
     A-0.67487E-04, 0.26400E+04, 0.26500E+04,
     A 0.41150E-04, 0.75778E-02, 0.11257E-01, 0.11038E-03, 0.36362E-01,
     A-0.11284E-03, 0.26500E+04, 0.26600E+04/
       DATA ((ACR(K,J),K=1,8),J= 17, 24) /
     A 0.61395E-04, 0.26074E-01, 0.16798E-01, 0.10755E-03, 0.35481E-01,
     A-0.13778E-03, 0.26600E+04, 0.26700E+04,
     A 0.35062E-03, 0.80662E-01, 0.21065E-01,-0.39968E-04, 0.21602E-01,
     A-0.87339E-04, 0.26700E+04, 0.26800E+04,
     A 0.26391E-03, 0.11483E+00, 0.27270E-01,-0.40691E-04, 0.29928E-01,
     A-0.11046E-03, 0.26800E+04, 0.26900E+04,
     A 0.87410E-03, 0.60070E-01, 0.21732E-01,-0.87600E-04, 0.20645E-01,
     A-0.96557E-04, 0.26900E+04, 0.27000E+04,
     A 0.30675E-04, 0.22970E-01, 0.94212E-02, 0.78691E-05, 0.15402E-01,
     A-0.74597E-04, 0.27000E+04, 0.27100E+04,
     A 0.21928E-03, 0.13351E+00, 0.22082E-01,-0.45472E-04, 0.25460E-01,
     A-0.96549E-04, 0.27100E+04, 0.27200E+04,
     A 0.34904E-03, 0.95073E-01, 0.13969E-01, 0.12276E-05, 0.16415E-01,
     A-0.65204E-04, 0.27200E+04, 0.27300E+04,
     A 0.21360E-02, 0.61072E-01, 0.18908E-01,-0.76530E-04, 0.19801E-01,
     A-0.77251E-04, 0.27300E+04, 0.27400E+04/
       DATA ((ACR(K,J),K=1,8),J= 25, 32) /
     A 0.13372E-03, 0.10806E+00, 0.25683E-01,-0.49230E-04, 0.25729E-01,
     A-0.89387E-04, 0.27400E+04, 0.27500E+04,
     A 0.21697E-02, 0.62188E-01, 0.18593E-01,-0.80474E-04, 0.16349E-01,
     A-0.81422E-04, 0.27500E+04, 0.27600E+04,
     A 0.45030E-04, 0.14902E-01, 0.11376E-01, 0.20860E-03, 0.46880E-01,
     A-0.13018E-03, 0.27600E+04, 0.27700E+04,
     A 0.39413E-03, 0.75433E-01, 0.19773E-01, 0.30322E-04, 0.20860E-01,
     A-0.45326E-04, 0.27700E+04, 0.27800E+04,
     A 0.48935E-02, 0.96746E-01, 0.19042E-01,-0.72945E-04, 0.16358E-01,
     A-0.76368E-04, 0.27800E+04, 0.27900E+04,
     A 0.56197E-04, 0.26178E-01, 0.17977E-01, 0.14035E-03, 0.32163E-01,
     A-0.71639E-04, 0.27900E+04, 0.28000E+04,
     A 0.17459E-02, 0.49818E-01, 0.12334E-01,-0.52052E-04, 0.13169E-01,
     A-0.45266E-04, 0.28000E+04, 0.28100E+04,
     A 0.13747E-01, 0.48325E-01, 0.12754E-01,-0.61810E-04, 0.11564E-01,
     A-0.49886E-04, 0.28100E+04, 0.28200E+04/
       DATA ((ACR(K,J),K=1,8),J= 33, 40) /
     A 0.82805E-03, 0.84185E-01, 0.21588E-01, 0.30162E-05, 0.21186E-01,
     A-0.37441E-04, 0.28200E+04, 0.28300E+04,
     A 0.11866E-01, 0.34247E-01, 0.94911E-02,-0.50331E-04, 0.68889E-02,
     A-0.45062E-04, 0.28300E+04, 0.28400E+04,
     A 0.53887E-02, 0.10669E+00, 0.21019E-01,-0.53528E-04, 0.21717E-01,
     A-0.54515E-04, 0.28400E+04, 0.28500E+04,
     A 0.10411E-03, 0.11175E+00, 0.31522E-01, 0.35658E-04, 0.36103E-01,
     A-0.88200E-04, 0.28500E+04, 0.28600E+04,
     A 0.79899E-02, 0.73140E-01, 0.29260E-01,-0.10778E-03, 0.31940E-01,
     A-0.11100E-03, 0.28600E+04, 0.28700E+04,
     A 0.24725E-01, 0.10335E+00, 0.88480E-02,-0.32902E-04, 0.10195E-01,
     A-0.19290E-04, 0.28700E+04, 0.28800E+04,
     A 0.57422E-03, 0.18372E+00, 0.46405E-01,-0.17178E-03, 0.46094E-01,
     A-0.18870E-03, 0.28800E+04, 0.28900E+04,
     A 0.67995E-01, 0.89991E-01, 0.16432E-01,-0.54992E-04, 0.19457E-01,
     A-0.55113E-04, 0.28900E+04, 0.29000E+04/
       DATA ((ACR(K,J),K=1,8),J= 41, 48) /
     A 0.36350E-01, 0.17982E+00, 0.15309E-01, 0.79551E-06, 0.18904E-01,
     A-0.36064E-04, 0.29000E+04, 0.29100E+04,
     A 0.27250E-01, 0.14127E+00, 0.30783E-01,-0.12895E-03, 0.31036E-01,
     A-0.12355E-03, 0.29100E+04, 0.29200E+04,
     A 0.26520E-02, 0.19136E+00, 0.41919E-01,-0.16834E-03, 0.42452E-01,
     A-0.17530E-03, 0.29200E+04, 0.29300E+04,
     A 0.52888E+00, 0.26900E+00, 0.12546E-01,-0.30896E-04, 0.13568E-01,
     A-0.42996E-04, 0.29300E+04, 0.29400E+04,
     A 0.53771E-01, 0.17608E+00, 0.20209E-01,-0.60240E-04, 0.25687E-01,
     A-0.83758E-04, 0.29400E+04, 0.29500E+04,
     A 0.32492E+00, 0.16840E+00, 0.21364E-01,-0.92341E-04, 0.20449E-01,
     A-0.88117E-04, 0.29500E+04, 0.29600E+04,
     A 0.61749E+00, 0.18050E+00, 0.13955E-01,-0.60114E-04, 0.14337E-01,
     A-0.58330E-04, 0.29600E+04, 0.29700E+04,
     A 0.15421E+01, 0.13158E+00, 0.96584E-02,-0.41781E-04, 0.89471E-02,
     A-0.37290E-04, 0.29700E+04, 0.29800E+04/
       DATA ((ACR(K,J),K=1,8),J= 49, 56) /
     A 0.16668E+01, 0.22730E+00, 0.99338E-02,-0.37288E-04, 0.10430E-01,
     A-0.37020E-04, 0.29800E+04, 0.29900E+04,
     A 0.15158E+01, 0.13985E+00, 0.11565E-01,-0.51421E-04, 0.11056E-01,
     A-0.43391E-04, 0.29900E+04, 0.30000E+04,
     A 0.16503E+01, 0.17713E+00, 0.95447E-02,-0.37275E-04, 0.86134E-02,
     A-0.36851E-04, 0.30000E+04, 0.30100E+04,
     A 0.65433E+01, 0.21911E+00, 0.60474E-02,-0.32890E-04, 0.53084E-02,
     A-0.27435E-04, 0.30100E+04, 0.30200E+04,
     A 0.22497E+01, 0.12464E+00, 0.86253E-03,-0.61061E-05, 0.37153E-02,
     A 0.40466E-05, 0.30200E+04, 0.30300E+04,
     A 0.10011E+02, 0.23151E+00, 0.27571E-02,-0.19224E-04, 0.21442E-02,
     A-0.11081E-04, 0.30300E+04, 0.30400E+04,
     A 0.27015E+01, 0.12619E+00, 0.16271E-02,-0.13887E-04, 0.16360E-02,
     A-0.19543E-07, 0.30400E+04, 0.30500E+04,
     A 0.52767E+01, 0.13242E+00, 0.12880E-02,-0.13169E-04, 0.12577E-02,
     A-0.36130E-05, 0.30500E+04, 0.30600E+04/
       DATA ((ACR(K,J),K=1,8),J= 57, 64) /
     A 0.91595E+01, 0.12205E+00,-0.12513E-02,-0.40326E-05,-0.18414E-02,
     A 0.24599E-05, 0.30600E+04, 0.30700E+04,
     A 0.46857E+01, 0.15647E+00,-0.43308E-04,-0.69326E-05,-0.81377E-03,
     A-0.31694E-05, 0.30700E+04, 0.30800E+04,
     A 0.32521E+01, 0.14435E+00, 0.35016E-02,-0.20102E-04, 0.37489E-02,
     A-0.14446E-04, 0.30800E+04, 0.30900E+04,
     A 0.86678E+01, 0.20679E+00,-0.14866E-02, 0.22765E-05,-0.10460E-02,
     A 0.17536E-05, 0.30900E+04, 0.31000E+04,
     A 0.90277E+01, 0.22950E+00,-0.10574E-02,-0.11212E-05,-0.68088E-03,
     A-0.39181E-07, 0.31000E+04, 0.31100E+04,
     A 0.12148E+02, 0.38295E+00, 0.49769E-03,-0.44194E-05, 0.43116E-03,
     A-0.40708E-05, 0.31100E+04, 0.31200E+04,
     A 0.94078E+01, 0.34012E+00,-0.31750E-04, 0.21043E-05, 0.22348E-02,
     A 0.16614E-06, 0.31200E+04, 0.31300E+04,
     A 0.61004E+01, 0.77373E-01,-0.46770E-02, 0.11726E-04,-0.57011E-03,
     A 0.33047E-04, 0.31300E+04, 0.31400E+04/
       DATA ((ACR(K,J),K=1,8),J= 65, 72) /
     A 0.64298E+00, 0.83113E-01,-0.90344E-03, 0.74815E-05, 0.68034E-02,
     A 0.38978E-04, 0.31400E+04, 0.31500E+04,
     A 0.31468E+00, 0.22047E+00, 0.87793E-02,-0.13249E-04, 0.14974E-01,
     A-0.29267E-04, 0.31500E+04, 0.31600E+04,
     A 0.84773E+00, 0.34913E+00, 0.23565E-02,-0.77347E-06, 0.41670E-02,
     A 0.24148E-05, 0.31600E+04, 0.31700E+04,
     A 0.67043E+01, 0.10518E+00,-0.49662E-02, 0.13112E-04,-0.92458E-03,
     A 0.31899E-04, 0.31700E+04, 0.31800E+04,
     A 0.33487E+01, 0.17575E+00,-0.36206E-02, 0.12779E-04, 0.50643E-04,
     A 0.26882E-04, 0.31800E+04, 0.31900E+04,
     A 0.71051E+01, 0.15577E+00,-0.32039E-02, 0.57362E-05,-0.27319E-02,
     A 0.20608E-04, 0.31900E+04, 0.32000E+04,
     A 0.49187E+01, 0.94692E-01,-0.34658E-02, 0.99349E-05, 0.65696E-03,
     A 0.29105E-04, 0.32000E+04, 0.32100E+04,
     A 0.11080E+02, 0.15706E+00,-0.36162E-02, 0.64921E-05,-0.25750E-02,
     A 0.19544E-04, 0.32100E+04, 0.32200E+04/
       DATA ((ACR(K,J),K=1,8),J= 73, 80) /
     A 0.64326E+01, 0.26178E+00,-0.32818E-03, 0.32261E-05, 0.56524E-03,
     A 0.50713E-05, 0.32200E+04, 0.32300E+04,
     A 0.48444E+01, 0.21447E+00,-0.19614E-02, 0.15381E-04, 0.19305E-02,
     A 0.24092E-04, 0.32300E+04, 0.32400E+04,
     A 0.88873E+01, 0.19618E+00,-0.11584E-02, 0.15371E-05, 0.57401E-03,
     A 0.55356E-05, 0.32400E+04, 0.32500E+04,
     A 0.67011E+01, 0.11596E+00, 0.31879E-03,-0.32082E-06, 0.27244E-02,
     A 0.95927E-05, 0.32500E+04, 0.32600E+04,
     A 0.32951E+01, 0.21537E+00, 0.18132E-02,-0.93642E-05, 0.34721E-02,
     A-0.10415E-04, 0.32600E+04, 0.32700E+04,
     A 0.11905E+02, 0.31637E+00,-0.17961E-04, 0.70218E-05, 0.27392E-02,
     A 0.87434E-07, 0.32700E+04, 0.32800E+04,
     A 0.48139E+01, 0.27320E+00, 0.23884E-02, 0.26589E-04, 0.43504E-02,
     A 0.57992E-05, 0.32800E+04, 0.32900E+04,
     A 0.69428E+01, 0.32680E+00, 0.28073E-02,-0.70232E-05, 0.32805E-02,
     A-0.85722E-05, 0.32900E+04, 0.33000E+04/
       DATA ((ACR(K,J),K=1,8),J= 81, 88) /
     A 0.52753E+01, 0.19806E+00, 0.27307E-02,-0.14565E-05, 0.49125E-02,
     A-0.12966E-04, 0.33000E+04, 0.33100E+04,
     A 0.47208E+01, 0.23262E+00, 0.29830E-02, 0.26911E-04, 0.64942E-02,
     A-0.77622E-05, 0.33100E+04, 0.33200E+04,
     A 0.32466E+01, 0.37221E+00, 0.99704E-02,-0.28634E-04, 0.11158E-01,
     A-0.36092E-04, 0.33200E+04, 0.33300E+04,
     A 0.42083E+01, 0.17584E+00, 0.13723E-01,-0.39504E-04, 0.13219E-01,
     A-0.44922E-04, 0.33300E+04, 0.33400E+04,
     A 0.78485E+00, 0.29505E+00, 0.18153E-01,-0.76368E-04, 0.18172E-01,
     A-0.69561E-04, 0.33400E+04, 0.33500E+04,
     A 0.40763E+01, 0.27310E+00, 0.11974E-01,-0.38706E-04, 0.10563E-01,
     A-0.33592E-04, 0.33500E+04, 0.33600E+04,
     A 0.12275E+02, 0.42572E+00, 0.45309E-02, 0.59958E-05, 0.56864E-02,
     A-0.15831E-04, 0.33600E+04, 0.33700E+04,
     A 0.94088E+00, 0.29130E+00, 0.12712E-01,-0.23725E-04, 0.13750E-01,
     A-0.26806E-04, 0.33700E+04, 0.33800E+04/
       DATA ((ACR(K,J),K=1,8),J= 89, 96) /
     A 0.58020E+01, 0.18758E+00, 0.56963E-02,-0.99475E-05, 0.91903E-02,
     A-0.12922E-04, 0.33800E+04, 0.33900E+04,
     A 0.11279E+02, 0.22153E+00, 0.10955E-01,-0.45500E-04, 0.10347E-01,
     A-0.33646E-04, 0.33900E+04, 0.34000E+04,
     A 0.30915E+01, 0.29101E+00, 0.76973E-02,-0.31164E-05, 0.79615E-02,
     A-0.12231E-04, 0.34000E+04, 0.34100E+04,
     A 0.27460E+01, 0.24709E+00, 0.13530E-01,-0.39278E-04, 0.15939E-01,
     A-0.35039E-04, 0.34100E+04, 0.34200E+04,
     A 0.14490E+02, 0.18486E+00, 0.89652E-02,-0.35228E-04, 0.95440E-02,
     A-0.25256E-04, 0.34200E+04, 0.34300E+04,
     A 0.41520E+01, 0.37165E+00, 0.94576E-02,-0.91648E-05, 0.13190E-01,
     A-0.19085E-04, 0.34300E+04, 0.34400E+04,
     A 0.35280E+02, 0.29267E+00, 0.77335E-02,-0.33655E-04, 0.86235E-02,
     A-0.34390E-04, 0.34400E+04, 0.34500E+04,
     A 0.16073E+01, 0.33722E+00, 0.16402E-01, 0.15852E-04, 0.18964E-01,
     A-0.32271E-04, 0.34500E+04, 0.34600E+04/
       DATA ((ACR(K,J),K=1,8),J= 97,104) /
     A 0.13605E+02, 0.31569E+00, 0.95057E-02,-0.15485E-04, 0.94813E-02,
     A-0.16751E-04, 0.34600E+04, 0.34700E+04,
     A 0.75164E+01, 0.27307E+00, 0.75889E-02,-0.47962E-05, 0.12249E-01,
     A-0.23811E-04, 0.34700E+04, 0.34800E+04,
     A 0.33484E+02, 0.31131E+00, 0.77627E-02,-0.11503E-04, 0.94019E-02,
     A-0.20136E-04, 0.34800E+04, 0.34900E+04,
     A 0.13815E+02, 0.23917E+00, 0.10592E-01,-0.31935E-04, 0.12433E-01,
     A-0.36436E-04, 0.34900E+04, 0.35000E+04,
     A 0.61974E+02, 0.36287E+00, 0.75577E-02, 0.26848E-05, 0.10181E-01,
     A-0.23323E-04, 0.35000E+04, 0.35100E+04,
     A 0.14812E+02, 0.37195E+00, 0.82610E-02,-0.18654E-04, 0.10113E-01,
     A-0.31482E-04, 0.35100E+04, 0.35200E+04,
     A 0.83223E+02, 0.39932E+00, 0.76795E-02, 0.50656E-06, 0.82892E-02,
     A-0.20998E-04, 0.35200E+04, 0.35300E+04,
     A 0.21464E+02, 0.29835E+00, 0.14148E-01,-0.43852E-04, 0.13193E-01,
     A-0.51897E-04, 0.35300E+04, 0.35400E+04/
       DATA ((ACR(K,J),K=1,8),J=105,112) /
     A 0.78956E+02, 0.41357E+00, 0.12512E-01,-0.28052E-04, 0.93167E-02,
     A-0.31880E-04, 0.35400E+04, 0.35500E+04,
     A 0.57829E+02, 0.33002E+00, 0.50941E-02,-0.83644E-05, 0.66338E-02,
     A-0.19270E-04, 0.35500E+04, 0.35600E+04,
     A 0.26495E+03, 0.48627E+00, 0.94242E-02,-0.24386E-04, 0.71083E-02,
     A-0.30520E-04, 0.35600E+04, 0.35700E+04,
     A 0.48650E+02, 0.32647E+00, 0.34230E-02,-0.12164E-04, 0.23536E-02,
     A-0.95600E-05, 0.35700E+04, 0.35800E+04,
     A 0.27865E+03, 0.39350E+00, 0.10521E-01,-0.48325E-04, 0.76691E-02,
     A-0.39509E-04, 0.35800E+04, 0.35900E+04,
     A 0.16087E+03, 0.35038E+00, 0.56295E-02,-0.19831E-04, 0.40519E-02,
     A-0.15750E-04, 0.35900E+04, 0.36000E+04,
     A 0.33787E+03, 0.23399E+00, 0.64862E-02,-0.30846E-04, 0.44382E-02,
     A-0.24648E-04, 0.36000E+04, 0.36100E+04,
     A 0.57630E+03, 0.34952E+00, 0.47866E-02,-0.26607E-04, 0.14788E-02,
     A-0.15623E-04, 0.36100E+04, 0.36200E+04/
       DATA ((ACR(K,J),K=1,8),J=113,120) /
     A 0.75387E+03, 0.18159E+00, 0.42931E-02,-0.28734E-04, 0.24163E-02,
     A-0.22384E-04, 0.36200E+04, 0.36300E+04,
     A 0.13567E+03, 0.19692E+00, 0.12097E-02,-0.80313E-05,-0.44021E-03,
     A 0.53739E-06, 0.36300E+04, 0.36400E+04,
     A 0.77659E+03, 0.21673E+00, 0.21798E-02,-0.20291E-04, 0.50596E-03,
     A-0.15749E-04, 0.36400E+04, 0.36500E+04,
     A 0.65722E+03, 0.14350E+00, 0.12120E-02,-0.16829E-04,-0.20471E-03,
     A-0.91773E-05, 0.36500E+04, 0.36600E+04,
     A 0.22937E+03, 0.88535E-01,-0.34700E-03,-0.80698E-05, 0.70530E-03,
     A-0.58648E-06, 0.36600E+04, 0.36700E+04,
     A 0.17469E+04, 0.21306E+00,-0.11718E-02,-0.71619E-05,-0.32694E-02,
     A-0.28781E-06, 0.36700E+04, 0.36800E+04,
     A 0.83345E+03, 0.86211E-01,-0.27517E-02,-0.78552E-06,-0.33472E-02,
     A 0.13487E-04, 0.36800E+04, 0.36900E+04,
     A 0.32407E+03, 0.27669E+00,-0.21659E-02, 0.44909E-06,-0.16982E-02,
     A 0.10818E-04, 0.36900E+04, 0.37000E+04/
       DATA ((ACR(K,J),K=1,8),J=121,128) /
     A 0.48579E+03, 0.23163E+00,-0.33766E-02, 0.71088E-05,-0.16229E-02,
     A 0.13215E-04, 0.37000E+04, 0.37100E+04,
     A 0.69399E+03, 0.19031E+00,-0.23753E-02, 0.11342E-04, 0.27950E-03,
     A 0.11827E-04, 0.37100E+04, 0.37200E+04,
     A 0.30949E+03, 0.32694E+00, 0.51146E-02,-0.33747E-05, 0.55153E-02,
     A-0.14764E-04, 0.37200E+04, 0.37300E+04,
     A 0.12058E+04, 0.33098E+00, 0.26244E-03, 0.44389E-05, 0.43858E-03,
     A-0.58687E-05, 0.37300E+04, 0.37400E+04,
     A 0.23873E+04, 0.35395E+00,-0.13313E-02,-0.26877E-05,-0.25997E-02,
     A-0.15668E-05, 0.37400E+04, 0.37500E+04,
     A 0.13318E+04, 0.24255E+00,-0.23524E-02, 0.57434E-06,-0.30581E-02,
     A 0.20511E-05, 0.37500E+04, 0.37600E+04,
     A 0.46266E+03, 0.18423E+00,-0.20220E-02, 0.14083E-05,-0.11856E-02,
     A 0.13407E-05, 0.37600E+04, 0.37700E+04,
     A 0.22129E+03, 0.15206E+00,-0.45078E-02, 0.12626E-04,-0.25579E-02,
     A 0.11787E-04, 0.37700E+04, 0.37800E+04/
       DATA ((ACR(K,J),K=1,8),J=129,136) /
     A 0.72994E+02, 0.26021E+00,-0.94598E-03, 0.58721E-05, 0.20193E-02,
     A 0.14281E-05, 0.37800E+04, 0.37900E+04,
     A 0.24354E+03, 0.11623E+00,-0.39723E-02, 0.10003E-04,-0.24749E-02,
     A 0.11674E-04, 0.37900E+04, 0.38000E+04,
     A 0.16102E+04, 0.13844E+00,-0.50654E-02, 0.85459E-05,-0.61217E-02,
     A 0.14867E-04, 0.38000E+04, 0.38100E+04,
     A 0.92509E+03, 0.95941E-01,-0.40019E-02, 0.42438E-05,-0.41671E-02,
     A 0.13408E-04, 0.38100E+04, 0.38200E+04,
     A 0.87865E+03, 0.19813E+00,-0.32809E-02, 0.13909E-05,-0.48774E-02,
     A 0.60213E-05, 0.38200E+04, 0.38300E+04,
     A 0.14455E+04, 0.15082E+00,-0.27746E-02,-0.61623E-06,-0.41560E-02,
     A 0.66755E-05, 0.38300E+04, 0.38400E+04,
     A 0.36880E+03, 0.24330E+00, 0.48895E-03,-0.12565E-04,-0.31389E-03,
     A-0.86255E-05, 0.38400E+04, 0.38500E+04,
     A 0.20688E+04, 0.22750E+00,-0.88059E-03,-0.79102E-05,-0.24751E-02,
     A-0.36839E-05, 0.38500E+04, 0.38600E+04/
       DATA ((ACR(K,J),K=1,8),J=137,144) /
     A 0.63435E+03, 0.19602E+00, 0.17316E-02,-0.17618E-04, 0.27542E-03,
     A-0.99025E-05, 0.38600E+04, 0.38700E+04,
     A 0.66001E+03, 0.16073E+00, 0.19181E-02,-0.18141E-04, 0.87743E-03,
     A-0.13268E-04, 0.38700E+04, 0.38800E+04,
     A 0.59620E+03, 0.22715E+00, 0.44999E-02,-0.28285E-04, 0.29743E-02,
     A-0.23179E-04, 0.38800E+04, 0.38900E+04,
     A 0.49707E+03, 0.23257E+00, 0.49027E-02,-0.28299E-04, 0.31352E-02,
     A-0.22089E-04, 0.38900E+04, 0.39000E+04,
     A 0.47601E+03, 0.20656E+00, 0.70284E-02,-0.37624E-04, 0.56038E-02,
     A-0.33998E-04, 0.39000E+04, 0.39100E+04,
     A 0.97812E+02, 0.12575E+00, 0.12028E-01,-0.58026E-04, 0.10886E-01,
     A-0.50510E-04, 0.39100E+04, 0.39200E+04,
     A 0.15407E+03, 0.27590E+00, 0.75519E-02,-0.27169E-04, 0.59888E-02,
     A-0.26593E-04, 0.39200E+04, 0.39300E+04,
     A 0.75906E+02, 0.19815E+00, 0.14672E-01,-0.62916E-04, 0.10813E-01,
     A-0.47324E-04, 0.39300E+04, 0.39400E+04/
       DATA ((ACR(K,J),K=1,8),J=145,152) /
     A 0.91761E+02, 0.19338E+00, 0.15621E-01,-0.69646E-04, 0.14264E-01,
     A-0.68568E-04, 0.39400E+04, 0.39500E+04,
     A 0.23976E+02, 0.28167E+00, 0.49108E-02, 0.17525E-04, 0.72419E-02,
     A-0.10423E-04, 0.39500E+04, 0.39600E+04,
     A 0.14037E+02, 0.20425E+00, 0.17638E-01,-0.27195E-04, 0.13686E-01,
     A-0.36754E-04, 0.39600E+04, 0.39700E+04,
     A 0.15370E+02, 0.33316E+00, 0.98866E-02, 0.20342E-04, 0.11243E-01,
     A-0.21419E-04, 0.39700E+04, 0.39800E+04,
     A 0.54881E+01, 0.22417E+00, 0.75532E-02, 0.39091E-04, 0.10416E-01,
     A-0.26476E-05, 0.39800E+04, 0.39900E+04,
     A 0.83126E+01, 0.20066E+00, 0.13204E-01,-0.81155E-06, 0.14493E-01,
     A-0.32804E-04, 0.39900E+04, 0.40000E+04,
     A 0.87033E+01, 0.12823E+00, 0.53683E-02,-0.10088E-04, 0.83956E-02,
     A-0.99974E-05, 0.40000E+04, 0.40100E+04,
     A 0.71987E+01, 0.21615E+00, 0.19288E-02, 0.19286E-04, 0.69750E-02,
     A 0.21036E-04, 0.40100E+04, 0.40200E+04/
       DATA ((ACR(K,J),K=1,8),J=153,160) /
     A 0.73740E+01, 0.10603E+00, 0.21924E-02,-0.16800E-04, 0.31402E-02,
     A 0.66314E-09, 0.40200E+04, 0.40300E+04,
     A 0.12253E+01, 0.20951E+00, 0.61999E-02, 0.36357E-04, 0.12788E-01,
     A-0.60887E-05, 0.40300E+04, 0.40400E+04,
     A 0.79524E+01, 0.12691E+00, 0.39534E-02,-0.23885E-04, 0.36525E-02,
     A-0.10242E-04, 0.40400E+04, 0.40500E+04,
     A 0.51733E+00, 0.11847E+00, 0.11888E-01,-0.34371E-04, 0.16178E-01,
     A-0.29656E-04, 0.40500E+04, 0.40600E+04,
     A 0.18317E+01, 0.94248E-01, 0.53224E-02,-0.25376E-04, 0.57840E-02,
     A-0.64186E-05, 0.40600E+04, 0.40700E+04,
     A 0.27229E+01, 0.12453E+00, 0.93697E-02,-0.37263E-04, 0.90599E-02,
     A-0.22481E-04, 0.40700E+04, 0.40800E+04,
     A 0.34742E+01, 0.19542E+00, 0.72771E-02,-0.34478E-04, 0.43552E-02,
     A-0.24708E-04, 0.40800E+04, 0.40900E+04,
     A 0.88190E-01, 0.11131E+00, 0.12500E-01,-0.34253E-04, 0.16631E-01,
     A-0.21563E-04, 0.40900E+04, 0.41000E+04/
       DATA ((ACR(K,J),K=1,8),J=161,168) /
     A 0.44720E+01, 0.16534E+00, 0.66915E-02,-0.35360E-04, 0.54523E-02,
     A-0.32561E-04, 0.41000E+04, 0.41100E+04,
     A 0.17698E-01, 0.14435E+00, 0.99143E-02, 0.32800E-04, 0.20212E-01,
     A 0.35978E-05, 0.41100E+04, 0.41200E+04,
     A 0.49468E+00, 0.13443E+00, 0.87298E-02,-0.35276E-04, 0.68006E-02,
     A-0.31378E-04, 0.41200E+04, 0.41300E+04,
     A 0.22881E+01, 0.15905E+00, 0.11097E-01,-0.49230E-04, 0.10250E-01,
     A-0.48021E-04, 0.41300E+04, 0.41400E+04,
     A 0.62111E+00, 0.16054E+00, 0.11288E-01,-0.50025E-04, 0.10196E-01,
     A-0.47296E-04, 0.41400E+04, 0.41500E+04,
     A 0.60454E+00, 0.14755E+00, 0.14727E-01,-0.49548E-04, 0.14191E-01,
     A-0.58716E-04, 0.41500E+04, 0.41600E+04,
     A 0.93094E-01, 0.68954E-01, 0.40020E-02,-0.39015E-05, 0.55718E-02,
     A-0.13126E-05, 0.41600E+04, 0.41700E+04,
     A 0.27101E+00, 0.93272E-01, 0.13113E-01,-0.56084E-04, 0.12707E-01,
     A-0.52567E-04, 0.41700E+04, 0.41800E+04/
       DATA ((ACR(K,J),K=1,8),J=169,176) /
     A 0.53980E+00, 0.67639E-01, 0.16122E-01,-0.75048E-04, 0.13265E-01,
     A-0.65150E-04, 0.41800E+04, 0.41900E+04,
     A 0.44133E+00, 0.17104E+00, 0.16673E-01,-0.71388E-04, 0.14609E-01,
     A-0.64610E-04, 0.41900E+04, 0.42000E+04,
     A 0.36918E+00, 0.11239E+00, 0.13785E-01,-0.55480E-04, 0.14404E-01,
     A-0.58254E-04, 0.42000E+04, 0.42100E+04,
     A 0.13276E+00, 0.12746E+00, 0.17403E-01,-0.54470E-04, 0.13863E-01,
     A-0.48485E-04, 0.42100E+04, 0.42200E+04,
     A 0.80464E-01, 0.86998E-01, 0.22044E-01,-0.92895E-04, 0.19048E-01,
     A-0.87985E-04, 0.42200E+04, 0.42300E+04,
     A 0.63692E-01, 0.14834E+00, 0.22806E-01,-0.84692E-04, 0.23548E-01,
     A-0.92530E-04, 0.42300E+04, 0.42400E+04,
     A 0.18110E-01, 0.12119E+00, 0.18389E-01,-0.22676E-05, 0.13683E-01,
     A-0.26036E-04, 0.42400E+04, 0.42500E+04,
     A 0.20900E+00, 0.16597E+00, 0.19432E-01,-0.78011E-04, 0.19282E-01,
     A-0.84089E-04, 0.42500E+04, 0.42600E+04/
       DATA ((ACR(K,J),K=1,8),J=177,184) /
     A 0.49819E-01, 0.62110E-01, 0.26704E-01,-0.11099E-03, 0.25655E-01,
     A-0.10067E-03, 0.42600E+04, 0.42700E+04,
     A 0.51444E-01, 0.13110E+00, 0.14568E-01,-0.34291E-04, 0.14016E-01,
     A-0.49479E-04, 0.42700E+04, 0.42800E+04,
     A 0.10759E-01, 0.15106E+00, 0.27993E-01,-0.10013E-03, 0.23418E-01,
     A-0.84057E-04, 0.42800E+04, 0.42900E+04,
     A 0.59310E-02, 0.85611E-01, 0.36412E-01,-0.15063E-03, 0.34796E-01,
     A-0.14138E-03, 0.42900E+04, 0.43000E+04,
     A 0.60294E-01, 0.13145E+00, 0.23253E-01,-0.88313E-04, 0.22949E-01,
     A-0.90705E-04, 0.43000E+04, 0.43100E+04,
     A 0.87499E-02, 0.11428E+00, 0.24739E-01,-0.56984E-04, 0.24765E-01,
     A-0.72542E-04, 0.43100E+04, 0.43200E+04,
     A 0.43984E-02, 0.17658E+00, 0.35844E-01,-0.11719E-03, 0.30706E-01,
     A-0.10295E-03, 0.43200E+04, 0.43300E+04,
     A 0.31592E-02, 0.14762E+00, 0.14237E-01, 0.65312E-05, 0.14523E-01,
     A-0.19336E-04, 0.43300E+04, 0.43400E+04/
       DATA ((ACR(K,J),K=1,8),J=185,192) /
     A 0.22605E-02, 0.13901E+00, 0.23941E-01, 0.10579E-04, 0.23751E-01,
     A-0.45551E-04, 0.43400E+04, 0.43500E+04,
     A 0.84338E-07, 0.15285E-03, 0.47057E-02,-0.25631E-04, 0.22316E-02,
     A-0.23738E-04, 0.43500E+04, 0.43600E+04,
     A 0.95411E-07, 0.11284E-03, 0.51111E-02,-0.26317E-04, 0.30958E-02,
     A-0.25483E-04, 0.43600E+04, 0.43700E+04,
     A 0.15708E-07, 0.47653E-04, 0.99036E-02,-0.49633E-04, 0.72007E-02,
     A-0.44307E-04, 0.43700E+04, 0.43800E+04,
     A 0.72646E-04, 0.73368E-01, 0.17942E-01, 0.12698E-04, 0.12584E-01,
     A-0.34551E-04, 0.43800E+04, 0.43900E+04,
     A 0.59152E-04, 0.41171E-01, 0.83900E-02,-0.45951E-04, 0.57949E-02,
     A-0.40723E-04, 0.43900E+04, 0.44000E+04,
     A 0.90913E-04, 0.94376E-02, 0.37251E-01,-0.16131E-03, 0.34629E-01,
     A-0.15582E-03, 0.44000E+04, 0.44100E+04,
     A 0.34561E-07, 0.47569E-04, 0.15514E-02,-0.10274E-04, 0.65701E-06,
     A-0.12526E-04, 0.44100E+04, 0.44200E+04/
       DATA ((ACR(K,J),K=1,8),J=193,200) /
     A 0.43107E-03, 0.54262E-01, 0.24045E-01,-0.49839E-04, 0.16547E-01,
     A-0.44636E-04, 0.44200E+04, 0.44300E+04,
     A 0.31142E-03, 0.38963E-01, 0.14134E-01,-0.68927E-04, 0.11537E-01,
     A-0.63690E-04, 0.44300E+04, 0.44400E+04,
     A 0.14945E-07, 0.78332E-04, 0.89337E-02,-0.43145E-04, 0.69004E-02,
     A-0.42442E-04, 0.44400E+04, 0.44500E+04,
     A 0.16802E-02, 0.51222E-01, 0.15502E-01,-0.23447E-04, 0.10002E-01,
     A-0.32528E-04, 0.44500E+04, 0.44600E+04,
     A 0.10007E-03, 0.66862E-01, 0.24590E-01,-0.98504E-04, 0.22882E-01,
     A-0.10233E-03, 0.44600E+04, 0.44700E+04,
     A 0.30025E-02, 0.51153E-01, 0.19230E-01,-0.81070E-04, 0.15535E-01,
     A-0.68267E-04, 0.44700E+04, 0.44800E+04,
     A 0.86831E-04, 0.40458E-01, 0.36221E-01,-0.15713E-03, 0.33350E-01,
     A-0.15083E-03, 0.44800E+04, 0.44900E+04,
     A 0.80902E-02, 0.12750E+00, 0.16863E-01,-0.76478E-04, 0.16780E-01,
     A-0.77918E-04, 0.44900E+04, 0.45000E+04/
       DATA ((ACR(K,J),K=1,8),J=201,208) /
     A 0.22317E-02, 0.15229E+00, 0.12535E-01,-0.13795E-04, 0.10875E-01,
     A-0.37123E-04, 0.45000E+04, 0.45100E+04,
     A 0.19169E-01, 0.11664E+00, 0.10716E-01,-0.51479E-04, 0.82124E-02,
     A-0.46198E-04, 0.45100E+04, 0.45200E+04,
     A 0.65788E-02, 0.15986E+00, 0.12038E-01,-0.51957E-04, 0.10074E-01,
     A-0.51345E-04, 0.45200E+04, 0.45300E+04,
     A 0.32910E-01, 0.11768E+00, 0.84067E-02,-0.43158E-04, 0.67305E-02,
     A-0.40106E-04, 0.45300E+04, 0.45400E+04,
     A 0.44345E-01, 0.15763E+00, 0.35365E-02,-0.24308E-04, 0.79048E-03,
     A-0.17012E-04, 0.45400E+04, 0.45500E+04,
     A 0.27331E-01, 0.16819E+00, 0.42859E-02,-0.21639E-04, 0.38192E-02,
     A-0.25423E-04, 0.45500E+04, 0.45600E+04,
     A 0.20407E-01, 0.96090E-01, 0.15460E-02,-0.16323E-04, 0.66197E-03,
     A-0.91244E-05, 0.45600E+04, 0.45700E+04,
     A 0.57143E-01, 0.18848E+00, 0.30453E-02,-0.18516E-04, 0.16176E-02,
     A-0.18614E-04, 0.45700E+04, 0.45800E+04/
       DATA ((ACR(K,J),K=1,8),J=209,216) /
     A 0.52929E-01, 0.13102E+00,-0.10515E-02,-0.45621E-05,-0.23271E-02,
     A 0.27682E-05, 0.45800E+04, 0.45900E+04,
     A 0.28557E-01, 0.14681E+00,-0.48301E-03,-0.63151E-05,-0.19647E-02,
     A-0.53522E-05, 0.45900E+04, 0.46000E+04,
     A 0.46383E-02, 0.13391E+00, 0.88609E-02,-0.26493E-04, 0.82741E-02,
     A-0.32453E-04, 0.46000E+04, 0.46100E+04,
     A 0.27730E-01, 0.10824E+00,-0.34789E-02, 0.54132E-05,-0.30391E-02,
     A 0.80678E-05, 0.46100E+04, 0.46200E+04,
     A 0.51267E-01, 0.16778E+00,-0.15076E-02,-0.74663E-06,-0.25263E-02,
     A 0.37070E-05, 0.46200E+04, 0.46300E+04,
     A 0.12900E-01, 0.13459E+00, 0.41658E-03, 0.74475E-06, 0.12458E-02,
     A-0.77586E-05, 0.46300E+04, 0.46400E+04,
     A 0.44954E-01, 0.38311E+00,-0.18643E-02, 0.46026E-05,-0.27134E-02,
     A 0.44958E-05, 0.46400E+04, 0.46500E+04,
     A 0.48639E-02, 0.10343E+00, 0.25659E-02,-0.16961E-04, 0.23819E-02,
     A-0.14778E-04, 0.46500E+04, 0.46600E+04/
       DATA ((ACR(K,J),K=1,8),J=217,224) /
     A 0.12082E-02, 0.18004E+00, 0.14733E-01,-0.52646E-04, 0.14275E-01,
     A-0.60508E-04, 0.46600E+04, 0.46700E+04,
     A 0.13469E-02, 0.34467E+00, 0.12177E-01,-0.23395E-04, 0.10966E-01,
     A-0.36299E-04, 0.46700E+04, 0.46800E+04,
     A 0.68991E-02, 0.16070E+00, 0.64738E-03, 0.37071E-05, 0.32901E-02,
     A-0.20981E-05, 0.46800E+04, 0.46900E+04,
     A 0.27452E-01, 0.60959E-01,-0.51851E-02, 0.12668E-04,-0.41528E-02,
     A 0.26305E-04, 0.46900E+04, 0.47000E+04,
     A 0.17796E-01, 0.15523E+00,-0.27265E-02, 0.37407E-05,-0.33733E-02,
     A 0.10358E-04, 0.47000E+04, 0.47100E+04,
     A 0.11446E-01, 0.17796E+00,-0.68324E-03, 0.68406E-05,-0.10826E-02,
     A 0.59431E-05, 0.47100E+04, 0.47200E+04,
     A 0.29309E-01, 0.13652E+00,-0.17282E-02, 0.67620E-05, 0.56764E-03,
     A 0.13237E-04, 0.47200E+04, 0.47300E+04,
     A 0.21395E-01, 0.18395E+00,-0.15768E-02, 0.14383E-04, 0.15897E-03,
     A 0.87960E-05, 0.47300E+04, 0.47400E+04/
       DATA ((ACR(K,J),K=1,8),J=225,232) /
     A 0.25077E-02, 0.18622E+00, 0.42912E-02,-0.49559E-05, 0.45676E-02,
     A-0.26247E-05, 0.47400E+04, 0.47500E+04,
     A 0.31587E-01, 0.13943E+00,-0.12088E-02,-0.89815E-07,-0.15710E-03,
     A 0.20359E-04, 0.47500E+04, 0.47600E+04,
     A 0.34566E-01, 0.28253E+00, 0.16858E-02,-0.89950E-05, 0.97520E-03,
     A-0.81082E-05, 0.47600E+04, 0.47700E+04,
     A 0.20369E-01, 0.14591E+00,-0.14421E-02, 0.19399E-04, 0.39665E-02,
     A 0.14338E-04, 0.47700E+04, 0.47800E+04,
     A 0.81447E-02, 0.12195E+00, 0.13964E-02, 0.32025E-04, 0.37728E-02,
     A 0.20537E-04, 0.47800E+04, 0.47900E+04,
     A 0.19803E-01, 0.14625E+00, 0.96298E-03,-0.29783E-05, 0.41118E-02,
     A-0.97923E-06, 0.47900E+04, 0.48000E+04,
     A 0.52146E-02, 0.17691E+00, 0.14543E-01,-0.31749E-04, 0.14900E-01,
     A-0.44049E-04, 0.48000E+04, 0.48100E+04,
     A 0.35065E-01, 0.21617E+00,-0.21492E-02, 0.23072E-04, 0.11780E-02,
     A 0.24416E-04, 0.48100E+04, 0.48200E+04/
       DATA ((ACR(K,J),K=1,8),J=233,240) /
     A 0.12656E-01, 0.15792E+00, 0.83705E-02,-0.21219E-04, 0.82684E-02,
     A-0.28775E-04, 0.48200E+04, 0.48300E+04,
     A 0.14126E-01, 0.49850E+00, 0.96621E-02, 0.23197E-04, 0.11163E-01,
     A-0.20765E-04, 0.48300E+04, 0.48400E+04,
     A 0.23704E-01, 0.35541E+00, 0.55808E-02,-0.10952E-05, 0.68854E-02,
     A-0.13359E-04, 0.48400E+04, 0.48500E+04,
     A 0.32166E-01, 0.23632E+00,-0.23289E-03, 0.79450E-05, 0.17163E-02,
     A 0.28957E-05, 0.48500E+04, 0.48600E+04,
     A 0.26468E-01, 0.24812E+00, 0.83260E-02, 0.89107E-05, 0.10638E-01,
     A-0.24848E-04, 0.48600E+04, 0.48700E+04,
     A 0.12607E-01, 0.28278E+00, 0.14341E-01,-0.17161E-04, 0.17744E-01,
     A-0.43433E-04, 0.48700E+04, 0.48800E+04,
     A 0.19484E-02, 0.13452E+00, 0.14299E-01,-0.58644E-04, 0.12622E-01,
     A-0.58891E-04, 0.48800E+04, 0.48900E+04,
     A 0.19835E-01, 0.43138E+00, 0.16502E-01,-0.37834E-04, 0.15564E-01,
     A-0.53844E-04, 0.48900E+04, 0.49000E+04/
       DATA ((ACR(K,J),K=1,8),J=241,248) /
     A 0.31673E-01, 0.23676E+00, 0.18724E-01,-0.62795E-04, 0.17963E-01,
     A-0.67476E-04, 0.49000E+04, 0.49100E+04,
     A 0.20383E-01, 0.16860E+00, 0.20820E-01,-0.92373E-04, 0.18807E-01,
     A-0.85676E-04, 0.49100E+04, 0.49200E+04,
     A 0.34221E-01, 0.37729E+00, 0.14636E-01, 0.98132E-05, 0.15033E-01,
     A-0.32546E-04, 0.49200E+04, 0.49300E+04,
     A 0.41381E-01, 0.17341E+00, 0.42270E-02, 0.26778E-04, 0.73624E-02,
     A-0.61930E-05, 0.49300E+04, 0.49400E+04,
     A 0.50322E-01, 0.24574E+00, 0.15060E-01,-0.60731E-04, 0.11710E-01,
     A-0.49448E-04, 0.49400E+04, 0.49500E+04,
     A 0.11355E+00, 0.43168E+00, 0.12506E-01,-0.23567E-04, 0.10508E-01,
     A-0.32884E-04, 0.49500E+04, 0.49600E+04,
     A 0.73646E-01, 0.28063E+00, 0.15510E-01,-0.63821E-04, 0.12136E-01,
     A-0.51762E-04, 0.49600E+04, 0.49700E+04,
     A 0.21754E-02, 0.23290E+00, 0.25115E-01, 0.13402E-05, 0.23138E-01,
     A-0.49298E-04, 0.49700E+04, 0.49800E+04/
       DATA ((ACR(K,J),K=1,8),J=249,256) /
     A 0.20462E+00, 0.37006E+00, 0.13871E-01,-0.57344E-04, 0.11137E-01,
     A-0.49726E-04, 0.49800E+04, 0.49900E+04,
     A 0.15479E+00, 0.14505E+00, 0.12101E-01,-0.55517E-04, 0.11913E-01,
     A-0.38561E-04, 0.49900E+04, 0.50000E+04,
     A 0.16270E+00, 0.14157E+00, 0.12656E-01,-0.49554E-04, 0.12730E-01,
     A-0.47918E-04, 0.50000E+04, 0.50100E+04,
     A 0.20283E+00, 0.16538E+00, 0.98358E-02,-0.41905E-04, 0.91599E-02,
     A-0.33109E-04, 0.50100E+04, 0.50200E+04,
     A 0.32847E+00, 0.20501E+00, 0.10455E-01,-0.30987E-04, 0.11634E-01,
     A-0.22216E-04, 0.50200E+04, 0.50300E+04,
     A 0.40880E+00, 0.15680E+00, 0.97922E-02,-0.42397E-04, 0.98076E-02,
     A-0.38651E-04, 0.50300E+04, 0.50400E+04,
     A 0.27012E+00, 0.21951E+00, 0.12867E-01,-0.18768E-05, 0.12462E-01,
     A-0.21550E-04, 0.50400E+04, 0.50500E+04,
     A 0.57610E+00, 0.16605E+00, 0.61804E-02,-0.30533E-04, 0.69772E-02,
     A-0.17735E-04, 0.50500E+04, 0.50600E+04/
C
      do i=1,8
      a(i)=acr(i,inu)
      enddo
      return
      end

