diff --git a/trunk/constitutive_pheno.f90 b/trunk/constitutive_pheno.f90
index f8daf8a4c..3e0d88227 100644
--- a/trunk/constitutive_pheno.f90
+++ b/trunk/constitutive_pheno.f90
@@ -579,8 +579,8 @@ implicit none
 !* Definition of variables
 integer(pInt) e,i,j,k,l,m,o,g,s
 integer(pInt) matID,texID
-integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population
 integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,ODFmap,sampleCount
+real(pReal), dimension(:,:,:), allocatable :: hybridIA_population
 real(pReal), dimension(3,4*(1+texture_maxNGauss+texture_maxNfiber)) :: Euler
 real(pReal), dimension(4*(1+texture_maxNGauss+texture_maxNfiber)) :: texVolfrac
 real(pReal), dimension(texture_maxN) :: sumVolfrac