timer_env_create Subroutine

private subroutine timer_env_create(timer_env)

creates a new timer env

Arguments

TypeIntentOptionalAttributesName
type(timer_env_type), POINTER:: timer_env

Contents

Source Code


Source Code

   SUBROUTINE timer_env_create(timer_env)
      !! creates a new timer env
      TYPE(timer_env_type), POINTER                      :: timer_env

      INTEGER                                            :: stat

      ALLOCATE (timer_env, stat=stat)
      IF (stat /= 0) &
         DBCSR_ABORT("timer_env_create: allocation failed")
      timer_env%ref_count = 0
      timer_env%trace_max = -1 ! tracing disabled by default
      timer_env%trace_all = .FALSE.
      CALL dict_init(timer_env%routine_names)
      CALL dict_init(timer_env%callgraph)
      CALL list_init(timer_env%routine_stats)
      CALL list_init(timer_env%callstack)
   END SUBROUTINE timer_env_create