adds a default logger. MUST be called before logging occurs
increments a stack of default loggers the latest one will be available within the program
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_logger_type), | POINTER | :: | logger |
SUBROUTINE dbcsr_add_default_logger(logger)
!! adds a default logger.
!! MUST be called before logging occurs
!! @note
!! increments a stack of default loggers the latest one will be
!! available within the program
TYPE(dbcsr_logger_type), POINTER :: logger
CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_add_default_logger', &
routineP = moduleN//':'//routineN
IF (stack_pointer + 1 > max_stack_pointer) THEN
CALL dbcsr_abort(__LOCATION__, routineP// &
"too many default loggers, increase max_stack_pointer in "//moduleN)
END IF
stack_pointer = stack_pointer + 1
NULLIFY (default_logger_stack(stack_pointer)%dbcsr_default_logger)
default_logger_stack(stack_pointer)%dbcsr_default_logger => logger
CALL dbcsr_logger_retain(logger)
END SUBROUTINE dbcsr_add_default_logger