tem_varSys_out_vector Subroutine

public subroutine tem_varSys_out_vector(me, conf, dumpVarPos)

Allows the output of array of varSys to lua out

Arguments

Type IntentOptional Attributes Name
type(tem_varSys_type), intent(in) :: me(:)

variable to write into the lua file
type(aot_out_type), intent(inout) :: conf

aotus type handling the output to the file in lua format
integer, intent(in), optional :: dumpVarPos(:)

Position of variables to dump

Calls

proc~~tem_varsys_out_vector~2~~CallsGraph proc~tem_varsys_out_vector~2 tem_varSys_out_vector proc~aot_out_open_table aot_out_open_table proc~tem_varsys_out_vector~2->proc~aot_out_open_table proc~aot_out_close_table aot_out_close_table proc~tem_varsys_out_vector~2->proc~aot_out_close_table proc~tem_varsys_out_single~2 tem_varSys_out_single proc~tem_varsys_out_vector~2->proc~tem_varsys_out_single~2 proc~tem_varsys_out_single~2->proc~aot_out_open_table proc~tem_varsys_out_single~2->proc~aot_out_close_table proc~aot_out_val aot_out_val proc~tem_varsys_out_single~2->proc~aot_out_val

Called by

proc~~tem_varsys_out_vector~2~~CalledByGraph proc~tem_varsys_out_vector~2 tem_varSys_out_vector proc~tem_varsys_dump_vector~2 tem_varSys_dump_vector proc~tem_varsys_dump_vector~2->proc~tem_varsys_out_vector~2 interface~tem_varsys_out~2 tem_varSys_out interface~tem_varsys_out~2->proc~tem_varsys_out_vector~2 interface~tem_varsys_dump~2 tem_varSys_dump interface~tem_varsys_dump~2->proc~tem_varsys_dump_vector~2

Contents

Source Code

tem_varSys_out_vector

Source Code

  subroutine tem_varSys_out_vector(me, conf, dumpVarPos)
    ! ---------------------------------------------------------------------------
    !> variable to write into the lua file
    type(tem_varSys_type), intent(in) :: me(:)

    !> aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf

    !> Position of variables to dump
    integer, optional, intent(in) :: dumpVarPos(:)
    ! ---------------------------------------------------------------------------
    integer :: iSys
    ! ---------------------------------------------------------------------------
    call aot_out_open_table( put_conf = conf, tname='varsys' )
    do iSys = 1, size(me)
      call tem_varSys_out_single( me         = me(iSys),   &
        &                         conf       = conf,       &
        &                         dumpVarPos = dumpVarPos, &
        &                         level      = 1           )
    end do
    call aot_out_close_table( put_conf = conf )

  end subroutine tem_varSys_out_vector