get_mp_perf_env Function

public function get_mp_perf_env() result(res)

Arguments

None

Return Value type(mp_perf_env_type),POINTER


Contents

Source Code


Source Code

   FUNCTION get_mp_perf_env() RESULT(res)
      TYPE(mp_perf_env_type), POINTER                    :: res

      IF (stack_pointer < 1) THEN
         DBCSR_ABORT("no perf_env in the stack : mpiwrap @ get_mp_perf_env")
      END IF
      res => mp_perf_stack(stack_pointer)%mp_perf_env
   END FUNCTION get_mp_perf_env