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

Type	Intent	Optional	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

Contents

Variables

retnext lb ub mid lb_val ub_val mid_val

Variables

Type	Visibility	Attributes		Name		Initial
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