lapacke_z_nancheck.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions
lapack_logical	LAPACKE_z_nancheck (lapack_int n, const lapack_complex_double *x, lapack_int incx)

Function Documentation

LAPACKE_z_nancheck()

lapack_logical LAPACKE_z_nancheck	(	lapack_int	n,
		const lapack_complex_double *	x,
		lapack_int	incx )

Definition at line 36 of file lapacke_z_nancheck.c.

{
    lapack_int i, inc;
 
    if( incx == 0 ) return (lapack_logical) LAPACK_ZISNAN( x[0] );
    inc = ( incx > 0 ) ? incx : -incx ;
 
    for( i = 0; i < n*inc; i+=inc ) {
        if( LAPACK_ZISNAN( x[i] ) )
            return (lapack_logical) 1;
    }
    return (lapack_logical) 0;
}