AOTUS: Lua scripting for Fortran

AOTUS: Lua scripting for Fortran#

AOTUS provides a Fortran wrapper around the C-API of the Lua scripting language, allowing Lua scripts to be used as configuration files in Fortran applications.

All 27 modules from AOTUS v1.0.4 are auto-documented below via the FORD bridge.

module aot_err_module#

Uses: flu_binding

parameter aoterr_Fatal = 0#: Type: integer

parameter aoterr_NonExistent = 1#: Type: integer

parameter aoterr_WrongType = 2#: Type: integer

subroutine aot_err_handler(L, err, msg, ErrString, ErrCode)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: err
character(len=*), intent(in) :: msg
character(len=*), intent(out), optional :: ErrString
integer, intent(out), optional :: ErrCode

module aot_extdouble_fun_module#

Uses: flu_binding, flu_kinds_module, aot_extdouble_top_module, aot_fun_declaration_module, aot_table_module

interface aot_fun_put#

subroutine aot_fun_put_extdouble(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (xdble_k), intent(in) :: arg

subroutine aot_fun_put_extdouble_v(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (xdble_k), intent(in) :: arg

module aot_extdouble_out_module#

Uses: aot_out_general_module, aot_extdouble_top_module

interface aot_out_val#

subroutine aot_out_val_extdouble(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (xdble_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_arr_extdouble(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (xdble_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

module aot_extdouble_table_module#

Uses: flu_binding, flu_kinds_module, aot_err_module, aot_extdouble_top_module, aot_top_module, aot_table_ops_module

interface aot_table_get_val#

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

Arguments:

real (xdble_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (xdble_k), intent(in), optional :: default

interface aot_table_set_val#

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

Arguments:

real (xdble_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

interface aot_get_val#

interface aot_table_from_1Darray#

subroutine create_1Darray_extdouble(L, thandle, val)#

Arguments:

type (flu_State) :: L
integer, intent(out) :: thandle
real (xdble_k), intent(in) :: val

module aot_extdouble_top_module#

Uses: flu_binding, aot_err_module

parameter xdble_k = selected_real_kind(18)#: Type: integer

interface aot_top_get_val#

subroutine aot_top_get_extdouble(val, ErrCode, L, default)#

Arguments:

real (xdble_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (xdble_k), intent(in), optional :: default

module aot_extdouble_vector_module#

Uses: flu_binding, aot_extdouble_top_module, aot_table_ops_module, aot_top_module

interface aot_get_val#

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

Arguments:

real (xdble_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (xdble_k), intent(in), optional :: default

subroutine get_table_extdouble_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (xdble_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (xdble_k), intent(in), optional :: default

interface aot_table_get_val#

interface aot_top_get_val#

subroutine get_top_extdouble_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

real (xdble_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
real (xdble_k), intent(in), optional :: default

subroutine get_top_extdouble_v(val, ErrCode, L, default)#

Arguments:

real (xdble_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (xdble_k), intent(in), optional :: default

module aot_fun_declaration_module#

Uses: flu_kinds_module

type aot_fun_type#

member handle = 0#: Type: integer

member arg_count = 0#: Type: integer

member id = 0#: Type: integer (long_k)

module aot_fun_module#

Uses: flu_binding, flu_kinds_module, aot_fun_declaration_module, aot_table_module, aot_top_module, aot_references_module, aot_quadruple_fun_module, aot_extdouble_fun_module

interface aot_fun_open#

subroutine aot_fun_table(L, parent, fun, key, pos)#

Arguments:

type (flu_state) :: L
integer, intent(in), optional :: parent
type (aot_fun_type), intent(out) :: fun
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine aot_fun_ref(L, fun, ref)#

Arguments:

type (flu_state) :: L
type (aot_fun_type), intent(out) :: fun
integer, intent(in) :: ref

interface aot_fun_put#

subroutine aot_fun_put_top(L, fun)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun

subroutine aot_fun_put_double(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (double_k), intent(in) :: arg

subroutine aot_fun_put_single(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (single_k), intent(in) :: arg

subroutine aot_fun_put_double_v(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (double_k), intent(in) :: arg

subroutine aot_fun_put_single_v(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (single_k), intent(in) :: arg

function aot_fun_top(L)#

Arguments:

type (flu_state) :: L

Returns: type (aot_fun_type)

function aot_fun_id(fun)#

Arguments:

type (aot_fun_type), intent(in) :: fun

Returns: character(len=32)

subroutine aot_fun_close(L, fun)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun

subroutine aot_fun_do(L, fun, nresults, ErrCode, ErrString)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
integer, intent(in) :: nresults
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString

module aot_out_general_module#

type aot_out_type#

member outunit#: Type: integer

member indent#: Type: integer

member stack#: Type: integer

member level#: Type: integer

member externalOpen#: Type: logical

member in_step#: Type: integer

function newunit()#: Returns: integer

subroutine aot_out_open(put_conf, filename, outUnit, indentation, outstat)#

Arguments:

type (aot_out_type), intent(out) :: put_conf
character(len=*), intent(in), optional :: filename
integer, intent(in), optional :: outUnit
integer, intent(in), optional :: indentation
integer, intent(out), optional :: outstat

subroutine aot_out_close(put_conf)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf

subroutine aot_out_open_table(put_conf, tname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
character(len=*), intent(in), optional :: tname
logical, intent(in), optional :: advance_previous

subroutine aot_out_close_table(put_conf, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
logical, intent(in), optional :: advance_previous

subroutine aot_out_breakline(put_conf, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
logical, intent(in), optional :: advance_previous

subroutine aot_out_toChunk(out_conf, chunk, ErrCode, ErrString)#

Arguments:

type (aot_out_type), intent(in) :: out_conf
character(len=*), intent(out) :: chunk
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString

module aot_out_module#

Uses: flu_kinds_module, aot_out_general_module, aot_quadruple_out_module, aot_extdouble_out_module

interface aot_out_val#

subroutine aot_out_val_int(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
integer (int_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_long(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
integer (long_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_real(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (single_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_double(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (double_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_logical(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
logical, intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_string(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
character(len=*), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_arr_int(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
integer (int_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

subroutine aot_out_val_arr_long(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
integer (long_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

subroutine aot_out_val_arr_real(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (single_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

subroutine aot_out_val_arr_double(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (double_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

subroutine aot_out_val_arr_logical(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
logical, intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

subroutine aot_out_val_arr_string(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
character(len=*), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

module aot_path_module#

Uses: flu_binding, aotus_module, aot_table_module, aot_fun_module

type aot_path_node_type#

member NodeType#: Type: character(len=16)

member ID_kind#: Type: character(len=16)

member key#: Type: character(len=80)

member pos#: Type: integer

member child = NULL()#: Type: type (aot_path_node_type), pointer

type aot_path_type#

member LuaFilename#: Type: character(len=256)

member rootHandle#: Type: integer

member GlobalNode = NULL()#: Type: type (aot_path_node_type), pointer

member head = NULL()#: Type: type (aot_path_node_type), pointer

interface assignment(=)#

subroutine aot_path_copy(left, right)#

Arguments:

type (aot_path_type), intent(inout) :: left
type (aot_path_type), intent(in) :: right

interface aot_path_open#

subroutine aot_path_open_fun(me, conf, fun, openLua)#

Arguments:

type (aot_path_type), intent(inout) :: me
type (flu_state) :: conf
type (aot_fun_type), intent(out) :: fun
logical, intent(in), optional :: openLua

subroutine aot_path_open_table(me, conf, thandle, openLua)#

Arguments:

type (aot_path_type), intent(inout) :: me
type (flu_state) :: conf
integer, intent(out) :: thandle
logical, intent(in), optional :: openLua

interface aot_path_close#

subroutine aot_path_close_fun(me, conf, fun, closeLua)#

Arguments:

type (aot_path_type), intent(inout) :: me
type (flu_state) :: conf
type (aot_fun_type), intent(inout) :: fun
logical, intent(in), optional :: closeLua

subroutine aot_path_close_table(me, conf, closeLua)#

Arguments:

type (aot_path_type), intent(inout) :: me
type (flu_state) :: conf
logical, intent(in), optional :: closeLua

subroutine aot_init_path(me, Filename)#

Arguments:

type (aot_path_type), intent(out) :: me
character(len=*), intent(in), optional :: Filename

subroutine aot_fin_path(me)#

Arguments:

type (aot_path_type), intent(inout) :: me

subroutine aot_path_addNode(me, NodeType, pos, key)#

Arguments:

type (aot_path_type), intent(inout) :: me
character(len=*), intent(in) :: NodeType
integer, intent(in), optional :: pos
character(len=*), intent(in), optional :: key

subroutine aot_path_delNode(me, isEmpty)#

Arguments:

type (aot_path_type), intent(inout) :: me
logical, intent(out), optional :: isEmpty

subroutine aot_path_toString(path, pathAsString)#

Arguments:

type (aot_path_type), intent(in) :: path
character(len=*), intent(out) :: pathAsString

subroutine aot_path_dump(path, outputUnit)#

Arguments:

type (aot_path_type), intent(in) :: path
integer, intent(in) :: outputUnit

module aot_quadruple_fun_module#

Uses: flu_binding, flu_kinds_module, aot_quadruple_top_module, aot_fun_declaration_module, aot_table_module

interface aot_fun_put#

subroutine aot_fun_put_quadruple(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (quad_k), intent(in) :: arg

subroutine aot_fun_put_quadruple_v(L, fun, arg)#

Arguments:

type (flu_state) :: L
type (aot_fun_type) :: fun
real (quad_k), intent(in) :: arg

module aot_quadruple_out_module#

Uses: aot_out_general_module, aot_quadruple_top_module

interface aot_out_val#

subroutine aot_out_val_quadruple(put_conf, val, vname, advance_previous)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (quad_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous

subroutine aot_out_val_arr_quadruple(put_conf, val, vname, advance_previous, max_per_line)#

Arguments:

type (aot_out_type), intent(inout) :: put_conf
real (quad_k), intent(in) :: val
character(len=*), intent(in), optional :: vname
logical, intent(in), optional :: advance_previous
integer, intent(in), optional :: max_per_line

module aot_quadruple_table_module#

Uses: flu_binding, flu_kinds_module, aot_err_module, aot_quadruple_top_module, aot_top_module, aot_table_ops_module

interface aot_table_get_val#

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

Arguments:

real (quad_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (quad_k), intent(in), optional :: default

interface aot_table_set_val#

subroutine set_table_quadruple(val, L, thandle, key, pos)#

Arguments:

real (quad_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

interface aot_get_val#

interface aot_table_from_1Darray#

subroutine create_1Darray_quadruple(L, thandle, val)#

Arguments:

type (flu_State) :: L
integer, intent(out) :: thandle
real (quad_k), intent(in) :: val

module aot_quadruple_top_module#

Uses: flu_binding, aot_err_module

parameter quad_k = selected_real_kind(33)#: Type: integer

interface aot_top_get_val#

subroutine aot_top_get_quadruple(val, ErrCode, L, default)#

Arguments:

real (quad_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (quad_k), intent(in), optional :: default

module aot_quadruple_vector_module#

Uses: flu_binding, aot_quadruple_top_module, aot_table_ops_module, aot_top_module

interface aot_get_val#

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

Arguments:

real (quad_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (quad_k), intent(in), optional :: default

subroutine get_table_quadruple_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (quad_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (quad_k), intent(in), optional :: default

interface aot_table_get_val#

interface aot_top_get_val#

subroutine get_top_quadruple_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

real (quad_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
real (quad_k), intent(in), optional :: default

subroutine get_top_quadruple_v(val, ErrCode, L, default)#

Arguments:

real (quad_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (quad_k), intent(in), optional :: default

module aot_references_module#

Uses: flu_binding, lua_parameters, aot_table_ops_module

function aot_reference_for(L, thandle, key, pos)#

Arguments:

type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

Returns: integer

subroutine aot_reference_to_top(L, ref)#

Arguments:

type (flu_State) :: L
integer :: ref

module aot_table_module#

Uses: flu_binding, flu_kinds_module, aot_err_module, aot_top_module, aot_table_ops_module, aot_quadruple_table_module, aot_extdouble_table_module

interface aot_table_get_val#

subroutine get_table_real(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (single_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (single_k), intent(in), optional :: default

subroutine get_table_double(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (double_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (double_k), intent(in), optional :: default

subroutine get_table_integer(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

integer (int_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (int_k), intent(in), optional :: default

subroutine get_table_long(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

integer (long_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (long_k), intent(in), optional :: default

subroutine get_table_string(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

character(len=*) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
character(len=*), intent(in), optional :: default

subroutine get_table_logical(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

logical, intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
logical, intent(in), optional :: default

subroutine get_table_userdata(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

type (c_ptr), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
type (c_ptr), intent(in), optional :: default

interface aot_table_set_val#

subroutine set_table_real(val, L, thandle, key, pos)#

Arguments:

real (single_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_double(val, L, thandle, key, pos)#

Arguments:

real (double_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_integer(val, L, thandle, key, pos)#

Arguments:

integer (int_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_long(val, L, thandle, key, pos)#

Arguments:

integer (long_k), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_string(val, L, thandle, key, pos)#

Arguments:

character(len=*), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_logical(val, L, thandle, key, pos)#

Arguments:

logical, intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine set_table_userdata(val, L, thandle, key, pos)#

Arguments:

type (c_ptr), intent(in) :: val
type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

interface aot_get_val#

interface aot_table_from_1Darray#

subroutine create_1Darray_real(L, thandle, val)#

Arguments:

type (flu_State) :: L
integer, intent(out) :: thandle
real (single_k), intent(in) :: val

subroutine create_1Darray_double(L, thandle, val)#

Arguments:

type (flu_State) :: L
integer, intent(out) :: thandle
real (double_k), intent(in) :: val

function aot_exists(L, thandle, key, pos)#

Arguments:

type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

Returns: logical

subroutine aot_table_set_top(L, thandle, key, pos)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

module aot_table_ops_module#

Uses: flu_binding, flu_kinds_module, aot_top_module

interface aot_push#

subroutine aot_table_push(L, thandle, key, pos, toptype)#

Arguments:

type (flu_state) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer, intent(out), optional :: toptype

function aot_table_top(L)#

Arguments:

type (flu_state) :: L

Returns: integer

function aot_type_of(L, thandle, key, pos)#

Arguments:

type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

Returns: integer

function aot_table_first(L, thandle)#

Arguments:

type (flu_state) :: L
integer, intent(in) :: thandle

Returns: logical

function aot_table_length(L, thandle)#

Arguments:

type (flu_state) :: L
integer, intent(in) :: thandle

Returns: integer

subroutine aot_table_open(L, parent, thandle, key, pos)#

Arguments:

type (flu_state) :: L
integer, intent(in), optional :: parent
integer, intent(out) :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos

subroutine aot_table_close(L, thandle)#

Arguments:

type (flu_state) :: L
integer, intent(in) :: thandle

module aot_top_module#

Uses: flu_binding, flu_kinds_module, aot_err_module, aot_quadruple_top_module, aot_extdouble_top_module

interface aot_top_get_val#

subroutine aot_top_get_real(val, ErrCode, L, default)#

Arguments:

real (single_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (single_k), intent(in), optional :: default

subroutine aot_top_get_double(val, ErrCode, L, default)#

Arguments:

real (double_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (double_k), intent(in), optional :: default

subroutine aot_top_get_integer(val, ErrCode, L, default)#

Arguments:

integer (int_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer (int_k), intent(in), optional :: default

subroutine aot_top_get_long(val, ErrCode, L, default)#

Arguments:

integer (long_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer (long_k), intent(in), optional :: default

subroutine aot_top_get_string(val, ErrCode, L, default)#

Arguments:

character(len=*) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
character(len=*), intent(in), optional :: default

subroutine aot_top_get_logical(val, ErrCode, L, default)#

Arguments:

logical, intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
logical, intent(in), optional :: default

subroutine aot_top_get_userdata(val, ErrCode, L, default)#

Arguments:

type (c_ptr), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
type (c_ptr), intent(in), optional :: default

module aot_vector_module#

Uses: flu_binding, flu_kinds_module, aot_table_ops_module, aot_top_module, aot_quadruple_vector_module, aot_extdouble_vector_module

interface aot_get_val#

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

Arguments:

real (single_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (single_k), intent(in), optional :: default

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

Arguments:

real (double_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (double_k), intent(in), optional :: default

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

Arguments:

integer (int_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (int_k), intent(in), optional :: default

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

Arguments:

integer (long_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (long_k), intent(in), optional :: default

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

Arguments:

logical, intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
logical, intent(in), optional :: default

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

Arguments:

character(len=*), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
character(len=*), intent(in), optional :: default

subroutine get_table_real_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (single_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (single_k), intent(in), optional :: default

subroutine get_table_double_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

real (double_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
real (double_k), intent(in), optional :: default

subroutine get_table_integer_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

integer (int_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (int_k), intent(in), optional :: default

subroutine get_table_long_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

integer (long_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
integer (long_k), intent(in), optional :: default

subroutine get_table_logical_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

logical, intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
logical, intent(in), optional :: default

subroutine get_table_string_v(val, ErrCode, L, thandle, key, pos, default)#

Arguments:

character(len=*), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer, intent(in), optional :: thandle
character(len=*), intent(in), optional :: key
integer, intent(in), optional :: pos
character(len=*), intent(in), optional :: default

interface aot_table_get_val#

interface aot_top_get_val#

subroutine get_top_real_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

real (single_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
real (single_k), intent(in), optional :: default

subroutine get_top_double_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

real (double_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
real (double_k), intent(in), optional :: default

subroutine get_top_integer_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

integer (int_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer (int_k), intent(in), optional :: default

subroutine get_top_long_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

integer (long_k), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
integer (long_k), intent(in), optional :: default

subroutine get_top_logical_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

logical, intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
logical, intent(in), optional :: default

subroutine get_top_string_vvect(val, ErrCode, maxlength, L, default)#

Arguments:

character(len=*), intent(out), allocatable :: val
integer, intent(out), allocatable :: ErrCode
integer, intent(in) :: maxlength
type (flu_State) :: L
character(len=*), intent(in), optional :: default

subroutine get_top_real_v(val, ErrCode, L, default)#

Arguments:

real (single_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (single_k), intent(in), optional :: default

subroutine get_top_double_v(val, ErrCode, L, default)#

Arguments:

real (double_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
real (double_k), intent(in), optional :: default

subroutine get_top_integer_v(val, ErrCode, L, default)#

Arguments:

integer (int_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer (int_k), intent(in), optional :: default

subroutine get_top_long_v(val, ErrCode, L, default)#

Arguments:

integer (long_k), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
integer (long_k), intent(in), optional :: default

subroutine get_top_logical_v(val, ErrCode, L, default)#

Arguments:

logical, intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
logical, intent(in), optional :: default

subroutine get_top_string_v(val, ErrCode, L, default)#

Arguments:

character(len=*), intent(out) :: val
integer, intent(out) :: ErrCode
type (flu_State) :: L
character(len=*), intent(in), optional :: default

module aotus_module#

Uses: flu_binding, flu_kinds_module, aot_top_module, aot_table_module, aot_vector_module

subroutine open_config_file(L, filename, ErrCode, ErrString, buffer)#

Arguments:

type (flu_State) :: L
character(len=*), intent(in) :: filename
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString
type (cbuf_type), intent(out), optional :: buffer

subroutine open_config_chunk(L, chunk, ErrCode, ErrString)#

Arguments:

type (flu_State) :: L
character(len=*), intent(in) :: chunk
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString

subroutine open_config_buffer(L, buffer, bufName, ErrCode, ErrString)#

Arguments:

type (flu_State) :: L
character(len=1), intent(in) :: buffer
character(len=*), intent(in), optional :: bufName
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString

subroutine close_config(L)#

Arguments:

type (flu_State) :: L

subroutine aot_file_to_buffer(filename, buffer, ErrCode, ErrString)#

Arguments:

character(len=*), intent(in) :: filename
type (cbuf_type), intent(out) :: buffer
integer, intent(out), optional :: ErrCode
character(len=*), intent(out), optional :: ErrString

subroutine aot_require_buffer(L, buffer, modname)#

Arguments:

type (flu_State) :: L
character(len=1), intent(in) :: buffer
character(len=*), intent(in) :: modname

module dump_lua_fif_module#

Uses: iso_c_binding

interface dump_lua_toBuf#

module flu_binding#

Uses: iso_c_binding, lua_fif, lua_parameters, dump_lua_fif_module, flu_kinds_module

parameter FLU_TNONE = int(LUA_TNONE)#: Type: integer

parameter FLU_TNIL = int(LUA_TNIL)#: Type: integer

parameter FLU_TBOOLEAN = int(LUA_TBOOLEAN)#: Type: integer

parameter FLU_TLIGHTUSERDATA = int(LUA_TLIGHTUSERDATA)#: Type: integer

parameter FLU_TNUMBER = int(LUA_TNUMBER)#: Type: integer

parameter FLU_TSTRING = int(LUA_TSTRING)#: Type: integer

parameter FLU_TTABLE = int(LUA_TTABLE)#: Type: integer

parameter FLU_TFUNCTION = int(LUA_TFUNCTION)#: Type: integer

parameter FLU_TUSERDATA = int(LUA_TUSERDATA)#: Type: integer

parameter FLU_TTHREAD = int(LUA_TTHREAD)#: Type: integer

type flu_State#

member state = c_null_ptr#: Type: type (c_ptr)

member opened_libs = .false.#: Type: logical

type cbuf_type#

member ptr = c_null_ptr#: Type: type (c_ptr)

member buffer = NULL()#: Type: character(len=1), pointer

interface flu_pushnumber#

subroutine flu_pushreal(L, n)#

Arguments:

type (flu_State) :: L
real :: n

subroutine flu_pushdouble(L, n)#

Arguments:

type (flu_State) :: L
real (c_double) :: n

interface flu_pushinteger#

subroutine flu_pushint(L, n)#

Arguments:

type (flu_State) :: L
integer (int_k) :: n

subroutine flu_pushlong(L, n)#

Arguments:

type (flu_State) :: L
integer (long_k) :: n

interface flu_dump#

subroutine flu_dump_toBuf(L, buf, length, iError)#

Arguments:

type (flu_State) :: L
type (cbuf_type), intent(out) :: buf
integer :: length
integer :: iError

interface c_free#

function flu_getfield(L, index, k)#

Arguments:

type (flu_State) :: L
integer :: index
character(len=*) :: k

Returns: integer

function flu_getglobal(L, k)#

Arguments:

type (flu_State) :: L
character(len=*) :: k

Returns: integer

function flu_gettable(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: integer

function flu_gettop(L)#

Arguments:

type (flu_state) :: L

Returns: integer

function flu_isBoolean(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isFunction(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isnumber(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isString(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isTable(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isNoneOrNil(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isNil(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_isNone(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_islightuserdata(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_next(L, index)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: index

Returns: logical

function flu_pcall(L, nargs, nresults, errfunc)#

Arguments:

type (flu_State) :: L
integer :: nargs
integer :: nresults
integer :: errfunc

Returns: integer

function flu_rawgeti(L, index, n)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: index
integer, intent(in) :: n

Returns: integer

function flu_tolstring(L, index, len)#

Arguments:

type (flu_State) :: L
integer :: index
integer :: len

Returns: character(len=1), pointer, dimension(:)

function flu_todouble(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: real (c_double)

function flu_tonumber(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: real

function flu_toBoolean(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: logical

function flu_touserdata(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: type (c_ptr)

function flu_topointer(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: integer (long_k)

function flu_type(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: integer

function flu_getmetatable(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

Returns: integer

function fluL_loadfile(L, filename)#

Arguments:

type (flu_State) :: L
character(len=*) :: filename

Returns: integer

function fluL_loadbuffer(L, buffer, bufName)#

Arguments:

type (flu_State) :: L
character(len=1) :: buffer
character(len=*), optional :: bufName

Returns: integer

function fluL_loadstring(L, string)#

Arguments:

type (flu_State) :: L
character(len=*) :: string

Returns: integer

function fluL_newstate()#: Returns: type (flu_State)

function fluL_newmetatable(L, tname)#

Arguments:

type (flu_State) :: L
character(len=*) :: tname

Returns: integer

function fluL_ref(L, t)#

Arguments:

type (flu_State) :: L
integer :: t

Returns: integer

function flu_copyptr(lua_state)#

Arguments:

type (c_ptr), intent(in) :: lua_state

Returns: type (flu_State)

function flu_isopen(L)#

Arguments:

type (flu_State), intent(in) :: L

Returns: logical

subroutine flu_close(L)#

Arguments:

type (flu_State) :: L

subroutine flu_createtable(L, narr, nrec)#

Arguments:

type (flu_State) :: L
integer :: narr
integer :: nrec

subroutine flu_insert(L, index)#

Arguments:

type (flu_state) :: L
integer :: index

subroutine flu_pop(L, n)#

Arguments:

type (flu_State) :: L
integer, intent(in), optional :: n

subroutine flu_pushboolean(L, b)#

Arguments:

type (flu_State) :: L
logical :: b

subroutine flu_pushstring(L, string)#

Arguments:

type (flu_State) :: L
character(len=*), intent(in) :: string

subroutine flu_pushnil(L)#

Arguments:

type (flu_State) :: L

subroutine flu_pushvalue(L, index)#

Arguments:

type (flu_State) :: L
integer :: index

subroutine flu_pushlightuserdata(L, ptr)#

Arguments:

type (flu_State) :: L
type (c_ptr) :: ptr

subroutine flu_settable(L, n)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: n

subroutine flu_settop(L, n)#

Arguments:

type (flu_State) :: L
integer, intent(in) :: n

subroutine flu_setfield(L, index, k)#

Arguments:

type (flu_State) :: L
integer :: index
character(len=*) :: k

subroutine flu_setglobal(L, k)#

Arguments:

type (flu_State) :: L
character(len=*), intent(in) :: k

subroutine flu_pushcclosure(L, fn, n)#

Arguments:

type (flu_State), value :: L
procedure(lua_Function) :: fn
integer :: n

subroutine flu_register(L, fn_name, fn)#

Arguments:

type (flu_State) :: L
character(len=*), intent(in) :: fn_name
procedure(lua_Function) :: fn

subroutine fluL_openlibs(L)#

Arguments:

type (flu_State) :: L

subroutine fluL_setmetatable(L, tname)#

Arguments:

type (flu_State) :: L
character(len=*) :: tname

subroutine flu_free_cbuf(buf)#

Arguments:

type (cbuf_type) :: buf

module flu_kinds_module#

parameter quad_k = selected_real_kind(33)#: Type: integer

parameter double_k = selected_real_kind(15)#: Type: integer

parameter single_k = selected_real_kind(6)#: Type: integer

parameter int_k = selected_int_kind(6)#: Type: integer

parameter long_k = selected_int_kind(15)#: Type: integer

module lua_fif#

Uses: iso_c_binding, lua_parameters

interface lua_getglobal#

interface lua_getfield#

interface lua_gettable#

interface lua_gettop#

interface lua_isNumber#

interface lua_isString#

interface lua_next#

interface lua_pcallk#

interface lua_pushlstring#

interface lua_rawgeti#

interface lua_tolstring#

interface lua_tonumberx#

interface lua_toboolean#

interface lua_touserdata#

interface lua_topointer#

interface lua_type#

interface lua_getmetatable#

interface lua_close#

interface lua_createtable#

interface lua_pushinteger#

interface lua_pushboolean#

interface lua_pushnil#

interface lua_pushnumber#

interface lua_pushvalue#

interface lua_rotate#

interface lua_setfield#

interface lua_setglobal#

interface lua_settable#

interface lua_settop#

interface lua_pushcclosure#

interface lua_pushlightuserdata#

interface luaL_newstate#

interface luaL_loadfilex#

interface luaL_loadbufferx#

interface luaL_loadstring#

interface luaL_newmetatable#

interface luaL_ref#

interface luaL_openlibs#

interface luaL_setmetatable#

module lua_parameters#

Uses: iso_c_binding

parameter lua_int = c_long#: Type: integer

parameter lua_num = c_double#: Type: integer

parameter LUAI_MAXSTACK = 1000000#: Type: integer (c_int)

parameter LUA_TNONE = -1#: Type: integer (c_int)

parameter LUA_TNIL = 0#: Type: integer (c_int)

parameter LUA_TBOOLEAN = 1#: Type: integer (c_int)

parameter LUA_TLIGHTUSERDATA = 2#: Type: integer (c_int)

parameter LUA_TNUMBER = 3#: Type: integer (c_int)

parameter LUA_TSTRING = 4#: Type: integer (c_int)

parameter LUA_TTABLE = 5#: Type: integer (c_int)

parameter LUA_TFUNCTION = 6#: Type: integer (c_int)

parameter LUA_TUSERDATA = 7#: Type: integer (c_int)

parameter LUA_TTHREAD = 8#: Type: integer (c_int)

parameter LUA_REGISTRYINDEX = -LUAI_MAXSTACK-1000#: Type: integer (c_int)

AOTUS: Lua scripting for Fortran

Contents

AOTUS: Lua scripting for Fortran#