re><span></span><span class="k">subroutine </span><span class="n">mat_rat</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="nb">len</span><span class="p">,</span><span class="n">maxd</span><span class="p">,</span><span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">d</span><span class="p">)</span>

<span class="c">! ident_39=&quot;@(#)M_LA::mat_rat(3fp): A/B = continued fraction approximation to X using  len 