"anchor" id="src"></span>Source Code</h2>
    <div class="highlight"><pre><span></span>	<span class="k">SUBROUTINE </span><span class="n">scatter_max_r</span><span class="p">(</span><span class="n">dest</span><span class="p">,</span><span class="n">source</span><span class="p">,</span><span class="n">dest_index</span><span class="p">)</span>
	<span class="kt">REAL</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">DIMENSION</span><span class="p">(:),</span> <spa