address gcc721 warnings

This commit is contained in:
Andrew 2018-05-18 09:55:05 +02:00
parent 5082fe4306
commit a33b857f6c
3 changed files with 10 additions and 10 deletions

View File

@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
BLASLONG n, info; BLASLONG n, info;
BLASLONG bk, i, blocking, start_i; BLASLONG bk, i, blocking, start_i;
int mode; int mode;
BLASLONG lda, range_N[2]; BLASLONG lda; //, range_N[2];
blas_arg_t newarg; blas_arg_t newarg;
FLOAT *a; FLOAT *a;
FLOAT alpha[2] = { ONE, ZERO}; FLOAT alpha[2] = { ONE, ZERO};
@ -100,8 +100,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
bk = n - i; bk = n - i;
if (bk > blocking) bk = blocking; if (bk > blocking) bk = blocking;
range_N[0] = i; /* range_N[0] = i;
range_N[1] = i + bk; range_N[1] = i + bk; */
newarg.lda = lda; newarg.lda = lda;
newarg.ldb = lda; newarg.ldb = lda;

View File

@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
BLASLONG n, info; BLASLONG n, info;
BLASLONG bk, i, blocking; BLASLONG bk, i, blocking;
int mode; int mode;
BLASLONG lda, range_N[2]; BLASLONG lda; //, range_N[2];
blas_arg_t newarg; blas_arg_t newarg;
FLOAT *a; FLOAT *a;
FLOAT alpha[2] = { ONE, ZERO}; FLOAT alpha[2] = { ONE, ZERO};
@ -96,8 +96,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
bk = n - i; bk = n - i;
if (bk > blocking) bk = blocking; if (bk > blocking) bk = blocking;
range_N[0] = i; /* range_N[0] = i;
range_N[1] = i + bk; range_N[1] = i + bk; */
newarg.lda = lda; newarg.lda = lda;
newarg.ldb = lda; newarg.ldb = lda;