IMPLICIT none
      INTEGER PPRANK,NPROCS,NEIGHB,COMM2D,DEBUG_MPI
      DIMENSION NEIGHB(2)
      COMMON /MPISUPPORT/ PPRANK,NPROCS,NEIGHB,COMM2D,DEBUG_MPI
      INTEGER HAVEMPI
      PARAMETER(HAVEMPI=1)