module matrix
public::okuma
contains
function okuma() result(matris)
integer,dimension(2,2)::matris
integer::i,j
do i=1,2
     do j=1,2
     print*,i,".Satir, ",j,".Sutun degerini giriniz:"
     read*,matris(i,j)
     end do
end do
end function okuma
end module matrix