Searched refs:kFiber (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1042 …e, Mat fiber, PetscInt dimTrace, PetscInt kTrace, PetscInt dimFiber, PetscInt kFiber, Mat *product) in MatTensorAltV() argument
1063 PetscCall(PetscDTBinomialInt(dimFiber, PetscAbsInt(kFiber), &NkFiber)); in MatTensorAltV()
1075 k = kFiber + kTrace; in MatTensorAltV()
1090 PetscCall(PetscDTBinomialInt(dim, PetscAbsInt(kFiber), &dF)); in MatTensorAltV()
1097 PetscCall(PetscDTAltVPullbackMatrix(dim, dimFiber, projF, kFiber, projFstar)); in MatTensorAltV()
1101 sign = (PetscAbsInt(kTrace * kFiber) & 1) ? -1. : 1.; in MatTensorAltV()
1124 if (kFiber < 0) { in MatTensorAltV()
1126 PetscCall(PetscDTAltVStar(dim, PetscAbsInt(kFiber), 1, workF2, workF)); in MatTensorAltV()
1128 … PetscCall(PetscDTAltVWedgeMatrix(dim, PetscAbsInt(kFiber), PetscAbsInt(kTrace), workF, wedgeMat)); in MatTensorAltV()
|