/* $Header$ */

long _abl(i) long i;
{
	return( i>=0?i:-i);
}
double _abr(f) double f;
{	
	return( f>=0.0?f: -f);
}