r8vec_swap Subroutine

subroutine r8vec_swap(n, a1, a2)

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

R8VEC_SWAP swaps the entries of two R8VEC's.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	a1(n)
real(kind=8)				::	a2(n)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	a3(n)