complicated use statements confuse CMake
probably we should adopt a similar "use" policy in Fortran as recommended for Python "import" and have all imports at the beginning https://www.python.org/dev/peps/pep-0008/
This commit is contained in:
parent
e8464814ae
commit
ce1bb589c7
|
@ -121,15 +121,7 @@ subroutine plastic_disloUCLA_init()
|
||||||
math_expand
|
math_expand
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error
|
IO_error
|
||||||
use material, only: &
|
use material
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_DISLOUCLA_label, &
|
|
||||||
PLASTICITY_DISLOUCLA_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
use config, only: &
|
use config, only: &
|
||||||
config_phase
|
config_phase
|
||||||
use lattice
|
use lattice
|
||||||
|
|
|
@ -185,15 +185,7 @@ subroutine plastic_dislotwin_init
|
||||||
PI
|
PI
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error
|
IO_error
|
||||||
use material, only: &
|
use material
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_DISLOTWIN_label, &
|
|
||||||
PLASTICITY_DISLOTWIN_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
use config, only: &
|
use config, only: &
|
||||||
config_phase
|
config_phase
|
||||||
use lattice
|
use lattice
|
||||||
|
|
|
@ -91,18 +91,7 @@ subroutine plastic_isotropic_init
|
||||||
debug_levelBasic
|
debug_levelBasic
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error
|
IO_error
|
||||||
use material, only: &
|
use material
|
||||||
#ifdef DEBUG
|
|
||||||
phasememberAt, &
|
|
||||||
#endif
|
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_ISOTROPIC_label, &
|
|
||||||
PLASTICITY_ISOTROPIC_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
use config, only: &
|
use config, only: &
|
||||||
config_phase
|
config_phase
|
||||||
use lattice
|
use lattice
|
||||||
|
|
|
@ -112,18 +112,7 @@ subroutine plastic_kinehardening_init
|
||||||
math_expand
|
math_expand
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error
|
IO_error
|
||||||
use material, only: &
|
use material
|
||||||
#ifdef DEBUG
|
|
||||||
phasememberAt, &
|
|
||||||
#endif
|
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_kinehardening_label, &
|
|
||||||
PLASTICITY_kinehardening_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
use config, only: &
|
use config, only: &
|
||||||
config_phase
|
config_phase
|
||||||
use lattice
|
use lattice
|
||||||
|
|
|
@ -23,13 +23,7 @@ subroutine plastic_none_init
|
||||||
debug_level, &
|
debug_level, &
|
||||||
debug_constitutive, &
|
debug_constitutive, &
|
||||||
debug_levelBasic
|
debug_levelBasic
|
||||||
use material, only: &
|
use material
|
||||||
phase_plasticity, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_NONE_label, &
|
|
||||||
PLASTICITY_NONE_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
integer :: &
|
integer :: &
|
||||||
|
|
|
@ -248,15 +248,7 @@ subroutine plastic_nonlocal_init
|
||||||
debug_levelBasic
|
debug_levelBasic
|
||||||
use mesh, only: &
|
use mesh, only: &
|
||||||
theMesh
|
theMesh
|
||||||
use material, only: &
|
use material
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
PLASTICITY_NONLOCAL_label, &
|
|
||||||
PLASTICITY_NONLOCAL_ID, &
|
|
||||||
plasticState, &
|
|
||||||
material_phase, &
|
|
||||||
material_allocatePlasticState
|
|
||||||
use config
|
use config
|
||||||
use lattice
|
use lattice
|
||||||
|
|
||||||
|
|
|
@ -116,15 +116,7 @@ subroutine plastic_phenopowerlaw_init
|
||||||
math_expand
|
math_expand
|
||||||
use IO, only: &
|
use IO, only: &
|
||||||
IO_error
|
IO_error
|
||||||
use material, only: &
|
use material
|
||||||
phase_plasticity, &
|
|
||||||
phase_plasticityInstance, &
|
|
||||||
phase_Noutput, &
|
|
||||||
material_allocatePlasticState, &
|
|
||||||
PLASTICITY_PHENOPOWERLAW_LABEL, &
|
|
||||||
PLASTICITY_PHENOPOWERLAW_ID, &
|
|
||||||
material_phase, &
|
|
||||||
plasticState
|
|
||||||
use config, only: &
|
use config, only: &
|
||||||
config_phase
|
config_phase
|
||||||
use lattice
|
use lattice
|
||||||
|
|
Loading…
Reference in New Issue