}
}
-static SparseMatrix DistanceMatrix_restrict_cluster(int ncluster, int *clusterp, int *cluster, SparseMatrix P, SparseMatrix R, SparseMatrix D){
- return NULL;
-}
-
static SparseMatrix DistanceMatrix_restrict_matching(int *matching, SparseMatrix D){
if (!D) return NULL;
assert(0);/* not yet implemented! */
MATRIX_TYPE_REAL, sizeof(double));
*R = SparseMatrix_transpose(*P);
- *cD = DistanceMatrix_restrict_cluster(ncluster, clusterp, cluster, *P, *R, D);
+ *cD = NULL;
*cA = SparseMatrix_multiply3(*R, A, *P);