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

[walter at geodynamics.org]

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

Modified:
   seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
Log:
fixed a bug in reading of interfaces in meshfem2D due to an uninitialized variable (xinterface_dummy_previous).

Modified: seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2007-09-11 10:38:48 UTC (rev 8574)
+++ seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2007-12-07 23:57:46 UTC (rev 8575)
@@ -282,6 +282,7 @@
         print *,'Reading ',npoints_interface_bottom,' points for interface ',interface_current
         
         ! loop on all the points describing this interface
+        xinterface_dummy_previous = -HUGEVAL
         do ipoint_current = 1,npoints_interface_bottom
            call read_two_interface_points(IIN_INTERFACES,DONT_IGNORE_JUNK,xinterface_dummy,zinterface_dummy)
            if(ipoint_current > 1 .and. xinterface_dummy <= xinterface_dummy_previous) &