/* $Header$ */

/*
 * (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);
}