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

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