COMMON /EXCH_BUF/ exchBuf1, exchBuf2 Real*8 exchBuf1(((sNx+2*OLx)*OLy)*Nr) Real*8 exchBuf2(((sNx+2*OLx)*OLy)*Nr)