create_1Darray_quadruple Subroutine

  1. aot_quadruple_table_module.f90
  2. aot_quadruple_table_module
  3. create_1Darray_quadruple

private subroutine create_1Darray_quadruple(L, thandle, val)

This subroutine takes a one dimensional array, and puts it as a table into the Lua context.

The returned thandle provides the index to access this newly created table.

Arguments

Type IntentOptional AttributesName
type(flu_State) :: L
integer, intent(out) :: thandle

Handle to access the newly created table.
real(kind=quad_k), intent(in) :: val(:)

Values to put into the new table.

Calls

proc~~create_1darray_quadruple~~CallsGraph proc~create_1darray_quadruple create_1Darray_quadruple proc~flu_gettop flu_gettop proc~create_1darray_quadruple->proc~flu_gettop proc~flu_createtable flu_createtable proc~create_1darray_quadruple->proc~flu_createtable interface~flu_pushinteger flu_pushinteger proc~create_1darray_quadruple->interface~flu_pushinteger proc~flu_settable flu_settable proc~create_1darray_quadruple->proc~flu_settable interface~flu_pushnumber flu_pushnumber proc~create_1darray_quadruple->interface~flu_pushnumber interface~lua_gettop lua_gettop proc~flu_gettop->interface~lua_gettop interface~lua_createtable lua_createtable proc~flu_createtable->interface~lua_createtable proc~flu_pushint flu_pushint interface~flu_pushinteger->proc~flu_pushint proc~flu_pushlong flu_pushlong interface~flu_pushinteger->proc~flu_pushlong interface~lua_settable lua_settable proc~flu_settable->interface~lua_settable proc~flu_pushdouble flu_pushdouble interface~flu_pushnumber->proc~flu_pushdouble proc~flu_pushreal flu_pushreal interface~flu_pushnumber->proc~flu_pushreal interface~lua_pushnumber lua_pushnumber proc~flu_pushdouble->interface~lua_pushnumber interface~lua_pushinteger lua_pushinteger proc~flu_pushint->interface~lua_pushinteger proc~flu_pushreal->interface~lua_pushnumber proc~flu_pushlong->interface~lua_pushinteger

Called by

proc~~create_1darray_quadruple~~CalledByGraph proc~create_1darray_quadruple create_1Darray_quadruple interface~aot_table_from_1darray~3 aot_table_from_1Darray interface~aot_table_from_1darray~3->proc~create_1darray_quadruple

Contents

Source Code

create_1Darray_quadruple

Source Code

  subroutine create_1Darray_quadruple(L, thandle, val)
    type(flu_State) :: L !< Handle to the Lua script.

    !> Handle to access the newly created table.
    integer, intent(out) :: thandle

    !> Values to put into the new table.
    real(kind=quad_k), intent(in) :: val(:)

    integer :: tab
    integer :: nvals
    integer :: i
    real(kind=double_k), allocatable :: locval(:)

    nVals = size(val)
    allocate(locVal(nVals))
    locVal(:) = real(val, kind=double_k)
    call flu_createtable(L, nVals, 0)
    thandle = flu_gettop(L)
    tab = thandle

    do i=1,nVals
      call flu_pushInteger(L, i)
      call flu_pushNumber(L, locval(i))
      call flu_settable(L, tab)
    end do

    deallocate(locval)

  end subroutine create_1Darray_quadruple