      subroutine    meth1(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     methane (2500 - 5050 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.14454e+01, 0.47807e+00, 0.52823e-02,-0.30056e-04, 0.29030e-02,
     a-0.26860e-04, 0.25000e+04, 0.25100e+04,
     a 0.87736e+01, 0.49348e+00, 0.38511e-03,-0.60533e-05, 0.10891e-03,
     a-0.93895e-05, 0.25100e+04, 0.25200e+04,
     a 0.57188e+01, 0.51082e+00, 0.32390e-03,-0.72399e-05, 0.16424e-03,
     a-0.10608e-04, 0.25200e+04, 0.25300e+04,
     a 0.45159e+01, 0.73333e+00, 0.55152e-03,-0.25526e-05, 0.26319e-03,
     a-0.11149e-04, 0.25300e+04, 0.25400e+04,
     a 0.62089e+01, 0.57459e+00,-0.51671e-04,-0.32924e-05,-0.12056e-02,
     a-0.77167e-05, 0.25400e+04, 0.25500e+04,
     a 0.98841e+01, 0.51110e+00,-0.15575e-02, 0.17182e-05,-0.12030e-02,
     a-0.38007e-05, 0.25500e+04, 0.25600e+04,
     a 0.76169e+01, 0.80719e+00, 0.12985e-03,-0.57517e-05,-0.11789e-02,
     a-0.67688e-05, 0.25600e+04, 0.25700e+04,
     a 0.73766e+01, 0.91538e+00,-0.69626e-03,-0.98403e-07,-0.10951e-02,
     a-0.56422e-05, 0.25700e+04, 0.25800e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.79669e+01, 0.10249e+01,-0.20553e-02, 0.60631e-05,-0.25043e-02,
     a 0.12199e-05, 0.25800e+04, 0.25900e+04,
     a 0.12942e+02, 0.18227e+01, 0.16813e-02,-0.10190e-04, 0.84177e-03,
     a-0.13848e-04, 0.25900e+04, 0.26000e+04,
     a 0.11671e+02, 0.93909e+00,-0.23388e-02, 0.71737e-05,-0.30848e-02,
     a 0.10079e-04, 0.26000e+04, 0.26100e+04,
     a 0.76820e+01, 0.22382e+00,-0.36797e-02, 0.17419e-04,-0.20620e-02,
     a 0.20955e-04, 0.26100e+04, 0.26200e+04,
     a 0.56280e+01, 0.56037e+00,-0.12398e-02, 0.10260e-04,-0.14540e-02,
     a 0.81367e-05, 0.26200e+04, 0.26300e+04,
     a 0.14127e+02, 0.12843e+01, 0.76229e-04, 0.57331e-05,-0.68637e-03,
     a-0.46206e-05, 0.26300e+04, 0.26400e+04,
     a 0.90425e+01, 0.13886e+01, 0.42412e-02, 0.23021e-05, 0.40176e-02,
     a-0.20017e-04, 0.26400e+04, 0.26500e+04,
     a 0.10155e+02, 0.90252e+00, 0.90385e-05, 0.13215e-04,-0.49853e-03,
     a-0.12678e-05, 0.26500e+04, 0.26600e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.10154e+02, 0.79137e+00, 0.31844e-02,-0.32869e-05, 0.11834e-02,
     a-0.11313e-04, 0.26600e+04, 0.26700e+04,
     a 0.11725e+02, 0.70879e+00,-0.14287e-02, 0.18146e-05,-0.25033e-02,
     a-0.10406e-06, 0.26700e+04, 0.26800e+04,
     a 0.14948e+02, 0.92692e+00, 0.62395e-02,-0.33167e-04, 0.31727e-02,
     a-0.26064e-04, 0.26800e+04, 0.26900e+04,
     a 0.26279e+02, 0.87829e+00, 0.28361e-02,-0.14791e-04, 0.14018e-02,
     a-0.14682e-04, 0.26900e+04, 0.27000e+04,
     a 0.71745e+01, 0.92595e+00, 0.30055e-02,-0.27951e-05, 0.45235e-02,
     a-0.22596e-04, 0.27000e+04, 0.27100e+04,
     a 0.27757e+02, 0.81447e+00, 0.30565e-02,-0.19569e-04, 0.25866e-02,
     a-0.20025e-04, 0.27100e+04, 0.27200e+04,
     a 0.36518e+02, 0.82512e+00, 0.18262e-02,-0.15755e-04, 0.12027e-02,
     a-0.17464e-04, 0.27200e+04, 0.27300e+04,
     a 0.71564e+01, 0.77634e+00, 0.51047e-02,-0.27255e-04, 0.35280e-02,
     a-0.26912e-04, 0.27300e+04, 0.27400e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.53441e+02, 0.64417e+00,-0.76181e-04,-0.10120e-04,-0.82299e-03,
     a-0.97201e-05, 0.27400e+04, 0.27500e+04,
     a 0.38926e+02, 0.74340e+00,-0.69195e-03,-0.43135e-05, 0.21091e-03,
     a-0.69939e-05, 0.27500e+04, 0.27600e+04,
     a 0.15709e+02, 0.13287e+01, 0.30102e-02,-0.48796e-05, 0.52525e-02,
     a-0.22331e-04, 0.27600e+04, 0.27700e+04,
     a 0.54733e+02, 0.12460e+01,-0.10987e-02, 0.52563e-05, 0.22140e-02,
     a-0.12844e-04, 0.27700e+04, 0.27800e+04,
     a 0.47550e+02, 0.15791e+01, 0.84509e-03,-0.20192e-05, 0.11472e-02,
     a-0.16086e-04, 0.27800e+04, 0.27900e+04,
     a 0.66520e+02, 0.12817e+01,-0.29084e-03,-0.60279e-05,-0.13817e-02,
     a-0.79406e-05, 0.27900e+04, 0.28000e+04,
     a 0.54178e+02, 0.80208e+00,-0.20375e-02, 0.13886e-05,-0.24040e-02,
     a 0.94209e-05, 0.28000e+04, 0.28100e+04,
     a 0.53200e+02, 0.65974e+00,-0.71708e-03, 0.88569e-05,-0.25373e-03,
     a 0.11300e-04, 0.28100e+04, 0.28200e+04/
       data ((acr(k,j),k=1,8),j= 33, 40) /
     a 0.14840e+03, 0.84587e+00,-0.16143e-02, 0.20628e-05,-0.97561e-03,
     a 0.96287e-05, 0.28200e+04, 0.28300e+04,
     a 0.45290e+02, 0.13591e+01,-0.23074e-03, 0.18732e-04, 0.20323e-02,
     a 0.66780e-05, 0.28300e+04, 0.28400e+04,
     a 0.32141e+02, 0.11794e+01, 0.75732e-03, 0.50043e-04, 0.54540e-02,
     a 0.13952e-05, 0.28400e+04, 0.28500e+04,
     a 0.52919e+02, 0.85346e+00, 0.10685e-02, 0.49698e-04, 0.29632e-02,
     a 0.17290e-04, 0.28500e+04, 0.28600e+04,
     a 0.92855e+02, 0.12724e+01, 0.34021e-02, 0.31892e-04, 0.20937e-02,
     a 0.75591e-05, 0.28600e+04, 0.28700e+04,
     a 0.11515e+03, 0.16724e+01, 0.68873e-02, 0.10637e-04, 0.45477e-02,
     a-0.15654e-04, 0.28700e+04, 0.28800e+04,
     a 0.14981e+03, 0.12641e+01, 0.81325e-02,-0.11177e-05, 0.53865e-02,
     a-0.18572e-04, 0.28800e+04, 0.28900e+04,
     a 0.22546e+03, 0.83931e+00, 0.11197e-01,-0.44342e-04, 0.80886e-02,
     a-0.34016e-04, 0.28900e+04, 0.29000e+04/
       data ((acr(k,j),k=1,8),j= 41, 48) /
     a 0.33719e+03, 0.68846e+00, 0.74267e-02,-0.27002e-04, 0.51288e-02,
     a-0.17032e-04, 0.29000e+04, 0.29100e+04,
     a 0.59338e+03, 0.59397e+00, 0.62712e-02,-0.30983e-04, 0.39217e-02,
     a-0.15025e-04, 0.29100e+04, 0.29200e+04,
     a 0.81437e+03, 0.44567e+00, 0.50972e-02,-0.32548e-04, 0.37255e-02,
     a-0.18409e-04, 0.29200e+04, 0.29300e+04,
     a 0.10080e+04, 0.42373e+00, 0.27220e-02,-0.22438e-04, 0.17760e-02,
     a-0.85011e-05, 0.29300e+04, 0.29400e+04,
     a 0.12738e+04, 0.39048e+00, 0.91833e-03,-0.15902e-04, 0.38752e-03,
     a-0.61100e-05, 0.29400e+04, 0.29500e+04,
     a 0.18226e+04, 0.32354e+00,-0.83613e-03,-0.91286e-05,-0.12748e-02,
     a 0.64576e-06, 0.29500e+04, 0.29600e+04,
     a 0.11449e+04, 0.28404e+00,-0.22237e-02,-0.31413e-05,-0.15533e-02,
     a 0.40000e-05, 0.29600e+04, 0.29700e+04,
     a 0.14222e+04, 0.24694e+00,-0.34946e-02, 0.20028e-05,-0.22609e-02,
     a 0.96681e-05, 0.29700e+04, 0.29800e+04/
       data ((acr(k,j),k=1,8),j= 49, 56) /
     a 0.11299e+04, 0.25225e+00,-0.43236e-02, 0.60179e-05,-0.23072e-02,
     a 0.89383e-05, 0.29800e+04, 0.29900e+04,
     a 0.38243e+03, 0.28365e+00,-0.47369e-02, 0.11124e-04, 0.18248e-02,
     a 0.19257e-04, 0.29900e+04, 0.30000e+04,
     a 0.23112e+03, 0.28616e+01, 0.85402e-02, 0.43691e-04, 0.16112e-01,
     a-0.42673e-04, 0.30000e+04, 0.30100e+04,
     a 0.12795e+05, 0.19671e+01,-0.21206e-03,-0.14984e-05,-0.39307e-03,
     a-0.58544e-05, 0.30100e+04, 0.30200e+04,
     a 0.57869e+03, 0.79629e+00,-0.43645e-02, 0.13898e-04, 0.73408e-03,
     a-0.45626e-05, 0.30200e+04, 0.30300e+04,
     a 0.43457e+03, 0.96576e-01,-0.55811e-02, 0.12940e-04, 0.11172e-02,
     a 0.21736e-04, 0.30300e+04, 0.30400e+04,
     a 0.89949e+03, 0.11536e+00,-0.52201e-02, 0.10059e-04,-0.15874e-02,
     a 0.22277e-04, 0.30400e+04, 0.30500e+04,
     a 0.21314e+04, 0.12202e+00,-0.45842e-02, 0.63207e-05,-0.32670e-02,
     a 0.21940e-04, 0.30500e+04, 0.30600e+04/
       data ((acr(k,j),k=1,8),j= 57, 64) /
     a 0.24514e+04, 0.19437e+00,-0.35989e-02, 0.20635e-05,-0.37611e-02,
     a 0.15519e-04, 0.30600e+04, 0.30700e+04,
     a 0.18609e+04, 0.31324e+00,-0.22827e-02,-0.26816e-05,-0.14644e-02,
     a 0.84665e-05, 0.30700e+04, 0.30800e+04,
     a 0.28571e+04, 0.31940e+00,-0.83645e-03,-0.90192e-05,-0.76302e-03,
     a 0.24170e-05, 0.30800e+04, 0.30900e+04,
     a 0.19356e+04, 0.28235e+00, 0.92008e-03,-0.15863e-04, 0.10109e-02,
     a-0.13517e-05, 0.30900e+04, 0.31000e+04,
     a 0.14984e+04, 0.32994e+00, 0.28983e-02,-0.23966e-04, 0.20895e-02,
     a-0.98936e-05, 0.31000e+04, 0.31100e+04,
     a 0.12508e+04, 0.36564e+00, 0.51370e-02,-0.32908e-04, 0.37408e-02,
     a-0.18191e-04, 0.31100e+04, 0.31200e+04,
     a 0.81819e+03, 0.45356e+00, 0.75913e-02,-0.42727e-04, 0.55871e-02,
     a-0.26450e-04, 0.31200e+04, 0.31300e+04,
     a 0.48302e+03, 0.62289e+00, 0.10573e-01,-0.54032e-04, 0.75195e-02,
     a-0.38880e-04, 0.31300e+04, 0.31400e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.40516e+03, 0.10372e+01, 0.14390e-01,-0.68744e-04, 0.11121e-01,
     a-0.58648e-04, 0.31400e+04, 0.31500e+04,
     a 0.80532e+02, 0.89610e+00, 0.17980e-01,-0.69816e-04, 0.12298e-01,
     a-0.51675e-04, 0.31500e+04, 0.31600e+04,
     a 0.41171e+02, 0.85486e+00, 0.21624e-01,-0.82706e-04, 0.15717e-01,
     a-0.64082e-04, 0.31600e+04, 0.31700e+04,
     a 0.18087e+02, 0.82972e+00, 0.24369e-01,-0.82555e-04, 0.18128e-01,
     a-0.68246e-04, 0.31700e+04, 0.31800e+04,
     a 0.78303e+01, 0.77830e+00, 0.24083e-01,-0.45258e-04, 0.18125e-01,
     a-0.53074e-04, 0.31800e+04, 0.31900e+04,
     a 0.55218e+01, 0.12503e+01, 0.23406e-01,-0.12671e-05, 0.19648e-01,
     a-0.40750e-04, 0.31900e+04, 0.32000e+04,
     a 0.69216e+00, 0.51644e+00, 0.14240e-01,-0.87310e-05, 0.10860e-01,
     a-0.32732e-04, 0.32000e+04, 0.32100e+04,
     a 0.30939e+00, 0.21770e+00, 0.82095e-02,-0.44565e-04, 0.58697e-02,
     a-0.41343e-04, 0.32100e+04, 0.32200e+04/
       data ((acr(k,j),k=1,8),j= 73, 80) /
     a 0.22568e+00, 0.37985e+00, 0.12091e-01,-0.60525e-04, 0.90838e-02,
     a-0.55067e-04, 0.32200e+04, 0.32300e+04,
     a 0.18766e+00, 0.27990e+00, 0.12830e-01,-0.61005e-04, 0.10043e-01,
     a-0.57718e-04, 0.32300e+04, 0.32400e+04,
     a 0.63205e-01, 0.18476e+00, 0.14107e-01,-0.67485e-04, 0.11333e-01,
     a-0.63191e-04, 0.32400e+04, 0.32500e+04,
     a 0.28821e-01, 0.59172e-01, 0.14986e-01,-0.71903e-04, 0.12123e-01,
     a-0.67129e-04, 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.14928e-01, 0.49339e-01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37000e+04, 0.37100e+04,
     a 0.86139e-01, 0.13757e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37100e+04, 0.37200e+04,
     a 0.67083e-01, 0.12495e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37200e+04, 0.37300e+04,
     a 0.20862e-01, 0.49275e-01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37300e+04, 0.37400e+04,
     a 0.67784e-01, 0.11899e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37400e+04, 0.37500e+04,
     a 0.15027e+00, 0.18565e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37500e+04, 0.37600e+04,
     a 0.31581e+00, 0.26221e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37600e+04, 0.37700e+04,
     a 0.48086e+00, 0.29920e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37700e+04, 0.37800e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.59376e+00, 0.29431e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37800e+04, 0.37900e+04,
     a 0.18375e+01, 0.36994e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.37900e+04, 0.38000e+04,
     a 0.25355e+01, 0.40322e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38000e+04, 0.38100e+04,
     a 0.27002e+01, 0.43597e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38100e+04, 0.38200e+04,
     a 0.61651e+01, 0.55369e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38200e+04, 0.38300e+04,
     a 0.40461e+01, 0.57732e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38300e+04, 0.38400e+04,
     a 0.63365e+01, 0.67727e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38400e+04, 0.38500e+04,
     a 0.93866e+01, 0.95498e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38500e+04, 0.38600e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.20329e+02, 0.10079e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.38600e+04, 0.38700e+04,
     a 0.38488e+01, 0.60704e+00,-0.30055e-02, 0.46922e-05,-0.36436e-02,
     a-0.25739e-05, 0.38700e+04, 0.38800e+04,
     a 0.11688e+02, 0.69118e+00,-0.33148e-02, 0.30917e-05,-0.45244e-02,
     a 0.82466e-06, 0.38800e+04, 0.38900e+04,
     a 0.15787e+02, 0.75496e+00,-0.37610e-03,-0.95219e-05,-0.28616e-02,
     a-0.70360e-05, 0.38900e+04, 0.39000e+04,
     a 0.12339e+02, 0.12573e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39000e+04, 0.39100e+04,
     a 0.44035e+01, 0.11712e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39100e+04, 0.39200e+04,
     a 0.14520e+01, 0.11029e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39200e+04, 0.39300e+04,
     a 0.94805e+00, 0.51649e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39300e+04, 0.39400e+04/
       data ((acr(k,j),k=1,8),j=145,152) /
     a 0.13512e+01, 0.57924e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39400e+04, 0.39500e+04,
     a 0.12982e+01, 0.56330e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39500e+04, 0.39600e+04,
     a 0.11898e+01, 0.70340e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39600e+04, 0.39700e+04,
     a 0.12669e+01, 0.70992e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39700e+04, 0.39800e+04,
     a 0.11486e+01, 0.75703e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39800e+04, 0.39900e+04,
     a 0.94294e+00, 0.67691e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.39900e+04, 0.40000e+04,
     a 0.11722e+01, 0.71803e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40000e+04, 0.40100e+04,
     a 0.16614e+01, 0.11434e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40100e+04, 0.40200e+04/
       data ((acr(k,j),k=1,8),j=153,160) /
     a 0.13169e+01, 0.99418e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40200e+04, 0.40300e+04,
     a 0.16675e+01, 0.15586e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40300e+04, 0.40400e+04,
     a 0.22754e+01, 0.15263e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40400e+04, 0.40500e+04,
     a 0.33696e+01, 0.16140e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40500e+04, 0.40600e+04,
     a 0.44078e+01, 0.17299e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40600e+04, 0.40700e+04,
     a 0.64093e+01, 0.16235e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40700e+04, 0.40800e+04,
     a 0.88553e+01, 0.14450e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40800e+04, 0.40900e+04,
     a 0.85641e+01, 0.15633e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.40900e+04, 0.41000e+04/
       data ((acr(k,j),k=1,8),j=161,168) /
     a 0.16356e+02, 0.19485e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.41000e+04, 0.41100e+04,
     a 0.15552e+02, 0.15099e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.41100e+04, 0.41200e+04,
     a 0.23823e+02, 0.27996e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
     a-0.11177e-04, 0.41200e+04, 0.41300e+04,
     a 0.18843e+02, 0.14075e+01, 0.58105e-02,-0.26748e-04, 0.64011e-03,
     a-0.17934e-04, 0.41300e+04, 0.41400e+04,
     a 0.71651e+01, 0.45187e+00, 0.70593e-02,-0.29644e-04, 0.39603e-02,
     a-0.29724e-04, 0.41400e+04, 0.41500e+04,
     a 0.37171e+02, 0.44157e+00, 0.68418e-02,-0.38862e-04, 0.36076e-02,
     a-0.32195e-04, 0.41500e+04, 0.41600e+04,
     a 0.38158e+02, 0.32296e+00, 0.43474e-02,-0.29319e-04, 0.18500e-02,
     a-0.25238e-04, 0.41600e+04, 0.41700e+04,
     a 0.65621e+02, 0.45796e+00, 0.22774e-02,-0.20417e-04, 0.82230e-04,
     a-0.17919e-04, 0.41700e+04, 0.41800e+04/
       data ((acr(k,j),k=1,8),j=169,176) /
     a 0.79347e+02, 0.33603e+00,-0.84769e-03,-0.84263e-05,-0.34772e-02,
     a-0.36512e-05, 0.41800e+04, 0.41900e+04,
     a 0.65038e+02, 0.48190e+00,-0.14827e-02,-0.14444e-05,-0.22137e-02,
     a-0.56866e-05, 0.41900e+04, 0.42000e+04,
     a 0.86982e+02, 0.77363e+00,-0.71575e-03, 0.29104e-06,-0.17062e-02,
     a-0.57132e-05, 0.42000e+04, 0.42100e+04,
     a 0.30982e+03, 0.16801e+01,-0.89037e-03,-0.13593e-05,-0.21551e-02,
     a-0.46701e-05, 0.42100e+04, 0.42200e+04,
     a 0.81077e+02, 0.58800e+00,-0.12356e-02,-0.76610e-06,-0.26793e-02,
     a-0.44252e-05, 0.42200e+04, 0.42300e+04,
     a 0.89975e+02, 0.39899e+00,-0.39748e-02, 0.56557e-05,-0.48805e-02,
     a 0.45246e-05, 0.42300e+04, 0.42400e+04,
     a 0.14896e+03, 0.80968e+00,-0.22160e-02,-0.15823e-05,-0.39631e-02,
     a-0.29253e-06, 0.42400e+04, 0.42500e+04,
     a 0.15594e+03, 0.12514e+01, 0.45507e-03,-0.82566e-05,-0.14417e-02,
     a-0.85226e-05, 0.42500e+04, 0.42600e+04/
       data ((acr(k,j),k=1,8),j=177,184) /
     a 0.10060e+03, 0.12829e+01, 0.20903e-02,-0.16069e-04,-0.36824e-03,
     a-0.15144e-04, 0.42600e+04, 0.42700e+04,
     a 0.11704e+03, 0.15739e+01, 0.55952e-03,-0.21104e-05,-0.86496e-03,
     a-0.93941e-05, 0.42700e+04, 0.42800e+04,
     a 0.72794e+02, 0.15490e+01,-0.69688e-03,-0.31516e-05,-0.27541e-02,
     a-0.29267e-05, 0.42800e+04, 0.42900e+04,
     a 0.55269e+02, 0.72223e+00,-0.34302e-02, 0.51174e-05,-0.52484e-02,
     a 0.70355e-05, 0.42900e+04, 0.43000e+04,
     a 0.59856e+02, 0.11762e+01,-0.55565e-03, 0.20772e-06,-0.19773e-02,
     a-0.50966e-05, 0.43000e+04, 0.43100e+04,
     a 0.21817e+03, 0.22377e+01,-0.13492e-02,-0.18427e-05,-0.29966e-02,
     a-0.32329e-05, 0.43100e+04, 0.43200e+04,
     a 0.10284e+02, 0.71846e-01,-0.57696e-02, 0.98901e-05,-0.87876e-02,
     a 0.15909e-04, 0.43200e+04, 0.43300e+04,
     a 0.96725e+02, 0.88048e+00,-0.45462e-02, 0.61508e-05,-0.69991e-02,
     a 0.96787e-05, 0.43300e+04, 0.43400e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.11126e+03, 0.16893e+01,-0.24440e-02, 0.50136e-06,-0.44752e-02,
     a 0.11244e-05, 0.43400e+04, 0.43500e+04,
     a 0.10283e+03, 0.18062e+01,-0.38680e-03,-0.50005e-05,-0.21043e-02,
     a-0.68556e-05, 0.43500e+04, 0.43600e+04,
     a 0.89610e+02, 0.11851e+01,-0.66540e-03, 0.23556e-05,-0.18970e-02,
     a-0.34232e-05, 0.43600e+04, 0.43700e+04,
     a 0.66668e+02, 0.73012e+00,-0.22103e-02, 0.23323e-05,-0.30787e-02,
     a-0.56056e-06, 0.43700e+04, 0.43800e+04,
     a 0.81907e+02, 0.54144e+00,-0.25213e-02,-0.89597e-06,-0.47474e-02,
     a 0.15149e-05, 0.43800e+04, 0.43900e+04,
     a 0.90229e+02, 0.49784e+00,-0.23921e-02,-0.10143e-05,-0.43793e-02,
     a 0.46547e-06, 0.43900e+04, 0.44000e+04,
     a 0.82849e+02, 0.85204e+00,-0.10412e-03,-0.81641e-05,-0.20032e-02,
     a-0.80151e-05, 0.44000e+04, 0.44100e+04,
     a 0.44643e+02, 0.57527e+00, 0.23103e-02,-0.14133e-04, 0.85890e-03,
     a-0.18551e-04, 0.44100e+04, 0.44200e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.69032e+02, 0.78506e+00, 0.39855e-03,-0.10098e-04,-0.10159e-02,
     a-0.10449e-04, 0.44200e+04, 0.44300e+04,
     a 0.58683e+02, 0.96123e+00, 0.24151e-02,-0.18621e-04, 0.92225e-03,
     a-0.19737e-04, 0.44300e+04, 0.44400e+04,
     a 0.37181e+02, 0.10126e+01, 0.46217e-02,-0.29919e-04, 0.20589e-02,
     a-0.26447e-04, 0.44400e+04, 0.44500e+04,
     a 0.42607e+02, 0.10332e+01, 0.47981e-02,-0.30880e-04, 0.14909e-02,
     a-0.24304e-04, 0.44500e+04, 0.44600e+04,
     a 0.33113e+02, 0.94984e+00, 0.43677e-02,-0.26166e-04, 0.12754e-02,
     a-0.22104e-04, 0.44600e+04, 0.44700e+04,
     a 0.32668e+02, 0.85290e+00, 0.23495e-02,-0.16220e-04,-0.47342e-03,
     a-0.13768e-04, 0.44700e+04, 0.44800e+04,
     a 0.23216e+02, 0.83540e+00, 0.22982e-02,-0.73604e-05, 0.68926e-03,
     a-0.13485e-04, 0.44800e+04, 0.44900e+04,
     a 0.13719e+02, 0.65920e+00, 0.14982e-02,-0.62753e-05,-0.37161e-03,
     a-0.11492e-04, 0.44900e+04, 0.45000e+04/
       data ((acr(k,j),k=1,8),j=201,208) /
     a 0.16799e+02, 0.41229e+00,-0.78480e-03, 0.17545e-05,-0.12160e-02,
     a-0.71041e-05, 0.45000e+04, 0.45100e+04,
     a 0.10085e+02, 0.14021e+00,-0.37976e-02, 0.66108e-05,-0.50669e-02,
     a 0.68711e-05, 0.45100e+04, 0.45200e+04,
     a 0.31009e+01, 0.87599e-01,-0.43682e-02, 0.10148e-04,-0.57555e-02,
     a 0.10223e-04, 0.45200e+04, 0.45300e+04,
     a 0.18983e+02, 0.15932e+01, 0.14519e-02,-0.91544e-05,-0.97256e-03,
     a-0.10139e-04, 0.45300e+04, 0.45400e+04,
     a 0.63830e+02, 0.20016e+01,-0.11189e-02,-0.21104e-05,-0.28048e-02,
     a-0.38802e-05, 0.45400e+04, 0.45500e+04,
     a 0.31441e+01, 0.67773e-01,-0.40447e-02, 0.14471e-04,-0.37016e-02,
     a 0.58757e-05, 0.45500e+04, 0.45600e+04,
     a 0.21782e+01, 0.29389e-01,-0.59290e-02, 0.10501e-04,-0.89700e-02,
     a 0.16625e-04, 0.45600e+04, 0.45700e+04,
     a 0.40086e+01, 0.78646e-01,-0.53825e-02, 0.83305e-05,-0.83558e-02,
     a 0.14185e-04, 0.45700e+04, 0.45800e+04/
       data ((acr(k,j),k=1,8),j=209,216) /
     a 0.13954e+01, 0.11032e+00,-0.40678e-02, 0.31725e-05,-0.71674e-02,
     a 0.94743e-05, 0.45800e+04, 0.45900e+04,
     a 0.82827e+01, 0.13524e+00,-0.44855e-02, 0.48983e-05,-0.72447e-02,
     a 0.99023e-05, 0.45900e+04, 0.46000e+04,
     a 0.81728e+01, 0.18866e+00,-0.33132e-02, 0.41656e-06,-0.59898e-02,
     a 0.50092e-05, 0.46000e+04, 0.46100e+04,
     a 0.64947e+01, 0.31086e+00,-0.16438e-02,-0.59966e-05,-0.43498e-02,
     a-0.14967e-05, 0.46100e+04, 0.46200e+04,
     a 0.63479e+01, 0.34741e+00, 0.15663e-03,-0.12499e-04,-0.26034e-02,
     a-0.79833e-05, 0.46200e+04, 0.46300e+04,
     a 0.24602e+01, 0.20366e+00, 0.17162e-02,-0.18956e-04,-0.96600e-03,
     a-0.14741e-04, 0.46300e+04, 0.46400e+04,
     a 0.20994e+01, 0.20610e+00, 0.43640e-02,-0.26098e-04, 0.19605e-02,
     a-0.24954e-04, 0.46400e+04, 0.46500e+04,
     a 0.16635e+01, 0.21606e+00, 0.38987e-02,-0.27059e-04, 0.10590e-02,
     a-0.22496e-04, 0.46500e+04, 0.46600e+04/
       data ((acr(k,j),k=1,8),j=217,224) /
     a 0.91480e+00, 0.11908e+00, 0.55341e-02,-0.35022e-04, 0.24910e-02,
     a-0.29056e-04, 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
