      subroutine    niox1(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     nitrous oxide (2500 - 5050 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.20198e+01, 0.12223e+01, 0.21725e-01,-0.74064e-04, 0.21102e-01,
     a-0.68716e-04, 0.25000e+04, 0.25100e+04,
     a 0.55630e+01, 0.51358e+00, 0.18526e-01,-0.81387e-04, 0.20173e-01,
     a-0.75293e-04, 0.25100e+04, 0.25200e+04,
     a 0.30587e+02, 0.41845e+00, 0.10994e-01,-0.52858e-04, 0.12658e-01,
     a-0.44443e-04, 0.25200e+04, 0.25300e+04,
     a 0.12744e+03, 0.46867e+00, 0.44706e-02,-0.27536e-04, 0.57879e-02,
     a-0.16691e-04, 0.25300e+04, 0.25400e+04,
     a 0.28802e+03, 0.51762e+00,-0.26998e-03,-0.87651e-05, 0.12264e-02,
     a 0.21451e-05, 0.25400e+04, 0.25500e+04,
     a 0.35369e+03, 0.74760e+00,-0.29604e-02, 0.45093e-05,-0.13209e-02,
     a 0.12765e-04, 0.25500e+04, 0.25600e+04,
     a 0.18524e+03, 0.10395e+01,-0.26365e-02, 0.12028e-04, 0.61760e-03,
     a 0.10222e-04, 0.25600e+04, 0.25700e+04,
     a 0.46455e+03, 0.85773e+00,-0.24108e-02,-0.17200e-05,-0.77777e-03,
     a 0.57019e-05, 0.25700e+04, 0.25800e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.29383e+03, 0.10741e+01, 0.31043e-02,-0.21797e-04, 0.37703e-02,
     a-0.20707e-04, 0.25800e+04, 0.25900e+04,
     a 0.55672e+02, 0.17813e+01, 0.13484e-01,-0.62711e-04, 0.13188e-01,
     a-0.63390e-04, 0.25900e+04, 0.26000e+04,
     a 0.66505e+01, 0.23452e+01, 0.23437e-01,-0.99109e-04, 0.23591e-01,
     a-0.10503e-03, 0.26000e+04, 0.26100e+04,
     a 0.41623e+00, 0.22528e+01, 0.35914e-01,-0.15047e-03, 0.35732e-01,
     a-0.15387e-03, 0.26100e+04, 0.26200e+04,
     a 0.12710e-01, 0.10271e+01, 0.47982e-01,-0.19811e-03, 0.47474e-01,
     a-0.20344e-03, 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.18198e-01, 0.18592e+00, 0.25778e-01,-0.11646e-03, 0.22820e-01,
     a-0.11152e-03, 0.27300e+04, 0.27400e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.21623e+00, 0.86664e+00, 0.21368e-01,-0.96170e-04, 0.18994e-01,
     a-0.94763e-04, 0.27400e+04, 0.27500e+04,
     a 0.97230e+00, 0.10815e+01, 0.15101e-01,-0.71229e-04, 0.12988e-01,
     a-0.70769e-04, 0.27500e+04, 0.27600e+04,
     a 0.31871e+01, 0.16537e+01, 0.95979e-02,-0.41092e-04, 0.10900e-01,
     a-0.50556e-04, 0.27600e+04, 0.27700e+04,
     a 0.91207e+01, 0.20456e+01, 0.45146e-02,-0.17223e-04, 0.68327e-02,
     a-0.33329e-04, 0.27700e+04, 0.27800e+04,
     a 0.15769e+02, 0.24147e+01, 0.15100e-02, 0.27306e-05, 0.47170e-02,
     a-0.21798e-04, 0.27800e+04, 0.27900e+04,
     a 0.63944e+02, 0.22532e+01,-0.92395e-03,-0.14987e-05,-0.17516e-02,
     a-0.24760e-05, 0.27900e+04, 0.28000e+04,
     a 0.13465e+02, 0.81561e+00,-0.29579e-02, 0.78199e-05,-0.16132e-02,
     a 0.72820e-05, 0.28000e+04, 0.28100e+04,
     a 0.15397e+02, 0.59138e+00,-0.45910e-03,-0.93657e-05,-0.15437e-02,
     a-0.29788e-05, 0.28100e+04, 0.28200e+04/
       data ((acr(k,j),k=1,8),j= 33, 40) /
     a 0.38011e+01, 0.48019e+00, 0.69255e-02,-0.38126e-04, 0.47344e-02,
     a-0.37097e-04, 0.28200e+04, 0.28300e+04,
     a 0.17619e+00, 0.34619e+00, 0.19824e-01,-0.89371e-04, 0.17957e-01,
     a-0.89565e-04, 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.31935e-01, 0.33591e+00, 0.31875e-01,-0.14104e-03, 0.28977e-01,
     a-0.13626e-03, 0.32900e+04, 0.33000e+04/
       data ((acr(k,j),k=1,8),j= 81, 88) /
     a 0.29281e+00, 0.74670e+00, 0.24844e-01,-0.11101e-03, 0.22436e-01,
     a-0.10879e-03, 0.33000e+04, 0.33100e+04,
     a 0.13054e+01, 0.88331e+00, 0.18331e-01,-0.85898e-04, 0.15557e-01,
     a-0.82041e-04, 0.33100e+04, 0.33200e+04,
     a 0.43559e+01, 0.97784e+00, 0.12392e-01,-0.62543e-04, 0.96436e-02,
     a-0.58644e-04, 0.33200e+04, 0.33300e+04,
     a 0.10740e+02, 0.87778e+00, 0.59037e-02,-0.34711e-04, 0.41535e-02,
     a-0.35594e-04, 0.33300e+04, 0.33400e+04,
     a 0.23794e+02, 0.67907e+00, 0.54208e-04,-0.11592e-04,-0.82054e-03,
     a-0.12774e-04, 0.33400e+04, 0.33500e+04,
     a 0.27447e+02, 0.86607e+00,-0.18645e-02, 0.47336e-05,-0.15020e-02,
     a-0.18166e-05, 0.33500e+04, 0.33600e+04,
     a 0.12839e+02, 0.92051e+00,-0.18449e-02, 0.18928e-04,-0.31436e-04,
     a 0.64319e-05, 0.33600e+04, 0.33700e+04,
     a 0.33503e+02, 0.56100e+00,-0.27786e-02,-0.19224e-06,-0.32856e-02,
     a 0.11355e-04, 0.33700e+04, 0.33800e+04/
       data ((acr(k,j),k=1,8),j= 89, 96) /
     a 0.20600e+02, 0.44389e+00, 0.16967e-02,-0.19484e-04,-0.11701e-02,
     a-0.15371e-04, 0.33800e+04, 0.33900e+04,
     a 0.38609e+01, 0.51395e+00, 0.10469e-01,-0.48303e-04, 0.10318e-01,
     a-0.43382e-04, 0.33900e+04, 0.34000e+04,
     a 0.29988e+00, 0.99187e+00, 0.32066e-01,-0.10701e-03, 0.31782e-01,
     a-0.13149e-03, 0.34000e+04, 0.34100e+04,
     a 0.11046e+01, 0.96114e+00, 0.30560e-01,-0.12026e-03, 0.31203e-01,
     a-0.13653e-03, 0.34100e+04, 0.34200e+04,
     a 0.53792e+01, 0.96792e+00, 0.23315e-01,-0.95100e-04, 0.24421e-01,
     a-0.10864e-03, 0.34200e+04, 0.34300e+04,
     a 0.25745e+02, 0.89943e+00, 0.15618e-01,-0.65963e-04, 0.17309e-01,
     a-0.78400e-04, 0.34300e+04, 0.34400e+04,
     a 0.90538e+02, 0.79321e+00, 0.91420e-02,-0.42087e-04, 0.10653e-01,
     a-0.50451e-04, 0.34400e+04, 0.34500e+04,
     a 0.30263e+03, 0.81416e+00, 0.31369e-02,-0.19699e-04, 0.46971e-02,
     a-0.23774e-04, 0.34500e+04, 0.34600e+04/
       data ((acr(k,j),k=1,8),j= 97,104) /
     a 0.45174e+03, 0.71592e+00,-0.10912e-02,-0.46910e-05, 0.74360e-03,
     a-0.43100e-05, 0.34600e+04, 0.34700e+04,
     a 0.39599e+03, 0.95008e+00,-0.34795e-02, 0.50213e-05,-0.12061e-02,
     a 0.83238e-05, 0.34700e+04, 0.34800e+04,
     a 0.39194e+03, 0.10413e+01,-0.24518e-02, 0.97005e-05, 0.31609e-03,
     a 0.61680e-05, 0.34800e+04, 0.34900e+04,
     a 0.75396e+03, 0.84036e+00,-0.91794e-03,-0.45133e-05,-0.23983e-03,
     a-0.60537e-06, 0.34900e+04, 0.35000e+04,
     a 0.21644e+03, 0.71621e+00, 0.63300e-02,-0.32276e-04, 0.65565e-02,
     a-0.31312e-04, 0.35000e+04, 0.35100e+04,
     a 0.18617e+01, 0.41652e+00, 0.26193e-01,-0.11186e-03, 0.25872e-01,
     a-0.11548e-03, 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.11329e+00, 0.32221e+00, 0.11785e-01,-0.59055e-04, 0.92930e-02,
     a-0.56411e-04, 0.35800e+04, 0.35900e+04,
     a 0.63240e+00, 0.37454e+00, 0.39372e-02,-0.28500e-04, 0.10518e-02,
     a-0.24350e-04, 0.35900e+04, 0.36000e+04,
     a 0.13646e+01, 0.37234e+00,-0.12358e-02,-0.89975e-05,-0.42592e-02,
     a-0.34218e-05, 0.36000e+04, 0.36100e+04,
     a 0.11991e+01, 0.43663e+00,-0.40429e-02, 0.16771e-05,-0.72730e-02,
     a 0.83220e-05, 0.36100e+04, 0.36200e+04/
       data ((acr(k,j),k=1,8),j=113,120) /
     a 0.84759e+00, 0.39017e+00,-0.45304e-02, 0.35248e-05,-0.77172e-02,
     a 0.10072e-04, 0.36200e+04, 0.36300e+04,
     a 0.17247e+01, 0.41455e+00,-0.23639e-02,-0.46172e-05,-0.54164e-02,
     a 0.11967e-05, 0.36300e+04, 0.36400e+04,
     a 0.93140e+00, 0.40923e+00, 0.25080e-02,-0.22795e-04,-0.38062e-03,
     a-0.18608e-04, 0.36400e+04, 0.36500e+04,
     a 0.17321e+00, 0.37301e+00, 0.10558e-01,-0.53495e-04, 0.82291e-02,
     a-0.51685e-04, 0.36500e+04, 0.36600e+04,
     a 0.28992e-02, 0.31363e-01, 0.18626e-01,-0.89141e-04, 0.15463e-01,
     a-0.82773e-04, 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.52016e-01, 0.23330e+00, 0.23008e-01,-0.10429e-03, 0.20466e-01,
     a-0.10140e-03, 0.36900e+04, 0.37000e+04/
       data ((acr(k,j),k=1,8),j=121,128) /
     a 0.40077e+00, 0.43751e+00, 0.15625e-01,-0.70109e-04, 0.14974e-01,
     a-0.73666e-04, 0.37000e+04, 0.37100e+04,
     a 0.21822e+01, 0.57186e+00, 0.83501e-02,-0.39798e-04, 0.81924e-02,
     a-0.44240e-04, 0.37100e+04, 0.37200e+04,
     a 0.66262e+01, 0.62697e+00, 0.26483e-02,-0.17431e-04, 0.25461e-02,
     a-0.21437e-04, 0.37200e+04, 0.37300e+04,
     a 0.11503e+02, 0.69360e+00,-0.15290e-02,-0.20568e-05,-0.18176e-02,
     a-0.41926e-05, 0.37300e+04, 0.37400e+04,
     a 0.55470e+01, 0.70735e+00,-0.36265e-02, 0.55723e-05,-0.39987e-02,
     a 0.43869e-05, 0.37400e+04, 0.37500e+04,
     a 0.10823e+02, 0.85150e+00,-0.28437e-02, 0.47040e-05,-0.29039e-02,
     a 0.14795e-05, 0.37500e+04, 0.37600e+04,
     a 0.13145e+02, 0.83989e+00, 0.23467e-03,-0.75190e-05, 0.37066e-03,
     a-0.10406e-04, 0.37600e+04, 0.37700e+04,
     a 0.39192e+01, 0.87428e+00, 0.73134e-02,-0.32311e-04, 0.84021e-02,
     a-0.39596e-04, 0.37700e+04, 0.37800e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.56238e+00, 0.59784e+00, 0.18114e-01,-0.83716e-04, 0.16001e-01,
     a-0.82260e-04, 0.37800e+04, 0.37900e+04,
     a 0.14860e+01, 0.24352e+00, 0.11201e-01,-0.57941e-04, 0.83855e-02,
     a-0.53563e-04, 0.37900e+04, 0.38000e+04,
     a 0.57846e+01, 0.28312e+00, 0.51402e-02,-0.33968e-04, 0.20967e-02,
     a-0.28941e-04, 0.38000e+04, 0.38100e+04,
     a 0.15534e+02, 0.38502e+00, 0.26866e-03,-0.13504e-04,-0.10262e-02,
     a-0.54149e-05, 0.38100e+04, 0.38200e+04,
     a 0.20107e+02, 0.46654e+00,-0.28471e-02, 0.47046e-06,-0.34091e-02,
     a 0.70565e-05, 0.38200e+04, 0.38300e+04,
     a 0.96329e+01, 0.68399e+00,-0.33535e-02, 0.10816e-04,-0.31945e-02,
     a 0.91488e-05, 0.38300e+04, 0.38400e+04,
     a 0.28782e+02, 0.76658e+00,-0.28915e-02, 0.14121e-05,-0.36898e-02,
     a 0.27782e-05, 0.38400e+04, 0.38500e+04,
     a 0.22068e+02, 0.72888e+00, 0.13903e-02,-0.16991e-04,-0.35656e-03,
     a-0.16534e-04, 0.38500e+04, 0.38600e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.41416e+01, 0.14182e+01, 0.10989e-01,-0.53426e-04, 0.89392e-02,
     a-0.51526e-04, 0.38600e+04, 0.38700e+04,
     a 0.13860e+01, 0.10616e+01, 0.14465e-01,-0.70350e-04, 0.11642e-01,
     a-0.66421e-04, 0.38700e+04, 0.38800e+04,
     a 0.21981e+00, 0.82700e+00, 0.23073e-01,-0.10318e-03, 0.20793e-01,
     a-0.10169e-03, 0.38800e+04, 0.38900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38900e+04, 0.39000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39000e+04, 0.39100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39100e+04, 0.39200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39200e+04, 0.39300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39300e+04, 0.39400e+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.39400e+04, 0.39500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39500e+04, 0.39600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39600e+04, 0.39700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39700e+04, 0.39800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39800e+04, 0.39900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.39900e+04, 0.40000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40000e+04, 0.40100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40100e+04, 0.40200e+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.40200e+04, 0.40300e+04,
     a 0.46381e-01, 0.22687e+00, 0.24345e-02,-0.23816e-04,-0.70852e-03,
     a-0.17981e-04, 0.40300e+04, 0.40400e+04,
     a 0.11207e+00, 0.33988e+00,-0.13925e-02,-0.85150e-05,-0.44315e-02,
     a-0.27839e-05, 0.40400e+04, 0.40500e+04,
     a 0.26494e+00, 0.78086e+00, 0.75352e-03,-0.10882e-04,-0.22500e-02,
     a-0.80414e-05, 0.40500e+04, 0.40600e+04,
     a 0.52355e+00, 0.95211e+00,-0.32290e-02,-0.84991e-06,-0.65316e-02,
     a 0.57606e-05, 0.40600e+04, 0.40700e+04,
     a 0.20288e+00, 0.51222e+00,-0.19356e-02,-0.58786e-05,-0.49461e-02,
     a-0.50049e-06, 0.40700e+04, 0.40800e+04,
     a 0.47528e-01, 0.22508e+00, 0.29680e-02,-0.25911e-04,-0.19533e-03,
     a-0.20081e-04, 0.40800e+04, 0.40900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40900e+04, 0.41000e+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.41000e+04, 0.41100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41100e+04, 0.41200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41200e+04, 0.41300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41300e+04, 0.41400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41400e+04, 0.41500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41500e+04, 0.41600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41600e+04, 0.41700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41700e+04, 0.41800e+04/
       data ((acr(k,j),k=1,8),j=169,176) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41800e+04, 0.41900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.41900e+04, 0.42000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42000e+04, 0.42100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42100e+04, 0.42200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42200e+04, 0.42300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42300e+04, 0.42400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42400e+04, 0.42500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42500e+04, 0.42600e+04/
       data ((acr(k,j),k=1,8),j=177,184) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42600e+04, 0.42700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42700e+04, 0.42800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42800e+04, 0.42900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.42900e+04, 0.43000e+04,
     a 0.10261e-01, 0.65002e-01, 0.34485e-02,-0.28392e-04, 0.17191e-03,
     a-0.21830e-04, 0.43000e+04, 0.43100e+04,
     a 0.84185e-01, 0.33064e+00, 0.15710e-03,-0.14472e-04,-0.28838e-02,
     a-0.89966e-05, 0.43100e+04, 0.43200e+04,
     a 0.11106e+00, 0.39358e+00,-0.32422e-02,-0.13748e-05,-0.63630e-02,
     a 0.48743e-05, 0.43200e+04, 0.43300e+04,
     a 0.58854e+00, 0.13088e+01,-0.97669e-03, 0.70381e-06,-0.31832e-02,
     a 0.26227e-05, 0.43300e+04, 0.43400e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.25725e+00, 0.10051e+01, 0.60860e-02, 0.46822e-04, 0.59645e-02,
     a 0.63569e-05, 0.43400e+04, 0.43500e+04,
     a 0.46043e+00, 0.10822e+01, 0.14451e-01,-0.34551e-04, 0.10783e-01,
     a-0.43114e-04, 0.43500e+04, 0.43600e+04,
     a 0.10879e+01, 0.79314e+00, 0.15344e-01,-0.74899e-04, 0.12327e-01,
     a-0.69661e-04, 0.43600e+04, 0.43700e+04,
     a 0.28336e+01, 0.83143e+00, 0.10372e-01,-0.54787e-04, 0.77026e-02,
     a-0.51069e-04, 0.43700e+04, 0.43800e+04,
     a 0.56315e+01, 0.55232e+00, 0.48246e-02,-0.31963e-04, 0.30343e-02,
     a-0.31434e-04, 0.43800e+04, 0.43900e+04,
     a 0.11627e+02, 0.66242e+00, 0.12226e-02,-0.14669e-04, 0.96618e-03,
     a-0.19060e-04, 0.43900e+04, 0.44000e+04,
     a 0.18357e+02, 0.81274e+00,-0.15078e-02, 0.28307e-05, 0.30210e-03,
     a-0.36450e-05, 0.44000e+04, 0.44100e+04,
     a 0.81517e+01, 0.53727e+00,-0.41588e-02, 0.82656e-05,-0.39017e-02,
     a 0.19754e-04, 0.44100e+04, 0.44200e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.21947e+02, 0.50379e+00,-0.36693e-02, 0.34765e-06,-0.68581e-02,
     a 0.68190e-05, 0.44200e+04, 0.44300e+04,
     a 0.21321e+02, 0.70812e+00, 0.14866e-02,-0.15888e-04,-0.71958e-03,
     a-0.15047e-04, 0.44300e+04, 0.44400e+04,
     a 0.76039e+00, 0.46213e+00, 0.15813e-01,-0.71293e-04, 0.14807e-01,
     a-0.74172e-04, 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.27208e-02, 0.31363e-01, 0.19608e-01,-0.93071e-04, 0.16446e-01,
     a-0.86703e-04, 0.45700e+04, 0.45800e+04/
       data ((acr(k,j),k=1,8),j=209,216) /
     a 0.75316e-01, 0.26730e+00, 0.13852e-01,-0.67928e-04, 0.11260e-01,
     a-0.64664e-04, 0.45800e+04, 0.45900e+04,
     a 0.26478e+00, 0.24916e+00, 0.75261e-02,-0.43549e-04, 0.44923e-02,
     a-0.38501e-04, 0.45900e+04, 0.46000e+04,
     a 0.94057e+00, 0.32245e+00, 0.19994e-02,-0.21568e-04,-0.10356e-02,
     a-0.16390e-04, 0.46000e+04, 0.46100e+04,
     a 0.16283e+01, 0.34503e+00,-0.20670e-02,-0.59246e-05,-0.51076e-02,
     a-0.79763e-07, 0.46100e+04, 0.46200e+04,
     a 0.11361e+01, 0.39643e+00,-0.42841e-02, 0.25773e-05,-0.75040e-02,
     a 0.92053e-05, 0.46200e+04, 0.46300e+04,
     a 0.13595e+01, 0.42824e+00,-0.43267e-02, 0.27527e-05,-0.75382e-02,
     a 0.93660e-05, 0.46300e+04, 0.46400e+04,
     a 0.23450e+01, 0.50390e+00,-0.13021e-02,-0.81896e-05,-0.42803e-02,
     a-0.31004e-05, 0.46400e+04, 0.46500e+04,
     a 0.73444e+00, 0.57859e+00, 0.61120e-02,-0.33071e-04, 0.44533e-02,
     a-0.33529e-04, 0.46500e+04, 0.46600e+04/
       data ((acr(k,j),k=1,8),j=217,224) /
     a 0.38422e-01, 0.23935e+00, 0.23650e-01,-0.10589e-03, 0.20573e-01,
     a-0.10116e-03, 0.46600e+04, 0.46700e+04,
     a 0.16643e+00, 0.21059e+00, 0.17844e-01,-0.84429e-04, 0.15076e-01,
     a-0.80351e-04, 0.46700e+04, 0.46800e+04,
     a 0.66361e+00, 0.33032e+00, 0.12376e-01,-0.59085e-04, 0.11640e-01,
     a-0.59740e-04, 0.46800e+04, 0.46900e+04,
     a 0.24086e+01, 0.43220e+00, 0.69608e-02,-0.36434e-04, 0.66271e-02,
     a-0.38146e-04, 0.46900e+04, 0.47000e+04,
     a 0.57007e+01, 0.46363e+00, 0.24374e-02,-0.18500e-04, 0.21804e-02,
     a-0.20294e-04, 0.47000e+04, 0.47100e+04,
     a 0.11243e+02, 0.58097e+00,-0.13313e-02,-0.41463e-05,-0.17350e-02,
     a-0.48882e-05, 0.47100e+04, 0.47200e+04,
     a 0.78568e+01, 0.66135e+00,-0.35465e-02, 0.43994e-05,-0.41602e-02,
     a 0.45248e-05, 0.47200e+04, 0.47300e+04,
     a 0.94234e+01, 0.73404e+00,-0.35684e-02, 0.46120e-05,-0.40476e-02,
     a 0.43652e-05, 0.47300e+04, 0.47400e+04/
       data ((acr(k,j),k=1,8),j=225,232) /
     a 0.18463e+02, 0.10659e+01, 0.11174e-05,-0.75689e-05,-0.14938e-03,
     a-0.10350e-04, 0.47400e+04, 0.47500e+04,
     a 0.29519e+01, 0.92577e+00, 0.93350e-02,-0.40974e-04, 0.10093e-01,
     a-0.50109e-04, 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.57081e-01, 0.26504e+00, 0.21749e-03,-0.14991e-04,-0.28657e-02,
     a-0.92093e-05, 0.49500e+04, 0.49600e+04,
     a 0.89281e-01, 0.35365e+00,-0.29091e-02,-0.26962e-05,-0.59925e-02,
     a 0.34121e-05, 0.49600e+04, 0.49700e+04,
     a 0.46911e+00, 0.11088e+01,-0.15343e-02,-0.45097e-05,-0.43859e-02,
     a-0.95143e-06, 0.49700e+04, 0.49800e+04/
       data ((acr(k,j),k=1,8),j=249,256) /
     a 0.18580e+00, 0.71004e+00, 0.22264e-03, 0.54082e-05,-0.22981e-02,
     a 0.34446e-06, 0.49800e+04, 0.49900e+04,
     a 0.30113e+00, 0.63162e+00, 0.34248e-02,-0.24398e-04,-0.20190e-03,
     a-0.18173e-04, 0.49900e+04, 0.50000e+04,
     a 0.54259e+00, 0.33048e+00, 0.14963e-03,-0.14443e-04,-0.28875e-02,
     a-0.89818e-05, 0.50000e+04, 0.50100e+04,
     a 0.69468e+00, 0.35696e+00,-0.31719e-02,-0.16864e-05,-0.62635e-02,
     a 0.44718e-05, 0.50100e+04, 0.50200e+04,
     a 0.31258e+00, 0.41285e+00,-0.47292e-02, 0.42957e-05,-0.79123e-02,
     a 0.10784e-04, 0.50200e+04, 0.50300e+04,
     a 0.96290e+00, 0.50181e+00,-0.34905e-02,-0.30499e-06,-0.66561e-02,
     a 0.60560e-05, 0.50300e+04, 0.50400e+04,
     a 0.75559e+00, 0.53500e+00, 0.12181e-02,-0.16925e-04,-0.15139e-02,
     a-0.13577e-04, 0.50400e+04, 0.50500e+04,
     a 0.89652e-01, 0.35481e+00, 0.10413e-01,-0.53691e-04, 0.78717e-02,
     a-0.50854e-04, 0.50500e+04, 0.50600e+04/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
