#include "blaswrap.h"
#include "f2c.h"

logical disnan_(doublereal *din)
{
/*  -- LAPACK auxiliary routine (version 3.1) --   
       Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..   
       November 2006   


    Purpose   
    =======   

    DISNAN returns .TRUE. if its argument is NaN, and .FALSE.   
    otherwise.  To be replaced by the Fortran 2003 intrinsic in the   
    future.   

    Arguments   
    =========   

    DIN      (input) DOUBLE PRECISION   
            Input to test for NaN.   

    ===================================================================== */
    /* System generated locals */
    logical ret_val;
    /* Local variables */
    extern logical dlaisnan_(doublereal *, doublereal *);


    ret_val = dlaisnan_(din, din);
    return ret_val;
} /* disnan_ */