ment">!  vv = reshape(v(i,:),shape(vv))</span></div>
<div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;       <span class="comment">!  do j = 1, rp%na</span></div>
<div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;       <span class="comment">!    rp%cx(i)%p(1:3,j) = vv(1:3,j)*rp%cx(i)%mass(j) + delt * rp%cx(i)%force(1:3,j)/2.0d0</span></div>
<div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;       <span class="comment">!   