[cig-commits] r21128 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-12-10 18:11:51 -0800 (Mon, 10 Dec 2012)
New Revision: 21128

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
Log:
fixed a warning related to out-of-order declarations


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2012-12-11 02:05:23 UTC (rev 21127)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2012-12-11 02:11:51 UTC (rev 21128)
@@ -817,16 +817,17 @@
 
   include "constants.h"
 
+  integer :: NPROC
+  integer :: NGLOB_AB
+
 ! array to assemble
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: array_val
 
-  integer :: NPROC
-  integer :: NGLOB_AB
+  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh,myrank
 
   real(kind=CUSTOM_REAL), dimension(NDIM,max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: &
        buffer_recv_vector_ext_mesh
 
-  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh,myrank
   integer, dimension(num_interfaces_ext_mesh) :: nibool_interfaces_ext_mesh
   integer, dimension(max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: ibool_interfaces_ext_mesh
   integer, dimension(num_interfaces_ext_mesh) :: request_send_vector_ext_mesh,request_recv_vector_ext_mesh