From 3b8dd17e5b8787099c588d90120b4e313df01969 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 26 Jan 2020 12:24:35 +0100 Subject: [PATCH] avoiding hard-coded constants --- src/DAMASK_marc.f90 | 7 +++---- src/grid/spectral_utilities.f90 | 2 +- src/mesh/FEM_utilities.f90 | 8 ++++---- 3 files changed, 8 insertions(+), 9 deletions(-) diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index e2a0e79ea..ba7751372 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -55,10 +55,9 @@ contains !-------------------------------------------------------------------------------------------------- subroutine DAMASK_interface_init - integer, dimension(8) :: & - dateAndTime - integer :: ierr - character(len=1024) :: wd + integer, dimension(8) :: dateAndTime + integer :: ierr + character(len=pPathLen) :: wd write(6,'(/,a)') ' <<<+- DAMASK_marc init -+>>>' diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index b6e28a6b7..cd064b1f8 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -87,7 +87,7 @@ module spectral_utilities real(pReal), dimension(3,3) :: values = 0.0_pReal, & maskFloat = 0.0_pReal logical, dimension(3,3) :: maskLogical = .false. - character(len=64) :: myType = 'None' + character(len=pStringLen) :: myType = 'None' end type tBoundaryCondition type, public :: tLoadCase diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90 index cb30f1590..d21450b29 100644 --- a/src/mesh/FEM_utilities.f90 +++ b/src/mesh/FEM_utilities.f90 @@ -100,8 +100,8 @@ contains !-------------------------------------------------------------------------------------------------- subroutine utilities_init - character(len=1024) :: petsc_optionsPhysics - PetscErrorCode :: ierr + character(len=pStringLen) :: petsc_optionsOrder + PetscErrorCode :: ierr write(6,'(/,a)') ' <<<+- DAMASK_FEM_utilities init -+>>>' @@ -120,8 +120,8 @@ subroutine utilities_init call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_defaultOptions),ierr) call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_options),ierr) CHKERRQ(ierr) - write(petsc_optionsPhysics,'(a,i0)') '-mechFE_petscspace_degree ' , structOrder - call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsPhysics),ierr) + write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', structOrder + call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),ierr) CHKERRQ(ierr) wgt = 1.0/real(mesh_maxNips*mesh_NcpElemsGlobal,pReal)