LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
lapack_logical LAPACKE_dgb_nancheck ( int  matrix_layout,
lapack_int  m,
lapack_int  n,
lapack_int  kl,
lapack_int  ku,
const double *  ab,
lapack_int  ldab 
)

Definition at line 37 of file lapacke_dgb_nancheck.c.

42 {
43  lapack_int i, j;
44 
45  if( ab == NULL ) return (lapack_logical) 0;
46 
47  if( matrix_layout == LAPACK_COL_MAJOR ) {
48  for( j = 0; j < n; j++ ) {
49  for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 );
50  i++ ) {
51  if( LAPACK_DISNAN( ab[i+(size_t)j*ldab] ) )
52  return (lapack_logical) 1;
53  }
54  }
55  } else if ( matrix_layout == LAPACK_ROW_MAJOR ) {
56  for( j = 0; j < n; j++ ) {
57  for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) {
58  if( LAPACK_DISNAN( ab[(size_t)i*ldab+j] ) )
59  return (lapack_logical) 1;
60  }
61  }
62  }
63  return (lapack_logical) 0;
64 }
#define lapack_logical
Definition: lapacke.h:51
#define LAPACK_ROW_MAJOR
Definition: lapacke.h:119
#define MIN(x, y)
Definition: lapacke_utils.h:50
#define LAPACK_DISNAN(x)
#define MAX(x, y)
Definition: lapacke_utils.h:47
#define LAPACK_COL_MAJOR
Definition: lapacke.h:120
#define lapack_int
Definition: lapacke.h:47

Here is the caller graph for this function: