LAPACK  3.10.1 LAPACK: Linear Algebra PACKage

## ◆ LAPACKE_zgb_nancheck()

 lapack_logical LAPACKE_zgb_nancheck ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double * ab, lapack_int ldab )

Definition at line 36 of file lapacke_zgb_nancheck.c.

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