quat_shift_tensor3 Subroutine

public subroutine quat_shift_tensor3(a, q, forward, ashift)

Given two frames A and B such that the orientation of frame B with respect to frame A is given by a unit quaternion, shifts third-order tensors from A to B or B to A.

Arguments

Type IntentOptional Attributes Name
real(kind=rp), intent(in), dimension(3,3,3) :: a

A third-order tensor.
real(kind=rp), intent(in), dimension(4) :: q

Unit quaternion.
logical, intent(in) :: forward

If .true., shift from A to B. If .false., shift from B to A.
real(kind=rp), intent(out), dimension(3,3,3) :: ashift

Shifted third-order tensor.