quat_shift_tensor2 Subroutine

public subroutine quat_shift_tensor2(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 second-order tensors from A to B or B to A.

Arguments

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

A second-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) :: ashift

Shifted second-order tensor.