[cig-commits] r14893 - seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-05-06 11:35:14 -0700 (Wed, 06 May 2009)
New Revision: 14893

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/rotate.pl
Log:
removing hard-coded path. sac2000 -> sac

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/rotate.pl
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/rotate.pl	2009-05-06 18:30:57 UTC (rev 14892)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/rotate.pl	2009-05-06 18:35:14 UTC (rev 14893)
@@ -29,7 +29,7 @@
 if (!getopts('l:L:cdts')) {die('Check input arguments\n');}
 @ARGV > 0 or Usage();
 if (!$opt_l) {$opt_l = 0;}
-$saclst = "/opt/seismo-util/bin/saclst";
+$saclst = "saclst";
 if (not -f $saclst) {die("No such file as $saclst\n");}
 $undef=-12345.0;
 $eps=0.1;
@@ -81,8 +81,8 @@
 
   # check if the reference time is the same or not!
 
-  if ($opt_c) {open(SAC,"|sac2000");}
-  else {open(SAC,"|sac2000 > /dev/null");}
+  if ($opt_c) {open(SAC,"| sac");}
+  else {open(SAC,"| sac > /dev/null");}
   print SAC "echo on\n";
   print SAC "r $north $east\n ";
   if ($opt_L or $npts_n != $npts_e or abs($nb-$eb) > $eps) { #cut properly