"></a>00501          <span class="keyword">end do</span>
<a name="l00502"></a>00502 
<a name="l00503"></a>00503          dl(el,0:el) = dmm(0:el)
<a name="l00504"></a>00504 
<a name="l00505"></a>00505          <span class="comment">! Eqn (11) of T&amp;N (2006).</span>
<a name="l00506"></a>00506          <span class="keyword">do</span> mm = 0, el
<a name="l00507"></a>00507 
<a name="l00508"></a>00508             <span class="comment">! m = el - 1 case (t2 = 0). </span>
<a name="l00509"></a>00509             m