timer_env_retain Subroutine

public subroutine timer_env_retain(timer_env)

retains the given timer env

Arguments

TypeIntentOptionalAttributesName
type(timer_env_type), POINTER:: timer_env

the timer env to retain


Contents

Source Code


Source Code

   SUBROUTINE timer_env_retain(timer_env)
      !! retains the given timer env

      TYPE(timer_env_type), POINTER                      :: timer_env
         !! the timer env to retain

      IF (.NOT. ASSOCIATED(timer_env)) &
         DBCSR_ABORT("timer_env_retain: not associated")
      IF (timer_env%ref_count < 0) &
         DBCSR_ABORT("timer_env_retain: negative ref_count")
      timer_env%ref_count = timer_env%ref_count + 1
   END SUBROUTINE timer_env_retain