Searched refs:Jinv (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/tao/interface/ |
| H A D | taosolver_hj.c | 374 PetscErrorCode TaoComputeJacobianState(Tao tao, Vec X, Mat J, Mat Jpre, Mat Jinv) in TaoComputeJacobianState() argument
383 …back Jacobian(state)", (*tao->ops->computejacobianstate)(tao, X, J, Jpre, Jinv, tao->user_jac_stat… in TaoComputeJacobianState()
556 …ateRoutine(Tao tao, Mat J, Mat Jpre, Mat Jinv, PetscErrorCode (*func)(Tao tao, Vec x, Mat J, Mat J… in TaoSetJacobianStateRoutine() argument
568 if (Jinv) { in TaoSetJacobianStateRoutine()
569 PetscValidHeaderSpecific(Jinv, MAT_CLASSID, 4); in TaoSetJacobianStateRoutine()
570 PetscCheckSameComm(tao, 1, Jinv, 4); in TaoSetJacobianStateRoutine()
584 if (Jinv) { in TaoSetJacobianStateRoutine()
585 PetscCall(PetscObjectReference((PetscObject)Jinv)); in TaoSetJacobianStateRoutine()
587 tao->jacobian_state_inv = Jinv; in TaoSetJacobianStateRoutine()
|
| /petsc/src/tao/interface/ftn-custom/ |
| H A D | ztaosolverf.c | 215 PETSC_EXTERN void taosetjacobianstateroutine_(Tao *tao, Mat *J, Mat *Jp, Mat *Jinv, void (*func)(Ta… in taosetjacobianstateroutine_() argument
219 …if (!*ierr) *ierr = TaoSetJacobianStateRoutine(*tao, *J, *Jp, *Jinv, ourtaojacobianstateroutine, c… in taosetjacobianstateroutine_()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dt.c | 372 …Code PetscDTJacobianInverse_Internal(PetscInt m, PetscInt n, const PetscReal J[], PetscReal Jinv[]) in PetscDTJacobianInverse_Internal() argument
387 Jinvs = Jinv; in PetscDTJacobianInverse_Internal()
463 for (i = 0; i < m * n; i++) Jinv[i] = PetscRealPart(Jinvs[i]); in PetscDTJacobianInverse_Internal()
501 PetscReal *Jinv; in PetscQuadraturePushForward() local
515 PetscCall(PetscMalloc2(imageDim * dim, &Jinv, formSize * imageFormSize, &Jinvstar)); in PetscQuadraturePushForward()
516 PetscCall(PetscDTJacobianInverse_Internal(imageDim, dim, J, Jinv)); in PetscQuadraturePushForward()
517 PetscCall(PetscDTAltVPullbackMatrix(imageDim, dim, Jinv, formDegree, Jinvstar)); in PetscQuadraturePushForward()
542 PetscCall(PetscFree2(Jinv, Jinvstar)); in PetscQuadraturePushForward()
|
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1498 PetscReal *L, *J, *Jinv, *v0, *pv0; in PetscDualSpaceCreateAllDataFromInteriorData() local
1544 …PetscCall(PetscMalloc7(dim, &v0, dim, &pv0, dim * dim, &J, dim * dim, &Jinv, Nk * Nk, &L, maxNzfor… in PetscDualSpaceCreateAllDataFromInteriorData()
1565 PetscCall(DMPlexComputeCellGeometryAffineFEM(dm, p, v0, J, Jinv, &detJ)); in PetscDualSpaceCreateAllDataFromInteriorData()
1570 for (j = 0; j < dim; j++) J[i * dim + j] = Jinv[i * dim + j] = 0.; in PetscDualSpaceCreateAllDataFromInteriorData()
1571 for (i = 0; i < dim; i++) J[i * dim + i] = Jinv[i * dim + i] = 1.; in PetscDualSpaceCreateAllDataFromInteriorData()
1634 PetscCall(PetscFree7(v0, pv0, J, Jinv, L, work, iwork)); in PetscDualSpaceCreateAllDataFromInteriorData()
|