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}