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