V3FIT
perf2likwid.f90
1 ! perflib wrapper for likwid marker-API calls
2 ! see http://code.google.com/p/likwid/wiki/LikwidPerfCtr#NEW:_Using_the_marker_API_with_Fortran_90
3 
4 subroutine perfinit
5 !include "likwid_f90.h"
6 ! call likwid_markerInit()
7 end subroutine perfinit
8 
9 subroutine perfon(region)
10 !#include "likwid_f90.h"
11 
12  character(*), intent(in) :: region
13 ! call likwid_markerStart(region)
14 ! call likwid_markerStartRegion(region,len_trim(region))
15 end subroutine perfon
16 
17 subroutine perfoff(region)
18 !#include "likwid_f90.h"
19  character(*), intent(in) :: region
20 ! call likwid_markerStop(region)
21 ! call likwid_markerStopRegion(region,len_trim(region))
22 end subroutine perfoff
23 
24 subroutine perfout(region)
25 !include "likwid_f90.h"
26  character(*), intent(in) :: region
27 ! call likwid_markerClose()
28 end subroutine perfout
29 
30 
31 subroutine perf_context_start()
32 
33 end subroutine perf_context_start
34 
35 subroutine perf_context_end()
36 
37 end subroutine perf_context_end