Lines Matching refs:ja
23 int *ia, *ja; in mm_read_unsymmetric_sparse() local
53 ja = (int *)malloc(nz * sizeof(int)); in mm_read_unsymmetric_sparse()
58 *J_ = ja; 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()
70 ja[i]--; in mm_read_unsymmetric_sparse()
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()
249 int mm_read_mtx_crd(char *fname, int *M, int *N, int *nz, int **ia, int **ja, double **val, MM_type… in mm_read_mtx_crd() argument
264 *ja = (int *)malloc(*nz * sizeof(int)); 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()
296 int mm_write_mtx_crd(char fname[], int M, int N, int nz, int ia[], int ja[], double val[], MM_typec… in mm_write_mtx_crd() argument
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()