MODULE EXCH_BUF_INTEGER
      INCLUDE "parmexch"
      INTEGER, DIMENSION(IBUFEXCH) :: BUF0,BUF1,BUF2,BUF3
      END MODULE