| /petsc/src/mat/tests/ |
| H A D | ex73.c | 135 PetscInt rstart, i, *nzd, *nzo, nzl, nzmax = 0, *ncols, nrow, j; in main() local
144 PetscCall(MatGetRow(B, i + rstart, &nzl, &cols, NULL)); in main()
145 for (j = 0; j < nzl; j++) { in main()
155 PetscCall(MatRestoreRow(B, i + rstart, &nzl, &cols, NULL)); in main()
163 PetscCall(MatGetRow(B, i + rstart, &nzl, &cols, &vals)); in main()
164 for (j = 0; j < nzl; j++) { in main()
169 PetscCall(MatSetValues(J, 1, &nrow, 2 * nzl, ncols, nvals, INSERT_VALUES)); in main()
171 PetscCall(MatSetValues(J, 1, &nrow, 2 * nzl, ncols, nvals, INSERT_VALUES)); in main()
172 PetscCall(MatRestoreRow(B, i + rstart, &nzl, &cols, &vals)); in main()
|
| /petsc/src/dm/impls/swarm/tests/ |
| H A D | ex7.c | 65 PetscInt Np, timestep = 0, bs, N, M, nzl; in gridToParticles() local
97 PetscCall(MatGetRow(matshellctx->MpTrans, i, &nzl, &cols, &vals)); in gridToParticles()
98 for (int ii = 0; ii < nzl; ii++) dot += PetscSqr(vals[ii]); in gridToParticles()
104 …Call(PetscInfo(M_p, "createMtMKSP Have %" PetscInt_FMT " eqs, nzl = %" PetscInt_FMT "\n", N, nzl)); in gridToParticles()
|
| /petsc/src/ts/utils/dmplexlandau/ |
| H A D | plexland.c | 556 PetscInt nloc, nzl, colbuf[1024], row; in LandauFormJacobian_Internal() local
564 PetscCall(MatGetRow(B, i, &nzl, &cols, &vals)); in LandauFormJacobian_Internal()
565 …PetscCheck(nzl <= 1024, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Row too big: %" PetscInt… in LandauFormJacobian_Internal()
566 for (PetscInt j = 0; j < nzl; j++) colbuf[j] = moffset + cols[j]; in LandauFormJacobian_Internal()
568 PetscCall(MatSetValues(JacP, 1, &row, nzl, colbuf, vals, ADD_VALUES)); in LandauFormJacobian_Internal()
569 PetscCall(MatRestoreRow(B, i, &nzl, &cols, &vals)); in LandauFormJacobian_Internal()
1932 PetscInt nloc, nzl, *colbuf, row, COL_BF_SIZE = 1024; in LandauCreateJacobianMatrix() local
1940 PetscCall(MatGetRow(B, i, &nzl, NULL, NULL)); in LandauCreateJacobianMatrix()
1941 if (nzl > COL_BF_SIZE) { in LandauCreateJacobianMatrix()
1943 …t_FMT " to %" PetscInt_FMT " (row size %" PetscInt_FMT ") \n", COL_BF_SIZE, 2 * COL_BF_SIZE, nzl)); in LandauCreateJacobianMatrix()
[all …]
|
| /petsc/src/ts/utils/dmplexlandau/kokkos/ |
| H A D | landau.kokkos.cxx | 795 …offset = LAND_MOFFSET(b_id, grid, batch_sz, num_grids, a_mat_offset), nloc, nzl, colbuf[1024], row; in LandauKokkosJacobian() local
823 PetscCall(MatGetRow(B, i, &nzl, &cols, &vals)); in LandauKokkosJacobian()
824 …PetscCheck(nzl <= 1024, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Row too big: %" PetscInt… in LandauKokkosJacobian()
825 for (int j = 0; j < nzl; j++) colbuf[j] = cols[j] + moffset; in LandauKokkosJacobian()
827 PetscCall(MatSetValues(JacP, 1, &row, nzl, colbuf, vals, ADD_VALUES)); in LandauKokkosJacobian()
828 PetscCall(MatRestoreRow(B, i, &nzl, &cols, &vals)); in LandauKokkosJacobian()
|
| /petsc/src/ts/tests/ |
| H A D | ex30.c | 165 PetscInt N, M, nzl; in gridToParticles() local
207 PetscCall(MatGetRow(matshellctx->MpTrans, i, &nzl, &cols, &vals)); in gridToParticles()
208 for (PetscInt ii = 0; ii < nzl; ii++) dot += PetscSqr(vals[ii]); in gridToParticles()
229 …Call(PetscInfo(M_p, "createMtMKSP Have %" PetscInt_FMT " eqs, nzl = %" PetscInt_FMT "\n", N, nzl)); in gridToParticles()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | inode.c | 4023 static inline PetscErrorCode MatGetRow_FactoredLU(PetscInt *cols, PetscInt nzl, PetscInt nzu, Petsc… in MatGetRow_FactoredLU() argument
4030 for (k = 0; k < nzl; k++) cols[k] = vi[k]; in MatGetRow_FactoredLU()
4032 cols[nzl] = vi[0]; in MatGetRow_FactoredLU()
4034 for (k = 0; k < nzu; k++) cols[nzl + 1 + k] = vi[k]; in MatGetRow_FactoredLU()
|