<span class="o">=</span><span class="n">V_PLL</span><span class="p">(</span><span class="n">cc</span><span class="p">)</span><span class="o">/</span><span class="n">gam</span><span class="p">(</span><span class="n">cc</span><span class="p">)</span>    
       

       <span class="c">! Weighting parallel velocity</span>

       <span class="c">!    write (output_unit_write,*) params%mpi_params%rank,&#39;vpll&#39;,vpll</span>

       <span class="c">!   do pp=1_idef,spp%ppp</span>
       <span class="c">! NG