fossil_curvilinear_block

Source: src/lib/fossil_curvilinear_block.f90

Dependencies

Contents

• topo_record_t
• curvilinear_block_t
• curvilinear_block_2d_t
• vx_t
• bv_t
• initialize_3d
• initialize_2d
• destroy_3d
• destroy_2d
• add_record_3d
• add_record_2d
• geometry_3d
• geometry_2d
• validity_3d
• validity_2d
• build_search_3d
• build_search_2d
• locate_many_3d
• locate_many_2d
• enter_device_3d
• exit_device_3d
• enter_device_2d
• exit_device_2d
• locate_many_device_3d
• locate_many_device_2d
• walk_3d
• walk_2d
• locate_in_blocks
• locate_in_blocks_2d
• stencils_3d
• map_tensor_3d
• map_vertex_3d
• stencils_2d
• map_tensor_2d
• quality_3d
• quality_2d
• detect_topology
• detect_topology_2d
• detect_core
• face_ranges
• seed_record
• grow_record
• unique_image
• face_range
• face_cover
• boundary_vertices
• merge_sort
• cells_number_3d
• cells_number_2d
• record_map
• corners_3d
• corners_2d
• vtx
• orientation_3d
• orientation_2d
• cross_record_3d
• contains_2d
• cross_record_2d
• linear_to_ijk
• line_maps
• face_collapses
• coincide
• precedes
• lower_bound

Variables

Name	Type	Attributes	Description
TOPO_BOUNDARY	integer(kind=I4P)	parameter
TOPO_ABUT	integer(kind=I4P)	parameter
TOPO_PERIODIC	integer(kind=I4P)	parameter
TOPO_SINGULAR	integer(kind=I4P)	parameter
BLOCK_STATUS_OK	integer(kind=I4P)	parameter
BLOCK_STATUS_BAD_INPUT	integer(kind=I4P)	parameter

Derived Types

topo_record_t

Components

Name	Type	Attributes	Description
kind	integer(kind=I4P)
face	integer(kind=I4P)
lo	integer(kind=I4P)
hi	integer(kind=I4P)
name	character(len=32)
donor_block	integer(kind=I4P)
donor_face	integer(kind=I4P)
begin	integer(kind=I4P)
donor_begin	integer(kind=I4P)
transform	integer(kind=I4P)
collapsed	integer(kind=I4P)
rotation	real(kind=R8P)
translation	real(kind=R8P)

curvilinear_block_t

Components

Name	Type	Attributes	Description
ni	integer(kind=I4P)
nj	integer(kind=I4P)
nk	integer(kind=I4P)
id	integer(kind=I4P)
name	character(len=:)	allocatable
x	real(kind=R8P)	allocatable
y	real(kind=R8P)	allocatable
z	real(kind=R8P)	allocatable
nrec	integer(kind=I4P)
rec	type(topo_record_t)	allocatable
cell_status	integer(kind=I4P)	allocatable
orient	real(kind=R8P)
search	type(cell_bvh_t)
on_device	logical
flat_x	real(kind=R8P)	allocatable
flat_y	real(kind=R8P)	allocatable
flat_z	real(kind=R8P)	allocatable

Type-Bound Procedures

Name	Attributes	Description
initialize	pass(self)
destroy	pass(self)
add_record	pass(self)
cells_number	pass(self)
corners	pass(self)
geometry	pass(self)
orientation	pass(self)
validity	pass(self)
build_search	pass(self)
locate_many	pass(self)
locate_many_device	pass(self)
enter_device	pass(self)
exit_device	pass(self)
stencils	pass(self)
quality	pass(self)

curvilinear_block_2d_t

Components

Name	Type	Attributes	Description
ni	integer(kind=I4P)
nj	integer(kind=I4P)
id	integer(kind=I4P)
name	character(len=:)	allocatable
u	real(kind=R8P)	allocatable
v	real(kind=R8P)	allocatable
nrec	integer(kind=I4P)
rec	type(topo_record_t)	allocatable
cell_status	integer(kind=I4P)	allocatable
orient	real(kind=R8P)
search	type(cell_bvh_t)
on_device	logical
flat_u	real(kind=R8P)	allocatable
flat_v	real(kind=R8P)	allocatable

