ht="20" alt="Example 2" /></a>

<br />

<h2>Example 1: Simple manual instrumentation</h2>
This is an OpenMP Fortran code manually instrumented with <b>GPTL</b> calls. The 
output produced by the embedded call to <b>gptlpr()</b> is shown and
explained. <b>PAPI</b> is used to compute floating point operation count.
<p>
<b><em>papiomptest.f90:</em></b>
<pre>
<div style="background-color:white;">
program papiomptest
  implicit none
  include 'gptl.inc'                 ! Fortran GPTL include file
  include 'f90p