tem_point_module Module

description for points.


Uses


Interfaces

public interface init

initialize the dynamic array

  • private subroutine init_ga_point(me, length)

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type), intent(out) :: me
    integer, intent(in), optional :: length

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

  • private subroutine placeat_ga_point(me, val, pos, length)

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

    if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type) :: me
    type(tem_point_type), intent(in) :: val
    integer, intent(in) :: pos
    integer, intent(in), optional :: length

    optional length to expand the array

  • private subroutine placeat_ga_point_vec(me, val, pos, length)

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

    if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the elements starting from the requested position will be replaced up to the element at position pos + size(val) - 1.

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type) :: me
    type(tem_point_type), intent(in) :: val(:)
    integer, intent(in) :: pos
    integer, intent(in), optional :: length

    optional length to expand the array

public interface append

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

  • private subroutine append_ga_point(me, val, length)

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type) :: me
    type(tem_point_type), intent(in) :: val
    integer, intent(in), optional :: length

    optional length to expand the array

  • private subroutine append_ga_point_vec(me, val, length)

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type) :: me
    type(tem_point_type), intent(in) :: val(:)
    integer, intent(in), optional :: length

    optional length to expand the array

private interface expand

increase the size of the container for the array.

  • private subroutine expand_ga_point(me, pos, length)

    Arguments

    Type IntentOptional Attributes Name
    type(grw_pointarray_type) :: me
    integer, intent(in), optional :: pos
    integer, intent(in), optional :: length

    optional length to expand the array

Derived Types

type, public ::  tem_point_type

This type contains coordinate of a point

Components

Type Visibility Attributes Name Initial
real(kind=rk), public :: coord(3)

type, public ::  grw_pointarray_type

growing array type for type(tem_point_type)

Components

Type Visibility Attributes Name Initial
integer, public :: nvals = 0
integer, public :: containersize = 0
type(tem_point_type), public, allocatable :: val(:)

Functions

public function tem_pointCubeOverlap(point, cube) result(overlap)

This function checks whether the given point is found inside given cube.

Read more…

Arguments

Type IntentOptional Attributes Name
type(tem_point_type) :: point

Coordinate of the point to check for intersection.
type(tem_cube_type) :: cube

Cube to intersect with.

Return Value logical


Subroutines

private subroutine init_ga_point(me, length)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type), intent(out) :: me
integer, intent(in), optional :: length

private subroutine destroy_ga_point(me)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type), intent(inout) :: me

private subroutine truncate_ga_point(me)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me

private subroutine empty_ga_point(me)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me

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

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

Read more…

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me
type(tem_point_type), intent(in) :: val
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

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

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

Read more…

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me
type(tem_point_type), intent(in) :: val(:)
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_point(me, val, length)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me
type(tem_point_type), intent(in) :: val
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_point_vec(me, val, length)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me
type(tem_point_type), intent(in) :: val(:)
integer, intent(in), optional :: length

optional length to expand the array

private subroutine expand_ga_point(me, pos, length)

Arguments

Type IntentOptional Attributes Name
type(grw_pointarray_type) :: me
integer, intent(in), optional :: pos
integer, intent(in), optional :: length

optional length to expand the array