top ('B')         
  end do
  ret = gptlstop ('total')
  ret = gptlpr (0)                 ! Print timer stats
  ret = gptlfinalize ()            ! Clean up
end program papiomptest
</div>
</pre>

Compile and link, then run:
<pre>
% gfortran -fopenmp papiomptest.f90 -I/usr/local/include -lgptl -lpapi 
% env OMP_NUM_THREADS=2 ./a.out
</pre>

The call to <b>gptlpr(0)</b> wrote a file named timing.0, which looks like this:

<pre>
<div style="background-color:white;">
PAPI event multiplexing was OFF
PAPI events e