Lines Matching refs:idxn
7 PetscInt :: n, m, idxm(1), idxn(1), nl1, nl2, zero, one, i
22 idxn(1) = i
25 PetscCallA(MatSetValues(A, one, idxn, one, idxm, v, INSERT_VALUES, ierr))
33 idxn(1) = 0
35 if ((idxn(1) >= nl1) .and. (idxn(1) <= nl2 - 1)) then
37 PetscCallA(MatSetValues(A, one, idxn, one, idxm, v, INSERT_VALUES, ierr))
42 if ((idxn(1) >= nl1) .and. (idxn(1) <= nl2 - 1)) then
43 PetscCallA(MatGetValues(A, one, idxn, one, idxm, v, ierr))
54 idxn(1) = 0
55 PetscCallA(MatGetValuesLocal(A, one, idxn, one, [zero], values, ierr))
56 PetscCallA(MatGetValuesLocal(A, one, idxn, one, idxn, values, ierr))