From 0cac6ce0d2a2953b5425b149a876b9028ec913ac Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 3 Oct 2018 07:36:57 +0200 Subject: [PATCH] allocating to wrong size --- src/plastic_phenopowerlaw.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index 65fb7c513..e836cb3fa 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -376,7 +376,7 @@ subroutine plastic_phenopowerlaw_init !-------------------------------------------------------------------------------------------------- ! calculate hardening matrices - allocate(temp1(prm%totalNslip,prm%totalNslip),source = 0.0_pReal) + allocate(temp1(prm%totalNslip,prm%totalNtwin),source = 0.0_pReal) allocate(prm%nonSchmid_pos(3,3,prm%totalNslip),source = 0.0_pReal) allocate(prm%nonSchmid_neg(3,3,prm%totalNslip),source = 0.0_pReal) i = 0_pInt