ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

- Just remove white-space at end of lines

Просмотр исходного кода 
This commit was SVN r21291.
Этот коммит содержится в:
Rainer Keller 2009-05-27 12:46:04 +00:00
родитель 7a495e936c
Коммит 88390b0d7c
5 изменённых файлов: 481 добавлений и 481 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

692
ompi/include/mpi.h.in
Просмотреть файл

Разница между файлами не показана из-за своего большого размера Загрузить разницу

192
ompi/include/mpif-common.h
Просмотреть файл

@ -6,22 +6,22 @@
! Copyright (c) 2004-2005 The University of Tennessee and The University ! Copyright (c) 2004-2005 The University of Tennessee and The University
! of Tennessee Research Foundation. All rights ! of Tennessee Research Foundation. All rights
! reserved. ! reserved.
! Copyright (c) 2004-2007 High Performance Computing Center Stuttgart, ! Copyright (c) 2004-2007 High Performance Computing Center Stuttgart,
! University of Stuttgart. All rights reserved. ! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California. ! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
! Additional copyrights may follow ! Additional copyrights may follow
! !
! $HEADER$ ! $HEADER$
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! Do ***not*** copy this file to the directory where your Fortran ! Do ***not*** copy this file to the directory where your Fortran
! fortran application is compiled unless it is absolutely necessary! Most ! fortran application is compiled unless it is absolutely necessary! Most
! modern Fortran compilers now support the -I command line flag, which ! modern Fortran compilers now support the -I command line flag, which
! tells the compiler where to find .h files (specifically, this one). For ! tells the compiler where to find .h files (specifically, this one). For
@ -29,7 +29,7 @@
! !
! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include ! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
! !
! will probably do the trick (assuming that you have set OMPI_HOME ! will probably do the trick (assuming that you have set OMPI_HOME
! properly). ! properly).
! !
! That being said, OMPI's "mpif77" wrapper compiler should ! That being said, OMPI's "mpif77" wrapper compiler should
@ -40,15 +40,15 @@
! !
! You should not copy this file to your local directory because it is ! 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. ! possible that this file will be changed between versions of Open MPI.
! Indeed, this mpif.h is incompatible with the mpif.f of other ! Indeed, this mpif.h is incompatible with the mpif.f of other
! implementations of MPI. Using this mpif.h with other implementations ! implementations of MPI. Using this mpif.h with other implementations
! of MPI, or with other versions of Open MPI will result in undefined ! of MPI, or with other versions of Open MPI will result in undefined
! behavior (to include incorrect results, segmentation faults, ! behavior (to include incorrect results, segmentation faults,
! unexplainable "hanging" in your application, etc.). Always use the ! unexplainable "hanging" in your application, etc.). Always use the
! -I command line option instead (or let mpif77 do it for you). ! -I command line option instead (or let mpif77 do it for you).
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
@ -101,7 +101,7 @@
integer MPI_MODE_NOSTORE, MPI_MODE_NOSUCCEED integer MPI_MODE_NOSTORE, MPI_MODE_NOSUCCEED
integer MPI_LOCK_EXCLUSIVE, MPI_LOCK_SHARED integer MPI_LOCK_EXCLUSIVE, MPI_LOCK_SHARED
integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT
parameter (MPI_ANY_SOURCE=-1) parameter (MPI_ANY_SOURCE=-1)
parameter (MPI_ANY_TAG=-1) parameter (MPI_ANY_TAG=-1)
parameter (MPI_PROC_NULL=-2) parameter (MPI_PROC_NULL=-2)
@ -129,7 +129,7 @@
parameter (IMPI_CLIENT_COLOR=11) parameter (IMPI_CLIENT_COLOR=11)
parameter (IMPI_HOST_SIZE=12) parameter (IMPI_HOST_SIZE=12)
parameter (IMPI_HOST_COLOR=13) parameter (IMPI_HOST_COLOR=13)
parameter (MPI_BSEND_OVERHEAD=128) parameter (MPI_BSEND_OVERHEAD=128)
parameter (MPI_MAX_INFO_KEY=35) parameter (MPI_MAX_INFO_KEY=35)
parameter (MPI_MAX_INFO_VAL=255) parameter (MPI_MAX_INFO_VAL=255)
@ -152,7 +152,7 @@
parameter (MPI_LOCK_EXCLUSIVE=1) parameter (MPI_LOCK_EXCLUSIVE=1)
parameter (MPI_LOCK_SHARED=2) parameter (MPI_LOCK_SHARED=2)
! !
! MPI sentinel values ! MPI sentinel values
! !
! Several of these types were chosen with care to match specific ! Several of these types were chosen with care to match specific
@ -191,7 +191,7 @@
integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE) integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
! MPI_STATUSES_IGNORE has similar rationale to MPI_ARGVS_NULL. ! MPI_STATUSES_IGNORE has similar rationale to MPI_ARGVS_NULL.
double precision MPI_STATUSES_IGNORE double precision MPI_STATUSES_IGNORE
common/mpi_fortran_bottom/MPI_BOTTOM common/mpi_fortran_bottom/MPI_BOTTOM
common/mpi_fortran_in_place/MPI_IN_PLACE common/mpi_fortran_in_place/MPI_IN_PLACE
common/mpi_fortran_argv_null/MPI_ARGV_NULL common/mpi_fortran_argv_null/MPI_ARGV_NULL
@ -199,13 +199,13 @@
common/mpi_fortran_errcodes_ignore/MPI_ERRCODES_IGNORE common/mpi_fortran_errcodes_ignore/MPI_ERRCODES_IGNORE
common/mpi_fortran_status_ignore/MPI_STATUS_IGNORE common/mpi_fortran_status_ignore/MPI_STATUS_IGNORE
common/mpi_fortran_statuses_ignore/MPI_STATUSES_IGNORE common/mpi_fortran_statuses_ignore/MPI_STATUSES_IGNORE
! !
! NULL "handles" (indices) ! NULL "handles" (indices)
! !
integer MPI_GROUP_NULL, MPI_COMM_NULL, MPI_DATATYPE_NULL integer MPI_GROUP_NULL, MPI_COMM_NULL, MPI_DATATYPE_NULL
integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL
integer MPI_INFO_NULL, MPI_WIN_NULL integer MPI_INFO_NULL, MPI_WIN_NULL
parameter (MPI_GROUP_NULL=0) parameter (MPI_GROUP_NULL=0)
parameter (MPI_COMM_NULL=2) parameter (MPI_COMM_NULL=2)
parameter (MPI_DATATYPE_NULL=0) parameter (MPI_DATATYPE_NULL=0)
@ -214,77 +214,77 @@
parameter (MPI_ERRHANDLER_NULL=0) parameter (MPI_ERRHANDLER_NULL=0)
parameter (MPI_INFO_NULL=0) parameter (MPI_INFO_NULL=0)
parameter (MPI_WIN_NULL=0) parameter (MPI_WIN_NULL=0)
! !
! MPI_Init_thread constants ! MPI_Init_thread constants
! !
integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED
integer MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE integer MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
parameter (MPI_THREAD_SINGLE=0) parameter (MPI_THREAD_SINGLE=0)
parameter (MPI_THREAD_FUNNELED=1) parameter (MPI_THREAD_FUNNELED=1)
parameter (MPI_THREAD_SERIALIZED=2) parameter (MPI_THREAD_SERIALIZED=2)
parameter (MPI_THREAD_MULTIPLE=3) parameter (MPI_THREAD_MULTIPLE=3)
! !
! error classes ! error classes
! !
integer MPI_SUCCESS integer MPI_SUCCESS
integer MPI_ERR_BUFFER integer MPI_ERR_BUFFER
integer MPI_ERR_COUNT integer MPI_ERR_COUNT
integer MPI_ERR_TYPE integer MPI_ERR_TYPE
integer MPI_ERR_TAG integer MPI_ERR_TAG
integer MPI_ERR_COMM integer MPI_ERR_COMM
integer MPI_ERR_RANK integer MPI_ERR_RANK
integer MPI_ERR_REQUEST integer MPI_ERR_REQUEST
integer MPI_ERR_ROOT integer MPI_ERR_ROOT
integer MPI_ERR_GROUP integer MPI_ERR_GROUP
integer MPI_ERR_OP integer MPI_ERR_OP
integer MPI_ERR_TOPOLOGY integer MPI_ERR_TOPOLOGY
integer MPI_ERR_DIMS integer MPI_ERR_DIMS
integer MPI_ERR_ARG integer MPI_ERR_ARG
integer MPI_ERR_UNKNOWN integer MPI_ERR_UNKNOWN
integer MPI_ERR_TRUNCATE integer MPI_ERR_TRUNCATE
integer MPI_ERR_OTHER integer MPI_ERR_OTHER
integer MPI_ERR_INTERN integer MPI_ERR_INTERN
integer MPI_ERR_IN_STATUS integer MPI_ERR_IN_STATUS
integer MPI_ERR_PENDING integer MPI_ERR_PENDING
integer MPI_ERR_ACCESS integer MPI_ERR_ACCESS
integer MPI_ERR_AMODE integer MPI_ERR_AMODE
integer MPI_ERR_ASSERT integer MPI_ERR_ASSERT
integer MPI_ERR_BAD_FILE integer MPI_ERR_BAD_FILE
integer MPI_ERR_BASE integer MPI_ERR_BASE
integer MPI_ERR_CONVERSION integer MPI_ERR_CONVERSION
integer MPI_ERR_DISP integer MPI_ERR_DISP
integer MPI_ERR_DUP_DATAREP integer MPI_ERR_DUP_DATAREP
integer MPI_ERR_FILE_EXISTS integer MPI_ERR_FILE_EXISTS
integer MPI_ERR_FILE_IN_USE integer MPI_ERR_FILE_IN_USE
integer MPI_ERR_FILE integer MPI_ERR_FILE
integer MPI_ERR_INFO_KEY integer MPI_ERR_INFO_KEY
integer MPI_ERR_INFO_NOKEY integer MPI_ERR_INFO_NOKEY
integer MPI_ERR_INFO_VALUE integer MPI_ERR_INFO_VALUE
integer MPI_ERR_INFO integer MPI_ERR_INFO
integer MPI_ERR_IO integer MPI_ERR_IO
integer MPI_ERR_KEYVAL integer MPI_ERR_KEYVAL
integer MPI_ERR_LOCKTYPE integer MPI_ERR_LOCKTYPE
integer MPI_ERR_NAME integer MPI_ERR_NAME
integer MPI_ERR_NO_MEM integer MPI_ERR_NO_MEM
integer MPI_ERR_NOT_SAME integer MPI_ERR_NOT_SAME
integer MPI_ERR_NO_SPACE integer MPI_ERR_NO_SPACE
integer MPI_ERR_NO_SUCH_FILE integer MPI_ERR_NO_SUCH_FILE
integer MPI_ERR_PORT integer MPI_ERR_PORT
integer MPI_ERR_QUOTA integer MPI_ERR_QUOTA
integer MPI_ERR_READ_ONLY integer MPI_ERR_READ_ONLY
integer MPI_ERR_RMA_CONFLICT integer MPI_ERR_RMA_CONFLICT
integer MPI_ERR_RMA_SYNC integer MPI_ERR_RMA_SYNC
integer MPI_ERR_SERVICE integer MPI_ERR_SERVICE
integer MPI_ERR_SIZE integer MPI_ERR_SIZE
integer MPI_ERR_SPAWN integer MPI_ERR_SPAWN
integer MPI_ERR_UNSUPPORTED_DATAREP integer MPI_ERR_UNSUPPORTED_DATAREP
integer MPI_ERR_UNSUPPORTED_OPERATION integer MPI_ERR_UNSUPPORTED_OPERATION
integer MPI_ERR_WIN integer MPI_ERR_WIN
integer MPI_ERR_SYSRESOURCE integer MPI_ERR_SYSRESOURCE
integer MPI_ERR_LASTCODE integer MPI_ERR_LASTCODE
parameter( MPI_SUCCESS = 0) parameter( MPI_SUCCESS = 0)
parameter( MPI_ERR_BUFFER = 1) parameter( MPI_ERR_BUFFER = 1)
parameter( MPI_ERR_COUNT = 2) parameter( MPI_ERR_COUNT = 2)
@ -339,22 +339,22 @@
parameter( MPI_ERR_UNSUPPORTED_DATAREP = 51) parameter( MPI_ERR_UNSUPPORTED_DATAREP = 51)
parameter( MPI_ERR_UNSUPPORTED_OPERATION= 52) parameter( MPI_ERR_UNSUPPORTED_OPERATION= 52)
parameter( MPI_ERR_WIN = 53) parameter( MPI_ERR_WIN = 53)
parameter( MPI_ERR_SYSRESOURCE = -2) parameter( MPI_ERR_SYSRESOURCE = -2)
parameter( MPI_ERR_LASTCODE = 54) parameter( MPI_ERR_LASTCODE = 54)
! !
! comparison results ! comparison results
! !
integer MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL integer MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
parameter (MPI_IDENT=0) parameter (MPI_IDENT=0)
parameter (MPI_CONGRUENT=1) parameter (MPI_CONGRUENT=1)
parameter (MPI_SIMILAR=2) parameter (MPI_SIMILAR=2)
parameter (MPI_UNEQUAL=3) parameter (MPI_UNEQUAL=3)
! !
! datatype combiners ! datatype combiners
! !
integer MPI_COMBINER_NAMED integer MPI_COMBINER_NAMED
integer MPI_COMBINER_DUP integer MPI_COMBINER_DUP
integer MPI_COMBINER_CONTIGUOUS integer MPI_COMBINER_CONTIGUOUS
@ -373,7 +373,7 @@
integer MPI_COMBINER_F90_COMPLEX integer MPI_COMBINER_F90_COMPLEX
integer MPI_COMBINER_F90_INTEGER integer MPI_COMBINER_F90_INTEGER
integer MPI_COMBINER_RESIZED integer MPI_COMBINER_RESIZED
parameter (MPI_COMBINER_NAMED=0) parameter (MPI_COMBINER_NAMED=0)
parameter (MPI_COMBINER_DUP=1) parameter (MPI_COMBINER_DUP=1)
parameter (MPI_COMBINER_CONTIGUOUS=2) parameter (MPI_COMBINER_CONTIGUOUS=2)
@ -392,19 +392,19 @@
parameter (MPI_COMBINER_F90_COMPLEX=15) parameter (MPI_COMBINER_F90_COMPLEX=15)
parameter (MPI_COMBINER_F90_INTEGER=16) parameter (MPI_COMBINER_F90_INTEGER=16)
parameter (MPI_COMBINER_RESIZED=17) parameter (MPI_COMBINER_RESIZED=17)
! !
! lookup table indices ! lookup table indices
! !
integer MPI_COMM_WORLD, MPI_COMM_SELF integer MPI_COMM_WORLD, MPI_COMM_SELF
integer MPI_GROUP_EMPTY integer MPI_GROUP_EMPTY
integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN
parameter (MPI_COMM_WORLD=0) parameter (MPI_COMM_WORLD=0)
parameter (MPI_COMM_SELF=1) parameter (MPI_COMM_SELF=1)
parameter (MPI_GROUP_EMPTY=1) parameter (MPI_GROUP_EMPTY=1)
parameter (MPI_ERRORS_ARE_FATAL=1) parameter (MPI_ERRORS_ARE_FATAL=1)
parameter (MPI_ERRORS_RETURN=2) parameter (MPI_ERRORS_RETURN=2)
integer MPI_BYTE, MPI_PACKED, MPI_UB, MPI_LB integer MPI_BYTE, MPI_PACKED, MPI_UB, MPI_LB
integer MPI_CHARACTER, MPI_LOGICAL integer MPI_CHARACTER, MPI_LOGICAL
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4 integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
@ -429,8 +429,8 @@
parameter (MPI_INTEGER=7) parameter (MPI_INTEGER=7)
parameter (MPI_INTEGER1=8) parameter (MPI_INTEGER1=8)
parameter (MPI_INTEGER2=9) parameter (MPI_INTEGER2=9)
parameter (MPI_INTEGER4=10) parameter (MPI_INTEGER4=10)
parameter (MPI_INTEGER8=11) parameter (MPI_INTEGER8=11)
parameter (MPI_INTEGER16=12) parameter (MPI_INTEGER16=12)
parameter (MPI_REAL=13) parameter (MPI_REAL=13)
parameter (MPI_REAL4=14) parameter (MPI_REAL4=14)
@ -452,11 +452,11 @@
parameter (MPI_LOGICAL2=30) parameter (MPI_LOGICAL2=30)
parameter (MPI_LOGICAL4=31) parameter (MPI_LOGICAL4=31)
parameter (MPI_LOGICAL8=32) parameter (MPI_LOGICAL8=32)
integer MPI_MAX, MPI_MIN, MPI_SUM, MPI_PROD, MPI_LAND integer MPI_MAX, MPI_MIN, MPI_SUM, MPI_PROD, MPI_LAND
integer MPI_BAND, MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR integer MPI_BAND, MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR
integer MPI_MAXLOC, MPI_MINLOC, MPI_REPLACE integer MPI_MAXLOC, MPI_MINLOC, MPI_REPLACE
parameter (MPI_MAX=1) parameter (MPI_MAX=1)
parameter (MPI_MIN=2) parameter (MPI_MIN=2)
parameter (MPI_SUM=3) parameter (MPI_SUM=3)

