module hesapkitap
public::matris_carp
contains
subroutine matris_carp(a,b,c,d)
integer,intent(in)::a,b,c,d
integer,dimension(a,b)::m
integer,dimension(c,d)::n
integer,dimension(a,d)::zorsonuc,kolaysonuc
integer::i,j,k
print*,"Birinci Matrisin Degerlerini Giriniz:"
do i=1,a
     do j=1,b
     print*,i,".Satir, ",j,".Sutun degerini giriniz:"
     read*,m(i,j)
     end do
end do
print*
print*,"Ikinci Matrisin Degerlerini Giriniz:"
do i=1,c
     do j=1,d
     print*,i,".Satir, ",j,".Sutun degerini giriniz:"
     read*,n(i,j)
     end do
end do
kolaysonuc=matmul(m,n)
print*
print*,"Matrisin carpimi (Kolay yoldan)"
do i=1,a
print*,"[",kolaysonuc(i,:),"]"
end do
zorsonuc=0
do i=1,a
     do j=1,d
          do k=1,b
          zorsonuc(i,j)=zorsonuc(i,j)+(m(i,k)*n(k,j))
          end do
     end do
end do
print*
print*,"Matrisin carpimi (Zor yoldan)"
do i=1,a
print*,"[",zorsonuc(i,:),"]"
end do
end subroutine matris_carp
end module hesapkitap