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  )

extern

Definition at line 78 of file energy.c.

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

References len().

Referenced by analys_().