mbtr Function

public function mbtr(uax1, uax2, uax3) result(b2r)

calculate martix from magnetic to polar spheric coordinates

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	uax1(3)
real(kind=real64),	intent(in)			::	uax2(3)
real(kind=real64),	intent(in)			::	uax3(3)

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