ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
BI_SringBS.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 void BI_SringBS(BLACSCONTEXT *ctxt, BLACBUFF *bp, SDRVPTR send)
4 {
5  int Np, Iam, msgid;
6 
7  Np = ctxt->scp->Np;
8  if (Np < 2) return;
9  Iam = ctxt->scp->Iam;
10  msgid = Mscopeid(ctxt);
11  send(ctxt, (Iam + 1)%Np, msgid, bp);
12  if (Np > 2) send(ctxt, (Np + Iam - 1)%Np, msgid, bp);
13 }
bLaCbUfF
Definition: Bdef.h:54
bLaCsScOpE::Iam
int Iam
Definition: Bdef.h:17
Mscopeid
#define Mscopeid(ctxt)
Definition: Bdef.h:179
bLaCsCoNtExT
Definition: Bdef.h:23
SDRVPTR
void(* SDRVPTR)(BLACSCONTEXT *, int, int, BLACBUFF *)
Definition: Bdef.h:69
bLaCsCoNtExT::scp
BLACSSCOPE * scp
Definition: Bdef.h:26
Bdef.h
bLaCsScOpE::Np
int Np
Definition: Bdef.h:17
BI_SringBS
void BI_SringBS(BLACSCONTEXT *ctxt, BLACBUFF *bp, SDRVPTR send)
Definition: BI_SringBS.c:3