Home
last modified time | relevance | path

Searched refs:jend (Results 1 – 10 of 10) sorted by relevance

/petsc/src/mat/impls/aij/seq/ftn-kernels/
H A Dfmult.F9014 PetscInt :: i, jstart, jend
16 jend = ii(1)
18 jstart = jend
19 jend = ii(i + 1)
20 y(jj(jstart:jend - 1)) = y(jj(jstart:jend - 1)) + x(i - 1)*a(jstart:jend - 1)
31 PetscInt :: i, jstart, jend
38 jend = ii(i + 1)
39 y(i) = sum(a(jstart:jend - 1)*x(jj(jstart:jend - 1)))
H A Dfsolve.F9016 PetscInt i, jstart, jend
23 jend = adiag(i) - 1
24 x(i) = b(i) - sum(aa(jstart:jend)*x(aj(jstart:jend)))
31 jend = ai(i + 1) - 1
32 x(i) = x(i) - sum(aa(jstart:jend)*x(aj(jstart:jend)))*aa(adiag(i))
H A Dfmultadd.F9014 PetscInt :: i, jstart, jend
16 jend = ii(1)
18 jstart = jend
19 jend = ii(i + 1)
20 z(i) = y(i) + sum(a(jstart:jend - 1)*x(jj(jstart:jend - 1)))
/petsc/src/mat/impls/baij/seq/ftn-kernels/
H A Dfsolvebaij.F9019 PetscInt :: i, j, jstart, jend
37 jend = adiag(i) - 1
41 do j = jstart, jend
58 jend = ai(i + 1) - 1
61 do j = jstart, jend
90 PetscInt :: jstart, jend, idx, ax, jdx, kdx, nn
111 jend = adiag(i) - 1
113 if (jend - jstart >= 500) error stop 'Overflowing vector FortranSolveBAIJ4()'
115 do j = jstart, jend
127 nn = 4*(jend - jstart + 1) - 1
[all …]
/petsc/src/mat/impls/aij/seq/aijperm/
H A Daijperm.c299 PetscInt jstart, jend; in MatMult_SeqAIJPERM() local
328 jend = xgroup[igroup + 1] - 1; in MatMult_SeqAIJPERM()
334 for (i = jstart; i <= jend; i++) y[iperm[i]] = 0.0; in MatMult_SeqAIJPERM()
336 for (i = jstart; i <= jend; i++) { in MatMult_SeqAIJPERM()
345 for (istart = jstart; istart <= jend; istart += NDIM) { in MatMult_SeqAIJPERM()
350 if (iend > jend) iend = jend; in MatMult_SeqAIJPERM()
476 PetscInt jstart, jend; in MatMultAdd_SeqAIJPERM() local
509 jend = xgroup[igroup + 1] - 1; in MatMultAdd_SeqAIJPERM()
516 for (i = jstart; i <= jend; i++) { in MatMultAdd_SeqAIJPERM()
521 for (i = jstart; i <= jend; i++) { in MatMultAdd_SeqAIJPERM()
[all …]
/petsc/src/dm/impls/da/
H A Dfdda.c927 …PetscInt istart, iend, jstart, jend, kstart, kend, zs, nz, gzs, gnz, ii, jj, kk, M, … in DMCreateMatrix_DA_3d_MPISELL() local
956 jend = (by == DM_BOUNDARY_PERIODIC) ? s : (PetscMin(s, n - j - 1)); in DMCreateMatrix_DA_3d_MPISELL()
966 for (jj = jstart; jj < jend + 1; jj++) { in DMCreateMatrix_DA_3d_MPISELL()
998 jend = (by == DM_BOUNDARY_PERIODIC) ? s : (PetscMin(s, n - j - 1)); in DMCreateMatrix_DA_3d_MPISELL()
1008 for (jj = jstart; jj < jend + 1; jj++) { in DMCreateMatrix_DA_3d_MPISELL()
1273 …PetscInt istart, iend, jstart, jend, kstart, kend, zs, nz, gzs, gnz, ii, jj, kk, M, … in DMCreateMatrix_DA_3d_MPIAIJ() local
1312 jend = (by == DM_BOUNDARY_PERIODIC) ? s : (PetscMin(s, n - j - 1)); in DMCreateMatrix_DA_3d_MPIAIJ()
1322 for (jj = jstart; jj < jend + 1; jj++) { in DMCreateMatrix_DA_3d_MPIAIJ()
1355 jend = (by == DM_BOUNDARY_PERIODIC) ? s : (PetscMin(s, n - j - 1)); in DMCreateMatrix_DA_3d_MPIAIJ()
1364 for (jj = jstart; jj < jend + 1; jj++) { in DMCreateMatrix_DA_3d_MPIAIJ()
[all …]
/petsc/src/binding/petsc4py/test/
H A Dtest_dmda.py297 istart, iend, jstart, jend = da.getRanges()
301 for j in range(jstart, jend):
/petsc/src/tao/constrained/impls/ipm/
H A Dipm.c675 PetscInt astart, aend, jstart, jend; in IPMUpdateAi() local
720 PetscCall(MatGetOwnershipRange(tao->jacobian_inequality, &jstart, &jend)); in IPMUpdateAi()
721 for (i = jstart; i < jend; i++) { in IPMUpdateAi()
/petsc/src/mat/impls/baij/mpi/
H A Dmpibaij.c1912 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIBAIJ_Private() local
1978 jend = ii[i + 1] - ii[i]; in MatCreateSubMatrix_MPIBAIJ_Private()
1981 for (j = 0; j < jend; j++) { in MatCreateSubMatrix_MPIBAIJ_Private()
/petsc/src/mat/impls/aij/mpi/
H A Dmpiaij.c3525 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIAIJ_SameRowDist() local
3655 jend = ii[i + 1] - ii[i]; in MatCreateSubMatrix_MPIAIJ_SameRowDist()
3658 for (j = 0; j < jend; j++) { in MatCreateSubMatrix_MPIAIJ_SameRowDist()
3743 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIAIJ_nonscalable() local
3805 jend = ii[i + 1] - ii[i]; in MatCreateSubMatrix_MPIAIJ_nonscalable()
3808 for (j = 0; j < jend; j++) { in MatCreateSubMatrix_MPIAIJ_nonscalable()