From ad0ed4fdec46f7d96767269ee65a6210f8083fbd Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 22 Feb 2019 21:06:37 +0100 Subject: [PATCH] bugfix: wrong state was allocated --- src/material.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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