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