Lines Matching refs:w4
61 PetscInt *n, *w3, *w4, **data, len;
89 PetscCall(PetscCalloc4(size, &w1, size, &w2, size, &w3, size, &w4));
91 PetscCall(PetscArrayzero(w4, size)); /* initialise work vector*/
98 w4[proc]++;
101 if (w4[j]) {
102 w1[j] += w4[j];
236 PetscCall(PetscFree4(w1, w2, w3, w4));
621 PetscMPIInt rank, size, tag0, tag2, tag3, tag4, *w1, *w2, *w3, *w4, nrqr, nrqs = 0, *req_source1 = NULL, *req_source2;
755 PetscCall(PetscCalloc4(size, &w1, size, &w2, size, &w3, size, &w4)); /* mesg size, initialize work vectors */
771 w4[proc]++;
775 if (w4[j]) {
776 w1[j] += w4[j];
778 w4[j] = 0;
916 PetscCall(PetscFree4(w1, w2, w3, w4));