[cig-commits] r8563 - seismo/2D/SPECFEM2D/trunk/UTILS/attenuation

walter at geodynamics.org walter at geodynamics.org
Fri Dec 7 15:56:47 PST 2007


Author: walter
Date: 2007-12-07 15:56:46 -0800 (Fri, 07 Dec 2007)
New Revision: 8563

Modified:
   seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c
Log:
improved a print statement


Modified: seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c
===================================================================
--- seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c	2007-07-27 00:19:16 UTC (rev 8562)
+++ seismo/2D/SPECFEM2D/trunk/UTILS/attenuation/attenuation_code_2D.c	2007-12-07 23:56:46 UTC (rev 8563)
@@ -94,7 +94,7 @@
 
 /* DK DK converted to Fortran90 output */
 
-                  printf("! target constant attenuation factor Q = %20.10fd0\n\n", Q_s);
+                  printf("! target constant attenuation factor Q = %20.10f\n\n", Q_s);
 
                   printf("! tau sigma evenly spaced in log frequency, do not depend on value of Q\n");
                   for (i = 1; i <= n; i++) {



More information about the cig-commits mailing list