From 8599e95abe5a3564e925f297ede4eae8182727ac Mon Sep 17 00:00:00 2001 From: Izaak Beekman Date: Sun, 15 Dec 2024 15:17:55 -0500 Subject: [PATCH] Unify the TAU configuration file: add a Fortran node --- config_files/tau_config.yaml | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/config_files/tau_config.yaml b/config_files/tau_config.yaml index 4bb77fb..03bb209 100644 --- a/config_files/tau_config.yaml +++ b/config_files/tau_config.yaml @@ -22,3 +22,26 @@ function_begin_insert: function_end_insert: - "TAU_PROFILE_STOP(tautimer);" +Fortran: +# Config variables: +# ${full_timer_name}: "procedure_name [file_path {start}-{end}]" + instrumentation: tauFortran + program_insert: + - " integer, save :: tauProfileTimer(2) = [0, 0]" + - " call TAU_PROFILE_INIT()" + - " call TAU_PROFILE_TIMER(tauProfileTimer, \"${full_timer_name}&" + - " &\")" + - " call TAU_PROFILE_START(tauProfileTimer)" + - "#ifndef TAU_MPI" + - " call TAU_PROFILE_SET_NODE(0)" + - "#endif" + + + procedure_begin_insert: + - " integer, save :: tauProfileTimer(2) = [0, 0]" + - " call TAU_PROFILE_TIMER(tauProfileTimer, \"${full_timer_name}&" + - " &\")" + - " call TAU_PROFILE_START(tauProfileTimer)" + + procedure_end_insert: + - " call TAU_PROFILE_STOP(tauProfileTimer)" \ No newline at end of file