      subroutine    dica2(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     carbon dioxide (5060 - 7610 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.37011e+00, 0.18132e+00, 0.98385e-02,-0.49920e-04, 0.96965e-02,
     a-0.39497e-04, 0.50600e+04, 0.50700e+04,
     a 0.17202e+01, 0.23160e+00, 0.29954e-02,-0.22435e-04, 0.29757e-02,
     a-0.92488e-05, 0.50700e+04, 0.50800e+04,
     a 0.33606e+01, 0.25416e+00,-0.16977e-02,-0.40846e-05,-0.13656e-02,
     a 0.11658e-04, 0.50800e+04, 0.50900e+04,
     a 0.18282e+01, 0.30223e+00,-0.32772e-02, 0.94805e-05,-0.53350e-03,
     a 0.21209e-04, 0.50900e+04, 0.51000e+04,
     a 0.29024e+01, 0.38026e+00,-0.30989e-02, 0.72616e-05,-0.13770e-02,
     a 0.16150e-04, 0.51000e+04, 0.51100e+04,
     a 0.42563e+01, 0.41711e+00,-0.14453e-03,-0.80697e-05, 0.42978e-03,
     a-0.27285e-05, 0.51100e+04, 0.51200e+04,
     a 0.11106e+01, 0.56558e+00, 0.71956e-02,-0.36594e-04, 0.79066e-02,
     a-0.37847e-04, 0.51200e+04, 0.51300e+04,
     a 0.30634e+00, 0.97715e+00, 0.15099e-01,-0.67211e-04, 0.15152e-01,
     a-0.65294e-04, 0.51300e+04, 0.51400e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.11213e+00, 0.77801e+00, 0.19757e-01,-0.86279e-04, 0.20188e-01,
     a-0.84289e-04, 0.51400e+04, 0.51500e+04,
     a 0.14584e-01, 0.10474e+01, 0.30585e-01,-0.12981e-03, 0.30136e-01,
     a-0.12999e-03, 0.51500e+04, 0.51600e+04,
     a 0.14820e-02, 0.96349e+00, 0.39762e-01,-0.16303e-03, 0.39329e-01,
     a-0.16879e-03, 0.51600e+04, 0.51700e+04,
     a 0.71850e-04, 0.75521e+00, 0.50597e-01,-0.19183e-03, 0.49189e-01,
     a-0.20960e-03, 0.51700e+04, 0.51800e+04,
     a 0.29909e-04, 0.14908e+00, 0.36080e-01,-0.11815e-03, 0.34793e-01,
     a-0.14530e-03, 0.51800e+04, 0.51900e+04,
     a 0.12504e-03, 0.18326e+00, 0.32726e-01,-0.14282e-03, 0.29813e-01,
     a-0.13805e-03, 0.51900e+04, 0.52000e+04,
     a 0.21512e-03, 0.19978e+00, 0.28430e-01,-0.12662e-03, 0.25525e-01,
     a-0.12103e-03, 0.52000e+04, 0.52100e+04,
     a 0.96169e-04, 0.20142e+00, 0.26447e-01,-0.11912e-03, 0.23511e-01,
     a-0.11308e-03, 0.52100e+04, 0.52200e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.19738e-03, 0.21048e+00, 0.27160e-01,-0.12182e-03, 0.24213e-01,
     a-0.11582e-03, 0.52200e+04, 0.52300e+04,
     a 0.26384e-03, 0.44256e+00, 0.28679e-01,-0.11440e-03, 0.24161e-01,
     a-0.10560e-03, 0.52300e+04, 0.52400e+04,
     a 0.36492e-03, 0.82665e+00, 0.17030e-01,-0.50383e-04, 0.15395e-01,
     a-0.57885e-04, 0.52400e+04, 0.52500e+04,
     a 0.15039e-03, 0.27488e+00, 0.13098e-01,-0.61988e-04, 0.10623e-01,
     a-0.54594e-04, 0.52500e+04, 0.52600e+04,
     a 0.24449e-03, 0.45805e+00, 0.18770e-01,-0.82525e-04, 0.16371e-01,
     a-0.81515e-04, 0.52600e+04, 0.52700e+04,
     a 0.60370e-04, 0.43685e+00, 0.16157e-01,-0.60387e-04, 0.13838e-01,
     a-0.63959e-04, 0.52700e+04, 0.52800e+04,
     a 0.45624e-03, 0.10732e+01, 0.12236e-01,-0.43571e-04, 0.11139e-01,
     a-0.55369e-04, 0.52800e+04, 0.52900e+04,
     a 0.94288e-03, 0.71418e+00, 0.33079e-02,-0.93343e-05, 0.45345e-02,
     a-0.25858e-04, 0.52900e+04, 0.53000e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.24083e-02, 0.75842e+00, 0.33829e-02, 0.46857e-06, 0.43964e-02,
     a-0.19712e-04, 0.53000e+04, 0.53100e+04,
     a 0.11861e-01, 0.74480e+00,-0.16809e-02,-0.18723e-05,-0.36883e-02,
     a 0.44350e-05, 0.53100e+04, 0.53200e+04,
     a 0.56690e-02, 0.26992e+00,-0.26897e-02,-0.19753e-05,-0.56893e-02,
     a 0.39128e-05, 0.53200e+04, 0.53300e+04,
     a 0.43472e-02, 0.36618e+00, 0.37666e-02,-0.21625e-04, 0.21182e-02,
     a-0.22907e-04, 0.53300e+04, 0.53400e+04,
     a 0.65931e-04, 0.17111e+00, 0.21978e-01,-0.96238e-04, 0.20336e-01,
     a-0.96990e-04, 0.53400e+04, 0.53500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53500e+04, 0.53600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53600e+04, 0.53700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53700e+04, 0.53800e+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.53800e+04, 0.53900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53900e+04, 0.54000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54000e+04, 0.54100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54100e+04, 0.54200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54200e+04, 0.54300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54300e+04, 0.54400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54400e+04, 0.54500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54500e+04, 0.54600e+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.54600e+04, 0.54700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54700e+04, 0.54800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54800e+04, 0.54900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.54900e+04, 0.55000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55000e+04, 0.55100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55100e+04, 0.55200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55200e+04, 0.55300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55300e+04, 0.55400e+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.55400e+04, 0.55500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55500e+04, 0.55600e+04,
     a 0.68899e-05, 0.12901e+00, 0.32092e-01,-0.14141e-03, 0.29106e-01,
     a-0.13565e-03, 0.55600e+04, 0.55700e+04,
     a 0.54438e-05, 0.10241e+00, 0.30061e-01,-0.13353e-03, 0.27225e-01,
     a-0.12783e-03, 0.55700e+04, 0.55800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55800e+04, 0.55900e+04,
     a 0.13218e-04, 0.23142e+00, 0.31168e-01,-0.13734e-03, 0.28262e-01,
     a-0.13193e-03, 0.55900e+04, 0.56000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56000e+04, 0.56100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56100e+04, 0.56200e+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.56200e+04, 0.56300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56300e+04, 0.56400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56400e+04, 0.56500e+04,
     a 0.33959e-05, 0.61663e-01, 0.34194e-01,-0.14999e-03, 0.31058e-01,
     a-0.14380e-03, 0.56500e+04, 0.56600e+04,
     a 0.10828e-04, 0.12604e+00, 0.31170e-01,-0.13759e-03, 0.28105e-01,
     a-0.13178e-03, 0.56600e+04, 0.56700e+04,
     a 0.17083e-04, 0.16767e+00, 0.28148e-01,-0.12567e-03, 0.25263e-01,
     a-0.11999e-03, 0.56700e+04, 0.56800e+04,
     a 0.49699e-05, 0.72931e-01, 0.26646e-01,-0.11993e-03, 0.23720e-01,
     a-0.11402e-03, 0.56800e+04, 0.56900e+04,
     a 0.32495e-04, 0.33854e+00, 0.28198e-01,-0.12521e-03, 0.25185e-01,
     a-0.11947e-03, 0.56900e+04, 0.57000e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.85544e-05, 0.12346e+00, 0.32990e-01,-0.14471e-03, 0.29937e-01,
     a-0.13907e-03, 0.57000e+04, 0.57100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57100e+04, 0.57200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57200e+04, 0.57300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57300e+04, 0.57400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57400e+04, 0.57500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57500e+04, 0.57600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57600e+04, 0.57700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57700e+04, 0.57800e+04/
       data ((acr(k,j),k=1,8),j= 73, 80) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57800e+04, 0.57900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.57900e+04, 0.58000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.58000e+04, 0.58100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.58100e+04, 0.58200e+04,
     a 0.10801e-06, 0.64763e-03, 0.50400e-02,-0.33310e-04, 0.18319e-02,
     a-0.27150e-04, 0.58200e+04, 0.58300e+04,
     a 0.36558e-06, 0.11712e-02, 0.12766e-02,-0.17918e-04,-0.17271e-02,
     a-0.12476e-04, 0.58300e+04, 0.58400e+04,
     a 0.65048e-06, 0.15865e-02,-0.22804e-02,-0.39603e-05,-0.50092e-02,
     a 0.13558e-05, 0.58400e+04, 0.58500e+04,
     a 0.28928e-06, 0.11091e-02,-0.41564e-02, 0.31815e-05,-0.71328e-02,
     a 0.92288e-05, 0.58500e+04, 0.58600e+04/
       data ((acr(k,j),k=1,8),j= 81, 88) /
     a 0.87451e-06, 0.23908e-02,-0.33290e-02, 0.21406e-06,-0.62303e-02,
     a 0.61286e-05, 0.58600e+04, 0.58700e+04,
     a 0.67089e-06, 0.21602e-02, 0.12514e-02,-0.16242e-04,-0.14507e-02,
     a-0.12750e-04, 0.58700e+04, 0.58800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.58800e+04, 0.58900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.58900e+04, 0.59000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.59000e+04, 0.59100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.59100e+04, 0.59200e+04,
     a 0.17501e-07, 0.13034e-03, 0.51578e-02,-0.34109e-04, 0.18735e-02,
     a-0.27495e-04, 0.59200e+04, 0.59300e+04,
     a 0.69507e-06, 0.34287e-02, 0.44624e-03,-0.13702e-04,-0.24553e-02,
     a-0.89919e-05, 0.59300e+04, 0.59400e+04/
       data ((acr(k,j),k=1,8),j= 89, 96) /
     a 0.78354e-06, 0.27679e-02,-0.22110e-02,-0.40762e-05,-0.50605e-02,
     a 0.15266e-05, 0.59400e+04, 0.59500e+04,
     a 0.17028e-04, 0.28847e+00, 0.29444e-01,-0.10994e-03, 0.27638e-01,
     a-0.12570e-03, 0.59500e+04, 0.59600e+04,
     a 0.14300e-04, 0.23307e+00, 0.25314e-01,-0.63115e-04, 0.25428e-01,
     a-0.10758e-03, 0.59600e+04, 0.59700e+04,
     a 0.29931e-04, 0.32693e+00, 0.31262e-01,-0.10549e-03, 0.30096e-01,
     a-0.13150e-03, 0.59700e+04, 0.59800e+04,
     a 0.16591e-03, 0.85547e+00, 0.27749e-01,-0.12007e-03, 0.25471e-01,
     a-0.11947e-03, 0.59800e+04, 0.59900e+04,
     a 0.42245e-03, 0.43143e+00, 0.20385e-01,-0.92124e-04, 0.18281e-01,
     a-0.89908e-04, 0.59900e+04, 0.60000e+04,
     a 0.93274e-03, 0.46433e+00, 0.15249e-01,-0.71885e-04, 0.13120e-01,
     a-0.68390e-04, 0.60000e+04, 0.60100e+04,
     a 0.70225e-03, 0.54757e+00, 0.13086e-01,-0.58065e-04, 0.11855e-01,
     a-0.56321e-04, 0.60100e+04, 0.60200e+04/
       data ((acr(k,j),k=1,8),j= 97,104) /
     a 0.69280e-03, 0.65125e+00, 0.13222e-01,-0.56472e-04, 0.11874e-01,
     a-0.55027e-04, 0.60200e+04, 0.60300e+04,
     a 0.15664e-02, 0.58970e+00, 0.15019e-01,-0.71875e-04, 0.12178e-01,
     a-0.67231e-04, 0.60300e+04, 0.60400e+04,
     a 0.38079e-02, 0.38374e+00, 0.89238e-02,-0.38150e-04, 0.95406e-02,
     a-0.46524e-04, 0.60400e+04, 0.60500e+04,
     a 0.11401e-01, 0.22142e+00, 0.11962e-02,-0.14969e-04, 0.50672e-03,
     a-0.50173e-05, 0.60500e+04, 0.60600e+04,
     a 0.15986e-01, 0.20314e+00,-0.28719e-02,-0.15218e-05,-0.57785e-02,
     a 0.42132e-05, 0.60600e+04, 0.60700e+04,
     a 0.65575e-02, 0.20869e+00,-0.45237e-02, 0.47582e-05,-0.74277e-02,
     a 0.10726e-04, 0.60700e+04, 0.60800e+04,
     a 0.16542e-01, 0.20732e+00,-0.33062e-02, 0.12692e-06,-0.62117e-02,
     a 0.59729e-05, 0.60800e+04, 0.60900e+04,
     a 0.14800e-01, 0.21832e+00, 0.52489e-03,-0.14021e-04,-0.23480e-02,
     a-0.94050e-05, 0.60900e+04, 0.61000e+04/
       data ((acr(k,j),k=1,8),j=105,112) /
     a 0.37777e-02, 0.22100e+00, 0.79105e-02,-0.41125e-04, 0.56565e-02,
     a-0.39694e-04, 0.61000e+04, 0.61100e+04,
     a 0.23785e-03, 0.20223e+00, 0.19267e-01,-0.74980e-04, 0.18479e-01,
     a-0.84052e-04, 0.61100e+04, 0.61200e+04,
     a 0.87992e-05, 0.13627e-01, 0.23267e-02, 0.92669e-04, 0.14502e-01,
     a 0.81104e-04, 0.61200e+04, 0.61300e+04,
     a 0.46902e-04, 0.41886e+00, 0.24800e-01, 0.70996e-04, 0.36122e-01,
     a-0.13184e-03, 0.61300e+04, 0.61400e+04,
     a 0.17614e-03, 0.70325e+00, 0.34157e-01,-0.12548e-03, 0.32692e-01,
     a-0.14479e-03, 0.61400e+04, 0.61500e+04,
     a 0.51423e-03, 0.76500e+00, 0.30511e-01,-0.13248e-03, 0.28126e-01,
     a-0.12927e-03, 0.61500e+04, 0.61600e+04,
     a 0.16425e-02, 0.80783e+00, 0.24399e-01,-0.10406e-03, 0.23798e-01,
     a-0.10618e-03, 0.61600e+04, 0.61700e+04,
     a 0.47297e-02, 0.70470e+00, 0.18441e-01,-0.81354e-04, 0.17633e-01,
     a-0.82840e-04, 0.61700e+04, 0.61800e+04/
       data ((acr(k,j),k=1,8),j=113,120) /
     a 0.12112e-01, 0.77740e+00, 0.14404e-01,-0.64815e-04, 0.14093e-01,
     a-0.64401e-04, 0.61800e+04, 0.61900e+04,
     a 0.29946e-01, 0.46202e+00, 0.77033e-02,-0.38421e-04, 0.91624e-02,
     a-0.37333e-04, 0.61900e+04, 0.62000e+04,
     a 0.84779e-01, 0.36412e+00, 0.25097e-02,-0.17677e-04, 0.33111e-02,
     a-0.19653e-04, 0.62000e+04, 0.62100e+04,
     a 0.14928e+00, 0.35083e+00,-0.16626e-02, 0.65627e-06,-0.10556e-04,
     a 0.30708e-05, 0.62100e+04, 0.62200e+04,
     a 0.55916e-01, 0.25640e+00,-0.37859e-02, 0.96465e-05,-0.48460e-03,
     a 0.29685e-04, 0.62200e+04, 0.62300e+04,
     a 0.14147e+00, 0.24788e+00,-0.37163e-02, 0.17896e-05,-0.63790e-02,
     a 0.10289e-04, 0.62300e+04, 0.62400e+04,
     a 0.16605e+00, 0.27773e+00, 0.31594e-03,-0.12404e-04,-0.24142e-02,
     a-0.86644e-05, 0.62400e+04, 0.62500e+04,
     a 0.26015e-01, 0.26420e+00, 0.96177e-02,-0.45715e-04, 0.81902e-02,
     a-0.47180e-04, 0.62500e+04, 0.62600e+04/
       data ((acr(k,j),k=1,8),j=121,128) /
     a 0.34429e-03, 0.24315e+00, 0.27429e-01,-0.10196e-03, 0.28346e-01,
     a-0.11603e-03, 0.62600e+04, 0.62700e+04,
     a 0.46627e-04, 0.19149e+00, 0.36426e-01,-0.13678e-03, 0.34831e-01,
     a-0.15131e-03, 0.62700e+04, 0.62800e+04,
     a 0.21373e-03, 0.25683e+00, 0.31955e-01,-0.13913e-03, 0.29335e-01,
     a-0.13555e-03, 0.62800e+04, 0.62900e+04,
     a 0.13513e-02, 0.24863e+00, 0.22352e-01,-0.96861e-04, 0.21515e-01,
     a-0.99991e-04, 0.62900e+04, 0.63000e+04,
     a 0.54489e-02, 0.20135e+00, 0.14377e-01,-0.65562e-04, 0.15352e-01,
     a-0.64813e-04, 0.63000e+04, 0.63100e+04,
     a 0.27679e-01, 0.22784e+00, 0.74243e-02,-0.37863e-04, 0.85371e-02,
     a-0.33611e-04, 0.63100e+04, 0.63200e+04,
     a 0.78593e-01, 0.25925e+00, 0.20493e-02,-0.15599e-04, 0.43199e-02,
     a-0.67814e-05, 0.63200e+04, 0.63300e+04,
     a 0.14691e+00, 0.31965e+00,-0.18417e-02,-0.26752e-06,-0.43593e-03,
     a 0.72456e-05, 0.63300e+04, 0.63400e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.60904e-01, 0.38372e+00,-0.26072e-02, 0.10806e-04, 0.34105e-04,
     a 0.61858e-05, 0.63400e+04, 0.63500e+04,
     a 0.16958e+00, 0.41812e+00,-0.32411e-02, 0.19629e-05,-0.29726e-02,
     a 0.85775e-05, 0.63500e+04, 0.63600e+04,
     a 0.14604e+00, 0.46630e+00, 0.14212e-02,-0.13457e-04, 0.19636e-02,
     a-0.13610e-04, 0.63600e+04, 0.63700e+04,
     a 0.31358e-01, 0.68476e+00, 0.10997e-01,-0.46694e-04, 0.11746e-01,
     a-0.54252e-04, 0.63700e+04, 0.63800e+04,
     a 0.10642e-02, 0.83438e+00, 0.27721e-01,-0.11549e-03, 0.27342e-01,
     a-0.12081e-03, 0.63800e+04, 0.63900e+04,
     a 0.10993e-04, 0.84985e-01, 0.11868e-01, 0.12012e-03, 0.14373e-01,
     a 0.35831e-04, 0.63900e+04, 0.64000e+04,
     a 0.68548e-04, 0.19065e+00,-0.13960e-03,-0.11926e-04,-0.33005e-02,
     a-0.58719e-05, 0.64000e+04, 0.64100e+04,
     a 0.58606e-04, 0.18176e+00, 0.53969e-02,-0.32912e-04, 0.24598e-02,
     a-0.28413e-04, 0.64100e+04, 0.64200e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.13107e-04, 0.89518e-01, 0.11918e-01,-0.60253e-04, 0.88864e-02,
     a-0.54787e-04, 0.64200e+04, 0.64300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64300e+04, 0.64400e+04,
     a 0.11700e-04, 0.80752e-01, 0.30987e-01,-0.13581e-03, 0.28483e-01,
     a-0.13216e-03, 0.64400e+04, 0.64500e+04,
     a 0.15147e-03, 0.13300e+00, 0.21388e-01,-0.95943e-04, 0.19129e-01,
     a-0.94039e-04, 0.64500e+04, 0.64600e+04,
     a 0.10569e-02, 0.14161e+00, 0.12722e-01,-0.62067e-04, 0.10104e-01,
     a-0.58766e-04, 0.64600e+04, 0.64700e+04,
     a 0.62046e-02, 0.17678e+00, 0.50148e-02,-0.31545e-04, 0.22560e-02,
     a-0.27623e-04, 0.64700e+04, 0.64800e+04,
     a 0.12909e-01, 0.15821e+00,-0.11368e-03,-0.12254e-04,-0.31262e-02,
     a-0.67108e-05, 0.64800e+04, 0.64900e+04,
     a 0.18519e-01, 0.26278e+00,-0.33124e-02, 0.12436e-05,-0.49708e-02,
     a 0.11870e-04, 0.64900e+04, 0.65000e+04/
       data ((acr(k,j),k=1,8),j=145,152) /
     a 0.94276e-02, 0.28543e+00,-0.37172e-02, 0.95584e-05,-0.28297e-02,
     a 0.17915e-04, 0.65000e+04, 0.65100e+04,
     a 0.23260e-01, 0.34557e+00,-0.16092e-02,-0.15397e-05,-0.15497e-02,
     a 0.26953e-05, 0.65100e+04, 0.65200e+04,
     a 0.11602e-01, 0.45777e+00, 0.40857e-02,-0.23186e-04, 0.34630e-02,
     a-0.24006e-04, 0.65200e+04, 0.65300e+04,
     a 0.26251e-02, 0.10461e+01, 0.96811e-02,-0.35495e-04, 0.54387e-02,
     a-0.27418e-04, 0.65300e+04, 0.65400e+04,
     a 0.13999e-02, 0.87933e+00, 0.11802e-01,-0.43414e-04, 0.93028e-02,
     a-0.35381e-04, 0.65400e+04, 0.65500e+04,
     a 0.10684e-02, 0.70255e+00, 0.15871e-01,-0.64620e-04, 0.12638e-01,
     a-0.56493e-04, 0.65500e+04, 0.65600e+04,
     a 0.16155e-03, 0.42392e+00, 0.25507e-01,-0.11133e-03, 0.23436e-01,
     a-0.11063e-03, 0.65600e+04, 0.65700e+04,
     a 0.18042e-04, 0.32854e+00, 0.30046e-01,-0.13213e-03, 0.27170e-01,
     a-0.12714e-03, 0.65700e+04, 0.65800e+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.65800e+04, 0.65900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65900e+04, 0.66000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66000e+04, 0.66100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66100e+04, 0.66200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66200e+04, 0.66300e+04,
     a 0.16128e-04, 0.88896e-01, 0.11840e-01,-0.59958e-04, 0.88458e-02,
     a-0.54627e-04, 0.66300e+04, 0.66400e+04,
     a 0.57685e-04, 0.11970e+00, 0.66894e-02,-0.39133e-04, 0.37276e-02,
     a-0.34034e-04, 0.66400e+04, 0.66500e+04,
     a 0.16743e-03, 0.15492e+00, 0.16277e-02,-0.18979e-04,-0.13919e-02,
     a-0.13601e-04, 0.66500e+04, 0.66600e+04/
       data ((acr(k,j),k=1,8),j=161,168) /
     a 0.23995e-03, 0.19763e+00,-0.15517e-02,-0.25448e-05,-0.34273e-02,
     a 0.43033e-06, 0.66600e+04, 0.66700e+04,
     a 0.11561e-02, 0.75988e+00,-0.12040e-02,-0.27363e-05,-0.37117e-02,
     a-0.38924e-06, 0.66700e+04, 0.66800e+04,
     a 0.23092e-03, 0.26967e+00,-0.38326e-02, 0.21748e-05,-0.67421e-02,
     a 0.81124e-05, 0.66800e+04, 0.66900e+04,
     a 0.18913e-03, 0.29419e+00, 0.23018e-03,-0.11781e-04,-0.22434e-02,
     a-0.90419e-05, 0.66900e+04, 0.67000e+04,
     a 0.42620e-05, 0.33197e-01, 0.87410e-02,-0.40921e-04, 0.57336e-02,
     a-0.38266e-04, 0.67000e+04, 0.67100e+04,
     a 0.98135e-06, 0.38989e-02, 0.19411e-01,-0.90203e-04, 0.16380e-01,
     a-0.84877e-04, 0.67100e+04, 0.67200e+04,
     a 0.24238e-05, 0.42762e-02, 0.15022e-01,-0.73077e-04, 0.12190e-01,
     a-0.67965e-04, 0.67200e+04, 0.67300e+04,
     a 0.45088e-05, 0.43488e-02, 0.10996e-01,-0.56685e-04, 0.85436e-02,
     a-0.53188e-04, 0.67300e+04, 0.67400e+04/
       data ((acr(k,j),k=1,8),j=169,176) /
     a 0.10584e-04, 0.26967e-02, 0.57298e-02,-0.34851e-04, 0.39372e-02,
     a-0.33840e-04, 0.67400e+04, 0.67500e+04,
     a 0.24861e-04, 0.51111e-02, 0.29099e-02,-0.15549e-04, 0.43761e-02,
     a-0.26982e-04, 0.67500e+04, 0.67600e+04,
     a 0.39077e-04, 0.28826e-02,-0.17710e-02,-0.16701e-05,-0.11970e-02,
     a 0.33000e-05, 0.67600e+04, 0.67700e+04,
     a 0.23656e-04, 0.21453e-02,-0.41790e-02, 0.31183e-05,-0.71966e-02,
     a 0.93110e-05, 0.67700e+04, 0.67800e+04,
     a 0.45770e-04, 0.32492e-02,-0.37950e-02, 0.17261e-05,-0.67820e-02,
     a 0.79425e-05, 0.67800e+04, 0.67900e+04,
     a 0.61088e-04, 0.55679e-02, 0.14930e-02,-0.11871e-04, 0.72114e-03,
     a-0.13903e-04, 0.67900e+04, 0.68000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68000e+04, 0.68100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68100e+04, 0.68200e+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.68200e+04, 0.68300e+04,
     a 0.92277e-06, 0.29726e-01, 0.49361e-01,-0.21080e-03, 0.46239e-01,
     a-0.20451e-03, 0.68300e+04, 0.68400e+04,
     a 0.14134e-04, 0.25624e+00, 0.46651e-01,-0.19790e-03, 0.43955e-01,
     a-0.19411e-03, 0.68400e+04, 0.68500e+04,
     a 0.72012e-04, 0.62577e+00, 0.42787e-01,-0.18123e-03, 0.40400e-01,
     a-0.17929e-03, 0.68500e+04, 0.68600e+04,
     a 0.18633e-03, 0.58310e+00, 0.38378e-01,-0.16303e-03, 0.35924e-01,
     a-0.16051e-03, 0.68600e+04, 0.68700e+04,
     a 0.57256e-03, 0.74950e+00, 0.33960e-01,-0.14641e-03, 0.31340e-01,
     a-0.14291e-03, 0.68700e+04, 0.68800e+04,
     a 0.14919e-02, 0.79461e+00, 0.29669e-01,-0.12898e-03, 0.27598e-01,
     a-0.12671e-03, 0.68800e+04, 0.68900e+04,
     a 0.32590e-02, 0.69112e+00, 0.24660e-01,-0.10873e-03, 0.22993e-01,
     a-0.10930e-03, 0.68900e+04, 0.69000e+04/
       data ((acr(k,j),k=1,8),j=185,192) /
     a 0.79821e-02, 0.66219e+00, 0.20779e-01,-0.91999e-04, 0.20053e-01,
     a-0.94800e-04, 0.69000e+04, 0.69100e+04,
     a 0.19955e-01, 0.70298e+00, 0.16653e-01,-0.74032e-04, 0.17622e-01,
     a-0.74061e-04, 0.69100e+04, 0.69200e+04,
     a 0.47678e-01, 0.44625e+00, 0.11512e-01,-0.56613e-04, 0.10983e-01,
     a-0.50893e-04, 0.69200e+04, 0.69300e+04,
     a 0.72667e-01, 0.31454e+00, 0.67346e-02,-0.38595e-04, 0.58565e-02,
     a-0.40764e-04, 0.69300e+04, 0.69400e+04,
     a 0.21391e+00, 0.45263e+00, 0.39143e-02,-0.19313e-04, 0.56575e-02,
     a-0.28872e-04, 0.69400e+04, 0.69500e+04,
     a 0.37730e+00, 0.24930e+00,-0.11236e-02,-0.37053e-05, 0.41967e-03,
     a 0.53393e-05, 0.69500e+04, 0.69600e+04,
     a 0.29585e+00, 0.17647e+00,-0.38687e-02, 0.22126e-05,-0.68173e-02,
     a 0.82438e-05, 0.69600e+04, 0.69700e+04,
     a 0.30531e+00, 0.23118e+00,-0.41950e-02, 0.35322e-05,-0.69672e-02,
     a 0.11130e-04, 0.69700e+04, 0.69800e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.77834e+00, 0.54008e+00, 0.53815e-03,-0.75276e-05,-0.10156e-03,
     a-0.79350e-05, 0.69800e+04, 0.69900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69900e+04, 0.70000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70000e+04, 0.70100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70100e+04, 0.70200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70200e+04, 0.70300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70300e+04, 0.70400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70400e+04, 0.70500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70500e+04, 0.70600e+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.70600e+04, 0.70700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70700e+04, 0.70800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70800e+04, 0.70900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.70900e+04, 0.71000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71000e+04, 0.71100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71100e+04, 0.71200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71200e+04, 0.71300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71300e+04, 0.71400e+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.71400e+04, 0.71500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71500e+04, 0.71600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71600e+04, 0.71700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71700e+04, 0.71800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71800e+04, 0.71900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.71900e+04, 0.72000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72000e+04, 0.72100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72100e+04, 0.72200e+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.72200e+04, 0.72300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72300e+04, 0.72400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72400e+04, 0.72500e+04,
     a 0.97362e-05, 0.61285e-01, 0.44980e-02,-0.31185e-04, 0.13664e-02,
     a-0.25022e-04, 0.72500e+04, 0.72600e+04,
     a 0.54706e-04, 0.18852e+00, 0.24251e-03,-0.13320e-04,-0.27302e-02,
     a-0.81259e-05, 0.72600e+04, 0.72700e+04,
     a 0.61563e-04, 0.20629e+00,-0.32814e-02, 0.22000e-07,-0.62079e-02,
     a 0.59250e-05, 0.72700e+04, 0.72800e+04,
     a 0.14699e-04, 0.75241e-01,-0.44219e-02, 0.43348e-05,-0.74089e-02,
     a 0.10364e-04, 0.72800e+04, 0.72900e+04,
     a 0.70542e-04, 0.20329e+00,-0.28820e-02,-0.14802e-05,-0.57837e-02,
     a 0.42344e-05, 0.72900e+04, 0.73000e+04/
       data ((acr(k,j),k=1,8),j=225,232) /
     a 0.54492e-04, 0.21457e+00, 0.13783e-02,-0.17210e-04,-0.14841e-02,
     a-0.12786e-04, 0.73000e+04, 0.73100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73100e+04, 0.73200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73200e+04, 0.73300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73300e+04, 0.73400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73400e+04, 0.73500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73500e+04, 0.73600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73600e+04, 0.73700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73700e+04, 0.73800e+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.73800e+04, 0.73900e+04,
     a 0.40391e-04, 0.34559e+00, 0.16271e-01,-0.77571e-04, 0.13286e-01,
     a-0.72256e-04, 0.73900e+04, 0.74000e+04,
     a 0.48302e-04, 0.37526e+00, 0.12898e-01,-0.64691e-04, 0.10001e-01,
     a-0.58901e-04, 0.74000e+04, 0.74100e+04,
     a 0.26773e-04, 0.14702e+00, 0.16569e-01,-0.76331e-04, 0.13558e-01,
     a-0.71600e-04, 0.74100e+04, 0.74200e+04,
     a 0.20816e-03, 0.52374e+00, 0.10994e-01,-0.54458e-04, 0.90105e-02,
     a-0.54076e-04, 0.74200e+04, 0.74300e+04,
     a 0.48129e-03, 0.23329e+00, 0.42161e-02,-0.25147e-04, 0.34174e-02,
     a-0.25567e-04, 0.74300e+04, 0.74400e+04,
     a 0.10907e-02, 0.19364e+00,-0.12077e-02,-0.78171e-05,-0.41544e-02,
     a-0.24136e-05, 0.74400e+04, 0.74500e+04,
     a 0.78191e-03, 0.20750e+00,-0.39131e-02, 0.24015e-05,-0.69105e-02,
     a 0.85956e-05, 0.74500e+04, 0.74600e+04/
       data ((acr(k,j),k=1,8),j=241,248) /
     a 0.71150e-03, 0.19688e+00,-0.41668e-02, 0.33692e-05,-0.70951e-02,
     a 0.94003e-05, 0.74600e+04, 0.74700e+04,
     a 0.14863e-02, 0.25817e+00,-0.12495e-02,-0.71361e-05,-0.41323e-02,
     a-0.22309e-05, 0.74700e+04, 0.74800e+04,
     a 0.47705e-03, 0.24870e+00, 0.58320e-02,-0.32625e-04, 0.36125e-02,
     a-0.31486e-04, 0.74800e+04, 0.74900e+04,
     a 0.23552e-04, 0.11333e+00, 0.17332e-01,-0.80926e-04, 0.14655e-01,
     a-0.77124e-04, 0.74900e+04, 0.75000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75000e+04, 0.75100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75100e+04, 0.75200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75200e+04, 0.75300e+04,
     a 0.71378e-05, 0.57272e-01, 0.23828e-01,-0.10818e-03, 0.20923e-01,
     a-0.10279e-03, 0.75300e+04, 0.75400e+04/
       data ((acr(k,j),k=1,8),j=249,256) /
     a 0.55634e-04, 0.11302e+00, 0.17308e-01,-0.80844e-04, 0.14641e-01,
     a-0.77072e-04, 0.75400e+04, 0.75500e+04,
     a 0.38740e-03, 0.29038e+00, 0.10833e-01,-0.49887e-04, 0.10414e-01,
     a-0.54606e-04, 0.75500e+04, 0.75600e+04,
     a 0.96863e-03, 0.27281e+00, 0.53932e-02,-0.28655e-04, 0.52931e-02,
     a-0.33358e-04, 0.75600e+04, 0.75700e+04,
     a 0.23248e-02, 0.26964e+00, 0.41490e-03,-0.11296e-04,-0.60618e-04,
     a-0.11765e-04, 0.75700e+04, 0.75800e+04,
     a 0.29909e-02, 0.27960e+00,-0.30237e-02, 0.84962e-06,-0.41122e-02,
     a 0.39569e-05, 0.75800e+04, 0.75900e+04,
     a 0.15040e-02, 0.43911e+00,-0.26031e-02, 0.12211e-04,-0.12549e-02,
     a 0.42399e-05, 0.75900e+04, 0.76000e+04,
     a 0.44480e-02, 0.35168e+00,-0.20068e-02,-0.11923e-05,-0.24644e-02,
     a 0.40855e-05, 0.76000e+04, 0.76100e+04,
     a 0.20548e-02, 0.31460e+00, 0.41619e-02,-0.24632e-04, 0.23465e-02,
     a-0.25042e-04, 0.76100e+04, 0.76200e+04/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
