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