aot_out_val Interface

public interface aot_out_val

Put Fortran intrinsic types into the script.

Scalar values and one-dimensional arrays are supported. Here we add support for quadruple precision. NOTE however, that the used format will only be in double precision, as Lua does not provide higher accuracy right now anyway.

Calls

interface~~aot_out_val~2~~CallsGraph interface~aot_out_val~2 aot_out_val proc~aot_out_val_quadruple aot_out_val_quadruple interface~aot_out_val~2->proc~aot_out_val_quadruple proc~aot_out_val_arr_quadruple aot_out_val_arr_quadruple interface~aot_out_val~2->proc~aot_out_val_arr_quadruple proc~aot_out_breakline aot_out_breakline proc~aot_out_val_quadruple->proc~aot_out_breakline proc~aot_out_val_arr_quadruple->interface~aot_out_val~2 proc~aot_out_open_table aot_out_open_table proc~aot_out_val_arr_quadruple->proc~aot_out_open_table proc~aot_out_close_table aot_out_close_table proc~aot_out_val_arr_quadruple->proc~aot_out_close_table proc~aot_out_open_table->proc~aot_out_breakline

Called by

interface~~aot_out_val~2~~CalledByGraph interface~aot_out_val~2 aot_out_val proc~aot_out_val_arr_quadruple aot_out_val_arr_quadruple interface~aot_out_val~2->proc~aot_out_val_arr_quadruple proc~aot_out_val_arr_quadruple->interface~aot_out_val~2

Contents


Module Procedures

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

Put quadruple variables into the Lua script.

Read more…

Arguments

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

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

This is a vectorized version of the value output.

Read more…

Arguments

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

Lua script to write the array into.

real(kind=quad_k), intent(in) :: val(:)

Actual data to write into the script

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

Name for this array

logical, intent(in), optional :: advance_previous

Flag if this array should be put on the same line as the last entry of the parent table.

integer, intent(in), optional :: max_per_line

Maximal number of entries to put into a single line. Defaults to 3.