better use function

2021-01-06 13:37:45 +01:00 · 2021-01-06 13:37:45 +01:00 · 69c11383cf
parent 0f28d8048b
commit 69c11383cf
1 changed files with 1 additions and 1 deletions
--- 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