TDenseMatrix::MakeDiagonal

Create a matrix with all elemets set to zero, except the diagonal elements.