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

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