fossil_overset

Source: src/lib/fossil_overset.f90

Dependencies

Contents

• block_logical_t
• block_real_t
• donor_set_t
• overset_mask_t
• cls_t
• connectivity_t
• ray_t
• tri_list_t
• seg_list_t
• wall_cutter
• block_wall_triangles
• trim_triangles
• near_set
• wall_cutter_2d
• block_wall_segments
• swap_ends
• trim_segments
• segment_curve
• near_segs
• hole_flags
• hole_flags_2d
• hole_map
• paint_outside
• line_of_sight_3d
• xray_flags
• hole_map_2d
• line_of_sight_2d
• xray_flags_2d
• overlap_matrix
• boundary_points_3d
• donor_candidates
• vertex_points_3d
• overlap_matrix_2d
• donor_candidates_2d
• classify
• classify_2d
• face_flags_3d
• face_flags_2d
• mark_range
• classify_core
• fringe_levels
• fringe_levels_2d
• fringe_core
• cell_ring
• overlap_width
• overlap_width_2d
• width_core
• hole_rings
• sort_by_volume
• previous_starts
• exposed_points
• wall_projection
• wall_projection_2d
• build_connectivity
• save_connectivity
• cell_centre_block
• cell_centre_block_2d
• mean_size
• mean_len
• on_curve
• vertex_volumes_3d
• vertex_volumes_2d
• name_or
• orphan_cause
• outer_flags_3d
• outer_flags_2d
• pt3
• cross

Variables

Name	Type	Attributes	Description
ORPHAN_NONE	integer(kind=I4P)	parameter
ORPHAN_NO_CANDIDATE	integer(kind=I4P)	parameter
ORPHAN_STENCIL_HOLE	integer(kind=I4P)	parameter
ORPHAN_RECEPTOR_DONOR	integer(kind=I4P)	parameter
ORPHAN_BOUNDARY	integer(kind=I4P)	parameter
ORPHAN_WALL	integer(kind=I4P)	parameter
FRINGE_INNER_1	integer(kind=I4P)	parameter
FRINGE_INNER_2	integer(kind=I4P)	parameter
FRINGE_OUTER_1	integer(kind=I4P)	parameter
FRINGE_OUTER_2	integer(kind=I4P)	parameter
SELECT_EXPLICIT	integer(kind=I4P)	parameter
SELECT_IMPLICIT	integer(kind=I4P)	parameter
PAIR_NONE	integer(kind=I4P)	parameter
PAIR_OVERLAP	integer(kind=I4P)	parameter
PAIR_SHARED	integer(kind=I4P)	parameter

Derived Types

block_logical_t

Components

Name	Type	Attributes	Description
v	logical	allocatable

block_real_t

Components

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

donor_set_t

Components

Name	Type	Attributes	Description
start	integer(kind=I4P)	allocatable
block	integer(kind=I4P)	allocatable
cell	integer(kind=I4P)	allocatable
xi	real(kind=R8P)	allocatable
status	integer(kind=I4P)	allocatable
donor_volume	real(kind=R8P)	allocatable
ratio	real(kind=R8P)	allocatable
min_jacobian	real(kind=R8P)	allocatable
receptor_volume	real(kind=R8P)	allocatable
wall_distance	real(kind=R8P)	allocatable

overset_mask_t

Components

Name	Type	Attributes	Description
iota	integer(kind=I4P)	allocatable
donor	integer(kind=I4P)	allocatable
orphan	integer(kind=I4P)	allocatable
fringe	integer(kind=I4P)	allocatable

cls_t

Components

Name	Type	Attributes	Description
n	integer(kind=I4P)
hole	logical	allocatable
mandatory	logical	allocatable
immune	logical	allocatable
wall	logical	allocatable
desired	logical	allocatable
order	integer(kind=I4P)	allocatable
nodes	integer(kind=I4P)	allocatable

connectivity_t

Components

Name	Type	Attributes	Description
masks	type(overset_mask_t)	allocatable
n	integer(kind=I4P)
receptor_block	integer(kind=I4P)	allocatable
receptor_vertex	integer(kind=I4P)	allocatable
donor_block	integer(kind=I4P)	allocatable
corner	integer(kind=I4P)	allocatable
xi	real(kind=R8P)	allocatable
width	integer(kind=I4P)	allocatable
low_order	logical	allocatable
quality	real(kind=R8P)	allocatable

ray_t

Components

