[cig-commits] r12489 - seismo/2D/SPECFEM2D/trunk

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-07-29 15:37:39 -0700 (Tue, 29 Jul 2008)
New Revision: 12489

Modified:
   seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
Log:
fixed a bug in compiling with scotch partitioner : a variable had the same name as a constant.

Modified: seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2008-07-29 21:52:49 UTC (rev 12488)
+++ seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2008-07-29 22:37:39 UTC (rev 12489)
@@ -1188,13 +1188,13 @@
   !--------------------------------------------------
   ! Partitioning using SCOTCH
   !--------------------------------------------------
-  subroutine Part_scotch(nelmnts, xadj, adjncy, vwgt, adjwgt, nparts, nedges, edgecut, part, scotch_strategy)
+  subroutine Part_scotch(nelmnts, xadj, adjncy, vwgt, adjwgt, nparts, nb_edges, edgecut, part, scotch_strategy)
 
     include "constants.h"
 
     include "scotchf.h"
 
-    integer, intent(in)  :: nelmnts, nparts, nedges
+    integer, intent(in)  :: nelmnts, nparts, nb_edges
     integer, intent(inout)  :: edgecut
     integer, dimension(0:nelmnts), intent(in)  :: xadj
     integer, dimension(0:max_neighbor*nelmnts-1), intent(in)  :: adjncy
@@ -1231,7 +1231,7 @@
     CALL SCOTCHFGRAPHBUILD (SCOTCHGRAPH (1), 0, nelmnts, &
          xadj (0), xadj (0), &
          xadj (0), xadj (0), &
-         nedges, &
+         nb_edges, &
          adjncy (0), adjwgt (0), IERR)
     IF (IERR .NE. 0) THEN
        PRINT *, 'ERROR : MAIN : Cannot build graph'