Commit bedf2161 authored by Mathieu Faverge's avatar Mathieu Faverge

Silent warnings

parent 6c900181
......@@ -66,8 +66,7 @@ int testing_zgeqrf_qdwh(int argc, char **argv)
int MxM = M * M;
int LDA = 2*M;
double eps;
int info_ortho, info_solution, info_factorization;
int i, j;
int info_ortho, info_factorization;
/**
* Compute A = QR with
......@@ -169,7 +168,6 @@ check_orthogonality( int M, int N,
double alpha, beta;
double normQ;
int info_ortho;
int i;
int minMN = min(M, N);
double *work = (double *)malloc(minMN*sizeof(double));
......@@ -219,13 +217,11 @@ check_factorization(int M, int N,
double eps )
{
double Anorm, Rnorm;
MORSE_Complex64_t alpha, beta;
MORSE_Complex64_t alpha;
int info_factorization;
int i,j;
double *work = (double *)malloc(max(M,N)*sizeof(double));
alpha = 1.0;
beta = 0.0;
if (M >= N) {
/* Perform Q = Q * R */
......
......@@ -260,7 +260,6 @@ static int check_reduction(int M, int N, double *S, MORSE_Complex64_t *A, int LD
{
MORSE_Complex64_t zone = 1.0;
MORSE_Complex64_t mzone = -1.0;
MORSE_Complex64_t zzero = 0.0;
double Anorm, Rnorm, result;
int info_reduction;
int i;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment