mm2gv: remove unused 'mm_read_mtx_crd_data'

diff --git a/cmd/tools/mmio.c b/cmd/tools/mmio.c
index f4b3984193d91289db681ea34d59978d77817ac3..b697f321479e2c790b16641ebf8ce476d7400ba8 100644 (file)
--- a/cmd/tools/mmio.c
+++ b/cmd/tools/mmio.c
@@ -195,42 +195,6 @@ int mm_write_mtx_array_size(FILE * f, int M, int N)
 
 /*-------------------------------------------------------------------------*/
 
-/******************************************************************/
-/* use when I[], J[], and val[]J, and val[] are already allocated */
-/******************************************************************/
-
-int mm_read_mtx_crd_data(FILE * f, int M, int N, int nz, int I[], int J[],
-                        double val[], MM_typecode matcode)
-{
-    int i;
-    if (mm_is_complex(matcode)) {
-       for (i = 0; i < nz; i++)
-           if (fscanf
-               (f, "%d %d %lg %lg", &I[i], &J[i], &val[2 * i],
-                &val[2 * i + 1])
-               != 4)
-               return MM_PREMATURE_EOF;
-    } else if (mm_is_real(matcode)) {
-       for (i = 0; i < nz; i++) {
-           if (fscanf(f, "%d %d %lg\n", &I[i], &J[i], &val[i])
-               != 3)
-               return MM_PREMATURE_EOF;
-
-       }
-    }
-
-    else if (mm_is_pattern(matcode)) {
-       for (i = 0; i < nz; i++)
-           if (fscanf(f, "%d %d", &I[i], &J[i])
-               != 2)
-               return MM_PREMATURE_EOF;
-    } else
-       return MM_UNSUPPORTED_TYPE;
-
-    return 0;
-
-}
-
 int mm_write_banner(FILE * f, MM_typecode matcode)
 {
     char *str = mm_typecode_to_str(matcode);

diff --git a/cmd/tools/mmio.h b/cmd/tools/mmio.h
index 255144c7885582e5ad8b8293d1a43bf4014d21fb..64c8fe02f4cd6ac3a439039d7684c4b2500444b8 100644 (file)
--- a/cmd/tools/mmio.h
+++ b/cmd/tools/mmio.h
@@ -128,5 +128,3 @@ int mm_is_valid(MM_typecode matcode);       /* too complex for a macro */
 
 int mm_write_mtx_crd(char fname[], int M, int N, int nz, int I[], int J[],
                     double val[], MM_typecode matcode);
-int mm_read_mtx_crd_data(FILE * f, int M, int N, int nz, int I[], int J[],
-                        double val[], MM_typecode matcode);