29 #ifdef P_R_O_T_O_T_Y_P_E_S
30 extern int energy_(integer *len, real *speech, real *rms);
78 int energy_(integer *len, real *speech, real *rms)
84 double sqrt(doublereal);
97 for (i__ = 1; i__ <= i__1; ++i__) {
98 *rms += speech[i__] * speech[i__];
100 *rms = (real)sqrt(*rms / *len);