Bring over changes from the /tmp/fortran-stuff series:
- Make the F90 bindings compile and link properly with gfortran 4.0, 4.1, Intel 9.0, PGI 6.1, Sun (don't know version offhand -- the most current as of this writing, I think), and NAG 5.2, although some have limitations (e.g., NAG can't seem to handle the medium and large sizes) - Building the F90 "small" module size is now the default, even for developers - Split up mpif.h into multiple files because parts of it were toxic to the F90 bindings - Properly specify unsized/unshaped arrays to make the bindings work on all known compilers - Make ompi_info show Fortran 90 bindings size - XML somewhat lags the generated scripts as of this commit, but functionality was my main goal -- the XML can be updated later (if at all). This commit was SVN r10118.
Этот коммит содержится в:
Jeff Squyres
родитель
3daed7aaa1
Коммит
5f356edb64
15
NEWS
15
NEWS
@ -25,9 +25,16 @@ version 1.0.
|
|||||||
1.1
|
1.1
|
||||||
---
|
---
|
||||||
|
|
||||||
- Addition of "trivial", "small" (the default), "medium", and "large"
|
- Major improvements to the Fortran 90 MPI bindings:
|
||||||
Fortran 90 MPI module sizes (v1.0.x's F90 module was equivalent to
|
- General improvements in compile/linking time and portability
|
||||||
"medium"). See the README file for more explanation.
|
between different F90 compilers.
|
||||||
|
- Addition of "trivial", "small" (the default), "medium", and
|
||||||
|
"large" Fortran 90 MPI module sizes (v1.0.x's F90 module was
|
||||||
|
equivalent to "medium"). See the README file for more
|
||||||
|
explanation.
|
||||||
|
- Fix various MPI F90 interface functions and constant types to
|
||||||
|
match. Thanks to Michael Kluskens for pointing out the problems
|
||||||
|
to us.
|
||||||
- Allow short messagees to use RDMA (vs. send/receive semantics) to a
|
- Allow short messagees to use RDMA (vs. send/receive semantics) to a
|
||||||
limited number peers in both the mvapi and openib BTL components.
|
limited number peers in both the mvapi and openib BTL components.
|
||||||
This reduces communication latency over IB channels.
|
This reduces communication latency over IB channels.
|
||||||
@ -53,8 +60,6 @@ version 1.0.
|
|||||||
Several Fortran 77 and Fortran 90 tests need to be pre-seeded with
|
Several Fortran 77 and Fortran 90 tests need to be pre-seeded with
|
||||||
results from a config.cache-like file.
|
results from a config.cache-like file.
|
||||||
- Add --debug option to mpirun to generically invoke a parallel debugger.
|
- Add --debug option to mpirun to generically invoke a parallel debugger.
|
||||||
- Fix various MPI F90 interface functions and constant types to match.
|
|
||||||
Thanks to Michael Kluskens for pointing out the problems to us.
|
|
||||||
|
|
||||||
|
|
||||||
1.0.3
|
1.0.3
|
||||||
|
|||||||
@ -179,12 +179,6 @@ else
|
|||||||
AC_MSG_RESULT([no])
|
AC_MSG_RESULT([no])
|
||||||
OMPI_WANT_F90_BINDINGS=0
|
OMPI_WANT_F90_BINDINGS=0
|
||||||
fi
|
fi
|
||||||
#################### Early development override ####################
|
|
||||||
if test "$OMPI_WANT_F90_BINDINGS" = "1" -a -z "$enable_mpi_f90" -a -d .svn; then
|
|
||||||
OMPI_WANT_F90_BINDINGS=0
|
|
||||||
echo "--> developer override: disable Fortran 90 by default"
|
|
||||||
fi
|
|
||||||
#################### Early development override ####################
|
|
||||||
|
|
||||||
AC_MSG_CHECKING([desired Fortran 90 bindings "size"])
|
AC_MSG_CHECKING([desired Fortran 90 bindings "size"])
|
||||||
AC_ARG_WITH(mpi-f90-size,
|
AC_ARG_WITH(mpi-f90-size,
|
||||||
|
|||||||
@ -1107,7 +1107,7 @@ AC_CONFIG_FILES([
|
|||||||
ompi/Makefile
|
ompi/Makefile
|
||||||
ompi/etc/Makefile
|
ompi/etc/Makefile
|
||||||
ompi/include/Makefile
|
ompi/include/Makefile
|
||||||
ompi/include/mpif-common.h
|
ompi/include/mpif-config.h
|
||||||
|
|
||||||
ompi/datatype/Makefile
|
ompi/datatype/Makefile
|
||||||
ompi/debuggers/Makefile
|
ompi/debuggers/Makefile
|
||||||
|
|||||||
@ -17,10 +17,12 @@
|
|||||||
# $HEADER$
|
# $HEADER$
|
||||||
#
|
#
|
||||||
|
|
||||||
# mpif.h is not generated, but mpif-common.h is. See big comments in
|
# mpif.h and mpif-common.h are not generated, but mpif-config.h is.
|
||||||
# these files for an explanation.
|
# See big comments in these files for an explanation.
|
||||||
|
|
||||||
headers = mpif.h
|
headers = \
|
||||||
|
mpif.h \
|
||||||
|
mpif-common.h
|
||||||
nodist_headers = \
|
nodist_headers = \
|
||||||
ompi_config.h
|
ompi_config.h
|
||||||
|
|
||||||
@ -32,7 +34,7 @@ include_HEADERS = $(headers)
|
|||||||
# counterparts, which AM automatically ships.
|
# counterparts, which AM automatically ships.
|
||||||
nodist_include_HEADERS = \
|
nodist_include_HEADERS = \
|
||||||
mpi.h \
|
mpi.h \
|
||||||
mpif-common.h
|
mpif-config.h
|
||||||
|
|
||||||
if WANT_INSTALL_HEADERS
|
if WANT_INSTALL_HEADERS
|
||||||
ompidir = $(includedir)/openmpi
|
ompidir = $(includedir)/openmpi
|
||||||
|
|||||||
450
ompi/include/mpif-common.h
Обычный файл
450
ompi/include/mpif-common.h
Обычный файл
@ -0,0 +1,450 @@
|
|||||||
|
! -*- fortran -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
||||||
|
! University Research and Technology
|
||||||
|
! Corporation. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
||||||
|
! of Tennessee Research Foundation. All rights
|
||||||
|
! reserved.
|
||||||
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
||||||
|
! University of Stuttgart. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
!
|
||||||
|
! Additional copyrights may follow
|
||||||
|
!
|
||||||
|
! $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
|
||||||
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
!
|
||||||
|
! This file contains the bulk of the Open MPI Fortran interface. It
|
||||||
|
! is included as a back-end file to both mpif.h (i.e., the
|
||||||
|
! standardized MPI Fortran header file) and mpi.f90 (the MPI-2
|
||||||
|
! Fortran module source file, found in ompi/mpi/f90).
|
||||||
|
!
|
||||||
|
! This file is marginally different than mpif.h. mpif.h includes
|
||||||
|
! some "external" statements that are not suitable for use with the
|
||||||
|
! MPI-2 F90 module, and therefore cannot be included in the mpi.f90
|
||||||
|
! source file. Hence, this file is essentially everything that
|
||||||
|
! needs to be in the standardized mpif.h *except* the "external"
|
||||||
|
! statements, and is therefore suitable to be included in mpi.f90.
|
||||||
|
!
|
||||||
|
|
||||||
|
! First, however, include some output from configure.
|
||||||
|
!
|
||||||
|
include 'mpif-config.h'
|
||||||
|
|
||||||
|
!
|
||||||
|
! MPI version
|
||||||
|
!
|
||||||
|
integer MPI_VERSION, MPI_SUBVERSION
|
||||||
|
|
||||||
|
parameter (MPI_VERSION=2)
|
||||||
|
parameter (MPI_SUBVERSION=0)
|
||||||
|
!
|
||||||
|
! Miscellaneous constants
|
||||||
|
!
|
||||||
|
integer MPI_ANY_SOURCE, MPI_ANY_TAG
|
||||||
|
integer MPI_PROC_NULL, MPI_MAX_PROCESSOR_NAME
|
||||||
|
integer MPI_ROOT, MPI_MAX_DATAREP_STRING
|
||||||
|
integer MPI_MAX_ERROR_STRING, MPI_UNDEFINED
|
||||||
|
integer MPI_CART, MPI_GRAPH, MPI_KEYVAL_INVALID
|
||||||
|
integer MPI_SOURCE, MPI_TAG, MPI_ERROR
|
||||||
|
integer MPI_TAG_UB, MPI_HOST, MPI_IO, MPI_WTIME_IS_GLOBAL
|
||||||
|
integer MPI_APPNUM, MPI_LASTUSEDCODE, MPI_UNIVERSE_SIZE
|
||||||
|
integer IMPI_CLIENT_SIZE, IMPI_CLIENT_COLOR
|
||||||
|
integer IMPI_HOST_SIZE, IMPI_HOST_COLOR
|
||||||
|
integer 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
|
||||||
|
integer MPI_TYPECLASS_INTEGER, MPI_TYPECLASS_REAL
|
||||||
|
integer MPI_TYPECLASS_COMPLEX
|
||||||
|
integer MPI_SEEK_SET, MPI_SEEK_CUR, MPI_SEEK_END
|
||||||
|
integer MPI_MODE_CREATE
|
||||||
|
integer MPI_MODE_RDONLY, MPI_MODE_WRONLY, MPI_MODE_RDWR
|
||||||
|
integer MPI_MODE_DELETE_ON_CLOSE, MPI_MODE_UNIQUE_OPEN
|
||||||
|
integer MPI_MODE_EXCL, MPI_MODE_APPEND, MPI_MODE_SEQUENTIAL
|
||||||
|
integer MPI_DISPLACEMENT_CURRENT
|
||||||
|
integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT
|
||||||
|
|
||||||
|
parameter (MPI_ANY_SOURCE=-1)
|
||||||
|
parameter (MPI_ANY_TAG=-1)
|
||||||
|
parameter (MPI_PROC_NULL=-2)
|
||||||
|
parameter (MPI_ROOT=-4)
|
||||||
|
parameter (MPI_MAX_PROCESSOR_NAME=255)
|
||||||
|
parameter (MPI_MAX_ERROR_STRING=255)
|
||||||
|
parameter (MPI_MAX_DATAREP_STRING=128)
|
||||||
|
parameter (MPI_UNDEFINED=-32766)
|
||||||
|
parameter (MPI_CART=1)
|
||||||
|
parameter (MPI_GRAPH=2)
|
||||||
|
parameter (MPI_KEYVAL_INVALID=-1)
|
||||||
|
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_APPNUM=4)
|
||||||
|
parameter (MPI_LASTUSEDCODE=5)
|
||||||
|
parameter (MPI_UNIVERSE_SIZE=6)
|
||||||
|
parameter (MPI_WIN_BASE=6)
|
||||||
|
parameter (MPI_WIN_SIZE=7)
|
||||||
|
parameter (MPI_WIN_DISP_UNIT=8)
|
||||||
|
parameter (IMPI_CLIENT_SIZE=10)
|
||||||
|
parameter (IMPI_CLIENT_COLOR=11)
|
||||||
|
parameter (IMPI_HOST_SIZE=12)
|
||||||
|
parameter (IMPI_HOST_COLOR=13)
|
||||||
|
|
||||||
|
parameter (MPI_BSEND_OVERHEAD=128)
|
||||||
|
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)
|
||||||
|
parameter (MPI_TYPECLASS_INTEGER=1)
|
||||||
|
parameter (MPI_TYPECLASS_REAL=2)
|
||||||
|
parameter (MPI_TYPECLASS_COMPLEX=3)
|
||||||
|
parameter (MPI_SEEK_SET=600)
|
||||||
|
parameter (MPI_SEEK_CUR=602)
|
||||||
|
parameter (MPI_SEEK_END=604)
|
||||||
|
parameter (MPI_MODE_CREATE=1)
|
||||||
|
parameter (MPI_MODE_RDONLY=2)
|
||||||
|
parameter (MPI_MODE_WRONLY=4)
|
||||||
|
parameter (MPI_MODE_RDWR=8)
|
||||||
|
parameter (MPI_MODE_DELETE_ON_CLOSE=16)
|
||||||
|
parameter (MPI_MODE_UNIQUE_OPEN=32)
|
||||||
|
parameter (MPI_MODE_EXCL=64)
|
||||||
|
parameter (MPI_MODE_APPEND=128)
|
||||||
|
parameter (MPI_MODE_SEQUENTIAL=256)
|
||||||
|
parameter (MPI_DISPLACEMENT_CURRENT=-54278278)
|
||||||
|
!
|
||||||
|
! global variables
|
||||||
|
!
|
||||||
|
double complex MPI_BOTTOM, MPI_IN_PLACE
|
||||||
|
character MPI_ARGV_NULL(1)
|
||||||
|
! MPI_ARGVS_NULL must not be a character array so that we can match
|
||||||
|
! an appropriate F90 MPI bindings interface function; see comments
|
||||||
|
! in mpi-f90-interfaces.h for a full explanation.
|
||||||
|
integer MPI_ARGVS_NULL
|
||||||
|
! These must be integer arrays so that we can match the proper
|
||||||
|
! prototypes in the F90 MPI bindings.
|
||||||
|
integer MPI_ERRCODES_IGNORE(1)
|
||||||
|
integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
|
||||||
|
integer MPI_STATUSES_IGNORE(MPI_STATUS_SIZE)
|
||||||
|
|
||||||
|
common/mpi_fortran_bottom/MPI_BOTTOM
|
||||||
|
common/mpi_fortran_in_place/MPI_IN_PLACE
|
||||||
|
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, MPI_WIN_NULL
|
||||||
|
|
||||||
|
parameter (MPI_GROUP_NULL=0)
|
||||||
|
parameter (MPI_COMM_NULL=2)
|
||||||
|
parameter (MPI_DATATYPE_NULL=0)
|
||||||
|
parameter (MPI_REQUEST_NULL=0)
|
||||||
|
parameter (MPI_OP_NULL=0)
|
||||||
|
parameter (MPI_ERRHANDLER_NULL=0)
|
||||||
|
parameter (MPI_INFO_NULL=0)
|
||||||
|
parameter (MPI_WIN_NULL=0)
|
||||||
|
!
|
||||||
|
! 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 = 54)
|
||||||
|
|
||||||
|
!
|
||||||
|
! comparison results
|
||||||
|
!
|
||||||
|
integer MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
|
||||||
|
|
||||||
|
parameter (MPI_IDENT=0)
|
||||||
|
parameter (MPI_CONGRUENT=1)
|
||||||
|
parameter (MPI_SIMILAR=2)
|
||||||
|
parameter (MPI_UNEQUAL=3)
|
||||||
|
!
|
||||||
|
! datatype combiners
|
||||||
|
!
|
||||||
|
integer MPI_COMBINER_NAMED
|
||||||
|
integer MPI_COMBINER_DUP
|
||||||
|
integer MPI_COMBINER_CONTIGUOUS
|
||||||
|
integer MPI_COMBINER_VECTOR
|
||||||
|
integer MPI_COMBINER_HVECTOR_INTEGER
|
||||||
|
integer MPI_COMBINER_HVECTOR
|
||||||
|
integer MPI_COMBINER_INDEXED
|
||||||
|
integer MPI_COMBINER_HINDEXED_INTEGER
|
||||||
|
integer MPI_COMBINER_HINDEXED
|
||||||
|
integer MPI_COMBINER_INDEXED_BLOCK
|
||||||
|
integer MPI_COMBINER_STRUCT_INTEGER
|
||||||
|
integer MPI_COMBINER_STRUCT
|
||||||
|
integer MPI_COMBINER_SUBARRAY
|
||||||
|
integer MPI_COMBINER_DARRAY
|
||||||
|
integer MPI_COMBINER_F90_REAL
|
||||||
|
integer MPI_COMBINER_F90_COMPLEX
|
||||||
|
integer MPI_COMBINER_F90_INTEGER
|
||||||
|
integer MPI_COMBINER_RESIZED
|
||||||
|
|
||||||
|
parameter (MPI_COMBINER_NAMED=0)
|
||||||
|
parameter (MPI_COMBINER_DUP=1)
|
||||||
|
parameter (MPI_COMBINER_CONTIGUOUS=2)
|
||||||
|
parameter (MPI_COMBINER_VECTOR=3)
|
||||||
|
parameter (MPI_COMBINER_HVECTOR_INTEGER=4)
|
||||||
|
parameter (MPI_COMBINER_HVECTOR=5)
|
||||||
|
parameter (MPI_COMBINER_INDEXED=6)
|
||||||
|
parameter (MPI_COMBINER_HINDEXED_INTEGER=7)
|
||||||
|
parameter (MPI_COMBINER_HINDEXED=8)
|
||||||
|
parameter (MPI_COMBINER_INDEXED_BLOCK=9)
|
||||||
|
parameter (MPI_COMBINER_STRUCT_INTEGER=10)
|
||||||
|
parameter (MPI_COMBINER_STRUCT=11)
|
||||||
|
parameter (MPI_COMBINER_SUBARRAY=12)
|
||||||
|
parameter (MPI_COMBINER_DARRAY=13)
|
||||||
|
parameter (MPI_COMBINER_F90_REAL=14)
|
||||||
|
parameter (MPI_COMBINER_F90_COMPLEX=15)
|
||||||
|
parameter (MPI_COMBINER_F90_INTEGER=16)
|
||||||
|
parameter (MPI_COMBINER_RESIZED=17)
|
||||||
|
!
|
||||||
|
! 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=1)
|
||||||
|
parameter (MPI_ERRORS_RETURN=2)
|
||||||
|
|
||||||
|
integer MPI_BYTE, MPI_PACKED, MPI_UB, MPI_LB
|
||||||
|
integer MPI_CHARACTER, MPI_LOGICAL
|
||||||
|
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
|
||||||
|
integer MPI_INTEGER8, MPI_INTEGER16
|
||||||
|
integer MPI_REAL, MPI_REAL4, MPI_REAL8, MPI_REAL16
|
||||||
|
integer MPI_DOUBLE_PRECISION
|
||||||
|
integer MPI_COMPLEX, MPI_COMPLEX8, MPI_COMPLEX16, MPI_COMPLEX32
|
||||||
|
integer MPI_DOUBLE_COMPLEX
|
||||||
|
integer MPI_2REAL, MPI_2DOUBLE_PRECISION, MPI_2INTEGER
|
||||||
|
|
||||||
|
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_INTEGER16=12)
|
||||||
|
parameter (MPI_REAL=13)
|
||||||
|
parameter (MPI_REAL4=14)
|
||||||
|
parameter (MPI_REAL8=15)
|
||||||
|
parameter (MPI_REAL16=16)
|
||||||
|
parameter (MPI_DOUBLE_PRECISION=17)
|
||||||
|
parameter (MPI_COMPLEX=18)
|
||||||
|
parameter (MPI_COMPLEX8=19)
|
||||||
|
parameter (MPI_COMPLEX16=20)
|
||||||
|
parameter (MPI_COMPLEX32=21)
|
||||||
|
parameter (MPI_DOUBLE_COMPLEX=22)
|
||||||
|
parameter (MPI_2REAL=23)
|
||||||
|
parameter (MPI_2DOUBLE_PRECISION=24)
|
||||||
|
parameter (MPI_2INTEGER=25)
|
||||||
|
|
||||||
|
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=1)
|
||||||
|
parameter (MPI_MIN=2)
|
||||||
|
parameter (MPI_SUM=3)
|
||||||
|
parameter (MPI_PROD=4)
|
||||||
|
parameter (MPI_LAND=5)
|
||||||
|
parameter (MPI_BAND=6)
|
||||||
|
parameter (MPI_LOR=7)
|
||||||
|
parameter (MPI_BOR=8)
|
||||||
|
parameter (MPI_LXOR=9)
|
||||||
|
parameter (MPI_BXOR=10)
|
||||||
|
parameter (MPI_MAXLOC=11)
|
||||||
|
parameter (MPI_MINLOC=12)
|
||||||
|
parameter (MPI_REPLACE=13)
|
||||||
|
|
||||||
|
!
|
||||||
|
! double precision functions
|
||||||
|
!
|
||||||
|
double precision MPI_WTIME, MPI_WTICK , PMPI_WTICK, PMPI_WTIME
|
||||||
|
|
||||||
@ -1,466 +0,0 @@
|
|||||||
! -*- fortran -*-
|
|
||||||
!
|
|
||||||
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
|
||||||
! University Research and Technology
|
|
||||||
! Corporation. All rights reserved.
|
|
||||||
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
||||||
! of Tennessee Research Foundation. All rights
|
|
||||||
! reserved.
|
|
||||||
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
||||||
! University of Stuttgart. All rights reserved.
|
|
||||||
! Copyright (c) 2004-2005 The Regents of the University of California.
|
|
||||||
! All rights reserved.
|
|
||||||
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
|
||||||
! $COPYRIGHT$
|
|
||||||
!
|
|
||||||
! Additional copyrights may follow
|
|
||||||
!
|
|
||||||
! $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
|
|
||||||
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
||||||
|
|
||||||
!
|
|
||||||
! This file contains the bulk of the Open MPI Fortran interface. It
|
|
||||||
! is included as a back-end file to both mpif.h (i.e., the
|
|
||||||
! standardized MPI Fortran header file) and mpi.f90 (the MPI-2
|
|
||||||
! Fortran module source file, found in ompi/mpi/f90).
|
|
||||||
!
|
|
||||||
! This file is marginally different than mpif.h. mpif.h includes
|
|
||||||
! some "external" statements that are not suitable for use with the
|
|
||||||
! MPI-2 F90 module, and therefore cannot be included in the mpi.f90
|
|
||||||
! source file. Hence, this file is essentially everything that
|
|
||||||
! needs to be in the standardized mpif.h *except* the "external"
|
|
||||||
! statements, and is therefore suitable to be included in mpi.f90.
|
|
||||||
!
|
|
||||||
|
|
||||||
!
|
|
||||||
! OMPI version
|
|
||||||
! This file is generated from configure; do not edit it manually.
|
|
||||||
!
|
|
||||||
integer OMPI_MAJOR_VERSION, OMPI_MINOR_VERSION
|
|
||||||
integer OMPI_RELEASE_VERSION
|
|
||||||
character*32 OMPI_GREEK_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_GREEK_VERSION="@OMPI_GREEK_VERSION@")
|
|
||||||
parameter (OMPI_SVN_VERSION="@OMPI_SVN_R@")
|
|
||||||
!
|
|
||||||
! MPI version
|
|
||||||
!
|
|
||||||
integer MPI_VERSION, MPI_SUBVERSION
|
|
||||||
|
|
||||||
parameter (MPI_VERSION=2)
|
|
||||||
parameter (MPI_SUBVERSION=0)
|
|
||||||
!
|
|
||||||
! kind parameters
|
|
||||||
!
|
|
||||||
integer MPI_OFFSET_KIND, MPI_ADDRESS_KIND, MPI_INTEGER_KIND
|
|
||||||
parameter (MPI_INTEGER_KIND=@OMPI_MPI_INTEGER_KIND@)
|
|
||||||
parameter (MPI_ADDRESS_KIND=@OMPI_MPI_ADDRESS_KIND@)
|
|
||||||
parameter (MPI_OFFSET_KIND=@OMPI_MPI_OFFSET_KIND@)
|
|
||||||
!
|
|
||||||
! misc. constants
|
|
||||||
!
|
|
||||||
integer MPI_ANY_SOURCE, MPI_ANY_TAG
|
|
||||||
integer MPI_PROC_NULL, MPI_MAX_PROCESSOR_NAME
|
|
||||||
integer MPI_ROOT, MPI_MAX_DATAREP_STRING
|
|
||||||
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_APPNUM, MPI_LASTUSEDCODE, MPI_UNIVERSE_SIZE
|
|
||||||
integer IMPI_CLIENT_SIZE, IMPI_CLIENT_COLOR
|
|
||||||
integer IMPI_HOST_SIZE, IMPI_HOST_COLOR
|
|
||||||
integer 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
|
|
||||||
integer MPI_TYPECLASS_INTEGER, MPI_TYPECLASS_REAL
|
|
||||||
integer MPI_TYPECLASS_COMPLEX
|
|
||||||
integer MPI_SEEK_SET, MPI_SEEK_CUR, MPI_SEEK_END
|
|
||||||
integer MPI_MODE_CREATE
|
|
||||||
integer MPI_MODE_RDONLY, MPI_MODE_WRONLY, MPI_MODE_RDWR
|
|
||||||
integer MPI_MODE_DELETE_ON_CLOSE, MPI_MODE_UNIQUE_OPEN
|
|
||||||
integer MPI_MODE_EXCL, MPI_MODE_APPEND, MPI_MODE_SEQUENTIAL
|
|
||||||
integer MPI_DISPLACEMENT_CURRENT
|
|
||||||
integer MPI_WIN_BASE, MPI_WIN_SIZE, MPI_WIN_DISP_UNIT
|
|
||||||
|
|
||||||
parameter (MPI_ANY_SOURCE=-1)
|
|
||||||
parameter (MPI_ANY_TAG=-1)
|
|
||||||
parameter (MPI_PROC_NULL=-2)
|
|
||||||
parameter (MPI_ROOT=-4)
|
|
||||||
parameter (MPI_MAX_PROCESSOR_NAME=255)
|
|
||||||
parameter (MPI_MAX_ERROR_STRING=255)
|
|
||||||
parameter (MPI_MAX_DATAREP_STRING=128)
|
|
||||||
parameter (MPI_UNDEFINED=-32766)
|
|
||||||
parameter (MPI_CART=1)
|
|
||||||
parameter (MPI_GRAPH=2)
|
|
||||||
parameter (MPI_KEYVAL_INVALID=-1)
|
|
||||||
parameter (MPI_STATUS_SIZE=5)
|
|
||||||
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_APPNUM=4)
|
|
||||||
parameter (MPI_LASTUSEDCODE=5)
|
|
||||||
parameter (MPI_UNIVERSE_SIZE=6)
|
|
||||||
parameter (MPI_WIN_BASE=6)
|
|
||||||
parameter (MPI_WIN_SIZE=7)
|
|
||||||
parameter (MPI_WIN_DISP_UNIT=8)
|
|
||||||
parameter (IMPI_CLIENT_SIZE=10)
|
|
||||||
parameter (IMPI_CLIENT_COLOR=11)
|
|
||||||
parameter (IMPI_HOST_SIZE=12)
|
|
||||||
parameter (IMPI_HOST_COLOR=13)
|
|
||||||
|
|
||||||
parameter (MPI_BSEND_OVERHEAD=128)
|
|
||||||
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)
|
|
||||||
parameter (MPI_TYPECLASS_INTEGER=1)
|
|
||||||
parameter (MPI_TYPECLASS_REAL=2)
|
|
||||||
parameter (MPI_TYPECLASS_COMPLEX=3)
|
|
||||||
parameter (MPI_SEEK_SET=600)
|
|
||||||
parameter (MPI_SEEK_CUR=602)
|
|
||||||
parameter (MPI_SEEK_END=604)
|
|
||||||
parameter (MPI_MODE_CREATE=1)
|
|
||||||
parameter (MPI_MODE_RDONLY=2)
|
|
||||||
parameter (MPI_MODE_WRONLY=4)
|
|
||||||
parameter (MPI_MODE_RDWR=8)
|
|
||||||
parameter (MPI_MODE_DELETE_ON_CLOSE=16)
|
|
||||||
parameter (MPI_MODE_UNIQUE_OPEN=32)
|
|
||||||
parameter (MPI_MODE_EXCL=64)
|
|
||||||
parameter (MPI_MODE_APPEND=128)
|
|
||||||
parameter (MPI_MODE_SEQUENTIAL=256)
|
|
||||||
parameter (MPI_DISPLACEMENT_CURRENT=-54278278)
|
|
||||||
!
|
|
||||||
! global variables
|
|
||||||
!
|
|
||||||
double complex MPI_BOTTOM, MPI_IN_PLACE
|
|
||||||
character MPI_ARGV_NULL(1)
|
|
||||||
! MPI_ARGVS_NULL must not be a character array so that we can match
|
|
||||||
! an appropriate F90 MPI bindings interface function; see comments
|
|
||||||
! in mpi-f90-interfaces.h for a full explanation.
|
|
||||||
integer MPI_ARGVS_NULL
|
|
||||||
! These must be integer arrays so that we can match the proper
|
|
||||||
! prototypes in the F90 MPI bindings.
|
|
||||||
integer MPI_ERRCODES_IGNORE(1)
|
|
||||||
integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
|
|
||||||
integer MPI_STATUSES_IGNORE(MPI_STATUS_SIZE)
|
|
||||||
|
|
||||||
common/mpi_fortran_bottom/MPI_BOTTOM
|
|
||||||
common/mpi_fortran_in_place/MPI_IN_PLACE
|
|
||||||
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, MPI_WIN_NULL
|
|
||||||
|
|
||||||
parameter (MPI_GROUP_NULL=0)
|
|
||||||
parameter (MPI_COMM_NULL=2)
|
|
||||||
parameter (MPI_DATATYPE_NULL=0)
|
|
||||||
parameter (MPI_REQUEST_NULL=0)
|
|
||||||
parameter (MPI_OP_NULL=0)
|
|
||||||
parameter (MPI_ERRHANDLER_NULL=0)
|
|
||||||
parameter (MPI_INFO_NULL=0)
|
|
||||||
parameter (MPI_WIN_NULL=0)
|
|
||||||
!
|
|
||||||
! 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 = 54)
|
|
||||||
|
|
||||||
!
|
|
||||||
! comparison results
|
|
||||||
!
|
|
||||||
integer MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
|
|
||||||
|
|
||||||
parameter (MPI_IDENT=0)
|
|
||||||
parameter (MPI_CONGRUENT=1)
|
|
||||||
parameter (MPI_SIMILAR=2)
|
|
||||||
parameter (MPI_UNEQUAL=3)
|
|
||||||
!
|
|
||||||
! datatype combiners
|
|
||||||
!
|
|
||||||
integer MPI_COMBINER_NAMED
|
|
||||||
integer MPI_COMBINER_DUP
|
|
||||||
integer MPI_COMBINER_CONTIGUOUS
|
|
||||||
integer MPI_COMBINER_VECTOR
|
|
||||||
integer MPI_COMBINER_HVECTOR_INTEGER
|
|
||||||
integer MPI_COMBINER_HVECTOR
|
|
||||||
integer MPI_COMBINER_INDEXED
|
|
||||||
integer MPI_COMBINER_HINDEXED_INTEGER
|
|
||||||
integer MPI_COMBINER_HINDEXED
|
|
||||||
integer MPI_COMBINER_INDEXED_BLOCK
|
|
||||||
integer MPI_COMBINER_STRUCT_INTEGER
|
|
||||||
integer MPI_COMBINER_STRUCT
|
|
||||||
integer MPI_COMBINER_SUBARRAY
|
|
||||||
integer MPI_COMBINER_DARRAY
|
|
||||||
integer MPI_COMBINER_F90_REAL
|
|
||||||
integer MPI_COMBINER_F90_COMPLEX
|
|
||||||
integer MPI_COMBINER_F90_INTEGER
|
|
||||||
integer MPI_COMBINER_RESIZED
|
|
||||||
|
|
||||||
parameter (MPI_COMBINER_NAMED=0)
|
|
||||||
parameter (MPI_COMBINER_DUP=1)
|
|
||||||
parameter (MPI_COMBINER_CONTIGUOUS=2)
|
|
||||||
parameter (MPI_COMBINER_VECTOR=3)
|
|
||||||
parameter (MPI_COMBINER_HVECTOR_INTEGER=4)
|
|
||||||
parameter (MPI_COMBINER_HVECTOR=5)
|
|
||||||
parameter (MPI_COMBINER_INDEXED=6)
|
|
||||||
parameter (MPI_COMBINER_HINDEXED_INTEGER=7)
|
|
||||||
parameter (MPI_COMBINER_HINDEXED=8)
|
|
||||||
parameter (MPI_COMBINER_INDEXED_BLOCK=9)
|
|
||||||
parameter (MPI_COMBINER_STRUCT_INTEGER=10)
|
|
||||||
parameter (MPI_COMBINER_STRUCT=11)
|
|
||||||
parameter (MPI_COMBINER_SUBARRAY=12)
|
|
||||||
parameter (MPI_COMBINER_DARRAY=13)
|
|
||||||
parameter (MPI_COMBINER_F90_REAL=14)
|
|
||||||
parameter (MPI_COMBINER_F90_COMPLEX=15)
|
|
||||||
parameter (MPI_COMBINER_F90_INTEGER=16)
|
|
||||||
parameter (MPI_COMBINER_RESIZED=17)
|
|
||||||
!
|
|
||||||
! 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=1)
|
|
||||||
parameter (MPI_ERRORS_RETURN=2)
|
|
||||||
|
|
||||||
integer MPI_BYTE, MPI_PACKED, MPI_UB, MPI_LB
|
|
||||||
integer MPI_CHARACTER, MPI_LOGICAL
|
|
||||||
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
|
|
||||||
integer MPI_INTEGER8, MPI_INTEGER16
|
|
||||||
integer MPI_REAL, MPI_REAL4, MPI_REAL8, MPI_REAL16
|
|
||||||
integer MPI_DOUBLE_PRECISION
|
|
||||||
integer MPI_COMPLEX, MPI_COMPLEX8, MPI_COMPLEX16, MPI_COMPLEX32
|
|
||||||
integer MPI_DOUBLE_COMPLEX
|
|
||||||
integer MPI_2REAL, MPI_2DOUBLE_PRECISION, MPI_2INTEGER
|
|
||||||
|
|
||||||
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_INTEGER16=12)
|
|
||||||
parameter (MPI_REAL=13)
|
|
||||||
parameter (MPI_REAL4=14)
|
|
||||||
parameter (MPI_REAL8=15)
|
|
||||||
parameter (MPI_REAL16=16)
|
|
||||||
parameter (MPI_DOUBLE_PRECISION=17)
|
|
||||||
parameter (MPI_COMPLEX=18)
|
|
||||||
parameter (MPI_COMPLEX8=19)
|
|
||||||
parameter (MPI_COMPLEX16=20)
|
|
||||||
parameter (MPI_COMPLEX32=21)
|
|
||||||
parameter (MPI_DOUBLE_COMPLEX=22)
|
|
||||||
parameter (MPI_2REAL=23)
|
|
||||||
parameter (MPI_2DOUBLE_PRECISION=24)
|
|
||||||
parameter (MPI_2INTEGER=25)
|
|
||||||
|
|
||||||
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=1)
|
|
||||||
parameter (MPI_MIN=2)
|
|
||||||
parameter (MPI_SUM=3)
|
|
||||||
parameter (MPI_PROD=4)
|
|
||||||
parameter (MPI_LAND=5)
|
|
||||||
parameter (MPI_BAND=6)
|
|
||||||
parameter (MPI_LOR=7)
|
|
||||||
parameter (MPI_BOR=8)
|
|
||||||
parameter (MPI_LXOR=9)
|
|
||||||
parameter (MPI_BXOR=10)
|
|
||||||
parameter (MPI_MAXLOC=11)
|
|
||||||
parameter (MPI_MINLOC=12)
|
|
||||||
parameter (MPI_REPLACE=13)
|
|
||||||
|
|
||||||
!
|
|
||||||
! double precision functions
|
|
||||||
!
|
|
||||||
double precision MPI_WTIME, MPI_WTICK , PMPI_WTICK, PMPI_WTIME
|
|
||||||
88
ompi/include/mpif-config.h.in
Обычный файл
88
ompi/include/mpif-config.h.in
Обычный файл
@ -0,0 +1,88 @@
|
|||||||
|
! -*- fortran -*-
|
||||||
|
!
|
||||||
|
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
||||||
|
! University Research and Technology
|
||||||
|
! Corporation. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The University of Tennessee and The University
|
||||||
|
! of Tennessee Research Foundation. All rights
|
||||||
|
! reserved.
|
||||||
|
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
||||||
|
! University of Stuttgart. All rights reserved.
|
||||||
|
! Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
|
! All rights reserved.
|
||||||
|
! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
||||||
|
! $COPYRIGHT$
|
||||||
|
!
|
||||||
|
! Additional copyrights may follow
|
||||||
|
!
|
||||||
|
! $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
|
||||||
|
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
!
|
||||||
|
! This file is included as a back-end file to both mpif.h (i.e., the
|
||||||
|
! standardized MPI Fortran header file) and a bunch of the MPI
|
||||||
|
! Fortran 90 subroutine implementations found in ompi/mpi/f90.
|
||||||
|
!
|
||||||
|
! This file contains the output from configure that is relevant for
|
||||||
|
! Fortran applications (both 77 and 90) and a few values that are
|
||||||
|
! necessary to compile the F90 module (e.g., MPI_STATUS_SIZE).
|
||||||
|
!
|
||||||
|
|
||||||
|
!
|
||||||
|
! OMPI version
|
||||||
|
! This file is generated from configure; do not edit it manually.
|
||||||
|
!
|
||||||
|
integer OMPI_MAJOR_VERSION, OMPI_MINOR_VERSION
|
||||||
|
integer OMPI_RELEASE_VERSION
|
||||||
|
character*32 OMPI_GREEK_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_GREEK_VERSION="@OMPI_GREEK_VERSION@")
|
||||||
|
parameter (OMPI_SVN_VERSION="@OMPI_SVN_R@")
|
||||||
|
!
|
||||||
|
! Kind parameters
|
||||||
|
!
|
||||||
|
integer MPI_OFFSET_KIND, MPI_ADDRESS_KIND, MPI_INTEGER_KIND
|
||||||
|
parameter (MPI_INTEGER_KIND=@OMPI_MPI_INTEGER_KIND@)
|
||||||
|
parameter (MPI_ADDRESS_KIND=@OMPI_MPI_ADDRESS_KIND@)
|
||||||
|
parameter (MPI_OFFSET_KIND=@OMPI_MPI_OFFSET_KIND@)
|
||||||
|
!
|
||||||
|
! Miscellaneous constants
|
||||||
|
!
|
||||||
|
integer MPI_STATUS_SIZE
|
||||||
|
parameter (MPI_STATUS_SIZE=5)
|
||||||
@ -63,15 +63,15 @@
|
|||||||
! (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
|
||||||
external MPI_DUP_FN, MPI_COMM_DUP_FN, MPI_TYPE_DUP_FN
|
external MPI_DUP_FN, MPI_COMM_DUP_FN, MPI_TYPE_DUP_FN
|
||||||
external MPI_WIN_NULL_COPY_FN
|
external MPI_WIN_NULL_COPY_FN
|
||||||
external MPI_WIN_NULL_DELETE_FN
|
external MPI_WIN_NULL_DELETE_FN
|
||||||
external MPI_WIN_DUP_FN
|
external MPI_WIN_DUP_FN
|
||||||
|
|
||||||
!
|
!
|
||||||
! double precision functions
|
! double precision functions
|
||||||
!
|
!
|
||||||
external MPI_WTIME, MPI_WTICK, PMPI_WTICK, PMPI_WTIME
|
external MPI_WTIME, MPI_WTICK, PMPI_WTICK, PMPI_WTIME
|
||||||
|
|||||||
@ -50,7 +50,7 @@
|
|||||||
|
|
||||||
SUBDIRS = scripts
|
SUBDIRS = scripts
|
||||||
|
|
||||||
AM_FCFLAGS = -I$(top_builddir)/ompi/include $(OMPI_FC_MODULE_FLAG). -I$(srcdir)
|
AM_FCFLAGS = -I$(top_builddir)/ompi/include -I$(top_srcdir)/ompi/include $(OMPI_FC_MODULE_FLAG). -I$(srcdir)
|
||||||
|
|
||||||
# Override the default f90 rules because we have to insert
|
# Override the default f90 rules because we have to insert
|
||||||
# $(FCFLAGS_f90) right before the source filename. This is necessary
|
# $(FCFLAGS_f90) right before the source filename. This is necessary
|
||||||
|
|||||||
Разница между файлами не показана из-за своего большого размера
Загрузить разницу
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||||
target_count, target_datatype, op, win, ierr)
|
target_count, target_datatype, op, win, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: origin_addr
|
${type}, intent(in) :: origin_addr
|
||||||
integer, intent(in) :: origin_count
|
integer, intent(in) :: origin_count
|
||||||
integer, intent(in) :: origin_datatype
|
integer, intent(in) :: origin_datatype
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Accumulate ${rank} CH "character${dim}"
|
output MPI_Accumulate ${rank} CH "character${dim}"
|
||||||
output MPI_Accumulate ${rank} L "logical${dim}"
|
output MPI_Accumulate ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(location, address, ierr)
|
subroutine ${proc}(location, address, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: location
|
${type}, intent(in) :: location
|
||||||
integer, intent(out) :: address
|
integer, intent(out) :: address
|
||||||
integer, intent(out) :: ierr
|
integer, intent(out) :: ierr
|
||||||
@ -60,13 +60,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Address ${rank} CH "character${dim}"
|
output MPI_Address ${rank} CH "character${dim}"
|
||||||
output MPI_Address ${rank} L "logical${dim}"
|
output MPI_Address ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||||
recvtype, comm, ierr)
|
recvtype, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Allgather ${rank} CH "character${dim}"
|
output MPI_Allgather ${rank} CH "character${dim}"
|
||||||
output MPI_Allgather ${rank} L "logical${dim}"
|
output MPI_Allgather ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
|
||||||
displs, recvtype, comm, ierr)
|
displs, recvtype, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -68,13 +68,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Allgatherv ${rank} CH "character${dim}"
|
output MPI_Allgatherv ${rank} CH "character${dim}"
|
||||||
output MPI_Allgatherv ${rank} L "logical${dim}"
|
output MPI_Allgatherv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
${type}, intent(out) :: recvbuf
|
${type}, intent(out) :: recvbuf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Allreduce ${rank} CH "character${dim}"
|
output MPI_Allreduce ${rank} CH "character${dim}"
|
||||||
output MPI_Allreduce ${rank} L "logical${dim}"
|
output MPI_Allreduce ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||||
recvtype, comm, ierr)
|
recvtype, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Alltoall ${rank} CH "character${dim}"
|
output MPI_Alltoall ${rank} CH "character${dim}"
|
||||||
output MPI_Alltoall ${rank} L "logical${dim}"
|
output MPI_Alltoall ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
|
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtype, recvbuf, &
|
||||||
recvcounts, rdispls, recvtype, comm, ierr)
|
recvcounts, rdispls, recvtype, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, dimension(*), intent(in) :: sendcounts
|
integer, dimension(*), intent(in) :: sendcounts
|
||||||
integer, dimension(*), intent(in) :: sdispls
|
integer, dimension(*), intent(in) :: sdispls
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Alltoallv ${rank} CH "character${dim}"
|
output MPI_Alltoallv ${rank} CH "character${dim}"
|
||||||
output MPI_Alltoallv ${rank} L "logical${dim}"
|
output MPI_Alltoallv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
|
subroutine ${proc}(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, &
|
||||||
recvcounts, rdispls, recvtypes, comm, ierr)
|
recvcounts, rdispls, recvtypes, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, dimension(*), intent(in) :: sendcounts
|
integer, dimension(*), intent(in) :: sendcounts
|
||||||
integer, dimension(*), intent(in) :: sdispls
|
integer, dimension(*), intent(in) :: sdispls
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Alltoallw ${rank} CH "character${dim}"
|
output MPI_Alltoallw ${rank} CH "character${dim}"
|
||||||
output MPI_Alltoallw ${rank} L "logical${dim}"
|
output MPI_Alltoallw ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buffer, count, datatype, root, comm&
|
subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buffer
|
${type}, intent(in) :: buffer
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Bcast ${rank} CH "character${dim}"
|
output MPI_Bcast ${rank} CH "character${dim}"
|
||||||
output MPI_Bcast ${rank} L "logical${dim}"
|
output MPI_Bcast ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Bsend ${rank} CH "character${dim}"
|
output MPI_Bsend ${rank} CH "character${dim}"
|
||||||
output MPI_Bsend ${rank} L "logical${dim}"
|
output MPI_Bsend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Bsend_init ${rank} CH "character${dim}"
|
output MPI_Bsend_init ${rank} CH "character${dim}"
|
||||||
output MPI_Bsend_init ${rank} L "logical${dim}"
|
output MPI_Bsend_init ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(buffer, size, ierr)
|
subroutine ${proc}(buffer, size, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buffer
|
${type}, intent(in) :: buffer
|
||||||
integer, intent(in) :: size
|
integer, intent(in) :: size
|
||||||
integer, intent(out) :: ierr
|
integer, intent(out) :: ierr
|
||||||
@ -60,13 +60,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Buffer_attach ${rank} CH "character${dim}"
|
output MPI_Buffer_attach ${rank} CH "character${dim}"
|
||||||
output MPI_Buffer_attach ${rank} L "logical${dim}"
|
output MPI_Buffer_attach ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(buffer, size, ierr)
|
subroutine ${proc}(buffer, size, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(out) :: buffer
|
${type}, intent(out) :: buffer
|
||||||
integer, intent(out) :: size
|
integer, intent(out) :: size
|
||||||
integer, intent(out) :: ierr
|
integer, intent(out) :: ierr
|
||||||
@ -60,13 +60,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Buffer_detach ${rank} CH "character${dim}"
|
output MPI_Buffer_detach ${rank} CH "character${dim}"
|
||||||
output MPI_Buffer_detach ${rank} L "logical${dim}"
|
output MPI_Buffer_detach ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -44,7 +44,7 @@ output() {
|
|||||||
subroutine ${proc}(count, array_of_commands, array_of_argv, &
|
subroutine ${proc}(count, array_of_commands, array_of_argv, &
|
||||||
array_of_maxprocs, array_of_info, &
|
array_of_maxprocs, array_of_info, &
|
||||||
root, comm, intercomm, array_of_errcodes, ierr)
|
root, comm, intercomm, array_of_errcodes, ierr)
|
||||||
include 'mpif-common.h'
|
include 'mpif-config.h'
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
character(len=*), dimension(*), intent(in) :: array_of_commands
|
character(len=*), dimension(*), intent(in) :: array_of_commands
|
||||||
$type, intent(in) :: array_of_argv
|
$type, intent(in) :: array_of_argv
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
${type}, intent(out) :: recvbuf
|
${type}, intent(out) :: recvbuf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Exscan ${rank} CH "character${dim}"
|
output MPI_Exscan ${rank} CH "character${dim}"
|
||||||
output MPI_Exscan ${rank} L "logical${dim}"
|
output MPI_Exscan ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
request, ierr)
|
request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(in) :: fh
|
integer, intent(in) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iread_at ${rank} CH "character${dim}"
|
output MPI_File_iread_at ${rank} CH "character${dim}"
|
||||||
output MPI_File_iread_at ${rank} L "logical${dim}"
|
output MPI_File_iread_at ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, request&
|
subroutine ${proc}(fh, buf, count, datatype, request&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iread ${rank} CH "character${dim}"
|
output MPI_File_iread ${rank} CH "character${dim}"
|
||||||
output MPI_File_iread ${rank} L "logical${dim}"
|
output MPI_File_iread ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, request&
|
subroutine ${proc}(fh, buf, count, datatype, request&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iread_shared ${rank} CH "character${dim}"
|
output MPI_File_iread_shared ${rank} CH "character${dim}"
|
||||||
output MPI_File_iread_shared ${rank} L "logical${dim}"
|
output MPI_File_iread_shared ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
request, ierr)
|
request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iwrite_at ${rank} CH "character${dim}"
|
output MPI_File_iwrite_at ${rank} CH "character${dim}"
|
||||||
output MPI_File_iwrite_at ${rank} L "logical${dim}"
|
output MPI_File_iwrite_at ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, request&
|
subroutine ${proc}(fh, buf, count, datatype, request&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iwrite ${rank} CH "character${dim}"
|
output MPI_File_iwrite ${rank} CH "character${dim}"
|
||||||
output MPI_File_iwrite ${rank} L "logical${dim}"
|
output MPI_File_iwrite ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, request&
|
subroutine ${proc}(fh, buf, count, datatype, request&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_iwrite_shared ${rank} CH "character${dim}"
|
output MPI_File_iwrite_shared ${rank} CH "character${dim}"
|
||||||
output MPI_File_iwrite_shared ${rank} L "logical${dim}"
|
output MPI_File_iwrite_shared ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -62,13 +62,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_all_begin ${rank} CH "character${dim}"
|
output MPI_File_read_all_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_all_begin ${rank} L "logical${dim}"
|
output MPI_File_read_all_begin ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_all_end ${rank} CH "character${dim}"
|
output MPI_File_read_all_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_all_end ${rank} L "logical${dim}"
|
output MPI_File_read_all_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_all ${rank} CH "character${dim}"
|
output MPI_File_read_all ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_all ${rank} L "logical${dim}"
|
output MPI_File_read_all ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype&
|
subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(in) :: fh
|
integer, intent(in) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_at_all_begin ${rank} CH "character${dim}"
|
output MPI_File_read_at_all_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_at_all_begin ${rank} L "logical${dim}"
|
output MPI_File_read_at_all_begin ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(in) :: fh
|
integer, intent(in) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_at_all_end ${rank} CH "character${dim}"
|
output MPI_File_read_at_all_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_at_all_end ${rank} L "logical${dim}"
|
output MPI_File_read_at_all_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
status, ierr)
|
status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(in) :: fh
|
integer, intent(in) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_at_all ${rank} CH "character${dim}"
|
output MPI_File_read_at_all ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_at_all ${rank} L "logical${dim}"
|
output MPI_File_read_at_all ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
status, ierr)
|
status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(in) :: fh
|
integer, intent(in) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_at ${rank} CH "character${dim}"
|
output MPI_File_read_at ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_at ${rank} L "logical${dim}"
|
output MPI_File_read_at ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read ${rank} CH "character${dim}"
|
output MPI_File_read ${rank} CH "character${dim}"
|
||||||
output MPI_File_read ${rank} L "logical${dim}"
|
output MPI_File_read ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -39,21 +39,22 @@ allranks="0 $ranks"
|
|||||||
|
|
||||||
|
|
||||||
output() {
|
output() {
|
||||||
procedure=$1
|
short_procedure=$1
|
||||||
rank=$2
|
full_procedure=$2
|
||||||
type=$4
|
rank=$3
|
||||||
proc="$1$2D$3"
|
type=$5
|
||||||
|
proc="$1$3D$4"
|
||||||
|
|
||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
integer, intent(out) :: ierr
|
integer, intent(out) :: ierr
|
||||||
call ${procedure}(fh, buf, count, datatype, ierr)
|
call ${full_procedure}(fh, buf, count, datatype, ierr)
|
||||||
end subroutine ${proc}
|
end subroutine ${proc}
|
||||||
|
|
||||||
EOF
|
EOF
|
||||||
@ -62,26 +63,26 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_ordered_begin ${rank} CH "character${dim}"
|
output MPI_File_read_ord_begin MPI_File_read_ordered_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_ordered_begin ${rank} L "logical${dim}"
|
output MPI_File_read_ord_begin MPI_File_read_ordered_begin ${rank} L "logical${dim}"
|
||||||
for kind in $ikinds
|
for kind in $ikinds
|
||||||
do
|
do
|
||||||
output MPI_File_read_ordered_begin ${rank} I${kind} "integer*${kind}${dim}"
|
output MPI_File_read_ord_begin MPI_File_read_ordered_begin ${rank} I${kind} "integer*${kind}${dim}"
|
||||||
done
|
done
|
||||||
for kind in $rkinds
|
for kind in $rkinds
|
||||||
do
|
do
|
||||||
output MPI_File_read_ordered_begin ${rank} R${kind} "real*${kind}${dim}"
|
output MPI_File_read_ord_begin MPI_File_read_ordered_begin ${rank} R${kind} "real*${kind}${dim}"
|
||||||
done
|
done
|
||||||
for kind in $ckinds
|
for kind in $ckinds
|
||||||
do
|
do
|
||||||
output MPI_File_read_ordered_begin ${rank} C${kind} "complex*${kind}${dim}"
|
output MPI_File_read_ord_begin MPI_File_read_ordered_begin ${rank} C${kind} "complex*${kind}${dim}"
|
||||||
done
|
done
|
||||||
done
|
done
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_ordered_end ${rank} CH "character${dim}"
|
output MPI_File_read_ordered_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_ordered_end ${rank} L "logical${dim}"
|
output MPI_File_read_ordered_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_ordered ${rank} CH "character${dim}"
|
output MPI_File_read_ordered ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_ordered ${rank} L "logical${dim}"
|
output MPI_File_read_ordered ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_read_shared ${rank} CH "character${dim}"
|
output MPI_File_read_shared ${rank} CH "character${dim}"
|
||||||
output MPI_File_read_shared ${rank} L "logical${dim}"
|
output MPI_File_read_shared ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -62,13 +62,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_all_begin ${rank} CH "character${dim}"
|
output MPI_File_write_all_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_all_begin ${rank} L "logical${dim}"
|
output MPI_File_write_all_begin ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_all_end ${rank} CH "character${dim}"
|
output MPI_File_write_all_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_all_end ${rank} L "logical${dim}"
|
output MPI_File_write_all_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_all ${rank} CH "character${dim}"
|
output MPI_File_write_all ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_all ${rank} L "logical${dim}"
|
output MPI_File_write_all ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -39,23 +39,24 @@ allranks="0 $ranks"
|
|||||||
|
|
||||||
|
|
||||||
output() {
|
output() {
|
||||||
procedure=$1
|
short_procedure=$1
|
||||||
rank=$2
|
full_procedure=$2
|
||||||
type=$4
|
rank=$3
|
||||||
proc="$1$2D$3"
|
type=$5
|
||||||
|
proc="$1$3D$4"
|
||||||
|
|
||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype&
|
subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
integer, intent(out) :: ierr
|
integer, intent(out) :: ierr
|
||||||
call ${procedure}(fh, offset, buf, count, datatype&
|
call ${full_procedure}(fh, offset, buf, count, datatype&
|
||||||
, ierr)
|
, ierr)
|
||||||
end subroutine ${proc}
|
end subroutine ${proc}
|
||||||
|
|
||||||
@ -65,26 +66,26 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_at_all_begin ${rank} CH "character${dim}"
|
output MPI_File_wr_at_all_begin MPI_File_write_at_all_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_at_all_begin ${rank} L "logical${dim}"
|
output MPI_File_wr_at_all_begin MPI_File_write_at_all_begin ${rank} L "logical${dim}"
|
||||||
for kind in $ikinds
|
for kind in $ikinds
|
||||||
do
|
do
|
||||||
output MPI_File_write_at_all_begin ${rank} I${kind} "integer*${kind}${dim}"
|
output MPI_File_wr_at_all_begin MPI_File_write_at_all_begin ${rank} I${kind} "integer*${kind}${dim}"
|
||||||
done
|
done
|
||||||
for kind in $rkinds
|
for kind in $rkinds
|
||||||
do
|
do
|
||||||
output MPI_File_write_at_all_begin ${rank} R${kind} "real*${kind}${dim}"
|
output MPI_File_wr_at_all_begin MPI_File_write_at_all_begin ${rank} R${kind} "real*${kind}${dim}"
|
||||||
done
|
done
|
||||||
for kind in $ckinds
|
for kind in $ckinds
|
||||||
do
|
do
|
||||||
output MPI_File_write_at_all_begin ${rank} C${kind} "complex*${kind}${dim}"
|
output MPI_File_wr_at_all_begin MPI_File_write_at_all_begin ${rank} C${kind} "complex*${kind}${dim}"
|
||||||
done
|
done
|
||||||
done
|
done
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_at_all_end ${rank} CH "character${dim}"
|
output MPI_File_write_at_all_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_at_all_end ${rank} L "logical${dim}"
|
output MPI_File_write_at_all_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
status, ierr)
|
status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_at_all ${rank} CH "character${dim}"
|
output MPI_File_write_at_all ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_at_all ${rank} L "logical${dim}"
|
output MPI_File_write_at_all ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||||
status, ierr)
|
status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
integer(kind=MPI_OFFSET_KIND), intent(in) :: offset
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_at ${rank} CH "character${dim}"
|
output MPI_File_write_at ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_at ${rank} L "logical${dim}"
|
output MPI_File_write_at ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write ${rank} CH "character${dim}"
|
output MPI_File_write ${rank} CH "character${dim}"
|
||||||
output MPI_File_write ${rank} L "logical${dim}"
|
output MPI_File_write ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
subroutine ${proc}(fh, buf, count, datatype, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -62,13 +62,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_ordered_begin ${rank} CH "character${dim}"
|
output MPI_File_write_ordered_begin ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_ordered_begin ${rank} L "logical${dim}"
|
output MPI_File_write_ordered_begin ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -47,7 +47,7 @@ output() {
|
|||||||
cat <<EOF
|
cat <<EOF
|
||||||
|
|
||||||
subroutine ${proc}(fh, buf, status, ierr)
|
subroutine ${proc}(fh, buf, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
integer, dimension(MPI_STATUS_SIZE), intent(out) :: status
|
||||||
@ -61,13 +61,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_ordered_end ${rank} CH "character${dim}"
|
output MPI_File_write_ordered_end ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_ordered_end ${rank} L "logical${dim}"
|
output MPI_File_write_ordered_end ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_ordered ${rank} CH "character${dim}"
|
output MPI_File_write_ordered ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_ordered ${rank} L "logical${dim}"
|
output MPI_File_write_ordered ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(fh, buf, count, datatype, status&
|
subroutine ${proc}(fh, buf, count, datatype, status&
|
||||||
, ierr)
|
, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
integer, intent(inout) :: fh
|
integer, intent(inout) :: fh
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -65,13 +65,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_File_write_shared ${rank} CH "character${dim}"
|
output MPI_File_write_shared ${rank} CH "character${dim}"
|
||||||
output MPI_File_write_shared ${rank} L "logical${dim}"
|
output MPI_File_write_shared ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||||
recvtype, root, comm, ierr)
|
recvtype, root, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -68,13 +68,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Gather ${rank} CH "character${dim}"
|
output MPI_Gather ${rank} CH "character${dim}"
|
||||||
output MPI_Gather ${rank} L "logical${dim}"
|
output MPI_Gather ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcounts, &
|
||||||
displs, recvtype, root, comm, ierr)
|
displs, recvtype, root, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Gatherv ${rank} CH "character${dim}"
|
output MPI_Gatherv ${rank} CH "character${dim}"
|
||||||
output MPI_Gatherv ${rank} L "logical${dim}"
|
output MPI_Gatherv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||||
target_count, target_datatype, win, ierr)
|
target_count, target_datatype, win, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: origin_addr
|
${type}, intent(in) :: origin_addr
|
||||||
integer, intent(in) :: origin_count
|
integer, intent(in) :: origin_count
|
||||||
integer, intent(in) :: origin_datatype
|
integer, intent(in) :: origin_datatype
|
||||||
@ -68,13 +68,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Get ${rank} CH "character${dim}"
|
output MPI_Get ${rank} CH "character${dim}"
|
||||||
output MPI_Get ${rank} L "logical${dim}"
|
output MPI_Get ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Ibsend ${rank} CH "character${dim}"
|
output MPI_Ibsend ${rank} CH "character${dim}"
|
||||||
output MPI_Ibsend ${rank} L "logical${dim}"
|
output MPI_Ibsend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, source, tag, &
|
subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Irecv ${rank} CH "character${dim}"
|
output MPI_Irecv ${rank} CH "character${dim}"
|
||||||
output MPI_Irecv ${rank} L "logical${dim}"
|
output MPI_Irecv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Irsend ${rank} CH "character${dim}"
|
output MPI_Irsend ${rank} CH "character${dim}"
|
||||||
output MPI_Irsend ${rank} L "logical${dim}"
|
output MPI_Irsend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Isend ${rank} CH "character${dim}"
|
output MPI_Isend ${rank} CH "character${dim}"
|
||||||
output MPI_Isend ${rank} L "logical${dim}"
|
output MPI_Isend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Issend ${rank} CH "character${dim}"
|
output MPI_Issend ${rank} CH "character${dim}"
|
||||||
output MPI_Issend ${rank} L "logical${dim}"
|
output MPI_Issend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
|
subroutine ${proc}(datarep, inbuf, incount, datatype, outbuf, &
|
||||||
outsize, position, ierr)
|
outsize, position, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
character(len=*), intent(in) :: datarep
|
character(len=*), intent(in) :: datarep
|
||||||
${type}, intent(in) :: inbuf
|
${type}, intent(in) :: inbuf
|
||||||
integer, intent(in) :: incount
|
integer, intent(in) :: incount
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Pack_external ${rank} CH "character${dim}"
|
output MPI_Pack_external ${rank} CH "character${dim}"
|
||||||
output MPI_Pack_external ${rank} L "logical${dim}"
|
output MPI_Pack_external ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
|
subroutine ${proc}(inbuf, incount, datatype, outbuf, outsize, &
|
||||||
position, comm, ierr)
|
position, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: inbuf
|
${type}, intent(in) :: inbuf
|
||||||
integer, intent(in) :: incount
|
integer, intent(in) :: incount
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Pack ${rank} CH "character${dim}"
|
output MPI_Pack ${rank} CH "character${dim}"
|
||||||
output MPI_Pack ${rank} L "logical${dim}"
|
output MPI_Pack ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||||
target_count, target_datatype, win, ierr)
|
target_count, target_datatype, win, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: origin_addr
|
${type}, intent(in) :: origin_addr
|
||||||
integer, intent(in) :: origin_count
|
integer, intent(in) :: origin_count
|
||||||
integer, intent(in) :: origin_datatype
|
integer, intent(in) :: origin_datatype
|
||||||
@ -68,13 +68,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Put ${rank} CH "character${dim}"
|
output MPI_Put ${rank} CH "character${dim}"
|
||||||
output MPI_Put ${rank} L "logical${dim}"
|
output MPI_Put ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, source, tag, &
|
subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||||
comm, status, ierr)
|
comm, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Recv ${rank} CH "character${dim}"
|
output MPI_Recv ${rank} CH "character${dim}"
|
||||||
output MPI_Recv ${rank} L "logical${dim}"
|
output MPI_Recv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, source, tag, &
|
subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(out) :: buf
|
${type}, intent(out) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Recv_init ${rank} CH "character${dim}"
|
output MPI_Recv_init ${rank} CH "character${dim}"
|
||||||
output MPI_Recv_init ${rank} L "logical${dim}"
|
output MPI_Recv_init ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||||
root, comm, ierr)
|
root, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
${type}, intent(out) :: recvbuf
|
${type}, intent(out) :: recvbuf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Reduce ${rank} CH "character${dim}"
|
output MPI_Reduce ${rank} CH "character${dim}"
|
||||||
output MPI_Reduce ${rank} L "logical${dim}"
|
output MPI_Reduce ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
|
subroutine ${proc}(sendbuf, recvbuf, recvcounts, datatype, op, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
${type}, intent(out) :: recvbuf
|
${type}, intent(out) :: recvbuf
|
||||||
integer, intent(in) :: recvcounts
|
integer, intent(in) :: recvcounts
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Reduce_scatter ${rank} CH "character${dim}"
|
output MPI_Reduce_scatter ${rank} CH "character${dim}"
|
||||||
output MPI_Reduce_scatter ${rank} L "logical${dim}"
|
output MPI_Reduce_scatter ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: ibuf
|
${type}, intent(in) :: ibuf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Rsend ${rank} CH "character${dim}"
|
output MPI_Rsend ${rank} CH "character${dim}"
|
||||||
output MPI_Rsend ${rank} L "logical${dim}"
|
output MPI_Rsend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Rsend_init ${rank} CH "character${dim}"
|
output MPI_Rsend_init ${rank} CH "character${dim}"
|
||||||
output MPI_Rsend_init ${rank} L "logical${dim}"
|
output MPI_Rsend_init ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
${type}, intent(out) :: recvbuf
|
${type}, intent(out) :: recvbuf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Scan ${rank} CH "character${dim}"
|
output MPI_Scan ${rank} CH "character${dim}"
|
||||||
output MPI_Scan ${rank} L "logical${dim}"
|
output MPI_Scan ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, recvbuf, recvcount, &
|
||||||
recvtype, root, comm, ierr)
|
recvtype, root, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -68,13 +68,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Scatter ${rank} CH "character${dim}"
|
output MPI_Scatter ${rank} CH "character${dim}"
|
||||||
output MPI_Scatter ${rank} L "logical${dim}"
|
output MPI_Scatter ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
|
subroutine ${proc}(sendbuf, sendcounts, displs, sendtype, recvbuf, &
|
||||||
recvcount, recvtype, root, comm, ierr)
|
recvcount, recvtype, root, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcounts
|
integer, intent(in) :: sendcounts
|
||||||
integer, intent(in) :: displs
|
integer, intent(in) :: displs
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Scatterv ${rank} CH "character${dim}"
|
output MPI_Scatterv ${rank} CH "character${dim}"
|
||||||
output MPI_Scatterv ${rank} L "logical${dim}"
|
output MPI_Scatterv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Send ${rank} CH "character${dim}"
|
output MPI_Send ${rank} CH "character${dim}"
|
||||||
output MPI_Send ${rank} L "logical${dim}"
|
output MPI_Send ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Send_init ${rank} CH "character${dim}"
|
output MPI_Send_init ${rank} CH "character${dim}"
|
||||||
output MPI_Send_init ${rank} L "logical${dim}"
|
output MPI_Send_init ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
|
subroutine ${proc}(sendbuf, sendcount, sendtype, dest, sendtag, &
|
||||||
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)
|
recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: sendbuf
|
${type}, intent(in) :: sendbuf
|
||||||
integer, intent(in) :: sendcount
|
integer, intent(in) :: sendcount
|
||||||
integer, intent(in) :: sendtype
|
integer, intent(in) :: sendtype
|
||||||
@ -72,13 +72,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Sendrecv ${rank} CH "character${dim}"
|
output MPI_Sendrecv ${rank} CH "character${dim}"
|
||||||
output MPI_Sendrecv ${rank} L "logical${dim}"
|
output MPI_Sendrecv ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||||
source, recvtag, comm, status, ierr)
|
source, recvtag, comm, status, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(inout) :: buf
|
${type}, intent(inout) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -69,13 +69,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Sendrecv_replace ${rank} CH "character${dim}"
|
output MPI_Sendrecv_replace ${rank} CH "character${dim}"
|
||||||
output MPI_Sendrecv_replace ${rank} L "logical${dim}"
|
output MPI_Sendrecv_replace ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -28,7 +28,6 @@ do
|
|||||||
proc="${procedure}${rank}DL${kind}"
|
proc="${procedure}${rank}DL${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " logical*${kind}, intent(in) :: x"
|
echo " logical*${kind}, intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -44,7 +43,6 @@ do
|
|||||||
proc="${procedure}${rank}DI${kind}"
|
proc="${procedure}${rank}DI${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " integer*${kind}, intent(in) :: x"
|
echo " integer*${kind}, intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -60,7 +58,6 @@ do
|
|||||||
proc="${procedure}${rank}DR${kind}"
|
proc="${procedure}${rank}DR${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " real*${kind}, intent(in) :: x"
|
echo " real*${kind}, intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -79,7 +76,6 @@ do
|
|||||||
proc="${procedure}${rank}DC${kind}"
|
proc="${procedure}${rank}DC${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " complex*${kind}, intent(in) :: x"
|
echo " complex*${kind}, intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -93,20 +89,19 @@ done
|
|||||||
|
|
||||||
for rank in $ranks
|
for rank in $ranks
|
||||||
do
|
do
|
||||||
case "$rank" in 1) dim=':' ; esac
|
case "$rank" in 1) dim='*' ; esac
|
||||||
case "$rank" in 2) dim=':,:' ; esac
|
case "$rank" in 2) dim='1,*' ; esac
|
||||||
case "$rank" in 3) dim=':,:,:' ; esac
|
case "$rank" in 3) dim='1,1,*' ; esac
|
||||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
case "$rank" in 4) dim='1,1,1,*' ; esac
|
||||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
case "$rank" in 5) dim='1,1,1,1,*' ; esac
|
||||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
case "$rank" in 6) dim='1,1,1,1,1,*' ; esac
|
||||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
case "$rank" in 7) dim='1,1,1,1,1,1,*' ; esac
|
||||||
|
|
||||||
for kind in $lkinds
|
for kind in $lkinds
|
||||||
do
|
do
|
||||||
proc="${procedure}${rank}DL${kind}"
|
proc="${procedure}${rank}DL${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " logical*${kind}, dimension(${dim}), intent(in) :: x"
|
echo " logical*${kind}, dimension(${dim}), intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -122,7 +117,6 @@ do
|
|||||||
proc="${procedure}${rank}DI${kind}"
|
proc="${procedure}${rank}DI${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " integer*${kind}, dimension(${dim}), intent(in) :: x"
|
echo " integer*${kind}, dimension(${dim}), intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -138,7 +132,6 @@ do
|
|||||||
proc="${procedure}${rank}DR${kind}"
|
proc="${procedure}${rank}DR${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " real*${kind}, dimension(${dim}), intent(in) :: x"
|
echo " real*${kind}, dimension(${dim}), intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
@ -157,7 +150,6 @@ do
|
|||||||
proc="${procedure}${rank}DC${kind}"
|
proc="${procedure}${rank}DC${kind}"
|
||||||
echo "subroutine ${proc}(x, size, ierr)"
|
echo "subroutine ${proc}(x, size, ierr)"
|
||||||
echo " implicit none"
|
echo " implicit none"
|
||||||
echo " include 'mpif-common.h'"
|
|
||||||
echo " include 'fortran_sizes.h'"
|
echo " include 'fortran_sizes.h'"
|
||||||
echo " complex*${kind}, dimension(${dim}), intent(in) :: x"
|
echo " complex*${kind}, dimension(${dim}), intent(in) :: x"
|
||||||
echo " integer, intent(out) :: size"
|
echo " integer, intent(out) :: size"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, ierr)
|
comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Ssend ${rank} CH "character${dim}"
|
output MPI_Ssend ${rank} CH "character${dim}"
|
||||||
output MPI_Ssend ${rank} L "logical${dim}"
|
output MPI_Ssend ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||||
comm, request, ierr)
|
comm, request, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: buf
|
${type}, intent(in) :: buf
|
||||||
integer, intent(in) :: count
|
integer, intent(in) :: count
|
||||||
integer, intent(in) :: datatype
|
integer, intent(in) :: datatype
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Ssend_init ${rank} CH "character${dim}"
|
output MPI_Ssend_init ${rank} CH "character${dim}"
|
||||||
output MPI_Ssend_init ${rank} L "logical${dim}"
|
output MPI_Ssend_init ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
|
subroutine ${proc}(datarep, inbuf, insize, position, outbuf, &
|
||||||
outcount, datatype, ierr)
|
outcount, datatype, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
character(len=*), intent(in) :: datarep
|
character(len=*), intent(in) :: datarep
|
||||||
${type}, intent(in) :: inbuf
|
${type}, intent(in) :: inbuf
|
||||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize
|
integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Unpack_external ${rank} CH "character${dim}"
|
output MPI_Unpack_external ${rank} CH "character${dim}"
|
||||||
output MPI_Unpack_external ${rank} L "logical${dim}"
|
output MPI_Unpack_external ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
|
subroutine ${proc}(inbuf, insize, position, outbuf, outcount, &
|
||||||
datatype, comm, ierr)
|
datatype, comm, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: inbuf
|
${type}, intent(in) :: inbuf
|
||||||
integer, intent(in) :: insize
|
integer, intent(in) :: insize
|
||||||
integer, intent(inout) :: position
|
integer, intent(inout) :: position
|
||||||
@ -67,13 +67,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Unpack ${rank} CH "character${dim}"
|
output MPI_Unpack ${rank} CH "character${dim}"
|
||||||
output MPI_Unpack ${rank} L "logical${dim}"
|
output MPI_Unpack ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -48,7 +48,7 @@ output() {
|
|||||||
|
|
||||||
subroutine ${proc}(base, size, disp_unit, info, comm, &
|
subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||||
win, ierr)
|
win, ierr)
|
||||||
include "mpif-common.h"
|
include "mpif-config.h"
|
||||||
${type}, intent(in) :: base
|
${type}, intent(in) :: base
|
||||||
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
integer(kind=MPI_ADDRESS_KIND), intent(in) :: size
|
||||||
integer, intent(in) :: disp_unit
|
integer, intent(in) :: disp_unit
|
||||||
@ -66,13 +66,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output MPI_Win_create ${rank} CH "character${dim}"
|
output MPI_Win_create ${rank} CH "character${dim}"
|
||||||
output MPI_Win_create ${rank} L "logical${dim}"
|
output MPI_Win_create ${rank} L "logical${dim}"
|
||||||
|
|||||||
@ -2,6 +2,7 @@
|
|||||||
...........................................................................
|
...........................................................................
|
||||||
Copyright (c) 2004-2006 The Regents of the University of California.
|
Copyright (c) 2004-2006 The Regents of the University of California.
|
||||||
All rights reserved.
|
All rights reserved.
|
||||||
|
Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
||||||
$COPYRIGHT$
|
$COPYRIGHT$
|
||||||
|
|
||||||
Additional copyrights may follow
|
Additional copyrights may follow
|
||||||
@ -129,13 +130,13 @@ EOF
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
</xsl:text>
|
</xsl:text>
|
||||||
|
|
||||||
@ -190,7 +191,7 @@ do
|
|||||||
<xsl:text>subroutine ${proc}(</xsl:text>
|
<xsl:text>subroutine ${proc}(</xsl:text>
|
||||||
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:text> include "mpif-common.h"</xsl:text>
|
<xsl:text> include "mpif-config.h"</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:call-template name="decl-construct-list">
|
<xsl:call-template name="decl-construct-list">
|
||||||
<xsl:with-param name="ws" select="''"/>
|
<xsl:with-param name="ws" select="''"/>
|
||||||
|
|||||||
@ -317,13 +317,13 @@ done
|
|||||||
<xsl:text>
|
<xsl:text>
|
||||||
for rank in $ranks
|
for rank in $ranks
|
||||||
do
|
do
|
||||||
case "$rank" in 1) dim=':' ; esac
|
case "$rank" in 1) dim='*' ; esac
|
||||||
case "$rank" in 2) dim=':,:' ; esac
|
case "$rank" in 2) dim='1,*' ; esac
|
||||||
case "$rank" in 3) dim=':,:,:' ; esac
|
case "$rank" in 3) dim='1,1,*' ; esac
|
||||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
case "$rank" in 4) dim='1,1,1,*' ; esac
|
||||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
case "$rank" in 5) dim='1,1,1,1,*' ; esac
|
||||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
case "$rank" in 6) dim='1,1,1,1,1,*' ; esac
|
||||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
case "$rank" in 7) dim='1,1,1,1,1,1,*' ; esac
|
||||||
|
|
||||||
</xsl:text>
|
</xsl:text>
|
||||||
|
|
||||||
|
|||||||
@ -2,6 +2,7 @@
|
|||||||
...........................................................................
|
...........................................................................
|
||||||
Copyright (c) 2004-2006 The Regents of the University of California.
|
Copyright (c) 2004-2006 The Regents of the University of California.
|
||||||
All rights reserved.
|
All rights reserved.
|
||||||
|
Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
||||||
$COPYRIGHT$
|
$COPYRIGHT$
|
||||||
|
|
||||||
Additional copyrights may follow
|
Additional copyrights may follow
|
||||||
@ -112,7 +113,7 @@ output_</xsl:text> <xsl:number/> <xsl:text>() {
|
|||||||
<xsl:text>subroutine ${procedure}(</xsl:text>
|
<xsl:text>subroutine ${procedure}(</xsl:text>
|
||||||
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:text> include 'mpif-common.h'</xsl:text>
|
<xsl:text> include 'mpif-config.h'</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:call-template name="decl-construct-list">
|
<xsl:call-template name="decl-construct-list">
|
||||||
<xsl:with-param name="ws" select="''"/>
|
<xsl:with-param name="ws" select="''"/>
|
||||||
@ -184,7 +185,7 @@ output_</xsl:text> <xsl:number/> <xsl:text>() {
|
|||||||
<xsl:text>subroutine ${proc}(</xsl:text>
|
<xsl:text>subroutine ${proc}(</xsl:text>
|
||||||
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
<xsl:call-template name="arg-list"/> <xsl:text>)</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:text> include 'mpif-common.h'</xsl:text>
|
<xsl:text> include 'mpif-config.h'</xsl:text>
|
||||||
<xsl:value-of select="$nl"/>
|
<xsl:value-of select="$nl"/>
|
||||||
<xsl:call-template name="decl-construct-list">
|
<xsl:call-template name="decl-construct-list">
|
||||||
<xsl:with-param name="ws" select="''"/>
|
<xsl:with-param name="ws" select="''"/>
|
||||||
@ -213,13 +214,13 @@ start </xsl:text> <xsl:value-of select="@name"/> <xsl:text> </xsl:text>
|
|||||||
for rank in $allranks
|
for rank in $allranks
|
||||||
do
|
do
|
||||||
case "$rank" in 0) dim='' ; esac
|
case "$rank" in 0) dim='' ; esac
|
||||||
case "$rank" in 1) dim=', dimension(:)' ; esac
|
case "$rank" in 1) dim=', dimension(*)' ; esac
|
||||||
case "$rank" in 2) dim=', dimension(:,:)' ; esac
|
case "$rank" in 2) dim=', dimension(1,*)' ; esac
|
||||||
case "$rank" in 3) dim=', dimension(:,:,:)' ; esac
|
case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
|
||||||
case "$rank" in 4) dim=', dimension(:,:,:,:)' ; esac
|
case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
|
||||||
case "$rank" in 5) dim=', dimension(:,:,:,:,:)' ; esac
|
case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 6) dim=', dimension(:,:,:,:,:,:)' ; esac
|
case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
|
||||||
case "$rank" in 7) dim=', dimension(:,:,:,:,:,:,:)' ; esac
|
case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
|
||||||
|
|
||||||
output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
|
output_</xsl:text> <xsl:number/> <xsl:text> </xsl:text>
|
||||||
<xsl:value-of select="@name"/>
|
<xsl:value-of select="@name"/>
|
||||||
@ -631,17 +632,17 @@ end </xsl:text>
|
|||||||
<xsl:text>
|
<xsl:text>
|
||||||
# Do a little error checking
|
# Do a little error checking
|
||||||
|
|
||||||
if test ! -f fortran_kinds.sh; then
|
if test ! -f "$1/fortran_kinds.sh"; then
|
||||||
echo "ERROR: Cannot find fortran_kinds.sh" >&2
|
echo "ERROR: Cannot find fortran_kinds.sh" >&2
|
||||||
exit 1
|
exit 1
|
||||||
elif test -z fortran_kinds.sh; then
|
elif test -z "$1/fortran_kinds.sh"; then
|
||||||
echo "ERROR: fortran_kinds.sh appears to be empty!" >&2
|
echo "ERROR: fortran_kinds.sh appears to be empty!" >&2
|
||||||
exit 1
|
exit 1
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# Read in the KIND information
|
# Read in the KIND information
|
||||||
|
|
||||||
. fortran_kinds.sh
|
. "$1/fortran_kinds.sh"
|
||||||
|
|
||||||
# Setup
|
# Setup
|
||||||
|
|
||||||
|
|||||||
@ -34,7 +34,8 @@ AM_CPPFLAGS = \
|
|||||||
-DOMPI_CC_ABSOLUTE="\"@OMPI_CC_ABSOLUTE@\"" \
|
-DOMPI_CC_ABSOLUTE="\"@OMPI_CC_ABSOLUTE@\"" \
|
||||||
-DOMPI_CXX_ABSOLUTE="\"@OMPI_CXX_ABSOLUTE@\"" \
|
-DOMPI_CXX_ABSOLUTE="\"@OMPI_CXX_ABSOLUTE@\"" \
|
||||||
-DOMPI_F77_ABSOLUTE="\"@OMPI_F77_ABSOLUTE@\"" \
|
-DOMPI_F77_ABSOLUTE="\"@OMPI_F77_ABSOLUTE@\"" \
|
||||||
-DOMPI_F90_ABSOLUTE="\"@OMPI_F90_ABSOLUTE@\""
|
-DOMPI_F90_ABSOLUTE="\"@OMPI_F90_ABSOLUTE@\"" \
|
||||||
|
-DOMPI_F90_BUILD_SIZE="\"@OMPI_F90_BUILD_SIZE@\""
|
||||||
|
|
||||||
if OMPI_INSTALL_BINARIES
|
if OMPI_INSTALL_BINARIES
|
||||||
|
|
||||||
|
|||||||
@ -332,6 +332,7 @@ void ompi_info::do_config(bool want_all)
|
|||||||
(OMPI_F77_SINGLE_UNDERSCORE ? "single underscore" :
|
(OMPI_F77_SINGLE_UNDERSCORE ? "single underscore" :
|
||||||
"double underscore")))) + string(")"): "no");
|
"double underscore")))) + string(")"): "no");
|
||||||
const string f90(OMPI_WANT_F90_BINDINGS ? "yes" : "no");
|
const string f90(OMPI_WANT_F90_BINDINGS ? "yes" : "no");
|
||||||
|
const string f90_size(OMPI_F90_BUILD_SIZE);
|
||||||
const string memprofile(OMPI_ENABLE_MEM_PROFILE ? "yes" : "no");
|
const string memprofile(OMPI_ENABLE_MEM_PROFILE ? "yes" : "no");
|
||||||
const string memdebug(OMPI_ENABLE_MEM_DEBUG ? "yes" : "no");
|
const string memdebug(OMPI_ENABLE_MEM_DEBUG ? "yes" : "no");
|
||||||
const string debug(OMPI_ENABLE_DEBUG ? "yes" : "no");
|
const string debug(OMPI_ENABLE_DEBUG ? "yes" : "no");
|
||||||
@ -373,6 +374,8 @@ void ompi_info::do_config(bool want_all)
|
|||||||
out("C++ bindings", "bindings:cxx", cxx);
|
out("C++ bindings", "bindings:cxx", cxx);
|
||||||
out("Fortran77 bindings", "bindings:f77", f77);
|
out("Fortran77 bindings", "bindings:f77", f77);
|
||||||
out("Fortran90 bindings", "bindings:f90", f90);
|
out("Fortran90 bindings", "bindings:f90", f90);
|
||||||
|
out("Fortran90 bindings size", "bindings:f90:size",
|
||||||
|
OMPI_WANT_F90_BINDINGS ? f90_size : "na");
|
||||||
|
|
||||||
out("C compiler", "compiler:c:command", OMPI_CC);
|
out("C compiler", "compiler:c:command", OMPI_CC);
|
||||||
out("C compiler absolute", "compiler:c:absolute", OMPI_CC_ABSOLUTE);
|
out("C compiler absolute", "compiler:c:absolute", OMPI_CC_ABSOLUTE);
|
||||||
|
|||||||
Загрузка…
x
Ссылка в новой задаче
Block a user