      SUBROUTINE    WAVA5(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
C
C     WATER VAPOR (12740 - 15280 CM-1)
C
       DATA ((ACR(K,J),K=1,8),J=  1,  8) /
     A 0.46416E-03, 0.46530E-01, 0.11484E-01,-0.50228E-04, 0.57564E-02,
     A-0.28823E-04, 0.12740E+05, 0.12750E+05,
     A 0.26026E-04, 0.69686E-01, 0.50381E-02,-0.30969E-04, 0.23565E-02,
     A-0.26498E-04, 0.12750E+05, 0.12760E+05,
     A 0.21016E-03, 0.78469E-01,-0.24738E-02,-0.20423E-05,-0.56905E-02,
     A 0.49529E-05, 0.12760E+05, 0.12770E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12770E+05, 0.12780E+05,
     A 0.60427E-04, 0.37767E-01, 0.54219E-03,-0.14563E-04,-0.22150E-02,
     A-0.90107E-05, 0.12780E+05, 0.12790E+05,
     A 0.24960E-04, 0.41123E-01,-0.26523E-02,-0.17845E-05,-0.54095E-02,
     A 0.37673E-05, 0.12790E+05, 0.12800E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12800E+05, 0.12810E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12810E+05, 0.12820E+05/
       DATA ((ACR(K,J),K=1,8),J=  9, 16) /
     A 0.63228E-04, 0.37767E-01,-0.67259E-03,-0.97034E-05,-0.34298E-02,
     A-0.41516E-05, 0.12820E+05, 0.12830E+05,
     A 0.70635E-04, 0.34814E-01, 0.17376E-02,-0.19344E-04,-0.10196E-02,
     A-0.13792E-04, 0.12830E+05, 0.12840E+05,
     A 0.35776E-04, 0.68419E-01, 0.46121E-02,-0.27372E-04, 0.15491E-02,
     A-0.22291E-04, 0.12840E+05, 0.12850E+05,
     A 0.82613E-04, 0.72444E-01, 0.29409E-02,-0.22687E-04, 0.12304E-03,
     A-0.17626E-04, 0.12850E+05, 0.12860E+05,
     A 0.13149E-04, 0.34814E-01, 0.17682E-02,-0.19467E-04,-0.98895E-03,
     A-0.13915E-04, 0.12860E+05, 0.12870E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12870E+05, 0.12880E+05,
     A 0.10952E-04, 0.34814E-01, 0.39164E-02,-0.28059E-04, 0.11592E-02,
     A-0.22508E-04, 0.12880E+05, 0.12890E+05,
     A 0.11287E-04, 0.37767E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
     A-0.19276E-04, 0.12890E+05, 0.12900E+05/
       DATA ((ACR(K,J),K=1,8),J= 17, 24) /
     A 0.12534E-04, 0.34814E-01, 0.61370E-02,-0.36942E-04, 0.33798E-02,
     A-0.31390E-04, 0.12900E+05, 0.12910E+05,
     A 0.19577E-04, 0.31771E-01, 0.46608E-02,-0.31037E-04, 0.19036E-02,
     A-0.25485E-04, 0.12910E+05, 0.12920E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12920E+05, 0.12930E+05,
     A 0.91530E-05, 0.28818E-01, 0.79937E-02,-0.44369E-04, 0.52366E-02,
     A-0.38817E-04, 0.12930E+05, 0.12940E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12940E+05, 0.12950E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12950E+05, 0.12960E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12960E+05, 0.12970E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12970E+05, 0.12980E+05/
       DATA ((ACR(K,J),K=1,8),J= 25, 32) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12980E+05, 0.12990E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.12990E+05, 0.13000E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13000E+05, 0.13010E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13010E+05, 0.13020E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13020E+05, 0.13030E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13030E+05, 0.13040E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13040E+05, 0.13050E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13050E+05, 0.13060E+05/
       DATA ((ACR(K,J),K=1,8),J= 33, 40) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13060E+05, 0.13070E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13070E+05, 0.13080E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13080E+05, 0.13090E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13090E+05, 0.13100E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13100E+05, 0.13110E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13110E+05, 0.13120E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13120E+05, 0.13130E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13130E+05, 0.13140E+05/
       DATA ((ACR(K,J),K=1,8),J= 41, 48) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13140E+05, 0.13150E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13150E+05, 0.13160E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13160E+05, 0.13170E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13170E+05, 0.13180E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13180E+05, 0.13190E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13190E+05, 0.13200E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13200E+05, 0.13210E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13210E+05, 0.13220E+05/
       DATA ((ACR(K,J),K=1,8),J= 49, 56) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13220E+05, 0.13230E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13230E+05, 0.13240E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13240E+05, 0.13250E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13250E+05, 0.13260E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13260E+05, 0.13270E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13270E+05, 0.13280E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13280E+05, 0.13290E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13290E+05, 0.13300E+05/
       DATA ((ACR(K,J),K=1,8),J= 57, 64) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13300E+05, 0.13310E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13310E+05, 0.13320E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13320E+05, 0.13330E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13330E+05, 0.13340E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.13340E+05, 0.13350E+05,
     A 0.34847E-04, 0.48820E-01, 0.25041E-01,-0.11142E-03, 0.22291E-01,
     A-0.10647E-03, 0.13350E+05, 0.13360E+05,
     A 0.64041E-04, 0.10448E+00, 0.14540E-01,-0.47733E-04, 0.13707E-01,
     A-0.60524E-04, 0.13360E+05, 0.13370E+05,
     A 0.48972E-04, 0.61588E-01, 0.15816E-01,-0.31234E-04, 0.12279E-01,
     A-0.44662E-04, 0.13370E+05, 0.13380E+05/
       DATA ((ACR(K,J),K=1,8),J= 65, 72) /
     A 0.34101E-03, 0.20633E+00, 0.80284E-02,-0.96908E-05, 0.76822E-02,
     A-0.28886E-04, 0.13380E+05, 0.13390E+05,
     A 0.16731E-04, 0.34680E-01, 0.29361E-01,-0.12984E-03, 0.26604E-01,
     A-0.12428E-03, 0.13390E+05, 0.13400E+05,
     A 0.39582E-03, 0.10507E+00, 0.18729E-01,-0.61046E-04, 0.15312E-01,
     A-0.60499E-04, 0.13400E+05, 0.13410E+05,
     A 0.57395E-03, 0.20422E+00, 0.12292E-01,-0.30378E-04, 0.10954E-01,
     A-0.44352E-04, 0.13410E+05, 0.13420E+05,
     A 0.16304E-03, 0.75327E-01, 0.24345E-01,-0.10453E-03, 0.22312E-01,
     A-0.10356E-03, 0.13420E+05, 0.13430E+05,
     A 0.14276E-02, 0.27047E+00, 0.17891E-01,-0.73505E-04, 0.16458E-01,
     A-0.71692E-04, 0.13430E+05, 0.13440E+05,
     A 0.32739E-03, 0.19765E+00, 0.21521E-01,-0.52027E-04, 0.20205E-01,
     A-0.68454E-04, 0.13440E+05, 0.13450E+05,
     A 0.84176E-03, 0.22651E+00, 0.14704E-01,-0.57138E-04, 0.12449E-01,
     A-0.55586E-04, 0.13450E+05, 0.13460E+05/
       DATA ((ACR(K,J),K=1,8),J= 73, 80) /
     A 0.33210E-02, 0.26989E+00, 0.14889E-01,-0.61022E-04, 0.14319E-01,
     A-0.64594E-04, 0.13460E+05, 0.13470E+05,
     A 0.20184E-02, 0.15068E+00, 0.14242E-01,-0.50382E-04, 0.14352E-01,
     A-0.52958E-04, 0.13470E+05, 0.13480E+05,
     A 0.34847E-02, 0.23656E+00, 0.12960E-01,-0.54713E-04, 0.11654E-01,
     A-0.53532E-04, 0.13480E+05, 0.13490E+05,
     A 0.51848E-02, 0.22152E+00, 0.10050E-01,-0.42140E-04, 0.10802E-01,
     A-0.49706E-04, 0.13490E+05, 0.13500E+05,
     A 0.22460E-02, 0.20257E+00, 0.11509E-01,-0.11450E-05, 0.12567E-01,
     A-0.29901E-04, 0.13500E+05, 0.13510E+05,
     A 0.12070E-01, 0.22916E+00, 0.70442E-02,-0.31499E-04, 0.63368E-02,
     A-0.33814E-04, 0.13510E+05, 0.13520E+05,
     A 0.11903E-01, 0.21411E+00, 0.63830E-02,-0.22698E-04, 0.62241E-02,
     A-0.26759E-04, 0.13520E+05, 0.13530E+05,
     A 0.95480E-02, 0.21575E+00, 0.44827E-02,-0.11921E-04, 0.55699E-02,
     A-0.25927E-04, 0.13530E+05, 0.13540E+05/
       DATA ((ACR(K,J),K=1,8),J= 81, 88) /
     A 0.11523E-01, 0.40682E+00, 0.91253E-02,-0.19397E-04, 0.79449E-02,
     A-0.32998E-04, 0.13540E+05, 0.13550E+05,
     A 0.84497E-02, 0.29293E+00, 0.47841E-02,-0.11629E-04, 0.57988E-02,
     A-0.25164E-04, 0.13550E+05, 0.13560E+05,
     A 0.26919E-01, 0.27673E+00, 0.19766E-02,-0.37751E-05, 0.16743E-02,
     A-0.86380E-05, 0.13560E+05, 0.13570E+05,
     A 0.21945E-01, 0.33870E+00, 0.51140E-02, 0.37089E-05, 0.63004E-02,
     A-0.23091E-04, 0.13570E+05, 0.13580E+05,
     A 0.21982E-01, 0.18246E+00, 0.36494E-03, 0.11207E-05,-0.37751E-03,
     A-0.14267E-05, 0.13580E+05, 0.13590E+05,
     A 0.10404E-01, 0.21217E+00, 0.39463E-02, 0.55125E-05, 0.30886E-02,
     A-0.12313E-04, 0.13590E+05, 0.13600E+05,
     A 0.22785E-01, 0.35675E+00, 0.80322E-02,-0.48280E-05, 0.57084E-02,
     A-0.19313E-04, 0.13600E+05, 0.13610E+05,
     A 0.21944E-01, 0.17661E+00, 0.28308E-02, 0.82581E-05, 0.14574E-02,
     A-0.49721E-05, 0.13610E+05, 0.13620E+05/
       DATA ((ACR(K,J),K=1,8),J= 89, 96) /
     A 0.15009E-01, 0.16917E+00, 0.11060E-02, 0.14866E-04, 0.10360E-02,
     A-0.35775E-05, 0.13620E+05, 0.13630E+05,
     A 0.28056E-01, 0.27826E+00, 0.10985E-01,-0.52840E-04, 0.83121E-02,
     A-0.45055E-04, 0.13630E+05, 0.13640E+05,
     A 0.17905E-01, 0.21652E+00, 0.91202E-02,-0.43033E-04, 0.64523E-02,
     A-0.36725E-04, 0.13640E+05, 0.13650E+05,
     A 0.40842E-01, 0.16141E+00, 0.24590E-02,-0.43246E-05, 0.24001E-03,
     A-0.18088E-05, 0.13650E+05, 0.13660E+05,
     A 0.64344E-01, 0.36355E+00, 0.26240E-02,-0.50938E-05, 0.84629E-03,
     A-0.72912E-05, 0.13660E+05, 0.13670E+05,
     A 0.98009E-01, 0.46873E+00, 0.37360E-02,-0.22472E-04, 0.12376E-02,
     A-0.18409E-04, 0.13670E+05, 0.13680E+05,
     A 0.10223E+00, 0.26441E+00, 0.43146E-02,-0.26517E-04, 0.30820E-02,
     A-0.21843E-04, 0.13680E+05, 0.13690E+05,
     A 0.51383E-01, 0.36953E+00, 0.29461E-02,-0.41201E-05, 0.16090E-02,
     A-0.10556E-04, 0.13690E+05, 0.13700E+05/
       DATA ((ACR(K,J),K=1,8),J= 97,104) /
     A 0.79035E-01, 0.41629E+00, 0.39863E-02,-0.10096E-04, 0.20593E-02,
     A-0.15846E-04, 0.13700E+05, 0.13710E+05,
     A 0.17862E+00, 0.23727E+00, 0.70664E-03,-0.13429E-04,-0.24735E-02,
     A-0.63300E-05, 0.13710E+05, 0.13720E+05,
     A 0.23457E-01, 0.12905E+00,-0.22038E-02,-0.12856E-05,-0.36094E-02,
     A 0.10306E-05, 0.13720E+05, 0.13730E+05,
     A 0.14980E+00, 0.27847E+00,-0.70337E-03,-0.88658E-05,-0.37774E-02,
     A-0.25192E-05, 0.13730E+05, 0.13740E+05,
     A 0.15951E+00, 0.19705E+00,-0.12269E-02,-0.57441E-05,-0.26138E-02,
     A-0.39795E-05, 0.13740E+05, 0.13750E+05,
     A 0.30444E-01, 0.25080E+00, 0.13390E-02,-0.36670E-05, 0.13056E-02,
     A-0.79865E-05, 0.13750E+05, 0.13760E+05,
     A 0.91463E-01, 0.42355E+00, 0.15252E-02,-0.50820E-05, 0.10296E-03,
     A-0.10731E-04, 0.13760E+05, 0.13770E+05,
     A 0.55724E-01, 0.23315E+00, 0.50264E-03,-0.51006E-06,-0.18097E-02,
     A-0.38866E-05, 0.13770E+05, 0.13780E+05/
       DATA ((ACR(K,J),K=1,8),J=105,112) /
     A 0.20577E+00, 0.30719E+00,-0.13969E-02, 0.19333E-05,-0.29895E-02,
     A-0.51114E-06, 0.13780E+05, 0.13790E+05,
     A 0.76501E-01, 0.36547E+00, 0.34715E-02,-0.24093E-04, 0.10916E-02,
     A-0.19569E-04, 0.13790E+05, 0.13800E+05,
     A 0.26798E+00, 0.22416E+00,-0.16316E-02,-0.19581E-05,-0.41508E-02,
     A 0.11385E-05, 0.13800E+05, 0.13810E+05,
     A 0.20338E+00, 0.16881E+00,-0.22177E-02,-0.11382E-05,-0.32452E-02,
     A-0.15814E-06, 0.13810E+05, 0.13820E+05,
     A 0.12951E+00, 0.12548E+00,-0.38707E-02, 0.63370E-05,-0.45229E-02,
     A 0.61639E-05, 0.13820E+05, 0.13830E+05,
     A 0.88731E-01, 0.17991E+00,-0.38169E-02, 0.73459E-05,-0.42642E-02,
     A 0.66757E-05, 0.13830E+05, 0.13840E+05,
     A 0.67788E-02, 0.12625E+00, 0.98132E-02,-0.48875E-04, 0.77230E-02,
     A-0.47347E-04, 0.13840E+05, 0.13850E+05,
     A 0.10502E-01, 0.21694E+00, 0.86711E-03, 0.46135E-05, 0.11488E-02,
     A-0.89674E-05, 0.13850E+05, 0.13860E+05/
       DATA ((ACR(K,J),K=1,8),J=113,120) /
     A 0.49060E-01, 0.16058E+00,-0.30216E-02, 0.10044E-04,-0.24328E-02,
     A 0.67471E-05, 0.13860E+05, 0.13870E+05,
     A 0.24278E+00, 0.15261E+00,-0.51224E-02, 0.89719E-05,-0.65887E-02,
     A 0.12603E-04, 0.13870E+05, 0.13880E+05,
     A 0.27304E+00, 0.29617E+00,-0.35410E-02, 0.34588E-05,-0.50128E-02,
     A 0.80990E-05, 0.13880E+05, 0.13890E+05,
     A 0.13252E+00, 0.25864E+00,-0.15695E-02,-0.28980E-05,-0.29590E-02,
     A-0.32727E-05, 0.13890E+05, 0.13900E+05,
     A 0.27275E+00, 0.14969E+00,-0.15578E-02,-0.43912E-05,-0.23477E-02,
     A-0.27675E-05, 0.13900E+05, 0.13910E+05,
     A 0.28731E+00, 0.24848E+00,-0.26722E-03,-0.90595E-05,-0.20970E-02,
     A-0.66308E-05, 0.13910E+05, 0.13920E+05,
     A 0.20952E+00, 0.31628E+00, 0.28828E-02,-0.21023E-04, 0.93184E-03,
     A-0.17842E-04, 0.13920E+05, 0.13930E+05,
     A 0.12621E+00, 0.34509E+00, 0.47187E-02,-0.26132E-04, 0.21269E-02,
     A-0.22662E-04, 0.13930E+05, 0.13940E+05/
       DATA ((ACR(K,J),K=1,8),J=121,128) /
     A 0.82581E-01, 0.35712E+00, 0.65235E-02,-0.29651E-04, 0.46608E-02,
     A-0.29306E-04, 0.13940E+05, 0.13950E+05,
     A 0.22150E-01, 0.56251E+00, 0.11273E-01,-0.20230E-04, 0.98905E-02,
     A-0.35866E-04, 0.13950E+05, 0.13960E+05,
     A 0.13395E-01, 0.23595E+00, 0.75697E-02,-0.11677E-04, 0.47404E-02,
     A-0.13519E-04, 0.13960E+05, 0.13970E+05,
     A 0.97251E-02, 0.38900E+00, 0.45853E-02,-0.44223E-05, 0.13332E-02,
     A-0.88812E-05, 0.13970E+05, 0.13980E+05,
     A 0.14160E-01, 0.31920E+00, 0.14413E-02, 0.77474E-06, 0.10611E-02,
     A-0.66038E-05, 0.13980E+05, 0.13990E+05,
     A 0.64431E-02, 0.38168E+00, 0.21106E-02,-0.55268E-05, 0.62478E-03,
     A-0.42781E-05, 0.13990E+05, 0.14000E+05,
     A 0.74763E-02, 0.21449E+00, 0.86863E-05,-0.47583E-05,-0.24648E-02,
     A-0.31646E-05, 0.14000E+05, 0.14010E+05,
     A 0.44339E-02, 0.31044E+00, 0.62951E-02,-0.82820E-05, 0.23900E-02,
     A-0.10886E-04, 0.14010E+05, 0.14020E+05/
       DATA ((ACR(K,J),K=1,8),J=129,136) /
     A 0.63698E-02, 0.37192E+00, 0.35714E-02,-0.70127E-05, 0.22531E-02,
     A-0.13753E-04, 0.14020E+05, 0.14030E+05,
     A 0.30618E-02, 0.32199E+00, 0.67837E-02,-0.46145E-05, 0.56415E-02,
     A-0.19199E-04, 0.14030E+05, 0.14040E+05,
     A 0.45836E-02, 0.19592E+00, 0.34269E-02,-0.67013E-05, 0.15603E-02,
     A-0.20576E-05, 0.14040E+05, 0.14050E+05,
     A 0.28921E-02, 0.26752E+00, 0.54727E-02,-0.82320E-05, 0.34172E-02,
     A-0.16235E-04, 0.14050E+05, 0.14060E+05,
     A 0.83604E-02, 0.49100E+00, 0.36871E-02,-0.26932E-05, 0.22258E-02,
     A-0.12432E-04, 0.14060E+05, 0.14070E+05,
     A 0.48958E-02, 0.40049E+00, 0.28518E-02,-0.89707E-05, 0.73805E-03,
     A-0.10552E-04, 0.14070E+05, 0.14080E+05,
     A 0.60175E-02, 0.66182E+00, 0.36922E-02,-0.12082E-04, 0.21310E-02,
     A-0.17251E-04, 0.14080E+05, 0.14090E+05,
     A 0.51267E-02, 0.30376E+00, 0.12373E-01,-0.52388E-04, 0.92416E-02,
     A-0.49701E-04, 0.14090E+05, 0.14100E+05/
       DATA ((ACR(K,J),K=1,8),J=137,144) /
     A 0.51874E-02, 0.37923E+00, 0.85604E-02,-0.32476E-04, 0.48279E-02,
     A-0.28310E-04, 0.14100E+05, 0.14110E+05,
     A 0.37549E-02, 0.24752E+00, 0.26234E-02, 0.13530E-05, 0.17089E-03,
     A-0.59579E-05, 0.14110E+05, 0.14120E+05,
     A 0.85470E-02, 0.48393E+00, 0.55118E-02,-0.12616E-04, 0.21682E-02,
     A-0.15595E-04, 0.14120E+05, 0.14130E+05,
     A 0.71670E-02, 0.42356E+00, 0.73835E-02,-0.38638E-04, 0.43338E-02,
     A-0.32395E-04, 0.14130E+05, 0.14140E+05,
     A 0.84611E-02, 0.31558E+00, 0.47305E-02,-0.17484E-04, 0.13223E-02,
     A-0.11411E-04, 0.14140E+05, 0.14150E+05,
     A 0.86532E-02, 0.27748E+00, 0.58940E-02,-0.31330E-04, 0.32608E-02,
     A-0.26952E-04, 0.14150E+05, 0.14160E+05,
     A 0.12236E-01, 0.32519E+00, 0.20656E-02,-0.11881E-04,-0.45247E-03,
     A-0.11093E-04, 0.14160E+05, 0.14170E+05,
     A 0.19531E-01, 0.25874E+00, 0.39764E-02,-0.26715E-04, 0.12538E-02,
     A-0.19528E-04, 0.14170E+05, 0.14180E+05/
       DATA ((ACR(K,J),K=1,8),J=145,152) /
     A 0.57931E-02, 0.18836E+00, 0.39509E-02,-0.20877E-04, 0.18960E-02,
     A-0.18677E-04, 0.14180E+05, 0.14190E+05,
     A 0.65709E-02, 0.31403E+00, 0.30661E-02,-0.63795E-05, 0.13225E-02,
     A-0.11966E-04, 0.14190E+05, 0.14200E+05,
     A 0.26818E-01, 0.21236E+00, 0.16226E-02,-0.16759E-04,-0.43884E-03,
     A-0.11258E-04, 0.14200E+05, 0.14210E+05,
     A 0.15917E-02, 0.17083E+00, 0.98825E-02,-0.29767E-04, 0.59285E-02,
     A-0.28608E-04, 0.14210E+05, 0.14220E+05,
     A 0.36373E-01, 0.30478E+00, 0.97187E-03,-0.81756E-05, 0.81092E-04,
     A-0.10434E-04, 0.14220E+05, 0.14230E+05,
     A 0.18351E-01, 0.85618E-01,-0.15427E-02,-0.39022E-05,-0.26215E-02,
     A 0.75823E-06, 0.14230E+05, 0.14240E+05,
     A 0.27421E-01, 0.16720E+00,-0.16048E-02, 0.10400E-05,-0.21918E-02,
     A-0.73937E-06, 0.14240E+05, 0.14250E+05,
     A 0.19137E-01, 0.34394E+00, 0.54701E-02,-0.31082E-04, 0.21305E-02,
     A-0.23894E-04, 0.14250E+05, 0.14260E+05/
       DATA ((ACR(K,J),K=1,8),J=153,160) /
     A 0.11742E-01, 0.24754E+00,-0.15398E-02, 0.14005E-05,-0.32941E-02,
     A 0.17021E-06, 0.14260E+05, 0.14270E+05,
     A 0.30406E-01, 0.25107E+00,-0.21777E-02, 0.11738E-05,-0.42308E-02,
     A 0.19830E-05, 0.14270E+05, 0.14280E+05,
     A 0.25720E-01, 0.17272E+00, 0.14929E-02,-0.17124E-04,-0.20245E-03,
     A-0.15475E-04, 0.14280E+05, 0.14290E+05,
     A 0.23411E-01, 0.14155E+00,-0.36159E-02, 0.54534E-05,-0.56547E-02,
     A 0.83323E-05, 0.14290E+05, 0.14300E+05,
     A 0.50436E-01, 0.17597E+00,-0.35358E-02, 0.27001E-05,-0.59980E-02,
     A 0.79894E-05, 0.14300E+05, 0.14310E+05,
     A 0.10835E-01, 0.16074E+00,-0.23328E-02, 0.36258E-05,-0.36191E-02,
     A 0.66611E-06, 0.14310E+05, 0.14320E+05,
     A 0.97229E-02, 0.13720E+00,-0.26043E-02, 0.33682E-05,-0.39301E-02,
     A 0.23934E-05, 0.14320E+05, 0.14330E+05,
     A 0.41727E-02, 0.26898E+00, 0.89506E-03,-0.33799E-05,-0.80987E-03,
     A-0.74366E-05, 0.14330E+05, 0.14340E+05/
       DATA ((ACR(K,J),K=1,8),J=161,168) /
     A 0.28313E-02, 0.11399E+00,-0.23514E-02, 0.19057E-07,-0.43191E-02,
     A 0.32086E-05, 0.14340E+05, 0.14350E+05,
     A 0.94087E-02, 0.13847E+00,-0.33995E-02, 0.53082E-05,-0.48841E-02,
     A 0.72565E-05, 0.14350E+05, 0.14360E+05,
     A 0.45453E-01, 0.16180E+00,-0.49821E-02, 0.95517E-05,-0.62627E-02,
     A 0.13183E-04, 0.14360E+05, 0.14370E+05,
     A 0.54780E-01, 0.24600E+00,-0.33230E-02, 0.33083E-05,-0.44595E-02,
     A 0.43249E-05, 0.14370E+05, 0.14380E+05,
     A 0.57794E-01, 0.29926E+00,-0.18524E-02,-0.26891E-05,-0.34713E-02,
     A-0.14711E-05, 0.14380E+05, 0.14390E+05,
     A 0.17789E-01, 0.40974E-01,-0.55041E-03,-0.90402E-05,-0.19035E-02,
     A-0.41538E-05, 0.14390E+05, 0.14400E+05,
     A 0.66509E-01, 0.31802E+00, 0.17874E-03,-0.10469E-04,-0.14428E-02,
     A-0.93839E-05, 0.14400E+05, 0.14410E+05,
     A 0.33243E-01, 0.21287E+00, 0.23294E-02,-0.18667E-04,-0.40745E-03,
     A-0.12383E-04, 0.14410E+05, 0.14420E+05/
       DATA ((ACR(K,J),K=1,8),J=169,176) /
     A 0.30315E-01, 0.32935E+00, 0.54590E-02,-0.31244E-04, 0.33095E-02,
     A-0.28644E-04, 0.14420E+05, 0.14430E+05,
     A 0.11921E-01, 0.16637E+00, 0.64852E-02,-0.32883E-04, 0.40894E-02,
     A-0.29820E-04, 0.14430E+05, 0.14440E+05,
     A 0.35817E-02, 0.24062E+00, 0.10713E-01,-0.22991E-04, 0.76719E-02,
     A-0.30879E-04, 0.14440E+05, 0.14450E+05,
     A 0.20434E-02, 0.95330E-01, 0.74555E-02,-0.40758E-04, 0.39520E-02,
     A-0.32281E-04, 0.14450E+05, 0.14460E+05,
     A 0.19531E-02, 0.57626E-01, 0.13393E-01,-0.65720E-04, 0.10648E-01,
     A-0.60338E-04, 0.14460E+05, 0.14470E+05,
     A 0.15972E-02, 0.63531E-01,-0.28566E-02,-0.93552E-06,-0.57668E-02,
     A 0.52381E-05, 0.14470E+05, 0.14480E+05,
     A 0.62080E-03, 0.14581E+00,-0.38143E-02, 0.35516E-05,-0.64170E-02,
     A 0.76586E-05, 0.14480E+05, 0.14490E+05,
     A 0.25730E-03, 0.34903E-01, 0.17376E-02,-0.19344E-04,-0.10196E-02,
     A-0.13792E-04, 0.14490E+05, 0.14500E+05/
       DATA ((ACR(K,J),K=1,8),J=177,184) /
     A 0.58326E-03, 0.71010E-01, 0.37987E-02,-0.27471E-04, 0.11761E-02,
     A-0.22502E-04, 0.14500E+05, 0.14510E+05,
     A 0.19810E-03, 0.37767E-01, 0.54219E-03,-0.14563E-04,-0.22150E-02,
     A-0.90107E-05, 0.14510E+05, 0.14520E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14520E+05, 0.14530E+05,
     A 0.61723E-03, 0.59960E-01, 0.29608E-02,-0.23205E-04,-0.54100E-03,
     A-0.14715E-04, 0.14530E+05, 0.14540E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14540E+05, 0.14550E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14550E+05, 0.14560E+05,
     A 0.87384E-03, 0.20577E+00, 0.14670E-02,-0.12035E-04,-0.13037E-02,
     A-0.85219E-05, 0.14560E+05, 0.14570E+05,
     A 0.36981E-03, 0.15319E+00, 0.26086E-02, 0.51176E-06,-0.94964E-03,
     A-0.41621E-05, 0.14570E+05, 0.14580E+05/
       DATA ((ACR(K,J),K=1,8),J=185,192) /
     A 0.53062E-03, 0.20390E+00,-0.92668E-03,-0.17265E-05,-0.25209E-02,
     A-0.39176E-05, 0.14580E+05, 0.14590E+05,
     A 0.23625E-03, 0.10952E+00, 0.36080E-04,-0.66963E-06,-0.29777E-02,
     A-0.55782E-06, 0.14590E+05, 0.14600E+05,
     A 0.25529E-03, 0.85175E-01, 0.86357E-02,-0.45158E-04, 0.55824E-02,
     A-0.39246E-04, 0.14600E+05, 0.14610E+05,
     A 0.35469E-03, 0.17005E+00, 0.55905E-03, 0.34517E-05,-0.12201E-02,
     A-0.20532E-05, 0.14610E+05, 0.14620E+05,
     A 0.14962E-03, 0.70668E-01, 0.36006E-03,-0.13091E-04,-0.23180E-02,
     A-0.80334E-05, 0.14620E+05, 0.14630E+05,
     A 0.16283E-03, 0.43851E-01,-0.19069E-02,-0.47662E-05,-0.47857E-02,
     A 0.10305E-05, 0.14630E+05, 0.14640E+05,
     A 0.34849E-03, 0.91227E-01, 0.19570E-03,-0.67027E-05,-0.19067E-02,
     A-0.68831E-05, 0.14640E+05, 0.14650E+05,
     A 0.24098E-03, 0.73915E-01, 0.58149E-03, 0.20170E-05,-0.21878E-02,
     A-0.69336E-06, 0.14650E+05, 0.14660E+05/
       DATA ((ACR(K,J),K=1,8),J=193,200) /
     A 0.18929E-03, 0.40095E-01,-0.97670E-03,-0.84870E-05,-0.38150E-02,
     A-0.27719E-05, 0.14660E+05, 0.14670E+05,
     A 0.28551E-03, 0.89939E-01, 0.90134E-03,-0.15963E-04,-0.17529E-02,
     A-0.10799E-04, 0.14670E+05, 0.14680E+05,
     A 0.13624E-03, 0.63104E-01, 0.51307E-02,-0.32797E-04, 0.21890E-02,
     A-0.26775E-04, 0.14680E+05, 0.14690E+05,
     A 0.91275E-04, 0.31681E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
     A-0.19276E-04, 0.14690E+05, 0.14700E+05,
     A 0.88122E-04, 0.40141E-01, 0.11384E-02,-0.16948E-04,-0.17809E-02,
     A-0.11069E-04, 0.14700E+05, 0.14710E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14710E+05, 0.14720E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14720E+05, 0.14730E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14730E+05, 0.14740E+05/
       DATA ((ACR(K,J),K=1,8),J=201,208) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14740E+05, 0.14750E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14750E+05, 0.14760E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14760E+05, 0.14770E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14770E+05, 0.14780E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14780E+05, 0.14790E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14790E+05, 0.14800E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14800E+05, 0.14810E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14810E+05, 0.14820E+05/
       DATA ((ACR(K,J),K=1,8),J=209,216) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14820E+05, 0.14830E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14830E+05, 0.14840E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14840E+05, 0.14850E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14850E+05, 0.14860E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14860E+05, 0.14870E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14870E+05, 0.14880E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14880E+05, 0.14890E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14890E+05, 0.14900E+05/
       DATA ((ACR(K,J),K=1,8),J=217,224) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14900E+05, 0.14910E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14910E+05, 0.14920E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14920E+05, 0.14930E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14930E+05, 0.14940E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14940E+05, 0.14950E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14950E+05, 0.14960E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14960E+05, 0.14970E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14970E+05, 0.14980E+05/
       DATA ((ACR(K,J),K=1,8),J=225,232) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14980E+05, 0.14990E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.14990E+05, 0.15000E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15000E+05, 0.15010E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15010E+05, 0.15020E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15020E+05, 0.15030E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15030E+05, 0.15040E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15040E+05, 0.15050E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15050E+05, 0.15060E+05/
       DATA ((ACR(K,J),K=1,8),J=233,240) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15060E+05, 0.15070E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15070E+05, 0.15080E+05,
     A 0.71934E-03, 0.12682E+00, 0.61012E-02, 0.15559E-04, 0.27848E-02,
     A-0.45145E-05, 0.15080E+05, 0.15090E+05,
     A 0.49571E-03, 0.13321E+00, 0.50157E-02, 0.17658E-04, 0.24032E-02,
     A-0.40605E-05, 0.15090E+05, 0.15100E+05,
     A 0.22621E-03, 0.12674E+00, 0.16133E-01,-0.61229E-04, 0.13281E-01,
     A-0.62746E-04, 0.15100E+05, 0.15110E+05,
     A 0.85668E-03, 0.12425E+00, 0.16195E-01,-0.76668E-04, 0.13811E-01,
     A-0.72500E-04, 0.15110E+05, 0.15120E+05,
     A 0.55721E-03, 0.11061E+00, 0.48501E-02, 0.32762E-04, 0.41846E-02,
     A 0.42515E-06, 0.15120E+05, 0.15130E+05,
     A 0.10214E-02, 0.16075E+00, 0.77437E-02,-0.97938E-05, 0.33244E-02,
     A-0.13350E-04, 0.15130E+05, 0.15140E+05/
       DATA ((ACR(K,J),K=1,8),J=241,248) /
     A 0.37351E-02, 0.23141E+00, 0.75468E-02,-0.18073E-04, 0.38208E-02,
     A-0.17101E-04, 0.15140E+05, 0.15150E+05,
     A 0.69279E-03, 0.16527E+00, 0.92564E-02,-0.24217E-04, 0.59447E-02,
     A-0.28136E-04, 0.15150E+05, 0.15160E+05,
     A 0.20924E-02, 0.19937E+00, 0.67646E-02,-0.19228E-04, 0.21429E-02,
     A-0.14011E-04, 0.15160E+05, 0.15170E+05,
     A 0.29213E-02, 0.11019E+00, 0.78105E-02,-0.40680E-04, 0.61601E-02,
     A-0.37164E-04, 0.15170E+05, 0.15180E+05,
     A 0.40031E-02, 0.28880E+00, 0.50758E-02,-0.19158E-04, 0.19869E-02,
     A-0.17280E-04, 0.15180E+05, 0.15190E+05,
     A 0.24252E-02, 0.15747E+00, 0.44234E-02,-0.20027E-04, 0.34479E-03,
     A-0.12338E-04, 0.15190E+05, 0.15200E+05,
     A 0.87795E-02, 0.14543E+00, 0.42621E-02,-0.27308E-04, 0.73031E-03,
     A-0.16810E-04, 0.15200E+05, 0.15210E+05,
     A 0.95997E-02, 0.37400E+00, 0.46013E-02,-0.28568E-04, 0.20610E-02,
     A-0.24098E-04, 0.15210E+05, 0.15220E+05/
       DATA ((ACR(K,J),K=1,8),J=249,256) /
     A 0.95938E-03, 0.22877E+00, 0.32518E-02,-0.12364E-04, 0.11800E-02,
     A-0.16396E-04, 0.15220E+05, 0.15230E+05,
     A 0.89911E-02, 0.27602E+00, 0.15486E-02,-0.17622E-04,-0.70027E-03,
     A-0.13639E-04, 0.15230E+05, 0.15240E+05,
     A 0.70384E-02, 0.19525E+00, 0.17332E-02,-0.18418E-04,-0.10753E-02,
     A-0.12514E-04, 0.15240E+05, 0.15250E+05,
     A 0.12889E-01, 0.20893E+00, 0.52643E-03,-0.85726E-05,-0.80955E-03,
     A-0.84315E-05, 0.15250E+05, 0.15260E+05,
     A 0.10710E-01, 0.10552E+00,-0.15016E-02,-0.60962E-05,-0.38322E-02,
     A-0.19428E-05, 0.15260E+05, 0.15270E+05,
     A 0.11725E-01, 0.11142E+00,-0.24386E-02,-0.20890E-05,-0.45783E-02,
     A 0.15311E-05, 0.15270E+05, 0.15280E+05,
     A 0.36695E-02, 0.13405E+00,-0.19794E-02, 0.14362E-06,-0.35859E-02,
     A 0.20003E-05, 0.15280E+05, 0.15290E+05,
     A 0.38912E-02, 0.14992E+00,-0.30601E-04, 0.82096E-05,-0.14088E-03,
     A-0.13930E-05, 0.15290E+05, 0.15300E+05/
C
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end

