append_singlePnt2grwPoints Subroutine

private subroutine append_singlePnt2grwPoints(me, val)

This routine append a single point to growing array of points

Arguments

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

Growing array of points in each dimension
real(kind=rk), intent(in) :: val(3)

single point to append

Source Code

  subroutine append_singlePnt2grwPoints(me, val)
    !---------------------------------------------------------------------------
    !> Growing array of points in each dimension
    type(tem_grwPoints_type), intent(inout) :: me
    !> single point to append
    real(kind=rk), intent(in) :: val(3)
    !---------------------------------------------------------------------------
    call append(me = me%coordX, val = val(1))
    call append(me = me%coordY, val = val(2))
    call append(me = me%coordZ, val = val(3))
  end subroutine append_singlePnt2grwPoints