Searched refs:enEM (Results 1 – 1 of 1) sorted by relevance
1021 PetscReal enKin = 0., enEM = 0.; in EnergyMonitor() local1048 enEM += 1. / r; in EnergyMonitor()1051 for (d = 0; d < dim; ++d) enEM += E[p * dim + d]; in EnergyMonitor()1055 …omm((PetscObject)ts), "%.6lf %4" PetscInt_FMT " PE\t %1.10g\n", (double)t, step, (double)enEM)); in EnergyMonitor()1056 …Object)ts), "%.6lf %4" PetscInt_FMT " E\t %10.4lf\n", (double)t, step, (double)(enKin + enEM))); in EnergyMonitor()