[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a2-5-gb28801e

Service Account noreply at mpich.org
Tue Nov 18 09:16:26 CST 2014


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/b28801ec52a024429e6cf86de7cd9fe4a0b1f4f2

commit b28801ec52a024429e6cf86de7cd9fe4a0b1f4f2
Author: Junchao Zhang <jczhang at mcs.anl.gov>
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/68113ff6eeb44c5b05de996942058582bad063cb

commit 68113ff6eeb44c5b05de996942058582bad063cb
Author: Junchao Zhang <jczhang at mcs.anl.gov>
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/960a9c8a09b4e4e20e874e812a538ad64ff81fc9

commit 960a9c8a09b4e4e20e874e812a538ad64ff81fc9
Author: Junchao Zhang <jczhang at mcs.anl.gov>
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


More information about the commits mailing list