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