diff --git a/src/material.f90 b/src/material.f90 index 291b73910..49ee38ee3 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -999,7 +999,7 @@ subroutine material_allocateSourceState(phase,of,NofMyPhase,& if (numerics_integrator == 5_pInt) & allocate(sourceState(phase)%p(of)%RKCK45dotState (6,sizeDotState,NofMyPhase), source=0.0_pReal) - allocate(plasticState(phase)%deltaState (sizeDeltaState,NofMyPhase), source=0.0_pReal) + allocate(sourceState(phase)%p(of)%deltaState (sizeDeltaState,NofMyPhase), source=0.0_pReal) end subroutine material_allocateSourceState