better readable

This commit is contained in:
Martin Diehl 2019-01-29 05:16:56 +01:00
parent 1e4da6fbdb
commit 4a69032637
1 changed files with 4 additions and 15 deletions

View File

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