blacs_pnum_()

F_INT_FUNC blacs_pnum_	(	Int *	ConTxt,
		Int *	prow,
		Int *	pcol
	)

Definition at line 6 of file blacs_pnum_.c.

{
   BLACSCONTEXT *ctxt;
 
   MGetConTxt(Mpval(ConTxt), ctxt);
   if ( (Mpval(prow) >= 0) && (Mpval(prow) < ctxt->cscp.Np) &&
        (Mpval(pcol) >= 0) && (Mpval(pcol) < ctxt->rscp.Np) )
      return( Mkpnum(ctxt, Mpval(prow), Mpval(pcol)) );
   else return(-1);
}