init_grwPoints Subroutine

private subroutine init_grwPoints(me, length)

This routine initialize growing array of points

Arguments

Type IntentOptional Attributes Name
type(tem_grwPoints_type), intent(out) :: me

Growing array of points in each dimension
integer, intent(in), optional :: length

Initial length of the container

Calls

proc~~init_grwpoints~~CallsGraph proc~init_grwpoints init_grwPoints interface~init~22 init proc~init_grwpoints->interface~init~22 proc~init_ga2d_real init_ga2d_real interface~init~22->proc~init_ga2d_real

Called by

proc~~init_grwpoints~~CalledByGraph proc~init_grwpoints init_grwPoints interface~init~41 init interface~init~41->proc~init_grwpoints

Contents

Source Code

init_grwPoints

Source Code

  subroutine init_grwPoints(me, length)
    !---------------------------------------------------------------------------
    !> Growing array of points in each dimension
    type(tem_grwPoints_type), intent(out) :: me
    !> Initial length of the container
    integer, optional, intent(in) :: length
    !---------------------------------------------------------------------------
    call init(me = me%coordX, length = length)
    call init(me = me%coordY, length = length)
    call init(me = me%coordZ, length = length)
  end subroutine init_grwPoints