home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / MATLIB.FO$ / MATLIB.bin
Text File  |  1991-03-25  |  485b  |  21 lines
  1. C
  2. C Multiply the matrices
  3. C
  4.  
  5.       SUBROUTINE MultMatrices( rows, prods, cols, a, b, c [REFERENCE])
  6.  
  7.       INTEGER*2 i, j, k, rows, prods, cols
  8.       REAL*8 a(rows, prods), b(prods, cols), c(rows, cols)
  9.  
  10.       DO 3000, j = 1, cols
  11.           DO 3100, i = 1, rows
  12.               c(i, j) = 0.0
  13.               DO 3200, k = 1, prods
  14.                   c(i, j) = c(i, j) + (a(i, k) * b(k, j))
  15.  3200         CONTINUE
  16.  3100     CONTINUE
  17.  3000 CONTINUE
  18.       RETURN
  19.       END
  20.  
  21.