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:
Martin Diehl 2019-04-18 15:30:54 +02:00
parent e8464814ae
commit ce1bb589c7
7 changed files with 7 additions and 67 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 :: &

View File

@ -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

View File

@ -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