sdr_box_module Module

routines related to them


Uses

  • module~~sdr_box_module~~UsesGraph module~sdr_box_module sdr_box_module module~sdr_cube_module sdr_cube_module module~sdr_box_module->module~sdr_cube_module module~env_module env_module module~sdr_box_module->module~env_module module~sdr_cube_module->module~env_module module~aot_table_module aot_table_module module~sdr_cube_module->module~aot_table_module module~tem_aux_module tem_aux_module module~sdr_cube_module->module~tem_aux_module module~aotus_module aotus_module module~sdr_cube_module->module~aotus_module module~tem_logging_module tem_logging_module module~sdr_cube_module->module~tem_logging_module

Contents


Interfaces

public interface init

initialize the dynamic array

  • private subroutine init_ga_box(me, length)

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_boxarray_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_box(me, val, pos, length)

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

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_boxarray_type) :: me
    type(sdr_box_type), intent(in) :: val
    integer, intent(in) :: pos
    integer, intent(in), optional :: length

    optional length to expand the array

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

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

    Read more…

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_boxarray_type) :: me
    type(sdr_box_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_box(me, val, length)

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_boxarray_type) :: me
    type(sdr_box_type), intent(in) :: val
    integer, intent(in), optional :: length

    optional length to expand the array

  • private subroutine append_ga_box_vec(me, val, length)

    Arguments

    TypeIntentOptionalAttributesName
    type(grw_boxarray_type) :: me
    type(sdr_box_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_box(me, pos, length)

    Arguments

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

    optional length to expand the array


Derived Types

type, public :: sdr_box_type

This type contains origin and vec of box in each direction

Components

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

center of the box

real(kind=rk), private :: halfvec(3,3)

vector which defines length of the box in x,y,z direction 1st dimension contains x,y,z coord and 2nd dimension defines three direction of vector. This vector is need to do transformation of box

real(kind=rk), private :: halfwidth(3)

halfwidth of the box from center in each direction. It is computed from halfvec during initialization since it is needed for boxboxoverlap

real(kind=rk), private :: normal(3,3)

unit normal vectors which defines the box orientation. It is computed from halfvec during initialization

type, public :: grw_boxarray_type

growing array type for type(sdr_box_type)

Components

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

Functions

public function boxCubeOverlap(box, cube) result(overlap)

This function checks for intersection of box and cube

Read more…

Arguments

TypeIntentOptionalAttributesName
type(sdr_box_type), intent(in) :: box
type(sdr_cube_type), intent(in) :: cube

Return Value logical

private function boxBoxOverlap(center_a, dim_a, center_b, dim_b, norm_b) result(overlap)

This function checks for intersection of a axis aligned box and a parallelepiped.

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: center_a(3)
real(kind=rk), intent(in) :: dim_a(3)
real(kind=rk), intent(in) :: center_b(3)
real(kind=rk), intent(in) :: dim_b(3)

Halflength of the parallelepiped in each direction.

real(kind=rk), intent(in) :: norm_b(3,3)

Return Value logical


Subroutines

private subroutine init_ga_box(me, length)

Arguments

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

private subroutine destroy_ga_box(me)

Arguments

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

private subroutine truncate_ga_box(me)

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me

private subroutine empty_ga_box(me)

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me

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

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

Read more…

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me
type(sdr_box_type), intent(in) :: val
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

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

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

Read more…

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me
type(sdr_box_type), intent(in) :: val(:)
integer, intent(in) :: pos
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_box(me, val, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me
type(sdr_box_type), intent(in) :: val
integer, intent(in), optional :: length

optional length to expand the array

private subroutine append_ga_box_vec(me, val, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_boxarray_type) :: me
type(sdr_box_type), intent(in) :: val(:)
integer, intent(in), optional :: length

optional length to expand the array

private subroutine expand_ga_box(me, pos, length)

Arguments

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

optional length to expand the array