ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
blacs_pcoord_.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 #if (INTFACE == C_CALL)
4 void Cblacs_pcoord(int ConTxt, int nodenum, int *prow, int *pcol)
5 #else
6 F_VOID_FUNC blacs_pcoord_(int *ConTxt, int *nodenum, int *prow, int *pcol)
7 #endif
8 {
9  BLACSCONTEXT *ctxt;
10 
11  MGetConTxt(Mpval(ConTxt), ctxt);
12  if ( (Mpval(nodenum) >= 0) && (Mpval(nodenum) < ctxt->ascp.Np) )
13  {
14  Mpcoord(ctxt, Mpval(nodenum), *prow, *pcol);
15  }
16  else *prow = *pcol = -1;
17 }
Cblacs_pcoord
void Cblacs_pcoord()
bLaCsCoNtExT::ascp
BLACSSCOPE ascp
Definition: Bdef.h:25
MGetConTxt
#define MGetConTxt(Context, ctxtptr)
Definition: Bdef.h:200
Mpval
#define Mpval(para)
Definition: Bdef.h:261
bLaCsCoNtExT
Definition: Bdef.h:23
F_VOID_FUNC
#define F_VOID_FUNC
Definition: Bdef.h:232
Bdef.h
bLaCsScOpE::Np
int Np
Definition: Bdef.h:17
Mpcoord
#define Mpcoord(ctxt, node, prow, pcol)
Definition: Bdef.h:165
blacs_pcoord_
F_VOID_FUNC blacs_pcoord_(int *ConTxt, int *nodenum, int *prow, int *pcol)
Definition: blacs_pcoord_.c:6