Lines Matching refs:aj
118 PetscInt *aj, *ai;
142 aj = a->j; /* aj[k] gives column index for element aa[k]. */
144 ai = a->i; /* ai[k] is the position in aa and aj where row k starts. */
148 PetscCallExternal(mkl_sparse_x_create_csr, &aijmkl->csrA, SPARSE_INDEX_BASE_ZERO, (MKL_INT)m, (MKL_INT)n, (MKL_INT *)ai, (MKL_INT *)(ai + 1), (MKL_INT *)aj, aa);
167 PetscInt *aj, *ai, *unused;
174 PetscCallExternal(mkl_sparse_x_export_csr, csrA, &indexing, (MKL_INT *)&m, (MKL_INT *)&n, (MKL_INT **)&ai, (MKL_INT **)&unused, (MKL_INT **)&aj, &aa);
177 aj = ai = NULL;
188 PetscCall(MatSeqAIJSetPreallocationCSR(A, ai, aj, NULL));
227 PetscInt *ai, *aj, *unused;
237 PetscCallExternal(mkl_sparse_x_export_csr, aijmkl->csrA, &indexing, (MKL_INT *)&nrows, (MKL_INT *)&ncols, (MKL_INT **)&ai, (MKL_INT **)&unused, (MKL_INT **)&aj, &aa);
243 PetscCall(MatSetValues_SeqAIJ(A, 1, &i, nz, aj + ai[i], aa + ai[i], INSERT_VALUES));
264 PetscInt *ai, *aj, *unused;
279 PetscCallExternal(mkl_sparse_x_export_csr, aijmkl->csrA, &indexing, (MKL_INT *)&nrows, (MKL_INT *)&ncols, (MKL_INT **)&ai, (MKL_INT **)&unused, (MKL_INT **)&aj, &aa);
287 PetscCall(PetscViewerASCIIPrintf(viewer, "(%" PetscInt_FMT ", %g) ", aj[k], PetscRealPart(aa[k])));
289 PetscCall(PetscViewerASCIIPrintf(viewer, "(%" PetscInt_FMT ", NULL)", aj[k]));
347 const PetscInt *aj, *ai;
358 aj = a->j; /* aj[k] gives column index for element aa[k]. */
360 ai = a->i; /* ai[k] is the position in aa and aj where row k starts. */
363 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, y);
420 const PetscInt *aj, *ai;
431 aj = a->j; /* aj[k] gives column index for element aa[k]. */
433 ai = a->i; /* ai[k] is the position in aa and aj where row k starts. */
436 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, y);
491 const PetscInt *aj, *ai;
506 aj = a->j; /* aj[k] gives column index for element aa[k]. */
508 ai = a->i; /* ai[k] is the position in aa and aj where row k starts. */
514 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
519 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
589 const PetscInt *aj, *ai;
604 aj = a->j; /* aj[k] gives column index for element aa[k]. */
606 ai = a->i; /* ai[k] is the position in aa and aj where row k starts. */
612 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
617 mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);