223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

changed sumVolfrac to real

This commit is contained in:
Franz Roters 2007-11-06 11:21:46 +00:00
parent d94f6c80de
commit 56e82e0fe2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
trunk/constitutive_pheno.f90
View File

@ -551,9 +551,10 @@ implicit none
integer(pInt) e,i,j,k,l,m,o,g,s integer(pInt) e,i,j,k,l,m,o,g,s
integer(pInt) matID,texID integer(pInt) matID,texID
integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population 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(3,4*(1+texture_maxNGauss+texture_maxNfiber)) :: Euler
real(pReal), dimension(4*(1+texture_maxNGauss+texture_maxNfiber)) :: texVolfrac real(pReal), dimension(4*(1+texture_maxNGauss+texture_maxNfiber)) :: texVolfrac
real(pReal), dimension(texture_maxN) :: sumVolfrac
! process textures ! process textures
o = 0_pInt ! ODF counter o = 0_pInt ! ODF counter