g_first_row(i)-lrenorm(i))
<a name="l01123"></a>01123         <span class="keyword">do</span> j=1,2*l+2-i
<a name="l01124"></a>01124           dl(i - lp1, j - lp1)=dl(i - lp1, j - lp1)*renorm
<a name="l01125"></a>01125         <span class="keyword">end do</span>
<a name="l01126"></a>01126       <span class="keyword">end do</span>
<a name="l01127"></a>01127   
<a name="l01128"></a>01128 <span class="keyword">    end subroutine ssht_dl_beta_operator_quarter</span>
<a name="l01129"></a>01129 
<a name="l01130">