16 lines
230 B
C
16 lines
230 B
C
|
/* $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;
|
||
|
|
}
|
||
|
|
|