home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / MATTRS.C < prev    next >
Encoding:
Text File  |  1984-06-12  |  599 b   |  33 lines
  1.       mattrs(n,llr,x)
  2.  
  3.       /*this subroutine transposes an n by n matrix.*/
  4.  
  5.        int n,llr;
  6.        float  x[];
  7.  
  8.      {
  9.        int i,j;
  10.        int ij,ip1,ji,kllr,nm1;
  11.        float a;                  /* temporary value holder */
  12.  
  13.        kllr = 0;
  14.        nm1 = n - 1;
  15.  
  16.        for(i = 0; i <= nm1-1; i++ )
  17.        {
  18.         ip1 = i + 1;
  19.         ij = i +kllr;
  20.  
  21.          for(j = ip1; j <= n-1; j++)
  22.          {
  23.          ij += llr;
  24.          ji = kllr + j;
  25.          a = x[ji];
  26.          x[ji] = x[ij];
  27.          x[ij] = a;
  28.          }
  29.         kllr += llr;
  30.        }
  31.      }
  32.  
  33.