Lines Matching refs:cval
314 PetscScalar *cval, *xyz; in main() local
319 PetscCall(VecGetArray(UALoc, &cval)); in main()
332 cval[offUA + sdim] = 0.; in main()
334 cval[offUA + i] = 0; in main()
335 for (j = 0; j < clSize / sdim; ++j) cval[offUA + i] += xyz[j * sdim + i]; in main()
336 cval[offUA + i] = cval[offUA + i] * sdim / clSize; in main()
337 cval[offUA + sdim] += PetscSqr(cval[offUA + i]); in main()
342 PetscCall(VecRestoreArray(UALoc, &cval)); in main()
421 PetscScalar *cval = NULL, *xyz = NULL; in main() local
428 PetscCall(DMPlexVecGetClosure(dmS, NULL, S, cellID[cell], &clSize, &cval)); in main()
430 cval[0] = rank; in main()
431 cval[1] = csID[set]; in main()
432 cval[2] = 0.; in main()
433 for (c = 0; c < cdimCoord / sdim; c++) cval[2] += xyz[c * sdim]; in main()
434 cval[2] = cval[2] * sdim / cdimCoord; in main()
435 PetscCall(DMPlexVecSetClosure(dmS, NULL, S, cellID[cell], cval, INSERT_ALL_VALUES)); in main()
437 PetscCall(DMPlexVecRestoreClosure(dmS, NULL, S, cellID[0], &clSize, &cval)); in main()