sll_m_timer.F90

Go to the documentation of this file.

!**************************************************************
!  Copyright INRIA
!  Authors :
!     CALVI project team
!
!  This code SeLaLib (for Semi-Lagrangian-Library)
!  is a parallel library for simulating the plasma turbulence
!  in a tokamak.
!
!  This software is governed by the CeCILL-B license
!  under French law and abiding by the rules of distribution
!  of free software.  You can  use, modify and redistribute
!  the software under the terms of the CeCILL-B license as
!  circulated by CEA, CNRS and INRIA at the following URL
!  "http://www.cecill.info".
!**************************************************************
 
 
module sll_m_timer
 
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#include "sll_working_precision.h"
 
   implicit none
 
   public :: &
      sll_s_set_time_mark, &
      sll_f_time_elapsed_between, &
      sll_f_time_elapsed_since, &
      sll_t_time_mark
 
   private
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
   integer, parameter :: itimer = selected_int_kind(18)
 
   type sll_t_time_mark
      integer(kind=itimer) :: clock_ticks
      integer(kind=itimer) :: clock_ticks_max
      integer(kind=itimer) :: clock_ticks_per_sec
   end type sll_t_time_mark
 
contains
 
   subroutine sll_s_set_time_mark(timer_obj)
      type(sll_t_time_mark), intent(out) :: timer_obj
      call system_clock(count=timer_obj%clock_ticks, &
                        count_rate=timer_obj%clock_ticks_per_sec, &
                        count_max=timer_obj%clock_ticks_max)
   end subroutine sll_s_set_time_mark
 
   function sll_f_time_elapsed_between(t0, t1)
      type(sll_t_time_mark), intent(in)     :: t0, t1
 
      real(kind=f64)        :: sll_f_time_elapsed_between
      integer(kind=itimer)  :: clock_ticks
 
      clock_ticks = t1%clock_ticks - t0%clock_ticks
!!$    if (t1%clock_ticks < t0%clock_ticks) then
!!$       clock_ticks = clock_ticks + t0%clock_ticks_max
!!$    end if
      sll_f_time_elapsed_between = &
         real(clock_ticks, kind=f64)/real(t0%clock_ticks_per_sec, kind=f64)
   end function sll_f_time_elapsed_between
 
   function sll_f_time_elapsed_since(t0)
      type(sll_t_time_mark), intent(in) :: t0
 
      real(kind=f64)       :: sll_f_time_elapsed_since
      integer(kind=itimer) :: t1
      integer(kind=itimer) :: clock_ticks
 
      call system_clock(count=t1)
      clock_ticks = t1 - t0%clock_ticks
!!$    if (t1%clock_ticks < t0%clock_ticks) then
!!$       clock_ticks = clock_ticks + t0%clock_ticks_max
!!$    end if
      sll_f_time_elapsed_since = &
         real(clock_ticks, kind=f64)/real(t0%clock_ticks_per_sec, kind=f64)
   end function sll_f_time_elapsed_since
 
end module sll_m_timer