tem_ellipsoid_module Module

  1. tem_ellipsoid_module.f90
  2. tem_ellipsoid_module

This module contains ellipsoid definition and routines related to ellipsoids


Uses

  • module~~tem_ellipsoid_module~~UsesGraph module~tem_ellipsoid_module tem_ellipsoid_module module~aotus_module aotus_module module~tem_ellipsoid_module->module~aotus_module module~tem_aux_module tem_aux_module module~tem_ellipsoid_module->module~tem_aux_module module~env_module env_module module~tem_ellipsoid_module->module~env_module module~tem_logging_module tem_logging_module module~tem_ellipsoid_module->module~tem_logging_module module~tem_cube_module tem_cube_module module~tem_ellipsoid_module->module~tem_cube_module module~aot_table_module aot_table_module module~tem_ellipsoid_module->module~aot_table_module module~tem_transformation_module tem_transformation_module module~tem_ellipsoid_module->module~tem_transformation_module module~aot_out_module aot_out_module module~tem_ellipsoid_module->module~aot_out_module module~tem_aux_module->module~aotus_module module~tem_aux_module->module~env_module module~tem_aux_module->module~tem_logging_module module~tem_aux_module->module~aot_table_module module~tem_revision_module tem_revision_module module~tem_aux_module->module~tem_revision_module module~tem_comm_env_module tem_comm_env_module module~tem_aux_module->module~tem_comm_env_module module~flu_binding flu_binding module~tem_aux_module->module~flu_binding module~tem_tools_module tem_tools_module module~tem_aux_module->module~tem_tools_module module~tem_lua_requires_module tem_lua_requires_module module~tem_aux_module->module~tem_lua_requires_module mpi mpi module~tem_aux_module->mpi module~env_module->module~aotus_module module~env_module->module~flu_binding iso_fortran_env iso_fortran_env module~env_module->iso_fortran_env module~env_module->mpi module~tem_logging_module->module~aotus_module module~tem_logging_module->module~env_module module~tem_logging_module->module~aot_table_module module~tem_cube_module->module~aotus_module module~tem_cube_module->module~tem_aux_module module~tem_cube_module->module~env_module module~tem_cube_module->module~tem_logging_module module~tem_cube_module->module~aot_table_module module~tem_geometry_module tem_geometry_module module~tem_cube_module->module~tem_geometry_module module~treelmesh_module treelmesh_module module~tem_cube_module->module~treelmesh_module module~tem_transformation_module->module~aotus_module module~tem_transformation_module->module~tem_aux_module module~tem_transformation_module->module~env_module module~tem_transformation_module->module~tem_logging_module module~tem_transformation_module->module~aot_table_module module~tem_transformation_module->module~flu_binding module~tem_transformation_module->module~tem_tools_module module~tem_geometry_module->module~env_module module~tem_geometry_module->module~tem_logging_module module~tem_geometry_module->module~treelmesh_module module~tem_geometry_module->module~tem_tools_module module~tem_geometry_module->mpi module~tem_float_module tem_float_module module~tem_geometry_module->module~tem_float_module module~tem_topology_module tem_topology_module module~tem_geometry_module->module~tem_topology_module module~tem_property_module tem_property_module module~tem_geometry_module->module~tem_property_module module~tem_subtree_type_module tem_subTree_type_module module~tem_geometry_module->module~tem_subtree_type_module module~tem_debug_module tem_debug_module module~tem_geometry_module->module~tem_debug_module module~tem_param_module tem_param_module module~tem_geometry_module->module~tem_param_module module~treelmesh_module->module~aotus_module module~treelmesh_module->module~tem_aux_module module~treelmesh_module->module~env_module module~treelmesh_module->module~tem_logging_module module~treelmesh_module->module~aot_table_module module~treelmesh_module->module~tem_tools_module module~treelmesh_module->mpi module~tem_global_module tem_global_module module~treelmesh_module->module~tem_global_module module~tem_sparta_module tem_Sparta_module module~treelmesh_module->module~tem_sparta_module module~treelmesh_module->module~tem_topology_module module~treelmesh_module->module~tem_property_module module~tem_comm_env_module->mpi module~tem_tools_module->module~env_module module~tem_lua_requires_module->module~aotus_module module~tem_lua_requires_module->module~env_module module~tem_lua_requires_module->module~aot_table_module module~tem_lua_requires_module->module~flu_binding iso_c_binding iso_c_binding module~tem_lua_requires_module->iso_c_binding module~tem_global_module->module~aotus_module module~tem_global_module->module~tem_aux_module module~tem_global_module->module~env_module module~tem_global_module->module~tem_logging_module module~tem_global_module->module~aot_table_module module~tem_global_module->module~aot_out_module module~tem_global_module->mpi module~tem_prophead_module tem_prophead_module module~tem_global_module->module~tem_prophead_module module~tem_sparta_module->module~tem_aux_module module~tem_sparta_module->module~env_module module~tem_sparta_module->module~tem_logging_module module~tem_sparta_module->mpi module~tem_sparta_module->module~tem_float_module module~tem_float_module->module~env_module module~tem_topology_module->module~env_module module~tem_property_module->module~env_module module~tem_property_module->mpi module~tem_property_module->module~tem_prophead_module module~tem_subtree_type_module->module~tem_aux_module module~tem_subtree_type_module->module~env_module module~tem_subtree_type_module->module~tem_logging_module module~tem_subtree_type_module->module~treelmesh_module module~tem_subtree_type_module->mpi module~tem_subtree_type_module->module~tem_global_module module~tem_subtree_type_module->module~tem_property_module module~tem_debug_module->module~env_module module~tem_debug_module->module~tem_logging_module module~tem_debug_module->module~aot_table_module module~tem_debug_module->module~flu_binding module~tem_debug_module->module~tem_tools_module module~tem_param_module->module~env_module

