ack/lang/basic/lib/abs.c
1994-06-24 11:31:16 +00:00

16 lines
277 B
C

/* $Id$ */
/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
long _abl(i) long i;
{
return( i>=0?i:-i);
}
double _abr(f) double f;
{
return( f>=0.0?f: -f);
}