m_model.fpp.f90 File Reference

Functions/Subroutines
program	__m_model_fpp_f90__
subroutine	s_read_stl_binary (filepath, model)
	This procedure reads a binary STL file.
subroutine	s_read_stl_ascii (filepath, model)
	This procedure reads an ASCII STL file.
subroutine	s_read_stl (filepath, model)
	This procedure reads an STL file.
subroutine	s_read_obj (filepath, model)
	This procedure reads an OBJ file.
type(t_model) function	f_model_read (filepath)
	This procedure reads a mesh from a file.
subroutine	s_write_stl (filepath, model)
	This procedure writes a binary STL file.
subroutine	s_write_obj (filepath, model)
	This procedure writes an OBJ file.
subroutine	s_model_write (filepath, model)
	This procedure writes a binary STL file.
subroutine	s_model_free (model)
	This procedure frees the memory allocated for an STL mesh.
logical function	f_read_line (iunit, line)
subroutine	s_skip_ignored_lines (iunit, buffered_line, is_buffered)
real(wp) function	f_model_is_inside (model, point, spacing, spc)
	This procedure, recursively, finds whether a point is inside an octree.
logical function	f_intersects_triangle (ray, triangle)
	This procedure checks if a ray intersects a triangle.
subroutine	f_check_boundary (model, boundary_v, boundary_vertex_count, boundary_edge_count)
	This procedure checks and labels edges shared by two or more triangles facets of the 2D STL model.
subroutine	f_register_edge (temp_boundary_v, edge, edge_index, edge_count)
	This procedure appends the edge end vertices to a temporary buffer.
subroutine	f_check_interpolation_2d (boundary_v, boundary_edge_count, spacing, interpolate)
	This procedure check if interpolates is needed for 2D models.
subroutine	f_check_interpolation_3d (model, spacing, interpolate)
	This procedure check if interpolates is needed for 3D models.
subroutine	f_interpolate_2d (boundary_v, boundary_edge_count, spacing, interpolated_boundary_v, total_vertices)
	This procedure interpolates 2D models.
subroutine	f_interpolate_3d (model, spacing, interpolated_boundary_v, total_vertices)
	This procedure interpolates 3D models.
subroutine	f_distance_normals_3d (model, point, normals, distance)
	This procedure determines the levelset distance and normals of the 3D models without interpolation.
real(wp) function	f_distance (boundary_v, boundary_vertex_count, boundary_edge_count, point, spacing)
	This procedure determines the levelset distance of 2D models without interpolation.
subroutine	f_normals (boundary_v, boundary_vertex_count, boundary_edge_count, point, spacing, normals)
	This procedure determines the levelset normals of 2D models without interpolation.
real(wp) function	f_interpolated_distance (interpolated_boundary_v, total_vertices, point, spacing)
	This procedure determines the levelset of interpolated 2D models.
real(wp) function	f_tri_area (tri)
	This procedure calculates the barycentric facet area.

Function/Subroutine Documentation

__m_model_fpp_f90__()

program __m_model_fpp_f90__

Here is the call graph for this function:

f_check_boundary()

subroutine __m_model_fpp_f90__::f_check_boundary ( type(t_model), intent(in) model, real(wp), dimension(:, :, :), intent(out), allocatable boundary_v, integer, intent(out) boundary_vertex_count, integer, intent(out) boundary_edge_count )

private

This procedure checks and labels edges shared by two or more triangles facets of the 2D STL model.

Parameters

	model	Model to search in.
	boundary_v	Output boundary vertices/normals.
	boundary_vertex_count	Output total boundary vertex count
	boundary_edge_count	Output total boundary edge counts
[out]	boundary_v	Output boundary vertices/normals
[out]	boundary_edge_count	Output boundary vertex/edge count

Here is the call graph for this function:

Here is the caller graph for this function:

f_check_interpolation_2d()

subroutine __m_model_fpp_f90__::f_check_interpolation_2d ( real(wp), dimension(1:boundary_edge_count, 1:3, 1:2), intent(in) boundary_v, integer, intent(in) boundary_edge_count, intent(in) spacing, logical, intent(inout) interpolate )

private

This procedure check if interpolates is needed for 2D models.

Parameters

	boundary_v	Temporary edge end vertex buffer
	boundary_edge_count	Output total number of boundary edges
	spacing	Dimensions of the current levelset cell
	interpolate	Logical output
[in,out]	interpolate	Logical indicator of interpolation
[in]	boundary_edge_count	Number of boundary edges

Here is the caller graph for this function:

f_check_interpolation_3d()

subroutine __m_model_fpp_f90__::f_check_interpolation_3d ( type(t_model), intent(in) model, intent(in) spacing, logical, intent(inout) interpolate )

