f77_isnan.c

Go to the documentation of this file.

/*
 * These are interface methods to allow F77 access to IEEE tests
 *
 */
#include <math.h>
const char* ident="F77 interface to finite,isinf,isnan";
int finite_r_(float*  f) { double d=*f; return finite(d); }
int finite_d_(double* d) { return finite(*d); }
int isinf_r_(float*  f)  { double d=*f; return isinf(d); }
int isinf_d_(double* d)  { return isinf(*d); }
int isnan_r_(float*  f)  { double d=*f; return isnan(d); }
int isnan_d_(double* d)  { return isnan(*d); }

---