contrib/libf2c/libF77/h_abs.c

   1 #include "f2c.h"
   2
   3 #ifdef KR_headers
   4 shortint h_abs(x) shortint *x;
   5 #else
   6 shortint h_abs(shortint *x)
   7 #endif
   8 {
   9 if(*x >= 0)
  10         return(*x);
  11 return(- *x);
  12 }