private

This procedure check if interpolates is needed for 3D models.

Parameters

model	Model to search in.
spacing	Dimensions of the current levelset cell
interpolate	Logical output

Here is the caller graph for this function:

f_distance()

real(wp) function __m_model_fpp_f90__::f_distance ( real(wp), dimension(1:boundary_edge_count, 1:3, 1:2), intent(in) boundary_v, integer, intent(in) boundary_vertex_count, integer, intent(in) boundary_edge_count, intent(in) point, intent(in) spacing )

private

This procedure determines the levelset distance of 2D models without interpolation.

Parameters

boundary_v	Group of all the boundary vertices of the 2D model without interpolation
boundary_vertex_count	Output the total number of boundary vertices
boundary_edge_count	Output the total number of boundary edges
point	The cell centers of the current levelset cell
spacing	Dimensions of the current levelset cell

Returns

Distance which the levelset distance without interpolation

Here is the caller graph for this function:

f_distance_normals_3d()

subroutine __m_model_fpp_f90__::f_distance_normals_3d ( type(t_model), intent(in) model, intent(in) point, intent(out) normals, real(wp), intent(out) distance )

private

This procedure determines the levelset distance and normals of the 3D models without interpolation.

Parameters

model	Model to search in.
point	The cell centers of the current level cell
normals	The output levelset normals
distance	The output levelset distance

Here is the caller graph for this function:

f_interpolate_2d()

subroutine __m_model_fpp_f90__::f_interpolate_2d ( real(wp), dimension(:, :, :), intent(in) boundary_v, integer, intent(inout) boundary_edge_count, intent(in) spacing, real(wp), dimension(:, :), intent(inout), allocatable interpolated_boundary_v, integer, intent(inout) total_vertices )

private

This procedure interpolates 2D models.

Parameters

boundary_v	Group of all the boundary vertices of the 2D model without interpolation
boundary_edge_count	Output total number of boundary edges
spacing	Dimensions of the current levelset cell
interpolated_boundary_v	Output all the boundary vertices of the interpolated 2D model
total_vertices	Total number of vertices after interpolation

Here is the caller graph for this function:

f_interpolate_3d()

subroutine __m_model_fpp_f90__::f_interpolate_3d ( type(t_model), intent(in) model, intent(in) spacing, real(wp), dimension(:, :), intent(inout), allocatable interpolated_boundary_v, integer, intent(out) total_vertices )

private

This procedure interpolates 3D models.

Parameters

model	Model to search in.
spacing	Dimensions of the current levelset cell
interpolated_boundary_v	Output all the boundary vertices of the interpolated 3D model
total_vertices	Total number of vertices after interpolation

Here is the call graph for this function:

Here is the caller graph for this function:

f_interpolated_distance()

real(wp) function __m_model_fpp_f90__::f_interpolated_distance ( real(wp), dimension(1:total_vertices, 1:3), intent(in) interpolated_boundary_v, integer, intent(in) total_vertices, intent(in) point, intent(in) spacing )

private

This procedure determines the levelset of interpolated 2D models.

Parameters

interpolated_boundary_v	Group of all the boundary vertices of the interpolated 2D model
total_vertices	Total number of vertices after interpolation
point	The cell centers of the current levelset cell
spacing	Dimensions of the current levelset cell

Returns

Distance which the levelset distance without interpolation

Here is the caller graph for this function:

f_intersects_triangle()

logical function __m_model_fpp_f90__::f_intersects_triangle ( type(t_ray), intent(in) ray, type(t_triangle), intent(in) triangle )

private

This procedure checks if a ray intersects a triangle.

Parameters

ray	Ray.
triangle	Triangle.

Returns

True if the ray intersects the triangle, false otherwise.

Here is the call graph for this function:

Here is the caller graph for this function:

f_model_is_inside()

real(wp) function __m_model_fpp_f90__::f_model_is_inside ( type(t_model), intent(in) model, intent(in) point, intent(in) spacing, integer, intent(in) spc )

private

This procedure, recursively, finds whether a point is inside an octree.

Parameters

model	Model to search in.
point	Point to test.
spacing	Space around the point to search in (grid spacing).
spc	Number of samples per cell.

Returns

True if the point is inside the octree, false otherwise.

Here is the call graph for this function:

Here is the caller graph for this function:

f_model_read()

type(t_model) function __m_model_fpp_f90__::f_model_read ( character(len=*), intent(in) filepath )

private

This procedure reads a mesh from a file.

Parameters

filepath

Path to the file to read.

Returns

The model read from the file.

Here is the call graph for this function:

Here is the caller graph for this function:

f_normals()

