Searched refs:vc_l (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tests/ |
| H A D | ex27.c | 289 PetscReal vc_l[3], L = ctx->L, h = ctx->h, epsilon = ctx->epsilon, init = 0.5 * h - L; in ComputeGradS() local
297 for (k = 0, vc_l[2] = init; k < nz; ++k, vc_l[2] += h) { in ComputeGradS()
298 for (j = 0, vc_l[1] = init; j < ny; ++j, vc_l[1] += h) { in ComputeGradS()
299 for (i = 0, vc_l[0] = init; i < nx; ++i, vc_l[0] += h) { in ComputeGradS()
302 …F, "(%" PetscInt_FMT " %" PetscInt_FMT ") vc_l: %g %g\n", i, j, (double)vc_l[0], (double)vc_l[1])); in ComputeGradS()
304 for (q = 0; q < Np; ++q) sum += Gaussian(dim, &velocity[q * dim], epsilon, vc_l); in ComputeGradS()
306 … integral[d] += (-1. / epsilon) * PetscAbsReal(vp[d] - vc_l[d]) * Gaussian(dim, vp, epsilon, vc_l)… in ComputeGradS()
|