      subroutine    ozon1(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     ozone (2500 - 5040 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.62007e-01, 0.24365e+01,-0.59503e-03,-0.81198e-05,-0.39418e-02,
     a-0.24624e-05, 0.25000e+04, 0.25100e+04,
     a 0.23839e-01, 0.23534e+01, 0.37377e-02,-0.61500e-05, 0.15592e-02,
     a-0.12727e-04, 0.25100e+04, 0.25200e+04,
     a 0.90127e-02, 0.12172e+01,-0.14733e-02,-0.47053e-05,-0.42092e-02,
     a-0.15909e-05, 0.25200e+04, 0.25300e+04,
     a 0.58863e-02, 0.11000e+01, 0.33397e-03,-0.13388e-04,-0.24956e-02,
     a-0.97955e-05, 0.25300e+04, 0.25400e+04,
     a 0.21326e-02, 0.57054e+00, 0.25704e-02,-0.23597e-04,-0.26961e-03,
     a-0.19566e-04, 0.25400e+04, 0.25500e+04,
     a 0.26378e-03, 0.95762e-01, 0.21816e-02,-0.24506e-04,-0.89441e-03,
     a-0.18362e-04, 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.12538e-03, 0.60370e-01, 0.17057e-01,-0.83526e-04, 0.13989e-01,
     a-0.77656e-04, 0.26100e+04, 0.26200e+04,
     a 0.33172e-02, 0.12606e+01, 0.15787e-01,-0.69353e-04, 0.13123e-01,
     a-0.68937e-04, 0.26200e+04, 0.26300e+04,
     a 0.87130e-02, 0.22667e+01, 0.14103e-01,-0.57967e-04, 0.11482e-01,
     a-0.59919e-04, 0.26300e+04, 0.26400e+04,
     a 0.17200e-01, 0.31440e+01, 0.11768e-01,-0.48179e-04, 0.88246e-02,
     a-0.49702e-04, 0.26400e+04, 0.26500e+04,
     a 0.34158e-01, 0.35816e+01, 0.99884e-02,-0.41840e-04, 0.74214e-02,
     a-0.44219e-04, 0.26500e+04, 0.26600e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.58424e-01, 0.38732e+01, 0.72077e-02,-0.33325e-04, 0.45290e-02,
     a-0.33709e-04, 0.26600e+04, 0.26700e+04,
     a 0.91154e-01, 0.43262e+01, 0.58558e-02,-0.28338e-04, 0.36931e-02,
     a-0.28993e-04, 0.26700e+04, 0.26800e+04,
     a 0.14108e+00, 0.44142e+01, 0.30363e-02,-0.18897e-04, 0.83735e-03,
     a-0.18016e-04, 0.26800e+04, 0.26900e+04,
     a 0.19337e+00, 0.54007e+01, 0.22914e-02,-0.13229e-04, 0.59045e-03,
     a-0.14091e-04, 0.26900e+04, 0.27000e+04,
     a 0.22397e+00, 0.56540e+01, 0.40913e-03,-0.55214e-07,-0.43370e-03,
     a-0.10921e-05, 0.27000e+04, 0.27100e+04,
     a 0.25652e+00, 0.59001e+01, 0.16172e-02, 0.58755e-05, 0.13629e-02,
     a-0.16939e-05, 0.27100e+04, 0.27200e+04,
     a 0.26204e+00, 0.63198e+01, 0.46886e-02, 0.12500e-04, 0.44002e-02,
     a-0.93401e-05, 0.27200e+04, 0.27300e+04,
     a 0.11785e+01, 0.71393e+01, 0.37596e-02,-0.75943e-05, 0.28497e-02,
     a-0.16442e-04, 0.27300e+04, 0.27400e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.12094e+01, 0.52539e+01, 0.56671e-02,-0.27298e-04, 0.28397e-02,
     a-0.22464e-04, 0.27400e+04, 0.27500e+04,
     a 0.26976e+01, 0.46649e+01, 0.25634e-02,-0.20935e-04, 0.31356e-03,
     a-0.17037e-04, 0.27500e+04, 0.27600e+04,
     a 0.52789e+01, 0.45914e+01,-0.73997e-03,-0.92529e-05,-0.21265e-02,
     a-0.83858e-05, 0.27600e+04, 0.27700e+04,
     a 0.56110e+01, 0.61724e+01,-0.32253e-02, 0.25797e-05,-0.28278e-02,
     a 0.87898e-07, 0.27700e+04, 0.27800e+04,
     a 0.49280e+01, 0.94156e+01,-0.20334e-02, 0.19294e-05,-0.30249e-02,
     a-0.10690e-05, 0.27800e+04, 0.27900e+04,
     a 0.98978e+01, 0.72560e+01,-0.24986e-02,-0.15096e-05,-0.36608e-02,
     a-0.58064e-06, 0.27900e+04, 0.28000e+04,
     a 0.33206e+01, 0.93181e+01, 0.47633e-02,-0.25074e-04, 0.53638e-02,
     a-0.32113e-04, 0.28000e+04, 0.28100e+04,
     a 0.24740e-01, 0.26388e+01, 0.70889e-02,-0.32967e-04, 0.46677e-02,
     a-0.34491e-04, 0.28100e+04, 0.28200e+04/
       data ((acr(k,j),k=1,8),j= 33, 40) /
     a 0.34545e-01, 0.29892e+01, 0.49198e-02,-0.26380e-04, 0.26057e-02,
     a-0.25038e-04, 0.28200e+04, 0.28300e+04,
     a 0.46980e-01, 0.42340e+01, 0.50308e-02,-0.15985e-04, 0.30829e-02,
     a-0.21189e-04, 0.28300e+04, 0.28400e+04,
     a 0.72430e-01, 0.50065e+01, 0.59166e-02,-0.20703e-04, 0.28776e-02,
     a-0.23414e-04, 0.28400e+04, 0.28500e+04,
     a 0.11034e+00, 0.40562e+01, 0.40989e-02,-0.23368e-04, 0.84200e-03,
     a-0.18356e-04, 0.28500e+04, 0.28600e+04,
     a 0.12579e+00, 0.36106e+01, 0.11211e-02,-0.12332e-04,-0.86040e-03,
     a-0.10593e-04, 0.28600e+04, 0.28700e+04,
     a 0.95405e-01, 0.42611e+01, 0.10479e-02,-0.53844e-05,-0.65774e-03,
     a-0.83477e-05, 0.28700e+04, 0.28800e+04,
     a 0.92029e-01, 0.43877e+01, 0.13349e-02,-0.88914e-05,-0.89780e-03,
     a-0.96010e-05, 0.28800e+04, 0.28900e+04,
     a 0.85314e-01, 0.22957e+01,-0.10376e-02,-0.39555e-06,-0.23459e-02,
     a-0.31759e-05, 0.28900e+04, 0.29000e+04/
       data ((acr(k,j),k=1,8),j= 41, 48) /
     a 0.19130e+00, 0.21329e+01, 0.93145e-04,-0.10935e-04,-0.23306e-02,
     a-0.70411e-05, 0.29000e+04, 0.29100e+04,
     a 0.14327e+00, 0.30363e+01, 0.49245e-02,-0.19969e-04, 0.19913e-02,
     a-0.19177e-04, 0.29100e+04, 0.29200e+04,
     a 0.62081e-01, 0.29232e+01, 0.28349e-02, 0.45083e-05, 0.26887e-02,
     a-0.69673e-05, 0.29200e+04, 0.29300e+04,
     a 0.54536e-01, 0.25833e+01, 0.33890e-02, 0.59711e-05, 0.39633e-02,
     a 0.17060e-05, 0.29300e+04, 0.29400e+04,
     a 0.67558e-01, 0.41622e+01, 0.12948e-01, 0.18636e-04, 0.13881e-01,
     a-0.27246e-04, 0.29400e+04, 0.29500e+04,
     a 0.10694e+00, 0.42481e+01, 0.19447e-01,-0.42948e-04, 0.16908e-01,
     a-0.60648e-04, 0.29500e+04, 0.29600e+04,
     a 0.23821e+00, 0.41323e+01, 0.20561e-01,-0.85072e-04, 0.16888e-01,
     a-0.77856e-04, 0.29600e+04, 0.29700e+04,
     a 0.64222e+00, 0.37620e+01, 0.17320e-01,-0.81718e-04, 0.14625e-01,
     a-0.76520e-04, 0.29700e+04, 0.29800e+04/
       data ((acr(k,j),k=1,8),j= 49, 56) /
     a 0.16300e+01, 0.37899e+01, 0.13216e-01,-0.65623e-04, 0.11621e-01,
     a-0.63803e-04, 0.29800e+04, 0.29900e+04,
     a 0.38611e+01, 0.40234e+01, 0.91789e-02,-0.49247e-04, 0.82148e-02,
     a-0.48334e-04, 0.29900e+04, 0.30000e+04,
     a 0.84985e+01, 0.43660e+01, 0.53518e-02,-0.33739e-04, 0.46322e-02,
     a-0.33282e-04, 0.30000e+04, 0.30100e+04,
     a 0.16437e+02, 0.46428e+01, 0.18372e-02,-0.19254e-04, 0.14965e-02,
     a-0.19554e-04, 0.30100e+04, 0.30200e+04,
     a 0.26227e+02, 0.52685e+01,-0.10368e-02,-0.69200e-05,-0.10546e-02,
     a-0.78474e-05, 0.30200e+04, 0.30300e+04,
     a 0.29674e+02, 0.69683e+01,-0.27894e-02, 0.15655e-05,-0.27673e-02,
     a 0.34286e-06, 0.30300e+04, 0.30400e+04,
     a 0.24306e+02, 0.95097e+01,-0.20740e-02, 0.62838e-05,-0.20776e-02,
     a 0.21790e-05, 0.30400e+04, 0.30500e+04,
     a 0.63521e+02, 0.98031e+01,-0.12075e-02,-0.29940e-05,-0.22793e-02,
     a-0.53779e-05, 0.30500e+04, 0.30600e+04/
       data ((acr(k,j),k=1,8),j= 57, 64) /
     a 0.11941e+01, 0.54609e+01, 0.15524e-02,-0.95161e-05,-0.96618e-03,
     a-0.76711e-05, 0.30600e+04, 0.30700e+04,
     a 0.92867e+00, 0.53550e+01,-0.62368e-03,-0.36430e-05,-0.29524e-02,
     a-0.16001e-05, 0.30700e+04, 0.30800e+04,
     a 0.67841e+00, 0.52135e+01, 0.52350e-03, 0.60726e-05,-0.37339e-03,
     a-0.23662e-05, 0.30800e+04, 0.30900e+04,
     a 0.31429e+01, 0.52297e+01, 0.17001e-02,-0.80369e-05,-0.25270e-03,
     a-0.92399e-05, 0.30900e+04, 0.31000e+04,
     a 0.55537e+00, 0.40641e+01,-0.84176e-03, 0.37400e-06,-0.20788e-02,
     a-0.83774e-06, 0.31000e+04, 0.31100e+04,
     a 0.62683e+00, 0.41264e+01,-0.64674e-03,-0.84882e-06,-0.59275e-03,
     a-0.14998e-05, 0.31100e+04, 0.31200e+04,
     a 0.75072e+00, 0.56505e+01, 0.24151e-02,-0.88833e-05, 0.24005e-02,
     a-0.14915e-04, 0.31200e+04, 0.31300e+04,
     a 0.63692e+00, 0.52929e+01, 0.52702e-02,-0.20599e-04, 0.49282e-02,
     a-0.29353e-04, 0.31300e+04, 0.31400e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.69310e+00, 0.57878e+01, 0.69797e-02,-0.36776e-04, 0.52917e-02,
     a-0.36700e-04, 0.31400e+04, 0.31500e+04,
     a 0.10593e+01, 0.50675e+01, 0.40985e-02,-0.25996e-04, 0.32401e-02,
     a-0.28071e-04, 0.31500e+04, 0.31600e+04,
     a 0.17493e+01, 0.45943e+01,-0.18037e-03,-0.86286e-05, 0.25807e-03,
     a-0.10009e-04, 0.31600e+04, 0.31700e+04,
     a 0.20855e+01, 0.59045e+01,-0.22784e-02, 0.14682e-05,-0.24776e-02,
     a-0.29964e-05, 0.31700e+04, 0.31800e+04,
     a 0.13759e+01, 0.54986e+01,-0.34094e-02, 0.26712e-05,-0.53592e-02,
     a 0.56885e-05, 0.31800e+04, 0.31900e+04,
     a 0.39230e+01, 0.83024e+01,-0.18506e-02,-0.35742e-06,-0.24786e-02,
     a-0.11732e-05, 0.31900e+04, 0.32000e+04,
     a 0.11841e+01, 0.51604e+01, 0.39237e-02,-0.22108e-04, 0.38274e-02,
     a-0.27628e-04, 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.55594e-03, 0.13449e+00, 0.14580e-03,-0.15828e-04,-0.29023e-02,
     a-0.10057e-04, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37700e+04, 0.37800e+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.37800e+04, 0.37900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.37900e+04, 0.38000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38000e+04, 0.38100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38100e+04, 0.38200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38200e+04, 0.38300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38300e+04, 0.38400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38400e+04, 0.38500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38500e+04, 0.38600e+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.38600e+04, 0.38700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.38700e+04, 0.38800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40300e+04, 0.40400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40400e+04, 0.40500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40500e+04, 0.40600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40600e+04, 0.40700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.40700e+04, 0.40800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43000e+04, 0.43100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43100e+04, 0.43200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43200e+04, 0.43300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43300e+04, 0.43400e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43400e+04, 0.43500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.43500e+04, 0.43600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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
