Internal function for CICA package
xscale(Xi, value = 1000)
Xi
a single datablock
value
desired sum of squares value of the datablock
a matrix that is scale to have a sum of squares of size value