fossil_block_locate

Source: src/lib/fossil_block_locate.f90

Dependencies

Contents

• cell_bvh_t
• build_cell_bvh
• build_node
• select_kth
• locate_point_3d_oac
• locate_point_2d_oac
• corners_flat_3d
• corners_flat_2d
• newton_3d_oac
• trilinear_eval
• inverse_2d_oac
• in_box3
• dist01

Variables

Name	Type	Attributes	Description
LOC_INSIDE	integer(kind=I4P)	parameter
LOC_OUTSIDE	integer(kind=I4P)	parameter
LOC_WARPED	integer(kind=I4P)	parameter
LOC_DEGENERATE	integer(kind=I4P)	parameter
LOC_NOT_CONVERGED	integer(kind=I4P)	parameter
XI_TOL	real(kind=R8P)	parameter
NEWTON_MAX	integer(kind=I4P)	parameter
NEAR	real(kind=R8P)	parameter
LOC_STACK	integer(kind=I4P)	parameter
LEAF	integer(kind=I4P)	parameter

Derived Types

cell_bvh_t

Components

Name	Type	Attributes	Description
nnode	integer(kind=I4P)
ncell	integer(kind=I4P)
node_lo	real(kind=R8P)	allocatable
node_hi	real(kind=R8P)	allocatable
left	integer(kind=I4P)	allocatable
right	integer(kind=I4P)	allocatable
first	integer(kind=I4P)	allocatable
last	integer(kind=I4P)	allocatable
order	integer(kind=I4P)	allocatable
cell_lo	real(kind=R8P)	allocatable
cell_hi	real(kind=R8P)	allocatable

Subroutines

build_cell_bvh

subroutine build_cell_bvh(cell_lo, cell_hi, bvh)

Arguments

Name	Type	Intent	Attributes	Description
cell_lo	real(kind=R8P)	in
cell_hi	real(kind=R8P)	in
bvh	type(cell_bvh_t)	out

Call graph

build_node

Attributes: recursive

subroutine build_node(bvh, lo, hi, node)

Arguments

Name	Type	Intent	Attributes	Description
bvh	type(cell_bvh_t)	inout
lo	integer(kind=I4P)	in
hi	integer(kind=I4P)	in
node	integer(kind=I4P)	out

Call graph

select_kth

subroutine select_kth(key, order, lo, hi, kth)

Arguments

Name	Type	Intent	Attributes	Description
key	real(kind=R8P)	inout
order	integer(kind=I4P)	inout
lo	integer(kind=I4P)	in
hi	integer(kind=I4P)	in
kth	integer(kind=I4P)	in

Call graph

locate_point_3d_oac

Attributes: pure

subroutine locate_point_3d_oac(p, ni, nj, x, y, z, cstat, nnode, node_lo, node_hi, left, right, first, last, order, cell_lo, cell_hi, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
p	real(kind=R8P)	in
ni	integer(kind=I4P)	in
nj	integer(kind=I4P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
cstat	integer(kind=I4P)	in
nnode	integer(kind=I4P)	in
node_lo	real(kind=R8P)	in
node_hi	real(kind=R8P)	in
left	integer(kind=I4P)	in
right	integer(kind=I4P)	in
first	integer(kind=I4P)	in
last	integer(kind=I4P)	in
order	integer(kind=I4P)	in
cell_lo	real(kind=R8P)	in
cell_hi	real(kind=R8P)	in
cell	integer(kind=I4P)	out
xi	real(kind=R8P)	out
status	integer(kind=I4P)	out

Call graph

locate_point_2d_oac

Attributes: pure

subroutine locate_point_2d_oac(p, ni, u, v, cstat, orient, nnode, node_lo, node_hi, left, right, first, last, order, cell_lo, cell_hi, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
p	real(kind=R8P)	in
ni	integer(kind=I4P)	in
u	real(kind=R8P)	in
v	real(kind=R8P)	in
cstat	integer(kind=I4P)	in
orient	real(kind=R8P)	in
nnode	integer(kind=I4P)	in
node_lo	real(kind=R8P)	in
node_hi	real(kind=R8P)	in
left	integer(kind=I4P)	in
right	integer(kind=I4P)	in
first	integer(kind=I4P)	in
last	integer(kind=I4P)	in
order	integer(kind=I4P)	in
cell_lo	real(kind=R8P)	in
cell_hi	real(kind=R8P)	in
cell	integer(kind=I4P)	out
xi	real(kind=R8P)	out
status	integer(kind=I4P)	out

Call graph

corners_flat_3d

Attributes: pure

subroutine corners_flat_3d(c, ni, nj, x, y, z, cc)

Arguments

Name	Type	Intent	Attributes	Description
c	integer(kind=I4P)	in
ni	integer(kind=I4P)	in
nj	integer(kind=I4P)	in
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
cc	real(kind=R8P)	out

Call graph

corners_flat_2d

Attributes: pure

subroutine corners_flat_2d(c, ni, u, v, cc)

Arguments

Name	Type	Intent	Attributes	Description
c	integer(kind=I4P)	in
ni	integer(kind=I4P)	in
u	real(kind=R8P)	in
v	real(kind=R8P)	in
cc	real(kind=R8P)	out

Call graph

newton_3d_oac

Attributes: pure

subroutine newton_3d_oac(cc, p, xi, conv)

Arguments

Name	Type	Intent	Attributes	Description
cc	real(kind=R8P)	in
p	real(kind=R8P)	in
xi	real(kind=R8P)	out
conv	logical	out

Call graph

trilinear_eval

Attributes: pure

subroutine trilinear_eval(cc, xi, x, jac)

Arguments

Name	Type	Intent	Attributes	Description
cc	real(kind=R8P)	in
xi	real(kind=R8P)	in
x	real(kind=R8P)	out
jac	real(kind=R8P)	out

Call graph

inverse_2d_oac

Attributes: pure

subroutine inverse_2d_oac(cc, p, xi, found)

Arguments

Name	Type	Intent	Attributes	Description
cc	real(kind=R8P)	in
p	real(kind=R8P)	in
xi	real(kind=R8P)	out
found	logical	out

Call graph

Functions

in_box3

Attributes: pure

Returns: logical

function in_box3(q, tol) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
q	real(kind=R8P)	in
tol	real(kind=R8P)	in

Call graph

dist01

Attributes: pure

Returns: real(kind=r8p)

function dist01(t) result(dd)

Arguments

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

Call graph