 class="lineno">  512</span>&#160;    <span class="keywordtype">integer</span> :: i,j,k, isum, idof, n1, n2</div>
<div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;    </div>
<div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;    forcenorm = 0.0</div>
<div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;    fmax = -1d0</div>
<div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;    isum = 0</div>
<div cla