11 lines
117 B
C
11 lines
117 B
C
/* $Header $ */
|
|
|
|
long _abl(i) long i;
|
|
{
|
|
return( i>=0?i:-i);
|
|
}
|
|
double _abr(f) double f;
|
|
{
|
|
return( f>=0.0?f: -f);
|
|
}
|