r8vec_gt Function

function r8vec_gt(n, a1, a2)

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

R8VEC_GT == ( A1 > A2 ) for R8VEC's.

Arguments

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

Return Value logical

Variables

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