creates a new timer env
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(timer_env_type), | POINTER | :: | timer_env |
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