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
function dnekgflpops()
Definition: papi.f:2
function dnekgflops()
Definition: papi.f:12
subroutine getflops_papi(flpops, mflops)
Definition: papi.f:22