0.6.0
Loading...
Searching...
No Matches
paraboloid_polyhedron.f90 File Reference

Data Types

type  mod_cg3_paraboloid_polyhedron::t_paraboloid
 
type  mod_cg3_paraboloid_polyhedron::t_clip_info
 

Modules

module  mod_cg3_paraboloid_polyhedron
 

Functions/Subroutines

subroutine, public mod_cg3_paraboloid_polyhedron::paraboloid_polyhedron_moments (polyhedron, paraboloid, volume, momentum, is_failed)
 
subroutine mod_cg3_paraboloid_polyhedron::paraboloid_polyhedron_moments_nudge (polyhedron, paraboloid, volume, momentum, do_nudge)
 
pure subroutine mod_cg3_paraboloid_polyhedron::edge_paraboloid_intersection (paraboloid, pt0, pt1, n_intersections, intersection)
 
pure subroutine mod_cg3_paraboloid_polyhedron::allocate_clip_info (clip_info, polyhedron)
 
double precision pure function mod_cg3_paraboloid_polyhedron::evaluate_paraboloid_xyz (paraboloid, x, y, z)
 
double precision pure function mod_cg3_paraboloid_polyhedron::evaluate_paraboloid_coord (paraboloid, coord)
 
pure subroutine mod_cg3_paraboloid_polyhedron::paraboloid_plane_intersection (paraboloid, normal, point, volume, momentum)
 
pure subroutine mod_cg3_paraboloid_polyhedron::generate_intersection_list_2 (polyhedron, clip_info, f, n_intersections, list, starts_curve, tangent, n_points)
 
subroutine mod_cg3_paraboloid_polyhedron::contribution_list (paraboloid, list, starts_curve, tangent, n_points, face_normal, volume, momentum, do_nudge)
 
pure subroutine mod_cg3_paraboloid_polyhedron::contribution_term1 (x0, x1, xref, volume, momentum)
 
pure subroutine mod_cg3_paraboloid_polyhedron::contribution_term2 (paraboloid, xa, xb, volume, momentum)
 
pure subroutine mod_cg3_paraboloid_polyhedron::contribution_term3 (paraboloid, face_normal, xa, xb, edge_ta, edge_tb, volume, momentum, do_nudge)
 
pure recursive subroutine mod_cg3_paraboloid_polyhedron::evaluate_term3_with_split (paraboloid, normal, xref, x0, x1, t0, t1, split_counter, volume, momentum, do_nudge)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_triangle_correction (paraboloid, xa, xb, xc, volume, momentum)
 
pure subroutine mod_cg3_paraboloid_polyhedron::project_point_onto_paraboloid (paraboloid, tangent, start_point, point)
 
pure subroutine mod_cg3_paraboloid_polyhedron::evaluate_term3 (paraboloid, xa, xb, xc, weight, volume, momentum)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_c_matrix (paraboloid, xa, xb, xc, c_matrix)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_coeffs (weight, coeffs)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_paraboloid_tangent (paraboloid, face_normal, point, tangent)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_and_correct_tangent_at_point (paraboloid, normal, x1, t1, point, tangent)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_bezier_weight (paraboloid, x0, control, x1, normal, weight)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_bezier_weight_with_tangents (paraboloid, x0, t0, x1, t1, normal, control_point, weight)
 
pure subroutine mod_cg3_paraboloid_polyhedron::compute_paraboloid_normal (paraboloid, point, normal)
 

Variables

double precision, parameter mod_cg3_paraboloid_polyhedron::nudge_epsilon = 15*epsilon(NUDGE_EPSILON)
 
double precision, parameter mod_cg3_paraboloid_polyhedron::nudge_epsilon_sq = NUDGE_EPSILON*NUDGE_EPSILON
 
double precision, parameter mod_cg3_paraboloid_polyhedron::corner_epsilon = 15*epsilon(CORNER_EPSILON)
 
double precision, parameter mod_cg3_paraboloid_polyhedron::tangent_epsilon = 100*epsilon(TANGENT_EPSILON)
 
double precision, parameter mod_cg3_paraboloid_polyhedron::distance_epsilon = 1d2*epsilon(DISTANCE_EPSILON)
 
double precision, parameter mod_cg3_paraboloid_polyhedron::angle_epsilon = 1d6*epsilon(ANGLE_EPSILON)