From 00246ade4ee9c1fc9cb776124056b0ba10147c70 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 9 Jan 2013 14:43:27 +0000 Subject: [PATCH] missing range in array fixed --- code/constitutive_phenopowerlaw.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90 index 0e0934c8f..3599a479a 100644 --- a/code/constitutive_phenopowerlaw.f90 +++ b/code/constitutive_phenopowerlaw.f90 @@ -605,7 +605,7 @@ pure function constitutive_phenopowerlaw_homogenizedC(state,ipc,ip,el) state ! state variables matID = phase_plasticityInstance(material_phase(ipc,ip,el)) - constitutive_phenopowerlaw_homogenizedC = constitutive_phenopowerlaw_Cslip_66(6,6,matID) + constitutive_phenopowerlaw_homogenizedC = constitutive_phenopowerlaw_Cslip_66(1:6,1:6,matID) end function constitutive_phenopowerlaw_homogenizedC