rcchk.f,v

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

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


1.4
date	96.03.27.18.13.47;	author jaf;	state Exp;
branches;
next	1.3;

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

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

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


desc
@@


1.4
log
@Commented out a call to subroutine ERROR.
@
text
@**********************************************************************
*
*	RCCHK Version 45G
*
* $Log: rcchk.f,v $
* Revision 1.3  1996/03/18  15:48:53  jaf
* Just added a few comments about which array indices of the arguments
* are used, and mentioning that this subroutine has no local state.
*
* Revision 1.2  1996/03/13  16:55:22  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:49:08  jaf
* Initial revision
*
*
**********************************************************************
*
*  Check RC's, repeat previous frame's RC's if unstable
*
* Input:
*  ORDER - Number of RC's
*  RC1F  - Previous frame's RC's
*          Indices 1 through ORDER may be read.
* Input/Output:
*  RC2F  - Present frame's RC's
*          Indices 1 through ORDER may be read, and written.
*
* This subroutine has no local state.
*
	SUBROUTINE RCCHK( ORDER, RC1F, RC2F )

*       Arguments

	INTEGER ORDER
	REAL RC1F(ORDER), RC2F(ORDER)

*       Local variables that need not be saved

	INTEGER I

	DO I = 1,ORDER
	   IF(ABS(RC2F(I)).GT..99) GOTO 10
	END DO
	RETURN

*       Note: In version embedded in other software, all calls to ERROR
*       should probably be removed.

10	CONTINUE

*       
*       This call to ERROR is only needed for debugging purposes.
*       
*       CALL ERROR('RCCHK',2,I)

	DO I = 1,ORDER
	   RC2F(I) = RC1F(I)
	END DO
	RETURN
	END
@


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
@d6 4
d51 7
a57 1
10	CALL ERROR('RCCHK',2,I)
@


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
d18 1
a18 1
* Inputs:
d21 2
a22 1
* In/Outputs:
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.
d44 2
a45 2
*       Note: In a production version, all calls to ERROR should
*       probably be removed.
@


1.1
log
@Initial revision
@
text
@d5 4
a8 1
* $Log$
d21 4
a24 1
	INTEGER ORDER, I
d27 7
d38 3
@