}
-void SparseMatrix_export_binary(char *name, SparseMatrix A, int *flag){
- FILE *f;
-
- *flag = 0;
- f = fopen(name, "wb");
- if (!f) {
- *flag = 1;
- return;
- }
- SparseMatrix_export_binary_fp(f, A);
- fclose(f);
-
-}
-
-
-
SparseMatrix SparseMatrix_import_binary_fp(FILE *f){
SparseMatrix A = NULL;
int m, n, nz, nzmax, type, format, property;
SparseMatrix SparseMatrix_import_binary(char *name);
SparseMatrix SparseMatrix_import_binary_fp(FILE *f);/* import into a preopenned file */
-void SparseMatrix_export_binary(char *name, SparseMatrix A, int *flag);
void SparseMatrix_export_binary_fp(FILE *f, SparseMatrix A);/* export binary into a file preopened */
void SparseMatrix_delete(SparseMatrix A);