missing range in array fixed

This commit is contained in:
Martin Diehl 2013-01-09 14:43:27 +00:00
parent 093cf92338
commit 00246ade4e
1 changed files with 1 additions and 1 deletions

View File

@ -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