Xref: utzoo comp.unix.ultrix:7487 comp.lang.fortran:5597
Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!dynsim1!litwin!vlr
From: vlr@litwin.com (Vic Rice)
Newsgroups: comp.unix.ultrix,comp.lang.fortran
Subject: Re: How to detect NaN's
Message-ID: <1991Jun3.193639.7255@litwin.com>
Date: 3 Jun 91 19:36:39 GMT
References: <1991May30.204332.16506@litwin.com> <WARREN.91May31174433@stormy.atmos.washington.edu>
Organization: Litwin Process Automation
Lines: 22

In <WARREN.91May31174433@stormy.atmos.washington.edu> warren@atmos.washington.edu (David Warren) writes:

>how about linking with this c function:

>int *check_nan_(num)
>/*make sure num != NaN*/
>float *num;
>{
>    int true=1,false=0;
>    if(isnan((double)num))return(&true);
>    else return(&false);
>}

>then do

>ISTAT = CHECK_NAN(RVAL)

I originally looked at this. However, as best as I can tell this macro expects
bit patterns associated with IEEE format machines. I don't believe the Mips
-- 
Dr. Victor L. Rice
Litwin Process Automation