/*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 * Copyright (C) 2007 - INRIA - Allan CORNET
 * 
 * This file must be used under the terms of the CeCILL.
 * This source file is licensed as described in the file COPYING, which
 * you should have received as part of this distribution.  The terms
 * are also available at    
 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 *
 */
#ifndef __ISANAN_H__
#define __ISANAN_H__

#include "machine.h" /* C2F */

/**
* testing Nan returns 1 if a Nan is found and 0 elsewhere 
* @param value to check
* @return 1 if a Nan is found and 0 elsewhere
*/
int C2F(isanan)(double *x);

#endif /* __ISANAN_H__ */
/*--------------------------------------------------------------------------*/ 
