perm_inverse Subroutine

subroutine perm_inverse(n, p)

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

PERM_INVERSE inverts a permutation "in place".

Arguments

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

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	i
integer(kind=4),	public		::	i0
integer(kind=4),	public		::	i1
integer(kind=4),	public		::	i2
integer(kind=4),	public		::	ierror
integer(kind=4),	public		::	is