mxptr Function

public function mxptr(gm) result(xptr)

calculate matrix for xyz' ellipsoid coordinate Kwon to spheric

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	gm

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