timer_filtre.F90

Go to the documentation of this file.

MODULE timer_filtre
IMPLICIT NONE
  PRIVATE
  REAL :: time
  REAL :: last_time
  PUBLIC :: init_timer, start_timer, stop_timer, print_filtre_timer
CONTAINS

 SUBROUTINE init_timer
   time=0
   last_time=0
 END SUBROUTINE init_timer
 
 SUBROUTINE start_timer
  
   CALL cpu_time(last_time)

 END SUBROUTINE start_timer
 
 
 SUBROUTINE stop_timer
   REAL :: T 
   
   CALL cpu_time(t)
   time=time+t-last_time
 
  END SUBROUTINE stop_timer
  
  SUBROUTINE print_filtre_timer
  print *,"Temps CPU passe dans le filtre :",time
  END SUBROUTINE  print_filtre_timer

END MODULE timer_filtre