/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* signum APL2 V1.0.0 **************************************************
* The integer result depends on the sign of the double float argument: *
*   -1 if x < (0-fuzz)                                                 *
*   +1 if x > fuzz                                                     *
*    0 otherwise                                                       *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int signum(x)
double x;
{
	extern double fuzz;

	if (x < 0.0-fuzz) return(-1);
	if (x > fuzz)     return(+1);
	return(0);
}