Used by

  • module~~tem_ellipsoid_module~~UsedByGraph module~tem_ellipsoid_module tem_ellipsoid_module module~tem_shape_module tem_shape_module module~tem_shape_module->module~tem_ellipsoid_module module~hvs_ascii_module hvs_ascii_module module~hvs_ascii_module->module~tem_shape_module module~hvs_output_module hvs_output_module module~hvs_output_module->module~tem_shape_module module~hvs_output_module->module~hvs_ascii_module module~tem_subtree_module tem_subTree_module module~hvs_output_module->module~tem_subtree_module module~tem_spatial_module tem_spatial_module module~tem_spatial_module->module~tem_shape_module module~tem_tracking_module tem_tracking_module module~tem_tracking_module->module~tem_shape_module module~tem_tracking_module->module~hvs_output_module module~tem_tracking_module->module~tem_subtree_module module~tem_subtree_module->module~tem_shape_module module~tem_spacetime_fun_module tem_spacetime_fun_module module~tem_spacetime_fun_module->module~tem_shape_module module~tem_spacetime_fun_module->module~tem_spatial_module module~tem_spacetime_fun_module->module~tem_subtree_module module~tem_convergence_module tem_convergence_module module~tem_convergence_module->module~tem_shape_module module~tem_convergence_module->module~tem_subtree_module program~tem_varsys_derivevar_test tem_varSys_deriveVar_test program~tem_varsys_derivevar_test->module~tem_spacetime_fun_module module~tem_spacetime_var_module tem_spacetime_var_module module~tem_spacetime_var_module->module~tem_spatial_module module~tem_spacetime_var_module->module~tem_spacetime_fun_module program~tem_variable_evaltype_test tem_variable_evaltype_test program~tem_variable_evaltype_test->module~tem_spacetime_fun_module module~tem_bc_module tem_bc_module module~tem_bc_module->module~tem_spacetime_fun_module module~tem_derived_module tem_derived_module module~tem_derived_module->module~tem_spacetime_fun_module program~tem_varsys_test tem_varSys_test program~tem_varsys_test->module~tem_subtree_module program~tem_varsys_test->module~tem_spacetime_fun_module module~tem_surfacedata_module tem_surfaceData_module module~tem_surfacedata_module->module~tem_spacetime_fun_module program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->module~tem_spacetime_fun_module module~tem_ini_condition_module tem_ini_condition_module module~tem_ini_condition_module->module~tem_spatial_module module~tem_abortcriteria_module tem_abortCriteria_module module~tem_abortcriteria_module->module~tem_convergence_module module~tem_simcontrol_module tem_simControl_module module~tem_simcontrol_module->module~tem_convergence_module module~tem_varmap_module tem_varMap_module module~tem_varmap_module->module~tem_spacetime_fun_module program~tem_variable_combine_test tem_variable_combine_Test program~tem_variable_combine_test->module~tem_spacetime_fun_module program~tem_varsys_stfunvar_test tem_varSys_stfunVar_test program~tem_varsys_stfunvar_test->module~tem_subtree_module program~tem_varsys_stfunvar_test->module~tem_spacetime_fun_module program~tem_spacetime_fun_test tem_spacetime_fun_test program~tem_spacetime_fun_test->module~tem_spacetime_fun_module program~tem_variable_extract_test tem_variable_extract_test program~tem_variable_extract_test->module~tem_spacetime_fun_module module~tem_face_module tem_face_module module~tem_face_module->module~tem_spacetime_fun_module program~tem_tracking_test tem_tracking_test program~tem_tracking_test->module~tem_tracking_module module~tem_variable_module tem_variable_module module~tem_variable_module->module~tem_spacetime_fun_module program~tem_varsys_opvar_test tem_varSys_opVar_test program~tem_varsys_opvar_test->module~tem_subtree_module program~tem_varsys_opvar_test->module~tem_spacetime_fun_module

Contents

Interfaces

Derived Types

Functions

Subroutines


Interfaces

public interface init

initialize the dynamic array

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public interface empty

empty the entries without changing arrays

public interface destroy

destroy the dynamic array

public interface placeat

insert an element at a given position

public interface append

append a value to the dynamic array and return its position.

public interface tem_ellipsoid_out

