Asterisk - The Open Source Telephony Project  18.5.0
rcchk.c
Go to the documentation of this file.
1 /*
2 
3 $Log$
4 Revision 1.15 2004/06/26 03:50:14 markster
5 Merge source cleanups (bug #1911)
6 
7 Revision 1.14 2003/02/12 13:59:15 matteo
8 mer feb 12 14:56:57 CET 2003
9 
10 Revision 1.1.1.1 2003/02/12 13:59:15 matteo
11 mer feb 12 14:56:57 CET 2003
12 
13 Revision 1.2 2000/01/05 08:20:39 markster
14 Some 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
30 extern 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. */
108 L10:
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_ */
order
integer order
Definition: analys.c:66
real
float real
Definition: lpc10.h:79
abs
#define abs(x)
Definition: f2c.h:195
rcchk_
int rcchk_(integer *order, real *rc1f, real *rc2f)
Definition: rcchk.c:82
integer
INT32 integer
Definition: lpc10.h:80
Generated on Sun Aug 8 2021 19:43:58 for Asterisk - The Open Source Telephony Project by   doxygen 1.8.13