223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid issues with unsufficient length of strings

This commit is contained in:
Martin Diehl 2020-01-26 13:18:29 +01:00
parent 3b8dd17e5b
commit decf9371ea
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/DAMASK_interface.f90
View File

@ -86,12 +86,14 @@ subroutine DAMASK_interface_init
=================================================================================================== ===================================================================================================
#endif #endif
character(len=1024) :: & character(len=pPathLen*3+pStringLen) :: &
commandLine, & !< command line call as string commandLine !< command line call as string
character(len=pPathLen) :: &
arg, & !< individual argument arg, & !< individual argument
loadCaseArg = '', & !< -l argument given to the executable loadCaseArg = '', & !< -l argument given to the executable
geometryArg = '', & !< -g argument given to the executable geometryArg = '', & !< -g argument given to the executable
workingDirArg = '', & !< -w argument given to the executable workingDirArg = '' !< -w argument given to the executable
character(len=pStringLen) :: &
userName !< name of user calling the executable userName !< name of user calling the executable
integer :: & integer :: &
stat, & stat, &
@ -295,7 +297,7 @@ end subroutine DAMASK_interface_init
subroutine setWorkingDirectory(workingDirectoryArg) subroutine setWorkingDirectory(workingDirectoryArg)
character(len=*), intent(in) :: workingDirectoryArg !< working directory argument character(len=*), intent(in) :: workingDirectoryArg !< working directory argument
character(len=1024) :: workingDirectory !< working directory argument character(len=pPathLen) :: workingDirectory
logical :: error logical :: error
external :: quit external :: quit

5
src/numerics.f90
View File

@ -89,7 +89,7 @@ module numerics
structOrder = 2 !< order of displacement shape functions structOrder = 2 !< order of displacement shape functions
logical, protected, public :: & logical, protected, public :: &
BBarStabilisation = .false. BBarStabilisation = .false.
character(len=4096), protected, public :: & character(len=*), parameter, public :: &
petsc_defaultOptions = '-mech_snes_type newtonls & petsc_defaultOptions = '-mech_snes_type newtonls &
&-mech_snes_linesearch_type cp & &-mech_snes_linesearch_type cp &
&-mech_snes_ksp_ew & &-mech_snes_ksp_ew &
@ -100,7 +100,8 @@ module numerics
&-mech_pc_type ml & &-mech_pc_type ml &
&-mech_mg_levels_ksp_type chebyshev & &-mech_mg_levels_ksp_type chebyshev &
&-mech_mg_levels_pc_type sor & &-mech_mg_levels_pc_type sor &
&-mech_pc_ml_nullspace user ',& &-mech_pc_ml_nullspace user'
character(len=pStringLen), protected, public :: &
petsc_options = '' petsc_options = ''
#endif #endif