00001 /* $Id: qfits_float.h,v 1.1.1.1 2008/11/03 13:40:49 agabasch Exp $ 00002 * 00003 * This file is part of the ESO QFITS Library 00004 * Copyright (C) 2001-2004 European Southern Observatory 00005 * 00006 * This program is free software; you can redistribute it and/or modify 00007 * it under the terms of the GNU General Public License as published by 00008 * the Free Software Foundation; either version 2 of the License, or 00009 * (at your option) any later version. 00010 * 00011 * This program is distributed in the hope that it will be useful, 00012 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00013 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00014 * GNU General Public License for more details. 00015 * 00016 * You should have received a copy of the GNU General Public License 00017 * along with this program; if not, write to the Free Software 00018 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 00019 */ 00020 00021 /* 00022 * $Author: agabasch $ 00023 * $Date: 2008/11/03 13:40:49 $ 00024 * $Revision: 1.1.1.1 $ 00025 * $Name: midi-2_8_0 $ 00026 */ 00027 00028 #ifndef QFITS_FLOAT_H 00029 #define QFITS_FLOAT_H 00030 00031 /*----------------------------------------------------------------------------- 00032 Macros 00033 -----------------------------------------------------------------------------*/ 00034 00035 /*----------------------------------------------------------------------------*/ 00051 /*----------------------------------------------------------------------------*/ 00052 #define qfits_isnan(n) ((sizeof(n)==sizeof(float)) ? _qfits_isnanf(n) : \ 00053 (sizeof(n)==sizeof(double)) ? _qfits_isnand(n) : -1) 00054 00055 /*----------------------------------------------------------------------------*/ 00072 /*----------------------------------------------------------------------------*/ 00073 #define qfits_isinf(n) ((sizeof(n)==sizeof(float)) ? _qfits_isinff(n) : \ 00074 (sizeof(n)==sizeof(double)) ? _qfits_isinfd(n) : -1) 00075 00076 /*----------------------------------------------------------------------------- 00077 Function prototypes 00078 -----------------------------------------------------------------------------*/ 00079 00080 int _qfits_isnanf(float) ; 00081 int _qfits_isinff(float) ; 00082 int _qfits_isnand(double) ; 00083 int _qfits_isinfd(double) ; 00084 00085 #endif