From 8619a92009ab9588eaedaf7538040f698065ea64 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Wed, 7 Nov 2007 15:02:54 +0000 Subject: [PATCH] made sumVolfrac real also in constitutive_dislo.f90 --- trunk/constitutive_dislo.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/trunk/constitutive_dislo.f90 b/trunk/constitutive_dislo.f90 index d74c55a16..fa4fc3ce2 100644 --- a/trunk/constitutive_dislo.f90 +++ b/trunk/constitutive_dislo.f90 @@ -574,9 +574,10 @@ integer(pInt) e,i,j,k,l,m,o,g,s integer(pInt) matID,texID real(pReal) x,y 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