Name	Type	Attributes	Description
n	integer(kind=I4P)
t	real(kind=R8P)	allocatable
ent	logical	allocatable

tri_list_t

Components

Name	Type	Attributes	Description
n	integer(kind=I4P)
v	real(kind=R8P)	allocatable
keep	logical	allocatable

seg_list_t

Components

Name	Type	Attributes	Description
n	integer(kind=I4P)
a	real(kind=R8P)	allocatable
b	real(kind=R8P)	allocatable
line	integer(kind=I4P)	allocatable
keep	logical	allocatable

Subroutines

wall_cutter

subroutine wall_cutter(blocks, cutter, wall_name, tolerance, gap, shared, owner, status)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
cutter	type(surface_stl_object)	inout
wall_name	character(len=*)	in	optional
tolerance	real(kind=R8P)	in	optional
gap	real(kind=R8P)	out	optional
shared	logical	out	allocatable, optional
owner	integer(kind=I4P)	out	allocatable, optional
status	integer(kind=I4P)	out	optional

Call graph

block_wall_triangles

subroutine block_wall_triangles(blk, wname, tl, gmax)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
wname	character(len=*)	in
tl	type(tri_list_t)	inout
gmax	real(kind=R8P)	inout

Call graph

trim_triangles

subroutine trim_triangles(tl, tolerance, sh)

Arguments

Name	Type	Intent	Attributes	Description
tl	type(tri_list_t)	inout
tolerance	real(kind=R8P)	in	optional
sh	logical	out	allocatable

Call graph

near_set

subroutine near_set(ta, sbs, tolerance, near)

Arguments

Name	Type	Intent	Attributes	Description
ta	type(tri_list_t)	in
sbs	type(surface_stl_object)	in
tolerance	real(kind=R8P)	in	optional
near	logical	out	allocatable

Call graph

wall_cutter_2d

subroutine wall_cutter_2d(blocks, cutter, wall_name, tolerance, shared, owner, status)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
cutter	type(curve_object)	inout
wall_name	character(len=*)	in	optional
tolerance	real(kind=R8P)	in	optional
shared	logical	out	allocatable, optional
owner	integer(kind=I4P)	out	allocatable, optional
status	integer(kind=I4P)	out	optional

Call graph

block_wall_segments

subroutine block_wall_segments(blk, wname, sl)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_2d_t)	in
wname	character(len=*)	in
sl	type(seg_list_t)	inout

Call graph

swap_ends

Attributes: pure

subroutine swap_ends(a, b)

Arguments

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

Call graph

trim_segments

subroutine trim_segments(sl, tolerance, sh)

Arguments

Name	Type	Intent	Attributes	Description
sl	type(seg_list_t)	inout
tolerance	real(kind=R8P)	in	optional
sh	logical	out	allocatable

Call graph

segment_curve

subroutine segment_curve(sl, c)

Arguments

Name	Type	Intent	Attributes	Description
sl	type(seg_list_t)	in
c	type(curve_object)	inout

Call graph

near_segs

subroutine near_segs(sa, cb, tolerance, near)

Arguments

Name	Type	Intent	Attributes	Description
sa	type(seg_list_t)	in
cb	type(curve_object)	in
tolerance	real(kind=R8P)	in	optional
near	logical	out	allocatable

Call graph

hole_flags

subroutine hole_flags(blocks, cutter, holes, offset, cuts, device, distances, poses, cutter_pose)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
cutter	type(surface_stl_object)	inout
holes	type(block_logical_t)	out	allocatable
offset	real(kind=R8P)	in	optional
cuts	logical	in	optional
device	logical	in	optional
distances	type(block_real_t)	out	allocatable, optional
poses	type(rigid_pose_t)	in	optional
cutter_pose	type(rigid_pose_t)	in	optional

Call graph

hole_flags_2d

subroutine hole_flags_2d(blocks, cutter, holes, offset, cuts, device, distances, poses, cutter_pose)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
cutter	type(curve_object)	inout
holes	type(block_logical_t)	out	allocatable
offset	real(kind=R8P)	in	optional
cuts	logical	in	optional
device	logical	in	optional
distances	type(block_real_t)	out	allocatable, optional
poses	type(rigid_pose_2d_t)	in	optional
cutter_pose	type(rigid_pose_2d_t)	in	optional

Call graph

hole_map

