program Matrix
    implicit none
    integer::m,n,i,j
    real::a,sum,Lsum
    sum = 0
    print *, "input number of columns and rows of matrix:"
    read *, m,n
    do j =1,n
        Lsum=0
        do i = 1,m
            print *,'input element (',i,',',j,'):'
            read *, a
            Lsum=Lsum+a
        end do
        sum =sum + Lsum
        print*,'sum of elements of row No.',j,'=',Lsum
    end do
	 print *
    print*,'sum of elements of Matrix =',sum
end program Matrix