COMMON /EXCH_BUF/ exchBuf1, exchBuf2
      Real*8 exchBuf1(sNx)
      Real*8 exchBuf2(sNx)