blacs2sys_.c File Reference

#include "Bdef.h"

Go to the source code of this file.

Functions
Int	blacs2sys_handle_ (Int *BlacsCtxt)

Function Documentation

blacs2sys_handle_()

Int blacs2sys_handle_

(

Int *

BlacsCtxt

)

Definition at line 5 of file blacs2sys_.c.

{
#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
}