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

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-05-15 10:16:35 -0700 (Fri, 15 May 2009)
New Revision: 14998

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c
Log:
update end time in header

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c	2009-05-15 00:51:17 UTC (rev 14997)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c	2009-05-15 17:16:35 UTC (rev 14998)
@@ -232,9 +232,10 @@
         /* 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 @@
             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"));