 = el-1
<a name="l00510"></a>00510             t1 = ( 2e0 * mm / sqrt(<span class="keywordtype">real((el-m)</span> * (el+m+1), dp)) ) * 
<a name="l00511"></a>00511                  dl(m+1,mm)
<a name="l00512"></a>00512             dl(m,mm) = t1
<a name="l00513"></a>00513 
<a name="l00514"></a>00514             <span class="comment">! Remaining m cases.</span>
<a name="l00515"></a>00515             <span class="keyword">do</span> m = el-2, mm, -1
<a name="l00516"></a>00516                t1 = ( 2e0 * mm / sq