Add interface blocks for TAU_START/TAU_STOP to profile pure procedures

ParaToolsInc · Feb 17, 2025 · 436946f · 436946f
1 parent baac006
commit 436946f
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 3 deletions.
diff --git a/config_files/tau_config.yaml b/config_files/tau_config.yaml
@@ -53,7 +53,16 @@ Fortran:
 
   pure_procedure_begin_insert:
     - |-2
-            call TAU_START("&${full_timer_name}&
+      ! A little fib, worse case the calls to TAU_START and TAU_STOP dropped by optimizer
+            interface
+              pure subroutine TAU_START(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_START
+              pure subroutine TAU_STOP(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_STOP
+            end interface
+            call TAU_START("${full_timer_name}&
            &")
 
   pure_procedure_end_insert:

diff --git a/config_files/tau_pure_config.yaml b/config_files/tau_pure_config.yaml
@@ -31,6 +31,15 @@ Fortran:
   # Editors might complain about the indentation, but it is correct
   program_insert:
     - |-2
+      ! A little fib, worse case the calls to TAU_START and TAU_STOP dropped by optimizer
+            interface
+              pure subroutine TAU_START(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_START
+              pure subroutine TAU_STOP(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_STOP
+            end interface
             call TAU_START("${full_timer_name}&
            &")
       #ifndef TAU_MPI
@@ -39,6 +48,15 @@ Fortran:
 
   procedure_begin_insert:
     - |-2
+      ! A little fib, worse case the calls to TAU_START and TAU_STOP dropped by optimizer
+            interface
+              pure subroutine TAU_START(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_START
+              pure subroutine TAU_STOP(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_STOP
+            end interface
             call TAU_START("${full_timer_name}&
            &")
 
@@ -49,10 +67,19 @@ Fortran:
 
   pure_procedure_begin_insert:
     - |-2
-            call TAU_START("&${full_timer_name}&
+      ! A little fib, worse case the calls to TAU_START and TAU_STOP dropped by optimizer
+            interface
+              pure subroutine TAU_START(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_START
+              pure subroutine TAU_STOP(timer_name)
+                character(len=*), intent(in) :: timer_name
+              end subroutine TAU_STOP
+            end interface
+            call TAU_START("${full_timer_name}&
            &")
 
   pure_procedure_end_insert:
     - |-2
             call TAU_STOP("${full_timer_name}&
-           &")
+           &")