Searched refs:fields_col (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 25 PetscInt *fields, *fields_col; member
624 if (ilink->fields[k] != ilink->fields_col[k]) same_fields = PETSC_FALSE; in PCSetUp_FieldSplit()
628 …*ii, *jj, j, k, nfields = ilink->nfields, *fields = ilink->fields, *fields_col = ilink->fields_col; in PCSetUp_FieldSplit() local
635 if (!same_fields) jj[nfields * j + k] = rstart + bs * j + fields_col[k]; in PCSetUp_FieldSplit()
648 …CreateStride(PetscObjectComm((PetscObject)pc), nslots, rstart + ilink->fields_col[0], bs, &ilink->… in PCSetUp_FieldSplit()
2074 PetscCall(PetscFree(ilink->fields_col)); in PCReset_FieldSplit()
2202 …plit(PC pc, const char splitname[], PetscInt n, const PetscInt *fields, const PetscInt *fields_col) in PCFieldSplitSetFields_FieldSplit() argument
2227 PetscCall(PetscMalloc1(n, &ilink->fields_col)); in PCFieldSplitSetFields_FieldSplit()
2228 PetscCall(PetscArraycpy(ilink->fields_col, fields_col, n)); in PCFieldSplitSetFields_FieldSplit()
2482 …ds(PC pc, const char splitname[], PetscInt n, const PetscInt fields[], const PetscInt fields_col[]) in PCFieldSplitSetFields() argument
[all …]
|