From 8c5852dedf944fb9e097be4c4d43fc4bdfb9bb12 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 18 Feb 2010 16:09:45 +0000 Subject: [PATCH] corrected messed up output of grain orientation in t16-file. this bug affected at least all calculations done after revision 480 (Dec 18, 2009) --- code/crystallite.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index a493bad6f..a9f4a7d14 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -1546,10 +1546,10 @@ function crystallite_postResults(& c = c+2_pInt endif 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 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) c = c+9_pInt endif