From: Matthew Fernandez <matthew.fernandez@gmail.com>
Date: Fri, 8 Apr 2022 15:04:54 +0000 (-0700)
Subject: mm2gv: remove unnused 'mm_write_mtx_crd'
X-Git-Tag: 4.0.0~115^2~8
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=12a20a00c955330d048244ef2f909ab4fde84327;p=graphviz

mm2gv: remove unnused 'mm_write_mtx_crd'
---

diff --git a/cmd/tools/mmio.c b/cmd/tools/mmio.c
index b697f3214..21f2574df 100644
--- a/cmd/tools/mmio.c
+++ b/cmd/tools/mmio.c
@@ -208,47 +208,6 @@ int mm_write_banner(FILE * f, MM_typecode matcode)
 	return 0;
 }
 
-int mm_write_mtx_crd(char fname[], int M, int N, int nz, int I[], int J[],
-		     double val[], MM_typecode matcode)
-{
-    FILE *f;
-    int i;
-
-    if (strcmp(fname, "stdout") == 0)
-	f = stdout;
-    else if ((f = fopen(fname, "w")) == NULL)
-	return MM_COULD_NOT_WRITE_FILE;
-
-    /* print banner followed by typecode */
-    fprintf(f, "%s ", MatrixMarketBanner);
-    fprintf(f, "%s\n", mm_typecode_to_str(matcode));
-
-    /* print matrix sizes and nonzeros */
-    fprintf(f, "%d %d %d\n", M, N, nz);
-
-    /* print values */
-    if (mm_is_pattern(matcode))
-	for (i = 0; i < nz; i++)
-	    fprintf(f, "%d %d\n", I[i], J[i]);
-    else if (mm_is_real(matcode))
-	for (i = 0; i < nz; i++)
-	    fprintf(f, "%d %d %20.16g\n", I[i], J[i], val[i]);
-    else if (mm_is_complex(matcode))
-	for (i = 0; i < nz; i++)
-	    fprintf(f, "%d %d %20.16g %20.16g\n", I[i], J[i], val[2 * i],
-		    val[2 * i + 1]);
-    else {
-	if (f != stdout)
-	    fclose(f);
-	return MM_UNSUPPORTED_TYPE;
-    }
-
-    if (f != stdout)
-	fclose(f);
-
-    return 0;
-}
-
 char *mm_typecode_to_str(MM_typecode matcode)
 {
     char buffer[MM_MAX_LINE_LENGTH];
diff --git a/cmd/tools/mmio.h b/cmd/tools/mmio.h
index 64c8fe02f..ab65ec868 100644
--- a/cmd/tools/mmio.h
+++ b/cmd/tools/mmio.h
@@ -122,9 +122,3 @@ int mm_is_valid(MM_typecode matcode);	/* too complex for a macro */
 #define MM_HERM_STR		"hermitian"
 #define MM_SKEW_STR		"skew-symmetric"
 #define MM_PATTERN_STR  "pattern"
-
-
-/*  high level routines */
-
-int mm_write_mtx_crd(char fname[], int M, int N, int nz, int I[], int J[],
-		     double val[], MM_typecode matcode);