swapec – GEOMPACK

subroutine swapec(i, top, btri, bedg, node_num, node_xy, triangle_num, triangle_node, triangle_neighbor, stack, ierr)

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

SWAPEC swaps diagonal edges until all triangles are Delaunay.

Type		Name
integer(kind=4)	::	i
integer(kind=4)	::	top
integer(kind=4)	::	btri
integer(kind=4)	::	bedg
integer(kind=4)	::	node_num
real(kind=8)	::	node_xy(2,node_num)
integer(kind=4)	::	triangle_num
integer(kind=4)	::	triangle_node(3,triangle_num)
integer(kind=4)	::	triangle_neighbor(3,triangle_num)
integer(kind=4)	::	stack(node_num)
integer(kind=4)	::	ierr

Type	Visibility		Name
integer(kind=4),	public	::	a
integer(kind=4),	public	::	b
integer(kind=4),	public	::	c
integer(kind=4),	public	::	diaedg
integer(kind=4),	public	::	e
integer(kind=4),	public	::	ee
integer(kind=4),	public	::	em1
integer(kind=4),	public	::	ep1
integer(kind=4),	public	::	f
integer(kind=4),	public	::	fm1
integer(kind=4),	public	::	fp1
integer(kind=4),	public	::	i4_wrap
integer(kind=4),	public	::	l
integer(kind=4),	public	::	r
integer(kind=4),	public	::	s
integer(kind=4),	public	::	swap
integer(kind=4),	public	::	t
integer(kind=4),	public	::	tt
integer(kind=4),	public	::	u
real(kind=8),	public	::	x
real(kind=8),	public	::	y