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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:51:03 -0800 (Fri, 07 Dec 2007)
New Revision: 8498

Modified:
   seismo/2D/SPECFEM2D/trunk/Makefile
   seismo/2D/SPECFEM2D/trunk/locate_source_force.f90
Log:
added support for GNU gfortran compiler and fixed truncated line problem detected by that compiler


Modified: seismo/2D/SPECFEM2D/trunk/Makefile
===================================================================
--- seismo/2D/SPECFEM2D/trunk/Makefile	2006-08-29 16:31:46 UTC (rev 8497)
+++ seismo/2D/SPECFEM2D/trunk/Makefile	2007-12-07 23:51:03 UTC (rev 8498)
@@ -13,25 +13,18 @@
 #FLAGS_NOCHECK=-fast -Mnobounds -Minline -Mneginfo -Mdclchk
 
 # Intel Linux
-F90 = ifort
-FLAGS_CHECK=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -assume byterecl -check bounds
-FLAGS_NOCHECK=-O3 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -assume byterecl -check nobounds
+#F90 = ifort
+#FLAGS_CHECK=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -assume byterecl -check bounds
+#FLAGS_NOCHECK=-O3 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -assume byterecl -check nobounds
 #FLAGS_NOCHECK = $(FLAGS_CHECK)
 
-#
-# g95 (free f95 compiler from http://www.g95.org, still under development, but works)
-#
-#F90 = g95
-#FLAGS_CHECK = -O
-#FLAGS_NOCHECK = $(FLAGS_CHECK)
+# GNU gfortran
+F90 = gfortran
+FLAGS_NOCHECK = -std=gnu -fimplicit-none -frange-check -O2 -Wunused-labels -Waliasing -Wampersand -Wsurprising -Wline-truncation -Wunderflow
+FLAGS_CHECK = $(FLAGS_NOCHECK) -fbounds-check
 
-# Dec Alpha
-#F90 = f90
-#FLAGS_CHECK=-O0 -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nounderflow -check bounds -C
-#FLAGS_NOCHECK=-fast -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nounderflow -check nobounds
+LINK = $(F90)
 
-LINK = $(F90) 
-
 OBJS_MESHFEM2D = $O/meshfem2D.o $O/read_value_parameters.o
 
 OBJS_SPECFEM2D = $O/checkgrid.o $O/datim.o $O/defarrays.o\

Modified: seismo/2D/SPECFEM2D/trunk/locate_source_force.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/locate_source_force.f90	2006-08-29 16:31:46 UTC (rev 8497)
+++ seismo/2D/SPECFEM2D/trunk/locate_source_force.f90	2007-12-07 23:51:03 UTC (rev 8498)
@@ -11,7 +11,8 @@
 !
 !========================================================================
 
-  subroutine locate_source_force(coord,ibool,npoin,nspec,x_source,z_source,source_type,ix_source,iz_source,ispec_source,iglob_source)
+  subroutine locate_source_force(coord,ibool,npoin,nspec,x_source,z_source,source_type,ix_source,iz_source, &
+                                         ispec_source,iglob_source)
 
 !
 !----- calculer la position reelle de la source