corrected calculation of constitutive_maxNstatevars

This commit is contained in:
Franz Roters 2007-04-25 13:50:28 +00:00
parent 03f244995e
commit 1747c0cc98
1 changed files with 1 additions and 1 deletions

View File

@ -777,7 +777,7 @@ enddo
!* publish globals
constitutive_maxNgrains = maxval(texture_Ngrains)
constitutive_maxNstatevars = material_maxNslip + 0_pInt
constitutive_maxNstatevars = maxval(material_Nslip) + 0_pInt
constitutive_maxNresults = 1_pInt