Searched refs:NkTrace (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
1060 PetscCall(PetscDTBinomialInt(dimTrace, PetscAbsInt(kTrace), &NkTrace)); in MatTensorAltV()
1061 …PetscCheck(nTrace % NkTrace == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "point value space of trace mat… in MatTensorAltV()
1068 …PetscCheck(nnzTrace[i] % NkTrace == 0, PETSC_COMM_SELF, PETSC_ERR_PLIB, "nonzeros in trace 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 …PetscCall(PetscMalloc4(dimTrace * dim, &projT, dimFiber * dim, &projF, dT * NkTrace, &projTstar, d… in MatTensorAltV()
1115 nformsT = ncolsT / NkTrace; in MatTensorAltV()
1130 PetscInt colT = colsT[jT * NkTrace] / NkTrace; in MatTensorAltV()
1131 PetscInt col = colF * (nTrace / NkTrace) + colT; in MatTensorAltV()
[all …]
|