26
ompi/include/mpif-config.h.in
Просмотреть файл

@ -6,22 +6,22 @@
! Copyright (c) 2004-2005 The University of Tennessee and The University ! Copyright (c) 2004-2005 The University of Tennessee and The University
! of Tennessee Research Foundation. All rights ! of Tennessee Research Foundation. All rights
! reserved. ! reserved.
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, ! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
! University of Stuttgart. All rights reserved. ! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California. ! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
! Additional copyrights may follow ! Additional copyrights may follow
! !
! $HEADER$ ! $HEADER$
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! Do ***not*** copy this file to the directory where your Fortran ! Do ***not*** copy this file to the directory where your Fortran
! fortran application is compiled unless it is absolutely necessary! Most ! fortran application is compiled unless it is absolutely necessary! Most
! modern Fortran compilers now support the -I command line flag, which ! modern Fortran compilers now support the -I command line flag, which
! tells the compiler where to find .h files (specifically, this one). For ! tells the compiler where to find .h files (specifically, this one). For
@ -29,7 +29,7 @@
! !
! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include ! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
! !
! will probably do the trick (assuming that you have set OMPI_HOME ! will probably do the trick (assuming that you have set OMPI_HOME
! properly). ! properly).
! !
! That being said, OMPI's "mpif77" wrapper compiler should ! That being said, OMPI's "mpif77" wrapper compiler should
@ -40,15 +40,15 @@
! !
! You should not copy this file to your local directory because it is ! 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. ! possible that this file will be changed between versions of Open MPI.
! Indeed, this mpif.h is incompatible with the mpif.f of other ! Indeed, this mpif.h is incompatible with the mpif.f of other
! implementations of MPI. Using this mpif.h with other implementations ! implementations of MPI. Using this mpif.h with other implementations
! of MPI, or with other versions of Open MPI will result in undefined ! of MPI, or with other versions of Open MPI will result in undefined
! behavior (to include incorrect results, segmentation faults, ! behavior (to include incorrect results, segmentation faults,
! unexplainable "hanging" in your application, etc.). Always use the ! unexplainable "hanging" in your application, etc.). Always use the
! -I command line option instead (or let mpif77 do it for you). ! -I command line option instead (or let mpif77 do it for you).
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
@ -79,13 +79,13 @@
parameter (OMPI_SVN_VERSION="@OMPI_SVN_R@") parameter (OMPI_SVN_VERSION="@OMPI_SVN_R@")
! !
! Kind parameters ! Kind parameters
! !
integer MPI_OFFSET_KIND, MPI_ADDRESS_KIND, MPI_INTEGER_KIND integer MPI_OFFSET_KIND, MPI_ADDRESS_KIND, MPI_INTEGER_KIND
parameter (MPI_INTEGER_KIND=@OMPI_MPI_INTEGER_KIND@) parameter (MPI_INTEGER_KIND=@OMPI_MPI_INTEGER_KIND@)
parameter (MPI_ADDRESS_KIND=@OMPI_MPI_ADDRESS_KIND@) parameter (MPI_ADDRESS_KIND=@OMPI_MPI_ADDRESS_KIND@)
parameter (MPI_OFFSET_KIND=@OMPI_MPI_OFFSET_KIND@) parameter (MPI_OFFSET_KIND=@OMPI_MPI_OFFSET_KIND@)
! !
! Miscellaneous constants ! Miscellaneous constants
! !
integer MPI_STATUS_SIZE integer MPI_STATUS_SIZE
parameter (MPI_STATUS_SIZE=5) parameter (MPI_STATUS_SIZE=5)

