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

[walter at geodynamics.org]

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

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:
fixed non-declared length problem in format() in read_parameter_file.f90


Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90	2007-12-07 23:44:14 UTC (rev 8414)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille.f90	2007-12-07 23:44:19 UTC (rev 8415)
@@ -97,9 +97,9 @@
 ! formats
 
  1 format(a,f20.8)
- 2 format(a,i)
+ 2 format(a,i20)
  3 format(a,a)
- 4 format(a,l)
+ 4 format(a,l20)
 
 ! read the header
   do i=1,10

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:14 UTC (rev 8414)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90	2007-12-07 23:44:19 UTC (rev 8415)
@@ -109,9 +109,9 @@
 ! formats
 
  1 format(a,f20.8)
- 2 format(a,i)
+ 2 format(a,i20)
  3 format(a,a)
- 4 format(a,l)
+ 4 format(a,l20)
 
 ! read the header
   do i=1,10

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:14 UTC (rev 8414)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90	2007-12-07 23:44:19 UTC (rev 8415)
@@ -109,9 +109,9 @@
 ! formats
 
  1 format(a,f20.8)
- 2 format(a,i)
+ 2 format(a,i20)
  3 format(a,a)
- 4 format(a,l)
+ 4 format(a,l20)
 
 ! read the header
   do i=1,10

Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90	2007-12-07 23:44:14 UTC (rev 8414)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_struct.f90	2007-12-07 23:44:19 UTC (rev 8415)
@@ -113,9 +113,9 @@
 ! formats
 
  1 format(a,f20.8)
- 2 format(a,i)
+ 2 format(a,i20)
  3 format(a,a)
- 4 format(a,l)
+ 4 format(a,l20)
 
 ! read the header
   do i=1,10