tem_positioninsorted_int Function

private function tem_positioninsorted_int(me, val, lower, upper) result(pos)

return the position of a value in 'me', which is an array with sorted entries. if the value was not found, - return 0 if nextifnotfound = .false. - return position at the end if nextifnotfound = .true.


integer(kind=int_k), intent(in) :: me(:)

array to search in

integer(kind=int_k), intent(in) :: val

value to look for

integer, intent(in), optional :: lower

lower search limit

integer, intent(in), optional :: upper

upper search limit

Return Value integer

position of val in the sorted list, 0 if not found

Called by

proc~~tem_positioninsorted_int~~CalledByGraph proc~tem_positioninsorted_int tem_positioninsorted_int interface~tem_positioninsorted~2 tem_positioninsorted interface~tem_positioninsorted~2->proc~tem_positioninsorted_int



logical, private :: retnext
integer, private :: lb
integer, private :: ub
integer, private :: mid
integer(kind=int_k), private :: lb_val
integer(kind=int_k), private :: ub_val
integer(kind=int_k), private :: mid_val