bracket Subroutine

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

Arguments

Type IntentOptional 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