fossil_swept_cells

Source: src/lib/fossil_swept_cells.f90

Dependencies

Contents

• swept_cells_2d_t
• swept_cells_3d_t
• slist_t
• swept_cells_2d
• faces_rotation_2d
• merge_close
• isolate_zeros
• faces_translation_2d
• node_breakpoints
• sort_unique
• face_measure
• faces_gauss_2d
• swept_cells_3d
• faces_rotation_3d
• faces_translation_3d
• plane_breakpoints
• index_range
• plane_average
• faces_gauss_3d
• gauss_legendre_01
• rot2
• cross_k
• cross

Variables

Name	Type	Attributes	Description
FLOOR_H	real(kind=R8P)	parameter

Derived Types

swept_cells_2d_t

Components

Name	Type	Attributes	Description
nx	integer(kind=I4P)
ny	integer(kind=I4P)
alpha0	real(kind=R8P)	allocatable
alpha1	real(kind=R8P)	allocatable
swept	real(kind=R8P)	allocatable
face_u	real(kind=R8P)	allocatable
face_v	real(kind=R8P)	allocatable
wall	real(kind=R8P)	allocatable
residual	real(kind=R8P)	allocatable
cleared	logical	allocatable
covered	logical	allocatable
exact	logical
error_estimate	real(kind=R8P)
evaluations	integer(kind=I4P)
self_intersecting	logical

swept_cells_3d_t

Components

Name	Type	Attributes	Description
nx	integer(kind=I4P)
ny	integer(kind=I4P)
nz	integer(kind=I4P)
alpha0	real(kind=R8P)	allocatable
alpha1	real(kind=R8P)	allocatable
swept	real(kind=R8P)	allocatable
face_x	real(kind=R8P)	allocatable
face_y	real(kind=R8P)	allocatable
face_z	real(kind=R8P)	allocatable
wall	real(kind=R8P)	allocatable
residual	real(kind=R8P)	allocatable
cleared	logical	allocatable
covered	logical	allocatable
exact	logical
error_estimate	real(kind=R8P)
evaluations	integer(kind=I4P)
self_intersecting	logical

slist_t

Components

Name	Type	Attributes	Description
s	real(kind=R8P)	allocatable

Subroutines

swept_cells_2d

subroutine swept_cells_2d(curve, pose0, pose1, x, y, sw, nq, poses, exact, status, check_input)

Arguments

