| ! /* -*- Mode: Fortran; -*- */ |
| ! |
| ! Copyright (c) Microsoft Corporation. All rights reserved. |
| ! Licensed under the MIT License. |
| ! |
| ! (C) 2001 by Argonne National Laboratory. |
| ! (C) 2015 by Microsoft Corporation |
| ! |
| ! MPICH COPYRIGHT |
| ! |
| ! The following is a notice of limited availability of the code, and disclaimer |
| ! which must be included in the prologue of the code and in all source listings |
| ! of the code. |
| ! |
| ! Copyright Notice |
| ! + 2002 University of Chicago |
| ! |
| ! Permission is hereby granted to use, reproduce, prepare derivative works, and |
| ! to redistribute to others. This software was authored by: |
| ! |
| ! Mathematics and Computer Science Division |
| ! Argonne National Laboratory, Argonne IL 60439 |
| ! |
| ! (and) |
| ! |
| ! Department of Computer Science |
| ! University of Illinois at Urbana-Champaign |
| ! |
| ! |
| ! GOVERNMENT LICENSE |
| ! |
| ! Portions of this material resulted from work developed under a U.S. |
| ! Government Contract and are subject to the following license: the Government |
| ! is granted for itself and others acting on its behalf a paid-up, nonexclusive, |
| ! irrevocable worldwide license in this computer software to reproduce, prepare |
| ! derivative works, and perform publicly and display publicly. |
| ! |
| ! DISCLAIMER |
| ! |
| ! This computer code material was prepared, in part, as an account of work |
| ! sponsored by an agency of the United States Government. Neither the United |
| ! States, nor the University of Chicago, nor any of their employees, makes any |
| ! warranty express or implied, or assumes any legal liability or responsibility |
| ! for the accuracy, completeness, or usefulness of any information, apparatus, |
| ! product, or process disclosed, or represents that its use would not infringe |
| ! privately owned rights. |
| ! |
| ! |
| INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR |
| PARAMETER (MPI_SOURCE=3,MPI_TAG=4,MPI_ERROR=5) |
| INTEGER MPI_STATUS_SIZE |
| PARAMETER (MPI_STATUS_SIZE=5) |
| INTEGER MPI_STATUS_IGNORE(MPI_STATUS_SIZE) |
| INTEGER MPI_STATUSES_IGNORE(MPI_STATUS_SIZE,1) |
| INTEGER MPI_ERRCODES_IGNORE(1) |
| CHARACTER*1 MPI_ARGVS_NULL(1,1) |
| CHARACTER*1 MPI_ARGV_NULL(1) |
| INTEGER MPI_SUCCESS |
| PARAMETER (MPI_SUCCESS=0) |
| INTEGER MPI_ERR_OTHER |
| PARAMETER (MPI_ERR_OTHER=15) |
| INTEGER MPI_ERR_WIN |
| PARAMETER (MPI_ERR_WIN=45) |
| INTEGER MPI_ERR_FILE |
| PARAMETER (MPI_ERR_FILE=27) |
| INTEGER MPI_ERR_COUNT |
| PARAMETER (MPI_ERR_COUNT=2) |
| INTEGER MPI_ERR_SPAWN |
| PARAMETER (MPI_ERR_SPAWN=42) |
| INTEGER MPI_ERR_BASE |
| PARAMETER (MPI_ERR_BASE=46) |
| INTEGER MPI_ERR_RMA_CONFLICT |
| PARAMETER (MPI_ERR_RMA_CONFLICT=49) |
| INTEGER MPI_ERR_IN_STATUS |
| PARAMETER (MPI_ERR_IN_STATUS=17) |
| INTEGER MPI_ERR_INFO_KEY |
| PARAMETER (MPI_ERR_INFO_KEY=29) |
| INTEGER MPI_ERR_LOCKTYPE |
| PARAMETER (MPI_ERR_LOCKTYPE=47) |
| INTEGER MPI_ERR_OP |
| PARAMETER (MPI_ERR_OP=9) |
| INTEGER MPI_ERR_ARG |
| PARAMETER (MPI_ERR_ARG=12) |
| INTEGER MPI_ERR_READ_ONLY |
| PARAMETER (MPI_ERR_READ_ONLY=40) |
| INTEGER MPI_ERR_SIZE |
| PARAMETER (MPI_ERR_SIZE=51) |
| INTEGER MPI_ERR_BUFFER |
| PARAMETER (MPI_ERR_BUFFER=1) |
| INTEGER MPI_ERR_DUP_DATAREP |
| PARAMETER (MPI_ERR_DUP_DATAREP=24) |
| INTEGER MPI_ERR_UNSUPPORTED_DATAREP |
| PARAMETER (MPI_ERR_UNSUPPORTED_DATAREP=43) |
| INTEGER MPI_ERR_LASTCODE |
| PARAMETER (MPI_ERR_LASTCODE=1073741823) |
| INTEGER MPI_ERR_TRUNCATE |
| PARAMETER (MPI_ERR_TRUNCATE=14) |
| INTEGER MPI_ERR_DISP |
| PARAMETER (MPI_ERR_DISP=52) |
| INTEGER MPI_ERR_PORT |
| PARAMETER (MPI_ERR_PORT=38) |
| INTEGER MPI_ERR_INFO_NOKEY |
| PARAMETER (MPI_ERR_INFO_NOKEY=31) |
| INTEGER MPI_ERR_ASSERT |
| PARAMETER (MPI_ERR_ASSERT=53) |
| INTEGER MPI_ERR_FILE_EXISTS |
| PARAMETER (MPI_ERR_FILE_EXISTS=25) |
| INTEGER MPI_ERR_PENDING |
| PARAMETER (MPI_ERR_PENDING=18) |
| INTEGER MPI_ERR_COMM |
| PARAMETER (MPI_ERR_COMM=5) |
| INTEGER MPI_ERR_KEYVAL |
| PARAMETER (MPI_ERR_KEYVAL=48) |
| INTEGER MPI_ERR_NAME |
| PARAMETER (MPI_ERR_NAME=33) |
| INTEGER MPI_ERR_REQUEST |
| PARAMETER (MPI_ERR_REQUEST=19) |
| INTEGER MPI_ERR_GROUP |
| PARAMETER (MPI_ERR_GROUP=8) |
| INTEGER MPI_ERR_TOPOLOGY |
| PARAMETER (MPI_ERR_TOPOLOGY=10) |
| INTEGER MPI_ERR_TYPE |
| PARAMETER (MPI_ERR_TYPE=3) |
| INTEGER MPI_ERR_TAG |
| PARAMETER (MPI_ERR_TAG=4) |
| INTEGER MPI_ERR_INFO_VALUE |
| PARAMETER (MPI_ERR_INFO_VALUE=30) |
| INTEGER MPI_ERR_NOT_SAME |
| PARAMETER (MPI_ERR_NOT_SAME=35) |
| INTEGER MPI_ERR_RMA_SYNC |
| PARAMETER (MPI_ERR_RMA_SYNC=50) |
| INTEGER MPI_ERR_INFO |
| PARAMETER (MPI_ERR_INFO=28) |
| INTEGER MPI_ERR_NO_MEM |
| PARAMETER (MPI_ERR_NO_MEM=34) |
| INTEGER MPI_ERR_BAD_FILE |
| PARAMETER (MPI_ERR_BAD_FILE=22) |
| INTEGER MPI_ERR_FILE_IN_USE |
| PARAMETER (MPI_ERR_FILE_IN_USE=26) |
| INTEGER MPI_ERR_UNKNOWN |
| PARAMETER (MPI_ERR_UNKNOWN=13) |
| INTEGER MPI_ERR_UNSUPPORTED_OPERATION |
| PARAMETER (MPI_ERR_UNSUPPORTED_OPERATION=44) |
| INTEGER MPI_ERR_QUOTA |
| PARAMETER (MPI_ERR_QUOTA=39) |
| INTEGER MPI_ERR_AMODE |
| PARAMETER (MPI_ERR_AMODE=21) |
| INTEGER MPI_ERR_ROOT |
| PARAMETER (MPI_ERR_ROOT=7) |
| INTEGER MPI_ERR_RANK |
| PARAMETER (MPI_ERR_RANK=6) |
| INTEGER MPI_ERR_DIMS |
| PARAMETER (MPI_ERR_DIMS=11) |
| INTEGER MPI_ERR_NO_SUCH_FILE |
| PARAMETER (MPI_ERR_NO_SUCH_FILE=37) |
| INTEGER MPI_ERR_SERVICE |
| PARAMETER (MPI_ERR_SERVICE=41) |
| INTEGER MPI_ERR_INTERN |
| PARAMETER (MPI_ERR_INTERN=16) |
| INTEGER MPI_ERR_IO |
| PARAMETER (MPI_ERR_IO=32) |
| INTEGER MPI_ERR_ACCESS |
| PARAMETER (MPI_ERR_ACCESS=20) |
| INTEGER MPI_ERR_NO_SPACE |
| PARAMETER (MPI_ERR_NO_SPACE=36) |
| INTEGER MPI_ERR_CONVERSION |
| PARAMETER (MPI_ERR_CONVERSION=23) |
| INTEGER MPI_ERRORS_ARE_FATAL |
| PARAMETER (MPI_ERRORS_ARE_FATAL=1409286144) |
| INTEGER MPI_ERRORS_RETURN |
| PARAMETER (MPI_ERRORS_RETURN=1409286145) |
| INTEGER MPI_IDENT |
| PARAMETER (MPI_IDENT=0) |
| INTEGER MPI_CONGRUENT |
| PARAMETER (MPI_CONGRUENT=1) |
| INTEGER MPI_SIMILAR |
| PARAMETER (MPI_SIMILAR=2) |
| INTEGER MPI_UNEQUAL |
| PARAMETER (MPI_UNEQUAL=3) |
| INTEGER MPI_MAX |
| PARAMETER (MPI_MAX=1476395009) |
| INTEGER MPI_MIN |
| PARAMETER (MPI_MIN=1476395010) |
| INTEGER MPI_SUM |
| PARAMETER (MPI_SUM=1476395011) |
| INTEGER MPI_PROD |
| PARAMETER (MPI_PROD=1476395012) |
| INTEGER MPI_LAND |
| PARAMETER (MPI_LAND=1476395013) |
| INTEGER MPI_BAND |
| PARAMETER (MPI_BAND=1476395014) |
| INTEGER MPI_LOR |
| PARAMETER (MPI_LOR=1476395015) |
| INTEGER MPI_BOR |
| PARAMETER (MPI_BOR=1476395016) |
| INTEGER MPI_LXOR |
| PARAMETER (MPI_LXOR=1476395017) |
| INTEGER MPI_BXOR |
| PARAMETER (MPI_BXOR=1476395018) |
| INTEGER MPI_MINLOC |
| PARAMETER (MPI_MINLOC=1476395019) |
| INTEGER MPI_MAXLOC |
| PARAMETER (MPI_MAXLOC=1476395020) |
| INTEGER MPI_REPLACE |
| PARAMETER (MPI_REPLACE=1476395021) |
| INTEGER MPI_NO_OP |
| PARAMETER (MPI_NO_OP=1476395022) |
| INTEGER MPI_COMM_WORLD |
| PARAMETER (MPI_COMM_WORLD=1140850688) |
| INTEGER MPI_COMM_SELF |
| PARAMETER (MPI_COMM_SELF=1140850689) |
| INTEGER MPI_COMM_TYPE_SHARED |
| PARAMETER (MPI_COMM_TYPE_SHARED=1) |
| INTEGER MPI_GROUP_EMPTY |
| PARAMETER (MPI_GROUP_EMPTY=1207959552) |
| INTEGER MPI_COMM_NULL |
| PARAMETER (MPI_COMM_NULL=67108864) |
| INTEGER MPI_WIN_NULL |
| PARAMETER (MPI_WIN_NULL=536870912) |
| INTEGER MPI_FILE_NULL |
| PARAMETER (MPI_FILE_NULL=0) |
| INTEGER MPI_GROUP_NULL |
| PARAMETER (MPI_GROUP_NULL=134217728) |
| INTEGER MPI_OP_NULL |
| PARAMETER (MPI_OP_NULL=402653184) |
| INTEGER MPI_DATATYPE_NULL |
| PARAMETER (MPI_DATATYPE_NULL=z'0c000000') |
| INTEGER MPI_REQUEST_NULL |
| PARAMETER (MPI_REQUEST_NULL=738197504) |
| INTEGER MPI_ERRHANDLER_NULL |
| PARAMETER (MPI_ERRHANDLER_NULL=335544320) |
| INTEGER MPI_INFO_NULL |
| PARAMETER (MPI_INFO_NULL=469762048) |
| INTEGER MPI_MESSAGE_NULL |
| PARAMETER (MPI_MESSAGE_NULL=805306368) |
| INTEGER MPI_MESSAGE_NO_PROC |
| PARAMETER (MPI_MESSAGE_NO_PROC=1879048192) |
| INTEGER MPI_TAG_UB |
| PARAMETER (MPI_TAG_UB=1681915906) |
| INTEGER MPI_HOST |
| PARAMETER (MPI_HOST=1681915908) |
| INTEGER MPI_IO |
| PARAMETER (MPI_IO=1681915910) |
| INTEGER MPI_WTIME_IS_GLOBAL |
| PARAMETER (MPI_WTIME_IS_GLOBAL=1681915912) |
| INTEGER MPI_UNIVERSE_SIZE |
| PARAMETER (MPI_UNIVERSE_SIZE=1681915914) |
| INTEGER MPI_LASTUSEDCODE |
| PARAMETER (MPI_LASTUSEDCODE=1681915916) |
| INTEGER MPI_APPNUM |
| PARAMETER (MPI_APPNUM=1681915918) |
| INTEGER MPI_WIN_BASE |
| PARAMETER (MPI_WIN_BASE=1711276034) |
| INTEGER MPI_WIN_SIZE |
| PARAMETER (MPI_WIN_SIZE=1711276036) |
| INTEGER MPI_WIN_DISP_UNIT |
| PARAMETER (MPI_WIN_DISP_UNIT=1711276038) |
| INTEGER MPI_MAX_ERROR_STRING |
| PARAMETER (MPI_MAX_ERROR_STRING=511) |
| INTEGER MPI_MAX_PORT_NAME |
| PARAMETER (MPI_MAX_PORT_NAME=255) |
| INTEGER MPI_MAX_OBJECT_NAME |
| PARAMETER (MPI_MAX_OBJECT_NAME=127) |
| INTEGER MPI_MAX_INFO_KEY |
| PARAMETER (MPI_MAX_INFO_KEY=254) |
| INTEGER MPI_MAX_INFO_VAL |
| PARAMETER (MPI_MAX_INFO_VAL=1023) |
| INTEGER MPI_MAX_PROCESSOR_NAME |
| PARAMETER (MPI_MAX_PROCESSOR_NAME=128-1) |
| INTEGER MPI_MAX_DATAREP_STRING |
| PARAMETER (MPI_MAX_DATAREP_STRING=127) |
| INTEGER MPI_MAX_LIBRARY_VERSION_STRING |
| PARAMETER (MPI_MAX_LIBRARY_VERSION_STRING=64-1) |
| INTEGER MPI_UNDEFINED |
| PARAMETER (MPI_UNDEFINED=(-32766)) |
| INTEGER MPI_KEYVAL_INVALID |
| PARAMETER (MPI_KEYVAL_INVALID=603979776) |
| INTEGER MPI_BSEND_OVERHEAD |
| PARAMETER (MPI_BSEND_OVERHEAD=(95)) |
| INTEGER MPI_PROC_NULL |
| PARAMETER (MPI_PROC_NULL=-1) |
| INTEGER MPI_ANY_SOURCE |
| PARAMETER (MPI_ANY_SOURCE=-2) |
| INTEGER MPI_ANY_TAG |
| PARAMETER (MPI_ANY_TAG=-1) |
| INTEGER MPI_ROOT |
| PARAMETER (MPI_ROOT=-3) |
| INTEGER MPI_GRAPH |
| PARAMETER (MPI_GRAPH=1) |
| INTEGER MPI_CART |
| PARAMETER (MPI_CART=2) |
| INTEGER MPI_DIST_GRAPH |
| PARAMETER (MPI_DIST_GRAPH=3) |
| INTEGER MPI_VERSION |
| PARAMETER (MPI_VERSION=2) |
| INTEGER MPI_SUBVERSION |
| PARAMETER (MPI_SUBVERSION=0) |
| INTEGER MPI_LOCK_EXCLUSIVE |
| PARAMETER (MPI_LOCK_EXCLUSIVE=234) |
| INTEGER MPI_LOCK_SHARED |
| PARAMETER (MPI_LOCK_SHARED=235) |
| INTEGER MPI_CHAR |
| PARAMETER (MPI_CHAR=z'4c000101') |
| INTEGER MPI_UNSIGNED_CHAR |
| PARAMETER (MPI_UNSIGNED_CHAR=z'4c000102') |
| INTEGER MPI_SHORT |
| PARAMETER (MPI_SHORT=z'4c000203') |
| INTEGER MPI_UNSIGNED_SHORT |
| PARAMETER (MPI_UNSIGNED_SHORT=z'4c000204') |
| INTEGER MPI_INT |
| PARAMETER (MPI_INT=z'4c000405') |
| INTEGER MPI_UNSIGNED |
| PARAMETER (MPI_UNSIGNED=z'4c000406') |
| INTEGER MPI_LONG |
| PARAMETER (MPI_LONG=z'4c000407') |
| INTEGER MPI_UNSIGNED_LONG |
| PARAMETER (MPI_UNSIGNED_LONG=z'4c000408') |
| INTEGER MPI_LONG_LONG |
| PARAMETER (MPI_LONG_LONG=z'4c000809') |
| INTEGER MPI_LONG_LONG_INT |
| PARAMETER (MPI_LONG_LONG_INT=z'4c000809') |
| INTEGER MPI_FLOAT |
| PARAMETER (MPI_FLOAT=z'4c00040a') |
| INTEGER MPI_DOUBLE |
| PARAMETER (MPI_DOUBLE=z'4c00080b') |
| INTEGER MPI_LONG_DOUBLE |
| PARAMETER (MPI_LONG_DOUBLE=z'4c00080c') |
| INTEGER MPI_BYTE |
| PARAMETER (MPI_BYTE=z'4c00010d') |
| INTEGER MPI_WCHAR |
| PARAMETER (MPI_WCHAR=z'4c00020e') |
| INTEGER MPI_PACKED |
| PARAMETER (MPI_PACKED=z'4c00010f') |
| INTEGER MPI_LB |
| PARAMETER (MPI_LB=z'4c000010') |
| INTEGER MPI_UB |
| PARAMETER (MPI_UB=z'4c000011') |
| INTEGER MPI_2INT |
| PARAMETER (MPI_2INT=z'4c000816') |
| INTEGER MPI_SIGNED_CHAR |
| PARAMETER (MPI_SIGNED_CHAR=z'4c000118') |
| INTEGER MPI_UNSIGNED_LONG_LONG |
| PARAMETER (MPI_UNSIGNED_LONG_LONG=z'4c000819') |
| INTEGER MPI_CHARACTER |
| PARAMETER (MPI_CHARACTER=z'4c00011a') |
| INTEGER MPI_INTEGER |
| PARAMETER (MPI_INTEGER=z'4c00041b') |
| INTEGER MPI_REAL |
| PARAMETER (MPI_REAL=z'4c00041c') |
| INTEGER MPI_LOGICAL |
| PARAMETER (MPI_LOGICAL=z'4c00041d') |
| INTEGER MPI_COMPLEX |
| PARAMETER (MPI_COMPLEX=z'4c00081e') |
| INTEGER MPI_DOUBLE_PRECISION |
| PARAMETER (MPI_DOUBLE_PRECISION=z'4c00081f') |
| INTEGER MPI_2INTEGER |
| PARAMETER (MPI_2INTEGER=z'4c000820') |
| INTEGER MPI_2REAL |
| PARAMETER (MPI_2REAL=z'4c000821') |
| INTEGER MPI_DOUBLE_COMPLEX |
| PARAMETER (MPI_DOUBLE_COMPLEX=z'4c001022') |
| INTEGER MPI_2DOUBLE_PRECISION |
| PARAMETER (MPI_2DOUBLE_PRECISION=z'4c001023') |
| INTEGER MPI_2COMPLEX |
| PARAMETER (MPI_2COMPLEX=z'4c001024') |
| INTEGER MPI_2DOUBLE_COMPLEX |
| PARAMETER (MPI_2DOUBLE_COMPLEX=z'4c002025') |
| INTEGER MPI_REAL2 |
| PARAMETER (MPI_REAL2=z'0c000000') |
| INTEGER MPI_REAL4 |
| PARAMETER (MPI_REAL4=z'4c000427') |
| INTEGER MPI_COMPLEX8 |
| PARAMETER (MPI_COMPLEX8=z'4c000828') |
| INTEGER MPI_REAL8 |
| PARAMETER (MPI_REAL8=z'4c000829') |
| INTEGER MPI_COMPLEX16 |
| PARAMETER (MPI_COMPLEX16=z'4c00102a') |
| INTEGER MPI_REAL16 |
| PARAMETER (MPI_REAL16=z'0c000000') |
| INTEGER MPI_COMPLEX32 |
| PARAMETER (MPI_COMPLEX32=z'0c000000') |
| INTEGER MPI_INTEGER1 |
| PARAMETER (MPI_INTEGER1=z'4c00012d') |
| INTEGER MPI_COMPLEX4 |
| PARAMETER (MPI_COMPLEX4=z'0c000000') |
| INTEGER MPI_INTEGER2 |
| PARAMETER (MPI_INTEGER2=z'4c00022f') |
| INTEGER MPI_INTEGER4 |
| PARAMETER (MPI_INTEGER4=z'4c000430') |
| INTEGER MPI_INTEGER8 |
| PARAMETER (MPI_INTEGER8=z'4c000831') |
| INTEGER MPI_INTEGER16 |
| PARAMETER (MPI_INTEGER16=z'0c000000') |
| |
| INCLUDE 'mpifptr.h' |
| |
| INTEGER MPI_OFFSET |
| PARAMETER (MPI_OFFSET=z'4c00083c') |
| INTEGER MPI_COUNT |
| PARAMETER (MPI_COUNT=z'4c00083d') |
| INTEGER MPI_FLOAT_INT |
| PARAMETER (MPI_FLOAT_INT=-1946157056) |
| INTEGER MPI_DOUBLE_INT |
| PARAMETER (MPI_DOUBLE_INT=-1946157055) |
| INTEGER MPI_LONG_INT |
| PARAMETER (MPI_LONG_INT=-1946157054) |
| INTEGER MPI_SHORT_INT |
| PARAMETER (MPI_SHORT_INT=-1946157053) |
| INTEGER MPI_LONG_DOUBLE_INT |
| PARAMETER (MPI_LONG_DOUBLE_INT=-1946157052) |
| INTEGER MPI_INTEGER_KIND |
| PARAMETER (MPI_INTEGER_KIND=4) |
| INTEGER MPI_OFFSET_KIND |
| PARAMETER (MPI_OFFSET_KIND=8) |
| INTEGER MPI_COUNT_KIND |
| PARAMETER (MPI_COUNT_KIND=8) |
| INTEGER MPI_COMBINER_NAMED |
| PARAMETER (MPI_COMBINER_NAMED=1) |
| INTEGER MPI_COMBINER_DUP |
| PARAMETER (MPI_COMBINER_DUP=2) |
| INTEGER MPI_COMBINER_CONTIGUOUS |
| PARAMETER (MPI_COMBINER_CONTIGUOUS=3) |
| INTEGER MPI_COMBINER_VECTOR |
| PARAMETER (MPI_COMBINER_VECTOR=4) |
| INTEGER MPI_COMBINER_HVECTOR_INTEGER |
| PARAMETER (MPI_COMBINER_HVECTOR_INTEGER=5) |
| INTEGER MPI_COMBINER_HVECTOR |
| PARAMETER (MPI_COMBINER_HVECTOR=6) |
| INTEGER MPI_COMBINER_INDEXED |
| PARAMETER (MPI_COMBINER_INDEXED=7) |
| INTEGER MPI_COMBINER_HINDEXED_INTEGER |
| PARAMETER (MPI_COMBINER_HINDEXED_INTEGER=8) |
| INTEGER MPI_COMBINER_HINDEXED |
| PARAMETER (MPI_COMBINER_HINDEXED=9) |
| INTEGER MPI_COMBINER_INDEXED_BLOCK |
| PARAMETER (MPI_COMBINER_INDEXED_BLOCK=10) |
| INTEGER MPI_COMBINER_STRUCT_INTEGER |
| PARAMETER (MPI_COMBINER_STRUCT_INTEGER=11) |
| INTEGER MPI_COMBINER_STRUCT |
| PARAMETER (MPI_COMBINER_STRUCT=12) |
| INTEGER MPI_COMBINER_SUBARRAY |
| PARAMETER (MPI_COMBINER_SUBARRAY=13) |
| INTEGER MPI_COMBINER_DARRAY |
| PARAMETER (MPI_COMBINER_DARRAY=14) |
| INTEGER MPI_COMBINER_F90_REAL |
| PARAMETER (MPI_COMBINER_F90_REAL=15) |
| INTEGER MPI_COMBINER_F90_COMPLEX |
| PARAMETER (MPI_COMBINER_F90_COMPLEX=16) |
| INTEGER MPI_COMBINER_F90_INTEGER |
| PARAMETER (MPI_COMBINER_F90_INTEGER=17) |
| INTEGER MPI_COMBINER_RESIZED |
| PARAMETER (MPI_COMBINER_RESIZED=18) |
| INTEGER MPI_COMBINER_HINDEXED_BLOCK |
| PARAMETER (MPI_COMBINER_HINDEXED_BLOCK=19) |
| INTEGER MPI_MODE_NOCHECK |
| PARAMETER (MPI_MODE_NOCHECK=1024) |
| INTEGER MPI_MODE_NOSTORE |
| PARAMETER (MPI_MODE_NOSTORE=2048) |
| INTEGER MPI_MODE_NOPUT |
| PARAMETER (MPI_MODE_NOPUT=4096) |
| INTEGER MPI_MODE_NOPRECEDE |
| PARAMETER (MPI_MODE_NOPRECEDE=8192) |
| INTEGER MPI_MODE_NOSUCCEED |
| PARAMETER (MPI_MODE_NOSUCCEED=16384) |
| INTEGER MPI_THREAD_SINGLE |
| PARAMETER (MPI_THREAD_SINGLE=0) |
| INTEGER MPI_THREAD_FUNNELED |
| PARAMETER (MPI_THREAD_FUNNELED=1) |
| INTEGER MPI_THREAD_SERIALIZED |
| PARAMETER (MPI_THREAD_SERIALIZED=2) |
| INTEGER MPI_THREAD_MULTIPLE |
| PARAMETER (MPI_THREAD_MULTIPLE=3) |
| INTEGER MPI_MODE_RDONLY |
| PARAMETER (MPI_MODE_RDONLY=2) |
| INTEGER MPI_MODE_RDWR |
| PARAMETER (MPI_MODE_RDWR=8) |
| INTEGER MPI_MODE_WRONLY |
| PARAMETER (MPI_MODE_WRONLY=4) |
| INTEGER MPI_MODE_DELETE_ON_CLOSE |
| PARAMETER (MPI_MODE_DELETE_ON_CLOSE=16) |
| INTEGER MPI_MODE_UNIQUE_OPEN |
| PARAMETER (MPI_MODE_UNIQUE_OPEN=32) |
| INTEGER MPI_MODE_CREATE |
| PARAMETER (MPI_MODE_CREATE=1) |
| INTEGER MPI_MODE_EXCL |
| PARAMETER (MPI_MODE_EXCL=64) |
| INTEGER MPI_MODE_APPEND |
| PARAMETER (MPI_MODE_APPEND=128) |
| INTEGER MPI_MODE_SEQUENTIAL |
| PARAMETER (MPI_MODE_SEQUENTIAL=256) |
| INTEGER MPI_SEEK_SET |
| PARAMETER (MPI_SEEK_SET=600) |
| INTEGER MPI_SEEK_CUR |
| PARAMETER (MPI_SEEK_CUR=602) |
| INTEGER MPI_SEEK_END |
| PARAMETER (MPI_SEEK_END=604) |
| INTEGER MPI_ORDER_C |
| PARAMETER (MPI_ORDER_C=56) |
| INTEGER MPI_ORDER_FORTRAN |
| PARAMETER (MPI_ORDER_FORTRAN=57) |
| INTEGER MPI_DISTRIBUTE_BLOCK |
| PARAMETER (MPI_DISTRIBUTE_BLOCK=121) |
| INTEGER MPI_DISTRIBUTE_CYCLIC |
| PARAMETER (MPI_DISTRIBUTE_CYCLIC=122) |
| INTEGER MPI_DISTRIBUTE_NONE |
| PARAMETER (MPI_DISTRIBUTE_NONE=123) |
| INTEGER MPI_DISTRIBUTE_DFLT_DARG |
| PARAMETER (MPI_DISTRIBUTE_DFLT_DARG=-49767) |
| INTEGER (KIND=8) MPI_DISPLACEMENT_CURRENT |
| PARAMETER (MPI_DISPLACEMENT_CURRENT=-54278278) |
| INTEGER MPI_BOTTOM, MPI_IN_PLACE |
| INTEGER MPI_UNWEIGHTED, MPI_WEIGHTS_EMPTY |
| EXTERNAL MPI_DUP_FN, MPI_NULL_DELETE_FN, MPI_NULL_COPY_FN |
| EXTERNAL MPI_WTIME, MPI_WTICK |
| EXTERNAL PMPI_WTIME, PMPI_WTICK |
| EXTERNAL MPI_COMM_DUP_FN, MPI_COMM_NULL_DELETE_FN |
| EXTERNAL MPI_COMM_NULL_COPY_FN |
| EXTERNAL MPI_WIN_DUP_FN, MPI_WIN_NULL_DELETE_FN |
| EXTERNAL MPI_WIN_NULL_COPY_FN |
| EXTERNAL MPI_TYPE_DUP_FN, MPI_TYPE_NULL_DELETE_FN |
| EXTERNAL MPI_TYPE_NULL_COPY_FN |
| EXTERNAL MPI_CONVERSION_FN_NULL |
| DOUBLE PRECISION MPI_WTIME, MPI_WTICK |
| DOUBLE PRECISION PMPI_WTIME, PMPI_WTICK |
| |
| COMMON /MPIPRIV1/ MPI_BOTTOM, MPI_IN_PLACE, MPI_STATUS_IGNORE |
| |
| COMMON /MPIPRIV2/ MPI_STATUSES_IGNORE, MPI_ERRCODES_IGNORE |
| !DEC$ ATTRIBUTES DLLIMPORT :: /MPIPRIV1/, /MPIPRIV2/ |
| |
| COMMON /MPIFCMB5/ MPI_UNWEIGHTED |
| COMMON /MPIFCMB9/ MPI_WEIGHTS_EMPTY |
| !DEC$ ATTRIBUTES DLLIMPORT :: /MPIFCMB5/, /MPIFCMB9/ |
| |
| COMMON /MPIPRIVC/ MPI_ARGVS_NULL, MPI_ARGV_NULL |
| !DEC$ ATTRIBUTES DLLIMPORT :: /MPIPRIVC/ |
