openmpi/include/mpif.h.in

! -*- fortran -*-
!
! $HEADER$
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Do ***not*** copy this file to the directory where your Fortran 
! fortran application is compiled unless it is absolutely necessary!  Most
! modern Fortran compilers now support the -I command line flag, which
! tells the compiler where to find .h files (specifically, this one).  For
! example:
!
!      shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
!
! will probably do the trick (assuming that you have set OMPI_HOME 
! properly).
!
! That being said, OMPI's "mpif77" wrapper compiler should
! automatically include the -I option for you.  The following command
! should be equivalent to the command listed above:
!
!      shell$ mpif77 foo.f -o foo
!
! You should not copy this file to your local directory because it is
! possible that this file will be changed between versions of Open MPI.
! Indeed, this mpif.h is incompatible with the mpif.f of other 
! implementations of MPI.  Using this mpif.h with other implementations 
! of MPI, or with other versions of Open MPI will result in undefined
! behavior (to include incorrect results, segmentation faults, 
! unexplainable "hanging" in your application, etc.).  Always use the
! -I command line option instead (or let mpif77 do it for you).
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!
! OMPI version
! This file is generated from configure; do not edit it manually.
!
       integer OMPI_MAJOR_VERSION, OMPI_MINOR_VERSION
       integer OMPI_RELEASE_VERSION
       integer OMPI_ALPHA_VERSION, OMPI_BETA_VERSION
       character*32 OMPI_SVN_VERSION
       parameter (OMPI_MAJOR_VERSION=@OMPI_MAJOR_VERSION@)
       parameter (OMPI_MINOR_VERSION=@OMPI_MINOR_VERSION@)
       parameter (OMPI_RELEASE_VERSION=@OMPI_RELEASE_VERSION@)
       parameter (OMPI_ALPHA_VERSION=@OMPI_ALPHA_VERSION@)
       parameter (OMPI_BETA_VERSION=@OMPI_BETA_VERSION@)
       parameter (OMPI_SVN_VERSION="@OMPI_SVN_VERSION@")
!
! MPI version
!
       integer MPI_VERSION, MPI_SUBVERSION

       parameter (MPI_VERSION=2)
       parameter (MPI_SUBVERSION=0)
!
! misc. constants
!
       integer MPI_ANY_SOURCE, MPI_ANY_TAG
       integer MPI_PROC_NULL, MPI_MAX_PROCESSOR_NAME
       integer MPI_MAX_ERROR_STRING, MPI_UNDEFINED
       integer MPI_CART, MPI_GRAPH, MPI_KEYVAL_INVALID
       integer MPI_STATUS_SIZE, MPI_SOURCE, MPI_TAG, MPI_ERROR
       integer MPI_TAG_UB, MPI_HOST, MPI_IO, MPI_WTIME_IS_GLOBAL
       integer MPI_UNIVERSE_SIZE, MPI_APPNUM, MPI_WIN_BASE
       integer MPI_WIN_SIZE, MPI_WIN_DISP_UNIT, MPI_BSEND_OVERHEAD
       integer MPI_MAX_INFO_KEY, MPI_MAX_INFO_VAL
       integer MPI_MAX_PORT_NAME, MPI_MAX_OBJECT_NAME
       integer MPI_ORDER_C, MPI_ORDER_FORTRAN
       integer MPI_DISTRIBUTE_BLOCK, MPI_DISTRIBUTE_CYCLIC
       integer MPI_DISTRIBUTE_NONE, MPI_DISTRIBUTE_DFLT_DARG

       parameter (MPI_ANY_SOURCE=-1)
       parameter (MPI_ANY_TAG=-1)
       parameter (MPI_PROC_NULL=-2)
       parameter (MPI_MAX_PROCESSOR_NAME=255)
       parameter (MPI_MAX_ERROR_STRING=255)
       parameter (MPI_UNDEFINED=-32766)
       parameter (MPI_CART=1)
       parameter (MPI_GRAPH=2)
       parameter (MPI_KEYVAL_INVALID=-1)
       parameter (MPI_STATUS_SIZE=4)
       parameter (MPI_SOURCE=1)
       parameter (MPI_TAG=2)
       parameter (MPI_ERROR=3)
       parameter (MPI_TAG_UB=0)
       parameter (MPI_HOST=1)
       parameter (MPI_IO=2)
       parameter (MPI_WTIME_IS_GLOBAL=3)
       parameter (MPI_UNIVERSE_SIZE=4)
       parameter (MPI_APPNUM=5)
       parameter (MPI_WIN_BASE=6)
       parameter (MPI_WIN_SIZE=7)
       parameter (MPI_WIN_DISP_UNIT=8)
       parameter (MPI_BSEND_OVERHEAD=40)
       parameter (MPI_MAX_INFO_KEY=35)
       parameter (MPI_MAX_INFO_VAL=255)
       parameter (MPI_MAX_PORT_NAME=35)
       parameter (MPI_MAX_OBJECT_NAME=63)
       parameter (MPI_ORDER_C=0)
       parameter (MPI_ORDER_FORTRAN=1)
       parameter (MPI_DISTRIBUTE_BLOCK=0)
       parameter (MPI_DISTRIBUTE_CYCLIC=1)
       parameter (MPI_DISTRIBUTE_NONE=2)
       parameter (MPI_DISTRIBUTE_DFLT_DARG=-1)
