type">real</span>, <span class="keywordtype">intent(inout)</span> :: vec(:)</div>
<div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;  procedure(logical) :: ord</div>
<div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;</div>
<div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;  <span class="comment">! Parameters</span></div>
<div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;  <span class="keywordtype"