[cig-commits] r13011 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-09 08:13:02 -0700 (Thu, 09 Oct 2008)
New Revision: 13011

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
   seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90
Log:
suppressed use of array subsection in assemble_MPI_scalar/vector.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-10-09 09:57:40 UTC (rev 13010)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-10-09 15:13:02 UTC (rev 13011)
@@ -329,13 +329,13 @@
 
 ! send messages
   do iinterface = 1, ninterfaces_ext_mesh
-    call issend_i(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call issend_i(buffer_send_scalar_ext_mesh(1,iinterface), &
          nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &
          request_send_scalar_ext_mesh(iinterface) &
          )
-    call irecv_i(buffer_recv_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call irecv_i(buffer_recv_scalar_ext_mesh(1,iinterface), &
          nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90	2008-10-09 09:57:40 UTC (rev 13010)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90	2008-10-09 15:13:02 UTC (rev 13011)
@@ -247,13 +247,13 @@
 
 ! send messages
   do iinterface = 1, ninterfaces_ext_mesh
-    call issend_cr(buffer_send_vector_ext_mesh(:,1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call issend_cr(buffer_send_vector_ext_mesh(1,1,iinterface), &
          NDIM*nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &
          request_send_vector_ext_mesh(iinterface) &
          )
-    call irecv_cr(buffer_recv_vector_ext_mesh(:,1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call irecv_cr(buffer_recv_vector_ext_mesh(1,1,iinterface), &
          NDIM*nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &