KTH framework for Nek5000 toolboxes; testing version
0.0.1
papi.f
Go to the documentation of this file.
1
function
dnekgflpops
()
2
real*4 rtime,ptime,mflops
3
integer*8
flpops
4
5
call
getflops_papi
(flpops,mflops)
6
dnekgflpops
= flpops
7
8
return
9
end
10
c-----------------------------------------------------------------------
11
function
dnekgflops
()
12
real*4 mflops
13
integer*8
flpops
14
15
call
getflops_papi
(flpops,mflops)
16
dnekgflops
= mflops/1e3
17
18
return
19
end
20
c-----------------------------------------------------------------------
21
subroutine
getflops_papi
(flpops,mflops)
22
#ifdef PAPI
23
include
'f77papi.h'
24
real*4 rtime,ptime,mflops
25
integer*8
flpops
26
27
call
papif_flops(rtime,ptime,flpops,mflops,ierr)
28
if
(ierr.ne.0)
then
29
flpops = -1
30
mflops = -1
31
endif
32
#else
33
flpops = -1
34
mflops = -0
35
#endif
36
37
return
38
end
dnekgflpops
function dnekgflpops()
Definition:
papi.f:2
dnekgflops
function dnekgflops()
Definition:
papi.f:12
getflops_papi
subroutine getflops_papi(flpops, mflops)
Definition:
papi.f:22
Nek5000
core
papi.f
Generated on Tue Jun 4 2024 12:44:42 for KTH framework for Nek5000 toolboxes; testing version by
1.9.1