153 …PetscScalar       user[2] = {0., ctx->charges[0]}, q[LANDAU_MAX_SPECIES], tt[LANDAU_MAX_SPECIES], …  in testSpitzer()  local
172 …PetscCall(DMPlexComputeIntegralFEM(plexe, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 0)], tt, NU…  in testSpitzer()
173   J = -ctx->n_0 * ctx->v_0 * PetscRealPart(tt[0]);  in testSpitzer()
178 …PetscCall(DMPlexComputeIntegralFEM(plexi, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 1)], tt, NU…  in testSpitzer()
179     J += -ctx->n_0 * ctx->v_0 * PetscRealPart(tt[0]);  in testSpitzer()
185 …PetscCall(DMPlexComputeIntegralFEM(plexe, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 0)], tt, NU…  in testSpitzer()
186   n_e = PetscRealPart(tt[0]) * ctx->n_0;  in testSpitzer()
195 …PetscCall(DMPlexComputeIntegralFEM(plexe, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 0)], tt, NU…  in testSpitzer()
196     vz = ctx->n_0 * PetscRealPart(tt[0]) / n_e; /* non-dimensional */  in testSpitzer()
202 …PetscCall(DMPlexComputeIntegralFEM(plexe, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 0)], tt, NU…  in testSpitzer()
203 …v        = ctx->n_0 * ctx->v_0 * PetscRealPart(tt[0]) / n_e;                                      …  in testSpitzer()
211 …PetscCall(DMPlexComputeIntegralFEM(plexe, XsubArray[LAND_PACK_IDX(ctx->batch_view_idx, 0)], tt, NU…  in testSpitzer()
212   } else tt[0] = 0;  in testSpitzer()
213   J_re = -ctx->n_0 * ctx->v_0 * PetscRealPart(tt[0]);  in testSpitzer()
273   PetscScalar tt[LANDAU_MAX_SPECIES];  in testStable()  local
289   PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL));  in testStable()
290   ediff = PetscPowReal(PetscRealPart(tt[0]), 1. / ppp);  in testStable()
292   PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL));  in testStable()
293   lpm0 = PetscPowReal(PetscRealPart(tt[0]), 1. / ppp);  in testStable()
297     PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL));  in testStable()
298     idiff = PetscPowReal(PetscRealPart(tt[0]), 1. / ppp);  in testStable()
300     PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL));  in testStable()
301     lpm1 = PetscPowReal(PetscRealPart(tt[0]), 1. / ppp);  in testStable()
319   PetscScalar tt[LANDAU_MAX_SPECIES], qv0[LANDAU_MAX_SPECIES];  in EInduction()  local
332   PetscCall(DMPlexComputeIntegralFEM(plex, X_t, tt, NULL));  in EInduction()
333   dJ_dt = -ctx->n_0 * PetscRealPart(tt[0]) / ctx->t_0;  in EInduction()