function hxt_comp,data
comp = fix(4. * sqrt(data) + 0.5)
return, comp 
end