 vv(1:3,j) = rp%cx(i)%p(1:3,j)/rp%cx(i)%mass(j)</span></div>
<div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;       <span class="comment">!  enddo</span></div>
<div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;       <span class="comment">!  v(i,:) = reshape(vv,(/rp%na*3/))</span></div>
<div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;       <span class="comment">!end select</span></div>
<div class="line"><a name="l00418"