r82vec_permute Subroutine

subroutine r82vec_permute(n, a, p)

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

R82VEC_PERMUTE permutes an R82VEC in place.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	a(2,n)
integer(kind=4)				::	p(n)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	a_temp(2)
integer(kind=4),	public		::	ierror
integer(kind=4),	public		::	iget
integer(kind=4),	public		::	iput
integer(kind=4),	public		::	istart