* add missing constant when using the MPI-2 onesided shell functions.
This should probably go to the branch This commit was SVN r8222.
Этот коммит содержится в:
родитель
c82a18a0a1
Коммит
129451277e
@ -340,6 +340,8 @@ if test "$enable_mpi2_one_sided" = "yes"; then
|
||||
OMPI_F77_WIN_NULL_COPY_FN="external MPI_WIN_NULL_COPY_FN"
|
||||
OMPI_F77_WIN_NULL_DELETE_FN="external MPI_WIN_NULL_DELETE_FN"
|
||||
OMPI_F77_WIN_DUP_FN="external MPI_WIN_DUP_FN"
|
||||
OMPI_F77_WIN_NULL="integer MPI_WIN_NULL"
|
||||
OMPI_F77_WIN_NULL_VALUE="parameter (MPI_WIN_NULL=0)"
|
||||
else
|
||||
mpi2_one_sided=no
|
||||
value=0
|
||||
@ -353,6 +355,8 @@ else
|
||||
OMPI_F77_WIN_NULL_COPY_FN=
|
||||
OMPI_F77_WIN_NULL_DELETE_FN=
|
||||
OMPI_F77_WIN_DUP_FN=
|
||||
OMPI_F77_WIN_NULL=
|
||||
OMPI_F77_WIN_NULL_VALUE=
|
||||
fi
|
||||
AC_MSG_RESULT([$mpi2_one_sided])
|
||||
AC_DEFINE_UNQUOTED(OMPI_WANT_MPI2_ONE_SIDED, $value,
|
||||
@ -365,6 +369,8 @@ AC_SUBST(OMPI_F77_WIN_ATTR_DISP_VALUE)
|
||||
AC_SUBST(OMPI_F77_WIN_NULL_COPY_FN)
|
||||
AC_SUBST(OMPI_F77_WIN_NULL_DELETE_FN)
|
||||
AC_SUBST(OMPI_F77_WIN_DUP_FN)
|
||||
AC_SUBST(OMPI_F77_WIN_NULL)
|
||||
AC_SUBST(OMPI_F77_WIN_NULL_VALUE)
|
||||
|
||||
#
|
||||
# What is the max array rank that we want to support in the f90 bindings?
|
||||
|
@ -181,6 +181,7 @@
|
||||
integer MPI_GROUP_NULL, MPI_COMM_NULL, MPI_DATATYPE_NULL
|
||||
integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL
|
||||
integer MPI_INFO_NULL
|
||||
@OMPI_F77_WIN_NULL@
|
||||
|
||||
parameter (MPI_GROUP_NULL=0)
|
||||
parameter (MPI_COMM_NULL=2)
|
||||
@ -189,6 +190,7 @@
|
||||
parameter (MPI_OP_NULL=0)
|
||||
parameter (MPI_ERRHANDLER_NULL=0)
|
||||
parameter (MPI_INFO_NULL=0)
|
||||
@OMPI_F77_WIN_NULL_VALUE@
|
||||
!
|
||||
! MPI_Init_thread constants
|
||||
!
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user