tem_condition_out_single Subroutine

private subroutine tem_condition_out_single(me, conf, level)

Allows the output of the single condition to lua out.

The data is written into the file, the lunit is connected to. It is formatted as a Lua table.

Arguments

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

condition 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 :: level

to dump variable with key or without key

Calls

proc~~tem_condition_out_single~~CallsGraph proc~tem_condition_out_single tem_condition_out_single aot_out_close_table aot_out_close_table proc~tem_condition_out_single->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_condition_out_single->aot_out_open_table aot_out_val aot_out_val proc~tem_condition_out_single->aot_out_val

Called by

proc~~tem_condition_out_single~~CalledByGraph proc~tem_condition_out_single tem_condition_out_single interface~tem_condition_out tem_condition_out interface~tem_condition_out->proc~tem_condition_out_single proc~tem_condition_out_vector tem_condition_out_vector interface~tem_condition_out->proc~tem_condition_out_vector proc~tem_condition_dump_single tem_condition_dump_single proc~tem_condition_dump_single->proc~tem_condition_out_single proc~tem_condition_out_vector->proc~tem_condition_out_single interface~tem_condition_dump tem_condition_dump interface~tem_condition_dump->proc~tem_condition_dump_single proc~tem_condition_dump_vector tem_condition_dump_vector interface~tem_condition_dump->proc~tem_condition_dump_vector proc~tem_condition_dump_vector->proc~tem_condition_out_vector proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->interface~tem_condition_out interface~tem_convergence_out tem_convergence_out interface~tem_convergence_out->proc~tem_convergence_out_single proc~tem_convergence_out_vector tem_convergence_out_vector interface~tem_convergence_out->proc~tem_convergence_out_vector proc~tem_convergence_dump_single tem_convergence_dump_single proc~tem_convergence_dump_single->proc~tem_convergence_out_single proc~tem_convergence_out_vector->proc~tem_convergence_out_single interface~tem_convergence_dump tem_convergence_dump interface~tem_convergence_dump->proc~tem_convergence_dump_single proc~tem_convergence_dump_vector tem_convergence_dump_vector proc~tem_convergence_dump_vector->proc~tem_convergence_out_vector

Source Code

  subroutine tem_condition_out_single(me, conf, level)
    ! -------------------------------------------------------------------- !
    !> condition to write into the lua file
    type(tem_condition_type), intent(in) :: me
    !> aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    !> to dump variable with key or without key
    integer, optional, intent(in) :: level
    ! -------------------------------------------------------------------- !
    integer :: level_loc
    ! -------------------------------------------------------------------- !

    if (present(level)) then
      level_loc = level
    else
      level_loc = 0
    end if

    if( level_loc == 0) then
      call aot_out_open_table( put_conf = conf, tname = 'condition' )
    else
      call aot_out_open_table( put_conf = conf )
    end if

    call aot_out_val( put_conf = conf,         &
      &               val      = me%operation, &
      &               vname    = 'operator'    )

    call aot_out_val( put_conf = conf,         &
      &               val      = me%threshold, &
      &               vname    = 'threshold'   )

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_condition_out_single