t) ::  X(:)
  Integer,       Intent (In)    ::  Iwrite
  Real(kind=wp), Intent (In)    ::  Xautoc
</code></pre></div>

<h2 id="description">DESCRIPTION</h2>
<div class="codehilite"><pre><span></span><code>AUTOCO(3f) computes the sample autocorrelation coefficient of the
data in the input vector X. The sample autocorrelation coefficient
equals the correlation between X(I) and X(I+1) over the entire sample.
The autocorrelation coefficient coefficient will be a REAL
value between -1.0 and 1.0 (inclusively).
</