Commit a081dad9 authored by PRUVOST Florent's avatar PRUVOST Florent

was causing error if not all precision

parent 53b249bb
......@@ -68,21 +68,29 @@ int MORSE_Lapack_to_Tile(void *Af77, int LDA, MORSE_desc_t *A)
}
morse_sequence_create(morse, &sequence);
switch( A->dtyp ) {
#if defined(PRECISION_s)
case MorseRealFloat:
morse_pslapack_to_tile(Af77, LDA, A, sequence, &request);
break;
#endif
#if defined(PRECISION_d)
case MorseRealDouble:
morse_pdlapack_to_tile(Af77, LDA, A, sequence, &request);
break;
#endif
#if defined(PRECISION_c)
case MorseComplexFloat:
morse_pclapack_to_tile(Af77, LDA, A, sequence, &request);
break;
#endif
#if defined(PRECISION_z)
case MorseComplexDouble:
morse_pzlapack_to_tile(Af77, LDA, A, sequence, &request);
break;
#endif
default:
morse_error("MORSE_Lapack_to_Tile", "Type unknown");
......@@ -135,21 +143,29 @@ int MORSE_Tile_to_Lapack(MORSE_desc_t *A, void *Af77, int LDA)
}
morse_sequence_create(morse, &sequence);
switch( A->dtyp ) {
#if defined(PRECISION_s)
case MorseRealFloat:
morse_pstile_to_lapack(A, Af77, LDA, sequence, &request);
break;
#endif
#if defined(PRECISION_d)
case MorseRealDouble:
morse_pdtile_to_lapack(A, Af77, LDA, sequence, &request);
break;
#endif
#if defined(PRECISION_c)
case MorseComplexFloat:
morse_pctile_to_lapack(A, Af77, LDA, sequence, &request);
break;
#endif
#if defined(PRECISION_z)
case MorseComplexDouble:
morse_pztile_to_lapack(A, Af77, LDA, sequence, &request);
break;
#endif
default:
morse_error("MORSE_Tile_to_Lapack", "Type unknown");
......
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