Lines Matching refs:cval
217 PetscScalar *cval, *xyz; in main() local
222 PetscCall(VecGetArray(UALoc, &cval)); in main()
235 cval[offUA + sdim] = 0.; in main()
237 cval[offUA + i] = 0; in main()
238 for (j = 0; j < clSize / sdim; ++j) cval[offUA + i] += xyz[j * sdim + i]; in main()
239 cval[offUA + i] = cval[offUA + i] * sdim / clSize; in main()
240 cval[offUA + sdim] += PetscSqr(cval[offUA + i]); in main()
245 PetscCall(VecRestoreArray(UALoc, &cval)); in main()
313 PetscScalar *cval, *xyz; in main() local
318 PetscCall(VecGetArray(UALoc, &cval)); in main()
331 cval[offUA + sdim] = 0.; in main()
333 cval[offUA + i] = 0; in main()
334 for (j = 0; j < clSize / sdim; ++j) cval[offUA + i] += xyz[j * sdim + i]; in main()
335 cval[offUA + i] = cval[offUA + i] * sdim / clSize; in main()
336 cval[offUA + sdim] += PetscSqr(cval[offUA + i]); in main()
341 PetscCall(VecRestoreArray(UALoc, &cval)); in main()