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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-10-20 16:26:58 -0700 (Thu, 20 Oct 2011)
New Revision: 19107

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
Log:
it is better not to have dummy indices in MPI_ISEND() and MPI_IRECV()


Modified: seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2011-10-20 23:18:20 UTC (rev 19106)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2011-10-20 23:26:58 UTC (rev 19107)
@@ -731,7 +731,7 @@
 
   integer ier
 
-  call MPI_ISEND(sendbuf(1),sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
+  call MPI_ISEND(sendbuf,sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
                   MPI_COMM_WORLD,req,ier)
 
   end subroutine isend_cr
@@ -755,7 +755,7 @@
 
   integer ier
 
-  call MPI_IRECV(recvbuf(1),recvcount,CUSTOM_MPI_TYPE,dest,recvtag, &
+  call MPI_IRECV(recvbuf,recvcount,CUSTOM_MPI_TYPE,dest,recvtag, &
                   MPI_COMM_WORLD,req,ier)
 
   end subroutine irecv_cr
@@ -779,7 +779,7 @@
 
   integer ier
 
-  call MPI_ISEND(sendbuf(1),sendcount,MPI_INTEGER,dest,sendtag, &
+  call MPI_ISEND(sendbuf,sendcount,MPI_INTEGER,dest,sendtag, &
                   MPI_COMM_WORLD,req,ier)
 
   end subroutine isend_i
@@ -802,7 +802,7 @@
   integer, dimension(recvcount) :: recvbuf
   integer ier
 
-  call MPI_IRECV(recvbuf(1),recvcount,MPI_INTEGER,dest,recvtag, &
+  call MPI_IRECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag, &
                   MPI_COMM_WORLD,req,ier)
 
   end subroutine irecv_i