src/noarch/communication/moc_probe.c

Go to the documentation of this file.

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

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

---