[cig-commits] r8615 - seismo/1D/SPECFEM1D/trunk
walter at geodynamics.org
walter at geodynamics.org
Fri Dec 7 16:24:17 PST 2007
Author: walter
Date: 2007-12-07 16:24:17 -0800 (Fri, 07 Dec 2007)
New Revision: 8615
Modified:
seismo/1D/SPECFEM1D/trunk/Makefile
seismo/1D/SPECFEM1D/trunk/wave.f90
Log:
cleaned source codes to ensure f95 compatibility, and declared all variables
(compiled on Dec Alpha to make sure new source codes are clean and give no warnings)
Modified: seismo/1D/SPECFEM1D/trunk/Makefile
===================================================================
--- seismo/1D/SPECFEM1D/trunk/Makefile 2004-02-12 16:51:40 UTC (rev 8614)
+++ seismo/1D/SPECFEM1D/trunk/Makefile 2007-12-08 00:24:17 UTC (rev 8615)
@@ -1,5 +1,9 @@
O = obj
+# Dec Alpha
+#F90 = f90
+#FLAGS = -fast -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nounderflow -check bounds
+
# Portland compiler
#F90 = pgf90
#FLAGS = -fast -Mbounds -Mneginfo -Mdclchk -Mstandard -Knoieee
Modified: seismo/1D/SPECFEM1D/trunk/wave.f90
===================================================================
--- seismo/1D/SPECFEM1D/trunk/wave.f90 2004-02-12 16:51:40 UTC (rev 8614)
+++ seismo/1D/SPECFEM1D/trunk/wave.f90 2007-12-08 00:24:17 UTC (rev 8615)
@@ -61,8 +61,8 @@
double precision deltat,deltatover2,deltatsqover2
! source
- integer ispec_source,i_source,iglob_source
- double precision stf,hdur,source_amp
+ integer ispec_source,i_source
+ double precision hdur,source_amp
double precision, external :: source_time_function
! receiver
More information about the cig-commits
mailing list