ack/lang/basic/lib/abs.c

16 lines
271 B
C
Raw Normal View History

1994-06-24 11:31:16 +00:00
/* $Id$ */
1984-11-29 14:22:02 +00:00
1987-03-31 11:06:20 +00:00
/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
2016-12-12 20:15:25 +00:00
long _abl(long i)
1984-11-29 14:22:02 +00:00
{
return( i>=0?i:-i);
}
2016-12-12 20:15:25 +00:00
double _abr(double f)
1984-11-29 14:22:02 +00:00
{
return( f>=0.0?f: -f);
}