inverse of vech
[xi]=invvech(x,nr)
x = a (nrx1) vector
nr = # of rows of the original matrix
xi = the original -vectorized by vech- matrix
a=grand(5,2,'nor',0,1);b=vech(a'*a);c=invvech(b,2) // c is equal to a'*a