0;       <span class="keyword">write</span>(*,*) <span class="stringliteral">&quot;call MPI_INIT(mpierr): mpierr /= 0&quot;</span></div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;       stop</div><div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;<span class="keywordflow">    end if</span></div><div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;</div><div class="line"><a name="l00101"></a><span class="lineno">  101</spa