Commit 9f07583e authored by Mathieu Faverge's avatar Mathieu Faverge

Add in,out,inout mode to descriptor to avoid useless layout conversions

parent 06546b16
......@@ -127,7 +127,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescOutput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -135,7 +135,7 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
uplo, sequence, &request );
MorseDescOutput, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -155,17 +155,19 @@ int MORSE_zgeadd(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, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
MORSE_zgeadd_Tile_Async( trans, alpha, &descAt, beta, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -123,7 +123,7 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -131,7 +131,7 @@ int MORSE_zgelqf(int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -120,7 +120,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -128,7 +128,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -139,9 +139,9 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -149,9 +149,9 @@ int MORSE_zgelqs(int M, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -141,9 +141,9 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -151,9 +151,9 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -174,15 +174,15 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* Submit the matrix conversion */
if ( M >= N ) {
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
} else {
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
}
......@@ -191,9 +191,9 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -176,14 +176,14 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
/* Submit the matrix conversion */
if ( M >= N ) {
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
} else {
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
}
......@@ -192,9 +192,9 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -213,19 +213,23 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInput, MorseUpperLower,
B, NB, NB, LDB, Bn, Bm, Bn, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
morse_zlap2tile( morse, &descCl, &descCt, MorseDescInout, MorseUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
MORSE_zgemm_Tile_Async( transA, transB, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -122,7 +122,7 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -130,7 +130,7 @@ int MORSE_zgeqrf(int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -125,7 +125,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -133,7 +133,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -139,9 +139,9 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -149,9 +149,9 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -134,9 +134,9 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -144,9 +144,9 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -138,9 +138,9 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -148,9 +148,9 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -137,9 +137,9 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
......@@ -147,9 +147,9 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -215,7 +215,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -223,7 +223,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -124,7 +124,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -132,7 +132,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -117,7 +117,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
......@@ -125,7 +125,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -144,17 +144,19 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
MORSE_zgetrs_incpiv_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -138,17 +138,19 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
MORSE_zgetrs_nopiv_Tile_Async( &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, 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,
uplo, sequence, &request );
MorseDescInout, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -176,19 +176,23 @@ 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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, uplo,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, uplo,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInput, MorseUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, uplo,
morse_zlap2tile( morse, &descCl, &descCt, MorseDescInout, MorseUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
MORSE_zhemm_Tile_Async( side, uplo, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, uplo, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
uplo, sequence, &request );
MorseDescInout, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -181,19 +181,23 @@ 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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, uplo,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInput, MorseUpperLower,
B, NB, NB, LDB, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, uplo,
morse_zlap2tile( morse, &descCl, &descCt, MorseDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
MORSE_zher2k_Tile_Async( uplo, trans, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
uplo, sequence, &request );
MorseDescInout, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -166,17 +166,19 @@ 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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, uplo,
morse_zlap2tile( morse, &descCl, &descCt, MorseDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
MORSE_zherk_Tile_Async( uplo, trans, alpha, &descAt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descCl, &descCt,
uplo, sequence, &request );
MorseDescInout, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, 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,
uplo, sequence, &request );
MorseDescInout, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -132,17 +132,19 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, uplo,
morse_zlap2tile( morse, &descBl, &descBt, MorseDescInout, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
MORSE_zlacpy_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, uplo, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
uplo, sequence, &request );
MorseDescInout, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -135,7 +135,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -143,7 +143,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
MorseDescInput, MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, 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,
uplo, sequence, &request );
MorseDescInput, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -135,13 +135,15 @@ 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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
MORSE_zlansy_Tile_Async( norm, uplo, &descAt, &value, sequence, &request );
/* Submit the matrix conversion */
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -155,13 +155,15 @@ 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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
MORSE_zlantr_Tile_Async( norm, uplo, diag, &descAt, &value, sequence, &request );
/* Submit the matrix conversion */
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseDescInput, uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
......
......@@ -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, uplo,
morse_zlap2tile( morse, &descAl, &descAt, MorseDescInout, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
......@@ -122,8 +122,11 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,