Commit 29dd8a2e authored by BOUCHERIE Raphael's avatar BOUCHERIE Raphael

fixed issue with malloc of tiles

parent 098cae71
......@@ -87,8 +87,8 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_de
/* Initialisation of tiles */
tiles = (int*)malloc((qrtree->nt)*sizeof(int));
memset( tiles, 0, (qrtree->nt)*sizeof(int) );
tiles = (int*)malloc((qrtree->mt)*sizeof(int));
memset( tiles, 0, (qrtree->mt)*sizeof(int) );
ws_worker *= sizeof(MORSE_Complex64_t);
ws_host *= sizeof(MORSE_Complex64_t);
......
......@@ -137,6 +137,7 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
else {
for (m = k; m < Q->mt; m++) {
tempmm = m == Q->mt-1 ? Q->m-m*Q->mb : Q->mb;
ldqm = BLKLDD(Q, m);
MORSE_TASK_zttmlq(
&options,
MorseRight, MorseNoTrans,
......
......@@ -81,8 +81,8 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
#endif
/* Initialisation of tiles */
tiles = (int*)malloc((qrtree->nt)*sizeof(int));
memset( tiles, 0, (qrtree->nt)*sizeof(int) );
tiles = (int*)malloc((qrtree->mt)*sizeof(int));
memset( tiles, 0, (qrtree->mt)*sizeof(int) );
ws_worker *= sizeof(MORSE_Complex64_t);
ws_host *= sizeof(MORSE_Complex64_t);
......
Markdown is supported
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