From ac3625afbafe8b3c6312013976daf449d2463eff Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 12 Sep 2018 20:42:57 +0200 Subject: [PATCH] array access out of bounds --- src/plastic_dislotwin.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index e5c7c48f0..d840e19c4 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -399,9 +399,10 @@ subroutine plastic_dislotwin_init(fileUnit) prm%lamellarsizePerTransSystem = config_phase(p)%getFloats('lamellarsize') prm%lamellarsizePerTransSystem = math_expand(prm%lamellarsizePerTransSystem,prm%Ntrans) prm%s = config_phase(p)%getFloats('s_trans',defaultVal=[0.0_pReal]) + prm%s = math_expand(prm%s,prm%Ntrans) endif - if (sum(prm%Ntwin) > 0_pInt .or. sum(prm%Ntrans) > 0_pInt) then + if (sum(prm%Ntwin) > 0_pInt .or. prm%totalNtrans > 0_pInt) then prm%SFE_0K = config_phase(p)%getFloat('sfe_0k') prm%dSFE_dT = config_phase(p)%getFloat('dsfe_dt') prm%VcrossSlip = config_phase(p)%getFloat('vcrossslip')