Use only the timer type from the ForTime module.

Signed-off-by: Seyed Ali Ghasemi <info@gha3mi.com>
gha3mi · May 4, 2024 · 328c248 · 328c248
1 parent 7dd306d
commit 328c248
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/fordebug.f90 b/src/fordebug.f90
@@ -1,7 +1,7 @@
 module fordebug
 
    use iso_fortran_env, only: int32, int64, real32, real64
-   use fortime, only: timer, timer_start, timer_stop
+   use fortime, only: timer
 
    implicit none
 

diff --git a/src/fordebug_smod.f90 b/src/fordebug_smod.f90
@@ -749,7 +749,7 @@ subroutine impure_timer_start(t)
    implicit none
    type(timer), intent(out) :: t
 
-   call timer_start(t)
+   call t%timer_start()
 end subroutine impure_timer_start
 !===============================================================================
 
@@ -762,6 +762,6 @@ subroutine impure_timer_stop(t, message)
    type(timer), intent(out) :: t
    character(*), intent(in), optional :: message
 
-   call timer_stop(t, message=message)
+   call t%timer_stop(message=message)
 end subroutine impure_timer_stop
 !===============================================================================