abs.c 116 B

12345678910
  1. /* $Header$ */
  2. long _abl(i) long i;
  3. {
  4. return( i>=0?i:-i);
  5. }
  6. double _abr(f) double f;
  7. {
  8. return( f>=0.0?f: -f);
  9. }