retains the given logger (to be called to keep a shared copy of the logger)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_logger_type), | POINTER | :: | logger |
the logger to retain |
SUBROUTINE dbcsr_logger_retain(logger)
!! retains the given logger (to be called to keep a shared copy of
!! the logger)
TYPE(dbcsr_logger_type), POINTER :: logger
!! the logger to retain
CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_logger_retain', &
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%ref_count = logger%ref_count + 1
END SUBROUTINE dbcsr_logger_retain