retains the given timer env
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(timer_env_type), | POINTER | :: | timer_env |
the timer env to retain |
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