rename

p-costa · Aug 22, 2022 · 377c5d1 · 377c5d1
1 parent a699265
commit 377c5d1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/timer-with-switches.f90 b/timer-with-switches.f90
@@ -18,7 +18,7 @@ module mod_timer
   private
   public :: timer_tic,timer_toc,timer_print,timer_cleanup
   !
-  logical, parameter :: GPU_DEFAULT_SYNC_MODE = .true.
+  logical, parameter :: GPU_DEFAULT_SYNC = .true.
   integer, parameter :: max_name_len = 50
   character(max_name_len), allocatable :: timer_names(:)
   integer , allocatable :: timer_counts(:)
@@ -118,7 +118,7 @@ subroutine timer_tic(timer_name,nvtx_id_fix,nvtx_color,nvtx_id_inc,nvtx_gpu_stre
       is_nvtx = .true.
     end if
     if(is_nvtx) then
-      is_gpu_sync = GPU_DEFAULT_SYNC_MODE
+      is_gpu_sync = GPU_DEFAULT_SYNC
       if(present(nvtx_gpu_stream)) then
         if(nvtx_gpu_stream < 0) then
           is_gpu_sync = .false.
@@ -181,7 +181,7 @@ subroutine timer_toc(timer_name,nvtx_gpu_stream,ierror)
     logical :: is_gpu_sync
     !@cuf integer :: istat
 #if defined(_USE_NVTX)
-    is_gpu_sync = GPU_DEFAULT_SYNC_MODE
+    is_gpu_sync = GPU_DEFAULT_SYNC
     if(present(nvtx_gpu_stream)) then
       if(nvtx_gpu_stream < 0) then
         is_gpu_sync = .false.

diff --git a/timer.f90 b/timer.f90
@@ -17,7 +17,7 @@ module mod_timer
   private
   public :: timer_tic,timer_toc,timer_print,timer_cleanup
   !
-  logical, parameter :: GPU_DEFAULT_SYNC_MODE = .true.
+  logical, parameter :: GPU_DEFAULT_SYNC = .true.
   integer, parameter :: max_name_len = 50
   character(max_name_len), allocatable :: timer_names(:)
   integer , allocatable :: timer_counts(:)
@@ -141,7 +141,7 @@ subroutine timer_tic(timer_name,nvtx_id_fix,nvtx_color,nvtx_id_inc,nvtx_gpu_stre
       is_nvtx = .true.
     end if
     if(is_nvtx) then
-      is_gpu_sync = GPU_DEFAULT_SYNC_MODE
+      is_gpu_sync = GPU_DEFAULT_SYNC
       if(present(nvtx_gpu_stream)) then
         if(nvtx_gpu_stream < 0) then
           is_gpu_sync = .false.
@@ -190,7 +190,7 @@ subroutine timer_toc(timer_name,nvtx_gpu_stream,ierror)
       timer_elapsed_max(idx) = max(timer_elapsed_max(idx),timer_tictoc(idx))
       timer_counts(idx)      = timer_counts(idx) + 1
       if(timer_is_nvtx(idx)) then
-        is_gpu_sync = GPU_DEFAULT_SYNC_MODE
+        is_gpu_sync = GPU_DEFAULT_SYNC
         if(present(nvtx_gpu_stream)) then
           if(nvtx_gpu_stream < 0) then
             is_gpu_sync = .false.