home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / CMAMOV.C < prev    next >
Encoding:
Text File  |  1984-06-18  |  486 b   |  25 lines
  1.     cmamov(lra,lrb,nrow,ncol,ar,ai,br,bi)
  2.  
  3.       /*this function will move a matrix or a vector with*/
  4.       /*complex elements to another area.*/
  5.  
  6.      int lra,lrb,nrow,ncol;
  7.      float ar[],ai[],br[],bi[];
  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.  
  16.       for(j = 0; j <= ncol-1; j++)
  17.       {
  18.       br[ijb] = ar[ija];
  19.       bi[ijb] = ai[ija];
  20.       ija++;
  21.       ijb++;
  22.       }
  23.      }
  24.     }
  25.