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