2(m)&amp;
<a name="l01103"></a>01103               *dl(index - lp1, m-1 - lp1)
<a name="l01104"></a>01104             <span class="keyword">if</span>(dl(index - lp1, m+1 - lp1).gt.big) <span class="keyword">then</span>
<a name="l01105"></a>01105               <span class="keyword">do</span> im=1,m+1
<a name="l01106"></a>01106                 dl(index - lp1, im - lp1)=dl(index - lp1, im - lp1)*bigi
<a name="l01107"></a>01107               <span class="keyword">end do</span>
<a name="l01108"></a>01108        