!
! global variables
!
       double complex MPI_BOTTOM, MPI_ARGV_NULL
       double complex MPI_ARGVS_NULL, MPI_ERRCODES_IGNORE
       double complex MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE
       common/mpi_fortran_bottom/MPI_BOTTOM
       common/mpi_fortran_argv_null/MPI_ARGV_NULL
       common/mpi_fortran_argvs_null/MPI_ARGVS_NULL
       common/mpi_fortran_errcodes_ignore/MPI_ERRCODES_IGNORE
       common/mpi_fortran_status_ignore/MPI_STATUS_IGNORE
       common/mpi_fortran_statuses_ignore/MPI_STATUSES_IGNORE
!
! NULL "handles" (indices)
!
       integer MPI_GROUP_NULL, MPI_COMM_NULL, MPI_DATATYPE_NULL
       integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL
       integer MPI_INFO_NULL

       parameter (MPI_GROUP_NULL=0)
       parameter (MPI_COMM_NULL=2)
       parameter (MPI_DATATYPE_NULL=0)
       parameter (MPI_REQUEST_NULL=-1)
       parameter (MPI_OP_NULL=-1)
       parameter (MPI_ERRHANDLER_NULL=-1)
       parameter (MPI_INFO_NULL=-1)
!
! MPI_Init_thread constants
!
       integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED
       integer MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE

       parameter (MPI_THREAD_SINGLE=0)
       parameter (MPI_THREAD_FUNNELED=1)
       parameter (MPI_THREAD_SERIALIZED=2)
       parameter (MPI_THREAD_MULTIPLE=3)
