i4vec_sorted_unique Subroutine

subroutine i4vec_sorted_unique(n, a, nuniq)

************80

I4VEC_SORTED_UNIQUE finds the unique elements in a sorted I4VEC.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
integer(kind=4)				::	a(n)
integer(kind=4)				::	nuniq

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	itest