[cig-commits] r20498 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-07-07 11:22:35 -0700 (Sat, 07 Jul 2012)
New Revision: 20498

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
Log:
fixed an undeclared variable


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90	2012-07-07 18:13:03 UTC (rev 20497)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90	2012-07-07 18:22:35 UTC (rev 20498)
@@ -407,7 +407,7 @@
 
   subroutine get_element(points, ispec, npts, pts)
     implicit none
-    integer :: npts,ispec,istart_left,istart_right
+    integer :: npts,ispec,istart_left,istart_right,i
     integer, parameter :: NBNODE = 8
     double precision pts(NBNODE+1,2), points(npts,2)