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

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