1 | module mpitrace |
---|
2 | INTEGER,parameter :: VTcheck_buffer=91 |
---|
3 | INTEGER,parameter :: VTprocess_event=92 |
---|
4 | INTEGER,parameter :: VTbuffer_full=93 |
---|
5 | |
---|
6 | INTEGER,parameter :: nb_inst=7 |
---|
7 | INTEGER :: MPE_begin(nb_inst) |
---|
8 | INTEGER :: MPE_end(nb_inst) |
---|
9 | |
---|
10 | contains |
---|
11 | |
---|
12 | subroutine InitVampir |
---|
13 | implicit none |
---|
14 | |
---|
15 | #ifdef USE_VT |
---|
16 | include 'VT.inc' |
---|
17 | integer :: ierr |
---|
18 | |
---|
19 | call VTSYMDEF(VTcheck_buffer,"check_buffer","check_buffer",ierr) |
---|
20 | call VTSYMDEF(VTprocess_event,"process_event","process_event",ierr) |
---|
21 | call VTSYMDEF(VTbuffer_full,"buffer_full","buffer_full",ierr) |
---|
22 | PRINT *,'definition des symbole VT' |
---|
23 | #endif |
---|
24 | |
---|
25 | #ifdef USE_MPE |
---|
26 | include 'mpe_logf.h' |
---|
27 | integer :: ierr,i |
---|
28 | |
---|
29 | DO i=1,nb_inst |
---|
30 | ierr = MPE_Log_get_state_eventIDs( MPE_begin(i), MPE_end(i) ) |
---|
31 | ENDDO |
---|
32 | |
---|
33 | ierr = MPE_Describe_state( MPE_begin(VTcaldyn), MPE_end(VTcaldyn),"caldyn", "yellow" ) |
---|
34 | ierr = MPE_Describe_state( MPE_begin(VTintegre), MPE_end(VTintegre),"integre", "blue" ) |
---|
35 | ierr = MPE_Describe_state( MPE_begin(VTadvection), MPE_end(VTadvection),"advection", "green" ) |
---|
36 | ierr = MPE_Describe_state( MPE_begin(VTdissipation), MPE_end(VTdissipation),"dissipation", "ivory" ) |
---|
37 | ierr = MPE_Describe_state( MPE_begin(VThallo), MPE_end(VThallo),"hallo", "orange" ) |
---|
38 | ierr = MPE_Describe_state( MPE_begin(VTphysiq), MPE_end(VTphysiq),"physiq", "purple" ) |
---|
39 | ierr = MPE_Describe_state( MPE_begin(VTinca), MPE_end(VTinca),"inca", "LightBlue" ) |
---|
40 | #endif |
---|
41 | end subroutine InitVampir |
---|
42 | |
---|
43 | subroutine VTb(number) |
---|
44 | implicit none |
---|
45 | INTEGER :: number |
---|
46 | #ifdef USE_VT |
---|
47 | include 'VT.inc' |
---|
48 | integer :: ierr |
---|
49 | |
---|
50 | call VTBEGIN(number,ierr) |
---|
51 | #endif |
---|
52 | #ifdef USE_MPE |
---|
53 | include 'mpe_logf.h' |
---|
54 | integer :: ierr,i |
---|
55 | ierr = MPE_Log_event( MPE_begin(number), 0, '' ) |
---|
56 | #endif |
---|
57 | |
---|
58 | end subroutine VTb |
---|
59 | |
---|
60 | subroutine VTe(number) |
---|
61 | implicit none |
---|
62 | INTEGER :: Number |
---|
63 | #ifdef USE_VT |
---|
64 | include 'VT.inc' |
---|
65 | integer :: ierr |
---|
66 | |
---|
67 | call VTEND(number,ierr) |
---|
68 | #endif |
---|
69 | |
---|
70 | #ifdef USE_MPE |
---|
71 | include 'mpe_logf.h' |
---|
72 | integer :: ierr,i |
---|
73 | ierr = MPE_Log_event( MPE_end(number), 0, '' ) |
---|
74 | #endif |
---|
75 | |
---|
76 | end subroutine VTe |
---|
77 | |
---|
78 | end module mpitrace |
---|