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
	)

Definition at line 90 of file difmag.c.

References abs.

Referenced by tbdm_().

{
    /* 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_ */