MODULE EXCH_BUF_REAL
      INCLUDE "parmexch"
      REAL, DIMENSION(IBUFEXCH) :: BUF0,BUF1,BUF2,BUF3
      END MODULE