Searched refs:NkFiber (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1045 PetscInt dim, NkTrace, NkFiber, Nk; in MatTensorAltV() local
1063 PetscCall(PetscDTBinomialInt(dimFiber, PetscAbsInt(kFiber), &NkFiber)); in MatTensorAltV()
1064 …PetscCheck(nFiber % NkFiber == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "point value space of fiber mat… in MatTensorAltV()
1072 …PetscCheck(nnzFiber[i] % NkFiber == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "nonzeros in fiber matrix … in MatTensorAltV()
1080 … for (i = 0; i < mTrace; i++, l++) nnz[l] = (nnzTrace[i] / NkTrace) * (nnzFiber[j] / NkFiber) * Nk; in MatTensorAltV()
1081 n = (nTrace / NkTrace) * (nFiber / NkFiber) * Nk; in MatTensorAltV()
1091 …mTrace * dim, &projT, dimFiber * dim, &projF, dT * NkTrace, &projTstar, dF * NkFiber, &projFstar)); in MatTensorAltV()
1108 nformsF = ncolsF / NkFiber; in MatTensorAltV()
1117 PetscInt colF = colsF[jF * NkFiber] / NkFiber; in MatTensorAltV()
1121 …for (jl = 0; jl < NkFiber; jl++) val += projFstar[il * NkFiber + jl] * PetscRealPart(valsF[jF * Nk… in MatTensorAltV()
|