* 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_COPY_FN="external MPI_WIN_NULL_COPY_FN"
|
||||||
OMPI_F77_WIN_NULL_DELETE_FN="external MPI_WIN_NULL_DELETE_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_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
|
else
|
||||||
mpi2_one_sided=no
|
mpi2_one_sided=no
|
||||||
value=0
|
value=0
|
||||||
@ -353,6 +355,8 @@ else
|
|||||||
OMPI_F77_WIN_NULL_COPY_FN=
|
OMPI_F77_WIN_NULL_COPY_FN=
|
||||||
OMPI_F77_WIN_NULL_DELETE_FN=
|
OMPI_F77_WIN_NULL_DELETE_FN=
|
||||||
OMPI_F77_WIN_DUP_FN=
|
OMPI_F77_WIN_DUP_FN=
|
||||||
|
OMPI_F77_WIN_NULL=
|
||||||
|
OMPI_F77_WIN_NULL_VALUE=
|
||||||
fi
|
fi
|
||||||
AC_MSG_RESULT([$mpi2_one_sided])
|
AC_MSG_RESULT([$mpi2_one_sided])
|
||||||
AC_DEFINE_UNQUOTED(OMPI_WANT_MPI2_ONE_SIDED, $value,
|
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_COPY_FN)
|
||||||
AC_SUBST(OMPI_F77_WIN_NULL_DELETE_FN)
|
AC_SUBST(OMPI_F77_WIN_NULL_DELETE_FN)
|
||||||
AC_SUBST(OMPI_F77_WIN_DUP_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?
|
# 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_GROUP_NULL, MPI_COMM_NULL, MPI_DATATYPE_NULL
|
||||||
integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL
|
integer MPI_REQUEST_NULL, MPI_OP_NULL, MPI_ERRHANDLER_NULL
|
||||||
integer MPI_INFO_NULL
|
integer MPI_INFO_NULL
|
||||||
|
@OMPI_F77_WIN_NULL@
|
||||||
|
|
||||||
parameter (MPI_GROUP_NULL=0)
|
parameter (MPI_GROUP_NULL=0)
|
||||||
parameter (MPI_COMM_NULL=2)
|
parameter (MPI_COMM_NULL=2)
|
||||||
@ -189,6 +190,7 @@
|
|||||||
parameter (MPI_OP_NULL=0)
|
parameter (MPI_OP_NULL=0)
|
||||||
parameter (MPI_ERRHANDLER_NULL=0)
|
parameter (MPI_ERRHANDLER_NULL=0)
|
||||||
parameter (MPI_INFO_NULL=0)
|
parameter (MPI_INFO_NULL=0)
|
||||||
|
@OMPI_F77_WIN_NULL_VALUE@
|
||||||
!
|
!
|
||||||
! MPI_Init_thread constants
|
! MPI_Init_thread constants
|
||||||
!
|
!
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user