[cig-commits] r8449 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

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

Modified:
   seismo/2D/SPECFEM2D/trunk/Makefile
   seismo/2D/SPECFEM2D/trunk/specfem2D.f90
Log:
fixed "line too long" problem in specfem2D.f90.
changed default Makefile from -O0 to -O3


Modified: seismo/2D/SPECFEM2D/trunk/Makefile
===================================================================
--- seismo/2D/SPECFEM2D/trunk/Makefile	2007-12-07 23:46:53 UTC (rev 8448)
+++ seismo/2D/SPECFEM2D/trunk/Makefile	2007-12-07 23:46:53 UTC (rev 8449)
@@ -13,8 +13,8 @@
 
 # Intel Linux
 F90 = ifort
-FLAGS=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check bounds
-#FLAGS=-O3 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
+#FLAGS=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check bounds
+FLAGS=-O3 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
 
 #
 # g95 (free f95 compiler from http://www.g95.org, still under development, but works)

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-12-07 23:46:53 UTC (rev 8448)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-12-07 23:46:53 UTC (rev 8449)
@@ -588,7 +588,8 @@
 !---- definir la position reelle des points source et recepteurs
   if(source_type == 1) then
 ! collocated force source
-    call locate_source_force(coord,ibool,npoin,nspec,x_source,z_source,source_type,ix_source,iz_source,ispec_selected_source,iglob_source)
+    call locate_source_force(coord,ibool,npoin,nspec,x_source,z_source,source_type, &
+      ix_source,iz_source,ispec_selected_source,iglob_source)
 
   else if(source_type == 2) then
 ! moment-tensor source