C/*
C *  
C *  (C) 1993 by Argonne National Laboratory and Mississipi State University.
C *      All rights reserved.  See COPYRIGHT in top-level directory.
C */
C
C/* user include file for MPI programs, with no dependencies */
C
C/* return codes */
       integer MPI_SUCCESS,MPI_ERR_EXHAUSTED,MPI_ERR_TAG, 
     $ MPI_ERR_COMM_NULL,MPI_ERR_COMM_INTER,MPI_ERR_COMM_INTRA, 
     $ MPI_ERR_ARG,MPI_ERR_BUFFER,MPI_ERR_COUNT,MPI_ERR_TYPE, 
     $ MPI_ERR_ROOT,MPI_ERR_OP,MPI_ERR_ERRORCODE,
     $ MPI_ERR_GROUP,MPI_ERR_RANK,MPI_ERR_TOPOLOGY,
     $ MPI_ERR_DIMS,MPI_ERR_NULL,MPI_ERR_UNKNOWN,
     $ MPI_ERR_REQUEST,MPI_ERR_LIMIT,MPI_ERR_INTERN,
     $ MPI_ERR_NOMATCH,MPI_ERR_TRUNCATE,MPI_ERR_BAD_ARGS,
     $ MPI_ERR_INIT,MPI_ERR_PERM_KEY,MPI_ERR_BUFFER_EXISTS,
     $ MPI_ERR_COMM,MPI_ERR_PERM_TYPE,MPI_ERR_IN_STATUS,
     $ MPI_ERR_OTHER,MPI_ERR_LASTCODE
       parameter (MPI_SUCCESS=0,MPI_ERR_EXHAUSTED=1,MPI_ERR_TAG=2, 
     $ MPI_ERR_COMM_NULL=3,MPI_ERR_COMM_INTER=4,MPI_ERR_COMM_INTRA=5, 
     $ MPI_ERR_ARG=6,MPI_ERR_BUFFER=7,MPI_ERR_COUNT=8,MPI_ERR_TYPE=9, 
     $ MPI_ERR_ROOT=10,MPI_ERR_OP=11,MPI_ERR_ERRORCODE=12,
     $ MPI_ERR_GROUP=13,MPI_ERR_RANK=14,MPI_ERR_TOPOLOGY=15,
     $ MPI_ERR_DIMS=16,MPI_ERR_NULL=17,MPI_ERR_UNKNOWN=18,
     $ MPI_ERR_REQUEST=19,MPI_ERR_LIMIT=20,MPI_ERR_INTERN=21,
     $ MPI_ERR_NOMATCH=22,MPI_ERR_TRUNCATE=23,MPI_ERR_BAD_ARGS=24,
     $ MPI_ERR_INIT=25,MPI_ERR_PERM_KEY=26,MPI_ERR_BUFFER_EXISTS=27,
     $ MPI_ERR_COMM=28,MPI_ERR_PERM_TYPE=29,MPI_ERR_IN_STATUS=30,
     $ MPI_ERR_OTHER=31,
     $ MPI_ERR_LASTCODE=32)
C
       integer MPI_UNDEFINED
       parameter (MPI_UNDEFINED = (-32766))
C
       INTEGER MPI_GRAPH, MPI_CART
       PARAMETER (MPI_GRAPH = 1, MPI_CART = 2)
       INTEGER  MPI_PROC_NULL
       PARAMETER ( MPI_PROC_NULL = (-1) )
C
       INTEGER MPI_BSEND_OVERHEAD
       PARAMETER ( MPI_BSEND_OVERHEAD = 512 )

      INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR
      PARAMETER(MPI_SOURCE=2, MPI_TAG=3, MPI_ERROR=4)
      INTEGER MPI_STATUS_SIZE
      PARAMETER (MPI_STATUS_SIZE=4)
      INTEGER MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING
      PARAMETER (MPI_MAX_PROCESSOR_NAME=256,
     $           MPI_MAX_ERROR_STRING=256)
C
      INTEGER MPI_COMM_NULL
      PARAMETER (MPI_COMM_NULL=0)
c
      INTEGER MPI_DATATYPE_NULL
      PARAMETER (MPI_DATATYPE_NULL = 0)
      
      INTEGER MPI_ERRHANDLER_NULL
      PARAMETER (MPI_ERRHANDLER_NULL = 0)
      
      INTEGER MPI_GROUP_NULL
      PARAMETER (MPI_GROUP_NULL = 0)
      
      INTEGER MPI_KEYVAL_INVALID
      PARAMETER (MPI_KEYVAL_INVALID = 0)
      
      INTEGER MPI_REQUEST_NULL
      PARAMETER (MPI_REQUEST_NULL = 0)
C 
      INTEGER MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
      PARAMETER (MPI_IDENT=0, MPI_CONGRUENT=1, MPI_SIMILAR=2,
     $          MPI_UNEQUAL=3)
C     
C     We handle datatypes by putting the variables that hold them into
C     common.  This way, a Fortran program can directly use the various
C     datatypes and can even give them to C programs.
C
C     MPI_BOTTOM needs to be a known address; here we put it at the
C     beginning of the common block.  The point-to-point and collective
C     routines know about MPI_BOTTOM, but MPI_TYPE_STRUCT as yet does not.
C
C     The types MPI_INTEGER1,2,4 and MPI_REAL4,8 are OPTIONAL.
C     Their values are zero if they are not available.  Note that
C     using these reduces the portability of code (though may enhance
C     portability between Crays and other systems)
C
      integer MPI_TAG_UB, MPI_HOST, MPI_IO
      integer MPI_BOTTOM, MPI_INTEGER, MPI_REAL, MPI_DOUBLE_PRECISION, 
     $        MPI_COMPLEX, MPI_DOUBLE_COMPLEX,
     $        MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE, 
     $        MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
     $        MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX,
     $        MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
     $        MPI_REAL2, MPI_REAL4, MPI_REAL8, MPI_UB, MPI_LB, 
     $        MPI_PACKED
      integer MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY
      integer MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
     $     MPI_OP_NULL
      integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN
      common /mpipriv/ MPI_BOTTOM, MPI_INTEGER, MPI_REAL, 
     $     MPI_DOUBLE_PRECISION,
     $     MPI_COMPLEX, MPI_DOUBLE_COMPLEX, 
     $     MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE,
     $     MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
     $     MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX, 
     $     MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
     $     MPI_REAL2, MPI_REAL4, MPI_REAL8,
     $     MPI_UB, MPI_LB, 
     $     MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY,
     $     MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
     $     MPI_OP_NULL, 
     $     MPI_TAG_UB, MPI_HOST, MPI_IO, MPI_ERRORS_ARE_FATAL, 
     $     MPI_ERRORS_RETURN, MPI_PACKED
C
      integer MPI_ANY_SOURCE
      parameter (MPI_ANY_SOURCE = (-2))
      integer MPI_ANY_TAG
      parameter (MPI_ANY_TAG = (-1))
C
C     All other MPI routines are subroutines
      double precision MPI_WTIME, MPI_WTICK
      external MPI_WTIME, MPI_WTICK
C
C     The attribute copy/delete functions are symbols that can be passed
C     to MPI routines
      external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, MPI_DUP_FN