Commit 7e9a4834 authored by Rabab Alomairy's avatar Rabab Alomairy

make lapack translation local

parent 1f7eae91
......@@ -77,8 +77,8 @@ int MORSE_zLapack_to_Tile( MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A )
/* Create the B descriptor to handle the Lapack format matrix */
MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, A->p, A->q,
morse_getaddr_cm, morse_getblkldd_cm, morse_getrankof_2d );
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL);
/* Start the computation */
morse_sequence_create( morse, &sequence );
......@@ -154,8 +154,8 @@ int MORSE_zTile_to_Lapack( MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA )
/* Create the B descriptor to handle the Lapack format matrix */
MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, A->p, A->q,
morse_getaddr_cm, morse_getblkldd_cm, morse_getrankof_2d );
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL );
/* Start the computation */
morse_sequence_create( morse, &sequence );
......
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