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

corrected messed up output of grain orientation in t16-file. 

this bug affected at least all calculations done after revision 480 (Dec 18, 2009)
This commit is contained in:
Philip Eisenlohr 2010-02-18 16:09:45 +00:00
parent e9aac0c4af
commit 8c5852dedf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/crystallite.f90
View File

@ -1546,10 +1546,10 @@ function crystallite_postResults(&
c = c+2_pInt c = c+2_pInt
endif endif
if (crystallite_Nresults >= 5) then if (crystallite_Nresults >= 5) then
crystallite_postResults(c+1:c+3) = crystallite_eulerangles(:,i,e,g) ! fake orientation crystallite_postResults(c+1:c+3) = crystallite_eulerangles(:,g,i,e) ! grain orientation
c = c+3_pInt c = c+3_pInt
endif endif
if (crystallite_Nresults >= 14) then ! deformation gradient if (crystallite_Nresults >= 14) then ! deformation gradient 11,12,13,21,...
forall (k=0:2,l=0:2) crystallite_postResults(c+1+k*3+l) = crystallite_partionedF(k+1,l+1,g,i,e) forall (k=0:2,l=0:2) crystallite_postResults(c+1+k*3+l) = crystallite_partionedF(k+1,l+1,g,i,e)
c = c+9_pInt c = c+9_pInt
endif endif