Searched refs:interpolantGrad (Results 1 – 2 of 2) sorted by relevance
| /petsc/include/petsc/private/ |
| H A D | petscfeimpl.h | 398 …lar x[], PetscFEGeom *fegeom, PetscInt q, PetscScalar interpolant[], PetscScalar interpolantGrad[]) in PetscFEInterpolateFieldAndGradient_Static() argument
416 for (d = 0; d < cdim; ++d) interpolantGrad[fc * cdim + d] = 0.0; in PetscFEInterpolateFieldAndGradient_Static()
419 …for (d = 0; d < cdim; ++d) interpolantGrad[fc * cdim + d] += x[f] * basisDer[((q * Nb + f) * Nc + … in PetscFEInterpolateFieldAndGradient_Static()
426 for (d = 0; d < cdim * cdim; ++d) interpolantGrad[off + fc * cdim * cdim + d] = 0.0; in PetscFEInterpolateFieldAndGradient_Static()
428 …for (d = 0; d < cdim * cdim; ++d) interpolantGrad[off + fc * cdim + d] += x[f] * basisHes[((q * Nb… in PetscFEInterpolateFieldAndGradient_Static()
431 PetscCall(PetscFEPushforwardHessian(fe, fegeom, 1, &interpolantGrad[off])); in PetscFEInterpolateFieldAndGradient_Static()
435 PetscCall(PetscFEPushforwardGradient(fe, fegeom, 1, interpolantGrad)); in PetscFEInterpolateFieldAndGradient_Static()
|
| /petsc/src/snes/utils/dm/ |
| H A D | dmadapt.c | 899 PetscScalar *x = NULL, *field, *gradient, *interpolant, *interpolantGrad; in DMAdaptorComputeErrorIndicator_Gradient() local
913 PetscCall(PetscMalloc2(Nc, &interpolant, cdim * Nc, &interpolantGrad)); in DMAdaptorComputeErrorIndicator_Gradient()
923 PetscCall(PetscArrayzero(interpolantGrad, cdim * Nc)); in DMAdaptorComputeErrorIndicator_Gradient()
925 …EInterpolateFieldAndGradient_Static((PetscFE)obj, 1, x, &fegeom, q, interpolant, interpolantGrad)); in DMAdaptorComputeErrorIndicator_Gradient()
930 …for (PetscInt d = 0; d < cdim; ++d) gradient[fc * cdim + d] += interpolantGrad[fc * dim + d] * wt … in DMAdaptorComputeErrorIndicator_Gradient()
935 PetscCall(PetscFree2(interpolant, interpolantGrad)); in DMAdaptorComputeErrorIndicator_Gradient()
|