Listing 2

/* ceil function */
#include "xmath.h"

double (ceil)(double x)
       {       /* compute ceil(x) */
       return (_Dint(&x, 0) < 0 && 0.0 < x ? x + 1.0 : x);
       }

/* End of File */