al</span>(8) :: lambda, fnorm, f0, fp, fm, alpha, alpha1, alpha2, alpha3</div>
<div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;<span class="keywordtype">    real</span>(8) :: f1,f2,f3, factor,a,b,c,alpha_min, test, fb, step</div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;<span class="keywordtype">    real</span>(8) :: fnorm1, fnorm2,best,ran2,fmax</div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;<span class=