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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-04-24 04:21:57 -0700 (Tue, 24 Apr 2012)
New Revision: 19983

Modified:
   seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
Log:
changed integer(long) to integer, following a suggestion by Valentin Pavlov


Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2012-04-24 04:09:48 UTC (rev 19982)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2012-04-24 11:21:57 UTC (rev 19983)
@@ -37,7 +37,7 @@
   integer :: nparts ! e.g. 4 for partitioning for 4 CPUs or 4 processes
 
 ! mesh arrays
-  integer(long) :: nspec
+  integer :: nspec
   integer, dimension(:,:), allocatable  :: elmnts
   integer, dimension(:,:), allocatable  :: mat
   integer, dimension(:), allocatable  :: part
@@ -62,13 +62,13 @@
   integer  ::  ninterfaces
   integer  :: my_ninterface
 
-  integer(long)  :: nsize           ! Max number of elements that contain the same node.
+  integer  :: nsize           ! Max number of elements that contain the same node.
   integer  :: nb_edges
 
   integer  :: ispec, inode
   integer  :: ngnod
   integer  :: max_neighbour         ! Real maximum number of neighbours per element
-  integer(long)  :: sup_neighbour   ! Majoration of the maximum number of neighbours per element
+  integer  :: sup_neighbour   ! Majoration of the maximum number of neighbours per element
 
   integer  :: ipart, nnodes_loc, nspec_loc
   integer  :: num_elmnt, num_node, num_mat