Lines Matching refs:work
167 PetscReal *work; in MatGetColumnSums() local
176 PetscCall(PetscCalloc1(n, &work)); in MatGetColumnSums()
177 PetscCall(MatGetColumnSumsRealPart(A, work)); in MatGetColumnSums()
178 for (i = 0; i < n; i++) sums[i] = work[i]; in MatGetColumnSums()
179 PetscCall(MatGetColumnSumsImaginaryPart(A, work)); in MatGetColumnSums()
180 for (i = 0; i < n; i++) sums[i] += work[i] * PETSC_i; in MatGetColumnSums()
181 PetscCall(PetscFree(work)); in MatGetColumnSums()
255 PetscReal *work; in MatGetColumnMeans() local
264 PetscCall(PetscCalloc1(n, &work)); in MatGetColumnMeans()
265 PetscCall(MatGetColumnMeansRealPart(A, work)); in MatGetColumnMeans()
266 for (i = 0; i < n; i++) means[i] = work[i]; in MatGetColumnMeans()
267 PetscCall(MatGetColumnMeansImaginaryPart(A, work)); in MatGetColumnMeans()
268 for (i = 0; i < n; i++) means[i] += work[i] * PETSC_i; in MatGetColumnMeans()
269 PetscCall(PetscFree(work)); in MatGetColumnMeans()