lass="keyword">if</span>(index.gt.2) <span class="keyword">then</span>
<a name="l01075"></a>01075           <span class="keyword">do</span> m=2,index-1
<a name="l01076"></a>01076             lambda=(<span class="keywordtype">real</span>(l+1,kind=dp)*omc 
<a name="l01077"></a>01077               -<span class="keywordtype">real</span>(index,kind=dp)+<span class="keywordtype">real</span>(m,kind=dp)*c)/s
<a name="l01078"></a>01078             dl(index - lp1, m+1 - lp1)= &amp;
<a name="l01079"></a>01079         