1 |
|
|
MODULE timer_filtre |
2 |
|
|
IMPLICIT NONE |
3 |
|
|
PRIVATE |
4 |
|
|
REAL :: time |
5 |
|
|
REAL :: Last_time |
6 |
|
|
PUBLIC :: Init_timer, start_timer, stop_timer, Print_filtre_timer |
7 |
|
|
CONTAINS |
8 |
|
|
|
9 |
|
|
SUBROUTINE Init_timer |
10 |
|
|
time=0 |
11 |
|
|
Last_time=0 |
12 |
|
|
END SUBROUTINE Init_timer |
13 |
|
|
|
14 |
|
|
SUBROUTINE Start_timer |
15 |
|
|
|
16 |
|
|
CALL cpu_time(last_time) |
17 |
|
|
|
18 |
|
|
END SUBROUTINE start_timer |
19 |
|
|
|
20 |
|
|
|
21 |
|
|
SUBROUTINE stop_timer |
22 |
|
|
REAL :: T |
23 |
|
|
|
24 |
|
|
CALL cpu_time(t) |
25 |
|
|
Time=Time+t-last_time |
26 |
|
|
|
27 |
|
|
END SUBROUTINE stop_timer |
28 |
|
|
|
29 |
|
|
SUBROUTINE Print_filtre_timer |
30 |
|
|
PRINT *,"Temps CPU passe dans le filtre :",Time |
31 |
|
|
END SUBROUTINE Print_filtre_timer |
32 |
|
|
|
33 |
|
|
END MODULE timer_filtre |