[cig-commits] r8414 - seismo/2D/SPECFEM2D/trunk/MAILLE90

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:44:14 -0800 (Fri, 07 Dec 2007)
New Revision: 8414

Modified:
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90
Log:
modified format() statements in read_parameter_file.f90 to suppress fixed length of fields


Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90	2007-12-07 23:44:09 UTC (rev 8413)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90	2007-12-07 23:44:14 UTC (rev 8414)
@@ -96,10 +96,10 @@
 
 ! formats
 
- 1 format(a,f12.5)
- 2 format(a,i8)
+ 1 format(a,f20.8)
+ 2 format(a,i)
  3 format(a,a)
- 4 format(a,l8)
+ 4 format(a,l)
 
 ! read the header
   do i=1,10
@@ -970,7 +970,7 @@
 
  10 format('')
  15 format(e10.5,1x,e10.5)
- 40   format(a50)
+ 40 format(a50)
 
   end program maille
 

Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90	2007-12-07 23:44:09 UTC (rev 8413)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90	2007-12-07 23:44:14 UTC (rev 8414)
@@ -108,10 +108,10 @@
 
 ! formats
 
- 1 format(a,f12.5)
- 2 format(a,i8)
+ 1 format(a,f20.8)
+ 2 format(a,i)
  3 format(a,a)
- 4 format(a,l8)
+ 4 format(a,l)
 
 ! read the header
   do i=1,10
@@ -828,7 +828,7 @@
 
   close(15)
 
- 40   format(a50)
+ 40 format(a50)
 
   end program maille_non_struct_2
 

Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90	2007-12-07 23:44:09 UTC (rev 8413)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90	2007-12-07 23:44:14 UTC (rev 8414)
@@ -108,10 +108,10 @@
 
 ! formats
 
- 1 format(a,f12.5)
- 2 format(a,i8)
+ 1 format(a,f20.8)
+ 2 format(a,i)
  3 format(a,a)
- 4 format(a,l8)
+ 4 format(a,l)
 
 ! read the header
   do i=1,10
@@ -852,7 +852,7 @@
 
   close(15)
 
- 40   format(a50)
+ 40 format(a50)
 
   end program maille_non_struct_3
 

Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90	2007-12-07 23:44:09 UTC (rev 8413)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90	2007-12-07 23:44:14 UTC (rev 8414)
@@ -112,10 +112,10 @@
 
 ! formats
 
- 1 format(a,f12.5)
- 2 format(a,i8)
+ 1 format(a,f20.8)
+ 2 format(a,i)
  3 format(a,a)
- 4 format(a,l8)
+ 4 format(a,l)
 
 ! read the header
   do i=1,10
@@ -781,7 +781,7 @@
 
  10 format('')
  15 format(e10.5,1x,e10.5)
- 40   format(a50)
+ 40 format(a50)
 
   end program maille_struct