[cig-commits] r15116 - seismo/3D/SPECFEM3D_SESAME/trunk

[pieyre at geodynamics.org]

Author: pieyre
Date: 2009-06-04 02:33:09 -0700 (Thu, 04 Jun 2009)
New Revision: 15116

Modified:
   seismo/3D/SPECFEM3D_SESAME/trunk/locate_receivers.f90
Log:
small modification in locate_receivers.f90

Modified: seismo/3D/SPECFEM3D_SESAME/trunk/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/locate_receivers.f90	2009-06-04 09:19:36 UTC (rev 15115)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/locate_receivers.f90	2009-06-04 09:33:09 UTC (rev 15116)
@@ -848,7 +848,6 @@
   if (myrank == 0) then
     open(unit=IIN,file=trim(filename),status='old',action='read')
     open(unit=IOUT,file=trim(filtered_filename),status='unknown')
-    read(IIN,*) nrec
     write(IOUT,*) nrec_filtered
     do irec = 1,nrec
       read(IIN,*) station_name,network_name,stlat,stlon,stele,stbur