Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 05705d38 authored by Mathieu Faverge's avatar Mathieu Faverge Committed by BOUCHERIE Raphael
Browse files

Fix D matrix sizes

parent d52bbacf
No related branches found
No related tags found
1 merge request!47Integration of hierarchicah householder reduction trees
Hide whitespace changes
Inline Side-by-side
compute/zgelqf_param.c
+ 11
− 6
View file @ 05705d38
...@@ -238,7 +238,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -238,7 +238,7 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -283,12 +283,17 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -283,12 +283,17 @@ int MORSE_zgelqf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_SUCCESS; return MORSE_SUCCESS;
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzgelqf_param(qrtree, A, TS, TT, &D, sequence, request); int m = chameleon_min(A->mt, A->nt) * A->mb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
#else Dptr = &D;
morse_pzgelqf_param(qrtree, A, TS, TT, NULL, sequence, request); }
#endif #endif
morse_pzgelqf_param(qrtree, A, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zgelqs_param.c
+ 10
− 6
View file @ 05705d38
...@@ -271,7 +271,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -271,7 +271,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_desc_t *subB; MORSE_desc_t *subB;
MORSE_desc_t *subA; MORSE_desc_t *subA;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -331,13 +331,17 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -331,13 +331,17 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
free(subB); free(subB);
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, &D, sequence, request); int m = chameleon_min(A->mt, A->nt) * A->mb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
#else Dptr = &D;
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, NULL, sequence, request); }
#endif #endif
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zgels_param.c
+ 64
− 66
View file @ 05705d38
...@@ -173,45 +173,45 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int ...@@ -173,45 +173,45 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
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_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) ); morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS, sequence, &request, 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_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
/* } 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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/ /* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,*/
/* sequence, &request);*/ /* sequence, &request);*/
/* }*/ /* }*/
} 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_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N, sequence, &request,
morse_desc_mat_free(&(descA)) ); morse_desc_mat_free(&(descA)) );
morse_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS, sequence, &request, 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_desc_mat_free(&(descA)); morse_desc_mat_free(&(descB)));
/* } 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);*/
/* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/ /* morse_ziplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,*/
/* sequence, &request);*/ /* sequence, &request);*/
/* }*/ /* }*/
} }
/* Call the tile interface */ /* Call the tile interface */
MORSE_zgels_param_Tile_Async(qrtree, MorseNoTrans, &descA, descTS, descTT, &descB, sequence, &request); MORSE_zgels_param_Tile_Async(qrtree, MorseNoTrans, &descA, descTS, descTT, &descB, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_sequence_wait(morse, sequence); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* morse_sequence_wait(morse, sequence);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
...@@ -335,7 +335,7 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans, ...@@ -335,7 +335,7 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
MORSE_desc_t *subA; MORSE_desc_t *subA;
MORSE_desc_t *subB; MORSE_desc_t *subB;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -383,55 +383,53 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans, ...@@ -383,55 +383,53 @@ int MORSE_zgels_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum trans,
return morse_request_fail(sequence, request, MORSE_ERR_NOT_SUPPORTED); return morse_request_fail(sequence, request, MORSE_ERR_NOT_SUPPORTED);
} }
/* Quick return - currently NOT equivalent to LAPACK's: /* Quick return - currently NOT equivalent to LAPACK's:
if (chameleon_min(M, chameleon_min(N, NRHS)) == 0) { if (chameleon_min(M, chameleon_min(N, NRHS)) == 0) {
for (i = 0; i < chameleon_max(M, N); i++) for (i = 0; i < chameleon_max(M, N); i++)
for (j = 0; j < NRHS; j++) for (j = 0; j < NRHS; j++)
B[j*LDB+i] = 0.0; B[j*LDB+i] = 0.0;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
*/ */
if (A->m >= A->n) { if (A->m >= A->n) {
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzgeqrf_param(qrtree, A, TS, TT, &D, sequence, request); int n = chameleon_min(A->mt, A->nt) * A->nb;
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, &D, sequence, request); morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
morse_desc_mat_free(&D); Dptr = &D;
#else }
morse_pzgeqrf_param(qrtree, A, TS, TT, NULL, sequence, request);
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, NULL, sequence, request);
#endif #endif
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n); subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, sequence, request);
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request); morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
free(subA);
free(subB);
} }
else { else {
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzgelqf_param(qrtree, A, TS, TT, &D, sequence, request); int m = chameleon_min(A->mt, A->nt) * A->mb;
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n); morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); Dptr = &D;
morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request); }
free(subA); #endif
free(subB);
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, &D, sequence, request);
morse_desc_mat_free(&D);
#else
morse_pzgelqf_param(qrtree, A, TS, TT, NULL, sequence, request);
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->m, A->m); subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
free(subA);
free(subB);
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, NULL, sequence, request);
#endif
morse_pzgelqf_param(qrtree, A, TS, TT, Dptr, sequence, request);
morse_pztrsm(MorseLeft, MorseLower, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
morse_pzunmlq_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
} }
free(subA);
free(subB);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zgeqrf_param.c
+ 12
− 6
View file @ 05705d38
...@@ -247,7 +247,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -247,7 +247,7 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -292,12 +292,18 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -292,12 +292,18 @@ int MORSE_zgeqrf_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_SUCCESS; return MORSE_SUCCESS;
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzgeqrf_param(qrtree, A, TS, TT, &D, sequence, request); int n = chameleon_min(A->mt, A->nt) * A->nb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
#else Dptr = &D;
morse_pzgeqrf_param(qrtree, A, TS, TT, NULL, sequence, request); }
#endif #endif
morse_pzgeqrf_param(qrtree, A, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zgeqrs_param.c
+ 13
− 6
View file @ 05705d38
...@@ -263,7 +263,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree, ...@@ -263,7 +263,7 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
MORSE_desc_t *subA; MORSE_desc_t *subA;
MORSE_desc_t *subB; MORSE_desc_t *subB;
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -313,18 +313,25 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree, ...@@ -313,18 +313,25 @@ int MORSE_zgeqrs_param_Tile_Async(const libhqr_tree_t *qrtree,
} }
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, &D, sequence, request); int n = chameleon_min(A->mt, A->nt) * A->nb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
#else Dptr = &D;
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, NULL, sequence, request); }
#endif #endif
subB = morse_desc_submatrix(B, 0, 0, A->n, B->n); subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
subA = morse_desc_submatrix(A, 0, 0, A->n, A->n); subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
morse_pzunmqr_param(qrtree, MorseLeft, MorseConjTrans, A, B, TS, TT, Dptr, sequence, request);
morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request); morse_pztrsm(MorseLeft, MorseUpper, MorseNoTrans, MorseNonUnit, 1.0, subA, subB, sequence, request);
free(subA); free(subA);
free(subB); free(subB);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zunglq_param.c
+ 13
− 8
View file @ 05705d38
...@@ -254,7 +254,7 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -254,7 +254,7 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -304,14 +304,19 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -304,14 +304,19 @@ int MORSE_zunglq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
return MORSE_SUCCESS; return MORSE_SUCCESS;
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request); int m = chameleon_min(A->mt, A->nt) * A->mb;
morse_pzunglq_param(qrtree, A, Q, TS, TT, &D, sequence, request); morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
morse_desc_mat_free(&D); Dptr = &D;
#else }
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
morse_pzunglq_param(qrtree, A, Q, TS, TT, NULL, sequence, request);
#endif #endif
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
morse_pzunglq_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zungqr_param.c
+ 14
− 9
View file @ 05705d38
...@@ -254,7 +254,7 @@ int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_ ...@@ -254,7 +254,7 @@ int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q, MORSE_sequence_t *sequence, MORSE_request_t *request) int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_desc_t *TS, MORSE_desc_t *TT, MORSE_desc_t *Q, MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
morse_fatal_error("MORSE_zungqr_param_Tile", "MORSE not initialized"); morse_fatal_error("MORSE_zungqr_param_Tile", "MORSE not initialized");
...@@ -300,16 +300,21 @@ int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -300,16 +300,21 @@ int MORSE_zungqr_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
/* /*
if (N <= 0) if (N <= 0)
return MORSE_SUCCESS; return MORSE_SUCCESS;
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request); int n = chameleon_min(A->mt, A->nt) * A->nb;
morse_pzungqr_param(qrtree, A, Q, TS, TT, &D, sequence, request); morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
morse_desc_mat_free(&D); Dptr = &D;
#else }
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
morse_pzungqr_param(qrtree, A, Q, TS, TT, NULL, sequence, request);
#endif #endif
morse_pzlaset(MorseUpperLower, 0., 1., Q, sequence, request);
morse_pzungqr_param(qrtree, A, Q, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zunmlq_param.c
+ 12
− 6
View file @ 05705d38
...@@ -310,7 +310,7 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side, ...@@ -310,7 +310,7 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -367,12 +367,18 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side, ...@@ -367,12 +367,18 @@ int MORSE_zunmlq_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_enum side,
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzunmlq_param(qrtree, side, trans, A, C, TS, TT, &D, sequence, request); int m = chameleon_min(A->mt, A->nt) * A->mb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
#else Dptr = &D;
morse_pzunmlq_param(qrtree, side, trans, A, C, TS, TT, NULL, sequence, request); }
#endif #endif
morse_pzunmlq_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
compute/zunmqr_param.c
+ 12
− 6
View file @ 05705d38
...@@ -317,7 +317,7 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree, ...@@ -317,7 +317,7 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree,
MORSE_sequence_t *sequence, MORSE_request_t *request) MORSE_sequence_t *sequence, MORSE_request_t *request)
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_desc_t D; MORSE_desc_t D, *Dptr = NULL;
morse = morse_context_self(); morse = morse_context_self();
if (morse == NULL) { if (morse == NULL) {
...@@ -374,12 +374,18 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree, ...@@ -374,12 +374,18 @@ int MORSE_zunmqr_param_Tile_Async(const libhqr_tree_t *qrtree,
*/ */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
morse_zdesc_alloc(D, A->mb, A->nb, A->m, chameleon_min(A->m, A->n), 0, 0, A->m, chameleon_min(A->m, A->n), ); {
morse_pzunmqr_param(qrtree, side, trans, A, C, TS, TT, &D, sequence, request); int n = chameleon_min(A->mt, A->nt) * A->nb;
morse_desc_mat_free(&D); morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
#else Dptr = &D;
morse_pzunmqr_param(qrtree, side, trans, A, C, TS, TT, NULL, sequence, request); }
#endif #endif
morse_pzunmqr_param(qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request);
if (Dptr != NULL) {
morse_desc_mat_free(Dptr);
}
(void)D; (void)D;
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment