Several changes to codec_dahdi to play nice with G723.
[asterisk/asterisk.git] / codecs / lpc10 / encode.c
old mode 100755 (executable)
new mode 100644 (file)
index f93854c..b81799f
@@ -1,8 +1,14 @@
 /*
 
 $Log$
 /*
 
 $Log$
-Revision 1.7  2000/01/05 08:20:39  markster
-Version 0.1.8 from FTP
+Revision 1.15  2004/06/26 03:50:14  markster
+Merge source cleanups (bug #1911)
+
+Revision 1.14  2003/02/12 13:59:15  matteo
+mer feb 12 14:56:57 CET 2003
+
+Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+mer feb 12 14:56:57 CET 2003
 
 Revision 1.2  2000/01/05 08:20:39  markster
 Some OSS fixes and a few lpc changes to make it actually work
 
 Revision 1.2  2000/01/05 08:20:39  markster
 Some OSS fixes and a few lpc changes to make it actually work
@@ -13,11 +19,6 @@ Some OSS fixes and a few lpc changes to make it actually work
 
 */
 
 
 */
 
-#ifdef P_R_O_T_O_T_Y_P_E_S
-extern int encode_(integer *voice, integer *pitch, real *rms, real *rc, integer *ipitch, integer *irms, integer *irc);
-/* comlen contrl_ 12 */
-#endif
-
 /*  -- translated by f2c (version 19951025).
    You must link the resulting object file with the libraries:
        -lf2c -lm   (in that order)
 /*  -- translated by f2c (version 19951025).
    You must link the resulting object file with the libraries:
        -lf2c -lm   (in that order)
@@ -25,6 +26,11 @@ extern int encode_(integer *voice, integer *pitch, real *rms, real *rc, integer
 
 #include "f2c.h"
 
 
 #include "f2c.h"
 
+#ifdef P_R_O_T_O_T_Y_P_E_S
+extern int encode_(integer *voice, integer *pitch, real *rms, real *rc, integer *ipitch, integer *irms, integer *irc);
+/* comlen contrl_ 12 */
+#endif
+
 /* Common Block Declarations */
 
 extern struct {
 /* Common Block Declarations */
 
 extern struct {
@@ -43,12 +49,18 @@ static integer c__2 = 2;
 /*     ENCODE Version 54 */
 
 /* $Log$
 /*     ENCODE Version 54 */
 
 /* $Log$
- * Revision 1.7  2000/01/05 08:20:39  markster
- * Version 0.1.8 from FTP
+ * Revision 1.15  2004/06/26 03:50:14  markster
+ * Merge source cleanups (bug #1911)
+ *
+ * Revision 1.14  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.2  2000/01/05 08:20:39  markster
+ * Some OSS fixes and a few lpc changes to make it actually work
  *
  *
-/* Revision 1.2  2000/01/05 08:20:39  markster
-/* Some OSS fixes and a few lpc changes to make it actually work
-/*
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
@@ -128,12 +140,18 @@ static integer c__2 = 2;
     integer idel, nbit, i__, j, i2, i3, mrk;
 
 /* $Log$
     integer idel, nbit, i__, j, i2, i3, mrk;
 
 /* $Log$
- * Revision 1.7  2000/01/05 08:20:39  markster
- * Version 0.1.8 from FTP
+ * Revision 1.15  2004/06/26 03:50:14  markster
+ * Merge source cleanups (bug #1911)
+ *
+ * Revision 1.14  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.2  2000/01/05 08:20:39  markster
+ * Some OSS fixes and a few lpc changes to make it actually work
  *
  *
-/* Revision 1.2  2000/01/05 08:20:39  markster
-/* Some OSS fixes and a few lpc changes to make it actually work
-/*
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
@@ -151,12 +169,18 @@ static integer c__2 = 2;
 /* Frame size, Prediction order, Pitch period */
 /*       Arguments */
 /* $Log$
 /* Frame size, Prediction order, Pitch period */
 /*       Arguments */
 /* $Log$
- * Revision 1.7  2000/01/05 08:20:39  markster
- * Version 0.1.8 from FTP
+ * Revision 1.15  2004/06/26 03:50:14  markster
+ * Merge source cleanups (bug #1911)
+ *
+ * Revision 1.14  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.2  2000/01/05 08:20:39  markster
+ * Some OSS fixes and a few lpc changes to make it actually work
  *
  *
-/* Revision 1.2  2000/01/05 08:20:39  markster
-/* Some OSS fixes and a few lpc changes to make it actually work
-/*
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
  * Revision 1.1  1996/08/19  22:32:21  jaf
  * Initial revision
  * */
@@ -255,10 +279,10 @@ static integer c__2 = 2;
 
     /* Function Body */
 /*  Scale RMS and RC's to integers */
 
     /* Function Body */
 /*  Scale RMS and RC's to integers */
-    *irms = *rms;
+    *irms = (integer)*rms;
     i__1 = contrl_1.order;
     for (i__ = 1; i__ <= i__1; ++i__) {
     i__1 = contrl_1.order;
     for (i__ = 1; i__ <= i__1; ++i__) {
-       irc[i__] = rc[i__] * 32768.f;
+       irc[i__] = (integer)(rc[i__] * 32768.f);
     }
 /*     IF(LISTL.GE.3)WRITE(FDEBUG,800)VOICE,PITCH,IRMS,(IRC(I),I=1,ORDER) */
 /* 800 FORMAT(1X,/,' <<ENCODE IN>>',T32,2I3,I6,I5,T50,10I8) */
     }
 /*     IF(LISTL.GE.3)WRITE(FDEBUG,800)VOICE,PITCH,IRMS,(IRC(I),I=1,ORDER) */
 /* 800 FORMAT(1X,/,' <<ENCODE IN>>',T32,2I3,I6,I5,T50,10I8) */
@@ -312,8 +336,8 @@ static integer c__2 = 2;
     i__1 = contrl_1.order;
     for (i__ = 3; i__ <= i__1; ++i__) {
        i2 = irc[i__] / 2;
     i__1 = contrl_1.order;
     for (i__ = 3; i__ <= i__1; ++i__) {
        i2 = irc[i__] / 2;
-       i2 = (i2 + enadd[contrl_1.order + 1 - i__ - 1]) * enscl[
-               contrl_1.order + 1 - i__ - 1];
+       i2 = (integer)((i2 + enadd[contrl_1.order + 1 - i__ - 1]) * enscl[
+               contrl_1.order + 1 - i__ - 1]);
 /* Computing MIN */
        i__2 = max(i2,-127);
        i2 = min(i__2,127);
 /* Computing MIN */
        i__2 = max(i2,-127);
        i2 = min(i__2,127);