Skip to content

fossil_arrangement

Source: src/lib/fossil_arrangement.f90

Dependencies

Contents

Variables

NameTypeAttributesDescription
MAX_CHILDRENinteger(kind=I4P)parameter
ARR_STATUS_OKinteger(kind=I4P)parameter
ARR_STATUS_CDT_FAILEDinteger(kind=I4P)parameter

Derived Types

cut_list_t

Components

NameTypeAttributesDescription
n_segmentsinteger(kind=I4P)
pointtype(vector_R8P)allocatable

arrangement_t

Components

NameTypeAttributesDescription
n_ainteger(kind=I4P)
n_binteger(kind=I4P)
facettype(facet_object)allocatable
ownerinteger(kind=I4P)allocatable
cuttype(cut_list_t)allocatable
tree_atype(aabb_tree_object)pointer
tree_btype(aabb_tree_object)pointer

Subroutines

arrangement_initialize

fortran
subroutine arrangement_initialize(arr, facet_a, tree_a, facet_b, tree_b)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)out
facet_atype(facet_object)intarget
tree_atype(aabb_tree_object)intarget
facet_btype(facet_object)intarget
tree_btype(aabb_tree_object)intarget

Call graph

arrangement_collect_intersections

fortran
subroutine arrangement_collect_intersections(arr)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)inout

Call graph

collect_brute_force

fortran
subroutine collect_brute_force(arr)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)inout

Call graph

traverse_cross_pair

Attributes: recursive

fortran
subroutine traverse_cross_pair(arr, na, nb)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)inout
nainteger(kind=I4P)in
nbinteger(kind=I4P)in

Call graph

enumerate_leaf_cross_pair

fortran
subroutine enumerate_leaf_cross_pair(arr, na, nb)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)inout
nainteger(kind=I4P)in
nbinteger(kind=I4P)in

Call graph

append_segment

fortran
subroutine append_segment(cut, p, q)

Arguments

NameTypeIntentAttributesDescription
cuttype(cut_list_t)inout
ptype(vector_R8P)in
qtype(vector_R8P)in

Call graph

project_to_plane

Attributes: pure

fortran
subroutine project_to_plane(facet, p3d, u, v)

Arguments

NameTypeIntentAttributesDescription
facettype(facet_object)in
p3dtype(vector_R8P)in
ureal(kind=R8P)out
vreal(kind=R8P)out

Call graph

lift_from_plane

Attributes: pure

fortran
subroutine lift_from_plane(facet, u, v, p3d)

Arguments

NameTypeIntentAttributesDescription
facettype(facet_object)in
ureal(kind=R8P)in
vreal(kind=R8P)in
p3dtype(vector_R8P)out

Call graph

arrangement_retriangulate

fortran
subroutine arrangement_retriangulate(arr, sub_facet, sub_owner, sub_source, status)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)in
sub_facettype(facet_object)outallocatable
sub_ownerinteger(kind=I4P)outallocatable
sub_sourceinteger(kind=I4P)outallocatable
statusinteger(kind=I4P)outoptional

Call graph

build_subfacet_from_uv

fortran
subroutine build_subfacet_from_uv(arr, gi, pts2d, sub_v, buf_facet, buf_owner, buf_source, used, cap)

Arguments

NameTypeIntentAttributesDescription
arrtype(arrangement_t)in
giinteger(kind=I4P)in
pts2dreal(kind=R8P)in
sub_vinteger(kind=I4P)in
buf_facettype(facet_object)inoutallocatable
buf_ownerinteger(kind=I4P)inoutallocatable
buf_sourceinteger(kind=I4P)inoutallocatable
usedinteger(kind=I4P)inout
capinteger(kind=I4P)inout

Call graph

push

fortran
subroutine push(buf_facet, buf_owner, buf_source, used, cap, f, owner, source)

Arguments

NameTypeIntentAttributesDescription
buf_facettype(facet_object)inoutallocatable
buf_ownerinteger(kind=I4P)inoutallocatable
buf_sourceinteger(kind=I4P)inoutallocatable
usedinteger(kind=I4P)inout
capinteger(kind=I4P)inout
ftype(facet_object)in
ownerinteger(kind=I4P)in
sourceinteger(kind=I4P)in

Call graph

Functions

bboxes_overlap

Attributes: pure

Returns: logical

fortran
function bboxes_overlap(fa, fb) result(yes)

Arguments

NameTypeIntentAttributesDescription
fatype(facet_object)in
fbtype(facet_object)in

Call graph

find_or_append_2d

Returns: integer(kind=I4P)

fortran
function find_or_append_2d(pts2d, n_pts, x, y) result(idx)

Arguments

NameTypeIntentAttributesDescription
pts2dreal(kind=R8P)inout
n_ptsinteger(kind=I4P)inout
xreal(kind=R8P)in
yreal(kind=R8P)in

Call graph