program matris_carpimi_2
use hesapkitap
integer::a,b,c,d
do
print*,"Birinci Matrisin Boyutlarini Giriniz:"
read*,a,b
print*,"Ikinci Matrisin Boyutlarini Giriniz:"
read*,c,d
if(b==c)then
exit
else
print*,"Matrisin Boyutlari Yanlis, Tekrar Deneyin!"
endif
end do
call matris_carp(a,b,c,d)
end program matris_carpimi_2