changed hybridIA_population from being wrong integer type to correct real

type.
This commit is contained in:
Philip Eisenlohr 2008-07-16 16:35:13 +00:00
parent bdcf76cd74
commit 6abff4b3ba
1 changed files with 1 additions and 1 deletions

View File

@ -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