better readable
This commit is contained in:
parent
1e4da6fbdb
commit
4a69032637
|
@ -2065,17 +2065,6 @@ end subroutine integrateStateRK4
|
||||||
subroutine integrateStateRKCK45()
|
subroutine integrateStateRKCK45()
|
||||||
use, intrinsic :: &
|
use, intrinsic :: &
|
||||||
IEEE_arithmetic
|
IEEE_arithmetic
|
||||||
#ifdef DEBUG
|
|
||||||
use debug, only: &
|
|
||||||
debug_e, &
|
|
||||||
debug_i, &
|
|
||||||
debug_g, &
|
|
||||||
debug_level, &
|
|
||||||
debug_crystallite, &
|
|
||||||
debug_levelBasic, &
|
|
||||||
debug_levelExtensive, &
|
|
||||||
debug_levelSelective
|
|
||||||
#endif
|
|
||||||
use numerics, only: &
|
use numerics, only: &
|
||||||
rTol_crystalliteState
|
rTol_crystalliteState
|
||||||
use mesh, only: &
|
use mesh, only: &
|
||||||
|
|
Loading…
Reference in New Issue