home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / CMASWC.C < prev    next >
Encoding:
Text File  |  1984-06-18  |  601 b   |  31 lines
  1.     cmaswc(lra,lrb,nrow,ncol,ar,ai,br,bi)
  2.  
  3.       /*this function interchanges two matrices or vectors*/
  4.       /*with complex elements.*/
  5.  
  6.       int lra,lrb,nrow,ncol;
  7.       float ar[],ai[],br[],bi[];
  8.  
  9.     {
  10.       int i,ija,ijb,j;
  11.       float cr,ci;
  12.  
  13.       for(i = 0; i <= nrow-1; i++)
  14.       {
  15.        ija = i * lra;
  16.        ijb = i * lrb;
  17.  
  18.        for(j = 0; j <= ncol-1; j++)
  19.        {
  20.        cr = ar[ija];
  21.        ci = ai[ija];
  22.        ar[ija] = br[ijb];
  23.        ai[ija] = bi[ijb];
  24.        br[ijb] = cr;
  25.        bi[ijb] = ci;
  26.        ija++;
  27.        ijb++;
  28.        }
  29.       }
  30.     }
  31.