freebsd-nq/contrib/libf2c/libF77/d_sign.c
2003-07-11 03:42:19 +00:00

10 lines
138 B
C

#include "f2c.h"
double
d_sign (doublereal * a, doublereal * b)
{
double x;
x = (*a >= 0 ? *a : -*a);
return (*b >= 0 ? x : -x);
}