From 349f0221005333130d64338762afdbe1e60efea3 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 13 Apr 2011 16:08:52 +0000 Subject: [PATCH] reinstantiated calculation of grainrotation (still needs check for correctness, i.e. active or passive rotation output) --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index bc161940a..df8bb1346 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -2936,7 +2936,7 @@ logical error orientation = math_RtoQuaternion(transpose(R)) endif crystallite_rotation(1:4,g,i,e) = math_QuaternionDisorientation(math_qConj(orientation), & - math_qConj(orientation), & + math_qConj(crystallite_orientation0(1:4,g,i,e)), & 0_pInt ) ! we don't want symmetry here crystallite_orientation(1:4,g,i,e) = orientation enddo