aot_out_open_table Subroutine

public subroutine aot_out_open_table(put_conf, tname, advance_previous)

Start a new table to write to.

You can give the table a name with the tname argument. If the table definition should NOT start on a new line, you have to pass in an advance_previous = .false.

Arguments

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

Calls

proc~~aot_out_open_table~~CallsGraph proc~aot_out_open_table aot_out_open_table proc~aot_out_breakline aot_out_breakline proc~aot_out_open_table->proc~aot_out_breakline

Called by

proc~~aot_out_open_table~~CalledByGraph proc~aot_out_open_table aot_out_open_table proc~aot_out_val_arr_double aot_out_val_arr_double proc~aot_out_val_arr_double->proc~aot_out_open_table interface~aot_out_val~2 aot_out_val proc~aot_out_val_arr_double->interface~aot_out_val~2 proc~aot_out_val_arr_extdouble aot_out_val_arr_extdouble proc~aot_out_val_arr_extdouble->proc~aot_out_open_table proc~aot_out_val_arr_extdouble->interface~aot_out_val~2 proc~aot_out_val_arr_int aot_out_val_arr_int proc~aot_out_val_arr_int->proc~aot_out_open_table proc~aot_out_val_arr_int->interface~aot_out_val~2 proc~aot_out_val_arr_logical aot_out_val_arr_logical proc~aot_out_val_arr_logical->proc~aot_out_open_table proc~aot_out_val_arr_logical->interface~aot_out_val~2 proc~aot_out_val_arr_long aot_out_val_arr_long proc~aot_out_val_arr_long->proc~aot_out_open_table proc~aot_out_val_arr_long->interface~aot_out_val~2 proc~aot_out_val_arr_quadruple aot_out_val_arr_quadruple proc~aot_out_val_arr_quadruple->proc~aot_out_open_table interface~aot_out_val aot_out_val proc~aot_out_val_arr_quadruple->interface~aot_out_val proc~aot_out_val_arr_real aot_out_val_arr_real proc~aot_out_val_arr_real->proc~aot_out_open_table proc~aot_out_val_arr_real->interface~aot_out_val~2 proc~aot_out_val_arr_string aot_out_val_arr_string proc~aot_out_val_arr_string->proc~aot_out_open_table proc~aot_out_val_arr_string->interface~aot_out_val~2 interface~aot_out_val->proc~aot_out_val_arr_quadruple interface~aot_out_val~2->proc~aot_out_val_arr_extdouble interface~aot_out_val~3 aot_out_val interface~aot_out_val~3->proc~aot_out_val_arr_double interface~aot_out_val~3->proc~aot_out_val_arr_int interface~aot_out_val~3->proc~aot_out_val_arr_logical interface~aot_out_val~3->proc~aot_out_val_arr_long interface~aot_out_val~3->proc~aot_out_val_arr_real interface~aot_out_val~3->proc~aot_out_val_arr_string

Source Code

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

    call aot_out_breakline(put_conf, advance_previous)

    if (present(tname)) then
      write(put_conf%outunit, fmt='(a)', advance='no') trim(tname)//' = {'
    else
      write(put_conf%outunit, fmt='(a)', advance='no') '{'
    end if

    put_conf%level = put_conf%level + 1
    put_conf%indent = put_conf%indent + put_conf%in_step

  end subroutine aot_out_open_table