function deka_norm, index, data, dekaindex=dekaindex
;

expdur = gt_expdur(index)
siz = size(data)
if (siz(0) eq 3) then n = siz(3) else n=1
typ = siz( siz(0) + 1)
;
if (typ eq 1) then out = float(sxt_decomp(data)) else out = float(data)
 for i=0, n-1 do begin
    out(0, 0, i) = 1e5 * out(*,*,i) / expdur(i)
 endfor
;
dekaindex=index
his_index, dekaindex, -1, 'expdur', 100000.   ;normalized to 100 sec = 100000 msec
;
return, out
end