Lines Matching refs:newcols
38 PetscInt ncols, newcols, c; in MatCreateLaplacian() local
43 for (c = 0, newcols = 0; c < ncols; ++c) { in MatCreateLaplacian()
45 ++newcols; in MatCreateLaplacian()
51 ++newcols; in MatCreateLaplacian()
55 ++newcols; in MatCreateLaplacian()
58 colMax = PetscMax(colMax, newcols); in MatCreateLaplacian()
68 PetscInt ncols, newcols, c; in MatCreateLaplacian() local
72 for (c = 0, newcols = 0; c < ncols; ++c) { in MatCreateLaplacian()
74 newCols[newcols] = cols[c]; in MatCreateLaplacian()
75 newVals[newcols] = dnnz[r - rStart] + onnz[r - rStart] - 1; in MatCreateLaplacian()
76 ++newcols; in MatCreateLaplacian()
79 newCols[newcols] = cols[c]; in MatCreateLaplacian()
80 newVals[newcols] = -1.0; in MatCreateLaplacian()
81 ++newcols; in MatCreateLaplacian()
83 … PetscCheck(newcols <= colMax, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Overran work space"); in MatCreateLaplacian()
86 newCols[newcols] = r; in MatCreateLaplacian()
87 newVals[newcols] = dnnz[r - rStart] + onnz[r - rStart] - 1; in MatCreateLaplacian()
88 ++newcols; in MatCreateLaplacian()
91 PetscCall(MatSetValues(*L, 1, &r, newcols, newCols, newVals, INSERT_VALUES)); in MatCreateLaplacian()