From 901b9f16494f37890be17ef4bb66e6efc6873340 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Fri, 10 Feb 2017 12:18:11 -0500 Subject: changed code to rely on jst --- src/get_dual_clusters.c | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 src/get_dual_clusters.c (limited to 'src/get_dual_clusters.c') diff --git a/src/get_dual_clusters.c b/src/get_dual_clusters.c deleted file mode 100644 index 78bf185..0000000 --- a/src/get_dual_clusters.c +++ /dev/null @@ -1,36 +0,0 @@ - -#include "fracture.h" - -unsigned int *get_clusters(net_t *instance, cholmod_common *c) { - cholmod_sparse *s_dual = gen_adjacency(instance, true, false, true, c); - - unsigned int *dual_marks = find_components(s_dual, 0); - CHOL_F(free_sparse)(&s_dual, c); - - return dual_marks; -} - -unsigned int *get_cluster_dist(net_t *instance, cholmod_common *c) { - unsigned int *clusters = get_clusters(instance, c); - unsigned int *cluster_dist = (unsigned int *)calloc( - instance->graph->dnv, sizeof(unsigned int)); - - unsigned int cur_mark = 0; - while (true) { - cur_mark++; - unsigned int num_in_cluster = 0; - for (unsigned int i = 0; i < instance->graph->dnv; i++) { - if (clusters[i] == cur_mark) - num_in_cluster++; - } - - if (num_in_cluster == 0) - break; - - cluster_dist[num_in_cluster - 1]++; - } - - free(clusters); - - return cluster_dist; -} -- cgit v1.2.3-70-g09d2