Commit 8919ad8c authored by PRUVOST Florent's avatar PRUVOST Florent

it is not a multiple precision file, PRECISION_s/d/c/z will never be defined

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