Searched refs:IDLE_TAG (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/tao/leastsquares/tutorials/ |
| H A D | chwirut2.c | 30 #define IDLE_TAG 1000 macro
125 if (status.MPI_TAG == IDLE_TAG) { in EvaluateFunction()
139 … PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, IDLE_TAG, PETSC_COMM_WORLD)); in EvaluateFunction()
604 PetscMPIInt tag = IDLE_TAG; in TaskWorker()
611 PetscCallMPI(MPI_Send(&f, 1, MPIU_REAL, 0, IDLE_TAG, PETSC_COMM_WORLD)); in TaskWorker()
615 if (tag == IDLE_TAG) { in TaskWorker()
616 PetscCallMPI(MPI_Send(&f, 1, MPIU_REAL, 0, IDLE_TAG, PETSC_COMM_WORLD)); in TaskWorker()
|
| H A D | chwirut2f.F90 | 256 tag = IDLE_TAG
259 PetscCallMPI(MPI_Send(f, one, MPIU_SCALAR, zero, IDLE_TAG, PETSC_COMM_WORLD, ierr))
267 if (tag == IDLE_TAG) then
268 PetscCallMPI(MPI_Send(f, one, MPIU_SCALAR, zero, IDLE_TAG, PETSC_COMM_WORLD, ierr))
378 if (tag == IDLE_TAG) then
390 PetscCallMPI(MPI_Send(x_v, nn, MPIU_SCALAR, source, IDLE_TAG, PETSC_COMM_WORLD, ierr))
|