Fixed bug in trapezoidal NaN check.

Author: STCE2023

LAPACKE/utils/lapacke_ctz_nancheck.c

@@ -95,7 +95,7 @@ lapack_logical LAPACKE_ctz_nancheck( int matrix_layout, char direct, char uplo,
     unit   = LAPACKE_lsame( diag, 'u' );
 
     if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) ||
-        ( !front  && !LAPACKE_lsame( uplo, 'b' ) ) ||
+        ( !front  && !LAPACKE_lsame( direct, 'b' ) ) ||
         ( !lower  && !LAPACKE_lsame( uplo, 'u' ) ) ||
         ( !unit   && !LAPACKE_lsame( diag, 'n' ) ) ) {
         /* Just exit if any of input parameters are wrong */

LAPACKE/utils/lapacke_dtz_nancheck.c

@@ -94,7 +94,7 @@ lapack_logical LAPACKE_dtz_nancheck( int matrix_layout, char direct, char uplo,
     unit   = LAPACKE_lsame( diag, 'u' );
 
     if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) ||
-        ( !front  && !LAPACKE_lsame( uplo, 'b' ) ) ||
+        ( !front  && !LAPACKE_lsame( direct, 'b' ) ) ||
         ( !lower  && !LAPACKE_lsame( uplo, 'u' ) ) ||
         ( !unit   && !LAPACKE_lsame( diag, 'n' ) ) ) {
         /* Just exit if any of input parameters are wrong */
@@ -132,7 +132,7 @@ lapack_logical LAPACKE_dtz_nancheck( int matrix_layout, char direct, char uplo,
     /* Check rectangular part */
     if( rect_offset >= 0 ) {
         if( LAPACKE_dge_nancheck( matrix_layout, rect_m, rect_n,
-                                  &a[rect_offset], lda) ) {
+                                  &a[rect_offset], lda ) ) {
             return (lapack_logical) 1;
         }
     }

LAPACKE/utils/lapacke_stz_nancheck.c

@@ -94,7 +94,7 @@ lapack_logical LAPACKE_stz_nancheck( int matrix_layout, char direct, char uplo,
     unit   = LAPACKE_lsame( diag, 'u' );
 
     if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) ||
-        ( !front  && !LAPACKE_lsame( uplo, 'b' ) ) ||
+        ( !front  && !LAPACKE_lsame( direct, 'b' ) ) ||
         ( !lower  && !LAPACKE_lsame( uplo, 'u' ) ) ||
         ( !unit   && !LAPACKE_lsame( diag, 'n' ) ) ) {
         /* Just exit if any of input parameters are wrong */

LAPACKE/utils/lapacke_ztz_nancheck.c

@@ -95,7 +95,7 @@ lapack_logical LAPACKE_ztz_nancheck( int matrix_layout, char direct, char uplo,
     unit   = LAPACKE_lsame( diag, 'u' );
 
     if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) ||
-        ( !front  && !LAPACKE_lsame( uplo, 'b' ) ) ||
+        ( !front  && !LAPACKE_lsame( direct, 'b' ) ) ||
         ( !lower  && !LAPACKE_lsame( uplo, 'u' ) ) ||
         ( !unit   && !LAPACKE_lsame( diag, 'n' ) ) ) {
         /* Just exit if any of input parameters are wrong */