="keywordflow">do</span> i = 2,<span class="keyword">size</span>(vec,1)</div>
<div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;     <span class="keywordflow">if</span> (ord(vec(i - 1),vec(i))) <span class="keywordflow">then</span></div>
<div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;        is_sorted = .false.</div>
<div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;        <span class="keywordflow">return</span></div>
<d