)
<a name="l00269"></a>00269 
<a name="l00270"></a>00270      <span class="keyword">end if</span>
<a name="l00271"></a>00271 
<a name="l00272"></a>00272      <span class="comment">!=========================================================================</span>
<a name="l00273"></a>00273      <span class="comment">! DH</span>
<a name="l00274"></a>00274      <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,i2)&#39;</span>) <span class="stringliteral">&#39;DH test no.&#39;</span>, i_re