subroutine __m_model_fpp_f90__::f_normals ( real(wp), dimension(1:boundary_edge_count, 1:3, 1:2), intent(in) boundary_v, integer, intent(in) boundary_vertex_count, integer, intent(in) boundary_edge_count, intent(in) point, intent(in) spacing, intent(out) normals )

private

This procedure determines the levelset normals of 2D models without interpolation.

Parameters

boundary_v	Group of all the boundary vertices of the 2D model without interpolation
boundary_vertex_count	Output the total number of boundary vertices
boundary_edge_count	Output the total number of boundary edges
point	The cell centers of the current levelset cell
spacing	Dimensions of the current levelset cell
normals	Output levelset normals without interpolation

Here is the caller graph for this function:

f_read_line()

logical function __m_model_fpp_f90__::f_read_line ( integer, intent(in) iunit, character(80), intent(out) line )

private

Here is the caller graph for this function:

f_register_edge()

subroutine __m_model_fpp_f90__::f_register_edge ( real(wp), dimension(1:edge_count, 1:2, 1:2), intent(inout) temp_boundary_v, real(wp), dimension(1:2, 1:2), intent(in) edge, integer, intent(inout) edge_index, integer, intent(inout) edge_count )

private

This procedure appends the edge end vertices to a temporary buffer.

Parameters

	temp_boundary_v	Temporary edge end vertex buffer
	edge	Edges end points to be registered
	edge_index	Edge index iterator
	edge_count	Total number of edges
[in,out]	edge_index	Edge index iterator
[in,out]	edge_count	Total number of edges
[in]	edge	Edges end points to be registered
[in,out]	temp_boundary_v	Temporary edge end vertex buffer

Here is the caller graph for this function:

f_tri_area()

real(wp) function __m_model_fpp_f90__::f_tri_area ( real(wp), dimension(1:3, 1:3), intent(in) tri )

private

This procedure calculates the barycentric facet area.

Here is the caller graph for this function:

s_model_free()

subroutine __m_model_fpp_f90__::s_model_free ( type(t_model), intent(inout) model )

private

This procedure frees the memory allocated for an STL mesh.

Here is the caller graph for this function:

s_model_write()

subroutine __m_model_fpp_f90__::s_model_write ( character(len=*), intent(in) filepath, type(t_model), intent(in) model )

private

This procedure writes a binary STL file.

Parameters

filepath	Path to the file to write.
model	Model to write.

Here is the call graph for this function:

Here is the caller graph for this function:

s_read_obj()

subroutine __m_model_fpp_f90__::s_read_obj ( character(len=*), intent(in) filepath, type(t_model), intent(out) model )

private

This procedure reads an OBJ file.

Parameters

filepath	Path to the odj file.
model	The obj file.

Here is the call graph for this function:

Here is the caller graph for this function:

s_read_stl()

subroutine __m_model_fpp_f90__::s_read_stl ( character(len=*), intent(in) filepath, type(t_model), intent(out) model )

private

This procedure reads an STL file.

Parameters

filepath	Path to the STL file.
model	the STL file.

Here is the call graph for this function:

Here is the caller graph for this function:

s_read_stl_ascii()

subroutine __m_model_fpp_f90__::s_read_stl_ascii ( character(len=*), intent(in) filepath, type(t_model), intent(out) model )

private

This procedure reads an ASCII STL file.

Parameters

filepath	Path to the STL file.
model	the STL file.

Here is the call graph for this function:

Here is the caller graph for this function:

s_read_stl_binary()

subroutine __m_model_fpp_f90__::s_read_stl_binary ( character(len=*), intent(in) filepath, type(t_model), intent(out) model )

private

This procedure reads a binary STL file.

Parameters

filepath	Path to the STL file.
model	The binary of the STL file.

Here is the call graph for this function:

Here is the caller graph for this function:

s_skip_ignored_lines()

subroutine __m_model_fpp_f90__::s_skip_ignored_lines ( integer, intent(in) iunit, character(80), intent(inout) buffered_line, logical, intent(inout) is_buffered )

private

Here is the call graph for this function:

Here is the caller graph for this function:

s_write_obj()

subroutine __m_model_fpp_f90__::s_write_obj ( character(len=*), intent(in) filepath, type(t_model), intent(in) model )

private

This procedure writes an OBJ file.

Parameters

filepath	Path to the obj file.
model	obj to write.

Here is the call graph for this function:

Here is the caller graph for this function:

s_write_stl()

subroutine __m_model_fpp_f90__::s_write_stl ( character(len=*), intent(in) filepath, type(t_model), intent(in) model )

private

This procedure writes a binary STL file.

Parameters

filepath	Path to the STL file.
model	STL to write

Here is the call graph for this function:

Here is the caller graph for this function: