117     MPI_Status  status;  in EvaluateFunction()  local
124 …PetscCallMPI(MPI_Recv(&f_i, 1, MPIU_REAL, MPI_ANY_SOURCE, MPI_ANY_TAG, PETSC_COMM_WORLD, &status));  in EvaluateFunction()
125       if (status.MPI_TAG == IDLE_TAG) {  in EvaluateFunction()
128         tag    = status.MPI_TAG;  in EvaluateFunction()
134 …PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, (PetscMPIInt)next_task, PETSC_…  in EvaluateFunction()
139 …  PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, IDLE_TAG, PETSC_COMM_WORLD));  in EvaluateFunction()
606   MPI_Status  status;  in TaskWorker()  local
613     PetscCallMPI(MPI_Recv(x, NPARAMETERS, MPIU_REAL, 0, MPI_ANY_TAG, PETSC_COMM_WORLD, &status));  in TaskWorker()
614     tag = status.MPI_TAG;  in TaskWorker()
643   MPI_Status status;  in StopWorkers()  local
649 …  PetscCallMPI(MPI_Recv(&f, 1, MPIU_REAL, MPI_ANY_SOURCE, MPI_ANY_TAG, PETSC_COMM_WORLD, &status));  in StopWorkers()
652     PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, DIE_TAG, PETSC_COMM_WORLD));  in StopWorkers()