iv>
<div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;       <span class="keyword">Call </span>getprojectedforces(rp,nebspring,ci_flag,optendsduring,variablespring)</div>
<div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;       <span class="keyword">Call </span>getforcenorm(rp,fnorm2,fmax,n1,n2)</div>
<div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;       <span class="keyword">write</span>(18,*)iter, fnorm1, fnorm2,fmax</d