reinstantiated calculation of grainrotation (still needs check for correctness, i.e. active or passive rotation output)

2011-04-13 16:08:52 +00:00 · 2011-04-13 16:08:52 +00:00 · 349f022100
parent 7d84a0911e
commit 349f022100
1 changed files with 1 additions and 1 deletions
--- 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