1
1

* add missing constant when using the MPI-2 onesided shell functions.

This should probably go to the branch

This commit was SVN r8222.
Этот коммит содержится в:
Brian Barrett 2005-11-21 23:43:48 +00:00
родитель c82a18a0a1
Коммит 129451277e
2 изменённых файлов: 8 добавлений и 0 удалений

Просмотреть файл

@ -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
!