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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-07-05 10:15:52 -0700 (Thu, 05 Jul 2012)
New Revision: 20460

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
Log:
fixed a bug in auto_ner(), and also a warning on Cray


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90	2012-07-05 15:34:20 UTC (rev 20459)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90	2012-07-05 17:15:52 UTC (rev 20460)
@@ -408,10 +408,13 @@
   subroutine get_element(points, ispec, npts, pts)
 
   implicit none
-  integer npts, ispec
+  integer npts, ispec,istart,iend
   integer, parameter :: NBNODE = 8
   double precision pts(NBNODE+1,2), points(npts,2)
-  pts(1:8,:) = points( ( (ispec-1) * NBNODE)+1 : ( (ispec) * NBNODE ), : )
+
+  istart = 1
+  iend = 8
+  pts(istart:iend,:) = points( ( (ispec-1) * NBNODE)+1 : ( (ispec) * NBNODE )+1, : )
   pts(NBNODE+1,:) = pts(1,:)  ! Use first point as the last point
 
   end subroutine get_element