From e73ebd4fb3467355cdb177e72f444875f1fd9a23 Mon Sep 17 00:00:00 2001
From: Thomas Mijieux <thomas.mijieux@inria.fr>
Date: Tue, 30 May 2017 14:12:10 +0200
Subject: [PATCH] Fix #30. Incorrect descriptor initialization for Lapack
matrix.
---
compute/pztile.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compute/pztile.c b/compute/pztile.c
index 4f94eebb8..73464b8ba 100644
--- a/compute/pztile.c
+++ b/compute/pztile.c
@@ -49,7 +49,7 @@ void morse_pzlapack_to_tile(MORSE_Complex64_t *Af77, int lda, MORSE_desc_t *dA,
dB = morse_desc_init(
MorseComplexDouble, dA->mb, dA->nb, dA->bsiz,
- lda, dA->n, dA->i, dA->j, dA->m, dA->n, 1, 1);
+ lda, dA->n, 0, 0, dA->m, dA->n, 1, 1);
dB.get_blkaddr = morse_getaddr_cm;
dB.get_blkldd = morse_getblkldd_cm;
@@ -104,7 +104,7 @@ void morse_pztile_to_lapack(MORSE_desc_t *dA, MORSE_Complex64_t *Af77, int lda,
dB = morse_desc_init(
MorseComplexDouble, dA->mb, dA->nb, dA->bsiz,
- lda, dA->n, dA->i, dA->j, dA->m, dA->n, 1, 1);
+ lda, dA->n, 0, 0, dA->m, dA->n, 1, 1);
dB.get_blkaddr = morse_getaddr_cm;
dB.get_blkldd = morse_getblkldd_cm;
--
GitLab