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
|
#include "Bdef.h"
#if (INTFACE == C_CALL)
MPI_Comm Cblacs2sys_handle(int BlacsCtxt)
#else
int blacs2sys_handle_(int *BlacsCtxt)
#endif
{
#if (INTFACE == C_CALL)
int i[2];
extern int BI_MaxNSysCtxt;
extern MPI_Comm *BI_SysContxts;
if (BI_COMM_WORLD == NULL) Cblacs_pinfo(i, &i[1]);
if ( (BlacsCtxt >= BI_MaxNSysCtxt) || (BlacsCtxt < 0) )
{
BI_BlacsErr(-1, __LINE__, __FILE__,
"No system context corresponding to BLACS system context handle %d\n",
BlacsCtxt);
}
else if (BI_SysContxts[BlacsCtxt] == MPI_COMM_NULL)
{
BI_BlacsErr(-1, __LINE__, __FILE__,
"No system context corresponding to BLACS system context handle %d\n",
BlacsCtxt);
}
return(BI_SysContxts[BlacsCtxt]);
#else
return(*BlacsCtxt);
#endif
}
|
