| /petsc/src/dm/tests/ |
| H A D | ex54f.F90 | 9 subroutine myFieldDecomp(dm, nfields, fieldNames, isFields, subDms, ierr)
13 PetscInt, intent(out) :: nfields
38 PetscInt, intent(out) :: nfields
45 nfields = 2
46 allocate (fieldNames(nfields))
47 allocate (isFields(nfields))
48 allocate (subDms(nfields))
52 do i = 1, nfields
|
| /petsc/src/dm/impls/moab/ |
| H A D | dmmbmat.cxx | 66 PetscInt ibs, jbs, inbsize, iobsize, nfields, nlsiz; in DMMoab_Compute_NNZ_From_Connectivity() local
77 nfields = dmmoab->numFields; in DMMoab_Compute_NNZ_From_Connectivity()
78 isinterlaced = (isbaij || bs == nfields ? PETSC_TRUE : PETSC_FALSE); in DMMoab_Compute_NNZ_From_Connectivity()
79 nlsiz = (isinterlaced ? nloc : nloc * nfields); in DMMoab_Compute_NNZ_From_Connectivity()
124 for (f = 0; f < nfields; f++) { in DMMoab_Compute_NNZ_From_Connectivity()
129 for (f = 0; f < nfields; f++) { in DMMoab_Compute_NNZ_From_Connectivity()
130 …nnz[nfields * ivtx + f] = n_nnz; /* leave out self to avoid repeats -> node shared by mul… in DMMoab_Compute_NNZ_From_Connectivity()
131 if (onz) onz[nfields * ivtx + f] = n_onz; /* add ghost non-owned nodes */ in DMMoab_Compute_NNZ_From_Connectivity()
141 for (ibs = 0; ibs < nfields; ibs++) { in DMMoab_Compute_NNZ_From_Connectivity()
144 … for (jbs = 0, inbsize = 0; jbs < nfields; jbs++) inbsize += dmmoab->dfill[ibs * nfields + jbs]; in DMMoab_Compute_NNZ_From_Connectivity()
[all …]
|
| /petsc/src/vec/vec/utils/ |
| H A D | vecglvis.c | 23 PetscInt i, nfields, *spacedim; in VecView_GLVis() local
30 PetscCall(PetscViewerGLVisGetFields_Internal(viewer, &nfields, NULL, NULL, NULL, NULL, NULL)); in VecView_GLVis()
31 if (!nfields) { in VecView_GLVis()
38 …PetscCall(PetscViewerGLVisGetFields_Internal(viewer, &nfields, &fec_type, &spacedim, &g2lfields, (… in VecView_GLVis()
39 if (!nfields) PetscFunctionReturn(PETSC_SUCCESS); in VecView_GLVis()
43 for (i = 0; i < nfields; i++) { in VecView_GLVis()
70 PetscCall((*g2lfields)((PetscObject)U, nfields, (PetscObject *)Ufield, ctx)); in VecView_GLVis()
72 …PetscCheck(nfields <= 1, PetscObjectComm((PetscObject)U), PETSC_ERR_SUP, "Don't know how to sample… in VecView_GLVis()
77 for (i = 0; i < nfields; i++) { in VecView_GLVis()
|
| /petsc/src/dm/impls/moab/tests/ |
| H A D | ex2.cxx | 17 PetscInt nfields; /* Number of fields */ member
29 options->nfields = 256; in ProcessOptions()
44 …e list of names of the field variables", "ex2.cxx", options->fieldnames, &options->nfields, &flg)); in ProcessOptions()
47 …ug) PetscCall(PetscPrintf(comm, "Total number of fields: %" PetscInt_FMT ".\n", options->nfields)); in ProcessOptions()
49 options->nfields = 1; in ProcessOptions()
80 …for (i = 0; i < user->nfields; i++) PetscCall(PetscPrintf(comm, "\t Field{%" PetscInt_FMT "} = %s.… in CreateMesh()
82 PetscCall(DMMoabSetFieldNames(user->dm, user->nfields, (const char **)user->fieldnames)); in CreateMesh()
104 PetscCall(DMMoabSetBlockSize(user.dm, user.interlace ? user.nfields : 1)); in main()
127 if (user.nfields) { in main()
128 for (i = 0; i < user.nfields; i++) PetscCall(PetscFree(user.fieldnames[i])); in main()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexvtu.c | 271 PetscInt bs = 1, nfields, field; in DMPlexVTKWriteAll_VTU() local
283 PetscCall(PetscSectionGetNumFields(section, &nfields)); in DMPlexVTKWriteAll_VTU()
287 nfields = field + 1; in DMPlexVTKWriteAll_VTU()
289 for (i = 0; field < (nfields ? nfields : 1); field++) { in DMPlexVTKWriteAll_VTU()
296 if (nfields) { /* We have user-defined fields/components */ in DMPlexVTKWriteAll_VTU()
301 if (nfields && !fieldname) { in DMPlexVTKWriteAll_VTU()
365 PetscInt bs = 1, nfields, field; in DMPlexVTKWriteAll_VTU() local
377 PetscCall(PetscSectionGetNumFields(section, &nfields)); in DMPlexVTKWriteAll_VTU()
381 nfields = field + 1; in DMPlexVTKWriteAll_VTU()
383 for (; field < (nfields ? nfields : 1); field++) { in DMPlexVTKWriteAll_VTU()
[all …]
|
| H A D | plexglvis.c | 50 PetscInt f, maxfields, nfields, c, totc, totdofs, Nv, cum, i; in DMSetUpGLVisViewer_Plex() local
85 PetscCall(PetscSectionGetNumFields(s, &nfields)); in DMSetUpGLVisViewer_Plex()
86 for (f = 0, maxfields = 0; f < nfields; f++) { in DMSetUpGLVisViewer_Plex()
97 for (f = 0; f < nfields; f++) { in DMSetUpGLVisViewer_Plex()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | data_bucket.c | 82 db->nfields = 0; in DMSwarmDataBucketCreate()
95 for (f = 0; f < db->nfields; ++f) PetscCall(DMSwarmDataFieldDestroy(&db->field[f])); in DMSwarmDataBucketDestroy()
109 for (f = 0; f < db->nfields; ++f) { in DMSwarmDataBucketQueryForActiveFields()
132 …PetscCall(DMSwarmDataFieldStringInList(field_name, db->nfields, (const DMSwarmDataField *)db->fiel… in DMSwarmDataBucketRegisterField()
135 PetscCall(PetscRealloc(sizeof(DMSwarmDataField) * (db->nfields + 1), &db->field)); in DMSwarmDataBucketRegisterField()
138 db->field[db->nfields] = fp; in DMSwarmDataBucketRegisterField()
139 db->nfields++; in DMSwarmDataBucketRegisterField()
159 …PetscCall(DMSwarmDataFieldStringInList(name, db->nfields, (const DMSwarmDataField *)db->field, &fo… in DMSwarmDataBucketGetDMSwarmDataFieldIdByName()
161 …PetscCall(DMSwarmDataFieldStringFindInList(name, db->nfields, (const DMSwarmDataField *)db->field,… in DMSwarmDataBucketGetDMSwarmDataFieldIdByName()
171 …PetscCall(DMSwarmDataFieldStringInList(name, db->nfields, (const DMSwarmDataField *)db->field, &fo… in DMSwarmDataBucketGetDMSwarmDataFieldByName()
[all …]
|
| H A D | swarmpic_view.c | 339 PetscErrorCode DMSwarmViewFieldsXDMF(DM dm, const char filename[], PetscInt nfields, const char *fi… in DMSwarmViewFieldsXDMF() argument
349 for (f = 0; f < nfields; f++) { in DMSwarmViewFieldsXDMF()
407 …for (f = 4; f < swarm->db->nfields; f++) { /* only examine user defined fields - the first 4 are i… in DMSwarmViewXDMF()
|
| H A D | data_bucket.h | 33 PetscInt nfields; /* how many fields of this type */ member
|
| /petsc/src/dm/impls/da/ |
| H A D | dacorn.c | 280 PetscErrorCode DMDAGetReducedDMDA(DM da, PetscInt nfields, DM *nda) in DMDAGetReducedDMDA() argument
283 PetscCall(DMDACreateCompatibleDMDA(da, nfields, nda)); in DMDAGetReducedDMDA()
304 PetscErrorCode DMDACreateCompatibleDMDA(DM da, PetscInt nfields, DM *nda) in DMDACreateCompatibleDMDA() argument
332 PetscCall(DMDACreate1d(PetscObjectComm((PetscObject)da), bx, M, nfields, s, dd->lx, nda)); in DMDACreateCompatibleDMDA()
334 …te2d(PetscObjectComm((PetscObject)da), bx, by, stencil_type, M, N, m, n, nfields, s, lx, ly, nda)); in DMDACreateCompatibleDMDA()
336 …ObjectComm((PetscObject)da), bx, by, bz, stencil_type, M, N, P, m, n, p, nfields, s, lx, ly, lz, n… in DMDACreateCompatibleDMDA()
|
| H A D | gr1.c | 118 PetscInt nfields = step; in DMDASelectFields() local
120 … PetscCall(PetscOptionsGetStringArray(NULL, NULL, "-draw_fields_by_name", fields, &nfields, &flg)); in DMDASelectFields()
123 for (k = 0; k < nfields; k++) { in DMDASelectFields()
134 for (k = 0; k < nfields; k++) PetscCall(PetscFree(fields[k])); in DMDASelectFields()
|
| /petsc/src/dm/tutorials/ |
| H A D | ex11f90.F90 | 20 PetscInt nfields
114 …PetscCallA(DMCreateFieldDecomposition(ada, nfields, namefields, PETSC_NULL_IS_POINTER, PETSC_NULL_…
116 …PetscCallA(DMDestroyFieldDecomposition(ada, nfields, namefields, PETSC_NULL_IS_POINTER, PETSC_NULL…
117 PetscCallA(DMCreateFieldDecomposition(ada, nfields, namefields, isfields, dmfields, ierr))
118 PetscCallA(DMDestroyFieldDecomposition(ada, nfields, namefields, isfields, dmfields, ierr))
|
| /petsc/src/snes/impls/multiblock/ |
| H A D | multiblock.c | 7 PetscInt nfields; /* If block is defined on a DA, the number of DA fields */ member
77 PetscInt i, nfields; in SNESMultiblockSetFieldsRuntime_Private() local
86 nfields = mb->bs; in SNESMultiblockSetFieldsRuntime_Private()
87 …l(PetscOptionsGetIntArray(NULL, ((PetscObject)snes)->prefix, optionname, ifields, &nfields, &flg)); in SNESMultiblockSetFieldsRuntime_Private()
89 PetscCheck(nfields, PETSC_COMM_SELF, PETSC_ERR_USER, "Cannot list zero fields"); in SNESMultiblockSetFieldsRuntime_Private()
90 PetscCall(SNESMultiblockSetFields(snes, name, nfields, ifields)); in SNESMultiblockSetFieldsRuntime_Private()
210 if (blocks->nfields > 1) { in SNESSetUp_Multiblock()
211 PetscInt *ii, j, k, nfields = blocks->nfields, *fields = blocks->fields; in SNESSetUp_Multiblock() local
213 PetscCall(PetscMalloc1(nfields * nslots, &ii)); in SNESSetUp_Multiblock()
215 for (k = 0; k < nfields; ++k) ii[nfields * j + k] = rstart + bs * j + fields[k]; in SNESSetUp_Multiblock()
[all …]
|
| /petsc/src/sys/classes/viewer/impls/glvis/ |
| H A D | glvis.c | 141 static PetscErrorCode PetscViewerGLVisSetFields_GLVis(PetscViewer viewer, PetscInt nfields, const c… in PetscViewerGLVisSetFields_GLVis() argument
147 …nfields, PetscObjectComm((PetscObject)viewer), PETSC_ERR_USER, "Cannot set number of fields %" Pet… in PetscViewerGLVisSetFields_GLVis()
149 socket->nwindow = nfields; in PetscViewerGLVisSetFields_GLVis()
151 …ll(PetscCalloc5(nfields, &socket->window, nfields, &socket->windowtitle, nfields, &socket->fec_typ… in PetscViewerGLVisSetFields_GLVis()
152 for (i = 0; i < nfields; i++) { in PetscViewerGLVisSetFields_GLVis()
164 …nfields == socket->nwindow, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Cannot visualize… in PetscViewerGLVisSetFields_GLVis()
|
| /petsc/include/petsc/private/ |
| H A D | sectionimpl.h | 118 …#define PetscSectionCheckValidField(field, nfields) PetscSectionCheckValid_("field number", field,… argument
|
| /petsc/src/dm/tutorials/output/ |
| H A D | swarm_ex1_3.out | 7 nfields registered = 5
|
| H A D | swarm_ex1_7.out | 7 nfields registered = 5
|
| /petsc/src/ksp/ksp/utils/dm/ |
| H A D | dmproject.c | 613 static PetscErrorCode DMSwarmProjectFields_DA_Internal(DM swarm, DM celldm, PetscInt nfields, DMSwa… in DMSwarmProjectFields_DA_Internal() argument
626 for (f = 0; f < nfields; f++) { in DMSwarmProjectFields_DA_Internal()
675 PetscErrorCode DMSwarmProjectFields(DM sw, DM dm, PetscInt nfields, const char *fieldnames[], Vec f… in DMSwarmProjectFields() argument
688 PetscCall(PetscMalloc1(nfields, &gfield)); in DMSwarmProjectFields()
689 …for (PetscInt f = 0; f < nfields; ++f) PetscCall(DMSwarmDataBucketGetDMSwarmDataFieldByName(swarm-… in DMSwarmProjectFields()
692 for (PetscInt f = 0; f < nfields; f++) { in DMSwarmProjectFields()
696 PetscCall(DMSwarmProjectFields_DA_Internal(sw, dm, nfields, gfield, fields, mode)); in DMSwarmProjectFields()
701 …f == nfields, comm, PETSC_ERR_ARG_WRONG, "Number of DM fields %" PetscInt_FMT " != %" PetscInt_FMT… in DMSwarmProjectFields()
702 PetscCall(DMSwarmProjectFields_Plex_Internal(sw, dm, nfields, fieldnames, fields[0], mode)); in DMSwarmProjectFields()
818 PetscErrorCode DMSwarmProjectGradientFields(DM sw, DM dm, PetscInt nfields, const char *fieldnames[… in DMSwarmProjectGradientFields() argument
[all …]
|
| /petsc/src/dm/impls/swarm/tests/output/ |
| H A D | ex2_proj_tri_2_faces_quad_order_3.out | 17 nfields registered = 5
|
| H A D | ex2_proj_0.out | 17 nfields registered = 5
|
| H A D | ex2_proj_quad_2_faces_quad_order_3.out | 17 nfields registered = 5
|
| H A D | ex2_proj_tri_quad_order_3.out | 17 nfields registered = 5
|
| H A D | ex2_proj_quad_2_faces_quad_order_2.out | 17 nfields registered = 5
|
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 24 PetscInt nfields; member
132 for (j = 0; j < ilink->nfields; j++) { in PCView_FieldSplit()
216 for (j = 0; j < ilink->nfields; j++) { in PCView_FieldSplit_Schur()
316 for (j = 0; j < ilink->nfields; j++) { in PCView_FieldSplit_GKB()
354 PetscInt bs, i, nfields, *ifields, nfields_col, *ifields_col; in PCFieldSplitSetRuntimeSplits_Private() local
370 nfields = bs; in PCFieldSplitSetRuntimeSplits_Private()
372 …Array(((PetscObject)pc)->options, ((PetscObject)pc)->prefix, optionname, ifields, &nfields, &flg)); in PCFieldSplitSetRuntimeSplits_Private()
376 PetscCheck(nfields, PETSC_COMM_SELF, PETSC_ERR_USER, "Cannot list zero fields"); in PCFieldSplitSetRuntimeSplits_Private()
377 PetscCall(PCFieldSplitSetFields(pc, splitname, nfields, ifields, ifields)); in PCFieldSplitSetRuntimeSplits_Private()
379 … PetscCheck(nfields && nfields_col, PETSC_COMM_SELF, PETSC_ERR_USER, "Cannot list zero fields"); in PCFieldSplitSetRuntimeSplits_Private()
[all …]
|
| /petsc/src/dm/impls/shell/ftn-custom/ |
| H A D | zdmshellf.c | 85 static PetscErrorCode ourcreatefielddecomposition(DM dm, PetscInt *nfields, char ***names, IS **is,… in ourcreatefielddecomposition() argument
87 …ion, (DM *, PetscInt *, char ***, IS **, DM **, PetscErrorCode *), (&dm, nfields, names, is, subdm… in ourcreatefielddecomposition()
|