a name="l00278"></a>00278 
<a name="l00279"></a>00279          dl(- l: l, - l: l) = 0.0_dp
<a name="l00280"></a>00280 
<a name="l00281"></a>00281          j = 2 * l
<a name="l00282"></a>00282          rj = <span class="keywordtype">real</span>(j)
<a name="l00283"></a>00283          <span class="keyword">do</span> k = 0, j - 1
<a name="l00284"></a>00284             <span class="keyword">do</span> i = 0, j - 1
<a name="l00285"></a>00285                ddj = dd(i, k) / rj
<a name="l00286"></a>00286            