fossil_deviation
Source: src/lib/fossil_deviation.f90
Dependencies
Contents
- deviation_evaluator_t
- deviation_evaluator_2d_t
- deviation_sampled
- deviation_certified
- deviation_sampled_2d
- deviation_certified_2d
- split
- triangle_bound
- triangle_rho
- lattice
- triangle_area
Variables
| Name | Type | Attributes | Description |
|---|---|---|---|
DEV_STATUS_OK | integer(kind=I4P) | parameter | |
DEV_STATUS_BAD_INPUT | integer(kind=I4P) | parameter | |
DEV_STATUS_NOT_CONVERGED | integer(kind=I4P) | parameter |
Derived Types
deviation_evaluator_t
Inheritance
Attributes: abstract
Type-Bound Procedures
| Name | Attributes | Description |
|---|---|---|
eval | pass(self) |
deviation_evaluator_2d_t
Inheritance
Attributes: abstract
Type-Bound Procedures
| Name | Attributes | Description |
|---|---|---|
eval | pass(self) |
Subroutines
deviation_sampled
fortran
subroutine deviation_sampled(vertices, facets, eval, samples_per_area, lower, mean, rms, per_vertex, samples, status, vertex_feet, vertex_facets)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
vertices | real(kind=R8P) | in | ||
facets | integer(kind=I4P) | in | ||
eval | class(deviation_evaluator_t) | in | ||
samples_per_area | real(kind=R8P) | in | ||
lower | real(kind=R8P) | out | ||
mean | real(kind=R8P) | out | ||
rms | real(kind=R8P) | out | ||
per_vertex | real(kind=R8P) | out | ||
samples | integer(kind=I4P) | out | ||
status | integer(kind=I4P) | out | ||
vertex_feet | real(kind=R8P) | out | optional | |
vertex_facets | integer(kind=I4P) | out | optional |
Call graph
deviation_certified
fortran
subroutine deviation_certified(vertices, facets, per_vertex, vertex_feet, vertex_facets, eval, tolerance, max_triangles, lower, upper, triangles, status)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
vertices | real(kind=R8P) | in | ||
facets | integer(kind=I4P) | in | ||
per_vertex | real(kind=R8P) | in | ||
vertex_feet | real(kind=R8P) | in | ||
vertex_facets | integer(kind=I4P) | in | ||
eval | class(deviation_evaluator_t) | in | ||
tolerance | real(kind=R8P) | in | ||
max_triangles | integer(kind=I4P) | in | ||
lower | real(kind=R8P) | inout | ||
upper | real(kind=R8P) | out | ||
triangles | integer(kind=I4P) | out | ||
status | integer(kind=I4P) | out |
Call graph
deviation_sampled_2d
fortran
subroutine deviation_sampled_2d(vertices, segments, eval, samples_per_length, lower, mean, rms, per_vertex, samples, status, vertex_feet, vertex_segments)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
vertices | real(kind=R8P) | in | ||
segments | integer(kind=I4P) | in | ||
eval | class(deviation_evaluator_2d_t) | in | ||
samples_per_length | real(kind=R8P) | in | ||
lower | real(kind=R8P) | out | ||
mean | real(kind=R8P) | out | ||
rms | real(kind=R8P) | out | ||
per_vertex | real(kind=R8P) | out | ||
samples | integer(kind=I4P) | out | ||
status | integer(kind=I4P) | out | ||
vertex_feet | real(kind=R8P) | out | optional | |
vertex_segments | integer(kind=I4P) | out | optional |
Call graph
deviation_certified_2d
fortran
subroutine deviation_certified_2d(vertices, segments, per_vertex, vertex_feet, vertex_segments, eval, tolerance, max_segments, lower, upper, created, status)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
vertices | real(kind=R8P) | in | ||
segments | integer(kind=I4P) | in | ||
per_vertex | real(kind=R8P) | in | ||
vertex_feet | real(kind=R8P) | in | ||
vertex_segments | integer(kind=I4P) | in | ||
eval | class(deviation_evaluator_2d_t) | in | ||
tolerance | real(kind=R8P) | in | ||
max_segments | integer(kind=I4P) | in | ||
lower | real(kind=R8P) | inout | ||
upper | real(kind=R8P) | out | ||
created | integer(kind=I4P) | out | ||
status | integer(kind=I4P) | out |
Call graph
split
fortran
subroutine split(c, d, q, g, mc, md, mq, mg, cc, dd, qq, gg)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
c | real(kind=R8P) | in | ||
d | real(kind=R8P) | in | ||
q | real(kind=R8P) | in | ||
g | integer(kind=I4P) | in | ||
mc | real(kind=R8P) | in | ||
md | real(kind=R8P) | in | ||
mq | real(kind=R8P) | in | ||
mg | integer(kind=I4P) | in | ||
cc | real(kind=R8P) | out | ||
dd | real(kind=R8P) | out | ||
qq | real(kind=R8P) | out | ||
gg | integer(kind=I4P) | out |
Call graph
Functions
triangle_bound
Attributes: pure
Returns: real(kind=R8P)
fortran
function triangle_bound(c, d, q, g) result(u)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
c | real(kind=R8P) | in | ||
d | real(kind=R8P) | in | ||
q | real(kind=R8P) | in | ||
g | integer(kind=I4P) | in |
Call graph
triangle_rho
Attributes: pure
Returns: real(kind=R8P)
fortran
function triangle_rho(a, b, c) result(rho)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
c | real(kind=R8P) | in |
Call graph
lattice
Attributes: pure
Returns: real(kind=R8P)
fortran
function lattice(a, b, c, n, s, t) result(x)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
c | real(kind=R8P) | in | ||
n | integer(kind=I4P) | in | ||
s | real(kind=R8P) | in | ||
t | real(kind=R8P) | in |
Call graph
triangle_area
Attributes: pure
Returns: real(kind=R8P)
fortran
function triangle_area(a, b, c) result(area)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
c | real(kind=R8P) | in |
Call graph