[cig-commits] r8603 - seismo/2D/SPECFEM2D/trunk
walter at geodynamics.org
walter at geodynamics.org
Fri Dec 7 16:00:17 PST 2007
Author: walter
Date: 2007-12-07 16:00:17 -0800 (Fri, 07 Dec 2007)
New Revision: 8603
Modified:
seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
fixed the external declaration of erf function
Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90 2007-11-21 16:50:33 UTC (rev 8602)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90 2007-12-08 00:00:17 UTC (rev 8603)
@@ -171,7 +171,7 @@
integer ispec_selected_source,iglob_source,ix_source,iz_source,is_proc_source,nb_proc_source
double precision a,displnorm_all,displnorm_all_glob
real(kind=CUSTOM_REAL), dimension(:), allocatable :: source_time_function
- double precision, external :: erf
+ double precision, external :: netlib_specfun_erf
double precision :: vpmin,vpmax
More information about the cig-commits
mailing list