dcbias.f,v

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

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


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

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

1.1
date	96.02.07.14.44.21;	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
@**********************************************************************
*
*	DCBIAS Version 50
*
* $Log: dcbias.f,v $
* Revision 1.2  1996/03/13  16:44:53  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:44:21  jaf
* Initial revision
*
*
**********************************************************************
*
* Calculate and remove DC bias from buffer.
*
* Input:
*  LEN    - Length of speech buffers
*  SPEECH - Input speech buffer
*           Indices 1 through LEN read.
* Output:
*  SIGOUT - Output speech buffer
*           Indices 1 through LEN written
*
* This subroutine has no local state.
*
	SUBROUTINE DCBIAS( LEN, SPEECH, SIGOUT )

*	Arguments

	INTEGER LEN
	REAL SPEECH(LEN), SIGOUT(LEN)

*       Local variables that need not be saved

	INTEGER I
	REAL BIAS

	BIAS = 0
	DO I = 1,LEN
	   BIAS = BIAS + SPEECH(I)
	END DO
	BIAS = BIAS/LEN
	DO I = 1,LEN
	   SIGOUT(I) = SPEECH(I) - BIAS
	END DO
	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
*    Calculate and remove DC bias from buffer
d18 1
a18 1
* Inputs:
d21 1
d24 3
d30 1
a30 1
*       Parameters
d35 1
a35 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 13
a33 2
	INTEGER LEN, I
	REAL BIAS, SPEECH(LEN), SIGOUT(LEN)
@