energy.f,v

lpc10-15为美军2400bps语音压缩标准的C语音源代码。

head	1.3;
access;
symbols;
locks; strict;
comment	@* @;


1.3
date	96.03.18.21.17.41;	author jaf;	state Exp;
branches;
next	1.2;

1.2
date	96.03.13.16.46.02;	author jaf;	state Exp;
branches;
next	1.1;

1.1
date	96.02.07.14.45.40;	author jaf;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Just added a few comments about which array indices of the arguments
are used, and mentioning that this subroutine has no local state.
@
text
@**********************************************************************
*
*	ENERGY Version 50
*
* $Log: energy.f,v $
* Revision 1.2  1996/03/13  16:46:02  jaf
* Comments added explaining that none of the local variables of this
* subroutine need to be saved from one invocation to the next.
*
* Revision 1.1  1996/02/07 14:45:40  jaf
* Initial revision
*
*
**********************************************************************
*
* Compute RMS energy.
*
* Input:
*  LEN    - Length of speech buffer
*  SPEECH - Speech buffer
*           Indices 1 through LEN read.
* Output:
*  RMS    - Root Mean Square energy
*
* This subroutine has no local state.
*
	SUBROUTINE ENERGY( LEN, SPEECH, RMS )

*       Arguments

	INTEGER LEN
	REAL SPEECH(LEN), RMS

*       Local variables that need not be saved

	INTEGER I

	RMS = 0
	DO I = 1,LEN
	   RMS = RMS + SPEECH(I)*SPEECH(I)
	END DO
	RMS = SQRT( RMS / LEN )
	RETURN
	END
@


1.2
log
@Comments added explaining that none of the local variables of this
subroutine need to be saved from one invocation to the next.
@
text
@d6 4
d16 1
a16 1
* Compute RMS energy
d18 1
a18 1
* Inputs:
d21 1
d25 2
d29 1
a29 1
*       Parameters
d34 1
a34 4
*       Local variables
*       
*       None of these need to have their values saved from one
*       invocation to the next.
@


1.1
log
@Initial revision
@
text
@d5 4
a8 1
* $Log$
d21 4
a24 1
	INTEGER LEN, I
d26 7
@