MPI to Coarray Fortran: Experiences with a CFD Solver for Unstructured Meshes

<table class="algorithm-group"><tr><td><table class="algorithm" id="lst4"><tr><td colspan="2"><span class="monospace">if( this</span><span class="monospace">_</span><span class="monospace">image().ne. num</span><span class="monospace">_</span><span class="monospace">images() ) then</span></td></tr><tr><td colspan="2"> <span class="monospace">j(:) = j(:)[this</span><span class="monospace">_</span><span class="monospace">image()+1]</span></td></tr><tr><td colspan="2"><span class="monospace">end if</span></td></tr></table></td></tr></table>

<div>Coarray communication: pull approach.</div>

Scientific Programming

lst4

Listing 4

Listing 4: MPI to Coarray Fortran: Experiences with a CFD Solver for Unstructured Meshes 