changes the logging level. Log messages with a level less than the one given wo not be printed.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_logger_type), | POINTER | :: | logger |
the logger to change |
||
integer, | intent(in) | :: | level |
the new logging level for the logger |
SUBROUTINE dbcsr_logger_set_log_level(logger, level)
!! changes the logging level. Log messages with a level less than the one
!! given wo not be printed.
TYPE(dbcsr_logger_type), POINTER :: logger
!! the logger to change
INTEGER, INTENT(in) :: level
!! the new logging level for the logger
CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_logger_set_log_level', &
routineP = moduleN//':'//routineN
IF (.NOT. ASSOCIATED(logger)) &
DBCSR_ABORT(routineP//" logger not associated")
IF (logger%ref_count < 1) &
DBCSR_ABORT(routineP//" logger%ref_count<1")
logger%print_level = level
END SUBROUTINE dbcsr_logger_set_log_level