subroutine hole_map(blocks, cutter, holes, n, cuts, pegasus, unresolved)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
cutter	type(surface_stl_object)	in
holes	type(block_logical_t)	out	allocatable
n	integer(kind=I4P)	in
cuts	logical	in	optional
pegasus	logical	in	optional
unresolved	integer(kind=I4P)	out	optional

Call graph

paint_outside

subroutine paint_outside(state)

Arguments

Name	Type	Intent	Attributes	Description
state	integer(kind=I4P)	inout

Call graph

line_of_sight_3d

subroutine line_of_sight_3d(cutter, state, b0, h, p, ijk, peg, ins, ok)

Arguments

Name	Type	Intent	Attributes	Description
cutter	type(surface_stl_object)	in
state	integer(kind=I4P)	in
b0	real(kind=R8P)	in
h	real(kind=R8P)	in
p	real(kind=R8P)	in
ijk	integer(kind=I4P)	in
peg	logical	in
ins	logical	out
ok	logical	out

Call graph

xray_flags

subroutine xray_flags(blocks, cutter, holes, n, cuts)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
cutter	type(surface_stl_object)	in
holes	type(block_logical_t)	out	allocatable
n	integer(kind=I4P)	in
cuts	logical	in	optional

Call graph

hole_map_2d

subroutine hole_map_2d(blocks, cutter, holes, n, cuts, pegasus, unresolved)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
cutter	type(curve_object)	in
holes	type(block_logical_t)	out	allocatable
n	integer(kind=I4P)	in
cuts	logical	in	optional
pegasus	logical	in	optional
unresolved	integer(kind=I4P)	out	optional

Call graph

line_of_sight_2d

subroutine line_of_sight_2d(cutter, state, b0, h, p, ij, peg, ins, ok)

Arguments

Name	Type	Intent	Attributes	Description
cutter	type(curve_object)	in
state	integer(kind=I4P)	in
b0	real(kind=R8P)	in
h	real(kind=R8P)	in
p	real(kind=R8P)	in
ij	integer(kind=I4P)	in
peg	logical	in
ins	logical	out
ok	logical	out

Call graph

xray_flags_2d

subroutine xray_flags_2d(blocks, cutter, holes, n, cuts)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
cutter	type(curve_object)	in
holes	type(block_logical_t)	out	allocatable
n	integer(kind=I4P)	in
cuts	logical	in	optional

Call graph

overlap_matrix

subroutine overlap_matrix(blocks, pair, shared)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
pair	integer(kind=I4P)	out	allocatable
shared	logical	in	optional

Call graph

boundary_points_3d

subroutine boundary_points_3d(blk, px, py, pz)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
px	real(kind=R8P)	out	allocatable
py	real(kind=R8P)	out	allocatable
pz	real(kind=R8P)	out	allocatable

Call graph

donor_candidates

subroutine donor_candidates(blocks, donors, pair, wall, device, shifts, poses, previous)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	inout	target
donors	type(donor_set_t)	out	allocatable
pair	integer(kind=I4P)	in	optional
wall	type(surface_stl_object)	in	optional
device	logical	in	optional
shifts	type(block_real_t)	in	optional
poses	type(rigid_pose_t)	in	optional
previous	type(donor_set_t)	in	optional

Call graph

vertex_points_3d

subroutine vertex_points_3d(blk, px, py, pz)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
px	real(kind=R8P)	out	allocatable
py	real(kind=R8P)	out	allocatable
pz	real(kind=R8P)	out	allocatable

Call graph

overlap_matrix_2d

subroutine overlap_matrix_2d(blocks, pair, shared)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
pair	integer(kind=I4P)	out	allocatable
shared	logical	in	optional

Call graph

donor_candidates_2d

subroutine donor_candidates_2d(blocks, donors, pair, wall, device, shifts, poses, previous)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	inout	target
donors	type(donor_set_t)	out	allocatable
pair	integer(kind=I4P)	in	optional
wall	type(curve_object)	in	optional
device	logical	in	optional
shifts	type(block_real_t)	in	optional
poses	type(rigid_pose_2d_t)	in	optional
previous	type(donor_set_t)	in	optional

Call graph

classify

subroutine classify(blocks, donors, masks, rule, q, holes, explicit_interpolation, layers, immune, overlap_name, wall_name, iterations, circular)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
donors	type(donor_set_t)	in
masks	type(overset_mask_t)	out	allocatable
rule	integer(kind=I4P)	in
q	integer(kind=I4P)	in
holes	type(block_logical_t)	in	optional
explicit_interpolation	logical	in	optional
layers	integer(kind=I4P)	in	optional
immune	integer(kind=I4P)	in	optional
overlap_name	character(len=*)	in	optional
wall_name	character(len=*)	in	optional
iterations	integer(kind=I4P)	out	optional
circular	integer(kind=I4P)	out	optional

