pLongInt was not used

This commit is contained in:
Martin Diehl 2019-03-06 15:49:31 +01:00
parent c9e7311b42
commit 05eb80d38c
4 changed files with 5 additions and 9 deletions

View File

@ -93,7 +93,7 @@ subroutine CPFEM_init
compiler_options
#endif
use prec, only: &
pInt, pReal, pLongInt
pInt, pReal
use IO, only: &
IO_timeStamp, &
IO_error

View File

@ -755,8 +755,7 @@ end subroutine constitutive_hooke_SandItsTangents
!--------------------------------------------------------------------------------------------------
subroutine constitutive_collectDotState(S, FeArray, Fi, FpArray, subdt, ipc, ip, el)
use prec, only: &
pReal, &
pLongInt
pReal
use debug, only: &
debug_level, &
debug_constitutive, &
@ -896,8 +895,7 @@ end subroutine constitutive_collectDotState
!--------------------------------------------------------------------------------------------------
subroutine constitutive_collectDeltaState(S, Fe, Fi, ipc, ip, el)
use prec, only: &
pReal, &
pLongInt
pReal
use debug, only: &
debug_level, &
debug_constitutive, &

View File

@ -1088,8 +1088,7 @@ logical function integrateStress(&
)
use, intrinsic :: &
IEEE_arithmetic
use prec, only: pLongInt, &
tol_math_check, &
use prec, only: tol_math_check, &
dEq0
use numerics, only: nStress, &
aTol_crystalliteStress, &

View File

@ -8,8 +8,7 @@
module debug
use prec, only: &
pInt, &
pReal, &
pLongInt
pReal
implicit none
private