476   int       dim = 0, physDim = 0, coordDim = 0, numVertices = 0, numCells = 0;  in DMPlexCreateCGNS_Internal_Serial()  local
505     coordDim = dim;  in DMPlexCreateCGNS_Internal_Serial()
509   PetscCallMPI(MPI_Bcast(&coordDim, 1, MPI_INT, 0, comm));  in DMPlexCreateCGNS_Internal_Serial()
620   PetscCall(DMSetCoordinateDim(*dm, coordDim));  in DMPlexCreateCGNS_Internal_Serial()
624   PetscCall(PetscSectionSetFieldComponents(coordSection, 0, coordDim));  in DMPlexCreateCGNS_Internal_Serial()
628     PetscCall(PetscSectionSetFieldDof(coordSection, v, 0, coordDim));  in DMPlexCreateCGNS_Internal_Serial()
652 …PetscCheck(ncoords == coordDim, PETSC_COMM_SELF, PETSC_ERR_LIB, "CGNS file must have a coordinate …  in DMPlexCreateCGNS_Internal_Serial()
653       for (d = 0; d < coordDim; ++d) {  in DMPlexCreateCGNS_Internal_Serial()
657       if (coordDim >= 1) {  in DMPlexCreateCGNS_Internal_Serial()
658         for (v = 0; v < sizes[0]; ++v) coords[(v + off) * coordDim + 0] = x[0][v];  in DMPlexCreateCGNS_Internal_Serial()
660       if (coordDim >= 2) {  in DMPlexCreateCGNS_Internal_Serial()
661         for (v = 0; v < sizes[0]; ++v) coords[(v + off) * coordDim + 1] = x[1][v];  in DMPlexCreateCGNS_Internal_Serial()
663       if (coordDim >= 3) {  in DMPlexCreateCGNS_Internal_Serial()
664         for (v = 0; v < sizes[0]; ++v) coords[(v + off) * coordDim + 2] = x[2][v];  in DMPlexCreateCGNS_Internal_Serial()
673   PetscCall(VecSetBlockSize(coordinates, coordDim));  in DMPlexCreateCGNS_Internal_Serial()
1546   int      dim = 0, physDim = 0, coordDim = 0;  in DMPlexCreateCGNS_Internal_Parallel()  local
1574   coordDim = dim;  in DMPlexCreateCGNS_Internal_Parallel()
1724 …PetscCall(PetscFECreateLagrangeByCell(PETSC_COMM_SELF, dim, coordDim, dm_cell_type, pOrder, PETSC_…  in DMPlexCreateCGNS_Internal_Parallel()
1738     PetscCall(PetscMalloc1(myownedv * coordDim, &coords));  in DMPlexCreateCGNS_Internal_Parallel()
1749 …PetscCheck(ncoords == coordDim, PETSC_COMM_SELF, PETSC_ERR_LIB, "CGNS file must have a coordinate …  in DMPlexCreateCGNS_Internal_Parallel()
1751 …for (int d = 0; d < coordDim; ++d) PetscCallCGNSReadData(cgp_coord_read_data(cgid, base, zone, (d …  in DMPlexCreateCGNS_Internal_Parallel()
1752         if (coordDim >= 1) {  in DMPlexCreateCGNS_Internal_Parallel()
1753           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 0] = xd[0][v];  in DMPlexCreateCGNS_Internal_Parallel()
1755         if (coordDim >= 2) {  in DMPlexCreateCGNS_Internal_Parallel()
1756           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 1] = xd[1][v];  in DMPlexCreateCGNS_Internal_Parallel()
1758         if (coordDim >= 3) {  in DMPlexCreateCGNS_Internal_Parallel()
1759           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 2] = xd[2][v];  in DMPlexCreateCGNS_Internal_Parallel()
1762 …for (int d = 0; d < coordDim; ++d) PetscCallCGNSReadData(cgp_coord_read_data(cgid, 1, zone, (d + 1…  in DMPlexCreateCGNS_Internal_Parallel()
1763         if (coordDim >= 1) {  in DMPlexCreateCGNS_Internal_Parallel()
1764           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 0] = x[0][v];  in DMPlexCreateCGNS_Internal_Parallel()
1766         if (coordDim >= 2) {  in DMPlexCreateCGNS_Internal_Parallel()
1767           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 1] = x[1][v];  in DMPlexCreateCGNS_Internal_Parallel()
1769         if (coordDim >= 3) {  in DMPlexCreateCGNS_Internal_Parallel()
1770           for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 2] = x[2][v];  in DMPlexCreateCGNS_Internal_Parallel()
1786       PetscCallMPI(MPI_Type_contiguous(coordDim, MPIU_SCALAR, &unit));  in DMPlexCreateCGNS_Internal_Parallel()