difmag.c File Reference

#include "f2c.h"

Include dependency graph for difmag.c:

Go to the source code of this file.

Functions
int	difmag_ (real *speech, integer *lpita, integer *tau, integer *ltau, integer *maxlag, real *amdf, integer *minptr, integer *maxptr)

Function Documentation

difmag_()

int difmag_ ( real *  speech, integer *  lpita, integer *  tau, integer *  ltau, integer *  maxlag, real *  amdf, integer *  minptr, integer *  maxptr  )

extern

Definition at line 90 of file difmag.c.

{
    /* System generated locals */
    integer i__1, i__2;
    real r__1;
 
    /* Local variables */
    integer i__, j, n1, n2;
    real sum;
 
/*       Arguments */
/*       Local variables that need not be saved */
/*       Local state */
/*       None */
    /* Parameter adjustments */
    --amdf;
    --tau;
    --speech;
 
    /* Function Body */
    *minptr = 1;
    *maxptr = 1;
    i__1 = *ltau;
    for (i__ = 1; i__ <= i__1; ++i__) {
    n1 = (*maxlag - tau[i__]) / 2 + 1;
    n2 = n1 + *lpita - 1;
    sum = 0.f;
    i__2 = n2;
    for (j = n1; j <= i__2; j += 4) {
        sum += (r__1 = speech[j] - speech[j + tau[i__]], abs(r__1));
    }
    amdf[i__] = sum;
    if (amdf[i__] < amdf[*minptr]) {
        *minptr = i__;
    }
    if (amdf[i__] > amdf[*maxptr]) {
        *maxptr = i__;
    }
    }
    return 0;
} /* difmag_ */

References abs.

Referenced by tbdm_().