">::</span> <span class="n">units</span>

  <span class="k">if</span> <span class="p">(</span><span class="n">params</span><span class="p">%</span><span class="n">mpi_params</span><span class="p">%</span><span class="n">rank</span> <span class="p">.</span><span class="n">EQ</span><span class="p">.</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
<span class="k">     </span><span class="n">filename</span> <span class="o">=</span> <span class="nb">TRIM</span><span class="p"