lang/fortran/lib/libF77/h_sign.c

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