[cig-commits] [commit] pluggable: removing hard-coded path. sac2000 -> sac (499e78b)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

>---------------------------------------------------------------

commit 499e78b7e2ec43415274bbaee219c5abb76af101
Author: Eh Tan <tan2 at earth.sinica.edu.tw>
Date:   Wed May 6 18:35:14 2009 +0000

    removing hard-coded path. sac2000 -> sac


>---------------------------------------------------------------

499e78b7e2ec43415274bbaee219c5abb76af101
 UTILS/seis_process/rotate.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/UTILS/seis_process/rotate.pl b/UTILS/seis_process/rotate.pl
index cbccffd..d73ca6e 100755
--- a/UTILS/seis_process/rotate.pl
+++ b/UTILS/seis_process/rotate.pl
@@ -29,7 +29,7 @@ exit(1)
 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 @@ foreach $file (@ARGV) {
 
   # 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