Merge "README-SERIOUSLY.bestpractices.md: Speling correetions."
[asterisk/asterisk.git] / codecs / lpc10 / rcchk.c
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_ */