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 compiler_options
#endif #endif
use prec, only: & use prec, only: &
pInt, pReal, pLongInt pInt, pReal
use IO, only: & use IO, only: &
IO_timeStamp, & IO_timeStamp, &
IO_error IO_error

View File

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

View File

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

View File

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