      subroutine    moca2(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
c     carbon monoxide (5060 - 7610 cm-1)
c
       data ((acr(k,j),k=1,8),j=  1,  8) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50600e+04, 0.50700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50700e+04, 0.50800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50800e+04, 0.50900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.50900e+04, 0.51000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51000e+04, 0.51100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51100e+04, 0.51200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51200e+04, 0.51300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51300e+04, 0.51400e+04/
       data ((acr(k,j),k=1,8),j=  9, 16) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51400e+04, 0.51500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51500e+04, 0.51600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51600e+04, 0.51700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51700e+04, 0.51800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51800e+04, 0.51900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.51900e+04, 0.52000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52000e+04, 0.52100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52100e+04, 0.52200e+04/
       data ((acr(k,j),k=1,8),j= 17, 24) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52200e+04, 0.52300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52300e+04, 0.52400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52400e+04, 0.52500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52500e+04, 0.52600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52600e+04, 0.52700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52700e+04, 0.52800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52800e+04, 0.52900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.52900e+04, 0.53000e+04/
       data ((acr(k,j),k=1,8),j= 25, 32) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53000e+04, 0.53100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53100e+04, 0.53200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53200e+04, 0.53300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.53300e+04, 0.53400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.55600e+04, 0.55700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56500e+04, 0.56600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56600e+04, 0.56700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56700e+04, 0.56800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56800e+04, 0.56900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.56900e+04, 0.57000e+04/
       data ((acr(k,j),k=1,8),j= 65, 72) /
     a 0.46683e-25, 0.39946e-06, 0.15004e+00,-0.60825e-03, 0.14724e+00,
     a-0.60261e-03, 0.57000e+04, 0.57100e+04,
     a 0.12312e-24, 0.39946e-06, 0.14595e+00,-0.59188e-03, 0.14315e+00,
     a-0.58625e-03, 0.57100e+04, 0.57200e+04,
     a 0.11266e-23, 0.75927e-06, 0.13909e+00,-0.56295e-03, 0.13671e+00,
     a-0.55959e-03, 0.57200e+04, 0.57300e+04,
     a 0.20103e-23, 0.39946e-06, 0.13415e+00,-0.54470e-03, 0.13135e+00,
     a-0.53906e-03, 0.57300e+04, 0.57400e+04,
     a 0.49063e-23, 0.39946e-06, 0.13038e+00,-0.52961e-03, 0.12758e+00,
     a-0.52397e-03, 0.57400e+04, 0.57500e+04,
     a 0.39255e-22, 0.76518e-06, 0.12413e+00,-0.50331e-03, 0.12169e+00,
     a-0.49966e-03, 0.57500e+04, 0.57600e+04,
     a 0.63305e-22, 0.39946e-06, 0.11954e+00,-0.48626e-03, 0.11675e+00,
     a-0.48063e-03, 0.57600e+04, 0.57700e+04,
     a 0.15847e-20, 0.10092e-05, 0.10516e+00,-0.41519e-03, 0.10467e+00,
     a-0.42332e-03, 0.57700e+04, 0.57800e+04/
       data ((acr(k,j),k=1,8),j= 73, 80) /
     a 0.36811e-20, 0.71016e-06, 0.99850e-01,-0.39815e-03, 0.98651e-01,
     a-0.40130e-03, 0.57800e+04, 0.57900e+04,
     a 0.32319e-19, 0.12898e-05, 0.92607e-01,-0.36764e-03, 0.92132e-01,
     a-0.37318e-03, 0.57900e+04, 0.58000e+04,
     a 0.56403e-19, 0.64883e-06, 0.87374e-01,-0.34877e-03, 0.86636e-01,
     a-0.35122e-03, 0.58000e+04, 0.58100e+04,
     a 0.16009e-18, 0.95335e-06, 0.84900e-01,-0.33381e-03, 0.84844e-01,
     a-0.34257e-03, 0.58100e+04, 0.58200e+04,
     a 0.10493e-17, 0.10941e-05, 0.76482e-01,-0.30762e-03, 0.80072e-01,
     a-0.25402e-03, 0.58200e+04, 0.58300e+04,
     a 0.18849e-17, 0.23089e-05, 0.73551e-01,-0.27995e-03, 0.10134e+00,
     a-0.10464e-03, 0.58300e+04, 0.58400e+04,
     a 0.12274e-16, 0.18503e-05, 0.65955e-01,-0.26262e-03, 0.87190e-01,
     a-0.61536e-04, 0.58400e+04, 0.58500e+04,
     a 0.19475e-16, 0.21482e-05, 0.62641e-01,-0.23947e-03, 0.92133e-01,
     a-0.55475e-04, 0.58500e+04, 0.58600e+04/
       data ((acr(k,j),k=1,8),j= 81, 88) /
     a 0.42834e-16, 0.52914e-05, 0.60443e-01,-0.21227e-03, 0.10022e+00,
     a-0.91581e-04, 0.58600e+04, 0.58700e+04,
     a 0.25814e-15, 0.27090e-05, 0.53613e-01,-0.20674e-03, 0.78473e-01,
     a-0.24556e-04, 0.58700e+04, 0.58800e+04,
     a 0.34582e-15, 0.24018e-05, 0.49817e-01,-0.18578e-03, 0.83893e-01,
     a-0.99109e-05, 0.58800e+04, 0.58900e+04,
     a 0.19766e-14, 0.26621e-05, 0.44522e-01,-0.17276e-03, 0.70531e-01,
     a 0.17855e-04, 0.58900e+04, 0.59000e+04,
     a 0.70047e-14, 0.57066e-05, 0.39496e-01,-0.14181e-03, 0.75654e-01,
     a 0.57712e-05, 0.59000e+04, 0.59100e+04,
     a 0.86757e-14, 0.33052e-04, 0.40851e-01,-0.49822e-04, 0.88823e-01,
     a-0.20654e-03, 0.59100e+04, 0.59200e+04,
     a 0.40761e-13, 0.14076e-04, 0.33721e-01,-0.81073e-04, 0.73952e-01,
     a-0.71550e-04, 0.59200e+04, 0.59300e+04,
     a 0.11802e-12, 0.18315e-04, 0.29401e-01,-0.56811e-04, 0.72527e-01,
     a-0.61682e-04, 0.59300e+04, 0.59400e+04/
       data ((acr(k,j),k=1,8),j= 89, 96) /
     a 0.12517e-12, 0.32080e-04, 0.29645e-01, 0.52262e-05, 0.75673e-01,
     a-0.16050e-03, 0.59400e+04, 0.59500e+04,
     a 0.53299e-12, 0.83885e-04, 0.28648e-01, 0.51037e-04, 0.76701e-01,
     a-0.11804e-03, 0.59500e+04, 0.59600e+04,
     a 0.12176e-11, 0.43932e-04, 0.23072e-01, 0.39649e-04, 0.70157e-01,
     a-0.25205e-04, 0.59600e+04, 0.59700e+04,
     a 0.26812e-11, 0.74724e-04, 0.21392e-01, 0.78492e-04, 0.68900e-01,
     a-0.57739e-04, 0.59700e+04, 0.59800e+04,
     a 0.52852e-11, 0.81623e-04, 0.18441e-01, 0.92123e-04, 0.72474e-01,
     a 0.38196e-04, 0.59800e+04, 0.59900e+04,
     a 0.12137e-10, 0.25414e-03, 0.24162e-01, 0.17686e-03, 0.65473e-01,
     a-0.11219e-03, 0.59900e+04, 0.60000e+04,
     a 0.20220e-10, 0.17439e-03, 0.21342e-01, 0.17061e-03, 0.61647e-01,
     a-0.49481e-04, 0.60000e+04, 0.60100e+04,
     a 0.70256e-10, 0.39013e-03, 0.25354e-01, 0.17390e-03, 0.56294e-01,
     a-0.10119e-03, 0.60100e+04, 0.60200e+04/
       data ((acr(k,j),k=1,8),j= 97,104) /
     a 0.91715e-10, 0.38456e-03, 0.27846e-01, 0.13835e-03, 0.55857e-01,
     a-0.85738e-04, 0.60200e+04, 0.60300e+04,
     a 0.35812e-09, 0.89526e-03, 0.36811e-01,-0.19691e-04, 0.60026e-01,
     a-0.51263e-04, 0.60300e+04, 0.60400e+04,
     a 0.51951e-09, 0.65082e-03, 0.34472e-01,-0.38106e-04, 0.57771e-01,
     a-0.17166e-04, 0.60400e+04, 0.60500e+04,
     a 0.23396e-08, 0.12585e-02, 0.37673e-01,-0.13867e-03, 0.56388e-01,
     a-0.37053e-04, 0.60500e+04, 0.60600e+04,
     a 0.31627e-08, 0.12183e-02, 0.33941e-01,-0.11427e-03, 0.58265e-01,
     a-0.14231e-04, 0.60600e+04, 0.60700e+04,
     a 0.13747e-07, 0.10905e-02, 0.30224e-01,-0.11494e-03, 0.45888e-01,
     a-0.12430e-04, 0.60700e+04, 0.60800e+04,
     a 0.16746e-07, 0.11055e-02, 0.27100e-01,-0.94052e-04, 0.48795e-01,
     a 0.17267e-05, 0.60800e+04, 0.60900e+04,
     a 0.69627e-07, 0.14531e-02, 0.23474e-01,-0.87211e-04, 0.42687e-01,
     a 0.29187e-04, 0.60900e+04, 0.61000e+04/
       data ((acr(k,j),k=1,8),j=105,112) /
     a 0.17890e-06, 0.23713e-02, 0.20122e-01,-0.59840e-04, 0.42924e-01,
     a 0.93171e-05, 0.61000e+04, 0.61100e+04,
     a 0.16918e-06, 0.23730e-02, 0.18564e-01,-0.32576e-04, 0.47913e-01,
     a-0.56001e-05, 0.61100e+04, 0.61200e+04,
     a 0.61497e-06, 0.20751e-02, 0.14671e-01,-0.36986e-04, 0.34470e-01,
     a 0.32655e-04, 0.61200e+04, 0.61300e+04,
     a 0.13012e-05, 0.59809e-02, 0.14081e-01, 0.12706e-04, 0.41059e-01,
     a-0.14713e-04, 0.61300e+04, 0.61400e+04,
     a 0.23687e-05, 0.34824e-02, 0.10334e-01, 0.11870e-04, 0.31822e-01,
     a 0.21340e-04, 0.61400e+04, 0.61500e+04,
     a 0.41168e-05, 0.49295e-02, 0.84797e-02, 0.33745e-04, 0.32297e-01,
     a 0.28091e-04, 0.61500e+04, 0.61600e+04,
     a 0.72750e-05, 0.15527e-01, 0.12669e-01, 0.99217e-04, 0.36777e-01,
     a-0.55634e-04, 0.61600e+04, 0.61700e+04,
     a 0.97222e-05, 0.91547e-02, 0.10267e-01, 0.95535e-04, 0.30194e-01,
     a-0.25674e-04, 0.61700e+04, 0.61800e+04/
       data ((acr(k,j),k=1,8),j=113,120) /
     a 0.17703e-04, 0.12682e-01, 0.90194e-02, 0.10461e-03, 0.28528e-01,
     a-0.88439e-05, 0.61800e+04, 0.61900e+04,
     a 0.32557e-04, 0.38848e-01, 0.22453e-01, 0.51526e-04, 0.32595e-01,
     a-0.10114e-03, 0.61900e+04, 0.62000e+04,
     a 0.36378e-04, 0.26446e-01, 0.22869e-01, 0.15344e-04, 0.29472e-01,
     a-0.78062e-04, 0.62000e+04, 0.62100e+04,
     a 0.15091e-03, 0.45107e-01, 0.27472e-01,-0.95379e-04, 0.27231e-01,
     a-0.10428e-03, 0.62100e+04, 0.62200e+04,
     a 0.44635e-03, 0.44617e-01, 0.22992e-01,-0.83379e-04, 0.22135e-01,
     a-0.86546e-04, 0.62200e+04, 0.62300e+04,
     a 0.46450e-03, 0.25101e-01, 0.20065e-01,-0.74635e-04, 0.19585e-01,
     a-0.71162e-04, 0.62300e+04, 0.62400e+04,
     a 0.18567e-02, 0.45449e-01, 0.17769e-01,-0.76382e-04, 0.15878e-01,
     a-0.68709e-04, 0.62400e+04, 0.62500e+04,
     a 0.42909e-02, 0.47419e-01, 0.14170e-01,-0.63990e-04, 0.12295e-01,
     a-0.55119e-04, 0.62500e+04, 0.62600e+04/
       data ((acr(k,j),k=1,8),j=121,128) /
     a 0.37371e-02, 0.24446e-01, 0.11714e-01,-0.54834e-04, 0.96092e-02,
     a-0.46244e-04, 0.62600e+04, 0.62700e+04,
     a 0.12658e-01, 0.47613e-01, 0.91389e-02,-0.44311e-04, 0.67170e-02,
     a-0.37584e-04, 0.62700e+04, 0.62800e+04,
     a 0.22981e-01, 0.50782e-01, 0.62294e-02,-0.32686e-04, 0.39945e-02,
     a-0.24418e-04, 0.62800e+04, 0.62900e+04,
     a 0.37510e-01, 0.52128e-01, 0.36805e-02,-0.22546e-04, 0.14034e-02,
     a-0.13971e-04, 0.62900e+04, 0.63000e+04,
     a 0.54636e-01, 0.53047e-01, 0.14952e-02,-0.13854e-04,-0.74579e-03,
     a-0.43465e-05, 0.63000e+04, 0.63100e+04,
     a 0.70262e-01, 0.53883e-01,-0.32751e-03,-0.66345e-05,-0.26603e-02,
     a 0.28956e-05, 0.63100e+04, 0.63200e+04,
     a 0.78204e-01, 0.55207e-01,-0.17859e-02,-0.86799e-06,-0.43181e-02,
     a 0.75236e-05, 0.63200e+04, 0.63300e+04,
     a 0.10057e+00, 0.88588e-01,-0.30519e-02, 0.41846e-05,-0.57894e-02,
     a 0.10937e-04, 0.63300e+04, 0.63400e+04/
       data ((acr(k,j),k=1,8),j=129,136) /
     a 0.31333e-01, 0.65185e-01,-0.38296e-02, 0.72424e-05,-0.66430e-02,
     a 0.12937e-04, 0.63400e+04, 0.63500e+04,
     a 0.33845e-01, 0.64920e-01,-0.39811e-02, 0.78455e-05,-0.67871e-02,
     a 0.13512e-04, 0.63500e+04, 0.63600e+04,
     a 0.12178e+00, 0.88198e-01,-0.34193e-02, 0.56304e-05,-0.62387e-02,
     a 0.11334e-04, 0.63600e+04, 0.63700e+04,
     a 0.15914e+00, 0.81345e-01,-0.20733e-02, 0.32783e-06,-0.48764e-02,
     a 0.59258e-05, 0.63700e+04, 0.63800e+04,
     a 0.17605e+00, 0.10382e+00, 0.47396e-03,-0.94825e-05,-0.22623e-02,
     a-0.43366e-05, 0.63800e+04, 0.63900e+04,
     a 0.10257e+00, 0.11943e+00, 0.50797e-02,-0.26879e-04, 0.25640e-02,
     a-0.23075e-04, 0.63900e+04, 0.64000e+04,
     a 0.25341e-01, 0.11996e+00, 0.12613e-01,-0.55092e-04, 0.10613e-01,
     a-0.53927e-04, 0.64000e+04, 0.64100e+04,
     a 0.20638e-02, 0.13697e+00, 0.24524e-01,-0.97954e-04, 0.25258e-01,
     a-0.99948e-04, 0.64100e+04, 0.64200e+04/
       data ((acr(k,j),k=1,8),j=137,144) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64400e+04, 0.64500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64500e+04, 0.64600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64600e+04, 0.64700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64700e+04, 0.64800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64800e+04, 0.64900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.64900e+04, 0.65000e+04/
       data ((acr(k,j),k=1,8),j=145,152) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65000e+04, 0.65100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65100e+04, 0.65200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65200e+04, 0.65300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65300e+04, 0.65400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65400e+04, 0.65500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65500e+04, 0.65600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.65600e+04, 0.65700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66300e+04, 0.66400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66400e+04, 0.66500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66500e+04, 0.66600e+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.66600e+04, 0.66700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66700e+04, 0.66800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66800e+04, 0.66900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.66900e+04, 0.67000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67000e+04, 0.67100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67100e+04, 0.67200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67200e+04, 0.67300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67300e+04, 0.67400e+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.67400e+04, 0.67500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67500e+04, 0.67600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67600e+04, 0.67700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67700e+04, 0.67800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.67800e+04, 0.67900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68300e+04, 0.68400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68400e+04, 0.68500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68500e+04, 0.68600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68600e+04, 0.68700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68700e+04, 0.68800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68800e+04, 0.68900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.68900e+04, 0.69000e+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.69000e+04, 0.69100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69100e+04, 0.69200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69200e+04, 0.69300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69300e+04, 0.69400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69400e+04, 0.69500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69500e+04, 0.69600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69600e+04, 0.69700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.69700e+04, 0.69800e+04/
       data ((acr(k,j),k=1,8),j=193,200) /
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72500e+04, 0.72600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72600e+04, 0.72700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72700e+04, 0.72800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72800e+04, 0.72900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.72900e+04, 0.73000e+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.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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.73900e+04, 0.74000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74000e+04, 0.74100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74100e+04, 0.74200e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74200e+04, 0.74300e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74300e+04, 0.74400e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74400e+04, 0.74500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74500e+04, 0.74600e+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.74600e+04, 0.74700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74700e+04, 0.74800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.74800e+04, 0.74900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 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.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75300e+04, 0.75400e+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.75400e+04, 0.75500e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75500e+04, 0.75600e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75600e+04, 0.75700e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75700e+04, 0.75800e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75800e+04, 0.75900e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.75900e+04, 0.76000e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76000e+04, 0.76100e+04,
     a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
     a 0.00000e+00, 0.76100e+04, 0.76200e+04/
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end
