diff --git a/control/compute_z.h b/control/compute_z.h
index 5ea23598df07fb7327a18a1613fcb5c5bbaac182..617fbff4740188ef2c5d1494d8495e817bc2b362 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
  **/