median.c File Reference

#include "f2c.h"

Include dependency graph for median.c:

Go to the source code of this file.

Functions
integer	median_ (integer *d1, integer *d2, integer *d3)

Function Documentation

median_()

integer median_	(	integer *	d1,
		integer *	d2,
		integer *	d3
	)

Definition at line 69 of file median.c.

Referenced by decode_().

{
 /* 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_ */