.d0/cpi(m)
<a name="l01061"></a>01061       <span class="keyword">end do</span>
<a name="l01062"></a>01062       <span class="keyword">do</span> m=2,l
<a name="l01063"></a>01063         cp2(m)=cpi(m)*cp(m-1)
<a name="l01064"></a>01064       <span class="keyword">end do</span>
<a name="l01065"></a>01065       dl(1 - lp1, 1 - lp1)=1.d0
<a name="l01066"></a>01066       dl(2*l+1 - lp1, 1 - lp1)=1.d0
<a name="l01067"></a>01067   
<a name="l01068"></a>01068       <span class="comment">! Use recurrrence relation t