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