[cig-commits] [commit] devel: Remove unnecessary adjustl calls. (3ccbe15)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu May 1 00:51:04 PDT 2014
Repository : ssh://geoshell/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/cb32c88d6155d7974561a6f72fc17aea596e2c4d...50aa953c1db3f565d76415f5305410a529996b75
>---------------------------------------------------------------
commit 3ccbe15742376ea949bc7d9fdc1a68b90392d3b2
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Tue Apr 29 19:07:14 2014 -0400
Remove unnecessary adjustl calls.
These parameters are trimmed when read from the Par_file, so this is
extra work.
>---------------------------------------------------------------
3ccbe15742376ea949bc7d9fdc1a68b90392d3b2
src/decompose_mesh/fault_scotch.f90 | 1 -
src/generate_databases/model_gll_adios.F90 | 3 +-
src/generate_databases/model_ipati_adios.F90 | 3 +-
.../read_partition_files_adios.F90 | 3 +-
src/meshfem3D/create_name_database.f90 | 7 ++--
src/shared/create_name_database.f90 | 7 ++--
src/shared/create_serial_name_database.f90 | 5 +--
src/specfem3D/compute_add_sources_acoustic.f90 | 14 ++++----
src/specfem3D/compute_add_sources_viscoelastic.f90 | 38 ++++++++++++----------
src/specfem3D/initialize_simulation.f90 | 9 +++--
src/specfem3D/read_forward_arrays_adios.F90 | 3 +-
src/specfem3D/read_mesh_databases_adios.F90 | 9 ++---
src/specfem3D/write_output_SU.f90 | 9 ++---
src/specfem3D/write_seismograms.f90 | 18 ++++------
14 files changed, 55 insertions(+), 74 deletions(-)
diff --git a/src/decompose_mesh/fault_scotch.f90 b/src/decompose_mesh/fault_scotch.f90
index d2ab427..8bb3d8e 100644
--- a/src/decompose_mesh/fault_scotch.f90
+++ b/src/decompose_mesh/fault_scotch.f90
@@ -102,7 +102,6 @@ CONTAINS
filename = localpath_name(1:len_trim(localpath_name))//'/fault_file_'//&
NTchar(1:len_trim(NTchar))//'.dat'
- filename = adjustl(filename)
! reads fault elements and nodes
! File format:
! Line 1:
diff --git a/src/generate_databases/model_gll_adios.F90 b/src/generate_databases/model_gll_adios.F90
index 5548e34..2e91249 100644
--- a/src/generate_databases/model_gll_adios.F90
+++ b/src/generate_databases/model_gll_adios.F90
@@ -69,8 +69,7 @@ subroutine model_gll_adios(myrank,nspec,LOCAL_PATH)
!-------------------------------------.
! Open ADIOS Database file, read mode |
!-------------------------------------'
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) //"/model_values.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) //"/model_values.bp"
call world_get_comm(comm)
diff --git a/src/generate_databases/model_ipati_adios.F90 b/src/generate_databases/model_ipati_adios.F90
index caf41f7..9bb622a 100644
--- a/src/generate_databases/model_ipati_adios.F90
+++ b/src/generate_databases/model_ipati_adios.F90
@@ -186,8 +186,7 @@ subroutine read_model_vp_rho_adios (myrank, nspec, LOCAL_PATH, &
!-------------------------------------.
! Open ADIOS Database file, read mode |
!-------------------------------------'
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) //"/model_values.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) //"/model_values.bp"
call adios_read_init_method (ADIOS_READ_METHOD_BP, comm, &
"verbose=1", ier)
diff --git a/src/generate_databases/read_partition_files_adios.F90 b/src/generate_databases/read_partition_files_adios.F90
index 0f44478..a0cda18 100644
--- a/src/generate_databases/read_partition_files_adios.F90
+++ b/src/generate_databases/read_partition_files_adios.F90
@@ -65,8 +65,7 @@ subroutine read_partition_files_adios()
!-------------------------------------.
! Open ADIOS Database file, read mode |
!-------------------------------------'
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) // "/Database.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // "/Database.bp"
call world_get_comm(comm)
diff --git a/src/meshfem3D/create_name_database.f90 b/src/meshfem3D/create_name_database.f90
index 2b8fd96..0e5744a 100644
--- a/src/meshfem3D/create_name_database.f90
+++ b/src/meshfem3D/create_name_database.f90
@@ -34,16 +34,13 @@
integer iproc
! name of the database file
- character(len=256) prname,procname,LOCAL_PATH,clean_LOCAL_PATH
+ character(len=256) prname,procname,LOCAL_PATH
! create the name for the database of the current slide and region
write(procname,"('/proc',i6.6,'_')") iproc
-! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
-
! create full name with path
- prname = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // procname
+ prname = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // procname
end subroutine create_name_database
diff --git a/src/shared/create_name_database.f90 b/src/shared/create_name_database.f90
index 2b8fd96..0e5744a 100644
--- a/src/shared/create_name_database.f90
+++ b/src/shared/create_name_database.f90
@@ -34,16 +34,13 @@
integer iproc
! name of the database file
- character(len=256) prname,procname,LOCAL_PATH,clean_LOCAL_PATH
+ character(len=256) prname,procname,LOCAL_PATH
! create the name for the database of the current slide and region
write(procname,"('/proc',i6.6,'_')") iproc
-! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
-
! create full name with path
- prname = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // procname
+ prname = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // procname
end subroutine create_name_database
diff --git a/src/shared/create_serial_name_database.f90 b/src/shared/create_serial_name_database.f90
index 44d532b..7354d62 100644
--- a/src/shared/create_serial_name_database.f90
+++ b/src/shared/create_serial_name_database.f90
@@ -77,11 +77,8 @@
! on shared-memory machines, global path is the same as local path
else
-! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
-
! create full name with path
- prname = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // procname
+ prname = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // procname
endif
diff --git a/src/specfem3D/compute_add_sources_acoustic.f90 b/src/specfem3D/compute_add_sources_acoustic.f90
index ef6f62d..882c79f 100644
--- a/src/specfem3D/compute_add_sources_acoustic.f90
+++ b/src/specfem3D/compute_add_sources_acoustic.f90
@@ -281,10 +281,11 @@
it_start = NSTEP - it_sub_adj*NTSTEP_BETWEEN_READ_ADJSRC + 1
it_end = it_start + NTSTEP_BETWEEN_READ_ADJSRC - 1
write(procname,"(i4)") myrank
- open(unit=IIN_SU1, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj', &
+ procname = adjustl(procname)
+ open(unit=IIN_SU1, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dx_SU.adj', &
status='old',access='direct',recl=240+4*(NSTEP),iostat = ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj does not exit')
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dx_SU.adj does not exist')
do irec_local = 1,nrec_local
irec = number_receiver_global(irec_local)
@@ -747,10 +748,11 @@
it_start = NSTEP - it_sub_adj*NTSTEP_BETWEEN_READ_ADJSRC + 1
it_end = it_start + NTSTEP_BETWEEN_READ_ADJSRC - 1
write(procname,"(i4)") myrank
- open(unit=IIN_SU1, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj', &
+ procname = adjustl(procname)
+ open(unit=IIN_SU1, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dx_SU.adj', &
status='old',access='direct',recl=240+4*(NSTEP),iostat = ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj does not exit')
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dx_SU.adj does not exist')
do irec_local = 1,nrec_local
irec = number_receiver_global(irec_local)
diff --git a/src/specfem3D/compute_add_sources_viscoelastic.f90 b/src/specfem3D/compute_add_sources_viscoelastic.f90
index 0966315..9c03477 100644
--- a/src/specfem3D/compute_add_sources_viscoelastic.f90
+++ b/src/specfem3D/compute_add_sources_viscoelastic.f90
@@ -269,19 +269,20 @@
it_start = NSTEP - it_sub_adj*NTSTEP_BETWEEN_READ_ADJSRC + 1
it_end = it_start + NTSTEP_BETWEEN_READ_ADJSRC - 1
write(procname,"(i4)") myrank
+ procname = adjustl(procname)
! read adjoint sources
- open(unit=IIN_SU1, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj', &
+ open(unit=IIN_SU1, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dx_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj does not exit')
- open(unit=IIN_SU2, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dy_SU.adj', &
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dx_SU.adj does not exist')
+ open(unit=IIN_SU2, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dy_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dy_SU.adj does not exit')
- open(unit=IIN_SU3, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dz_SU.adj', &
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dy_SU.adj does not exist')
+ open(unit=IIN_SU3, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dz_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dz_SU.adj does not exit')
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dz_SU.adj does not exist')
do irec_local = 1,nrec_local
irec = number_receiver_global(irec_local)
@@ -782,19 +783,20 @@
it_start = NSTEP - it_sub_adj*NTSTEP_BETWEEN_READ_ADJSRC + 1
it_end = it_start + NTSTEP_BETWEEN_READ_ADJSRC - 1
write(procname,"(i4)") myrank
+ procname = adjustl(procname)
! read adjoint sources
- open(unit=IIN_SU1, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj', &
+ open(unit=IIN_SU1, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dx_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dx_SU.adj does not exit')
- open(unit=IIN_SU2, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dy_SU.adj', &
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dx_SU.adj does not exist')
+ open(unit=IIN_SU2, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dy_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dy_SU.adj does not exit')
- open(unit=IIN_SU3, file=trim(adjustl(OUTPUT_FILES_PATH))//'../SEM/'//trim(adjustl(procname))//'_dz_SU.adj', &
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dy_SU.adj does not exist')
+ open(unit=IIN_SU3, file=trim(OUTPUT_FILES_PATH)//'../SEM/'//trim(procname)//'_dz_SU.adj', &
status='old', access='direct', recl=240+4*NSTEP, iostat=ier)
- if( ier /= 0 ) call exit_MPI(myrank,'file '//trim(adjustl(OUTPUT_FILES_PATH)) &
- //'../SEM/'//trim(adjustl(procname))//'_dz_SU.adj does not exit')
+ if (ier /= 0) call exit_MPI(myrank,'file '//trim(OUTPUT_FILES_PATH) &
+ //'../SEM/'//trim(procname)//'_dz_SU.adj does not exist')
do irec_local = 1,nrec_local
irec = number_receiver_global(irec_local)
diff --git a/src/specfem3D/initialize_simulation.f90 b/src/specfem3D/initialize_simulation.f90
index 98ecb32..3ac5fa1 100644
--- a/src/specfem3D/initialize_simulation.f90
+++ b/src/specfem3D/initialize_simulation.f90
@@ -361,7 +361,7 @@
if( myrank == 0 ) then
! tests if OUTPUT_FILES directory exists
! note: inquire behaves differently when using intel ifort or gfortran compilers
- !INQUIRE( FILE = dummystring(1:len_trim(dummystring))//'/.', EXIST = exists )
+ !INQUIRE( FILE = OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH))//'/.', EXIST = exists )
open(IOUT,file=trim(OUTPUT_FILES_PATH)//'/dummy.txt',status='unknown',iostat=ier)
if( ier /= 0 ) then
print*,"OUTPUT_FILES directory does not work: ",trim(OUTPUT_FILES_PATH)
@@ -370,11 +370,10 @@
close(IOUT,status='delete')
! tests if LOCAL_PATH directory exists
- dummystring = adjustl(LOCAL_PATH)
- !INQUIRE( FILE = dummystring(1:len_trim(dummystring))//'/.', EXIST = exists )
- open(IOUT,file=trim(dummystring)//'/dummy.txt',status='unknown',iostat=ier)
+ !INQUIRE( FILE = LOCAL_PATH(1:len_trim(LOCAL_PATH))//'/.', EXIST = exists )
+ open(IOUT,file=trim(LOCAL_PATH)//'/dummy.txt',status='unknown',iostat=ier)
if( ier /= 0 ) then
- print*,"LOCAL_PATH directory does not work: ",trim(dummystring)
+ print*,"LOCAL_PATH directory does not work: ",trim(LOCAL_PATH)
call exit_MPI(myrank,'error LOCAL_PATH directory')
endif
close(IOUT,status='delete')
diff --git a/src/specfem3D/read_forward_arrays_adios.F90 b/src/specfem3D/read_forward_arrays_adios.F90
index 3d19640..cd2a0ca 100644
--- a/src/specfem3D/read_forward_arrays_adios.F90
+++ b/src/specfem3D/read_forward_arrays_adios.F90
@@ -83,8 +83,7 @@ subroutine read_forward_arrays_adios()
!-------------------------------------'
sel_num = 0
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) // "/forward_arrays.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // "/forward_arrays.bp"
call world_get_comm(comm)
diff --git a/src/specfem3D/read_mesh_databases_adios.F90 b/src/specfem3D/read_mesh_databases_adios.F90
index c2afae7..3520a57 100644
--- a/src/specfem3D/read_mesh_databases_adios.F90
+++ b/src/specfem3D/read_mesh_databases_adios.F90
@@ -45,8 +45,7 @@ subroutine read_mesh_for_init(nspec, nglob)
!-------------------------------------.
! Open ADIOS Database file, read mode |
!-------------------------------------'
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) // "/external_mesh.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // "/external_mesh.bp"
call world_get_comm(comm)
@@ -154,8 +153,7 @@ subroutine read_mesh_databases_adios()
!-------------------------------------'
sel_num = 0
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) // "/external_mesh.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // "/external_mesh.bp"
call world_get_comm(comm)
@@ -1761,8 +1759,7 @@ subroutine read_moho_mesh_adjoint_adios()
!-------------------------------------'
sel_num = 0
- database_name = adjustl(LOCAL_PATH)
- database_name = database_name(1:len_trim(database_name)) // "/moho.bp"
+ database_name = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // "/moho.bp"
call world_get_comm(comm)
diff --git a/src/specfem3D/write_output_SU.f90 b/src/specfem3D/write_output_SU.f90
index 0d8fb37..2c358ea 100644
--- a/src/specfem3D/write_output_SU.f90
+++ b/src/specfem3D/write_output_SU.f90
@@ -70,15 +70,16 @@
final_LOCAL_PATH = OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)) // '/'
else
! create full final local path
- final_LOCAL_PATH = trim(adjustl(LOCAL_PATH)) // '/'
+ final_LOCAL_PATH = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // '/'
endif
write(procname,"(i4)") myrank
+ procname = adjustl(procname)
allocate(rtmpseis(NSTEP),stat=ier)
if( ier /= 0 ) stop 'error allocating rtmpseis array'
! write seismograms (dx)
- open(unit=IOUT_SU, file=trim(adjustl(final_LOCAL_PATH))//trim(adjustl(procname))//'_dx_SU' ,&
+ open(unit=IOUT_SU, file=trim(final_LOCAL_PATH)//trim(procname)//'_dx_SU' ,&
status='unknown', access='direct', recl=4, iostat=ier)
if( ier /= 0 ) stop 'error opening ***_dx_SU file'
@@ -107,7 +108,7 @@
close(IOUT_SU)
! write seismograms (dy)
- open(unit=IOUT_SU, file=trim(adjustl(final_LOCAL_PATH))//trim(adjustl(procname))//'_dy_SU' ,&
+ open(unit=IOUT_SU, file=trim(final_LOCAL_PATH)//trim(procname)//'_dy_SU' ,&
status='unknown', access='direct', recl=4, iostat=ier)
if( ier /= 0 ) stop 'error opening ***_dy_SU file'
@@ -128,7 +129,7 @@
close(IOUT_SU)
! write seismograms (dz)
- open(unit=IOUT_SU, file=trim(adjustl(final_LOCAL_PATH))//trim(adjustl(procname))//'_dz_SU' ,&
+ open(unit=IOUT_SU, file=trim(final_LOCAL_PATH)//trim(procname)//'_dz_SU' ,&
status='unknown', access='direct', recl=4, iostat=ier)
if( ier /= 0 ) stop 'error opening ***_dz_SU file'
diff --git a/src/specfem3D/write_seismograms.f90 b/src/specfem3D/write_seismograms.f90
index dfdd562..02a5353 100644
--- a/src/specfem3D/write_seismograms.f90
+++ b/src/specfem3D/write_seismograms.f90
@@ -499,7 +499,7 @@
! local parameters
integer iorientation
integer length_station_name,length_network_name
- character(len=256) sisname,clean_LOCAL_PATH,final_LOCAL_PATH
+ character(len=256) sisname,final_LOCAL_PATH
character(len=3) channel
! loops over each seismogram component
@@ -527,10 +527,8 @@
if( USE_OUTPUT_FILES_PATH ) then
final_LOCAL_PATH = OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)) // '/'
else
- ! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
! create full final local path
- final_LOCAL_PATH = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // '/'
+ final_LOCAL_PATH = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // '/'
endif
! ASCII output format
@@ -565,7 +563,7 @@
character(len=3) channel
character(len=1) component
- character(len=256) sisname,clean_LOCAL_PATH,final_LOCAL_PATH
+ character(len=256) sisname,final_LOCAL_PATH
! save displacement, velocity or acceleration
if(istore == 1) then
@@ -600,10 +598,8 @@
if( USE_OUTPUT_FILES_PATH ) then
final_LOCAL_PATH = OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)) // '/'
else
- ! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
! create full final local path
- final_LOCAL_PATH = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // '/'
+ final_LOCAL_PATH = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // '/'
endif
@@ -660,7 +656,7 @@
character(len=4) chn
character(len=1) component
- character(len=256) sisname,clean_LOCAL_PATH,final_LOCAL_PATH
+ character(len=256) sisname,final_LOCAL_PATH
component = 'd'
@@ -700,10 +696,8 @@
if( USE_OUTPUT_FILES_PATH ) then
final_LOCAL_PATH = OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH)) // '/'
else
- ! suppress white spaces if any
- clean_LOCAL_PATH = adjustl(LOCAL_PATH)
! create full final local path
- final_LOCAL_PATH = clean_LOCAL_PATH(1:len_trim(clean_LOCAL_PATH)) // '/'
+ final_LOCAL_PATH = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // '/'
endif
! save seismograms in text format with no subsampling.
More information about the CIG-COMMITS
mailing list