LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ LAPACKE_d_nancheck()

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

Definition at line 36 of file lapacke_d_nancheck.c.

39 {
40  lapack_int i, inc;
41 
42  if( incx == 0 ) return (lapack_logical) LAPACK_DISNAN( x[0] );
43  inc = ( incx > 0 ) ? incx : -incx ;
44 
45  for( i = 0; i < n*inc; i+=inc ) {
46  if( LAPACK_DISNAN( x[i] ) )
47  return (lapack_logical) 1;
48  }
49  return (lapack_logical) 0;
50 }
#define lapack_int
Definition: lapack.h:83
#define lapack_logical
Definition: lapack.h:87
#define LAPACK_DISNAN(x)