Type-Bound Procedures

Name	Attributes	Description
initialize	pass(self)
destroy	pass(self)
add_record	pass(self)
cells_number	pass(self)
corners	pass(self)
geometry	pass(self)
orientation	pass(self)
validity	pass(self)
build_search	pass(self)
locate_many	pass(self)
locate_many_device	pass(self)
enter_device	pass(self)
exit_device	pass(self)
stencils	pass(self)
quality	pass(self)

vx_t

Components

Name	Type	Attributes	Description
n	integer(kind=I4P)
c	real(kind=R8P)	allocatable

bv_t

Components

Name	Type	Attributes	Description
m	integer(kind=I4P)
id	integer(kind=I4P)	allocatable
xs	real(kind=R8P)	allocatable

Subroutines

initialize_3d

subroutine initialize_3d(self, x, y, z, name, status)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout
x	real(kind=R8P)	in
y	real(kind=R8P)	in
z	real(kind=R8P)	in
name	character(len=*)	in	optional
status	integer(kind=I4P)	out	optional

Call graph

initialize_2d

subroutine initialize_2d(self, u, v, name, status)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout
u	real(kind=R8P)	in
v	real(kind=R8P)	in
name	character(len=*)	in	optional
status	integer(kind=I4P)	out	optional

Call graph

destroy_3d

Attributes: elemental

subroutine destroy_3d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout

destroy_2d

Attributes: elemental

subroutine destroy_2d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout

add_record_3d

Attributes: pure

subroutine add_record_3d(self, rec)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout
rec	type(topo_record_t)	in

add_record_2d

Attributes: pure

subroutine add_record_2d(self, rec)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout
rec	type(topo_record_t)	in

geometry_3d

subroutine geometry_3d(self, volume, centroid, face_i, face_j, face_k)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
volume	real(kind=R8P)	out	allocatable, optional
centroid	real(kind=R8P)	out	allocatable, optional
face_i	real(kind=R8P)	out	allocatable, optional
face_j	real(kind=R8P)	out	allocatable, optional
face_k	real(kind=R8P)	out	allocatable, optional

Call graph

geometry_2d

subroutine geometry_2d(self, area, centroid, face_i, face_j)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
area	real(kind=R8P)	out	allocatable, optional
centroid	real(kind=R8P)	out	allocatable, optional
face_i	real(kind=R8P)	out	allocatable, optional
face_j	real(kind=R8P)	out	allocatable, optional

Call graph

validity_3d

subroutine validity_3d(self, status, min_jacobian, orientation)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
status	integer(kind=I4P)	out	allocatable
min_jacobian	real(kind=R8P)	out	allocatable, optional
orientation	real(kind=R8P)	in	optional

Call graph

validity_2d

subroutine validity_2d(self, status, min_jacobian, orientation)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
status	integer(kind=I4P)	out	allocatable
min_jacobian	real(kind=R8P)	out	allocatable, optional
orientation	real(kind=R8P)	in	optional

Call graph

build_search_3d

subroutine build_search_3d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout

Call graph

build_search_2d

subroutine build_search_2d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout

Call graph

locate_many_3d

subroutine locate_many_3d(self, px, py, pz, cell, xi, status, walk, start, jumps, fallbacks)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
px	real(kind=R8P)	in
py	real(kind=R8P)	in
pz	real(kind=R8P)	in
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable
walk	logical	in	optional
start	integer(kind=I4P)	in	optional
jumps	integer(kind=I4P)	out	optional
fallbacks	integer(kind=I4P)	out	optional

Call graph

locate_many_2d

