ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
kbrid_.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 #if (INTFACE == C_CALL)
4 int Ckbrid(int ConTxt, char *scope, int rsrc, int csrc)
5 #else
6 F_INT_FUNC kbrid_(int *ConTxt, F_CHAR scope, int *rsrc, int *csrc)
7 #endif
8 {
9  int msgid;
10  char tmpscope;
11  BLACSCONTEXT *ctxt;
12 
13  MGetConTxt(Mpval(ConTxt), ctxt);
14  tmpscope = Mlowcase(F2C_CharTrans(scope));
15  switch(tmpscope)
16  {
17  case 'c' :
18  ctxt->scp = &ctxt->cscp;
19  break;
20  case 'r' :
21  ctxt->scp = &ctxt->cscp;
22  break;
23  case 'a' :
24  ctxt->scp = &ctxt->cscp;
25  break;
26  }
27  msgid = Mscopeid(ctxt);
28  return (msgid);
29 }
F_INT_FUNC
#define F_INT_FUNC
Definition: Bdef.h:233
F_CHAR
char * F_CHAR
Definition: pblas.h:109
MGetConTxt
#define MGetConTxt(Context, ctxtptr)
Definition: Bdef.h:200
Mscopeid
#define Mscopeid(ctxt)
Definition: Bdef.h:179
F2C_CharTrans
#define F2C_CharTrans(c)
Definition: Bdef.h:246
Mpval
#define Mpval(para)
Definition: Bdef.h:261
Mlowcase
#define Mlowcase(C)
Definition: Bdef.h:145
bLaCsCoNtExT
Definition: Bdef.h:23
kbrid_
F_INT_FUNC kbrid_(int *ConTxt, F_CHAR scope, int *rsrc, int *csrc)
Definition: kbrid_.c:6
bLaCsCoNtExT::cscp
BLACSSCOPE cscp
Definition: Bdef.h:25
bLaCsCoNtExT::scp
BLACSSCOPE * scp
Definition: Bdef.h:26
Bdef.h