get_timer_env Function

public function get_timer_env() result(timer_env)

returns the current timer env from the stack

Arguments

None

Return Value type(timer_env_type), POINTER


Source Code

   FUNCTION get_timer_env() RESULT(timer_env)
      !! returns the current timer env from the stack
      TYPE(timer_env_type), POINTER                      :: timer_env

      timer_env => list_peek(timers_stack)
   END FUNCTION get_timer_env