MPI_FUNCTION_FC_PRIMITIVE_SEND
fc->Function = MPI_FUNCTION_FC_PRIMITIVE_SEND;
if (rp->Function != MPI_FUNCTION_FC_PRIMITIVE_SEND) {
if (rp->Function == MPI_FUNCTION_FC_PRIMITIVE_SEND) {