Lines Matching defs:i
110 for (PetscInt i = rstart; i < rend; i++) {
111 PetscCall(MatGetRow(pc->mat, i, &nz, &cols, &values));
113 if (values[j] != 0 && cols[j] != i) {
118 PetscCall(MatRestoreRow(pc->mat, i, &nz, &cols, &values));
126 for (PetscInt i = rstart; i < rend; i++) {
128 PetscCall(MatGetRow(pc->mat, i, &nz, &cols, &values));
130 if (values[j] != 0 && cols[j] != i) {
135 if (!diagonly) rows[cnt++] = i;
136 else drows[dcnt++] = i - rstart;
137 PetscCall(MatRestoreRow(pc->mat, i, &nz, &cols, &values));
172 for (PetscInt i = nrstart; i < nrend; i++) {
173 if (i < nmap->range[j]) j = 0;
175 if (i < nmap->range[j + 1]) {
177 owner[i - nrstart] = j;
187 for (PetscMPIInt i = 0; i < nrecvs; i++) recvtotal += olengths1[i];
192 for (PetscMPIInt i = 0; i < nrecvs; i++) {
193 PetscCallMPI(MPIU_Irecv(rvalues + count, olengths1[i], MPIU_INT, onodes1[i], tag, comm, recv_waits + i));
194 count += olengths1[i];
198 1) starts[i] gives the starting index in svalues for stuff going to
203 for (PetscMPIInt i = 1; i < size; i++) starts[i] = starts[i - 1] + sizes[i - 1];
204 for (PetscInt i = 0; i < cnt; i++) svalues[starts[owner[i]]++] = rows[i];
205 for (PetscInt i = 0; i < cnt; i++) rows[i] = rows[i] - nrstart;
211 for (PetscMPIInt i = 1; i < size; i++) starts[i] = starts[i - 1] + sizes[i - 1];
213 for (PetscMPIInt i = 0; i < size; i++) {
214 if (sizes[i]) PetscCallMPI(MPIU_Isend(svalues + starts[i], sizes[i], MPIU_INT, i, tag, comm, send_waits + count++));
273 for (PetscInt i = 0; i < n; i++) atvec[indices[i] - rstart] *= primes[cnt];
289 for (PetscInt i = 0; i < nmap->rend - nmap->rstart; i++) {
290 if (!(((PetscInt)PetscRealPart(ab[i])) % primes[cnt])) n++;
294 for (PetscInt i = 0; i < nmap->rend - nmap->rstart; i++) {
295 if (!(((PetscInt)PetscRealPart(ab[i])) % primes[cnt])) indices[n++] = i + nmap->rstart;
319 for (PetscInt i = 0; i < red->dcnt; i++) {
320 if (d[red->drows[i]] != 0) red->diag[i] = 1.0 / d[red->drows[i]];
323 red->diag[i] = 0.0;
335 PetscInt dcnt = red->dcnt, i;
354 for (i = 0; i < dcnt; i++) {
355 if (diag[i] == 0.0 && bwork[drows[i]] != 0.0) {
363 for (i = 0; i < dcnt; i++) xwork[drows[i]] = diag[i] * bwork[drows[i]];
383 PetscInt dcnt = red->dcnt, i;
404 for (i = 0; i < dcnt; i++) {
405 if (diag[i] == 0.0 && bwork[drows[i]] != 0.0) {
413 for (i = 0; i < dcnt; i++) xwork[drows[i]] = diag[i] * bwork[drows[i]];