[cig-commits] r18661 - in seismo/3D/SPECFEM3D/trunk/src: shared specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-06-24 06:42:09 -0700 (Fri, 24 Jun 2011)
New Revision: 18661

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
Log:
changed MPI_ISSEND to MPI_ISEND according to a suggestion by Jesus Labarta


Modified: seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90	2011-06-24 13:39:53 UTC (rev 18660)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/assemble_MPI_scalar.f90	2011-06-24 13:42:09 UTC (rev 18661)
@@ -90,7 +90,7 @@
     ! send messages
     do iinterface = 1, num_interfaces_ext_mesh
       ! non-blocking synchronous send request
-      call issend_cr(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+      call isend_cr(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
            nibool_interfaces_ext_mesh(iinterface), &
            my_neighbours_ext_mesh(iinterface), &
            itag, &
@@ -187,7 +187,7 @@
     ! send messages
     do iinterface = 1, num_interfaces_ext_mesh
       ! non-blocking synchronous send request
-      call issend_i(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+      call isend_i(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
            nibool_interfaces_ext_mesh(iinterface), &
            my_neighbours_ext_mesh(iinterface), &
            itag, &
@@ -278,7 +278,7 @@
     ! send messages
     do iinterface = 1, num_interfaces_ext_mesh
       ! non-blocking synchronous send request
-      call issend_cr(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+      call isend_cr(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
            nibool_interfaces_ext_mesh(iinterface), &
            my_neighbours_ext_mesh(iinterface), &
            itag, &

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2011-06-24 13:39:53 UTC (rev 18660)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/parallel.f90	2011-06-24 13:42:09 UTC (rev 18661)
@@ -716,7 +716,7 @@
 !----
 !
 
-  subroutine issend_cr(sendbuf, sendcount, dest, sendtag, req)
+  subroutine isend_cr(sendbuf, sendcount, dest, sendtag, req)
 
   implicit none
 
@@ -731,10 +731,10 @@
 
   integer ier
 
-  call MPI_ISSEND(sendbuf(1),sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
+  call MPI_ISEND(sendbuf(1),sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
                   MPI_COMM_WORLD,req,ier)
 
-  end subroutine issend_cr
+  end subroutine isend_cr
 
 !
 !----
@@ -764,7 +764,7 @@
 !----
 !
 
-  subroutine issend_i(sendbuf, sendcount, dest, sendtag, req)
+  subroutine isend_i(sendbuf, sendcount, dest, sendtag, req)
 
   implicit none
 
@@ -779,10 +779,10 @@
 
   integer ier
 
-  call MPI_ISSEND(sendbuf(1),sendcount,MPI_INTEGER,dest,sendtag, &
+  call MPI_ISEND(sendbuf(1),sendcount,MPI_INTEGER,dest,sendtag, &
                   MPI_COMM_WORLD,req,ier)
 
-  end subroutine issend_i
+  end subroutine isend_i
 
 !
 !----

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2011-06-24 13:39:53 UTC (rev 18660)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/serial.f90	2011-06-24 13:42:09 UTC (rev 18661)
@@ -481,7 +481,7 @@
 !----
 !
 
-  subroutine issend_cr(sendbuf, sendcount, dest, sendtag, req)
+  subroutine isend_cr(sendbuf, sendcount, dest, sendtag, req)
 
   implicit none
 
@@ -490,9 +490,9 @@
   integer sendcount, dest, sendtag, req
   real(kind=CUSTOM_REAL), dimension(sendcount) :: sendbuf
 
-  stop 'issend_cr not implemented for serial code'
+  stop 'isend_cr not implemented for serial code'
 
-  end subroutine issend_cr
+  end subroutine isend_cr
 
 !
 !----
@@ -515,16 +515,16 @@
 !----
 !
 
-  subroutine issend_i(sendbuf, sendcount, dest, sendtag, req)
+  subroutine isend_i(sendbuf, sendcount, dest, sendtag, req)
 
   implicit none
 
   integer sendcount, dest, sendtag, req
   integer, dimension(sendcount) :: sendbuf
 
-  stop 'issend_i not implemented for serial code'
+  stop 'isend_i not implemented for serial code'
 
-  end subroutine issend_i
+  end subroutine isend_i
 
 !
 !----

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2011-06-24 13:39:53 UTC (rev 18660)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2011-06-24 13:42:09 UTC (rev 18661)
@@ -87,7 +87,7 @@
 
     ! send messages
     do iinterface = 1, num_interfaces_ext_mesh
-      call issend_cr(buffer_send_vector_ext_mesh(1,1,iinterface), &
+      call isend_cr(buffer_send_vector_ext_mesh(1,1,iinterface), &
            NDIM*nibool_interfaces_ext_mesh(iinterface), &
            my_neighbours_ext_mesh(iinterface), &
            itag, &
@@ -178,7 +178,7 @@
 
 ! send messages
   do iinterface = 1, num_interfaces_ext_mesh
-    call issend_cr(buffer_send_vector_ext_mesh(1,1,iinterface), &
+    call isend_cr(buffer_send_vector_ext_mesh(1,1,iinterface), &
          NDIM*nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &