Skip to content

Chameleon
Chameleon
Commit 4fd458c7 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files
Options

Keep converting the lapack interface function

parent 03b4a34f
Hide whitespace changes
Inline Side-by-side
Showing with 138 additions and 731 deletions
compute/zgeadd.c
View file @ 4fd458c7
......@@ -153,32 +153,21 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
/* Submit the matrix conversion */
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); */
/* morse_ziplap2tile( descB, B, NB, NB, LDB, N, 0, 0, M, N, */
/* sequence, &request); */
/* } */
/* Call the tile interface */
MORSE_zgeadd_Tile_Async(
trans, alpha, &descA, beta, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
/* Submit the matrix conversion */
morse_zooptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else { */
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request); */
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request); */
/* morse_dynamic_sync(); */
/* } */
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgelqf.c
View file @ 4fd458c7
......@@ -122,25 +122,17 @@ int MORSE_zgelqf(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqf_Tile_Async(&descA, descT, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgelqf_param.c
View file @ 4fd458c7
......@@ -119,25 +119,17 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgelqs.c
View file @ 4fd458c7
......@@ -137,32 +137,21 @@ int MORSE_zgelqs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqs_Tile_Async(&descA, descT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgelqs_param.c
View file @ 4fd458c7
......@@ -139,32 +139,21 @@ 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 ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgelqs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgels.c
View file @ 4fd458c7
......@@ -171,47 +171,30 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
if ( M >= N ) {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
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 {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Submit the matrix conversion */
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 );
}
/* Call the tile interface */
MORSE_zgels_Tile_Async(MorseNoTrans, &descA, descT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......
compute/zgels_param.c
View file @ 4fd458c7
......@@ -173,46 +173,28 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
morse_sequence_create(morse, &sequence);
/* Submit the matrix conversion */
if ( M >= N ) {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
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 {
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
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 );
}
/* Call the tile interface */
MORSE_zgels_param_Tile_Async(qrtree, MorseNoTrans, &descA, descTS, descTT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgemm.c
View file @ 4fd458c7
......@@ -210,38 +210,24 @@ 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 ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, Bn, 0, 0, Bm, Bn, */
/* sequence, &request);*/
/* morse_ziplap2tile( descC, C, NB, NB, LDC, N, 0, 0, M, N, */
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgemm_Tile_Async(
transA, transB, alpha, &descA, &descB, beta, &descC, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, Bn, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
/* Submit the matrix conversion */
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgeqrf.c
View file @ 4fd458c7
......@@ -121,25 +121,17 @@ int MORSE_zgeqrf(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrf_Tile_Async(&descA, descT, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgeqrf_param.c
View file @ 4fd458c7
......@@ -124,25 +124,17 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgeqrs.c
View file @ 4fd458c7
......@@ -137,32 +137,21 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrs_Tile_Async(&descA, descT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgeqrs_param.c
View file @ 4fd458c7
......@@ -132,32 +132,21 @@ 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 ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgeqrs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgesv_incpiv.c
View file @ 4fd458c7
......@@ -136,32 +136,21 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgesv_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgesv_nopiv.c
View file @ 4fd458c7
......@@ -135,32 +135,21 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgesv_nopiv_Tile_Async(&descA, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgesvd.c
View file @ 4fd458c7
......@@ -214,25 +214,17 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
/* Submit the matrix conversion */
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); */
/* } */
/* Call the tile interface */
MORSE_zgesvd_Tile_Async(jobu, jobvt, &descA, S, descT, U, LDU, VT, LDVT, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) { */
/* Submit the matrix conversion */
morse_zooptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else { */
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request); */
/* morse_sequence_wait(morse, sequence); */
/* } */
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgetrf_incpiv.c
View file @ 4fd458c7
......@@ -123,25 +123,17 @@ int MORSE_zgetrf_incpiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrf_incpiv_Tile_Async(&descA, descL, IPIV, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgetrf_nopiv.c
View file @ 4fd458c7
......@@ -116,26 +116,17 @@ int MORSE_zgetrf_nopiv(int M, int N,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrf_nopiv_Tile_Async(&descA, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N,*/
/* sequence, &request );*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgetrs_incpiv.c
View file @ 4fd458c7
......@@ -142,31 +142,20 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrs_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zgetrs_nopiv.c
View file @ 4fd458c7
......@@ -136,31 +136,20 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
morse_sequence_create(morse, &sequence);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/
/* }*/
/* Call the tile interface */
MORSE_zgetrs_nopiv_Tile_Async(&descA, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
/* Submit the matrix conversion */
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/
/* }*/
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
compute/zheevd.c
View file @ 4fd458c7
......@@ -152,25 +152,17 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
morse_sequence_create(morse, &sequence);