v>
<div class="line"><a name="l00524"></a><span class="lineno">  524</span>&#160;                   isum = isum + 1</div>
<div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;                   forcenorm = forcenorm + rp%cx(i)%force(k,j)**2</div>
<div class="line"><a name="l00526"></a><span class="lineno">  526</span>&#160;                   <span class="keywordflow">if</span> (abs( rp%cx(i)%force(k,j) ) &gt; fmax ) <span class="keywordflow">then</span></div>
<div class="line"><a na