LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ LAPACKE_sgb_nancheck()

lapack_logical LAPACKE_sgb_nancheck ( int  matrix_layout,
lapack_int  m,
lapack_int  n,
lapack_int  kl,
lapack_int  ku,
const float *  ab,
lapack_int  ldab 
)

Definition at line 36 of file lapacke_sgb_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_SISNAN( 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_SISNAN( 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:87
#define lapack_logical
Definition: lapack.h:103
#define LAPACK_COL_MAJOR
Definition: lapacke.h:53
#define LAPACK_ROW_MAJOR
Definition: lapacke.h:52
#define LAPACK_SISNAN(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: