LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
lapack_logical
LAPACKE_sge_nancheck
(
int
matrix_layout
,
lapack_int
m
,
lapack_int
n
,
const float *
a
,
lapack_int
lda
)
Definition at line
37
of file
lapacke_sge_nancheck.c
.
41
{
42
lapack_int
i, j;
43
44
if
( a == NULL )
return
(
lapack_logical
) 0;
45
46
if
( matrix_layout ==
LAPACK_COL_MAJOR
) {
47
for
( j = 0; j < n; j++ ) {
48
for
( i = 0; i <
MIN
( m, lda ); i++ ) {
49
if
(
LAPACK_SISNAN
( a[i+(
size_t
)j*lda] ) )
50
return
(
lapack_logical
) 1;
51
}
52
}
53
}
else
if
( matrix_layout ==
LAPACK_ROW_MAJOR
) {
54
for
( i = 0; i < m; i++ ) {
55
for
( j = 0; j <
MIN
( n, lda ); j++ ) {
56
if
(
LAPACK_SISNAN
( a[(
size_t
)i*lda+j] ) )
57
return
(
lapack_logical
) 1;
58
}
59
}
60
}
61
return
(
lapack_logical
) 0;
62
}
lapack_logical
#define lapack_logical
Definition:
lapacke.h:51
LAPACK_ROW_MAJOR
#define LAPACK_ROW_MAJOR
Definition:
lapacke.h:119
MIN
#define MIN(x, y)
Definition:
lapacke_utils.h:50
LAPACK_COL_MAJOR
#define LAPACK_COL_MAJOR
Definition:
lapacke.h:120
lapack_int
#define lapack_int
Definition:
lapacke.h:47
LAPACK_SISNAN
#define LAPACK_SISNAN(x)
Definition:
lapacke_utils.h:286
LAPACKE
utils
lapacke_sge_nancheck.c
Generated on Fri Dec 23 2016 15:30:37 for LAPACK by
1.8.10