timing_zauxiliary.h 2 KB
Newer Older
1
/**
2 3
 *
 * @file timing_zauxiliary.h
4
 *
Mathieu Faverge's avatar
Mathieu Faverge committed
5 6
 * @copyright 2009-2014 The University of Tennessee and The University of
 *                      Tennessee Research Foundation. All rights reserved.
7 8
 * @copyright 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
 *                      Univ. Bordeaux. All rights reserved.
9
 *
Mathieu Faverge's avatar
Mathieu Faverge committed
10
 ***
11
 *
Mathieu Faverge's avatar
Mathieu Faverge committed
12
 * @version 1.0.0
13 14
 * @precisions normal z -> c d s
 *
15
 */
16 17
#ifndef TIMING_ZAUXILIARY_H
#define TIMING_ZAUXILIARY_H
18

Mathieu Faverge's avatar
Mathieu Faverge committed
19 20 21 22 23 24 25 26
int    z_check_orthogonality   (int M, int N, int LDQ, CHAMELEON_Complex64_t *Q);
int    z_check_QRfactorization (int M, int N, CHAMELEON_Complex64_t *A1, CHAMELEON_Complex64_t *A2, int LDA, CHAMELEON_Complex64_t *Q);
int    z_check_LLTfactorization(int N, CHAMELEON_Complex64_t *A1, CHAMELEON_Complex64_t *A2, int LDA, cham_uplo_t uplo);
double z_check_gemm(cham_trans_t transA, cham_trans_t transB, int M, int N, int K,
                   CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
                   CHAMELEON_Complex64_t *B, int LDB,
                   CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cmorse,
                   CHAMELEON_Complex64_t *Cref, int LDC,
27 28
                   double *Cinitnorm, double *Cmorsenorm, double *Clapacknorm );

Mathieu Faverge's avatar
Mathieu Faverge committed
29 30 31 32
double z_check_trsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
           int M, int NRHS, CHAMELEON_Complex64_t alpha,
           CHAMELEON_Complex64_t *A, int LDA,
           CHAMELEON_Complex64_t *Bmorse, CHAMELEON_Complex64_t *Bref, int LDB,
33 34 35
           double *Binitnorm, double *Bmorsenorm, double *Blapacknorm );

double z_check_solution(int M, int N, int NRHS,
Mathieu Faverge's avatar
Mathieu Faverge committed
36 37
                      CHAMELEON_Complex64_t *A1, int LDA,
                      CHAMELEON_Complex64_t *B1, CHAMELEON_Complex64_t *B2, int LDB,
38 39
                      double *anorm, double *bnorm, double *xnorm);

Mathieu Faverge's avatar
Mathieu Faverge committed
40 41
int zcheck_inverse(int N, CHAMELEON_Complex64_t *A1, CHAMELEON_Complex64_t *A2,
                         int LDA, cham_uplo_t uplo, double *rnorm, double *anorm, double *ainvnorm);
42 43


44
#endif /* TIMING_ZAUXILIARY_H */