[cig-commits] r12578 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-08-07 06:00:59 -0700 (Thu, 07 Aug 2008)
New Revision: 12578

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.f90
Log:
fixed an incorrect include file


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.f90	2008-08-07 12:58:49 UTC (rev 12577)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.f90	2008-08-07 13:00:59 UTC (rev 12578)
@@ -2004,7 +2004,7 @@
   if(nrec < 1) call exit_MPI(myrank,'need at least one receiver')
 
 !! DK DK for the merged version
-  include 'call1.f90'
+  include 'call_specfem1.f90'
 !! DK DK for now use variables just to make sure we don't get warning about unused variables
 ! include 'oldstuff/dummy_use_variables.f90'