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

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