# get_table_long_vvect Subroutine

## private subroutine get_table_long_vvect(val, ErrCode, maxlength, L, thandle, key, pos, default)

This routine obtains a vectorial quantity with variable length from a Lua table as a whole.

It is intented to ease the reading of vectors on the Fortran side by capsulating the parsing of the Lua table internally. For the dynamically sized array, which will be allocated, a upper limit to allocate has to be specified.

### Arguments

Type IntentOptional AttributesName
integer(kind=long_k), intent(out), allocatable:: val(:)

Vector read from the Lua table, will have the same length as the table but not exceed maxlength, if provided.

integer, intent(out), allocatable:: ErrCode(:)

Error code describing problems encountered in each of the components. Will be allocated with the same length as the returned vector. If the complete vector is not given in the Lua script, and no default is provided, an zerosized array will be returned.

integer, intent(in) :: maxlength

Maximal length to allocate for the vector.

type(flu_State) :: L

Handle to the lua script

integer, intent(in), optional :: thandle

Handle of the parent table

character(len=*), intent(in), optional :: key

Name of the variable (vector) to read.

integer, intent(in), optional :: pos

Position of the (vector) to read.

integer(kind=long_k), intent(in), optional :: default(:)

A default vector to use, if no proper definition is found. Components will be filled with the help of this default definition.

## Source Code

  subroutine get_table_long_vvect(val, ErrCode, maxlength, L, thandle, &
&                             key, pos, default)
type(flu_State) :: L !! Handle to the lua script
integer, intent(in), optional :: thandle !! Handle of the parent table

!> Vector read from the Lua table, will have the same length as the table
!! but not exceed maxlength, if provided.
integer(kind=long_k), intent(out), allocatable :: val(:)

!> Error code describing problems encountered in each of the components.
!! Will be allocated with the same length as the returned vector.
!! If the complete vector is not given in the Lua script, and no default
!! is provided, an zerosized array will be returned.
integer, intent(out), allocatable :: ErrCode(:)

!> Maximal length to allocate for the vector.
integer, intent(in) :: maxlength

!> Name of the variable (vector) to read.
character(len=*), intent(in), optional :: key

!> Position of the (vector) to read.
integer, intent(in), optional :: pos

!> A default vector to use, if no proper definition is found.
!! Components will be filled with the help of this default definition.
integer(kind=long_k), intent(in), optional :: default(:)

integer :: toptype

toptype = aot_type_of(L       = L,       &
&                   thandle = thandle, &
&                   key     = key,     &
&                   pos     = pos      )

if (toptype /= FLU_TNONE) then
call aot_top_get_val(val, ErrCode, maxlength, L, default)
else
! In case of invalid arguments return 0-sized arrays.