[cig-commits] [commit] devel: Increase size of some strings likely to overflow. (f89cea5)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/4027beef0c03478c027c29d6fa078f1ae2bf5ec9...f5b7671ceb41cb4709134e6b463b57ed7f2f22ad

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

commit f89cea5652e64dd5d7f712c78ecce60abd687e13
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Mon May 19 22:47:42 2014 -0400

    Increase size of some strings likely to overflow.


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

f89cea5652e64dd5d7f712c78ecce60abd687e13
 src/auxiliaries/combine_surf_data.f90       | 4 ++--
 src/auxiliaries/combine_vol_data.f90        | 2 +-
 src/auxiliaries/model_update.f90            | 4 ++--
 src/auxiliaries/smooth_vol_data.f90         | 4 ++--
 src/auxiliaries/sum_kernels.f90             | 2 +-
 src/generate_databases/model_tomography.f90 | 4 ++--
 6 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/auxiliaries/combine_surf_data.f90 b/src/auxiliaries/combine_surf_data.f90
index 84176f2..d502976 100644
--- a/src/auxiliaries/combine_surf_data.f90
+++ b/src/auxiliaries/combine_surf_data.f90
@@ -53,8 +53,8 @@ program combine_surf_data
   real, dimension(:,:,:,:), allocatable :: dat3D
   real, dimension(:,:,:), allocatable :: dat2D
   character(len=MAX_STRING_LEN) :: sline, arg(8), filename, indir, outdir, prname, surfname
-  character(len=MAX_STRING_LEN) :: mesh_file, local_file, local_data_file, local_ibool_file
-  character(len=MAX_STRING_LEN) :: local_ibool_surf_file
+  character(len=MAX_STRING_LEN*2) :: mesh_file, local_file, local_data_file, local_ibool_file
+  character(len=MAX_STRING_LEN*2) :: local_ibool_surf_file
 
 !  integer :: num_ibool(NGLOB_AB)
   integer,dimension(:),allocatable :: num_ibool
diff --git a/src/auxiliaries/combine_vol_data.f90 b/src/auxiliaries/combine_vol_data.f90
index df827e2..e114248 100644
--- a/src/auxiliaries/combine_vol_data.f90
+++ b/src/auxiliaries/combine_vol_data.f90
@@ -87,7 +87,7 @@
 
   character(len=MAX_STRING_LEN) :: arg(9), filename, indir, outdir
   character(len=MAX_STRING_LEN) :: prname, prname_lp
-  character(len=MAX_STRING_LEN) :: mesh_file,local_data_file
+  character(len=MAX_STRING_LEN*2) :: mesh_file,local_data_file
   logical :: HIGH_RESOLUTION_MESH
   integer :: ires
 
diff --git a/src/auxiliaries/model_update.f90 b/src/auxiliaries/model_update.f90
index 5e2e1e2..8929590 100644
--- a/src/auxiliaries/model_update.f90
+++ b/src/auxiliaries/model_update.f90
@@ -68,8 +68,8 @@ program model_update
 
   ! ======================================================
 
-  character(len=MAX_STRING_LEN) :: prname_new
-  character(len=MAX_STRING_LEN) :: m_file, fname
+  character(len=MAX_STRING_LEN) :: prname_new, fname
+  character(len=MAX_STRING_LEN*2) :: m_file
   integer :: NGLOB_OCEAN
   integer :: NSPEC, NGLOB
 
diff --git a/src/auxiliaries/smooth_vol_data.f90 b/src/auxiliaries/smooth_vol_data.f90
index b878429..4cccdb5 100644
--- a/src/auxiliaries/smooth_vol_data.f90
+++ b/src/auxiliaries/smooth_vol_data.f90
@@ -91,7 +91,7 @@ program smooth_vol_data
 
   character(len=MAX_STRING_LEN) :: arg(7), filename, indir, outdir
   character(len=MAX_STRING_LEN) :: prname, prname_lp
-  character(len=MAX_STRING_LEN) :: local_data_file
+  character(len=MAX_STRING_LEN*2) :: local_data_file
 
   double precision :: DT
   double precision :: HDUR_MOVIE,OLSEN_ATTENUATION_RATIO,f0_FOR_PML
@@ -110,7 +110,7 @@ program smooth_vol_data
   integer :: MOVIE_TYPE,IMODEL
 
   ! smoothing parameters
-  character(len=MAX_STRING_LEN) :: ks_file
+  character(len=MAX_STRING_LEN*2) :: ks_file
 
   real(kind=CUSTOM_REAL) :: sigma_h, sigma_h2, sigma_h3, sigma_v, sigma_v2, sigma_v3
   real(kind=CUSTOM_REAL) :: x0, y0, z0, norm, norm_h, norm_v, max_old, max_new
diff --git a/src/auxiliaries/sum_kernels.f90 b/src/auxiliaries/sum_kernels.f90
index e97021e..8f8656e 100644
--- a/src/auxiliaries/sum_kernels.f90
+++ b/src/auxiliaries/sum_kernels.f90
@@ -274,7 +274,7 @@ subroutine sum_kernel_pre(kernel_name,kernel_list,nker,myrank)
   integer :: nker,myrank
 
   ! local parameters
-  character(len=MAX_STRING_LEN) :: k_file
+  character(len=MAX_STRING_LEN*2) :: k_file
   real(kind=CUSTOM_REAL), dimension(:,:,:,:),allocatable :: &
     kernel,hess,total_kernel
   integer :: iker,ios
diff --git a/src/generate_databases/model_tomography.f90 b/src/generate_databases/model_tomography.f90
index 961cb5b..2c147dd 100644
--- a/src/generate_databases/model_tomography.f90
+++ b/src/generate_databases/model_tomography.f90
@@ -89,7 +89,7 @@
   ! local parameters
   double precision :: dummy,temp_x,temp_y,temp_z
   integer :: ier,iundef,nrecord_max,ifiles_tomo,nrec,nlines
-  character(len=MAX_STRING_LEN) :: tomo_filename
+  character(len=MAX_STRING_LEN*2) :: tomo_filename
   character(len=MAX_STRING_LEN) :: filename
   character(len=MAX_STRING_LEN) :: string_read
 
@@ -200,7 +200,7 @@ end subroutine init_tomography_files
   ! local parameters
   real(kind=CUSTOM_REAL) :: x_tomo,y_tomo,z_tomo,vp_tomo,vs_tomo,rho_tomo
   integer :: irecord,ier,iundef,imat
-  character(len=MAX_STRING_LEN) :: tomo_filename
+  character(len=MAX_STRING_LEN*2) :: tomo_filename
   character(len=MAX_STRING_LEN) :: filename
   character(len=MAX_STRING_LEN) :: string_read