blacs_gridinfo_()

F_VOID_FUNC blacs_gridinfo_	(	Int *	ConTxt,
		Int *	nprow,
		Int *	npcol,
		Int *	myrow,
		Int *	mycol
	)

Definition at line 6 of file blacs_info_.c.

{
   extern BLACSCONTEXT **BI_MyContxts;
   extern Int BI_MaxNCtxt;
   BLACSCONTEXT *ctxt;
/*
 * Make sure context handle is in range
 */
   if ( (Mpval(ConTxt) >= 0) && (Mpval(ConTxt) < BI_MaxNCtxt) )
   {
/*
 *    Make sure context is still defined
 */
      ctxt = BI_MyContxts[Mpval(ConTxt)];
      if (ctxt != NULL)
      {
         *nprow = ctxt->cscp.Np;
         *npcol = ctxt->rscp.Np;
         *myrow = ctxt->cscp.Iam;
         *mycol = ctxt->rscp.Iam;
      }
      else *nprow = *npcol = *myrow = *mycol = -1;
   }
   else *nprow = *npcol = *myrow = *mycol = -1;
}

Here is the caller graph for this function: