Searched refs:nnzTrace (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()
1067 PetscCall(MatGetRow(trace, i, &nnzTrace[i], NULL, NULL)); 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()
1085 PetscCall(PetscFree2(nnzTrace, nnzFiber)); in MatTensorAltV()
|