r8vec_eq Function

function r8vec_eq(n, a1, a2)

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

R8VEC_EQ is true if two R8VEC's are equal.

Arguments

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

Return Value logical