<a name="l00036"></a><span class="lineno">   36</span>&#160;  <span class="keywordtype">double precision</span>, <span class="keywordtype">intent(in)</span> :: vec(:)</div>
<div class="line"><a name="l00037"></a><span class="lineno">   37</span>&#160;  procedure(logical) :: ord</div>
<div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;  </div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;  <span class="comment">! Variables</span></div>
<div class="l