#include "common.h"
#ifdef LACKS_ISNAN
#include "matfile.h"

int isnan(double d)
{
   LONG l[2];

   strncpy((char *) l, (char *) &d, sizeof(double));
   return(l[0] == NaN_d_0 && l[1] == NaN_d_1);
}

#else
/* dummy function so ranlib doesn't complain about missing
symbol table.
*/

int dummyxxxxxx(double d)
{
return(0);
/* absolutely nothing! */
}

#endif