/* bs03r.f -- translated by f2c (version 20000817).
   You must link the resulting object file with the libraries:
        -lf2c -lm   (in that order)
*/
 
#include "f2c.h"
 
/* Subroutine */ int bs03r_c(real *x, integer *n, real *xmed)
{
    extern /* Subroutine */ int bs03r1_c(integer *, real *);
    static integer n2;
 
    /* Parameter adjustments */
    --x;
 
    /* Function Body */
    bs03r1_c(n, &x[1]);
    n2 = *n / 2;
    *xmed = x[n2 + 1];
    if (n2 << 1 == *n) {
        *xmed = (x[n2] + x[n2 + 1]) * .5f;
    }
    return 0;
} /* bs03r_c */