maining m cases.</span>
<a name="l00589"></a>00589             <span class="keyword">do</span> m = el-2, mm, -1
<a name="l00590"></a>00590                t1 = 2e0 * mm / sqrt_tbl(el-m) / sqrt_tbl(el+m+1) &amp;
<a name="l00591"></a>00591                     * dl(m+1,mm)
<a name="l00592"></a>00592                t2 = sqrt_tbl(el-m-1) * sqrt_tbl(el+m+2) / sqrt_tbl(el-m) / sqrt_tbl(el+m+1) &amp;
<a name="l00593"></a>00593                     * dl(m+2,mm)
<a name="l00594"></a>00594                dl(m,mm) = t1 -