diff options
Diffstat (limited to 'codecs/lpc10/median.c')
-rw-r--r-- | codecs/lpc10/median.c | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/codecs/lpc10/median.c b/codecs/lpc10/median.c deleted file mode 100644 index 383c46e89..000000000 --- a/codecs/lpc10/median.c +++ /dev/null @@ -1,89 +0,0 @@ -/* - -$Log$ -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.1 1996/08/19 22:31:31 jaf - * Initial revision - * - -*/ - -/* -- translated by f2c (version 19951025). - You must link the resulting object file with the libraries: - -lf2c -lm (in that order) -*/ - -#include "f2c.h" - -#ifdef P_R_O_T_O_T_Y_P_E_S -extern integer median_(integer *d1, integer *d2, integer *d3); -#endif - -/* ********************************************************************* */ - -/* MEDIAN Version 45G */ - -/* $Log$ - * 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.1 1996/08/19 22:31:31 jaf - * Initial revision - * */ -/* Revision 1.2 1996/03/14 22:30:22 jaf */ -/* Just rearranged the comments and local variable declarations a bit. */ - -/* Revision 1.1 1996/02/07 14:47:53 jaf */ -/* Initial revision */ - - -/* ********************************************************************* */ - -/* Find median of three values */ - -/* Input: */ -/* D1,D2,D3 - Three input values */ -/* Output: */ -/* MEDIAN - Median value */ - -integer median_(integer *d1, integer *d2, integer *d3) -{ - /* System generated locals */ - integer ret_val; - -/* Arguments */ - ret_val = *d2; - if (*d2 > *d1 && *d2 > *d3) { - ret_val = *d1; - if (*d3 > *d1) { - ret_val = *d3; - } - } else if (*d2 < *d1 && *d2 < *d3) { - ret_val = *d1; - if (*d3 < *d1) { - ret_val = *d3; - } - } - return ret_val; -} /* median_ */ - |