energy.c File Reference

#include "f2c.h"

Include dependency graph for energy.c:

Go to the source code of this file.

Functions
int	energy_ (integer *len, real *speech, real *rms)

Function Documentation

energy_()

int energy_	(	integer *	len,
		real *	speech,
		real *	rms
	)

Definition at line 78 of file energy.c.

References len().

Referenced by analys_().

{
 /* System generated locals */
 integer i__1;

 /* Builtin functions */
 double sqrt(doublereal);

 /* Local variables */
 integer i__;

/* Arguments */
/* Local variables that need not be saved */
 /* Parameter adjustments */
 --speech;

 /* Function Body */
 *rms = 0.f;
 i__1 = *len;
 for (i__ = 1; i__ <= i__1; ++i__) {
 *rms += speech[i__] * speech[i__];
 }
 *rms = (real)sqrt(*rms / *len);
 return 0;
} /* energy_ */