C     Matrix Multiplication
     
      program main
      integer a (5, 4), b (4, 5), c (5)
      data    a /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
     +           11, 12, 13, 14, 15, 16, 17, 18, 19, 20/
      data    b /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
     +           11, 12, 13, 14, 15, 16, 17, 18, 19, 20/
      data    c /5*0/
      integer i, j
      do i = 1, 5
         do j = 1, 4
            c (i) = a (i, j) * b (j, i) + c (i);
         end do
      end do
      write (6, 1400) ((a(I,J), i=1,5), j=1,4)
      write (6, 1401) ((b(I,J), i=1,4), j=1,5)
      write (6, 1403) (c(I), i=1,5)
 1400 format (5(4I4,/),/)
 1401 format (4(5I4,/),/)
 1403 format (5I4)
      end


