home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / MAMOVE.C < prev    next >
Encoding:
Text File  |  1984-08-14  |  431 b   |  23 lines
  1.    mamove(lra,lrb,nrow,ncol,a,b)
  2.  
  3.       /*this function moves a matrix or a vector to another area.*/
  4.  
  5.       int lra,lrb,ncol,nrow;
  6.       float a[],b[];
  7.  
  8.    {
  9.       int i,ija,ijb,j;
  10.  
  11.       for(i = 0; i <= nrow-1; i++)
  12.       {
  13.        ija = i * lra;
  14.        ijb = i * lrb;
  15.        for(j = 0; j <= ncol-1; j++)
  16.        {
  17.         b[ijb] = a[ija];
  18.         ija = ija + 1;
  19.         ijb = ijb + 1;
  20.        }
  21.       }
  22.    }
  23.