6{
8
9 if ( (m == lda) || (n == 1) )
10 {
11 m = n * m;
12 for (i=0; i < m; i++) buff[i] = A[i];
13 }
14 else if (m == 1)
15 {
16 for (j=0; j < n; j++) buff[j] = A[j*lda];
17 }
18 else
19 {
20 for (j=0; j < n; j++)
21 {
22 for (i=0; i < m; i++) buff[i] = A[i];
23 A += lda;
24 buff += m;
25 }
26 }
27}