Clacpy()

void Clacpy	(	Int	m,
		Int	n,
		Int *	a,
		Int	lda,
		Int *	b,
		Int	ldb
	)

Definition at line 682 of file pigemr.c.

{
  Int   i, j;
  lda -= m;
  ldb -= m;
  assert(lda >= 0 && ldb >= 0);
  for (j = 0; j < n; j++) {
    for (i = 0; i < m; i++)
      *b++ = *a++;
    b += ldb;
    a += lda;
  }