C  FORTRAN code in Figure 14.3, page 629 from
C  Kenneth C. Louden, Programming Languages
C  Principles and Practice 2nd Edition
C  Copyright (C) Brooks-Cole/ITP, 2003

      integer a(100, 100), b(100, 100), c(100, 100)
      integer i, j, k, numprocs, err
      numprocs = 10
C code to read in a and b goes here
      err = m_set_procs(numprocs)
C$doacross share(a, b, c), local(j, k)
      do 10 i = 1,100
        do 10 j = 1,100
          c(i, j) = 0
          do 10 k = 1,100
            c(i, j) = c(i, j) + a(i, k) * b(k, j)
   10 continue
      call m_kill_procs
C code to write out c goes here
      end