get_table_quadruple Subroutine

  1. aot_quadruple_table_module.f90
  2. aot_quadruple_table_module
  3. get_table_quadruple

private subroutine get_table_quadruple(val, ErrCode, L, thandle, key, pos, default)

Retrieve a quadruple precision real value from a table.

NOTE that Lua actually only provides double precision numbers, and this interface is merely a convenience for Fortran implementations with quadruple precision real numbers.

Arguments

Type IntentOptional AttributesName
real(kind=quad_k), intent(out) :: val

Value of the table entry if it exists.
integer, intent(out) :: ErrCode

Error code to indicate what kind of problem might have occured.
type(flu_State) :: L
integer, intent(in), optional :: thandle

Handle to the table to look the value up in.
character(len=*), intent(in), optional :: key

Name of the entry to look for.

Key and pos are both optional, however at least one of them has to be supplied. The key takes precedence over the pos if both are given.
integer, intent(in), optional :: pos

Position of the entry to look for in the table.

It allows the access to unnamed arrays in the Lua tables.
real(kind=quad_k), intent(in), optional :: default

Some default value, that should be used, if the variable is not set in the Lua script.

Calls

proc~~get_table_quadruple~~CallsGraph proc~get_table_quadruple get_table_quadruple proc~aot_table_push aot_table_push proc~get_table_quadruple->proc~aot_table_push interface~aot_top_get_val aot_top_get_val proc~get_table_quadruple->interface~aot_top_get_val proc~flu_getglobal flu_getglobal proc~get_table_quadruple->proc~flu_getglobal proc~aot_table_push->proc~flu_getglobal proc~flu_pushnil flu_pushnil proc~aot_table_push->proc~flu_pushnil proc~flu_gettable flu_gettable proc~aot_table_push->proc~flu_gettable interface~flu_pushinteger flu_pushinteger proc~aot_table_push->interface~flu_pushinteger proc~flu_getfield flu_getfield proc~aot_table_push->proc~flu_getfield proc~flu_type flu_type proc~aot_table_push->proc~flu_type proc~flu_pop flu_pop proc~aot_table_push->proc~flu_pop proc~aot_top_get_double aot_top_get_double interface~aot_top_get_val->proc~aot_top_get_double proc~aot_top_get_integer aot_top_get_integer interface~aot_top_get_val->proc~aot_top_get_integer proc~aot_top_get_logical aot_top_get_logical interface~aot_top_get_val->proc~aot_top_get_logical proc~aot_top_get_long aot_top_get_long interface~aot_top_get_val->proc~aot_top_get_long proc~aot_top_get_real aot_top_get_real interface~aot_top_get_val->proc~aot_top_get_real proc~aot_top_get_string aot_top_get_string interface~aot_top_get_val->proc~aot_top_get_string proc~aot_top_get_userdata aot_top_get_userdata interface~aot_top_get_val->proc~aot_top_get_userdata interface~lua_getglobal lua_getglobal proc~flu_getglobal->interface~lua_getglobal proc~aot_top_get_double->proc~flu_pop proc~flu_isnumber flu_isnumber proc~aot_top_get_double->proc~flu_isnumber proc~flu_isnoneornil flu_isNoneOrNil proc~aot_top_get_double->proc~flu_isnoneornil proc~flu_todouble flu_todouble proc~aot_top_get_double->proc~flu_todouble interface~lua_pushnil lua_pushnil proc~flu_pushnil->interface~lua_pushnil interface~lua_gettable lua_gettable proc~flu_gettable->interface~lua_gettable proc~flu_pushint flu_pushint interface~flu_pushinteger->proc~flu_pushint proc~flu_pushlong flu_pushlong interface~flu_pushinteger->proc~flu_pushlong proc~aot_top_get_integer->proc~flu_pop proc~aot_top_get_integer->proc~flu_isnumber proc~aot_top_get_integer->proc~flu_isnoneornil proc~aot_top_get_integer->proc~flu_todouble proc~aot_top_get_logical->proc~flu_pop proc~flu_toboolean flu_toBoolean proc~aot_top_get_logical->proc~flu_toboolean proc~flu_isboolean flu_isBoolean proc~aot_top_get_logical->proc~flu_isboolean proc~aot_top_get_logical->proc~flu_isnoneornil interface~lua_getfield lua_getfield proc~flu_getfield->interface~lua_getfield proc~aot_top_get_long->proc~flu_pop proc~aot_top_get_long->proc~flu_isnumber proc~aot_top_get_long->proc~flu_isnoneornil proc~aot_top_get_long->proc~flu_todouble interface~lua_type lua_type proc~flu_type->interface~lua_type interface~lua_settop lua_settop proc~flu_pop->interface~lua_settop proc~aot_top_get_real->proc~flu_pop proc~aot_top_get_real->proc~flu_isnumber proc~aot_top_get_real->proc~flu_isnoneornil proc~flu_tonumber flu_tonumber proc~aot_top_get_real->proc~flu_tonumber proc~aot_top_get_string->proc~flu_pop proc~flu_tolstring flu_tolstring proc~aot_top_get_string->proc~flu_tolstring proc~aot_top_get_string->proc~flu_isnoneornil proc~flu_isstring flu_isString proc~aot_top_get_string->proc~flu_isstring proc~aot_top_get_userdata->proc~flu_pop proc~aot_top_get_userdata->proc~flu_isnoneornil proc~flu_islightuserdata flu_islightuserdata proc~aot_top_get_userdata->proc~flu_islightuserdata proc~flu_touserdata flu_touserdata proc~aot_top_get_userdata->proc~flu_touserdata interface~lua_toboolean lua_toboolean proc~flu_toboolean->interface~lua_toboolean interface~lua_isnumber lua_isNumber proc~flu_isnumber->interface~lua_isnumber interface~lua_pushinteger lua_pushinteger proc~flu_pushint->interface~lua_pushinteger proc~flu_isboolean->interface~lua_type interface~lua_tolstring lua_tolstring proc~flu_tolstring->interface~lua_tolstring proc~flu_isnoneornil->interface~lua_type proc~flu_islightuserdata->interface~lua_type interface~lua_touserdata lua_touserdata proc~flu_touserdata->interface~lua_touserdata interface~lua_tonumberx lua_tonumberx proc~flu_todouble->interface~lua_tonumberx interface~lua_isstring lua_isString proc~flu_isstring->interface~lua_isstring proc~flu_pushlong->interface~lua_pushinteger proc~flu_tonumber->interface~lua_tonumberx

