amp;</span>
            <span class="n">params</span><span class="p">%</span><span class="n">cpp</span><span class="p">%</span><span class="n">length</span>

       <span class="c">!    write (output_unit_write,*) params%mpi_params%rank,&#39;RR&#39;,RR</span>
       <span class="c">!    write (output_unit_write,*) params%mpi_params%rank,&#39;ZZ&#39;,spp%vars%Y(:,3)</span>
       <span class="k">write</span> <span class="p">(</span><span class="n">output_unit_write</span><span class="p">,</span><span class="