      subroutine    moca1(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     carbon monoxide (2500 - 5050 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25000e+04, 0.25100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25100e+04, 0.25200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25200e+04, 0.25300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25300e+04, 0.25400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25400e+04, 0.25500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25500e+04, 0.25600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25600e+04, 0.25700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25700e+04, 0.25800e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25800e+04, 0.25900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.25900e+04, 0.26000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26000e+04, 0.26100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26100e+04, 0.26200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26200e+04, 0.26300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26300e+04, 0.26400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26400e+04, 0.26500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26500e+04, 0.26600e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26600e+04, 0.26700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26700e+04, 0.26800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26800e+04, 0.26900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.26900e+04, 0.27000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27000e+04, 0.27100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27100e+04, 0.27200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27200e+04, 0.27300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27300e+04, 0.27400e+04/
       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.27400e+04, 0.27500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27500e+04, 0.27600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27600e+04, 0.27700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27700e+04, 0.27800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27800e+04, 0.27900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.27900e+04, 0.28000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28000e+04, 0.28100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28100e+04, 0.28200e+04/
       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.28200e+04, 0.28300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28300e+04, 0.28400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28400e+04, 0.28500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28500e+04, 0.28600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28600e+04, 0.28700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28700e+04, 0.28800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28800e+04, 0.28900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28900e+04, 0.29000e+04/
       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.29000e+04, 0.29100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29100e+04, 0.29200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29200e+04, 0.29300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29300e+04, 0.29400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29400e+04, 0.29500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29500e+04, 0.29600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29600e+04, 0.29700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29700e+04, 0.29800e+04/
       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.29800e+04, 0.29900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29900e+04, 0.30000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30000e+04, 0.30100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30100e+04, 0.30200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30200e+04, 0.30300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30300e+04, 0.30400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30400e+04, 0.30500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30500e+04, 0.30600e+04/
       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.30600e+04, 0.30700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30700e+04, 0.30800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30800e+04, 0.30900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30900e+04, 0.31000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31000e+04, 0.31100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31100e+04, 0.31200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31200e+04, 0.31300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31300e+04, 0.31400e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31400e+04, 0.31500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31500e+04, 0.31600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31600e+04, 0.31700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31700e+04, 0.31800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31800e+04, 0.31900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.31900e+04, 0.32000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32000e+04, 0.32100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32100e+04, 0.32200e+04/
       data ((acr(k,j),k=1,8),j= 73, 80) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32200e+04, 0.32300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32300e+04, 0.32400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32400e+04, 0.32500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32500e+04, 0.32600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32600e+04, 0.32700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32700e+04, 0.32800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32800e+04, 0.32900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.32900e+04, 0.33000e+04/
       data ((acr(k,j),k=1,8),j= 81, 88) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33000e+04, 0.33100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33100e+04, 0.33200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33200e+04, 0.33300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33300e+04, 0.33400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33400e+04, 0.33500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33500e+04, 0.33600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33600e+04, 0.33700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33700e+04, 0.33800e+04/
       data ((acr(k,j),k=1,8),j= 89, 96) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33800e+04, 0.33900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.33900e+04, 0.34000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34000e+04, 0.34100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34100e+04, 0.34200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34200e+04, 0.34300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34300e+04, 0.34400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34400e+04, 0.34500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34500e+04, 0.34600e+04/
       data ((acr(k,j),k=1,8),j= 97,104) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34600e+04, 0.34700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34700e+04, 0.34800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34800e+04, 0.34900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.34900e+04, 0.35000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35000e+04, 0.35100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35100e+04, 0.35200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35200e+04, 0.35300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35300e+04, 0.35400e+04/
       data ((acr(k,j),k=1,8),j=105,112) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35400e+04, 0.35500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35500e+04, 0.35600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35600e+04, 0.35700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35700e+04, 0.35800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35800e+04, 0.35900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.35900e+04, 0.36000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36000e+04, 0.36100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36100e+04, 0.36200e+04/
       data ((acr(k,j),k=1,8),j=113,120) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36200e+04, 0.36300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36300e+04, 0.36400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36400e+04, 0.36500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36500e+04, 0.36600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36600e+04, 0.36700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36700e+04, 0.36800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36800e+04, 0.36900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.36900e+04, 0.37000e+04/
       data ((acr(k,j),k=1,8),j=121,128) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37000e+04, 0.37100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37100e+04, 0.37200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37200e+04, 0.37300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37300e+04, 0.37400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37400e+04, 0.37500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37500e+04, 0.37600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37600e+04, 0.37700e+04,
     a 0.26188e-22, 0.75648e-06, 0.14705e+00,-0.59469e-03, 0.14469e+00,
     a-0.59147e-03, 0.37700e+04, 0.37800e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.17237e-21, 0.75958e-06, 0.13909e+00,-0.56296e-03, 0.13671e+00,
     a-0.55960e-03, 0.37800e+04, 0.37900e+04,
     a 0.30601e-21, 0.39946e-06, 0.13415e+00,-0.54470e-03, 0.13135e+00,
     a-0.53906e-03, 0.37900e+04, 0.38000e+04,
     a 0.25148e-20, 0.76406e-06, 0.12775e+00,-0.51775e-03, 0.12533e+00,
     a-0.51417e-03, 0.38000e+04, 0.38100e+04,
     a 0.25745e-18, 0.66661e-06, 0.10289e+00,-0.41172e-03, 0.10359e+00,
     a-0.41229e-03, 0.38100e+04, 0.38200e+04,
     a 0.23471e-17, 0.85834e-06, 0.95064e-01,-0.38496e-03, 0.93786e-01,
     a-0.38192e-03, 0.38200e+04, 0.38300e+04,
     a 0.44267e-17, 0.61131e-06, 0.90479e-01,-0.36372e-03, 0.91063e-01,
     a-0.36128e-03, 0.38300e+04, 0.38400e+04,
     a 0.37544e-16, 0.96342e-06, 0.83552e-01,-0.33748e-03, 0.83109e-01,
     a-0.33494e-03, 0.38400e+04, 0.38500e+04,
     a 0.66043e-16, 0.45762e-05, 0.80581e-01,-0.29237e-03, 0.11860e+00,
     a-0.19899e-03, 0.38500e+04, 0.38600e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.50104e-15, 0.30566e-05, 0.73204e-01,-0.28334e-03, 0.10085e+00,
     a-0.11404e-03, 0.38600e+04, 0.38700e+04,
     a 0.25102e-14, 0.56505e-05, 0.66558e-01,-0.24745e-03, 0.10411e+00,
     a-0.10858e-03, 0.38700e+04, 0.38800e+04,
     a 0.11790e-13, 0.71883e-05, 0.60355e-01,-0.21477e-03, 0.99433e-01,
     a-0.10798e-03, 0.38800e+04, 0.38900e+04,
     a 0.17518e-13, 0.10491e-04, 0.58888e-01,-0.16207e-03, 0.98190e-01,
     a-0.20655e-03, 0.38900e+04, 0.39000e+04,
     a 0.12334e-12, 0.82478e-04, 0.61162e-01,-0.46855e-04, 0.99456e-01,
     a-0.30433e-03, 0.39000e+04, 0.39100e+04,
     a 0.59987e-12, 0.19476e-03, 0.61687e-01, 0.10764e-04, 0.93436e-01,
     a-0.32996e-03, 0.39100e+04, 0.39200e+04,
     a 0.17948e-11, 0.99622e-04, 0.52116e-01, 0.12152e-04, 0.87699e-01,
     a-0.27025e-03, 0.39200e+04, 0.39300e+04,
     a 0.83226e-11, 0.32910e-03, 0.54625e-01, 0.51416e-04, 0.89131e-01,
     a-0.23629e-03, 0.39300e+04, 0.39400e+04/
       data ((acr(k,j),k=1,8),j=145,152) /
     a 0.20276e-10, 0.21725e-03, 0.45681e-01, 0.63672e-04, 0.93594e-01,
     a-0.10440e-03, 0.39400e+04, 0.39500e+04,
     a 0.94520e-10, 0.42081e-03, 0.49658e-01, 0.57601e-04, 0.79407e-01,
     a-0.19603e-03, 0.39500e+04, 0.39600e+04,
     a 0.20604e-09, 0.42113e-03, 0.43092e-01, 0.79797e-04, 0.84560e-01,
     a-0.10065e-03, 0.39600e+04, 0.39700e+04,
     a 0.92559e-09, 0.52769e-03, 0.46842e-01, 0.21300e-04, 0.70955e-01,
     a-0.15981e-03, 0.39700e+04, 0.39800e+04,
     a 0.40093e-08, 0.16525e-02, 0.48905e-01,-0.43479e-04, 0.80584e-01,
     a-0.13211e-03, 0.39800e+04, 0.39900e+04,
     a 0.72188e-08, 0.49631e-02, 0.47903e-01, 0.35060e-04, 0.87341e-01,
     a-0.22515e-03, 0.39900e+04, 0.40000e+04,
     a 0.35244e-07, 0.26406e-02, 0.44217e-01,-0.43905e-04, 0.74799e-01,
     a-0.13539e-03, 0.40000e+04, 0.40100e+04,
     a 0.14041e-06, 0.58689e-02, 0.45795e-01,-0.74645e-04, 0.73346e-01,
     a-0.17741e-03, 0.40100e+04, 0.40200e+04/
       data ((acr(k,j),k=1,8),j=153,160) /
     a 0.48242e-06, 0.31728e-02, 0.39460e-01,-0.94315e-04, 0.63747e-01,
     a-0.10552e-03, 0.40200e+04, 0.40300e+04,
     a 0.15614e-05, 0.29789e-02, 0.34810e-01,-0.94517e-04, 0.58578e-01,
     a-0.76764e-04, 0.40300e+04, 0.40400e+04,
     a 0.23212e-05, 0.11038e-01, 0.38571e-01,-0.40092e-05, 0.64826e-01,
     a-0.18611e-03, 0.40400e+04, 0.40500e+04,
     a 0.10679e-04, 0.14942e-01, 0.35924e-01, 0.20954e-06, 0.58260e-01,
     a-0.16362e-03, 0.40500e+04, 0.40600e+04,
     a 0.25314e-04, 0.76112e-02, 0.28757e-01,-0.27274e-05, 0.50639e-01,
     a-0.10468e-03, 0.40600e+04, 0.40700e+04,
     a 0.82488e-04, 0.19238e-01, 0.31099e-01, 0.32981e-04, 0.49127e-01,
     a-0.14923e-03, 0.40700e+04, 0.40800e+04,
     a 0.15838e-03, 0.10696e-01, 0.24633e-01, 0.38132e-04, 0.43260e-01,
     a-0.97166e-04, 0.40800e+04, 0.40900e+04,
     a 0.53014e-03, 0.27912e-01, 0.28944e-01, 0.34086e-04, 0.42425e-01,
     a-0.13608e-03, 0.40900e+04, 0.41000e+04/
       data ((acr(k,j),k=1,8),j=161,168) /
     a 0.19236e-02, 0.31464e-01, 0.26171e-01, 0.25248e-04, 0.36412e-01,
     a-0.11618e-03, 0.41000e+04, 0.41100e+04,
     a 0.24170e-02, 0.18774e-01, 0.23171e-01, 0.31047e-04, 0.32949e-01,
     a-0.93254e-04, 0.41100e+04, 0.41200e+04,
     a 0.95957e-02, 0.39252e-01, 0.27808e-01,-0.50845e-04, 0.30866e-01,
     a-0.11461e-03, 0.41200e+04, 0.41300e+04,
     a 0.29222e-01, 0.41309e-01, 0.25476e-01,-0.70834e-04, 0.25927e-01,
     a-0.99072e-04, 0.41300e+04, 0.41400e+04,
     a 0.80521e-01, 0.42144e-01, 0.23591e-01,-0.92915e-04, 0.22029e-01,
     a-0.90905e-04, 0.41400e+04, 0.41500e+04,
     a 0.21163e+00, 0.43454e-01, 0.19801e-01,-0.84058e-04, 0.17719e-01,
     a-0.76225e-04, 0.41500e+04, 0.41600e+04,
     a 0.20177e+00, 0.23178e-01, 0.17214e-01,-0.76243e-04, 0.15553e-01,
     a-0.64832e-04, 0.41600e+04, 0.41700e+04,
     a 0.76320e+00, 0.46725e-01, 0.14160e-01,-0.63818e-04, 0.12147e-01,
     a-0.54565e-04, 0.41700e+04, 0.41800e+04/
       data ((acr(k,j),k=1,8),j=169,176) /
     a 0.15947e+01, 0.47792e-01, 0.10708e-01,-0.50352e-04, 0.83233e-02,
     a-0.42778e-04, 0.41800e+04, 0.41900e+04,
     a 0.52669e+01, 0.73957e-01, 0.67643e-02,-0.34467e-04, 0.43190e-02,
     a-0.28069e-04, 0.41900e+04, 0.42000e+04,
     a 0.64202e+01, 0.51382e-01, 0.36772e-02,-0.22614e-04, 0.97420e-03,
     a-0.16763e-04, 0.42000e+04, 0.42100e+04,
     a 0.92445e+01, 0.52627e-01, 0.14938e-02,-0.13915e-04,-0.10491e-02,
     a-0.69012e-05, 0.42100e+04, 0.42200e+04,
     a 0.11750e+02, 0.53810e-01,-0.32681e-03,-0.66562e-05,-0.28054e-02,
     a 0.10375e-05, 0.42200e+04, 0.42300e+04,
     a 0.12919e+02, 0.55506e-01,-0.17838e-02,-0.85608e-06,-0.42665e-02,
     a 0.71579e-05, 0.42300e+04, 0.42400e+04,
     a 0.16381e+02, 0.89081e-01,-0.30490e-02, 0.41985e-05,-0.56615e-02,
     a 0.11648e-04, 0.42400e+04, 0.42500e+04,
     a 0.50278e+01, 0.66105e-01,-0.38255e-02, 0.73053e-05,-0.61865e-02,
     a 0.17191e-04, 0.42500e+04, 0.42600e+04/
       data ((acr(k,j),k=1,8),j=177,184) /
     a 0.53208e+01, 0.65464e-01,-0.39797e-02, 0.78726e-05,-0.65080e-02,
     a 0.16403e-04, 0.42600e+04, 0.42700e+04,
     a 0.18844e+02, 0.88395e-01,-0.34205e-02, 0.56382e-05,-0.61631e-02,
     a 0.12216e-04, 0.42700e+04, 0.42800e+04,
     a 0.24188e+02, 0.81391e-01,-0.20758e-02, 0.33792e-06,-0.48510e-02,
     a 0.62760e-05, 0.42800e+04, 0.42900e+04,
     a 0.20850e+02, 0.78388e-01, 0.71143e-04,-0.81227e-05,-0.26924e-02,
     a-0.26258e-05, 0.42900e+04, 0.43000e+04,
     a 0.16326e+02, 0.99662e-01, 0.34720e-02,-0.21159e-04, 0.82032e-03,
     a-0.16489e-04, 0.43000e+04, 0.43100e+04,
     a 0.59676e+01, 0.90468e-01, 0.87017e-02,-0.41571e-04, 0.61894e-02,
     a-0.37687e-04, 0.43100e+04, 0.43200e+04,
     a 0.14674e+01, 0.80452e-01, 0.15334e-01,-0.67528e-04, 0.12977e-01,
     a-0.64486e-04, 0.43200e+04, 0.43300e+04,
     a 0.26137e+00, 0.87098e-01, 0.23749e-01,-0.99448e-04, 0.21920e-01,
     a-0.98971e-04, 0.43300e+04, 0.43400e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.17052e-01, 0.94008e-01, 0.36064e-01,-0.14594e-03, 0.35363e-01,
     a-0.14924e-03, 0.43400e+04, 0.43500e+04,
     a 0.13974e-03, 0.88019e-01, 0.56495e-01,-0.22628e-03, 0.57375e-01,
     a-0.22878e-03, 0.43500e+04, 0.43600e+04,
     a 0.25708e-09, 0.17736e-01, 0.10803e+00,-0.44019e-03, 0.10523e+00,
     a-0.43455e-03, 0.43600e+04, 0.43700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43700e+04, 0.43800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43800e+04, 0.43900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43900e+04, 0.44000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44000e+04, 0.44100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44100e+04, 0.44200e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44200e+04, 0.44300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44300e+04, 0.44400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44400e+04, 0.44500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44500e+04, 0.44600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44600e+04, 0.44700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44700e+04, 0.44800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44800e+04, 0.44900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.44900e+04, 0.45000e+04/
       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.45000e+04, 0.45100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45100e+04, 0.45200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45200e+04, 0.45300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45300e+04, 0.45400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45400e+04, 0.45500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45500e+04, 0.45600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45600e+04, 0.45700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45700e+04, 0.45800e+04/
       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.45800e+04, 0.45900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.45900e+04, 0.46000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46000e+04, 0.46100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46100e+04, 0.46200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46200e+04, 0.46300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46300e+04, 0.46400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46400e+04, 0.46500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46500e+04, 0.46600e+04/
       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.46600e+04, 0.46700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46700e+04, 0.46800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46800e+04, 0.46900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.46900e+04, 0.47000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47000e+04, 0.47100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47100e+04, 0.47200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47200e+04, 0.47300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47300e+04, 0.47400e+04/
       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.47400e+04, 0.47500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47500e+04, 0.47600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47600e+04, 0.47700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47700e+04, 0.47800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47800e+04, 0.47900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.47900e+04, 0.48000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48000e+04, 0.48100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48100e+04, 0.48200e+04/
       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.48200e+04, 0.48300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48300e+04, 0.48400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48400e+04, 0.48500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48500e+04, 0.48600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48600e+04, 0.48700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48700e+04, 0.48800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48800e+04, 0.48900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.48900e+04, 0.49000e+04/
       data ((acr(k,j),k=1,8),j=241,248) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49000e+04, 0.49100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49100e+04, 0.49200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49200e+04, 0.49300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49300e+04, 0.49400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49400e+04, 0.49500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49500e+04, 0.49600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49600e+04, 0.49700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49700e+04, 0.49800e+04/
       data ((acr(k,j),k=1,8),j=249,256) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49800e+04, 0.49900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.49900e+04, 0.50000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50000e+04, 0.50100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50100e+04, 0.50200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50200e+04, 0.50300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50300e+04, 0.50400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50400e+04, 0.50500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50500e+04, 0.50600e+04/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
