Lines Matching refs:d
152 PetscInt d = user->dir; in constant() local
155 for (d = 0; d < Nc; ++d) u[d] = user->constants[d]; in constant()
157 u[0] = user->constants[d]; in constant()
164 PetscInt d = user->dir; in constantDer() local
167 for (d = 0; d < Nc; ++d) u[d] = 0.0; in constantDer()
169 u[0] = user->constants[d]; in constantDer()
178 PetscInt d = user->dir; in linear() local
181 for (d = 0; d < Nc; ++d) u[d] = coords[d]; in linear()
183 u[0] = coords[d]; in linear()
190 PetscInt d = user->dir; in linearDer() local
194 for (d = 0; d < Nc; ++d) { in linearDer()
195 u[d] = 0.0; in linearDer()
196 for (e = 0; e < dim; ++e) u[d] += (d == e ? 1.0 : 0.0) * n[e]; in linearDer()
199 u[0] = n[d]; in linearDer()
208 PetscInt d = user->dir; in quadratic() local
220 u[0] = coords[d] * coords[d]; in quadratic()
227 PetscInt d = user->dir; in quadraticDer() local
239 u[0] = 2.0 * coords[d] * n[d]; in quadraticDer()
248 PetscInt d = user->dir; in cubic() local
260 u[0] = coords[d] * coords[d] * coords[d]; in cubic()
267 PetscInt d = user->dir; in cubicDer() local
279 u[0] = 3.0 * coords[d] * coords[d] * n[d]; in cubicDer()
288 PetscInt d = user->dir; in quartic() local
300 u[0] = coords[d] * coords[d] * coords[d] * coords[d]; in quartic()
307 PetscInt d = user->dir; in quarticDer() local
319 u[0] = 4.0 * coords[d] * coords[d] * coords[d] * n[d]; in quarticDer()
327 PetscInt d = user->dir; in mytanh() local
330 for (d = 0; d < Nc; ++d) u[d] = PetscTanhReal(coords[d] - 0.5); in mytanh()
332 u[0] = PetscTanhReal(coords[d] - 0.5); in mytanh()
339 PetscInt d = user->dir; in mytanhDer() local
342 for (d = 0; d < Nc; ++d) u[d] = 1.0 / PetscSqr(PetscCoshReal(coords[d] - 0.5)) * n[d]; in mytanhDer()
344 u[0] = 1.0 / PetscSqr(PetscCoshReal(coords[d] - 0.5)) * n[d]; in mytanhDer()
352 PetscInt m = user->m, d = user->dir; in trig() local
355 for (d = 0; d < Nc; ++d) u[d] = PetscSinReal(PETSC_PI * m * coords[d]); in trig()
357 u[0] = PetscSinReal(PETSC_PI * m * coords[d]); in trig()
364 PetscInt m = user->m, d = user->dir; in trigDer() local
367 for (d = 0; d < Nc; ++d) u[d] = PETSC_PI * m * PetscCosReal(PETSC_PI * m * coords[d]) * n[d]; in trigDer()
369 u[0] = PETSC_PI * m * PetscCosReal(PETSC_PI * m * coords[d]) * n[d]; in trigDer()
583 PetscInt k, dim, d, im, fm; in CheckTransfer() local
597 for (d = 0; d < dim; ++d) { in CheckTransfer()
598 PetscCall(MatDenseGetColumnVecWrite(iVM, k * dim + d, &iV)); in CheckTransfer()
599 PetscCall(MatDenseGetColumnVecWrite(fVM, k * dim + d, &fV)); in CheckTransfer()
600 …PetscCall(SetupFunctions(idm, user->usePoly, user->usePoly ? k : k + 1, d, exactFuncs, exactFuncDe… in CheckTransfer()
603 PetscCall(MatDenseRestoreColumnVecWrite(iVM, k * dim + d, &iV)); in CheckTransfer()
604 PetscCall(MatDenseRestoreColumnVecWrite(fVM, k * dim + d, &fV)); in CheckTransfer()
620 for (d = 0; d < dim; ++d) { in CheckTransfer()
621 …heckname, PETSC_MAX_PATH_LEN, " %s trig (%" PetscInt_FMT ", %" PetscInt_FMT ")", testname, k, d)); in CheckTransfer()
622 PetscCall(MatDenseGetColumnVecRead(iVM, k * dim + d, &iV)); in CheckTransfer()
623 PetscCall(MatDenseGetColumnVecWrite(fVM, k * dim + d, &fV)); in CheckTransfer()
625 PetscCall(CheckTransferError(fdm, PETSC_FALSE, k + 1, d, checkname, fV, user)); in CheckTransfer()
626 PetscCall(MatDenseRestoreColumnVecRead(iVM, k * dim + d, &iV)); in CheckTransfer()
627 PetscCall(MatDenseRestoreColumnVecWrite(fVM, k * dim + d, &fV)); in CheckTransfer()