quad_convex_random Subroutine

subroutine quad_convex_random(seed, xy)

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

QUAD_CONVEX_RANDOM returns a random convex quadrilateral.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	seed
real(kind=8)				::	xy(2,node_num)

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=4),	public		::	hull(node_num)
integer(kind=4),	public		::	hull_num
integer(kind=4),	public		::	j
integer(kind=4),	public,	parameter	::	node_num	=	4
real(kind=8),	public		::	xy_random(2,node_num)