      SUBROUTINE    WAVA4(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
C
C     WATER VAPOR (10180 - 12720 CM-1)
C
       DATA ((ACR(K,J),K=1,8),J=  1,  8) /
     A 0.37011E-01, 0.34865E+00, 0.71795E-02,-0.24290E-04, 0.61217E-02,
     A-0.25788E-04, 0.10180E+05, 0.10190E+05,
     A 0.96531E-01, 0.19630E+00, 0.44353E-02,-0.27769E-04, 0.20496E-02,
     A-0.19020E-04, 0.10190E+05, 0.10200E+05,
     A 0.11553E+00, 0.22356E+00, 0.57418E-02,-0.28610E-04, 0.52520E-02,
     A-0.30274E-04, 0.10200E+05, 0.10210E+05,
     A 0.17877E+00, 0.25357E+00, 0.36991E-02,-0.19865E-04, 0.35644E-02,
     A-0.15681E-04, 0.10210E+05, 0.10220E+05,
     A 0.94449E-01, 0.35387E+00, 0.21016E-02,-0.15037E-04, 0.58316E-03,
     A-0.11084E-04, 0.10220E+05, 0.10230E+05,
     A 0.79869E-01, 0.26030E+00, 0.51322E-02,-0.20923E-04, 0.39204E-02,
     A-0.22157E-04, 0.10230E+05, 0.10240E+05,
     A 0.30687E+00, 0.32758E+00, 0.63705E-03,-0.91396E-05, 0.25647E-03,
     A-0.36374E-05, 0.10240E+05, 0.10250E+05,
     A 0.15358E+00, 0.13982E+00,-0.83666E-03, 0.33048E-05, 0.27185E-02,
     A 0.12493E-04, 0.10250E+05, 0.10260E+05/
       DATA ((ACR(K,J),K=1,8),J=  9, 16) /
     A 0.38232E+00, 0.35543E+00,-0.10313E-02,-0.18768E-05,-0.16001E-02,
     A 0.38356E-06, 0.10260E+05, 0.10270E+05,
     A 0.56200E-01, 0.34487E+00, 0.36934E-02, 0.73751E-05, 0.70064E-02,
     A-0.12975E-04, 0.10270E+05, 0.10280E+05,
     A 0.11137E+00, 0.21188E+00,-0.24327E-02, 0.16553E-04,-0.30535E-03,
     A 0.19603E-04, 0.10280E+05, 0.10290E+05,
     A 0.16704E+00, 0.16200E+00,-0.28871E-02, 0.98108E-05,-0.42980E-03,
     A 0.17309E-04, 0.10290E+05, 0.10300E+05,
     A 0.15496E+00, 0.19365E+00,-0.25906E-02, 0.17434E-04,-0.35463E-03,
     A 0.81537E-05, 0.10300E+05, 0.10310E+05,
     A 0.50239E-01, 0.44504E+00, 0.82014E-02, 0.47362E-04, 0.97304E-02,
     A-0.10209E-04, 0.10310E+05, 0.10320E+05,
     A 0.21509E+00, 0.29651E+00,-0.21764E-02, 0.20847E-04,-0.23124E-03,
     A 0.10958E-04, 0.10320E+05, 0.10330E+05,
     A 0.15838E+00, 0.17695E+00,-0.19477E-02, 0.28641E-05,-0.31011E-02,
     A 0.62742E-05, 0.10330E+05, 0.10340E+05/
       DATA ((ACR(K,J),K=1,8),J= 17, 24) /
     A 0.45807E+00, 0.42831E+00,-0.47039E-04, 0.16616E-04, 0.14520E-02,
     A 0.64036E-05, 0.10340E+05, 0.10350E+05,
     A 0.14196E+00, 0.43150E+00, 0.32845E-02, 0.18573E-04, 0.44632E-02,
     A-0.38921E-05, 0.10350E+05, 0.10360E+05,
     A 0.46768E+00, 0.48970E+00, 0.30587E-02,-0.99296E-05, 0.17377E-02,
     A-0.12227E-04, 0.10360E+05, 0.10370E+05,
     A 0.49107E+00, 0.45881E+00, 0.17676E-02, 0.23059E-04, 0.37946E-02,
     A-0.79699E-05, 0.10370E+05, 0.10380E+05,
     A 0.40709E+00, 0.39513E+00, 0.24501E-02, 0.34328E-05, 0.33911E-02,
     A-0.16475E-04, 0.10380E+05, 0.10390E+05,
     A 0.53368E+00, 0.30449E+00, 0.27640E-02, 0.16491E-04, 0.31852E-02,
     A-0.79335E-05, 0.10390E+05, 0.10400E+05,
     A 0.50598E+00, 0.38596E+00, 0.11335E-02, 0.79179E-05, 0.16436E-02,
     A-0.42442E-05, 0.10400E+05, 0.10410E+05,
     A 0.36712E+00, 0.58535E+00, 0.35486E-02,-0.25563E-05, 0.25513E-02,
     A-0.12028E-04, 0.10410E+05, 0.10420E+05/
       DATA ((ACR(K,J),K=1,8),J= 25, 32) /
     A 0.98775E+00, 0.50104E+00, 0.56199E-02,-0.16902E-04, 0.43563E-02,
     A-0.26045E-04, 0.10420E+05, 0.10430E+05,
     A 0.76493E+00, 0.41145E+00, 0.27287E-02,-0.12684E-04, 0.96642E-03,
     A-0.12013E-04, 0.10430E+05, 0.10440E+05,
     A 0.45180E+00, 0.45681E+00, 0.55394E-02,-0.18929E-04, 0.49043E-02,
     A-0.25553E-04, 0.10440E+05, 0.10450E+05,
     A 0.93845E+00, 0.25977E+00, 0.63165E-02,-0.33633E-04, 0.30572E-02,
     A-0.23591E-04, 0.10450E+05, 0.10460E+05,
     A 0.10799E+01, 0.52983E+00, 0.49753E-02,-0.22413E-04, 0.37285E-02,
     A-0.19018E-04, 0.10460E+05, 0.10470E+05,
     A 0.19954E+01, 0.24666E+00, 0.43881E-02,-0.29035E-04, 0.20409E-02,
     A-0.21664E-04, 0.10470E+05, 0.10480E+05,
     A 0.53954E+00, 0.36080E+00, 0.38367E-02,-0.24920E-04, 0.16345E-02,
     A-0.20659E-04, 0.10480E+05, 0.10490E+05,
     A 0.19042E+01, 0.28357E+00, 0.20331E-02,-0.19809E-04, 0.11780E-03,
     A-0.15063E-04, 0.10490E+05, 0.10500E+05/
       DATA ((ACR(K,J),K=1,8),J= 33, 40) /
     A 0.13639E+01, 0.41799E+00, 0.17903E-02,-0.14939E-04, 0.77921E-03,
     A-0.13895E-04, 0.10500E+05, 0.10510E+05,
     A 0.27245E+00, 0.53566E+00, 0.28306E-02,-0.21067E-05, 0.41171E-02,
     A-0.12108E-04, 0.10510E+05, 0.10520E+05,
     A 0.42250E+01, 0.34405E+00,-0.92601E-03,-0.58016E-05,-0.20236E-02,
     A-0.93790E-06, 0.10520E+05, 0.10530E+05,
     A 0.41591E+00, 0.38497E+00, 0.41580E-02, 0.56585E-05, 0.31671E-02,
     A-0.11552E-04, 0.10530E+05, 0.10540E+05,
     A 0.24868E+01, 0.21796E+00,-0.20342E-02, 0.21116E-05,-0.20977E-02,
     A 0.32759E-05, 0.10540E+05, 0.10550E+05,
     A 0.94420E+00, 0.51349E+00, 0.18825E-02, 0.22079E-05, 0.15856E-02,
     A-0.88233E-05, 0.10550E+05, 0.10560E+05,
     A 0.21390E+01, 0.25647E+00,-0.19634E-02, 0.79808E-05,-0.24854E-02,
     A 0.46652E-05, 0.10560E+05, 0.10570E+05,
     A 0.13917E+01, 0.33676E+00, 0.35449E-02,-0.20344E-04, 0.32271E-03,
     A-0.12565E-04, 0.10570E+05, 0.10580E+05/
       DATA ((ACR(K,J),K=1,8),J= 41, 48) /
     A 0.59303E+01, 0.30084E+00, 0.13471E-03,-0.51658E-05,-0.18823E-02,
     A-0.48751E-05, 0.10580E+05, 0.10590E+05,
     A 0.10087E+01, 0.13259E+00,-0.14095E-02,-0.47735E-05,-0.24541E-02,
     A 0.26832E-05, 0.10590E+05, 0.10600E+05,
     A 0.43983E+01, 0.19046E+00,-0.34725E-02, 0.24224E-05,-0.53127E-02,
     A 0.71676E-05, 0.10600E+05, 0.10610E+05,
     A 0.96572E+00, 0.30982E+00,-0.27372E-02, 0.68946E-05,-0.23672E-02,
     A 0.83925E-05, 0.10610E+05, 0.10620E+05,
     A 0.91323E+00, 0.32206E+00,-0.24872E-02, 0.32962E-05,-0.26005E-02,
     A 0.20821E-05, 0.10620E+05, 0.10630E+05,
     A 0.64383E+00, 0.32142E+00,-0.40036E-02, 0.11751E-04,-0.46913E-02,
     A 0.10960E-04, 0.10630E+05, 0.10640E+05,
     A 0.20419E+00, 0.32226E+00,-0.10057E-02, 0.37593E-06,-0.12761E-02,
     A-0.19796E-05, 0.10640E+05, 0.10650E+05,
     A 0.32582E+01, 0.41089E+00,-0.42525E-02, 0.11056E-04,-0.35530E-02,
     A 0.10430E-04, 0.10650E+05, 0.10660E+05/
       DATA ((ACR(K,J),K=1,8),J= 49, 56) /
     A 0.40011E+01, 0.26987E+00,-0.41265E-02, 0.68604E-05,-0.47731E-02,
     A 0.89525E-05, 0.10660E+05, 0.10670E+05,
     A 0.23087E+01, 0.28610E+00,-0.29291E-02, 0.15494E-05,-0.36647E-02,
     A 0.31219E-05, 0.10670E+05, 0.10680E+05,
     A 0.50379E+01, 0.43636E+00,-0.48143E-03, 0.68393E-05,-0.11602E-02,
     A 0.87690E-06, 0.10680E+05, 0.10690E+05,
     A 0.34572E+01, 0.24029E+00,-0.38723E-03,-0.87391E-05,-0.44231E-03,
     A-0.76170E-05, 0.10690E+05, 0.10700E+05,
     A 0.34164E+01, 0.31894E+00, 0.51822E-03,-0.97127E-05,-0.87127E-04,
     A-0.11526E-04, 0.10700E+05, 0.10710E+05,
     A 0.19975E+01, 0.24091E+00, 0.20391E-02,-0.18108E-04, 0.81249E-03,
     A-0.13281E-04, 0.10710E+05, 0.10720E+05,
     A 0.18993E+01, 0.38637E+00, 0.46303E-02,-0.25016E-04, 0.35053E-02,
     A-0.22372E-04, 0.10720E+05, 0.10730E+05,
     A 0.19580E+01, 0.33984E+00, 0.57686E-02,-0.32398E-04, 0.41169E-02,
     A-0.28630E-04, 0.10730E+05, 0.10740E+05/
       DATA ((ACR(K,J),K=1,8),J= 57, 64) /
     A 0.56316E+00, 0.41883E+00, 0.11363E-01,-0.45220E-04, 0.82366E-02,
     A-0.37842E-04, 0.10740E+05, 0.10750E+05,
     A 0.35401E+00, 0.69851E+00, 0.10496E-01,-0.21851E-04, 0.66866E-02,
     A-0.24626E-04, 0.10750E+05, 0.10760E+05,
     A 0.19707E+00, 0.69982E+00, 0.10773E-01,-0.92780E-05, 0.83529E-02,
     A-0.18664E-04, 0.10760E+05, 0.10770E+05,
     A 0.21890E+00, 0.61722E+00, 0.26481E-02, 0.14368E-04, 0.37728E-02,
     A-0.16702E-06, 0.10770E+05, 0.10780E+05,
     A 0.55267E-01, 0.65930E+00, 0.70750E-02, 0.34583E-05, 0.56327E-02,
     A-0.18713E-04, 0.10780E+05, 0.10790E+05,
     A 0.82626E-01, 0.56771E+00, 0.14488E-02, 0.90784E-05, 0.15016E-02,
     A-0.45502E-05, 0.10790E+05, 0.10800E+05,
     A 0.70929E-01, 0.31037E+00, 0.34662E-05, 0.43968E-05,-0.61123E-03,
     A-0.11496E-06, 0.10800E+05, 0.10810E+05,
     A 0.97418E-01, 0.44409E+00,-0.31642E-03, 0.51491E-05,-0.10289E-02,
     A-0.18238E-05, 0.10810E+05, 0.10820E+05/
       DATA ((ACR(K,J),K=1,8),J= 65, 72) /
     A 0.84947E-01, 0.43514E+00, 0.39381E-02,-0.12895E-05, 0.26186E-02,
     A-0.13069E-04, 0.10820E+05, 0.10830E+05,
     A 0.58260E-01, 0.18252E+00, 0.19735E-02,-0.63696E-05,-0.58857E-03,
     A-0.51048E-05, 0.10830E+05, 0.10840E+05,
     A 0.11036E+00, 0.40791E+00, 0.27504E-02, 0.54669E-05, 0.10814E-02,
     A-0.73999E-05, 0.10840E+05, 0.10850E+05,
     A 0.63822E-01, 0.38390E+00, 0.50367E-02,-0.20231E-04, 0.28937E-02,
     A-0.18685E-04, 0.10850E+05, 0.10860E+05,
     A 0.10028E-01, 0.29145E+00, 0.59963E-02,-0.23315E-04, 0.34252E-02,
     A-0.20320E-04, 0.10860E+05, 0.10870E+05,
     A 0.12414E+00, 0.24481E+00, 0.65529E-02,-0.37402E-04, 0.35139E-02,
     A-0.30249E-04, 0.10870E+05, 0.10880E+05,
     A 0.14508E+00, 0.36269E+00,-0.34622E-03, 0.72138E-05,-0.33853E-03,
     A 0.74773E-06, 0.10880E+05, 0.10890E+05,
     A 0.32952E+00, 0.51235E+00, 0.11560E-02,-0.99464E-05,-0.17097E-02,
     A-0.69684E-05, 0.10890E+05, 0.10900E+05/
       DATA ((ACR(K,J),K=1,8),J= 73, 80) /
     A 0.81689E-01, 0.43746E+00, 0.24720E-02,-0.85593E-05, 0.81070E-03,
     A-0.10007E-04, 0.10900E+05, 0.10910E+05,
     A 0.36297E+00, 0.47635E+00,-0.75510E-03, 0.32155E-05,-0.14160E-02,
     A 0.13385E-05, 0.10910E+05, 0.10920E+05,
     A 0.21833E+00, 0.56037E+00, 0.15815E-02,-0.13282E-04, 0.27446E-03,
     A-0.12751E-04, 0.10920E+05, 0.10930E+05,
     A 0.62283E-01, 0.46899E+00, 0.37160E-02, 0.97049E-06, 0.30288E-02,
     A-0.13634E-04, 0.10930E+05, 0.10940E+05,
     A 0.49012E+00, 0.36842E+00,-0.87423E-03,-0.67163E-05,-0.22164E-02,
     A-0.26838E-05, 0.10940E+05, 0.10950E+05,
     A 0.14742E+00, 0.42276E+00, 0.21422E-02, 0.59370E-05, 0.88387E-03,
     A-0.68671E-05, 0.10950E+05, 0.10960E+05,
     A 0.28100E+00, 0.22881E+00,-0.22496E-02,-0.94548E-06,-0.31883E-02,
     A 0.44808E-06, 0.10960E+05, 0.10970E+05,
     A 0.22513E+00, 0.41493E+00, 0.36269E-02,-0.16185E-04, 0.17037E-02,
     A-0.17793E-04, 0.10970E+05, 0.10980E+05/
       DATA ((ACR(K,J),K=1,8),J= 81, 88) /
     A 0.21994E+00, 0.21688E+00,-0.36261E-02, 0.57974E-05,-0.41527E-02,
     A 0.80739E-05, 0.10980E+05, 0.10990E+05,
     A 0.14084E+00, 0.33322E+00, 0.13752E-03,-0.62038E-05,-0.11146E-02,
     A-0.60724E-05, 0.10990E+05, 0.11000E+05,
     A 0.32300E+00, 0.17636E+00,-0.13536E-02,-0.58665E-06,-0.24854E-02,
     A-0.30662E-06, 0.11000E+05, 0.11010E+05,
     A 0.40180E+00, 0.22575E+00,-0.22932E-02,-0.23319E-05,-0.44015E-02,
     A 0.24510E-05, 0.11010E+05, 0.11020E+05,
     A 0.40187E+00, 0.17827E+00,-0.28707E-02, 0.15665E-05,-0.44357E-02,
     A 0.31485E-05, 0.11020E+05, 0.11030E+05,
     A 0.96411E-01, 0.21466E+00,-0.22778E-02, 0.41240E-05,-0.27585E-02,
     A 0.20224E-05, 0.11030E+05, 0.11040E+05,
     A 0.96343E-01, 0.15703E+00,-0.22356E-02, 0.15369E-05,-0.30654E-02,
     A-0.32505E-06, 0.11040E+05, 0.11050E+05,
     A 0.79848E-01, 0.17965E+00,-0.20125E-02, 0.96504E-05,-0.32600E-02,
     A 0.53659E-05, 0.11050E+05, 0.11060E+05/
       DATA ((ACR(K,J),K=1,8),J= 89, 96) /
     A 0.62139E-01, 0.10557E+00,-0.40683E-02, 0.93909E-05,-0.47053E-02,
     A 0.10347E-04, 0.11060E+05, 0.11070E+05,
     A 0.25071E+00, 0.11190E+00,-0.48932E-02, 0.98071E-05,-0.52555E-02,
     A 0.97232E-05, 0.11070E+05, 0.11080E+05,
     A 0.50363E+00, 0.18561E+00,-0.40852E-02, 0.47194E-05,-0.61085E-02,
     A 0.99471E-05, 0.11080E+05, 0.11090E+05,
     A 0.23621E+00, 0.35575E+00,-0.69998E-03,-0.38983E-06,-0.74838E-03,
     A-0.63021E-05, 0.11090E+05, 0.11100E+05,
     A 0.41715E+00, 0.20786E+00,-0.26671E-02,-0.85957E-06,-0.44855E-02,
     A 0.36346E-05, 0.11100E+05, 0.11110E+05,
     A 0.35497E+00, 0.15568E+00,-0.20655E-03,-0.10414E-04,-0.19241E-02,
     A-0.74910E-05, 0.11110E+05, 0.11120E+05,
     A 0.36391E+00, 0.22115E+00, 0.80888E-04,-0.80079E-05,-0.72043E-03,
     A-0.88371E-05, 0.11120E+05, 0.11130E+05,
     A 0.23900E+00, 0.19893E+00, 0.17314E-02,-0.17450E-04,-0.72547E-03,
     A-0.10781E-04, 0.11130E+05, 0.11140E+05/
       DATA ((ACR(K,J),K=1,8),J= 97,104) /
     A 0.18535E+00, 0.23329E+00, 0.44356E-02,-0.24159E-04, 0.25620E-02,
     A-0.21329E-04, 0.11140E+05, 0.11150E+05,
     A 0.18058E+00, 0.20287E+00, 0.53731E-02,-0.29480E-04, 0.26609E-02,
     A-0.22876E-04, 0.11150E+05, 0.11160E+05,
     A 0.86563E-01, 0.18472E+00, 0.71342E-02,-0.34497E-04, 0.62094E-02,
     A-0.37103E-04, 0.11160E+05, 0.11170E+05,
     A 0.40545E-01, 0.27173E+00, 0.12595E-01,-0.53501E-04, 0.98569E-02,
     A-0.51164E-04, 0.11170E+05, 0.11180E+05,
     A 0.15934E-01, 0.21414E+00, 0.21094E-01,-0.91779E-04, 0.18771E-01,
     A-0.88619E-04, 0.11180E+05, 0.11190E+05,
     A 0.32149E-01, 0.20819E+00, 0.53736E-02, 0.47418E-05, 0.28308E-02,
     A-0.39739E-05, 0.11190E+05, 0.11200E+05,
     A 0.33026E-02, 0.11250E+00,-0.49337E-02, 0.83861E-05,-0.74414E-02,
     A 0.12308E-04, 0.11200E+05, 0.11210E+05,
     A 0.69621E-02, 0.11936E+00, 0.24820E-02, 0.14188E-04, 0.41457E-02,
     A-0.76324E-05, 0.11210E+05, 0.11220E+05/
       DATA ((ACR(K,J),K=1,8),J=105,112) /
     A 0.18624E-02, 0.73437E-01, 0.37334E-02, 0.64996E-04, 0.21277E-02,
     A 0.25070E-04, 0.11220E+05, 0.11230E+05,
     A 0.56133E-02, 0.14671E+00, 0.57744E-03,-0.10633E-04,-0.20996E-02,
     A-0.69690E-05, 0.11230E+05, 0.11240E+05,
     A 0.59301E-03, 0.13188E+00, 0.43109E-02,-0.27217E-04, 0.14102E-02,
     A-0.21872E-04, 0.11240E+05, 0.11250E+05,
     A 0.62071E-02, 0.80210E-01, 0.31276E-02,-0.22059E-04, 0.61977E-03,
     A-0.16464E-04, 0.11250E+05, 0.11260E+05,
     A 0.70445E-03, 0.90176E-01, 0.63540E-02,-0.17728E-04, 0.35488E-02,
     A-0.21566E-04, 0.11260E+05, 0.11270E+05,
     A 0.24343E-02, 0.82442E-01,-0.12318E-03,-0.11355E-04,-0.23203E-02,
     A-0.80507E-05, 0.11270E+05, 0.11280E+05,
     A 0.53124E-02, 0.10493E+00, 0.25120E-02,-0.21412E-04,-0.25472E-03,
     A-0.16312E-04, 0.11280E+05, 0.11290E+05,
     A 0.10156E-02, 0.75674E-01, 0.67257E-02,-0.39040E-04, 0.37539E-02,
     A-0.32659E-04, 0.11290E+05, 0.11300E+05/
       DATA ((ACR(K,J),K=1,8),J=113,120) /
     A 0.45845E-03, 0.31771E-01, 0.83901E-02,-0.45954E-04, 0.56330E-02,
     A-0.40402E-04, 0.11300E+05, 0.11310E+05,
     A 0.13128E-02, 0.13620E+00, 0.32287E-02,-0.24445E-04, 0.67354E-03,
     A-0.20060E-04, 0.11310E+05, 0.11320E+05,
     A 0.91527E-03, 0.43387E-01, 0.13028E-01,-0.64031E-04, 0.10684E-01,
     A-0.60150E-04, 0.11320E+05, 0.11330E+05,
     A 0.16381E-02, 0.11364E+00, 0.82323E-02,-0.41843E-04, 0.46964E-02,
     A-0.35054E-04, 0.11330E+05, 0.11340E+05,
     A 0.82138E-03, 0.51673E-01, 0.74756E-02,-0.41981E-04, 0.51092E-02,
     A-0.37995E-04, 0.11340E+05, 0.11350E+05,
     A 0.82766E-03, 0.72646E-01, 0.53277E-02,-0.32660E-04, 0.34473E-02,
     A-0.30783E-04, 0.11350E+05, 0.11360E+05,
     A 0.29086E-03, 0.31771E-01, 0.94981E-02,-0.50386E-04, 0.67409E-02,
     A-0.44834E-04, 0.11360E+05, 0.11370E+05,
     A 0.21807E-03, 0.58942E-01, 0.15709E-01,-0.59258E-04, 0.13592E-01,
     A-0.63956E-04, 0.11370E+05, 0.11380E+05/
       DATA ((ACR(K,J),K=1,8),J=121,128) /
     A 0.62704E-03, 0.12257E+00, 0.10699E-01,-0.49284E-04, 0.95849E-02,
     A-0.53234E-04, 0.11380E+05, 0.11390E+05,
     A 0.10702E-03, 0.28818E-01, 0.79994E-02,-0.44391E-04, 0.52422E-02,
     A-0.38839E-04, 0.11390E+05, 0.11400E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11400E+05, 0.11410E+05,
     A 0.22042E-03, 0.65689E-01, 0.16094E-01,-0.75895E-04, 0.13589E-01,
     A-0.71741E-04, 0.11410E+05, 0.11420E+05,
     A 0.81809E-04, 0.30563E-01, 0.19812E-01,-0.91641E-04, 0.17055E-01,
     A-0.86089E-04, 0.11420E+05, 0.11430E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11430E+05, 0.11440E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11440E+05, 0.11450E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11450E+05, 0.11460E+05/
       DATA ((ACR(K,J),K=1,8),J=129,136) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11460E+05, 0.11470E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11470E+05, 0.11480E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11480E+05, 0.11490E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11490E+05, 0.11500E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11500E+05, 0.11510E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11510E+05, 0.11520E+05,
     A 0.68748E-05, 0.28818E-01, 0.14135E-01,-0.68935E-04, 0.11378E-01,
     A-0.63383E-04, 0.11520E+05, 0.11530E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11530E+05, 0.11540E+05/
       DATA ((ACR(K,J),K=1,8),J=137,144) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11540E+05, 0.11550E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11550E+05, 0.11560E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11560E+05, 0.11570E+05,
     A 0.11592E-04, 0.37767E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
     A-0.19276E-04, 0.11570E+05, 0.11580E+05,
     A 0.12377E-03, 0.91349E-01, 0.12838E-01,-0.36325E-04, 0.84626E-02,
     A-0.38447E-04, 0.11580E+05, 0.11590E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11590E+05, 0.11600E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11600E+05, 0.11610E+05,
     A 0.27776E-03, 0.99768E-01, 0.16197E-01,-0.71636E-04, 0.12877E-01,
     A-0.62598E-04, 0.11610E+05, 0.11620E+05/
       DATA ((ACR(K,J),K=1,8),J=145,152) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.11620E+05, 0.11630E+05,
     A 0.60387E-03, 0.79303E-01, 0.11427E-01,-0.56399E-04, 0.76314E-02,
     A-0.45247E-04, 0.11630E+05, 0.11640E+05,
     A 0.83575E-04, 0.82334E-01, 0.15996E-01,-0.73351E-04, 0.13978E-01,
     A-0.71310E-04, 0.11640E+05, 0.11650E+05,
     A 0.27734E-03, 0.28818E-01, 0.12698E-01,-0.63185E-04, 0.99405E-02,
     A-0.57633E-04, 0.11650E+05, 0.11660E+05,
     A 0.13776E-02, 0.12750E+00, 0.89606E-02,-0.40931E-04, 0.62080E-02,
     A-0.36077E-04, 0.11660E+05, 0.11670E+05,
     A 0.45458E-03, 0.59090E-01, 0.73062E-02,-0.41015E-04, 0.53622E-02,
     A-0.38549E-04, 0.11670E+05, 0.11680E+05,
     A 0.19815E-02, 0.15477E+00, 0.62250E-02,-0.32087E-04, 0.49876E-02,
     A-0.32313E-04, 0.11680E+05, 0.11690E+05,
     A 0.99572E-03, 0.88310E-01, 0.56347E-02,-0.27093E-04, 0.37058E-02,
     A-0.28108E-04, 0.11690E+05, 0.11700E+05/
       DATA ((ACR(K,J),K=1,8),J=153,160) /
     A 0.25341E-02, 0.10399E+00, 0.32192E-02,-0.21942E-04, 0.10784E-02,
     A-0.18674E-04, 0.11700E+05, 0.11710E+05,
     A 0.16910E-02, 0.18929E+00, 0.42421E-02,-0.24597E-04, 0.31654E-02,
     A-0.23807E-04, 0.11710E+05, 0.11720E+05,
     A 0.17060E-02, 0.12598E+00, 0.65013E-03,-0.13447E-04,-0.21977E-02,
     A-0.84803E-05, 0.11720E+05, 0.11730E+05,
     A 0.32703E-02, 0.14780E+00, 0.14549E-02,-0.10754E-04, 0.35403E-03,
     A-0.13234E-04, 0.11730E+05, 0.11740E+05,
     A 0.55601E-02, 0.15726E+00,-0.20459E-02,-0.28933E-05,-0.40613E-02,
     A 0.23816E-05, 0.11740E+05, 0.11750E+05,
     A 0.23988E-02, 0.10521E+00,-0.89604E-04,-0.89256E-05,-0.19341E-02,
     A-0.41252E-05, 0.11750E+05, 0.11760E+05,
     A 0.21014E-02, 0.20346E+00, 0.15570E-02,-0.38760E-06, 0.42674E-03,
     A-0.74882E-05, 0.11760E+05, 0.11770E+05,
     A 0.44559E-02, 0.17649E+00,-0.26665E-02, 0.26782E-05,-0.43678E-02,
     A 0.11412E-04, 0.11770E+05, 0.11780E+05/
       DATA ((ACR(K,J),K=1,8),J=161,168) /
     A 0.24355E-02, 0.14380E+00,-0.30347E-02, 0.13498E-04,-0.29099E-02,
     A 0.83348E-05, 0.11780E+05, 0.11790E+05,
     A 0.12088E-02, 0.14652E+00, 0.43364E-02,-0.23499E-04, 0.41360E-02,
     A-0.25136E-04, 0.11790E+05, 0.11800E+05,
     A 0.35615E-03, 0.76935E-01,-0.41654E-03, 0.16868E-04,-0.36975E-03,
     A 0.66392E-05, 0.11800E+05, 0.11810E+05,
     A 0.33205E-02, 0.14642E+00,-0.22883E-02, 0.15563E-04,-0.11424E-02,
     A 0.66010E-05, 0.11810E+05, 0.11820E+05,
     A 0.96482E-03, 0.11674E+00,-0.20293E-02, 0.33475E-04, 0.18153E-02,
     A 0.18034E-04, 0.11820E+05, 0.11830E+05,
     A 0.25468E-02, 0.23891E+00,-0.37386E-03, 0.25112E-04,-0.70370E-03,
     A 0.12657E-04, 0.11830E+05, 0.11840E+05,
     A 0.39780E-02, 0.19525E+00, 0.17761E-02, 0.17009E-04, 0.28654E-02,
     A 0.97695E-06, 0.11840E+05, 0.11850E+05,
     A 0.93080E-02, 0.22287E+00,-0.28141E-02, 0.61915E-05,-0.35846E-02,
     A 0.90001E-05, 0.11850E+05, 0.11860E+05/
       DATA ((ACR(K,J),K=1,8),J=169,176) /
     A 0.11913E-02, 0.14817E+00, 0.11043E-02, 0.47279E-04, 0.21704E-02,
     A 0.16632E-04, 0.11860E+05, 0.11870E+05,
     A 0.10095E-01, 0.33190E+00,-0.30250E-03, 0.27919E-04, 0.46706E-03,
     A 0.13481E-04, 0.11870E+05, 0.11880E+05,
     A 0.94837E-02, 0.29542E+00, 0.41573E-02,-0.45489E-05, 0.46629E-02,
     A-0.13608E-04, 0.11880E+05, 0.11890E+05,
     A 0.57807E-02, 0.16128E+00, 0.22948E-02, 0.30930E-04, 0.32856E-02,
     A 0.73247E-05, 0.11890E+05, 0.11900E+05,
     A 0.90317E-02, 0.33992E+00, 0.64901E-02, 0.13104E-04, 0.58385E-02,
     A-0.12370E-04, 0.11900E+05, 0.11910E+05,
     A 0.34946E-02, 0.17472E+00, 0.90274E-03, 0.95690E-05, 0.75517E-03,
     A 0.76716E-06, 0.11910E+05, 0.11920E+05,
     A 0.10712E-01, 0.34337E+00, 0.57845E-02, 0.32730E-05, 0.51567E-02,
     A-0.15291E-04, 0.11920E+05, 0.11930E+05,
     A 0.18599E-01, 0.48317E+00, 0.10589E-01,-0.34336E-04, 0.73964E-02,
     A-0.36504E-04, 0.11930E+05, 0.11940E+05/
       DATA ((ACR(K,J),K=1,8),J=177,184) /
     A 0.11137E-01, 0.31418E+00, 0.88066E-02,-0.19115E-04, 0.66643E-02,
     A-0.25755E-04, 0.11940E+05, 0.11950E+05,
     A 0.14277E-01, 0.15769E+00, 0.10665E-01,-0.42217E-04, 0.66305E-02,
     A-0.32258E-04, 0.11950E+05, 0.11960E+05,
     A 0.27875E-01, 0.26865E+00, 0.10692E-01,-0.48825E-04, 0.77380E-02,
     A-0.43664E-04, 0.11960E+05, 0.11970E+05,
     A 0.12682E-01, 0.20777E+00, 0.10603E-01,-0.48734E-04, 0.81358E-02,
     A-0.41884E-04, 0.11970E+05, 0.11980E+05,
     A 0.36127E-01, 0.20496E+00, 0.77739E-02,-0.40475E-04, 0.55098E-02,
     A-0.32025E-04, 0.11980E+05, 0.11990E+05,
     A 0.26197E-01, 0.26047E+00, 0.93353E-02,-0.47349E-04, 0.69758E-02,
     A-0.42653E-04, 0.11990E+05, 0.12000E+05,
     A 0.31642E-01, 0.28308E+00, 0.72441E-02,-0.33775E-04, 0.41744E-02,
     A-0.27701E-04, 0.12000E+05, 0.12010E+05,
     A 0.13538E+00, 0.16300E+00, 0.42895E-02,-0.29341E-04, 0.14430E-02,
     A-0.23228E-04, 0.12010E+05, 0.12020E+05/
       DATA ((ACR(K,J),K=1,8),J=185,192) /
     A 0.46160E-01, 0.26257E+00, 0.59122E-02,-0.34545E-04, 0.33253E-02,
     A-0.29590E-04, 0.12020E+05, 0.12030E+05,
     A 0.98778E-01, 0.16239E+00, 0.19096E-02,-0.19470E-04, 0.19375E-03,
     A-0.16507E-04, 0.12030E+05, 0.12040E+05,
     A 0.42180E-01, 0.15687E+00, 0.11607E-02,-0.15189E-04, 0.32600E-03,
     A-0.10808E-04, 0.12040E+05, 0.12050E+05,
     A 0.81749E-01, 0.14470E+00, 0.19087E-02,-0.18894E-04, 0.46347E-04,
     A-0.15861E-04, 0.12050E+05, 0.12060E+05,
     A 0.14244E+00, 0.15544E+00,-0.48204E-03,-0.10055E-04,-0.30791E-02,
     A-0.45136E-05, 0.12060E+05, 0.12070E+05,
     A 0.15967E+00, 0.14014E+00,-0.15241E-02,-0.61008E-05,-0.38422E-02,
     A-0.12202E-05, 0.12070E+05, 0.12080E+05,
     A 0.14263E+00, 0.16924E+00,-0.25815E-02,-0.13799E-05,-0.46065E-02,
     A 0.27252E-05, 0.12080E+05, 0.12090E+05,
     A 0.28755E-01, 0.92970E-01,-0.34559E-02, 0.36475E-05,-0.38455E-02,
     A 0.86258E-05, 0.12090E+05, 0.12100E+05/
       DATA ((ACR(K,J),K=1,8),J=193,200) /
     A 0.13867E+00, 0.13244E+00,-0.35649E-02, 0.52300E-05,-0.53551E-02,
     A 0.86133E-05, 0.12100E+05, 0.12110E+05,
     A 0.22667E-01, 0.83805E-01,-0.17200E-02,-0.34708E-05,-0.30806E-02,
     A 0.30367E-05, 0.12110E+05, 0.12120E+05,
     A 0.92398E-01, 0.11619E+00,-0.42643E-02, 0.12112E-04,-0.33307E-02,
     A 0.11625E-04, 0.12120E+05, 0.12130E+05,
     A 0.36116E-01, 0.27790E+00, 0.29762E-02, 0.13854E-05, 0.42021E-02,
     A-0.12139E-04, 0.12130E+05, 0.12140E+05,
     A 0.44373E+00, 0.46666E+00, 0.31523E-03,-0.30509E-05,-0.20293E-03,
     A-0.75095E-05, 0.12140E+05, 0.12150E+05,
     A 0.27187E+00, 0.27772E+00,-0.11411E-02, 0.14254E-05,-0.16810E-02,
     A-0.81908E-06, 0.12150E+05, 0.12160E+05,
     A 0.51449E-01, 0.10126E+00,-0.37317E-02, 0.65728E-05,-0.32342E-02,
     A 0.12751E-04, 0.12160E+05, 0.12170E+05,
     A 0.38984E-01, 0.17694E+00,-0.39312E-02, 0.13072E-04,-0.33739E-02,
     A 0.14010E-04, 0.12170E+05, 0.12180E+05/
       DATA ((ACR(K,J),K=1,8),J=201,208) /
     A 0.44227E-02, 0.11724E+00, 0.62039E-02,-0.32339E-04, 0.22912E-02,
     A-0.20596E-04, 0.12180E+05, 0.12190E+05,
     A 0.18992E+00, 0.14819E+00,-0.50473E-02, 0.88110E-05,-0.68829E-02,
     A 0.12852E-04, 0.12190E+05, 0.12200E+05,
     A 0.25583E+00, 0.13027E+00,-0.44286E-02, 0.57917E-05,-0.63447E-02,
     A 0.94140E-05, 0.12200E+05, 0.12210E+05,
     A 0.13625E+00, 0.18565E+00,-0.34046E-02, 0.22857E-05,-0.50965E-02,
     A 0.64148E-05, 0.12210E+05, 0.12220E+05,
     A 0.29053E+00, 0.22511E+00,-0.27471E-02,-0.88244E-06,-0.45852E-02,
     A 0.23044E-05, 0.12220E+05, 0.12230E+05,
     A 0.19038E+00, 0.14946E+00,-0.68588E-03,-0.93784E-05,-0.27488E-02,
     A-0.50351E-05, 0.12230E+05, 0.12240E+05,
     A 0.33873E+00, 0.28292E+00,-0.10104E-03,-0.10239E-04,-0.13958E-02,
     A-0.90346E-05, 0.12240E+05, 0.12250E+05,
     A 0.13250E+00, 0.17121E+00, 0.24653E-02,-0.19723E-04, 0.18597E-03,
     A-0.14634E-04, 0.12250E+05, 0.12260E+05/
       DATA ((ACR(K,J),K=1,8),J=209,216) /
     A 0.12157E+00, 0.37106E+00, 0.37908E-02,-0.22351E-04, 0.10325E-02,
     A-0.16657E-04, 0.12260E+05, 0.12270E+05,
     A 0.76510E-01, 0.16258E+00, 0.34104E-02,-0.23774E-04, 0.18529E-02,
     A-0.21863E-04, 0.12270E+05, 0.12280E+05,
     A 0.75290E-01, 0.33562E+00, 0.76059E-02,-0.34182E-04, 0.52641E-02,
     A-0.30402E-04, 0.12280E+05, 0.12290E+05,
     A 0.60409E-01, 0.25407E+00, 0.68386E-02,-0.29386E-04, 0.61709E-02,
     A-0.28132E-04, 0.12290E+05, 0.12300E+05,
     A 0.27161E-01, 0.42647E+00, 0.97512E-02,-0.33363E-04, 0.63871E-02,
     A-0.31407E-04, 0.12300E+05, 0.12310E+05,
     A 0.91110E-02, 0.28999E+00, 0.10916E-01,-0.35531E-04, 0.85325E-02,
     A-0.36715E-04, 0.12310E+05, 0.12320E+05,
     A 0.19913E-01, 0.33483E+00, 0.88198E-02,-0.11414E-04, 0.72926E-02,
     A-0.28077E-04, 0.12320E+05, 0.12330E+05,
     A 0.81899E-02, 0.31312E+00, 0.14481E-01,-0.52817E-04, 0.10281E-01,
     A-0.44189E-04, 0.12330E+05, 0.12340E+05/
       DATA ((ACR(K,J),K=1,8),J=217,224) /
     A 0.47198E-02, 0.32687E+00, 0.79614E-02, 0.62153E-05, 0.72159E-02,
     A-0.19264E-04, 0.12340E+05, 0.12350E+05,
     A 0.11347E-01, 0.34063E+00, 0.23820E-02, 0.28934E-04, 0.25122E-02,
     A 0.26528E-05, 0.12350E+05, 0.12360E+05,
     A 0.35162E-02, 0.24740E+00, 0.64215E-02,-0.45220E-05, 0.68198E-02,
     A-0.22326E-04, 0.12360E+05, 0.12370E+05,
     A 0.45582E-02, 0.33334E+00, 0.40843E-02,-0.68827E-05, 0.26935E-02,
     A-0.16936E-04, 0.12370E+05, 0.12380E+05,
     A 0.25789E-02, 0.33203E+00, 0.49470E-02,-0.16065E-04, 0.34380E-02,
     A-0.22968E-04, 0.12380E+05, 0.12390E+05,
     A 0.45336E-02, 0.20430E+00, 0.47629E-02,-0.27839E-04, 0.25633E-02,
     A-0.24703E-04, 0.12390E+05, 0.12400E+05,
     A 0.30244E-02, 0.20516E+00, 0.81732E-02,-0.41804E-04, 0.46359E-02,
     A-0.29989E-04, 0.12400E+05, 0.12410E+05,
     A 0.41242E-02, 0.23106E+00, 0.57501E-02,-0.31437E-04, 0.34257E-02,
     A-0.28835E-04, 0.12410E+05, 0.12420E+05/
       DATA ((ACR(K,J),K=1,8),J=225,232) /
     A 0.10287E-01, 0.33673E+00, 0.41222E-02,-0.25740E-04, 0.14121E-02,
     A-0.20905E-04, 0.12420E+05, 0.12430E+05,
     A 0.52103E-02, 0.19644E+00, 0.37193E-02,-0.26341E-04, 0.93940E-03,
     A-0.20581E-04, 0.12430E+05, 0.12440E+05,
     A 0.22877E-03, 0.12174E+00, 0.92724E-02,-0.45126E-04, 0.56853E-02,
     A-0.37747E-04, 0.12440E+05, 0.12450E+05,
     A 0.15209E-01, 0.45993E+00, 0.11296E-02,-0.14042E-04,-0.11241E-02,
     A-0.11493E-04, 0.12450E+05, 0.12460E+05,
     A 0.55450E-02, 0.19110E+00, 0.15443E-02,-0.13043E-04,-0.32861E-03,
     A-0.11764E-04, 0.12460E+05, 0.12470E+05,
     A 0.11275E-01, 0.19220E+00, 0.75470E-04,-0.10276E-04,-0.20095E-02,
     A-0.76051E-05, 0.12470E+05, 0.12480E+05,
     A 0.14331E-01, 0.19322E+00,-0.10929E-02,-0.71557E-05,-0.30976E-02,
     A-0.45871E-05, 0.12480E+05, 0.12490E+05,
     A 0.13106E-01, 0.20676E+00,-0.21472E-02,-0.16890E-05,-0.33300E-02,
     A-0.47675E-06, 0.12490E+05, 0.12500E+05/
       DATA ((ACR(K,J),K=1,8),J=233,240) /
     A 0.31859E-02, 0.26518E+00, 0.18883E-02,-0.37481E-05, 0.45064E-04,
     A-0.11501E-04, 0.12500E+05, 0.12510E+05,
     A 0.66833E-02, 0.21228E+00,-0.21409E-02, 0.48505E-05,-0.28895E-02,
     A 0.40738E-05, 0.12510E+05, 0.12520E+05,
     A 0.11966E-01, 0.28263E+00,-0.13922E-02, 0.63802E-05,-0.73809E-03,
     A-0.11743E-05, 0.12520E+05, 0.12530E+05,
     A 0.40664E-02, 0.24183E+00, 0.35636E-02,-0.28875E-05, 0.22372E-02,
     A-0.16411E-04, 0.12530E+05, 0.12540E+05,
     A 0.14346E-01, 0.38510E+00, 0.20035E-03, 0.37739E-05,-0.61012E-04,
     A-0.79880E-05, 0.12540E+05, 0.12550E+05,
     A 0.31841E-01, 0.37389E+00,-0.14467E-02,-0.25515E-05,-0.36219E-02,
     A-0.94560E-06, 0.12550E+05, 0.12560E+05,
     A 0.14117E-01, 0.15375E+00,-0.27582E-02, 0.15847E-05,-0.42341E-02,
     A 0.52506E-05, 0.12560E+05, 0.12570E+05,
     A 0.69458E-02, 0.17261E+00,-0.18858E-02,-0.13771E-05,-0.38705E-02,
     A 0.18317E-05, 0.12570E+05, 0.12580E+05/
       DATA ((ACR(K,J),K=1,8),J=241,248) /
     A 0.34163E-02, 0.16476E+00,-0.38874E-02, 0.89594E-05,-0.47510E-02,
     A 0.65193E-05, 0.12580E+05, 0.12590E+05,
     A 0.10085E-02, 0.13402E+00, 0.89094E-03,-0.60180E-05,-0.64581E-05,
     A-0.94409E-05, 0.12590E+05, 0.12600E+05,
     A 0.17942E-01, 0.20327E+00,-0.39862E-02, 0.75053E-05,-0.52785E-02,
     A 0.73576E-05, 0.12600E+05, 0.12610E+05,
     A 0.80749E-02, 0.61138E-01,-0.49341E-02, 0.75781E-05,-0.72374E-02,
     A 0.11499E-04, 0.12610E+05, 0.12620E+05,
     A 0.22511E-01, 0.21226E+00,-0.34799E-02, 0.31960E-05,-0.50773E-02,
     A 0.62716E-05, 0.12620E+05, 0.12630E+05,
     A 0.91364E-02, 0.16111E+00,-0.29375E-02, 0.26306E-06,-0.49473E-02,
     A 0.43965E-05, 0.12630E+05, 0.12640E+05,
     A 0.14688E-01, 0.15530E+00,-0.20029E-02,-0.23192E-05,-0.29945E-02,
     A-0.21575E-05, 0.12640E+05, 0.12650E+05,
     A 0.16309E-01, 0.20204E+00, 0.16988E-05,-0.11090E-04,-0.14702E-02,
     A-0.99629E-05, 0.12650E+05, 0.12660E+05/
       DATA ((ACR(K,J),K=1,8),J=249,256) /
     A 0.28046E-01, 0.24162E+00, 0.21643E-03,-0.11209E-04,-0.17491E-02,
     A-0.89040E-05, 0.12660E+05, 0.12670E+05,
     A 0.11289E-01, 0.29319E+00, 0.34128E-02,-0.23021E-04, 0.10846E-02,
     A-0.18419E-04, 0.12670E+05, 0.12680E+05,
     A 0.49531E-02, 0.14498E+00, 0.53073E-02,-0.28791E-04, 0.32927E-02,
     A-0.25157E-04, 0.12680E+05, 0.12690E+05,
     A 0.72485E-02, 0.17855E+00, 0.56992E-02,-0.32465E-04, 0.41153E-02,
     A-0.32129E-04, 0.12690E+05, 0.12700E+05,
     A 0.61604E-02, 0.24780E+00, 0.73217E-02,-0.31129E-04, 0.58029E-02,
     A-0.32007E-04, 0.12700E+05, 0.12710E+05,
     A 0.13393E-02, 0.12405E+00, 0.12672E-01,-0.48102E-04, 0.88276E-02,
     A-0.39342E-04, 0.12710E+05, 0.12720E+05,
     A 0.10615E-02, 0.14687E+00, 0.12203E-01,-0.50558E-04, 0.10580E-01,
     A-0.54423E-04, 0.12720E+05, 0.12730E+05,
     A 0.47236E-03, 0.80989E-01, 0.36212E-02, 0.34855E-04, 0.23529E-02,
     A 0.79526E-05, 0.12730E+05, 0.12740E+05/
C
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end

