points_hull_2d Subroutine

subroutine points_hull_2d(node_num, node_xy, hull_num, hull)

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

POINTS_HULL_2D computes the convex hull of 2D points.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: node_num
real(kind=8) :: node_xy(2,node_num)
integer(kind=4) :: hull_num
integer(kind=4) :: hull(node_num)

Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: angle
real(kind=8), public :: angle_max
real(kind=8), public :: angle_rad_2d
real(kind=8), public :: di
real(kind=8), public :: dr
integer(kind=4), public :: first
integer(kind=4), public :: i
real(kind=8), public :: p_xy(2)
integer(kind=4), public :: q
real(kind=8), public :: q_xy(2)
integer(kind=4), public :: r
real(kind=8), public :: r_xy(2)