|
ScaLAPACK
2.0.2
ScaLAPACK: Scalable Linear Algebra PACKage
|
#include "Bdef.h"Go to the source code of this file.
Functions/Subroutines | |
| int | BI_ContxtNum (BLACSCONTEXT *ctxt) |
| 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);
}