[cig-commits] r18107 - seismo/3D/SPECFEM3D/trunk/utils/Visualization/vtk_scripts

[carltape at geodynamics.org]

Author: carltape
Date: 2011-03-14 16:28:23 -0700 (Mon, 14 Mar 2011)
New Revision: 18107

Modified:
   seismo/3D/SPECFEM3D/trunk/utils/Visualization/vtk_scripts/split_sr_vtk.pl
Log:
fixed number of lines of receivers for split_sr_vtk.pl


Modified: seismo/3D/SPECFEM3D/trunk/utils/Visualization/vtk_scripts/split_sr_vtk.pl
===================================================================
--- seismo/3D/SPECFEM3D/trunk/utils/Visualization/vtk_scripts/split_sr_vtk.pl	2011-03-14 22:19:01 UTC (rev 18106)
+++ seismo/3D/SPECFEM3D/trunk/utils/Visualization/vtk_scripts/split_sr_vtk.pl	2011-03-14 23:28:23 UTC (rev 18107)
@@ -8,7 +8,9 @@
 #   epicenter.vtk
 #   receiver.vtk
 #
-# NOTE: assumes there is a SINGLE SOURCE. (This can be modified later.)
+# Future modifications:
+#   1: allow for multiple sources (currently assumes ONE only)
+#   2: compute epicenter for spherical model (assumes FLAT model only)
 #
 # EXAMPLE:
 #   split_sr_vtk.pl sr.vtk .
@@ -33,7 +35,7 @@
 
 ($xsrc,$ysrc,undef) = split(" ",$lines[5]);
 $nlines = @lines;
-$nrec = $nlines - 6;
+$nrec = $nlines - 7;
 
 # write source file (hypocenter)
 open(FILE1,">$odir/source.vtk");