remove unused SparseMatrix_import_binary_fp

diff --git a/lib/sparse/SparseMatrix.c b/lib/sparse/SparseMatrix.c
index bafcc791af8115cf2d5d7dd65fbe5ba63b69cd84..ce532aaf12268d700e58a288852e5cabca67721c 100644 (file)
--- a/lib/sparse/SparseMatrix.c
+++ b/lib/sparse/SparseMatrix.c
@@ -618,50 +618,6 @@ static void SparseMatrix_export_csr(FILE *f, SparseMatrix A){
 
 }
 
-SparseMatrix SparseMatrix_import_binary_fp(FILE *f){
-  SparseMatrix A = NULL;
-  int m, n, nz, nzmax, type, format, property;
-  size_t sz;
-
-  size_t iread = fread(&m, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&n, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&nz, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&nzmax, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&type, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&format, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&property, sizeof(int), 1, f);
-  if (iread != 1) return NULL;
-  iread = fread(&sz, sizeof(size_t), 1, f);
-  if (iread != 1) return NULL;
-  
-  A = SparseMatrix_general_new(m, n, nz, type, sz, format);
-  A->nz = nz;
-  A->property = property;
-  
-  if (format == FORMAT_COORD){
-    iread = fread(A->ia, sizeof(int), A->nz, f);
-    if (iread > (size_t)INT_MAX || (int)iread != A->nz) return NULL;
-  } else {
-    iread = fread(A->ia, sizeof(int), A->m + 1, f);
-    if (iread > (size_t)INT_MAX || (int)iread != A->m + 1) return NULL;
-  }
-  iread = fread(A->ja, sizeof(int), A->nz, f);
-  if (iread > (size_t)INT_MAX || (int)iread != A->nz) return NULL;
-
-  if (A->size > 0) {
-    iread = fread(A->a, A->size, A->nz, f);
-    if (iread > (size_t)INT_MAX || (int)iread != A->nz) return NULL;
-  }
-  fclose(f);
-  return A;
-}
-
 static void SparseMatrix_export_coord(FILE *f, SparseMatrix A){
   int *ia, *ja;
   real *a;

diff --git a/lib/sparse/SparseMatrix.h b/lib/sparse/SparseMatrix.h
index 7868f9050d6d79b8408604a85707b21f40ebae27..1926e04ee367445e17e96ee54d6a7f992efb033a 100644 (file)
--- a/lib/sparse/SparseMatrix.h
+++ b/lib/sparse/SparseMatrix.h
@@ -56,8 +56,6 @@ void SparseMatrix_print(char *, SparseMatrix A);/*print to stdout in Mathematica
 
 void SparseMatrix_export(FILE *f, SparseMatrix A);/* export into MM format except the header */
 
-SparseMatrix SparseMatrix_import_binary_fp(FILE *f);/* import into a preopenned file */
-
 void SparseMatrix_delete(SparseMatrix A);
 
 SparseMatrix SparseMatrix_add(SparseMatrix A, SparseMatrix B);