SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ itrrv2d_()

F_VOID_FUNC itrrv2d_ ( Int ConTxt,
F_CHAR  uplo,
F_CHAR  diag,
Int m,
Int n,
Int A,
Int lda,
Int rsrc,
Int csrc 
)

Definition at line 7 of file itrrv2d_.c.

60{
61/*
62 * Prototypes and variable declarations
63 */
64 void BI_ArgCheck(Int, Int, char *, char, char, char, Int, Int, Int, Int,
65 Int *, Int *);
66 MPI_Datatype BI_GetMpiTrType(BLACSCONTEXT *, char, char, Int, Int, Int,
67 MPI_Datatype, Int *);
68 void BI_Unpack(BLACSCONTEXT *, BVOID *, BLACBUFF *, MPI_Datatype);
73 Int tuplo, tdiag, tlda;
74 Int ierr, length;
75 BLACBUFF *bp;
76 MPI_Datatype IntTyp, MatTyp;
77 BLACSCONTEXT *ctxt;
79
80 MGetConTxt(Mpval(ConTxt), ctxt);
81 tdiag = F2C_CharTrans(diag);
82 tuplo = F2C_CharTrans(uplo);
83 tdiag = Mlowcase(tdiag);
84 tuplo = Mlowcase(tuplo);
85
86#if (BlacsDebugLvl > 0)
87 BI_ArgCheck(Mpval(ConTxt), RT_RV, __FILE__, 'a', tuplo, tdiag, Mpval(m),
88 Mpval(n), Mpval(lda), 1, Mpaddress(rsrc), Mpaddress(csrc));
89#endif
90 if (Mpval(lda) < Mpval(m)) tlda = Mpval(m);
91 else tlda = Mpval(lda);
92 ctxt->scp = &ctxt->pscp;
93
94 MPI_Type_match_size(MPI_TYPECLASS_INTEGER, sizeof(Int), &IntTyp);
95 MatTyp = BI_GetMpiTrType(ctxt, tuplo, tdiag, Mpval(m), Mpval(n), tlda,
96 IntTyp, &BI_AuxBuff.N);
97 BI_AuxBuff.Buff = (char *) A;
98 BI_AuxBuff.dtype = MatTyp;
99 BI_Srecv(ctxt, Mkpnum(ctxt, Mpval(rsrc), Mpval(csrc)), PT2PTID, &BI_AuxBuff);
100 ierr=BI_MPI_TYPE_FREE(&MatTyp);
101 if (BI_ActiveQ) BI_UpdateBuffs(NULL);
102}
void BI_ArgCheck(Int ConTxt, Int RoutType, char *routine, char scope, char uplo, char diag, Int m, Int n, Int lda, Int nprocs, Int *prows, Int *pcols)
Definition BI_ArgCheck.c:4
Int BI_BuffIsFree(BLACBUFF *bp, Int Wait)
BLACBUFF * BI_GetBuff(Int length)
Definition BI_GetBuff.c:37
MPI_Datatype BI_GetMpiTrType(BLACSCONTEXT *ctxt, char uplo, char diag, Int m, Int n, Int lda, MPI_Datatype Dtype, Int *N)
BLACBUFF * BI_ActiveQ
BLACBUFF BI_AuxBuff
void BI_Srecv(BLACSCONTEXT *ctxt, Int src, Int msgid, BLACBUFF *bp)
Definition BI_Srecv.c:3
void BI_Unpack(BLACSCONTEXT *ctxt, BVOID *A, BLACBUFF *bp, MPI_Datatype Dtype)
Definition BI_Unpack.c:3
void BI_UpdateBuffs(BLACBUFF *Newbp)
#define Int
Definition Bconfig.h:22
#define BI_MPI_TYPE_FREE(t)
Definition Bdef.h:305
#define F2C_CharTrans(c)
Definition Bdef.h:246
#define MGetConTxt(Context, ctxtptr)
Definition Bdef.h:200
#define Mpaddress(para)
Definition Bdef.h:262
#define Mpval(para)
Definition Bdef.h:261
#define Mkpnum(ctxt, prow, pcol)
Definition Bdef.h:173
#define PT2PTID
Definition Bdef.h:77
#define RT_RV
Definition Bdef.h:106
#define Mlowcase(C)
Definition Bdef.h:145
#define BVOID
Definition Bdef.h:136
Int N
Definition Bdef.h:61
MPI_Datatype dtype
Definition Bdef.h:60
char * Buff
Definition Bdef.h:56
BLACSSCOPE pscp
Definition Bdef.h:25
BLACSSCOPE * scp
Definition Bdef.h:26
Here is the call graph for this function: