mrtx Function

public function mrtx(sintheta, costheta, sinphi, cosphi)

calculate martix from polar spheric to xyz coordinates

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	sintheta
real(kind=real64),	intent(in)			::	costheta
real(kind=real64),	intent(in)			::	sinphi
real(kind=real64),	intent(in)			::	cosphi

Return Value real(kind=real64), (3,3)