name="l00058"></a><span class="lineno">   58</span>&#160;  <span class="keywordtype">real</span> :: pivot</div>
<div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;  </div>
<div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;  <span class="comment">! Initilize the stack</span></div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;  idx = 1</div>
<div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;  lo