/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* isign APL2 V1.0.0 ***************************************************
* The integer result depends on the sign of the integer argument x,    *
* being -1 if x<0, 0 if x==0, and +1 if x>0.                           *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int isign(x)
int x;
{
	if (x<0) return(-1);
	if (x>0) return(+1);
	return(0);
}