diff --git a/src/rotations.f90 b/src/rotations.f90 index 73f8a16a1..57dd16b53 100644 --- a/src/rotations.f90 +++ b/src/rotations.f90 @@ -401,7 +401,7 @@ pure elemental function misorientation(self,other) type(rotation) :: misorientation class(rotation), intent(in) :: self, other - misorientation%q = multiply_quaternion(other%q, [self%q(1),-self%q(2:4)]) + misorientation%q = multiply_quaternion(other%q, conjugate_quaternion(self%q)) end function misorientation