interface to write out ellipsoids in lua format to a file

  • private subroutine tem_ellipsoid_out_scal(me, conf)

    Write out a ellipsoid shape in lua format

    Arguments

    TypeIntentOptionalAttributesName
    type(tem_ellipsoid_type), intent(in) :: me

    ellipsoid types to write out
    type(aot_out_type), intent(inout) :: conf

    Aotus type handling the output to the file in lua format

  • private subroutine tem_ellipsoid_out_vec(me, conf)

    Write out an array of ellipsoids in lua format

    Arguments

    TypeIntentOptionalAttributesName
    type(tem_ellipsoid_type), intent(in) :: me(:)

    ellipsoid types to write out
    type(aot_out_type), intent(inout) :: conf

    Aotus type handling the output to the file in lua format

private interface expand

increase the size of the container for the array.

  • private subroutine expand_ga_ellipsoid(me, pos, length)

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_ellipsoidarray_type) :: me
    integer, intent(in), optional :: pos
    integer, intent(in), optional :: length

    optional length to expand the array

private interface tem_load_ellipsoid

interface to load ellipsoids

  • private interface tem_load_ellipsoid()

    interface to load ellipsoids

    Arguments

    None

  • private subroutine tem_load_ellipsoid_single(me, transform, conf, thandle)

    This routine single ellipsoid from object table

    Arguments

    TypeIntentOptionalAttributesName
    type(tem_ellipsoid_type), intent(out) :: me

    single ellipsoid
    type(tem_transformation_type), intent(in) :: transform

    transformation for spatial object
    type(flu_state) :: conf

    lua state
    integer, intent(in) :: thandle

Derived Types

type, public :: tem_ellipsoid_type

Components

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: origin(3)

origin of the ellipsoid
real(kind=rk), private :: radius(3)

radius of the ellipsoid
logical, private :: only_surface

To choose what to do with intersection of this object if only_surface = true than the only the surface of the object is intersected if only_surface = false then the whole object is intersected default is set to false

type, public :: grw_ellipsoidarray_type

growing array type for type(tem_ellipsoid_type)

Components

TypeVisibilityAttributesNameInitial
integer, private :: nvals =0
integer, private :: containersize =0
type(tem_ellipsoid_type), private, allocatable:: val(:)

Functions

public function tem_ellipsoidCubeOverlap(ellipsoid, cube) result(overlap)

This function checks intesection of solid cube and ellipsoid

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: ellipsoid
type(tem_cube_type), intent(in) :: cube

Return Value logical

private pure function hollowellipsoidCubeOverlap(me, cube) result(overlap)

This function checks intesection of solid cube and hollow ellipsoid

Read more…

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: me

ellipsoid type
type(tem_cube_type), intent(in) :: cube

cube type

Return Value logical

private function solidellipsoidCubeOverlap(me, cube) result(overlap)

This function checks intesection of solid cube and solid ellipsoid

Read more…

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: me

ellipsoid object
type(tem_cube_type), intent(in) :: cube

cube object

Return Value logical


Subroutines

public subroutine tem_load_ellipsoid(me, transform, conf, thandle)

Load ellipsoid information from config file.

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(out), allocatable:: me(:)

array of ellipsoids
type(tem_transformation_type), intent(in) :: transform

transformation for spatial object
type(flu_state) :: conf

lua state
integer, intent(in) :: thandle

private subroutine tem_load_ellipsoid_single(me, transform, conf, thandle)

This routine single ellipsoid from object table

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(out) :: me

single ellipsoid
type(tem_transformation_type), intent(in) :: transform

transformation for spatial object
type(flu_state) :: conf

lua state
integer, intent(in) :: thandle

private subroutine tem_ellipsoid_out_vec(me, conf)

Write out an array of ellipsoids in lua format

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: me(:)

ellipsoid types to write out
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

private subroutine tem_ellipsoid_out_scal(me, conf)

Write out a ellipsoid shape in lua format

Arguments

TypeIntentOptionalAttributesName
type(tem_ellipsoid_type), intent(in) :: me

ellipsoid types to write out
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

private subroutine init_ga_ellipsoid(me, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type), intent(out) :: me
integer, intent(in), optional :: length

private subroutine destroy_ga_ellipsoid(me)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type), intent(inout) :: me

private subroutine truncate_ga_ellipsoid(me)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me

private subroutine empty_ga_ellipsoid(me)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me

private subroutine placeat_ga_ellipsoid(me, val, pos, length)

adds the value to a given position inside the growing array.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
type(tem_ellipsoid_type), intent(in) :: val
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

private subroutine placeat_ga_ellipsoid_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
type(tem_ellipsoid_type), intent(in) :: val(:)
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_ellipsoid(me, val, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
type(tem_ellipsoid_type), intent(in) :: val
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_ellipsoid_vec(me, val, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
type(tem_ellipsoid_type), intent(in) :: val(:)
integer, intent(in), optional :: length

optional length to expand the array

private subroutine expand_ga_ellipsoid(me, pos, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
integer, intent(in), optional :: pos
integer, intent(in), optional :: length

optional length to expand the array