From 1f8afc3e08a4312cfe810be86aedeacbc57275c5 Mon Sep 17 00:00:00 2001 From: "Field G. Van Zee" Date: Wed, 6 Nov 2013 10:09:10 -0600 Subject: [PATCH] Minor comment update to BLAS compat files. --- frame/compat/attic/bla_gbmv.c | 2 +- frame/compat/attic/bla_hbmv.c | 2 +- frame/compat/attic/bla_hpmv.c | 2 +- frame/compat/attic/bla_hpr.c | 2 +- frame/compat/attic/bla_hpr2.c | 2 +- frame/compat/attic/bla_rot.c | 2 +- frame/compat/attic/bla_rotm.c | 2 +- frame/compat/attic/bla_sbmv.c | 2 +- frame/compat/attic/bla_spmv.c | 2 +- frame/compat/attic/bla_spr.c | 2 +- frame/compat/attic/bla_spr2.c | 2 +- frame/compat/attic/bla_tbmv.c | 2 +- frame/compat/attic/bla_tbsv.c | 2 +- frame/compat/attic/bla_tpmv.c | 2 +- frame/compat/attic/bla_tpsv.c | 2 +- frame/compat/bla_amax.c | 2 +- frame/compat/bla_asum.c | 2 +- frame/compat/bla_axpy.c | 2 +- frame/compat/bla_copy.c | 2 +- frame/compat/bla_dot.c | 2 +- frame/compat/bla_gemm.c | 2 +- frame/compat/bla_gemv.c | 2 +- frame/compat/bla_ger.c | 2 +- frame/compat/bla_hemm.c | 2 +- frame/compat/bla_hemv.c | 2 +- frame/compat/bla_her.c | 2 +- frame/compat/bla_her2.c | 2 +- frame/compat/bla_her2k.c | 2 +- frame/compat/bla_herk.c | 2 +- frame/compat/bla_nrm2.c | 2 +- frame/compat/bla_scal.c | 2 +- frame/compat/bla_swap.c | 2 +- frame/compat/bla_symm.c | 2 +- frame/compat/bla_symv.c | 2 +- frame/compat/bla_syr.c | 2 +- frame/compat/bla_syr2.c | 2 +- frame/compat/bla_syr2k.c | 2 +- frame/compat/bla_syrk.c | 2 +- frame/compat/bla_trmm.c | 2 +- frame/compat/bla_trmv.c | 2 +- frame/compat/bla_trsm.c | 2 +- frame/compat/bla_trsv.c | 2 +- 42 files changed, 42 insertions(+), 42 deletions(-) diff --git a/frame/compat/attic/bla_gbmv.c b/frame/compat/attic/bla_gbmv.c index 87c97dbde..54b993c82 100644 --- a/frame/compat/attic/bla_gbmv.c +++ b/frame/compat/attic/bla_gbmv.c @@ -65,7 +65,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/attic/bla_hbmv.c b/frame/compat/attic/bla_hbmv.c index 20f0340b2..89392b63d 100644 --- a/frame/compat/attic/bla_hbmv.c +++ b/frame/compat/attic/bla_hbmv.c @@ -62,7 +62,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_hpmv.c b/frame/compat/attic/bla_hpmv.c index 70bd5ad58..be1aeecdf 100644 --- a/frame/compat/attic/bla_hpmv.c +++ b/frame/compat/attic/bla_hpmv.c @@ -61,7 +61,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_hpr.c b/frame/compat/attic/bla_hpr.c index d3d3d63ba..769a7aa81 100644 --- a/frame/compat/attic/bla_hpr.c +++ b/frame/compat/attic/bla_hpr.c @@ -57,7 +57,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_hpr2.c b/frame/compat/attic/bla_hpr2.c index 3d69e7077..fe4a93858 100644 --- a/frame/compat/attic/bla_hpr2.c +++ b/frame/compat/attic/bla_hpr2.c @@ -60,7 +60,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_rot.c b/frame/compat/attic/bla_rot.c index ba473c67b..b4f04611c 100644 --- a/frame/compat/attic/bla_rot.c +++ b/frame/compat/attic/bla_rot.c @@ -55,7 +55,7 @@ void PASTEF772(chxy,chr,blasname)( \ inc_t incx0; \ inc_t incy0; \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_rotm.c b/frame/compat/attic/bla_rotm.c index 53796bf0c..434f6e091 100644 --- a/frame/compat/attic/bla_rotm.c +++ b/frame/compat/attic/bla_rotm.c @@ -54,7 +54,7 @@ void PASTEF77(ch,blasname)( \ inc_t incx0; \ inc_t incy0; \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_sbmv.c b/frame/compat/attic/bla_sbmv.c index 5652d0eb9..d3d248bd5 100644 --- a/frame/compat/attic/bla_sbmv.c +++ b/frame/compat/attic/bla_sbmv.c @@ -62,7 +62,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_spmv.c b/frame/compat/attic/bla_spmv.c index 649a288e8..bf99601c8 100644 --- a/frame/compat/attic/bla_spmv.c +++ b/frame/compat/attic/bla_spmv.c @@ -61,7 +61,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_spr.c b/frame/compat/attic/bla_spr.c index f093ea8f8..fc0bfd390 100644 --- a/frame/compat/attic/bla_spr.c +++ b/frame/compat/attic/bla_spr.c @@ -57,7 +57,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_spr2.c b/frame/compat/attic/bla_spr2.c index 009951f87..d2e8aa07b 100644 --- a/frame/compat/attic/bla_spr2.c +++ b/frame/compat/attic/bla_spr2.c @@ -60,7 +60,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_tbmv.c b/frame/compat/attic/bla_tbmv.c index 44fbd893e..0d138b29f 100644 --- a/frame/compat/attic/bla_tbmv.c +++ b/frame/compat/attic/bla_tbmv.c @@ -63,7 +63,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_tbsv.c b/frame/compat/attic/bla_tbsv.c index e0894a4b9..0ce9280d4 100644 --- a/frame/compat/attic/bla_tbsv.c +++ b/frame/compat/attic/bla_tbsv.c @@ -63,7 +63,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_tpmv.c b/frame/compat/attic/bla_tpmv.c index c7cad32c2..78d5abaf1 100644 --- a/frame/compat/attic/bla_tpmv.c +++ b/frame/compat/attic/bla_tpmv.c @@ -62,7 +62,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/attic/bla_tpsv.c b/frame/compat/attic/bla_tpsv.c index ae15cb887..4cdfb075a 100644 --- a/frame/compat/attic/bla_tpsv.c +++ b/frame/compat/attic/bla_tpsv.c @@ -62,7 +62,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_amax.c b/frame/compat/bla_amax.c index 7dd08c75c..fb62204bd 100644 --- a/frame/compat/bla_amax.c +++ b/frame/compat/bla_amax.c @@ -56,7 +56,7 @@ f77_int PASTEF772(i,chx,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_asum.c b/frame/compat/bla_asum.c index 1832efd6e..28ceb74aa 100644 --- a/frame/compat/bla_asum.c +++ b/frame/compat/bla_asum.c @@ -55,7 +55,7 @@ ftype_r PASTEF772(chr,chx,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_axpy.c b/frame/compat/bla_axpy.c index 447e4dcc3..ba18d652c 100644 --- a/frame/compat/bla_axpy.c +++ b/frame/compat/bla_axpy.c @@ -58,7 +58,7 @@ void PASTEF77(ch,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_copy.c b/frame/compat/bla_copy.c index 5627a391d..03586e8ca 100644 --- a/frame/compat/bla_copy.c +++ b/frame/compat/bla_copy.c @@ -57,7 +57,7 @@ void PASTEF77(ch,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_dot.c b/frame/compat/bla_dot.c index 0b979ae0c..bf958f8ef 100644 --- a/frame/compat/bla_dot.c +++ b/frame/compat/bla_dot.c @@ -58,7 +58,7 @@ ftype PASTEF772(chxy,blasname,chc)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_gemm.c b/frame/compat/bla_gemm.c index 02d11d746..78c6af2c0 100644 --- a/frame/compat/bla_gemm.c +++ b/frame/compat/bla_gemm.c @@ -81,7 +81,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_trans( *transb, &blis_transb ); \ \ - /* Convert negative values of m, n, and k to zero. */ \ + /* Convert/typecast negative values of m, n, and k to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ bli_convert_blas_dim1( *k, k0 ); \ diff --git a/frame/compat/bla_gemv.c b/frame/compat/bla_gemv.c index b5e09bb86..4bce12931 100644 --- a/frame/compat/bla_gemv.c +++ b/frame/compat/bla_gemv.c @@ -78,7 +78,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_ger.c b/frame/compat/bla_ger.c index 06f97901a..a6332c241 100644 --- a/frame/compat/bla_ger.c +++ b/frame/compat/bla_ger.c @@ -70,7 +70,7 @@ void PASTEF772(chxy,blasname,chc)( \ incy, \ lda ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_hemm.c b/frame/compat/bla_hemm.c index eed34bf02..887920764 100644 --- a/frame/compat/bla_hemm.c +++ b/frame/compat/bla_hemm.c @@ -79,7 +79,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_side( *side, &blis_side ); \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_hemv.c b/frame/compat/bla_hemv.c index 46e4bf052..3b153ab79 100644 --- a/frame/compat/bla_hemv.c +++ b/frame/compat/bla_hemv.c @@ -75,7 +75,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_her.c b/frame/compat/bla_her.c index 39d9059e2..cefae2047 100644 --- a/frame/compat/bla_her.c +++ b/frame/compat/bla_her.c @@ -70,7 +70,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_her2.c b/frame/compat/bla_her2.c index e9187bbb8..2c33cb69d 100644 --- a/frame/compat/bla_her2.c +++ b/frame/compat/bla_her2.c @@ -74,7 +74,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_her2k.c b/frame/compat/bla_her2k.c index 1956d86ee..c60bde259 100644 --- a/frame/compat/bla_her2k.c +++ b/frame/compat/bla_her2k.c @@ -79,7 +79,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_uplo( *uploc, &blis_uploc ); \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ \ - /* Convert negative values of m and k to zero. */ \ + /* Convert/typecast negative values of m and k to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *k, k0 ); \ \ diff --git a/frame/compat/bla_herk.c b/frame/compat/bla_herk.c index 246b0b3df..e85acef6b 100644 --- a/frame/compat/bla_herk.c +++ b/frame/compat/bla_herk.c @@ -76,7 +76,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_uplo( *uploc, &blis_uploc ); \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ \ - /* Convert negative values of m and k to zero. */ \ + /* Convert/typecast negative values of m and k to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *k, k0 ); \ \ diff --git a/frame/compat/bla_nrm2.c b/frame/compat/bla_nrm2.c index ebc0ac6be..ec12ad3bd 100644 --- a/frame/compat/bla_nrm2.c +++ b/frame/compat/bla_nrm2.c @@ -55,7 +55,7 @@ ftype_r PASTEF772(chr,chx,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_scal.c b/frame/compat/bla_scal.c index 66e842e5e..6a497cc25 100644 --- a/frame/compat/bla_scal.c +++ b/frame/compat/bla_scal.c @@ -56,7 +56,7 @@ void PASTEF772(chx,cha,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_swap.c b/frame/compat/bla_swap.c index 854345886..c025a7e00 100644 --- a/frame/compat/bla_swap.c +++ b/frame/compat/bla_swap.c @@ -57,7 +57,7 @@ void PASTEF77(ch,blasname)( \ /* Initialize BLIS (if it is not already initialized). */ \ bli_init_safe( &init_result ); \ \ - /* Convert negative values of n to zero. */ \ + /* Convert/typecast negative values of n to zero. */ \ bli_convert_blas_dim1( *n, n0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_symm.c b/frame/compat/bla_symm.c index 8c8190fbf..b7aca9f0a 100644 --- a/frame/compat/bla_symm.c +++ b/frame/compat/bla_symm.c @@ -79,7 +79,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_side( *side, &blis_side ); \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_symv.c b/frame/compat/bla_symv.c index cfeda8a22..32df37d63 100644 --- a/frame/compat/bla_symv.c +++ b/frame/compat/bla_symv.c @@ -75,7 +75,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_syr.c b/frame/compat/bla_syr.c index 7a1c44d0f..83a9a9187 100644 --- a/frame/compat/bla_syr.c +++ b/frame/compat/bla_syr.c @@ -70,7 +70,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_syr2.c b/frame/compat/bla_syr2.c index d97ee07da..d4d24ae74 100644 --- a/frame/compat/bla_syr2.c +++ b/frame/compat/bla_syr2.c @@ -74,7 +74,7 @@ void PASTEF77(ch,blasname)( \ /* Map BLAS chars to their corresponding BLIS enumerated type value. */ \ bli_param_map_netlib_to_blis_uplo( *uploa, &blis_uploa ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_syr2k.c b/frame/compat/bla_syr2k.c index a37f901b1..6e00b381e 100644 --- a/frame/compat/bla_syr2k.c +++ b/frame/compat/bla_syr2k.c @@ -88,7 +88,7 @@ void PASTEF77(ch,blasname)( \ blis_trans = BLIS_TRANSPOSE; \ } \ \ - /* Convert negative values of m and k to zero. */ \ + /* Convert/typecast negative values of m and k to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *k, k0 ); \ \ diff --git a/frame/compat/bla_syrk.c b/frame/compat/bla_syrk.c index 98c27e961..8b8b2b7d1 100644 --- a/frame/compat/bla_syrk.c +++ b/frame/compat/bla_syrk.c @@ -85,7 +85,7 @@ void PASTEF77(ch,blasname)( \ blis_transa = BLIS_TRANSPOSE; \ } \ \ - /* Convert negative values of m and k to zero. */ \ + /* Convert/typecast negative values of m and k to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *k, k0 ); \ \ diff --git a/frame/compat/bla_trmm.c b/frame/compat/bla_trmm.c index 0535f4b25..35d652587 100644 --- a/frame/compat/bla_trmm.c +++ b/frame/compat/bla_trmm.c @@ -83,7 +83,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_trmv.c b/frame/compat/bla_trmv.c index a8c955a21..6f9d1380c 100644 --- a/frame/compat/bla_trmv.c +++ b/frame/compat/bla_trmv.c @@ -82,7 +82,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can diff --git a/frame/compat/bla_trsm.c b/frame/compat/bla_trsm.c index 37c751c4e..0c43c7712 100644 --- a/frame/compat/bla_trsm.c +++ b/frame/compat/bla_trsm.c @@ -83,7 +83,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m and n to zero. */ \ + /* Convert/typecast negative values of m and n to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ bli_convert_blas_dim1( *n, n0 ); \ \ diff --git a/frame/compat/bla_trsv.c b/frame/compat/bla_trsv.c index 5bf8445f7..ea3a63d4e 100644 --- a/frame/compat/bla_trsv.c +++ b/frame/compat/bla_trsv.c @@ -82,7 +82,7 @@ void PASTEF77(ch,blasname)( \ bli_param_map_netlib_to_blis_trans( *transa, &blis_transa ); \ bli_param_map_netlib_to_blis_diag( *diaga, &blis_diaga ); \ \ - /* Convert negative values of m to zero. */ \ + /* Convert/typecast negative values of m to zero. */ \ bli_convert_blas_dim1( *m, m0 ); \ \ /* If the input increments are negative, adjust the pointers so we can