Searched refs:ja_ptr (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/tests/ |
| H A D | ex237.c | 129 PetscInt *ia_ptr, *ja_ptr, k; in main() local
170 PetscCall(PetscMalloc1(Ai[An], &ja_ptr)); in main()
173 for (k = 0; k < Ai[An]; ++k) ja_ptr[k] = Aj[k]; in main()
175 …kl_sparse_d_create_csr, (&spr, SPARSE_INDEX_BASE_ZERO, An, An, ia_ptr, ia_ptr + 1, ja_ptr, a_ptr)); in main()
180 …for (k = 0; k < Ai[An]; ++k) ja_ptr[k] = Aj[k] + 1; /* Fortran indexing to maximize cases covered … in main()
182 …RSE_INDEX_BASE_ONE, SPARSE_LAYOUT_COLUMN_MAJOR, An, An, bs[j], ia_ptr, ia_ptr + 1, ja_ptr, a_ptr)); in main()
187 …for (k = 0; k < Ai[An]; ++k) ja_ptr[k] = Aj[k] + 1; /* Fortran indexing to maximize cases covered … in main()
189 …RSE_INDEX_BASE_ONE, SPARSE_LAYOUT_COLUMN_MAJOR, An, An, bs[j], ia_ptr, ia_ptr + 1, ja_ptr, a_ptr)); in main()
429 PetscCall(PetscFree(ja_ptr)); in main()
|