Free tiles

compute/pzgelqfrh.c

@@ -30,8 +30,8 @@
  **/
 #include "control/common.h"
 
-#define A(m,n) A,  (m),  (n)
-#define T(m,n) T,  (m),  (n)
+#define A(m,n)  A,  (m),  (n)
+#define T(m,n)  T,  (m),  (n)
 #define T2(m,n) T,  (m),  (n)+A->nt
 #if defined(CHAMELEON_COPY_DIAG)
 #define DIAG(m,n) DIAG, ((n)/BS), 0

compute/pzunglq_param.c

@@ -168,6 +168,8 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_des
         }
         RUNTIME_iteration_pop(morse);
     }
+
+    free(tiles);
     RUNTIME_options_ws_free(&options);
     RUNTIME_options_finalize(&options, morse);
     MORSE_TASK_dataflush_all();

compute/pzungqr_param.c

@@ -174,6 +174,8 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
         }
         RUNTIME_iteration_pop(morse);
     }
+
+    free(tiles);
     RUNTIME_options_ws_free(&options);
     RUNTIME_options_finalize(&options, morse);
     MORSE_TASK_dataflush_all();

compute/pzunmlq_param.c

@@ -431,8 +431,11 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
             }
         }
     }
+
+    free(tiles);
     RUNTIME_options_ws_free(&options);
     RUNTIME_options_finalize(&options, morse);
     MORSE_TASK_dataflush_all();
+
     (void)D;
 }

compute/pzunmqr_param.c

@@ -430,6 +430,8 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
             }
         }
     }
+
+    free(tiles);
     RUNTIME_options_ws_free(&options);
     RUNTIME_options_finalize(&options, morse);
     MORSE_TASK_dataflush_all();