ass="o">=</span> <span class="mi">8</span> <span class="p">)</span> <span class="n">a</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">n</span><span class="p">)</span>
    <span class="kt">character</span> <span class="p">(</span> <span class="nb">len</span> <span class="o">=</span> <span class="mi">14</span> <span class="p">)</span> <span class="n">ctemp</span><span class="p">(</span><span class="n">incx</span><span class="p">)</span>
    <span class="kt">intege