Asterisk - The Open Source Telephony Project GIT-master-2de1a68
rcchk.c
Go to the documentation of this file.
1/*
2
3$Log$
4Revision 1.15 2004/06/26 03:50:14 markster
5Merge source cleanups (bug #1911)
6
7Revision 1.14 2003/02/12 13:59:15 matteo
8mer feb 12 14:56:57 CET 2003
9
10Revision 1.1.1.1 2003/02/12 13:59:15 matteo
11mer feb 12 14:56:57 CET 2003
12
13Revision 1.2 2000/01/05 08:20:39 markster
14Some OSS fixes and a few lpc changes to make it actually work
15
16 * Revision 1.1 1996/08/19 22:30:41 jaf
17 * Initial revision
18 *
19
20*/
21
22/* -- translated by f2c (version 19951025).
23 You must link the resulting object file with the libraries:
24 -lf2c -lm (in that order)
25*/
26
27#include "f2c.h"
28
29#ifdef P_R_O_T_O_T_Y_P_E_S
30extern int rcchk_(integer *order, real *rc1f, real *rc2f);
31#endif
32
33/* ********************************************************************* */
34
35/* RCCHK Version 45G */
36
37/* $Log$
38 * Revision 1.15 2004/06/26 03:50:14 markster
39 * Merge source cleanups (bug #1911)
40 *
41 * Revision 1.14 2003/02/12 13:59:15 matteo
42 * mer feb 12 14:56:57 CET 2003
43 *
44 * Revision 1.1.1.1 2003/02/12 13:59:15 matteo
45 * mer feb 12 14:56:57 CET 2003
46 *
47 * Revision 1.2 2000/01/05 08:20:39 markster
48 * Some OSS fixes and a few lpc changes to make it actually work
49 *
50 * Revision 1.1 1996/08/19 22:30:41 jaf
51 * Initial revision
52 * */
53/* Revision 1.4 1996/03/27 18:13:47 jaf */
54/* Commented out a call to subroutine ERROR. */
55
56/* Revision 1.3 1996/03/18 15:48:53 jaf */
57/* Just added a few comments about which array indices of the arguments */
58/* are used, and mentioning that this subroutine has no local state. */
59
60/* Revision 1.2 1996/03/13 16:55:22 jaf */
61/* Comments added explaining that none of the local variables of this */
62/* subroutine need to be saved from one invocation to the next. */
63
64/* Revision 1.1 1996/02/07 14:49:08 jaf */
65/* Initial revision */
66
67
68/* ********************************************************************* */
69
70/* Check RC's, repeat previous frame's RC's if unstable */
71
72/* Input: */
73/* ORDER - Number of RC's */
74/* RC1F - Previous frame's RC's */
75/* Indices 1 through ORDER may be read. */
76/* Input/Output: */
77/* RC2F - Present frame's RC's */
78/* Indices 1 through ORDER may be read, and written. */
79
80/* This subroutine has no local state. */
81
82/* Subroutine */ int rcchk_(integer *order, real *rc1f, real *rc2f)
83{
84 /* System generated locals */
85 integer i__1;
86 real r__1;
87
88 /* Local variables */
89 integer i__;
90
91/* Arguments */
92/* Local variables that need not be saved */
93 /* Parameter adjustments */
94 --rc2f;
95 --rc1f;
96
97 /* Function Body */
98 i__1 = *order;
99 for (i__ = 1; i__ <= i__1; ++i__) {
100 if ((r__1 = rc2f[i__], abs(r__1)) > .99f) {
101 goto L10;
102 }
103 }
104 return 0;
105/* Note: In version embedded in other software, all calls to ERROR
106*/
107/* should probably be removed. */
108L10:
109
110/* This call to ERROR is only needed for debugging purposes. */
111
112/* CALL ERROR('RCCHK',2,I) */
113 i__1 = *order;
114 for (i__ = 1; i__ <= i__1; ++i__) {
115 rc2f[i__] = rc1f[i__];
116 }
117 return 0;
118} /* rcchk_ */
integer order
Definition: analys.c:66
#define abs(x)
Definition: f2c.h:195
float real
Definition: lpc10.h:79
INT32 integer
Definition: lpc10.h:80
int rcchk_(integer *order, real *rc1f, real *rc2f)
Definition: rcchk.c:82