aa_shift_tensor3 Subroutine

public subroutine aa_shift_tensor3(a, axis, angle, forward, ashift)

Given two frames A and B such that the orientation of frame B with respect to frame A is given by an axis-angle representation, shifts third-order tensors from A to B or B to A.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in),		dimension(3,3,3)	::	a	Third-order tensor
real(kind=rp),	intent(in),		dimension(3)	::	axis	Unit vector along the axis.
real(kind=rp),	intent(in)			::	angle	Angle of rotation in radian. 0 <= angle < pi.
logical,	intent(in),	optional		::	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.