start
<a name="l00317"></a>00317      errors_gl(i_repeat) = maxval(abs(flm_orig(0:L**2-1) - flm_syn(0:L**2-1)))
<a name="l00318"></a>00318      <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,f40.4)&#39;</span>) <span class="stringliteral">&#39; duration_inverse (s) =&#39;</span>, &amp;
<a name="l00319"></a>00319           durations_inverse_gl(i_repeat)
<a name="l00320"></a>00320      <span class="keyword">write</span>(*,<span class="stringliteral">&#39;(a,f40.4)&#39;</span>) <span 