src/noarch/communication/moc_iprobe.c

Go to the documentation of this file.

#include <moc.h>
#include <internal/imoc.h>

int MOC_Iprobe(int source, int tag, MOC_Comm comm, int *flag,
        MOC_Status *status)
    {
    moc_message_envelope_t* message;
    status->MOC_SOURCE = source;
    message = IMOC_get_entry(source, tag, comm, 0, status);
    if (message)
        {
        status->MOC_TAG = message->tag;
        status->MOC_ERROR = 0;
        status->message_size = message->size;
        status->mid = message->id;
        *flag = 1;
        }
    else
        {
        *flag = 0;
        }
    return 0;
    }

---