lapacke_s_nancheck.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions
lapack_logical	LAPACKE_s_nancheck (lapack_int n, const float *x, lapack_int incx)

Function Documentation

LAPACKE_s_nancheck()

lapack_logical LAPACKE_s_nancheck	(	lapack_int	n,
		const float *	x,
		lapack_int	incx )

Definition at line 36 of file lapacke_s_nancheck.c.

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