1/*********************************************************************
2 *   Copyright 2008, University Corporation for Atmospheric Research
3 *   See netcdf/README file for copying and redistribution conditions.
4 *   $Id: isnan.h,v 1.3 2008/04/23 22:05:00 russ Exp $
5 *********************************************************************/
6
7#include <config.h>
8
9#ifndef NO_FLOAT_H
10#include <float.h> /* for DBL_MAX */
11#endif /* NO_FLOAT_H */
12#include <math.h>
13
14#if ! (defined(isinf) || HAVE_DECL_ISINF)
15#define isinf(x) (DBL_MAX/((double)(x))==0.0)
16#endif /* !HAVE_DECL_ISINF */
17#if ! (defined(isnan) || HAVE_DECL_ISNAN)
18#define isnan(x) ((x)!=(x))
19#endif /* !HAVE_DECL_ISNAN */
20#if ! (defined(isfinite) || HAVE_DECL_ISFINITE)
21#define isfinite(x) (!(isinf(x)||isnan(x)))
22#endif /* !HAVE_DECL_ISFINITE */


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed