tem_positioninsorted_long Function

private function tem_positioninsorted_long(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.

Arguments

TypeIntentOptionalAttributesName
integer(kind=long_k), intent(in) :: me(:)

array to search in

integer(kind=long_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_long~~CalledByGraph proc~tem_positioninsorted_long tem_positioninsorted_long interface~tem_positioninsorted tem_positioninsorted interface~tem_positioninsorted->proc~tem_positioninsorted_long

Contents


Variables

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