INTEGER MPI_INTEGER, MPI_REAL, MPI_DOUBLE_PRECISION 
      INTEGER*8 MPI_INTEGER8
      PARAMETER (MPI_REAL=26,MPI_DOUBLE_PRECISION=27,MPI_INTEGER=28)
      INTEGER MPI_COMM_WORLD
      PARAMETER (MPI_COMM_WORLD=91)
      INTEGER MPI_CHARACTER
      PARAMETER (MPI_CHARACTER=1)
      INTEGER MPI_STATUS_SIZE
      PARAMETER (MPI_STATUS_SIZE=4)
      INTEGER MPI_LOGICAL
      PARAMETER (MPI_LOGICAL=25)