get_logger_level Function

public function get_logger_level(level_string) result(level_int)

Uses

    • pic_logger
  • proc~~get_logger_level~~UsesGraph proc~get_logger_level get_logger_level pic_logger pic_logger proc~get_logger_level->pic_logger

Convert string log level to integer value This function uses the pic_logger constants

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: level_string

Return Value integer


Calls

proc~~get_logger_level~~CallsGraph proc~get_logger_level get_logger_level warning warning proc~get_logger_level->warning

Called by

proc~~get_logger_level~~CalledByGraph proc~get_logger_level get_logger_level program~main main program~main->proc~get_logger_level

Source Code

   function get_logger_level(level_string) result(level_int)
      !! Convert string log level to integer value
      !! This function uses the pic_logger constants
      use pic_logger, only: debug_level, verbose_level, info_level, performance_level, &
                            warning_level, error_level, knowledge_level
      character(len=*), intent(in) :: level_string
      integer :: level_int

      select case (trim(adjustl(level_string)))
      case ('debug', 'Debug', 'DEBUG')
         level_int = debug_level
      case ('verbose', 'Verbose', 'VERBOSE')
         level_int = verbose_level
      case ('info', 'Info', 'INFO')
         level_int = info_level
      case ('performance', 'Performance', 'PERFORMANCE')
         level_int = performance_level
      case ('warning', 'Warning', 'WARNING')
         level_int = warning_level
      case ('error', 'Error', 'ERROR')
         level_int = error_level
      case ('knowledge', 'Knowledge', 'KNOWLEDGE')
         level_int = knowledge_level
      case default
         ! Default to info level if unknown
         call logger%warning("Unknown log level string: "//level_string//". Defaulting to INFO level.")
         level_int = info_level
      end select
   end function get_logger_level