From abcb0f825ab3933ab9f26be694d7638ecdfe8440 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 21 Jan 2019 10:42:10 +0100
Subject: [PATCH] Fix matrix size for norm (Thanks @muxas)
---
compute/pzlange.c | 4 ++--
compute/pzlansy.c | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/compute/pzlange.c b/compute/pzlange.c
index 3f549b17c..ce1665743 100644
--- a/compute/pzlange.c
+++ b/compute/pzlange.c
@@ -436,7 +436,7 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
alpha = 1.;
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 2, 1, 2,
- workmt*2, workn, 0, 0, workmt*2, workn, A->p, A->q,
+ workmt*2, worknt, 0, 0, workmt*2, worknt, A->p, A->q,
NULL, NULL, NULL );
break;
@@ -448,7 +448,7 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
RUNTIME_options_ws_alloc( &options, 1, 0 );
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 1, 1, 1,
- workmt, workn, 0, 0, workmt, workn, A->p, A->q,
+ workmt, worknt, 0, 0, workmt, worknt, A->p, A->q,
NULL, NULL, NULL );
}
diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index b81041526..c6d0ba73e 100644
--- a/compute/pzlansy.c
+++ b/compute/pzlansy.c
@@ -353,7 +353,7 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
alpha = 1.;
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 2, 1, 2,
- workmt*2, workn, 0, 0, workmt*2, workn, A->p, A->q,
+ workmt*2, worknt, 0, 0, workmt*2, worknt, A->p, A->q,
NULL, NULL, NULL );
break;
@@ -365,7 +365,7 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
RUNTIME_options_ws_alloc( &options, 1, 0 );
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 1, 1, 1,
- workmt, workn, 0, 0, workmt, workn, A->p, A->q,
+ workmt, worknt, 0, 0, workmt, worknt, A->p, A->q,
NULL, NULL, NULL );
}
--
GitLab