From bfcf8ea8675aa86e94b436490670735d1f3c9dab Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 24 Jan 2018 09:57:43 +0100
Subject: [PATCH] Remove unused macro
---
control/compute_z.h | 27 ---------------------------
1 file changed, 27 deletions(-)
diff --git a/control/compute_z.h b/control/compute_z.h
index 5ea23598d..617fbff47 100644
--- a/control/compute_z.h
+++ b/control/compute_z.h
@@ -54,33 +54,6 @@
return MORSE_ERR_OUT_OF_RESOURCES; \
}
-#define morse_zooplap2tile( descA, A, mb, nb, lm, ln, i, j, m, n, seq, req, free) \
- descA = morse_desc_init( \
- MorseComplexDouble, (mb), (nb), ((mb)*(nb)), \
- (lm), (ln), (i), (j), (m), (n), 1, 1); \
- if ( morse_desc_mat_alloc( &(descA) ) ) { \
- morse_error( __func__, "morse_desc_mat_alloc() failed"); \
- {free;}; \
- return MORSE_ERR_OUT_OF_RESOURCES; \
- } \
- morse_pzlapack_to_tile(A, lm, &descA, seq, req);
-
-#define morse_ziplap2tile( descA, A, mb, nb, lm, ln, i, j, m, n, seq, req) \
- descA = morse_desc_init( \
- MorseComplexDouble, (mb), (nb), ((mb)*(nb)), \
- (lm), (ln), (i), (j), (m), (n), 1, 1); \
- descA.mat = A; \
- MORSE_zgecfi_Async((lm), (ln), (A), MorseCM, (mb), (nb), \
- MorseCCRB, (mb), (nb), (seq), (req));
-
-
-#define morse_zooptile2lap( descA, A, mb, nb, lm, ln, seq, req) \
- morse_pztile_to_lapack(&descA, A, lm, seq, req);
-
-#define morse_ziptile2lap( descA, A, mb, nb, lm, ln, seq, req) \
- MORSE_zgecfi_Async((lm), (ln), (A), MorseCCRB, (mb), (nb), \
- MorseCM, (mb), (nb), (seq), (req));
-
/***************************************************************************//**
* Declarations of internal sequential functions
**/
--
GitLab