2;">integer</span> ::<span style="color: #a0522d;">  ierr</span>

  <span style="color: #228b22;">integer</span> ::<span style="color: #a0522d;">  i, io, g1, g2, j, nvals</span>
  <span style="color: #228b22;">integer</span> ::<span style="color: #a0522d;">  comparison, n1, n2, c1, c2</span>
  <span style="color: #228b22;">integer</span>, <span style="color: #a020f0;">parameter</span> ::<span style="color: #a0522d;"> dp = selected_real_kind(10,100)</span>
  <span style="color: #228b22;">real</span>(dp), <sp