      subroutine    oxyg3(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     oxygen (7620 - 10170 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.76200e+04, 0.76300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76300e+04, 0.76400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76400e+04, 0.76500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76500e+04, 0.76600e+04,
     a 0.54851e-08, 0.18194e-01, 0.43239e-01,-0.17296e-03, 0.41212e-01,
     a-0.16888e-03, 0.76600e+04, 0.76700e+04,
     a 0.15945e-07, 0.18194e-01, 0.38520e-01,-0.15408e-03, 0.36492e-01,
     a-0.15000e-03, 0.76700e+04, 0.76800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76800e+04, 0.76900e+04,
     a 0.43251e-07, 0.18194e-01, 0.34069e-01,-0.13628e-03, 0.32042e-01,
     a-0.13219e-03, 0.76900e+04, 0.77000e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.10929e-06, 0.18194e-01, 0.29889e-01,-0.11956e-03, 0.27862e-01,
     a-0.11547e-03, 0.77000e+04, 0.77100e+04,
     a 0.25722e-06, 0.18194e-01, 0.25980e-01,-0.10392e-03, 0.23953e-01,
     a-0.99839e-04, 0.77100e+04, 0.77200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.77200e+04, 0.77300e+04,
     a 0.56266e-06, 0.18194e-01, 0.22343e-01,-0.89371e-04, 0.20315e-01,
     a-0.85289e-04, 0.77300e+04, 0.77400e+04,
     a 0.11425e-05, 0.19060e-01, 0.18977e-01,-0.75910e-04, 0.16950e-01,
     a-0.71828e-04, 0.77400e+04, 0.77500e+04,
     a 0.21596e-05, 0.22229e-01, 0.16034e-01,-0.62289e-04, 0.15554e-01,
     a-0.55716e-04, 0.77500e+04, 0.77600e+04,
     a 0.81892e-07, 0.52034e-01, 0.39222e-01,-0.15556e-03, 0.37572e-01,
     a-0.15339e-03, 0.77600e+04, 0.77700e+04,
     a 0.39209e-05, 0.32273e-01, 0.14036e-01,-0.46954e-04, 0.15654e-01,
     a-0.48384e-04, 0.77700e+04, 0.77800e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.64421e-05, 0.36427e-01, 0.11888e-01,-0.35835e-04, 0.13496e-01,
     a-0.40675e-04, 0.77800e+04, 0.77900e+04,
     a 0.11047e-04, 0.55891e-01, 0.11375e-01,-0.26109e-04, 0.13172e-01,
     a-0.40967e-04, 0.77900e+04, 0.78000e+04,
     a 0.17987e-04, 0.67558e-01, 0.10748e-01,-0.23562e-04, 0.11370e-01,
     a-0.38223e-04, 0.78000e+04, 0.78100e+04,
     a 0.98092e-05, 0.38971e-01, 0.15905e-01,-0.63621e-04, 0.13877e-01,
     a-0.59532e-04, 0.78100e+04, 0.78200e+04,
     a 0.44018e-04, 0.82997e-01, 0.95499e-02,-0.31911e-04, 0.77993e-02,
     a-0.32091e-04, 0.78200e+04, 0.78300e+04,
     a 0.70926e-04, 0.86557e-01, 0.76614e-02,-0.27697e-04, 0.55197e-02,
     a-0.24447e-04, 0.78300e+04, 0.78400e+04,
     a 0.10119e-03, 0.87824e-01, 0.52157e-02,-0.19889e-04, 0.29700e-02,
     a-0.15277e-04, 0.78400e+04, 0.78500e+04,
     a 0.12386e-03, 0.90123e-01, 0.34834e-02,-0.12896e-04, 0.22642e-02,
     a-0.35587e-05, 0.78500e+04, 0.78600e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.13558e-03, 0.14355e+00, 0.25455e-02, 0.75114e-06, 0.43782e-02,
     a 0.42838e-05, 0.78600e+04, 0.78700e+04,
     a 0.36155e-03, 0.30611e+00, 0.77400e-02,-0.23164e-04, 0.72019e-02,
     a-0.26289e-04, 0.78700e+04, 0.78800e+04,
     a 0.74132e-03, 0.38505e+00, 0.19206e-02,-0.64925e-05, 0.19419e-04,
     a-0.33562e-05, 0.78800e+04, 0.78900e+04,
     a 0.26142e-03, 0.99139e-01, 0.56355e-03,-0.21878e-05,-0.15085e-02,
     a 0.20396e-05, 0.78900e+04, 0.79000e+04,
     a 0.33585e-03, 0.12035e+00, 0.17877e-02,-0.67625e-05,-0.30147e-03,
     a-0.26201e-05, 0.79000e+04, 0.79100e+04,
     a 0.21797e-03, 0.91240e-01, 0.44856e-02,-0.17351e-04, 0.25121e-02,
     a-0.13772e-04, 0.79100e+04, 0.79200e+04,
     a 0.18805e-03, 0.12809e+00, 0.61732e-02,-0.18626e-04, 0.47187e-02,
     a-0.20003e-04, 0.79200e+04, 0.79300e+04,
     a 0.87414e-04, 0.10246e+00, 0.71283e-02,-0.95048e-05, 0.79366e-02,
     a-0.25696e-04, 0.79300e+04, 0.79400e+04/
       data ((acr(k,j),k=1,8),j= 33, 40) /
     a 0.50284e-04, 0.70001e-01, 0.58651e-02,-0.15881e-05, 0.99197e-02,
     a-0.19259e-04, 0.79400e+04, 0.79500e+04,
     a 0.34484e-04, 0.36136e-01, 0.50423e-02,-0.13556e-04, 0.83314e-02,
     a-0.29461e-05, 0.79500e+04, 0.79600e+04,
     a 0.25080e-04, 0.23597e-01, 0.62798e-02,-0.24587e-04, 0.54199e-02,
     a-0.14942e-04, 0.79600e+04, 0.79700e+04,
     a 0.17175e-04, 0.21672e-01, 0.82429e-02,-0.32972e-04, 0.62159e-02,
     a-0.28891e-04, 0.79700e+04, 0.79800e+04,
     a 0.10919e-04, 0.20800e-01, 0.10514e-01,-0.42054e-04, 0.84864e-02,
     a-0.37973e-04, 0.79800e+04, 0.79900e+04,
     a 0.64530e-05, 0.19927e-01, 0.13058e-01,-0.52234e-04, 0.11031e-01,
     a-0.48151e-04, 0.79900e+04, 0.80000e+04,
     a 0.35484e-05, 0.19493e-01, 0.15877e-01,-0.63508e-04, 0.13850e-01,
     a-0.59425e-04, 0.80000e+04, 0.80100e+04,
     a 0.18178e-05, 0.19060e-01, 0.18969e-01,-0.75874e-04, 0.16941e-01,
     a-0.71792e-04, 0.80100e+04, 0.80200e+04/
       data ((acr(k,j),k=1,8),j= 41, 48) /
     a 0.86808e-06, 0.18194e-01, 0.22333e-01,-0.89332e-04, 0.20306e-01,
     a-0.85250e-04, 0.80200e+04, 0.80300e+04,
     a 0.54731e-06, 0.34766e-01, 0.27088e-01,-0.10685e-03, 0.25457e-01,
     a-0.10498e-03, 0.80300e+04, 0.80400e+04,
     a 0.62423e-07, 0.18194e-01, 0.34057e-01,-0.13623e-03, 0.32030e-01,
     a-0.13215e-03, 0.80400e+04, 0.80500e+04,
     a 0.22644e-07, 0.18194e-01, 0.38506e-01,-0.15403e-03, 0.36479e-01,
     a-0.14994e-03, 0.80500e+04, 0.80600e+04,
     a 0.76809e-08, 0.18194e-01, 0.43225e-01,-0.17290e-03, 0.41198e-01,
     a-0.16882e-03, 0.80600e+04, 0.80700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.80700e+04, 0.80800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.80800e+04, 0.80900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.80900e+04, 0.81000e+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.81000e+04, 0.81100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81100e+04, 0.81200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81200e+04, 0.81300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81300e+04, 0.81400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81400e+04, 0.81500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81500e+04, 0.81600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81600e+04, 0.81700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81700e+04, 0.81800e+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.81800e+04, 0.81900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.81900e+04, 0.82000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82000e+04, 0.82100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82100e+04, 0.82200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82200e+04, 0.82300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82300e+04, 0.82400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82400e+04, 0.82500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82500e+04, 0.82600e+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.82600e+04, 0.82700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82700e+04, 0.82800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82800e+04, 0.82900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.82900e+04, 0.83000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83000e+04, 0.83100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83100e+04, 0.83200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83200e+04, 0.83300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83300e+04, 0.83400e+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.83400e+04, 0.83500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83500e+04, 0.83600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83600e+04, 0.83700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83700e+04, 0.83800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83800e+04, 0.83900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.83900e+04, 0.84000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84000e+04, 0.84100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84100e+04, 0.84200e+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.84200e+04, 0.84300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84300e+04, 0.84400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84400e+04, 0.84500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84500e+04, 0.84600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84600e+04, 0.84700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84700e+04, 0.84800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84800e+04, 0.84900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.84900e+04, 0.85000e+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.85000e+04, 0.85100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85100e+04, 0.85200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85200e+04, 0.85300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85300e+04, 0.85400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85400e+04, 0.85500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85500e+04, 0.85600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85600e+04, 0.85700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85700e+04, 0.85800e+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.85800e+04, 0.85900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.85900e+04, 0.86000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86000e+04, 0.86100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86100e+04, 0.86200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86200e+04, 0.86300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86300e+04, 0.86400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86400e+04, 0.86500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86500e+04, 0.86600e+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.86600e+04, 0.86700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86700e+04, 0.86800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86800e+04, 0.86900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.86900e+04, 0.87000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87000e+04, 0.87100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87100e+04, 0.87200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87200e+04, 0.87300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87300e+04, 0.87400e+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.87400e+04, 0.87500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87500e+04, 0.87600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87600e+04, 0.87700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87700e+04, 0.87800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87800e+04, 0.87900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.87900e+04, 0.88000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88000e+04, 0.88100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88100e+04, 0.88200e+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.88200e+04, 0.88300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88300e+04, 0.88400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88400e+04, 0.88500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88500e+04, 0.88600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88600e+04, 0.88700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88700e+04, 0.88800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88800e+04, 0.88900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.88900e+04, 0.89000e+04/
       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.89000e+04, 0.89100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89100e+04, 0.89200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89200e+04, 0.89300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89300e+04, 0.89400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89400e+04, 0.89500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89500e+04, 0.89600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89600e+04, 0.89700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89700e+04, 0.89800e+04/
       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.89800e+04, 0.89900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.89900e+04, 0.90000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90000e+04, 0.90100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90100e+04, 0.90200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90200e+04, 0.90300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90300e+04, 0.90400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90400e+04, 0.90500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90500e+04, 0.90600e+04/
       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.90600e+04, 0.90700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90700e+04, 0.90800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90800e+04, 0.90900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.90900e+04, 0.91000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91000e+04, 0.91100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91100e+04, 0.91200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91200e+04, 0.91300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91300e+04, 0.91400e+04/
       data ((acr(k,j),k=1,8),j=153,160) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91400e+04, 0.91500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91500e+04, 0.91600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91600e+04, 0.91700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91700e+04, 0.91800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91800e+04, 0.91900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.91900e+04, 0.92000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92000e+04, 0.92100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92100e+04, 0.92200e+04/
       data ((acr(k,j),k=1,8),j=161,168) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92200e+04, 0.92300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92300e+04, 0.92400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92400e+04, 0.92500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92500e+04, 0.92600e+04,
     a 0.29327e-07, 0.20793e-01, 0.10520e-01,-0.42079e-04, 0.84925e-02,
     a-0.37997e-04, 0.92600e+04, 0.92700e+04,
     a 0.42840e-07, 0.21659e-01, 0.82482e-02,-0.32993e-04, 0.62209e-02,
     a-0.28911e-04, 0.92700e+04, 0.92800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.92800e+04, 0.92900e+04,
     a 0.14493e-06, 0.78959e-01, 0.11173e-01,-0.36086e-04, 0.98558e-02,
     a-0.39242e-04, 0.92900e+04, 0.93000e+04/
       data ((acr(k,j),k=1,8),j=169,176) /
     a 0.25005e-06, 0.83955e-01, 0.92831e-02,-0.32526e-04, 0.73578e-02,
     a-0.31073e-04, 0.93000e+04, 0.93100e+04,
     a 0.27511e-06, 0.65813e-01, 0.69254e-02,-0.25251e-04, 0.46721e-02,
     a-0.21357e-04, 0.93100e+04, 0.93200e+04,
     a 0.33929e-06, 0.65167e-01, 0.55165e-02,-0.20774e-04, 0.31412e-02,
     a-0.15731e-04, 0.93200e+04, 0.93300e+04,
     a 0.73603e-06, 0.92398e-01, 0.37855e-02,-0.14891e-04, 0.17763e-02,
     a-0.11006e-04, 0.93300e+04, 0.93400e+04,
     a 0.44813e-06, 0.79350e-01, 0.45127e-02,-0.24202e-05, 0.42176e-02,
     a-0.93426e-05, 0.93400e+04, 0.93500e+04,
     a 0.14773e-05, 0.26290e+00, 0.66029e-02,-0.18761e-04, 0.47390e-02,
     a-0.18284e-04, 0.93500e+04, 0.93600e+04,
     a 0.36258e-05, 0.35403e+00, 0.24719e-02,-0.86417e-05, 0.50685e-03,
     a-0.53198e-05, 0.93600e+04, 0.93700e+04,
     a 0.10885e-05, 0.98959e-01, 0.27980e-03,-0.11056e-05,-0.17654e-02,
     a 0.30416e-05, 0.93700e+04, 0.93800e+04/
       data ((acr(k,j),k=1,8),j=177,184) /
     a 0.16901e-05, 0.12199e+00, 0.12891e-02,-0.49557e-05,-0.79138e-03,
     a-0.75060e-06, 0.93800e+04, 0.93900e+04,
     a 0.16816e-05, 0.13899e+00, 0.35668e-02,-0.12886e-04, 0.15543e-02,
     a-0.94945e-05, 0.93900e+04, 0.94000e+04,
     a 0.10341e-05, 0.16279e+00, 0.68719e-02,-0.19960e-04, 0.57191e-02,
     a-0.23184e-04, 0.94000e+04, 0.94100e+04,
     a 0.31773e-06, 0.64360e-01, 0.52558e-02,-0.27296e-05, 0.65364e-02,
     a-0.16975e-04, 0.94100e+04, 0.94200e+04,
     a 0.20773e-06, 0.23392e-01, 0.30789e-02,-0.12316e-04, 0.10516e-02,
     a-0.82335e-05, 0.94200e+04, 0.94300e+04,
     a 0.16613e-06, 0.22959e-01, 0.45253e-02,-0.18101e-04, 0.24979e-02,
     a-0.14019e-04, 0.94300e+04, 0.94400e+04,
     a 0.12289e-06, 0.22092e-01, 0.62467e-02,-0.24987e-04, 0.42194e-02,
     a-0.20905e-04, 0.94400e+04, 0.94500e+04,
     a 0.84168e-07, 0.21659e-01, 0.82429e-02,-0.32972e-04, 0.62156e-02,
     a-0.28889e-04, 0.94500e+04, 0.94600e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.85119e-07, 0.40142e-01, 0.11444e-01,-0.45054e-04, 0.95711e-02,
     a-0.41931e-04, 0.94600e+04, 0.94700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.94700e+04, 0.94800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.94800e+04, 0.94900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.94900e+04, 0.95000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95000e+04, 0.95100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95100e+04, 0.95200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95200e+04, 0.95300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95300e+04, 0.95400e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95400e+04, 0.95500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95500e+04, 0.95600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95600e+04, 0.95700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95700e+04, 0.95800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95800e+04, 0.95900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.95900e+04, 0.96000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96000e+04, 0.96100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96100e+04, 0.96200e+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.96200e+04, 0.96300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96300e+04, 0.96400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96400e+04, 0.96500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96500e+04, 0.96600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96600e+04, 0.96700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96700e+04, 0.96800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96800e+04, 0.96900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.96900e+04, 0.97000e+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.97000e+04, 0.97100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97100e+04, 0.97200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97200e+04, 0.97300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97300e+04, 0.97400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97400e+04, 0.97500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97500e+04, 0.97600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97600e+04, 0.97700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97700e+04, 0.97800e+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.97800e+04, 0.97900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.97900e+04, 0.98000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98000e+04, 0.98100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98100e+04, 0.98200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98200e+04, 0.98300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98300e+04, 0.98400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98400e+04, 0.98500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98500e+04, 0.98600e+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.98600e+04, 0.98700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98700e+04, 0.98800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98800e+04, 0.98900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.98900e+04, 0.99000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99000e+04, 0.99100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99100e+04, 0.99200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99200e+04, 0.99300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99300e+04, 0.99400e+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.99400e+04, 0.99500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99500e+04, 0.99600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99600e+04, 0.99700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99700e+04, 0.99800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99800e+04, 0.99900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.99900e+04, 0.10000e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10000e+05, 0.10010e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10010e+05, 0.10020e+05/
       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.10020e+05, 0.10030e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10030e+05, 0.10040e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10040e+05, 0.10050e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10050e+05, 0.10060e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10060e+05, 0.10070e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10070e+05, 0.10080e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10080e+05, 0.10090e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10090e+05, 0.10100e+05/
       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.10100e+05, 0.10110e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10110e+05, 0.10120e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10120e+05, 0.10130e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10130e+05, 0.10140e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10140e+05, 0.10150e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10150e+05, 0.10160e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10160e+05, 0.10170e+05,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.10170e+05, 0.10180e+05/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