!
! error classes
!
       integer MPI_SUCCESS                    
       integer MPI_ERR_BUFFER                
       integer MPI_ERR_COUNT                 
       integer MPI_ERR_TYPE                  
       integer MPI_ERR_TAG                   
       integer MPI_ERR_COMM                  
       integer MPI_ERR_RANK                  
       integer MPI_ERR_REQUEST               
       integer MPI_ERR_ROOT                  
       integer MPI_ERR_GROUP                 
       integer MPI_ERR_OP                    
       integer MPI_ERR_TOPOLOGY              
       integer MPI_ERR_DIMS                  
       integer MPI_ERR_ARG                   
       integer MPI_ERR_UNKNOWN               
       integer MPI_ERR_TRUNCATE              
       integer MPI_ERR_OTHER                 
       integer MPI_ERR_INTERN                
       integer MPI_ERR_IN_STATUS             
       integer MPI_ERR_PENDING               
       integer MPI_ERR_ACCESS                
       integer MPI_ERR_AMODE                 
       integer MPI_ERR_ASSERT                
       integer MPI_ERR_BAD_FILE              
       integer MPI_ERR_BASE                  
       integer MPI_ERR_CONVERSION            
       integer MPI_ERR_DISP                  
       integer MPI_ERR_DUP_DATAREP           
       integer MPI_ERR_FILE_EXISTS           
       integer MPI_ERR_FILE_IN_USE           
       integer MPI_ERR_FILE                  
       integer MPI_ERR_INFO_KEY              
       integer MPI_ERR_INFO_NOKEY            
       integer MPI_ERR_INFO_VALUE            
       integer MPI_ERR_INFO                  
       integer MPI_ERR_IO                    
       integer MPI_ERR_KEYVAL                
       integer MPI_ERR_LOCKTYPE              
       integer MPI_ERR_NAME                  
       integer MPI_ERR_NO_MEM                
       integer MPI_ERR_NOT_SAME              
       integer MPI_ERR_NO_SPACE              
       integer MPI_ERR_NO_SUCH_FILE          
       integer MPI_ERR_PORT                  
       integer MPI_ERR_QUOTA                 
       integer MPI_ERR_READ_ONLY             
       integer MPI_ERR_RMA_CONFLICT          
       integer MPI_ERR_RMA_SYNC              
       integer MPI_ERR_SERVICE               
       integer MPI_ERR_SIZE                  
       integer MPI_ERR_SPAWN                 
       integer MPI_ERR_UNSUPPORTED_DATAREP   
       integer MPI_ERR_UNSUPPORTED_OPERATION 
       integer MPI_ERR_WIN                   
       
       integer MPI_ERR_SYSRESOURCE          
       integer MPI_ERR_LASTCODE              
       
       parameter( MPI_SUCCESS                  = 0)
       parameter( MPI_ERR_BUFFER               = 1)
       parameter( MPI_ERR_COUNT                = 2)
       parameter( MPI_ERR_TYPE                 = 3)
       parameter( MPI_ERR_TAG                  = 4)
       parameter( MPI_ERR_COMM                 = 5)
       parameter( MPI_ERR_RANK                 = 6)
       parameter( MPI_ERR_REQUEST              = 7)
       parameter( MPI_ERR_ROOT                 = 8)
       parameter( MPI_ERR_GROUP                = 9)
       parameter( MPI_ERR_OP                   = 10)
       parameter( MPI_ERR_TOPOLOGY             = 11)
       parameter( MPI_ERR_DIMS                 = 12)
       parameter( MPI_ERR_ARG                  = 13)
       parameter( MPI_ERR_UNKNOWN              = 14)
       parameter( MPI_ERR_TRUNCATE             = 15)
       parameter( MPI_ERR_OTHER                = 16)
       parameter( MPI_ERR_INTERN               = 17)
       parameter( MPI_ERR_IN_STATUS            = 18)
       parameter( MPI_ERR_PENDING              = 19)
       parameter( MPI_ERR_ACCESS               = 20)
       parameter( MPI_ERR_AMODE                = 21)
       parameter( MPI_ERR_ASSERT               = 22)
       parameter( MPI_ERR_BAD_FILE             = 23)
       parameter( MPI_ERR_BASE                 = 24)
       parameter( MPI_ERR_CONVERSION           = 25)
       parameter( MPI_ERR_DISP                 = 26)
       parameter( MPI_ERR_DUP_DATAREP          = 27)
       parameter( MPI_ERR_FILE_EXISTS          = 28)
       parameter( MPI_ERR_FILE_IN_USE          = 29)
       parameter( MPI_ERR_FILE                 = 30)
       parameter( MPI_ERR_INFO_KEY             = 31)
       parameter( MPI_ERR_INFO_NOKEY           = 32)
       parameter( MPI_ERR_INFO_VALUE           = 33)
       parameter( MPI_ERR_INFO                 = 34)
       parameter( MPI_ERR_IO                   = 35)
       parameter( MPI_ERR_KEYVAL               = 36)
       parameter( MPI_ERR_LOCKTYPE             = 37)
       parameter( MPI_ERR_NAME                 = 38)
       parameter( MPI_ERR_NO_MEM               = 39)
       parameter( MPI_ERR_NOT_SAME             = 40)
       parameter( MPI_ERR_NO_SPACE             = 41)
       parameter( MPI_ERR_NO_SUCH_FILE         = 42)
       parameter( MPI_ERR_PORT                 = 43)
       parameter( MPI_ERR_QUOTA                = 44)
       parameter( MPI_ERR_READ_ONLY            = 45)
       parameter( MPI_ERR_RMA_CONFLICT         = 46)
       parameter( MPI_ERR_RMA_SYNC             = 47)
       parameter( MPI_ERR_SERVICE              = 48)
       parameter( MPI_ERR_SIZE                 = 49)
       parameter( MPI_ERR_SPAWN                = 50)
       parameter( MPI_ERR_UNSUPPORTED_DATAREP  = 51)
       parameter( MPI_ERR_UNSUPPORTED_OPERATION= 52)
       parameter( MPI_ERR_WIN                  = 53)
       
       parameter( MPI_ERR_SYSRESOURCE          = -2)
       parameter( MPI_ERR_LASTCODE             = -1)

