From 1747c0cc9851ea9de48eb04ddcdf6452c4cee137 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Wed, 25 Apr 2007 13:50:28 +0000
Subject: [PATCH] corrected calculation of constitutive_maxNstatevars

---
 trunk/constitutive.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/trunk/constitutive.f90 b/trunk/constitutive.f90
index 67691048f..57ee1acf3 100644
--- a/trunk/constitutive.f90
+++ b/trunk/constitutive.f90
@@ -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