diff options
author | kpfleming <kpfleming@f38db490-d61c-443f-a65b-d21fe96a405b> | 2006-03-03 18:14:35 +0000 |
---|---|---|
committer | kpfleming <kpfleming@f38db490-d61c-443f-a65b-d21fe96a405b> | 2006-03-03 18:14:35 +0000 |
commit | a7de4be0d5d01425755a1bb33dd81c811b52c579 (patch) | |
tree | a99936572577ee64e1dc351307de1bd656809a91 /1.2-netsec/codecs/lpc10/rcchk.c | |
parent | 67da2f8263b4e9bb5522fa59b27e143381d69774 (diff) |
remove improperly created directory
git-svn-id: http://svn.digium.com/svn/asterisk/tags/1.2.5@11748 f38db490-d61c-443f-a65b-d21fe96a405b
Diffstat (limited to '1.2-netsec/codecs/lpc10/rcchk.c')
-rw-r--r-- | 1.2-netsec/codecs/lpc10/rcchk.c | 119 |
1 files changed, 0 insertions, 119 deletions
diff --git a/1.2-netsec/codecs/lpc10/rcchk.c b/1.2-netsec/codecs/lpc10/rcchk.c deleted file mode 100644 index 16fe9b930..000000000 --- a/1.2-netsec/codecs/lpc10/rcchk.c +++ /dev/null @@ -1,119 +0,0 @@ -/* - -$Log$ -Revision 1.15 2004/06/26 03:50:14 markster -Merge source cleanups (bug #1911) - -Revision 1.14 2003/02/12 13:59:15 matteo -mer feb 12 14:56:57 CET 2003 - -Revision 1.1.1.1 2003/02/12 13:59:15 matteo -mer feb 12 14:56:57 CET 2003 - -Revision 1.2 2000/01/05 08:20:39 markster -Some OSS fixes and a few lpc changes to make it actually work - - * Revision 1.1 1996/08/19 22:30:41 jaf - * Initial revision - * - -*/ - -/* -- translated by f2c (version 19951025). - You must link the resulting object file with the libraries: - -lf2c -lm (in that order) -*/ - -#include "f2c.h" - -#ifdef P_R_O_T_O_T_Y_P_E_S -extern int rcchk_(integer *order, real *rc1f, real *rc2f); -#endif - -/* ********************************************************************* */ - -/* RCCHK Version 45G */ - -/* $Log$ - * Revision 1.15 2004/06/26 03:50:14 markster - * Merge source cleanups (bug #1911) - * -/* Revision 1.14 2003/02/12 13:59:15 matteo -/* mer feb 12 14:56:57 CET 2003 -/* -/* Revision 1.1.1.1 2003/02/12 13:59:15 matteo -/* mer feb 12 14:56:57 CET 2003 -/* -/* Revision 1.2 2000/01/05 08:20:39 markster -/* Some OSS fixes and a few lpc changes to make it actually work -/* - * Revision 1.1 1996/08/19 22:30:41 jaf - * Initial revision - * */ -/* Revision 1.4 1996/03/27 18:13:47 jaf */ -/* Commented out a call to subroutine ERROR. */ - -/* 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 */ int rcchk_(integer *order, real *rc1f, real *rc2f) -{ - /* System generated locals */ - integer i__1; - real r__1; - - /* Local variables */ - integer i__; - -/* Arguments */ -/* Local variables that need not be saved */ - /* Parameter adjustments */ - --rc2f; - --rc1f; - - /* Function Body */ - i__1 = *order; - for (i__ = 1; i__ <= i__1; ++i__) { - if ((r__1 = rc2f[i__], abs(r__1)) > .99f) { - goto L10; - } - } - return 0; -/* Note: In version embedded in other software, all calls to ERROR -*/ -/* should probably be removed. */ -L10: - -/* This call to ERROR is only needed for debugging purposes. */ - -/* CALL ERROR('RCCHK',2,I) */ - i__1 = *order; - for (i__ = 1; i__ <= i__1; ++i__) { - rc2f[i__] = rc1f[i__]; - } - return 0; -} /* rcchk_ */ - |