| /petsc/src/dm/impls/moab/ |
| H A D | dmmbfield.cxx | 33 …= dmmoab->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "The field %d should be positive … in DMMoabSetFieldVector() 103 for (ifield = 0; ifield < dmmoab->numFields; ++ifield) { in DMMoabSetGlobalFieldVector() 108 …] = (dmmoab->bs == 1 ? rarray[ifield * dmmoab->nloc + i] : rarray[i * dmmoab->numFields + ifield]); in DMMoabSetGlobalFieldVector() 116 PetscCall(PetscMalloc1(dmmoab->nloc * dmmoab->numFields, &varray)); in DMMoabSetGlobalFieldVector() 121 for (ifield = 0; ifield < dmmoab->numFields; ++ifield) { in DMMoabSetGlobalFieldVector() 127 …] = (dmmoab->bs == 1 ? varray[ifield * dmmoab->nloc + i] : varray[i * dmmoab->numFields + ifield]); in DMMoabSetGlobalFieldVector() 158 PetscErrorCode DMMoabSetFieldNames(DM dm, PetscInt numFields, const char *fields[]) in DMMoabSetFieldNames() argument 169 for (i = 0; i < dmmoab->numFields; i++) PetscCall(PetscFree(dmmoab->fieldNames[i])); in DMMoabSetFieldNames() 174 dmmoab->numFields = numFields; in DMMoabSetFieldNames() 175 PetscCall(PetscMalloc1(numFields, &dmmoab->fieldNames)); in DMMoabSetFieldNames() [all …]
|
| H A D | dmmbvec.cxx | 170 PetscCall(PetscMalloc1((dmmoab->nloc + dmmoab->nghost) * dmmoab->numFields, varray)); in DMMoabVecGetArray() 179 …for (f = 0; f < dmmoab->numFields; f++, i++) (*varray)[dmmoab->lidmap[(PetscInt)*iter - dmmoab->se… in DMMoabVecGetArray() 250 …(f = 0; f < dmmoab->numFields; f++, i++) marray[i] = (*varray)[dmmoab->lidmap[(PetscInt)*iter - dm… in DMMoabVecRestoreArray() 329 PetscCall(PetscMalloc1((dmmoab->nloc + dmmoab->nghost) * dmmoab->numFields, varray)); in DMMoabVecGetArrayRead() 338 …for (f = 0; f < dmmoab->numFields; f++, i++) (*varray)[dmmoab->lidmap[(PetscInt)*iter - dmmoab->se… in DMMoabVecGetArrayRead() 449 PetscCall(PetscCalloc1(dmmoab->numFields, &defaultvals)); in DMCreateVector_Moab_Private() 452 …merr = mbiface->tag_get_handle(tag_name, dmmoab->numFields, moab::MB_TYPE_DOUBLE, tag, moab::MB_TA… in DMCreateVector_Moab_Private() 479 …hostBlock(((PetscObject)dm)->comm, dmmoab->bs, dmmoab->numFields * dmmoab->nloc, dmmoab->numFields… in DMCreateVector_Moab_Private() 483 PetscCall(VecSetSizes(*vec, dmmoab->numFields * dmmoab->nloc, PETSC_DECIDE)); in DMCreateVector_Moab_Private() 495 merr = mbiface->tag_get_length(tag, dmmoab->numFields); in DMCreateVector_Moab_Private() [all …]
|
| H A D | dmmbmat.cxx | 26 nlsiz = (tmp ? dmmoab->nloc : dmmoab->nloc * dmmoab->numFields); in DMCreateMatrix_Moab() 36 …PetscCall(MatSetSizes(A, dmmoab->nloc * dmmoab->numFields, dmmoab->nloc * dmmoab->numFields, PETSC… in DMCreateMatrix_Moab() 77 nfields = dmmoab->numFields; in DMMoab_Compute_NNZ_From_Connectivity() 233 PetscCall(DMMoabSetBlockFills_Private(dmmoab->numFields, dfill, &dmmoab->dfill)); in DMMoabSetBlockFills() 234 PetscCall(DMMoabSetBlockFills_Private(dmmoab->numFields, ofill, &dmmoab->ofill)); in DMMoabSetBlockFills()
|
| H A D | dmmoab.cxx | 132 dmmoab->numFields = 1; in DMMoabCreateMoab() 133 PetscCall(PetscMalloc(dmmoab->numFields * sizeof(char *), &dmmoab->fieldNames)); in DMMoabCreateMoab() 923 for (i = 0; i < dmmoab->numFields; i++) PetscCall(PetscFree(dmmoab->fieldNames[i])); in DMDestroy_Moab() 1096 …PetscCheck(dmmoab->bs == dmmoab->numFields || dmmoab->bs == 1, PETSC_COMM_SELF, PETSC_ERR_ARG_WRON… in DMSetUp_Moab() 1097 dmmoab->numFields); in DMSetUp_Moab() 1105 PetscCall(PetscMalloc1(totsize * dmmoab->numFields, &lgmap)); in DMSetUp_Moab() 1113 …for (f = 0; f < dmmoab->numFields; f++, j++) lgmap[j] = (bs > 1 ? dmmoab->gsindices[i] * dmmoab->n… in DMSetUp_Moab() 1120 …for (f = 0; f < dmmoab->numFields; f++, j++) lgmap[j] = (bs > 1 ? dmmoab->gsindices[i] * dmmoab->n… in DMSetUp_Moab() 1135 …PetscCall(ISCreateStride(((PetscObject)dm)->comm, dmmoab->nloc * dmmoab->numFields, dmmoab->vstart… in DMSetUp_Moab() 1138 …PetscCall(ISCreateGeneral(((PetscObject)dm)->comm, dmmoab->nloc * dmmoab->numFields, &lgmap[0], PE… in DMSetUp_Moab() [all …]
|
| H A D | dmmbmg.cxx | 462 dd2->numFields = dmb->numFields; in DMMoab_UMR_Private() 489 dd2->numFields = dmb->numFields; in DMMoab_UMR_Private() 490 if (dmb->numFields) PetscCall(DMMoabSetFieldNames(dm2, dmb->numFields, dmb->fieldNames)); in DMMoab_UMR_Private()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex10.c | 8 PetscInt numFields; /* The number of section fields */ member 20 options->numFields = 1; in ProcessOptions() 26 …_fields", "The number of section fields", "ex10.c", options->numFields, &options->numFields, NULL,… in ProcessOptions() 27 if (options->numFields) { in ProcessOptions() 28 len = options->numFields; in ProcessOptions() 31 …->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Length of components array is %" PetscInt_FMT… in ProcessOptions() 156 PetscInt len = (dim + 1) * PetscMax(1, user.numFields); in main() 162 …numFields)), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Length of dof array is %" PetscInt_FMT " shoul… in main() 166 PetscCall(DMSetNumFields(dm, user.numFields)); in main() 173 PetscCall(DMSetNumFields(dm, user.numFields)); in main()
|
| H A D | ex52.c | 62 PetscInt numFields = 2; in main() local 65 for (PetscInt i = 0; i < numFields; i++) numDof[i * (dim + 1) + dim] = 1; in main() 67 PetscCall(DMSetNumFields(plex, numFields)); in main() 68 PetscCall(DMSetNumFields(forest, numFields)); in main() 74 …for (PetscInt i = 0; i < numFields; i++) PetscCall(PetscSectionSetFieldName(section, i, names[i])); in main() 81 for (PetscInt i = 0; i < numFields; i++) { in main()
|
| H A D | ex9.c | 11 PetscInt numFields; /* The number of section fields */ member 35 options->numFields = 0; in ProcessOptions() 52 …m_fields", "The number of section fields", "ex9.c", options->numFields, &options->numFields, NULL,… in ProcessOptions() 53 if (options->numFields) { in ProcessOptions() 54 len = options->numFields; in ProcessOptions() 57 …->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Length of components array is %" PetscInt_FMT… in ProcessOptions() 59 len = (options->dim + 1) * PetscMax(1, options->numFields); in ProcessOptions() 62 …numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Length of dof array is %" PetscInt_FMT " should… in ProcessOptions() 68 for (f = 0; f < options->numFields; ++f) { in ProcessOptions() 342 PetscCall(DMSetNumFields(dm, user->numFields)); in TestVecClosure()
|
| H A D | ex15.c | 13 PetscInt numFields = 1; in main() local 39 PetscCall(DMSetNumFields(dm, numFields)); in main()
|
| /petsc/src/dm/interface/ |
| H A D | dmi.c | 78 …scSectionSelectFields_Private(PetscSection s, PetscSection gs, PetscInt numFields, const PetscInt … in PetscSectionSelectFields_Private() argument 91 for (PetscInt f = 0, off = 0; f < numFields; ++f) { in PetscSectionSelectFields_Private() 101 for (PetscInt f = 0; f < numFields; ++f) { in PetscSectionSelectFields_Private() 117 for (PetscInt f = 0; f < numFields; ++f) { in PetscSectionSelectFields_Private() 175 for (PetscInt f = 0; f < numFields; ++f) { in PetscSectionSelectFields_Private() 234 static PetscErrorCode DMSelectFields_Private(DM dm, PetscSection section, PetscInt numFields, const… in DMSelectFields_Private() argument 244 …PetscCall(PetscCalloc2(numFields, &(*subdm)->nullspaceConstructors, numFields, &(*subdm)->nearnull… in DMSelectFields_Private() 249 …PetscCheck(numFields == 1, PETSC_COMM_SELF, PETSC_ERR_SUP, "We only support a single field for com… in DMSelectFields_Private() 287 …if (dm->coarseMesh) PetscCall(DMCreateSubDM(dm->coarseMesh, numFields, fields, NULL, &(*subdm)->co… in DMSelectFields_Private() 290 PetscCall(PetscSectionCreateSubsection(section, numFields, fields, &subsection)); in DMSelectFields_Private() [all …]
|
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex1.c | 10 PetscInt dim, numFields, numBC; in main() local 25 numFields = 3; in main() 29 for (PetscInt i = 0; i < numFields * (dim + 1); ++i) numDof[i] = 0; in main() 43 PetscCall(DMSetNumFields(dm, numFields)); in main()
|
| H A D | ex14.c | 11 PetscInt dim, numFields, numBC, i; in main() local 31 numFields = 2; in main() 34 for (i = 0; i < numFields * (dim + 1); ++i) numDof[i] = 0; in main() 43 PetscCall(DMSetNumFields(dm, numFields)); in main()
|
| H A D | ex1f90.F90 | 13 PetscInt :: dim, numFields, numBC 38 numFields = 3 43 do i = 1, numFields*(dim + 1) 70 PetscCallA(DMSetNumFields(dm, numFields, ierr))
|
| H A D | ex14f90.F90 | 9 PetscInt :: dim, numFields, numBC 30 numFields = 2 41 PetscCallA(DMSetNumFields(dm, numFields, ierr))
|
| /petsc/src/vec/is/section/interface/ |
| H A D | section.c | 54 (*s)->numFields = 0; in PetscSectionCreate() 98 PetscInt numFields, f, c, pStart, pEnd, p; in PetscSectionCopy_Internal() local 104 PetscCall(PetscSectionGetNumFields(section, &numFields)); in PetscSectionCopy_Internal() 105 if (numFields) PetscCall(PetscSectionSetNumFields(newSection, numFields)); in PetscSectionCopy_Internal() 106 for (f = 0; f < numFields; ++f) { in PetscSectionCopy_Internal() 136 for (f = 0; f < numFields; ++f) { in PetscSectionCopy_Internal() 160 for (f = 0; f < numFields; ++f) { in PetscSectionCopy_Internal() 350 PetscErrorCode PetscSectionGetNumFields(PetscSection s, PetscInt *numFields) in PetscSectionGetNumFields() argument 354 PetscAssertPointer(numFields, 2); in PetscSectionGetNumFields() 355 *numFields = s->numFields; in PetscSectionGetNumFields() [all …]
|
| /petsc/src/dm/impls/plex/ |
| H A D | plextree.c | 1144 PetscInt numFields, f, c, cStart, cEnd, pStart, pEnd, conStart, conEnd; in DMPlexComputeAnchorMatrix_Tree_Direct() local 1153 PetscCall(PetscDSGetNumFields(ds, &numFields)); in DMPlexComputeAnchorMatrix_Tree_Direct() 1161 for (f = 0; f < numFields; f++) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1249 if (numFields) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1279 if (numFields) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1291 if (numFields) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1306 if (numFields) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1323 if (numFields) { in DMPlexComputeAnchorMatrix_Tree_Direct() 1391 …PetscInt numFields, maxFields, f, pRefStart, pRefEnd, p, *rows, *cols, maxDof, maxAnDof… in DMPlexReferenceTreeGetChildrenMatrices() local 1401 PetscCall(PetscDSGetNumFields(ds, &numFields)); in DMPlexReferenceTreeGetChildrenMatrices() [all …]
|
| H A D | plex.c | 599 PetscInt numFields; in VecView_Plex_Local_VTK() local 609 PetscCall(PetscSectionGetNumFields(section, &numFields)); in VecView_Plex_Local_VTK() 610 if (!numFields) { in VecView_Plex_Local_VTK() 616 for (f = 0; f < numFields; f++) { in VecView_Plex_Local_VTK() 642 PetscInt i, numFields; in VecView_Plex_Local() local 650 PetscCall(DMGetNumFields(dm, &numFields)); in VecView_Plex_Local() 651 for (i = 0; i < numFields; i++) { in VecView_Plex_Local() 4329 PetscErrorCode DMCreateSubDM_Plex(DM dm, PetscInt numFields, const PetscInt fields[], IS *is, DM *s… in DMCreateSubDM_Plex() argument 4333 PetscCall(DMCreateSectionSubDM(dm, numFields, fields, NULL, NULL, is, subdm)); in DMCreateSubDM_Plex() 6524 …cSection section, PetscInt numPoints, const PetscInt points[], PetscInt numFields, const PetscInt … in DMPlexVecGetClosure_Fields_Static() argument [all …]
|
| /petsc/src/vec/is/section/interface/hdf5/ |
| H A D | sectionhdf5.c | 91 PetscInt numFields, f; in PetscSectionView_HDF5_Internal() local 95 PetscCall(PetscSectionGetNumFields(s, &numFields)); in PetscSectionView_HDF5_Internal() 96 …PetscCall(PetscViewerHDF5WriteAttribute(viewer, NULL, "numFields", PETSC_INT, (void *)&numFields)); in PetscSectionView_HDF5_Internal() 98 for (f = 0; f < numFields; ++f) { in PetscSectionView_HDF5_Internal() 276 PetscInt N, n, numFields, f; in PetscSectionLoad_HDF5_Internal() local 281 …Call(PetscViewerHDF5ReadAttribute(viewer, NULL, "numFields", PETSC_INT, NULL, (void *)&numFields)); in PetscSectionLoad_HDF5_Internal() 288 if (numFields > 0) PetscCall(PetscSectionSetNumFields(s, numFields)); in PetscSectionLoad_HDF5_Internal() 293 for (f = 0; f < numFields; ++f) { in PetscSectionLoad_HDF5_Internal()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vsection.c | 37 if (s->numFields) { in PetscSectionVecView() 38 …etscCall(PetscViewerASCIIPrintf(viewer, "%s with %" PetscInt_FMT " fields\n", name, s->numFields)); in PetscSectionVecView() 39 for (f = 0; f < s->numFields; ++f) { in PetscSectionVecView() 132 for (field = 0; field < s->numFields; ++field) { in VecSetValuesSection() 173 for (field = 0; field < s->numFields; ++field) { in VecSetValuesSection()
|
| /petsc/src/dm/impls/da/ |
| H A D | dacreate.c | 160 static PetscErrorCode DMCreateSubDM_DA(DM dm, PetscInt numFields, const PetscInt fields[], IS *is, … in DMCreateSubDM_DA() argument 189 PetscCall(DMDASetDof(*subdm, numFields)); in DMCreateSubDM_DA() 197 PetscCall(PetscMalloc1(da->Nlocal * numFields / dof, &indices)); in DMCreateSubDM_DA() 199 for (j = 0; j < numFields; ++j) indices[cnt++] = dof * i + fields[j]; in DMCreateSubDM_DA() 201 …* numFields / dof, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Count %" PetscInt_FMT " does not equal expect… in DMCreateSubDM_DA()
|
| /petsc/src/vec/is/sf/utils/ |
| H A D | sfutils.c | 243 PetscInt numFields, nroots, rpStart, rpEnd, lpStart = PETSC_INT_MAX, lpEnd = -1, f, c; in PetscSFDistributeSection() local 252 PetscCall(PetscSectionGetNumFields(rootSection, &numFields)); in PetscSFDistributeSection() 253 if (numFields) { in PetscSFDistributeSection() 262 PetscCall(PetscSectionSetNumFields(leafSection, numFields)); in PetscSFDistributeSection() 266 PetscCall(PetscMalloc1(numFields + 2, &sub)); in PetscSFDistributeSection() 268 for (f = 0; f < numFields; ++f) { in PetscSFDistributeSection() 293 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, sub, 2 + numFields, MPI_C_BOOL, MPI_LOR, PetscObjectComm… in PetscSFDistributeSection() 311 for (f = 0; f < numFields; ++f) hasc = (PetscBool)(hasc || sub[2 + f]); in PetscSFDistributeSection() 322 for (f = 0; f < numFields; ++f) { in PetscSFDistributeSection() 352 for (f = 0; f < numFields; ++f) { in PetscSFDistributeSection()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex52.c | 269 PetscInt dim, numFields = 1, numBC, i; in main() local 291 for (i = 0; i < numFields * (dim + 1); ++i) numDof[i] = 0; in main() 305 PetscCall(DMSetNumFields(da, numFields)); in main()
|
| /petsc/include/petsc/private/ |
| H A D | dmmbimpl.h | 40 PetscInt numFields; member
|
| /petsc/src/snes/utils/ |
| H A D | dmplexsnes.c | 192 PetscInt numFields, f, pStart, pEnd, p; in SNESMonitorFields() local 199 PetscCall(PetscSectionGetNumFields(s, &numFields)); in SNESMonitorFields() 201 PetscCall(PetscCalloc2(numFields, &lnorms, numFields, &norms)); in SNESMonitorFields() 204 for (f = 0; f < numFields; ++f) { in SNESMonitorFields() 213 …PetscCallMPI(MPIU_Allreduce(lnorms, norms, numFields, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscO… in SNESMonitorFields() 217 for (f = 0; f < numFields; ++f) { in SNESMonitorFields()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | Section.pyx | 134 cdef PetscInt numFields = 0 135 CHKERR(PetscSectionGetNumFields(self.sec, &numFields)) 136 return toInt(numFields) 138 def setNumFields(self, numFields: int) -> None: 145 numFields 153 cdef PetscInt cnumFields = asInt(numFields)
|