ack/lang/basic/lib/sgn.c

10 lines
93 B
C

/* $Header$ */
_sgn(v)
double v;
{
if( v>0) return(1);
if( v<0) return(-1);
return(0);
}