ply_dynarray_project_module Module

  1. ply_dynArray_project_module.f90
  2. ply_dynarray_project_module

Module providing datatypes and routines for a fast transformation of Legendre expansion to point values.


Uses

  • module~~ply_dynarray_project_module~~UsesGraph module~ply_dynarray_project_module ply_dynarray_project_module module~tem_logging_module tem_logging_module module~ply_dynarray_project_module->module~tem_logging_module module~ply_prj_header_module ply_prj_header_module module~ply_dynarray_project_module->module~ply_prj_header_module module~aotus_module aotus_module module~ply_dynarray_project_module->module~aotus_module module~env_module env_module module~ply_dynarray_project_module->module~env_module module~ply_prj_header_module->module~tem_logging_module module~ply_prj_header_module->module~aotus_module module~ply_prj_header_module->module~env_module module~tem_tools_module tem_tools_module module~ply_prj_header_module->module~tem_tools_module module~aot_out_module aot_out_module module~ply_prj_header_module->module~aot_out_module module~ply_l2p_header_module ply_l2p_header_module module~ply_prj_header_module->module~ply_l2p_header_module module~ply_fpt_header_module ply_fpt_header_module module~ply_prj_header_module->module~ply_fpt_header_module fftw_wrap fftw_wrap module~ply_prj_header_module->fftw_wrap module~ply_fxt_header_module ply_fxt_header_module module~ply_prj_header_module->module~ply_fxt_header_module module~tem_aux_module tem_aux_module module~ply_prj_header_module->module~tem_aux_module module~ply_l2p_header_module->module~tem_logging_module module~ply_l2p_header_module->module~aotus_module module~ply_l2p_header_module->module~env_module module~ply_l2p_header_module->module~tem_tools_module module~ply_l2p_header_module->module~aot_out_module module~ply_l2p_header_module->module~tem_aux_module module~tem_float_module tem_float_module module~ply_l2p_header_module->module~tem_float_module module~ply_nodes_header_module ply_nodes_header_module module~ply_l2p_header_module->module~ply_nodes_header_module module~ply_fpt_header_module->module~tem_logging_module module~ply_fpt_header_module->module~aotus_module module~ply_fpt_header_module->module~env_module module~ply_fpt_header_module->module~tem_tools_module module~ply_fpt_header_module->module~aot_out_module module~ply_fpt_header_module->module~tem_aux_module module~ply_fpt_header_module->module~tem_float_module module~ply_fpt_header_module->module~ply_nodes_header_module module~tem_compileconf_module tem_compileconf_module module~ply_fpt_header_module->module~tem_compileconf_module module~ply_fxt_header_module->module~tem_logging_module module~ply_fxt_header_module->module~aotus_module module~ply_fxt_header_module->module~env_module module~ply_fxt_header_module->module~aot_out_module module~ply_fxt_header_module->module~tem_aux_module module~ply_fxt_header_module->module~tem_float_module module~ply_fxt_header_module->module~ply_nodes_header_module module~ply_nodes_header_module->module~env_module

Used by

  • module~~ply_dynarray_project_module~~UsedByGraph module~ply_dynarray_project_module ply_dynarray_project_module module~ply_poly_project_module ply_poly_project_module module~ply_poly_project_module->module~ply_dynarray_project_module module~sdr_subresolution_module sdr_subresolution_module module~sdr_subresolution_module->module~ply_dynarray_project_module module~sdr_proto2treelm_module sdr_proto2treelm_module module~sdr_proto2treelm_module->module~ply_poly_project_module module~ply_oversample_module ply_oversample_module module~sdr_proto2treelm_module->module~ply_oversample_module module~sdr_config_module sdr_config_module module~sdr_proto2treelm_module->module~sdr_config_module module~sdr_prototree_module sdr_protoTree_module module~sdr_proto2treelm_module->module~sdr_prototree_module module~ply_oversample_module->module~ply_poly_project_module module~sdr_config_module->module~sdr_subresolution_module module~sdr_flooding_module sdr_flooding_module module~sdr_flooding_module->module~sdr_config_module module~sdr_flooding_module->module~sdr_prototree_module module~sdr_refinept_module sdr_refinePT_module module~sdr_refinept_module->module~sdr_config_module module~sdr_refinept_module->module~sdr_prototree_module program~seeder seeder program~seeder->module~sdr_proto2treelm_module program~seeder->module~sdr_config_module program~seeder->module~sdr_flooding_module program~seeder->module~sdr_refinept_module program~seeder->module~sdr_prototree_module module~sdr_prototree_module->module~sdr_config_module module~sdr_boundary_module sdr_boundary_module module~sdr_boundary_module->module~sdr_prototree_module

