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_ */
 119