LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ LAPACKE_dhs_nancheck()

lapack_logical LAPACKE_dhs_nancheck ( int  matrix_layout,
lapack_int  n,
const double *  a,
lapack_int  lda 
)

Definition at line 36 of file lapacke_dhs_nancheck.c.

39 {
40  lapack_logical subdiag_nans;
41 
42  if( a == NULL ) return (lapack_logical) 0;
43 
44  /* Check subdiagonal first */
45  if( matrix_layout == LAPACK_COL_MAJOR ) {
46  subdiag_nans = LAPACKE_d_nancheck( n-1, &a[1], lda+1 );
47  } else if ( matrix_layout == LAPACK_ROW_MAJOR ) {
48  subdiag_nans = LAPACKE_d_nancheck( n-1, &a[lda], lda+1 );
49  } else {
50  return (lapack_logical) 0;
51  }
52 
53  /* Check upper triangular if subdiagonal has no NaNs. */
54  return subdiag_nans || LAPACKE_dtr_nancheck( matrix_layout, 'u', 'n',
55  n, a, lda);
56 }
#define lapack_logical
Definition: lapack.h:87
#define LAPACK_COL_MAJOR
Definition: lapacke.h:53
#define LAPACK_ROW_MAJOR
Definition: lapacke.h:52
lapack_logical LAPACKE_d_nancheck(lapack_int n, const double *x, lapack_int incx)
lapack_logical LAPACKE_dtr_nancheck(int matrix_layout, char uplo, char diag, lapack_int n, const double *a, lapack_int lda)
Here is the call graph for this function: