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

reverted back to r 3644 to get rid of buggy behavior

This commit is contained in:
Martin Diehl 2014-10-31 10:39:02 +00:00
parent ad4bd86fd2
commit 629ff8bdef
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/material.f90
View File

@ -1261,9 +1261,8 @@ subroutine material_populateGrains
textureOfGrain = 0_pInt textureOfGrain = 0_pInt
orientationOfGrain = 0.0_pReal orientationOfGrain = 0.0_pReal
grain = 0_pInt
texture: do i = 1_pInt,myNconstituents ! loop over constituents texture: do i = 1_pInt,myNconstituents ! loop over constituents
grain = grain + NgrainsOfConstituent(i-1_pInt) ! set microstructure grain index of current constituent grain = sum(NgrainsOfConstituent(1_pInt:i-1_pInt)) ! set microstructure grain index of current constituent
! "grain" points to start of this constituent's grain population ! "grain" points to start of this constituent's grain population
constituentGrain = 0_pInt ! constituent grain index constituentGrain = 0_pInt ! constituent grain index