A FROM THE INPUT VECTOR X</span>
<span class="c">!     INTO THE INTERMEDIATE STORAGE VECTOR XS.</span>
<span class="c">!</span>
<span class="w"> </span><span class="mi">50</span><span class="w">      </span><span class="k">CALL </span><span class="n">SORT</span><span class="p">(</span><span class="n">X</span><span class="p">,</span><span class="n">N</span><span class="p">,</span><span class="n">XS</span><span class="p">)</span>
<span class="c">!</span>
<span class="c">!     NOW DETERMINE THE RANKS.</span>
<