dcm_shift_tensor2 Subroutine

public subroutine dcm_shift_tensor2(a, dcm, forward, ashift)

Given two frames A and B such that the orientation of frame B with respect to frame A is given by a direction cosine matrix, shifts second-order tesnors 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(3,3) :: dcm

Direction cosine matrix.
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

(3,n). Shifted second-order tensor.