From 033a6a03b359092cd32741cb9fa8b311d00f0b48 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Wed, 25 Apr 2007 13:58:10 +0000
Subject: [PATCH] determine number of grains as
 texture_Ngrains(mesh_element(4,cp_en)) instead of constitutive_Ngrains (which
 is not used anymore) in CPFEM_stressIP

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

diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90
index 1870d8a54..68cd776a4 100644
--- a/trunk/CPFEM.f90
+++ b/trunk/CPFEM.f90
@@ -169,7 +169,7 @@
  if (updateJaco) CPFEM_jaco_old(:,:,CPFEM_in,cp_en) = 0.0_pReal  ! average consistent tangent
 
 ! -------------- grain loop -----------------
- do grain = 1,constitutive_Ngrains(CPFEM_in,cp_en)
+ do grain = 1,texture_Ngrains(mesh_element(4,cp_en))
 ! -------------------------------------------
 
    i = 0_pInt                         ! cutback counter