From b2f92b663a60f844694fbc38fbe046e01f7bb7ac Mon Sep 17 00:00:00 2001 From: langou Date: Thu, 29 Oct 2015 04:41:20 +0000 Subject: [PATCH] minor: (1) eliminate trailing spaces in comments and (2) comment indicators along the left margin of the commented fragment, in order to show explicitly that the fragment is a comment rather than a code between two comments. Thanks Dmitry. --- LAPACKE/src/lapacke_claswp.c | 12 ++++++------ LAPACKE/src/lapacke_dlaswp.c | 12 ++++++------ LAPACKE/src/lapacke_slaswp.c | 12 ++++++------ LAPACKE/src/lapacke_zlaswp.c | 12 ++++++------ 4 files changed, 24 insertions(+), 24 deletions(-) diff --git a/LAPACKE/src/lapacke_claswp.c b/LAPACKE/src/lapacke_claswp.c index 78d9f6b..61d5314 100644 --- a/LAPACKE/src/lapacke_claswp.c +++ b/LAPACKE/src/lapacke_claswp.c @@ -45,17 +45,17 @@ lapack_int LAPACKE_claswp( int matrix_layout, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ /***************************************************************************** -* Disable the check as is below, the check below was checking for NaN +* Disable the check as is below, the check below was checking for NaN * from lda to n since there is no (obvious) way to knowing m. This is not -* a good idea. We could get a lower bound of m by scanning from ipiv. Or +* a good idea. We could get a lower bound of m by scanning from ipiv. Or * we could pass on the NaN check to LAPACKE_dlaswp_work. For now disable * the buggy Nan check. * See forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=4827 -***************************************************************************** - if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { - return -3; - } *****************************************************************************/ +/* if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { +* return -3; +* } +*/ #endif return LAPACKE_claswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } diff --git a/LAPACKE/src/lapacke_dlaswp.c b/LAPACKE/src/lapacke_dlaswp.c index dd7533a..66a6606 100644 --- a/LAPACKE/src/lapacke_dlaswp.c +++ b/LAPACKE/src/lapacke_dlaswp.c @@ -44,17 +44,17 @@ lapack_int LAPACKE_dlaswp( int matrix_layout, lapack_int n, double* a, #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ /***************************************************************************** -* Disable the check as is below, the check below was checking for NaN +* Disable the check as is below, the check below was checking for NaN * from lda to n since there is no (obvious) way to knowing m. This is not -* a good idea. We could get a lower bound of m by scanning from ipiv. Or +* a good idea. We could get a lower bound of m by scanning from ipiv. Or * we could pass on the NaN check to LAPACKE_dlaswp_work. For now disable * the buggy Nan check. * See forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=4827 -***************************************************************************** - if( LAPACKE_dge_nancheck( matrix_layout, lda, n, a, lda ) ) { - return -3; - } *****************************************************************************/ +/* if( LAPACKE_dge_nancheck( matrix_layout, lda, n, a, lda ) ) { +* return -3; +* } +*/ #endif return LAPACKE_dlaswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } diff --git a/LAPACKE/src/lapacke_slaswp.c b/LAPACKE/src/lapacke_slaswp.c index e18a4bf..0df871e 100644 --- a/LAPACKE/src/lapacke_slaswp.c +++ b/LAPACKE/src/lapacke_slaswp.c @@ -44,17 +44,17 @@ lapack_int LAPACKE_slaswp( int matrix_layout, lapack_int n, float* a, #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ /***************************************************************************** -* Disable the check as is below, the check below was checking for NaN +* Disable the check as is below, the check below was checking for NaN * from lda to n since there is no (obvious) way to knowing m. This is not -* a good idea. We could get a lower bound of m by scanning from ipiv. Or +* a good idea. We could get a lower bound of m by scanning from ipiv. Or * we could pass on the NaN check to LAPACKE_dlaswp_work. For now disable * the buggy Nan check. * See forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=4827 -***************************************************************************** - if( LAPACKE_sge_nancheck( matrix_layout, lda, n, a, lda ) ) { - return -3; - } *****************************************************************************/ +/* if( LAPACKE_sge_nancheck( matrix_layout, lda, n, a, lda ) ) { +* return -3; +* } +*/ #endif return LAPACKE_slaswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } diff --git a/LAPACKE/src/lapacke_zlaswp.c b/LAPACKE/src/lapacke_zlaswp.c index 74ecab7..336a761 100644 --- a/LAPACKE/src/lapacke_zlaswp.c +++ b/LAPACKE/src/lapacke_zlaswp.c @@ -45,17 +45,17 @@ lapack_int LAPACKE_zlaswp( int matrix_layout, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ /***************************************************************************** -* Disable the check as is below, the check below was checking for NaN +* Disable the check as is below, the check below was checking for NaN * from lda to n since there is no (obvious) way to knowing m. This is not -* a good idea. We could get a lower bound of m by scanning from ipiv. Or +* a good idea. We could get a lower bound of m by scanning from ipiv. Or * we could pass on the NaN check to LAPACKE_dlaswp_work. For now disable * the buggy Nan check. * See forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=4827 -***************************************************************************** - if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { - return -3; - } *****************************************************************************/ +/* if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { +* return -3; +* } +*/ #endif return LAPACKE_zlaswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } -- 2.7.4