lpc10/median.c

   1 /*
   2
   3  * Revision 1.1  1996/08/19  22:31:31  jaf
   4  * Initial revision
   5  *
   6
   7 */
   8
   9 /*  -- translated by f2c (version 19951025).
  10    You must link the resulting object file with the libraries:
  11         -lf2c -lm   (in that order)
  12 */
  13
  14 #include "f2c.h"
  15
  16 extern integer median_(integer *d1, integer *d2, integer *d3);
  17
  18 /* ********************************************************************* */
  19
  20 /*      MEDIAN Version 45G */
  21
  22 /*
  23  * Revision 1.1  1996/08/19  22:31:31  jaf
  24  * Initial revision
  25  * */
  26 /* Revision 1.2  1996/03/14  22:30:22  jaf */
  27 /* Just rearranged the comments and local variable declarations a bit. */
  28
  29 /* Revision 1.1  1996/02/07 14:47:53  jaf */
  30 /* Initial revision */
  31
  32
  33 /* ********************************************************************* */
  34
  35 /*  Find median of three values */
  36
  37 /* Input: */
  38 /*  D1,D2,D3 - Three input values */
  39 /* Output: */
  40 /*  MEDIAN - Median value */
  41
  42 integer median_(integer *d1, integer *d2, integer *d3)
  43 {
  44     /* System generated locals */
  45     integer ret_val;
  46
  47 /*       Arguments */
  48     ret_val = *d2;
  49     if (*d2 > *d1 && *d2 > *d3) {
  50         ret_val = *d1;
  51         if (*d3 > *d1) {
  52             ret_val = *d3;
  53         }
  54     } else if (*d2 < *d1 && *d2 < *d3) {
  55         ret_val = *d1;
  56         if (*d3 < *d1) {
  57             ret_val = *d3;
  58         }
  59     }
  60     return ret_val;
  61 } /* median_ */
  62