r8tris2 Subroutine

subroutine r8tris2(node_num, node_xy, triangle_num, triangle_node, triangle_neighbor)

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

R8TRIS2 constructs a Delaunay triangulation of 2D vertices.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: node_num
real(kind=8) :: node_xy(2,node_num)
integer(kind=4) :: triangle_num
integer(kind=4) :: triangle_node(3,node_num*2)
integer(kind=4) :: triangle_neighbor(3,node_num*2)

Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: cmax
integer(kind=4), public :: e
integer(kind=4), public :: i
integer(kind=4), public :: ierr
integer(kind=4), public :: indx(node_num)
integer(kind=4), public :: j
integer(kind=4), public :: k
integer(kind=4), public :: l
integer(kind=4), public :: ledg
integer(kind=4), public :: lr
integer(kind=4), public :: lrline
integer(kind=4), public :: ltri
integer(kind=4), public :: m
integer(kind=4), public :: m1
integer(kind=4), public :: m2
integer(kind=4), public :: n
integer(kind=4), public :: redg
integer(kind=4), public :: rtri
integer(kind=4), public :: stack(node_num)
integer(kind=4), public :: t
real(kind=8), public :: tol
integer(kind=4), public :: top