lapack_logical LAPACKE_d_nancheck	(	lapack_int	n,
		const double *	x,
		lapack_int	incx
	)

Definition at line 37 of file lapacke_d_nancheck.c.

{
    lapack_int i, inc;

    if( incx == 0 ) return (lapack_logical) LAPACK_DISNAN( x[0] );
    inc = ( incx > 0 ) ? incx : -incx ;

    for( i = 0; i < n*inc; i+=inc ) {
        if( LAPACK_DISNAN( x[i] ) )
            return (lapack_logical) 1;
    }
    return (lapack_logical) 0;
}