nddo</span></div>
<div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;<span class="keywordflow">    enddo</span></div>
<div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;    forcenorm = sqrt(forcenorm / dble(isum))</div>
<div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;    </div>
<div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;    <span class="keywordflow">return</span></div>
<div class="line"><a 