Dmat function

vector of the diagonal for the D matrix from the decomposition A= TDT'