block2buff() [2/2]

static2 Int block2buff	(	IDESC *	vi,
		Int	vinb,
		IDESC *	hi,
		Int	hinb,
		dcomplex *	ptra,
		MDESC *	ma,
		dcomplex *	buff
	)

Definition at line 638 of file pzgemr.c.

{
  Int   h, v, sizebuff;
  dcomplex *ptr2;
  sizebuff = 0;
  for (h = 0; h < hinb; h++) {
    ptr2 = ptra + hi[h].lstart * ma->lda;
    for (v = 0; v < vinb; v++) {
      Mlacpy(vi[v].len, hi[h].len,
             ptr2 + vi[v].lstart,
             ma->lda,
             buff + sizebuff, vi[v].len);
      sizebuff += hi[h].len * vi[v].len;
    }
  }
  return sizebuff;