/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* iabs APL2 V1.0.0 ****************************************************
* The integer equivalent of abs.                                       *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
#define INCLUDES 0
#include "includes.h"
int iabs(x)
int x;
{
	x=(x>=0.0) ? x : -x;
	return(x);
}