bracket Subroutine

private subroutine bracket(x, xval, left, right)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:)	::	x
real(kind=r_2),	intent(in),		DIMENSION(:)	::	xval
integer(kind=i_d),	intent(out),		DIMENSION(SIZE(xval))	::	left
integer(kind=i_d),	intent(out),		DIMENSION(SIZE(xval))	::	right