From 8919ad8c84b19ccf9a1addf755ce4dd7b8a28f8a Mon Sep 17 00:00:00 2001
From: Florent Pruvost <florent.pruvost@inria.fr>
Date: Fri, 21 Nov 2014 10:35:24 +0000
Subject: [PATCH] it is not a multiple precision file, PRECISION_s/d/c/z will
never be defined
---
control/tile.c | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/control/tile.c b/control/tile.c
index 3f5c43bc0..7a79d5e05 100644
--- a/control/tile.c
+++ b/control/tile.c
@@ -68,29 +68,21 @@ 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");
@@ -143,29 +135,21 @@ 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");
--
GitLab