diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c index e4a9195e0a3e625eee9a8ca70f222baf9f1facbd..404c7d3f5fe475b43eacf7cadf9f3fa2dde05413 100644 --- a/testing/testing_zlange.c +++ b/testing/testing_zlange.c @@ -123,6 +123,7 @@ testing_zlange_std( run_arg_list_t *args, int check ) int seedA = run_arg_get_int( args, "seedA", random() ); /* Descriptors */ + double norm; CHAMELEON_Complex64_t *A; CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb ); @@ -135,14 +136,13 @@ testing_zlange_std( run_arg_list_t *args, int check ) /* Calculates the norm */ testing_start( &test_data ); - CHAMELEON_zlange( norm_type, M, N, A, LDA ); + norm = CHAMELEON_zlange( norm_type, M, N, A, LDA ); test_data.hres = hres; testing_stop( &test_data, flops_zlange( norm_type, M, N ) ); /* Checks the solution */ if ( check ) { - // hres = check_znorm( args, ChamGeneral, norm_type, ChamUpperLower, - // ChamNonUnit, norm, descA ); + hres = check_znorm_std( ChamGeneral, norm_type, ChamUpperLower, ChamNonUnit, norm, M, N, A, LDA ); } free( A ); diff --git a/testing/testing_zlanhe.c b/testing/testing_zlanhe.c index 0af08b67b93ae8fb4fc73a96d3c2c1b4dfc18272..a761f5a0c7e19be5486a9973eee6bd8ef99af4c8 100644 --- a/testing/testing_zlanhe.c +++ b/testing/testing_zlanhe.c @@ -123,6 +123,7 @@ testing_zlanhe_std( run_arg_list_t *args, int check ) double bump = testing_dalea(); /* Descriptors */ + double norm; CHAMELEON_Complex64_t *A; bump = run_arg_get_complex64( args, "bump", bump ); @@ -137,13 +138,13 @@ testing_zlanhe_std( run_arg_list_t *args, int check ) /* Calculates the norm */ testing_start( &test_data ); - CHAMELEON_zlanhe( norm_type, uplo, N, A, LDA ); + norm = CHAMELEON_zlanhe( norm_type, uplo, N, A, LDA ); test_data.hres = hres; testing_stop( &test_data, flops_zlanhe( norm_type, N ) ); /* Checks the solution */ if ( check ) { - // hres = check_znorm( args, ChamHermitian, norm_type, uplo, ChamNonUnit, norm, descA ); + hres = check_znorm_std( ChamHermitian, norm_type, uplo, ChamNonUnit, norm, N, N, A, LDA ); } free( A ); diff --git a/testing/testing_zlansy.c b/testing/testing_zlansy.c index 03f6255e0af81b199a0ce9aa7a7c58de52d5cbd8..aaef481f2b93404ae2f5b726ec5ded3214ac1c26 100644 --- a/testing/testing_zlansy.c +++ b/testing/testing_zlansy.c @@ -123,6 +123,7 @@ testing_zlansy_std( run_arg_list_t *args, int check ) CHAMELEON_Complex64_t bump = testing_zalea(); /* Descriptors */ + double norm; CHAMELEON_Complex64_t *A; bump = run_arg_get_complex64( args, "bump", bump ); @@ -137,13 +138,13 @@ testing_zlansy_std( run_arg_list_t *args, int check ) /* Calculates the norm */ testing_start( &test_data ); - CHAMELEON_zlansy( norm_type, uplo, N, A, LDA ); + norm = CHAMELEON_zlansy( norm_type, uplo, N, A, LDA ); test_data.hres = hres; testing_stop( &test_data, flops_zlansy( norm_type, N ) ); /* Checks the solution */ if ( check ) { - // hres = check_znorm( args, ChamSymmetric, norm_type, uplo, ChamNonUnit, norm, descA ); + hres = check_znorm_std( ChamSymmetric, norm_type, uplo, ChamNonUnit, norm, N, N, A, LDA ); } free( A ); diff --git a/testing/testing_zlantr.c b/testing/testing_zlantr.c index 2d8d297627a7f539c26d36c8b7cecd69dc63ed68..ce6ce9e7f80b930bf5c085b9c695046bbe10e5b6 100644 --- a/testing/testing_zlantr.c +++ b/testing/testing_zlantr.c @@ -146,6 +146,7 @@ testing_zlantr_std( run_arg_list_t *args, int check ) int seedA = run_arg_get_int( args, "seedA", random() ); /* Descriptors */ + double norm; CHAMELEON_Complex64_t *A; CHAMELEON_Set( CHAMELEON_TILE_SIZE, nb ); @@ -158,13 +159,13 @@ testing_zlantr_std( run_arg_list_t *args, int check ) /* Calculates the norm */ testing_start( &test_data ); - CHAMELEON_zlantr( norm_type, uplo, diag, M, N, A, LDA ); + norm = CHAMELEON_zlantr( norm_type, uplo, diag, M, N, A, LDA ); test_data.hres = hres; testing_stop( &test_data, flops_zlantr( norm_type, uplo, M, N ) ); /* Checks the solution */ if ( check ) { - // hres = check_znorm( args, ChamTriangular, norm_type, uplo, diag, norm, descA ); + hres = check_znorm_std( ChamTriangular, norm_type, uplo, diag, norm, M, N, A, LDA ); } free( A );