eyword">then</span>
<a name="l01098"></a>01098           <span class="keyword">do</span> m=2,2*l-index+1
<a name="l01099"></a>01099             lambda=(<span class="keywordtype">real</span>(l+1,kind=dp)*omc-<span class="keywordtype">real(index,kind=dp)</span> 
<a name="l01100"></a>01100               +<span class="keywordtype">real</span>(m,kind=dp)*c)/s
<a name="l01101"></a>01101             dl(index - lp1, m+1 - lp1)= &amp;
<a name="l01102"></a>01102               lambda*cpi(m)*dl(index - lp1, m - lp1)-cp