ne"><a name="l00094"></a><span class="lineno">   94</span>&#160;    <span class="comment">!! start MPI section</span></div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;    <span class="keyword">call </span>mpi_init(mpierr)</div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;    <span class="keywordflow">if</span> (mpierr /= 0) <span class="keywordflow">then</span></div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#16