37         <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,e40.5)&#39;</span>) <span class="stringliteral">&#39; error                =&#39;</span>, &amp;
<a name="l00238"></a>00238              errors_mweo_real(i_repeat)
<a name="l00239"></a>00239         <span class="keyword">write</span>(*,*)
<a name="l00240"></a>00240 
<a name="l00241"></a>00241         <span class="comment">!=========================================================================</span>
<a name="l00242"></a>00