aot_out_val_arr_extdouble Subroutine

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

This is a vectorized version of the value output.

It takes a one-dimensional array and puts it into a table. The parameters have the usual meanings, as in the scalar routines, however and additional argument (max_per_line) allows the specification of the number of elements that might be put onto a single line. The first entry will be placed into the same line as the opening brace, and the closing brace will be put on the same line, as the last entry.

Arguments

Type IntentOptional Attributes Name
type(aot_out_type), intent(inout) :: put_conf

Lua script to write the array into.
real(kind=xdble_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.

Calls

proc~~aot_out_val_arr_extdouble~~CallsGraph proc~aot_out_val_arr_extdouble aot_out_val_arr_extdouble interface~aot_out_val~2 aot_out_val proc~aot_out_val_arr_extdouble->interface~aot_out_val~2 proc~aot_out_close_table aot_out_close_table proc~aot_out_val_arr_extdouble->proc~aot_out_close_table proc~aot_out_open_table aot_out_open_table proc~aot_out_val_arr_extdouble->proc~aot_out_open_table interface~aot_out_val~2->proc~aot_out_val_arr_extdouble proc~aot_out_val_extdouble aot_out_val_extdouble interface~aot_out_val~2->proc~aot_out_val_extdouble proc~aot_out_breakline aot_out_breakline proc~aot_out_open_table->proc~aot_out_breakline proc~aot_out_val_extdouble->proc~aot_out_breakline

Called by

proc~~aot_out_val_arr_extdouble~~CalledByGraph proc~aot_out_val_arr_extdouble aot_out_val_arr_extdouble interface~aot_out_val~2 aot_out_val proc~aot_out_val_arr_extdouble->interface~aot_out_val~2 interface~aot_out_val~2->proc~aot_out_val_arr_extdouble proc~aot_out_val_arr_double aot_out_val_arr_double proc~aot_out_val_arr_double->interface~aot_out_val~2 proc~aot_out_val_arr_int aot_out_val_arr_int 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->interface~aot_out_val~2 proc~aot_out_val_arr_long aot_out_val_arr_long proc~aot_out_val_arr_long->interface~aot_out_val~2 proc~aot_out_val_arr_real aot_out_val_arr_real 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->interface~aot_out_val~2 interface~aot_out_val aot_out_val interface~aot_out_val->proc~aot_out_val_arr_double interface~aot_out_val->proc~aot_out_val_arr_int interface~aot_out_val->proc~aot_out_val_arr_logical 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_string

Source Code

  subroutine aot_out_val_arr_extdouble(put_conf, val, vname, advance_previous, &
    &                                   max_per_line)
    !------------------------------------------------------------------------
    !> Lua script to write the array into.
    type(aot_out_type), intent(inout)  :: put_conf

    !> Name for this array
    character(len=*), optional, intent(in) :: vname

    !> Actual data to write into the script
    real(kind=xdble_k), intent(in) :: val(:)

    !> Flag if this array should be put on the same line as the last entry of
    !! the parent table.
    logical, optional, intent(in) :: advance_previous

    !> Maximal number of entries to put into a single line.
    !! Defaults to 3.
    integer, optional, intent(in) :: max_per_line
    !------------------------------------------------------------------------
    integer :: i
    integer :: nVals
    integer :: mpl
    logical :: bline
    !------------------------------------------------------------------------

    if (present(max_per_line)) then
      mpl = max_per_line
    else
      mpl = 3
    end if

    ! Opening the table(subtable for array actually)
    call aot_out_open_table(put_conf, vname, &
      &                     advance_previous = advance_previous)

    nVals = size(val)
    if (nVals > 0) then
      ! Always put the first entry on the same line as the opening brace.
      call aot_out_val(put_conf, val(1), advance_previous = .false.)

      do i=2,nVals
        ! Output each entry and break the line after mpl entries on a line.
        bline = (mod(i-1, mpl) == 0)
        call aot_out_val(put_conf, val(i), advance_previous = bline)
      end do
    end if

    ! Always put the closing brace on the same line as the last entry.
    call aot_out_close_table(put_conf, advance_previous = .false.)

  end subroutine aot_out_val_arr_extdouble