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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:49:49 -0800 (Fri, 07 Dec 2007)
New Revision: 8483

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.f90
Log:
added declaration of "erf" function as external to avoid undefined variable problem with some compilers


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2006-01-27 14:56:41 UTC (rev 8482)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-12-07 23:49:49 UTC (rev 8483)
@@ -133,6 +133,7 @@
   integer ispec_selected_source,iglob_source,ix_source,iz_source
   double precision a,displnorm_all
   double precision, dimension(:), allocatable :: source_time_function
+  double precision, external :: erf
 
   double precision rsizemin,rsizemax,cpoverdxmax, &
     lambdaSmin,lambdaSmax,lambdaPmin,lambdaPmax,vpmin,vpmax