sort Subroutine

public recursive subroutine sort(a, b, coordx, coordy, coordz, left, right)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),		dimension(:)	::	b
real(kind=rp),	intent(inout),		dimension(:)	::	coordx
real(kind=rp),	intent(inout),		dimension(:)	::	coordy
real(kind=rp),	intent(inout),		dimension(:)	::	coordz
integer,	intent(in)			::	left
integer,	intent(in)			::	right