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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-01-14 15:17:42 -0800 (Mon, 14 Jan 2008)
New Revision: 9021

Modified:
   seismo/2D/SPECFEM2D/trunk/locate_receivers.F90
Log:
suppressed nrec_dummy


Modified: seismo/2D/SPECFEM2D/trunk/locate_receivers.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/locate_receivers.F90	2008-01-14 23:03:21 UTC (rev 9020)
+++ seismo/2D/SPECFEM2D/trunk/locate_receivers.F90	2008-01-14 23:17:42 UTC (rev 9021)
@@ -66,7 +66,7 @@
 ! array containing coordinates of the points
   double precision coord(NDIM,npoin)
 
-  integer nrec_dummy,irec,i,j,ispec,iglob,iter_loop,ix_initial_guess,iz_initial_guess
+  integer irec,i,j,ispec,iglob,iter_loop,ix_initial_guess,iz_initial_guess
 
   double precision x_source,z_source,dist,stele,stbur
   double precision, dimension(nrec)  :: distance_receiver