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