Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 632a418e authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

runtime/desc_ipiv: fix pivot rows dimension that should be n and not minmn

parent cb613897
No related branches found
No related tags found
1 merge request!404GETRF: add panel permutation to get a full partial pivoting available
......@@ -121,7 +121,7 @@ void *RUNTIME_nextpiv_getaddr( const CHAM_ipiv_t *ipiv, int m, int h )
const CHAM_desc_t *A = ipiv->desc;
int owner = A->get_rankof( A, m, m );
int ncols = (mm == (ipiv->mt-1)) ? ipiv->m - mm * ipiv->mb : ipiv->mb;
int ncols = (mm == (A->nt-1)) ? A->n - mm * A->nb : A->nb;
int64_t tag = ipiv->mpitag_nextpiv + mm;
cppi_register( nextpiv, A->dtyp, ncols, tag, owner );
......@@ -144,7 +144,7 @@ void *RUNTIME_prevpiv_getaddr( const CHAM_ipiv_t *ipiv, int m, int h )
const CHAM_desc_t *A = ipiv->desc;
int owner = A->get_rankof( A, m, m );
int ncols = (mm == (ipiv->mt-1)) ? ipiv->m - mm * ipiv->mb : ipiv->mb;
int ncols = (mm == (A->nt-1)) ? A->n - mm * A->nb : A->nb;
int64_t tag = ipiv->mpitag_prevpiv + mm;
cppi_register( prevpiv, A->dtyp, ncols, tag, owner );
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment