span>getforcenorm(rp,forcenorm,fmax,n1,n2)</div>
<div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;    <span class="keywordtype">implicit none</span></div>
<div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;    <span class="keywordtype">type</span>(rxp) :: rp</div>
<div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;<span class="keywordtype">    real</span>(8) :: forcenorm,fmax</div>
<div class="line"><a name="l00512"></a><span