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

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-05-10 11:45:07 -0700 (Sun, 10 May 2009)
New Revision: 14961

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c
Log:
Assuming origin time is 0 if undefined in SAC file. SAC will still print an ugly error message though.

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-10 16:37:31 UTC (rev 14960)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/UTILS/seis_process/convolve_stf.c	2009-05-10 18:45:07 UTC (rev 14961)
@@ -184,8 +184,10 @@
         
         getfhv("o", &origin, &nerr, strlen("o"));
         if(nerr) {
-            fprintf(stderr,"No origin time is defined for the sac file\n");
-            return 1;
+            /* Assuming origin time is 0, per convention of SPECFEM */
+	    fprintf(stderr, "  Assuming origin time is 0\n");
+            origin = 0.0;
+            setfhv("o", &origin, &nerr, strlen("o"));
         }