← Back to branch summary

~ubuntu-branches/ubuntu/vivid/linphone/vivid

« back to all changes in this revision

Viewing changes to lpc10-1.5/rcchk.c

  • Committer: Bazaar Package Importer
  • Author(s): Samuel Mimram
  • Date: 2006-11-15 10:34:50 UTC
  • mfrom: (1.2.1 upstream) (2.1.8 feisty)
  • Revision ID: james.westby@ubuntu.com-20061115103450-qgafwcks2lkhctlj
http://bugs.debian.org/398307
* New upstream release.
* Enable video support.
* Fix mismatched #endif in mscommon.h, closes: #398307.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lpc10-1.5/rcchk.c
1
 
/*
2
 
 
3
 
$Log: rcchk.c,v $
4
 
Revision 1.1.1.1  2001/11/19 19:50:16  smorlat
5
 
First cvs.
6
 
 
7
 
Revision 1.1.1.1  2001/08/08 21:29:08  simon
8
 
First import
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: rcchk.c,v $
32
 
/* Revision 1.1.1.1  2001/11/19 19:50:16  smorlat
33
 
/* First cvs.
34
 
/*
35
 
/* Revision 1.1.1.1  2001/08/08 21:29:08  simon
36
 
/* First import
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