22
ompi/include/mpif-mpi-io.h
Просмотреть файл

@ -6,22 +6,22 @@
! Copyright (c) 2004-2005 The University of Tennessee and The University ! Copyright (c) 2004-2005 The University of Tennessee and The University
! of Tennessee Research Foundation. All rights ! of Tennessee Research Foundation. All rights
! reserved. ! reserved.
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, ! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
! University of Stuttgart. All rights reserved. ! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California. ! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
! Additional copyrights may follow ! Additional copyrights may follow
! !
! $HEADER$ ! $HEADER$
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! Do ***not*** copy this file to the directory where your Fortran ! Do ***not*** copy this file to the directory where your Fortran
! fortran application is compiled unless it is absolutely necessary! Most ! fortran application is compiled unless it is absolutely necessary! Most
! modern Fortran compilers now support the -I command line flag, which ! modern Fortran compilers now support the -I command line flag, which
! tells the compiler where to find .h files (specifically, this one). For ! tells the compiler where to find .h files (specifically, this one). For
@ -29,7 +29,7 @@
! !
! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include ! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
! !
! will probably do the trick (assuming that you have set OMPI_HOME ! will probably do the trick (assuming that you have set OMPI_HOME
! properly). ! properly).
! !
! That being said, OMPI's "mpif77" wrapper compiler should ! That being said, OMPI's "mpif77" wrapper compiler should
@ -40,15 +40,15 @@
! !
! You should not copy this file to your local directory because it is ! 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. ! possible that this file will be changed between versions of Open MPI.
! Indeed, this mpif.h is incompatible with the mpif.f of other ! Indeed, this mpif.h is incompatible with the mpif.f of other
! implementations of MPI. Using this mpif.h with other implementations ! implementations of MPI. Using this mpif.h with other implementations
! of MPI, or with other versions of Open MPI will result in undefined ! of MPI, or with other versions of Open MPI will result in undefined
! behavior (to include incorrect results, segmentation faults, ! behavior (to include incorrect results, segmentation faults,
! unexplainable "hanging" in your application, etc.). Always use the ! unexplainable "hanging" in your application, etc.). Always use the
! -I command line option instead (or let mpif77 do it for you). ! -I command line option instead (or let mpif77 do it for you).
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
@ -62,7 +62,7 @@
! !
integer MPI_FILE_NULL integer MPI_FILE_NULL
integer MPI_SEEK_SET, MPI_SEEK_CUR, MPI_SEEK_END integer MPI_SEEK_SET, MPI_SEEK_CUR, MPI_SEEK_END
integer MPI_MODE_CREATE integer MPI_MODE_CREATE
integer MPI_MODE_RDONLY, MPI_MODE_WRONLY, MPI_MODE_RDWR integer MPI_MODE_RDONLY, MPI_MODE_WRONLY, MPI_MODE_RDWR
integer MPI_MODE_DELETE_ON_CLOSE, MPI_MODE_UNIQUE_OPEN integer MPI_MODE_DELETE_ON_CLOSE, MPI_MODE_UNIQUE_OPEN

