[cig-commits] [commit] devel, master: Use MPI_STATUS_IGNORE in MPI calls. (672c799)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

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

commit 672c79989797227a24ca0e1b133cf60f7379546f
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat May 31 02:55:41 2014 -0400

    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.


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

672c79989797227a24ca0e1b133cf60f7379546f
 src/shared/parallel.f90 | 39 +++++++++------------------------------
 1 file changed, 9 insertions(+), 30 deletions(-)

diff --git a/src/shared/parallel.f90 b/src/shared/parallel.f90
index 4aff699..cd19793 100644
--- a/src/shared/parallel.f90
+++ b/src/shared/parallel.f90
@@ -145,12 +145,9 @@
   integer :: request
   logical :: flag_result_test
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
-
   integer :: ier
 
-  call MPI_TEST(request,flag_result_test,msg_status,ier)
+  call MPI_TEST(request,flag_result_test,MPI_STATUS_IGNORE,ier)
 
   end subroutine test_request
 
@@ -252,11 +249,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
 
@@ -672,11 +667,9 @@
   integer :: dest,recvtag
   integer :: recvbuf
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
   integer :: ier
 
-  call MPI_RECV(recvbuf,1,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+  call MPI_RECV(recvbuf,1,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_singlei
 
@@ -693,11 +686,9 @@
   integer :: dest,recvtag
   logical :: recvbuf
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
   integer :: ier
 
-  call MPI_RECV(recvbuf,1,MPI_LOGICAL,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+  call MPI_RECV(recvbuf,1,MPI_LOGICAL,dest,recvtag,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_singlel
 
@@ -715,11 +706,9 @@
   integer :: recvcount
   integer,dimension(recvcount) :: recvbuf
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
   integer :: ier
 
-  call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+  call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_i
 
@@ -740,11 +729,9 @@
   integer :: recvcount
   real(kind=CUSTOM_REAL),dimension(recvcount) :: recvbuf
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
   integer :: ier
 
-  call MPI_RECV(recvbuf,recvcount,CUSTOM_MPI_TYPE,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+  call MPI_RECV(recvbuf,recvcount,CUSTOM_MPI_TYPE,dest,recvtag,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_cr
 
@@ -762,11 +749,9 @@
   integer :: recvcount
   double precision,dimension(recvcount) :: recvbuf
 
-  ! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
   integer :: ier
 
-  call MPI_RECV(recvbuf,recvcount,MPI_DOUBLE_PRECISION,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+  call MPI_RECV(recvbuf,recvcount,MPI_DOUBLE_PRECISION,dest,recvtag,MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine recv_dp
 
@@ -887,14 +872,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_cr
 
@@ -913,14 +895,11 @@
   double precision, dimension(sendcount) :: sendbuf
   double precision, dimension(recvcount) :: recvbuf
 
-! MPI status of messages to be received
-  integer :: msg_status(MPI_STATUS_SIZE)
-
   integer :: ier
 
   call MPI_SENDRECV(sendbuf,sendcount,MPI_DOUBLE_PRECISION,dest,sendtag, &
                     recvbuf,recvcount,MPI_DOUBLE_PRECISION,source,recvtag, &
-                    MPI_COMM_WORLD,msg_status,ier)
+                    MPI_COMM_WORLD,MPI_STATUS_IGNORE,ier)
 
   end subroutine sendrecv_dp