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);
|
||
|
|
}
|