ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
BI_ivmcopy.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 void BI_ivmcopy(int m, int n, int *A, int lda, int *buff)
4 /*
5  * performs an vector to matrix copy (unpack) for the data type int
6  */
7 {
8  int i, j;
9 
10  if ( (m == lda) || (n == 1) )
11  {
12  m = n * m;
13  for (i=0; i < m; i++) A[i] = buff[i];
14  }
15  else if (m == 1)
16  {
17  for (j=0; j < n; j++) A[j*lda] = buff[j];
18  }
19  else
20  {
21  for (j=0; j< n; j++)
22  {
23  for (i=0; i < m; i++) A[i] = buff[i];
24  A += lda;
25  buff += m;
26  }
27  }
28 }
BI_ivmcopy
void BI_ivmcopy(int m, int n, int *A, int lda, int *buff)
Definition: BI_ivmcopy.c:3
Bdef.h