Contents

Interfaces

Derived Types

Functions

Subroutines


Interfaces

public interface operator(==)

  • private pure function isEqual(left, right) result(equality)

    This function provides the test for equality of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is equal??

public interface operator(/=)

  • private pure function isUnequal(left, right) result(unequality)

    This function provides the test for unequality of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is unequal??

public interface operator(<)

  • private pure function isSmaller(left, right) result(small)

    This function provides a < comparison of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is smaller??

public interface operator(<=)

  • private pure function isSmallerOrEqual(left, right) result(small)

    This function provides a <= comparison of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is smaller??

public interface operator(>)

  • private pure function isGreater(left, right) result(great)

    This function provides a > comparison of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is greater??

public interface operator(>=)

  • private pure function isGreaterOrEqual(left, right) result(great)

    This function provides a >= comparison of two projections.

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(ply_prj_init_type), intent(in) :: left

    projection to compare
    type(ply_prj_init_type), intent(in) :: right

    projection to compare against

    Return Value logical

    is greater??

public interface init

initialize the dynamic array

public interface append

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

  • private subroutine append_da_projection(me, val, length, pos, wasadded)

    appending a value to the dynamic array

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(dyn_projectionarray_type) :: me
    type(ply_prj_init_type), intent(in) :: val
    integer, intent(in), optional :: length

    optional length to expand the array
    integer, intent(out), optional :: pos

    position in the array, if the value is found
    logical, intent(out), optional :: wasadded

    flag to indicate, if val was newly added

  • private subroutine append_da_vecprojection(me, val, length, pos, wasadded)

    appending a sorted list of values to the dynamic array

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(dyn_projectionarray_type) :: me
    type(ply_prj_init_type), intent(in) :: val(:)
    integer, intent(in), optional :: length

    optional length to expand the array
    integer, intent(out), optional :: pos(:)

    position in the array, the values are found at.
    logical, intent(out), optional :: wasadded(:)

    flag to indicate, if val was newly added

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public interface empty

empty the array, reset nvals to be 0

public interface sorttruncate

fix the dynamic array, meaning: store the array in the sorted order and cut off the trailing empty entries

public interface positionofval

return the position of a given value in the array val, which is what you usually want to know. it is the index of a given value

  • private function posofval_projection(me, val, nextifnotfound, lower, upper) result(pos)

    the actual position of a given value in the dynamic array

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(dyn_projectionarray_type), intent(in) :: me
    type(ply_prj_init_type), intent(in) :: val
    logical, intent(in), optional :: nextifnotfound

    flag to indicate, if the position of the next entry in the sorted list should be returned instead, if val is not found.
    integer, intent(in), optional :: lower
    integer, intent(in), optional :: upper

    Return Value integer

private interface assignment(=)

private interface destroy

destroy the dynamic array

private interface expand

increase the size of the container for the array.

  • private subroutine expand_da_projection(me, increment, length)

    expanding the dynamic array

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(dyn_projectionarray_type) :: me
    integer, optional :: increment
    integer, intent(in), optional :: length

    optional length to expand the array

private interface sortedposofval

return the position of a given value in the list 'sorted'. this is mainly for internal usage. the sorted list is only a pointer list to the actual values thus, in order to get the index of a given value, you need to look up the entry in the sorted list. this is done by the positionofval routine

  • private function sortposofval_projection(me, val, nextifnotfound, lower, upper) result(pos)

    return the sorted position of a value in the given dynamic array

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(dyn_projectionarray_type), intent(in) :: me
    type(ply_prj_init_type), intent(in) :: val
    logical, intent(in), optional :: nextifnotfound

    flag to indicate, if the next entry in the list should be returned, if the searched one is not found.
    integer, intent(in), optional :: lower
    integer, intent(in), optional :: upper

    Return Value integer


Derived Types

type, public :: ply_prj_init_type

Projection definition.

Components

TypeVisibilityAttributesNameInitial
integer, private :: basisType

Polynomial basis type.

Read more…
integer, private :: maxPolyDegree

