Home Explore Help
Register Sign In
dingyu
/
Asterisk
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: master
Branches Tags
Asterisk
/
codecs
/
lpc10
/
median.c

median.c 2.0 KB
Permalink History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788 
  1. /*
    2. 

  2. 

  3. $Log$
    4. 

  4. Revision 1.15  2004/06/26 03:50:14  markster
    5. 

  5. Merge source cleanups (bug #1911)
    6. 

  6. 

  7. Revision 1.14  2003/02/12 13:59:15  matteo
    8. 

  8. mer feb 12 14:56:57 CET 2003
    9. 

  9. 

  10. Revision 1.1.1.1  2003/02/12 13:59:15  matteo
    11. 

  11. mer feb 12 14:56:57 CET 2003
    12. 

  12. 

  13. Revision 1.2  2000/01/05 08:20:39  markster
    14. 

  14. Some OSS fixes and a few lpc changes to make it actually work
    15. 

  15. 

  16.  * Revision 1.1  1996/08/19  22:31:31  jaf
    17. 

  17.  * Initial revision
    18. 

  18.  *
    19. 

  19. 

  20. */
    21. 

  21. 

  22. /*  -- translated by f2c (version 19951025).
    23. 

  23.    You must link the resulting object file with the libraries:
    24. 

  24. 	-lf2c -lm   (in that order)
    25. 

  25. */
    26. 

  26. 

  27. #include "f2c.h"
    28. 

  28. 

  29. #ifdef P_R_O_T_O_T_Y_P_E_S
    30. 

  30. extern integer median_(integer *d1, integer *d2, integer *d3);
    31. 

  31. #endif
    32. 

  32. 

  33. /* ********************************************************************* */
    34. 

  34. 

  35. /* 	MEDIAN Version 45G */
    36. 

  36. 

  37. /* $Log$
    38. 

  38.  * Revision 1.15  2004/06/26 03:50:14  markster
    39. 

  39.  * Merge source cleanups (bug #1911)
    40. 

  40.  *
    41. 

  41.  * Revision 1.14  2003/02/12 13:59:15  matteo
    42. 

  42.  * mer feb 12 14:56:57 CET 2003
    43. 

  43.  *
    44. 

  44.  * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
    45. 

  45.  * mer feb 12 14:56:57 CET 2003
    46. 

  46.  *
    47. 

  47.  * Revision 1.2  2000/01/05 08:20:39  markster
    48. 

  48.  * Some OSS fixes and a few lpc changes to make it actually work
    49. 

  49.  *
    50. 

  50.  * Revision 1.1  1996/08/19  22:31:31  jaf
    51. 

  51.  * Initial revision
    52. 

  52.  * */
    53. 

  53. /* Revision 1.2  1996/03/14  22:30:22  jaf */
    54. 

  54. /* Just rearranged the comments and local variable declarations a bit. */
    55. 

  55. 

  56. /* Revision 1.1  1996/02/07 14:47:53  jaf */
    57. 

  57. /* Initial revision */
    58. 

  58. 

  59. 

  60. /* ********************************************************************* */
    61. 

  61. 

  62. /*  Find median of three values */
    63. 

  63. 

  64. /* Input: */
    65. 

  65. /*  D1,D2,D3 - Three input values */
    66. 

  66. /* Output: */
    67. 

  67. /*  MEDIAN - Median value */
    68. 

  68. 

  69. integer median_(integer *d1, integer *d2, integer *d3)
    70. 

  70. {
    71. 

  71.     /* System generated locals */
    72. 

  72.     integer ret_val;
    73. 

  73. 

  74. /*       Arguments */
    75. 

  75.     ret_val = *d2;
    76. 

  76.     if (*d2 > *d1 && *d2 > *d3) {
    77. 

  77. 	ret_val = *d1;
    78. 

  78. 	if (*d3 > *d1) {
    79. 

  79. 	    ret_val = *d3;
    80. 

  80. 	}
    81. 

  81.     } else if (*d2 < *d1 && *d2 < *d3) {
    82. 

  82. 	ret_val = *d1;
    83. 

  83. 	if (*d3 < *d1) {
    84. 

  84. 	    ret_val = *d3;
    85. 

  85. 	}
    86. 

  86.     }
    87. 

  87.     return ret_val;
    88. 

  88. } /* median_ */
    89.