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

◆ BI_ivmcopy()

void BI_ivmcopy ( Int  m,
Int  n,
Int A,
Int  lda,
Int buff 
)

Definition at line 3 of file BI_ivmcopy.c.

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}
#define Int
Definition Bconfig.h:22
Here is the caller graph for this function: