ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
blacs_barr_.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 #if (INTFACE == C_CALL)
4 void Cblacs_barrier(int ConTxt, char *scope)
5 #else
6 F_VOID_FUNC blacs_barrier_(int *ConTxt, F_CHAR scope)
7 #endif
8 {
9  char tscope;
10  int ierr;
11  BLACSCONTEXT *ctxt;
12 
13  tscope = F2C_CharTrans(scope);
14  tscope = Mlowcase(tscope);
15  MGetConTxt(Mpval(ConTxt), ctxt);
16  switch(tscope)
17  {
18  case 'r':
19  MPI_Barrier(ctxt->rscp.comm);
20  break;
21  case 'c':
22  MPI_Barrier(ctxt->cscp.comm);
23  break;
24  case 'a':
25  MPI_Barrier(ctxt->ascp.comm);
26  break;
27  }
28 }
bLaCsCoNtExT::rscp
BLACSSCOPE rscp
Definition: Bdef.h:25
F_CHAR
char * F_CHAR
Definition: pblas.h:109
bLaCsCoNtExT::ascp
BLACSSCOPE ascp
Definition: Bdef.h:25
MGetConTxt
#define MGetConTxt(Context, ctxtptr)
Definition: Bdef.h:200
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
F_VOID_FUNC
#define F_VOID_FUNC
Definition: Bdef.h:232
Cblacs_barrier
void Cblacs_barrier()
bLaCsCoNtExT::cscp
BLACSSCOPE cscp
Definition: Bdef.h:25
Bdef.h
bLaCsScOpE::comm
MPI_Comm comm
Definition: Bdef.h:15
blacs_barrier_
F_VOID_FUNC blacs_barrier_(int *ConTxt, F_CHAR scope)
Definition: blacs_barr_.c:6