26 TYPE routine_stat_type
27 INTEGER :: routine_id = -1
28 CHARACTER(len=default_string_length) :: routineN =
""
29 REAL(kind=
dp) :: excl_walltime_accu = 0.0_dp
30 REAL(kind=
dp) :: incl_walltime_accu = 0.0_dp
31 REAL(kind=
dp) :: excl_energy_accu = 0.0_dp
32 REAL(kind=
dp) :: incl_energy_accu = 0.0_dp
33 INTEGER :: active_calls = 0
34 INTEGER :: total_calls = 0
35 INTEGER :: stackdepth_accu = 0
36 LOGICAL :: trace = .false.
37 END TYPE routine_stat_type
40 INTEGER :: total_calls = 0
41 REAL(kind=
dp) :: incl_walltime_accu = 0.0_dp
42 REAL(kind=
dp) :: incl_energy_accu = 0.0_dp
43 END TYPE call_stat_type
45 TYPE callstack_entry_type
46 INTEGER :: routine_id = -1
47 REAL(kind=
dp) :: walltime_start = 0.0_dp
48 REAL(kind=
dp) :: energy_start = 0.0_dp
49 END TYPE callstack_entry_type
51 TYPE routine_report_type
52 CHARACTER(LEN=default_string_length) :: routineN =
""
53 REAL(KIND=
dp) :: max_icost = 0.0_dp
54 REAL(KIND=
dp) :: sum_icost = 0.0_dp
55 REAL(KIND=
dp) :: max_ecost = 0.0_dp
56 REAL(KIND=
dp) :: sum_ecost = 0.0_dp
57 INTEGER :: max_irank = 0
58 INTEGER :: max_erank = 0
59 INTEGER(kind=int_8) :: max_total_calls = 0
60 INTEGER(kind=int_8) :: sum_total_calls = 0
61 INTEGER(kind=int_8) :: sum_stackdepth = 0
62 END TYPE routine_report_type
64 PUBLIC :: routine_stat_type, call_stat_type, callstack_entry_type, routine_report_type
Defines the basic variable types.
integer, parameter, public int_8
integer, parameter, public dp
integer, parameter, public default_string_length
Types used by timings.F and timings_report.F The types in this module are used within dict or list,...