TYPE dbcsr_logger_p_type TYPE(dbcsr_logger_type), POINTER :: p => Null() END TYPE dbcsr_logger_p_type