tem_variable_out_vector Subroutine

public subroutine tem_variable_out_vector(me, conf)

Allows the output of array of variable to lua out

Arguments

Type IntentOptional Attributes Name
type(tem_variable_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

Calls

proc~~tem_variable_out_vector~~CallsGraph proc~tem_variable_out_vector tem_variable_out_vector aot_out_close_table aot_out_close_table proc~tem_variable_out_vector->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_variable_out_vector->aot_out_open_table proc~tem_variable_out_single tem_variable_out_single proc~tem_variable_out_vector->proc~tem_variable_out_single proc~tem_variable_out_single->aot_out_close_table proc~tem_variable_out_single->aot_out_open_table aot_out_val aot_out_val proc~tem_variable_out_single->aot_out_val

Called by

proc~~tem_variable_out_vector~~CalledByGraph proc~tem_variable_out_vector tem_variable_out_vector interface~tem_variable_out tem_variable_out interface~tem_variable_out->proc~tem_variable_out_vector proc~tem_variable_dump_vector tem_variable_dump_vector proc~tem_variable_dump_vector->proc~tem_variable_out_vector interface~tem_variable_dump tem_variable_dump interface~tem_variable_dump->proc~tem_variable_dump_vector

Source Code

  subroutine tem_variable_out_vector(me, conf)
    ! ---------------------------------------------------------------------------
    !> variable to write into the lua file
    type(tem_variable_type), intent(in) :: me(:)
    !> aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    ! ---------------------------------------------------------------------------
    integer :: iVar
    ! ---------------------------------------------------------------------------
    call aot_out_open_table( put_conf = conf, tname='variable' )
    do iVar = 1,size(me)
      call tem_variable_out_single( me(iVar), conf, level=1 )
    end do
    call aot_out_close_table( put_conf = conf )

  end subroutine tem_variable_out_vector