/a>00158         <span class="comment">!=========================================================================</span>
<a name="l00159"></a>00159         <span class="comment">! DH real spin=0</span>
<a name="l00160"></a>00160         <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,i2)&#39;</span>) <span class="stringliteral">&#39;DH real spin=0 test no.&#39;</span>, i_repeat
<a name="l00161"></a>00161         flm_orig(0:L**2-1) = cmplx(0d0, 0d0)
<a name="l00162"></a>00162        