>&#160;call mpi_comm_rank(mpi_comm_world, <a class="code" href="group___number_kinds.html#ga7c6975d710b4d578d515c3d3312043fc">procrank</a>, mpierrcode)</div>
<div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;programstart = mpi_wtime()</div>
<div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;</div>
<div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;call <a class="code" href="_beta_plane_gaussian_vortex_8f90.html#ae520c3b11d9e6c