5 static PetscErrorCode CharacteristicView_DA(Characteristic c, PetscViewer viewer)  in CharacteristicView_DA()  argument
7   Characteristic_DA *da = (Characteristic_DA *)c->data;  in CharacteristicView_DA()
22 static PetscErrorCode CharacteristicDestroy_DA(Characteristic c)  in CharacteristicDestroy_DA()  argument
24   Characteristic_DA *da = (Characteristic_DA *)c->data;  in CharacteristicDestroy_DA()
31 static PetscErrorCode CharacteristicSetUp_DA(Characteristic c)  in CharacteristicSetUp_DA()  argument
38 …PetscCall(DMDAGetInfo(c->velocityDA, &dim, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, N…  in CharacteristicSetUp_DA()
39   if (c->structured) PetscCall(PetscMPIIntCast(dim, &c->numIds));  in CharacteristicSetUp_DA()
40   else c->numIds = 3;  in CharacteristicSetUp_DA()
41 …c->numFieldComp <= MAX_COMPONENTS, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "The maximum number …  in CharacteristicSetUp_DA()
45   blockLen[0] = 1 + c->numIds;  in CharacteristicSetUp_DA()
49   indices[1]  = (1 + c->numIds) * sizeof(PetscInt);  in CharacteristicSetUp_DA()
51   PetscCallMPI(MPI_Type_create_struct(2, blockLen, indices, oldtypes, &c->itemType));  in CharacteristicSetUp_DA()
52   PetscCallMPI(MPI_Type_commit(&c->itemType));  in CharacteristicSetUp_DA()
55   PetscCall(VecGetLocalSize(c->velocity, &c->queueMax));  in CharacteristicSetUp_DA()
56   PetscCall(PetscMalloc1(c->queueMax, &c->queue));  in CharacteristicSetUp_DA()
57   c->queueSize = 0;  in CharacteristicSetUp_DA()
60 …k(c->numNeighbors > 0, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Invalid number of neighbors %d.…  in CharacteristicSetUp_DA()
61   PetscCall(PetscMalloc1(c->numNeighbors, &c->needCount));  in CharacteristicSetUp_DA()
62   PetscCall(PetscMalloc1(c->numNeighbors, &c->localOffsets));  in CharacteristicSetUp_DA()
63   PetscCall(PetscMalloc1(c->numNeighbors, &c->fillCount));  in CharacteristicSetUp_DA()
64   PetscCall(PetscMalloc1(c->numNeighbors, &c->remoteOffsets));  in CharacteristicSetUp_DA()
65   PetscCall(PetscMalloc1(c->numNeighbors - 1, &c->request));  in CharacteristicSetUp_DA()
66   PetscCall(PetscMalloc1(c->numNeighbors - 1, &c->status));  in CharacteristicSetUp_DA()
70 PETSC_EXTERN PetscErrorCode CharacteristicCreate_DA(Characteristic c)  in CharacteristicCreate_DA()  argument
77   c->data = (void *)da;  in CharacteristicCreate_DA()
79   c->ops->setup   = CharacteristicSetUp_DA;  in CharacteristicCreate_DA()
80   c->ops->destroy = CharacteristicDestroy_DA;  in CharacteristicCreate_DA()
81   c->ops->view    = CharacteristicView_DA;  in CharacteristicCreate_DA()