30
ompi/include/mpif.h.in
Просмотреть файл

@ -6,22 +6,22 @@
! Copyright (c) 2004-2005 The University of Tennessee and The University ! Copyright (c) 2004-2005 The University of Tennessee and The University
! of Tennessee Research Foundation. All rights ! of Tennessee Research Foundation. All rights
! reserved. ! reserved.
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, ! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
! University of Stuttgart. All rights reserved. ! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California. ! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved. ! All rights reserved.
! Copyright (c) 2006-2007 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2006-2007 Cisco Systems, Inc. All rights reserved.
! $COPYRIGHT$ ! $COPYRIGHT$
! !
! Additional copyrights may follow ! Additional copyrights may follow
! !
! $HEADER$ ! $HEADER$
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! Do ***not*** copy this file to the directory where your Fortran ! Do ***not*** copy this file to the directory where your Fortran
! fortran application is compiled unless it is absolutely necessary! Most ! fortran application is compiled unless it is absolutely necessary! Most
! modern Fortran compilers now support the -I command line flag, which ! modern Fortran compilers now support the -I command line flag, which
! tells the compiler where to find .h files (specifically, this one). For ! tells the compiler where to find .h files (specifically, this one). For
@ -29,7 +29,7 @@
! !
! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include ! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
! !
! will probably do the trick (assuming that you have set OMPI_HOME ! will probably do the trick (assuming that you have set OMPI_HOME
! properly). ! properly).
! !
! That being said, OMPI's "mpif77" wrapper compiler should ! That being said, OMPI's "mpif77" wrapper compiler should
@ -40,15 +40,15 @@
! !
! You should not copy this file to your local directory because it is ! 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. ! possible that this file will be changed between versions of Open MPI.
! Indeed, this mpif.h is incompatible with the mpif.f of other ! Indeed, this mpif.h is incompatible with the mpif.f of other
! implementations of MPI. Using this mpif.h with other implementations ! implementations of MPI. Using this mpif.h with other implementations
! of MPI, or with other versions of Open MPI will result in undefined ! of MPI, or with other versions of Open MPI will result in undefined
! behavior (to include incorrect results, segmentation faults, ! behavior (to include incorrect results, segmentation faults,
! unexplainable "hanging" in your application, etc.). Always use the ! unexplainable "hanging" in your application, etc.). Always use the
! -I command line option instead (or let mpif77 do it for you). ! -I command line option instead (or let mpif77 do it for you).
! !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
@ -62,7 +62,7 @@
! These "external" statements are specific to the MPI F77 interface ! These "external" statements are specific to the MPI F77 interface
! (and are toxic to the MPI F90 interface), and are therefore in the ! (and are toxic to the MPI F90 interface), and are therefore in the
! MPI F77-specific header file (i.e., this one). ! MPI F77-specific header file (i.e., this one).
! !
external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN
external MPI_COMM_NULL_COPY_FN, MPI_COMM_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_TYPE_NULL_COPY_FN, MPI_TYPE_NULL_DELETE_FN
@ -76,10 +76,10 @@
! the same size/type. It is therefore external'ed here, and not ! the same size/type. It is therefore external'ed here, and not
! defined with an integer value in mpif-common.h. ! defined with an integer value in mpif-common.h.
external MPI_CONVERSION_FN_NULL external MPI_CONVERSION_FN_NULL
! !
! double precision functions ! double precision functions
! !
external MPI_WTIME, MPI_WTICK @MPIF_H_PMPI_W_FUNCS@ external MPI_WTIME, MPI_WTICK @MPIF_H_PMPI_W_FUNCS@
double precision MPI_WTIME, MPI_WTICK @MPIF_H_PMPI_W_FUNCS@ double precision MPI_WTIME, MPI_WTICK @MPIF_H_PMPI_W_FUNCS@