Searched refs:uglyrmapo (Results 1 – 1 of 1) sorted by relevance
196 static PetscInt *uglyrmapd = NULL, *uglyrmapo = NULL; /* mapping from the local ordering to the "di… variable240 PetscCall(PetscMalloc1(nt * bs, &uglyrmapo)); in MatMPIBAIJDiagonalScaleLocalSetUp()243 for (j = 0; j < bs; j++) uglyrmapo[(r_rmapo[i] - 1) * bs + j] = i * bs + j; in MatMPIBAIJDiagonalScaleLocalSetUp()272 …for (i = 0; i < n; i++) o[i] = s[uglyrmapo[i]]; /* copy "off-diagonal" portion of scale into oo ve… in MatDiagonalScaleLocal_MPIBAIJ()278 PetscCall(PetscFree(uglyrmapo)); in MatDiagonalScaleLocal_MPIBAIJ()