SYNOPSIS</h2>
<div class="codehilite"><pre><span></span><code> Subroutine Rank (INVALS, IRNGT)

   <span class="cp">${</span><span class="n">TYPE</span><span class="cp">}</span> (kind=<span class="cp">${</span><span class="n">KIND</span><span class="cp">}</span>), Intent (In) :: INVALS(:)
   Integer, Intent (Out)               :: IRNGT(:)

Where <span class="cp">${</span><span class="n">TYPE</span><span class="cp">}</span>(kind=<span class="cp">${</span><span class="n">KIND</span><span class="cp">}</span>) 