home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib7 / v_09_04 / 9n04121a < prev    next >
Encoding:
Text File  |  1995-11-01  |  485 b   |  19 lines
  1. mmult(aray1,aray2,aray3,row1,col1,row2,col2)
  2.  
  3. register float *aray1, *aray2, *aray3;
  4. int row1, col1, row2, col2;
  5. {
  6.      register short k, kmax, j, i;
  7.      
  8.      kmax = (col1<row2) ? col1 : row2;
  9.      for (i=0;i<row1;++i)
  10.          for (j=0;j<col2;++j)
  11.          {
  12.              aray3[i*col1+j] = 0;
  13.              for (k=0;k<kmax;++k)
  14.                 aray3[i*col1+j] += aray1[i*col1+k] *
  15.                        aray2[k*col2+j];
  16.          }             
  17.      return;
  18. }     
  19.