Reverted sostyppp.R
some accident had happened...
new function quadsets.hilo