17 lines
165 B
C
17 lines
165 B
C
/* $Id$ */
|
|
|
|
int _sgn(double v)
|
|
{
|
|
if (v > 0)
|
|
return (1);
|
|
if (v < 0)
|
|
return (-1);
|
|
return (0);
|
|
}
|
|
|
|
int _forsgn(double v)
|
|
{
|
|
if (v >= 0)
|
|
return 1;
|
|
return -1;
|
|
}
|