perm_check Subroutine

subroutine perm_check(n, p, ierror)

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

PERM_CHECK checks that a vector represents a permutation.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
integer(kind=4)				::	p(n)
integer(kind=4)				::	ierror

Variables

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