| 75 | } |
| 76 | |
| 77 | int mm_is_valid(MM_typecode matcode) { |
| 78 | if (!mm_is_matrix(matcode)) return 0; |
| 79 | if (mm_is_dense(matcode) && mm_is_pattern(matcode)) return 0; |
| 80 | if (mm_is_real(matcode) && mm_is_hermitian(matcode)) return 0; |
| 81 | if (mm_is_pattern(matcode) && |
| 82 | (mm_is_hermitian(matcode) || mm_is_skew(matcode))) |
| 83 | return 0; |
| 84 | return 1; |
| 85 | } |
| 86 | |
| 87 | int mm_read_banner(FILE *f, MM_typecode *matcode) { |
| 88 | char line[MM_MAX_LINE_LENGTH]; |