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

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