[cig-commits] r13122 - seismo/3D/ADJOINT_TOMO/flexwin

[liuqy at geodynamics.org]

Author: liuqy
Date: 2008-10-23 15:24:25 -0700 (Thu, 23 Oct 2008)
New Revision: 13122

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/Makefile.in
   seismo/3D/ADJOINT_TOMO/flexwin/io_subs.f90
Log:
Makefile: replace -lSacLib with -lsacio, since sac-101.2 includes
          both xapii() and envelope() functions
io_subs.f90: write obs/syn_lp.sac only when RUN_BANDPASS



Modified: seismo/3D/ADJOINT_TOMO/flexwin/Makefile.in
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/Makefile.in	2008-10-22 21:17:54 UTC (rev 13121)
+++ seismo/3D/ADJOINT_TOMO/flexwin/Makefile.in	2008-10-23 22:24:25 UTC (rev 13122)
@@ -7,7 +7,7 @@
 
 PROGS = flexwin
 
-flexwin_LIBS = -lSacLib -lsac -ltau
+flexwin_LIBS = -lsacio -lsac -ltau
 flexwin_OBJS = \
 	distaz.o \
 	io_subs.o \

Modified: seismo/3D/ADJOINT_TOMO/flexwin/io_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/io_subs.f90	2008-10-22 21:17:54 UTC (rev 13121)
+++ seismo/3D/ADJOINT_TOMO/flexwin/io_subs.f90	2008-10-23 22:24:25 UTC (rev 13122)
@@ -287,7 +287,7 @@
   character*120 :: basename
 
   ! write the seismograms in sac
-  call write_lp_sac(basename)
+  if (RUN_BANDPASS)  call write_lp_sac(basename)
 
   ! write the seismograms for gmt
   call write_seis_gmt(basename)