From 56e82e0fe2116a60b54a026152280c74b6f71d4d Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 6 Nov 2007 11:21:46 +0000 Subject: [PATCH] changed sumVolfrac to real --- trunk/constitutive_pheno.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/trunk/constitutive_pheno.f90 b/trunk/constitutive_pheno.f90 index 056a87ea4..e0034570d 100644 --- a/trunk/constitutive_pheno.f90 +++ b/trunk/constitutive_pheno.f90 @@ -551,9 +551,10 @@ implicit none 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,sumVolfrac,ODFmap,sampleCount +integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,ODFmap,sampleCount 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 ! process textures o = 0_pInt ! ODF counter