fossil_curve_slice

Source: src/lib/fossil_curve_slice.f90

Dependencies

Contents

• slice_surface
• chain
• sort_starts
• drop_collinear
• crossing
• in_plane
• lex_less
• find_start

Subroutines

slice_surface

subroutine slice_surface(surface, normal_axis, level, curve, merge_collinear, open_loops, on_plane_low, status)

Arguments

Name	Type	Intent	Attributes	Description
surface	type(surface_stl_object)	in
normal_axis	integer(kind=I4P)	in
level	real(kind=R8P)	in
curve	type(curve_object)	inout
merge_collinear	logical	in	optional
open_loops	integer(kind=I4P)	out	optional
on_plane_low	logical	in	optional
status	integer(kind=I4P)	out	optional

Call graph

chain

subroutine chain(s, lu, lv, sizes, closed, nopen, sp, lp)

Arguments

Name	Type	Intent	Attributes	Description
s	real(kind=R8P)	in
lu	real(kind=R8P)	out	allocatable
lv	real(kind=R8P)	out	allocatable
sizes	integer(kind=I4P)	out	allocatable
closed	logical	out	allocatable
nopen	integer(kind=I4P)	out
sp	integer(kind=I4P)	in
lp	integer(kind=I4P)	out	allocatable

Call graph

sort_starts

Attributes: pure

subroutine sort_starts(s, ord)

Arguments

Name	Type	Intent	Attributes	Description
s	real(kind=R8P)	in
ord	integer(kind=I4P)	inout

Call graph

drop_collinear

Attributes: pure

subroutine drop_collinear(lu, lv, sizes, closed, lp)

Arguments

Name	Type	Intent	Attributes	Description
lu	real(kind=R8P)	inout	allocatable
lv	real(kind=R8P)	inout	allocatable
sizes	integer(kind=I4P)	inout	allocatable
closed	logical	in
lp	integer(kind=I4P)	inout	allocatable

Call graph

Functions

crossing

Attributes: pure

Returns: real(kind=R8P)

function crossing(p, q, axis, level) result(c)

Arguments

Name	Type	Intent	Attributes	Description
p	real(kind=R8P)	in
q	real(kind=R8P)	in
axis	integer(kind=I4P)	in
level	real(kind=R8P)	in

Call graph

in_plane

Attributes: pure

Returns: real(kind=R8P)

function in_plane(x, axis) result(uv)

Arguments

Name	Type	Intent	Attributes	Description
x	real(kind=R8P)	in
axis	integer(kind=I4P)	in

Call graph

lex_less

Attributes: pure

Returns: logical

function lex_less(a, b) result(less)

Arguments

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

Call graph

find_start

Attributes: pure

Returns: integer(kind=I4P)

function find_start(s, ord, p, used) result(k)

Arguments

Name	Type	Intent	Attributes	Description
s	real(kind=R8P)	in
ord	integer(kind=I4P)	in
p	real(kind=R8P)	in
used	logical	in

Call graph