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