[cig-commits] [commit] QA: parameters string length increased to 512. (dd29b92)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d

On branch  : QA
Link       : https://github.com/geodynamics/specfem3d/compare/10e3bb919590b2040fe0bb30a8cd814d2ceb6b4a...56deeb214ac966cde7e955473d9e61288b16d98f

>---------------------------------------------------------------

commit dd29b924c2c0a5c84990b48d500076cdc506bda0
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Mon Feb 3 10:23:24 2014 -0500

    parameters string length increased to 512.


>---------------------------------------------------------------

dd29b924c2c0a5c84990b48d500076cdc506bda0
 src/meshfem3D/read_value_mesh_parameters.f90 | 18 +++++++++---------
 src/shared/read_value_parameters.f90         | 10 +++++-----
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/meshfem3D/read_value_mesh_parameters.f90 b/src/meshfem3D/read_value_mesh_parameters.f90
index da99b4b..bfe3eeb 100644
--- a/src/meshfem3D/read_value_mesh_parameters.f90
+++ b/src/meshfem3D/read_value_mesh_parameters.f90
@@ -34,7 +34,7 @@
   integer iunit
   integer value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
 
   call unused_string(name)
 
@@ -53,7 +53,7 @@
   integer iunit
   double precision value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
 
   call unused_string(name)
 
@@ -72,7 +72,7 @@
   logical value_to_read
   integer iunit
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
 
   call unused_string(name)
 
@@ -91,7 +91,7 @@
   integer iunit
   character(len=*) value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
 
   call unused_string(name)
 
@@ -116,7 +116,7 @@
   double precision orig_x_interface,orig_y_interface
   double precision spacing_x_interface,spacing_y_interface
   character(len=50)  interface_top_file
-  character(len=100) string_read
+  character(len=512) string_read
 
   call read_next_line(iunit,DONT_IGNORE_JUNK,string_read)
   read(string_read,*) SUPPRESS_UTM_PROJECTION,npx_interface,npy_interface,&
@@ -135,7 +135,7 @@
   integer iunit
   integer i
   double precision rho,vp,vs,Q_flag,anisotropy_flag,domain_id
-  character(len=100) string_read
+  character(len=512) string_read
 
   call read_next_line(iunit,DONT_IGNORE_JUNK,string_read)
   read(string_read,*)  i,rho,vp,vs,Q_flag,anisotropy_flag,domain_id
@@ -154,7 +154,7 @@
   integer iunit
   integer ix_beg_region,ix_end_region,iy_beg_region,iy_end_region
   integer iz_beg_region,iz_end_region,imaterial_number
-  character(len=100) string_read
+  character(len=512) string_read
 
   call read_next_line(iunit,DONT_IGNORE_JUNK,string_read)
   read(string_read,*) ix_beg_region,ix_end_region,iy_beg_region,iy_end_region,&
@@ -172,11 +172,11 @@
 
 
   logical suppress_junk
-  character(len=100) string_read
+  character(len=512) string_read
   integer index_equal_sign,ios,iunit
 
   do
-    read(unit=iunit,fmt="(a100)",iostat=ios) string_read
+    read(unit=iunit,fmt="(a512)",iostat=ios) string_read
     if(ios /= 0) stop 'error while reading parameter file'
 
 ! suppress leading white spaces, if any
diff --git a/src/shared/read_value_parameters.f90 b/src/shared/read_value_parameters.f90
index 8667b1f..c0b4d4c 100644
--- a/src/shared/read_value_parameters.f90
+++ b/src/shared/read_value_parameters.f90
@@ -31,7 +31,7 @@
 
   integer value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
   integer ierr
   common /param_err_common/ ierr
 
@@ -49,7 +49,7 @@
 
   double precision value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
   integer ierr
   common /param_err_common/ ierr
 
@@ -67,7 +67,7 @@
 
   logical value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
   integer ierr
   common /param_err_common/ ierr
 
@@ -85,7 +85,7 @@
 
   character(len=*) value_to_read
   character(len=*) name
-  character(len=100) string_read
+  character(len=512) string_read
   integer ierr
   common /param_err_common/ ierr
 
@@ -102,7 +102,7 @@
   include 'constants.h'
   integer ierr
   common /param_err_common/ ierr
-  character(len=50) filename
+  character(len=512) filename
   filename = IN_DATA_FILES_PATH(1:len_trim(IN_DATA_FILES_PATH))//'Par_file'
 
   call param_open(filename, len(filename), ierr);