From 7b9d76cdcc03bf082fe321737b6c0ed4fee975f2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 17 Dec 2013 08:02:21 +0000 Subject: [PATCH] added missing allocation of outputID caused crashing --- code/constitutive_nonlocal.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 9350e02b9..f767f1fea 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -382,7 +382,7 @@ allocate(constitutive_nonlocal_sizePostResult(maxval(phase_Noutput), maxNmatIDs) allocate(Noutput(maxNmatIDs), source=0_pInt) allocate(constitutive_nonlocal_output(maxval(phase_Noutput), maxNmatIDs)) constitutive_nonlocal_output = '' - +allocate(constitutive_nonlocal_outputID(maxval(phase_Noutput), maxNmatIDs), source=undefined_ID) allocate(constitutive_nonlocal_structureID(maxNmatIDs), source=LATTICE_undefined_ID) allocate(constitutive_nonlocal_structure(maxNmatIDs), source=0_pInt) allocate(Nslip(lattice_maxNslipFamily,maxNmatIDs), source=0_pInt)