[cig-commits] [commit] pluggable: update end time in header (1ec5904)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Mon Mar 10 13:41:32 PDT 2014


Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/0000000000000000000000000000000000000000...99d99a4dcea0911a22759b11dba98723049af96b

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

commit 1ec5904fffa7f99069e4e754f03b1dd5891a5fec
Author: Eh Tan <tan2 at earth.sinica.edu.tw>
Date:   Fri May 15 17:16:35 2009 +0000

    update end time in header


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

1ec5904fffa7f99069e4e754f03b1dd5891a5fec
 UTILS/seis_process/convolve_stf.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/UTILS/seis_process/convolve_stf.c b/UTILS/seis_process/convolve_stf.c
index a890327..041c6c1 100644
--- a/UTILS/seis_process/convolve_stf.c
+++ b/UTILS/seis_process/convolve_stf.c
@@ -232,9 +232,10 @@ main(int argc, char *argv[])
         /* update sac file header */
         {
             int n;
-            float bnew, aminm, amaxm, amean;
+            float bnew, enew, aminm, amaxm, amean;
 
             bnew = origin - hstf + beg;
+            enew = bnew + del * nconv;
 
             aminm = amaxm = conv[0];
             amean = 0;
@@ -246,6 +247,7 @@ main(int argc, char *argv[])
             amean /= nconv;
 
             setfhv("b", &bnew, &nerr, strlen("b"));
+            setfhv("e", &enew, &nerr, strlen("e"));
             setnhv("npts", &nconv, &nerr, strlen("npts"));
             setfhv("depmin", &aminm, &nerr, strlen("depmin"));
             setfhv("depmax", &amaxm, &nerr, strlen("depmax"));



More information about the CIG-COMMITS mailing list