lapacke_zgb_nancheck.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions
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)

Function Documentation

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.

{
    lapack_int i, j;
 
    if( ab == NULL ) return (lapack_logical) 0;
 
    if( matrix_layout == LAPACK_COL_MAJOR ) {
        for( j = 0; j < n; j++ ) {
            for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 );
                 i++ ) {
                if( LAPACK_ZISNAN( ab[i+(size_t)j*ldab] ) )
                     return (lapack_logical) 1;
            }
        }
    } else if ( matrix_layout == LAPACK_ROW_MAJOR ) {
        for( j = 0; j < n; j++ ) {
            for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) {
                if( LAPACK_ZISNAN( ab[(size_t)i*ldab+j] ) )
                     return (lapack_logical) 1;
            }
        }
    }
    return (lapack_logical) 0;
}