BI_ContxtNum.c File Reference

#include "Bdef.h"

Go to the source code of this file.

Functions
Int	BI_ContxtNum (BLACSCONTEXT *ctxt)

Function Documentation

BI_ContxtNum()

Int BI_ContxtNum

(

BLACSCONTEXT *

ctxt

)

Definition at line 3 of file BI_ContxtNum.c.

{
   Int i;
   extern Int BI_MaxNCtxt;
   extern BLACSCONTEXT **BI_MyContxts;
 
   if (ctxt == NULL) return(-1);
   for (i=0; i < BI_MaxNCtxt; i++) if (BI_MyContxts[i] == ctxt) break;
   if (i == BI_MaxNCtxt)
      BI_BlacsErr(-1, -1, "BLACS INTERNAL ROUTINE", "illegal context");
   return(i);
}