 - lp1)*bigi
<a name="l01085"></a>01085               <span class="keyword">end do</span>
<a name="l01086"></a>01086             <span class="keyword">end if</span>
<a name="l01087"></a>01087           <span class="keyword">end do</span>
<a name="l01088"></a>01088         <span class="keyword">end if</span>
<a name="l01089"></a>01089       <span class="keyword">end do</span>   
<a name="l01090"></a>01090   
<a name="l01091"></a>01091       <span class="comment">! Other half of triangle.</span>
<a name="l010