Lines Matching refs:proc
225 PetscMPIInt tagi, tagj, *len_si, *len_s, *len_ri, nrecv, nsend, proc; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable() local
398 proc = 0; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
401 while (prmap[i] >= owners[proc + 1]) proc++; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
402 len_si[proc]++; /* num of rows in Co(=Pt*AP) to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
403 len_s[proc] += coi[i + 1] - coi[i]; /* num of nonzeros in Co to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
409 for (proc = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
410 owners_co[proc + 1] = owners_co[proc] + len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
411 if (len_s[proc]) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
413 len_si[proc] = 2 * (len_si[proc] + 1); /* length of buf_si to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
414 len += len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
426 for (proc = 0, k = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
427 if (!len_s[proc]) continue; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
428 i = owners_co[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
429 PetscCallMPI(MPIU_Isend(coj + coi[i], len_s[proc], MPIU_INT, proc, tagj, comm, swaits + k)); in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
466 for (proc = 0, k = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
467 if (!len_s[proc]) continue; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
473 nrows = len_si[proc] / 2 - 1; /* num of rows in Co to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
478 for (i = owners_co[proc]; i < owners_co[proc + 1]; i++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
481 buf_si[nrows + 1] = prmap[i] - owners[proc]; /* local row index */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
484 PetscCallMPI(MPIU_Isend(buf_si, len_si[proc], MPIU_INT, proc, tagi, comm, swaits + k)); in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
486 buf_si += len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ_scalable()
1508 PetscMPIInt size, rank, nsend, proc; in MatPtAPSymbolic_MPIAIJ_MPIAIJ() local
1688 proc = 0; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1690 while (prmap[i] >= owners[proc + 1]) proc++; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1691 len_si[proc]++; /* num of rows in Co(=Pt*AP) to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1692 len_s[proc] += coi[i + 1] - coi[i]; /* num of nonzeros in Co to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1698 for (proc = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1699 owners_co[proc + 1] = owners_co[proc] + len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1700 if (len_s[proc]) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1702 len_si[proc] = 2 * (len_si[proc] + 1); /* length of buf_si to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1703 len += len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1715 for (proc = 0, k = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1716 if (!len_s[proc]) continue; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1717 i = owners_co[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1718 PetscCallMPI(MPIU_Isend(coj + coi[i], len_s[proc], MPIU_INT, proc, tagj, comm, swaits + k)); in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1755 for (proc = 0, k = 0; proc < size; proc++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1756 if (!len_s[proc]) continue; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1762 nrows = len_si[proc] / 2 - 1; /* num of rows in Co to be sent to [proc] */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1767 for (i = owners_co[proc]; i < owners_co[proc + 1]; i++) { in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1770 buf_si[nrows + 1] = prmap[i] - owners[proc]; /* local row index */ in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1773 PetscCallMPI(MPIU_Isend(buf_si, len_si[proc], MPIU_INT, proc, tagi, comm, swaits + k)); in MatPtAPSymbolic_MPIAIJ_MPIAIJ()
1775 buf_si += len_si[proc]; in MatPtAPSymbolic_MPIAIJ_MPIAIJ()