subroutine locate_many_2d(self, pu, pv, cell, xi, status, walk, start, jumps, fallbacks)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
pu	real(kind=R8P)	in
pv	real(kind=R8P)	in
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable
walk	logical	in	optional
start	integer(kind=I4P)	in	optional
jumps	integer(kind=I4P)	out	optional
fallbacks	integer(kind=I4P)	out	optional

Call graph

enter_device_3d

subroutine enter_device_3d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout

exit_device_3d

subroutine exit_device_3d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout

enter_device_2d

subroutine enter_device_2d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout

exit_device_2d

subroutine exit_device_2d(self)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout

locate_many_device_3d

subroutine locate_many_device_3d(self, px, py, pz, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	inout	target
px	real(kind=R8P)	in
py	real(kind=R8P)	in
pz	real(kind=R8P)	in
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable

Call graph

locate_many_device_2d

subroutine locate_many_device_2d(self, pu, pv, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	inout	target
pu	real(kind=R8P)	in
pv	real(kind=R8P)	in
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable

Call graph

walk_3d

subroutine walk_3d(self, p, c0, cell, xi, done, jumps)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
p	real(kind=R8P)	in
c0	integer(kind=I4P)	in
cell	integer(kind=I4P)	out
xi	real(kind=R8P)	out
done	logical	out
jumps	integer(kind=I4P)	inout

Call graph

walk_2d

subroutine walk_2d(self, p, c0, cell, xi, done, jumps)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
p	real(kind=R8P)	in
c0	integer(kind=I4P)	in
cell	integer(kind=I4P)	out
xi	real(kind=R8P)	out
done	logical	out
jumps	integer(kind=I4P)	inout

Call graph

locate_in_blocks

subroutine locate_in_blocks(blocks, px, py, pz, block, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
px	real(kind=R8P)	in
py	real(kind=R8P)	in
pz	real(kind=R8P)	in
block	integer(kind=I4P)	out	allocatable
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable

Call graph

locate_in_blocks_2d

subroutine locate_in_blocks_2d(blocks, pu, pv, block, cell, xi, status)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
pu	real(kind=R8P)	in
pv	real(kind=R8P)	in
block	integer(kind=I4P)	out	allocatable
cell	integer(kind=I4P)	out	allocatable
xi	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable

Call graph

stencils_3d

subroutine stencils_3d(self, cell, xi, q, nodes, weights, status, order_matched, reduce, xi_matched)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
cell	integer(kind=I4P)	in
xi	real(kind=R8P)	in
q	integer(kind=I4P)	in
nodes	integer(kind=I4P)	out	allocatable
weights	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable
order_matched	logical	in	optional
reduce	logical	in	optional
xi_matched	real(kind=R8P)	out	allocatable, optional

Call graph

map_tensor_3d

subroutine map_tensor_3d(self, st0, qq, nd, sh, marked)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
st0	integer(kind=I4P)	in
qq	integer(kind=I4P)	in
nd	integer(kind=I4P)	out
sh	real(kind=R8P)	out
marked	logical	out

Call graph

map_vertex_3d

subroutine map_vertex_3d(self, m, shift, ok, bad)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
m	integer(kind=I4P)	inout
shift	real(kind=R8P)	out
ok	logical	out
bad	integer(kind=I4P)	out

Call graph

stencils_2d

subroutine stencils_2d(self, cell, xi, q, nodes, weights, status, order_matched, reduce, xi_matched)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
cell	integer(kind=I4P)	in
xi	real(kind=R8P)	in
q	integer(kind=I4P)	in
nodes	integer(kind=I4P)	out	allocatable
weights	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	allocatable
order_matched	logical	in	optional
reduce	logical	in	optional
xi_matched	real(kind=R8P)	out	allocatable, optional

Call graph

map_tensor_2d

subroutine map_tensor_2d(self, st0, qq, nd, sh, marked)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
st0	integer(kind=I4P)	in
qq	integer(kind=I4P)	in
nd	integer(kind=I4P)	out
sh	real(kind=R8P)	out
marked	logical	out

Call graph

quality_3d

subroutine quality_3d(self, skewness, orthogonality, aspect, warp, min_jacobian)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
skewness	real(kind=R8P)	out	allocatable, optional
orthogonality	real(kind=R8P)	out	allocatable, optional
aspect	real(kind=R8P)	out	allocatable, optional
warp	real(kind=R8P)	out	allocatable, optional
min_jacobian	real(kind=R8P)	out	allocatable, optional

Call graph

quality_2d

subroutine quality_2d(self, skewness, orthogonality, aspect, min_jacobian)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
skewness	real(kind=R8P)	out	allocatable, optional
orthogonality	real(kind=R8P)	out	allocatable, optional
aspect	real(kind=R8P)	out	allocatable, optional
min_jacobian	real(kind=R8P)	out	allocatable, optional

Call graph

detect_topology

subroutine detect_topology(blocks, tolerance, translations)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	inout
tolerance	real(kind=R8P)	in	optional
translations	real(kind=R8P)	in	optional

Call graph

detect_topology_2d

subroutine detect_topology_2d(blocks, tolerance, translations)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	inout
tolerance	real(kind=R8P)	in	optional
translations	real(kind=R8P)	in	optional

Call graph

detect_core

subroutine detect_core(vx, dm, tolerance, translations, found, owner)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
dm	integer(kind=I4P)	in
tolerance	real(kind=R8P)	in	optional
translations	real(kind=R8P)	in	optional
found	type(topo_record_t)	out	allocatable
owner	integer(kind=I4P)	out	allocatable

Call graph

face_ranges

subroutine face_ranges(vx, dm, bv, tol, b, f, shift, periodic, covered, found, owner)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
dm	integer(kind=I4P)	in
bv	type(bv_t)	in
tol	real(kind=R8P)	in
b	integer(kind=I4P)	in
f	integer(kind=I4P)	in
shift	real(kind=R8P)	in
periodic	logical	in
covered	logical	inout	allocatable
found	type(topo_record_t)	inout	allocatable
owner	integer(kind=I4P)	inout	allocatable

Call graph

seed_record

subroutine seed_record(vx, dm, bv, tol, b, f, p, shift, rec, ok)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
dm	integer(kind=I4P)	in
bv	type(bv_t)	in
tol	real(kind=R8P)	in
b	integer(kind=I4P)	in
f	integer(kind=I4P)	in
p	integer(kind=I4P)	in
shift	real(kind=R8P)	in
rec	type(topo_record_t)	out
ok	logical	out

Call graph

grow_record

subroutine grow_record(vx, dm, tol, b, f, shift, rec)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
dm	integer(kind=I4P)	in
tol	real(kind=R8P)	in
b	integer(kind=I4P)	in
f	integer(kind=I4P)	in
shift	real(kind=R8P)	in
rec	type(topo_record_t)	inout

Call graph

unique_image

subroutine unique_image(vx, bv, tol, b, p, shift, t, uniq)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
bv	type(bv_t)	in
tol	real(kind=R8P)	in
b	integer(kind=I4P)	in
p	integer(kind=I4P)	in
shift	real(kind=R8P)	in
t	integer(kind=I4P)	out
uniq	logical	out

Call graph

face_range

Attributes: pure

subroutine face_range(n, f, lo, hi)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
f	integer(kind=I4P)	in
lo	integer(kind=I4P)	out
hi	integer(kind=I4P)	out

Call graph

face_cover

subroutine face_cover(n, f, covered)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
f	integer(kind=I4P)	in
covered	logical	out	allocatable

Call graph

boundary_vertices

subroutine boundary_vertices(vx, dm, bv)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
dm	integer(kind=I4P)	in
bv	type(bv_t)	out

Call graph

merge_sort

Attributes: recursive

subroutine merge_sort(key, ids, perm, tmp, lo, hi)

Arguments

Name	Type	Intent	Attributes	Description
key	real(kind=R8P)	in
ids	integer(kind=I4P)	in
perm	integer(kind=I4P)	inout
tmp	integer(kind=I4P)	inout
lo	integer(kind=I4P)	in
hi	integer(kind=I4P)	in

Call graph

Functions

cells_number_3d

Attributes: elemental

Returns: integer(kind=i4p)

function cells_number_3d(self) result(n)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in

cells_number_2d

Attributes: elemental

Returns: integer(kind=i4p)

function cells_number_2d(self) result(n)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in

record_map

Attributes: pure

Returns: integer(kind=I4P)

function record_map(rec, p) result(q)

Arguments

Name	Type	Intent	Attributes	Description
rec	type(topo_record_t)	in
p	integer(kind=I4P)	in

Call graph

corners_3d

Attributes: pure

Returns: real(kind=R8P)

function corners_3d(self, i, j, k) result(c)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
i	integer(kind=I4P)	in
j	integer(kind=I4P)	in
k	integer(kind=I4P)	in

corners_2d

Attributes: pure

Returns: real(kind=R8P)

function corners_2d(self, i, j) result(c)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
i	integer(kind=I4P)	in
j	integer(kind=I4P)	in

vtx

Attributes: pure

Returns: real(kind=R8P)

function vtx(self, i, j, k) result(p)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
i	integer(kind=I4P)	in
j	integer(kind=I4P)	in
k	integer(kind=I4P)	in

Call graph

orientation_3d

Returns: real(kind=r8p)

function orientation_3d(self) result(o)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in

Call graph

orientation_2d

Returns: real(kind=r8p)

function orientation_2d(self) result(o)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in

Call graph

cross_record_3d

Returns: logical

function cross_record_3d(self, ijk, a, s, cand) result(ok)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_t)	in
ijk	integer(kind=I4P)	in
a	integer(kind=I4P)	in
s	integer(kind=I4P)	in
cand	integer(kind=I4P)	out

Call graph

contains_2d

Returns: logical

function contains_2d(self, ij, p, on_edge) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
ij	integer(kind=I4P)	in
p	real(kind=R8P)	in
on_edge	logical	out

Call graph

cross_record_2d

Returns: logical

function cross_record_2d(self, ij, a, s, cand) result(ok)

Arguments

Name	Type	Intent	Attributes	Description
self	class(curvilinear_block_2d_t)	in
ij	integer(kind=I4P)	in
a	integer(kind=I4P)	in
s	integer(kind=I4P)	in
cand	integer(kind=I4P)	out

Call graph

linear_to_ijk

Attributes: pure

Returns: integer(kind=I4P)

function linear_to_ijk(c, ni, nj) result(ijk)

Arguments

Name	Type	Intent	Attributes	Description
c	integer(kind=I4P)	in
ni	integer(kind=I4P)	in
nj	integer(kind=I4P)	in

Call graph

line_maps

Returns: logical

function line_maps(vx, tol, b, shift, rec, lo, hi) result(ok)

Arguments

Name	Type	Intent	Attributes	Description
vx	type(vx_t)	in
tol	real(kind=R8P)	in
b	integer(kind=I4P)	in
shift	real(kind=R8P)	in
rec	type(topo_record_t)	in
lo	integer(kind=I4P)	in
hi	integer(kind=I4P)	in

Call graph

face_collapses

Returns: logical

function face_collapses(v, f, a, tol) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
v	type(vx_t)	in
f	integer(kind=I4P)	in
a	integer(kind=I4P)	in
tol	real(kind=R8P)	in

Call graph

coincide

Attributes: pure

Returns: logical

function coincide(p, q, tol) result(yes)

Arguments

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

Call graph

precedes

Attributes: pure

Returns: logical

function precedes(ka, ia, kb, ib) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
ka	real(kind=R8P)	in
ia	integer(kind=I4P)	in
kb	real(kind=R8P)	in
ib	integer(kind=I4P)	in

Call graph

lower_bound

Attributes: pure

Returns: integer(kind=i4p)

function lower_bound(xs, v) result(e)

Arguments

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

Call graph