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
|
||||
use IO, only: &
|
||||
IO_error
|
||||
use material, only: &
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_DISLOUCLA_label, &
|
||||
PLASTICITY_DISLOUCLA_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
use config, only: &
|
||||
config_phase
|
||||
use lattice
|
||||
|
|
|
@ -185,15 +185,7 @@ subroutine plastic_dislotwin_init
|
|||
PI
|
||||
use IO, only: &
|
||||
IO_error
|
||||
use material, only: &
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_DISLOTWIN_label, &
|
||||
PLASTICITY_DISLOTWIN_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
use config, only: &
|
||||
config_phase
|
||||
use lattice
|
||||
|
|
|
@ -91,18 +91,7 @@ subroutine plastic_isotropic_init
|
|||
debug_levelBasic
|
||||
use IO, only: &
|
||||
IO_error
|
||||
use material, only: &
|
||||
#ifdef DEBUG
|
||||
phasememberAt, &
|
||||
#endif
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_ISOTROPIC_label, &
|
||||
PLASTICITY_ISOTROPIC_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
use config, only: &
|
||||
config_phase
|
||||
use lattice
|
||||
|
|
|
@ -112,18 +112,7 @@ subroutine plastic_kinehardening_init
|
|||
math_expand
|
||||
use IO, only: &
|
||||
IO_error
|
||||
use material, only: &
|
||||
#ifdef DEBUG
|
||||
phasememberAt, &
|
||||
#endif
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_kinehardening_label, &
|
||||
PLASTICITY_kinehardening_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
use config, only: &
|
||||
config_phase
|
||||
use lattice
|
||||
|
|
|
@ -23,13 +23,7 @@ subroutine plastic_none_init
|
|||
debug_level, &
|
||||
debug_constitutive, &
|
||||
debug_levelBasic
|
||||
use material, only: &
|
||||
phase_plasticity, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_NONE_label, &
|
||||
PLASTICITY_NONE_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
|
||||
implicit none
|
||||
integer :: &
|
||||
|
|
|
@ -248,15 +248,7 @@ subroutine plastic_nonlocal_init
|
|||
debug_levelBasic
|
||||
use mesh, only: &
|
||||
theMesh
|
||||
use material, only: &
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
PLASTICITY_NONLOCAL_label, &
|
||||
PLASTICITY_NONLOCAL_ID, &
|
||||
plasticState, &
|
||||
material_phase, &
|
||||
material_allocatePlasticState
|
||||
use material
|
||||
use config
|
||||
use lattice
|
||||
|
||||
|
|
|
@ -116,15 +116,7 @@ subroutine plastic_phenopowerlaw_init
|
|||
math_expand
|
||||
use IO, only: &
|
||||
IO_error
|
||||
use material, only: &
|
||||
phase_plasticity, &
|
||||
phase_plasticityInstance, &
|
||||
phase_Noutput, &
|
||||
material_allocatePlasticState, &
|
||||
PLASTICITY_PHENOPOWERLAW_LABEL, &
|
||||
PLASTICITY_PHENOPOWERLAW_ID, &
|
||||
material_phase, &
|
||||
plasticState
|
||||
use material
|
||||
use config, only: &
|
||||
config_phase
|
||||
use lattice
|
||||
|
|
Loading…
Reference in New Issue