fossil_vertex_pool_object

Source: src/lib/fossil_vertex_pool_object.f90

Dependencies

Contents

• vertex_pool_object
• initialize_from_facets
• build_via_union_find
• build_via_spatial_hash
• build_inverted_index
• facets_at
• destroy
• finalize
• uf_union
• find_or_insert
• pack_bucket_key
• bucket_index
• eps_match_scalar
• vertex_count
• facets_count
• coord
• facet_vid
• facets_at_count
• get_is_initialized
• vertices_eps_match
• uf_find

Derived Types

vertex_pool_object

Components

Name	Type	Attributes	Description
coord_	type(vector_R8P)	allocatable
facet_to_pool	integer(kind=I4P)	allocatable
at_offset	integer(kind=I4P)	allocatable
at_pairs	integer(kind=I4P)	allocatable
n_vertices	integer(kind=I4P)
n_facets	integer(kind=I4P)
is_initialized	logical

Type-Bound Procedures

Name	Attributes	Description
initialize_from_facets	pass(self)
vertex_count	pass(self)
facets_count	pass(self)
coord	pass(self)
facet_vid	pass(self)
facets_at_count	pass(self)
facets_at	pass(self)
get_is_initialized	pass(self)
destroy	pass(self)

Subroutines

initialize_from_facets

subroutine initialize_from_facets(self, facet, status, use_union_find)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	inout
facet	type(facet_object)	in
status	integer(kind=I4P)	out	optional
use_union_find	logical	in	optional

Call graph

build_via_union_find

subroutine build_via_union_find(self, facet, istat)

Arguments

Name	Type	Intent	Attributes	Description
self	type(vertex_pool_object)	inout
facet	type(facet_object)	in
istat	integer(kind=I4P)	out

Call graph

build_via_spatial_hash

subroutine build_via_spatial_hash(self, facet, istat)

Arguments

Name	Type	Intent	Attributes	Description
self	type(vertex_pool_object)	inout
facet	type(facet_object)	in
istat	integer(kind=I4P)	out

Call graph

build_inverted_index

subroutine build_inverted_index(self, istat)

Arguments

Name	Type	Intent	Attributes	Description
self	type(vertex_pool_object)	inout
istat	integer(kind=I4P)	out

Call graph

facets_at

Attributes: pure

subroutine facets_at(self, vid, k, facet_id, local_v)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in
vid	integer(kind=I4P)	in
k	integer(kind=I4P)	in
facet_id	integer(kind=I4P)	out
local_v	integer(kind=I4P)	out

Call graph

destroy

Attributes: pure

subroutine destroy(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	inout

Call graph

finalize

subroutine finalize(self)

Arguments

Name	Type	Intent	Attributes	Description
self	type(vertex_pool_object)	inout

Call graph

uf_union

subroutine uf_union(a, b, parent, rank_)

Arguments

Name	Type	Intent	Attributes	Description
a	integer(kind=I4P)	in
b	integer(kind=I4P)	in
parent	integer(kind=I4P)	inout
rank_	integer(kind=I4P)	inout

Call graph

Functions

find_or_insert

Returns: integer(kind=I4P)

function find_or_insert(vx, vy, vz, ix, iy, iz, pid, cap, coord_buf, next_in_chain, tab_key, tab_head, mask, istat) result(out_pid)

Arguments

Name	Type	Intent	Attributes	Description
vx	real(kind=R8P)	in
vy	real(kind=R8P)	in
vz	real(kind=R8P)	in
ix	integer(kind=I4P)	in
iy	integer(kind=I4P)	in
iz	integer(kind=I4P)	in
pid	integer(kind=I4P)	inout
cap	integer(kind=I4P)	inout
coord_buf	type(vector_R8P)	inout	allocatable
next_in_chain	integer(kind=I4P)	inout	allocatable
tab_key	integer(kind=I8P)	inout
tab_head	integer(kind=I4P)	inout
mask	integer(kind=I4P)	in
istat	integer(kind=I4P)	out

Call graph

pack_bucket_key

Attributes: pure

Returns: integer(kind=I8P)

function pack_bucket_key(ix, iy, iz) result(key)

Arguments

Name	Type	Intent	Attributes	Description
ix	integer(kind=I4P)	in
iy	integer(kind=I4P)	in
iz	integer(kind=I4P)	in

Call graph

bucket_index

Attributes: pure

Returns: integer(kind=I4P)

function bucket_index(key, mask) result(slot)

Arguments

Name	Type	Intent	Attributes	Description
key	integer(kind=I8P)	in
mask	integer(kind=I4P)	in

Call graph

eps_match_scalar

Attributes: pure

Returns: logical

function eps_match_scalar(vx, vy, vz, b) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
vx	real(kind=R8P)	in
vy	real(kind=R8P)	in
vz	real(kind=R8P)	in
b	type(vector_R8P)	in

Call graph

vertex_count

Attributes: pure

Returns: integer(kind=I4P)

function vertex_count(self) result(n)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in

Call graph

facets_count

Attributes: pure

Returns: integer(kind=I4P)

function facets_count(self) result(n)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in

coord

Attributes: pure

Returns: type(vector_R8P)

function coord(self, vid) result(v)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in
vid	integer(kind=I4P)	in

facet_vid

Attributes: pure

Returns: integer(kind=I4P)

function facet_vid(self, facet_id, local_v) result(vid)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in
facet_id	integer(kind=I4P)	in
local_v	integer(kind=I4P)	in

Call graph

facets_at_count

Attributes: pure

Returns: integer(kind=I4P)

function facets_at_count(self, vid) result(n)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in
vid	integer(kind=I4P)	in

Call graph

get_is_initialized

Attributes: pure

Returns: logical

function get_is_initialized(self) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
self	class(vertex_pool_object)	in

Call graph

vertices_eps_match

Attributes: pure

Returns: logical

function vertices_eps_match(a, b) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
a	type(vector_R8P)	in
b	type(vector_R8P)	in

Call graph

uf_find

Attributes: pure

Returns: integer(kind=I4P)

function uf_find(x, parent) result(root)

Arguments

Name	Type	Intent	Attributes	Description
x	integer(kind=I4P)	in
parent	integer(kind=I4P)	in

Call graph