[cig-commits] [commit] pluggable: removing hard-coded path. sac2000 -> sac (499e78b)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Apr 9 08:55:43 PDT 2014
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
More information about the CIG-COMMITS
mailing list