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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:53:01 -0800 (Fri, 07 Dec 2007)
New Revision: 8519

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.f90
Log:
added action='read' to open statement


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-04-18 11:23:28 UTC (rev 8518)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.f90	2007-12-07 23:53:01 UTC (rev 8519)
@@ -235,10 +235,10 @@
 !
 !***********************************************************************
 
-  open(IIN,file='OUTPUT_FILES/Database')
+  open(IIN,file='OUTPUT_FILES/Database',status='old',action='read')
 
 ! determine if we write to file instead of standard output
-  if(IOUT /= ISTANDARD_OUTPUT) open(IOUT,file='simulation_results.txt')
+  if(IOUT /= ISTANDARD_OUTPUT) open(IOUT,file='simulation_results.txt',status='unknown')
 
 !
 !---  read job title and skip remaining titles of the input file