!
! comparison results
!
       integer MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL

       parameter (MPI_IDENT=1)
       parameter (MPI_CONGRUENT=2)
       parameter (MPI_SIMILAR=3)
       parameter (MPI_UNEQUAL=4)
!
! lookup table indices
!
       integer MPI_COMM_WORLD, MPI_COMM_SELF
       integer MPI_GROUP_EMPTY
       integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN

       parameter (MPI_COMM_WORLD=0)
       parameter (MPI_COMM_SELF=1)
       parameter (MPI_GROUP_EMPTY=1)
       parameter (MPI_ERRORS_ARE_FATAL=0)
       parameter (MPI_ERRORS_RETURN=1)

       integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
       integer MPI_INTEGER8, MPI_REAL, MPI_REAL2, MPI_REAL4, MPI_REAL8
       integer MPI_REAL16, MPI_DOUBLE_PRECISION
       integer MPI_COMPLEX, MPI_LOGICAL, MPI_CHARACTER
       integer MPI_BYTE, MPI_PACKED, MPI_UB, MPI_LB, MPI_2REAL
       integer MPI_2DOUBLE_PRECISION, MPI_2INTEGER
       integer MPI_DOUBLE_COMPLEX

       parameter (MPI_BYTE=1)
       parameter (MPI_PACKED=2)
       parameter (MPI_UB=3)
       parameter (MPI_LB=4)
       parameter (MPI_CHARACTER=5)
       parameter (MPI_LOGICAL=6)
       parameter (MPI_INTEGER=7)
       parameter (MPI_INTEGER1=8)
       parameter (MPI_INTEGER2=9)
       parameter (MPI_INTEGER4=10) 
       parameter (MPI_INTEGER8=11)  
       parameter (MPI_REAL=12)
       parameter (MPI_REAL2=13)
       parameter (MPI_REAL4=14)
       parameter (MPI_REAL8=15)
       parameter (MPI_REAL16=16)
       parameter (MPI_DOUBLE_PRECISION=17)
       parameter (MPI_COMPLEX=18)
       parameter (MPI_DOUBLE_COMPLEX=19)
       parameter (MPI_2REAL=20)
       parameter (MPI_2DOUBLE_PRECISION=21)
       parameter (MPI_2INTEGER=22)

       integer MPI_MAX, MPI_MIN, MPI_SUM, MPI_PROD, MPI_LAND
       integer MPI_BAND, MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR
       integer MPI_MAXLOC, MPI_MINLOC, MPI_REPLACE

       parameter (MPI_MAX=27)
       parameter (MPI_MIN=28)
       parameter (MPI_SUM=29)
       parameter (MPI_PROD=30)
       parameter (MPI_LAND=31)
       parameter (MPI_BAND=32)
       parameter (MPI_LOR=33)
       parameter (MPI_BOR=34)
       parameter (MPI_LXOR=35)
       parameter (MPI_BXOR=36)
       parameter (MPI_MAXLOC=37)
       parameter (MPI_MINLOC=38)
       parameter (MPI_REPLACE=39)
!
! attribute functions
!
       external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN
       external MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN
       external MPI_TYPE_NULL_COPY_FN, MPI_TYPE_NULL_DELETE_FN
       external MPI_WIN_NULL_COPY_FN, MPI_WIN_NULL_DELETE_FN
       external MPI_DUP_FN, MPI_COMM_DUP_FN
       external MPI_TYPE_DUP_FN, MPI_WIN_DUP_FN
!
! double precision functions
!
      double precision MPI_WTIME, MPI_WTICK, PMPI_WTIME, PMPI_WTICK
      external MPI_WTIME, MPI_WTICK, PMPI_WTIME, PMPI_WTICK