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

Polishing 

Modify
       texture: do i = 1_pInt,myNconstituents
         grain            = sum(NgrainsOfConstituent(1_pInt:i-1_pInt))
as:
       grain = 0_pInt
       texture: do i = 1_pInt,myNconstituents
         grain            = grain + NgrainsOfConstituent(i-1_pInt)

First try of developing DAMASK, :)
This commit is contained in:
Haiming Zhang 2014-10-30 09:51:06 +00:00
parent a7a6ee6cff
commit ad4bd86fd2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/material.f90
View File

@ -1261,8 +1261,9 @@ 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 = sum(NgrainsOfConstituent(1_pInt:i-1_pInt)) ! set microstructure grain index of current constituent grain = grain + NgrainsOfConstituent(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