/11/05</span>
<a name="l01012"></a>01012       <span class="comment">! If beta=0 then dl=identity</span>
<a name="l01013"></a>01013       <span class="keywordtype">real(kind = dp) </span>:: ZERO_TOL = 1d-5
<a name="l01014"></a>01014       <span class="keyword">if</span>(abs(beta) &lt; ZERO_TOL) <span class="keyword">then</span>
<a name="l01015"></a>01015         dl(-l:l,-l:l) = 0d0
<a name="l01016"></a>01016         <span class="keyword">do</span> i = -l,l
<a name="l01017"></a>01017           dl(i,i) = 1d0
