diff --git a/src/constitutive.f90 b/src/constitutive.f90 index e5dc6a1cc..b51ba27bf 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -882,7 +882,7 @@ subroutine constitutive_collectDotState(S, FeArray, Fi, FpArray, subdt, subfracA case (PLASTICITY_NONLOCAL_ID) plasticityType call plastic_nonlocal_dotState (Mp,FeArray,FpArray,temperature(ho)%p(tme), & - subdt,subfracArray,ip,el) + subdt,ip,el) end select plasticityType SourceLoop: do i = 1_pInt, phase_Nsources(material_phase(ipc,ip,el)) diff --git a/src/plastic_nonlocal.f90 b/src/plastic_nonlocal.f90 index f0abdc179..8bac6f7a3 100644 --- a/src/plastic_nonlocal.f90 +++ b/src/plastic_nonlocal.f90 @@ -1646,7 +1646,7 @@ end subroutine plastic_nonlocal_deltaState !> @brief calculates the rate of change of microstructure !--------------------------------------------------------------------------------------------------- subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, & - timestep,subfrac, ip,el) + timestep,ip,el) use, intrinsic :: & IEEE_arithmetic use prec, only: dNeq0, &