/* $Id: isinf.c,v 1.1 1998/01/15 20:54:37 scrappy Exp $ */

#include <ieeefp.h>
#include <math.h>  

#include "config.h"


int
isinf(double x)
{
	if((fpclass(x) == FP_PINF) || (fpclass(x) == FP_NINF)) return 1;
	else return 0;
}