 :: Nu
    INTEGER,intent(inout)     :: Iseed
    REAL(kind=wp),intent(out) :: X(:)
</code></pre></div>

<h2 id="description">DESCRIPTION</h2>
<div class="codehilite"><pre><span></span><code><span class="nv">CHSRAN</span><span class="ss">(</span><span class="mi">3</span><span class="nv">f</span><span class="ss">)</span><span class="w"> </span><span class="nv">generates</span><span class="w"> </span><span class="nv">a</span><span class="w"> </span><span class="k">random</span><span class="w"> </span><span cl