#include "Bdef.h"
#if (INTFACE == C_CALL)
BI_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 BI_MPI_Comm *BI_SysContxts;

   if (BI_F77_MPI_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] == BI_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
}