Call graph

classify_2d

subroutine classify_2d(blocks, donors, masks, rule, q, holes, explicit_interpolation, layers, immune, overlap_name, wall_name, iterations, circular)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
donors	type(donor_set_t)	in
masks	type(overset_mask_t)	out	allocatable
rule	integer(kind=I4P)	in
q	integer(kind=I4P)	in
holes	type(block_logical_t)	in	optional
explicit_interpolation	logical	in	optional
layers	integer(kind=I4P)	in	optional
immune	integer(kind=I4P)	in	optional
overlap_name	character(len=*)	in	optional
wall_name	character(len=*)	in	optional
iterations	integer(kind=I4P)	out	optional
circular	integer(kind=I4P)	out	optional

Call graph

face_flags_3d

subroutine face_flags_3d(blk, cl, overlap_name, wall_name, immune)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
cl	type(cls_t)	inout
overlap_name	character(len=*)	in	optional
wall_name	character(len=*)	in	optional
immune	integer(kind=I4P)	in	optional

Call graph

face_flags_2d

subroutine face_flags_2d(blk, cl, overlap_name, wall_name, immune)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_2d_t)	in
cl	type(cls_t)	inout
overlap_name	character(len=*)	in	optional
wall_name	character(len=*)	in	optional
immune	integer(kind=I4P)	in	optional

Call graph

mark_range

Attributes: pure

subroutine mark_range(n, face, lo, hi, depth, flag)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
face	integer(kind=I4P)	in
lo	integer(kind=I4P)	in
hi	integer(kind=I4P)	in
depth	integer(kind=I4P)	in
flag	logical	inout

Call graph

classify_core

subroutine classify_core(cl, donors, masks, rule, explicit_interpolation, layers, iterations, circular)

Arguments

Name	Type	Intent	Attributes	Description
cl	type(cls_t)	inout
donors	type(donor_set_t)	in
masks	type(overset_mask_t)	out	allocatable
rule	integer(kind=I4P)	in
explicit_interpolation	logical	in	optional
layers	integer(kind=I4P)	in	optional
iterations	integer(kind=I4P)	out	optional
circular	integer(kind=I4P)	out	optional

Call graph

fringe_levels

subroutine fringe_levels(blocks, masks, levels)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
masks	type(overset_mask_t)	inout
levels	integer(kind=I4P)	in	optional

Call graph

fringe_levels_2d

subroutine fringe_levels_2d(blocks, masks, levels)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
masks	type(overset_mask_t)	inout
levels	integer(kind=I4P)	in	optional

Call graph

fringe_core

subroutine fringe_core(n, outer, mask, nl)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
outer	logical	in
mask	type(overset_mask_t)	inout
nl	integer(kind=I4P)	in

Call graph

cell_ring

Attributes: pure

subroutine cell_ring(n, seed, ring)

Arguments

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

Call graph

overlap_width

subroutine overlap_width(blocks, masks, d)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
masks	type(overset_mask_t)	in
d	real(kind=R8P)	out	allocatable

Call graph

overlap_width_2d

subroutine overlap_width_2d(blocks, masks, d)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
masks	type(overset_mask_t)	in
d	real(kind=R8P)	out	allocatable

Call graph

width_core

subroutine width_core(x, y, z, masks, d)

Arguments

Name	Type	Intent	Attributes	Description
x	type(block_real_t)	in
y	type(block_real_t)	in
z	type(block_real_t)	in
masks	type(overset_mask_t)	in
d	real(kind=R8P)	out	allocatable

Call graph

hole_rings

Attributes: pure

subroutine hole_rings(n, hole, nl, ring)

Arguments

Name	Type	Intent	Attributes	Description
n	integer(kind=I4P)	in
hole	logical	in
nl	integer(kind=I4P)	in
ring	logical	out

Call graph

sort_by_volume

Attributes: pure

subroutine sort_by_volume(key, vol)

Arguments

Name	Type	Intent	Attributes	Description
key	integer(kind=I4P)	inout
vol	real(kind=R8P)	in

Call graph

previous_starts

Attributes: pure

