ack/lang/basic/lib/sgn.c
1984-11-29 14:22:02 +00:00

10 lines
94 B
C

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