开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 查看源码
rcchk.c
资源名称：一个类似QQ的软件源码.rar　[点击查看]
上传用户：zslianheng
上传日期：2013-04-03
资源大小：946k
文件大小：3k
源码类别：

Linux/Unix编程

开发平台：

Visual C++

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