Lines Matching refs:jstart
19 PetscInt :: i, j, jstart, jend
36 jstart = ai(i)
38 ax = 16*jstart
41 do j = jstart, jend
57 jstart = adiag(i) + 1
59 ax = 16*jstart
61 do j = jstart, jend
90 PetscInt :: jstart, jend, idx, ax, jdx, kdx, nn
110 jstart = ai(i)
113 if (jend - jstart >= 500) error stop 'Overflowing vector FortranSolveBAIJ4()'
115 do j = jstart, jend
121 ax = 16*jstart
127 nn = 4*(jend - jstart + 1) - 1
140 jstart = adiag(i) + 1
142 ax = 16*jstart
148 if (jend - jstart >= 500) error stop 'Overflowing vector FortranSolveBAIJ4()'
150 do j = jstart, jend
155 nn = 4*(jend - jstart + 1) - 1