fossil_sign_bench_bodies
Source: src/tests/fossil_sign_bench_bodies.f90
Dependencies
Contents
- soup_t
- feature_t
- body_t
- bench_bodies
- make_prism
- make_apex_body
- set_lfs
- to_surface
- make_points
- soup_remove
- soup_flip
- soup_duplicate
- soup_split_edge
- soup_tjunction
- flat
- edge
- prism_vertex
- device_sign_mismatches_3d
- device_sign_mismatches_2d
- device_line_mismatches_3d
- device_line_mismatches_2d
- cross
- point_triangle_d2
Variables
| Name | Type | Attributes | Description |
|---|---|---|---|
SB_FACE | integer(kind=I4P) | parameter | |
SB_FLAT_EDGE | integer(kind=I4P) | parameter | |
SB_EDGE_CONVEX | integer(kind=I4P) | parameter | |
SB_EDGE_REENTRANT | integer(kind=I4P) | parameter | |
SB_VERTEX_CONVEX | integer(kind=I4P) | parameter | |
SB_VERTEX_SADDLE | integer(kind=I4P) | parameter | |
SB_KIND_NAME | character(len=16) | parameter | |
PI | real(kind=R8P) | parameter |
Derived Types
soup_t
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
v | real(kind=R8P) | allocatable |
feature_t
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
x | real(kind=R8P) | ||
kind | integer(kind=I4P) | ||
angle | real(kind=R8P) | ||
lfs | real(kind=R8P) | ||
din | real(kind=R8P) | allocatable | |
dout | real(kind=R8P) | allocatable |
body_t
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
name | character(len=32) | ||
soup | type(soup_t) | ||
feat | type(feature_t) | allocatable | |
volume | real(kind=R8P) | ||
diag | real(kind=R8P) |
Subroutines
bench_bodies
fortran
subroutine bench_bodies(b)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | out | allocatable |
Call graph
make_prism
fortran
subroutine make_prism(p, h, fan, name, b)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
p | real(kind=R8P) | in | ||
h | real(kind=R8P) | in | ||
fan | integer | in | ||
name | character(len=*) | in | ||
b | type(body_t) | out |
Call graph
make_apex_body
fortran
subroutine make_apex_body(n, alpha, name, b)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
n | integer | in | ||
alpha | real(kind=R8P) | in | ||
name | character(len=*) | in | ||
b | type(body_t) | out |
Call graph
set_lfs
fortran
subroutine set_lfs(b)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | inout |
Call graph
to_surface
fortran
subroutine to_surface(soup, s)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
soup | type(soup_t) | in | ||
s | type(surface_stl_object) | inout |
Call graph
make_points
fortran
subroutine make_points(b, decades, p, inside, kind, decade, angle, feature)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | in | ||
decades | integer | in | ||
p | real(kind=R8P) | out | allocatable | |
inside | logical | out | allocatable | |
kind | integer(kind=I4P) | out | allocatable | |
decade | integer | out | allocatable | |
angle | real(kind=R8P) | out | allocatable | |
feature | integer | out | allocatable |
Call graph
soup_remove
fortran
subroutine soup_remove(s, f)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
s | type(soup_t) | inout | ||
f | integer | in |
soup_flip
fortran
subroutine soup_flip(s, f)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
s | type(soup_t) | inout | ||
f | integer | in |
soup_duplicate
fortran
subroutine soup_duplicate(s, f)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
s | type(soup_t) | inout | ||
f | integer | in |
soup_split_edge
fortran
subroutine soup_split_edge(s, a, b, t)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
s | type(soup_t) | inout | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
t | real(kind=R8P) | in |
Call graph
soup_tjunction
fortran
subroutine soup_tjunction(s, f, t)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
s | type(soup_t) | inout | ||
f | integer | in | ||
t | real(kind=R8P) | in |
Functions
flat
Returns: type(feature_t)
fortran
function flat(x, n, kind) result(ft)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
x | real(kind=R8P) | in | ||
n | real(kind=R8P) | in | ||
kind | integer(kind=I4P) | in |
Call graph
edge
Returns: type(feature_t)
fortran
function edge(x, e, n1, q1, q2) result(ft)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
x | real(kind=R8P) | in | ||
e | real(kind=R8P) | in | ||
n1 | real(kind=R8P) | in | ||
q1 | real(kind=R8P) | in | ||
q2 | real(kind=R8P) | in |
Call graph
prism_vertex
Returns: type(feature_t)
fortran
function prism_vertex(fe, x, nc) result(ft)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
fe | type(feature_t) | in | ||
x | real(kind=R8P) | in | ||
nc | real(kind=R8P) | in |
Call graph
device_sign_mismatches_3d
Returns: integer
fortran
function device_sign_mismatches_3d(b) result(nbad)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | in |
Call graph
device_sign_mismatches_2d
Returns: integer
fortran
function device_sign_mismatches_2d(b) result(nbad)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | in |
Call graph
device_line_mismatches_3d
Returns: integer
fortran
function device_line_mismatches_3d(b) result(nbad)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | in |
Call graph
device_line_mismatches_2d
Returns: integer
fortran
function device_line_mismatches_2d(b) result(nbad)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | type(body_t) | in |
Call graph
cross
Attributes: pure
Returns: real(kind=R8P)
fortran
function cross(a, b) result(c)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in |
Call graph
point_triangle_d2
Attributes: pure
Returns: real(kind=R8P)
fortran
function point_triangle_d2(p, a, b, c) result(d2)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
p | real(kind=R8P) | in | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
c | real(kind=R8P) | in |
Call graph