  <span class="keyword">do</span> mm = 1, l
<a name="l00449"></a>00449             dl(m,mm) = (-1)**(m+mm) * dl(-m,-mm)
<a name="l00450"></a>00450          <span class="keyword">end do</span>
<a name="l00451"></a>00451       <span class="keyword">end do</span>
<a name="l00452"></a>00452 
<a name="l00453"></a>00453 <span class="keyword">    end subroutine ssht_dl_beta_risbo_fill_half2full</span>
<a name="l00454"></a>00454 
<a name="l00455"></a>00455 
<a name="l00456"></a>00456     <span class="comment">!----