This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "MPICH primary repository". The branch, master has been updated via b28801ec52a024429e6cf86de7cd9fe4a0b1f4f2 (commit) via 68113ff6eeb44c5b05de996942058582bad063cb (commit) via 960a9c8a09b4e4e20e874e812a538ad64ff81fc9 (commit) from 23c3ed3a1ab18a95006889ddd33cf1441e4f8ce5 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- http://git.mpich.org/mpich.git/commitdiff/b28801ec52a024429e6cf86de7cd9fe4a0... commit b28801ec52a024429e6cf86de7cd9fe4a0b1f4f2 Author: Junchao Zhang <[email protected]> Date: Mon Nov 17 20:23:57 2014 -0600 Add MPI_Status_f2f08 & MPI_Status_f082f No reviewer diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 index f87e1d4..f669123 100644 --- a/src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 +++ b/src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 @@ -385,6 +385,30 @@ subroutine MPI_Sizeof_xcomplex128 (x, size, ierror) ierror = 0 end subroutine MPI_Sizeof_xcomplex128 +subroutine MPI_Status_f2f08(f_status, f08_status, ierror) + integer, intent(in) :: f_status(MPI_STATUS_SIZE) + type(MPI_Status), intent(out) :: f08_status + integer, optional, intent(out) :: ierror + f08_status%count_lo = f_status(1) + f08_status%count_hi_and_cancelled = f_status(2) + f08_status%MPI_SOURCE = f_status(MPI_SOURCE) + f08_status%MPI_TAG = f_status(MPI_TAG) + f08_status%MPI_ERROR = f_status(MPI_ERROR) + if (present(ierror)) ierror = 0 +end subroutine + +subroutine MPI_Status_f082f(f08_status, f_status, ierror) + type(MPI_Status), intent(in) :: f08_status + integer, intent(out) :: f_status(MPI_STATUS_SIZE) + integer, optional, intent(out) :: ierror + f_status(1) = f08_status%count_lo + f_status(2) = f08_status%count_hi_and_cancelled + f_status(MPI_SOURCE) = f08_status%MPI_SOURCE + f_status(MPI_TAG) = f08_status%MPI_TAG + f_status(MPI_ERROR) = f08_status%MPI_ERROR + if (present(ierror)) ierror = 0 +end subroutine + elemental subroutine MPI_Status_f08_assgn_c (status_f08, status_c) ! Defined status_f08 = status_c type(MPI_Status),intent(out) :: status_f08 http://git.mpich.org/mpich.git/commitdiff/68113ff6eeb44c5b05de996942058582ba... commit 68113ff6eeb44c5b05de996942058582bad063cb Author: Junchao Zhang <[email protected]> Date: Mon Nov 17 20:23:34 2014 -0600 Fix an arg name in MPI_TYPE_NULL_DELETE_FN No reviewer diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 index 4a596dd..9de14e9 100644 --- a/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 +++ b/src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90 @@ -237,12 +237,12 @@ subroutine MPI_TYPE_NULL_COPY_FN(oldtype,type_keyval,extra_state, & ierror = MPI_SUCCESS end subroutine -subroutine MPI_TYPE_NULL_DELETE_FN(type,type_keyval, & +subroutine MPI_TYPE_NULL_DELETE_FN(datatype,type_keyval, & attribute_val, extra_state, ierror) use mpi_f08_types, only : MPI_Datatype use mpi_f08_compile_constants, only : MPI_ADDRESS_KIND, MPI_SUCCESS implicit none - type(MPI_Datatype) :: type + type(MPI_Datatype) :: datatype integer :: type_keyval, ierror integer(kind=MPI_ADDRESS_KIND) :: attribute_val, extra_state http://git.mpich.org/mpich.git/commitdiff/960a9c8a09b4e4e20e874e812a538ad64f... commit 960a9c8a09b4e4e20e874e812a538ad64ff81fc9 Author: Junchao Zhang <[email protected]> Date: Mon Nov 17 20:22:56 2014 -0600 Fix an arg name in MPI_Comm_set_info No reviewer diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08.F90 b/src/binding/fortran/use_mpi_f08/mpi_f08.F90 index d1ba398..de11fb2 100644 --- a/src/binding/fortran/use_mpi_f08/mpi_f08.F90 +++ b/src/binding/fortran/use_mpi_f08/mpi_f08.F90 @@ -1557,11 +1557,11 @@ interface MPI_Comm_set_attr end interface MPI_Comm_set_attr interface MPI_Comm_set_info - subroutine MPI_Comm_set_info_f08(comm, info_used, ierror) + subroutine MPI_Comm_set_info_f08(comm, info, ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info implicit none type(MPI_Comm), intent(in) :: comm - type(MPI_Info), intent(in) :: info_used + type(MPI_Info), intent(in) :: info integer, optional, intent(out) :: ierror end subroutine MPI_Comm_set_info_f08 end interface MPI_Comm_set_info ----------------------------------------------------------------------- Summary of changes: src/binding/fortran/use_mpi_f08/mpi_f08.F90 | 4 +- .../fortran/use_mpi_f08/mpi_f08_callbacks.F90 | 4 +- src/binding/fortran/use_mpi_f08/mpi_f08_types.F90 | 24 ++++++++++++++++++++ 3 files changed, 28 insertions(+), 4 deletions(-) hooks/post-receive -- MPICH primary repository