keyword">write</span>(*,*)
<a name="l00298"></a>00298 
<a name="l00299"></a>00299      <span class="comment">!=========================================================================</span>
<a name="l00300"></a>00300      <span class="comment">! GL</span>
<a name="l00301"></a>00301      <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,i2)&#39;</span>) <span class="stringliteral">&#39;GL test no.&#39;</span>, i_repeat
<a name="l00302"></a>00302      flm_orig(0:L**2-1) = cmplx(0d0, 0d