ompute first row.</span>
<a name="l01038"></a>01038   
<a name="l01039"></a>01039       log_first_row(1)=(2.d0*<span class="keywordtype">real</span>(l,kind=dp))*dlog(dabs(c2))
<a name="l01040"></a>01040       sign(1)=1.d0
<a name="l01041"></a>01041       <span class="keyword">do</span> i=2, 2*l+1
<a name="l01042"></a>01042         m=l+1-i
<a name="l01043"></a>01043         ratio=dsqrt(<span class="keywordtype">real</span>(l+m+1,kind=dp)/<span class="keywordtype">real</span>(l-m,kind=dp))
<a name="l01044"></