131 lines
5.3 KiB
C
131 lines
5.3 KiB
C
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
|
|
|