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  )

extern

Definition at line 69 of file median.c.

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

Referenced by decode_().