1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#include "Bdef.h"
void BI_Arecv(BLACSCONTEXT *ctxt, int src, int msgid, BLACBUFF *bp)
{
int i, info, errclass;
info=MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
while(info != MPI_SUCCESS)
{
i=MPI_Error_class(info, &errclass);
if ( (errclass != MPI_ERR_UNKNOWN) && (errclass != MPI_ERR_OTHER) &&
(errclass != MPI_ERR_INTERN) )
{
Mmpierror(info, "MPI_Irecv", ctxt, __LINE__, __FILE__);
BI_BlacsErr(BI_ContxtNum(ctxt), __LINE__, __FILE__,
"MPI error %d on call to MPI_Irecv", info);
}
#if (BlacsDebugLvl > 0)
else BI_BlacsWarn(BI_ContxtNum(ctxt), __LINE__, __FILE__,
"MPI error %d assumed to mean out of non-blocking resources on call to MPI_Irecv",
info);
#endif
info=MPI_Irecv(bp->Buff, bp->N, bp->dtype, src, msgid, ctxt->scp->comm,
&bp->Aops[bp->nAops]);
}
bp->nAops++;
/*
* Signal if we need to use status to figure out true length of received message
* We only need do this if we are doing our own buffering
*/
#ifndef MpiBuffGood
if (bp->dtype == MPI_PACKED) bp->N = -bp->nAops;
#endif
}
|
