      :: N
    integer,intent(in)        :: Iwrite
    real(kind=wp),intent(out) :: Xmean
</code></pre></div>

<h2 id="description">DESCRIPTION</h2>
<div class="codehilite"><pre><span></span><code><span class="nv">MEAN</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">computes</span><span class="w"> </span><span class="nv">the</span><span class="w"> </span><span class="nv">sample</span><span class="w"> </span><s