subroutine previous_starts(prev, b, dm, nv, starts)

Arguments

Name	Type	Intent	Attributes	Description
prev	type(donor_set_t)	in
b	integer(kind=I4P)	in
dm	integer(kind=I4P)	in
nv	integer(kind=I4P)	in
starts	integer(kind=I4P)	out	allocatable

Call graph

exposed_points

subroutine exposed_points(old, new, exposed, violations)

Arguments

Name	Type	Intent	Attributes	Description
old	type(overset_mask_t)	in
new	type(overset_mask_t)	in
exposed	type(block_logical_t)	out	allocatable
violations	integer(kind=I4P)	out	optional

wall_projection

subroutine wall_projection(blocks, a, b, shift, max_distance, wall_name)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_t)	in
a	integer(kind=I4P)	in
b	integer(kind=I4P)	in
shift	real(kind=R8P)	out	allocatable
max_distance	real(kind=R8P)	in
wall_name	character(len=*)	in	optional

Call graph

wall_projection_2d

subroutine wall_projection_2d(blocks, a, b, shift, max_distance, wall_name)

Arguments

Name	Type	Intent	Attributes	Description
blocks	type(curvilinear_block_2d_t)	in
a	integer(kind=I4P)	in
b	integer(kind=I4P)	in
shift	real(kind=R8P)	out	allocatable
max_distance	real(kind=R8P)	in
wall_name	character(len=*)	in	optional

Call graph

build_connectivity

subroutine build_connectivity(masks, donors, q, dm, conn)

Arguments

Name	Type	Intent	Attributes	Description
masks	type(overset_mask_t)	in
donors	type(donor_set_t)	in
q	integer(kind=I4P)	in
dm	integer(kind=I4P)	in
conn	type(connectivity_t)	out

Call graph

save_connectivity

subroutine save_connectivity(conn, file_name, status)

Arguments

Name	Type	Intent	Attributes	Description
conn	type(connectivity_t)	in
file_name	character(len=*)	in
status	integer(kind=I4P)	out	optional

cell_centre_block

subroutine cell_centre_block(blk, dual)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
dual	type(curvilinear_block_t)	inout

Call graph

cell_centre_block_2d

subroutine cell_centre_block_2d(blk, dual)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_2d_t)	in
dual	type(curvilinear_block_2d_t)	inout

Call graph

Functions

mean_size

Attributes: pure

Returns: real(kind=r8p)

function mean_size(ta, mask) result(m)

Arguments

Name	Type	Intent	Attributes	Description
ta	type(tri_list_t)	in
mask	logical	in

Call graph

mean_len

Attributes: pure

Returns: real(kind=r8p)

function mean_len(sa, mask) result(m)

Arguments

Name	Type	Intent	Attributes	Description
sa	type(seg_list_t)	in
mask	logical	in

Call graph

on_curve

Returns: logical

function on_curve(cutter, p) result(yes)

Arguments

Name	Type	Intent	Attributes	Description
cutter	type(curve_object)	in
p	real(kind=R8P)	in

Call graph

vertex_volumes_3d

Attributes: pure

Returns: real(kind=R8P)

function vertex_volumes_3d(vol) result(vv)

Arguments

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

Call graph

vertex_volumes_2d

Attributes: pure

Returns: real(kind=R8P)

function vertex_volumes_2d(ar) result(vv)

Arguments

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

Call graph

name_or

Attributes: pure

Returns: character(len=:)

function name_or(name, default) result(n)

Arguments

Name	Type	Intent	Attributes	Description
name	character(len=*)	in	optional
default	character(len=*)	in

Call graph

orphan_cause

Returns: integer(kind=i4p)

function orphan_cause(cl, old, donors, a, v, expl) result(cause)

Arguments

Name	Type	Intent	Attributes	Description
cl	type(cls_t)	in
old	type(overset_mask_t)	in
donors	type(donor_set_t)	in
a	integer(kind=I4P)	in
v	integer(kind=I4P)	in
expl	logical	in

Call graph

outer_flags_3d

Returns: logical

function outer_flags_3d(blk) result(f)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in

Call graph

outer_flags_2d

Returns: logical

function outer_flags_2d(blk) result(f)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_2d_t)	in

Call graph

pt3

Attributes: pure

Returns: real(kind=R8P)

function pt3(blk, p) result(x)

Arguments

Name	Type	Intent	Attributes	Description
blk	type(curvilinear_block_t)	in
p	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