[cig-commits] r22496 - seismo/3D/SPECFEM3D/trunk/src/shared

[elliott.sales.de.andrade at geodynamics.org]

Author: elliott.sales.de.andrade
Date: 2013-07-02 14:43:53 -0700 (Tue, 02 Jul 2013)
New Revision: 22496

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
Log:
Fix arguments to MPI_SEND.

It doesn't appear that MPI_SEND takes a "status" argument in any of its
forms.

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2013-07-02 21:43:47 UTC (rev 22495)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2013-07-02 21:43:53 UTC (rev 22496)
@@ -944,11 +944,8 @@
   integer :: tag = 100
   integer, dimension(sendcount) :: sendbuf
 
-  ! MPI status of messages to be received
-  integer msg_status(MPI_STATUS_SIZE)
-
   call MPI_SEND(sendbuf,sendcount,MPI_INTEGER,dest,tag, &
-       MPI_COMM_WORLD,msg_status,ier)
+       MPI_COMM_WORLD,ier)
 
   end subroutine send_i_t
 
@@ -992,11 +989,8 @@
 !  integer :: tag = 100
 !  double precision, dimension(sendcount) :: sendbuf
 !
-!  ! MPI status of messages to be received
-!  integer msg_status(MPI_STATUS_SIZE)
-!
 !  call MPI_SEND(sendbuf,sendcount,MPI_DOUBLE_PRECISION,dest,tag, &
-!       MPI_COMM_WORLD,msg_status,ier)
+!       MPI_COMM_WORLD,ier)
 !
 !  end subroutine send_dp_t
 !