Skip to content

GitLab

Mise à jour terminée. Pour connaître les apports de la version 13.10.3 par rapport à notre ancienne version vous pouvez lire les "Release Notes" suivantes :
https://about.gitlab.com/releases/2021/03/22/gitlab-13-10-released/
https://about.gitlab.com/releases/2021/03/31/security-release-gitlab-13-10-1-released/
https://about.gitlab.com/releases/2021/04/01/gitlab-13-10-2-released/
https://about.gitlab.com/releases/2021/04/14/security-release-gitlab-13-10-3-released/

Commit 06546b16 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files
Options

Use uplo when possible

parent 3ef551c6
Hide whitespace changes
Inline Side-by-side
Showing with 74 additions and 74 deletions
compute/zbuild.c
View file @ 06546b16
......@@ -135,7 +135,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zheevd.c
View file @ 06546b16
......@@ -153,7 +153,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -161,7 +161,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zhemm.c
View file @ 06546b16
......@@ -176,11 +176,11 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -188,7 +188,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zher2k.c
View file @ 06546b16
......@@ -181,11 +181,11 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -193,7 +193,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zherk.c
View file @ 06546b16
......@@ -166,9 +166,9 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -176,7 +176,7 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zhetrd.c
View file @ 06546b16
......@@ -167,7 +167,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -175,7 +175,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zlacpy.c
View file @ 06546b16
......@@ -132,9 +132,9 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -142,7 +142,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zlanhe.c
View file @ 06546b16
......@@ -135,7 +135,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -143,7 +143,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zlansy.c
View file @ 06546b16
......@@ -135,7 +135,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......
compute/zlantr.c
View file @ 06546b16
......@@ -155,7 +155,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......
compute/zlascal.c
View file @ 06546b16
......@@ -114,7 +114,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -122,7 +122,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
RUNTIME_sequence_wait(morse, sequence);
morse_ztile2lap_cleanup( morse, &descAl, &descAt );
......
compute/zlaset.c
View file @ 06546b16
......@@ -128,7 +128,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......
compute/zlauum.c
View file @ 06546b16
......@@ -122,7 +122,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -130,7 +130,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zposv.c
View file @ 06546b16
......@@ -151,9 +151,9 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -161,9 +161,9 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zpotri.c
View file @ 06546b16
......@@ -119,7 +119,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -127,7 +127,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zpotrimm.c
View file @ 06546b16
......@@ -131,11 +131,11 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -143,11 +143,11 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zpotrs.c
View file @ 06546b16
......@@ -135,9 +135,9 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -145,7 +145,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsymm.c
View file @ 06546b16
......@@ -176,11 +176,11 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -188,7 +188,7 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsyr2k.c
View file @ 06546b16
......@@ -181,11 +181,11 @@ int MORSE_zsyr2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -193,7 +193,7 @@ int MORSE_zsyr2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsyrk.c
View file @ 06546b16
......@@ -166,9 +166,9 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -176,7 +176,7 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsysv.c
View file @ 06546b16
......@@ -148,9 +148,9 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -158,9 +158,9 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsytrf.c
View file @ 06546b16
......@@ -123,7 +123,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -131,7 +131,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/zsytrs.c
View file @ 06546b16
......@@ -134,9 +134,9 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -144,7 +144,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/ztradd.c
View file @ 06546b16
......@@ -165,9 +165,9 @@ int MORSE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -175,7 +175,7 @@ int MORSE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/ztrmm.c
View file @ 06546b16
......@@ -179,9 +179,9 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, NA, NA, NA, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -189,7 +189,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/ztrsm.c
View file @ 06546b16
......@@ -177,9 +177,9 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, NA, NA, NA, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -187,7 +187,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
compute/ztrtri.c
View file @ 06546b16
......@@ -131,7 +131,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -139,7 +139,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
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