pro bcs_pad_data, nSampPChan, data
;
;
;
common bcs_pad_data_blk, spec
;
if (n_elements(spec) eq 0) then begin
    ;read spectral file
end
;
if (n_elements(data) ne total(nSampPChan)) then return	;trouble -- don't insert data
;
ist = 0
for i=0,3 do begin
    n = nSampPChan(i)
    data0 = randomu(xx, n) * 32*(i+1)
    data(ist) = data0
    ist = ist + n
end
;
end