[cig-commits] r8615 - seismo/1D/SPECFEM1D/trunk

[walter at geodynamics.org]

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