      SUBROUTINE    WAVA6(a,inu)
       real a(8)
       real acr(8,256)
       integer inu,j,k,i
C
C     WATER VAPOR (15300 - 17860 CM-1)
C
       DATA ((ACR(K,J),K=1,8),J=  1,  8) /
     A 0.11482E-01, 0.13183E+00,-0.38755E-02, 0.34491E-05,-0.69899E-02,
     A 0.93146E-05, 0.15300E+05, 0.15310E+05,
     A 0.15124E-02, 0.19547E+00, 0.28474E-02,-0.47616E-05, 0.17802E-02,
     A-0.10790E-04, 0.15310E+05, 0.15320E+05,
     A 0.92482E-02, 0.16207E+00,-0.25675E-02, 0.12710E-04,-0.27267E-02,
     A 0.62076E-05, 0.15320E+05, 0.15330E+05,
     A 0.10400E-01, 0.25148E+00, 0.28271E-02,-0.16657E-04, 0.13667E-02,
     A-0.17862E-04, 0.15330E+05, 0.15340E+05,
     A 0.36425E-01, 0.35831E+00,-0.10013E-02,-0.10673E-05,-0.25219E-02,
     A-0.17475E-05, 0.15340E+05, 0.15350E+05,
     A 0.50755E-02, 0.12303E+00,-0.18115E-02, 0.98037E-06,-0.34793E-02,
     A 0.85720E-06, 0.15350E+05, 0.15360E+05,
     A 0.40405E-02, 0.79669E-01,-0.35356E-02, 0.42888E-05,-0.49964E-02,
     A 0.56042E-05, 0.15360E+05, 0.15370E+05,
     A 0.12748E-02, 0.10104E+00, 0.12869E-02,-0.41165E-05,-0.25366E-03,
     A-0.85685E-05, 0.15370E+05, 0.15380E+05/
       DATA ((ACR(K,J),K=1,8),J=  9, 16) /
     A 0.43320E-02, 0.87049E-01,-0.37819E-02, 0.48177E-05,-0.66616E-02,
     A 0.94206E-05, 0.15380E+05, 0.15390E+05,
     A 0.18759E-01, 0.14839E+00,-0.50183E-02, 0.88733E-05,-0.69647E-02,
     A 0.12888E-04, 0.15390E+05, 0.15400E+05,
     A 0.13161E-01, 0.13948E+00,-0.39758E-02, 0.39620E-05,-0.63830E-02,
     A 0.82226E-05, 0.15400E+05, 0.15410E+05,
     A 0.14766E-01, 0.30841E+00,-0.25568E-02,-0.10002E-05,-0.49777E-02,
     A 0.29250E-05, 0.15410E+05, 0.15420E+05,
     A 0.21082E-01, 0.15162E+00,-0.15321E-02,-0.56826E-05,-0.38546E-02,
     A-0.16492E-05, 0.15420E+05, 0.15430E+05,
     A 0.20195E-01, 0.19485E+00,-0.27645E-03,-0.98888E-05,-0.24022E-02,
     A-0.65352E-05, 0.15430E+05, 0.15440E+05,
     A 0.11166E-01, 0.18799E+00, 0.30297E-02,-0.21309E-04, 0.49231E-03,
     A-0.16445E-04, 0.15440E+05, 0.15450E+05,
     A 0.11405E-01, 0.30263E+00, 0.33723E-02,-0.19312E-04, 0.12213E-02,
     A-0.18339E-04, 0.15450E+05, 0.15460E+05/
       DATA ((ACR(K,J),K=1,8),J= 17, 24) /
     A 0.81879E-02, 0.29480E+00, 0.56918E-02,-0.22518E-04, 0.49723E-02,
     A-0.26308E-04, 0.15460E+05, 0.15470E+05,
     A 0.86587E-02, 0.31194E+00, 0.49388E-02,-0.24988E-04, 0.25729E-02,
     A-0.23785E-04, 0.15470E+05, 0.15480E+05,
     A 0.29624E-02, 0.25004E+00, 0.21191E-02, 0.12889E-04, 0.21547E-02,
     A-0.50741E-05, 0.15480E+05, 0.15490E+05,
     A 0.10355E-02, 0.15180E+00, 0.10772E-01,-0.53973E-04, 0.81789E-02,
     A-0.49803E-04, 0.15490E+05, 0.15500E+05,
     A 0.19209E-02, 0.15869E+00, 0.35388E-02,-0.15675E-05, 0.30429E-02,
     A-0.13275E-04, 0.15500E+05, 0.15510E+05,
     A 0.21168E-02, 0.22695E+00, 0.33055E-02,-0.71274E-06, 0.18066E-02,
     A-0.10510E-04, 0.15510E+05, 0.15520E+05,
     A 0.36300E-03, 0.41337E-01, 0.46430E-02,-0.30966E-04, 0.16831E-02,
     A-0.25006E-04, 0.15520E+05, 0.15530E+05,
     A 0.64220E-03, 0.40141E-01, 0.11384E-02,-0.16948E-04,-0.17809E-02,
     A-0.11069E-04, 0.15530E+05, 0.15540E+05/
       DATA ((ACR(K,J),K=1,8),J= 25, 32) /
     A 0.17361E-02, 0.12935E+00, 0.70897E-05,-0.11804E-04,-0.29721E-02,
     A-0.56060E-05, 0.15540E+05, 0.15550E+05,
     A 0.36772E-03, 0.69843E-01, 0.15876E-02,-0.17017E-04,-0.14188E-02,
     A-0.11298E-04, 0.15550E+05, 0.15560E+05,
     A 0.81562E-03, 0.85732E-01, 0.28597E-02,-0.23409E-04,-0.81651E-04,
     A-0.17172E-04, 0.15560E+05, 0.15570E+05,
     A 0.41832E-04, 0.37286E-01, 0.71945E-02,-0.41172E-04, 0.48022E-02,
     A-0.36355E-04, 0.15570E+05, 0.15580E+05,
     A 0.28900E-03, 0.59772E-01, 0.43100E-02,-0.27519E-04, 0.25363E-02,
     A-0.26086E-04, 0.15580E+05, 0.15590E+05,
     A 0.34153E-03, 0.68927E-01, 0.58634E-02,-0.28708E-04, 0.29710E-02,
     A-0.26151E-04, 0.15590E+05, 0.15600E+05,
     A 0.63462E-03, 0.10803E+00, 0.62584E-02,-0.19120E-04, 0.49128E-02,
     A-0.24384E-04, 0.15600E+05, 0.15610E+05,
     A 0.39706E-03, 0.12303E+00, 0.73825E-02,-0.24245E-04, 0.50938E-02,
     A-0.27950E-04, 0.15610E+05, 0.15620E+05/
       DATA ((ACR(K,J),K=1,8),J= 33, 40) /
     A 0.11711E-03, 0.63154E-01, 0.49218E-02,-0.26583E-04, 0.21634E-02,
     A-0.23680E-04, 0.15620E+05, 0.15630E+05,
     A 0.28022E-03, 0.91171E-01, 0.11895E-01,-0.59964E-04, 0.91244E-02,
     A-0.54363E-04, 0.15630E+05, 0.15640E+05,
     A 0.48561E-03, 0.17953E+00, 0.48672E-02,-0.22506E-04, 0.12405E-02,
     A-0.17834E-04, 0.15640E+05, 0.15650E+05,
     A 0.32950E-03, 0.13103E+00, 0.79212E-02,-0.31361E-04, 0.48579E-02,
     A-0.30501E-04, 0.15650E+05, 0.15660E+05,
     A 0.62254E-03, 0.13066E+00, 0.68683E-02,-0.34929E-04, 0.42198E-02,
     A-0.30853E-04, 0.15660E+05, 0.15670E+05,
     A 0.34175E-03, 0.68600E-01, 0.71102E-02,-0.40828E-04, 0.41954E-02,
     A-0.34941E-04, 0.15670E+05, 0.15680E+05,
     A 0.67893E-03, 0.25103E+00, 0.26380E-02,-0.10784E-04,-0.19402E-03,
     A-0.10493E-04, 0.15680E+05, 0.15690E+05,
     A 0.22454E-02, 0.21260E+00, 0.45521E-02,-0.30054E-04, 0.18943E-02,
     A-0.25356E-04, 0.15690E+05, 0.15700E+05/
       DATA ((ACR(K,J),K=1,8),J= 41, 48) /
     A 0.22324E-03, 0.16386E+00, 0.99924E-04,-0.46542E-05,-0.32498E-02,
     A-0.44042E-06, 0.15700E+05, 0.15710E+05,
     A 0.11732E-02, 0.71121E-01, 0.17438E-02,-0.19369E-04,-0.10378E-02,
     A-0.13774E-04, 0.15710E+05, 0.15720E+05,
     A 0.11939E-02, 0.22194E+00, 0.22505E-02,-0.20274E-04,-0.30389E-03,
     A-0.15915E-04, 0.15720E+05, 0.15730E+05,
     A 0.11335E-02, 0.11310E+00, 0.65038E-03,-0.14226E-04,-0.23716E-02,
     A-0.84484E-05, 0.15730E+05, 0.15740E+05,
     A 0.13693E-02, 0.66759E-01,-0.49503E-03,-0.10274E-04,-0.33442E-02,
     A-0.49491E-05, 0.15740E+05, 0.15750E+05,
     A 0.22675E-02, 0.11019E+00,-0.15659E-02,-0.60385E-05,-0.42073E-02,
     A-0.99453E-06, 0.15750E+05, 0.15760E+05,
     A 0.21492E-02, 0.11169E+00,-0.25591E-02,-0.18680E-05,-0.52151E-02,
     A 0.29531E-05, 0.15760E+05, 0.15770E+05,
     A 0.52724E-03, 0.79449E-01,-0.15077E-02, 0.37703E-06,-0.37765E-02,
     A 0.10136E-05, 0.15770E+05, 0.15780E+05/
       DATA ((ACR(K,J),K=1,8),J= 49, 56) /
     A 0.17852E-02, 0.92282E-01,-0.42337E-02, 0.45463E-05,-0.75615E-02,
     A 0.11296E-04, 0.15780E+05, 0.15790E+05,
     A 0.57289E-03, 0.18138E+00, 0.10420E-02, 0.11358E-06,-0.10771E-02,
     A-0.38585E-05, 0.15790E+05, 0.15800E+05,
     A 0.24903E-02, 0.21722E+00, 0.61161E-03, 0.20815E-05,-0.65545E-03,
     A-0.65063E-05, 0.15800E+05, 0.15810E+05,
     A 0.33934E-02, 0.23501E+00, 0.34083E-03,-0.12029E-04,-0.27676E-02,
     A-0.56508E-05, 0.15810E+05, 0.15820E+05,
     A 0.43759E-02, 0.14995E+00,-0.36280E-02, 0.28054E-05,-0.61589E-02,
     A 0.71308E-05, 0.15820E+05, 0.15830E+05,
     A 0.96328E-03, 0.12298E+00,-0.27284E-02, 0.20822E-05,-0.51044E-02,
     A 0.41652E-05, 0.15830E+05, 0.15840E+05,
     A 0.61564E-03, 0.47547E-01,-0.41578E-02, 0.42375E-05,-0.73610E-02,
     A 0.10687E-04, 0.15840E+05, 0.15850E+05,
     A 0.14450E-03, 0.47164E-01,-0.26523E-02,-0.17845E-05,-0.54095E-02,
     A 0.37673E-05, 0.15850E+05, 0.15860E+05/
       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.15860E+05, 0.15870E+05,
     A 0.27617E-02, 0.80618E-01,-0.54341E-02, 0.93500E-05,-0.86841E-02,
     A 0.15797E-04, 0.15870E+05, 0.15880E+05,
     A 0.38448E-02, 0.88900E-01,-0.45065E-02, 0.57229E-05,-0.74065E-02,
     A 0.11610E-04, 0.15880E+05, 0.15890E+05,
     A 0.26690E-02, 0.12359E+00,-0.34030E-02, 0.15184E-05,-0.62551E-02,
     A 0.69400E-05, 0.15890E+05, 0.15900E+05,
     A 0.35205E-02, 0.15929E+00,-0.29195E-02,-0.60033E-06,-0.55137E-02,
     A 0.45063E-05, 0.15900E+05, 0.15910E+05,
     A 0.33857E-02, 0.15288E+00,-0.55305E-03,-0.10049E-04,-0.30402E-02,
     A-0.53251E-05, 0.15910E+05, 0.15920E+05,
     A 0.55123E-02, 0.20681E+00, 0.63027E-04,-0.11203E-04,-0.21942E-02,
     A-0.76854E-05, 0.15920E+05, 0.15930E+05,
     A 0.25555E-02, 0.15612E+00, 0.36149E-02,-0.23670E-04, 0.81154E-03,
     A-0.18842E-04, 0.15930E+05, 0.15940E+05/
       DATA ((ACR(K,J),K=1,8),J= 65, 72) /
     A 0.60708E-03, 0.15267E+00, 0.69583E-02,-0.23922E-04, 0.59157E-02,
     A-0.33379E-04, 0.15940E+05, 0.15950E+05,
     A 0.13307E-02, 0.12652E+00, 0.50720E-02,-0.31273E-04, 0.29461E-02,
     A-0.28552E-04, 0.15950E+05, 0.15960E+05,
     A 0.19184E-03, 0.31816E-01, 0.10823E-01,-0.55684E-04, 0.80654E-02,
     A-0.50132E-04, 0.15960E+05, 0.15970E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15970E+05, 0.15980E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15980E+05, 0.15990E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.15990E+05, 0.16000E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16000E+05, 0.16010E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16010E+05, 0.16020E+05/
       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.16020E+05, 0.16030E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16030E+05, 0.16040E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16040E+05, 0.16050E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16050E+05, 0.16060E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16060E+05, 0.16070E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16070E+05, 0.16080E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16080E+05, 0.16090E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16090E+05, 0.16100E+05/
       DATA ((ACR(K,J),K=1,8),J= 81, 88) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16100E+05, 0.16110E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16110E+05, 0.16120E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16120E+05, 0.16130E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16130E+05, 0.16140E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16140E+05, 0.16150E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16150E+05, 0.16160E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16160E+05, 0.16170E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16170E+05, 0.16180E+05/
       DATA ((ACR(K,J),K=1,8),J= 89, 96) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16180E+05, 0.16190E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16190E+05, 0.16200E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16200E+05, 0.16210E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16210E+05, 0.16220E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16220E+05, 0.16230E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16230E+05, 0.16240E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16240E+05, 0.16250E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16250E+05, 0.16260E+05/
       DATA ((ACR(K,J),K=1,8),J= 97,104) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16260E+05, 0.16270E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16270E+05, 0.16280E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16280E+05, 0.16290E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16290E+05, 0.16300E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16300E+05, 0.16310E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16310E+05, 0.16320E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16320E+05, 0.16330E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16330E+05, 0.16340E+05/
       DATA ((ACR(K,J),K=1,8),J=105,112) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16340E+05, 0.16350E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16350E+05, 0.16360E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16360E+05, 0.16370E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16370E+05, 0.16380E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16380E+05, 0.16390E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16390E+05, 0.16400E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16400E+05, 0.16410E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16410E+05, 0.16420E+05/
       DATA ((ACR(K,J),K=1,8),J=113,120) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16420E+05, 0.16430E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16430E+05, 0.16440E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16440E+05, 0.16450E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16450E+05, 0.16460E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16460E+05, 0.16470E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16470E+05, 0.16480E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16480E+05, 0.16490E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16490E+05, 0.16500E+05/
       DATA ((ACR(K,J),K=1,8),J=121,128) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16500E+05, 0.16510E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16510E+05, 0.16520E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16520E+05, 0.16530E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16530E+05, 0.16540E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16540E+05, 0.16550E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16550E+05, 0.16560E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16560E+05, 0.16570E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16570E+05, 0.16580E+05/
       DATA ((ACR(K,J),K=1,8),J=129,136) /
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16580E+05, 0.16590E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16590E+05, 0.16600E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16600E+05, 0.16610E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16610E+05, 0.16620E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16620E+05, 0.16630E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16630E+05, 0.16640E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16640E+05, 0.16650E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16650E+05, 0.16660E+05/
       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.16660E+05, 0.16670E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16670E+05, 0.16680E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16680E+05, 0.16690E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.16690E+05, 0.16700E+05,
     A 0.93657E-03, 0.16814E+00, 0.71611E-02,-0.32337E-04, 0.51118E-02,
     A-0.34290E-04, 0.16700E+05, 0.16710E+05,
     A 0.27160E-02, 0.13632E+00, 0.24507E-02,-0.17614E-04, 0.64545E-03,
     A-0.17104E-04, 0.16710E+05, 0.16720E+05,
     A 0.10210E-01, 0.33525E+00, 0.35136E-02,-0.20013E-04, 0.12395E-02,
     A-0.17557E-04, 0.16720E+05, 0.16730E+05,
     A 0.56241E-02, 0.14518E+00, 0.25514E-02,-0.60743E-05, 0.40412E-03,
     A-0.96804E-05, 0.16730E+05, 0.16740E+05/
       DATA ((ACR(K,J),K=1,8),J=145,152) /
     A 0.90151E-02, 0.16435E+00, 0.59525E-03,-0.74453E-05,-0.77433E-03,
     A-0.81348E-05, 0.16740E+05, 0.16750E+05,
     A 0.17084E-01, 0.37569E+00, 0.17092E-02,-0.10104E-04, 0.54764E-04,
     A-0.11565E-04, 0.16750E+05, 0.16760E+05,
     A 0.40680E-02, 0.16946E+00, 0.51318E-02,-0.12576E-04, 0.21847E-02,
     A-0.17187E-04, 0.16760E+05, 0.16770E+05,
     A 0.14025E-01, 0.25075E+00,-0.49903E-03,-0.39474E-05,-0.24356E-02,
     A-0.24014E-05, 0.16770E+05, 0.16780E+05,
     A 0.84391E-02, 0.29482E+00, 0.14300E-02,-0.14909E-04,-0.58149E-03,
     A-0.12205E-04, 0.16780E+05, 0.16790E+05,
     A 0.42603E-02, 0.15728E+00,-0.17076E-02, 0.11819E-04,-0.25115E-02,
     A 0.17886E-05, 0.16790E+05, 0.16800E+05,
     A 0.16111E-01, 0.35565E+00, 0.98453E-03,-0.10561E-04,-0.15547E-02,
     A-0.80917E-05, 0.16800E+05, 0.16810E+05,
     A 0.32806E-01, 0.40538E+00, 0.32361E-03,-0.71099E-05,-0.17591E-02,
     A-0.64585E-05, 0.16810E+05, 0.16820E+05/
       DATA ((ACR(K,J),K=1,8),J=153,160) /
     A 0.39593E-01, 0.37366E+00,-0.17738E-02,-0.36504E-05,-0.44894E-02,
     A 0.15591E-05, 0.16820E+05, 0.16830E+05,
     A 0.41709E-02, 0.15463E+00,-0.10460E-02,-0.17983E-05,-0.27043E-02,
     A-0.29685E-05, 0.16830E+05, 0.16840E+05,
     A 0.35117E-02, 0.15272E+00,-0.28931E-02, 0.30829E-05,-0.46348E-02,
     A 0.49372E-05, 0.16840E+05, 0.16850E+05,
     A 0.14133E-01, 0.12212E+00,-0.40965E-02, 0.41489E-05,-0.71928E-02,
     A 0.10033E-04, 0.16850E+05, 0.16860E+05,
     A 0.77536E-02, 0.19684E+00,-0.44631E-02, 0.82821E-05,-0.62227E-02,
     A 0.10476E-04, 0.16860E+05, 0.16870E+05,
     A 0.25192E-01, 0.34280E+00,-0.35030E-02, 0.58569E-05,-0.52023E-02,
     A 0.73334E-05, 0.16870E+05, 0.16880E+05,
     A 0.30248E-01, 0.27295E+00,-0.26774E-02, 0.12042E-05,-0.42996E-02,
     A 0.22385E-05, 0.16880E+05, 0.16890E+05,
     A 0.12936E-01, 0.30454E+00,-0.22564E-02,-0.11282E-05,-0.42435E-02,
     A 0.14398E-05, 0.16890E+05, 0.16900E+05/
       DATA ((ACR(K,J),K=1,8),J=161,168) /
     A 0.11031E-01, 0.24979E+00,-0.32635E-02, 0.53240E-05,-0.41759E-02,
     A 0.44122E-05, 0.16900E+05, 0.16910E+05,
     A 0.14293E-01, 0.29998E+00,-0.34569E-03,-0.90328E-05,-0.21933E-02,
     A-0.67146E-05, 0.16910E+05, 0.16920E+05,
     A 0.91809E-02, 0.29615E+00, 0.23482E-02,-0.17235E-04,-0.59956E-03,
     A-0.11968E-04, 0.16920E+05, 0.16930E+05,
     A 0.81260E-02, 0.32300E+00, 0.11339E-03,-0.98017E-06,-0.13639E-02,
     A-0.40912E-05, 0.16930E+05, 0.16940E+05,
     A 0.40319E-01, 0.36952E+00,-0.34585E-02, 0.74285E-05,-0.43038E-02,
     A 0.52677E-05, 0.16940E+05, 0.16950E+05,
     A 0.13921E-01, 0.36738E+00,-0.77085E-03, 0.45894E-06,-0.26272E-02,
     A-0.14583E-05, 0.16950E+05, 0.16960E+05,
     A 0.14345E-01, 0.25675E+00,-0.22235E-02, 0.18237E-05,-0.31796E-02,
     A 0.35185E-05, 0.16960E+05, 0.16970E+05,
     A 0.16501E-01, 0.22846E+00,-0.73791E-03,-0.81276E-05,-0.30972E-02,
     A-0.34017E-05, 0.16970E+05, 0.16980E+05/
       DATA ((ACR(K,J),K=1,8),J=169,176) /
     A 0.19984E-01, 0.24072E+00, 0.46284E-03,-0.11570E-04,-0.16535E-02,
     A-0.80246E-05, 0.16980E+05, 0.16990E+05,
     A 0.14605E-01, 0.42551E+00, 0.42003E-02,-0.24403E-04, 0.12313E-02,
     A-0.19610E-04, 0.16990E+05, 0.17000E+05,
     A 0.56604E-02, 0.31925E+00, 0.37029E-02,-0.11447E-04, 0.28937E-02,
     A-0.19869E-04, 0.17000E+05, 0.17010E+05,
     A 0.63352E-02, 0.35092E+00, 0.26893E-02,-0.15677E-04, 0.55216E-03,
     A-0.13231E-04, 0.17010E+05, 0.17020E+05,
     A 0.38440E-02, 0.22874E+00,-0.12718E-03,-0.93893E-07,-0.18171E-02,
     A-0.16527E-06, 0.17020E+05, 0.17030E+05,
     A 0.13581E-02, 0.13591E+00, 0.68077E-02,-0.35228E-04, 0.39267E-02,
     A-0.30049E-04, 0.17030E+05, 0.17040E+05,
     A 0.18736E-02, 0.25317E+00, 0.40940E-02,-0.11150E-04, 0.20737E-02,
     A-0.16908E-04, 0.17040E+05, 0.17050E+05,
     A 0.12084E-02, 0.16880E+00,-0.10058E-02,-0.78902E-06,-0.25863E-02,
     A-0.11192E-05, 0.17050E+05, 0.17060E+05/
       DATA ((ACR(K,J),K=1,8),J=177,184) /
     A 0.10487E-02, 0.69135E-01, 0.63750E-02,-0.33619E-04, 0.36725E-02,
     A-0.30416E-04, 0.17060E+05, 0.17070E+05,
     A 0.50984E-03, 0.11462E+00, 0.31391E-02,-0.21530E-04, 0.45939E-03,
     A-0.17989E-04, 0.17070E+05, 0.17080E+05,
     A 0.84428E-03, 0.14457E+00,-0.58124E-03,-0.77648E-05,-0.29191E-02,
     A-0.43661E-05, 0.17080E+05, 0.17090E+05,
     A 0.30536E-03, 0.74835E-01, 0.15726E-03,-0.12441E-04,-0.24876E-02,
     A-0.76201E-05, 0.17090E+05, 0.17100E+05,
     A 0.55260E-03, 0.12225E+00, 0.40329E-02,-0.26244E-04, 0.12152E-02,
     A-0.21176E-04, 0.17100E+05, 0.17110E+05,
     A 0.37571E-03, 0.66060E-01, 0.48930E-02,-0.17932E-04, 0.27254E-02,
     A-0.21243E-04, 0.17110E+05, 0.17120E+05,
     A 0.38817E-03, 0.96834E-01, 0.50965E-02,-0.28072E-04, 0.25414E-02,
     A-0.25439E-04, 0.17120E+05, 0.17130E+05,
     A 0.43455E-03, 0.10332E+00, 0.37899E-02,-0.25805E-04, 0.11068E-02,
     A-0.21470E-04, 0.17130E+05, 0.17140E+05/
       DATA ((ACR(K,J),K=1,8),J=185,192) /
     A 0.27970E-03, 0.13222E+00, 0.49706E-02,-0.11993E-04, 0.22042E-02,
     A-0.16597E-04, 0.17140E+05, 0.17150E+05,
     A 0.35542E-03, 0.94199E-01, 0.69032E-02,-0.38399E-04, 0.42436E-02,
     A-0.33972E-04, 0.17150E+05, 0.17160E+05,
     A 0.14332E-03, 0.10096E+00, 0.80342E-02,-0.44157E-04, 0.52994E-02,
     A-0.38930E-04, 0.17160E+05, 0.17170E+05,
     A 0.11310E-03, 0.70320E-01, 0.94132E-02,-0.19979E-04, 0.84399E-02,
     A-0.33269E-04, 0.17170E+05, 0.17180E+05,
     A 0.10970E-03, 0.73653E-01, 0.70015E-02,-0.31921E-04, 0.41785E-02,
     A-0.30330E-04, 0.17180E+05, 0.17190E+05,
     A 0.19539E-03, 0.11002E+00, 0.25848E-02,-0.21294E-04, 0.15132E-03,
     A-0.17461E-04, 0.17190E+05, 0.17200E+05,
     A 0.22464E-04, 0.40498E-01, 0.15081E-02,-0.18426E-04,-0.80302E-03,
     A-0.13773E-04, 0.17200E+05, 0.17210E+05,
     A 0.11068E-03, 0.41949E-01, 0.11384E-02,-0.16948E-04,-0.18620E-02,
     A-0.10906E-04, 0.17210E+05, 0.17220E+05/
       DATA ((ACR(K,J),K=1,8),J=193,200) /
     A 0.26372E-03, 0.14230E+00, 0.74076E-02,-0.96003E-06, 0.49470E-02,
     A-0.16056E-04, 0.17220E+05, 0.17230E+05,
     A 0.16225E-03, 0.64754E-01, 0.91255E-03, 0.45791E-05, 0.28912E-04,
     A-0.27430E-05, 0.17230E+05, 0.17240E+05,
     A 0.34492E-03, 0.13306E+00,-0.22341E-02,-0.31568E-05,-0.51367E-02,
     A 0.25216E-05, 0.17240E+05, 0.17250E+05,
     A 0.29083E-03, 0.12730E+00, 0.14643E-01,-0.70324E-04, 0.11799E-01,
     A-0.64717E-04, 0.17250E+05, 0.17260E+05,
     A 0.79159E-04, 0.84959E-01, 0.33618E-02, 0.10957E-04,-0.19083E-05,
     A 0.15045E-05, 0.17260E+05, 0.17270E+05,
     A 0.39910E-03, 0.16110E+00, 0.52228E-02,-0.66224E-05, 0.33150E-02,
     A-0.17428E-04, 0.17270E+05, 0.17280E+05,
     A 0.36117E-03, 0.14552E+00, 0.53239E-02,-0.27921E-05, 0.27764E-02,
     A-0.13072E-04, 0.17280E+05, 0.17290E+05,
     A 0.56601E-03, 0.20230E+00, 0.81509E-02,-0.39750E-04, 0.51039E-02,
     A-0.35401E-04, 0.17290E+05, 0.17300E+05/
       DATA ((ACR(K,J),K=1,8),J=201,208) /
     A 0.55220E-03, 0.27444E+00, 0.22665E-02,-0.41297E-05, 0.69271E-03,
     A-0.12175E-04, 0.17300E+05, 0.17310E+05,
     A 0.12177E-02, 0.31594E+00, 0.26446E-02,-0.11117E-04,-0.10442E-02,
     A-0.73851E-05, 0.17310E+05, 0.17320E+05,
     A 0.12068E-02, 0.36919E+00, 0.46393E-02,-0.25102E-04, 0.19370E-02,
     A-0.21181E-04, 0.17320E+05, 0.17330E+05,
     A 0.81484E-03, 0.12504E+00, 0.33991E-02,-0.24509E-04,-0.17719E-03,
     A-0.16570E-04, 0.17330E+05, 0.17340E+05,
     A 0.10075E-02, 0.10415E+00, 0.45176E-02,-0.30424E-04, 0.16795E-02,
     A-0.24622E-04, 0.17340E+05, 0.17350E+05,
     A 0.14383E-02, 0.23566E+00, 0.13476E-02,-0.10965E-04,-0.23371E-02,
     A-0.43633E-05, 0.17350E+05, 0.17360E+05,
     A 0.78276E-03, 0.22290E+00,-0.15478E-02,-0.18316E-05,-0.39408E-02,
     A 0.49016E-06, 0.17360E+05, 0.17370E+05,
     A 0.23195E-02, 0.16440E+00, 0.12573E-02,-0.16680E-04,-0.19183E-02,
     A-0.95692E-05, 0.17370E+05, 0.17380E+05/
       DATA ((ACR(K,J),K=1,8),J=209,216) /
     A 0.70669E-03, 0.18348E+00,-0.13530E-02,-0.55696E-05,-0.46409E-02,
     A 0.11901E-05, 0.17380E+05, 0.17390E+05,
     A 0.26577E-02, 0.24613E+00,-0.34475E-03,-0.91490E-05,-0.27647E-02,
     A-0.44906E-05, 0.17390E+05, 0.17400E+05,
     A 0.14266E-02, 0.18058E+00,-0.17564E-03,-0.31091E-05,-0.23868E-02,
     A-0.24568E-05, 0.17400E+05, 0.17410E+05,
     A 0.13368E-02, 0.89183E-01,-0.75731E-03,-0.30495E-05,-0.13138E-02,
     A-0.55029E-05, 0.17410E+05, 0.17420E+05,
     A 0.31555E-02, 0.29805E+00,-0.14978E-02,-0.64349E-06,-0.36817E-02,
     A 0.13405E-05, 0.17420E+05, 0.17430E+05,
     A 0.15803E-02, 0.20706E+00, 0.27308E-02,-0.14728E-04, 0.21412E-03,
     A-0.14434E-04, 0.17430E+05, 0.17440E+05,
     A 0.25444E-02, 0.19283E+00,-0.26123E-02, 0.37928E-05,-0.40723E-02,
     A 0.33236E-05, 0.17440E+05, 0.17450E+05,
     A 0.28951E-02, 0.14488E+00, 0.82222E-03,-0.14617E-04,-0.20986E-02,
     A-0.86758E-05, 0.17450E+05, 0.17460E+05/
       DATA ((ACR(K,J),K=1,8),J=217,224) /
     A 0.99222E-03, 0.58296E-01,-0.69730E-03,-0.88805E-05,-0.30012E-02,
     A-0.51319E-05, 0.17460E+05, 0.17470E+05,
     A 0.49761E-02, 0.23841E+00,-0.34073E-02, 0.21975E-05,-0.60900E-02,
     A 0.67461E-05, 0.17470E+05, 0.17480E+05,
     A 0.24737E-02, 0.16103E+00,-0.33546E-02, 0.52399E-05,-0.50448E-02,
     A 0.49288E-05, 0.17480E+05, 0.17490E+05,
     A 0.65774E-03, 0.76908E-01,-0.48253E-02, 0.72725E-05,-0.72344E-02,
     A 0.11372E-04, 0.17490E+05, 0.17500E+05,
     A 0.85946E-03, 0.13720E+00,-0.34619E-02, 0.38209E-05,-0.55141E-02,
     A 0.64456E-05, 0.17500E+05, 0.17510E+05,
     A 0.13088E-03, 0.77214E-01, 0.10378E-03,-0.67806E-05,-0.24574E-02,
     A-0.43444E-05, 0.17510E+05, 0.17520E+05,
     A 0.72177E-03, 0.12037E+00,-0.32371E-02, 0.38429E-05,-0.57060E-02,
     A 0.63102E-05, 0.17520E+05, 0.17530E+05,
     A 0.25932E-02, 0.57507E-01,-0.53841E-02, 0.93892E-05,-0.80102E-02,
     A 0.14171E-04, 0.17530E+05, 0.17540E+05/
       DATA ((ACR(K,J),K=1,8),J=225,232) /
     A 0.64329E-02, 0.34361E+00,-0.33999E-02, 0.41519E-05,-0.47285E-02,
     A 0.41554E-05, 0.17540E+05, 0.17550E+05,
     A 0.20356E-02, 0.18182E+00,-0.31524E-02, 0.92073E-06,-0.56549E-02,
     A 0.49733E-05, 0.17550E+05, 0.17560E+05,
     A 0.65331E-02, 0.22623E+00,-0.15636E-02,-0.41008E-05,-0.32357E-02,
     A-0.23034E-05, 0.17560E+05, 0.17570E+05,
     A 0.59972E-02, 0.29545E+00,-0.60272E-03,-0.79159E-05,-0.32228E-02,
     A-0.31603E-05, 0.17570E+05, 0.17580E+05,
     A 0.40039E-02, 0.31360E+00, 0.32065E-02,-0.20617E-04, 0.67568E-03,
     A-0.17932E-04, 0.17580E+05, 0.17590E+05,
     A 0.16959E-02, 0.28903E+00, 0.51560E-02,-0.19347E-04, 0.33983E-02,
     A-0.21801E-04, 0.17590E+05, 0.17600E+05,
     A 0.70732E-03, 0.16014E+00, 0.10501E-02,-0.14628E-04,-0.15478E-02,
     A-0.97179E-05, 0.17600E+05, 0.17610E+05,
     A 0.12558E-02, 0.17980E+00, 0.44641E-02,-0.25933E-04, 0.19766E-02,
     A-0.22898E-04, 0.17610E+05, 0.17620E+05/
       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.17620E+05, 0.17630E+05,
     A 0.59440E-04, 0.33158E-01, 0.60208E-02,-0.36477E-04, 0.32636E-02,
     A-0.30925E-04, 0.17630E+05, 0.17640E+05,
     A 0.16627E-03, 0.41123E-01,-0.27846E-02,-0.12553E-05,-0.55418E-02,
     A 0.42965E-05, 0.17640E+05, 0.17650E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17650E+05, 0.17660E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17660E+05, 0.17670E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17670E+05, 0.17680E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17680E+05, 0.17690E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17690E+05, 0.17700E+05/
       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.17700E+05, 0.17710E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17710E+05, 0.17720E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17720E+05, 0.17730E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17730E+05, 0.17740E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17740E+05, 0.17750E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17750E+05, 0.17760E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17760E+05, 0.17770E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17770E+05, 0.17780E+05/
       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.17780E+05, 0.17790E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17790E+05, 0.17800E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17800E+05, 0.17810E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17810E+05, 0.17820E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17820E+05, 0.17830E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17830E+05, 0.17840E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17840E+05, 0.17850E+05,
     A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
     A 0.00000E+00, 0.17850E+05, 0.17860E+05/
C
c
      do i=1,8
      a(i)=acr(i,inu)
      enddo
c
      return
      end

