19   MM_typecode matcode;  in mm_read_unsymmetric_sparse()  local
27   if (mm_read_banner(f, &matcode) != 0) {  in mm_read_unsymmetric_sparse()
33   if (!(mm_is_real(matcode) && mm_is_matrix(matcode) && mm_is_sparse(matcode))) {  in mm_read_unsymmetric_sparse()
35     fprintf(stderr, "Market Market type: [%s]\n", mm_typecode_to_str(matcode));  in mm_read_unsymmetric_sparse()
77 int mm_is_valid(MM_typecode matcode)  in mm_is_valid()  argument
79   if (!mm_is_matrix(matcode)) return 0;  in mm_is_valid()
80   if (mm_is_dense(matcode) && mm_is_pattern(matcode)) return 0;  in mm_is_valid()
81   if (mm_is_real(matcode) && mm_is_hermitian(matcode)) return 0;  in mm_is_valid()
82   if (mm_is_pattern(matcode) && (mm_is_hermitian(matcode) || mm_is_skew(matcode))) return 0;  in mm_is_valid()
86 int mm_read_banner(FILE *f, MM_typecode *matcode)  in mm_read_banner()  argument
96   mm_clear_typecode(matcode);  in mm_read_banner()
112   mm_set_matrix(matcode);  in mm_read_banner()
117   if (strcmp(crd, MM_SPARSE_STR) == 0) mm_set_sparse(matcode);  in mm_read_banner()
118   else if (strcmp(crd, MM_DENSE_STR) == 0) mm_set_dense(matcode);  in mm_read_banner()
123   if (strcmp(data_type, MM_REAL_STR) == 0) mm_set_real(matcode);  in mm_read_banner()
124   else if (strcmp(data_type, MM_COMPLEX_STR) == 0) mm_set_complex(matcode);  in mm_read_banner()
125   else if (strcmp(data_type, MM_PATTERN_STR) == 0) mm_set_pattern(matcode);  in mm_read_banner()
126   else if (strcmp(data_type, MM_INT_STR) == 0) mm_set_integer(matcode);  in mm_read_banner()
131   if (strcmp(storage_scheme, MM_GENERAL_STR) == 0) mm_set_general(matcode);  in mm_read_banner()
132   else if (strcmp(storage_scheme, MM_SYMM_STR) == 0) mm_set_symmetric(matcode);  in mm_read_banner()
133   else if (strcmp(storage_scheme, MM_HERM_STR) == 0) mm_set_hermitian(matcode);  in mm_read_banner()
134   else if (strcmp(storage_scheme, MM_SKEW_STR) == 0) mm_set_skew(matcode);  in mm_read_banner()
205 …_mtx_crd_data(FILE *f, int M, int N, int nz, int ia[], int ja[], double val[], MM_typecode matcode)  in mm_read_mtx_crd_data()  argument
208   if (mm_is_complex(matcode)) {  in mm_read_mtx_crd_data()
211   } else if (mm_is_real(matcode)) {  in mm_read_mtx_crd_data()
217   else if (mm_is_pattern(matcode)) {  in mm_read_mtx_crd_data()
225 …t mm_read_mtx_crd_entry(FILE *f, int *ia, int *ja, double *real, double *imag, MM_typecode matcode)  in mm_read_mtx_crd_entry()  argument
227   if (mm_is_complex(matcode)) {  in mm_read_mtx_crd_entry()
229   } else if (mm_is_real(matcode)) {  in mm_read_mtx_crd_entry()
234   else if (mm_is_pattern(matcode)) {  in mm_read_mtx_crd_entry()
249 …x_crd(char *fname, int *M, int *N, int *nz, int **ia, int **ja, double **val, MM_typecode *matcode)  in mm_read_mtx_crd()  argument
257   if ((ret_code = mm_read_banner(f, matcode)) != 0) return ret_code;  in mm_read_mtx_crd()
259 …if (!(mm_is_valid(*matcode) && mm_is_sparse(*matcode) && mm_is_matrix(*matcode))) return MM_UNSUPP…  in mm_read_mtx_crd()
267   if (mm_is_complex(*matcode)) {  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()
271   } else if (mm_is_real(*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()
277   else if (mm_is_pattern(*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()
286 int mm_write_banner(FILE *f, MM_typecode matcode)  in mm_write_banner()  argument
288   char *str = mm_typecode_to_str(matcode);  in mm_write_banner()
296 …_mtx_crd(char fname[], int M, int N, int nz, int ia[], int ja[], double val[], MM_typecode matcode)  in mm_write_mtx_crd()  argument
306   fprintf(f, "%s\n", mm_typecode_to_str(matcode));  in mm_write_mtx_crd()
312   if (mm_is_pattern(matcode))  in mm_write_mtx_crd()
314   else if (mm_is_real(matcode))  in mm_write_mtx_crd()
316   else if (mm_is_complex(matcode))  in mm_write_mtx_crd()
328 char *mm_typecode_to_str(MM_typecode matcode)  in mm_typecode_to_str()  argument
333   if (mm_is_matrix(matcode)) types[0] = MM_MTX_STR;  in mm_typecode_to_str()
337   if (mm_is_sparse(matcode)) types[1] = MM_SPARSE_STR;  in mm_typecode_to_str()
338   else if (mm_is_dense(matcode)) types[1] = MM_DENSE_STR;  in mm_typecode_to_str()
342   if (mm_is_real(matcode)) types[2] = MM_REAL_STR;  in mm_typecode_to_str()
343   else if (mm_is_complex(matcode)) types[2] = MM_COMPLEX_STR;  in mm_typecode_to_str()
344   else if (mm_is_pattern(matcode)) types[2] = MM_PATTERN_STR;  in mm_typecode_to_str()
345   else if (mm_is_integer(matcode)) types[2] = MM_INT_STR;  in mm_typecode_to_str()
349   if (mm_is_general(matcode)) types[3] = MM_GENERAL_STR;  in mm_typecode_to_str()
350   else if (mm_is_symmetric(matcode)) types[3] = MM_SYMM_STR;  in mm_typecode_to_str()
351   else if (mm_is_hermitian(matcode)) types[3] = MM_HERM_STR;  in mm_typecode_to_str()
352   else if (mm_is_skew(matcode)) types[3] = MM_SKEW_STR;  in mm_typecode_to_str()