/* This is a fix from SUN-- libdps needs this function. --bert 94/11/15 */

/* get the definition of the function finite() which lives in libc.so */
#include <ieeefp.h>

int isinf(double x)
{
  return ( ! finite(x) );
}