lapack_logical LAPACKE_c_nancheck	(	lapack_int	n,
		const lapack_complex_float *	x,
		lapack_int	incx
	)

Definition at line 37 of file lapacke_c_nancheck.c.

{
    lapack_int i, inc;

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

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

Here is the caller graph for this function: