Lines Matching refs:jend
19 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
141 jend = ai(i + 1) - 1
148 if (jend - jstart >= 500) error stop 'Overflowing vector FortranSolveBAIJ4()'
150 do j = jstart, jend
155 nn = 4*(jend - jstart + 1) - 1