7{
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}