ack/lang/basic/lib/sgn.c

10 lines
94 B
C
Raw Normal View History

1984-11-29 14:22:02 +00:00
/* $Header $ */
_sgn(v)
double v;
{
if( v>0) return(1);
if( v<0) return(-1);
return(0);
}