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

◆ changeorigin() [2/2]

Int changeorigin ( Int  myp,
Int  sp,
Int  p,
Int  bs,
Int  i,
Int decal,
Int newsp 
)

Definition at line 250 of file pgemraux.c.

251{
252 Int tempheight, firstblock, firsttemp;
253 /* we begin by changing the parameters so that ia < templatewidth,... */
254 tempheight = bs * p;
255 firsttemp = i / tempheight;
256 firstblock = (i / bs) % p;
257 *newsp = (sp + firstblock) % p;
258 if (myp >= 0)
259 *decal = firsttemp * bs + (SHIFT(myp, sp, p) < firstblock ? bs : 0);
260 else
261 *decal = 0;
262 return i % bs;
263}
#define Int
Definition Bconfig.h:22
#define SHIFT(row, sprow, nbrow)
Definition pgemraux.c:41