The maximal polynomial degree per spatial direction.
type(ply_prj_header_type), private :: header

projection header consits of general information like which kind of projection is used

type, public :: dyn_projectionarray_type

dynamic array (da) type for type(ply_prj_init_type)

Components

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

Functions

private function sortposofval_projection(me, val, nextifnotfound, lower, upper) result(pos)

return the sorted position of a value in the given dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type), intent(in) :: me
type(ply_prj_init_type), intent(in) :: val
logical, intent(in), optional :: nextifnotfound

flag to indicate, if the next entry in the list should be returned, if the searched one is not found.
integer, intent(in), optional :: lower
integer, intent(in), optional :: upper

Return Value integer

private function posofval_projection(me, val, nextifnotfound, lower, upper) result(pos)

the actual position of a given value in the dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type), intent(in) :: me
type(ply_prj_init_type), intent(in) :: val
logical, intent(in), optional :: nextifnotfound

flag to indicate, if the position of the next entry in the sorted list should be returned instead, if val is not found.
integer, intent(in), optional :: lower
integer, intent(in), optional :: upper

Return Value integer

private pure function isEqual(left, right) result(equality)

This function provides the test for equality of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is equal??

private pure function isUnequal(left, right) result(unequality)

This function provides the test for unequality of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is unequal??

private pure function isSmaller(left, right) result(small)

This function provides a < comparison of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is smaller??

private pure function isSmallerOrEqual(left, right) result(small)

This function provides a <= comparison of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is smaller??

private pure function isGreater(left, right) result(great)

This function provides a > comparison of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is greater??

private pure function isGreaterOrEqual(left, right) result(great)

This function provides a >= comparison of two projections.

Read more…

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(in) :: left

projection to compare
type(ply_prj_init_type), intent(in) :: right

projection to compare against

Return Value logical

is greater??


Subroutines

public pure subroutine ply_prj_init_define(me, header, maxPolyDegree, basisType)

Define a projection, without filling its body.

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(inout) :: me
type(ply_prj_header_type), intent(in) :: header
integer, intent(in) :: maxPolyDegree
integer, intent(in) :: basisType

public subroutine ply_fill_dynProjectArray(proj_pos, dyn_projectionArray, basisType, maxPolyDegree, conf, parent)

Load settings to describe a projection method from a Lua table.

Arguments

TypeIntentOptionalAttributesName
integer, intent(inout) :: proj_pos
type(dyn_projectionarray_type), intent(inout) :: dyn_projectionArray
integer, intent(in) :: basisType
integer, intent(in) :: maxPolyDegree
type(flu_State), intent(in) :: conf
integer, intent(in) :: parent

private subroutine init_da_projection(me, length)

initialization of a dynamic array

Read more…

Arguments

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

private subroutine destroy_da_projection(me)

destruction of a dynamic array

Read more…

Arguments

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

private subroutine append_da_projection(me, val, length, pos, wasadded)

appending a value to the dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me
type(ply_prj_init_type), intent(in) :: val
integer, intent(in), optional :: length

optional length to expand the array
integer, intent(out), optional :: pos

position in the array, if the value is found
logical, intent(out), optional :: wasadded

flag to indicate, if val was newly added

private subroutine append_da_vecprojection(me, val, length, pos, wasadded)

appending a sorted list of values to the dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me
type(ply_prj_init_type), intent(in) :: val(:)
integer, intent(in), optional :: length

optional length to expand the array
integer, intent(out), optional :: pos(:)

position in the array, the values are found at.
logical, intent(out), optional :: wasadded(:)

flag to indicate, if val was newly added

private subroutine truncate_da_projection(me)

truncate the array after the last valid entry and hence cut off the empty trailing empty entries

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me

private subroutine empty_da_projection(me)

empty all contents of the array without changing the size or status of any array

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me

private subroutine sorttruncate_da_projection(me)

fixing the dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me

private subroutine expand_da_projection(me, increment, length)

expanding the dynamic array

Read more…

Arguments

TypeIntentOptionalAttributesName
type(dyn_projectionarray_type) :: me
integer, optional :: increment
integer, intent(in), optional :: length

optional length to expand the array

private pure subroutine Copy_ply_prj_init(left, right)

Arguments

TypeIntentOptionalAttributesName
type(ply_prj_init_type), intent(out) :: left

fpt to copy to
type(ply_prj_init_type), intent(in) :: right

fpt to copy from