tem_varSys_dump_single Subroutine

public subroutine tem_varSys_dump_single(me, outUnit, dumpVarPos)

Dump single varSys to given unit

Arguments

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

variable to write into the lua file

integer, intent(inout) :: outUnit

unit to write to

integer, intent(in), optional :: dumpVarPos(:)

Position of variables to dump


Calls

proc~~tem_varsys_dump_single~~CallsGraph proc~tem_varsys_dump_single tem_varSys_dump_single proc~aot_out_open aot_out_open proc~tem_varsys_dump_single->proc~aot_out_open proc~tem_varsys_out_single tem_varSys_out_single proc~tem_varsys_dump_single->proc~tem_varsys_out_single proc~aot_out_close aot_out_close proc~tem_varsys_dump_single->proc~aot_out_close proc~aot_out_open_table aot_out_open_table proc~tem_varsys_out_single->proc~aot_out_open_table proc~aot_out_val aot_out_val proc~tem_varsys_out_single->proc~aot_out_val proc~aot_out_close_table aot_out_close_table proc~tem_varsys_out_single->proc~aot_out_close_table

Called by

proc~~tem_varsys_dump_single~~CalledByGraph proc~tem_varsys_dump_single tem_varSys_dump_single interface~tem_varsys_dump tem_varSys_dump interface~tem_varsys_dump->proc~tem_varsys_dump_single proc~tem_restart_readheader tem_restart_readHeader proc~tem_restart_readheader->interface~tem_varsys_dump proc~tem_load_restart tem_load_restart proc~tem_load_restart->proc~tem_restart_readheader

Contents


Source Code

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

    !> unit to write to
    integer, intent(inout) :: outUnit

    !> Position of variables to dump
    integer, optional, intent(in) :: dumpVarPos(:)
    ! ---------------------------------------------------------------------------
    ! aotus type handling the output to the file in lua format
    type(aot_out_type) :: conf
    ! ---------------------------------------------------------------------------
    call aot_out_open( put_conf = conf, outUnit = outUnit )
    call tem_varSys_out_single( me, conf, dumpVarPos )
    call aot_out_close( put_conf = conf )

  end subroutine tem_varSys_dump_single