pan class="lineno">  293</span>&#160;                        rp%cx(i)%r(k,j) = rp%cx(i)%r(k,j) + nebstep * ( rp%cx(i)%p(k,j) / rp%cx(i)%mass(j) )</div>
<div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;                        rp%cx(i)%p(k,j) = rp%cx(i)%p(k,j) + nebstep * rp%cx(i)%force(k,j)</div>
<div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;<span class="keywordflow">                     endif</span></div>
<div class="line"><a name="l00296"></a><sp