="nl">rank_unique</span><span class="ss">(</span><span class="nv">INVALS</span>,<span class="nv">irngt</span>,<span class="nv">nuni</span><span class="ss">)</span>
   <span class="nv">write</span><span class="ss">(</span><span class="o">*</span>,<span class="nv">g</span><span class="ss">)</span><span class="s1">&#39;</span><span class="s">NUMBER OF UNIQUE INDICES:</span><span class="s1">&#39;</span>,<span class="nv">nuni</span>
   <span class="nv">write</span><span class="ss">(</span><span class="o">*</span