vbedg Subroutine

subroutine vbedg(x, y, node_num, node_xy, triangle_num, triangle_node, triangle_neighbor, ltri, ledg, rtri, redg)

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

VBEDG determines which boundary edges are visible to a point.

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
real(kind=8) :: y
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) :: ltri
integer(kind=4) :: ledg
integer(kind=4) :: rtri
integer(kind=4) :: redg

Variables

Type Visibility Attributes Name Initial
integer(kind=4), public :: a
integer(kind=4), public :: b
integer(kind=4), public, parameter :: dim_num = 2
integer(kind=4), public :: e
integer(kind=4), public :: i4_wrap
integer(kind=4), public :: l
logical, public :: ldone
integer(kind=4), public :: lr
integer(kind=4), public :: lrline
integer(kind=4), public :: t