Unify the TAU configuration file: add a Fortran node

ParaToolsInc · Dec 15, 2024 · 8599e95 · 8599e95
1 parent 51c594f
commit 8599e95
Showing 1 changed file with 23 additions and 0 deletions.
diff --git 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)"