fossil_line_query
Source: src/lib/fossil_line_query.f90
Dependencies
Contents
- tri_line_hit_oac
- psign
- seg_line_hit_oac
- bvh_line_crossings_oac
- curve_line_crossings_oac
- sort_crossings_oac
- line_crossing_before
- first_normal_sign
- line_crossing_before_2d
Variables
| Name | Type | Attributes | Description |
|---|---|---|---|
STACK | integer(kind=I4P) | parameter |
Subroutines
tri_line_hit_oac
Attributes: pure
fortran
subroutine tri_line_hit_oac(tv, axis, a, b, hit, t, enter)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
tv | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
hit | logical | out | ||
t | real(kind=R8P) | out | ||
enter | logical | out |
Call graph
psign
Attributes: pure
fortran
subroutine psign(p1, p2, q1, q2, a, b, bfirst, w, s)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
p1 | real(kind=R8P) | in | ||
p2 | real(kind=R8P) | in | ||
q1 | real(kind=R8P) | in | ||
q2 | real(kind=R8P) | in | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
bfirst | logical | in | ||
w | real(kind=R8P) | out | ||
s | real(kind=R8P) | out |
Call graph
seg_line_hit_oac
Attributes: pure
fortran
subroutine seg_line_hit_oac(pu, pv, qu, qv, axis, a, hit, t, enter)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
pu | real(kind=R8P) | in | ||
pv | real(kind=R8P) | in | ||
qu | real(kind=R8P) | in | ||
qv | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
hit | logical | out | ||
t | real(kind=R8P) | out | ||
enter | logical | out |
Call graph
bvh_line_crossings_oac
Attributes: pure
fortran
subroutine bvh_line_crossings_oac(node, payload, tv, axis, a, b, t0, t1, ts, ids, es, n, overflow)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
node | type(aabb_node_object) | in | ||
payload | type(facet_distance_payload) | in | ||
tv | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
t0 | real(kind=R8P) | in | ||
t1 | real(kind=R8P) | in | ||
ts | real(kind=R8P) | out | ||
ids | integer(kind=I4P) | out | ||
es | logical | out | ||
n | integer(kind=I4P) | out | ||
overflow | logical | out |
Call graph
curve_line_crossings_oac
Attributes: pure
fortran
subroutine curve_line_crossings_oac(lo_u, lo_v, hi_u, hi_v, left, right, first, last, seg_id, next, u, v, axis, a, t0, t1, ts, ids, es, n, overflow)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
lo_u | real(kind=R8P) | in | ||
lo_v | real(kind=R8P) | in | ||
hi_u | real(kind=R8P) | in | ||
hi_v | real(kind=R8P) | in | ||
left | integer(kind=I4P) | in | ||
right | integer(kind=I4P) | in | ||
first | integer(kind=I4P) | in | ||
last | integer(kind=I4P) | in | ||
seg_id | integer(kind=I4P) | in | ||
next | integer(kind=I4P) | in | ||
u | real(kind=R8P) | in | ||
v | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
t0 | real(kind=R8P) | in | ||
t1 | real(kind=R8P) | in | ||
ts | real(kind=R8P) | out | ||
ids | integer(kind=I4P) | out | ||
es | logical | out | ||
n | integer(kind=I4P) | out | ||
overflow | logical | out |
Call graph
sort_crossings_oac
Attributes: pure
fortran
subroutine sort_crossings_oac(ts, ids, es, n)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
ts | real(kind=R8P) | inout | ||
ids | integer(kind=I4P) | inout | ||
es | logical | inout | ||
n | integer(kind=I4P) | in |
Call graph
Functions
line_crossing_before
Returns: logical
fortran
function line_crossing_before(tri, axis, a, b, c, entering) result(before)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
tri | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
b | real(kind=R8P) | in | ||
c | real(kind=R8P) | in | ||
entering | logical | in |
Call graph
first_normal_sign
Returns: real(kind=R8P)
fortran
function first_normal_sign(tri) result(sg)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
tri | real(kind=R8P) | in |
Call graph
line_crossing_before_2d
Returns: logical
fortran
function line_crossing_before_2d(pu, pv, qu, qv, axis, a, c, entering) result(before)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
pu | real(kind=R8P) | in | ||
pv | real(kind=R8P) | in | ||
qu | real(kind=R8P) | in | ||
qv | real(kind=R8P) | in | ||
axis | integer(kind=I4P) | in | ||
a | real(kind=R8P) | in | ||
c | real(kind=R8P) | in | ||
entering | logical | in |
Call graph