aot_out_val_extdouble Subroutine

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

Put extdouble variables into the Lua script.

The value is passed in with val, optionally you can assign a name to it with the vname argument. If it should be put on the same line as the previous entry, you have to set advance_previous=.false.

Arguments

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

Calls

proc~~aot_out_val_extdouble~~CallsGraph proc~aot_out_val_extdouble aot_out_val_extdouble proc~aot_out_breakline aot_out_breakline proc~aot_out_val_extdouble->proc~aot_out_breakline

Called by

proc~~aot_out_val_extdouble~~CalledByGraph proc~aot_out_val_extdouble aot_out_val_extdouble interface~aot_out_val~3 aot_out_val interface~aot_out_val~3->proc~aot_out_val_extdouble proc~aot_out_val_arr_extdouble aot_out_val_arr_extdouble interface~aot_out_val~3->proc~aot_out_val_arr_extdouble proc~aot_out_val_arr_int aot_out_val_arr_int proc~aot_out_val_arr_int->interface~aot_out_val~3 proc~aot_out_val_arr_string aot_out_val_arr_string proc~aot_out_val_arr_string->interface~aot_out_val~3 proc~aot_out_val_arr_extdouble->interface~aot_out_val~3 proc~aot_out_val_arr_double aot_out_val_arr_double proc~aot_out_val_arr_double->interface~aot_out_val~3 proc~aot_out_val_arr_long aot_out_val_arr_long proc~aot_out_val_arr_long->interface~aot_out_val~3 proc~aot_out_val_arr_real aot_out_val_arr_real proc~aot_out_val_arr_real->interface~aot_out_val~3 proc~aot_out_val_arr_logical aot_out_val_arr_logical proc~aot_out_val_arr_logical->interface~aot_out_val~3 interface~aot_out_val aot_out_val interface~aot_out_val->proc~aot_out_val_arr_int interface~aot_out_val->proc~aot_out_val_arr_string interface~aot_out_val->proc~aot_out_val_arr_double interface~aot_out_val->proc~aot_out_val_arr_long interface~aot_out_val->proc~aot_out_val_arr_real interface~aot_out_val->proc~aot_out_val_arr_logical

Contents


Variables

TypeVisibilityAttributesNameInitial
character(len=3), private :: adv_string