aot_extdouble_table_module Module


Uses

  • module~~aot_extdouble_table_module~~UsesGraph module~aot_extdouble_table_module aot_extdouble_table_module module~aot_err_module aot_err_module module~aot_extdouble_table_module->module~aot_err_module module~aot_extdouble_top_module aot_extdouble_top_module module~aot_extdouble_table_module->module~aot_extdouble_top_module module~aot_table_ops_module aot_table_ops_module module~aot_extdouble_table_module->module~aot_table_ops_module module~aot_top_module aot_top_module module~aot_extdouble_table_module->module~aot_top_module module~flu_binding flu_binding module~aot_extdouble_table_module->module~flu_binding module~flu_kinds_module flu_kinds_module module~aot_extdouble_table_module->module~flu_kinds_module module~aot_err_module->module~flu_binding module~aot_extdouble_top_module->module~aot_err_module module~aot_extdouble_top_module->module~flu_binding module~aot_table_ops_module->module~aot_top_module module~aot_table_ops_module->module~flu_binding module~aot_table_ops_module->module~flu_kinds_module module~aot_top_module->module~aot_err_module module~aot_top_module->module~aot_extdouble_top_module module~aot_top_module->module~flu_binding module~aot_top_module->module~flu_kinds_module module~aot_quadruple_top_module aot_quadruple_top_module module~aot_top_module->module~aot_quadruple_top_module module~flu_binding->module~flu_kinds_module iso_c_binding iso_c_binding module~flu_binding->iso_c_binding module~dump_lua_fif_module dump_lua_fif_module module~flu_binding->module~dump_lua_fif_module module~lua_fif lua_fif module~flu_binding->module~lua_fif module~lua_parameters lua_parameters module~flu_binding->module~lua_parameters module~aot_quadruple_top_module->module~aot_err_module module~aot_quadruple_top_module->module~flu_binding module~dump_lua_fif_module->iso_c_binding module~lua_fif->iso_c_binding module~lua_fif->module~lua_parameters module~lua_parameters->iso_c_binding

Used by

  • module~~aot_extdouble_table_module~~UsedByGraph module~aot_extdouble_table_module aot_extdouble_table_module module~aot_table_module aot_table_module module~aot_table_module->module~aot_extdouble_table_module module~aot_extdouble_fun_module aot_extdouble_fun_module module~aot_extdouble_fun_module->module~aot_table_module module~aot_fun_module aot_fun_module module~aot_fun_module->module~aot_table_module module~aot_fun_module->module~aot_extdouble_fun_module module~aot_quadruple_fun_module aot_quadruple_fun_module module~aot_fun_module->module~aot_quadruple_fun_module module~aot_path_module aot_path_module module~aot_path_module->module~aot_table_module module~aot_path_module->module~aot_fun_module module~aotus_module aotus_module module~aot_path_module->module~aotus_module module~aot_quadruple_fun_module->module~aot_table_module module~aotus_module->module~aot_table_module

Interfaces

public interface aot_table_get_val

Get a value from a table.

First the given key is looked up, if this fails, the value at the given position is looked up, and if this also fails, the default value is returned. Positional addressing is only valid, as long, as no value was provided by an explicit key in the list before the entry in question.

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

    Retrieve a extdouble 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 extdouble precision real numbers.

    Arguments

    Type IntentOptional Attributes Name
    real(kind=xdble_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.

    Read more…
    integer, intent(in), optional :: pos

    Position of the entry to look for in the table.

    Read more…
    real(kind=xdble_k), intent(in), optional :: default

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

public interface aot_table_set_val

Set a value in a table.

The given value will be put at the entry named by key into the table provided in thandle. Alternatively you can also put the value by position into the table by providing the pos argument. If both, pos and key are provided, the key will be used. Though, both of them are optional, at least one of them has to be provided.

  • private subroutine set_table_extdouble(val, L, thandle, key, pos)

    Put a extdouble precision real value into a table.

    Arguments

    Type IntentOptional Attributes Name
    real(kind=xdble_k), intent(in) :: val

    Value of the table entry if it exists.
    type(flu_State) :: L
    integer, intent(in) :: thandle

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

    Name of the entry to look for.

    Read more…
    integer, intent(in), optional :: pos

    Position of the entry to look for in the table.

    Read more…

public interface aot_get_val

Get a value from a table.

First the given key is looked up, if this fails, the value at the given position is looked up, and if this also fails, the default value is returned. Positional addressing is only valid, as long, as no value was provided by an explicit key in the list before the entry in question.

The interface to access table values looks like: call aot_get_val(val, errCode, L, thandle, key, pos, default). Position pos and key are both optional, but one of them has to be provided. If both are provided the key takes precedence over the pos, and the pos will only be tried if the access to the key fails. See for example get_table_real() for a more detailed description of the parameters.

Note that positional addressing only works intuitively as long as there have been no entries specified by keys in the table. This kind of resembles the behavior of Fortran interfaces with named or unnamed arguments, as soon as you provide a name, all following arguments have to be given by key also. Just stick to this rule for the Lua tables as well to avoid too much headache.

The reason for this is, that positional addressing in Lua refers only to the unnamed entries of the tables.

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

    Retrieve a extdouble 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 extdouble precision real numbers.

    Arguments

    Type IntentOptional Attributes Name
    real(kind=xdble_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.

    Read more…
    integer, intent(in), optional :: pos

    Position of the entry to look for in the table.

    Read more…
    real(kind=xdble_k), intent(in), optional :: default

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

public interface aot_table_from_1Darray

This interface enables the simple creation of uniform one dimensional arrays as tables in the Lua context.

It takes an one dimensional array of values and returns a thandle to identify the newly generated table.

  • private subroutine create_1Darray_extdouble(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 Attributes Name
    type(flu_State) :: L
    integer, intent(out) :: thandle

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

    Values to put into the new table.

Subroutines

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

Retrieve a extdouble precision real value from a table.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=xdble_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.

Read more…
integer, intent(in), optional :: pos

Position of the entry to look for in the table.

Read more…
real(kind=xdble_k), intent(in), optional :: default

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

private subroutine set_table_extdouble(val, L, thandle, key, pos)

Put a extdouble precision real value into a table.

Arguments

Type IntentOptional Attributes Name
real(kind=xdble_k), intent(in) :: val

Value of the table entry if it exists.
type(flu_State) :: L
integer, intent(in) :: thandle

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

Name of the entry to look for.

Read more…
integer, intent(in), optional :: pos

Position of the entry to look for in the table.

Read more…

private subroutine create_1Darray_extdouble(L, thandle, val)

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

Read more…

Arguments

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

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

Values to put into the new table.