wordtype">real(2d0*el,dp)</span> ) 
<a name="l00495"></a>00495               * dl(el-1,0)
<a name="l00496"></a>00496 
<a name="l00497"></a>00497          <span class="comment">! Eqn (10) of T&amp;N (2006).</span>
<a name="l00498"></a>00498          <span class="keyword">do</span> mm = 1, el
<a name="l00499"></a>00499             dmm(mm) = sqrt( el/2d0 * (2d0*el-1d0) / <span class="keywordtype">real((el+mm)</span> * (el+mm-1), dp) ) 
<a name="l00500"></a>00500                  * dl(el-1,mm-1)
<a name="l00501