blacs_pnum_.c File Reference

#include "Bdef.h"

Go to the source code of this file.

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

Function Documentation

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);
}