<span class="n">irow</span> <span class="o">=</span> <span class="mi">0</span>
         <span class="n">jcol</span> <span class="o">=</span> <span class="mi">0</span>
      <span class="n">endwhere</span>

      <span class="c">! the triplet irow, jcol and a_elt is sorted according jcol</span>
      <span class="c">!-----------------------------------------------------------</span>
      <span class="k">call </span><span class="n">sort_int_1int_1real</span><span class="p">(</span><span class="n">g</span><sp