mp_perf_env_retain Subroutine

public subroutine mp_perf_env_retain(perf_env)

Arguments

Type IntentOptional Attributes Name
type(mp_perf_env_type), POINTER :: perf_env

Contents

Source Code

mp_perf_env_retain

Source Code

   SUBROUTINE mp_perf_env_retain(perf_env)
      TYPE(mp_perf_env_type), POINTER                    :: perf_env

      IF (.NOT. ASSOCIATED(perf_env)) THEN
         DBCSR_ABORT("unassociated perf_env: mpiwrap @ mp_perf_env_retain")
      END IF
      IF (perf_env%ref_count < 1) THEN
         DBCSR_ABORT("invalid ref_count: mpiwrap @ mp_perf_env_retain")
      END IF
      perf_env%ref_count = perf_env%ref_count + 1
   END SUBROUTINE mp_perf_env_retain