*,<span class="stringliteral">&#39;(a,i40)&#39;</span>) <span class="stringliteral">&#39;L                     =&#39;</span>, L
<a name="l00392"></a>00392   <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,i40)&#39;</span>) <span class="stringliteral">&#39;spin                  =&#39;</span>, spin
<a name="l00393"></a>00393   <span class="keyword">write</span>(*,*)
<a name="l00394"></a>00394 
<a name="l00395"></a>00395   <span class="keyword">if</span> (spin == 0) <span class="keywor