mm2gv: remove unused 'SparseMatrix_export_matrix_market'

diff --git a/cmd/tools/matrix_market.c b/cmd/tools/matrix_market.c
index 5b74deec1ef48324181ab8e1bdb0e75418f1ce4d..d0dabf8271087881a9855b724ef62f09fb8621fa 100644 (file)
--- a/cmd/tools/matrix_market.c
+++ b/cmd/tools/matrix_market.c
@@ -30,29 +30,6 @@ int mm_get_type(MM_typecode typecode)
     return MATRIX_TYPE_UNKNOWN;
 }
 
-static void set_mm_typecode(int type, MM_typecode * typecode)
-{
-    switch (type) {
-    case MATRIX_TYPE_COMPLEX:
-       mm_set_complex(typecode);
-       break;
-    case MATRIX_TYPE_REAL:
-       mm_set_real(typecode);
-       break;
-    case MATRIX_TYPE_INTEGER:
-       mm_set_integer(typecode);
-       break;
-    case MATRIX_TYPE_PATTERN:
-       mm_set_pattern(typecode);
-       break;
-    default:
-       break;
-    }
-}
-
-
-
-
 SparseMatrix SparseMatrix_import_matrix_market(FILE * f, int format)
 {
     int ret_code, type;
@@ -296,28 +273,3 @@ SparseMatrix SparseMatrix_import_matrix_market(FILE * f, int format)
 
     return A;
 }
-
-
-static void mm_write_comment(FILE * file, char *comment)
-{
-    char percent[2] = "%";
-    fprintf(file, "%s %s\n", percent, comment);
-}
-
-void SparseMatrix_export_matrix_market(FILE * file, SparseMatrix A,
-                                      char *comment)
-{
-    MM_typecode matcode;
-
-    mm_initialize_typecode(&matcode);
-    mm_set_matrix(&matcode);
-    mm_set_sparse(&matcode);
-    mm_set_general(&matcode);
-    set_mm_typecode(A->type, &matcode);
-
-    mm_write_banner(file, matcode);
-    mm_write_comment(file, comment);
-
-    SparseMatrix_export(file, A);
-
-}

diff --git a/cmd/tools/matrix_market.h b/cmd/tools/matrix_market.h
index c21d9441db1d2617f4a932de687166d2ed7fda97..0118ada0f582a0e6cd024fca76de6b1769f1ca92 100644 (file)
--- a/cmd/tools/matrix_market.h
+++ b/cmd/tools/matrix_market.h
@@ -13,6 +13,4 @@
 #include "mmio.h"
 #include <sparse/SparseMatrix.h>
 int mm_get_type(MM_typecode typecode);
-void SparseMatrix_export_matrix_market(FILE * file, SparseMatrix A,
-                                      char *comment);
 SparseMatrix SparseMatrix_import_matrix_market(FILE * f, int format);