      subroutine    dica1(a,inu)
       real a(8)
       real acr(8,256)
      integer inu,j,k,i
c     carbon dioxide (2500 - 5050 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.11446e-04, 0.20117e-02,-0.41334e-02, 0.32304e-05,-0.69982e-02,
     a 0.90084e-05, 0.25000e+04, 0.25100e+04,
     a 0.19234e-04, 0.19311e-02,-0.17326e-02,-0.58646e-05,-0.45311e-02,
     a-0.60352e-06, 0.25100e+04, 0.25200e+04,
     a 0.92020e-05, 0.17952e-02, 0.34861e-02,-0.25260e-04, 0.58777e-03,
     a-0.20915e-04, 0.25200e+04, 0.25300e+04,
     a 0.16374e-05, 0.18281e-02, 0.10418e-01,-0.43535e-04, 0.74404e-02,
     a-0.41207e-04, 0.25300e+04, 0.25400e+04,
     a 0.19079e-06, 0.10034e-02, 0.11048e-01,-0.97390e-05, 0.10458e-01,
     a-0.37165e-04, 0.25400e+04, 0.25500e+04,
     a 0.34315e-08, 0.24238e-04, 0.54443e-02,-0.35215e-04, 0.21600e-02,
     a-0.28602e-04, 0.25500e+04, 0.25600e+04,
     a 0.82488e-08, 0.12211e-03, 0.26474e-01,-0.11937e-03, 0.23595e-01,
     a-0.11358e-03, 0.25600e+04, 0.25700e+04,
     a 0.64587e-06, 0.14539e-02, 0.17175e-01,-0.77312e-04, 0.15125e-01,
     a-0.76621e-04, 0.25700e+04, 0.25800e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.54268e-05, 0.15777e-02, 0.78126e-02,-0.42151e-04, 0.51843e-02,
     a-0.39096e-04, 0.25800e+04, 0.25900e+04,
     a 0.20993e-04, 0.24666e-02, 0.15156e-02,-0.14469e-04, 0.14551e-02,
     a-0.12874e-04, 0.25900e+04, 0.26000e+04,
     a 0.31892e-04, 0.32261e-02,-0.24271e-02, 0.14275e-05,-0.24514e-02,
     a 0.25977e-05, 0.26000e+04, 0.26100e+04,
     a 0.11919e-04, 0.29607e-02,-0.37722e-02, 0.72919e-05,-0.40640e-02,
     a 0.74420e-05, 0.26100e+04, 0.26200e+04,
     a 0.35396e-04, 0.31915e-02,-0.24421e-02,-0.54413e-06,-0.29857e-02,
     a 0.77772e-06, 0.26200e+04, 0.26300e+04,
     a 0.22174e-04, 0.31839e-02, 0.22430e-02,-0.16625e-04, 0.17446e-02,
     a-0.17477e-04, 0.26300e+04, 0.26400e+04,
     a 0.49654e-05, 0.31706e-02, 0.96026e-02,-0.41529e-04, 0.87311e-02,
     a-0.44510e-04, 0.26400e+04, 0.26500e+04,
     a 0.59768e-06, 0.13719e-02, 0.76702e-02, 0.13005e-04, 0.90078e-02,
     a-0.24905e-04, 0.26500e+04, 0.26600e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.13394e-06, 0.32465e-03, 0.37114e-02,-0.26108e-04, 0.93326e-03,
     a-0.22404e-04, 0.26600e+04, 0.26700e+04,
     a 0.91010e-08, 0.71741e-04, 0.10072e-01,-0.53553e-04, 0.68917e-02,
     a-0.47305e-04, 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.30498e-06, 0.12211e-02, 0.11385e-01,-0.57015e-04, 0.86760e-02,
     a-0.53344e-04, 0.27200e+04, 0.27300e+04,
     a 0.23044e-05, 0.18735e-02, 0.31625e-02,-0.23857e-04, 0.42583e-03,
     a-0.20332e-04, 0.27300e+04, 0.27400e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.45870e-05, 0.20082e-02,-0.21166e-02,-0.43444e-05,-0.48776e-02,
     a 0.87140e-06, 0.27400e+04, 0.27500e+04,
     a 0.18151e-05, 0.17780e-02,-0.43591e-02, 0.39928e-05,-0.74161e-02,
     a 0.10271e-04, 0.27500e+04, 0.27600e+04,
     a 0.43155e-05, 0.21845e-02,-0.35667e-02, 0.10325e-05,-0.64484e-02,
     a 0.69079e-05, 0.27600e+04, 0.27700e+04,
     a 0.35601e-05, 0.15853e-02,-0.24397e-03,-0.11623e-04,-0.30932e-02,
     a-0.66664e-05, 0.27700e+04, 0.27800e+04,
     a 0.14023e-05, 0.17421e-02, 0.52527e-02,-0.31584e-04, 0.22672e-02,
     a-0.26978e-04, 0.27800e+04, 0.27900e+04,
     a 0.19517e-06, 0.10843e-02, 0.11752e-01,-0.50614e-04, 0.90578e-02,
     a-0.50929e-04, 0.27900e+04, 0.28000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28000e+04, 0.28100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28100e+04, 0.28200e+04/
       data ((acr(k,j),k=1,8),j= 33, 40) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28200e+04, 0.28300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28300e+04, 0.28400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28400e+04, 0.28500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28500e+04, 0.28600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28600e+04, 0.28700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28700e+04, 0.28800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28800e+04, 0.28900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.28900e+04, 0.29000e+04/
       data ((acr(k,j),k=1,8),j= 41, 48) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29000e+04, 0.29100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29100e+04, 0.29200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29200e+04, 0.29300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29300e+04, 0.29400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29400e+04, 0.29500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29500e+04, 0.29600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29600e+04, 0.29700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29700e+04, 0.29800e+04/
       data ((acr(k,j),k=1,8),j= 49, 56) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29800e+04, 0.29900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.29900e+04, 0.30000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30000e+04, 0.30100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30100e+04, 0.30200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30200e+04, 0.30300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30300e+04, 0.30400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30400e+04, 0.30500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30500e+04, 0.30600e+04/
       data ((acr(k,j),k=1,8),j= 57, 64) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30600e+04, 0.30700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.30700e+04, 0.30800e+04,
     a 0.33052e-05, 0.58651e-01, 0.34989e-01,-0.15290e-03, 0.31987e-01,
     a-0.14721e-03, 0.30800e+04, 0.30900e+04,
     a 0.41503e-04, 0.20207e+00, 0.26206e-01,-0.11436e-03, 0.23672e-01,
     a-0.11213e-03, 0.30900e+04, 0.31000e+04,
     a 0.87906e-04, 0.21783e+00, 0.18422e-01,-0.85123e-04, 0.15304e-01,
     a-0.79850e-04, 0.31000e+04, 0.31100e+04,
     a 0.29489e-04, 0.12859e+00, 0.14066e-01,-0.69404e-04, 0.11044e-01,
     a-0.63254e-04, 0.31100e+04, 0.31200e+04,
     a 0.31118e-04, 0.29810e+00, 0.25033e-01,-0.11155e-03, 0.22143e-01,
     a-0.10719e-03, 0.31200e+04, 0.31300e+04,
     a 0.14832e-03, 0.71060e+00, 0.18309e-01,-0.70285e-04, 0.15857e-01,
     a-0.73742e-04, 0.31300e+04, 0.31400e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.50912e-03, 0.39631e+00, 0.16927e-01,-0.77076e-04, 0.14306e-01,
     a-0.74481e-04, 0.31400e+04, 0.31500e+04,
     a 0.18569e-02, 0.28375e+00, 0.76498e-02,-0.36249e-04, 0.67089e-02,
     a-0.36791e-04, 0.31500e+04, 0.31600e+04,
     a 0.23217e-02, 0.34970e+00, 0.10351e-02,-0.10688e-04, 0.94905e-03,
     a-0.67349e-05, 0.31600e+04, 0.31700e+04,
     a 0.47610e-03, 0.41947e+00, 0.19347e-02, 0.16317e-04, 0.33594e-02,
     a-0.79441e-05, 0.31700e+04, 0.31800e+04,
     a 0.46778e-03, 0.77616e+00, 0.79129e-03, 0.23675e-04, 0.91006e-03,
     a 0.48023e-05, 0.31800e+04, 0.31900e+04,
     a 0.30862e-02, 0.25667e+00,-0.14396e-02,-0.41338e-05,-0.27351e-02,
     a 0.64924e-05, 0.31900e+04, 0.32000e+04,
     a 0.34062e-02, 0.18499e+00, 0.32590e-02,-0.24779e-04, 0.21425e-03,
     a-0.19664e-04, 0.32000e+04, 0.32100e+04,
     a 0.14366e-02, 0.17452e+00, 0.10436e-01,-0.52210e-04, 0.77713e-02,
     a-0.49107e-04, 0.32100e+04, 0.32200e+04/
       data ((acr(k,j),k=1,8),j= 73, 80) /
     a 0.26116e-03, 0.16068e+00, 0.20114e-01,-0.89663e-04, 0.17964e-01,
     a-0.88666e-04, 0.32200e+04, 0.32300e+04,
     a 0.34080e-04, 0.26237e+00, 0.31854e-01,-0.13724e-03, 0.29565e-01,
     a-0.13533e-03, 0.32300e+04, 0.32400e+04,
     a 0.38044e-04, 0.18154e+00, 0.23462e-01,-0.10477e-03, 0.20484e-01,
     a-0.10031e-03, 0.32400e+04, 0.32500e+04,
     a 0.23642e-04, 0.12587e+00, 0.17930e-01,-0.83993e-04, 0.14725e-01,
     a-0.78063e-04, 0.32500e+04, 0.32600e+04,
     a 0.13555e-05, 0.21856e-02, 0.43607e-02,-0.29254e-04, 0.12372e-02,
     a-0.24119e-04, 0.32600e+04, 0.32700e+04,
     a 0.35631e-03, 0.86373e+00, 0.15491e-01,-0.60741e-04, 0.14051e-01,
     a-0.61126e-04, 0.32700e+04, 0.32800e+04,
     a 0.33068e-03, 0.41597e+00, 0.17080e-01,-0.45243e-04, 0.18249e-01,
     a-0.61327e-04, 0.32800e+04, 0.32900e+04,
     a 0.13980e-02, 0.43415e+00, 0.20779e-01,-0.87100e-04, 0.19046e-01,
     a-0.84016e-04, 0.32900e+04, 0.33000e+04/
       data ((acr(k,j),k=1,8),j= 81, 88) /
     a 0.54038e-02, 0.37316e+00, 0.13012e-01,-0.54513e-04, 0.14582e-01,
     a-0.61135e-04, 0.33000e+04, 0.33100e+04,
     a 0.11865e-01, 0.37215e+00, 0.53330e-02,-0.24891e-04, 0.77872e-02,
     a-0.23154e-04, 0.33100e+04, 0.33200e+04,
     a 0.81717e-02, 0.45864e+00, 0.70369e-03,-0.25399e-05, 0.32045e-02,
     a-0.21463e-05, 0.33200e+04, 0.33300e+04,
     a 0.67313e-02, 0.55963e+00,-0.20245e-02, 0.26702e-05,-0.24299e-02,
     a 0.17770e-04, 0.33300e+04, 0.33400e+04,
     a 0.13254e-01, 0.74729e+00,-0.18150e-02, 0.54501e-05, 0.13181e-02,
     a-0.43636e-06, 0.33400e+04, 0.33500e+04,
     a 0.36823e-01, 0.36421e+00,-0.20100e-03,-0.58593e-05, 0.13324e-02,
     a-0.23987e-05, 0.33500e+04, 0.33600e+04,
     a 0.35439e-01, 0.40306e+00, 0.54434e-02,-0.26546e-04, 0.67677e-02,
     a-0.28288e-04, 0.33600e+04, 0.33700e+04,
     a 0.90957e-02, 0.48115e+00, 0.14512e-01,-0.61088e-04, 0.16771e-01,
     a-0.65673e-04, 0.33700e+04, 0.33800e+04/
       data ((acr(k,j),k=1,8),j= 89, 96) /
     a 0.15199e-02, 0.65754e+00, 0.23451e-01,-0.86000e-04, 0.24073e-01,
     a-0.89238e-04, 0.33800e+04, 0.33900e+04,
     a 0.13838e-03, 0.96599e+00, 0.27438e-01,-0.37378e-04, 0.26069e-01,
     a-0.72896e-04, 0.33900e+04, 0.34000e+04,
     a 0.31321e-03, 0.32432e+00, 0.14691e-01,-0.45546e-04, 0.17860e-01,
     a-0.40560e-04, 0.34000e+04, 0.34100e+04,
     a 0.96318e-03, 0.34642e+00, 0.17708e-01,-0.66986e-04, 0.20408e-01,
     a-0.53348e-04, 0.34100e+04, 0.34200e+04,
     a 0.61782e-03, 0.30724e+00, 0.25990e-01,-0.89579e-04, 0.25999e-01,
     a-0.98228e-04, 0.34200e+04, 0.34300e+04,
     a 0.40506e-03, 0.30755e+00, 0.38698e-01,-0.16162e-03, 0.35406e-01,
     a-0.15721e-03, 0.34300e+04, 0.34400e+04,
     a 0.11183e-02, 0.23650e+00, 0.34497e-01,-0.14952e-03, 0.32465e-01,
     a-0.14642e-03, 0.34400e+04, 0.34500e+04,
     a 0.18653e-02, 0.34796e+00, 0.29814e-01,-0.12999e-03, 0.26883e-01,
     a-0.12450e-03, 0.34500e+04, 0.34600e+04/
       data ((acr(k,j),k=1,8),j= 97,104) /
     a 0.35542e-02, 0.40556e+00, 0.17369e-01,-0.57102e-04, 0.19546e-01,
     a-0.46731e-04, 0.34600e+04, 0.34700e+04,
     a 0.90605e-02, 0.50199e+00, 0.12281e-01, 0.23330e-06, 0.19920e-01,
     a 0.27162e-04, 0.34700e+04, 0.34800e+04,
     a 0.84210e-02, 0.71350e+00, 0.11986e-01, 0.73480e-04, 0.24636e-01,
     a 0.81574e-04, 0.34800e+04, 0.34900e+04,
     a 0.60886e-02, 0.96120e+00, 0.23574e-01, 0.10867e-03, 0.44783e-01,
     a-0.72014e-04, 0.34900e+04, 0.35000e+04,
     a 0.35622e-01, 0.16535e+01, 0.12077e-01, 0.13532e-03, 0.22120e-01,
     a 0.80854e-04, 0.35000e+04, 0.35100e+04,
     a 0.78238e-01, 0.13688e+01, 0.16785e-01, 0.14511e-03, 0.32327e-01,
     a-0.12296e-04, 0.35100e+04, 0.35200e+04,
     a 0.17292e+00, 0.16314e+01, 0.28411e-01,-0.40866e-05, 0.33279e-01,
     a-0.83910e-04, 0.35200e+04, 0.35300e+04,
     a 0.58094e+00, 0.14177e+01, 0.30478e-01,-0.92280e-04, 0.32074e-01,
     a-0.11676e-03, 0.35300e+04, 0.35400e+04/
       data ((acr(k,j),k=1,8),j=105,112) /
     a 0.19973e+01, 0.10662e+01, 0.26332e-01,-0.10563e-03, 0.27668e-01,
     a-0.10860e-03, 0.35400e+04, 0.35500e+04,
     a 0.58904e+01, 0.85364e+00, 0.20626e-01,-0.87922e-04, 0.22034e-01,
     a-0.87919e-04, 0.35500e+04, 0.35600e+04,
     a 0.16608e+02, 0.82681e+00, 0.16296e-01,-0.71970e-04, 0.16508e-01,
     a-0.68914e-04, 0.35600e+04, 0.35700e+04,
     a 0.33940e+02, 0.67293e+00, 0.11756e-01,-0.55546e-04, 0.12667e-01,
     a-0.50727e-04, 0.35700e+04, 0.35800e+04,
     a 0.10589e+03, 0.40519e+00, 0.53354e-02,-0.30500e-04, 0.64200e-02,
     a-0.27269e-04, 0.35800e+04, 0.35900e+04,
     a 0.28658e+03, 0.37875e+00, 0.31591e-03,-0.76033e-05, 0.17571e-02,
     a-0.69331e-05, 0.35900e+04, 0.36000e+04,
     a 0.25881e+03, 0.31632e+00,-0.31299e-02, 0.53577e-05,-0.14554e-02,
     a 0.16811e-04, 0.36000e+04, 0.36100e+04,
     a 0.15398e+03, 0.23899e+00,-0.42487e-02, 0.56295e-05,-0.38259e-02,
     a 0.28640e-04, 0.36100e+04, 0.36200e+04/
       data ((acr(k,j),k=1,8),j=113,120) /
     a 0.38154e+03, 0.23690e+00,-0.21079e-02,-0.42102e-05,-0.46108e-02,
     a 0.46494e-05, 0.36200e+04, 0.36300e+04,
     a 0.18908e+03, 0.24104e+00, 0.34870e-02,-0.24525e-04, 0.12111e-02,
     a-0.18690e-04, 0.36300e+04, 0.36400e+04,
     a 0.22631e+02, 0.27596e+00, 0.13843e-01,-0.60817e-04, 0.13983e-01,
     a-0.55436e-04, 0.36400e+04, 0.36500e+04,
     a 0.78900e+00, 0.45834e+00, 0.28800e-01,-0.92261e-04, 0.33526e-01,
     a-0.11634e-03, 0.36500e+04, 0.36600e+04,
     a 0.35516e+01, 0.24747e+00, 0.21606e-01,-0.91483e-04, 0.25091e-01,
     a-0.77825e-04, 0.36600e+04, 0.36700e+04,
     a 0.26382e+02, 0.26344e+00, 0.13128e-01,-0.59351e-04, 0.15813e-01,
     a-0.45315e-04, 0.36700e+04, 0.36800e+04,
     a 0.11451e+03, 0.25517e+00, 0.61726e-02,-0.32903e-04, 0.88361e-02,
     a-0.18560e-04, 0.36800e+04, 0.36900e+04,
     a 0.37587e+03, 0.29958e+00, 0.61303e-03,-0.10823e-04, 0.25691e-02,
     a 0.25921e-05, 0.36900e+04, 0.37000e+04/
       data ((acr(k,j),k=1,8),j=121,128) /
     a 0.39912e+03, 0.32406e+00,-0.24055e-02, 0.34271e-05, 0.83356e-03,
     a 0.14624e-04, 0.37000e+04, 0.37100e+04,
     a 0.20970e+03, 0.49024e+00,-0.29825e-02, 0.11251e-04, 0.98088e-03,
     a 0.17825e-04, 0.37100e+04, 0.37200e+04,
     a 0.65186e+03, 0.43325e+00,-0.25584e-02,-0.74576e-06,-0.13717e-02,
     a 0.11441e-04, 0.37200e+04, 0.37300e+04,
     a 0.36094e+03, 0.49364e+00, 0.33219e-02,-0.19819e-04, 0.45993e-02,
     a-0.18704e-04, 0.37300e+04, 0.37400e+04,
     a 0.57048e+02, 0.71411e+00, 0.13964e-01,-0.58323e-04, 0.15441e-01,
     a-0.65072e-04, 0.37400e+04, 0.37500e+04,
     a 0.16419e+01, 0.94961e+00, 0.31167e-01,-0.12796e-03, 0.32530e-01,
     a-0.13294e-03, 0.37500e+04, 0.37600e+04,
     a 0.72097e-02, 0.71242e+00, 0.53044e-01,-0.21219e-03, 0.55695e-01,
     a-0.22364e-03, 0.37600e+04, 0.37700e+04,
     a 0.32929e-03, 0.16488e+00, 0.43688e-01,-0.18453e-03, 0.42346e-01,
     a-0.18165e-03, 0.37700e+04, 0.37800e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.14501e-02, 0.17127e+00, 0.36748e-01,-0.15788e-03, 0.35331e-01,
     a-0.15240e-03, 0.37800e+04, 0.37900e+04,
     a 0.47585e-02, 0.19488e+00, 0.31054e-01,-0.13640e-03, 0.28516e-01,
     a-0.13041e-03, 0.37900e+04, 0.38000e+04,
     a 0.56312e-02, 0.21780e+00, 0.27563e-01,-0.12299e-03, 0.25360e-01,
     a-0.11514e-03, 0.38000e+04, 0.38100e+04,
     a 0.25663e-02, 0.23975e+00, 0.26455e-01,-0.11697e-03, 0.25771e-01,
     a-0.10379e-03, 0.38100e+04, 0.38200e+04,
     a 0.73473e-02, 0.26110e+00, 0.28264e-01,-0.12512e-03, 0.26543e-01,
     a-0.11735e-03, 0.38200e+04, 0.38300e+04,
     a 0.41625e-02, 0.30640e+00, 0.33500e-01,-0.14328e-03, 0.32396e-01,
     a-0.14197e-03, 0.38300e+04, 0.38400e+04,
     a 0.62707e-03, 0.49963e+00, 0.42723e-01,-0.17265e-03, 0.41198e-01,
     a-0.17864e-03, 0.38400e+04, 0.38500e+04,
     a 0.52281e-04, 0.44300e+00, 0.41789e-01,-0.13546e-03, 0.41381e-01,
     a-0.16812e-03, 0.38500e+04, 0.38600e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.11349e-03, 0.48522e+00, 0.40194e-01,-0.13982e-03, 0.39090e-01,
     a-0.16958e-03, 0.38600e+04, 0.38700e+04,
     a 0.11733e-03, 0.49615e+00, 0.44541e-01,-0.16207e-03, 0.43254e-01,
     a-0.18688e-03, 0.38700e+04, 0.38800e+04,
     a 0.21994e-04, 0.36694e+00, 0.51435e-01,-0.17841e-03, 0.51058e-01,
     a-0.21620e-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.10712e-04, 0.11242e+00, 0.38222e-01,-0.16405e-03, 0.35612e-01,
     a-0.16058e-03, 0.39400e+04, 0.39500e+04,
     a 0.22260e-04, 0.88337e-01, 0.32098e-01,-0.14078e-03, 0.29142e-01,
     a-0.13560e-03, 0.39500e+04, 0.39600e+04,
     a 0.60145e-04, 0.12150e+00, 0.26140e-01,-0.11441e-03, 0.23109e-01,
     a-0.11010e-03, 0.39600e+04, 0.39700e+04,
     a 0.11812e-03, 0.53380e+00, 0.23839e-01,-0.96178e-04, 0.23506e-01,
     a-0.10676e-03, 0.39700e+04, 0.39800e+04,
     a 0.61200e-04, 0.32611e+00, 0.20895e-01,-0.76119e-04, 0.20369e-01,
     a-0.87589e-04, 0.39800e+04, 0.39900e+04,
     a 0.30190e-03, 0.84191e+00, 0.24861e-01,-0.93520e-04, 0.24385e-01,
     a-0.10546e-03, 0.39900e+04, 0.40000e+04,
     a 0.13735e-02, 0.67580e+00, 0.14099e-01,-0.64565e-04, 0.11933e-01,
     a-0.57363e-04, 0.40000e+04, 0.40100e+04,
     a 0.17095e-02, 0.28901e+00, 0.13726e-01,-0.67497e-04, 0.10543e-01,
     a-0.60960e-04, 0.40100e+04, 0.40200e+04/
       data ((acr(k,j),k=1,8),j=153,160) /
     a 0.20687e-02, 0.45821e+00, 0.21277e-01,-0.86802e-04, 0.20845e-01,
     a-0.90012e-04, 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.26290e-04, 0.99522e-01,-0.26652e-02,-0.26042e-05,-0.55447e-02,
     a 0.32186e-05, 0.44200e+04, 0.44300e+04,
     a 0.80883e-04, 0.18978e+00, 0.57466e-03,-0.14607e-04,-0.25665e-02,
     a-0.87838e-05, 0.44300e+04, 0.44400e+04,
     a 0.55260e-04, 0.18005e+00, 0.65537e-02,-0.37323e-04, 0.36814e-02,
     a-0.33174e-04, 0.44400e+04, 0.44500e+04,
     a 0.82550e-05, 0.59910e-01, 0.12867e-01,-0.64515e-04, 0.97575e-02,
     a-0.58512e-04, 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.56586e-05, 0.58006e-01, 0.21852e-01,-0.10030e-03, 0.18901e-01,
     a-0.94764e-04, 0.45400e+04, 0.45500e+04,
     a 0.60995e-04, 0.17176e+00, 0.13472e-01,-0.63857e-04, 0.10919e-01,
     a-0.61333e-04, 0.45500e+04, 0.45600e+04,
     a 0.16173e-03, 0.18270e+00, 0.55264e-02,-0.33401e-04, 0.25266e-02,
     a-0.28677e-04, 0.45600e+04, 0.45700e+04,
     a 0.13420e-03, 0.18669e+00, 0.86662e-04,-0.12871e-04,-0.31886e-02,
     a-0.63395e-05, 0.45700e+04, 0.45800e+04/
       data ((acr(k,j),k=1,8),j=209,216) /
     a 0.77677e-05, 0.35973e-01,-0.17804e-02, 0.35792e-05,-0.43780e-02,
     a 0.47097e-05, 0.45800e+04, 0.45900e+04,
     a 0.21446e-03, 0.52918e+00,-0.26414e-02, 0.19171e-07,-0.51868e-02,
     a 0.31486e-05, 0.45900e+04, 0.46000e+04,
     a 0.49732e-03, 0.19678e+00,-0.15023e-02,-0.64944e-05,-0.45248e-02,
     a-0.60552e-06, 0.46000e+04, 0.46100e+04,
     a 0.57844e-03, 0.21566e+00, 0.36076e-02,-0.25498e-04, 0.68740e-03,
     a-0.21166e-04, 0.46100e+04, 0.46200e+04,
     a 0.18360e-03, 0.19472e+00, 0.10909e-01,-0.45759e-04, 0.94535e-02,
     a-0.53705e-04, 0.46200e+04, 0.46300e+04,
     a 0.21722e-04, 0.66168e-01, 0.10212e-01, 0.24083e-04, 0.16411e-01,
     a-0.67231e-04, 0.46300e+04, 0.46400e+04,
     a 0.15836e-04, 0.25231e-02,-0.37387e-02, 0.16847e-05,-0.66855e-02,
     a 0.77758e-05, 0.46400e+04, 0.46500e+04,
     a 0.28194e-04, 0.55835e-01, 0.11719e-01, 0.78341e-04, 0.28162e-01,
     a-0.65915e-04, 0.46500e+04, 0.46600e+04/
       data ((acr(k,j),k=1,8),j=217,224) /
     a 0.29246e-04, 0.15846e+00, 0.33601e-01,-0.12318e-03, 0.31988e-01,
     a-0.14227e-03, 0.46600e+04, 0.46700e+04,
     a 0.68660e-04, 0.23768e+00, 0.30956e-01,-0.13481e-03, 0.28087e-01,
     a-0.13066e-03, 0.46700e+04, 0.46800e+04,
     a 0.25776e-04, 0.14238e+00, 0.26879e-01,-0.11219e-03, 0.25142e-01,
     a-0.11785e-03, 0.46800e+04, 0.46900e+04,
     a 0.67605e-04, 0.28782e+00, 0.28103e-01,-0.97067e-04, 0.28478e-01,
     a-0.11197e-03, 0.46900e+04, 0.47000e+04,
     a 0.94449e-04, 0.58934e+00, 0.35280e-01,-0.94266e-04, 0.37047e-01,
     a-0.13314e-03, 0.47000e+04, 0.47100e+04,
     a 0.21985e-03, 0.94207e+00, 0.26856e-01, 0.15457e-04, 0.34398e-01,
     a-0.79603e-04, 0.47100e+04, 0.47200e+04,
     a 0.59268e-03, 0.92654e+00, 0.19629e-01, 0.79413e-04, 0.29220e-01,
     a-0.32440e-04, 0.47200e+04, 0.47300e+04,
     a 0.12070e-02, 0.99725e+00, 0.19414e-01, 0.10014e-03, 0.26778e-01,
     a-0.22067e-04, 0.47300e+04, 0.47400e+04/
       data ((acr(k,j),k=1,8),j=225,232) /
     a 0.22806e-02, 0.12176e+01, 0.28561e-01,-0.21574e-04, 0.30485e-01,
     a-0.75567e-04, 0.47400e+04, 0.47500e+04,
     a 0.43327e-02, 0.13486e+01, 0.28595e-01,-0.66405e-04, 0.27851e-01,
     a-0.74726e-04, 0.47500e+04, 0.47600e+04,
     a 0.77428e-02, 0.14486e+01, 0.30758e-01,-0.11612e-03, 0.29991e-01,
     a-0.12747e-03, 0.47600e+04, 0.47700e+04,
     a 0.25636e-01, 0.10146e+01, 0.25412e-01,-0.10692e-03, 0.25080e-01,
     a-0.10479e-03, 0.47700e+04, 0.47800e+04,
     a 0.71004e-01, 0.80049e+00, 0.19034e-01,-0.82075e-04, 0.19591e-01,
     a-0.81415e-04, 0.47800e+04, 0.47900e+04,
     a 0.12168e+00, 0.79844e+00, 0.14488e-01,-0.64424e-04, 0.15200e-01,
     a-0.58903e-04, 0.47900e+04, 0.48000e+04,
     a 0.76746e-01, 0.12201e+01, 0.15267e-01,-0.57662e-04, 0.14334e-01,
     a-0.55273e-04, 0.48000e+04, 0.48100e+04,
     a 0.25656e+00, 0.72698e+00, 0.12794e-01,-0.60697e-04, 0.11343e-01,
     a-0.54480e-04, 0.48100e+04, 0.48200e+04/
       data ((acr(k,j),k=1,8),j=233,240) /
     a 0.71618e+00, 0.47943e+00, 0.75299e-02,-0.34485e-04, 0.86269e-02,
     a-0.41288e-04, 0.48200e+04, 0.48300e+04,
     a 0.19439e+01, 0.28552e+00, 0.60337e-03,-0.10585e-04, 0.17705e-02,
     a-0.33465e-05, 0.48300e+04, 0.48400e+04,
     a 0.22409e+01, 0.24124e+00,-0.32243e-02, 0.77209e-06,-0.36357e-02,
     a 0.17134e-04, 0.48400e+04, 0.48500e+04,
     a 0.10230e+01, 0.23661e+00,-0.44285e-02, 0.56593e-05,-0.54571e-02,
     a 0.18603e-04, 0.48500e+04, 0.48600e+04,
     a 0.29838e+01, 0.24972e+00,-0.26005e-02,-0.22445e-05,-0.48507e-02,
     a 0.67080e-05, 0.48600e+04, 0.48700e+04,
     a 0.17331e+01, 0.24569e+00, 0.25130e-02,-0.20912e-04, 0.97879e-04,
     a-0.14658e-04, 0.48700e+04, 0.48800e+04,
     a 0.23009e+00, 0.24263e+00, 0.12134e-01,-0.55883e-04, 0.11873e-01,
     a-0.46579e-04, 0.48800e+04, 0.48900e+04,
     a 0.73766e-02, 0.50576e+00, 0.21012e-01, 0.13113e-04, 0.33128e-01,
     a-0.74753e-04, 0.48900e+04, 0.49000e+04/
       data ((acr(k,j),k=1,8),j=241,248) /
     a 0.53301e-02, 0.11415e+01, 0.23150e-01, 0.81743e-04, 0.32613e-01,
     a-0.49011e-04, 0.49000e+04, 0.49100e+04,
     a 0.19881e-01, 0.11163e+01, 0.30658e-01,-0.89121e-04, 0.31493e-01,
     a-0.10490e-03, 0.49100e+04, 0.49200e+04,
     a 0.13274e+00, 0.80180e+00, 0.23959e-01,-0.96864e-04, 0.26465e-01,
     a-0.10570e-03, 0.49200e+04, 0.49300e+04,
     a 0.54198e+00, 0.58029e+00, 0.16095e-01,-0.67361e-04, 0.19209e-01,
     a-0.74544e-04, 0.49300e+04, 0.49400e+04,
     a 0.23931e+01, 0.43634e+00, 0.83244e-02,-0.38869e-04, 0.10910e-01,
     a-0.40486e-04, 0.49400e+04, 0.49500e+04,
     a 0.63640e+01, 0.38463e+00, 0.24225e-02,-0.17014e-04, 0.51156e-02,
     a-0.13677e-04, 0.49500e+04, 0.49600e+04,
     a 0.11174e+02, 0.37051e+00,-0.20924e-02,-0.18861e-05, 0.19797e-03,
     a 0.84038e-05, 0.49600e+04, 0.49700e+04,
     a 0.47425e+01, 0.43970e+00,-0.23967e-02, 0.11771e-04, 0.15888e-02,
     a 0.11027e-04, 0.49700e+04, 0.49800e+04/
       data ((acr(k,j),k=1,8),j=249,256) /
     a 0.13215e+02, 0.42301e+00,-0.28860e-02, 0.45346e-05,-0.18435e-02,
     a 0.12941e-04, 0.49800e+04, 0.49900e+04,
     a 0.10682e+02, 0.28898e+00, 0.91279e-03,-0.13741e-04, 0.29048e-03,
     a-0.37230e-05, 0.49900e+04, 0.50000e+04,
     a 0.19873e+01, 0.27401e+00, 0.96347e-02,-0.45675e-04, 0.89294e-02,
     a-0.43606e-04, 0.50000e+04, 0.50100e+04,
     a 0.25245e-01, 0.25842e+00, 0.27802e-01,-0.11266e-03, 0.28517e-01,
     a-0.11312e-03, 0.50100e+04, 0.50200e+04,
     a 0.10773e-02, 0.39566e+00, 0.19467e-01,-0.90504e-05, 0.21521e-01,
     a-0.46620e-04, 0.50200e+04, 0.50300e+04,
     a 0.26445e-02, 0.46517e+00, 0.22864e-01,-0.51981e-05, 0.21923e-01,
     a-0.48242e-04, 0.50300e+04, 0.50400e+04,
     a 0.89353e-02, 0.34218e+00, 0.25304e-01,-0.87147e-04, 0.20721e-01,
     a-0.63342e-04, 0.50400e+04, 0.50500e+04,
     a 0.66176e-01, 0.21908e+00, 0.17982e-01,-0.80841e-04, 0.17736e-01,
     a-0.74140e-04, 0.50500e+04, 0.50600e+04/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
