m dd to dl. Start by initilalising  </span>
<a name="l00398"></a>00398          <span class="comment">! the plane of the dl-matrix to 0.0.</span>
<a name="l00399"></a>00399 
<a name="l00400"></a>00400          dl(- l: l, - l: l) = 0.0_dp
<a name="l00401"></a>00401 
<a name="l00402"></a>00402          j = 2 * l
<a name="l00403"></a>00403          rj = <span class="keywordtype">real</span>(j)
<a name="l00404"></a>00404          <span class="keyword">do</span> k = 0, j - 1
<a name="l00405"></a>00405           