From 74db2ef06420f05de4307cf484c4e666593b0679 Mon Sep 17 00:00:00 2001 From: Su Leen Wong Date: Tue, 16 Sep 2014 08:02:19 +0000 Subject: [PATCH] Small fix for missing constitutive dislotwin output --- code/constitutive_dislotwin.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90 index 79d5c91b0..5df438b36 100644 --- a/code/constitutive_dislotwin.f90 +++ b/code/constitutive_dislotwin.f90 @@ -769,6 +769,7 @@ subroutine constitutive_dislotwin_init(fileUnit) plasticState(phase)%sizeState = sizeState plasticState(phase)%sizeDotState = sizeDotState + plasticState(phase)%sizePostResults = constitutive_dislotwin_sizePostResults(instance) allocate(plasticState(phase)%aTolState (sizeState), source=0.0_pReal) allocate(plasticState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal) allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)