1 | MODULE TIMER_INTERFACE |
---|
2 | USE, INTRINSIC :: ISO_C_BINDING |
---|
3 | |
---|
4 | INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 |
---|
5 | |
---|
6 | SUBROUTINE cxios_timer_resume(timer_id, len_timer_id, trace) BIND(C) |
---|
7 | USE ISO_C_BINDING |
---|
8 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timer_id |
---|
9 | INTEGER(kind = C_INT) , VALUE :: len_timer_id |
---|
10 | LOGICAL (kind = C_BOOL) , VALUE :: trace |
---|
11 | |
---|
12 | END SUBROUTINE cxios_timer_resume |
---|
13 | |
---|
14 | SUBROUTINE cxios_timer_suspend(timer_id, len_timer_id, trace) BIND(C) |
---|
15 | USE ISO_C_BINDING |
---|
16 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timer_id |
---|
17 | INTEGER(kind = C_INT) , VALUE :: len_timer_id |
---|
18 | LOGICAL (kind = C_BOOL) , VALUE :: trace |
---|
19 | END SUBROUTINE cxios_timer_suspend |
---|
20 | |
---|
21 | |
---|
22 | SUBROUTINE cxios_timer_reset(timer_id, len_timer_id) BIND(C) |
---|
23 | USE ISO_C_BINDING |
---|
24 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timer_id |
---|
25 | INTEGER(kind = C_INT) , VALUE :: len_timer_id |
---|
26 | END SUBROUTINE cxios_timer_reset |
---|
27 | |
---|
28 | SUBROUTINE cxios_timer_get_time(time) BIND(C) |
---|
29 | USE ISO_C_BINDING |
---|
30 | REAL (kind = C_DOUBLE) :: time |
---|
31 | END SUBROUTINE cxios_timer_get_time |
---|
32 | |
---|
33 | SUBROUTINE cxios_timer_get_cumulated_time(timer_id, len_timer_id, time) BIND(C) |
---|
34 | USE ISO_C_BINDING |
---|
35 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timer_id |
---|
36 | INTEGER(kind = C_INT) , VALUE :: len_timer_id |
---|
37 | REAL (kind = C_DOUBLE) :: time |
---|
38 | END SUBROUTINE cxios_timer_get_cumulated_time |
---|
39 | |
---|
40 | END INTERFACE |
---|
41 | |
---|
42 | END MODULE TIMER_INTERFACE |
---|