       lrenorm(index)=lrenorm(index)-lbig
<a name="l01109"></a>01109             <span class="keyword">end if</span>
<a name="l01110"></a>01110           <span class="keyword">end do</span>
<a name="l01111"></a>01111         <span class="keyword">end if</span>
<a name="l01112"></a>01112       <span class="keyword">end do</span>   
<a name="l01113"></a>01113   
<a name="l01114"></a>01114       <span class="keyword">do</span> i=1, l+1
<a name="l01115"></a>01115         renorm=sign(i)*dexp(log_first_row(i)-lre