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

made sumVolfrac real also in constitutive_dislo.f90

This commit is contained in:
Franz Roters 2007-11-07 15:02:54 +00:00
parent 56e82e0fe2
commit 8619a92009
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_dislo.f90
View File

@ -574,9 +574,10 @@ integer(pInt) e,i,j,k,l,m,o,g,s
integer(pInt) matID,texID integer(pInt) matID,texID
real(pReal) x,y real(pReal) x,y
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