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.

diff --git a/LAPACKE/src/lapacke_claswp.c b/LAPACKE/src/lapacke_claswp.c
index 78d9f6b..61d5314 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 );
 }