program matris_carpimi
use matrix
integer,dimension(2,2)::a,b,c
integer::i,j
print*,"Ilk matrisin degerlerini giriniz:"
a=okuma()
print*
print*,"Ikinci matrisin degerlerini giriniz:"
b=okuma()
c=matmul(a,b)
print*
print*,"Carpim Matrisi="
do i=1,2
print*,"[",c(i,:),"]"
end do
end program matris_carpimi