High-Performance Design Patterns for Modern Fortran

<table class="algorithm-group"><tr><td><table class="algorithm" id="lst3"><tr><td colspan="2"><b>if</b> (<b>this_image</b>() == 3) <b>then</b></td></tr><tr><td colspan="2"> a(1, 1, 1)<svg height="11.9171pt" id="M22" style="vertical-align:-2.2392pt" version="1.1" viewbox="-0.0498162 -9.6779 4.79128 11.9171" width="4.79128pt" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"><g transform="matrix(.0135,0,0,-0.0135,0,0)"><path d="M290 -163V-135C183 -126 181 -122 181 -44V583C181 662 184 666 290 675V703H120V-163H290Z" id="g113-92"></path><glyph.data ascent="3473" descent="-2876" horiz-adv-x="345" vert-adv-y="345"></glyph.data></g></svg>1] = a(1, 1, 1)<svg height="11.9171pt" id="M23" style="vertical-align:-2.2392pt" version="1.1" viewbox="-0.0498162 -9.6779 4.79128 11.9171" width="4.79128pt" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"><g transform="matrix(.0135,0,0,-0.0135,0,0)"><path d="M290 -163V-135C183 -126 181 -122 181 -44V583C181 662 184 666 290 675V703H120V-163H290Z" id="g113-92"></path><glyph.data ascent="3473" descent="-2876" horiz-adv-x="345" vert-adv-y="345"></glyph.data></g></svg>2]</td></tr><tr><td colspan="2"><b>end if</b></td></tr></table></td></tr></table>

Scientific Programming

lst3

Listing 3

Listing 3: High-Performance Design Patterns for Modern Fortran 