mm2gv: remove unnused 'mm_write_mtx_crd'

diff --git a/cmd/tools/mmio.c b/cmd/tools/mmio.c
index b697f321479e2c790b16641ebf8ce476d7400ba8..21f2574df05a0338436226f7c02dac2517232c51 100644 (file)
--- 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 64c8fe02f4cd6ac3a439039d7684c4b2500444b8..ab65ec868cded587f24bc3722c5fe4f7cd5cfed3 100644 (file)
--- 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);