tem_positioninsorted Interface

public interface tem_positioninsorted

Calls

interface~~tem_positioninsorted~~CallsGraph interface~tem_positioninsorted tem_positioninsorted proc~tem_positioninsorted_long tem_positioninsorted_long interface~tem_positioninsorted->proc~tem_positioninsorted_long

Module Procedures

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

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