ArrayToTens4OS2D Subroutine

public subroutine ArrayToTens4OS2D(T, A)

Arguments

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