Called by

proc~~get_table_quadruple~~CalledByGraph proc~get_table_quadruple get_table_quadruple interface~aot_get_val~9 aot_get_val interface~aot_get_val~9->proc~get_table_quadruple interface~aot_table_get_val~3 aot_table_get_val interface~aot_table_get_val~3->proc~get_table_quadruple

Contents

Source Code

get_table_quadruple

Source Code

  subroutine get_table_quadruple(val, ErrCode, L, thandle, key, pos, &
    &                            default)
    type(flu_State) :: L !< Handle to the Lua script.

    !> Handle to the table to look the value up in.
    integer, intent(in), optional :: thandle

    !> Value of the table entry if it exists.
    real(kind=quad_k), intent(out) :: val

    !> Error code to indicate what kind of problem might have occured.
    integer, intent(out) :: ErrCode

    !> Name of the entry to look for.
    !!
    !! Key and pos are both optional, however at least one of them has to be
    !! supplied.
    !! The key takes precedence over the pos if both are given.
    character(len=*), intent(in), optional :: key

    !> Position of the entry to look for in the table.
    !!
    !! It allows the access to unnamed arrays in the Lua tables.
    integer, intent(in), optional :: pos

    !> Some default value, that should be used, if the variable is not set in
    !! the Lua script.
    real(kind=quad_k), intent(in), optional :: default

    logical :: valid_args
    integer :: toptype

    valid_args = .true.
    if (present(thandle)) then
      call aot_table_push(L=L, thandle=thandle, &
        &                 key=key, pos=pos)
    else
      if (present(key)) then
        toptype = flu_getglobal(L, key)
      else
        valid_args = .false.
      end if
    end if
    if (valid_args) then
      call aot_top_get_val(val, ErrCode, L, default)
    else
      ErrCode = ibSet(0, aoterr_NonExistent)
      ErrCode = ibSet(ErrCode, aoterr_Fatal)
    end if

  end subroutine get_table_quadruple