tem_logging_load_primary Subroutine

public subroutine tem_logging_load_primary(conf, rank)

Load the primary logger from a Lua script under its default name of logging as global variable.

If it is not set by the user, a default logging level of 1 is assumed.

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: conf
integer :: rank

Calls

proc~~tem_logging_load_primary~~CallsGraph proc~tem_logging_load_primary tem_logging_load_primary aot_table_close aot_table_close proc~tem_logging_load_primary->aot_table_close aot_table_open aot_table_open proc~tem_logging_load_primary->aot_table_open proc~tem_logging_init_primary tem_logging_init_primary proc~tem_logging_load_primary->proc~tem_logging_init_primary proc~tem_logging_load tem_logging_load proc~tem_logging_load_primary->proc~tem_logging_load proc~tem_logging_init_logger tem_logging_init_logger proc~tem_logging_init_primary->proc~tem_logging_init_logger proc~tem_logging_load->proc~tem_logging_init_primary aot_get_val aot_get_val proc~tem_logging_load->aot_get_val proc~tem_logging_load->proc~tem_logging_init_logger proc~newunit newunit proc~tem_logging_init_logger->proc~newunit proc~tem_connect_tonull tem_connect_toNull proc~tem_logging_init_logger->proc~tem_connect_tonull proc~tem_connect_tonull->proc~newunit

Source Code

  subroutine tem_logging_load_primary( conf, rank )
    ! ---------------------------------------------------------------------------
    !>
    type(flu_state) :: conf
    !>
    integer :: rank
    ! ---------------------------------------------------------------------------
    integer :: thandle
    ! ---------------------------------------------------------------------------

    call aot_table_open(L = conf, thandle = thandle, key = 'logging')
    if (thandle == 0) then
      call tem_logging_init_primary(level = 1, rank = rank)
    else
      call tem_logging_load(conf = conf, thandle = thandle, rank = rank)
    end if
    call aot_table_close(L = conf, thandle = thandle)

  end subroutine tem_logging_load_primary