Name	Type	Intent	Attributes	Description
curve	type(curve_object)	in
pose0	type(rigid_pose_2d_t)	in
pose1	type(rigid_pose_2d_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
sw	type(swept_cells_2d_t)	out
nq	integer(kind=I4P)	in	optional
poses	type(rigid_pose_2d_t)	in	optional
exact	logical	in	optional
status	integer(kind=I4P)	out	optional
check_input	logical	in	optional

Call graph

faces_rotation_2d

subroutine faces_rotation_2d(curve, pose0, pose1, x, y, fu, fv, flux, nev, exact)

Arguments

Name	Type	Intent	Attributes	Description
curve	type(curve_object)	in
pose0	type(rigid_pose_2d_t)	in
pose1	type(rigid_pose_2d_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
fu	real(kind=R8P)	out
fv	real(kind=R8P)	out
flux	real(kind=R8P)	out
nev	integer(kind=I4P)	out
exact	logical	out

Call graph

merge_close

Attributes: pure

subroutine merge_close(a, m)

Arguments

Name	Type	Intent	Attributes	Description
a	real(kind=R8P)	inout
m	integer(kind=I4P)	inout

isolate_zeros

subroutine isolate_zeros(co, phi0, dphi, scale, z, nz, certified)

Arguments

Name	Type	Intent	Attributes	Description
co	real(kind=R8P)	in
phi0	real(kind=R8P)	in
dphi	real(kind=R8P)	in
scale	real(kind=R8P)	in
z	real(kind=R8P)	out	allocatable
nz	integer(kind=I4P)	out
certified	logical	out

Call graph

faces_translation_2d

subroutine faces_translation_2d(c0, d, x, y, fu, fv, nev)

Arguments

Name	Type	Intent	Attributes	Description
c0	type(curve_object)	in
d	real(kind=R8P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
fu	real(kind=R8P)	out
fv	real(kind=R8P)	out
nev	integer(kind=I4P)	out

Call graph

node_breakpoints

Attributes: pure

subroutine node_breakpoints(p, d, vu, vv, nxt, b)

Arguments

Name	Type	Intent	Attributes	Description
p	real(kind=R8P)	in
d	real(kind=R8P)	in
vu	real(kind=R8P)	in
vv	real(kind=R8P)	in
nxt	integer(kind=I4P)	in
b	real(kind=R8P)	out	allocatable

Call graph

sort_unique

Attributes: pure

subroutine sort_unique(a, m)

Arguments

Name	Type	Intent	Attributes	Description
a	real(kind=R8P)	inout
m	integer(kind=I4P)	inout

Call graph

face_measure

subroutine face_measure(c, lax, a, lo, hi, len, mom)

Arguments

Name	Type	Intent	Attributes	Description
c	type(curve_object)	in
lax	integer(kind=I4P)	in
a	real(kind=R8P)	in
lo	real(kind=R8P)	in
hi	real(kind=R8P)	in
len	real(kind=R8P)	out
mom	real(kind=R8P)	out

Call graph

faces_gauss_2d

subroutine faces_gauss_2d(curve, pose0, pose1, x, y, n, fu, fv, flux, poses)

Arguments

Name	Type	Intent	Attributes	Description
curve	type(curve_object)	in
pose0	type(rigid_pose_2d_t)	in
pose1	type(rigid_pose_2d_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
n	integer(kind=I4P)	in
fu	real(kind=R8P)	out
fv	real(kind=R8P)	out
flux	real(kind=R8P)	out
poses	type(rigid_pose_2d_t)	in	optional

Call graph

swept_cells_3d

subroutine swept_cells_3d(surface, pose0, pose1, x, y, z, sw, nq, poses, exact, status, check_input)

Arguments

Name	Type	Intent	Attributes	Description
surface	type(surface_stl_object)	in
pose0	type(rigid_pose_t)	in
pose1	type(rigid_pose_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
sw	type(swept_cells_3d_t)	out
nq	integer(kind=I4P)	in	optional
poses	type(rigid_pose_t)	in	optional
exact	logical	in	optional
status	integer(kind=I4P)	out	optional
check_input	logical	in	optional

Call graph

faces_rotation_3d

subroutine faces_rotation_3d(surface, pose0, pose1, x, y, z, fx, fy, fz, flux, nev, exact)

Arguments

Name	Type	Intent	Attributes	Description
surface	type(surface_stl_object)	in
pose0	type(rigid_pose_t)	in
pose1	type(rigid_pose_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
fx	real(kind=R8P)	out
fy	real(kind=R8P)	out
fz	real(kind=R8P)	out
flux	real(kind=R8P)	out
nev	integer(kind=I4P)	out
exact	logical	out

Call graph

faces_translation_3d

subroutine faces_translation_3d(s0, d, x, y, z, fx, fy, fz, nev)

Arguments

Name	Type	Intent	Attributes	Description
s0	type(surface_stl_object)	in
d	real(kind=R8P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
fx	real(kind=R8P)	out
fy	real(kind=R8P)	out
fz	real(kind=R8P)	out
nev	integer(kind=I4P)	out

Call graph

plane_breakpoints

subroutine plane_breakpoints(tri, perm, a, dl, ue, ve, b, m)

Arguments

Name	Type	Intent	Attributes	Description
tri	real(kind=R8P)	in
perm	integer(kind=I4P)	in
a	real(kind=R8P)	in
dl	real(kind=R8P)	in
ue	real(kind=R8P)	in
ve	real(kind=R8P)	in
b	real(kind=R8P)	out	allocatable
m	integer(kind=I4P)	out

Call graph

index_range

Attributes: pure

subroutine index_range(e, lo, hi, i1, i2)

Arguments

Name	Type	Intent	Attributes	Description
e	real(kind=R8P)	in
lo	real(kind=R8P)	in
hi	real(kind=R8P)	in
i1	integer(kind=I4P)	out
i2	integer(kind=I4P)	out

Call graph

plane_average

subroutine plane_average(s0, ax, a, dl, ue, ve, b, m, area)

Arguments

Name	Type	Intent	Attributes	Description
s0	type(surface_stl_object)	in
ax	integer(kind=I4P)	in
a	real(kind=R8P)	in
dl	real(kind=R8P)	in
ue	real(kind=R8P)	in
ve	real(kind=R8P)	in
b	real(kind=R8P)	in
m	integer(kind=I4P)	in
area	real(kind=R8P)	out	allocatable

Call graph

faces_gauss_3d

subroutine faces_gauss_3d(surface, pose0, pose1, x, y, z, n, fx, fy, fz, flux, poses)

Arguments

Name	Type	Intent	Attributes	Description
surface	type(surface_stl_object)	in
pose0	type(rigid_pose_t)	in
pose1	type(rigid_pose_t)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
n	integer(kind=I4P)	in
fx	real(kind=R8P)	out
fy	real(kind=R8P)	out
fz	real(kind=R8P)	out
flux	real(kind=R8P)	out
poses	type(rigid_pose_t)	in	optional

Call graph

gauss_legendre_01

Attributes: pure

subroutine gauss_legendre_01(n, s, w)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
s	real(kind=R8P)	out	allocatable
w	real(kind=R8P)	out	allocatable

Call graph

Functions

rot2

Attributes: pure

Returns: real(kind=R8P)

function rot2(th, p) result(r)

Arguments

Name	Type	Intent	Attributes	Description
th	real(kind=R8P)	in
p	real(kind=R8P)	in

Call graph

cross_k

Attributes: pure

Returns: real(kind=R8P)

function cross_k(a, b, k) result(c)

Arguments

Name	Type	Intent	Attributes	Description
a	real(kind=R8P)	in
b	real(kind=R8P)	in
k	integer(kind=I4P)	in

Call graph

cross

Attributes: pure

Returns: real(kind=R8P)

function cross(a, b) result(c)

Arguments

Name	Type	Intent	Attributes	Description
a	real(kind=R8P)	in
b	real(kind=R8P)	in

Call graph