pan class="c">!    REAL(rp), INTENT(OUT) :: etao</span>
    <span class="kt">INTEGER</span> 				<span class="kd">::</span> <span class="n">mpierr</span>

    <span class="k">if</span> <span class="p">(</span><span class="n">spp</span><span class="p">%</span><span class="n">ppp</span><span class="o">*</span><span class="n">params</span><span class="p">%</span><span class="n">mpi_params</span><span class="p">%</span><span class="n">nmpi</span><span class="p">.</span><span class="n">lt</span><span class="p">.<