Searched refs:nnzFiber (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/dualspace/impls/lagrange/ |
| H A D | dspacelagrange.c | 1047 PetscInt *nnzTrace, *nnzFiber, *nnz; in MatTensorAltV() local
1065 PetscCall(PetscMalloc2(mTrace, &nnzTrace, mFiber, &nnzFiber)); in MatTensorAltV()
1071 PetscCall(MatGetRow(fiber, i, &nnzFiber[i], NULL, NULL)); 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()
1085 PetscCall(PetscFree2(nnzTrace, nnzFiber)); in MatTensorAltV()
|