problem in format statment

i define a subroutine

but it no work

subroutine printrmat(matrix,row,column)
    implicit none
    integer row,column,,i,j
    real(8) matrix(row,column)
    do i=1,row
        write(*,10) (matrix(i,j),j=1,column)
10 format(column(f))        
    end do
    end subroutine