18   FILE       *f;  in mm_read_unsymmetric_sparse()  local
25   if ((f = fopen(fname, "r")) == NULL) return -1;  in mm_read_unsymmetric_sparse()
27   if (mm_read_banner(f, &matcode) != 0) {  in mm_read_unsymmetric_sparse()
41   if (mm_read_mtx_crd_size(f, &M, &N, &nz) != 0) {  in mm_read_unsymmetric_sparse()
65     if (fscanf(f, "%d %d %lg\n", &ia[i], &ja[i], &val[i]) != 3) {  in mm_read_unsymmetric_sparse()
72   fclose(f);  in mm_read_unsymmetric_sparse()
86 int mm_read_banner(FILE *f, MM_typecode *matcode)  in mm_read_banner()  argument
98   if (fgets(line, MM_MAX_LINE_LENGTH, f) == NULL) return MM_PREMATURE_EOF;  in mm_read_banner()
140 int mm_write_mtx_crd_size(FILE *f, int M, int N, int nz)  in mm_write_mtx_crd_size()  argument
142   if (fprintf(f, "%d %d %d\n", M, N, nz) < 0) return MM_COULD_NOT_WRITE_FILE;  in mm_write_mtx_crd_size()
146 int mm_read_mtx_crd_size(FILE *f, int *M, int *N, int *nz)  in mm_read_mtx_crd_size()  argument
156     if (fgets(line, MM_MAX_LINE_LENGTH, f) == NULL) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_size()
163       num_items_read = fscanf(f, "%d %d %d", M, N, nz);  in mm_read_mtx_crd_size()
170 int mm_read_mtx_array_size(FILE *f, int *M, int *N)  in mm_read_mtx_array_size()  argument
179     if (fgets(line, MM_MAX_LINE_LENGTH, f) == NULL) return MM_PREMATURE_EOF;  in mm_read_mtx_array_size()
186       num_items_read = fscanf(f, "%d %d", M, N);  in mm_read_mtx_array_size()
193 int mm_write_mtx_array_size(FILE *f, int M, int N)  in mm_write_mtx_array_size()  argument
195   if (fprintf(f, "%d %d\n", M, N) < 0) return MM_COULD_NOT_WRITE_FILE;  in mm_write_mtx_array_size()
205 int mm_read_mtx_crd_data(FILE *f, int M, int N, int nz, int ia[], int ja[], double val[], MM_typeco…  in mm_read_mtx_crd_data()  argument
210 …if (fscanf(f, "%d %d %lg %lg", &ia[i], &ja[i], &val[2 * i], &val[2 * i + 1]) != 4) return MM_PREMA…  in mm_read_mtx_crd_data()
213       if (fscanf(f, "%d %d %lg\n", &ia[i], &ja[i], &val[i]) != 3) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_data()
219       if (fscanf(f, "%d %d", &ia[i], &ja[i]) != 2) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_data()
225 int mm_read_mtx_crd_entry(FILE *f, int *ia, int *ja, double *real, double *imag, MM_typecode matcod…  in mm_read_mtx_crd_entry()  argument
228     if (fscanf(f, "%d %d %lg %lg", ia, ja, real, imag) != 4) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_entry()
230     if (fscanf(f, "%d %d %lg\n", ia, ja, real) != 3) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_entry()
235     if (fscanf(f, "%d %d", ia, ja) != 2) return MM_PREMATURE_EOF;  in mm_read_mtx_crd_entry()
252   FILE *f;  in mm_read_mtx_crd()  local
254   if (strcmp(fname, "stdin") == 0) f = stdin;  in mm_read_mtx_crd()
255   else if ((f = fopen(fname, "r")) == NULL) return MM_COULD_NOT_READ_FILE;  in mm_read_mtx_crd()
257   if ((ret_code = mm_read_banner(f, matcode)) != 0) return ret_code;  in mm_read_mtx_crd()
261   if ((ret_code = mm_read_mtx_crd_size(f, M, N, nz)) != 0) return ret_code;  in mm_read_mtx_crd()
269     ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *ia, *ja, *val, *matcode);  in mm_read_mtx_crd()
273     ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *ia, *ja, *val, *matcode);  in mm_read_mtx_crd()
278     ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *ia, *ja, *val, *matcode);  in mm_read_mtx_crd()
282   if (f != stdin) fclose(f);  in mm_read_mtx_crd()
286 int mm_write_banner(FILE *f, MM_typecode matcode)  in mm_write_banner()  argument
291   ret_code = fprintf(f, "%s %s\n", MatrixMarketBanner, str);  in mm_write_banner()
298   FILE *f;  in mm_write_mtx_crd()  local
301   if (strcmp(fname, "stdout") == 0) f = stdout;  in mm_write_mtx_crd()
302   else if ((f = fopen(fname, "w")) == NULL) return MM_COULD_NOT_WRITE_FILE;  in mm_write_mtx_crd()
305   fprintf(f, "%s ", MatrixMarketBanner);  in mm_write_mtx_crd()
306   fprintf(f, "%s\n", mm_typecode_to_str(matcode));  in mm_write_mtx_crd()
309   fprintf(f, "%d %d %d\n", M, N, nz);  in mm_write_mtx_crd()
313     for (i = 0; i < nz; i++) fprintf(f, "%d %d\n", ia[i], ja[i]);  in mm_write_mtx_crd()
315     for (i = 0; i < nz; i++) fprintf(f, "%d %d %20.16g\n", ia[i], ja[i], val[i]);  in mm_write_mtx_crd()
317 …for (i = 0; i < nz; i++) fprintf(f, "%d %d %20.16g %20.16g\n", ia[i], ja[i], val[2 * i], val[2 * i…  in mm_write_mtx_crd()
319     if (f != stdout) fclose(f);  in mm_write_mtx_crd()
323   if (f != stdout) fclose(f);  in mm_write_mtx_crd()