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 
median_(integer * d1,integer * d2,integer * d3)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 
63