dbcsr_logger_retain Subroutine

public subroutine dbcsr_logger_retain(logger)

retains the given logger (to be called to keep a shared copy of the logger)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_logger_type), POINTER:: logger

the logger to retain


Contents

Source Code


Source Code

   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