pLongInt was not used
This commit is contained in:
parent
c9e7311b42
commit
05eb80d38c
|
@ -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
|
||||
|
|
|
@ -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, &
|
||||
|
|
|
@ -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, &
|
||||
|
|
|
@ -8,8 +8,7 @@
|
|||
module debug
|
||||
use prec, only: &
|
||||
pInt, &
|
||||
pReal, &
|
||||
pLongInt
|
||||
pReal
|
||||
|
||||
implicit none
|
||||
private
|
||||
|
|
Loading…
Reference in New Issue