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

fixed stupidity in hybridIA evaluation. added informative output during 

ODF parsing.
This commit is contained in:
Philip Eisenlohr 2008-07-16 14:49:17 +00:00
parent 7a7a5d2ae3
commit bdcf76cd74
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
trunk/constitutive_pheno.f90
View File

@ -358,7 +358,7 @@ do while(.true.)
else else
if (section>0) then if (section>0) then
select case(tag) select case(tag)
case ('hybridIA') case ('hybridia')
texture_ODFfile(section)=IO_stringValue(line,positions,2) texture_ODFfile(section)=IO_stringValue(line,positions,2)
case ('(gauss)') case ('(gauss)')
gaussCount=gaussCount+1 gaussCount=gaussCount+1
@ -634,8 +634,12 @@ enddo
! generate hybridIA samplings for ODFfile textures to later draw from these populations ! generate hybridIA samplings for ODFfile textures to later draw from these populations
allocate(hybridIA_population(3,maxval(texture_totalNgrains/Nsym,ODFmap /= 0),o)) allocate(hybridIA_population(3,maxval(texture_totalNgrains/Nsym,ODFmap /= 0),o))
do texID = 1,texture_maxN do texID = 1,texture_maxN
if (ODFmap(texID) > 0) & if (ODFmap(texID) > 0) then
!$OMP CRITICAL (write2out)
write (6,*) 'hybridIA',texture_totalNgrains(texID)/Nsym(texID),texture_ODFfile(texID)
!$OMP END CRITICAL (write2out)
hybridIA_population(:,:,ODFmap(texID)) = IO_hybridIA(texture_totalNgrains(texID)/Nsym(texID),texture_ODFfile(texID)) hybridIA_population(:,:,ODFmap(texID)) = IO_hybridIA(texture_totalNgrains(texID)/Nsym(texID),texture_ODFfile(texID))
endif
enddo enddo
!* Array allocation !* Array allocation