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