fossil_curvature

Source: src/lib/fossil_curvature.f90

Dependencies

Contents

• build_gaussian_curvature
• build_mean_curvature
• angle_at

Variables

Name	Type	Attributes	Description
CURV_STATUS_OK	integer(kind=I4P)	parameter
CURV_STATUS_BAD_INPUT	integer(kind=I4P)	parameter
CURV_STATUS_DEGENERATE_TRIANGLE	integer(kind=I4P)	parameter
DEGENERATE_AREA_TOL	real(kind=R8P)	parameter
PI	real(kind=R8P)	parameter

Subroutines

build_gaussian_curvature

subroutine build_gaussian_curvature(facet, pool, K, status)

Arguments

Name	Type	Intent	Attributes	Description
facet	type(facet_object)	in
pool	type(vertex_pool_object)	in
K	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	optional

Call graph

build_mean_curvature

subroutine build_mean_curvature(facet, pool, H, status)

Arguments

Name	Type	Intent	Attributes	Description
facet	type(facet_object)	in
pool	type(vertex_pool_object)	in
H	real(kind=R8P)	out	allocatable
status	integer(kind=I4P)	out	optional

Call graph

Functions

angle_at

Attributes: pure

Returns: real(kind=R8P)

function angle_at(u, v) result(theta)

Arguments

Name	Type	Intent	Attributes	Description
u	type(vector_R8P)	in
v	type(vector_R8P)	in

Call graph