program main
implicit none
  integer,parameter :: row=2
  integer,parameter :: col=4
  integer :: ma(row,col)=1
  integer :: mb(row,col)=4
  integer :: mc(row,col)
  integer :: i,j

  mc= ma + mb
  write(*,"(I3,I3,/,I3,I3)")((mc(i,j),i=1,2),j=1,2)

  stop
end