Line |
Branch |
Exec |
Source |
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 |
34 |
|
|
|