0      <span class="keyword">write</span>(*,*)
<a name="l00431"></a>00431   <span class="keyword">end if</span>
<a name="l00432"></a>00432 
<a name="l00433"></a>00433   <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,i2)&#39;</span>) <span class="stringliteral">&#39;DH&#39;</span>
<a name="l00434"></a>00434   <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,f30.5)&#39;</span>) <span class="stringliteral">&#39; Average forward transform time =&#39;</span>, &am