ArrayToTens4OS3D Subroutine

public subroutine ArrayToTens4OS3D(T, A)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tens4OS3D),	intent(out)			::	T
real(kind=C_DOUBLE),	intent(in),		dimension(6, 6)	::	A