dcm_shift_vectors Subroutine

public subroutine dcm_shift_vectors(v, dcm, forward, vshift)

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 vectors from A to B or B to A.

Arguments

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

(3,n). Vectors to shift.
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(:,:) :: vshift

(3,n). Shifted vectors.