ack/lang/pc/libpc/rnd.c
1984-07-20 10:44:57 +00:00

3 lines
62 B
C

double _rnd(r) double r; {
return(r + (r<0 ? -0.5 : 0.5));
}