Searched refs:starwdotu (Results 1 – 1 of 1) sorted by relevance
450 PetscReal *u, *starw, *starstarw, wu, starwdotu; in main() local472 starwdotu = 0.; in main()473 for (l = 0; l < Nk; l++) starwdotu += starw[l] * u[l]; in main()474 diff = PetscAbsReal(wu - starwdotu); in main()475 …+ PetscAbsReal(starwdotu)), PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Hodge star check: (star w, u) (%g) … in main()