not needed
This commit is contained in:
parent
da8a1d5973
commit
beb73c7882
|
@ -882,7 +882,7 @@ subroutine constitutive_collectDotState(S, FeArray, Fi, FpArray, subdt, subfracA
|
||||||
|
|
||||||
case (PLASTICITY_NONLOCAL_ID) plasticityType
|
case (PLASTICITY_NONLOCAL_ID) plasticityType
|
||||||
call plastic_nonlocal_dotState (Mp,FeArray,FpArray,temperature(ho)%p(tme), &
|
call plastic_nonlocal_dotState (Mp,FeArray,FpArray,temperature(ho)%p(tme), &
|
||||||
subdt,subfracArray,ip,el)
|
subdt,ip,el)
|
||||||
end select plasticityType
|
end select plasticityType
|
||||||
|
|
||||||
SourceLoop: do i = 1_pInt, phase_Nsources(material_phase(ipc,ip,el))
|
SourceLoop: do i = 1_pInt, phase_Nsources(material_phase(ipc,ip,el))
|
||||||
|
|
|
@ -1646,7 +1646,7 @@ end subroutine plastic_nonlocal_deltaState
|
||||||
!> @brief calculates the rate of change of microstructure
|
!> @brief calculates the rate of change of microstructure
|
||||||
!---------------------------------------------------------------------------------------------------
|
!---------------------------------------------------------------------------------------------------
|
||||||
subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
|
subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
|
||||||
timestep,subfrac, ip,el)
|
timestep,ip,el)
|
||||||
use, intrinsic :: &
|
use, intrinsic :: &
|
||||||
IEEE_arithmetic
|
IEEE_arithmetic
|
||||||
use prec, only: dNeq0, &
|
use prec, only: dNeq0, &
|
||||||
|
|
Loading…
Reference in New Issue