4{
7
10 while(info != MPI_SUCCESS)
11 {
12 i=MPI_Error_class(info, &errclass);
13 if ( (errclass != MPI_ERR_UNKNOWN) && (errclass != MPI_ERR_OTHER) &&
14 (errclass != MPI_ERR_INTERN) )
15 {
16 Mmpierror(info,
"MPI_Isend", ctxt, __LINE__, __FILE__);
18 "MPI error %d on call to MPI_Isend", info);
19 }
20#if (BlacsDebugLvl > 0)
22"MPI error %d assumed to mean out of non-blocking resources on call to MPI_Isend",
23 info);
24#endif
27 }
29}
void BI_BlacsErr(Int ConTxt, Int line, char *file, char *form,...)
#define Mmpierror(ierr, rout, ctxt, line, file)
Int BI_ContxtNum(BLACSCONTEXT *ctxt)
void BI_BlacsWarn(Int ConTxt, Int line, char *file, char *form,...)