contrib/gcc-3.4/libf2c/libF77/d_sign.c

   1 #include "f2c.h"
   2
   3 double
   4 d_sign (doublereal * a, doublereal * b)
   5 {
   6   double x;
   7   x = (*a >= 0 ? *a : -*a);
   8   return (*b >= 0 ? x : -x);
   9 }