Appearance
fossil_winding_number
Source: src/lib/fossil_winding_number.f90
Dependencies
Contents
Variables
| Name | Type | Attributes | Description |
|---|---|---|---|
FOUR_PI | real(kind=R8P) | parameter | |
DEFAULT_BETA | real(kind=R8P) | parameter | |
MAX_CHILDREN | integer(kind=I4P) | parameter |
Derived Types
dipole_cache_t
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
centre | type(vector_R8P) | ||
dipole | type(vector_R8P) | ||
diag2 | real(kind=R8P) | ||
ready | logical |
Subroutines
build_cache
Attributes: recursive
fortran
subroutine build_cache(facet, tree, n, cache)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
facet | type(facet_object) | in | ||
tree | type(aabb_tree_object) | in | ||
n | integer(kind=I4P) | in | ||
cache | type(dipole_cache_t) | inout |
Call graph
traverse
Attributes: recursive
fortran
subroutine traverse(facet, tree, n, point, beta2, cache, omega)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
facet | type(facet_object) | in | ||
tree | type(aabb_tree_object) | in | ||
n | integer(kind=I4P) | in | ||
point | type(vector_R8P) | in | ||
beta2 | real(kind=R8P) | in | ||
cache | type(dipole_cache_t) | in | ||
omega | real(kind=R8P) | inout |
Call graph
Functions
winding_number
Returns: real(kind=R8P)
fortran
function winding_number(facet, tree, point, beta) result(w)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
facet | type(facet_object) | in | ||
tree | type(aabb_tree_object) | in | target | |
point | type(vector_R8P) | in | ||
beta | real(kind=R8P) | in | optional |
Call graph
exact_solid_angle_sum
Attributes: pure
Returns: real(kind=R8P)
fortran
function exact_solid_angle_sum(facet, point) result(omega)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
facet | type(facet_object) | in | ||
point | type(vector_R8P) | in |
Call graph