Commit 03b4a34f authored by Mathieu Faverge's avatar Mathieu Faverge

Replace all zooplap2tile by new zlap2tile

parent 8f7daef4
......@@ -154,10 +154,10 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request); */
......
......@@ -123,8 +123,8 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -120,8 +120,8 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -138,10 +138,10 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
......
......@@ -140,10 +140,10 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
......
......@@ -173,10 +173,10 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
if ( M >= N ) {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......@@ -185,10 +185,10 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* }*/
} else {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -175,10 +175,10 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
if ( M >= N ) {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......@@ -187,10 +187,10 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
/* }*/
} else {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -211,12 +211,12 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, Bn, 0, 0, Bm, Bn, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)); morse_desc_mat_free(&(descC)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, Bn, Bm, Bn, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
......
......@@ -122,8 +122,8 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -125,8 +125,8 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -138,10 +138,10 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
......
......@@ -133,10 +133,10 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request);*/
......
......@@ -137,10 +137,10 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -136,10 +136,10 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -215,8 +215,8 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, */
/* sequence, &request); */
......
......@@ -124,8 +124,8 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -117,9 +117,8 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,
sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -143,10 +143,10 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -137,10 +137,10 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -153,8 +153,8 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &requoest); */
......
......@@ -174,12 +174,12 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, Am, 0, 0, Am, Am, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)); morse_desc_mat_free(&(descC)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, Am, 0, 0, Am, Am,*/
/* sequence, &request);*/
......
......@@ -179,12 +179,12 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, An, 0, 0, Am, An, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)); morse_desc_mat_free(&(descC)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
......
......@@ -165,10 +165,10 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descC)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An, */
/* sequence, &request);*/
......
......@@ -167,8 +167,8 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else { */
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request); */
......
......@@ -131,10 +131,10 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -135,8 +135,8 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -135,8 +135,8 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -135,8 +135,8 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -155,8 +155,8 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -114,8 +114,8 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N , 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -128,8 +128,8 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,*/
/* sequence, &request);*/
......
......@@ -122,8 +122,8 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -150,10 +150,10 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -119,8 +119,8 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -129,12 +129,12 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)); morse_desc_mat_free(&(descC)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descCl, &descCt, MorseUpperLower,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,*/
/* sequence, &request);*/
......
......@@ -134,10 +134,10 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, sequence, &request,
morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request,
morse_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
morse_zlap2tile( morse, &descBl, &descBt, MorseUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* } else {*/
/* morse_ziplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N, */
/* sequence, &request);*/
......
......@@ -174,12 +174,12 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooplap2tile( descA, A, NB, NB, LDA, Am, 0, 0, Am, Am, sequence, &request,
morse_desc_mat_free(&(descA)) );