[cig-commits] r20586 - seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-08-16 17:10:01 -0700 (Thu, 16 Aug 2012)
New Revision: 20586

Modified:
   seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
Log:
fixed a warning from GNU gfortran


Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90	2012-08-17 00:04:25 UTC (rev 20585)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/part_decompose_mesh_SCOTCH.f90	2012-08-17 00:10:01 UTC (rev 20586)
@@ -958,8 +958,7 @@
                                       glob2loc_nodes_parts, glob2loc_nodes, &
                                       part, num_modele, NGNOD, num_phase)
 
-!    include './constants_decompose_mesh_SCOTCH.h'
-
+    integer, intent(in)  :: NGNOD
     integer, intent(in)  :: IIN_database
     integer, intent(in)  :: num_phase, iproc
     integer, intent(in)  :: nspec
@@ -971,7 +970,6 @@
     integer, dimension(:), pointer  :: glob2loc_nodes_nparts
     integer, dimension(:), pointer  :: glob2loc_nodes_parts
     integer, dimension(:), pointer  :: glob2loc_nodes
-    integer, intent(in)  :: NGNOD
 
     integer  :: i,j,k
     integer, dimension(0:NGNOD-1)  :: loc_nodes