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

[walter at geodynamics.org]

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

Modified:
   seismo/2D/SPECFEM2D/trunk/read_value_parameters.f90
Log:
fixed portability problem that made reading of Par_file crash on IBM Power4


Modified: seismo/2D/SPECFEM2D/trunk/read_value_parameters.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/read_value_parameters.f90	2005-04-16 11:26:02 UTC (rev 8474)
+++ seismo/2D/SPECFEM2D/trunk/read_value_parameters.f90	2007-12-07 23:49:09 UTC (rev 8475)
@@ -71,7 +71,7 @@
   character(len=100) string_read
 
   call read_next_line(iin,ignore_junk,string_read)
-  read(string_read,"(a)") value_to_read
+  value_to_read = string_read
 
   end subroutine read_value_string