program matrix_c
integer,dimension(2,2)::a,b,c
integer::i,j
print*,"Enter the values of the first matrix:"

do i=1,2
     do j=1,2
     print*,i,".row, ",j,".column value:"
     read*,a(i,j)
     end do
end do
print*
print*,"Enter the values of the second matrix:"
do i=1,2
     do j=1,2
     print*,i,".row, ",j,".column value:"
     read*,b(i,j)
     end do
end do

c=matmul(a,b)
print*
print*,"Multiplication of matrices="
!From now on this part is not neccessary
!You can just enter print*,c
do i=1,2
print*,"[",c(i,:),"]"
end do
end program matrix_c