22   DM_Moab           *dmmoab;  in DMMoabSetFieldVector()  local
31   dmmoab = (DM_Moab *)dm->data;  in DMMoabSetFieldVector()
33 …(ifield >= dmmoab->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "The field %d should be …  in DMMoabSetFieldVector()
36 …merr = dmmoab->mbiface->tag_get_handle(dmmoab->fieldNames[ifield], 1, moab::MB_TYPE_DOUBLE, ntag, …  in DMMoabSetFieldVector()
41   merr = dmmoab->mbiface->tag_get_name(vtag, tag_name);  in DMMoabSetFieldVector()
45     merr = dmmoab->mbiface->tag_set_data(ntag, *dmmoab->vowned, (const void *)varray);  in DMMoabSetFieldVector()
49     PetscCall(PetscMalloc1(dmmoab->nloc, &farray));  in DMMoabSetFieldVector()
51     merr = dmmoab->mbiface->tag_get_data(vtag, *dmmoab->vowned, (void *)farray);  in DMMoabSetFieldVector()
53     merr = dmmoab->mbiface->tag_set_data(ntag, *dmmoab->vowned, (const void *)farray);  in DMMoabSetFieldVector()
59   merr = dmmoab->pcomm->exchange_tags(ntag, *dmmoab->vowned);  in DMMoabSetFieldVector()
83   DM_Moab              *dmmoab;  in DMMoabSetGlobalFieldVector()  local
94   dmmoab = (DM_Moab *)dm->data;  in DMMoabSetGlobalFieldVector()
98   merr = dmmoab->mbiface->tag_get_name(vtag, tag_name);  in DMMoabSetGlobalFieldVector()
99   PetscCall(PetscMalloc1(dmmoab->nloc, &farray));  in DMMoabSetGlobalFieldVector()
103     for (ifield = 0; ifield < dmmoab->numFields; ++ifield) {  in DMMoabSetGlobalFieldVector()
105 …merr = dmmoab->mbiface->tag_get_handle(dmmoab->fieldNames[ifield], 1, moab::MB_TYPE_DOUBLE, ntag, …  in DMMoabSetGlobalFieldVector()
108 …for (i = 0; i < dmmoab->nloc; i++) farray[i] = (dmmoab->bs == 1 ? rarray[ifield * dmmoab->nloc + i…  in DMMoabSetGlobalFieldVector()
111       merr = dmmoab->mbiface->tag_set_data(ntag, *dmmoab->vowned, (const void *)farray);  in DMMoabSetGlobalFieldVector()
116     PetscCall(PetscMalloc1(dmmoab->nloc * dmmoab->numFields, &varray));  in DMMoabSetGlobalFieldVector()
119     merr = dmmoab->mbiface->tag_get_data(vtag, *dmmoab->vowned, (void *)varray);  in DMMoabSetGlobalFieldVector()
121     for (ifield = 0; ifield < dmmoab->numFields; ++ifield) {  in DMMoabSetGlobalFieldVector()
123 …merr = dmmoab->mbiface->tag_get_handle(dmmoab->fieldNames[ifield], 1, moab::MB_TYPE_DOUBLE, ntag, …  in DMMoabSetGlobalFieldVector()
127 …for (i = 0; i < dmmoab->nloc; i++) farray[i] = (dmmoab->bs == 1 ? varray[ifield * dmmoab->nloc + i…  in DMMoabSetGlobalFieldVector()
129       merr = dmmoab->mbiface->tag_set_data(ntag, *dmmoab->vowned, (const void *)farray);  in DMMoabSetGlobalFieldVector()
134       merr = dmmoab->pcomm->exchange_tags(ntag, *dmmoab->vlocal);  in DMMoabSetGlobalFieldVector()
161   DM_Moab *dmmoab;  in DMMoabSetFieldNames()  local
165   dmmoab = (DM_Moab *)dm->data;  in DMMoabSetFieldNames()
168   if (dmmoab->fieldNames) {  in DMMoabSetFieldNames()
169     for (i = 0; i < dmmoab->numFields; i++) PetscCall(PetscFree(dmmoab->fieldNames[i]));  in DMMoabSetFieldNames()
170     PetscCall(PetscFree(dmmoab->fieldNames));  in DMMoabSetFieldNames()
174   dmmoab->numFields = numFields;  in DMMoabSetFieldNames()
175   PetscCall(PetscMalloc1(numFields, &dmmoab->fieldNames));  in DMMoabSetFieldNames()
177 …for (i = 0; i < dmmoab->numFields; i++) PetscCall(PetscStrallocpy(fields[i], (char **)&dmmoab->fie…  in DMMoabSetFieldNames()
203   DM_Moab *dmmoab;  in DMMoabGetFieldName()  local
207   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetFieldName()
208 … 0) && !(field >= dmmoab->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "DM field %d shou…  in DMMoabGetFieldName()
210   *fieldName = dmmoab->fieldNames[field];  in DMMoabGetFieldName()
233   DM_Moab *dmmoab;  in DMMoabSetFieldName()  local
239   dmmoab = (DM_Moab *)dm->data;  in DMMoabSetFieldName()
240 … 0) && !(field >= dmmoab->numFields), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "DM field %d shou…  in DMMoabSetFieldName()
242   if (dmmoab->fieldNames[field]) PetscCall(PetscFree(dmmoab->fieldNames[field]));  in DMMoabSetFieldName()
243   PetscCall(PetscStrallocpy(fieldName, (char **)&dmmoab->fieldNames[field]));  in DMMoabSetFieldName()
267   DM_Moab *dmmoab;  in DMMoabGetFieldDof()  local
271   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetFieldDof()
273 …dmmoab->bs == 1 ? dmmoab->gidmap[dmmoab->mbiface->id_from_handle(point) - dmmoab->seqstart] + fiel…  in DMMoabGetFieldDof()
299   DM_Moab *dmmoab;  in DMMoabGetFieldDofs()  local
304   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetFieldDofs()
312 …dmmoab->bs == 1 ? dmmoab->gidmap[dmmoab->mbiface->id_from_handle(points[i]) - dmmoab->seqstart] + …  in DMMoabGetFieldDofs()
338   DM_Moab *dmmoab;  in DMMoabGetFieldDofsLocal()  local
343   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetFieldDofsLocal()
351 …dmmoab->bs > 1 ? dmmoab->lidmap[dmmoab->mbiface->id_from_handle(points[i]) - dmmoab->seqstart] * d…  in DMMoabGetFieldDofsLocal()
377   DM_Moab *dmmoab;  in DMMoabGetDofs()  local
382   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetDofs()
384   if (!dof) PetscCall(PetscMalloc1(dmmoab->numFields * npoints, &dof));  in DMMoabGetDofs()
389   for (field = 0; field < dmmoab->numFields; ++field) {  in DMMoabGetDofs()
390     offset = field * dmmoab->n;  in DMMoabGetDofs()
392 …dmmoab->numFields + field] = (dmmoab->bs > 1 ? dmmoab->gidmap[dmmoab->mbiface->id_from_handle(poin…  in DMMoabGetDofs()
418   DM_Moab *dmmoab;  in DMMoabGetDofsLocal()  local
423   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetDofsLocal()
425   if (!dof) PetscCall(PetscMalloc1(dmmoab->numFields * npoints, &dof));  in DMMoabGetDofsLocal()
430   for (field = 0; field < dmmoab->numFields; ++field) {  in DMMoabGetDofsLocal()
431     offset = field * dmmoab->n;  in DMMoabGetDofsLocal()
433 …dmmoab->numFields + field] = (dmmoab->bs > 1 ? dmmoab->lidmap[dmmoab->mbiface->id_from_handle(poin…  in DMMoabGetDofsLocal()
460   DM_Moab *dmmoab;  in DMMoabGetDofsBlocked()  local
465   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetDofsBlocked()
469   for (i = 0; i < npoints; ++i) dof[i] = dmmoab->gidmap[(PetscInt)points[i] - dmmoab->seqstart];  in DMMoabGetDofsBlocked()
495   DM_Moab *dmmoab;  in DMMoabGetDofsBlockedLocal()  local
500   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetDofsBlockedLocal()
504   for (i = 0; i < npoints; ++i) dof[i] = dmmoab->lidmap[(PetscInt)points[i] - dmmoab->seqstart];  in DMMoabGetDofsBlockedLocal()
530   DM_Moab *dmmoab;  in DMMoabGetVertexDofsBlocked()  local
534   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetVertexDofsBlocked()
536   *dof = dmmoab->gidmap;  in DMMoabGetVertexDofsBlocked()
562   DM_Moab *dmmoab;  in DMMoabGetVertexDofsBlockedLocal()  local
567   dmmoab = (DM_Moab *)dm->data;  in DMMoabGetVertexDofsBlockedLocal()
569   *dof = dmmoab->lidmap;  in DMMoabGetVertexDofsBlockedLocal()