[cig-commits] [commit] devel: Use MPI_STATUS_IGNORE in MPI calls. (a27c27c)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/cb32c88d6155d7974561a6f72fc17aea596e2c4d...50aa953c1db3f565d76415f5305410a529996b75

>---------------------------------------------------------------

commit a27c27ccd327a8299d70564b2105a0237819c61b
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sun Jan 12 01:51:05 2014 -0500

    Use MPI_STATUS_IGNORE in MPI calls.
    
    The status is not used, so this saves us an extra variable or two. As
    suggested by @jedbrown in another PR for Specfem2D.


>---------------------------------------------------------------

a27c27ccd327a8299d70564b2105a0237819c61b
 src/shared/parallel.f90 | 32 ++++++++++----------------------
 1 file changed, 10 insertions(+), 22 deletions(-)

diff --git a/src/shared/parallel.f90 b/src/shared/parallel.f90
index 35ec5e8..e4d1191 100644
--- a/src/shared/parallel.f90
+++ b/src/shared/parallel.f90
@@ -757,14 +757,11 @@
   real(kind=CUSTOM_REAL), dimension(sendcount) :: sendbuf
   real(kind=CUSTOM_REAL), dimension(recvcount) :: recvbuf
 
-! MPI status of messages to be received
-  integer msg_status(MPI_STATUS_SIZE)
-
   integer ier
 
   call MPI_SENDRECV(sendbuf,sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
                     recvbuf,recvcount,CUSTOM_MPI_TYPE,source,recvtag, &
-                    MPI_COMM_WORLD,msg_status,ier)
+                    MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine sendrecv_all_cr
 
@@ -888,10 +885,10 @@
   integer recvcount
   !integer recvbuf
   integer,dimension(recvcount):: recvbuf
-  integer req(MPI_STATUS_SIZE)
   integer ier
 
-  call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,req,ier)
+  call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag, &
+                MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_i
 
@@ -910,11 +907,10 @@
 
   integer recvcount,dest,recvtag
   real(kind=CUSTOM_REAL),dimension(recvcount) :: recvbuf
-  integer req(MPI_STATUS_SIZE)
   integer ier
 
-  call MPI_RECV(recvbuf,recvcount,CUSTOM_MPI_TYPE,dest,recvtag,MPI_COMM_WORLD,req,ier)
-
+  call MPI_RECV(recvbuf,recvcount,CUSTOM_MPI_TYPE,dest,recvtag, &
+                MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recvv_cr
 
@@ -974,11 +970,8 @@
   integer :: tag = 100
   integer, dimension(recvcount) :: recvbuf
 
-  ! MPI status of messages to be received
-  integer msg_status(MPI_STATUS_SIZE)
-
   call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,source,tag, &
-       MPI_COMM_WORLD,msg_status,ier)
+                MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_i_t
 
@@ -1016,11 +1009,8 @@
 !  integer :: tag = 100
 !  double precision, dimension(recvcount) :: recvbuf
 !
-!  ! MPI status of messages to be received
-!  integer msg_status(MPI_STATUS_SIZE)
-!
 !  call MPI_RECV(recvbuf,recvcount,MPI_DOUBLE_PRECISION,source,tag, &
-!       MPI_COMM_WORLD,msg_status,ier)
+!                MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 !
 !  end subroutine recv_dp_t
 !
@@ -1057,10 +1047,10 @@
   integer dest,recvtag
   integer recvcount
   double precision,dimension(recvcount):: recvbuf
-  integer req(MPI_STATUS_SIZE)
   integer ier
 
-  call MPI_RECV(recvbuf,recvcount,MPI_DOUBLE_PRECISION,dest,recvtag,MPI_COMM_WORLD,req,ier)
+  call MPI_RECV(recvbuf,recvcount,MPI_DOUBLE_PRECISION,dest,recvtag, &
+                MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_dp
 
@@ -1097,11 +1087,9 @@
 
   integer :: req
 
-  integer, dimension(MPI_STATUS_SIZE) :: req_mpi_status
-
   integer :: ier
 
-  call mpi_wait(req,req_mpi_status,ier)
+  call mpi_wait(req,MPI_STATUS_IGNORE,ier)
 
   end subroutine wait_req