buff2block() [2/2]

static2 void buff2block	(	IDESC *	vi,
		Int	vinb,
		IDESC *	hi,
		Int	hinb,
		complex *	buff,
		complex *	ptrb,
		MDESC *	mb
	)

Definition at line 656 of file pcgemr.c.

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