<span class="keywordtype">real (kind=8)</span>, <span class="keywordtype">parameter</span>  :: tiny=1.0e-25</div>
<div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;  <span class="keywordtype">integer</span> :: i, imax, j, k</div>
<div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;</div>
<div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;  d=1.</div>
<div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;